10 lines
261 B
Fortran
10 lines
261 B
Fortran
FUNCTION SFFHMI_old(POPI,FR,T)
|
|
C ==========================
|
|
C
|
|
C Free-free cross section for H- (After Kurucz,1970,SAO 309, P.80)
|
|
C
|
|
INCLUDE 'PARAMS.FOR'
|
|
SFFHMI_old=(1.3727E-25+(4.3748E-10-2.5993E-7/T)/FR)*POPI/FR
|
|
RETURN
|
|
END
|