source:
PSPA/parmelaPSPA/trunk/fsch.f
@
465
Last change on this file since 465 was 12, checked in by , 12 years ago | |
---|---|
File size: 174 bytes |
Line | |
---|---|
1 | function fsch(x) ! for hot cathode |
2 | common/cf/fmax |
3 | fsch=fmax**(sqrt(x)) |
4 | return |
5 | end |
6 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
Note: See TracBrowser
for help on using the repository browser.