23 lines
606 B
Fortran
23 lines
606 B
Fortran
FUNCTION SBFHMI_old(FR)
|
|
C ===================
|
|
C
|
|
C Bound-free cross-section for H- (negative hydrogen ion)
|
|
C
|
|
INCLUDE 'PARAMS.FOR'
|
|
SBFHMI=0.
|
|
sbfhmi_old=0.
|
|
FR0=1.8259E14
|
|
IF(FR.LT.FR0) RETURN
|
|
IF(FR.LT.2.111E14) GO TO 10
|
|
X=2.997925E15/FR
|
|
SBFHMI=(6.80133E-3+X*(1.78708E-1+X*(1.6479E-1+X*(-2.04842E-2+X*
|
|
1 5.95244E-4))))*1.E-17
|
|
sbfhmi_old=sbfhmi
|
|
RETURN
|
|
10 X=2.997925E15*(1./FR0-1./FR)
|
|
SBFHMI=(2.69818E-1+X*(2.2019E-1+X*(-4.11288E-2+X*2.73236E-3)))
|
|
1 *X*1.E-17
|
|
sbfhmi_old=sbfhmi
|
|
RETURN
|
|
END
|