source: PSPA/parmelaPSPA/trunk/fsch.f @ 418

Last change on this file since 418 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

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
6c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.