C***************************************************************C
      SUBROUTINE ALJNV1(PE, PCF, KNCF, PXS, KERMSG)
C***************************************************************C
C*    EXCITATION CROSS SECTION BY KATO & JANEV (TYPE = 1)      *C
C*            +    +    +    +    +    +    +    +             *C
C*        PE     : ELECTRON ENERGY (EV)                        *C
C*        PXS    : CROSS SECTION (CM[2])                       *C
C*        KERMSG : ERROR MESSAGE                               *C
C*            +    +    +    +    +    +    +    +             *C
C*        PCF(1)         =  EIJ   : THRESHOLD ENERGY           *C
C*        PCF(2)         =  GI    : STATISTICAL WEIGHT         *C
C*        PCF(3)-(7)     =  A1-A5 : COEFFICIENTS OF FITTING    *C
C*            +    +    +    +    +    +    +    +             *C
C*            AUG.20, 1993             BY K. TAKASUGI          *C
C***************************************************************C
C--- EXCITATION CROSS SECTION FROM NUCL-FUSION-SUPPL-3 -------
C
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION PCF(7)
      CHARACTER*(*) KERMSG
C
        KERMSG=' '
        CONST=8.7974E-17*13.6/(PE*PCF(2))
        X=PE/PCF(1)
C
      if(X .ge. 1.0) then
        OMG=PCF(3) + (PCF(4) + (PCF(5) + PCF(6)/X)/X)/X
        PXS=CONST*OMG*((X-1.0)/X)**PCF(7)
      else
	    PXS=0.0
      endif
C
      RETURN
      END
C