C 20 AUG 07 - FRJ - PROVIDE ALL PC-N BASIS SETS UP TO ARGON
C 19 SEP 05 - MWS - ADD TRUE NUCLEAR CHARGE ARRAY TO INFOA COMMON
C  5 JUL 05 - MWS - SELECT NEW ATOM,BASIS,EFP,PCM,DAF DIMENSIONS
C 13 FEB 05 - MWS - PAD COMMON BLOCK NSHEL
C  4 FEB 05 - FRJ - ADD PC-N BASIS SETS FOR H,C,N,O,F,SI,P,S,CL.
C              NOTE THAT THE PC-4 BASIS SET CONTAINS H-FUNCTIONS,
C              WHICH GAMESS CURRENTLY CANNOT HANDLE. THESE FUNCTIONS
C              HAVE BEEN COMMENTED OUT AND THE HYDROGEN G-FUNCTIONS
C              HAS BEEN REMOVED AS WELL FOR CONSISTENCY
C*MODULE BASPCN  *DECK PCNBAS
      SUBROUTINE PCNBAS(NUCZ,CSINP,CPINP,CDINP,CFINP,CGINP,IERR1,IERR2,
     *                 INTYP,NANGM,NBFS,MINF,MAXF,LOC,NGAUSS,NS,NPOL)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      LOGICAL GOPARR,DSKWRK,MASWRK
      LOGICAL LDIFF
C
      DIMENSION CSINP(*),CPINP(*),CDINP(*),CFINP(*),CGINP(*),
     *          INTYP(*),NANGM(*),NBFS(*),MINF(*),MAXF(*),NS(*)
      DIMENSION EEX(90),CCS(90),CCP(90),CCD(90),CCF(90),CCG(90),
     *          ITYPES(32),NGBFS(32)
C
      PARAMETER (MXSH=5000, MXGTOT=20000, MXATM=2000)
C
      COMMON /INFOA / NAT,ICH,MUL,NUM,NQMT,NE,NA,NB,
     *                ZAN(MXATM),C(3,MXATM),IAN(MXATM)
      COMMON /NSHEL / EX(MXGTOT),CS(MXGTOT),CP(MXGTOT),CD(MXGTOT),
     *                CF(MXGTOT),CG(MXGTOT),CH(MXGTOT),CI(MXGTOT),
     *                KSTART(MXSH),KATOM(MXSH),KTYPE(MXSH),KNG(MXSH),
     *                KLOC(MXSH),KMIN(MXSH),KMAX(MXSH),NSHELL
      COMMON /OUTPUT/ NPRINT,ITOL,ICUT,NORMF,NORMP,NOPK
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, PT5=0.5D+00, PT75=0.75D+00)
      PARAMETER (PI32=5.56832799683170D+00, TOL=1.0D-10)
      PARAMETER (PT1875=1.875D+00, PT65625=6.5625D+00)
C
C     ----- SET UP THE PC-N BASIS SETS -----
C
      DO 100 I = 1,90
         EEX(I) = ZERO
         CCS(I) = ZERO
         CCP(I) = ZERO
         CCD(I) = ZERO
         CCF(I) = ZERO
         CCG(I) = ZERO
  100 CONTINUE
      DO 101 I = 1,32
         ITYPES(I) = 0
         NGBFS(I)  = 0
  101 CONTINUE
      LDIFF = .FALSE.
      NTMP = NPOL
      IF (NTMP.GE.10) THEN
         LDIFF = .TRUE.
         NTMP = NTMP - 10
      ENDIF
      ILAST = 0
