      REAL FUNCTION SIGMA(E)
C     ELECTRON COLLISIONS WITH N2
C     N_2^+ PRODUCTION
C     CROSS SECTION(CM^2)  :SIGMA
C     COLLISION ENERGY(KEV):E
C     T.Tabata, et al., At. Data Nucl. Data Tables.
      REAL A(12)
      DATA EMIN,EMAX,ETH /1.70E-2,1.00E+0,1.56E-2/
      DATA A /2.639E-3,0.000E+0,4.690E-2,9.750E-1,8*0.0/
      DATA SIGMA0,ER /1.E-16,1.361E-2/
      SIGMA=0.0
      IF(E.LT.EMIN .OR. E.GT.EMAX) GO TO 9999
      E1=E-ETH
      SIGMA=SIGMA0*A(1)*(ALOG(E/ETH)+A(2))/
     >      (ETH*E*(1.+(A(3)/E1)**A(4)))
 9999 RETURN
      END