14 lines
299 B
Fortran
14 lines
299 B
Fortran
FUNCTION FFCROS(IEL,IFR,T,FR)
|
|
C ==================================
|
|
C
|
|
C Non-standard evaluation of free-free cross section;
|
|
C a user supplied procedure
|
|
C
|
|
INCLUDE 'IMPLIC.FOR'
|
|
FFCROS=0.
|
|
if(iel.eq.0.or.ifr.eq.0) return
|
|
t1=t
|
|
fr1=fr
|
|
RETURN
|
|
END
|