c
c###################################################################
c
      subroutine eionlt(pe, pcf, kncf, pxs, kermsg)
c
c     this is a subroutine to calculate cross sections (cm[2])
c     versus energy (ev) for electron impact ionization.
c
c     pe = collision energy in eV
c
c     this evaluation function requires the binding energies of the
c     target atomic subshells and constants to be passed in the coefficient 
c     data array, such that
c
c     pcf(1) = binding energy of the electron in first subshell
c     pcf(2) = binding energy of the electron in second subshell
c     pcf(3-4) = q1, q2
c     pcf(5-6) = a1, a2
c     pcf(7-8) = b1, b2
c     pcf(9-10) = c1, c2
c
c    - warning- .
c
c     the coefficient array pcf is updated by this routine to
c     include energy independent constants. these coefficients can be
c     used in subsequent calls for the same entry.
c
c     kermsg = blank if no errors
c
c     pxs = cross section in cm[2]
c
c------------------------------------------------------------------------
c
      double precision e, pe, pcf, pxs
      double precision eth1, eth2, xs1, xs2
      double precision a1, a2, b1, b2, c1, c2, q1, q2
c
      dimension pcf(10)
      character*(*) kermsg
c
      eth1 = pcf(1)
      if(pe .ge. eth1) then
        kermsg = ' '
      else
        pxs = 0.0
        return
      endif
c
c energy remains in eV
      e = pe
c
c     determine the value of the cross section  pxs
c
      if(kncf .eq. 10) then
        eth2 = pcf(2)
        q1 = pcf(3)
        q2 = pcf(4)
        a1 = pcf(5)
        a2 = pcf(6)
        b1 = pcf(7)
        b2 = pcf(8)
        c1 = pcf(9)
        c2 = pcf(10)
        xs1 = a1 * q1 * dlog(e/eth1) * 
     1    (1.d0-b1*dexp(-c1*(e/eth1 - 1.d0)))/eth1
        xs2 = a2 * q2 * dlog(e/eth2) * 
     1    (1.d0-b2*dexp(-c2*(e/eth2 - 1.d0)))/eth2
        pxs = 1.0e-14 * (xs1 + xs2)/e
      else
          kermsg = ' incorrect number of coefficients passed to eionlt'
          return
      endif
c
      return
      end