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