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