C
C     ----- HYDROGEN TO HELIUM -----
C
      IF (NUCZ .GT. 2) GO TO 220
      CALL PCN001(EEX,CCS,CCP,CCD,CCF,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL APCN01(EEX,CCS,CCP,CCD,CCF,NUCZ,NTMP,ILAST)
      GO TO 300
C
C     ----- LITHIUM TO NEON -----
C
  220 CONTINUE
      IF (NUCZ.GT.10) GO TO 230
      CALL PCN002(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL APCN02(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      GO TO 300
C
C     ----- SODIUM TO ARGON -----
C
  230 CONTINUE
      IF(NUCZ.GT.18) GO TO 250
      CALL PCN003(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL APCN03(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      GO TO 300
C
  250 CONTINUE
      IF (MASWRK) WRITE(6,*)'PC-N BASIS SETS EXIST ONLY UP TO AR.'
      CALL BERROR(3)
      STOP
C
C     ----- NOW SET UP EACH SHELL -----
C
  300 CONTINUE
      CALL PCNSHL(NUCZ,MXPASS,ITYPES,NGBFS,NTMP,LDIFF)
C
      IGX = 0
      IPASS = 0
  310 CONTINUE
      IPASS = IPASS + 1
      IF(IPASS.GT.MXPASS) RETURN
C                         ******
      IGAUSS = NGBFS(IPASS)
      ITYP = ITYPES(IPASS)
C
      NSHELL = NSHELL+1
      IF(NSHELL.GT.MXSH) THEN
         IERR1=1
         RETURN
      END IF
      NS(NAT) = NS(NAT)+1
      KMIN(NSHELL) = MINF(ITYP)
      KMAX(NSHELL) = MAXF(ITYP)
      KSTART(NSHELL) = NGAUSS+1
      KATOM(NSHELL) = NAT
      KTYPE(NSHELL) = NANGM(ITYP)
      INTYP(NSHELL) = ITYP
      KNG(NSHELL) = IGAUSS
      KLOC(NSHELL) = LOC+1
      NGAUSS = NGAUSS+IGAUSS
      IF(NGAUSS.GT.MXGTOT) THEN
         IERR2=1
         RETURN
      END IF
      LOC = LOC+NBFS(ITYP)
      K1 = KSTART(NSHELL)
      K2 = K1+KNG(NSHELL)-1
      DO 720 I = 1,IGAUSS
         K = K1+I-1
         EX(K)    = EEX(IGX+I)
         CSINP(K) = CCS(IGX+I)
         CPINP(K) = CCP(IGX+I)
         CDINP(K) = CCD(IGX+I)
         CFINP(K) = CCF(IGX+I)
         CGINP(K) = CCG(IGX+I)
         CS(K) = CSINP(K)
         CP(K) = CPINP(K)
         CD(K) = CDINP(K)
         CF(K) = CFINP(K)
         CG(K) = CGINP(K)
  720 CONTINUE
      IGX = IGX + IGAUSS
C
C     ----- ALWAYS UNNORMALIZE PRIMITIVES -----
C
      DO 740 K = K1,K2
         EE = EX(K)+EX(K)
         FACS = PI32/(EE*SQRT(EE))
         FACP = PT5*FACS/EE
         FACD = PT75*FACS/(EE*EE)
         FACF = PT1875*FACS/(EE*EE*EE)
         FACG = PT65625*FACS/(EE*EE*EE*EE)
         CS(K) = CS(K)/SQRT(FACS)
         CP(K) = CP(K)/SQRT(FACP)
         CD(K) = CD(K)/SQRT(FACD)
         CF(K) = CF(K)/SQRT(FACF)
         CG(K) = CG(K)/SQRT(FACG)
  740 CONTINUE
C
C     ----- IF(NORMF.EQ.0) NORMALIZE BASIS FUNCTIONS. -----
C
      IF (NORMF .EQ. 1) GO TO 820
      FACS = ZERO
      FACP = ZERO
      FACD = ZERO
      FACF = ZERO
      FACG = ZERO
      DO 780 IG = K1,K2
         DO 770 JG = K1,IG
            EE = EX(IG)+EX(JG)
            FAC = EE*SQRT(EE)
            DUMS = CS(IG)*CS(JG)/FAC
            DUMP = PT5*CP(IG)*CP(JG)/(EE*FAC)
            DUMD = PT75*CD(IG)*CD(JG)/(EE*EE*FAC)
            DUMF = PT1875*CF(IG)*CF(JG)/(EE*EE*EE*FAC)
            DUMG = PT65625*CG(IG)*CG(JG)/(EE*EE*EE*EE*FAC)
            IF (IG .NE. JG) THEN
               DUMS = DUMS+DUMS
               DUMP = DUMP+DUMP
               DUMD = DUMD+DUMD
               DUMF = DUMF+DUMF
               DUMG = DUMG+DUMG
            END IF
            FACS = FACS+DUMS
            FACP = FACP+DUMP
            FACD = FACD+DUMD
            FACF = FACF+DUMF
            FACG = FACG+DUMG
  770    CONTINUE
  780 CONTINUE
      IF (FACS .GT. TOL) FACS = ONE/SQRT(FACS*PI32)
      IF (FACP .GT. TOL) FACP = ONE/SQRT(FACP*PI32)
      IF (FACD .GT. TOL) FACD = ONE/SQRT(FACD*PI32)
      IF (FACF .GT. TOL) FACF = ONE/SQRT(FACF*PI32)
      IF (FACG .GT. TOL) FACG = ONE/SQRT(FACG*PI32)
      DO 800 IG = K1,K2
         CS(IG) = CS(IG) * FACS
         CP(IG) = CP(IG) * FACP
         CD(IG) = CD(IG) * FACD
         CF(IG) = CF(IG) * FACF
         CG(IG) = CG(IG) * FACG
         CSINP(IG) = CSINP(IG) * FACS
         CPINP(IG) = CPINP(IG) * FACP
         CDINP(IG) = CDINP(IG) * FACD
         CFINP(IG) = CFINP(IG) * FACF
         CGINP(IG) = CGINP(IG) * FACG
  800 CONTINUE
C
C        AND BRANCH BACK FOR THE NEXT SHELL
C
  820 CONTINUE
      GO TO 310
      END
C*MODULE BASPCN  *DECK PCNSHL
      SUBROUTINE PCNSHL(NUCZ,MXPASS,ITYPES,NGBFS,NTMP,LDIFF)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION ITYPES(32),NGBFS(32)
      DIMENSION NPASS(5,5)
      DIMENSION ITYPS(32,5,5),NGS(32,5,5)
      LOGICAL LDIFF
C
CFRJ  NOTE THAT THE LAST VALUE IN EACH NPASS SEQUENCE SHOULD BE
C     INCREMENTED BY ONE WHEN H-FUNCTIONS ARE IMPLEMENTED, AND
C     CORRESPONDING CHANGES IN ITYPS AND NGS
C
C     NPASS: NUMBER OF CONTRACTED SHELLS FOR: H ; LI-BE ; B-NE ;
C                                             NA-MG ; AL-AR
      DATA NPASS/2,3,6,12,18,   4,5,7,12,17,    5,6,10,18,26,
     *           6,6,9,13,17,   7,8,12,18,24/
C
C     ITYPS DEFINES THE TYPE OF SHELL, 1=S,2=P,3=D,4=F,5=G
C     BEWARE 6 DOES NOT EQUAL H !!
C
      DATA ITYPS/2*1,30*0,   2*1,1*2,29*0,   3*1,2*2,1*3,26*0,
     *           5*1,4*2,2*3,1*4,20*0,  7*1,6*2,3*3,2*4,14*0,
     *
     *           3*1,2,28*0,   3*1,2*2,27*0,   4*1,2*2,1*3,25*0,
     *           6*1,3*2,2*3,1*4,20*0,  8*1,4*2,3*3,2*4,15*0,
     *
     *           3*1,2*2,27*0,   3*1,2*2,1*3,26*0,
     *           4*1,3*2,2*3,1*4,22*0,
     *           6*1,5*2,4*3,2*4,1*5,14*0,  8*1,7*2,6*3,3*4,2*5,6*0,
     *
     *           4*1,2*2,26*0,   4*1,2*2,26*0,
     *           5*1,3*2,1*3,23*0,
     *           6*1,4*2,2*3,1*4,19*0,  7*1,5*2,3*3,2*4,15*0,
     *
     *           4*1,3*2,25*0,   4*1,3*2,1*3,24*0,
     *           5*1,4*2,2*3,1*4,20*0,
     *           6*1,5*2,4*3,2*4,1*5,14*0,  7*1,6*2,6*3,3*4,2*5,8*0/
C
C       NGS TELLS THE NUMBER OF GAUSSIANS IN EACH SHELL
C
      DATA NGS/  2,1,30*0,   3,1,1,29*0,   4,5*1,26*0,
     *           5,11*1,20*0,  5,17*1,14*0,
     *
     *           2*3,2*1,28*0,   2*5,1,2,1,27*0,   2*7,2*1,3,2*1,25*0,
     *           2*9,4*1,4,5*1,20*0,  2*12,6*1,5,8*1,15*0,
     *
     *           2*3,1,2,1,27*0,   2*5,1,3,2*1,26*0,
     *           2*7,2*1,4,5*1,22*0,
     *           9,8,4*1,5,11*1,14*0,  11,9,6*1,5,17*1,6*0,
     *
     *           3*5,1,4,1,26*0,   3*8,1,6,1,26*0,
     *           3*9,2*1,7,3*1,23*0,
     *           12,2*10,3*1,9,6*1,19*0,
     *           15,11,11,4*1,11,9*1,15*0,
     *
     *           3*5,1,2*4,1,25*0,   3*8,1,2*6,2*1,24*0,
     *           3*9,2*1,2*7,5*1,20*0,
     *           12,2*10,3*1,2*9,10*1,14*0,
     *           15,2*12,4*1,2*11,15*1,8*0/
C
      NTMP = NTMP + 1
CFRJ  NROW NOW INDICATES BOTH ROW AND S OR SP BLOCK ELEMENTS
      NROW = 99
      IF (NUCZ.LE.18) NROW = 5
      IF (NUCZ.LE.12) NROW = 4
      IF (NUCZ.LE.10) NROW = 3
      IF (NUCZ.LE.4)  NROW = 2
      IF (NUCZ.LE.2)  NROW = 1
      MXPASS = NPASS(NTMP,NROW)
      DO 100 I=1,MXPASS
         ITYPES(I) = ITYPS(I,NTMP,NROW)
         NGBFS(I)  = NGS(I,NTMP,NROW)
C        A FEW UGLY HACKS FOR ADJUSTING NGBFS ACCORDING TO NUCZ.
C        THE DAVIDSON PURIFICATION TO PARTLY SEGMENT THE GENERAL
C        CONTRACTION MEANS THAT THE NUMBER OF FUNCTIONS IS NOT
C        NECESSARILY THE SAME FOR ALL ELEMENTS IN A GIVEN ROW
         IF (NUCZ.EQ.5  .AND. NTMP.EQ.4 .AND. I.EQ.2) NGBFS(I) = 9
         IF (NUCZ.EQ.6  .AND. NTMP.EQ.4 .AND. I.EQ.2) NGBFS(I) = 9
         IF (NUCZ.EQ.6  .AND. NTMP.EQ.5 .AND. I.EQ.2) NGBFS(I) = 10
         IF (NUCZ.EQ.11 .AND. NTMP.EQ.3 .AND. I.EQ.2) NGBFS(I) = 8
         IF (NUCZ.EQ.11 .AND. NTMP.EQ.5 .AND. I.EQ.3) NGBFS(I) = 13
         IF (NUCZ.EQ.13 .AND. NTMP.EQ.5 .AND. I.EQ.2) NGBFS(I) = 11
         IF (NUCZ.EQ.13 .AND. NTMP.EQ.5 .AND. I.EQ.3) NGBFS(I) = 13
         IF (NUCZ.EQ.13 .AND. NTMP.EQ.5 .AND. I.EQ.9) NGBFS(I) = 10
  100 CONTINUE
C     POSSIBLY ADJUST FOR DIFFUSE FUNCTIONS
      WRITE(*,*)'LDIFF, NTMP, NROW',LDIFF,NTMP,NROW
      IF (LDIFF) THEN
         NEND = NTMP
      WRITE(*,*)'NEND',NEND
         IF (NROW.EQ.3 .OR. NROW.EQ.5) NEND = NEND + 1
      WRITE(*,*)'NEND',NEND
         IF (NROW.EQ.2 .AND. NTMP.EQ.1) NEND = NEND + 1
      WRITE(*,*)'NEND',NEND
         IF (NROW.EQ.4 .AND. NTMP.EQ.1) NEND = NEND + 1
      WRITE(*,*)'NEND',NEND
C        ADJUST FOR THE MISSING H-FUNCTIONS
         IF (NTMP.EQ.5) NEND = NEND - 1
      WRITE(*,*)'NEND',NEND
         DO I = 1,NEND
            ITYPES(MXPASS+1) = I
            NGBFS(MXPASS+1)  = 1
            MXPASS = MXPASS + 1
         ENDDO
      ENDIF
      RETURN
      END
C*MODULE BASPCN  *DECK PCN001
      SUBROUTINE PCN001(E,S,P,D,F,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90)
C
      GO TO (100,120),N
C
C     ----- HYDROGEN -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.4344800D+01
         S(1) = 0.7929900D-01
         E(2) = 0.6604900D+00
         S(2) = 0.4242200D+00
         E(3) = 0.1366900D+00
         S(3) = 0.1000000D+01
         ILAST = 3
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.1225200D+02
         S(1) = 0.2282200D-01
         E(2) = 0.1868700D+01
         S(2) = 0.1556400D+00
         E(3) = 0.4182100D+00
         S(3) = 0.4889800D+00
         E(4) = 0.1061000D+00
         S(4) = 0.1000000D+01
         E(5) = 0.1000000D+01
         P(5) = 0.1000000D+01
         ILAST = 5
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.7542300D+02
         S(1) = 0.2406500D-02
         E(2) = 0.1135000D+02
         S(2) = 0.1848700D-01
         E(3) = 0.2599300D+01
         S(3) = 0.8974200D-01
         E(4) = 0.7351300D+00
         S(4) = 0.2811100D+00
         E(5) = 0.2316700D+00
         S(5) = 0.1000000D+01
         E(6) = 0.7414700D-01
         S(6) = 0.1000000D+01
         E(7) = 0.1600000D+01
         P(7) = 0.1000000D+01
         E(8) = 0.4500000D+00
         P(8) = 0.1000000D+01
         E(9) = 0.1250000D+01
         D(9) = 0.1000000D+01
         ILAST = 9
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.7746900D+03
         S(1) = 0.1316300D-02
         E(2) = 0.1161600D+03
         S(2) = 0.1022600D-01
         E(3) = 0.2644900D+02
         S(3) = 0.5362900D-01
         E(4) = 0.7501500D+01
         S(4) = 0.2228500D+00
         E(5) = 0.2456800D+01
         S(5) = 0.7537400D+00
         E(6) = 0.8877400D+00
         S(6) = 0.1000000D+01
         E(7) = 0.3408500D+00
         S(7) = 0.1000000D+01
         E(8) = 0.1347700D+00
         S(8) = 0.1000000D+01
         E(9) = 0.5226300D-01
         S(9) = 0.1000000D+01
         E(10) = 0.6500000D+01
         P(10) = 0.1000000D+01
         E(11) = 0.1550000D+01
         P(11) = 0.1000000D+01
         E(12) = 0.5500000D+00
         P(12) = 0.1000000D+01
         E(13) = 0.2000000D+00
         P(13) = 0.1000000D+01
         E(14) = 0.1950000D+01
         D(14) = 0.1000000D+01
         E(15) = 0.6500000D+00
         D(15) = 0.1000000D+01
         E(16) = 0.2200000D+01
         F(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.3079700D+04
         S(1) = 0.2347300D-03
         E(2) = 0.4615200D+03
         S(2) = 0.1824500D-02
         E(3) = 0.1050600D+03
         S(3) = 0.9593300D-02
         E(4) = 0.2976400D+02
         S(4) = 0.4046100D-01
         E(5) = 0.9718300D+01
         S(5) = 0.1460700D+00
         E(6) = 0.3517900D+01
         S(6) = 0.1000000D+01
         E(7) = 0.1377000D+01
         S(7) = 0.1000000D+01
         E(8) = 0.5683100D+00
         S(8) = 0.1000000D+01
         E(9) = 0.2434100D+00
         S(9) = 0.1000000D+01
         E(10) = 0.1050500D+00
         S(10) = 0.1000000D+01
         E(11) = 0.4419800D-01
         S(11) = 0.1000000D+01
         E(12) = 0.3000000D+02
         P(12) = 0.1000000D+01
         E(13) = 0.6600000D+01
         P(13) = 0.1000000D+01
         E(14) = 0.2100000D+01
         P(14) = 0.1000000D+01
         E(15) = 0.9500000D+00
         P(15) = 0.1000000D+01
         E(16) = 0.4500000D+00
         P(16) = 0.1000000D+01
         E(17) = 0.1500000D+00
         P(17) = 0.1000000D+01
         E(18) = 0.2100000D+01
         D(18) = 0.1000000D+01
         E(19) = 0.7000000D+00
         D(19) = 0.1000000D+01
         E(20) = 0.3000000D+00
         D(20) = 0.1000000D+01
         E(21) = 0.2500000D+01
         F(21) = 0.1000000D+01
         E(22) = 0.9000000D+00
         F(22) = 0.1000000D+01
CFRJ     E(23) = 0.3200000D+01
CFRJ     G(23) = 0.1000000D+01
         ILAST = 22
      ENDIF
      RETURN
C
C     ----- HE -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1321000D+02
         S(1) = 0.4350600D-01
         E(2) = 0.1943400D+01
         S(2) = 0.2116600D+00
         E(3) = 0.3544300D+00
         S(3) = 0.1000000D+01
         ILAST = 3
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.3686500D+02
         S(1) = 0.1306200D-01
         E(2) = 0.5580200D+01
         S(2) = 0.8349100D-01
         E(3) = 0.1191700D+01
         S(3) = 0.2387400D+00
         E(4) = 0.2689200D+00
         S(4) = 0.1000000D+01
         E(5) = 0.1450000D+01
         P(5) = 0.1000000D+01
         ILAST = 5
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.2217700D+03
         S(1) = 0.1440900D-02
         E(2) = 0.3337500D+02
         S(2) = 0.1089400D-01
         E(3) = 0.7611400D+01
         S(3) = 0.5018900D-01
         E(4) = 0.2108900D+01
         S(4) = 0.1429000D+00
         E(5) = 0.6287800D+00
         S(5) = 0.1000000D+01
         E(6) = 0.1846900D+00
         S(6) = 0.1000000D+01
         E(7) = 0.2400000D+01
         P(7) = 0.1000000D+01
         E(8) = 0.6800000D+00
         P(8) = 0.1000000D+01
         E(9) = 0.1800000D+01
         D(9) = 0.1000000D+01
         ILAST = 9
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.2167400D+04
         S(1) = 0.8415300D-03
         E(2) = 0.3249900D+03
         S(2) = 0.6527400D-02
         E(3) = 0.7399400D+02
         S(3) = 0.3399500D-01
         E(4) = 0.2097500D+02
         S(4) = 0.1381100D+00
         E(5) = 0.6845200D+01
         S(5) = 0.4419500D+00
         E(6) = 0.2439400D+01
         S(6) = 0.1000000D+01
         E(7) = 0.9025100D+00
         S(7) = 0.1000000D+01
         E(8) = 0.3331300D+00
         S(8) = 0.1000000D+01
         E(9) = 0.1241300D+00
         S(9) = 0.1000000D+01
         E(10) = 0.1070000D+02
         P(10) = 0.1000000D+01
         E(11) = 0.2550000D+01
         P(11) = 0.1000000D+01
         E(12) = 0.9000000D+00
         P(12) = 0.1000000D+01
         E(13) = 0.3300000D+00
         P(13) = 0.1000000D+01
         E(14) = 0.3200000D+01
         D(14) = 0.1000000D+01
         E(15) = 0.1070000D+01
         D(15) = 0.1000000D+01
         E(16) = 0.3200000D+01
         F(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.8780200D+04
         S(1) = 0.1466400D-02
         E(2) = 0.1315600D+04
         S(2) = 0.1139500D-01
         E(3) = 0.2994600D+03
         S(3) = 0.5981900D-01
         E(4) = 0.8483300D+02
         S(4) = 0.2508900D+00
         E(5) = 0.2769100D+02
         S(5) = 0.8913500D+00
         E(6) = 0.1000800D+02
         S(6) = 0.1000000D+01
         E(7) = 0.3892400D+01
         S(7) = 0.1000000D+01
         E(8) = 0.1581900D+01
         S(8) = 0.1000000D+01
         E(9) = 0.6569800D+00
         S(9) = 0.1000000D+01
         E(10) = 0.2645900D+00
         S(10) = 0.1000000D+01
         E(11) = 0.1058500D+00
         S(11) = 0.1000000D+01
         E(12) = 0.4050000D+02
         P(12) = 0.1000000D+01
         E(13) = 0.8900000D+01
         P(13) = 0.1000000D+01
         E(14) = 0.2850000D+01
         P(14) = 0.1000000D+01
         E(15) = 0.1300000D+01
         P(15) = 0.1000000D+01
         E(16) = 0.6000000D+00
         P(16) = 0.1000000D+01
         E(17) = 0.2000000D+00
         P(17) = 0.1000000D+01
         E(18) = 0.3700000D+01
         D(18) = 0.1000000D+01
         E(19) = 0.1200000D+01
         D(19) = 0.1000000D+01
         E(20) = 0.5000000D+00
         D(20) = 0.1000000D+01
         E(21) = 0.4100000D+01
         F(21) = 0.1000000D+01
         E(22) = 0.1500000D+01
         F(22) = 0.1000000D+01
CFRJ     E(23) = 0.4650000D+01
CFRJ     G(23) = 0.1000000D+01
         ILAST = 22
      ENDIF
      RETURN
      END
C*MODULE BASPCN  *DECK PCN002
      SUBROUTINE PCN002(E,S,P,D,F,G,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90),G(90)
C
      NN = N-2
      GO TO (100,120,140,160,180,200,220,240),NN
C
C
C     ----- LI -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.9758500D+02
         S(1) = 0.2235800D-01
         E(2) = 0.1475500D+02
         S(2) = 0.1449900D+00
         E(3) = 0.3223300D+01
         S(3) = 0.3459400D+00
         E(4) = 0.1475500D+02
         S(4) = 0.5187500D-02
         E(5) = 0.3223300D+01
         S(5) = 0.1669800D+00
         E(6) = 0.7878900D+00
         S(6) = 0.7256600D+00
         E(7) = 0.5100900D-01
         S(7) = 0.1000000D+01
         E(8) = 0.3300000D+00
         P(8) = 0.1000000D+01
         ILAST = 8
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.2664300D+03
         S(1) = 0.6526800D-02
         E(2) = 0.4016000D+02
         S(2) = 0.4806500D-01
         E(3) = 0.9108200D+01
         S(3) = 0.2009500D+00
         E(4) = 0.2454300D+01
         S(4) = 0.4700700D+00
         E(5) = 0.6962600D+00
         S(5) = 0.4313000D+00
         E(6) = 0.4016000D+02
         S(6) = 0.1102200D-04
         E(7) = 0.9108200D+01
         S(7) = -.2684900D-02
         E(8) = 0.2454300D+01
         S(8) = -.1871100D-01
         E(9) = 0.6962600D+00
         S(9) = -.8894800D-01
         E(10) = 0.8372600D-01
         S(10) = 0.5183600D+00
         E(11) = 0.3082700D-01
         S(11) = 0.1000000D+01
         E(12) = 0.1620000D+01
         P(12) = 0.4165509D-01
         E(13) = 0.3200000D+00
         P(13) = 0.1104449D+00
         E(14) = 0.9000000D-01
         P(14) = 0.1000000D+01
         ILAST = 14
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1502500D+04
         S(1) = 0.7613700D-03
         E(2) = 0.2255100D+03
         S(2) = 0.5871200D-02
         E(3) = 0.5137500D+02
         S(3) = 0.2974300D-01
         E(4) = 0.1454700D+02
         S(4) = 0.1095900D+00
         E(5) = 0.4664500D+01
         S(5) = 0.2800000D+00
         E(6) = 0.1600800D+01
         S(6) = 0.4416300D+00
         E(7) = 0.5526200D+00
         S(7) = 0.2992200D+00
         E(8) = 0.2255100D+03
         S(8) = 0.2104500D-04
         E(9) = 0.5137500D+02
         S(9) = -.1217700D-03
         E(10) = 0.1454700D+02
         S(10) = -.1008800D-03
         E(11) = 0.4664500D+01
         S(11) = -.8442600D-02
         E(12) = 0.1600800D+01
         S(12) = -.2439400D-01
         E(13) = 0.5526200D+00
         S(13) = -.9071800D-01
         E(14) = 0.1036600D+00
         S(14) = 0.3065900D+00
         E(15) = 0.4744200D-01
         S(15) = 0.1000000D+01
         E(16) = 0.1979000D-01
         S(16) = 0.1000000D+01
         E(17) = 0.5300000D+01
         P(17) = 0.5545030D-02
         E(18) = 0.1150000D+01
         P(18) = 0.5509116D-01
         E(19) = 0.2900000D+00
         P(19) = 0.8756150D-01
         E(20) = 0.9000000D-01
         P(20) = 0.1000000D+01
         E(21) = 0.2600000D+00
         D(21) = 0.1000000D+01
         ILAST = 21
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1301800D+05
         S(1) = 0.5144800D-04
         E(2) = 0.1950100D+04
         S(2) = 0.3971600D-03
         E(3) = 0.4438400D+03
         S(3) = 0.2101400D-02
         E(4) = 0.1257600D+03
         S(4) = 0.8643000D-02
         E(5) = 0.4109400D+02
         S(5) = 0.3057700D-01
         E(6) = 0.1488200D+02
         S(6) = 0.8539700D-01
         E(7) = 0.5807500D+01
         S(7) = 0.1941500D+00
         E(8) = 0.2389100D+01
         S(8) = 0.2859200D+00
         E(9) = 0.1018400D+01
         S(9) = 0.3053000D+00
         E(10) = 0.1950100D+04
         S(10) = 0.1530400D-05
         E(11) = 0.4438400D+03
         S(11) = -.3103600D-05
         E(12) = 0.1257600D+03
         S(12) = 0.5702600D-04
         E(13) = 0.4109400D+02
         S(13) = -.3847100D-04
         E(14) = 0.1488200D+02
         S(14) = 0.1431600D-02
         E(15) = 0.5807500D+01
         S(15) = 0.1649700D-02
         E(16) = 0.2389100D+01
         S(16) = 0.2368500D-01
         E(17) = 0.1018400D+01
         S(17) = 0.2024700D-01
         E(18) = 0.4440400D+00
         S(18) = 0.1006400D+00
         E(19) = 0.1940500D+00
         S(19) = 0.1000000D+01
         E(20) = 0.8403900D-01
         S(20) = 0.1000000D+01
         E(21) = 0.3792100D-01
         S(21) = 0.1000000D+01
         E(22) = 0.1664000D-01
         S(22) = 0.1000000D+01
         E(23) = 0.1540000D+02
         P(23) = 0.1029530D-02
         E(24) = 0.3590000D+01
         P(24) = 0.8332179D-02
         E(25) = 0.1090000D+01
         P(25) = 0.2929894D-01
         E(26) = 0.3500000D+00
         P(26) = 0.1195477D+00
         E(27) = 0.1300000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.5000000D-01
         P(28) = 0.1000000D+01
         E(29) = 0.4800000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.1500000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.3500000D+00
         F(31) = 0.1000000D+01
         ILAST = 31
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.7068100D+05
         S(1) = 0.5438300D-05
         E(2) = 0.1359400D+05
         S(2) = 0.3327700D-04
         E(3) = 0.3100400D+04
         S(3) = 0.1917500D-03
         E(4) = 0.8264600D+03
         S(4) = 0.8968600D-03
         E(5) = 0.2537600D+03
         S(5) = 0.3447700D-02
         E(6) = 0.8845100D+02
         S(6) = 0.1143500D-01
         E(7) = 0.3449300D+02
         S(7) = 0.3095700D-01
         E(8) = 0.1483100D+02
         S(8) = 0.7323700D-01
         E(9) = 0.6929900D+01
         S(9) = 0.1266800D+00
         E(10) = 0.3467800D+01
         S(10) = 0.2142300D+00
         E(11) = 0.1831600D+01
         S(11) = 0.1785700D+00
         E(12) = 0.1006300D+01
         S(12) = 0.2849200D+00
         E(13) = 0.1359400D+05
         S(13) = -.1138200D-06
         E(14) = 0.3100400D+04
         S(14) = 0.1712300D-06
         E(15) = 0.8264600D+03
         S(15) = -.3574700D-05
         E(16) = 0.2537600D+03
         S(16) = 0.8594000D-05
         E(17) = 0.8845100D+02
         S(17) = -.5556700D-04
         E(18) = 0.3449300D+02
         S(18) = 0.2821300D-03
         E(19) = 0.1483100D+02
         S(19) = -.4559400D-03
         E(20) = 0.6929900D+01
         S(20) = 0.5249100D-02
         E(21) = 0.3467800D+01
         S(21) = -.4870500D-02
         E(22) = 0.1831600D+01
         S(22) = 0.4683100D-01
         E(23) = 0.1006300D+01
         S(23) = -.3228200D-01
         E(24) = 0.5667800D+00
         S(24) = 0.1029600D+00
         E(25) = 0.3225400D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1827700D+00
         S(26) = 0.1000000D+01
         E(27) = 0.1016400D+00
         S(27) = 0.1000000D+01
         E(28) = 0.5466600D-01
         S(28) = 0.1000000D+01
         E(29) = 0.2802500D-01
         S(29) = 0.1000000D+01
         E(30) = 0.1349700D-01
         S(30) = 0.1000000D+01
         E(31) = 0.2850000D+02
         P(31) = 0.3675419D-03
         E(32) = 0.6640000D+01
         P(32) = 0.3223593D-02
         E(33) = 0.1920000D+01
         P(33) = 0.1432119D-01
         E(34) = 0.7700000D+00
         P(34) = 0.3648141D-01
         E(35) = 0.3200000D+00
         P(35) = 0.7577460D-01
         E(36) = 0.1500000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.6600000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.2500000D-01
         P(38) = 0.1000000D+01
         E(39) = 0.1750000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.3000000D+00
         D(40) = 0.1000000D+01
         E(41) = 0.1100000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.5000000D+00
         F(42) = 0.1000000D+01
         E(43) = 0.2000000D+00
         F(43) = 0.1000000D+01
CFRJ     E(44) = 0.5500000D+00
CFRJ     G(44) = 0.1000000D+01
         ILAST = 43
      ENDIF
      RETURN
C
C     ----- BE -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1875400D+03
         S(1) = 0.1037300D-01
         E(2) = 0.2834500D+02
         S(2) = 0.7200700D-01
         E(3) = 0.6261400D+01
         S(3) = 0.1308500D+00
         E(4) = 0.2834500D+02
         S(4) = -.2050700D-02
         E(5) = 0.6261400D+01
         S(5) = 0.1131200D+00
         E(6) = 0.1583700D+01
         S(6) = 0.3080000D+00
         E(7) = 0.1085800D+00
         S(7) = 0.1000000D+01
         E(8) = 0.4300000D+00
         P(8) = 0.1000000D+01
         ILAST = 8
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.5149000D+03
         S(1) = 0.3003100D-02
         E(2) = 0.7755800D+02
         S(2) = 0.2224300D-01
         E(3) = 0.1760900D+02
         S(3) = 0.9543400D-01
         E(4) = 0.4808000D+01
         S(4) = 0.2322800D+00
         E(5) = 0.1408500D+01
         S(5) = 0.2210400D+00
         E(6) = 0.7755800D+02
         S(6) = -.9600000D-04
         E(7) = 0.1760900D+02
         S(7) = -.1217900D-02
         E(8) = 0.4808000D+01
         S(8) = -.1369900D-01
         E(9) = 0.1408500D+01
         S(9) = -.4215900D-01
         E(10) = 0.1906900D+00
         S(10) = 0.2618500D+00
         E(11) = 0.6112500D-01
         S(11) = 0.1000000D+01
         E(12) = 0.3420000D+01
         P(12) = 0.4935192D-01
         E(13) = 0.6800000D+00
         P(13) = 0.1898207D+00
         E(14) = 0.1900000D+00
         P(14) = 0.1000000D+01
         ILAST = 14
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.3067300D+04
         S(1) = 0.3268300D-03
         E(2) = 0.4602400D+03
         S(2) = 0.2523400D-02
         E(3) = 0.1048000D+03
         S(3) = 0.1286700D-01
         E(4) = 0.2965700D+02
         S(4) = 0.4860700D-01
         E(5) = 0.9536500D+01
         S(5) = 0.1311100D+00
         E(6) = 0.3310600D+01
         S(6) = 0.2212400D+00
         E(7) = 0.1180400D+01
         S(7) = 0.1634500D+00
         E(8) = 0.4602400D+03
         S(8) = 0.1389400D-05
         E(9) = 0.1048000D+03
         S(9) = -.3643100D-04
         E(10) = 0.2965700D+02
         S(10) = -.3319600D-03
         E(11) = 0.9536500D+01
         S(11) = -.3661800D-02
         E(12) = 0.3310600D+01
         S(12) = -.1754000D-01
         E(13) = 0.1180400D+01
         S(13) = -.4090500D-01
         E(14) = 0.2687100D+00
         S(14) = 0.1135700D+00
         E(15) = 0.1177400D+00
         S(15) = 0.1000000D+01
         E(16) = 0.4468500D-01
         S(16) = 0.1000000D+01
         E(17) = 0.8240000D+01
         P(17) = 0.1114715D-01
         E(18) = 0.1790000D+01
         P(18) = 0.8054942D-01
         E(19) = 0.4500000D+00
         P(19) = 0.2557440D+00
         E(20) = 0.1400000D+00
         P(20) = 0.1000000D+01
         E(21) = 0.3900000D+00
         D(21) = 0.1000000D+01
         ILAST = 21
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.2667300D+05
         S(1) = 0.2197500D-04
         E(2) = 0.3996300D+04
         S(2) = 0.1695400D-03
         E(3) = 0.9096700D+03
         S(3) = 0.8975700D-03
         E(4) = 0.2577700D+03
         S(4) = 0.3693800D-02
         E(5) = 0.8423400D+02
         S(5) = 0.1314100D-01
         E(6) = 0.3054500D+02
         S(6) = 0.3717900D-01
         E(7) = 0.1202000D+02
         S(7) = 0.8599900D-01
         E(8) = 0.5049500D+01
         S(8) = 0.1304800D+00
         E(9) = 0.2171900D+01
         S(9) = 0.1387100D+00
         E(10) = 0.3996300D+04
         S(10) = 0.4930500D-05
         E(11) = 0.9096700D+03
         S(11) = -.9133500D-05
         E(12) = 0.2577700D+03
         S(12) = 0.1944000D-03
         E(13) = 0.8423400D+02
         S(13) = 0.9562200D-05
         E(14) = 0.3054500D+02
         S(14) = 0.5702800D-02
         E(15) = 0.1202000D+02
         S(15) = 0.1234400D-01
         E(16) = 0.5049500D+01
         S(16) = 0.1040300D+00
         E(17) = 0.2171900D+01
         S(17) = 0.1888200D+00
         E(18) = 0.9341000D+00
         S(18) = 0.4211100D+00
         E(19) = 0.3891800D+00
         S(19) = 0.1000000D+01
         E(20) = 0.1740200D+00
         S(20) = 0.1000000D+01
         E(21) = 0.7602800D-01
         S(21) = 0.1000000D+01
         E(22) = 0.3226500D-01
         S(22) = 0.1000000D+01
         E(23) = 0.2780000D+02
         P(23) = 0.1469925D-02
         E(24) = 0.6460000D+01
         P(24) = 0.1290301D-01
         E(25) = 0.1960000D+01
         P(25) = 0.4633674D-01
         E(26) = 0.6300000D+00
         P(26) = 0.1836301D+00
         E(27) = 0.2400000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.9000000D-01
         P(28) = 0.1000000D+01
         E(29) = 0.8000000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.2500000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.5500000D+00
         F(31) = 0.1000000D+01
         ILAST = 31
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.1393300D+06
         S(1) = 0.2438200D-05
         E(2) = 0.2677400D+05
         S(2) = 0.1493800D-04
         E(3) = 0.6112000D+04
         S(3) = 0.8580100D-04
         E(4) = 0.1632900D+04
         S(4) = 0.4002200D-03
         E(5) = 0.5030300D+03
         S(5) = 0.1528900D-02
         E(6) = 0.1760300D+03
         S(6) = 0.5058600D-02
         E(7) = 0.6893900D+02
         S(7) = 0.1364400D-01
         E(8) = 0.2976800D+02
         S(8) = 0.3273000D-01
         E(9) = 0.1396300D+02
         S(9) = 0.5754600D-01
         E(10) = 0.7009000D+01
         S(10) = 0.1006700D+00
         E(11) = 0.3709400D+01
         S(11) = 0.8634800D-01
         E(12) = 0.2039200D+01
         S(12) = 0.1265300D+00
         E(13) = 0.2677400D+05
         S(13) = -.3968700D-06
         E(14) = 0.6112000D+04
         S(14) = 0.6012100D-06
         E(15) = 0.1632900D+04
         S(15) = -.1224100D-04
         E(16) = 0.5030300D+03
         S(16) = 0.3235200D-04
         E(17) = 0.1760300D+03
         S(17) = -.1700600D-03
         E(18) = 0.6893900D+02
         S(18) = 0.1136200D-02
         E(19) = 0.2976800D+02
         S(19) = -.6419200D-03
         E(20) = 0.1396300D+02
         S(20) = 0.2159000D-01
         E(21) = 0.7009000D+01
         S(21) = 0.4256100D-03
         E(22) = 0.3709400D+01
         S(22) = 0.1814900D+00
         E(23) = 0.2039200D+01
         S(23) = 0.1235200D-01
         E(24) = 0.1147200D+01
         S(24) = 0.3847500D+00
         E(25) = 0.6507000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.3665900D+00
         S(26) = 0.1000000D+01
         E(27) = 0.2021100D+00
         S(27) = 0.1000000D+01
         E(28) = 0.1074200D+00
         S(28) = 0.1000000D+01
         E(29) = 0.5423100D-01
         S(29) = 0.1000000D+01
         E(30) = 0.2561900D-01
         S(30) = 0.1000000D+01
         E(31) = 0.4570000D+02
         P(31) = 0.6587706D-03
         E(32) = 0.1060000D+02
         P(32) = 0.5733819D-02
         E(33) = 0.3080000D+01
         P(33) = 0.2784590D-01
         E(34) = 0.1230000D+01
         P(34) = 0.5643487D-01
         E(35) = 0.5100000D+00
         P(35) = 0.1761667D+00
         E(36) = 0.2300000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.1060000D+00
         P(37) = 0.1000000D+01
         E(38) = 0.4000000D-01
         P(38) = 0.1000000D+01
         E(39) = 0.3350000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.5700000D+00
         D(40) = 0.1000000D+01
         E(41) = 0.2100000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.7500000D+00
         F(42) = 0.1000000D+01
         E(43) = 0.3000000D+00
         F(43) = 0.1000000D+01
CFRJ     E(44) = 0.8000000D+00
CFRJ     G(44) = 0.1000000D+01
         ILAST = 43
      ENDIF
      RETURN
C
C     ----- B  -----
C
  140 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.3037300D+03
         S(1) = 0.2012100D-01
         E(2) = 0.4589400D+02
         S(2) = 0.1441000D+00
         E(3) = 0.1020500D+02
         S(3) = 0.2196100D+00
         E(4) = 0.4589400D+02
         S(4) = -.7381800D-02
         E(5) = 0.1020500D+02
         S(5) = 0.2615300D+00
         E(6) = 0.2634800D+01
         S(6) = 0.5936300D+00
         E(7) = 0.1938000D+00
         S(7) = 0.1000000D+01
         E(8) = 0.2790400D+01
         P(8) = 0.1098600D+00
         E(9) = 0.5419500D+00
         P(9) = 0.4684600D+00
         E(10) = 0.1187600D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.8439800D+03
         S(1) = 0.5736100D-02
         E(2) = 0.1270800D+03
         S(2) = 0.4262500D-01
         E(3) = 0.2886200D+02
         S(3) = 0.1857600D+00
         E(4) = 0.7929700D+01
         S(4) = 0.4625800D+00
         E(5) = 0.2363700D+01
         S(5) = 0.4464600D+00
         E(6) = 0.1270800D+03
         S(6) = -.2330300D-03
         E(7) = 0.2886200D+02
         S(7) = -.2547900D-02
         E(8) = 0.7929700D+01
         S(8) = -.3092800D-01
         E(9) = 0.2363700D+01
         S(9) = -.8695600D-01
         E(10) = 0.3467000D+00
         S(10) = 0.5306200D+00
         E(11) = 0.1059500D+00
         S(11) = 0.1000000D+01
         E(12) = 0.5812800D+01
         P(12) = 0.4308400D-01
         E(13) = 0.1200200D+01
         P(13) = 0.2229500D+00
         E(14) = 0.3268600D+00
         P(14) = 0.5097700D+00
         E(15) = 0.8626400D-01
         P(15) = 0.1000000D+01
         E(16) = 0.7000000D+00
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.5220400D+04
         S(1) = 0.5953000D-03
         E(2) = 0.7831900D+03
         S(2) = 0.4599100D-02
         E(3) = 0.1783100D+03
         S(3) = 0.2353000D-01
         E(4) = 0.5046900D+02
         S(4) = 0.9001500D-01
         E(5) = 0.1628500D+02
         S(5) = 0.2498800D+00
         E(6) = 0.5688500D+01
         S(6) = 0.4423700D+00
         E(7) = 0.2049500D+01
         S(7) = 0.3453600D+00
         E(8) = 0.7831900D+03
         S(8) = 0.1658800D-05
         E(9) = 0.1783100D+03
         S(9) = -.6852100D-04
         E(10) = 0.5046900D+02
         S(10) = -.6875100D-03
         E(11) = 0.1628500D+02
         S(11) = -.7369000D-02
         E(12) = 0.5688500D+01
         S(12) = -.3709800D-01
         E(13) = 0.2049500D+01
         S(13) = -.8698600D-01
         E(14) = 0.5147300D+00
         S(14) = 0.2136100D+00
         E(15) = 0.2155600D+00
         S(15) = 0.1000000D+01
         E(16) = 0.7745700D-01
         S(16) = 0.1000000D+01
         E(17) = 0.2181000D+02
         P(17) = 0.5884100D-02
         E(18) = 0.4893000D+01
         P(18) = 0.4179800D-01
         E(19) = 0.1397600D+01
         P(19) = 0.1556700D+00
         E(20) = 0.4774700D+00
         P(20) = 0.3599700D+00
         E(21) = 0.1641900D+00
         P(21) = 0.1000000D+01
         E(22) = 0.5400400D-01
         P(22) = 0.1000000D+01
         E(23) = 0.1050000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.3500000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.8700000D+00
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.5741500D+05
         S(1) = 0.2983800D-04
         E(2) = 0.8601500D+04
         S(2) = 0.2304400D-03
         E(3) = 0.1957800D+04
         S(3) = 0.1219500D-02
         E(4) = 0.5546100D+03
         S(4) = 0.5046300D-02
         E(5) = 0.1810500D+03
         S(5) = 0.1812300D-01
         E(6) = 0.6549100D+02
         S(6) = 0.5331800D-01
         E(7) = 0.2559900D+02
         S(7) = 0.1327700D+00
         E(8) = 0.1053200D+02
         S(8) = 0.2306900D+00
         E(9) = 0.4446500D+01
         S(9) = 0.2554500D+00
         E(10) = 0.8601500D+04
         S(10) = 0.4275100D-05
         E(11) = 0.1957800D+04
         S(11) = -.7073700D-05
         E(12) = 0.5546100D+03
         S(12) = 0.1766900D-03
         E(13) = 0.1810500D+03
         S(13) = 0.1353800D-03
         E(14) = 0.6549100D+02
         S(14) = 0.6012300D-02
         E(15) = 0.2559900D+02
         S(15) = 0.1984700D-01
         E(16) = 0.1053200D+02
         S(16) = 0.1446700D+00
         E(17) = 0.4446500D+01
         S(17) = 0.3936000D+00
         E(18) = 0.1883200D+01
         S(18) = 0.8069800D+00
         E(19) = 0.6983100D+00
         S(19) = 0.1000000D+01
         E(20) = 0.3431000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.1427600D+00
         S(21) = 0.1000000D+01
         E(22) = 0.5815700D-01
         S(22) = 0.1000000D+01
         E(23) = 0.9011100D+02
         P(23) = 0.5581700D-03
         E(24) = 0.2116500D+02
         P(24) = 0.4552400D-02
         E(25) = 0.6561800D+01
         P(25) = 0.2231300D-01
         E(26) = 0.2564600D+01
         P(26) = 0.5947100D-01
         E(27) = 0.1051000D+01
         P(27) = 0.1625600D+00
         E(28) = 0.4519300D+00
         P(28) = 0.1000000D+01
         E(29) = 0.1946800D+00
         P(29) = 0.1000000D+01
         E(30) = 0.8321200D-01
         P(30) = 0.1000000D+01
         E(31) = 0.3329700D-01
         P(31) = 0.1000000D+01
         E(32) = 0.4000000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.1050000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.4000000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.1500000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.1200000D+01
         F(36) = 0.1000000D+01
         E(37) = 0.5200000D+00
         F(37) = 0.1000000D+01
         E(38) = 0.1300000D+01
         G(38) = 0.1000000D+01
         ILAST = 38
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.7425000D+06
         S(1) = 0.1218800D-05
         E(2) = 0.1109300D+06
         S(2) = 0.9435300D-05
         E(3) = 0.2520300D+05
         S(3) = 0.5028100D-04
         E(4) = 0.7129300D+04
         S(4) = 0.2096200D-03
         E(5) = 0.2324700D+04
         S(5) = 0.7773900D-03
         E(6) = 0.8390500D+03
         S(6) = 0.2471900D-02
         E(7) = 0.3277900D+03
         S(7) = 0.7466500D-02
         E(8) = 0.1367200D+03
         S(8) = 0.1909500D-01
         E(9) = 0.6029400D+02
         S(9) = 0.4670600D-01
         E(10) = 0.2773100D+02
         S(10) = 0.8501500D-01
         E(11) = 0.1299200D+02
         S(11) = 0.1429700D+00
         E(12) = 0.7129300D+04
         S(12) = 0.2311000D-05
         E(13) = 0.2324700D+04
         S(13) = -.3660800D-05
         E(14) = 0.8390500D+03
         S(14) = 0.4948500D-04
         E(15) = 0.3277900D+03
         S(15) = 0.1942800D-04
         E(16) = 0.1367200D+03
         S(16) = 0.1102700D-02
         E(17) = 0.6029400D+02
         S(17) = 0.2683000D-02
         E(18) = 0.2773100D+02
         S(18) = 0.2218600D-01
         E(19) = 0.1299200D+02
         S(19) = 0.6084500D-01
         E(20) = 0.6255100D+01
         S(20) = 0.2811400D+00
         E(21) = 0.3147200D+01
         S(21) = 0.1000000D+01
         E(22) = 0.1562700D+01
         S(22) = 0.1000000D+01
         E(23) = 0.7406600D+00
         S(23) = 0.1000000D+01
         E(24) = 0.3129000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.1314200D+00
         S(25) = 0.1000000D+01
         E(26) = 0.5470700D-01
         S(26) = 0.1000000D+01
         E(27) = 0.2278400D+03
         P(27) = 0.1124300D-02
         E(28) = 0.5392200D+02
         P(28) = 0.9739300D-02
         E(29) = 0.1704800D+02
         P(29) = 0.5453600D-01
         E(30) = 0.6002000D+01
         P(30) = 0.2317100D+00
         E(31) = 0.2606600D+01
         P(31) = 0.4993100D+00
         E(32) = 0.1196200D+01
         P(32) = 0.1000000D+01
         E(33) = 0.5696700D+00
         P(33) = 0.1000000D+01
         E(34) = 0.2737700D+00
         P(34) = 0.1000000D+01
         E(35) = 0.1288000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.5965300D-01
         P(36) = 0.1000000D+01
         E(37) = 0.2619000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.5300000D+01
         D(38) = 0.1000000D+01
         E(39) = 0.1900000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.7500000D+00
         D(40) = 0.1000000D+01
         E(41) = 0.3500000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.1600000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.6000000D-01
         D(43) = 0.1000000D+01
         E(44) = 0.1900000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.8000000D+00
         F(45) = 0.1000000D+01
         E(46) = 0.3500000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.1650000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.7000000D+00
         G(48) = 0.1000000D+01
CFRJ     E(49) = 0.1750000D+01
CFRJ     H(49) = 0.1000000D+01
         ILAST = 48
      ENDIF
      RETURN
C
C     ----- C  -----
C
  160 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.4465100D+03
         S(1) = 0.1978800D-01
         E(2) = 0.6746200D+02
         S(2) = 0.1453400D+00
         E(3) = 0.1506700D+02
         S(3) = 0.1852900D+00
         E(4) = 0.6746200D+02
         S(4) = -.9991000D-02
         E(5) = 0.1506700D+02
         S(5) = 0.2851900D+00
         E(6) = 0.3938800D+01
         S(6) = 0.5668700D+00
         E(7) = 0.2999100D+00
         S(7) = 0.1000000D+01
         E(8) = 0.4367700D+01
         P(8) = 0.1167100D+00
         E(9) = 0.8698200D+00
         P(9) = 0.4755800D+00
         E(10) = 0.1889300D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.1252600D+04
         S(1) = 0.5573600D-02
         E(2) = 0.1885700D+03
         S(2) = 0.4149600D-01
         E(3) = 0.4283900D+02
         S(3) = 0.1826300D+00
         E(4) = 0.1181800D+02
         S(4) = 0.4612900D+00
         E(5) = 0.3556700D+01
         S(5) = 0.4493100D+00
         E(6) = 0.1885700D+03
         S(6) = -.2744000D-03
         E(7) = 0.4283900D+02
         S(7) = -.2558300D-02
         E(8) = 0.1181800D+02
         S(8) = -.3337500D-01
         E(9) = 0.3556700D+01
         S(9) = -.8730500D-01
         E(10) = 0.5425800D+00
         S(10) = 0.5341500D+00
         E(11) = 0.1605800D+00
         S(11) = 0.1000000D+01
         E(12) = 0.9142600D+01
         P(12) = 0.4449900D-01
         E(13) = 0.1929800D+01
         P(13) = 0.2310800D+00
         E(14) = 0.5252200D+00
         P(14) = 0.5122700D+00
         E(15) = 0.1360800D+00
         P(15) = 0.1000000D+01
         E(16) = 0.8000000D+00
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.7857100D+04
         S(1) = 0.5682500D-03
         E(2) = 0.1178700D+04
         S(2) = 0.4391500D-02
         E(3) = 0.2683200D+03
         S(3) = 0.2250400D-01
         E(4) = 0.7594800D+02
         S(4) = 0.8665300D-01
         E(5) = 0.2455900D+02
         S(5) = 0.2440500D+00
         E(6) = 0.8621200D+01
         S(6) = 0.4414800D+00
         E(7) = 0.3127800D+01
         S(7) = 0.3533200D+00
         E(8) = 0.1178700D+04
         S(8) = -.5949200D-06
         E(9) = 0.2683200D+03
         S(9) = -.6274800D-04
         E(10) = 0.7594800D+02
         S(10) = -.7577300D-03
         E(11) = 0.2455900D+02
         S(11) = -.7330800D-02
         E(12) = 0.8621200D+01
         S(12) = -.3893200D-01
         E(13) = 0.3127800D+01
         S(13) = -.8890800D-01
         E(14) = 0.8220200D+00
         S(14) = 0.2168900D+00
         E(15) = 0.3301700D+00
         S(15) = 0.1000000D+01
         E(16) = 0.1146300D+00
         S(16) = 0.1000000D+01
         E(17) = 0.3377500D+02
         P(17) = 0.6029400D-02
         E(18) = 0.7676600D+01
         P(18) = 0.4322800D-01
         E(19) = 0.2235700D+01
         P(19) = 0.1630100D+00
         E(20) = 0.7644700D+00
         P(20) = 0.3650400D+00
         E(21) = 0.2623200D+00
         P(21) = 0.1000000D+01
         E(22) = 0.8463800D-01
         P(22) = 0.1000000D+01
         E(23) = 0.1400000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.4500000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.9500000D+00
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.8714100D+05
         S(1) = 0.2818300D-04
         E(2) = 0.1305200D+05
         S(2) = 0.2181900D-03
         E(3) = 0.2970600D+04
         S(3) = 0.1151100D-02
         E(4) = 0.8414600D+03
         S(4) = 0.4785900D-02
         E(5) = 0.2745900D+03
         S(5) = 0.1713400D-01
         E(6) = 0.9921500D+02
         S(6) = 0.5112000D-01
         E(7) = 0.3869400D+02
         S(7) = 0.1280500D+00
         E(8) = 0.1591100D+02
         S(8) = 0.2277300D+00
         E(9) = 0.6766800D+01
         S(9) = 0.2475800D+00
         E(10) = 0.1305200D+05
         S(10) = 0.2593000D-05
         E(11) = 0.2970600D+04
         S(11) = -.3090700D-05
         E(12) = 0.8414600D+03
         S(12) = 0.1224700D-03
         E(13) = 0.2745900D+03
         S(13) = 0.2549400D-03
         E(14) = 0.9921500D+02
         S(14) = 0.5125400D-02
         E(15) = 0.3869400D+02
         S(15) = 0.2195500D-01
         E(16) = 0.1591100D+02
         S(16) = 0.1411200D+00
         E(17) = 0.6766800D+01
         S(17) = 0.4130300D+00
         E(18) = 0.2898400D+01
         S(18) = 0.8271400D+00
         E(19) = 0.1124600D+01
         S(19) = 0.1000000D+01
         E(20) = 0.5144600D+00
         S(20) = 0.1000000D+01
         E(21) = 0.2117600D+00
         S(21) = 0.1000000D+01
         E(22) = 0.8501700D-01
         S(22) = 0.1000000D+01
         E(23) = 0.1482400D+03
         P(23) = 0.5075600D-03
         E(24) = 0.3491200D+02
         P(24) = 0.4212600D-02
         E(25) = 0.1089400D+02
         P(25) = 0.2133500D-01
         E(26) = 0.4193400D+01
         P(26) = 0.6232900D-01
         E(27) = 0.1713400D+01
         P(27) = 0.1664200D+00
         E(28) = 0.7356600D+00
         P(28) = 0.1000000D+01
         E(29) = 0.3163700D+00
         P(29) = 0.1000000D+01
         E(30) = 0.1324200D+00
         P(30) = 0.1000000D+01
         E(31) = 0.5190100D-01
         P(31) = 0.1000000D+01
         E(32) = 0.5200000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.1350000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.5200000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.2000000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.1500000D+01
         F(36) = 0.1000000D+01
         E(37) = 0.6500000D+00
         F(37) = 0.1000000D+01
         E(38) = 0.1400000D+01
         G(38) = 0.1000000D+01
         ILAST = 38
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.5277800D+06
         S(1) = 0.2966200D-05
         E(2) = 0.7910500D+05
         S(2) = 0.2315500D-04
         E(3) = 0.1800600D+05
         S(3) = 0.1208900D-03
         E(4) = 0.5100800D+04
         S(4) = 0.5149000D-03
         E(5) = 0.1664700D+04
         S(5) = 0.1845800D-02
         E(6) = 0.6016600D+03
         S(6) = 0.6028600D-02
         E(7) = 0.2354000D+03
         S(7) = 0.1702300D-01
         E(8) = 0.9826300D+02
         S(8) = 0.4407700D-01
         E(9) = 0.4326900D+02
         S(9) = 0.8906100D-01
         E(10) = 0.1985800D+02
         S(10) = 0.1481700D+00
         E(11) = 0.9569200D+01
         S(11) = 0.6143600D-01
         E(12) = 0.1800600D+05
         S(12) = 0.3566300D-06
         E(13) = 0.5100800D+04
         S(13) = -.3587700D-05
         E(14) = 0.1664700D+04
         S(14) = 0.1808600D-04
         E(15) = 0.6016600D+03
         S(15) = 0.1246100D-05
         E(16) = 0.2354000D+03
         S(16) = 0.7107500D-03
         E(17) = 0.9826300D+02
         S(17) = 0.2534600D-02
         E(18) = 0.4326900D+02
         S(18) = 0.1993400D-01
         E(19) = 0.1985800D+02
         S(19) = 0.6504700D-01
         E(20) = 0.9569200D+01
         S(20) = 0.2700000D+00
         E(21) = 0.4937300D+01
         S(21) = 0.3285400D+00
         E(22) = 0.2668700D+01
         S(22) = 0.1000000D+01
         E(23) = 0.1467400D+01
         S(23) = 0.1000000D+01
         E(24) = 0.6386300D+00
         S(24) = 0.1000000D+01
         E(25) = 0.3024000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1411600D+00
         S(26) = 0.1000000D+01
         E(27) = 0.6374900D-01
         S(27) = 0.1000000D+01
         E(28) = 0.3822100D+03
         P(28) = 0.9848400D-03
         E(29) = 0.9048900D+02
         P(29) = 0.8584700D-02
         E(30) = 0.2887100D+02
         P(30) = 0.4827200D-01
         E(31) = 0.1038500D+02
         P(31) = 0.2045400D+00
         E(32) = 0.4497200D+01
         P(32) = 0.4986700D+00
         E(33) = 0.2027400D+01
         P(33) = 0.1000000D+01
         E(34) = 0.9515400D+00
         P(34) = 0.1000000D+01
         E(35) = 0.4481500D+00
         P(35) = 0.1000000D+01
         E(36) = 0.2072100D+00
         P(36) = 0.1000000D+01
         E(37) = 0.9487000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.4084300D-01
         P(38) = 0.1000000D+01
         E(39) = 0.8400000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.3000000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.1200000D+01
         D(41) = 0.1000000D+01
         E(42) = 0.5500000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.2500000D+00
         D(43) = 0.1000000D+01
         E(44) = 0.1000000D+00
         D(44) = 0.1000000D+01
         E(45) = 0.2100000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.9000000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.4000000D+00
         F(47) = 0.1000000D+01
         E(48) = 0.2100000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.9000000D+00
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.1850000D+01
CFRJ     H(50) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- N -----
C
  180 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.6158500D+03
         S(1) = 0.1958800D-01
         E(2) = 0.9304400D+02
         S(2) = 0.1469500D+00
         E(3) = 0.2084800D+02
         S(3) = 0.1556000D+00
         E(4) = 0.9304400D+02
         S(4) = -.1205900D-01
         E(5) = 0.2084800D+02
         S(5) = 0.3019900D+00
         E(6) = 0.5495900D+01
         S(6) = 0.5409000D+00
         E(7) = 0.4262400D+00
         S(7) = 0.1000000D+01
         E(8) = 0.6268000D+01
         P(8) = 0.1213400D+00
         E(9) = 0.1269000D+01
         P(9) = 0.4801300D+00
         E(10) = 0.2739000D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.1742200D+04
         S(1) = 0.5460300D-02
         E(2) = 0.2622100D+03
         S(2) = 0.4070600D-01
         E(3) = 0.5958500D+02
         S(3) = 0.1803800D+00
         E(4) = 0.1648900D+02
         S(4) = 0.4600900D+00
         E(5) = 0.4994500D+01
         S(5) = 0.4517300D+00
         E(6) = 0.2622100D+03
         S(6) = -.3010400D-03
         E(7) = 0.5958500D+02
         S(7) = -.2551100D-02
         E(8) = 0.1648900D+02
         S(8) = -.3490000D-01
         E(9) = 0.4994500D+01
         S(9) = -.8742900D-01
         E(10) = 0.7867300D+00
         S(10) = 0.5266000D+00
         E(11) = 0.2283700D+00
         S(11) = 0.1000000D+01
         E(12) = 0.1313200D+02
         P(12) = 0.4551500D-01
         E(13) = 0.2810800D+01
         P(13) = 0.2374000D+00
         E(14) = 0.7635100D+00
         P(14) = 0.5139200D+00
         E(15) = 0.1956000D+00
         P(15) = 0.1000000D+01
         E(16) = 0.9000000D+00
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1110100D+05
         S(1) = 0.5457000D-03
         E(2) = 0.1665300D+04
         S(2) = 0.4218100D-02
         E(3) = 0.3790800D+03
         S(3) = 0.2164500D-01
         E(4) = 0.1073000D+03
         S(4) = 0.8377600D-01
         E(5) = 0.3474700D+02
         S(5) = 0.2388100D+00
         E(6) = 0.1224900D+02
         S(6) = 0.4399400D+00
         E(7) = 0.4474300D+01
         S(7) = 0.3636400D+00
         E(8) = 0.1665300D+04
         S(8) = -.1500600D-05
         E(9) = 0.3790800D+03
         S(9) = -.5875300D-04
         E(10) = 0.1073000D+03
         S(10) = -.7745300D-03
         E(11) = 0.3474700D+02
         S(11) = -.7216100D-02
         E(12) = 0.1224900D+02
         S(12) = -.3933800D-01
         E(13) = 0.4474300D+01
         S(13) = -.9061100D-01
         E(14) = 0.1240400D+01
         S(14) = 0.1988200D+00
         E(15) = 0.4874300D+00
         S(15) = 0.1000000D+01
         E(16) = 0.1648400D+00
         S(16) = 0.1000000D+01
         E(17) = 0.4793400D+02
         P(17) = 0.6170600D-02
         E(18) = 0.1099900D+02
         P(18) = 0.4426000D-01
         E(19) = 0.3247200D+01
         P(19) = 0.1682500D+00
         E(20) = 0.1111400D+01
         P(20) = 0.3684800D+00
         E(21) = 0.3798800D+00
         P(21) = 0.1000000D+01
         E(22) = 0.1206800D+00
         P(22) = 0.1000000D+01
         E(23) = 0.1800000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.5500000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.1020000D+01
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1245500D+06
         S(1) = 0.2667200D-04
         E(2) = 0.1865600D+05
         S(2) = 0.2068400D-03
         E(3) = 0.4245100D+04
         S(3) = 0.1089300D-02
         E(4) = 0.1202100D+04
         S(4) = 0.4546300D-02
         E(5) = 0.3921400D+03
         S(5) = 0.1623700D-01
         E(6) = 0.1415800D+03
         S(6) = 0.4895700D-01
         E(7) = 0.5513600D+02
         S(7) = 0.1231700D+00
         E(8) = 0.2264300D+02
         S(8) = 0.2242500D+00
         E(9) = 0.9656600D+01
         S(9) = 0.2387600D+00
         E(10) = 0.1865600D+05
         S(10) = 0.1408800D-05
         E(11) = 0.1202100D+04
         S(11) = 0.8143900D-04
         E(12) = 0.3921400D+03
         S(12) = 0.3243900D-03
         E(13) = 0.1415800D+03
         S(13) = 0.4362100D-02
         E(14) = 0.5513600D+02
         S(14) = 0.2283800D-01
         E(15) = 0.2264300D+02
         S(15) = 0.1346200D+00
         E(16) = 0.9656600D+01
         S(16) = 0.4250100D+00
         E(17) = 0.4168500D+01
         S(17) = 0.8251700D+00
         E(18) = 0.1667800D+01
         S(18) = 0.1000000D+01
         E(19) = 0.7457400D+00
         S(19) = 0.1000000D+01
         E(20) = 0.3051600D+00
         S(20) = 0.1000000D+01
         E(21) = 0.1208900D+00
         S(21) = 0.1000000D+01
         E(22) = 0.2182900D+03
         P(22) = 0.4828100D-03
         E(23) = 0.5148800D+02
         P(23) = 0.4042000D-02
         E(24) = 0.1613000D+02
         P(24) = 0.2094600D-01
         E(25) = 0.6130700D+01
         P(25) = 0.6475700D-01
         E(26) = 0.2505200D+01
         P(26) = 0.1704200D+00
         E(27) = 0.1073000D+01
         P(27) = 0.1000000D+01
         E(28) = 0.4583800D+00
         P(28) = 0.1000000D+01
         E(29) = 0.1894800D+00
         P(29) = 0.1000000D+01
         E(30) = 0.7335900D-01
         P(30) = 0.1000000D+01
         E(31) = 0.6000000D+01
         D(31) = 0.1000000D+01
         E(32) = 0.1650000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.6500000D+00
         D(33) = 0.1000000D+01
         E(34) = 0.2500000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.1800000D+01
         F(35) = 0.1000000D+01
         E(36) = 0.7700000D+00
         F(36) = 0.1000000D+01
         E(37) = 0.1500000D+01
         G(37) = 0.1000000D+01
         ILAST = 37
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.8947600D+06
         S(1) = 0.2263200D-05
         E(2) = 0.1348300D+06
         S(2) = 0.1754100D-04
         E(3) = 0.3080800D+05
         S(3) = 0.9116800D-04
         E(4) = 0.8751500D+04
         S(4) = 0.3874000D-03
         E(5) = 0.2862000D+04
         S(5) = 0.1387000D-02
         E(6) = 0.1035300D+04
         S(6) = 0.4550300D-02
         E(7) = 0.4047300D+03
         S(7) = 0.1300900D-01
         E(8) = 0.1683300D+03
         S(8) = 0.3469600D-01
         E(9) = 0.7369500D+02
         S(9) = 0.7480400D-01
         E(10) = 0.3375300D+02
         S(10) = 0.1345700D+00
         E(11) = 0.1615700D+02
         S(11) = 0.1167200D+00
         E(12) = 0.8751500D+04
         S(12) = -.3213000D-05
         E(13) = 0.2862000D+04
         S(13) = 0.1370300D-04
         E(14) = 0.1035300D+04
         S(14) = -.1486200D-04
         E(15) = 0.4047300D+03
         S(15) = 0.4810200D-03
         E(16) = 0.1683300D+03
         S(16) = 0.1538400D-02
         E(17) = 0.7369500D+02
         S(17) = 0.1355500D-01
         E(18) = 0.3375300D+02
         S(18) = 0.4731100D-01
         E(19) = 0.1615700D+02
         S(19) = 0.2016000D+00
         E(20) = 0.7968800D+01
         S(20) = 0.4071300D+00
         E(21) = 0.3952100D+01
         S(21) = 0.1000000D+01
         E(22) = 0.1945400D+01
         S(22) = 0.1000000D+01
         E(23) = 0.9292900D+00
         S(23) = 0.1000000D+01
         E(24) = 0.4408500D+00
         S(24) = 0.1000000D+01
         E(25) = 0.2034000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.9122600D-01
         S(26) = 0.1000000D+01
         E(27) = 0.5662300D+03
         P(27) = 0.9243300D-03
         E(28) = 0.1341000D+03
         P(28) = 0.8089800D-02
         E(29) = 0.4301300D+02
         P(29) = 0.4546300D-01
         E(30) = 0.1561200D+02
         P(30) = 0.1962200D+00
         E(31) = 0.6642700D+01
         P(31) = 0.5175400D+00
         E(32) = 0.2974800D+01
         P(32) = 0.1000000D+01
         E(33) = 0.1388500D+01
         P(33) = 0.1000000D+01
         E(34) = 0.6501200D+00
         P(34) = 0.1000000D+01
         E(35) = 0.3002800D+00
         P(35) = 0.1000000D+01
         E(36) = 0.1362000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.5784500D-01
         P(37) = 0.1000000D+01
         E(38) = 0.1280000D+02
         D(38) = 0.1000000D+01
         E(39) = 0.4400000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.1750000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.8000000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.3700000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.1500000D+00
         D(43) = 0.1000000D+01
         E(44) = 0.2300000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1000000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.4500000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.2550000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1100000D+01
         G(48) = 0.1000000D+01
CFRJ     E(49) = 0.1950000D+01
CFRJ     H(49) = 0.1000000D+01
         ILAST = 48
      ENDIF
      RETURN
C
C     ----- O  ------
C
  200 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.8121200D+03
         S(1) = 0.1945000D-01
         E(2) = 0.1226900D+03
         S(2) = 0.1477400D+00
         E(3) = 0.2756100D+02
         S(3) = 0.1359300D+00
         E(4) = 0.1226900D+03
         S(4) = -.1318900D-01
         E(5) = 0.2756100D+02
         S(5) = 0.3151000D+00
         E(6) = 0.7317300D+01
         S(6) = 0.5296400D+00
         E(7) = 0.5792400D+00
         S(7) = 0.1000000D+01
         E(8) = 0.8217800D+01
         P(8) = 0.1290200D+00
         E(9) = 0.1675400D+01
         P(9) = 0.4870600D+00
         E(10) = 0.3506700D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.2306700D+04
         S(1) = 0.5394000D-02
         E(2) = 0.3471500D+03
         S(2) = 0.4024800D-01
         E(3) = 0.7889000D+02
         S(3) = 0.1792100D+00
         E(4) = 0.2187600D+02
         S(4) = 0.4597800D+00
         E(5) = 0.6664600D+01
         S(5) = 0.4523400D+00
         E(6) = 0.3471500D+03
         S(6) = -.3169200D-03
         E(7) = 0.7889000D+02
         S(7) = -.2594400D-02
         E(8) = 0.2187600D+02
         S(8) = -.3624100D-01
         E(9) = 0.6664600D+01
         S(9) = -.8779000D-01
         E(10) = 0.1066900D+01
         S(10) = 0.5332000D+00
         E(11) = 0.3070000D+00
         S(11) = 0.1000000D+01
         E(12) = 0.1702200D+02
         P(12) = 0.4891900D-01
         E(13) = 0.3683800D+01
         P(13) = 0.2496200D+00
         E(14) = 0.9923400D+00
         P(14) = 0.5134700D+00
         E(15) = 0.2448700D+00
         P(15) = 0.1000000D+01
         E(16) = 0.1000000D+01
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1478200D+05
         S(1) = 0.5351900D-03
         E(2) = 0.2217300D+04
         S(2) = 0.4137500D-02
         E(3) = 0.5047400D+03
         S(3) = 0.2124500D-01
         E(4) = 0.1428700D+03
         S(4) = 0.8245300D-01
         E(5) = 0.4630000D+02
         S(5) = 0.2367100D+00
         E(6) = 0.1633700D+02
         S(6) = 0.4403900D+00
         E(7) = 0.5982800D+01
         S(7) = 0.3646500D+00
         E(8) = 0.2217300D+04
         S(8) = -.1927500D-05
         E(9) = 0.5047400D+03
         S(9) = -.5796400D-04
         E(10) = 0.1428700D+03
         S(10) = -.7949400D-03
         E(11) = 0.4630000D+02
         S(11) = -.7312500D-02
         E(12) = 0.1633700D+02
         S(12) = -.4057400D-01
         E(13) = 0.5982800D+01
         S(13) = -.9159400D-01
         E(14) = 0.1671800D+01
         S(14) = 0.2094000D+00
         E(15) = 0.6466200D+00
         S(15) = 0.1000000D+01
         E(16) = 0.2166900D+00
         S(16) = 0.1000000D+01
         E(17) = 0.6042400D+02
         P(17) = 0.6894900D-02
         E(18) = 0.1393500D+02
         P(18) = 0.4900500D-01
         E(19) = 0.4153100D+01
         P(19) = 0.1825500D+00
         E(20) = 0.1415800D+01
         P(20) = 0.3763300D+00
         E(21) = 0.4754900D+00
         P(21) = 0.1000000D+01
         E(22) = 0.1452900D+00
         P(22) = 0.1000000D+01
         E(23) = 0.2200000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.6500000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.1100000D+01
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1640300D+06
         S(1) = 0.2652100D-04
         E(2) = 0.2456700D+05
         S(2) = 0.2057100D-03
         E(3) = 0.5591000D+04
         S(3) = 0.1082700D-02
         E(4) = 0.1583600D+04
         S(4) = 0.4519000D-02
         E(5) = 0.5166700D+03
         S(5) = 0.1613500D-01
         E(6) = 0.1865600D+03
         S(6) = 0.4871600D-01
         E(7) = 0.7269600D+02
         S(7) = 0.1226800D+00
         E(8) = 0.2999200D+02
         S(8) = 0.2218900D+00
         E(9) = 0.1289900D+02
         S(9) = 0.2390400D+00
         E(10) = 0.2456700D+05
         S(10) = 0.1332200D-05
         E(11) = 0.1583600D+04
         S(11) = 0.8025200D-04
         E(12) = 0.5166700D+03
         S(12) = 0.3451200D-03
         E(13) = 0.1865600D+03
         S(13) = 0.4448400D-02
         E(14) = 0.7269600D+02
         S(14) = 0.2360100D-01
         E(15) = 0.2999200D+02
         S(15) = 0.1386100D+00
         E(16) = 0.1289900D+02
         S(16) = 0.4287200D+00
         E(17) = 0.5613500D+01
         S(17) = 0.8487300D+00
         E(18) = 0.2298600D+01
         S(18) = 0.1000000D+01
         E(19) = 0.9998000D+00
         S(19) = 0.1000000D+01
         E(20) = 0.4074600D+00
         S(20) = 0.1000000D+01
         E(21) = 0.1592200D+00
         S(21) = 0.1000000D+01
         E(22) = 0.2720200D+03
         P(22) = 0.5494100D-03
         E(23) = 0.6424300D+02
         P(23) = 0.4583400D-02
         E(24) = 0.2024900D+02
         P(24) = 0.2357300D-01
         E(25) = 0.7643800D+01
         P(25) = 0.7433800D-01
         E(26) = 0.3123200D+01
         P(26) = 0.1875500D+00
         E(27) = 0.1325100D+01
         P(27) = 0.1000000D+01
         E(28) = 0.5555100D+00
         P(28) = 0.1000000D+01
         E(29) = 0.2222900D+00
         P(29) = 0.1000000D+01
         E(30) = 0.8401000D-01
         P(30) = 0.1000000D+01
         E(31) = 0.7000000D+01
         D(31) = 0.1000000D+01
         E(32) = 0.2000000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.8000000D+00
         D(33) = 0.1000000D+01
         E(34) = 0.3000000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.2100000D+01
         F(35) = 0.1000000D+01
         E(36) = 0.9000000D+00
         F(36) = 0.1000000D+01
         E(37) = 0.1600000D+01
         G(37) = 0.1000000D+01
         ILAST = 37
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.1259700D+07
         S(1) = 0.2068400D-05
         E(2) = 0.1901100D+06
         S(2) = 0.1596000D-04
         E(3) = 0.4344900D+05
         S(3) = 0.8332800D-04
         E(4) = 0.1234200D+05
         S(4) = 0.3521200D-03
         E(5) = 0.4035000D+04
         S(5) = 0.1270900D-02
         E(6) = 0.1459700D+04
         S(6) = 0.4132400D-02
         E(7) = 0.5706600D+03
         S(7) = 0.1197000D-01
         E(8) = 0.2375000D+03
         S(8) = 0.3156100D-01
         E(9) = 0.1041100D+03
         S(9) = 0.6996000D-01
         E(10) = 0.4758100D+02
         S(10) = 0.1270200D+00
         E(11) = 0.2254600D+02
         S(11) = 0.1189900D+00
         E(12) = 0.1234200D+05
         S(12) = -.8808400D-06
         E(13) = 0.4035000D+04
         S(13) = 0.7491800D-05
         E(14) = 0.1459700D+04
         S(14) = 0.1892500D-04
         E(15) = 0.5706600D+03
         S(15) = 0.3516600D-03
         E(16) = 0.2375000D+03
         S(16) = 0.1704700D-02
         E(17) = 0.1041100D+03
         S(17) = 0.1141200D-01
         E(18) = 0.4758100D+02
         S(18) = 0.4602500D-01
         E(19) = 0.2254600D+02
         S(19) = 0.1914000D+00
         E(20) = 0.1109300D+02
         S(20) = 0.4026000D+00
         E(21) = 0.5540900D+01
         S(21) = 0.1000000D+01
         E(22) = 0.2779400D+01
         S(22) = 0.1000000D+01
         E(23) = 0.1283700D+01
         S(23) = 0.1000000D+01
         E(24) = 0.5964900D+00
         S(24) = 0.1000000D+01
         E(25) = 0.2705700D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1202800D+00
         S(26) = 0.1000000D+01
         E(27) = 0.7086100D+03
         P(27) = 0.1045600D-02
         E(28) = 0.1678600D+03
         P(28) = 0.9129200D-02
         E(29) = 0.5396700D+02
         P(29) = 0.5097700D-01
         E(30) = 0.1980700D+02
         P(30) = 0.2159900D+00
         E(31) = 0.8383200D+01
         P(31) = 0.5877700D+00
         E(32) = 0.3744700D+01
         P(32) = 0.1000000D+01
         E(33) = 0.1732200D+01
         P(33) = 0.1000000D+01
         E(34) = 0.7997700D+00
         P(34) = 0.1000000D+01
         E(35) = 0.3632300D+00
         P(35) = 0.1000000D+01
         E(36) = 0.1596300D+00
         P(36) = 0.1000000D+01
         E(37) = 0.6566400D-01
         P(37) = 0.1000000D+01
         E(38) = 0.1820000D+02
         D(38) = 0.1000000D+01
         E(39) = 0.6000000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.2400000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.1100000D+01
         D(41) = 0.1000000D+01
         E(42) = 0.5000000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.2000000D+00
         D(43) = 0.1000000D+01
         E(44) = 0.2600000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1150000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.5000000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.3050000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1300000D+01
         G(48) = 0.1000000D+01
CFRJ     E(49) = 0.2050000D+01
CFRJ     H(49) = 0.1000000D+01
         ILAST = 48
      ENDIF
      RETURN
C
C     ----- F  -----
C
  220 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1035100D+04
         S(1) = 0.1935100D-01
         E(2) = 0.1563800D+03
         S(2) = 0.1488400D+00
         E(3) = 0.3519600D+02
         S(3) = 0.1173500D+00
         E(4) = 0.1563800D+03
         S(4) = -.1433700D-01
         E(5) = 0.3519600D+02
         S(5) = 0.3255100D+00
         E(6) = 0.9392100D+01
         S(6) = 0.5168100D+00
         E(7) = 0.7534200D+00
         S(7) = 0.1000000D+01
         E(8) = 0.1059900D+02
         P(8) = 0.1327300D+00
         E(9) = 0.2173300D+01
         P(9) = 0.4893800D+00
         E(10) = 0.4487100D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.2954600D+04
         S(1) = 0.5333700D-02
         E(2) = 0.4446200D+03
         S(2) = 0.3982700D-01
         E(3) = 0.1010500D+03
         S(3) = 0.1780200D+00
         E(4) = 0.2806800D+02
         S(4) = 0.4591700D+00
         E(5) = 0.8583700D+01
         S(5) = 0.4535200D+00
         E(6) = 0.4446200D+03
         S(6) = -.3296200D-03
         E(7) = 0.1010500D+03
         S(7) = -.2608300D-02
         E(8) = 0.2806800D+02
         S(8) = -.3715000D-01
         E(9) = 0.8583700D+01
         S(9) = -.8817800D-01
         E(10) = 0.1398600D+01
         S(10) = 0.5313500D+00
         E(11) = 0.3996900D+00
         S(11) = 0.1000000D+01
         E(12) = 0.2188300D+02
         P(12) = 0.5024400D-01
         E(13) = 0.4776900D+01
         P(13) = 0.2542400D+00
         E(14) = 0.1282300D+01
         P(14) = 0.5122000D+00
         E(15) = 0.3112700D+00
         P(15) = 0.1000000D+01
         E(16) = 0.1100000D+01
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1912700D+05
         S(1) = 0.5225000D-03
         E(2) = 0.2868900D+04
         S(2) = 0.4040000D-02
         E(3) = 0.6530400D+03
         S(3) = 0.2075900D-01
         E(4) = 0.1848500D+03
         S(4) = 0.8080000D-01
         E(5) = 0.5994900D+02
         S(5) = 0.2336200D+00
         E(6) = 0.2119000D+02
         S(6) = 0.4396500D+00
         E(7) = 0.7784600D+01
         S(7) = 0.3704100D+00
         E(8) = 0.2868900D+04
         S(8) = -.2257600D-05
         E(9) = 0.6530400D+03
         S(9) = -.5664000D-04
         E(10) = 0.1848500D+03
         S(10) = -.7978200D-03
         E(11) = 0.5994900D+02
         S(11) = -.7271300D-02
         E(12) = 0.2119000D+02
         S(12) = -.4083100D-01
         E(13) = 0.7784600D+01
         S(13) = -.9293100D-01
         E(14) = 0.2230500D+01
         S(14) = 0.2022800D+00
         E(15) = 0.8540900D+00
         S(15) = 0.1000000D+01
         E(16) = 0.2833600D+00
         S(16) = 0.1000000D+01
         E(17) = 0.7763900D+02
         P(17) = 0.7031300D-02
         E(18) = 0.1796500D+02
         P(18) = 0.5013700D-01
         E(19) = 0.5400500D+01
         P(19) = 0.1855300D+00
         E(20) = 0.1842300D+01
         P(20) = 0.3754600D+00
         E(21) = 0.6153200D+00
         P(21) = 0.1000000D+01
         E(22) = 0.1848900D+00
         P(22) = 0.1000000D+01
         E(23) = 0.2800000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.8000000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.1200000D+01
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.2156600D+06
         S(1) = 0.2537800D-04
         E(2) = 0.3229900D+05
         S(2) = 0.1969300D-03
         E(3) = 0.7350400D+04
         S(3) = 0.1036000D-02
         E(4) = 0.2081800D+04
         S(4) = 0.4329400D-02
         E(5) = 0.6790900D+03
         S(5) = 0.1546200D-01
         E(6) = 0.2451000D+03
         S(6) = 0.4690300D-01
         E(7) = 0.9546200D+02
         S(7) = 0.1188100D+00
         E(8) = 0.3942200D+02
         S(8) = 0.2171100D+00
         E(9) = 0.1701800D+02
         S(9) = 0.2369900D+00
         E(10) = 0.3229900D+05
         S(10) = 0.1019200D-05
         E(11) = 0.2081800D+04
         S(11) = 0.6809600D-04
         E(12) = 0.6790900D+03
         S(12) = 0.3462000D-03
         E(13) = 0.2451000D+03
         S(13) = 0.4139700D-02
         E(14) = 0.9546200D+02
         S(14) = 0.2307300D-01
         E(15) = 0.3942200D+02
         S(15) = 0.1339500D+00
         E(16) = 0.1701800D+02
         S(16) = 0.4224600D+00
         E(17) = 0.7452500D+01
         S(17) = 0.8599900D+00
         E(18) = 0.3132900D+01
         S(18) = 0.1000000D+01
         E(19) = 0.1339500D+01
         S(19) = 0.1000000D+01
         E(20) = 0.5421800D+00
         S(20) = 0.1000000D+01
         E(21) = 0.2090400D+00
         S(21) = 0.1000000D+01
         E(22) = 0.3512200D+03
         P(22) = 0.5526300D-03
         E(23) = 0.8297800D+02
         P(23) = 0.4628500D-02
         E(24) = 0.2626700D+02
         P(24) = 0.2380200D-01
         E(25) = 0.9930700D+01
         P(25) = 0.7626200D-01
         E(26) = 0.4067000D+01
         P(26) = 0.1896400D+00
         E(27) = 0.1724600D+01
         P(27) = 0.1000000D+01
         E(28) = 0.7197600D+00
         P(28) = 0.1000000D+01
         E(29) = 0.2862400D+00
         P(29) = 0.1000000D+01
         E(30) = 0.1078900D+00
         P(30) = 0.1000000D+01
         E(31) = 0.8400000D+01
         D(31) = 0.1000000D+01
         E(32) = 0.2600000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.1000000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.3500000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.2600000D+01
         F(35) = 0.1000000D+01
         E(36) = 0.1050000D+01
         F(36) = 0.1000000D+01
         E(37) = 0.1700000D+01
         G(37) = 0.1000000D+01
         ILAST = 37
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.1856000D+07
         S(1) = 0.1717200D-05
         E(2) = 0.2800700D+06
         S(2) = 0.1324400D-04
         E(3) = 0.6407800D+05
         S(3) = 0.6901500D-04
         E(4) = 0.1821600D+05
         S(4) = 0.2916200D-03
         E(5) = 0.5957800D+04
         S(5) = 0.1052200D-02
         E(6) = 0.2155000D+04
         S(6) = 0.3430100D-02
         E(7) = 0.8419600D+03
         S(7) = 0.9972500D-02
         E(8) = 0.3498200D+03
         S(8) = 0.2662500D-01
         E(9) = 0.1527900D+03
         S(9) = 0.6039700D-01
         E(10) = 0.6936700D+02
         S(10) = 0.1146800D+00
         E(11) = 0.3257400D+02
         S(11) = 0.1148700D+00
         E(12) = 0.1821600D+05
         S(12) = -.8091300D-06
         E(13) = 0.5957800D+04
         S(13) = 0.5848300D-05
         E(14) = 0.2155000D+04
         S(14) = 0.1118100D-04
         E(15) = 0.8419600D+03
         S(15) = 0.2645200D-03
         E(16) = 0.3498200D+03
         S(16) = 0.1244700D-02
         E(17) = 0.1527900D+03
         S(17) = 0.8804600D-02
         E(18) = 0.6936700D+02
         S(18) = 0.3666600D-01
         E(19) = 0.3257400D+02
         S(19) = 0.1621200D+00
         E(20) = 0.1588900D+02
         S(20) = 0.3740300D+00
         E(21) = 0.7865100D+01
         S(21) = 0.1000000D+01
         E(22) = 0.3919900D+01
         S(22) = 0.1000000D+01
         E(23) = 0.1786100D+01
         S(23) = 0.1000000D+01
         E(24) = 0.8206500D+00
         S(24) = 0.1000000D+01
         E(25) = 0.3693700D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1619800D+00
         S(26) = 0.1000000D+01
         E(27) = 0.9178900D+03
         P(27) = 0.1045000D-02
         E(28) = 0.2174100D+03
         P(28) = 0.9142900D-02
         E(29) = 0.6993900D+02
         P(29) = 0.5122700D-01
         E(30) = 0.2583100D+02
         P(30) = 0.2155800D+00
         E(31) = 0.1096900D+02
         P(31) = 0.5966000D+00
         E(32) = 0.4921500D+01
         P(32) = 0.1000000D+01
         E(33) = 0.2283900D+01
         P(33) = 0.1000000D+01
         E(34) = 0.1057900D+01
         P(34) = 0.1000000D+01
         E(35) = 0.4813500D+00
         P(35) = 0.1000000D+01
         E(36) = 0.2090200D+00
         P(36) = 0.1000000D+01
         E(37) = 0.8555600D-01
         P(37) = 0.1000000D+01
         E(38) = 0.2550000D+02
         D(38) = 0.1000000D+01
         E(39) = 0.8000000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.3200000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.1450000D+01
         D(41) = 0.1000000D+01
         E(42) = 0.6500000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.2500000D+00
         D(43) = 0.1000000D+01
         E(44) = 0.3100000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1350000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.6000000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.3600000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1550000D+01
         G(48) = 0.1000000D+01
CFRJ     E(49) = 0.2150000D+01
CFRJ     H(49) = 0.1000000D+01
         ILAST = 48
      ENDIF
      RETURN
C
C     ----- NE -----
C
  240 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1284500D+04
         S(1) = 0.9641900D-01
         E(2) = 0.1940500D+03
         S(2) = 0.7501900D+00
         E(3) = 0.4374600D+02
         S(3) = 0.4976500D+00
         E(4) = 0.1940500D+03
         S(4) = -.7670800D-02
         E(5) = 0.4374600D+02
         S(5) = 0.1669300D+00
         E(6) = 0.1172000D+02
         S(6) = 0.2515100D+00
         E(7) = 0.9474600D+00
         S(7) = 0.1000000D+01
         E(8) = 0.1334800D+02
         P(8) = 0.6746700D-01
         E(9) = 0.2750900D+01
         P(9) = 0.2453100D+00
         E(10) = 0.5643400D+00
         P(10) = 0.1000000D+01
         ILAST = 10
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.3680100D+04
         S(1) = 0.2645400D-02
         E(2) = 0.5537500D+03
         S(2) = 0.1976300D-01
         E(3) = 0.1258700D+03
         S(3) = 0.8859000D-01
         E(4) = 0.3501300D+02
         S(4) = 0.2293600D+00
         E(5) = 0.1073900D+02
         S(5) = 0.2271700D+00
         E(6) = 0.5537500D+03
         S(6) = -.1720900D-03
         E(7) = 0.1258700D+03
         S(7) = -.1301600D-02
         E(8) = 0.3501300D+02
         S(8) = -.1898000D-01
         E(9) = 0.1073900D+02
         S(9) = -.4400800D-01
         E(10) = 0.1769300D+01
         S(10) = 0.2652500D+00
         E(11) = 0.5014900D+00
         S(11) = 0.1000000D+01
         E(12) = 0.2750200D+02
         P(12) = 0.2547700D-01
         E(13) = 0.6039700D+01
         P(13) = 0.1285500D+00
         E(14) = 0.1619000D+01
         P(14) = 0.2558600D+00
         E(15) = 0.3897000D+00
         P(15) = 0.1000000D+01
         E(16) = 0.1200000D+01
         D(16) = 0.1000000D+01
         ILAST = 16
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.2388000D+05
         S(1) = 0.2583500D-03
         E(2) = 0.3581700D+04
         S(2) = 0.1997700D-02
         E(3) = 0.8152700D+03
         S(3) = 0.1026900D-01
         E(4) = 0.2307700D+03
         S(4) = 0.4003600D-01
         E(5) = 0.7488400D+02
         S(5) = 0.1161900D+00
         E(6) = 0.2651800D+02
         S(6) = 0.2195900D+00
         E(7) = 0.9769200D+01
         S(7) = 0.1860800D+00
         E(8) = 0.3581700D+04
         S(8) = -.7653500D-05
         E(9) = 0.8152700D+03
         S(9) = -.1363800D-03
         E(10) = 0.2307700D+03
         S(10) = -.2066900D-02
         E(11) = 0.7488400D+02
         S(11) = -.1814000D-01
         E(12) = 0.2651800D+02
         S(12) = -.1037900D+00
         E(13) = 0.9769200D+01
         S(13) = -.2328300D+00
         E(14) = 0.2830500D+01
         S(14) = 0.5079800D+00
         E(15) = 0.1074000D+01
         S(15) = 0.1000000D+01
         E(16) = 0.3540000D+00
         S(16) = 0.1000000D+01
         E(17) = 0.9710600D+02
         P(17) = 0.3566800D-02
         E(18) = 0.2254300D+02
         P(18) = 0.2546700D-01
         E(19) = 0.6817300D+01
         P(19) = 0.9401600D-01
         E(20) = 0.2326300D+01
         P(20) = 0.1879600D+00
         E(21) = 0.7742500D+00
         P(21) = 0.1000000D+01
         E(22) = 0.2302600D+00
         P(22) = 0.1000000D+01
         E(23) = 0.3000000D+01
         D(23) = 0.1000000D+01
         E(24) = 0.8500000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.1300000D+01
         F(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.2706600D+06
         S(1) = 0.1246500D-04
         E(2) = 0.4054100D+05
         S(2) = 0.9678000D-04
         E(3) = 0.9226500D+04
         S(3) = 0.5086300D-03
         E(4) = 0.2613200D+04
         S(4) = 0.2128600D-02
         E(5) = 0.8523900D+03
         S(5) = 0.7592200D-02
         E(6) = 0.3076100D+03
         S(6) = 0.2311600D-01
         E(7) = 0.1197600D+03
         S(7) = 0.5861400D-01
         E(8) = 0.4943700D+02
         S(8) = 0.1080700D+00
         E(9) = 0.2136900D+02
         S(9) = 0.1166000D+00
         E(10) = 0.9226500D+04
         S(10) = 0.6466300D-06
         E(11) = 0.2613200D+04
         S(11) = 0.2740900D-04
         E(12) = 0.8523900D+03
         S(12) = 0.1866100D-03
         E(13) = 0.3076100D+03
         S(13) = 0.1949200D-02
         E(14) = 0.1197600D+03
         S(14) = 0.1177300D-01
         E(15) = 0.4943700D+02
         S(15) = 0.6614600D-01
         E(16) = 0.2136900D+02
         S(16) = 0.2145700D+00
         E(17) = 0.9392100D+01
         S(17) = 0.4298700D+00
         E(18) = 0.3983200D+01
         S(18) = 0.1000000D+01
         E(19) = 0.1688700D+01
         S(19) = 0.1000000D+01
         E(20) = 0.6803000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.2602400D+00
         S(21) = 0.1000000D+01
         E(22) = 0.4434500D+03
         P(22) = 0.2746800D-02
         E(23) = 0.1048200D+03
         P(23) = 0.2308100D-01
         E(24) = 0.3325500D+02
         P(24) = 0.1193000D+00
         E(25) = 0.1254800D+02
         P(25) = 0.3886300D+00
         E(26) = 0.5142100D+01
         P(26) = 0.9579000D+00
         E(27) = 0.2178300D+01
         P(27) = 0.1000000D+01
         E(28) = 0.9064500D+00
         P(28) = 0.1000000D+01
         E(29) = 0.3599400D+00
         P(29) = 0.1000000D+01
         E(30) = 0.1351500D+00
         P(30) = 0.1000000D+01
         E(31) = 0.1000000D+02
         D(31) = 0.1000000D+01
         E(32) = 0.3000000D+01
         D(32) = 0.1000000D+01
         E(33) = 0.1150000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.4000000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.2800000D+01
         F(35) = 0.1000000D+01
         E(36) = 0.1150000D+01
         F(36) = 0.1000000D+01
         E(37) = 0.1800000D+01
         G(37) = 0.1000000D+01
         ILAST = 37
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.2522600D+07
         S(1) = 0.7665300D-05
         E(2) = 0.3770600D+06
         S(2) = 0.5982600D-04
         E(3) = 0.8571300D+05
         S(3) = 0.3144100D-03
         E(4) = 0.2426100D+05
         S(4) = 0.1332600D-02
         E(5) = 0.7911700D+04
         S(5) = 0.4833200D-02
         E(6) = 0.2855500D+04
         S(6) = 0.1576300D-01
         E(7) = 0.1113600D+04
         S(7) = 0.4612300D-01
         E(8) = 0.4618900D+03
         S(8) = 0.1233900D+00
         E(9) = 0.2013500D+03
         S(9) = 0.2842800D+00
         E(10) = 0.9119800D+02
         S(10) = 0.5456900D+00
         E(11) = 0.4268000D+02
         S(11) = 0.5814100D+00
         E(12) = 0.2426100D+05
         S(12) = -.2032100D-06
         E(13) = 0.7911700D+04
         S(13) = 0.2121600D-05
         E(14) = 0.2855500D+04
         S(14) = 0.7583500D-05
         E(15) = 0.1113600D+04
         S(15) = 0.1105500D-03
         E(16) = 0.4618900D+03
         S(16) = 0.5828300D-03
         E(17) = 0.2013500D+03
         S(17) = 0.3875300D-02
         E(18) = 0.9119800D+02
         S(18) = 0.1708600D-01
         E(19) = 0.4268000D+02
         S(19) = 0.7497800D-01
         E(20) = 0.2074200D+02
         S(20) = 0.1839100D+00
         E(21) = 0.1024900D+02
         S(21) = 0.1000000D+01
         E(22) = 0.5101300D+01
         S(22) = 0.1000000D+01
         E(23) = 0.2303100D+01
         S(23) = 0.1000000D+01
         E(24) = 0.1053100D+01
         S(24) = 0.1000000D+01
         E(25) = 0.4722200D+00
         S(25) = 0.1000000D+01
         E(26) = 0.2046600D+00
         S(26) = 0.1000000D+01
         E(27) = 0.1169900D+04
         P(27) = 0.5106400D-03
         E(28) = 0.2771100D+03
         P(28) = 0.4473800D-02
         E(29) = 0.8926400D+02
         P(29) = 0.2511000D-01
         E(30) = 0.3310000D+02
         P(30) = 0.1059300D+00
         E(31) = 0.1403100D+02
         P(31) = 0.2995800D+00
         E(32) = 0.6298500D+01
         P(32) = 0.1000000D+01
         E(33) = 0.2923400D+01
         P(33) = 0.1000000D+01
         E(34) = 0.1353700D+01
         P(34) = 0.1000000D+01
         E(35) = 0.6136200D+00
         P(35) = 0.1000000D+01
         E(36) = 0.2636200D+00
         P(36) = 0.1000000D+01
         E(37) = 0.1075500D+00
         P(37) = 0.1000000D+01
         E(38) = 0.3200000D+02
         D(38) = 0.1000000D+01
         E(39) = 0.1010000D+02
         D(39) = 0.1000000D+01
         E(40) = 0.4000000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.1850000D+01
         D(41) = 0.1000000D+01
         E(42) = 0.8000000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.3000000D+00
         D(43) = 0.1000000D+01
         E(44) = 0.3600000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1550000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.7000000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.4200000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1800000D+01
         G(48) = 0.1000000D+01
CFRJ     E(49) = 0.2250000D+01
CFRJ     H(49) = 0.1000000D+01
         ILAST = 48
      ENDIF
      RETURN
      END
C*MODULE BASPCN  *DECK PCN003
      SUBROUTINE PCN003(E,S,P,D,F,G,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90),G(90)
C
      NN = N-10
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- NA -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.4553500D+04
         S(1) = 0.5158300D-02
         E(2) = 0.6850900D+03
         S(2) = 0.3860000D-01
         E(3) = 0.1557300D+03
         S(3) = 0.1738500D+00
         E(4) = 0.4337100D+02
         S(4) = 0.4564600D+00
         E(5) = 0.1333900D+02
         S(5) = 0.4629100D+00
         E(6) = 0.6850900D+03
         S(6) = -.3185400D-03
         E(7) = 0.1557300D+03
         S(7) = -.2264800D-02
         E(8) = 0.4337100D+02
         S(8) = -.3392300D-01
         E(9) = 0.1333900D+02
         S(9) = -.7630900D-01
         E(10) = 0.2310600D+01
         S(10) = 0.3372700D+00
         E(11) = 0.1557300D+03
         S(11) = -.7913100D-04
         E(12) = 0.4337100D+02
         S(12) = -.6990600D-03
         E(13) = 0.1333900D+02
         S(13) = -.3208300D-02
         E(14) = 0.2310600D+01
         S(14) = 0.3005600D-01
         E(15) = 0.7066900D+00
         S(15) = 0.1122400D+00
         E(16) = 0.4594200D-01
         S(16) = 0.1000000D+01
         E(17) = 0.3779300D+02
         P(17) = 0.4649500D-01
         E(18) = 0.8413400D+01
         P(18) = 0.2431100D+00
         E(19) = 0.2321000D+01
         P(19) = 0.5173800D+00
         E(20) = 0.6065800D+00
         P(20) = 0.4259800D+00
         E(21) = 0.9500000D-01
         P(21) = 0.1000000D+01
         ILAST = 21
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.2320700D+05
         S(1) = 0.6810000D-03
         E(2) = 0.3481600D+04
         S(2) = 0.5251200D-02
         E(3) = 0.7927200D+03
         S(3) = 0.2684500D-01
         E(4) = 0.2245900D+03
         S(4) = 0.1018800D+00
         E(5) = 0.7308800D+02
         S(5) = 0.2778400D+00
         E(6) = 0.2619000D+02
         S(6) = 0.4448900D+00
         E(7) = 0.9866100D+01
         S(7) = 0.2820600D+00
         E(8) = 0.2215500D+01
         S(8) = 0.2068500D-01
         E(9) = 0.3481600D+04
         S(9) = -.2932300D-04
         E(10) = 0.7927200D+03
         S(10) = -.3220200D-04
         E(11) = 0.2245900D+03
         S(11) = -.2148500D-02
         E(12) = 0.7308800D+02
         S(12) = -.9315700D-02
         E(13) = 0.2619000D+02
         S(13) = -.6707100D-01
         E(14) = 0.9866100D+01
         S(14) = -.5678900D-01
         E(15) = 0.2215500D+01
         S(15) = 0.5360800D+00
         E(16) = 0.6859000D+00
         S(16) = 0.5978800D+00
         E(17) = 0.7927200D+03
         S(17) = -.1324500D-05
         E(18) = 0.2245900D+03
         S(18) = -.1438400D-04
         E(19) = 0.7308800D+02
         S(19) = -.1368700D-03
         E(20) = 0.2619000D+02
         S(20) = -.4879900D-03
         E(21) = 0.9866100D+01
         S(21) = -.2877300D-03
         E(22) = 0.2215500D+01
         S(22) = -.1017800D-01
         E(23) = 0.6859000D+00
         S(23) = -.1111800D+00
         E(24) = 0.7033700D-01
         S(24) = 0.5931400D+00
         E(25) = 0.2607500D-01
         S(25) = 0.1000000D+01
         E(26) = 0.1355500D+03
         P(26) = 0.6175900D-02
         E(27) = 0.3156200D+02
         P(27) = 0.4531500D-01
         E(28) = 0.9677400D+01
         P(28) = 0.1733200D+00
         E(29) = 0.3369100D+01
         P(29) = 0.3686700D+00
         E(30) = 0.1170300D+01
         P(30) = 0.4399800D+00
         E(31) = 0.3765100D+00
         P(31) = 0.2261300D+00
         E(32) = 0.7500000D-01
         P(32) = 0.1000000D+01
         ILAST = 32
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.6447400D+05
         S(1) = 0.1902000D-03
         E(2) = 0.9667500D+04
         S(2) = 0.1474900D-02
         E(3) = 0.2200800D+04
         S(3) = 0.7677800D-02
         E(4) = 0.6232600D+03
         S(4) = 0.3133300D-01
         E(5) = 0.2031200D+03
         S(5) = 0.1026900D+00
         E(6) = 0.7294400D+02
         S(6) = 0.2559800D+00
         E(7) = 0.2802600D+02
         S(7) = 0.4151700D+00
         E(8) = 0.1105500D+02
         S(8) = 0.3047300D+00
         E(9) = 0.3549000D+01
         S(9) = 0.4114600D-01
         E(10) = 0.2200800D+04
         S(10) = -.1388100D-04
         E(11) = 0.6232600D+03
         S(11) = -.1424200D-03
         E(12) = 0.2031200D+03
         S(12) = -.1815900D-02
         E(13) = 0.7294400D+02
         S(13) = -.1209300D-01
         E(14) = 0.2802600D+02
         S(14) = -.5682300D-01
         E(15) = 0.1105500D+02
         S(15) = -.1011000D+00
         E(16) = 0.3549000D+01
         S(16) = 0.2249800D+00
         E(17) = 0.1408200D+01
         S(17) = 0.5171100D+00
         E(18) = 0.2200800D+04
         S(18) = 0.4500100D-05
         E(19) = 0.6232600D+03
         S(19) = 0.5446900D-04
         E(20) = 0.2031200D+03
         S(20) = 0.6105800D-03
         E(21) = 0.7294400D+02
         S(21) = 0.4172400D-02
         E(22) = 0.2802600D+02
         S(22) = 0.1823100D-01
         E(23) = 0.1105500D+02
         S(23) = 0.2901700D-01
         E(24) = 0.3549000D+01
         S(24) = -.5293200D-01
         E(25) = 0.1408200D+01
         S(25) = 0.1696500D+00
         E(26) = 0.5114800D+00
         S(26) = 0.8847800D+00
         E(27) = 0.6953400D-01
         S(27) = 0.1000000D+01
         E(28) = 0.2512000D-01
         S(28) = 0.1000000D+01
         E(29) = 0.2305300D+03
         P(29) = 0.2542000D-02
         E(30) = 0.5420100D+02
         P(30) = 0.1976800D-01
         E(31) = 0.1740200D+02
         P(31) = 0.8348000D-01
         E(32) = 0.6315200D+01
         P(32) = 0.2328200D+00
         E(33) = 0.2408400D+01
         P(33) = 0.3821600D+00
         E(34) = 0.9024900D+00
         P(34) = 0.3798500D+00
         E(35) = 0.3145000D+00
         P(35) = 0.1628700D+00
         E(36) = 0.1210000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.3900000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.2400000D+00
         D(38) = 0.1000000D+01
         ILAST = 38
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.4218400D+06
         S(1) = 0.1821300D-04
         E(2) = 0.6318800D+05
         S(2) = 0.1415300D-03
         E(3) = 0.1438100D+05
         S(3) = 0.7438000D-03
         E(4) = 0.4073700D+04
         S(4) = 0.3127300D-02
         E(5) = 0.1329100D+04
         S(5) = 0.1124900D-01
         E(6) = 0.4799900D+03
         S(6) = 0.3529200D-01
         E(7) = 0.1873600D+03
         S(7) = 0.9539000D-01
         E(8) = 0.7777000D+02
         S(8) = 0.2100100D+00
         E(9) = 0.3379900D+02
         S(9) = 0.3441700D+00
         E(10) = 0.1512700D+02
         S(10) = 0.3270100D+00
         E(11) = 0.6932000D+01
         S(11) = 0.1212200D+00
         E(12) = 0.2765100D+01
         S(12) = 0.6440900D-02
         E(13) = 0.4073700D+04
         S(13) = -.6588900D-05
         E(14) = 0.1329100D+04
         S(14) = -.1064400D-04
         E(15) = 0.4799900D+03
         S(15) = -.2656500D-03
         E(16) = 0.1873600D+03
         S(16) = -.1128600D-02
         E(17) = 0.7777000D+02
         S(17) = -.8049600D-02
         E(18) = 0.3379900D+02
         S(18) = -.2603700D-01
         E(19) = 0.1512700D+02
         S(19) = -.7062200D-01
         E(20) = 0.6932000D+01
         S(20) = -.1221700D-01
         E(21) = 0.2765100D+01
         S(21) = 0.2604700D+00
         E(22) = 0.1139700D+01
         S(22) = 0.3592500D+00
         E(23) = 0.1329100D+04
         S(23) = -.1264100D-05
         E(24) = 0.4799900D+03
         S(24) = -.1102500D-04
         E(25) = 0.1873600D+03
         S(25) = -.7691700D-04
         E(26) = 0.7777000D+02
         S(26) = -.4327400D-03
         E(27) = 0.3379900D+02
         S(27) = -.1699700D-02
         E(28) = 0.1512700D+02
         S(28) = -.4354200D-02
         E(29) = 0.6932000D+01
         S(29) = -.1784000D-02
         E(30) = 0.2765100D+01
         S(30) = 0.2523700D-01
         E(31) = 0.1139700D+01
         S(31) = 0.7668600D-01
         E(32) = 0.4521300D+00
         S(32) = 0.1113200D+00
         E(33) = 0.8260300D-01
         S(33) = 0.1000000D+01
         E(34) = 0.4151000D-01
         S(34) = 0.1000000D+01
         E(35) = 0.1861800D-01
         S(35) = 0.1000000D+01
         E(36) = 0.1156800D+04
         P(36) = 0.1583500D-03
         E(37) = 0.2744200D+03
         P(37) = 0.1371600D-02
         E(38) = 0.8913900D+02
         P(38) = 0.7408600D-02
         E(39) = 0.3325900D+02
         P(39) = 0.3121400D-01
         E(40) = 0.1355700D+02
         P(40) = 0.9092000D-01
         E(41) = 0.5962400D+01
         P(41) = 0.2013700D+00
         E(42) = 0.2682400D+01
         P(42) = 0.3073200D+00
         E(43) = 0.1197100D+01
         P(43) = 0.3334700D+00
         E(44) = 0.5178900D+00
         P(44) = 0.2294700D+00
         E(45) = 0.2133100D+00
         P(45) = 0.1000000D+01
         E(46) = 0.1000000D+00
         P(46) = 0.1000000D+01
         E(47) = 0.3700000D-01
         P(47) = 0.1000000D+01
         E(48) = 0.9100000D+00
         D(48) = 0.1000000D+01
         E(49) = 0.1900000D+00
         D(49) = 0.1000000D+01
         E(50) = 0.2700000D+00
         F(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.1918700D+07
         S(1) = 0.2742900D-05
         E(2) = 0.2872700D+06
         S(2) = 0.2133200D-04
         E(3) = 0.6538200D+05
         S(3) = 0.1122100D-03
         E(4) = 0.1852300D+05
         S(4) = 0.4736900D-03
         E(5) = 0.6045400D+04
         S(5) = 0.1723500D-02
         E(6) = 0.2184200D+04
         S(6) = 0.5591400D-02
         E(7) = 0.8531100D+03
         S(7) = 0.1646100D-01
         E(8) = 0.3546900D+03
         S(8) = 0.4377600D-01
         E(9) = 0.1553300D+03
         S(9) = 0.1026600D+00
         E(10) = 0.7123400D+02
         S(10) = 0.2007400D+00
         E(11) = 0.3383500D+02
         S(11) = 0.3095200D+00
         E(12) = 0.1634900D+02
         S(12) = 0.3082600D+00
         E(13) = 0.8008200D+01
         S(13) = 0.1485500D+00
         E(14) = 0.3671300D+01
         S(14) = 0.1711300D-01
         E(15) = 0.1711800D+01
         S(15) = -.1554100D-02
         E(16) = 0.2184200D+04
         S(16) = -.1790200D-04
         E(17) = 0.8531100D+03
         S(17) = -.6497800D-04
         E(18) = 0.3546900D+03
         S(18) = -.6090900D-03
         E(19) = 0.1553300D+03
         S(19) = -.2609400D-02
         E(20) = 0.7123400D+02
         S(20) = -.1329500D-01
         E(21) = 0.3383500D+02
         S(21) = -.3986700D-01
         E(22) = 0.1634900D+02
         S(22) = -.9610800D-01
         E(23) = 0.8008200D+01
         S(23) = -.7047900D-01
         E(24) = 0.3671300D+01
         S(24) = 0.2456500D+00
         E(25) = 0.1711800D+01
         S(25) = 0.5536200D+00
         E(26) = 0.7914700D+00
         S(26) = 0.4586900D+00
         E(27) = 0.6045400D+04
         S(27) = -.1444600D-05
         E(28) = 0.2184200D+04
         S(28) = -.1305700D-04
         E(29) = 0.8531100D+03
         S(29) = -.9741700D-04
         E(30) = 0.3546900D+03
         S(30) = -.6378700D-03
         E(31) = 0.1553300D+03
         S(31) = -.3339400D-02
         E(32) = 0.7123400D+02
         S(32) = -.1514500D-01
         E(33) = 0.3383500D+02
         S(33) = -.4907900D-01
         E(34) = 0.1634900D+02
         S(34) = -.1086500D+00
         E(35) = 0.8008200D+01
         S(35) = -.8852700D-01
         E(36) = 0.3671300D+01
         S(36) = 0.2936600D+00
         E(37) = 0.1711800D+01
         S(37) = 0.4791500D+00
         E(38) = 0.7914700D+00
         S(38) = 0.1568000D+00
         E(39) = 0.3547900D+00
         S(39) = -.5785300D+00
         E(40) = 0.9066400D-01
         S(40) = 0.1000000D+01
         E(41) = 0.4431300D-01
         S(41) = 0.1000000D+01
         E(42) = 0.2194800D-01
         S(42) = 0.1000000D+01
         E(43) = 0.1082100D-01
         S(43) = 0.1000000D+01
         E(44) = 0.3044200D+04
         P(44) = 0.2935500D-04
         E(45) = 0.7200200D+03
         P(45) = 0.2610000D-03
         E(46) = 0.2344200D+03
         P(46) = 0.1481900D-02
         E(47) = 0.8966600D+02
         P(47) = 0.6481500D-02
         E(48) = 0.3669500D+02
         P(48) = 0.2480300D-01
         E(49) = 0.1625600D+02
         P(49) = 0.6595400D-01
         E(50) = 0.7659300D+01
         P(50) = 0.1479400D+00
         E(51) = 0.3712500D+01
         P(51) = 0.2440000D+00
         E(52) = 0.1799200D+01
         P(52) = 0.3024400D+00
         E(53) = 0.8628800D+00
         P(53) = 0.2755700D+00
         E(54) = 0.4010400D+00
         P(54) = 0.1621900D+00
         E(55) = 0.1775900D+00
         P(55) = 0.1000000D+01
         E(56) = 0.8070000D-01
         P(56) = 0.1000000D+01
         E(57) = 0.3670000D-01
         P(57) = 0.1000000D+01
         E(58) = 0.1670000D-01
         P(58) = 0.1000000D+01
         E(59) = 0.2350000D+01
         D(59) = 0.1000000D+01
         E(60) = 0.5600000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1400000D+00
         D(61) = 0.1000000D+01
         E(62) = 0.1080000D+01
         F(62) = 0.1000000D+01
         E(63) = 0.2400000D+00
         F(63) = 0.1000000D+01
CFRJ     E(64) = 0.3000000D+00
CFRJ     G(64) = 0.1000000D+01
         ILAST = 63
      ENDIF
      RETURN
C
C     ----- MG -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.5520800D+04
         S(1) = 0.2525400D-02
         E(2) = 0.8305600D+03
         S(2) = 0.1893200D-01
         E(3) = 0.1888100D+03
         S(3) = 0.8556500D-01
         E(4) = 0.5263800D+02
         S(4) = 0.2277600D+00
         E(5) = 0.1623300D+02
         S(5) = 0.2356500D+00
         E(6) = 0.8305600D+03
         S(6) = -.1519000D-03
         E(7) = 0.1888100D+03
         S(7) = -.8748400D-03
         E(8) = 0.5263800D+02
         S(8) = -.1460700D-01
         E(9) = 0.1623300D+02
         S(9) = -.3034900D-01
         E(10) = 0.2927500D+01
         S(10) = 0.1036000D+00
         E(11) = 0.1888100D+03
         S(11) = -.1160400D-02
         E(12) = 0.5263800D+02
         S(12) = -.9884500D-02
         E(13) = 0.1623300D+02
         S(13) = -.4341600D-01
         E(14) = 0.2927500D+01
         S(14) = 0.3119600D+00
         E(15) = 0.9478600D+00
         S(15) = 0.7264500D+00
         E(16) = 0.7636100D-01
         S(16) = 0.1000000D+01
         E(17) = 0.4945300D+02
         P(17) = 0.2173900D-01
         E(18) = 0.1111600D+02
         P(18) = 0.1169000D+00
         E(19) = 0.3127300D+01
         P(19) = 0.2599300D+00
         E(20) = 0.8594000D+00
         P(20) = 0.2110800D+00
         E(21) = 0.1600000D+00
         P(21) = 0.1000000D+01
         ILAST = 21
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.2870600D+05
         S(1) = 0.3251300D-03
         E(2) = 0.4306600D+04
         S(2) = 0.2507600D-02
         E(3) = 0.9805400D+03
         S(3) = 0.1283700D-01
         E(4) = 0.2777600D+03
         S(4) = 0.4896400D-01
         E(5) = 0.9038600D+02
         S(5) = 0.1351700D+00
         E(6) = 0.3237400D+02
         S(6) = 0.2219300D+00
         E(7) = 0.1217700D+02
         S(7) = 0.1465700D+00
         E(8) = 0.2816600D+01
         S(8) = 0.1198000D-01
         E(9) = 0.4306600D+04
         S(9) = -.1305600D-04
         E(10) = 0.9805400D+03
         S(10) = -.1798000D-04
         E(11) = 0.2777600D+03
         S(11) = -.1003600D-02
         E(12) = 0.9038600D+02
         S(12) = -.4681900D-02
         E(13) = 0.3237400D+02
         S(13) = -.3305100D-01
         E(14) = 0.1217700D+02
         S(14) = -.3271800D-01
         E(15) = 0.2816600D+01
         S(15) = 0.2603900D+00
         E(16) = 0.9217300D+00
         S(16) = 0.3080800D+00
         E(17) = 0.9805400D+03
         S(17) = 0.1162700D-05
         E(18) = 0.2777600D+03
         S(18) = 0.1350900D-04
         E(19) = 0.9038600D+02
         S(19) = 0.1354200D-03
         E(20) = 0.3237400D+02
         S(20) = 0.7536000D-03
         E(21) = 0.1217700D+02
         S(21) = 0.1509800D-02
         E(22) = 0.2816600D+01
         S(22) = -.1906800D-01
         E(23) = 0.9217300D+00
         S(23) = -.7524100D-01
         E(24) = 0.1270900D+00
         S(24) = 0.2716100D+00
         E(25) = 0.4608000D-01
         S(25) = 0.1000000D+01
         E(26) = 0.1776000D+03
         P(26) = 0.2825900D-02
         E(27) = 0.4144200D+02
         P(27) = 0.2110300D-01
         E(28) = 0.1281800D+02
         P(28) = 0.8266600D-01
         E(29) = 0.4517400D+01
         P(29) = 0.1828500D+00
         E(30) = 0.1612800D+01
         P(30) = 0.2235700D+00
         E(31) = 0.5453100D+00
         P(31) = 0.1086900D+00
         E(32) = 0.1350000D+00
         P(32) = 0.1000000D+01
         ILAST = 32
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.8101700D+05
         S(1) = 0.8905300D-04
         E(2) = 0.1214300D+05
         S(2) = 0.6908800D-03
         E(3) = 0.2763800D+04
         S(3) = 0.3599900D-02
         E(4) = 0.7825800D+03
         S(4) = 0.1472100D-01
         E(5) = 0.2550300D+03
         S(5) = 0.4857200D-01
         E(6) = 0.9162300D+02
         S(6) = 0.1227900D+00
         E(7) = 0.3524500D+02
         S(7) = 0.2050600D+00
         E(8) = 0.1396000D+02
         S(8) = 0.1591300D+00
         E(9) = 0.4742200D+01
         S(9) = 0.2509900D-01
         E(10) = 0.1214300D+05
         S(10) = -.5213400D-06
         E(11) = 0.2763800D+04
         S(11) = -.4075300D-05
         E(12) = 0.7825800D+03
         S(12) = -.8248300D-04
         E(13) = 0.2550300D+03
         S(13) = -.7072700D-03
         E(14) = 0.9162300D+02
         S(14) = -.5491300D-02
         E(15) = 0.3524500D+02
         S(15) = -.2385900D-01
         E(16) = 0.1396000D+02
         S(16) = -.4982700D-01
         E(17) = 0.4742200D+01
         S(17) = 0.8349700D-01
         E(18) = 0.1928400D+01
         S(18) = 0.1956300D+00
         E(19) = 0.2763800D+04
         S(19) = -.1191000D-04
         E(20) = 0.7825800D+03
         S(20) = -.1478100D-03
         E(21) = 0.2550300D+03
         S(21) = -.1687200D-02
         E(22) = 0.9162300D+02
         S(22) = -.1186400D-01
         E(23) = 0.3524500D+02
         S(23) = -.5598300D-01
         E(24) = 0.1396000D+02
         S(24) = -.1131100D+00
         E(25) = 0.4742200D+01
         S(25) = 0.1878900D+00
         E(26) = 0.1928400D+01
         S(26) = 0.7175200D+00
         E(27) = 0.7242400D+00
         S(27) = 0.5395600D+00
         E(28) = 0.1235300D+00
         S(28) = 0.1000000D+01
         E(29) = 0.4303200D-01
         S(29) = 0.1000000D+01
         E(30) = 0.3090500D+03
         P(30) = 0.1113000D-02
         E(31) = 0.7289400D+02
         P(31) = 0.8756900D-02
         E(32) = 0.2349400D+02
         P(32) = 0.3825400D-01
         E(33) = 0.8561900D+01
         P(33) = 0.1109500D+00
         E(34) = 0.3306800D+01
         P(34) = 0.1917400D+00
         E(35) = 0.1269400D+01
         P(35) = 0.1945700D+00
         E(36) = 0.4610600D+00
         P(36) = 0.7820400D-01
         E(37) = 0.1770000D+00
         P(37) = 0.1000000D+01
         E(38) = 0.5700000D-01
         P(38) = 0.1000000D+01
         E(39) = 0.3000000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.5647900D+06
         S(1) = 0.7876300D-05
         E(2) = 0.8458900D+05
         S(2) = 0.6121500D-04
         E(3) = 0.1925100D+05
         S(3) = 0.3217900D-03
         E(4) = 0.5452800D+04
         S(4) = 0.1353800D-02
         E(5) = 0.1779100D+04
         S(5) = 0.4878000D-02
         E(6) = 0.6425800D+03
         S(6) = 0.1537600D-01
         E(7) = 0.2509200D+03
         S(7) = 0.4208100D-01
         E(8) = 0.1041900D+03
         S(8) = 0.9518700D-01
         E(9) = 0.4527500D+02
         S(9) = 0.1641400D+00
         E(10) = 0.2031800D+02
         S(10) = 0.1711900D+00
         E(11) = 0.9331900D+01
         S(11) = 0.7662600D-01
         E(12) = 0.3697800D+01
         S(12) = 0.6378700D-02
         E(13) = 0.5452800D+04
         S(13) = -.2986700D-05
         E(14) = 0.1779100D+04
         S(14) = -.6391200D-05
         E(15) = 0.6425800D+03
         S(15) = -.1309600D-03
         E(16) = 0.2509200D+03
         S(16) = -.6078100D-03
         E(17) = 0.1041900D+03
         S(17) = -.4213600D-02
         E(18) = 0.4527500D+02
         S(18) = -.1490900D-01
         E(19) = 0.2031800D+02
         S(19) = -.4186800D-01
         E(20) = 0.9331900D+01
         S(20) = -.2166700D-01
         E(21) = 0.3697800D+01
         S(21) = 0.1459900D+00
         E(22) = 0.1572500D+01
         S(22) = 0.2016600D+00
         E(23) = 0.1779100D+04
         S(23) = 0.3796800D-05
         E(24) = 0.6425800D+03
         S(24) = 0.3104800D-04
         E(25) = 0.2509200D+03
         S(25) = 0.2228400D-03
         E(26) = 0.1041900D+03
         S(26) = 0.1209200D-02
         E(27) = 0.4527500D+02
         S(27) = 0.4766600D-02
         E(28) = 0.2031800D+02
         S(28) = 0.1026900D-01
         E(29) = 0.9331900D+01
         S(29) = 0.4710000D-02
         E(30) = 0.3697800D+01
         S(30) = -.1339800D-01
         E(31) = 0.1572500D+01
         S(31) = 0.2348200D+00
         E(32) = 0.6494900D+00
         S(32) = 0.4879100D+00
         E(33) = 0.1590100D+00
         S(33) = 0.1000000D+01
         E(34) = 0.7166500D-01
         S(34) = 0.1000000D+01
         E(35) = 0.2994200D-01
         S(35) = 0.1000000D+01
         E(36) = 0.1516900D+04
         P(36) = 0.7160800D-04
         E(37) = 0.3597900D+03
         P(37) = 0.6231400D-03
         E(38) = 0.1167600D+03
         P(38) = 0.3413600D-02
         E(39) = 0.4358000D+02
         P(39) = 0.1453100D-01
         E(40) = 0.1792600D+02
         P(40) = 0.4287000D-01
         E(41) = 0.7935600D+01
         P(41) = 0.9778900D-01
         E(42) = 0.3603800D+01
         P(42) = 0.1545700D+00
         E(43) = 0.1644100D+01
         P(43) = 0.1682800D+00
         E(44) = 0.7411200D+00
         P(44) = 0.1133300D+00
         E(45) = 0.3166600D+00
         P(45) = 0.1000000D+01
         E(46) = 0.1490000D+00
         P(46) = 0.1000000D+01
         E(47) = 0.5500000D-01
         P(47) = 0.1000000D+01
         E(48) = 0.1200000D+01
         D(48) = 0.1000000D+01
         E(49) = 0.2500000D+00
         D(49) = 0.1000000D+01
         E(50) = 0.3300000D+00
         F(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.3199100D+07
         S(1) = 0.9018900D-06
         E(2) = 0.4790000D+06
         S(2) = 0.7011500D-05
         E(3) = 0.1090100D+06
         S(3) = 0.3689200D-04
         E(4) = 0.3087800D+05
         S(4) = 0.1558400D-03
         E(5) = 0.1007500D+05
         S(5) = 0.5678400D-03
         E(6) = 0.3637900D+04
         S(6) = 0.1849300D-02
         E(7) = 0.1419500D+04
         S(7) = 0.5488600D-02
         E(8) = 0.5893500D+03
         S(8) = 0.1487100D-01
         E(9) = 0.2575300D+03
         S(9) = 0.3631500D-01
         E(10) = 0.1171700D+03
         S(10) = 0.7751300D-01
         E(11) = 0.5476200D+02
         S(11) = 0.1359300D+00
         E(12) = 0.2628800D+02
         S(12) = 0.1649000D+00
         E(13) = 0.1286000D+02
         S(13) = 0.1124000D+00
         E(14) = 0.6260400D+01
         S(14) = 0.2650100D-01
         E(15) = 0.2851400D+01
         S(15) = 0.6822200D-04
         E(16) = 0.3637900D+04
         S(16) = -.3361500D-05
         E(17) = 0.1419500D+04
         S(17) = -.1118600D-04
         E(18) = 0.5893500D+03
         S(18) = -.1112600D-03
         E(19) = 0.2575300D+03
         S(19) = -.5000000D-03
         E(20) = 0.1171700D+03
         S(20) = -.2664100D-02
         E(21) = 0.5476200D+02
         S(21) = -.9834800D-02
         E(22) = 0.2628800D+02
         S(22) = -.2596400D-01
         E(23) = 0.1286000D+02
         S(23) = -.3988900D-01
         E(24) = 0.6260400D+01
         S(24) = 0.2928600D-01
         E(25) = 0.2851400D+01
         S(25) = 0.1670000D+00
         E(26) = 0.1305800D+01
         S(26) = 0.1568900D+00
         E(27) = 0.1419500D+04
         S(27) = 0.1387200D-05
         E(28) = 0.5893500D+03
         S(28) = 0.1097400D-04
         E(29) = 0.2575300D+03
         S(29) = 0.5638300D-04
         E(30) = 0.1171700D+03
         S(30) = 0.2601000D-03
         E(31) = 0.5476200D+02
         S(31) = 0.9269600D-03
         E(32) = 0.2628800D+02
         S(32) = 0.1400200D-02
         E(33) = 0.1286000D+02
         S(33) = 0.2103200D-03
         E(34) = 0.6260400D+01
         S(34) = -.1393600D-02
         E(35) = 0.2851400D+01
         S(35) = 0.6338500D-01
         E(36) = 0.1305800D+01
         S(36) = 0.3517800D+00
         E(37) = 0.5833100D+00
         S(37) = 0.4598000D+00
         E(38) = 0.1684900D+00
         S(38) = 0.1000000D+01
         E(39) = 0.8564600D-01
         S(39) = 0.1000000D+01
         E(40) = 0.4507700D-01
         S(40) = 0.1000000D+01
         E(41) = 0.2193400D-01
         S(41) = 0.1000000D+01
         E(42) = 0.4157800D+04
         P(42) = 0.1234200D-04
         E(43) = 0.9845300D+03
         P(43) = 0.1097800D-03
         E(44) = 0.3200900D+03
         P(44) = 0.6308600D-03
         E(45) = 0.1217300D+03
         P(45) = 0.2833100D-02
         E(46) = 0.4989200D+02
         P(46) = 0.1077300D-01
         E(47) = 0.2254200D+02
         P(47) = 0.2877200D-01
         E(48) = 0.1074900D+02
         P(48) = 0.6653700D-01
         E(49) = 0.5289900D+01
         P(49) = 0.1155700D+00
         E(50) = 0.2599600D+01
         P(50) = 0.1541700D+00
         E(51) = 0.1251800D+01
         P(51) = 0.1466500D+00
         E(52) = 0.5924600D+00
         P(52) = 0.8190400D-01
         E(53) = 0.2694100D+00
         P(53) = 0.1000000D+01
         E(54) = 0.1225000D+00
         P(54) = 0.1000000D+01
         E(55) = 0.5570000D-01
         P(55) = 0.1000000D+01
         E(56) = 0.2530000D-01
         P(56) = 0.1000000D+01
         E(57) = 0.3360000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.8000000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.2000000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.1350000D+01
         F(60) = 0.1000000D+01
         E(61) = 0.3000000D+00
         F(61) = 0.1000000D+01
CFRJ     E(62) = 0.3500000D+00
CFRJ     G(62) = 0.1000000D+01
         ILAST = 61
      ENDIF
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.6587100D+04
         S(1) = 0.4957000D-02
         E(2) = 0.9909200D+03
         S(2) = 0.3722300D-01
         E(3) = 0.2252900D+03
         S(3) = 0.1687500D+00
         E(4) = 0.6286600D+02
         S(4) = 0.4550500D+00
         E(5) = 0.1943200D+02
         S(5) = 0.4801000D+00
         E(6) = 0.9909200D+03
         S(6) = -.2952500D-03
         E(7) = 0.2252900D+03
         S(7) = -.1567400D-02
         E(8) = 0.6286600D+02
         S(8) = -.2743400D-01
         E(9) = 0.1943200D+02
         S(9) = -.5560000D-01
         E(10) = 0.3620700D+01
         S(10) = 0.1518800D+00
         E(11) = 0.2252900D+03
         S(11) = -.3438300D-03
         E(12) = 0.6286600D+02
         S(12) = -.2938100D-02
         E(13) = 0.1943200D+02
         S(13) = -.1304700D-01
         E(14) = 0.3620700D+01
         S(14) = 0.8567900D-01
         E(15) = 0.1228800D+01
         S(15) = 0.1802500D+00
         E(16) = 0.1206800D+00
         S(16) = 0.1000000D+01
         E(17) = 0.7236500D+02
         P(17) = 0.3295300D-01
         E(18) = 0.1654300D+02
         P(18) = 0.1898900D+00
         E(19) = 0.4823900D+01
         P(19) = 0.4748900D+00
         E(20) = 0.1433600D+01
         P(20) = 0.4803300D+00
         E(21) = 0.1654300D+02
         P(21) = -.3060700D-03
         E(22) = 0.4823900D+01
         P(22) = -.8125400D-02
         E(23) = 0.1433600D+01
         P(23) = 0.5821600D-02
         E(24) = 0.2768900D+00
         P(24) = 0.3783100D+00
         E(25) = 0.6985600D-01
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.3470200D+05
         S(1) = 0.6277800D-03
         E(2) = 0.5205900D+04
         S(2) = 0.4843200D-02
         E(3) = 0.1185200D+04
         S(3) = 0.2481700D-01
         E(4) = 0.3357000D+03
         S(4) = 0.9502800D-01
         E(5) = 0.1092300D+03
         S(5) = 0.2647400D+00
         E(6) = 0.3912000D+02
         S(6) = 0.4427400D+00
         E(7) = 0.1470900D+02
         S(7) = 0.3013400D+00
         E(8) = 0.3489600D+01
         S(8) = 0.2681700D-01
         E(9) = 0.5205900D+04
         S(9) = -.2387900D-04
         E(10) = 0.1185200D+04
         S(10) = -.3936600D-04
         E(11) = 0.3357000D+03
         S(11) = -.1916800D-02
         E(12) = 0.1092300D+03
         S(12) = -.9436200D-02
         E(13) = 0.3912000D+02
         S(13) = -.6573900D-01
         E(14) = 0.1470900D+02
         S(14) = -.7223200D-01
         E(15) = 0.3489600D+01
         S(15) = 0.5092400D+00
         E(16) = 0.1193600D+01
         S(16) = 0.6297200D+00
         E(17) = 0.1185200D+04
         S(17) = 0.4512800D-05
         E(18) = 0.3357000D+03
         S(18) = 0.5322600D-04
         E(19) = 0.1092300D+03
         S(19) = 0.5333300D-03
         E(20) = 0.3912000D+02
         S(20) = 0.2875400D-02
         E(21) = 0.1470900D+02
         S(21) = 0.5673400D-02
         E(22) = 0.3489600D+01
         S(22) = -.5813300D-01
         E(23) = 0.1193600D+01
         S(23) = -.1875300D+00
         E(24) = 0.1958500D+00
         S(24) = 0.5857000D+00
         E(25) = 0.7143900D-01
         S(25) = 0.1000000D+01
         E(26) = 0.2543600D+03
         P(26) = 0.4290300D-02
         E(27) = 0.5951400D+02
         P(27) = 0.3305500D-01
         E(28) = 0.1870800D+02
         P(28) = 0.1348600D+00
         E(29) = 0.6736200D+01
         P(29) = 0.3283600D+00
         E(30) = 0.2504500D+01
         P(30) = 0.4479800D+00
         E(31) = 0.9082000D+00
         P(31) = 0.2704000D+00
         E(32) = 0.5951400D+02
         P(32) = 0.1075600D-03
         E(33) = 0.1870800D+02
         P(33) = -.8198100D-03
         E(34) = 0.6736200D+01
         P(34) = -.1421600D-02
         E(35) = 0.2504500D+01
         P(35) = -.1493000D-01
         E(36) = 0.9082000D+00
         P(36) = 0.4377900D-01
         E(37) = 0.2090900D+00
         P(37) = 0.4903900D+00
         E(38) = 0.5699000D-01
         P(38) = 0.1000000D+01
         E(39) = 0.4000000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.9974100D+05
         S(1) = 0.1680900D-03
         E(2) = 0.1494900D+05
         S(2) = 0.1304100D-02
         E(3) = 0.3402500D+04
         S(3) = 0.6797900D-02
         E(4) = 0.9635300D+03
         S(4) = 0.2784000D-01
         E(5) = 0.3140500D+03
         S(5) = 0.9235800D-01
         E(6) = 0.1128800D+03
         S(6) = 0.2363300D+00
         E(7) = 0.4347400D+02
         S(7) = 0.4048400D+00
         E(8) = 0.1729200D+02
         S(8) = 0.3299200D+00
         E(9) = 0.6162200D+01
         S(9) = 0.5852100D-01
         E(10) = 0.1494900D+05
         S(10) = -.4800000D-06
         E(11) = 0.3402500D+04
         S(11) = -.2047400D-05
         E(12) = 0.9635300D+03
         S(12) = -.5573300D-04
         E(13) = 0.3140500D+03
         S(13) = -.4185300D-03
         E(14) = 0.1128800D+03
         S(14) = -.3481300D-02
         E(15) = 0.4347400D+02
         S(15) = -.1486400D-01
         E(16) = 0.1729200D+02
         S(16) = -.3401200D-01
         E(17) = 0.6162200D+01
         S(17) = 0.4389600D-01
         E(18) = 0.2522600D+01
         S(18) = 0.1195800D+00
         E(19) = 0.3402500D+04
         S(19) = -.5558000D-05
         E(20) = 0.9635300D+03
         S(20) = -.6904700D-04
         E(21) = 0.3140500D+03
         S(21) = -.7908500D-03
         E(22) = 0.1128800D+03
         S(22) = -.5641400D-02
         E(23) = 0.4347400D+02
         S(23) = -.2728800D-01
         E(24) = 0.1729200D+02
         S(24) = -.5953800D-01
         E(25) = 0.6162200D+01
         S(25) = 0.7239300D-01
         E(26) = 0.2522600D+01
         S(26) = 0.4122600D+00
         E(27) = 0.9687400D+00
         S(27) = 0.3916500D+00
         E(28) = 0.1925100D+00
         S(28) = 0.1000000D+01
         E(29) = 0.6781300D-01
         S(29) = 0.1000000D+01
         E(30) = 0.5797100D+03
         P(30) = 0.1056100D-02
         E(31) = 0.1375400D+03
         P(31) = 0.8633500D-02
         E(32) = 0.4406700D+02
         P(32) = 0.4322700D-01
         E(33) = 0.1614800D+02
         P(33) = 0.1416800D+00
         E(34) = 0.6488800D+01
         P(34) = 0.3035200D+00
         E(35) = 0.2663200D+01
         P(35) = 0.4038900D+00
         E(36) = 0.1079200D+01
         P(36) = 0.2864200D+00
         E(37) = 0.1375400D+03
         P(37) = 0.2966600D-04
         E(38) = 0.4406700D+02
         P(38) = -.1059300D-03
         E(39) = 0.1614800D+02
         P(39) = -.1737000D-03
         E(40) = 0.6488800D+01
         P(40) = -.4431500D-02
         E(41) = 0.2663200D+01
         P(41) = -.4413400D-02
         E(42) = 0.1079200D+01
         P(42) = -.1072300D-02
         E(43) = 0.3977100D+00
         P(43) = 0.1765000D+00
         E(44) = 0.1347500D+00
         P(44) = 0.1000000D+01
         E(45) = 0.4218500D-01
         P(45) = 0.1000000D+01
         E(46) = 0.1470000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.3300000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.4800000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.7214900D+06
         S(1) = 0.1419200D-04
         E(2) = 0.1080900D+06
         S(2) = 0.1102600D-03
         E(3) = 0.2460500D+05
         S(3) = 0.5794600D-03
         E(4) = 0.6971400D+04
         S(4) = 0.2437900D-02
         E(5) = 0.2274900D+04
         S(5) = 0.8794500D-02
         E(6) = 0.8216000D+03
         S(6) = 0.2782100D-01
         E(7) = 0.3207800D+03
         S(7) = 0.7681600D-01
         E(8) = 0.1331500D+03
         S(8) = 0.1771000D+00
         E(9) = 0.5781700D+02
         S(9) = 0.3160300D+00
         E(10) = 0.2595400D+02
         S(10) = 0.3510800D+00
         E(11) = 0.1189900D+02
         S(11) = 0.1761900D+00
         E(12) = 0.4749900D+01
         S(12) = 0.1826800D-01
         E(13) = 0.6971400D+04
         S(13) = -.4933300D-05
         E(14) = 0.2274900D+04
         S(14) = -.8625700D-05
         E(15) = 0.8216000D+03
         S(15) = -.2037300D-03
         E(16) = 0.3207800D+03
         S(16) = -.9145500D-03
         E(17) = 0.1331500D+03
         S(17) = -.6578400D-02
         E(18) = 0.5781700D+02
         S(18) = -.2395500D-01
         E(19) = 0.2595400D+02
         S(19) = -.7103100D-01
         E(20) = 0.1189900D+02
         S(20) = -.5045400D-01
         E(21) = 0.4749900D+01
         S(21) = 0.2231100D+00
         E(22) = 0.2068800D+01
         S(22) = 0.3470800D+00
         E(23) = 0.2274900D+04
         S(23) = -.1591300D-06
         E(24) = 0.8216000D+03
         S(24) = -.1317700D-05
         E(25) = 0.3207800D+03
         S(25) = -.9822500D-05
         E(26) = 0.1331500D+03
         S(26) = -.6244000D-04
         E(27) = 0.5781700D+02
         S(27) = -.3082500D-03
         E(28) = 0.2595400D+02
         S(28) = -.1258800D-02
         E(29) = 0.1189900D+02
         S(29) = -.1861200D-02
         E(30) = 0.4749900D+01
         S(30) = 0.1120900D-01
         E(31) = 0.2068800D+01
         S(31) = 0.8354100D-01
         E(32) = 0.8777900D+00
         S(32) = 0.1346600D+00
         E(33) = 0.2495100D+00
         S(33) = 0.1000000D+01
         E(34) = 0.1146200D+00
         S(34) = 0.1000000D+01
         E(35) = 0.4819300D-01
         S(35) = 0.1000000D+01
         E(36) = 0.2019700D+04
         P(36) = 0.1215600D-03
         E(37) = 0.4786300D+03
         P(37) = 0.1060700D-02
         E(38) = 0.1550200D+03
         P(38) = 0.5936500D-02
         E(39) = 0.5790400D+02
         P(39) = 0.2538200D-01
         E(40) = 0.2414000D+02
         P(40) = 0.7618800D-01
         E(41) = 0.1078900D+02
         P(41) = 0.1799700D+00
         E(42) = 0.4973000D+01
         P(42) = 0.3027500D+00
         E(43) = 0.2316100D+01
         P(43) = 0.3447800D+00
         E(44) = 0.1079100D+01
         P(44) = 0.2376300D+00
         E(45) = 0.4786300D+03
         P(45) = 0.5423600D-04
         E(46) = 0.1550200D+03
         P(46) = -.3764700D-04
         E(47) = 0.5790400D+02
         P(47) = 0.8936400D-03
         E(48) = 0.2414000D+02
         P(48) = -.3590300D-02
         E(49) = 0.1078900D+02
         P(49) = -.3689700D-02
         E(50) = 0.4973000D+01
         P(50) = -.5406900D-01
         E(51) = 0.2316100D+01
         P(51) = -.3337300D-01
         E(52) = 0.1079100D+01
         P(52) = 0.4547300D-02
         E(53) = 0.4915900D+00
         P(53) = 0.8705400D+00
         E(54) = 0.2048200D+00
         P(54) = 0.1000000D+01
         E(55) = 0.7925600D-01
         P(55) = 0.1000000D+01
         E(56) = 0.2892800D-01
         P(56) = 0.1000000D+01
         E(57) = 0.5600000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.1470000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.4400000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.1600000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.9600000D+00
         F(61) = 0.1000000D+01
         E(62) = 0.3200000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.5800000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.3845200D+07
         S(1) = 0.1753800D-05
         E(2) = 0.5752600D+06
         S(2) = 0.1365400D-04
         E(3) = 0.1308600D+06
         S(3) = 0.7186900D-04
         E(4) = 0.3706300D+05
         S(4) = 0.3035500D-03
         E(5) = 0.1209400D+05
         S(5) = 0.1106000D-02
         E(6) = 0.4366800D+04
         S(6) = 0.3603500D-02
         E(7) = 0.1703600D+04
         S(7) = 0.1070200D-01
         E(8) = 0.7071300D+03
         S(8) = 0.2903600D-01
         E(9) = 0.3089700D+03
         S(9) = 0.7104500D-01
         E(10) = 0.1407100D+03
         S(10) = 0.1519500D+00
         E(11) = 0.6591700D+02
         S(11) = 0.2679200D+00
         E(12) = 0.3173000D+02
         S(12) = 0.3291400D+00
         E(13) = 0.1558700D+02
         S(13) = 0.2299800D+00
         E(14) = 0.7638200D+01
         S(14) = 0.5743300D-01
         E(15) = 0.3545400D+01
         S(15) = 0.4026000D-03
         E(16) = 0.4366800D+04
         S(16) = -.1132500D-04
         E(17) = 0.1703600D+04
         S(17) = -.6005000D-04
         E(18) = 0.7071300D+03
         S(18) = -.4634400D-03
         E(19) = 0.3089700D+03
         S(19) = -.2378000D-02
         E(20) = 0.1407100D+03
         S(20) = -.1184200D-01
         E(21) = 0.6591700D+02
         S(21) = -.4567500D-01
         E(22) = 0.3173000D+02
         S(22) = -.1186400D+00
         E(23) = 0.1558700D+02
         S(23) = -.1908800D+00
         E(24) = 0.7638200D+01
         S(24) = 0.1242100D+00
         E(25) = 0.3545400D+01
         S(25) = 0.7235300D+00
         E(26) = 0.1667900D+01
         S(26) = 0.7566500D+00
         E(27) = 0.1209400D+05
         S(27) = -.1091200D-05
         E(28) = 0.4366800D+04
         S(28) = -.1049900D-04
         E(29) = 0.1703600D+04
         S(29) = -.7868000D-04
         E(30) = 0.7071300D+03
         S(30) = -.5202300D-03
         E(31) = 0.3089700D+03
         S(31) = -.2915200D-02
         E(32) = 0.1407100D+03
         S(32) = -.1384800D-01
         E(33) = 0.6591700D+02
         S(33) = -.5496800D-01
         E(34) = 0.3173000D+02
         S(34) = -.1385000D+00
         E(35) = 0.1558700D+02
         S(35) = -.2266300D+00
         E(36) = 0.7638200D+01
         S(36) = 0.1545400D+00
         E(37) = 0.3545400D+01
         S(37) = 0.7584400D+00
         E(38) = 0.1667900D+01
         S(38) = 0.5313400D+00
         E(39) = 0.7693900D+00
         S(39) = -.5036200D+00
         E(40) = 0.2791700D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1401600D+00
         S(41) = 0.1000000D+01
         E(42) = 0.7033600D-01
         S(42) = 0.1000000D+01
         E(43) = 0.3366000D-01
         S(43) = 0.1000000D+01
         E(44) = 0.5687300D+04
         P(44) = 0.1998200D-04
         E(45) = 0.1345200D+04
         P(45) = 0.1772800D-03
         E(46) = 0.4363800D+03
         P(46) = 0.1037100D-02
         E(47) = 0.1654500D+03
         P(47) = 0.4700600D-02
         E(48) = 0.6861900D+02
         P(48) = 0.1742700D-01
         E(49) = 0.3187500D+02
         P(49) = 0.4664300D-01
         E(50) = 0.1543200D+02
         P(50) = 0.1122400D+00
         E(51) = 0.7757000D+01
         P(51) = 0.2045700D+00
         E(52) = 0.3925600D+01
         P(52) = 0.2982800D+00
         E(53) = 0.1976400D+01
         P(53) = 0.3014200D+00
         E(54) = 0.9991800D+00
         P(54) = 0.1890500D+00
         E(55) = 0.1345200D+04
         P(55) = 0.1009500D-04
         E(56) = 0.1654500D+03
         P(56) = 0.2285800D-03
         E(57) = 0.6861900D+02
         P(57) = -.2652800D-03
         E(58) = 0.3187500D+02
         P(58) = 0.1551000D-02
         E(59) = 0.1543200D+02
         P(59) = -.9044700D-02
         E(60) = 0.7757000D+01
         P(60) = -.3616700D-02
         E(61) = 0.3925600D+01
         P(61) = -.7048600D-01
         E(62) = 0.1976400D+01
         P(62) = -.1171600D-01
         E(63) = 0.9991800D+00
         P(63) = 0.4407300D-01
         E(64) = 0.5063000D+00
         P(64) = 0.5531000D+00
         E(65) = 0.2584700D+00
         P(65) = 0.1000000D+01
         E(66) = 0.1156600D+00
         P(66) = 0.1000000D+01
         E(67) = 0.5104800D-01
         P(67) = 0.1000000D+01
         E(68) = 0.2120000D-01
         P(68) = 0.1000000D+01
         E(69) = 0.1781000D+02
         D(69) = 0.1000000D+01
         E(70) = 0.5090000D+01
         D(70) = 0.1000000D+01
         E(71) = 0.1750000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.6300000D+00
         D(72) = 0.1000000D+01
         E(73) = 0.2700000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.1100000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.2170000D+01
         F(75) = 0.1000000D+01
         E(76) = 0.5100000D+00
         F(76) = 0.1000000D+01
         E(77) = 0.2100000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.1140000D+01
         G(78) = 0.1000000D+01
         E(79) = 0.3800000D+00
         G(79) = 0.1000000D+01
CFRJ     E(80) = 0.6900000D+00
CFRJ     H(80) = 0.1000000D+01
         ILAST = 79
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.7743000D+04
         S(1) = 0.4882500D-02
         E(2) = 0.1164700D+04
         S(2) = 0.3674100D-01
         E(3) = 0.2648200D+03
         S(3) = 0.1669500D+00
         E(4) = 0.7396800D+02
         S(4) = 0.4565700D+00
         E(5) = 0.2291200D+02
         S(5) = 0.4904300D+00
         E(6) = 0.1164700D+04
         S(6) = -.2911100D-03
         E(7) = 0.2648200D+03
         S(7) = -.1412200D-02
         E(8) = 0.7396800D+02
         S(8) = -.2604600D-01
         E(9) = 0.2291200D+02
         S(9) = -.5093300D-01
         E(10) = 0.4374100D+01
         S(10) = 0.1081000D+00
         E(11) = 0.2648200D+03
         S(11) = -.4443700D-03
         E(12) = 0.7396800D+02
         S(12) = -.3806700D-02
         E(13) = 0.2291200D+02
         S(13) = -.1707800D-01
         E(14) = 0.4374100D+01
         S(14) = 0.1056900D+00
         E(15) = 0.1539100D+01
         S(15) = 0.2042900D+00
         E(16) = 0.1677500D+00
         S(16) = 0.1000000D+01
         E(17) = 0.9608000D+02
         P(17) = 0.2803500D-01
         E(18) = 0.2215000D+02
         P(18) = 0.1681900D+00
         E(19) = 0.6563000D+01
         P(19) = 0.4519700D+00
         E(20) = 0.2025000D+01
         P(20) = 0.5013200D+00
         E(21) = 0.2215000D+02
         P(21) = -.7279700D-03
         E(22) = 0.6563000D+01
         P(22) = -.8664400D-02
         E(23) = 0.2025000D+01
         P(23) = -.3534400D-02
         E(24) = 0.4778000D+00
         P(24) = 0.3108500D+00
         E(25) = 0.1282400D+00
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.4126300D+05
         S(1) = 0.6094800D-03
         E(2) = 0.6189600D+04
         S(2) = 0.4704000D-02
         E(3) = 0.1408700D+04
         S(3) = 0.2413600D-01
         E(4) = 0.3987700D+03
         S(4) = 0.9276200D-01
         E(5) = 0.1296900D+03
         S(5) = 0.2604700D+00
         E(6) = 0.4642500D+02
         S(6) = 0.4418100D+00
         E(7) = 0.1745500D+02
         S(7) = 0.3075500D+00
         E(8) = 0.4222200D+01
         S(8) = 0.2919700D-01
         E(9) = 0.6189600D+04
         S(9) = -.2245900D-04
         E(10) = 0.1408700D+04
         S(10) = -.4176000D-04
         E(11) = 0.3987700D+03
         S(11) = -.1857000D-02
         E(12) = 0.1296900D+03
         S(12) = -.9511300D-02
         E(13) = 0.4642500D+02
         S(13) = -.6580000D-01
         E(14) = 0.1745500D+02
         S(14) = -.7754600D-01
         E(15) = 0.4222200D+01
         S(15) = 0.5030300D+00
         E(16) = 0.1493300D+01
         S(16) = 0.6382400D+00
         E(17) = 0.1408700D+04
         S(17) = 0.6031400D-05
         E(18) = 0.3987700D+03
         S(18) = 0.7427800D-04
         E(19) = 0.1296900D+03
         S(19) = 0.7402300D-03
         E(20) = 0.4642500D+02
         S(20) = 0.4010700D-02
         E(21) = 0.1745500D+02
         S(21) = 0.8013700D-02
         E(22) = 0.4222200D+01
         S(22) = -.7409100D-01
         E(23) = 0.1493300D+01
         S(23) = -.2138200D+00
         E(24) = 0.2717400D+00
         S(24) = 0.6126300D+00
         E(25) = 0.9850200D-01
         S(25) = 0.1000000D+01
         E(26) = 0.3107300D+03
         P(26) = 0.4119800D-02
         E(27) = 0.7282300D+02
         P(27) = 0.3198100D-01
         E(28) = 0.2298500D+02
         P(28) = 0.1322400D+00
         E(29) = 0.8321300D+01
         P(29) = 0.3277900D+00
         E(30) = 0.3135300D+01
         P(30) = 0.4510700D+00
         E(31) = 0.1169300D+01
         P(31) = 0.2634500D+00
         E(32) = 0.7282300D+02
         P(32) = 0.1263700D-03
         E(33) = 0.2298500D+02
         P(33) = -.1025200D-02
         E(34) = 0.8321300D+01
         P(34) = -.2133700D-02
         E(35) = 0.3135300D+01
         P(35) = -.1877400D-01
         E(36) = 0.1169300D+01
         P(36) = 0.5752800D-01
         E(37) = 0.2928100D+00
         P(37) = 0.5357100D+00
         E(38) = 0.8270400D-01
         P(38) = 0.1000000D+01
         E(39) = 0.4500000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1200400D+06
         S(1) = 0.1607500D-03
         E(2) = 0.1799100D+05
         S(2) = 0.1247200D-02
         E(3) = 0.4094800D+04
         S(3) = 0.6504000D-02
         E(4) = 0.1159600D+04
         S(4) = 0.2666500D-01
         E(5) = 0.3780000D+03
         S(5) = 0.8881600D-01
         E(6) = 0.1359300D+03
         S(6) = 0.2293200D+00
         E(7) = 0.5241100D+02
         S(7) = 0.4002500D+00
         E(8) = 0.2092700D+02
         S(8) = 0.3382800D+00
         E(9) = 0.7713000D+01
         S(9) = 0.6551200D-01
         E(10) = 0.1799100D+05
         S(10) = -.6840300D-06
         E(11) = 0.4094800D+04
         S(11) = -.2112400D-05
         E(12) = 0.1159600D+04
         S(12) = -.6915700D-04
         E(13) = 0.3780000D+03
         S(13) = -.4808000D-03
         E(14) = 0.1359300D+03
         S(14) = -.4169400D-02
         E(15) = 0.5241100D+02
         S(15) = -.1767400D-01
         E(16) = 0.2092700D+02
         S(16) = -.4289100D-01
         E(17) = 0.7713000D+01
         S(17) = 0.4536800D-01
         E(18) = 0.3160400D+01
         S(18) = 0.1390400D+00
         E(19) = 0.4094800D+04
         S(19) = -.3989700D-05
         E(20) = 0.1159600D+04
         S(20) = -.5020300D-04
         E(21) = 0.3780000D+03
         S(21) = -.5755300D-03
         E(22) = 0.1359300D+03
         S(22) = -.4152400D-02
         E(23) = 0.5241100D+02
         S(23) = -.2043700D-01
         E(24) = 0.2092700D+02
         S(24) = -.4699800D-01
         E(25) = 0.7713000D+01
         S(25) = 0.4398600D-01
         E(26) = 0.3160400D+01
         S(26) = 0.3395700D+00
         E(27) = 0.1234800D+01
         S(27) = 0.3503800D+00
         E(28) = 0.2677500D+00
         S(28) = 0.1000000D+01
         E(29) = 0.9406700D-01
         S(29) = 0.1000000D+01
         E(30) = 0.6771300D+03
         P(30) = 0.1092500D-02
         E(31) = 0.1606700D+03
         P(31) = 0.8960100D-02
         E(32) = 0.5158500D+02
         P(32) = 0.4474400D-01
         E(33) = 0.1894800D+02
         P(33) = 0.1474800D+00
         E(34) = 0.7616300D+01
         P(34) = 0.3148000D+00
         E(35) = 0.3131700D+01
         P(35) = 0.4133900D+00
         E(36) = 0.1270300D+01
         P(36) = 0.2644000D+00
         E(37) = 0.1606700D+03
         P(37) = 0.7901400D-05
         E(38) = 0.5158500D+02
         P(38) = -.1361300D-03
         E(39) = 0.1894800D+02
         P(39) = -.9037800D-03
         E(40) = 0.7616300D+01
         P(40) = -.5586300D-02
         E(41) = 0.3131700D+01
         P(41) = -.1014100D-01
         E(42) = 0.1270300D+01
         P(42) = 0.1866100D-01
         E(43) = 0.4333200D+00
         P(43) = 0.2889000D+00
         E(44) = 0.1608800D+00
         P(44) = 0.1000000D+01
         E(45) = 0.5488300D-01
         P(45) = 0.1000000D+01
         E(46) = 0.1680000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.3800000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.5400000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.8774500D+06
         S(1) = 0.1339600D-04
         E(2) = 0.1314500D+06
         S(2) = 0.1040700D-03
         E(3) = 0.2992900D+05
         S(3) = 0.5467800D-03
         E(4) = 0.8480200D+04
         S(4) = 0.2301000D-02
         E(5) = 0.2767200D+04
         S(5) = 0.8305400D-02
         E(6) = 0.9994000D+03
         S(6) = 0.2632200D-01
         E(7) = 0.3901400D+03
         S(7) = 0.7303300D-01
         E(8) = 0.1619100D+03
         S(8) = 0.1701000D+00
         E(9) = 0.7030400D+02
         S(9) = 0.3089100D+00
         E(10) = 0.3157900D+02
         S(10) = 0.3547300D+00
         E(11) = 0.1448000D+02
         S(11) = 0.1887200D+00
         E(12) = 0.5838300D+01
         S(12) = 0.2195300D-01
         E(13) = 0.8480200D+04
         S(13) = -.4222900D-05
         E(14) = 0.2767200D+04
         S(14) = -.6335600D-05
         E(15) = 0.9994000D+03
         S(15) = -.1691000D-03
         E(16) = 0.3901400D+03
         S(16) = -.7371500D-03
         E(17) = 0.1619100D+03
         S(17) = -.5446100D-02
         E(18) = 0.7030400D+02
         S(18) = -.2001000D-01
         E(19) = 0.3157900D+02
         S(19) = -.6137300D-01
         E(20) = 0.1448000D+02
         S(20) = -.4900200D-01
         E(21) = 0.5838300D+01
         S(21) = 0.1762700D+00
         E(22) = 0.2594600D+01
         S(22) = 0.3008000D+00
         E(23) = 0.2767200D+04
         S(23) = -.1183000D-05
         E(24) = 0.9994000D+03
         S(24) = -.1034900D-04
         E(25) = 0.3901400D+03
         S(25) = -.7432200D-04
         E(26) = 0.1619100D+03
         S(26) = -.4371300D-03
         E(27) = 0.7030400D+02
         S(27) = -.1937400D-02
         E(28) = 0.3157900D+02
         S(28) = -.5856300D-02
         E(29) = 0.1448000D+02
         S(29) = -.6836100D-02
         E(30) = 0.5838300D+01
         S(30) = 0.2787000D-01
         E(31) = 0.2594600D+01
         S(31) = 0.1276700D+00
         E(32) = 0.1125000D+01
         S(32) = 0.1742200D+00
         E(33) = 0.3535600D+00
         S(33) = 0.1000000D+01
         E(34) = 0.1616000D+00
         S(34) = 0.1000000D+01
         E(35) = 0.6726100D-01
         S(35) = 0.1000000D+01
         E(36) = 0.2303100D+04
         P(36) = 0.1310500D-03
         E(37) = 0.5458400D+03
         P(37) = 0.1146500D-02
         E(38) = 0.1770500D+03
         P(38) = 0.6365200D-02
         E(39) = 0.6637700D+02
         P(39) = 0.2719700D-01
         E(40) = 0.2760100D+02
         P(40) = 0.8192500D-01
         E(41) = 0.1234300D+02
         P(41) = 0.1914700D+00
         E(42) = 0.5689400D+01
         P(42) = 0.3158300D+00
         E(43) = 0.2640600D+01
         P(43) = 0.3518300D+00
         E(44) = 0.1209400D+01
         P(44) = 0.2129200D+00
         E(45) = 0.5458400D+03
         P(45) = 0.6120000D-05
         E(46) = 0.1770500D+03
         P(46) = -.5902200D-05
         E(47) = 0.6637700D+02
         P(47) = 0.8645300D-04
         E(48) = 0.2760100D+02
         P(48) = -.5304900D-03
         E(49) = 0.1234300D+02
         P(49) = -.8903800D-03
         E(50) = 0.5689400D+01
         P(50) = -.7982500D-02
         E(51) = 0.2640600D+01
         P(51) = -.3763100D-02
         E(52) = 0.1209400D+01
         P(52) = 0.1078700D-01
         E(53) = 0.5201300D+00
         P(53) = 0.1818600D+00
         E(54) = 0.2325600D+00
         P(54) = 0.1000000D+01
         E(55) = 0.9814100D-01
         P(55) = 0.1000000D+01
         E(56) = 0.3836000D-01
         P(56) = 0.1000000D+01
         E(57) = 0.6660000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.1750000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.5200000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.1900000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1150000D+01
         F(61) = 0.1000000D+01
         E(62) = 0.3800000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.6500000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.4615800D+07
         S(1) = 0.1658600D-05
         E(2) = 0.7190100D+06
         S(2) = 0.1213400D-04
         E(3) = 0.1699900D+06
         S(3) = 0.6096900D-04
         E(4) = 0.4940000D+05
         S(4) = 0.2512400D-03
         E(5) = 0.1638500D+05
         S(5) = 0.9008800D-03
         E(6) = 0.5985400D+04
         S(6) = 0.2903900D-02
         E(7) = 0.2354100D+04
         S(7) = 0.8585200D-02
         E(8) = 0.9814000D+03
         S(8) = 0.2342100D-01
         E(9) = 0.4289000D+03
         S(9) = 0.5842200D-01
         E(10) = 0.1945400D+03
         S(10) = 0.1297700D+00
         E(11) = 0.9077700D+02
         S(11) = 0.2403700D+00
         E(12) = 0.4371500D+02
         S(12) = 0.3248000D+00
         E(13) = 0.2149100D+02
         S(13) = 0.2668400D+00
         E(14) = 0.1066900D+02
         S(14) = 0.9132400D-01
         E(15) = 0.4888200D+01
         S(15) = 0.5342400D-02
         E(16) = 0.1638500D+05
         S(16) = -.9459400D-06
         E(17) = 0.5985400D+04
         S(17) = -.1938800D-05
         E(18) = 0.2354100D+04
         S(18) = -.4217500D-04
         E(19) = 0.9814000D+03
         S(19) = -.2046900D-03
         E(20) = 0.4289000D+03
         S(20) = -.1426100D-02
         E(21) = 0.1945400D+03
         S(21) = -.6379500D-02
         E(22) = 0.9077700D+02
         S(22) = -.2866400D-01
         E(23) = 0.4371500D+02
         S(23) = -.7569500D-01
         E(24) = 0.2149100D+02
         S(24) = -.1547300D+00
         E(25) = 0.1066900D+02
         S(25) = 0.1591300D-01
         E(26) = 0.4888200D+01
         S(26) = 0.4634400D+00
         E(27) = 0.2336100D+01
         S(27) = 0.6021800D+00
         E(28) = 0.5985400D+04
         S(28) = -.3810100D-05
         E(29) = 0.2354100D+04
         S(29) = -.2899900D-04
         E(30) = 0.9814000D+03
         S(30) = -.1886800D-03
         E(31) = 0.4289000D+03
         S(31) = -.1096700D-02
         E(32) = 0.1945400D+03
         S(32) = -.5337500D-02
         E(33) = 0.9077700D+02
         S(33) = -.2274900D-01
         E(34) = 0.4371500D+02
         S(34) = -.6293600D-01
         E(35) = 0.2149100D+02
         S(35) = -.1252500D+00
         E(36) = 0.1066900D+02
         S(36) = 0.5216700D-02
         E(37) = 0.4888200D+01
         S(37) = 0.4308000D+00
         E(38) = 0.2336100D+01
         S(38) = 0.7183300D+00
         E(39) = 0.1096700D+01
         S(39) = 0.3836000D+00
         E(40) = 0.4231200D+00
         S(40) = 0.1000000D+01
         E(41) = 0.2427600D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1170300D+00
         S(42) = 0.1000000D+01
         E(43) = 0.5286100D-01
         S(43) = 0.1000000D+01
         E(44) = 0.6453300D+04
         P(44) = 0.2165300D-04
         E(45) = 0.1533900D+04
         P(45) = 0.1916200D-03
         E(46) = 0.4983800D+03
         P(46) = 0.1114300D-02
         E(47) = 0.1889800D+03
         P(47) = 0.5083000D-02
         E(48) = 0.7788700D+02
         P(48) = 0.1926900D-01
         E(49) = 0.3551400D+02
         P(49) = 0.5309100D-01
         E(50) = 0.1701600D+02
         P(50) = 0.1263900D+00
         E(51) = 0.8497700D+01
         P(51) = 0.2231200D+00
         E(52) = 0.4354400D+01
         P(52) = 0.2985400D+00
         E(53) = 0.2257500D+01
         P(53) = 0.2865100D+00
         E(54) = 0.1159700D+01
         P(54) = 0.1716800D+00
         E(55) = 0.1533900D+04
         P(55) = 0.9584400D-06
         E(56) = 0.4983800D+03
         P(56) = -.1747500D-06
         E(57) = 0.1889800D+03
         P(57) = 0.1992100D-04
         E(58) = 0.7788700D+02
         P(58) = -.3897000D-04
         E(59) = 0.3551400D+02
         P(59) = 0.6332700D-04
         E(60) = 0.1701600D+02
         P(60) = -.1405700D-02
         E(61) = 0.8497700D+01
         P(61) = -.1208000D-02
         E(62) = 0.4354400D+01
         P(62) = -.1139000D-01
         E(63) = 0.2257500D+01
         P(63) = 0.4607900D-02
         E(64) = 0.1159700D+01
         P(64) = -.5768800D-03
         E(65) = 0.5934300D+00
         P(65) = 0.1317400D+00
         E(66) = 0.2901200D+00
         P(66) = 0.1000000D+01
         E(67) = 0.1382500D+00
         P(67) = 0.1000000D+01
         E(68) = 0.6459400D-01
         P(68) = 0.1000000D+01
         E(69) = 0.2835400D-01
         P(69) = 0.1000000D+01
         E(70) = 0.1952000D+02
         D(70) = 0.1000000D+01
         E(71) = 0.5580000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.1920000D+01
         D(72) = 0.1000000D+01
         E(73) = 0.6900000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.2990000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1250000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.2640000D+01
         F(76) = 0.1000000D+01
         E(77) = 0.6200000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.2600000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1350000D+01
         G(79) = 0.1000000D+01
         E(80) = 0.4500000D+00
         G(80) = 0.1000000D+01
CFRJ     E(81) = 0.7800000D+00
CFRJ     H(81) = 0.1000000D+01
         ILAST = 80
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.8990800D+04
         S(1) = 0.4820600D-02
         E(2) = 0.1352400D+04
         S(2) = 0.3639200D-01
         E(3) = 0.3075000D+03
         S(3) = 0.1656300D+00
         E(4) = 0.8594100D+02
         S(4) = 0.4621700D+00
         E(5) = 0.2667100D+02
         S(5) = 0.5058200D+00
         E(6) = 0.1352400D+04
         S(6) = 0.2890000D-02
         E(7) = 0.3075000D+03
         S(7) = 0.1263800D-01
         E(8) = 0.8594100D+02
         S(8) = 0.2479000D+00
         E(9) = 0.2667100D+02
         S(9) = 0.4616500D+00
         E(10) = 0.5188100D+01
         S(10) = -.7018000D+00
         E(11) = 0.3075000D+03
         S(11) = -.5451200D-03
         E(12) = 0.8594100D+02
         S(12) = -.4683800D-02
         E(13) = 0.2667100D+02
         S(13) = -.2116000D-01
         E(14) = 0.5188100D+01
         S(14) = 0.1253400D+00
         E(15) = 0.1877800D+01
         S(15) = 0.2242700D+00
         E(16) = 0.2201000D+00
         S(16) = 0.1000000D+01
         E(17) = 0.1116400D+03
         P(17) = 0.2866300D-01
         E(18) = 0.2578400D+02
         P(18) = 0.1726500D+00
         E(19) = 0.7672500D+01
         P(19) = 0.4618100D+00
         E(20) = 0.2399600D+01
         P(20) = 0.4917400D+00
         E(21) = 0.2578400D+02
         P(21) = -.6854500D-03
         E(22) = 0.7672500D+01
         P(22) = -.1129600D-01
         E(23) = 0.2399600D+01
         P(23) = 0.3296200D-02
         E(24) = 0.5494300D+00
         P(24) = 0.4161300D+00
         E(25) = 0.1474800D+00
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.4807300D+05
         S(1) = 0.5991900D-03
         E(2) = 0.7211400D+04
         S(2) = 0.4624100D-02
         E(3) = 0.1641700D+04
         S(3) = 0.2372400D-01
         E(4) = 0.4649200D+03
         S(4) = 0.9130300D-01
         E(5) = 0.1512800D+03
         S(5) = 0.2575000D+00
         E(6) = 0.5418900D+02
         S(6) = 0.4408000D+00
         E(7) = 0.2039700D+02
         S(7) = 0.3117500D+00
         E(8) = 0.5024100D+01
         S(8) = 0.3111800D-01
         E(9) = 0.7211400D+04
         S(9) = -.2130900D-04
         E(10) = 0.1641700D+04
         S(10) = -.4421500D-04
         E(11) = 0.4649200D+03
         S(11) = -.1822100D-02
         E(12) = 0.1512800D+03
         S(12) = -.9636600D-02
         E(13) = 0.5418900D+02
         S(13) = -.6607200D-01
         E(14) = 0.2039700D+02
         S(14) = -.8182400D-01
         E(15) = 0.5024100D+01
         S(15) = 0.4985000D+00
         E(16) = 0.1824600D+01
         S(16) = 0.6449200D+00
         E(17) = 0.1641700D+04
         S(17) = 0.7134000D-05
         E(18) = 0.4649200D+03
         S(18) = 0.8450000D-04
         E(19) = 0.1512800D+03
         S(19) = 0.8591900D-03
         E(20) = 0.5418900D+02
         S(20) = 0.4647800D-02
         E(21) = 0.2039700D+02
         S(21) = 0.9581100D-02
         E(22) = 0.5024100D+01
         S(22) = -.8406600D-01
         E(23) = 0.1824600D+01
         S(23) = -.2312400D+00
         E(24) = 0.3587100D+00
         S(24) = 0.6235000D+00
         E(25) = 0.1288700D+00
         S(25) = 0.1000000D+01
         E(26) = 0.3662400D+03
         P(26) = 0.4097700D-02
         E(27) = 0.8593100D+02
         P(27) = 0.3195600D-01
         E(28) = 0.2717200D+02
         P(28) = 0.1332600D+00
         E(29) = 0.9868500D+01
         P(29) = 0.3322800D+00
         E(30) = 0.3753300D+01
         P(30) = 0.4533500D+00
         E(31) = 0.1430200D+01
         P(31) = 0.2505800D+00
         E(32) = 0.8593100D+02
         P(32) = 0.1250600D-03
         E(33) = 0.2717200D+02
         P(33) = -.1216600D-02
         E(34) = 0.9868500D+01
         P(34) = -.3181300D-02
         E(35) = 0.3753300D+01
         P(35) = -.2147500D-01
         E(36) = 0.1430200D+01
         P(36) = 0.6999100D-01
         E(37) = 0.3865300D+00
         P(37) = 0.5608100D+00
         E(38) = 0.1114600D+00
         P(38) = 0.1000000D+01
         E(39) = 0.5000000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1456800D+06
         S(1) = 0.1501600D-03
         E(2) = 0.2183600D+05
         S(2) = 0.1165000D-02
         E(3) = 0.4969900D+04
         S(3) = 0.6079800D-02
         E(4) = 0.1407300D+04
         S(4) = 0.2496800D-01
         E(5) = 0.4587800D+03
         S(5) = 0.8363700D-01
         E(6) = 0.1650800D+03
         S(6) = 0.2186300D+00
         E(7) = 0.6374400D+02
         S(7) = 0.3923400D+00
         E(8) = 0.2559800D+02
         S(8) = 0.3503800D+00
         E(9) = 0.9930700D+01
         S(9) = 0.7728700D-01
         E(10) = 0.2183600D+05
         S(10) = -.1050900D-05
         E(11) = 0.4969900D+04
         S(11) = -.1680100D-05
         E(12) = 0.1407300D+04
         S(12) = -.8760100D-04
         E(13) = 0.4587800D+03
         S(13) = -.5274500D-03
         E(14) = 0.1650800D+03
         S(14) = -.4957500D-02
         E(15) = 0.6374400D+02
         S(15) = -.2053500D-01
         E(16) = 0.2559800D+02
         S(16) = -.5503000D-01
         E(17) = 0.9930700D+01
         S(17) = 0.4158300D-01
         E(18) = 0.3968600D+01
         S(18) = 0.1702900D+00
         E(19) = 0.4969900D+04
         S(19) = -.2486300D-05
         E(20) = 0.1407300D+04
         S(20) = -.3095500D-04
         E(21) = 0.4587800D+03
         S(21) = -.3577600D-03
         E(22) = 0.1650800D+03
         S(22) = -.2612300D-02
         E(23) = 0.6374400D+02
         S(23) = -.1320400D-01
         E(24) = 0.2559800D+02
         S(24) = -.3284800D-01
         E(25) = 0.9930700D+01
         S(25) = 0.1818200D-01
         E(26) = 0.3968600D+01
         S(26) = 0.2572200D+00
         E(27) = 0.1556500D+01
         S(27) = 0.3068200D+00
         E(28) = 0.3540400D+00
         S(28) = 0.1000000D+01
         E(29) = 0.1239400D+00
         S(29) = 0.1000000D+01
         E(30) = 0.8262300D+03
         P(30) = 0.1022500D-02
         E(31) = 0.1960200D+03
         P(31) = 0.8447200D-02
         E(32) = 0.6295100D+02
         P(32) = 0.4266400D-01
         E(33) = 0.2322200D+02
         P(33) = 0.1423900D+00
         E(34) = 0.9388500D+01
         P(34) = 0.3105900D+00
         E(35) = 0.3899700D+01
         P(35) = 0.4167200D+00
         E(36) = 0.1604800D+01
         P(36) = 0.2661800D+00
         E(37) = 0.1960200D+03
         P(37) = 0.4108200D-05
         E(38) = 0.6295100D+02
         P(38) = -.1505700D-03
         E(39) = 0.2322200D+02
         P(39) = -.1114100D-02
         E(40) = 0.9388500D+01
         P(40) = -.6494200D-02
         E(41) = 0.3899700D+01
         P(41) = -.1246900D-01
         E(42) = 0.1604800D+01
         P(42) = 0.2345800D-01
         E(43) = 0.5605300D+00
         P(43) = 0.3227000D+00
         E(44) = 0.2117500D+00
         P(44) = 0.1000000D+01
         E(45) = 0.7348600D-01
         P(45) = 0.1000000D+01
         E(46) = 0.1890000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.4300000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.6000000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1063700D+07
         S(1) = 0.1250900D-04
         E(2) = 0.1600000D+06
         S(2) = 0.9667100D-04
         E(3) = 0.3651300D+05
         S(3) = 0.5068200D-03
         E(4) = 0.1035900D+05
         S(4) = 0.2131000D-02
         E(5) = 0.3382800D+04
         S(5) = 0.7692500D-02
         E(6) = 0.1222300D+04
         S(6) = 0.2442100D-01
         E(7) = 0.4773000D+03
         S(7) = 0.6812200D-01
         E(8) = 0.1980900D+03
         S(8) = 0.1606900D+00
         E(9) = 0.8599400D+02
         S(9) = 0.2986700D+00
         E(10) = 0.3862700D+02
         S(10) = 0.3587800D+00
         E(11) = 0.1768800D+02
         S(11) = 0.2061600D+00
         E(12) = 0.7255100D+01
         S(12) = 0.2738600D-01
         E(13) = 0.1035900D+05
         S(13) = -.3450200D-05
         E(14) = 0.3382800D+04
         S(14) = -.5342700D-05
         E(15) = 0.1222300D+04
         S(15) = -.1381400D-03
         E(16) = 0.4773000D+03
         S(16) = -.6088200D-03
         E(17) = 0.1980900D+03
         S(17) = -.4506400D-02
         E(18) = 0.8599400D+02
         S(18) = -.1707100D-01
         E(19) = 0.3862700D+02
         S(19) = -.5395400D-01
         E(20) = 0.1768800D+02
         S(20) = -.5149400D-01
         E(21) = 0.7255100D+01
         S(21) = 0.1375800D+00
         E(22) = 0.3269900D+01
         S(22) = 0.2752500D+00
         E(23) = 0.3382800D+04
         S(23) = -.1755700D-05
         E(24) = 0.1222300D+04
         S(24) = -.1580100D-04
         E(25) = 0.4773000D+03
         S(25) = -.1135300D-03
         E(26) = 0.1980900D+03
         S(26) = -.6732900D-03
         E(27) = 0.8599400D+02
         S(27) = -.3031400D-02
         E(28) = 0.3862700D+02
         S(28) = -.9229200D-02
         E(29) = 0.1768800D+02
         S(29) = -.1193600D-01
         E(30) = 0.7255100D+01
         S(30) = 0.3572500D-01
         E(31) = 0.3269900D+01
         S(31) = 0.1587500D+00
         E(32) = 0.1431300D+01
         S(32) = 0.2123600D+00
         E(33) = 0.4704700D+00
         S(33) = 0.1000000D+01
         E(34) = 0.2128900D+00
         S(34) = 0.1000000D+01
         E(35) = 0.8774200D-01
         S(35) = 0.1000000D+01
         E(36) = 0.2762200D+04
         P(36) = 0.1261800D-03
         E(37) = 0.6547800D+03
         P(37) = 0.1104800D-02
         E(38) = 0.2125800D+03
         P(38) = 0.6148300D-02
         E(39) = 0.7989500D+02
         P(39) = 0.2630700D-01
         E(40) = 0.3336600D+02
         P(40) = 0.7986600D-01
         E(41) = 0.1498600D+02
         P(41) = 0.1884000D+00
         E(42) = 0.6968000D+01
         P(42) = 0.3136200D+00
         E(43) = 0.3281800D+01
         P(43) = 0.3532600D+00
         E(44) = 0.1524700D+01
         P(44) = 0.2136600D+00
         E(45) = 0.6547800D+03
         P(45) = 0.5959200D-05
         E(46) = 0.2125800D+03
         P(46) = -.6808600D-05
         E(47) = 0.7989500D+02
         P(47) = 0.7451300D-04
         E(48) = 0.3336600D+02
         P(48) = -.6066400D-03
         E(49) = 0.1498600D+02
         P(49) = -.1260400D-02
         E(50) = 0.6968000D+01
         P(50) = -.9471900D-02
         E(51) = 0.3281800D+01
         P(51) = -.4401400D-02
         E(52) = 0.1524700D+01
         P(52) = 0.1246600D-01
         E(53) = 0.6692400D+00
         P(53) = 0.2134300D+00
         E(54) = 0.2992900D+00
         P(54) = 0.1000000D+01
         E(55) = 0.1281100D+00
         P(55) = 0.1000000D+01
         E(56) = 0.5099200D-01
         P(56) = 0.1000000D+01
         E(57) = 0.7710000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.2030000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.6000000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.2200000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1340000D+01
         F(61) = 0.1000000D+01
         E(62) = 0.4500000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.7200000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.5262500D+07
         S(1) = 0.1672300D-05
         E(2) = 0.8221300D+06
         S(2) = 0.1220700D-04
         E(3) = 0.1942500D+06
         S(3) = 0.6144000D-04
         E(4) = 0.5642400D+05
         S(4) = 0.2532200D-03
         E(5) = 0.1871600D+05
         S(5) = 0.9075200D-03
         E(6) = 0.6839300D+04
         S(6) = 0.2923000D-02
         E(7) = 0.2693100D+04
         S(7) = 0.8613800D-02
         E(8) = 0.1126500D+04
         S(8) = 0.2332900D-01
         E(9) = 0.4952100D+03
         S(9) = 0.5764100D-01
         E(10) = 0.2263800D+03
         S(10) = 0.1269400D+00
         E(11) = 0.1066200D+03
         S(11) = 0.2340800D+00
         E(12) = 0.5190500D+02
         S(12) = 0.3180500D+00
         E(13) = 0.2585100D+02
         S(13) = 0.2700200D+00
         E(14) = 0.1302200D+02
         S(14) = 0.1019700D+00
         E(15) = 0.6056800D+01
         S(15) = 0.8089900D-02
         E(16) = 0.1871600D+05
         S(16) = -.8796100D-06
         E(17) = 0.6839300D+04
         S(17) = -.1199700D-05
         E(18) = 0.2693100D+04
         S(18) = -.3677800D-04
         E(19) = 0.1126500D+04
         S(19) = -.1646700D-03
         E(20) = 0.4952100D+03
         S(20) = -.1186100D-02
         E(21) = 0.2263800D+03
         S(21) = -.5093600D-02
         E(22) = 0.1066200D+03
         S(22) = -.2293900D-01
         E(23) = 0.5190500D+02
         S(23) = -.5950300D-01
         E(24) = 0.2585100D+02
         S(24) = -.1253200D+00
         E(25) = 0.1302200D+02
         S(25) = -.3408800D-02
         E(26) = 0.6056800D+01
         S(26) = 0.3346100D+00
         E(27) = 0.2957400D+01
         S(27) = 0.5038000D+00
         E(28) = 0.6839300D+04
         S(28) = -.4859500D-05
         E(29) = 0.2693100D+04
         S(29) = -.3785900D-04
         E(30) = 0.1126500D+04
         S(30) = -.2401700D-03
         E(31) = 0.4952100D+03
         S(31) = -.1386500D-02
         E(32) = 0.2263800D+03
         S(32) = -.6611900D-02
         E(33) = 0.1066200D+03
         S(33) = -.2784700D-01
         E(34) = 0.5190500D+02
         S(34) = -.7656600D-01
         E(35) = 0.2585100D+02
         S(35) = -.1552700D+00
         E(36) = 0.1302200D+02
         S(36) = -.1712400D-01
         E(37) = 0.6056800D+01
         S(37) = 0.4884200D+00
         E(38) = 0.2957400D+01
         S(38) = 0.9089500D+00
         E(39) = 0.1407800D+01
         S(39) = 0.5364900D+00
         E(40) = 0.5718700D+00
         S(40) = 0.1000000D+01
         E(41) = 0.3107800D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1494700D+00
         S(42) = 0.1000000D+01
         E(43) = 0.6831300D-01
         S(43) = 0.1000000D+01
         E(44) = 0.7748600D+04
         P(44) = 0.2087000D-04
         E(45) = 0.1833600D+04
         P(45) = 0.1859600D-03
         E(46) = 0.5955500D+03
         P(46) = 0.1079900D-02
         E(47) = 0.2266100D+03
         P(47) = 0.4894600D-02
         E(48) = 0.9419100D+02
         P(48) = 0.1832000D-01
         E(49) = 0.4333200D+02
         P(49) = 0.5066900D-01
         E(50) = 0.2090700D+02
         P(50) = 0.1215600D+00
         E(51) = 0.1050200D+02
         P(51) = 0.2193100D+00
         E(52) = 0.5425500D+01
         P(52) = 0.2964000D+00
         E(53) = 0.2881800D+01
         P(53) = 0.2817900D+00
         E(54) = 0.1528400D+01
         P(54) = 0.1785300D+00
         E(55) = 0.1833600D+04
         P(55) = 0.8171700D-06
         E(56) = 0.5955500D+03
         P(56) = -.2848300D-06
         E(57) = 0.2266100D+03
         P(57) = 0.1597300D-04
         E(58) = 0.9419100D+02
         P(58) = -.4739600D-04
         E(59) = 0.4333200D+02
         P(59) = 0.1174400D-05
         E(60) = 0.2090700D+02
         P(60) = -.1583200D-02
         E(61) = 0.1050200D+02
         P(61) = -.1811700D-02
         E(62) = 0.5425500D+01
         P(62) = -.1346500D-01
         E(63) = 0.2881800D+01
         P(63) = 0.6150300D-02
         E(64) = 0.1528400D+01
         P(64) = -.7144400D-02
         E(65) = 0.8108100D+00
         P(65) = 0.1431500D+00
         E(66) = 0.3902800D+00
         P(66) = 0.1000000D+01
         E(67) = 0.1864500D+00
         P(67) = 0.1000000D+01
         E(68) = 0.8756700D-01
         P(68) = 0.1000000D+01
         E(69) = 0.3867300D-01
         P(69) = 0.1000000D+01
         E(70) = 0.2123000D+02
         D(70) = 0.1000000D+01
         E(71) = 0.6070000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.2090000D+01
         D(72) = 0.1000000D+01
         E(73) = 0.7500000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.3250000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1350000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.3120000D+01
         F(76) = 0.1000000D+01
         E(77) = 0.7300000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.3000000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1550000D+01
         G(79) = 0.1000000D+01
         E(80) = 0.5200000D+00
         G(80) = 0.1000000D+01
CFRJ     E(81) = 0.8700000D+00
CFRJ     H(81) = 0.1000000D+01
         ILAST = 80
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1033000D+05
         S(1) = 0.4768500D-02
         E(2) = 0.1553700D+04
         S(2) = 0.3620900D-01
         E(3) = 0.3533000D+03
         S(3) = 0.1649100D+00
         E(4) = 0.9880500D+02
         S(4) = 0.4754800D+00
         E(5) = 0.3071600D+02
         S(5) = 0.5331900D+00
         E(6) = 0.1553700D+04
         S(6) = 0.2890300D-02
         E(7) = 0.3533000D+03
         S(7) = 0.1157500D-01
         E(8) = 0.9880500D+02
         S(8) = 0.2399300D+00
         E(9) = 0.3071600D+02
         S(9) = 0.4283000D+00
         E(10) = 0.6063300D+01
         S(10) = -.4206300D+00
         E(11) = 0.3533000D+03
         S(11) = -.6250100D-03
         E(12) = 0.9880500D+02
         S(12) = -.5388100D-02
         E(13) = 0.3071600D+02
         S(13) = -.2452100D-01
         E(14) = 0.6063300D+01
         S(14) = 0.1413200D+00
         E(15) = 0.2247500D+01
         S(15) = 0.2394800D+00
         E(16) = 0.2785300D+00
         S(16) = 0.1000000D+01
         E(17) = 0.1297600D+03
         P(17) = 0.2870600D-01
         E(18) = 0.3002500D+02
         P(18) = 0.1742000D+00
         E(19) = 0.8973300D+01
         P(19) = 0.4670900D+00
         E(20) = 0.2844000D+01
         P(20) = 0.4857100D+00
         E(21) = 0.3002500D+02
         P(21) = -.1178500D-03
         E(22) = 0.8973300D+01
         P(22) = -.1448300D-01
         E(23) = 0.2844000D+01
         P(23) = 0.1593900D-01
         E(24) = 0.6336100D+00
         P(24) = 0.4825700D+00
         E(25) = 0.1695500D+00
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.5551000D+05
         S(1) = 0.5889900D-03
         E(2) = 0.8326700D+04
         S(2) = 0.4546000D-02
         E(3) = 0.1895600D+04
         S(3) = 0.2333500D-01
         E(4) = 0.5367700D+03
         S(4) = 0.8996500D-01
         E(5) = 0.1746700D+03
         S(5) = 0.2548600D+00
         E(6) = 0.6257800D+02
         S(6) = 0.4399800D+00
         E(7) = 0.2357300D+02
         S(7) = 0.3154900D+00
         E(8) = 0.5890800D+01
         S(8) = 0.3282600D-01
         E(9) = 0.8326700D+04
         S(9) = -.2048000D-04
         E(10) = 0.1895600D+04
         S(10) = -.4542900D-04
         E(11) = 0.5367700D+03
         S(11) = -.1793700D-02
         E(12) = 0.1746700D+03
         S(12) = -.9725200D-02
         E(13) = 0.6257800D+02
         S(13) = -.6639900D-01
         E(14) = 0.2357300D+02
         S(14) = -.8550200D-01
         E(15) = 0.5890800D+01
         S(15) = 0.4958800D+00
         E(16) = 0.2185200D+01
         S(16) = 0.6498800D+00
         E(17) = 0.1895600D+04
         S(17) = 0.8346100D-05
         E(18) = 0.5367700D+03
         S(18) = 0.9830600D-04
         E(19) = 0.1746700D+03
         S(19) = 0.1004000D-02
         E(20) = 0.6257800D+02
         S(20) = 0.5440900D-02
         E(21) = 0.2357300D+02
         S(21) = 0.1140000D-01
         E(22) = 0.5890800D+01
         S(22) = -.9513400D-01
         E(23) = 0.2185200D+01
         S(23) = -.2473500D+00
         E(24) = 0.4528200D+00
         S(24) = 0.6397300D+00
         E(25) = 0.1620200D+00
         S(25) = 0.1000000D+01
         E(26) = 0.3954500D+03
         P(26) = 0.4626600D-02
         E(27) = 0.9283400D+02
         P(27) = 0.3589800D-01
         E(28) = 0.2926600D+02
         P(28) = 0.1485400D+00
         E(29) = 0.1059500D+02
         P(29) = 0.3587800D+00
         E(30) = 0.4027200D+01
         P(30) = 0.4541700D+00
         E(31) = 0.1548400D+01
         P(31) = 0.2054500D+00
         E(32) = 0.9283400D+02
         P(32) = 0.1093400D-03
         E(33) = 0.2926600D+02
         P(33) = -.1635800D-02
         E(34) = 0.1059500D+02
         P(34) = -.5063200D-02
         E(35) = 0.4027200D+01
         P(35) = -.2396000D-01
         E(36) = 0.1548400D+01
         P(36) = 0.1038800D+00
         E(37) = 0.4613400D+00
         P(37) = 0.5806300D+00
         E(38) = 0.1313100D+00
         P(38) = 0.1000000D+01
         E(39) = 0.5500000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.1720300D+06
         S(1) = 0.1435300D-03
         E(2) = 0.2578300D+05
         S(2) = 0.1113700D-02
         E(3) = 0.5868200D+04
         S(3) = 0.5814300D-02
         E(4) = 0.1661700D+04
         S(4) = 0.2390300D-01
         E(5) = 0.5417500D+03
         S(5) = 0.8035400D-01
         E(6) = 0.1950100D+03
         S(6) = 0.2117500D+00
         E(7) = 0.7539600D+02
         S(7) = 0.3866400D+00
         E(8) = 0.3040700D+02
         S(8) = 0.3574700D+00
         E(9) = 0.1212100D+02
         S(9) = 0.8613100D-01
         E(10) = 0.2578300D+05
         S(10) = -.1186200D-05
         E(11) = 0.5868200D+04
         S(11) = -.1232100D-05
         E(12) = 0.1661700D+04
         S(12) = -.9048000D-04
         E(13) = 0.5417500D+03
         S(13) = -.5010500D-03
         E(14) = 0.1950100D+03
         S(14) = -.4951000D-02
         E(15) = 0.7539600D+02
         S(15) = -.2025200D-01
         E(16) = 0.3040700D+02
         S(16) = -.5738800D-01
         E(17) = 0.1212100D+02
         S(17) = 0.3484700D-01
         E(18) = 0.4777700D+01
         S(18) = 0.1683300D+00
         E(19) = 0.5868200D+04
         S(19) = -.2197200D-05
         E(20) = 0.1661700D+04
         S(20) = -.2836700D-04
         E(21) = 0.5417500D+03
         S(21) = -.3259100D-03
         E(22) = 0.1950100D+03
         S(22) = -.2413100D-02
         E(23) = 0.7539600D+02
         S(23) = -.1235200D-01
         E(24) = 0.3040700D+02
         S(24) = -.3211900D-01
         E(25) = 0.1212100D+02
         S(25) = 0.1161100D-01
         E(26) = 0.4777700D+01
         S(26) = 0.2554200D+00
         E(27) = 0.1890600D+01
         S(27) = 0.3138400D+00
         E(28) = 0.4468600D+00
         S(28) = 0.1000000D+01
         E(29) = 0.1562100D+00
         S(29) = 0.1000000D+01
         E(30) = 0.9681200D+03
         P(30) = 0.1004800D-02
         E(31) = 0.2297000D+03
         P(31) = 0.8331300D-02
         E(32) = 0.7383300D+02
         P(32) = 0.4226000D-01
         E(33) = 0.2731200D+02
         P(33) = 0.1420600D+00
         E(34) = 0.1107400D+02
         P(34) = 0.3125600D+00
         E(35) = 0.4630700D+01
         P(35) = 0.4193300D+00
         E(36) = 0.1929900D+01
         P(36) = 0.2592400D+00
         E(37) = 0.2297000D+03
         P(37) = -.8069300D-05
         E(38) = 0.7383300D+02
         P(38) = -.1694300D-03
         E(39) = 0.2731200D+02
         P(39) = -.1524300D-02
         E(40) = 0.1107400D+02
         P(40) = -.7199300D-02
         E(41) = 0.4630700D+01
         P(41) = -.1611300D-01
         E(42) = 0.1929900D+01
         P(42) = 0.3423400D-01
         E(43) = 0.6878300D+00
         P(43) = 0.3551800D+00
         E(44) = 0.2566300D+00
         P(44) = 0.1000000D+01
         E(45) = 0.8725100D-01
         P(45) = 0.1000000D+01
         E(46) = 0.2100000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.4800000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.6600000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1250400D+07
         S(1) = 0.1202300D-04
         E(2) = 0.1880800D+06
         S(2) = 0.9293500D-04
         E(3) = 0.4291800D+05
         S(3) = 0.4872000D-03
         E(4) = 0.1217900D+05
         S(4) = 0.2047900D-02
         E(5) = 0.3978700D+04
         S(5) = 0.7389700D-02
         E(6) = 0.1438100D+04
         S(6) = 0.2348100D-01
         E(7) = 0.5616700D+03
         S(7) = 0.6568500D-01
         E(8) = 0.2331100D+03
         S(8) = 0.1559700D+00
         E(9) = 0.1012200D+03
         S(9) = 0.2932200D+00
         E(10) = 0.4549300D+02
         S(10) = 0.3601100D+00
         E(11) = 0.2084700D+02
         S(11) = 0.2150600D+00
         E(12) = 0.8649200D+01
         S(12) = 0.3078200D-01
         E(13) = 0.1217900D+05
         S(13) = -.3038300D-05
         E(14) = 0.3978700D+04
         S(14) = -.4645600D-05
         E(15) = 0.1438100D+04
         S(15) = -.1231600D-03
         E(16) = 0.5616700D+03
         S(16) = -.5472300D-03
         E(17) = 0.2331100D+03
         S(17) = -.4070200D-02
         E(18) = 0.1012200D+03
         S(18) = -.1565200D-01
         E(19) = 0.4549300D+02
         S(19) = -.5030900D-01
         E(20) = 0.2084700D+02
         S(20) = -.5151700D-01
         E(21) = 0.8649200D+01
         S(21) = 0.1182300D+00
         E(22) = 0.3945600D+01
         S(22) = 0.2562800D+00
         E(23) = 0.3978700D+04
         S(23) = -.2306700D-05
         E(24) = 0.1438100D+04
         S(24) = -.1955600D-04
         E(25) = 0.5616700D+03
         S(25) = -.1438600D-03
         E(26) = 0.2331100D+03
         S(26) = -.8441900D-03
         E(27) = 0.1012200D+03
         S(27) = -.3862100D-02
         E(28) = 0.4549300D+02
         S(28) = -.1181300D-01
         E(29) = 0.2084700D+02
         S(29) = -.1611400D-01
         E(30) = 0.8649200D+01
         S(30) = 0.4149200D-01
         E(31) = 0.3945600D+01
         S(31) = 0.1851700D+00
         E(32) = 0.1747200D+01
         S(32) = 0.2396300D+00
         E(33) = 0.5995300D+00
         S(33) = 0.1000000D+01
         E(34) = 0.2712700D+00
         S(34) = 0.1000000D+01
         E(35) = 0.1108000D+00
         S(35) = 0.1000000D+01
         E(36) = 0.3285800D+04
         P(36) = 0.1206200D-03
         E(37) = 0.7789300D+03
         P(37) = 0.1058700D-02
         E(38) = 0.2527600D+03
         P(38) = 0.5919100D-02
         E(39) = 0.9510000D+02
         P(39) = 0.2540500D-01
         E(40) = 0.3982000D+02
         P(40) = 0.7785900D-01
         E(41) = 0.1792500D+02
         P(41) = 0.1857800D+00
         E(42) = 0.8369900D+01
         P(42) = 0.3134700D+00
         E(43) = 0.3965500D+01
         P(43) = 0.3571800D+00
         E(44) = 0.1854000D+01
         P(44) = 0.2117900D+00
         E(45) = 0.7789300D+03
         P(45) = 0.4239700D-05
         E(46) = 0.2527600D+03
         P(46) = -.7433300D-05
         E(47) = 0.9510000D+02
         P(47) = 0.2772600D-04
         E(48) = 0.3982000D+02
         P(48) = -.6502800D-03
         E(49) = 0.1792500D+02
         P(49) = -.1893300D-02
         E(50) = 0.8369900D+01
         P(50) = -.1019100D-01
         E(51) = 0.3965500D+01
         P(51) = -.7629100D-02
         E(52) = 0.1854000D+01
         P(52) = 0.2103200D-01
         E(53) = 0.8197100D+00
         P(53) = 0.2434700D+00
         E(54) = 0.3611700D+00
         P(54) = 0.1000000D+01
         E(55) = 0.1509700D+00
         P(55) = 0.1000000D+01
         E(56) = 0.5962000D-01
         P(56) = 0.1000000D+01
         E(57) = 0.8760000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.2300000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.6800000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.2500000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1530000D+01
         F(61) = 0.1000000D+01
         E(62) = 0.5100000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.7900000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.6359200D+07
         S(1) = 0.1557500D-05
         E(2) = 0.9838900D+06
         S(2) = 0.1156300D-04
         E(3) = 0.2297700D+06
         S(3) = 0.5901700D-04
         E(4) = 0.6627600D+05
         S(4) = 0.2447400D-03
         E(5) = 0.2188400D+05
         S(5) = 0.8815900D-03
         E(6) = 0.7969600D+04
         S(6) = 0.2849400D-02
         E(7) = 0.3129900D+04
         S(7) = 0.8427300D-02
         E(8) = 0.1305200D+04
         S(8) = 0.2295100D-01
         E(9) = 0.5717000D+03
         S(9) = 0.5703800D-01
         E(10) = 0.2605800D+03
         S(10) = 0.1261600D+00
         E(11) = 0.1224800D+03
         S(11) = 0.2337300D+00
         E(12) = 0.5951800D+02
         S(12) = 0.3188300D+00
         E(13) = 0.2962700D+02
         S(13) = 0.2709800D+00
         E(14) = 0.1494300D+02
         S(14) = 0.1021700D+00
         E(15) = 0.7047900D+01
         S(15) = 0.8132600D-02
         E(16) = 0.2188400D+05
         S(16) = -.8245700D-06
         E(17) = 0.7969600D+04
         S(17) = -.1032700D-05
         E(18) = 0.3129900D+04
         S(18) = -.3412100D-04
         E(19) = 0.1305200D+04
         S(19) = -.1518700D-03
         E(20) = 0.5717000D+03
         S(20) = -.1109300D-02
         E(21) = 0.2605800D+03
         S(21) = -.4796700D-02
         E(22) = 0.1224800D+03
         S(22) = -.2168200D-01
         E(23) = 0.5951800D+02
         S(23) = -.5690800D-01
         E(24) = 0.2962700D+02
         S(24) = -.1191500D+00
         E(25) = 0.1494300D+02
         S(25) = -.2716800D-02
         E(26) = 0.7047900D+01
         S(26) = 0.3036500D+00
         E(27) = 0.3504000D+01
         S(27) = 0.4758800D+00
         E(28) = 0.7969600D+04
         S(28) = -.2815600D-05
         E(29) = 0.3129900D+04
         S(29) = -.2107900D-04
         E(30) = 0.1305200D+04
         S(30) = -.1370900D-03
         E(31) = 0.5717000D+03
         S(31) = -.7893500D-03
         E(32) = 0.2605800D+03
         S(32) = -.3823000D-02
         E(33) = 0.1224800D+03
         S(33) = -.1607200D-01
         E(34) = 0.5951800D+02
         S(34) = -.4492200D-01
         E(35) = 0.2962700D+02
         S(35) = -.9013700D-01
         E(36) = 0.1494300D+02
         S(36) = -.1063100D-01
         E(37) = 0.7047900D+01
         S(37) = 0.2768700D+00
         E(38) = 0.3504000D+01
         S(38) = 0.5196000D+00
         E(39) = 0.1699700D+01
         S(39) = 0.3099100D+00
         E(40) = 0.7310100D+00
         S(40) = 0.1000000D+01
         E(41) = 0.3794800D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1818500D+00
         S(42) = 0.1000000D+01
         E(43) = 0.8396100D-01
         S(43) = 0.1000000D+01
         E(44) = 0.9341400D+04
         P(44) = 0.1949300D-04
         E(45) = 0.2208600D+04
         P(45) = 0.1743200D-03
         E(46) = 0.7162700D+03
         P(46) = 0.1016100D-02
         E(47) = 0.2725100D+03
         P(47) = 0.4617200D-02
         E(48) = 0.1137700D+03
         P(48) = 0.1716300D-01
         E(49) = 0.5257100D+02
         P(49) = 0.4813200D-01
         E(50) = 0.2539700D+02
         P(50) = 0.1170400D+00
         E(51) = 0.1277000D+02
         P(51) = 0.2160200D+00
         E(52) = 0.6622400D+01
         P(52) = 0.2952800D+00
         E(53) = 0.3538800D+01
         P(53) = 0.2882500D+00
         E(54) = 0.1875600D+01
         P(54) = 0.1798200D+00
         E(55) = 0.2208600D+04
         P(55) = 0.6104400D-06
         E(56) = 0.7162700D+03
         P(56) = -.3376100D-06
         E(57) = 0.2725100D+03
         P(57) = 0.1062600D-04
         E(58) = 0.1137700D+03
         P(58) = -.5017600D-04
         E(59) = 0.5257100D+02
         P(59) = -.7804700D-04
         E(60) = 0.2539700D+02
         P(60) = -.1618800D-02
         E(61) = 0.1277000D+02
         P(61) = -.2655100D-02
         E(62) = 0.6622400D+01
         P(62) = -.1377700D-01
         E(63) = 0.3538800D+01
         P(63) = 0.2424600D-02
         E(64) = 0.1875600D+01
         P(64) = 0.5857200D-03
         E(65) = 0.9901800D+00
         P(65) = 0.1651800D+00
         E(66) = 0.4772300D+00
         P(66) = 0.1000000D+01
         E(67) = 0.2269200D+00
         P(67) = 0.1000000D+01
         E(68) = 0.1047300D+00
         P(68) = 0.1000000D+01
         E(69) = 0.4530300D-01
         P(69) = 0.1000000D+01
         E(70) = 0.2293000D+02
         D(70) = 0.1000000D+01
         E(71) = 0.6550000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.2260000D+01
         D(72) = 0.1000000D+01
         E(73) = 0.8100000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.3510000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1460000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.3590000D+01
         F(76) = 0.1000000D+01
         E(77) = 0.8400000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.3500000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1760000D+01
         G(79) = 0.1000000D+01
         E(80) = 0.5900000D+00
         G(80) = 0.1000000D+01
CFRJ     E(81) = 0.9500000D+00
CFRJ     H(81) = 0.1000000D+01
         ILAST = 80
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1175900D+05
         S(1) = 0.4724800D-02
         E(2) = 0.1768600D+04
         S(2) = 0.3654600D-01
         E(3) = 0.4021900D+03
         S(3) = 0.1659700D+00
         E(4) = 0.1125400D+03
         S(4) = 0.5253000D+00
         E(5) = 0.3503900D+02
         S(5) = 0.6195500D+00
         E(6) = 0.1768600D+04
         S(6) = 0.2905300D-02
         E(7) = 0.4021900D+03
         S(7) = 0.1066400D-01
         E(8) = 0.1125400D+03
         S(8) = 0.2340600D+00
         E(9) = 0.3503900D+02
         S(9) = 0.3991500D+00
         E(10) = 0.6995600D+01
         S(10) = -.1793700D+00
         E(11) = 0.4021900D+03
         S(11) = -.6919700D-03
         E(12) = 0.1125400D+03
         S(12) = -.5976000D-02
         E(13) = 0.3503900D+02
         S(13) = -.2739400D-01
         E(14) = 0.6995600D+01
         S(14) = 0.1551600D+00
         E(15) = 0.2645500D+01
         S(15) = 0.2502800D+00
         E(16) = 0.3415700D+00
         S(16) = 0.1000000D+01
         E(17) = 0.1506600D+03
         P(17) = 0.2829900D-01
         E(18) = 0.3493300D+02
         P(18) = 0.1733600D+00
         E(19) = 0.1049200D+02
         P(19) = 0.4681200D+00
         E(20) = 0.3372600D+01
         P(20) = 0.4832100D+00
         E(21) = 0.3493300D+02
         P(21) = 0.1359800D-03
         E(22) = 0.1049200D+02
         P(22) = -.1661100D-01
         E(23) = 0.3372600D+01
         P(23) = 0.2235100D-01
         E(24) = 0.7598900D+00
         P(24) = 0.5119200D+00
         E(25) = 0.2028900D+00
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.6347400D+05
         S(1) = 0.5802800D-03
         E(2) = 0.9521300D+04
         S(2) = 0.4479200D-02
         E(3) = 0.2167400D+04
         S(3) = 0.2300000D-01
         E(4) = 0.6137400D+03
         S(4) = 0.8881500D-01
         E(5) = 0.1997200D+03
         S(5) = 0.2525800D+00
         E(6) = 0.7156400D+02
         S(6) = 0.4392100D+00
         E(7) = 0.2697900D+02
         S(7) = 0.3186800D+00
         E(8) = 0.6826000D+01
         S(8) = 0.3434800D-01
         E(9) = 0.9521300D+04
         S(9) = -.1982400D-04
         E(10) = 0.2167400D+04
         S(10) = -.4719900D-04
         E(11) = 0.6137400D+03
         S(11) = -.1771300D-02
         E(12) = 0.1997200D+03
         S(12) = -.9806800D-02
         E(13) = 0.7156400D+02
         S(13) = -.6671900D-01
         E(14) = 0.2697900D+02
         S(14) = -.8871100D-01
         E(15) = 0.6826000D+01
         S(15) = 0.4939600D+00
         E(16) = 0.2576700D+01
         S(16) = 0.6539200D+00
         E(17) = 0.2167400D+04
         S(17) = 0.9058400D-05
         E(18) = 0.6137400D+03
         S(18) = 0.1069500D-03
         E(19) = 0.1997200D+03
         S(19) = 0.1098100D-02
         E(20) = 0.7156400D+02
         S(20) = 0.5989800D-02
         E(21) = 0.2697900D+02
         S(21) = 0.1276200D-01
         E(22) = 0.6826000D+01
         S(22) = -.1030700D+00
         E(23) = 0.2576700D+01
         S(23) = -.2594100D+00
         E(24) = 0.5575200D+00
         S(24) = 0.6489900D+00
         E(25) = 0.1982500D+00
         S(25) = 0.1000000D+01
         E(26) = 0.4131200D+03
         P(26) = 0.5425100D-02
         E(27) = 0.9705400D+02
         P(27) = 0.4164400D-01
         E(28) = 0.3048200D+02
         P(28) = 0.1699000D+00
         E(29) = 0.1096200D+02
         P(29) = 0.3927500D+00
         E(30) = 0.4127600D+01
         P(30) = 0.4504500D+00
         E(31) = 0.1533800D+01
         P(31) = 0.1530800D+00
         E(32) = 0.9705400D+02
         P(32) = -.1735600D-05
         E(33) = 0.3048200D+02
         P(33) = -.2144100D-02
         E(34) = 0.1096200D+02
         P(34) = -.9129800D-02
         E(35) = 0.4127600D+01
         P(35) = -.1990600D-01
         E(36) = 0.1533800D+01
         P(36) = 0.1558200D+00
         E(37) = 0.5143900D+00
         P(37) = 0.5877200D+00
         E(38) = 0.1502600D+00
         P(38) = 0.1000000D+01
         E(39) = 0.6000000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.2011500D+06
         S(1) = 0.1375300D-03
         E(2) = 0.3014600D+05
         S(2) = 0.1067100D-02
         E(3) = 0.6861000D+04
         S(3) = 0.5573700D-02
         E(4) = 0.1942800D+04
         S(4) = 0.2293500D-01
         E(5) = 0.6334200D+03
         S(5) = 0.7735400D-01
         E(6) = 0.2281000D+03
         S(6) = 0.2053400D+00
         E(7) = 0.8828800D+02
         S(7) = 0.3809300D+00
         E(8) = 0.3575000D+02
         S(8) = 0.3636100D+00
         E(9) = 0.1457100D+02
         S(9) = 0.9518200D-01
         E(10) = 0.3014600D+05
         S(10) = -.1339000D-05
         E(11) = 0.6861000D+04
         S(11) = -.9471400D-06
         E(12) = 0.1942800D+04
         S(12) = -.9465300D-04
         E(13) = 0.6334200D+03
         S(13) = -.4833700D-03
         E(14) = 0.2281000D+03
         S(14) = -.5000900D-02
         E(15) = 0.8828800D+02
         S(15) = -.2023000D-01
         E(16) = 0.3575000D+02
         S(16) = -.6020900D-01
         E(17) = 0.1457100D+02
         S(17) = 0.2919500D-01
         E(18) = 0.5658000D+01
         S(18) = 0.1699300D+00
         E(19) = 0.6861000D+04
         S(19) = -.1967400D-05
         E(20) = 0.1942800D+04
         S(20) = -.2486800D-04
         E(21) = 0.6334200D+03
         S(21) = -.2896700D-03
         E(22) = 0.2281000D+03
         S(22) = -.2151300D-02
         E(23) = 0.8828800D+02
         S(23) = -.1119500D-01
         E(24) = 0.3575000D+02
         S(24) = -.3018000D-01
         E(25) = 0.1457100D+02
         S(25) = 0.5945600D-02
         E(26) = 0.5658000D+01
         S(26) = 0.2470200D+00
         E(27) = 0.2255400D+01
         S(27) = 0.3141200D+00
         E(28) = 0.5494700D+00
         S(28) = 0.1000000D+01
         E(29) = 0.1912600D+00
         S(29) = 0.1000000D+01
         E(30) = 0.1129900D+04
         P(30) = 0.9762100D-03
         E(31) = 0.2680600D+03
         P(31) = 0.8126000D-02
         E(32) = 0.8622200D+02
         P(32) = 0.4143300D-01
         E(33) = 0.3197900D+02
         P(33) = 0.1403500D+00
         E(34) = 0.1300800D+02
         P(34) = 0.3120700D+00
         E(35) = 0.5476600D+01
         P(35) = 0.4209900D+00
         E(36) = 0.2309000D+01
         P(36) = 0.2566400D+00
         E(37) = 0.2680600D+03
         P(37) = -.1159600D-04
         E(38) = 0.8622200D+02
         P(38) = -.1828900D-03
         E(39) = 0.3197900D+02
         P(39) = -.1717000D-02
         E(40) = 0.1300800D+02
         P(40) = -.7897400D-02
         E(41) = 0.5476600D+01
         P(41) = -.1823700D-01
         E(42) = 0.2309000D+01
         P(42) = 0.4003500D-01
         E(43) = 0.8460100D+00
         P(43) = 0.3671700D+00
         E(44) = 0.3165900D+00
         P(44) = 0.1000000D+01
         E(45) = 0.1071600D+00
         P(45) = 0.1000000D+01
         E(46) = 0.2310000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.5200000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.7200000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1461100D+07
         S(1) = 0.1153400D-04
         E(2) = 0.2195900D+06
         S(2) = 0.8923500D-04
         E(3) = 0.5008500D+05
         S(3) = 0.4681100D-03
         E(4) = 0.1420600D+05
         S(4) = 0.1969200D-02
         E(5) = 0.4638900D+04
         S(5) = 0.7111200D-02
         E(6) = 0.1676300D+04
         S(6) = 0.2262500D-01
         E(7) = 0.6545100D+03
         S(7) = 0.6348800D-01
         E(8) = 0.2715300D+03
         S(8) = 0.1517300D+00
         E(9) = 0.1178700D+03
         S(9) = 0.2882600D+00
         E(10) = 0.5298400D+02
         S(10) = 0.3611300D+00
         E(11) = 0.2429200D+02
         S(11) = 0.2230300D+00
         E(12) = 0.1018400D+02
         S(12) = 0.3403100D-01
         E(13) = 0.1420600D+05
         S(13) = -.2709300D-05
         E(14) = 0.4638900D+04
         S(14) = -.4319100D-05
         E(15) = 0.1676300D+04
         S(15) = -.1090700D-03
         E(16) = 0.6545100D+03
         S(16) = -.4885300D-03
         E(17) = 0.2715300D+03
         S(17) = -.3632700D-02
         E(18) = 0.1178700D+03
         S(18) = -.1414200D-01
         E(19) = 0.5298400D+02
         S(19) = -.4616700D-01
         E(20) = 0.2429200D+02
         S(20) = -.5010700D-01
         E(21) = 0.1018400D+02
         S(21) = 0.9999900D-01
         E(22) = 0.4692800D+01
         S(22) = 0.2375000D+00
         E(23) = 0.4638900D+04
         S(23) = -.2874000D-05
         E(24) = 0.1676300D+04
         S(24) = -.2494900D-04
         E(25) = 0.6545100D+03
         S(25) = -.1827200D-03
         E(26) = 0.2715300D+03
         S(26) = -.1082100D-02
         E(27) = 0.1178700D+03
         S(27) = -.4984600D-02
         E(28) = 0.5298400D+02
         S(28) = -.1541400D-01
         E(29) = 0.2429200D+02
         S(29) = -.2177400D-01
         E(30) = 0.1018400D+02
         S(30) = 0.4888100D-01
         E(31) = 0.4692800D+01
         S(31) = 0.2180800D+00
         E(32) = 0.2097400D+01
         S(32) = 0.2741200D+00
         E(33) = 0.7486700D+00
         S(33) = 0.1000000D+01
         E(34) = 0.3361300D+00
         S(34) = 0.1000000D+01
         E(35) = 0.1357300D+00
         S(35) = 0.1000000D+01
         E(36) = 0.3845700D+04
         P(36) = 0.1165300D-03
         E(37) = 0.9112300D+03
         P(37) = 0.1025000D-02
         E(38) = 0.2956400D+03
         P(38) = 0.5748100D-02
         E(39) = 0.1114000D+03
         P(39) = 0.2470000D-01
         E(40) = 0.4676700D+02
         P(40) = 0.7626300D-01
         E(41) = 0.2110600D+02
         P(41) = 0.1834300D+00
         E(42) = 0.9905800D+01
         P(42) = 0.3121900D+00
         E(43) = 0.4734700D+01
         P(43) = 0.3583600D+00
         E(44) = 0.2236400D+01
         P(44) = 0.2117600D+00
         E(45) = 0.9112300D+03
         P(45) = 0.3576100D-05
         E(46) = 0.2956400D+03
         P(46) = -.7776800D-05
         E(47) = 0.1114000D+03
         P(47) = 0.6766600D-05
         E(48) = 0.4676700D+02
         P(48) = -.6939400D-03
         E(49) = 0.2110600D+02
         P(49) = -.2256300D-02
         E(50) = 0.9905800D+01
         P(50) = -.1101800D-01
         E(51) = 0.4734700D+01
         P(51) = -.9366300D-02
         E(52) = 0.2236400D+01
         P(52) = 0.2517100D-01
         E(53) = 0.1007100D+01
         P(53) = 0.2557400D+00
         E(54) = 0.4436900D+00
         P(54) = 0.1000000D+01
         E(55) = 0.1848800D+00
         P(55) = 0.1000000D+01
         E(56) = 0.7326800D-01
         P(56) = 0.1000000D+01
         E(57) = 0.9810000D+01
         D(57) = 0.1000000D+01
         E(58) = 0.2580000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.7600000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.2800000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1720000D+01
         F(61) = 0.1000000D+01
         E(62) = 0.5700000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.8600000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.7421200D+07
         S(1) = 0.1499200D-05
         E(2) = 0.1141100D+07
         S(2) = 0.1124300D-04
         E(3) = 0.2644300D+06
         S(3) = 0.5800000D-04
         E(4) = 0.7579100D+05
         S(4) = 0.2421500D-03
         E(5) = 0.2492500D+05
         S(5) = 0.8755000D-03
         E(6) = 0.9052600D+04
         S(6) = 0.2837600D-02
         E(7) = 0.3548100D+04
         S(7) = 0.8408600D-02
         E(8) = 0.1478000D+04
         S(8) = 0.2290600D-01
         E(9) = 0.6473500D+03
         S(9) = 0.5689500D-01
         E(10) = 0.2953300D+03
         S(10) = 0.1256900D+00
         E(11) = 0.1389800D+03
         S(11) = 0.2332700D+00
         E(12) = 0.6754900D+02
         S(12) = 0.3189400D+00
         E(13) = 0.3366100D+02
         S(13) = 0.2711700D+00
         E(14) = 0.1702700D+02
         S(14) = 0.1024700D+00
         E(15) = 0.8150400D+01
         S(15) = 0.8306700D-02
         E(16) = 0.2492500D+05
         S(16) = -.1335800D-05
         E(17) = 0.9052600D+04
         S(17) = -.1844000D-05
         E(18) = 0.3548100D+04
         S(18) = -.5816900D-04
         E(19) = 0.1478000D+04
         S(19) = -.2663400D-03
         E(20) = 0.6473500D+03
         S(20) = -.1917200D-02
         E(21) = 0.2953300D+03
         S(21) = -.8359700D-02
         E(22) = 0.1389800D+03
         S(22) = -.3750200D-01
         E(23) = 0.6754900D+02
         S(23) = -.9949500D-01
         E(24) = 0.3366100D+02
         S(24) = -.2064000D+00
         E(25) = 0.1702700D+02
         S(25) = -.5206300D-02
         E(26) = 0.8150400D+01
         S(26) = 0.5004800D+00
         E(27) = 0.4131900D+01
         S(27) = 0.8333200D+00
         E(28) = 0.9052600D+04
         S(28) = -.3705800D-05
         E(29) = 0.3548100D+04
         S(29) = -.2923500D-04
         E(30) = 0.1478000D+04
         S(30) = -.1890200D-03
         E(31) = 0.6473500D+03
         S(31) = -.1094000D-02
         E(32) = 0.2953300D+03
         S(32) = -.5290800D-02
         E(33) = 0.1389800D+03
         S(33) = -.2220500D-01
         E(34) = 0.6754900D+02
         S(34) = -.6245500D-01
         E(35) = 0.3366100D+02
         S(35) = -.1243900D+00
         E(36) = 0.1702700D+02
         S(36) = -.1497300D-01
         E(37) = 0.8150400D+01
         S(37) = 0.3644000D+00
         E(38) = 0.4131900D+01
         S(38) = 0.6871700D+00
         E(39) = 0.2045700D+01
         S(39) = 0.3934300D+00
         E(40) = 0.9402900D+00
         S(40) = 0.1000000D+01
         E(41) = 0.4690100D+00
         S(41) = 0.1000000D+01
         E(42) = 0.2221900D+00
         S(42) = 0.1000000D+01
         E(43) = 0.1022000D+00
         S(43) = 0.1000000D+01
         E(44) = 0.1103500D+05
         P(44) = 0.1851400D-04
         E(45) = 0.2611500D+04
         P(45) = 0.1652700D-03
         E(46) = 0.8480200D+03
         P(46) = 0.9623300D-03
         E(47) = 0.3230000D+03
         P(47) = 0.4377700D-02
         E(48) = 0.1353300D+03
         P(48) = 0.1621800D-01
         E(49) = 0.6268400D+02
         P(49) = 0.4610400D-01
         E(50) = 0.3029800D+02
         P(50) = 0.1134800D+00
         E(51) = 0.1524000D+02
         P(51) = 0.2135300D+00
         E(52) = 0.7925900D+01
         P(52) = 0.2943800D+00
         E(53) = 0.4285300D+01
         P(53) = 0.2877800D+00
         E(54) = 0.2304300D+01
         P(54) = 0.1826900D+00
         E(55) = 0.2611500D+04
         P(55) = 0.5613700D-06
         E(56) = 0.8480200D+03
         P(56) = -.3484400D-06
         E(57) = 0.3230000D+03
         P(57) = 0.9200700D-05
         E(58) = 0.1353300D+03
         P(58) = -.5111800D-04
         E(59) = 0.6268400D+02
         P(59) = -.1059700D-03
         E(60) = 0.3029800D+02
         P(60) = -.1668900D-02
         E(61) = 0.1524000D+02
         P(61) = -.3099800D-02
         E(62) = 0.7925900D+01
         P(62) = -.1462800D-01
         E(63) = 0.4285300D+01
         P(63) = 0.1234500D-02
         E(64) = 0.2304300D+01
         P(64) = 0.1531500D-02
         E(65) = 0.1235700D+01
         P(65) = 0.1699300D+00
         E(66) = 0.6002100D+00
         P(66) = 0.1000000D+01
         E(67) = 0.2873900D+00
         P(67) = 0.1000000D+01
         E(68) = 0.1318500D+00
         P(68) = 0.1000000D+01
         E(69) = 0.5697000D-01
         P(69) = 0.1000000D+01
         E(70) = 0.2463000D+02
         D(70) = 0.1000000D+01
         E(71) = 0.7040000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.2430000D+01
         D(72) = 0.1000000D+01
         E(73) = 0.8700000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.3770000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1570000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.4060000D+01
         F(76) = 0.1000000D+01
         E(77) = 0.9500000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.3900000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1970000D+01
         G(79) = 0.1000000D+01
         E(80) = 0.6600000D+00
         G(80) = 0.1000000D+01
CFRJ     E(81) = 0.1040000D+01
CFRJ     H(81) = 0.1000000D+01
         ILAST = 80
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(1) = 0.1327700D+05
         S(1) = 0.2344000D-01
         E(2) = 0.1996900D+04
         S(2) = 0.1522500D+00
         E(3) = 0.4541200D+03
         S(3) = 0.7253600D+00
         E(4) = 0.1271400D+03
         S(4) = 0.3318000D+00
         E(5) = 0.3963700D+02
         S(5) = -.6375100D+00
         E(6) = 0.1996900D+04
         S(6) = 0.1468900D-02
         E(7) = 0.4541200D+03
         S(7) = 0.4928200D-02
         E(8) = 0.1271400D+03
         S(8) = 0.1145800D+00
         E(9) = 0.3963700D+02
         S(9) = 0.1854800D+00
         E(10) = 0.7981700D+01
         S(10) = 0.2189400D-01
         E(11) = 0.4541200D+03
         S(11) = -.3746900D-03
         E(12) = 0.1271400D+03
         S(12) = -.3246200D-02
         E(13) = 0.3963700D+02
         S(13) = -.1496800D-01
         E(14) = 0.7981700D+01
         S(14) = 0.8393600D-01
         E(15) = 0.3070600D+01
         S(15) = 0.1289100D+00
         E(16) = 0.4090800D+00
         S(16) = 0.1000000D+01
         E(17) = 0.1732300D+03
         P(17) = 0.1395500D-01
         E(18) = 0.4023900D+02
         P(18) = 0.8622600D-01
         E(19) = 0.1213900D+02
         P(19) = 0.2342300D+00
         E(20) = 0.3952700D+01
         P(20) = 0.2406200D+00
         E(21) = 0.4023900D+02
         P(21) = 0.1313100D-03
         E(22) = 0.1213900D+02
         P(22) = -.9148200D-02
         E(23) = 0.3952700D+01
         P(23) = 0.1328000D-01
         E(24) = 0.9062600D+00
         P(24) = 0.2650300D+00
         E(25) = 0.2425200D+00
         P(25) = 0.1000000D+01
         ILAST = 25
      ELSE IF (NPOL.EQ.1) THEN
         E(1) = 0.7195600D+05
         S(1) = 0.2864300D-03
         E(2) = 0.1079300D+05
         S(2) = 0.2211200D-02
         E(3) = 0.2457000D+04
         S(3) = 0.1135800D-01
         E(4) = 0.6957200D+03
         S(4) = 0.4391600D-01
         E(5) = 0.2264000D+03
         S(5) = 0.1253100D+00
         E(6) = 0.8113800D+02
         S(6) = 0.2192700D+00
         E(7) = 0.3061200D+02
         S(7) = 0.1607100D+00
         E(8) = 0.7829100D+01
         S(8) = 0.1784900D-01
         E(9) = 0.1079300D+05
         S(9) = -.9613600D-05
         E(10) = 0.2457000D+04
         S(10) = -.2414400D-04
         E(11) = 0.6957200D+03
         S(11) = -.8757000D-03
         E(12) = 0.2264000D+03
         S(12) = -.4937600D-02
         E(13) = 0.8113800D+02
         S(13) = -.3351200D-01
         E(14) = 0.3061200D+02
         S(14) = -.4576400D-01
         E(15) = 0.7829100D+01
         S(15) = 0.2463300D+00
         E(16) = 0.2998700D+01
         S(16) = 0.3286300D+00
         E(17) = 0.2457000D+04
         S(17) = 0.4785400D-05
         E(18) = 0.6957200D+03
         S(18) = 0.5758200D-04
         E(19) = 0.2264000D+03
         S(19) = 0.5897200D-03
         E(20) = 0.8113800D+02
         S(20) = 0.3239900D-02
         E(21) = 0.3061200D+02
         S(21) = 0.6981400D-02
         E(22) = 0.7829100D+01
         S(22) = -.5491800D-01
         E(23) = 0.2998700D+01
         S(23) = -.1347200D+00
         E(24) = 0.6724200D+00
         S(24) = 0.3273400D+00
         E(25) = 0.2371900D+00
         S(25) = 0.1000000D+01
         E(26) = 0.4462700D+03
         P(26) = 0.2961300D-02
         E(27) = 0.1049400D+03
         P(27) = 0.2259100D-01
         E(28) = 0.3293100D+02
         P(28) = 0.9152400D-01
         E(29) = 0.1180900D+02
         P(29) = 0.2064200D+00
         E(30) = 0.4430400D+01
         P(30) = 0.2219500D+00
         E(31) = 0.1575100D+01
         P(31) = 0.6276500D-01
         E(32) = 0.1049400D+03
         P(32) = -.6082300D-04
         E(33) = 0.3293100D+02
         P(33) = -.1266100D-02
         E(34) = 0.1180900D+02
         P(34) = -.6458900D-02
         E(35) = 0.4430400D+01
         P(35) = -.6510500D-02
         E(36) = 0.1575100D+01
         P(36) = 0.1043600D+00
         E(37) = 0.5641200D+00
         P(37) = 0.2918400D+00
         E(38) = 0.1701500D+00
         P(38) = 0.1000000D+01
         E(39) = 0.6500000D+00
         D(39) = 0.1000000D+01
         ILAST = 39
      ELSE IF (NPOL.EQ.2) THEN
         E(1) = 0.2325100D+06
         S(1) = 0.6625800D-04
         E(2) = 0.3484400D+05
         S(2) = 0.5141200D-03
         E(3) = 0.7930300D+04
         S(3) = 0.2686100D-02
         E(4) = 0.2245700D+04
         S(4) = 0.1106200D-01
         E(5) = 0.7322200D+03
         S(5) = 0.3740800D-01
         E(6) = 0.2637700D+03
         S(6) = 0.9992800D-01
         E(7) = 0.1021900D+03
         S(7) = 0.1878800D+00
         E(8) = 0.4152500D+02
         S(8) = 0.1842700D+00
         E(9) = 0.1720200D+02
         S(9) = 0.5178200D-01
         E(10) = 0.3484400D+05
         S(10) = -.7062300D-05
         E(11) = 0.7930300D+04
         S(11) = -.2422600D-05
         E(12) = 0.2245700D+04
         S(12) = -.4756400D-03
         E(13) = 0.7322200D+03
         S(13) = -.2277100D-02
         E(14) = 0.2637700D+03
         S(14) = -.2452700D-01
         E(15) = 0.1021900D+03
         S(15) = -.9819400D-01
         E(16) = 0.4152500D+02
         S(16) = -.3045900D+00
         E(17) = 0.1720200D+02
         S(17) = 0.1194000D+00
         E(18) = 0.6596700D+01
         S(18) = 0.8317300D+00
         E(19) = 0.7930300D+04
         S(19) = -.9379900D-06
         E(20) = 0.2245700D+04
         S(20) = -.1183100D-04
         E(21) = 0.7322200D+03
         S(21) = -.1381700D-03
         E(22) = 0.2637700D+03
         S(22) = -.1032400D-02
         E(23) = 0.1021900D+03
         S(23) = -.5432900D-02
         E(24) = 0.4152500D+02
         S(24) = -.1508500D-01
         E(25) = 0.1720200D+02
         S(25) = 0.1112000D-02
         E(26) = 0.6596700D+01
         S(26) = 0.1246100D+00
         E(27) = 0.2647700D+01
         S(27) = 0.1608300D+00
         E(28) = 0.6619300D+00
         S(28) = 0.1000000D+01
         E(29) = 0.2290100D+00
         S(29) = 0.1000000D+01
         E(30) = 0.1297700D+04
         P(30) = 0.4799700D-03
         E(31) = 0.3078600D+03
         P(31) = 0.4006700D-02
         E(32) = 0.9909600D+02
         P(32) = 0.2049700D-01
         E(33) = 0.3683700D+02
         P(33) = 0.6981900D-01
         E(34) = 0.1502700D+02
         P(34) = 0.1562500D+00
         E(35) = 0.6366200D+01
         P(35) = 0.2109900D+00
         E(36) = 0.2711000D+01
         P(36) = 0.1266500D+00
         E(37) = 0.3078600D+03
         P(37) = -.6641600D-05
         E(38) = 0.9909600D+02
         P(38) = -.9881300D-04
         E(39) = 0.3683700D+02
         P(39) = -.9357100D-03
         E(40) = 0.1502700D+02
         P(40) = -.4313300D-02
         E(41) = 0.6366200D+01
         P(41) = -.9864800D-02
         E(42) = 0.2711000D+01
         P(42) = 0.2233400D-01
         E(43) = 0.1018200D+01
         P(43) = 0.1883300D+00
         E(44) = 0.3827400D+00
         P(44) = 0.1000000D+01
         E(45) = 0.1294600D+00
         P(45) = 0.1000000D+01
         E(46) = 0.2520000D+01
         D(46) = 0.1000000D+01
         E(47) = 0.5700000D+00
         D(47) = 0.1000000D+01
         E(48) = 0.7800000D+00
         F(48) = 0.1000000D+01
         ILAST = 48
      ELSE IF (NPOL.EQ.3) THEN
         E(1) = 0.1702200D+07
         S(1) = 0.5510300D-05
         E(2) = 0.2549100D+06
         S(2) = 0.4283500D-04
         E(3) = 0.5801100D+05
         S(3) = 0.2252300D-03
         E(4) = 0.1643100D+05
         S(4) = 0.9488700D-03
         E(5) = 0.5360500D+04
         S(5) = 0.3431600D-02
         E(6) = 0.1935400D+04
         S(6) = 0.1093900D-01
         E(7) = 0.7550900D+03
         S(7) = 0.3079100D-01
         E(8) = 0.3130800D+03
         S(8) = 0.7398700D-01
         E(9) = 0.1358800D+03
         S(9) = 0.1418700D+00
         E(10) = 0.6109200D+02
         S(10) = 0.1808900D+00
         E(11) = 0.2802400D+02
         S(11) = 0.1150800D+00
         E(12) = 0.1186000D+02
         S(12) = 0.1857900D-01
         E(13) = 0.1643100D+05
         S(13) = -.1203600D-05
         E(14) = 0.5360500D+04
         S(14) = -.2001900D-05
         E(15) = 0.1935400D+04
         S(15) = -.4942900D-04
         E(16) = 0.7550900D+03
         S(16) = -.2244800D-03
         E(17) = 0.3130800D+03
         S(17) = -.1665200D-02
         E(18) = 0.1358800D+03
         S(18) = -.6578900D-02
         E(19) = 0.6109200D+02
         S(19) = -.2173400D-01
         E(20) = 0.2802400D+02
         S(20) = -.2485100D-01
         E(21) = 0.1186000D+02
         S(21) = 0.4358600D-01
         E(22) = 0.5511700D+01
         S(22) = 0.1133600D+00
         E(23) = 0.5360500D+04
         S(23) = -.1624900D-05
         E(24) = 0.1935400D+04
         S(24) = -.1422500D-04
         E(25) = 0.7550900D+03
         S(25) = -.1042700D-03
         E(26) = 0.3130800D+03
         S(26) = -.6207800D-03
         E(27) = 0.1358800D+03
         S(27) = -.2881300D-02
         E(28) = 0.6109200D+02
         S(28) = -.9020100D-02
         E(29) = 0.2802400D+02
         S(29) = -.1322600D-01
         E(30) = 0.1186000D+02
         S(30) = 0.2632900D-01
         E(31) = 0.5511700D+01
         S(31) = 0.1210500D+00
         E(32) = 0.2482200D+01
         S(32) = 0.1517000D+00
         E(33) = 0.9176100D+00
         S(33) = 0.1000000D+01
         E(34) = 0.4070300D+00
         S(34) = 0.1000000D+01
         E(35) = 0.1623800D+00
         S(35) = 0.1000000D+01
         E(36) = 0.4415500D+04
         P(36) = 0.5728200D-04
         E(37) = 0.1046300D+04
         P(37) = 0.5042700D-03
         E(38) = 0.3395400D+03
         P(38) = 0.2832100D-02
         E(39) = 0.1281000D+03
         P(39) = 0.1218600D-01
         E(40) = 0.5382300D+02
         P(40) = 0.3792400D-01
         E(41) = 0.2430700D+02
         P(41) = 0.9176200D-01
         E(42) = 0.1144000D+02
         P(42) = 0.1565600D+00
         E(43) = 0.5513200D+01
         P(43) = 0.1787500D+00
         E(44) = 0.2633100D+01
         P(44) = 0.1044700D+00
         E(45) = 0.1046300D+04
         P(45) = 0.1478800D-05
         E(46) = 0.3395400D+03
         P(46) = -.4226100D-05
         E(47) = 0.1281000D+03
         P(47) = -.6942600D-05
         E(48) = 0.5382300D+02
         P(48) = -.3733100D-03
         E(49) = 0.2430700D+02
         P(49) = -.1321400D-02
         E(50) = 0.1144000D+02
         P(50) = -.5993200D-02
         E(51) = 0.5513200D+01
         P(51) = -.5171400D-02
         E(52) = 0.2633100D+01
         P(52) = 0.1411000D-01
         E(53) = 0.1210900D+01
         P(53) = 0.1327600D+00
         E(54) = 0.5341100D+00
         P(54) = 0.1000000D+01
         E(55) = 0.2231400D+00
         P(55) = 0.1000000D+01
         E(56) = 0.8879200D-01
         P(56) = 0.1000000D+01
         E(57) = 0.1086000D+02
         D(57) = 0.1000000D+01
         E(58) = 0.2860000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.8400000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.3100000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.1910000D+01
         F(61) = 0.1000000D+01
         E(62) = 0.6300000D+00
         F(62) = 0.1000000D+01
         E(63) = 0.9300000D+00
         G(63) = 0.1000000D+01
         ILAST = 63
      ELSE IF (NPOL.EQ.4) THEN
         E(1) = 0.9445100D+07
         S(1) = 0.6471300D-06
         E(2) = 0.1414100D+07
         S(2) = 0.5033600D-05
         E(3) = 0.3218100D+06
         S(3) = 0.2648200D-04
         E(4) = 0.9115800D+05
         S(4) = 0.1119000D-03
         E(5) = 0.2974300D+05
         S(5) = 0.4079100D-03
         E(6) = 0.1074000D+05
         S(6) = 0.1330900D-02
         E(7) = 0.4190000D+04
         S(7) = 0.3965800D-02
         E(8) = 0.1738900D+04
         S(8) = 0.1086300D-01
         E(9) = 0.7592900D+03
         S(9) = 0.2715900D-01
         E(10) = 0.3455000D+03
         S(10) = 0.6051400D-01
         E(11) = 0.1623600D+03
         S(11) = 0.1135100D+00
         E(12) = 0.7888800D+02
         S(12) = 0.1582700D+00
         E(13) = 0.3932100D+02
         S(13) = 0.1390000D+00
         E(14) = 0.1991800D+02
         S(14) = 0.5564500D-01
         E(15) = 0.9576400D+01
         S(15) = 0.5137700D-02
         E(16) = 0.2974300D+05
         S(16) = -.5628400D-06
         E(17) = 0.1074000D+05
         S(17) = -.4044100D-06
         E(18) = 0.4190000D+04
         S(18) = -.2365900D-04
         E(19) = 0.1738900D+04
         S(19) = -.1026700D-03
         E(20) = 0.7592900D+03
         S(20) = -.7789100D-03
         E(21) = 0.3455000D+03
         S(21) = -.3374000D-02
         E(22) = 0.1623600D+03
         S(22) = -.1548200D-01
         E(23) = 0.7888800D+02
         S(23) = -.4168700D-01
         E(24) = 0.3932100D+02
         S(24) = -.8942400D-01
         E(25) = 0.1991800D+02
         S(25) = -.1062200D-01
         E(26) = 0.9576400D+01
         S(26) = 0.2009900D+00
         E(27) = 0.4916100D+01
         S(27) = 0.3672200D+00
         E(28) = 0.1074000D+05
         S(28) = -.4301400D-05
         E(29) = 0.4190000D+04
         S(29) = -.3226400D-04
         E(30) = 0.1738900D+04
         S(30) = -.2155900D-03
         E(31) = 0.7592900D+03
         S(31) = -.1243800D-02
         E(32) = 0.3455000D+03
         S(32) = -.6124400D-02
         E(33) = 0.1623600D+03
         S(33) = -.2587800D-01
         E(34) = 0.7888800D+02
         S(34) = -.7483000D-01
         E(35) = 0.3932100D+02
         S(35) = -.1527800D+00
         E(36) = 0.1991800D+02
         S(36) = -.3707900D-01
         E(37) = 0.9576400D+01
         S(37) = 0.4352400D+00
         E(38) = 0.4916100D+01
         S(38) = 0.8858200D+00
         E(39) = 0.2464800D+01
         S(39) = 0.6095100D+00
         E(40) = 0.1183000D+01
         S(40) = 0.1000000D+01
         E(41) = 0.5752100D+00
         S(41) = 0.1000000D+01
         E(42) = 0.2704100D+00
         S(42) = 0.1000000D+01
         E(43) = 0.1231200D+00
         S(43) = 0.1000000D+01
         E(44) = 0.1300600D+05
         P(44) = 0.8692800D-05
         E(45) = 0.3078100D+04
         P(45) = 0.7761100D-04
         E(46) = 0.9995600D+03
         P(46) = 0.4524900D-03
         E(47) = 0.3809700D+03
         P(47) = 0.2059500D-02
         E(48) = 0.1602800D+03
         P(48) = 0.7587200D-02
         E(49) = 0.7449400D+02
         P(49) = 0.2182200D-01
         E(50) = 0.3606500D+02
         P(50) = 0.5433200D-01
         E(51) = 0.1816400D+02
         P(51) = 0.1044200D+00
         E(52) = 0.9466500D+01
         P(52) = 0.1464500D+00
         E(53) = 0.5163000D+01
         P(53) = 0.1442600D+00
         E(54) = 0.2808500D+01
         P(54) = 0.9437900D-01
         E(55) = 0.3078100D+04
         P(55) = 0.2756600D-05
         E(56) = 0.9995600D+03
         P(56) = -.1827200D-05
         E(57) = 0.3809700D+03
         P(57) = 0.4539800D-04
         E(58) = 0.1602800D+03
         P(58) = -.2555100D-03
         E(59) = 0.7449400D+02
         P(59) = -.5496800D-03
         E(60) = 0.3606500D+02
         P(60) = -.8354200D-02
         E(61) = 0.1816400D+02
         P(61) = -.1650400D-01
         E(62) = 0.9466500D+01
         P(62) = -.7654200D-01
         E(63) = 0.5163000D+01
         P(63) = 0.1660600D-02
         E(64) = 0.2808500D+01
         P(64) = 0.1201500D-02
         E(65) = 0.1523500D+01
         P(65) = 0.8516900D+00
         E(66) = 0.7437900D+00
         P(66) = 0.1000000D+01
         E(67) = 0.3568000D+00
         P(67) = 0.1000000D+01
         E(68) = 0.1622100D+00
         P(68) = 0.1000000D+01
         E(69) = 0.6995600D-01
         P(69) = 0.1000000D+01
         E(70) = 0.2633000D+02
         D(70) = 0.1000000D+01
         E(71) = 0.7530000D+01
         D(71) = 0.1000000D+01
         E(72) = 0.2600000D+01
         D(72) = 0.1000000D+01
         E(73) = 0.9300000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.4100000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1700000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.4530000D+01
         F(76) = 0.1000000D+01
         E(77) = 0.1060000D+01
         F(77) = 0.1000000D+01
         E(78) = 0.4400000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.2180000D+01
         G(79) = 0.1000000D+01
         E(80) = 0.7300000D+00
         G(80) = 0.1000000D+01
CFRJ     E(81) = 0.1120000D+01
CFRJ     H(81) = 0.1000000D+01
         ILAST = 80
      ENDIF
      RETURN
      END
C*MODULE BASPCN  *DECK APCN01
      SUBROUTINE APCN01(E,S,P,D,F,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90)
C
      GO TO (100,120),N
C
C     ----- HYDROGEN -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.2717400D-01
         S(ILAST+1) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.2562800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7688400D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.2233400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6700100D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8933400D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.1880000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5639900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7519900D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9399900D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.1713100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5139300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6852400D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8565600D-01
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.1027900D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- HE -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.6237000D-01
         S(ILAST+1) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.5807000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1742000D+00
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.5123000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1537000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2049000D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.4304000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1291000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1722000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2152000D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.3920000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1176000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1568000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1960000D+00
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.2352000D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
      END
C*MODULE BASPCN  *DECK APCN02
      SUBROUTINE APCN02(E,S,P,D,F,G,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90),G(90)
C
      NN = N-2
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- LI -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1229000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3687000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.1057000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3171000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.7620000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2286000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3048000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.6713000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2014000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2685000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3357000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.5930000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8300000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2372000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2965000D-01
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.3558000D-01
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- BE -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.2585000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7755000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.1841000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5523000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.1576000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4728000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6304000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.1262000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3780000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5040000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6300000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.1106000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1333000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4424000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5530000D-01
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.6636000D-01
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- B  -----
C
  140 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.4560000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2494000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.3052000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2163000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6488000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.2597000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1667000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5001000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6668000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.2191000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1234000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3701000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4935000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.6168000D-01
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.2103000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1057000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3000000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4228000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5285000D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.6341000D-01
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- C  -----
C
  160 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.6974800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3936100D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.4485600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3351800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1005500D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.3721700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2644900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7934800D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1058000D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.3160500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1887300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5661900D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7549200D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.9436500D-01
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.2645200D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1620700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4862200D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6483000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.8103700D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.9724400D-01
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- N -----
C
  180 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.9798600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5670900D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.6273900D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4770700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1431200D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.5216500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3602300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1080700D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1440900D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.4444400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2638800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7916400D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1055500D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1319400D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.3754200D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2268400D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6805300D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9073700D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1134200D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1361100D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- O  ------
C
  200 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1316500D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7041600D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.8342500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5761600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1728500D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.6814100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4187100D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1256100D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1674800D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.5769000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2947700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8843100D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1179100D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1473900D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.4909400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2496700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7490200D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9987000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1248400D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1498000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- F  -----
C
  220 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1693100D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8902900D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.1080200D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7205400D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2161600D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.8827600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5237600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1571300D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2095100D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.7492400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3785600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1135700D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1514200D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1892800D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.6531300D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3240800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9722300D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1296300D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1620400D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1944500D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- NE -----
C
  240 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.2105000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1112000D+00
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.1345000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8950000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2685000D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.1095000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6462000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1939000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2585000D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.9248000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4721000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1416000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1888000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2360000D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.8164000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4057000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1271000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1623000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2028000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2434000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      END
C*MODULE BASPCN  *DECK APCN03
      SUBROUTINE APCN03(E,S,P,D,F,G,N,NPOL,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(90),S(90),P(90),D(90),F(90),G(90)
C
      NN = N-10
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- NA -----
C
  100 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1141000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3167000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.9001000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2500000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.8463000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1300000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3385000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.7658000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1233000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3063000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3829000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.4857000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6970000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1943000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2428000D-01
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.2914000D-01
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- MG -----
C
  120 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1989000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5333000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.1558000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4500000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.1401000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1900000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5605000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.1155000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1833000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4619000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5774500D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.9727000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1054000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3891000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4864000D-01
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.5836000D-01
CFRJ     G(ILAST+5) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.2898000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1678000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.2429000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1473000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4419000D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.2231000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1243000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3729000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4972000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.1869000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.9839000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2952000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3936000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4920000D-01
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.1470000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8129000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2439000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3252000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4064000D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4877000D-01
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.4273000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3266600D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.3329300D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2211100D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6633200D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.3087800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1752700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5258000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7010700D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.2610500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1456000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4368000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5824000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7280000D-01
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.2189700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1144200D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3432600D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4576800D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5721100D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.6865300D-01
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.5606900D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3756900D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.4319400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3038600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9115700D-01
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.4054800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2384800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7154300D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9539000D-01
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.3340800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1880000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5639900D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7519900D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.9399900D-01
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.2860700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1569300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4708000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6277400D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7846700D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.9416100D-01
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.7074900D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4306700D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.5410000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3536400D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1060900D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.5103700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2777600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8332700D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1111000D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.4183700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2182000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6546100D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8728200D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1091000D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.3548700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1803600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5410700D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7214200D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.9017800D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1082100D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.8657700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5142700D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.6581600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4146700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1244000D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.6224100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3397000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1019100D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1358800D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.5071100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2690400D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8071100D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1076100D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1345200D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.4304600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2265700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6797200D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9062900D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1132900D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1359400D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NPOL.EQ.0) THEN
         E(ILAST+1) = 0.1039000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6160000D-01
         P(ILAST+2) = 0.1000000D+01
      ELSE IF (NPOL.EQ.1) THEN
         E(ILAST+1) = 0.7815000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4839000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1452000D+00
         D(ILAST+3) = 0.1000000D+01
      ELSE IF (NPOL.EQ.2) THEN
         E(ILAST+1) = 0.7411000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4101000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1230000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1640000D+00
         F(ILAST+4) = 0.1000000D+01
      ELSE IF (NPOL.EQ.3) THEN
         E(ILAST+1) = 0.5999000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3273000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9819000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1309000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1636000D+00
         G(ILAST+5) = 0.1000000D+01
      ELSE IF (NPOL.EQ.4) THEN
         E(ILAST+1) = 0.5138000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2777000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8331000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1111000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1389000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1666000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
      ENDIF
      RETURN
      END
