File: start.tmpl

package info (click to toggle)
libdemeter-perl 0.9.27%2Bds6-9
  • links: PTS, VCS
  • area: contrib
  • in suites: forky, sid, trixie
  • size: 74,028 kB
  • sloc: perl: 73,233; python: 2,196; makefile: 1,999; ansic: 1,368; lisp: 454; sh: 74
file content (13 lines) | stat: -rw-r--r-- 355 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
{
  $which = (lc($P->space) =~ m{[ek]}) ? 'fft' : 'bft';
  $space = (lc($P->space) eq 'e') ? 'energy' : lc($P->space);
  $DS->_update($which);
  q{};
}
{if (($P->space eq 'k') and $P->chie) {
  $OUT .= "set p___lot.eee = " . $DS->group . ".k^2/etok+" . $DS->bkg_e0;
} else {
  $OUT .= "set p___lot." . $P->space . " = " . $DS->group . "." . $space;
};
}