source: PSPA/parmelaPSPA/tags/v0.1/fsch.f @ 447

Last change on this file since 447 was 101, checked in by garnier, 12 years ago

premier tag
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.