git push -u origin main

synspec/extracted/sbfhmi_old.f

@@ -0,0 +1,22 @@
+      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