C  4 MAR 08 - MWS - DEACTIVATE THE SC-ZN BASIS SETS (-DK TYPE).
C 20 AUG 07 - DJS - ADD CC-PVNZ BASIS SETS FOR SC-ZN FROM EMSL
C 17 JAN 06 - MWS - FIX DIFFUSE D FOR AL-AR IN ACCN (BUT NOT IN ACCNC)
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 CC-PVNZ BASIS SETS FROM THE EMSL LIBRARY.
C
C                   NOTE THAT N = 5 AND 6 CONTAINS POLARIZATION
C                   FUNCTIONS BEYOND G-FUNCTIONS, WHICH GAMESS
C                   CURRENTLY CANNOT HANDLE. THESE FUNCTIONS ARE
C                   COMMENTED OUT IN THE CODE, AND THE CORRESPONDING
C                   G- AND H-FUNCTIONS FOR HYDROGEN HAVE BEEN REMOVED
C                   AS WELL FOR CONSISTENCY
C
C    NOTE THAT THE ACCN BASIS FOR AL-AR IS NOT THE ORIGINAL AUG-CC-PVNZ,
C    BUT RATHER IS THE LATER REPLACEMENT, NAMED AUG-CC-PV(N+D)Z, AS WE
C    CONSIDER THE FORMER TO HAVE BEEN WITHDRAWN.
C
C*MODULE BASCCN  *DECK CCNBAS
      SUBROUTINE CCNBAS(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
C
      DIMENSION CSINP(*),CPINP(*),CDINP(*),CFINP(*),CGINP(*),
     *          INTYP(*),NANGM(*),NBFS(*),MINF(*),MAXF(*),NS(*)
      DIMENSION EEX(310),CCS(310),CCP(310),CCD(310),CCF(310),CCG(310),
     *          ITYPES(40),NGBFS(40)
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)
      LOGICAL LDIFF,LCORE,LXTRD
C
C     ----- SET UP THE CC-PVNZ BASIS SETS -----
C
      DO 100 I = 1,310
         EEX(I) = ZERO
         CCS(I) = ZERO
         CCP(I) = ZERO
         CCD(I) = ZERO
         CCF(I) = ZERO
         CCG(I) = ZERO
  100 CONTINUE
      DO 101 I = 1,40
         ITYPES(I) = 0
         NGBFS(I)  = 0
  101 CONTINUE
C
      LXTRD = .FALSE.
      LDIFF = .FALSE.
      LCORE = .FALSE.
      IF (NUCZ.GE.13 .AND. NUCZ.LE.18) LXTRD = .TRUE.
C
CFRJ  ACTIVATE THE FOLLOWING LINE IF INCLUSION OF TIGHT D-FUNCTIONS
C     IS NOT DESIRED
C
CFRJ  LXTRD = .FALSE.
C
      NTMP = NPOL
      IF (NTMP.GT.100) THEN
         NTMP = NTMP - 100
         LCORE = .TRUE.
      ENDIF
      IF (NTMP.GT.10) THEN
         NTMP = NTMP - 10
         LDIFF = .TRUE.
      ENDIF
C     NO TIGHT D-FUNCTIONS IF CORD-POLARIZATION
      IF (LCORE) LXTRD = .FALSE.
C
C     NO CC-PV6Z FOR NA,MG AND BEYOND AR
      IF (NTMP.EQ.5 .AND. (NUCZ.EQ.11 .OR. NUCZ.EQ.12
     *    .OR. NUCZ.GT.18) ) THEN
         IF (MASWRK) WRITE(6,*)
     *     'NO CC-PV6Z BASIS FOR ELEMENT = ',NUCZ
         CALL BERROR(3)
         STOP
      ENDIF
C     NO CORD-POLARIZATION FOR H AND HE, THIS IS NOT AN ERROR
      IF (NUCZ.LE.2) LCORE = .FALSE.
C     NO CORD-POLARIZATION FOR BE
C     NO CORD-POLARIZATION BEYOND AR
C     NO CORD-POLARIZATION FOR CC-PV6Z
C     CORD-POLARIZATION FOR CC-PV5Z ONLY FOR B-NE
C     THESE ARE FLAGGED AS ERRORS
      IF (LCORE) THEN
         IF ( NUCZ.EQ.4 .OR. NUCZ.GT.18 .OR. NTMP.GE.5 .OR.
     *    (NTMP.EQ.4 .AND. (NUCZ.LT.5 .OR. NUCZ.GT.10)) ) THEN
            IF (MASWRK) WRITE(6,*)
     *        'NO CC-PCVNZ BASIS FOR ELEMENT = ',NUCZ
            CALL BERROR(3)
            STOP
         ENDIF
      ENDIF
C     NO DIFFUSE FUNCTIONS FOR LI,BE,NA,MG,CA
C     THESE ARE CURRENTLY JUST PRINTED AS WARNINGS
C     NO DIFFUSE FUNCTIONS BEYOND AR FOR CC-PV6Z
C     THESE ARE FLAGGED AS ERRORS
      IF (LDIFF) THEN
         IF (NUCZ.EQ.3 .OR. NUCZ.EQ.4 .OR. NUCZ.EQ.11 .OR.
     *       NUCZ.EQ.12 .OR. NUCZ.EQ.20) THEN
            IF (MASWRK) WRITE(6,*)
     *        'WARNING! NO AUG-CC-PVNZ BASIS FOR ELEMENT = ',NUCZ
            IF (MASWRK) WRITE(6,*)
     *        'CONTINUING WITH REGULAR CC-PVNZ BASIS'
            LDIFF = .FALSE.
         ENDIF
         IF (NTMP.GE.5 .AND. NUCZ.GT.18) THEN
            IF (MASWRK) WRITE(6,*)
     *        'NO AUG-CC-PV6Z BASIS FOR ELEMENT = ',NUCZ
            CALL BERROR(3)
            STOP
         ENDIF
      ENDIF
C
C     ----- HYDROGEN TO HELIUM -----
C
      IF (NUCZ .GT. 2) GO TO 220
      CALL CCN001(EEX,CCS,CCP,CCD,CCF,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL ACCN01(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 CCN002(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LCORE) CALL CCCN02(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL ACCN02(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 240
      CALL CCN003(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LXTRD) THEN
         CALL MCCN03(EEX,NUCZ,NTMP)
         CALL DCCN03(EEX,CCD,NUCZ,NTMP,ILAST)
      ENDIF
      IF (LCORE) CALL CCCN03(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL ACCN03(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST,
     *                       LCORE)
      GO TO 300
C
C
C     ----- POTASIUM TO KRYPTON -----
C
  240 CONTINUE
      IF(NUCZ.GT.36) GO TO 250
C
C         OOPS, TM BASES ARE THE -DK RATHER THAN THE -NR SETS.
C         INFRASTRUCTURE FOR TMS IN INPUT*.SRC IS LEFT INTACT.
      IF(NUCZ.GE.21  .AND.  NUCZ.LE.30) THEN
         IF(MASWRK) WRITE(6,900) NUCZ
         CALL ABRT
      END IF
  900 FORMAT(1X,'1ST ROW TM ELEMENTS ARE PRESENTLY DEACTIVATED')
C
      CALL CCN004(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      IF (LDIFF) CALL ACCN04(EEX,CCS,CCP,CCD,CCF,CCG,NUCZ,NTMP,ILAST)
      GO TO 300
C
  250 CONTINUE
      IF (MASWRK) WRITE(6,*)
     *     'CC-PVNZ BASES EXIST ONLY UP TO KR.'
      CALL BERROR(3)
      STOP
C
C     ----- NOW SET UP EACH SHELL -----
C
  300 CONTINUE
      CALL CCNSHL(NUCZ,MXPASS,ITYPES,NGBFS,NTMP,LXTRD,LDIFF,LCORE)
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 BASCCN  *DECK CCNSHL
      SUBROUTINE CCNSHL(NUCZ,MXPASS,ITYPES,NGBFS,NTMP,LXTRD,LDIFF,LCORE)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION ITYPES(40),NGBFS(40)
      DIMENSION NPASS(5,4)
      DIMENSION ITYPS(30,5,4),NGS(30,5,4)
      LOGICAL LDIFF,LCORE,LXTRD
C
CFRJ  NOTE THAT THE LAST VALUES IN EACH NPASS SEQUENCE SHOULD BE
C     INCREMENTED WHEN H/I-FUNCTIONS ARE IMPLEMENTED, AND
C     CORRESPONDING CHANGES IN ITYPS AND NGS
C
C     NPASS: H,HE ; LI-NE ; NA-AR ; CA,GA-KR
      DATA NPASS/3,6,10,14,18,  6,10,15,20,25,
     *           8,12,17,22,27,  11,15,20,25,0/
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,2,27*0,   3*1,2*2,3,24*0,
     *           4*1,3*2,2*3,4,20*0,
     *           5*1,4*2,3*3,2*4,16*0,
     *           6*1,5*2,4*3,3*4,12*0,
     *           3*1,2*2,3,24*0,  4*1,3*2,2*3,4,20*0,
     *           5*1,4*2,3*3,2*4,5,15*0,
     *           6*1,5*2,4*3,3*4,2*5,10*0,
     *           7*1,6*2,5*3,4*4,3*5,5*0,
     *           4*1,3*2,3,22*0,  5*1,4*2,2*3,4,18*0,
     *           6*1,5*2,3*3,2*4,5,13*0,
     *           7*1,6*2,4*3,3*4,2*5,8*0,
     *           8*1,7*2,5*3,4*4,3*5,3*0,
     *           5*1,4*2,2*3,19*0,  6*1,5*2,3*3,4,15*0,
     *           7*1,6*2,4*3,2*4,5,10*0,
     *           8*1,7*2,5*3,3*4,2*5,5*0,  30*0/
C
C       NGS TELLS THE NUMBER OF GAUSSIANS IN EACH SHELL
C
      DATA NGS  /3,2*1,27*0,  3,5*1,24*0,  3,9*1,20*0,
     *           4,13*1,16*0,  5,17*1,12*0,
     *           2*8,1,3,2*1,24*0,  2*8,2*1,3,5*1,20*0,
     *           2*9,3*1,3,9*1,15*0,  2*10,4*1,4,13*1,10*0,
     *           2*11,5*1,5,17*1,5*0,
     *           3*11,1,2*7,2*1,22*0,
     *           3*13,2*1,2*7,5*1,18*0,
     *           3*13,3*1,2*8,9*1,13*0,
     *           3*16,4*1,2*8,13*1,8*0,
     *           3*16,5*1,2*9,17*1,3*0,
     *           4*13,1,3*10,1,5,1,19*0,
     *           4*18,2*1,3*11,2*1,7,3*1,15*0,
     *           4*18,3*1,3*13,3*1,9,6*1,10*0,
     *           4*22,4*1,3*13,4*1,9,9*1,5*0,  30*0/
C
      NROW = 99
      IF (NUCZ.LE.36) NROW = 4
      IF (NUCZ.LE.18) NROW = 3
      IF (NUCZ.LE.10) NROW = 2
      IF (NUCZ.LE.2)  NROW = 1
      MXPASS = NPASS(NTMP,NROW)
      IF (NUCZ.GE.21 .AND. NUCZ.LE.30 .AND. NTMP.EQ.2) THEN
         MXPASS     = 20
         ITYPES(1)  = 1
         ITYPES(2)  = 1
         ITYPES(3)  = 1
         ITYPES(4)  = 1
         ITYPES(5)  = 1
         ITYPES(6)  = 1
         ITYPES(7)  = 1
         ITYPES(8)  = 2
         ITYPES(9)  = 2
         ITYPES(10) = 2
         ITYPES(11) = 2
         ITYPES(12) = 2
         ITYPES(13) = 2
         ITYPES(14) = 3
         ITYPES(15) = 3
         ITYPES(16) = 3
         ITYPES(17) = 3
         ITYPES(18) = 4
         ITYPES(19) = 4
         ITYPES(20) = 5
         NGBFS(1)  = 19
         NGBFS(2)  = 19
         NGBFS(3)  = 19
         NGBFS(4)  = 19
         NGBFS(5)  = 19
         NGBFS(6)  = 19
         NGBFS(7)  = 1
         NGBFS(8)  = 15
         NGBFS(9)  = 15
         NGBFS(10) = 15
         NGBFS(11) = 15
         NGBFS(12) = 15
         NGBFS(13) = 1
         NGBFS(14) = 7 
         NGBFS(15) = 7
         NGBFS(16) = 7
         NGBFS(17) = 1
         NGBFS(18) = 1
         NGBFS(19) = 1
         NGBFS(20) = 1
         GO TO 101
      END IF
      IF (NUCZ.EQ.28 .AND. NTMP.EQ.3) THEN
         MXPASS     = 25
         ITYPES(1)  = 1
         ITYPES(2)  = 1
         ITYPES(3)  = 1
         ITYPES(4)  = 1
         ITYPES(5)  = 1
         ITYPES(6)  = 1
         ITYPES(7)  = 1
         ITYPES(8)  = 1
         ITYPES(9)  = 2
         ITYPES(10) = 2
         ITYPES(11) = 2
         ITYPES(12) = 2
         ITYPES(13) = 2
         ITYPES(14) = 2
         ITYPES(15) = 2
         ITYPES(16) = 3
         ITYPES(17) = 3
         ITYPES(18) = 3
         ITYPES(19) = 3
         ITYPES(20) = 3
         ITYPES(21) = 4
         ITYPES(22) = 4
         ITYPES(23) = 4
         ITYPES(24) = 5
         ITYPES(25) = 5
CSDJ     ITYPES(26) = 6
         NGBFS(1)  = 19
         NGBFS(2)  = 21
         NGBFS(3)  = 21
         NGBFS(4)  = 21
         NGBFS(5)  = 21
         NGBFS(6)  = 21
         NGBFS(7)  = 21
         NGBFS(8)  = 1
         NGBFS(9)  = 17
         NGBFS(10) = 17
         NGBFS(11) = 17
         NGBFS(12) = 17
         NGBFS(13) = 17
         NGBFS(14) = 17
         NGBFS(15) = 1
         NGBFS(16) = 10
         NGBFS(17) = 10
         NGBFS(18) = 10
         NGBFS(19) = 10
         NGBFS(20) = 1
         NGBFS(21) = 1
         NGBFS(22) = 1
         NGBFS(23) = 1
         NGBFS(24) = 1
         NGBFS(25) = 1
C        NGBFS(26) = 1
         GO TO 101
      END IF
      IF (NUCZ.EQ.29 .AND. NTMP.EQ.3) THEN
         MXPASS     = 25
         ITYPES(1)  = 1
         ITYPES(2)  = 1
         ITYPES(3)  = 1
         ITYPES(4)  = 1
         ITYPES(5)  = 1
         ITYPES(6)  = 1
         ITYPES(7)  = 1
         ITYPES(8)  = 1
         ITYPES(9)  = 2
         ITYPES(10) = 2
         ITYPES(11) = 2
         ITYPES(12) = 2
         ITYPES(13) = 2
         ITYPES(14) = 2
         ITYPES(15) = 2
         ITYPES(16) = 3
         ITYPES(17) = 3
         ITYPES(18) = 3
         ITYPES(19) = 3
         ITYPES(20) = 3
         ITYPES(21) = 4
         ITYPES(22) = 4
         ITYPES(23) = 4
         ITYPES(24) = 5
         ITYPES(25) = 5
C        ITYPES(26) = 6
         NGBFS(1)  = 21
         NGBFS(2)  = 21
         NGBFS(3)  = 21
         NGBFS(4)  = 21
         NGBFS(5)  = 21
         NGBFS(6)  = 21
         NGBFS(7)  = 21
         NGBFS(8)  = 1
         NGBFS(9)  = 16
         NGBFS(10) = 17
         NGBFS(11) = 17
         NGBFS(12) = 17
         NGBFS(13) = 17
         NGBFS(14) = 17
         NGBFS(15) = 1
         NGBFS(16) = 10
         NGBFS(17) = 10
         NGBFS(18) = 10
         NGBFS(19) = 10
         NGBFS(20) = 1
         NGBFS(21) = 1
         NGBFS(22) = 1
         NGBFS(23) = 1
         NGBFS(24) = 1
         NGBFS(25) = 1
C        NGBFS(26) = 1
         GO TO 101
      END IF
      IF (NUCZ.GT.20 .AND. NUCZ.LE.30 .AND. NTMP.EQ.3) THEN
         MXPASS     = 25
         ITYPES(1)  = 1
         ITYPES(2)  = 1
         ITYPES(3)  = 1
         ITYPES(4)  = 1
         ITYPES(5)  = 1
         ITYPES(6)  = 1
         ITYPES(7)  = 1
         ITYPES(8)  = 1
         ITYPES(9)  = 2
         ITYPES(10) = 2
         ITYPES(11) = 2
         ITYPES(12) = 2
         ITYPES(13) = 2
         ITYPES(14) = 2
         ITYPES(15) = 2
         ITYPES(16) = 3
         ITYPES(17) = 3
         ITYPES(18) = 3
         ITYPES(19) = 3
         ITYPES(20) = 3
         ITYPES(21) = 4
         ITYPES(22) = 4
         ITYPES(23) = 4
         ITYPES(24) = 5
         ITYPES(25) = 5
C        ITYPES(26) = 6
         NGBFS(1)  = 21
         NGBFS(2)  = 21
         NGBFS(3)  = 21
         NGBFS(4)  = 21
         NGBFS(5)  = 21
         NGBFS(6)  = 21
         NGBFS(7)  = 21
         NGBFS(8)  = 1
         NGBFS(9)  = 17
         NGBFS(10) = 17
         NGBFS(11) = 17
         NGBFS(12) = 17
         NGBFS(13) = 17
         NGBFS(14) = 17
         NGBFS(15) = 1
         NGBFS(16) = 10
         NGBFS(17) = 10
         NGBFS(18) = 10
         NGBFS(19) = 10
         NGBFS(20) = 1
         NGBFS(21) = 1
         NGBFS(22) = 1
         NGBFS(23) = 1
         NGBFS(24) = 1
         NGBFS(25) = 1
C        NGBFS(26) = 1
         GO TO 101
      END IF
       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.
         IF (NTMP.EQ.1 .AND. NUCZ.EQ.20 .AND. I.EQ.10) NGBFS(I) = 4
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.2  .AND. I.EQ.1 ) NGBFS(I) = 4
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.3  .AND. I.EQ.1 ) NGBFS(I) = 9
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.3  .AND. I.EQ.2 ) NGBFS(I) = 9
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.4  .AND. I.EQ.1 ) NGBFS(I) = 9
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.4  .AND. I.EQ.2 ) NGBFS(I) = 9
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.11 .AND. I.EQ.1 ) NGBFS(I) = 14
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.11 .AND. I.EQ.2 ) NGBFS(I) = 14
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.11 .AND. I.EQ.3 ) NGBFS(I) = 14
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.11 .AND. I.EQ.6 ) NGBFS(I) = 8
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.11 .AND. I.EQ.7 ) NGBFS(I) = 8
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.12 .AND. I.EQ.6 ) NGBFS(I) = 8
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.12 .AND. I.EQ.7 ) NGBFS(I) = 8
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.20 .AND. I.EQ.7 ) NGBFS(I) = 12
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.20 .AND. I.EQ.8 ) NGBFS(I) = 12
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.20 .AND. I.EQ.9 ) NGBFS(I) = 12
         IF (NTMP.EQ.2 .AND. NUCZ.EQ.20 .AND. I.EQ.12) NGBFS(I) = 4
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.2  .AND. I.EQ.1 ) NGBFS(I) = 4
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.11 .AND. I.EQ.1 ) NGBFS(I) = 16
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.11 .AND. I.EQ.2 ) NGBFS(I) = 16
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.11 .AND. I.EQ.3 ) NGBFS(I) = 16
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.11 .AND. I.EQ.7 ) NGBFS(I) = 9
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.11 .AND. I.EQ.8 ) NGBFS(I) = 9
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.12 .AND. I.EQ.7 ) NGBFS(I) = 9
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.12 .AND. I.EQ.8 ) NGBFS(I) = 9
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.20 .AND. I.EQ.1 ) NGBFS(I) = 19
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.20 .AND. I.EQ.2 ) NGBFS(I) = 19
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.20 .AND. I.EQ.3 ) NGBFS(I) = 19
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.20 .AND. I.EQ.4 ) NGBFS(I) = 19
         IF (NTMP.EQ.3 .AND. NUCZ.EQ.20 .AND. I.EQ.14) NGBFS(I) = 4
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.3  .AND. I.EQ.7 ) NGBFS(I) = 3
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.11 .AND. I.EQ.1 ) NGBFS(I) = 15
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.11 .AND. I.EQ.2 ) NGBFS(I) = 15
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.11 .AND. I.EQ.3 ) NGBFS(I) = 14
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.12 .AND. I.EQ.8 ) NGBFS(I) = 10
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.12 .AND. I.EQ.9 ) NGBFS(I) = 10
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.20 .AND. I.EQ.9 ) NGBFS(I) = 14
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.20 .AND. I.EQ.10) NGBFS(I) = 14
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.20 .AND. I.EQ.11) NGBFS(I) = 14
         IF (NTMP.EQ.4 .AND. NUCZ.EQ.20 .AND. I.EQ.16) NGBFS(I) = 4
  100 CONTINUE
  101 CONTINUE
C     POSSIBLY ADJUST FOR EXTRA TIGHT D-FUNCTION FOR AL-AR
      IF (LXTRD) THEN
         ITYPES(MXPASS+1) = 3
         NGBFS(MXPASS+1)  = 1
         MXPASS = MXPASS + 1
      ENDIF
C     POSSIBLY ADJUST FOR CORE POLARIZATION FUNCTIONS
      IF (LCORE) THEN
         DO I = 1,NROW
            DO J = 1,NTMP
               ITYPES(MXPASS+1) = I
               NGBFS(MXPASS+1)  = 1
               MXPASS = MXPASS + 1
            ENDDO
         ENDDO
         DO I = 1,3
            DO J = 1,NTMP-I
               ITYPES(MXPASS+1) = NROW + I
               NGBFS(MXPASS+1)  = 1
               MXPASS = MXPASS + 1
            ENDDO
         ENDDO
      ENDIF
C     POSSIBLY ADJUST FOR DIFFUSE FUNCTIONS
      IF (LDIFF) THEN
         NEND = NTMP + 1
         IF (NROW.GT.1) NEND = NEND + 1
         IF (NUCZ.GE.21 .AND. NUCZ.LE.30) NEND= NEND+1
C        ADJUST FOR THE MISSING H/I-FUNCTIONS
         IF (NUCZ.GE.21 .AND. NUCZ.LE.30 .AND. NTMP.GE.3)
     *                                    NEND = NEND - 1
         IF (NTMP.GE.4) NEND = NEND - 1
         IF (NTMP.GE.5) NEND = NEND - 1
         DO I = 1,NEND
            ITYPES(MXPASS+1) = I
            NGBFS(MXPASS+1)  = 1
            MXPASS = MXPASS + 1
         ENDDO
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK CCN001
      SUBROUTINE CCN001(E,S,P,D,F,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310)
C
      GO TO (100,120),N
C
C     ----- HYDROGEN -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1301000D+02
         S(1) = 0.1968500D-01
         E(2) = 0.1962000D+01
         S(2) = 0.1379770D+00
         E(3) = 0.4446000D+00
         S(3) = 0.4781480D+00
         E(4) = 0.1220000D+00
         S(4) = 0.1000000D+01
         E(5) = 0.7270000D+00
         P(5) = 0.1000000D+01
         ILAST = 5
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.3387000D+02
         S(1) = 0.6068000D-02
         E(2) = 0.5095000D+01
         S(2) = 0.4530800D-01
         E(3) = 0.1159000D+01
         S(3) = 0.2028220D+00
         E(4) = 0.3258000D+00
         S(4) = 0.1000000D+01
         E(5) = 0.1027000D+00
         S(5) = 0.1000000D+01
         E(6) = 0.1407000D+01
         P(6) = 0.1000000D+01
         E(7) = 0.3880000D+00
         P(7) = 0.1000000D+01
         E(8) = 0.1057000D+01
         D(8) = 0.1000000D+01
         ILAST = 8
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.8264000D+02
         S(1) = 0.2006000D-02
         E(2) = 0.1241000D+02
         S(2) = 0.1534300D-01
         E(3) = 0.2824000D+01
         S(3) = 0.7557900D-01
         E(4) = 0.7977000D+00
         S(4) = 0.1000000D+01
         E(5) = 0.2581000D+00
         S(5) = 0.1000000D+01
         E(6) = 0.8989000D-01
         S(6) = 0.1000000D+01
         E(7) = 0.2292000D+01
         P(7) = 0.1000000D+01
         E(8) = 0.8380000D+00
         P(8) = 0.1000000D+01
         E(9) = 0.2920000D+00
         P(9) = 0.1000000D+01
         E(10) = 0.2062000D+01
         D(10) = 0.1000000D+01
         E(11) = 0.6620000D+00
         D(11) = 0.1000000D+01
         E(12) = 0.1397000D+01
         F(12) = 0.1000000D+01
         ILAST = 12
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.4020000D+03
         S(1) = 0.2790000D-03
         E(2) = 0.6024000D+02
         S(2) = 0.2165000D-02
         E(3) = 0.1373000D+02
         S(3) = 0.1120100D-01
         E(4) = 0.3905000D+01
         S(4) = 0.4487800D-01
         E(5) = 0.1283000D+01
         S(5) = 0.1000000D+01
         E(6) = 0.4655000D+00
         S(6) = 0.1000000D+01
         E(7) = 0.1811000D+00
         S(7) = 0.1000000D+01
         E(8) = 0.7279000D-01
         S(8) = 0.1000000D+01
         E(9) = 0.4516000D+01
         P(9) = 0.1000000D+01
         E(10) = 0.1712000D+01
         P(10) = 0.1000000D+01
         E(11) = 0.6490000D+00
         P(11) = 0.1000000D+01
         E(12) = 0.2460000D+00
         P(12) = 0.1000000D+01
         E(13) = 0.2950000D+01
         D(13) = 0.1000000D+01
         E(14) = 0.1206000D+01
         D(14) = 0.1000000D+01
         E(15) = 0.4930000D+00
         D(15) = 0.1000000D+01
         E(16) = 0.2506000D+01
         F(16) = 0.1000000D+01
         E(17) = 0.8750000D+00
         F(17) = 0.1000000D+01
CFRJ     E(18) = 0.2358000D+01
CFRJ     G(18) = 0.1000000D+01
         ILAST = 17
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.1776776D+04
         S(1) = 0.4400000D-04
         E(2) = 0.2540177D+03
         S(2) = 0.3720000D-03
         E(3) = 0.5469804D+02
         S(3) = 0.2094000D-02
         E(4) = 0.1501834D+02
         S(4) = 0.8863000D-02
         E(5) = 0.4915078D+01
         S(5) = 0.3054000D-01
         E(6) = 0.1794924D+01
         S(6) = 0.1000000D+01
         E(7) = 0.7107160D+00
         S(7) = 0.1000000D+01
         E(8) = 0.3048020D+00
         S(8) = 0.1000000D+01
         E(9) = 0.1380460D+00
         S(9) = 0.1000000D+01
         E(10) = 0.6215700D-01
         S(10) = 0.1000000D+01
         E(11) = 0.8649000D+01
         P(11) = 0.1000000D+01
         E(12) = 0.3430000D+01
         P(12) = 0.1000000D+01
         E(13) = 0.1360000D+01
         P(13) = 0.1000000D+01
         E(14) = 0.5390000D+00
         P(14) = 0.1000000D+01
         E(15) = 0.2140000D+00
         P(15) = 0.1000000D+01
         E(16) = 0.4453000D+01
         D(16) = 0.1000000D+01
         E(17) = 0.1958000D+01
         D(17) = 0.1000000D+01
         E(18) = 0.8610000D+00
         D(18) = 0.1000000D+01
         E(19) = 0.3780000D+00
         D(19) = 0.1000000D+01
         E(20) = 0.4100000D+01
         F(20) = 0.1000000D+01
         E(21) = 0.1780000D+01
         F(21) = 0.1000000D+01
         E(22) = 0.7730000D+00
         F(22) = 0.1000000D+01
CFRJ     E(23) = 0.3199000D+01
CFRJ     G(23) = 0.1000000D+01
CFRJ     E(24) = 0.1326000D+01
CFRJ     G(24) = 0.1000000D+01
CFRJ     E(25) = 0.2653000D+01
CFRJ     H(25) = 0.1000000D+01
         ILAST = 22
      ENDIF
      RETURN
C
C     ----- HE -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.3836000D+02
         S(1) = 0.2380900D-01
         E(2) = 0.5770000D+01
         S(2) = 0.1548910D+00
         E(3) = 0.1240000D+01
         S(3) = 0.4699870D+00
         E(4) = 0.2976000D+00
         S(4) = 0.1000000D+01
         E(5) = 0.1275000D+01
         P(5) = 0.1000000D+01
         ILAST = 5
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.2340000D+03
         S(1) = 0.2587000D-02
         E(2) = 0.3516000D+02
         S(2) = 0.1953300D-01
         E(3) = 0.7989000D+01
         S(3) = 0.9099800D-01
         E(4) = 0.2212000D+01
         S(4) = 0.2720500D+00
         E(5) = 0.6669000D+00
         S(5) = 0.1000000D+01
         E(6) = 0.2089000D+00
         S(6) = 0.1000000D+01
         E(7) = 0.3044000D+01
         P(7) = 0.1000000D+01
         E(8) = 0.7580000D+00
         P(8) = 0.1000000D+01
         E(9) = 0.1965000D+01
         D(9) = 0.1000000D+01
         ILAST = 9
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.5285000D+03
         S(1) = 0.9400000D-03
         E(2) = 0.7931000D+02
         S(2) = 0.7214000D-02
         E(3) = 0.1805000D+02
         S(3) = 0.3597500D-01
         E(4) = 0.5085000D+01
         S(4) = 0.1277820D+00
         E(5) = 0.1609000D+01
         S(5) = 0.1000000D+01
         E(6) = 0.5363000D+00
         S(6) = 0.1000000D+01
         E(7) = 0.1833000D+00
         S(7) = 0.1000000D+01
         E(8) = 0.5994000D+01
         P(8) = 0.1000000D+01
         E(9) = 0.1745000D+01
         P(9) = 0.1000000D+01
         E(10) = 0.5600000D+00
         P(10) = 0.1000000D+01
         E(11) = 0.4299000D+01
         D(11) = 0.1000000D+01
         E(12) = 0.1223000D+01
         D(12) = 0.1000000D+01
         E(13) = 0.2680000D+01
         F(13) = 0.1000000D+01
         ILAST = 13
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1145000D+04
         S(1) = 0.3590000D-03
         E(2) = 0.1717000D+03
         S(2) = 0.2771000D-02
         E(3) = 0.3907000D+02
         S(3) = 0.1425100D-01
         E(4) = 0.1104000D+02
         S(4) = 0.5556600D-01
         E(5) = 0.3566000D+01
         S(5) = 0.1000000D+01
         E(6) = 0.1240000D+01
         S(6) = 0.1000000D+01
         E(7) = 0.4473000D+00
         S(7) = 0.1000000D+01
         E(8) = 0.1640000D+00
         S(8) = 0.1000000D+01
         E(9) = 0.1015300D+02
         P(9) = 0.1000000D+01
         E(10) = 0.3627000D+01
         P(10) = 0.1000000D+01
         E(11) = 0.1296000D+01
         P(11) = 0.1000000D+01
         E(12) = 0.4630000D+00
         P(12) = 0.1000000D+01
         E(13) = 0.7666000D+01
         D(13) = 0.1000000D+01
         E(14) = 0.2647000D+01
         D(14) = 0.1000000D+01
         E(15) = 0.9140000D+00
         D(15) = 0.1000000D+01
         E(16) = 0.5411000D+01
         F(16) = 0.1000000D+01
         E(17) = 0.1707000D+01
         F(17) = 0.1000000D+01
CFRJ     E(18) = 0.3430000D+01
CFRJ     G(18) = 0.1000000D+01
         ILAST = 17
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.4785000D+04
         S(1) = 0.6000000D-06
         E(2) = 0.7170000D+03
         S(2) = 0.4700000D-05
         E(3) = 0.1632000D+03
         S(3) = 0.2440000D-04
         E(4) = 0.4626000D+02
         S(4) = 0.1012000D-03
         E(5) = 0.1510000D+02
         S(5) = 0.3486000D-03
         E(6) = 0.5437000D+01
         S(6) = 0.1000000D+01
         E(7) = 0.2088000D+01
         S(7) = 0.1000000D+01
         E(8) = 0.8297000D+00
         S(8) = 0.1000000D+01
         E(9) = 0.3366000D+00
         S(9) = 0.1000000D+01
         E(10) = 0.1369000D+00
         S(10) = 0.1000000D+01
         E(11) = 0.3870000D+00
         P(11) = 0.1000000D+01
         E(12) = 0.9840000D+00
         P(12) = 0.1000000D+01
         E(13) = 0.2498000D+01
         P(13) = 0.1000000D+01
         E(14) = 0.6342000D+01
         P(14) = 0.1000000D+01
         E(15) = 0.1610400D+02
         P(15) = 0.1000000D+01
         E(16) = 0.7470000D+00
         D(16) = 0.1000000D+01
         E(17) = 0.1910000D+01
         D(17) = 0.1000000D+01
         E(18) = 0.4886000D+01
         D(18) = 0.1000000D+01
         E(19) = 0.1249800D+02
         D(19) = 0.1000000D+01
         E(20) = 0.1292000D+01
         F(20) = 0.1000000D+01
         E(21) = 0.3462000D+01
         F(21) = 0.1000000D+01
         E(22) = 0.9276000D+01
         F(22) = 0.1000000D+01
CFRJ     E(23) = 0.2236000D+01
CFRJ     G(23) = 0.1000000D+01
CFRJ     E(24) = 0.6586000D+01
CFRJ     G(24) = 0.1000000D+01
CFRJ     E(25) = 0.4159000D+01
CFRJ     H(25) = 0.1000000D+01
         ILAST = 22
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK CCN002
      SUBROUTINE CCN002(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
C
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      NN = N-2
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- LI  -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1469000D+04
         S(1) = 0.7660000D-03
         E(2) = 0.2205000D+03
         S(2) = 0.5892000D-02
         E(3) = 0.5026000D+02
         S(3) = 0.2967100D-01
         E(4) = 0.1424000D+02
         S(4) = 0.1091800D+00
         E(5) = 0.4581000D+01
         S(5) = 0.2827890D+00
         E(6) = 0.1580000D+01
         S(6) = 0.4531230D+00
         E(7) = 0.5640000D+00
         S(7) = 0.2747740D+00
         E(8) = 0.7345000D-01
         S(8) = 0.9751000D-02
         E(9) = 0.1469000D+04
         S(9) = -.1200000D-03
         E(10) = 0.2205000D+03
         S(10) = -.9230000D-03
         E(11) = 0.5026000D+02
         S(11) = -.4689000D-02
         E(12) = 0.1424000D+02
         S(12) = -.1768200D-01
         E(13) = 0.4581000D+01
         S(13) = -.4890200D-01
         E(14) = 0.1580000D+01
         S(14) = -.9600900D-01
         E(15) = 0.5640000D+00
         S(15) = -.1363800D+00
         E(16) = 0.7345000D-01
         S(16) = 0.5751020D+00
         E(17) = 0.2805000D-01
         S(17) = 0.1000000D+01
         E(18) = 0.1534000D+01
         P(18) = 0.2278400D-01
         E(19) = 0.2749000D+00
         P(19) = 0.1391070D+00
         E(20) = 0.7362000D-01
         P(20) = 0.5003750D+00
         E(21) = 0.2403000D-01
         P(21) = 0.1000000D+01
         E(22) = 0.1239000D+00
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.5988000D+04
         S(1) = 0.1330000D-03
         E(2) = 0.8989000D+03
         S(2) = 0.1025000D-02
         E(3) = 0.2059000D+03
         S(3) = 0.5272000D-02
         E(4) = 0.5924000D+02
         S(4) = 0.2092900D-01
         E(5) = 0.1987000D+02
         S(5) = 0.6634000D-01
         E(6) = 0.7406000D+01
         S(6) = 0.1657750D+00
         E(7) = 0.2930000D+01
         S(7) = 0.3150380D+00
         E(8) = 0.1189000D+01
         S(8) = 0.3935230D+00
         E(9) = 0.4798000D+00
         S(9) = 0.1908700D+00
         E(10) = 0.5988000D+04
         S(10) = -.2100000D-04
         E(11) = 0.8989000D+03
         S(11) = -.1610000D-03
         E(12) = 0.2059000D+03
         S(12) = -.8200000D-03
         E(13) = 0.5924000D+02
         S(13) = -.3326000D-02
         E(14) = 0.1987000D+02
         S(14) = -.1051900D-01
         E(15) = 0.7406000D+01
         S(15) = -.2809700D-01
         E(16) = 0.2930000D+01
         S(16) = -.5593600D-01
         E(17) = 0.1189000D+01
         S(17) = -.9923700D-01
         E(18) = 0.4798000D+00
         S(18) = -.1121890D+00
         E(19) = 0.7509000D-01
         S(19) = 0.1000000D+01
         E(20) = 0.2832000D-01
         S(20) = 0.1000000D+01
         E(21) = 0.3266000D+01
         P(21) = 0.8630000D-02
         E(22) = 0.6511000D+00
         P(22) = 0.4753800D-01
         E(23) = 0.1696000D+00
         P(23) = 0.2097720D+00
         E(24) = 0.5578000D-01
         P(24) = 0.1000000D+01
         E(25) = 0.2050000D-01
         P(25) = 0.1000000D+01
         E(26) = 0.1874000D+00
         D(26) = 0.1000000D+01
         E(27) = 0.8010000D-01
         D(27) = 0.1000000D+01
         E(28) = 0.1829000D+00
         F(28) = 0.1000000D+01
         ILAST = 28
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.6601000D+04
         S(1) = 0.1170000D-03
         E(2) = 0.9897000D+03
         S(2) = 0.9110000D-03
         E(3) = 0.2257000D+03
         S(3) = 0.4728000D-02
         E(4) = 0.6429000D+02
         S(4) = 0.1919700D-01
         E(5) = 0.2118000D+02
         S(5) = 0.6304700D-01
         E(6) = 0.7724000D+01
         S(6) = 0.1632080D+00
         E(7) = 0.3003000D+01
         S(7) = 0.3148270D+00
         E(8) = 0.1212000D+01
         S(8) = 0.3939360D+00
         E(9) = 0.4930000D+00
         S(9) = 0.1969180D+00
         E(10) = 0.6601000D+04
         S(10) = -.1800000D-04
         E(11) = 0.9897000D+03
         S(11) = -.1420000D-03
         E(12) = 0.2257000D+03
         S(12) = -.7410000D-03
         E(13) = 0.6429000D+02
         S(13) = -.3020000D-02
         E(14) = 0.2118000D+02
         S(14) = -.1012300D-01
         E(15) = 0.7724000D+01
         S(15) = -.2709400D-01
         E(16) = 0.3003000D+01
         S(16) = -.5735900D-01
         E(17) = 0.1212000D+01
         S(17) = -.9389500D-01
         E(18) = 0.4930000D+00
         S(18) = -.1210910D+00
         E(19) = 0.9515000D-01
         S(19) = 0.1000000D+01
         E(20) = 0.4791000D-01
         S(20) = 0.1000000D+01
         E(21) = 0.2220000D-01
         S(21) = 0.1000000D+01
         E(22) = 0.6250000D+01
         P(22) = 0.3388000D-02
         E(23) = 0.1370000D+01
         P(23) = 0.1931600D-01
         E(24) = 0.3672000D+00
         P(24) = 0.7910400D-01
         E(25) = 0.1192000D+00
         P(25) = 0.1000000D+01
         E(26) = 0.4474000D-01
         P(26) = 0.1000000D+01
         E(27) = 0.1795000D-01
         P(27) = 0.1000000D+01
         E(28) = 0.3440000D+00
         D(28) = 0.1000000D+01
         E(29) = 0.1530000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.6800000D-01
         D(30) = 0.1000000D+01
         E(31) = 0.2460000D+00
         F(31) = 0.1000000D+01
         E(32) = 0.1292000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.2380000D+00
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.2949300D+05
         S(1) = 0.1800000D-04
         E(2) = 0.4417101D+04
         S(2) = 0.1410000D-03
         E(3) = 0.1005223D+04
         S(3) = 0.7390000D-03
         E(4) = 0.2847009D+03
         S(4) = 0.3107000D-02
         E(5) = 0.9286543D+02
         S(5) = 0.1113500D-01
         E(6) = 0.3351179D+02
         S(6) = 0.3467000D-01
         E(7) = 0.1304180D+02
         S(7) = 0.9217100D-01
         E(8) = 0.5357536D+01
         S(8) = 0.1995760D+00
         E(9) = 0.2279338D+01
         S(9) = 0.3288360D+00
         E(10) = 0.9939900D+00
         S(10) = 0.3459750D+00
         E(11) = 0.2949300D+05
         S(11) = -.3000000D-05
         E(12) = 0.4417101D+04
         S(12) = -.2200000D-04
         E(13) = 0.1005223D+04
         S(13) = -.1150000D-03
         E(14) = 0.2847009D+03
         S(14) = -.4870000D-03
         E(15) = 0.9286543D+02
         S(15) = -.1746000D-02
         E(16) = 0.3351179D+02
         S(16) = -.5520000D-02
         E(17) = 0.1304180D+02
         S(17) = -.1492800D-01
         E(18) = 0.5357536D+01
         S(18) = -.3420600D-01
         E(19) = 0.2279338D+01
         S(19) = -.6215500D-01
         E(20) = 0.9939900D+00
         S(20) = -.9590200D-01
         E(21) = 0.4334710D+00
         S(21) = 0.1000000D+01
         E(22) = 0.9556600D-01
         S(22) = 0.1000000D+01
         E(23) = 0.4465700D-01
         S(23) = 0.1000000D+01
         E(24) = 0.2063300D-01
         S(24) = 0.1000000D+01
         E(25) = 0.1125000D+02
         P(25) = 0.1312000D-02
         E(26) = 0.2500000D+01
         P(26) = 0.9918000D-02
         E(27) = 0.6500000D+00
         P(27) = 0.3754200D-01
         E(28) = 0.2500000D+00
         P(28) = 0.1000000D+01
         E(29) = 0.1000000D+00
         P(29) = 0.1000000D+01
         E(30) = 0.3900000D-01
         P(30) = 0.1000000D+01
         E(31) = 0.1700000D-01
         P(31) = 0.1000000D+01
         E(32) = 0.5500000D+00
         D(32) = 0.1000000D+01
         E(33) = 0.2900000D+00
         D(33) = 0.1000000D+01
         E(34) = 0.1400000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.6100000D-01
         D(35) = 0.1000000D+01
         E(36) = 0.3500000D+00
         F(36) = 0.1000000D+01
         E(37) = 0.2200000D+00
         F(37) = 0.1000000D+01
         E(38) = 0.1100000D+00
         F(38) = 0.1000000D+01
         E(39) = 0.3200000D+00
         G(39) = 0.1000000D+01
         E(40) = 0.1600000D+00
         G(40) = 0.1000000D+01
CFRJ     E(41) = 0.3200000D+00
CFRJ     H(41) = 0.1000000D+01
         ILAST = 40
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*) 'CC-PV6Z BASIS DOES NOT EXIST FOR LI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- BE  -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.2940000D+04
         S(1) = 0.6800000D-03
         E(2) = 0.4412000D+03
         S(2) = 0.5236000D-02
         E(3) = 0.1005000D+03
         S(3) = 0.2660600D-01
         E(4) = 0.2843000D+02
         S(4) = 0.9999300D-01
         E(5) = 0.9169000D+01
         S(5) = 0.2697020D+00
         E(6) = 0.3196000D+01
         S(6) = 0.4514690D+00
         E(7) = 0.1159000D+01
         S(7) = 0.2950740D+00
         E(8) = 0.1811000D+00
         S(8) = 0.1258700D-01
         E(9) = 0.2940000D+04
         S(9) = -.1230000D-03
         E(10) = 0.4412000D+03
         S(10) = -.9660000D-03
         E(11) = 0.1005000D+03
         S(11) = -.4831000D-02
         E(12) = 0.2843000D+02
         S(12) = -.1931400D-01
         E(13) = 0.9169000D+01
         S(13) = -.5328000D-01
         E(14) = 0.3196000D+01
         S(14) = -.1207230D+00
         E(15) = 0.1159000D+01
         S(15) = -.1334350D+00
         E(16) = 0.1811000D+00
         S(16) = 0.5307670D+00
         E(17) = 0.5890000D-01
         S(17) = 0.1000000D+01
         E(18) = 0.3619000D+01
         P(18) = 0.2911100D-01
         E(19) = 0.7110000D+00
         P(19) = 0.1693650D+00
         E(20) = 0.1951000D+00
         P(20) = 0.5134580D+00
         E(21) = 0.6018000D-01
         P(21) = 0.1000000D+01
         E(22) = 0.2380000D+00
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.6863000D+04
         S(1) = 0.2360000D-03
         E(2) = 0.1030000D+04
         S(2) = 0.1826000D-02
         E(3) = 0.2347000D+03
         S(3) = 0.9452000D-02
         E(4) = 0.6656000D+02
         S(4) = 0.3795700D-01
         E(5) = 0.2169000D+02
         S(5) = 0.1199650D+00
         E(6) = 0.7734000D+01
         S(6) = 0.2821620D+00
         E(7) = 0.2916000D+01
         S(7) = 0.4274040D+00
         E(8) = 0.1130000D+01
         S(8) = 0.2662780D+00
         E(9) = 0.1101000D+00
         S(9) = -.7275000D-02
         E(10) = 0.6863000D+04
         S(10) = -.4300000D-04
         E(11) = 0.1030000D+04
         S(11) = -.3330000D-03
         E(12) = 0.2347000D+03
         S(12) = -.1736000D-02
         E(13) = 0.6656000D+02
         S(13) = -.7012000D-02
         E(14) = 0.2169000D+02
         S(14) = -.2312600D-01
         E(15) = 0.7734000D+01
         S(15) = -.5813800D-01
         E(16) = 0.2916000D+01
         S(16) = -.1145560D+00
         E(17) = 0.1130000D+01
         S(17) = -.1359080D+00
         E(18) = 0.1101000D+00
         S(18) = 0.5774410D+00
         E(19) = 0.2577000D+00
         S(19) = 0.1000000D+01
         E(20) = 0.4409000D-01
         S(20) = 0.1000000D+01
         E(21) = 0.7436000D+01
         P(21) = 0.1073600D-01
         E(22) = 0.1577000D+01
         P(22) = 0.6285400D-01
         E(23) = 0.4352000D+00
         P(23) = 0.2481800D+00
         E(24) = 0.1438000D+00
         P(24) = 0.1000000D+01
         E(25) = 0.4994000D-01
         P(25) = 0.1000000D+01
         E(26) = 0.3480000D+00
         D(26) = 0.1000000D+01
         E(27) = 0.1803000D+00
         D(27) = 0.1000000D+01
         E(28) = 0.3250000D+00
         F(28) = 0.1000000D+01
         ILAST = 28
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1463000D+05
         S(1) = 0.9200000D-04
         E(2) = 0.2191000D+04
         S(2) = 0.7130000D-03
         E(3) = 0.4982000D+03
         S(3) = 0.3735000D-02
         E(4) = 0.1409000D+03
         S(4) = 0.1546800D-01
         E(5) = 0.4586000D+02
         S(5) = 0.5287400D-01
         E(6) = 0.1647000D+02
         S(6) = 0.1456940D+00
         E(7) = 0.6319000D+01
         S(7) = 0.3026810D+00
         E(8) = 0.2535000D+01
         S(8) = 0.4049360D+00
         E(9) = 0.1035000D+01
         S(9) = 0.2223870D+00
         E(10) = 0.1463000D+05
         S(10) = -.1700000D-04
         E(11) = 0.2191000D+04
         S(11) = -.1300000D-03
         E(12) = 0.4982000D+03
         S(12) = -.6790000D-03
         E(13) = 0.1409000D+03
         S(13) = -.2857000D-02
         E(14) = 0.4586000D+02
         S(14) = -.9813000D-02
         E(15) = 0.1647000D+02
         S(15) = -.2860900D-01
         E(16) = 0.6319000D+01
         S(16) = -.6376000D-01
         E(17) = 0.2535000D+01
         S(17) = -.1172310D+00
         E(18) = 0.1035000D+01
         S(18) = -.1212020D+00
         E(19) = 0.2528000D+00
         S(19) = 0.1000000D+01
         E(20) = 0.1052000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.4261000D-01
         S(21) = 0.1000000D+01
         E(22) = 0.1403000D+02
         P(22) = 0.4099000D-02
         E(23) = 0.3168000D+01
         P(23) = 0.2562600D-01
         E(24) = 0.9024000D+00
         P(24) = 0.1037680D+00
         E(25) = 0.3036000D+00
         P(25) = 0.1000000D+01
         E(26) = 0.1130000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.4286000D-01
         P(27) = 0.1000000D+01
         E(28) = 0.1072000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.4410000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.1811000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.4810000D+00
         F(31) = 0.1000000D+01
         E(32) = 0.2550000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.4150000D+00
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.5462000D+05
         S(1) = 0.1800000D-04
         E(2) = 0.8180000D+04
         S(2) = 0.1380000D-03
         E(3) = 0.1862000D+04
         S(3) = 0.7230000D-03
         E(4) = 0.5273000D+03
         S(4) = 0.3039000D-02
         E(5) = 0.1720000D+03
         S(5) = 0.1090800D-01
         E(6) = 0.6210000D+02
         S(6) = 0.3403500D-01
         E(7) = 0.2421000D+02
         S(7) = 0.9119300D-01
         E(8) = 0.9993000D+01
         S(8) = 0.1992680D+00
         E(9) = 0.4305000D+01
         S(9) = 0.3293550D+00
         E(10) = 0.1921000D+01
         S(10) = 0.3404890D+00
         E(11) = 0.5462000D+05
         S(11) = -.3000000D-05
         E(12) = 0.8180000D+04
         S(12) = -.2500000D-04
         E(13) = 0.1862000D+04
         S(13) = -.1310000D-03
         E(14) = 0.5273000D+03
         S(14) = -.5580000D-03
         E(15) = 0.1720000D+03
         S(15) = -.1988000D-02
         E(16) = 0.6210000D+02
         S(16) = -.6370000D-02
         E(17) = 0.2421000D+02
         S(17) = -.1721700D-01
         E(18) = 0.9993000D+01
         S(18) = -.4085800D-01
         E(19) = 0.4305000D+01
         S(19) = -.7423700D-01
         E(20) = 0.1921000D+01
         S(20) = -.1192340D+00
         E(21) = 0.8663000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.2475000D+00
         S(22) = 0.1000000D+01
         E(23) = 0.1009000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.4129000D-01
         S(24) = 0.1000000D+01
         E(25) = 0.4375000D+02
         P(25) = 0.6330000D-03
         E(26) = 0.1033000D+02
         P(26) = 0.4808000D-02
         E(27) = 0.3226000D+01
         P(27) = 0.2052700D-01
         E(28) = 0.1127000D+01
         P(28) = 0.6781600D-01
         E(29) = 0.4334000D+00
         P(29) = 0.1000000D+01
         E(30) = 0.1808000D+00
         P(30) = 0.1000000D+01
         E(31) = 0.7827000D-01
         P(31) = 0.1000000D+01
         E(32) = 0.3372000D-01
         P(32) = 0.1000000D+01
         E(33) = 0.1635000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.7410000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.3350000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.1519000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.6860000D+00
         F(37) = 0.1000000D+01
         E(38) = 0.4010000D+00
         F(38) = 0.1000000D+01
         E(39) = 0.2350000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.6030000D+00
         G(40) = 0.1000000D+01
         E(41) = 0.3240000D+00
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.5100000D+00
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*) 'CC-PV6Z BASIS DOES NOT EXIST FOR BE'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- B  -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.4570000D+04
         S(1) = 0.6960000D-03
         E(2) = 0.6859000D+03
         S(2) = 0.5353000D-02
         E(3) = 0.1565000D+03
         S(3) = 0.2713400D-01
         E(4) = 0.4447000D+02
         S(4) = 0.1013800D+00
         E(5) = 0.1448000D+02
         S(5) = 0.2720550D+00
         E(6) = 0.5131000D+01
         S(6) = 0.4484030D+00
         E(7) = 0.1898000D+01
         S(7) = 0.2901230D+00
         E(8) = 0.3329000D+00
         S(8) = 0.1432200D-01
         E(9) = 0.4570000D+04
         S(9) = -.1390000D-03
         E(10) = 0.6859000D+03
         S(10) = -.1097000D-02
         E(11) = 0.1565000D+03
         S(11) = -.5444000D-02
         E(12) = 0.4447000D+02
         S(12) = -.2191600D-01
         E(13) = 0.1448000D+02
         S(13) = -.5975100D-01
         E(14) = 0.5131000D+01
         S(14) = -.1387320D+00
         E(15) = 0.1898000D+01
         S(15) = -.1314820D+00
         E(16) = 0.3329000D+00
         S(16) = 0.5395260D+00
         E(17) = 0.1043000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.6001000D+01
         P(18) = 0.3548100D-01
         E(19) = 0.1241000D+01
         P(19) = 0.1980720D+00
         E(20) = 0.3364000D+00
         P(20) = 0.5052300D+00
         E(21) = 0.9538000D-01
         P(21) = 0.1000000D+01
         E(22) = 0.3430000D+00
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.5473000D+04
         S(1) = 0.5550000D-03
         E(2) = 0.8209000D+03
         S(2) = 0.4291000D-02
         E(3) = 0.1868000D+03
         S(3) = 0.2194900D-01
         E(4) = 0.5283000D+02
         S(4) = 0.8444100D-01
         E(5) = 0.1708000D+02
         S(5) = 0.2385570D+00
         E(6) = 0.5999000D+01
         S(6) = 0.4350720D+00
         E(7) = 0.2208000D+01
         S(7) = 0.3419550D+00
         E(8) = 0.2415000D+00
         S(8) = -.9545000D-02
         E(9) = 0.5473000D+04
         S(9) = -.1120000D-03
         E(10) = 0.8209000D+03
         S(10) = -.8680000D-03
         E(11) = 0.1868000D+03
         S(11) = -.4484000D-02
         E(12) = 0.5283000D+02
         S(12) = -.1768300D-01
         E(13) = 0.1708000D+02
         S(13) = -.5363900D-01
         E(14) = 0.5999000D+01
         S(14) = -.1190050D+00
         E(15) = 0.2208000D+01
         S(15) = -.1658240D+00
         E(16) = 0.2415000D+00
         S(16) = 0.5959810D+00
         E(17) = 0.5879000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.8610000D-01
         S(18) = 0.1000000D+01
         E(19) = 0.1205000D+02
         P(19) = 0.1311800D-01
         E(20) = 0.2613000D+01
         P(20) = 0.7989600D-01
         E(21) = 0.7475000D+00
         P(21) = 0.2772750D+00
         E(22) = 0.2385000D+00
         P(22) = 0.1000000D+01
         E(23) = 0.7698000D-01
         P(23) = 0.1000000D+01
         E(24) = 0.6610000D+00
         D(24) = 0.1000000D+01
         E(25) = 0.1990000D+00
         D(25) = 0.1000000D+01
         E(26) = 0.4900000D+00
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.2387000D+05
         S(1) = 0.8800000D-04
         E(2) = 0.3575000D+04
         S(2) = 0.6870000D-03
         E(3) = 0.8128000D+03
         S(3) = 0.3600000D-02
         E(4) = 0.2297000D+03
         S(4) = 0.1494900D-01
         E(5) = 0.7469000D+02
         S(5) = 0.5143500D-01
         E(6) = 0.2681000D+02
         S(6) = 0.1433020D+00
         E(7) = 0.1032000D+02
         S(7) = 0.3009350D+00
         E(8) = 0.4178000D+01
         S(8) = 0.4035260D+00
         E(9) = 0.1727000D+01
         S(9) = 0.2253400D+00
         E(10) = 0.2387000D+05
         S(10) = -.1800000D-04
         E(11) = 0.3575000D+04
         S(11) = -.1390000D-03
         E(12) = 0.8128000D+03
         S(12) = -.7250000D-03
         E(13) = 0.2297000D+03
         S(13) = -.3063000D-02
         E(14) = 0.7469000D+02
         S(14) = -.1058100D-01
         E(15) = 0.2681000D+02
         S(15) = -.3136500D-01
         E(16) = 0.1032000D+02
         S(16) = -.7101200D-01
         E(17) = 0.4178000D+01
         S(17) = -.1321030D+00
         E(18) = 0.1727000D+01
         S(18) = -.1230720D+00
         E(19) = 0.4704000D+00
         S(19) = 0.1000000D+01
         E(20) = 0.1896000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.7394000D-01
         S(21) = 0.1000000D+01
         E(22) = 0.2226000D+02
         P(22) = 0.5095000D-02
         E(23) = 0.5058000D+01
         P(23) = 0.3320600D-01
         E(24) = 0.1487000D+01
         P(24) = 0.1323140D+00
         E(25) = 0.5071000D+00
         P(25) = 0.1000000D+01
         E(26) = 0.1812000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.6463000D-01
         P(27) = 0.1000000D+01
         E(28) = 0.1110000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.4020000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.1450000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.8820000D+00
         F(31) = 0.1000000D+01
         E(32) = 0.3110000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.6730000D+00
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.6826000D+05
         S(1) = 0.2400000D-04
         E(2) = 0.1023000D+05
         S(2) = 0.1850000D-03
         E(3) = 0.2328000D+04
         S(3) = 0.9700000D-03
         E(4) = 0.6604000D+03
         S(4) = 0.4056000D-02
         E(5) = 0.2162000D+03
         S(5) = 0.1439900D-01
         E(6) = 0.7860000D+02
         S(6) = 0.4390100D-01
         E(7) = 0.3098000D+02
         S(7) = 0.1130570D+00
         E(8) = 0.1296000D+02
         S(8) = 0.2338250D+00
         E(9) = 0.5659000D+01
         S(9) = 0.3539600D+00
         E(10) = 0.2556000D+01
         S(10) = 0.3015470D+00
         E(11) = 0.6826000D+05
         S(11) = -.5000000D-05
         E(12) = 0.1023000D+05
         S(12) = -.3700000D-04
         E(13) = 0.2328000D+04
         S(13) = -.1960000D-03
         E(14) = 0.6604000D+03
         S(14) = -.8240000D-03
         E(15) = 0.2162000D+03
         S(15) = -.2923000D-02
         E(16) = 0.7860000D+02
         S(16) = -.9138000D-02
         E(17) = 0.3098000D+02
         S(17) = -.2410500D-01
         E(18) = 0.1296000D+02
         S(18) = -.5475500D-01
         E(19) = 0.5659000D+01
         S(19) = -.9694300D-01
         E(20) = 0.2556000D+01
         S(20) = -.1374850D+00
         E(21) = 0.1175000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.4249000D+00
         S(22) = 0.1000000D+01
         E(23) = 0.1712000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.6913000D-01
         S(24) = 0.1000000D+01
         E(25) = 0.6644000D+02
         P(25) = 0.8380000D-03
         E(26) = 0.1571000D+02
         P(26) = 0.6409000D-02
         E(27) = 0.4936000D+01
         P(27) = 0.2808100D-01
         E(28) = 0.1770000D+01
         P(28) = 0.9215200D-01
         E(29) = 0.7008000D+00
         P(29) = 0.1000000D+01
         E(30) = 0.2901000D+00
         P(30) = 0.1000000D+01
         E(31) = 0.1211000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.4973000D-01
         P(32) = 0.1000000D+01
         E(33) = 0.2010000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.7960000D+00
         D(34) = 0.1000000D+01
         E(35) = 0.3160000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.1250000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.1215000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.5250000D+00
         F(38) = 0.1000000D+01
         E(39) = 0.2270000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.1124000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.4610000D+00
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.8340000D+00
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.2104000D+06
         S(1) = 0.5830000D-05
         E(2) = 0.3150000D+05
         S(2) = 0.4532000D-04
         E(3) = 0.7169000D+04
         S(3) = 0.2383800D-03
         E(4) = 0.2030000D+04
         S(4) = 0.1005700D-02
         E(5) = 0.6625000D+03
         S(5) = 0.3644960D-02
         E(6) = 0.2392000D+03
         S(6) = 0.1173628D-01
         E(7) = 0.9326000D+02
         S(7) = 0.3380702D-01
         E(8) = 0.3864000D+02
         S(8) = 0.8556593D-01
         E(9) = 0.1678000D+02
         S(9) = 0.1826032D+00
         E(10) = 0.7541000D+01
         S(10) = 0.3058376D+00
         E(11) = 0.3482000D+01
         S(11) = 0.3408035D+00
         E(12) = 0.2104000D+06
         S(12) = -.1180000D-05
         E(13) = 0.3150000D+05
         S(13) = -.9150000D-05
         E(14) = 0.7169000D+04
         S(14) = -.4819000D-04
         E(15) = 0.2030000D+04
         S(15) = -.2030600D-03
         E(16) = 0.6625000D+03
         S(16) = -.7391700D-03
         E(17) = 0.2392000D+03
         S(17) = -.2386030D-02
         E(18) = 0.9326000D+02
         S(18) = -.6986540D-02
         E(19) = 0.3864000D+02
         S(19) = -.1811594D-01
         E(20) = 0.1678000D+02
         S(20) = -.4123129D-01
         E(21) = 0.7541000D+01
         S(21) = -.7781353D-01
         E(22) = 0.3482000D+01
         S(22) = -.1212318D+00
         E(23) = 0.1618000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.6270000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.2934000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1310000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.5815000D-01
         S(27) = 0.1000000D+01
         E(28) = 0.1925000D+03
         P(28) = 0.1349000D-03
         E(29) = 0.4564000D+02
         P(29) = 0.1147410D-02
         E(30) = 0.1475000D+02
         P(30) = 0.5847930D-02
         E(31) = 0.5503000D+01
         P(31) = 0.2117091D-01
         E(32) = 0.2222000D+01
         P(32) = 0.6266872D-01
         E(33) = 0.9590000D+00
         P(33) = 0.1000000D+01
         E(34) = 0.4314000D+00
         P(34) = 0.1000000D+01
         E(35) = 0.1969000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.9033000D-01
         P(36) = 0.1000000D+01
         E(37) = 0.4066000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.2886000D+01
         D(38) = 0.1000000D+01
         E(39) = 0.1267000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.5560000D+00
         D(40) = 0.1000000D+01
         E(41) = 0.2440000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.1070000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.1651000D+01
         F(43) = 0.1000000D+01
         E(44) = 0.8002000D+00
         F(44) = 0.1000000D+01
         E(45) = 0.3878000D+00
         F(45) = 0.1000000D+01
         E(46) = 0.1880000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.1646900D+01
         G(47) = 0.1000000D+01
         E(48) = 0.7889000D+00
         G(48) = 0.1000000D+01
         E(49) = 0.3779000D+00
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.1312000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.5806000D+00
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.9847000D+00
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- C  -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.6665000D+04
         S(1) = 0.6920000D-03
         E(2) = 0.1000000D+04
         S(2) = 0.5329000D-02
         E(3) = 0.2280000D+03
         S(3) = 0.2707700D-01
         E(4) = 0.6471000D+02
         S(4) = 0.1017180D+00
         E(5) = 0.2106000D+02
         S(5) = 0.2747400D+00
         E(6) = 0.7495000D+01
         S(6) = 0.4485640D+00
         E(7) = 0.2797000D+01
         S(7) = 0.2850740D+00
         E(8) = 0.5215000D+00
         S(8) = 0.1520400D-01
         E(9) = 0.6665000D+04
         S(9) = -.1460000D-03
         E(10) = 0.1000000D+04
         S(10) = -.1154000D-02
         E(11) = 0.2280000D+03
         S(11) = -.5725000D-02
         E(12) = 0.6471000D+02
         S(12) = -.2331200D-01
         E(13) = 0.2106000D+02
         S(13) = -.6395500D-01
         E(14) = 0.7495000D+01
         S(14) = -.1499810D+00
         E(15) = 0.2797000D+01
         S(15) = -.1272620D+00
         E(16) = 0.5215000D+00
         S(16) = 0.5445290D+00
         E(17) = 0.1596000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.9439000D+01
         P(18) = 0.3810900D-01
         E(19) = 0.2002000D+01
         P(19) = 0.2094800D+00
         E(20) = 0.5456000D+00
         P(20) = 0.5085570D+00
         E(21) = 0.1517000D+00
         P(21) = 0.1000000D+01
         E(22) = 0.5500000D+00
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.8236000D+04
         S(1) = 0.5310000D-03
         E(2) = 0.1235000D+04
         S(2) = 0.4108000D-02
         E(3) = 0.2808000D+03
         S(3) = 0.2108700D-01
         E(4) = 0.7927000D+02
         S(4) = 0.8185300D-01
         E(5) = 0.2559000D+02
         S(5) = 0.2348170D+00
         E(6) = 0.8997000D+01
         S(6) = 0.4344010D+00
         E(7) = 0.3319000D+01
         S(7) = 0.3461290D+00
         E(8) = 0.3643000D+00
         S(8) = -.8983000D-02
         E(9) = 0.8236000D+04
         S(9) = -.1130000D-03
         E(10) = 0.1235000D+04
         S(10) = -.8780000D-03
         E(11) = 0.2808000D+03
         S(11) = -.4540000D-02
         E(12) = 0.7927000D+02
         S(12) = -.1813300D-01
         E(13) = 0.2559000D+02
         S(13) = -.5576000D-01
         E(14) = 0.8997000D+01
         S(14) = -.1268950D+00
         E(15) = 0.3319000D+01
         S(15) = -.1703520D+00
         E(16) = 0.3643000D+00
         S(16) = 0.5986840D+00
         E(17) = 0.9059000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.1285000D+00
         S(18) = 0.1000000D+01
         E(19) = 0.1871000D+02
         P(19) = 0.1403100D-01
         E(20) = 0.4133000D+01
         P(20) = 0.8686600D-01
         E(21) = 0.1200000D+01
         P(21) = 0.2902160D+00
         E(22) = 0.3827000D+00
         P(22) = 0.1000000D+01
         E(23) = 0.1209000D+00
         P(23) = 0.1000000D+01
         E(24) = 0.1097000D+01
         D(24) = 0.1000000D+01
         E(25) = 0.3180000D+00
         D(25) = 0.1000000D+01
         E(26) = 0.7610000D+00
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.3398000D+05
         S(1) = 0.9100000D-04
         E(2) = 0.5089000D+04
         S(2) = 0.7040000D-03
         E(3) = 0.1157000D+04
         S(3) = 0.3693000D-02
         E(4) = 0.3266000D+03
         S(4) = 0.1536000D-01
         E(5) = 0.1061000D+03
         S(5) = 0.5292900D-01
         E(6) = 0.3811000D+02
         S(6) = 0.1470430D+00
         E(7) = 0.1475000D+02
         S(7) = 0.3056310D+00
         E(8) = 0.6035000D+01
         S(8) = 0.3993450D+00
         E(9) = 0.2530000D+01
         S(9) = 0.2170510D+00
         E(10) = 0.3398000D+05
         S(10) = -.1900000D-04
         E(11) = 0.5089000D+04
         S(11) = -.1510000D-03
         E(12) = 0.1157000D+04
         S(12) = -.7850000D-03
         E(13) = 0.3266000D+03
         S(13) = -.3324000D-02
         E(14) = 0.1061000D+03
         S(14) = -.1151200D-01
         E(15) = 0.3811000D+02
         S(15) = -.3416000D-01
         E(16) = 0.1475000D+02
         S(16) = -.7717300D-01
         E(17) = 0.6035000D+01
         S(17) = -.1414930D+00
         E(18) = 0.2530000D+01
         S(18) = -.1180190D+00
         E(19) = 0.7355000D+00
         S(19) = 0.1000000D+01
         E(20) = 0.2905000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.1111000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.3451000D+02
         P(22) = 0.5378000D-02
         E(23) = 0.7915000D+01
         P(23) = 0.3613200D-01
         E(24) = 0.2368000D+01
         P(24) = 0.1424930D+00
         E(25) = 0.8132000D+00
         P(25) = 0.1000000D+01
         E(26) = 0.2890000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.1007000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.1848000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.6490000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.2280000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.1419000D+01
         F(31) = 0.1000000D+01
         E(32) = 0.4850000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.1011000D+01
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.9677000D+05
         S(1) = 0.2500000D-04
         E(2) = 0.1450000D+05
         S(2) = 0.1900000D-03
         E(3) = 0.3300000D+04
         S(3) = 0.1000000D-02
         E(4) = 0.9358000D+03
         S(4) = 0.4183000D-02
         E(5) = 0.3062000D+03
         S(5) = 0.1485900D-01
         E(6) = 0.1113000D+03
         S(6) = 0.4530100D-01
         E(7) = 0.4390000D+02
         S(7) = 0.1165040D+00
         E(8) = 0.1840000D+02
         S(8) = 0.2402490D+00
         E(9) = 0.8054000D+01
         S(9) = 0.3587990D+00
         E(10) = 0.3637000D+01
         S(10) = 0.2939410D+00
         E(11) = 0.9677000D+05
         S(11) = -.5000000D-05
         E(12) = 0.1450000D+05
         S(12) = -.4100000D-04
         E(13) = 0.3300000D+04
         S(13) = -.2130000D-03
         E(14) = 0.9358000D+03
         S(14) = -.8970000D-03
         E(15) = 0.3062000D+03
         S(15) = -.3187000D-02
         E(16) = 0.1113000D+03
         S(16) = -.9961000D-02
         E(17) = 0.4390000D+02
         S(17) = -.2637500D-01
         E(18) = 0.1840000D+02
         S(18) = -.6000100D-01
         E(19) = 0.8054000D+01
         S(19) = -.1068250D+00
         E(20) = 0.3637000D+01
         S(20) = -.1441660D+00
         E(21) = 0.1656000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.6333000D+00
         S(22) = 0.1000000D+01
         E(23) = 0.2545000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.1019000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.1018000D+03
         P(25) = 0.8910000D-03
         E(26) = 0.2404000D+02
         P(26) = 0.6976000D-02
         E(27) = 0.7571000D+01
         P(27) = 0.3166900D-01
         E(28) = 0.2732000D+01
         P(28) = 0.1040060D+00
         E(29) = 0.1085000D+01
         P(29) = 0.1000000D+01
         E(30) = 0.4496000D+00
         P(30) = 0.1000000D+01
         E(31) = 0.1876000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.7606000D-01
         P(32) = 0.1000000D+01
         E(33) = 0.3134000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.1233000D+01
         D(34) = 0.1000000D+01
         E(35) = 0.4850000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.1910000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.2006000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.8380000D+00
         F(38) = 0.1000000D+01
         E(39) = 0.3500000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.1753000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.6780000D+00
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.1259000D+01
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.3121000D+06
         S(1) = 0.5670000D-05
         E(2) = 0.4674000D+05
         S(2) = 0.4410000D-04
         E(3) = 0.1064000D+05
         S(3) = 0.2319000D-03
         E(4) = 0.3013000D+04
         S(4) = 0.9789700D-03
         E(5) = 0.9828000D+03
         S(5) = 0.3551630D-02
         E(6) = 0.3548000D+03
         S(6) = 0.1144061D-01
         E(7) = 0.1384000D+03
         S(7) = 0.3299855D-01
         E(8) = 0.5735000D+02
         S(8) = 0.8405347D-01
         E(9) = 0.2492000D+02
         S(9) = 0.1806761D+00
         E(10) = 0.1123000D+02
         S(10) = 0.3049114D+00
         E(11) = 0.5201000D+01
         S(11) = 0.3414157D+00
         E(12) = 0.3121000D+06
         S(12) = -.1210000D-05
         E(13) = 0.4674000D+05
         S(13) = -.9390000D-05
         E(14) = 0.1064000D+05
         S(14) = -.4947000D-04
         E(15) = 0.3013000D+04
         S(15) = -.2085700D-03
         E(16) = 0.9828000D+03
         S(16) = -.7601500D-03
         E(17) = 0.3548000D+03
         S(17) = -.2454690D-02
         E(18) = 0.1384000D+03
         S(18) = -.7201530D-02
         E(19) = 0.5735000D+02
         S(19) = -.1880742D-01
         E(20) = 0.2492000D+02
         S(20) = -.4325001D-01
         E(21) = 0.1123000D+02
         S(21) = -.8259733D-01
         E(22) = 0.5201000D+01
         S(22) = -.1285759D+00
         E(23) = 0.2426000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.9673000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.4456000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.1971000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.8635000D-01
         S(27) = 0.1000000D+01
         E(28) = 0.2952000D+03
         P(28) = 0.1424900D-03
         E(29) = 0.6998000D+02
         P(29) = 0.1220100D-02
         E(30) = 0.2264000D+02
         P(30) = 0.6336960D-02
         E(31) = 0.8485000D+01
         P(31) = 0.2351875D-01
         E(32) = 0.3459000D+01
         P(32) = 0.6990447D-01
         E(33) = 0.1504000D+01
         P(33) = 0.1000000D+01
         E(34) = 0.6783000D+00
         P(34) = 0.1000000D+01
         E(35) = 0.3087000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.1400000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.6178000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.4542000D+01
         D(38) = 0.1000000D+01
         E(39) = 0.1979000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.8621000D+00
         D(40) = 0.1000000D+01
         E(41) = 0.3756000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.1636000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.2631000D+01
         F(43) = 0.1000000D+01
         E(44) = 0.1255000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.5988000D+00
         F(45) = 0.1000000D+01
         E(46) = 0.2857000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.2652000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1204000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.5470000D+00
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.2030000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.8511000D+00
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.1491000D+01
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- N -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.9046000D+04
         S(1) = 0.7000000D-03
         E(2) = 0.1357000D+04
         S(2) = 0.5389000D-02
         E(3) = 0.3093000D+03
         S(3) = 0.2740600D-01
         E(4) = 0.8773000D+02
         S(4) = 0.1032070D+00
         E(5) = 0.2856000D+02
         S(5) = 0.2787230D+00
         E(6) = 0.1021000D+02
         S(6) = 0.4485400D+00
         E(7) = 0.3838000D+01
         S(7) = 0.2782380D+00
         E(8) = 0.7466000D+00
         S(8) = 0.1544000D-01
         E(9) = 0.9046000D+04
         S(9) = -.1530000D-03
         E(10) = 0.1357000D+04
         S(10) = -.1208000D-02
         E(11) = 0.3093000D+03
         S(11) = -.5992000D-02
         E(12) = 0.8773000D+02
         S(12) = -.2454400D-01
         E(13) = 0.2856000D+02
         S(13) = -.6745900D-01
         E(14) = 0.1021000D+02
         S(14) = -.1580780D+00
         E(15) = 0.3838000D+01
         S(15) = -.1218310D+00
         E(16) = 0.7466000D+00
         S(16) = 0.5490030D+00
         E(17) = 0.2248000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.1355000D+02
         P(18) = 0.3991900D-01
         E(19) = 0.2917000D+01
         P(19) = 0.2171690D+00
         E(20) = 0.7973000D+00
         P(20) = 0.5103190D+00
         E(21) = 0.2185000D+00
         P(21) = 0.1000000D+01
         E(22) = 0.8170000D+00
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1142000D+05
         S(1) = 0.5230000D-03
         E(2) = 0.1712000D+04
         S(2) = 0.4045000D-02
         E(3) = 0.3893000D+03
         S(3) = 0.2077500D-01
         E(4) = 0.1100000D+03
         S(4) = 0.8072700D-01
         E(5) = 0.3557000D+02
         S(5) = 0.2330740D+00
         E(6) = 0.1254000D+02
         S(6) = 0.4335010D+00
         E(7) = 0.4644000D+01
         S(7) = 0.3474720D+00
         E(8) = 0.5118000D+00
         S(8) = -.8508000D-02
         E(9) = 0.1142000D+05
         S(9) = -.1150000D-03
         E(10) = 0.1712000D+04
         S(10) = -.8950000D-03
         E(11) = 0.3893000D+03
         S(11) = -.4624000D-02
         E(12) = 0.1100000D+03
         S(12) = -.1852800D-01
         E(13) = 0.3557000D+02
         S(13) = -.5733900D-01
         E(14) = 0.1254000D+02
         S(14) = -.1320760D+00
         E(15) = 0.4644000D+01
         S(15) = -.1725100D+00
         E(16) = 0.5118000D+00
         S(16) = 0.5999440D+00
         E(17) = 0.1293000D+01
         S(17) = 0.1000000D+01
         E(18) = 0.1787000D+00
         S(18) = 0.1000000D+01
         E(19) = 0.2663000D+02
         P(19) = 0.1467000D-01
         E(20) = 0.5948000D+01
         P(20) = 0.9176400D-01
         E(21) = 0.1742000D+01
         P(21) = 0.2986830D+00
         E(22) = 0.5550000D+00
         P(22) = 0.1000000D+01
         E(23) = 0.1725000D+00
         P(23) = 0.1000000D+01
         E(24) = 0.1654000D+01
         D(24) = 0.1000000D+01
         E(25) = 0.4690000D+00
         D(25) = 0.1000000D+01
         E(26) = 0.1093000D+01
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.4584000D+05
         S(1) = 0.9200000D-04
         E(2) = 0.6868000D+04
         S(2) = 0.7170000D-03
         E(3) = 0.1563000D+04
         S(3) = 0.3749000D-02
         E(4) = 0.4424000D+03
         S(4) = 0.1553200D-01
         E(5) = 0.1443000D+03
         S(5) = 0.5314600D-01
         E(6) = 0.5218000D+02
         S(6) = 0.1467870D+00
         E(7) = 0.2034000D+02
         S(7) = 0.3046630D+00
         E(8) = 0.8381000D+01
         S(8) = 0.3976840D+00
         E(9) = 0.3529000D+01
         S(9) = 0.2176410D+00
         E(10) = 0.4584000D+05
         S(10) = -.2000000D-04
         E(11) = 0.6868000D+04
         S(11) = -.1590000D-03
         E(12) = 0.1563000D+04
         S(12) = -.8240000D-03
         E(13) = 0.4424000D+03
         S(13) = -.3478000D-02
         E(14) = 0.1443000D+03
         S(14) = -.1196600D-01
         E(15) = 0.5218000D+02
         S(15) = -.3538800D-01
         E(16) = 0.2034000D+02
         S(16) = -.8007700D-01
         E(17) = 0.8381000D+01
         S(17) = -.1467220D+00
         E(18) = 0.3529000D+01
         S(18) = -.1163600D+00
         E(19) = 0.1054000D+01
         S(19) = 0.1000000D+01
         E(20) = 0.4118000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.1552000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.4933000D+02
         P(22) = 0.5533000D-02
         E(23) = 0.1137000D+02
         P(23) = 0.3796200D-01
         E(24) = 0.3435000D+01
         P(24) = 0.1490280D+00
         E(25) = 0.1182000D+01
         P(25) = 0.1000000D+01
         E(26) = 0.4173000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.1428000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.2837000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.9680000D+00
         D(29) = 0.1000000D+01
         E(30) = 0.3350000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.2027000D+01
         F(31) = 0.1000000D+01
         E(32) = 0.6850000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.1427000D+01
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1292000D+06
         S(1) = 0.2500000D-04
         E(2) = 0.1935000D+05
         S(2) = 0.1970000D-03
         E(3) = 0.4404000D+04
         S(3) = 0.1032000D-02
         E(4) = 0.1248000D+04
         S(4) = 0.4325000D-02
         E(5) = 0.4080000D+03
         S(5) = 0.1538000D-01
         E(6) = 0.1482000D+03
         S(6) = 0.4686700D-01
         E(7) = 0.5850000D+02
         S(7) = 0.1201160D+00
         E(8) = 0.2459000D+02
         S(8) = 0.2456950D+00
         E(9) = 0.1081000D+02
         S(9) = 0.3613790D+00
         E(10) = 0.4882000D+01
         S(10) = 0.2872830D+00
         E(11) = 0.1292000D+06
         S(11) = -.6000000D-05
         E(12) = 0.1935000D+05
         S(12) = -.4300000D-04
         E(13) = 0.4404000D+04
         S(13) = -.2270000D-03
         E(14) = 0.1248000D+04
         S(14) = -.9580000D-03
         E(15) = 0.4080000D+03
         S(15) = -.3416000D-02
         E(16) = 0.1482000D+03
         S(16) = -.1066700D-01
         E(17) = 0.5850000D+02
         S(17) = -.2827900D-01
         E(18) = 0.2459000D+02
         S(18) = -.6402000D-01
         E(19) = 0.1081000D+02
         S(19) = -.1139320D+00
         E(20) = 0.4882000D+01
         S(20) = -.1469950D+00
         E(21) = 0.2195000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.8715000D+00
         S(22) = 0.1000000D+01
         E(23) = 0.3504000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.1397000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.1470000D+03
         P(25) = 0.8920000D-03
         E(26) = 0.3476000D+02
         P(26) = 0.7082000D-02
         E(27) = 0.1100000D+02
         P(27) = 0.3281600D-01
         E(28) = 0.3995000D+01
         P(28) = 0.1082090D+00
         E(29) = 0.1587000D+01
         P(29) = 0.1000000D+01
         E(30) = 0.6533000D+00
         P(30) = 0.1000000D+01
         E(31) = 0.2686000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.1067000D+00
         P(32) = 0.1000000D+01
         E(33) = 0.4647000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.1813000D+01
         D(34) = 0.1000000D+01
         E(35) = 0.7070000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.2760000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.2942000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.1204000D+01
         F(38) = 0.1000000D+01
         E(39) = 0.4930000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.2511000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.9420000D+00
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.1768000D+01
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.4323000D+06
         S(1) = 0.5590000D-05
         E(2) = 0.6470000D+05
         S(2) = 0.4351000D-04
         E(3) = 0.1472000D+05
         S(3) = 0.2289300D-03
         E(4) = 0.4170000D+04
         S(4) = 0.9650200D-03
         E(5) = 0.1361000D+04
         S(5) = 0.3502190D-02
         E(6) = 0.4912000D+03
         S(6) = 0.1129212D-01
         E(7) = 0.1916000D+03
         S(7) = 0.3261283D-01
         E(8) = 0.7941000D+02
         S(8) = 0.8329727D-01
         E(9) = 0.3453000D+02
         S(9) = 0.1799857D+00
         E(10) = 0.1558000D+02
         S(10) = 0.3050035D+00
         E(11) = 0.7232000D+01
         S(11) = 0.3411593D+00
         E(12) = 0.4323000D+06
         S(12) = -.1230000D-05
         E(13) = 0.6470000D+05
         S(13) = -.9580000D-05
         E(14) = 0.1472000D+05
         S(14) = -.5051000D-04
         E(15) = 0.4170000D+04
         S(15) = -.2126400D-03
         E(16) = 0.1361000D+04
         S(16) = -.7753400D-03
         E(17) = 0.4912000D+03
         S(17) = -.2506240D-02
         E(18) = 0.1916000D+03
         S(18) = -.7365290D-02
         E(19) = 0.7941000D+02
         S(19) = -.1930167D-01
         E(20) = 0.3453000D+02
         S(20) = -.4471738D-01
         E(21) = 0.1558000D+02
         S(21) = -.8606647D-01
         E(22) = 0.7232000D+01
         S(22) = -.1332963D+00
         E(23) = 0.3382000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.1369000D+01
         S(24) = 0.1000000D+01
         E(25) = 0.6248000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.2747000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.1192000D+00
         S(27) = 0.1000000D+01
         E(28) = 0.4159000D+03
         P(28) = 0.1484100D-03
         E(29) = 0.9861000D+02
         P(29) = 0.1276340D-02
         E(30) = 0.3192000D+02
         P(30) = 0.6702420D-02
         E(31) = 0.1200000D+02
         P(31) = 0.2526170D-01
         E(32) = 0.4919000D+01
         P(32) = 0.7518943D-01
         E(33) = 0.2148000D+01
         P(33) = 0.1000000D+01
         E(34) = 0.9696000D+00
         P(34) = 0.1000000D+01
         E(35) = 0.4399000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.1978000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.8603000D-01
         P(37) = 0.1000000D+01
         E(38) = 0.6717000D+01
         D(38) = 0.1000000D+01
         E(39) = 0.2896000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.1249000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.5380000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.2320000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.3829000D+01
         F(43) = 0.1000000D+01
         E(44) = 0.1795000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.8410000D+00
         F(45) = 0.1000000D+01
         E(46) = 0.3940000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.3856000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.1702000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.7510000D+00
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.2875000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.1170000D+01
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.2099000D+01
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- O  ------
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1172000D+05
         S(1) = 0.7100000D-03
         E(2) = 0.1759000D+04
         S(2) = 0.5470000D-02
         E(3) = 0.4008000D+03
         S(3) = 0.2783700D-01
         E(4) = 0.1137000D+03
         S(4) = 0.1048000D+00
         E(5) = 0.3703000D+02
         S(5) = 0.2830620D+00
         E(6) = 0.1327000D+02
         S(6) = 0.4487190D+00
         E(7) = 0.5025000D+01
         S(7) = 0.2709520D+00
         E(8) = 0.1013000D+01
         S(8) = 0.1545800D-01
         E(9) = 0.1172000D+05
         S(9) = -.1600000D-03
         E(10) = 0.1759000D+04
         S(10) = -.1263000D-02
         E(11) = 0.4008000D+03
         S(11) = -.6267000D-02
         E(12) = 0.1137000D+03
         S(12) = -.2571600D-01
         E(13) = 0.3703000D+02
         S(13) = -.7092400D-01
         E(14) = 0.1327000D+02
         S(14) = -.1654110D+00
         E(15) = 0.5025000D+01
         S(15) = -.1169550D+00
         E(16) = 0.1013000D+01
         S(16) = 0.5573680D+00
         E(17) = 0.3023000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.1770000D+02
         P(18) = 0.4301800D-01
         E(19) = 0.3854000D+01
         P(19) = 0.2289130D+00
         E(20) = 0.1046000D+01
         P(20) = 0.5087280D+00
         E(21) = 0.2753000D+00
         P(21) = 0.1000000D+01
         E(22) = 0.1185000D+01
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1533000D+05
         S(1) = 0.5080000D-03
         E(2) = 0.2299000D+04
         S(2) = 0.3929000D-02
         E(3) = 0.5224000D+03
         S(3) = 0.2024300D-01
         E(4) = 0.1473000D+03
         S(4) = 0.7918100D-01
         E(5) = 0.4755000D+02
         S(5) = 0.2306870D+00
         E(6) = 0.1676000D+02
         S(6) = 0.4331180D+00
         E(7) = 0.6207000D+01
         S(7) = 0.3502600D+00
         E(8) = 0.6882000D+00
         S(8) = -.8154000D-02
         E(9) = 0.1533000D+05
         S(9) = -.1150000D-03
         E(10) = 0.2299000D+04
         S(10) = -.8950000D-03
         E(11) = 0.5224000D+03
         S(11) = -.4636000D-02
         E(12) = 0.1473000D+03
         S(12) = -.1872400D-01
         E(13) = 0.4755000D+02
         S(13) = -.5846300D-01
         E(14) = 0.1676000D+02
         S(14) = -.1364630D+00
         E(15) = 0.6207000D+01
         S(15) = -.1757400D+00
         E(16) = 0.6882000D+00
         S(16) = 0.6034180D+00
         E(17) = 0.1752000D+01
         S(17) = 0.1000000D+01
         E(18) = 0.2384000D+00
         S(18) = 0.1000000D+01
         E(19) = 0.3446000D+02
         P(19) = 0.1592800D-01
         E(20) = 0.7749000D+01
         P(20) = 0.9974000D-01
         E(21) = 0.2280000D+01
         P(21) = 0.3104920D+00
         E(22) = 0.7156000D+00
         P(22) = 0.1000000D+01
         E(23) = 0.2140000D+00
         P(23) = 0.1000000D+01
         E(24) = 0.2314000D+01
         D(24) = 0.1000000D+01
         E(25) = 0.6450000D+00
         D(25) = 0.1000000D+01
         E(26) = 0.1428000D+01
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.6142000D+05
         S(1) = 0.9000000D-04
         E(2) = 0.9199000D+04
         S(2) = 0.6980000D-03
         E(3) = 0.2091000D+04
         S(3) = 0.3664000D-02
         E(4) = 0.5909000D+03
         S(4) = 0.1521800D-01
         E(5) = 0.1923000D+03
         S(5) = 0.5242300D-01
         E(6) = 0.6932000D+02
         S(6) = 0.1459210D+00
         E(7) = 0.2697000D+02
         S(7) = 0.3052580D+00
         E(8) = 0.1110000D+02
         S(8) = 0.3985080D+00
         E(9) = 0.4682000D+01
         S(9) = 0.2169800D+00
         E(10) = 0.6142000D+05
         S(10) = -.2000000D-04
         E(11) = 0.9199000D+04
         S(11) = -.1590000D-03
         E(12) = 0.2091000D+04
         S(12) = -.8290000D-03
         E(13) = 0.5909000D+03
         S(13) = -.3508000D-02
         E(14) = 0.1923000D+03
         S(14) = -.1215600D-01
         E(15) = 0.6932000D+02
         S(15) = -.3626100D-01
         E(16) = 0.2697000D+02
         S(16) = -.8299200D-01
         E(17) = 0.1110000D+02
         S(17) = -.1520900D+00
         E(18) = 0.4682000D+01
         S(18) = -.1153310D+00
         E(19) = 0.1428000D+01
         S(19) = 0.1000000D+01
         E(20) = 0.5547000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.2067000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.6342000D+02
         P(22) = 0.6044000D-02
         E(23) = 0.1466000D+02
         P(23) = 0.4179900D-01
         E(24) = 0.4459000D+01
         P(24) = 0.1611430D+00
         E(25) = 0.1531000D+01
         P(25) = 0.1000000D+01
         E(26) = 0.5302000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.1750000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.3775000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.1300000D+01
         D(29) = 0.1000000D+01
         E(30) = 0.4440000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.2666000D+01
         F(31) = 0.1000000D+01
         E(32) = 0.8590000D+00
         F(32) = 0.1000000D+01
         E(33) = 0.1846000D+01
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1642000D+06
         S(1) = 0.2600000D-04
         E(2) = 0.2459000D+05
         S(2) = 0.2050000D-03
         E(3) = 0.5592000D+04
         S(3) = 0.1076000D-02
         E(4) = 0.1582000D+04
         S(4) = 0.4522000D-02
         E(5) = 0.5161000D+03
         S(5) = 0.1610800D-01
         E(6) = 0.1872000D+03
         S(6) = 0.4908500D-01
         E(7) = 0.7393000D+02
         S(7) = 0.1248570D+00
         E(8) = 0.3122000D+02
         S(8) = 0.2516860D+00
         E(9) = 0.1381000D+02
         S(9) = 0.3624200D+00
         E(10) = 0.6256000D+01
         S(10) = 0.2790510D+00
         E(11) = 0.1642000D+06
         S(11) = -.6000000D-05
         E(12) = 0.2459000D+05
         S(12) = -.4600000D-04
         E(13) = 0.5592000D+04
         S(13) = -.2440000D-03
         E(14) = 0.1582000D+04
         S(14) = -.1031000D-02
         E(15) = 0.5161000D+03
         S(15) = -.3688000D-02
         E(16) = 0.1872000D+03
         S(16) = -.1151400D-01
         E(17) = 0.7393000D+02
         S(17) = -.3043500D-01
         E(18) = 0.3122000D+02
         S(18) = -.6814700D-01
         E(19) = 0.1381000D+02
         S(19) = -.1203680D+00
         E(20) = 0.6256000D+01
         S(20) = -.1482600D+00
         E(21) = 0.2776000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.1138000D+01
         S(22) = 0.1000000D+01
         E(23) = 0.4600000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.1829000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.1955000D+03
         P(25) = 0.9180000D-03
         E(26) = 0.4616000D+02
         P(26) = 0.7388000D-02
         E(27) = 0.1458000D+02
         P(27) = 0.3495800D-01
         E(28) = 0.5296000D+01
         P(28) = 0.1154310D+00
         E(29) = 0.2094000D+01
         P(29) = 0.1000000D+01
         E(30) = 0.8471000D+00
         P(30) = 0.1000000D+01
         E(31) = 0.3368000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.1285000D+00
         P(32) = 0.1000000D+01
         E(33) = 0.5879000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.2307000D+01
         D(34) = 0.1000000D+01
         E(35) = 0.9050000D+00
         D(35) = 0.1000000D+01
         E(36) = 0.3550000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.4016000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.1554000D+01
         F(38) = 0.1000000D+01
         E(39) = 0.6010000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.3350000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.1189000D+01
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.2319000D+01
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.5708000D+06
         S(1) = 0.5550000D-05
         E(2) = 0.8548000D+05
         S(2) = 0.4311000D-04
         E(3) = 0.1946000D+05
         S(3) = 0.2266700D-03
         E(4) = 0.5512000D+04
         S(4) = 0.9563700D-03
         E(5) = 0.1798000D+04
         S(5) = 0.3473200D-02
         E(6) = 0.6489000D+03
         S(6) = 0.1119778D-01
         E(7) = 0.2531000D+03
         S(7) = 0.3238766D-01
         E(8) = 0.1049000D+03
         S(8) = 0.8285977D-01
         E(9) = 0.4565000D+02
         S(9) = 0.1795838D+00
         E(10) = 0.2062000D+02
         S(10) = 0.3052211D+00
         E(11) = 0.9587000D+01
         S(11) = 0.3408935D+00
         E(12) = 0.5708000D+06
         S(12) = -.1260000D-05
         E(13) = 0.8548000D+05
         S(13) = -.9770000D-05
         E(14) = 0.1946000D+05
         S(14) = -.5148000D-04
         E(15) = 0.5512000D+04
         S(15) = -.2169600D-03
         E(16) = 0.1798000D+04
         S(16) = -.7916200D-03
         E(17) = 0.6489000D+03
         S(17) = -.2559000D-02
         E(18) = 0.2531000D+03
         S(18) = -.7533130D-02
         E(19) = 0.1049000D+03
         S(19) = -.1978897D-01
         E(20) = 0.4565000D+02
         S(20) = -.4606288D-01
         E(21) = 0.2062000D+02
         S(21) = -.8919560D-01
         E(22) = 0.9587000D+01
         S(22) = -.1375422D+00
         E(23) = 0.4493000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.1837000D+01
         S(24) = 0.1000000D+01
         E(25) = 0.8349000D+00
         S(25) = 0.1000000D+01
         E(26) = 0.3658000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.1570000D+00
         S(27) = 0.1000000D+01
         E(28) = 0.5256000D+03
         P(28) = 0.1666400D-03
         E(29) = 0.1246000D+03
         P(29) = 0.1433360D-02
         E(30) = 0.4034000D+02
         P(30) = 0.7547620D-02
         E(31) = 0.1518000D+02
         P(31) = 0.2859456D-01
         E(32) = 0.6245000D+01
         P(32) = 0.8438858D-01
         E(33) = 0.2732000D+01
         P(33) = 0.1000000D+01
         E(34) = 0.1227000D+01
         P(34) = 0.1000000D+01
         E(35) = 0.5492000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.2418000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.1025000D+00
         P(37) = 0.1000000D+01
         E(38) = 0.8253000D+01
         D(38) = 0.1000000D+01
         E(39) = 0.3597000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.1568000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.6840000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.2980000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.5430000D+01
         F(43) = 0.1000000D+01
         E(44) = 0.2416000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1075000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.4780000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.5211000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.2190000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.9200000D+00
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.3872000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.1505000D+01
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.2773000D+01
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- F  -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1471000D+05
         S(1) = 0.7210000D-03
         E(2) = 0.2207000D+04
         S(2) = 0.5553000D-02
         E(3) = 0.5028000D+03
         S(3) = 0.2826700D-01
         E(4) = 0.1426000D+03
         S(4) = 0.1064440D+00
         E(5) = 0.4647000D+02
         S(5) = 0.2868140D+00
         E(6) = 0.1670000D+02
         S(6) = 0.4486410D+00
         E(7) = 0.6356000D+01
         S(7) = 0.2647610D+00
         E(8) = 0.1316000D+01
         S(8) = 0.1533300D-01
         E(9) = 0.1471000D+05
         S(9) = -.1650000D-03
         E(10) = 0.2207000D+04
         S(10) = -.1308000D-02
         E(11) = 0.5028000D+03
         S(11) = -.6495000D-02
         E(12) = 0.1426000D+03
         S(12) = -.2669100D-01
         E(13) = 0.4647000D+02
         S(13) = -.7369000D-01
         E(14) = 0.1670000D+02
         S(14) = -.1707760D+00
         E(15) = 0.6356000D+01
         S(15) = -.1123270D+00
         E(16) = 0.1316000D+01
         S(16) = 0.5628140D+00
         E(17) = 0.3897000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.2267000D+02
         P(18) = 0.4487800D-01
         E(19) = 0.4977000D+01
         P(19) = 0.2357180D+00
         E(20) = 0.1347000D+01
         P(20) = 0.5085210D+00
         E(21) = 0.3471000D+00
         P(21) = 0.1000000D+01
         E(22) = 0.1640000D+01
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1950000D+05
         S(1) = 0.5070000D-03
         E(2) = 0.2923000D+04
         S(2) = 0.3923000D-02
         E(3) = 0.6645000D+03
         S(3) = 0.2020000D-01
         E(4) = 0.1875000D+03
         S(4) = 0.7901000D-01
         E(5) = 0.6062000D+02
         S(5) = 0.2304390D+00
         E(6) = 0.2142000D+02
         S(6) = 0.4328720D+00
         E(7) = 0.7950000D+01
         S(7) = 0.3499640D+00
         E(8) = 0.8815000D+00
         S(8) = -.7892000D-02
         E(9) = 0.1950000D+05
         S(9) = -.1170000D-03
         E(10) = 0.2923000D+04
         S(10) = -.9120000D-03
         E(11) = 0.6645000D+03
         S(11) = -.4717000D-02
         E(12) = 0.1875000D+03
         S(12) = -.1908600D-01
         E(13) = 0.6062000D+02
         S(13) = -.5965500D-01
         E(14) = 0.2142000D+02
         S(14) = -.1400100D+00
         E(15) = 0.7950000D+01
         S(15) = -.1767820D+00
         E(16) = 0.8815000D+00
         S(16) = 0.6050430D+00
         E(17) = 0.2257000D+01
         S(17) = 0.1000000D+01
         E(18) = 0.3041000D+00
         S(18) = 0.1000000D+01
         E(19) = 0.4388000D+02
         P(19) = 0.1666500D-01
         E(20) = 0.9926000D+01
         P(20) = 0.1044720D+00
         E(21) = 0.2930000D+01
         P(21) = 0.3172600D+00
         E(22) = 0.9132000D+00
         P(22) = 0.1000000D+01
         E(23) = 0.2672000D+00
         P(23) = 0.1000000D+01
         E(24) = 0.3107000D+01
         D(24) = 0.1000000D+01
         E(25) = 0.8550000D+00
         D(25) = 0.1000000D+01
         E(26) = 0.1917000D+01
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.7453000D+05
         S(1) = 0.9500000D-04
         E(2) = 0.1117000D+05
         S(2) = 0.7380000D-03
         E(3) = 0.2543000D+04
         S(3) = 0.3858000D-02
         E(4) = 0.7210000D+03
         S(4) = 0.1592600D-01
         E(5) = 0.2359000D+03
         S(5) = 0.5428900D-01
         E(6) = 0.8560000D+02
         S(6) = 0.1495130D+00
         E(7) = 0.3355000D+02
         S(7) = 0.3082520D+00
         E(8) = 0.1393000D+02
         S(8) = 0.3948530D+00
         E(9) = 0.5915000D+01
         S(9) = 0.2110310D+00
         E(10) = 0.7453000D+05
         S(10) = -.2200000D-04
         E(11) = 0.1117000D+05
         S(11) = -.1720000D-03
         E(12) = 0.2543000D+04
         S(12) = -.8910000D-03
         E(13) = 0.7210000D+03
         S(13) = -.3748000D-02
         E(14) = 0.2359000D+03
         S(14) = -.1286200D-01
         E(15) = 0.8560000D+02
         S(15) = -.3806100D-01
         E(16) = 0.3355000D+02
         S(16) = -.8623900D-01
         E(17) = 0.1393000D+02
         S(17) = -.1558650D+00
         E(18) = 0.5915000D+01
         S(18) = -.1109140D+00
         E(19) = 0.1843000D+01
         S(19) = 0.1000000D+01
         E(20) = 0.7124000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.2637000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.8039000D+02
         P(22) = 0.6347000D-02
         E(23) = 0.1863000D+02
         P(23) = 0.4420400D-01
         E(24) = 0.5694000D+01
         P(24) = 0.1685140D+00
         E(25) = 0.1953000D+01
         P(25) = 0.1000000D+01
         E(26) = 0.6702000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.2166000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.5014000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.1725000D+01
         D(29) = 0.1000000D+01
         E(30) = 0.5860000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.3562000D+01
         F(31) = 0.1000000D+01
         E(32) = 0.1148000D+01
         F(32) = 0.1000000D+01
         E(33) = 0.2376000D+01
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.2114000D+06
         S(1) = 0.2600000D-04
         E(2) = 0.3166000D+05
         S(2) = 0.2010000D-03
         E(3) = 0.7202000D+04
         S(3) = 0.1056000D-02
         E(4) = 0.2040000D+04
         S(4) = 0.4432000D-02
         E(5) = 0.6664000D+03
         S(5) = 0.1576600D-01
         E(6) = 0.2420000D+03
         S(6) = 0.4811200D-01
         E(7) = 0.9553000D+02
         S(7) = 0.1232320D+00
         E(8) = 0.4023000D+02
         S(8) = 0.2515190D+00
         E(9) = 0.1772000D+02
         S(9) = 0.3645250D+00
         E(10) = 0.8005000D+01
         S(10) = 0.2797660D+00
         E(11) = 0.2114000D+06
         S(11) = -.6000000D-05
         E(12) = 0.3166000D+05
         S(12) = -.4700000D-04
         E(13) = 0.7202000D+04
         S(13) = -.2440000D-03
         E(14) = 0.2040000D+04
         S(14) = -.1031000D-02
         E(15) = 0.6664000D+03
         S(15) = -.3683000D-02
         E(16) = 0.2420000D+03
         S(16) = -.1151300D-01
         E(17) = 0.9553000D+02
         S(17) = -.3066300D-01
         E(18) = 0.4023000D+02
         S(18) = -.6957200D-01
         E(19) = 0.1772000D+02
         S(19) = -.1239920D+00
         E(20) = 0.8005000D+01
         S(20) = -.1502140D+00
         E(21) = 0.3538000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.1458000D+01
         S(22) = 0.1000000D+01
         E(23) = 0.5887000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.2324000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.2419000D+03
         P(25) = 0.1002000D-02
         E(26) = 0.5717000D+02
         P(26) = 0.8054000D-02
         E(27) = 0.1813000D+02
         P(27) = 0.3804800D-01
         E(28) = 0.6624000D+01
         P(28) = 0.1237790D+00
         E(29) = 0.2622000D+01
         P(29) = 0.1000000D+01
         E(30) = 0.1057000D+01
         P(30) = 0.1000000D+01
         E(31) = 0.4176000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.1574000D+00
         P(32) = 0.1000000D+01
         E(33) = 0.7760000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.3032000D+01
         D(34) = 0.1000000D+01
         E(35) = 0.1185000D+01
         D(35) = 0.1000000D+01
         E(36) = 0.4630000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.5398000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.2078000D+01
         F(38) = 0.1000000D+01
         E(39) = 0.8000000D+00
         F(39) = 0.1000000D+01
         E(40) = 0.4338000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.1513000D+01
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.2995000D+01
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.7235000D+06
         S(1) = 0.5560000D-05
         E(2) = 0.1084000D+06
         S(2) = 0.4318000D-04
         E(3) = 0.2468000D+05
         S(3) = 0.2270000D-03
         E(4) = 0.6990000D+04
         S(4) = 0.9580300D-03
         E(5) = 0.2282000D+04
         S(5) = 0.3470150D-02
         E(6) = 0.8246000D+03
         S(6) = 0.1118526D-01
         E(7) = 0.3218000D+03
         S(7) = 0.3232880D-01
         E(8) = 0.1335000D+03
         S(8) = 0.8279545D-01
         E(9) = 0.5811000D+02
         S(9) = 0.1798802D+00
         E(10) = 0.2628000D+02
         S(10) = 0.3055783D+00
         E(11) = 0.1224000D+02
         S(11) = 0.3402684D+00
         E(12) = 0.7235000D+06
         S(12) = -.1290000D-05
         E(13) = 0.1084000D+06
         S(13) = -.9990000D-05
         E(14) = 0.2468000D+05
         S(14) = -.5260000D-04
         E(15) = 0.6990000D+04
         S(15) = -.2217200D-03
         E(16) = 0.2282000D+04
         S(16) = -.8069200D-03
         E(17) = 0.8246000D+03
         S(17) = -.2608170D-02
         E(18) = 0.3218000D+03
         S(18) = -.7674020D-02
         E(19) = 0.1335000D+03
         S(19) = -.2019353D-01
         E(20) = 0.5811000D+02
         S(20) = -.4718752D-01
         E(21) = 0.2628000D+02
         S(21) = -.9158009D-01
         E(22) = 0.1224000D+02
         S(22) = -.1404856D+00
         E(23) = 0.5747000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.2365000D+01
         S(24) = 0.1000000D+01
         E(25) = 0.1071000D+01
         S(25) = 0.1000000D+01
         E(26) = 0.4681000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.1994000D+00
         S(27) = 0.1000000D+01
         E(28) = 0.6600000D+03
         P(28) = 0.1772100D-03
         E(29) = 0.1564000D+03
         P(29) = 0.1526910D-02
         E(30) = 0.5064000D+02
         P(30) = 0.8072070D-02
         E(31) = 0.1908000D+02
         P(31) = 0.3074021D-01
         E(32) = 0.7872000D+01
         P(32) = 0.9011914D-01
         E(33) = 0.3449000D+01
         P(33) = 0.1000000D+01
         E(34) = 0.1545000D+01
         P(34) = 0.1000000D+01
         E(35) = 0.6864000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.2986000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.1245000D+00
         P(37) = 0.1000000D+01
         E(38) = 0.1057300D+02
         D(38) = 0.1000000D+01
         E(39) = 0.4613000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.2013000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.8780000D+00
         D(41) = 0.1000000D+01
         E(42) = 0.3830000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.7563000D+01
         F(43) = 0.1000000D+01
         E(44) = 0.3330000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1466000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.6450000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.6735000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.2783000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.1150000D+01
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.5088000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.1937000D+01
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.3581000D+01
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
C
C     ----- NE -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1788000D+05
         S(1) = 0.7380000D-03
         E(2) = 0.2683000D+04
         S(2) = 0.5677000D-02
         E(3) = 0.6115000D+03
         S(3) = 0.2888300D-01
         E(4) = 0.1735000D+03
         S(4) = 0.1085400D+00
         E(5) = 0.5664000D+02
         S(5) = 0.2909070D+00
         E(6) = 0.2042000D+02
         S(6) = 0.4483240D+00
         E(7) = 0.7810000D+01
         S(7) = 0.2580260D+00
         E(8) = 0.1653000D+01
         S(8) = 0.1506300D-01
         E(9) = 0.1788000D+05
         S(9) = -.1720000D-03
         E(10) = 0.2683000D+04
         S(10) = -.1357000D-02
         E(11) = 0.6115000D+03
         S(11) = -.6737000D-02
         E(12) = 0.1735000D+03
         S(12) = -.2766300D-01
         E(13) = 0.5664000D+02
         S(13) = -.7620800D-01
         E(14) = 0.2042000D+02
         S(14) = -.1752270D+00
         E(15) = 0.7810000D+01
         S(15) = -.1070380D+00
         E(16) = 0.1653000D+01
         S(16) = 0.5670500D+00
         E(17) = 0.4869000D+00
         S(17) = 0.1000000D+01
         E(18) = 0.2839000D+02
         P(18) = 0.4608700D-01
         E(19) = 0.6270000D+01
         P(19) = 0.2401810D+00
         E(20) = 0.1695000D+01
         P(20) = 0.5087440D+00
         E(21) = 0.4317000D+00
         P(21) = 0.1000000D+01
         E(22) = 0.2202000D+01
         D(22) = 0.1000000D+01
         ILAST = 22
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.2435000D+05
         S(1) = 0.5020000D-03
         E(2) = 0.3650000D+04
         S(2) = 0.3881000D-02
         E(3) = 0.8296000D+03
         S(3) = 0.1999700D-01
         E(4) = 0.2340000D+03
         S(4) = 0.7841800D-01
         E(5) = 0.7561000D+02
         S(5) = 0.2296760D+00
         E(6) = 0.2673000D+02
         S(6) = 0.4327220D+00
         E(7) = 0.9927000D+01
         S(7) = 0.3506420D+00
         E(8) = 0.1102000D+01
         S(8) = -.7645000D-02
         E(9) = 0.2435000D+05
         S(9) = -.1180000D-03
         E(10) = 0.3650000D+04
         S(10) = -.9150000D-03
         E(11) = 0.8296000D+03
         S(11) = -.4737000D-02
         E(12) = 0.2340000D+03
         S(12) = -.1923300D-01
         E(13) = 0.7561000D+02
         S(13) = -.6036900D-01
         E(14) = 0.2673000D+02
         S(14) = -.1425080D+00
         E(15) = 0.9927000D+01
         S(15) = -.1777100D+00
         E(16) = 0.1102000D+01
         S(16) = 0.6058360D+00
         E(17) = 0.2836000D+01
         S(17) = 0.1000000D+01
         E(18) = 0.3782000D+00
         S(18) = 0.1000000D+01
         E(19) = 0.5470000D+02
         P(19) = 0.1715100D-01
         E(20) = 0.1243000D+02
         P(20) = 0.1076560D+00
         E(21) = 0.3679000D+01
         P(21) = 0.3216810D+00
         E(22) = 0.1143000D+01
         P(22) = 0.1000000D+01
         E(23) = 0.3300000D+00
         P(23) = 0.1000000D+01
         E(24) = 0.4014000D+01
         D(24) = 0.1000000D+01
         E(25) = 0.1096000D+01
         D(25) = 0.1000000D+01
         E(26) = 0.2544000D+01
         F(26) = 0.1000000D+01
         ILAST = 26
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.9992000D+05
         S(1) = 0.8600000D-04
         E(2) = 0.1496000D+05
         S(2) = 0.6690000D-03
         E(3) = 0.3399000D+04
         S(3) = 0.3518000D-02
         E(4) = 0.9589000D+03
         S(4) = 0.1466700D-01
         E(5) = 0.3112000D+03
         S(5) = 0.5096200D-01
         E(6) = 0.1117000D+03
         S(6) = 0.1437440D+00
         E(7) = 0.4332000D+02
         S(7) = 0.3045620D+00
         E(8) = 0.1780000D+02
         S(8) = 0.4001050D+00
         E(9) = 0.7503000D+01
         S(9) = 0.2186440D+00
         E(10) = 0.9992000D+05
         S(10) = -.2000000D-04
         E(11) = 0.1496000D+05
         S(11) = -.1580000D-03
         E(12) = 0.3399000D+04
         S(12) = -.8240000D-03
         E(13) = 0.9589000D+03
         S(13) = -.3500000D-02
         E(14) = 0.3112000D+03
         S(14) = -.1223300D-01
         E(15) = 0.1117000D+03
         S(15) = -.3701700D-01
         E(16) = 0.4332000D+02
         S(16) = -.8611300D-01
         E(17) = 0.1780000D+02
         S(17) = -.1583810D+00
         E(18) = 0.7503000D+01
         S(18) = -.1142880D+00
         E(19) = 0.2337000D+01
         S(19) = 0.1000000D+01
         E(20) = 0.9001000D+00
         S(20) = 0.1000000D+01
         E(21) = 0.3301000D+00
         S(21) = 0.1000000D+01
         E(22) = 0.9968000D+02
         P(22) = 0.6566000D-02
         E(23) = 0.2315000D+02
         P(23) = 0.4597900D-01
         E(24) = 0.7108000D+01
         P(24) = 0.1734190D+00
         E(25) = 0.2441000D+01
         P(25) = 0.1000000D+01
         E(26) = 0.8339000D+00
         P(26) = 0.1000000D+01
         E(27) = 0.2662000D+00
         P(27) = 0.1000000D+01
         E(28) = 0.6471000D+01
         D(28) = 0.1000000D+01
         E(29) = 0.2213000D+01
         D(29) = 0.1000000D+01
         E(30) = 0.7470000D+00
         D(30) = 0.1000000D+01
         E(31) = 0.4657000D+01
         F(31) = 0.1000000D+01
         E(32) = 0.1524000D+01
         F(32) = 0.1000000D+01
         E(33) = 0.2983000D+01
         G(33) = 0.1000000D+01
         ILAST = 33
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.2627000D+06
         S(1) = 0.2600000D-04
         E(2) = 0.3935000D+05
         S(2) = 0.2000000D-03
         E(3) = 0.8955000D+04
         S(3) = 0.1050000D-02
         E(4) = 0.2538000D+04
         S(4) = 0.4400000D-02
         E(5) = 0.8299000D+03
         S(5) = 0.1564900D-01
         E(6) = 0.3015000D+03
         S(6) = 0.4775800D-01
         E(7) = 0.1190000D+03
         S(7) = 0.1229430D+00
         E(8) = 0.5000000D+02
         S(8) = 0.2524830D+00
         E(9) = 0.2198000D+02
         S(9) = 0.3663140D+00
         E(10) = 0.9891000D+01
         S(10) = 0.2796170D+00
         E(11) = 0.2627000D+06
         S(11) = -.6000000D-05
         E(12) = 0.3935000D+05
         S(12) = -.4700000D-04
         E(13) = 0.8955000D+04
         S(13) = -.2470000D-03
         E(14) = 0.2538000D+04
         S(14) = -.1038000D-02
         E(15) = 0.8299000D+03
         S(15) = -.3711000D-02
         E(16) = 0.3015000D+03
         S(16) = -.1159300D-01
         E(17) = 0.1190000D+03
         S(17) = -.3108600D-01
         E(18) = 0.5000000D+02
         S(18) = -.7097200D-01
         E(19) = 0.2198000D+02
         S(19) = -.1272660D+00
         E(20) = 0.9891000D+01
         S(20) = -.1512310D+00
         E(21) = 0.4327000D+01
         S(21) = 0.1000000D+01
         E(22) = 0.1804000D+01
         S(22) = 0.1000000D+01
         E(23) = 0.7288000D+00
         S(23) = 0.1000000D+01
         E(24) = 0.2867000D+00
         S(24) = 0.1000000D+01
         E(25) = 0.2991000D+03
         P(25) = 0.1038000D-02
         E(26) = 0.7073000D+02
         P(26) = 0.8375000D-02
         E(27) = 0.2248000D+02
         P(27) = 0.3969300D-01
         E(28) = 0.8246000D+01
         P(28) = 0.1280560D+00
         E(29) = 0.3269000D+01
         P(29) = 0.1000000D+01
         E(30) = 0.1315000D+01
         P(30) = 0.1000000D+01
         E(31) = 0.5158000D+00
         P(31) = 0.1000000D+01
         E(32) = 0.1918000D+00
         P(32) = 0.1000000D+01
         E(33) = 0.9837000D+01
         D(33) = 0.1000000D+01
         E(34) = 0.3844000D+01
         D(34) = 0.1000000D+01
         E(35) = 0.1502000D+01
         D(35) = 0.1000000D+01
         E(36) = 0.5870000D+00
         D(36) = 0.1000000D+01
         E(37) = 0.7090000D+01
         F(37) = 0.1000000D+01
         E(38) = 0.2738000D+01
         F(38) = 0.1000000D+01
         E(39) = 0.1057000D+01
         F(39) = 0.1000000D+01
         E(40) = 0.5460000D+01
         G(40) = 0.1000000D+01
         E(41) = 0.1880000D+01
         G(41) = 0.1000000D+01
CFRJ     E(42) = 0.3776000D+01
CFRJ     H(42) = 0.1000000D+01
         ILAST = 41
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.9024000D+06
         S(1) = 0.5510000D-05
         E(2) = 0.1351000D+06
         S(2) = 0.4282000D-04
         E(3) = 0.3075000D+05
         S(3) = 0.2251400D-03
         E(4) = 0.8710000D+04
         S(4) = 0.9501600D-03
         E(5) = 0.2842000D+04
         S(5) = 0.3447190D-02
         E(6) = 0.1026000D+04
         S(6) = 0.1112545D-01
         E(7) = 0.4001000D+03
         S(7) = 0.3220568D-01
         E(8) = 0.1659000D+03
         S(8) = 0.8259891D-01
         E(9) = 0.7221000D+02
         S(9) = 0.1799056D+00
         E(10) = 0.3266000D+02
         S(10) = 0.3060521D+00
         E(11) = 0.1522000D+02
         S(11) = 0.3401256D+00
         E(12) = 0.9024000D+06
         S(12) = -.1290000D-05
         E(13) = 0.1351000D+06
         S(13) = -.1005000D-04
         E(14) = 0.3075000D+05
         S(14) = -.5293000D-04
         E(15) = 0.8710000D+04
         S(15) = -.2231200D-03
         E(16) = 0.2842000D+04
         S(16) = -.8133800D-03
         E(17) = 0.1026000D+04
         S(17) = -.2632300D-02
         E(18) = 0.4001000D+03
         S(18) = -.7759100D-02
         E(19) = 0.1659000D+03
         S(19) = -.2045277D-01
         E(20) = 0.7221000D+02
         S(20) = -.4797505D-01
         E(21) = 0.3266000D+02
         S(21) = -.9340086D-01
         E(22) = 0.1522000D+02
         S(22) = -.1427721D+00
         E(23) = 0.7149000D+01
         S(23) = 0.1000000D+01
         E(24) = 0.2957000D+01
         S(24) = 0.1000000D+01
         E(25) = 0.1335000D+01
         S(25) = 0.1000000D+01
         E(26) = 0.5816000D+00
         S(26) = 0.1000000D+01
         E(27) = 0.2463000D+00
         S(27) = 0.1000000D+01
         E(28) = 0.8156000D+03
         P(28) = 0.1837600D-03
         E(29) = 0.1933000D+03
         P(29) = 0.1585090D-02
         E(30) = 0.6260000D+02
         P(30) = 0.8414640D-02
         E(31) = 0.2361000D+02
         P(31) = 0.3220033D-01
         E(32) = 0.9762000D+01
         P(32) = 0.9396390D-01
         E(33) = 0.4281000D+01
         P(33) = 0.1000000D+01
         E(34) = 0.1915000D+01
         P(34) = 0.1000000D+01
         E(35) = 0.8476000D+00
         P(35) = 0.1000000D+01
         E(36) = 0.3660000D+00
         P(36) = 0.1000000D+01
         E(37) = 0.1510000D+00
         P(37) = 0.1000000D+01
         E(38) = 0.1331700D+02
         D(38) = 0.1000000D+01
         E(39) = 0.5803000D+01
         D(39) = 0.1000000D+01
         E(40) = 0.2529000D+01
         D(40) = 0.1000000D+01
         E(41) = 0.1102000D+01
         D(41) = 0.1000000D+01
         E(42) = 0.4800000D+00
         D(42) = 0.1000000D+01
         E(43) = 0.1035600D+02
         F(43) = 0.1000000D+01
         E(44) = 0.4538000D+01
         F(44) = 0.1000000D+01
         E(45) = 0.1989000D+01
         F(45) = 0.1000000D+01
         E(46) = 0.8710000D+00
         F(46) = 0.1000000D+01
         E(47) = 0.8345000D+01
         G(47) = 0.1000000D+01
         E(48) = 0.3417000D+01
         G(48) = 0.1000000D+01
         E(49) = 0.1399000D+01
         G(49) = 0.1000000D+01
CFRJ     E(50) = 0.6519000D+01
CFRJ     H(50) = 0.1000000D+01
CFRJ     E(51) = 0.2447000D+01
CFRJ     H(51) = 0.1000000D+01
CFRJ     E(52) = 0.4489000D+01
CFRJ     I(52) = 0.1000000D+01
         ILAST = 49
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK CCN003
      SUBROUTINE CCN003(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      NN = N-10
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- NA -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.3170000D+05
         S(1) = 0.4588780D-03
         E(2) = 0.4755000D+04
         S(2) = 0.3550700D-02
         E(3) = 0.1082000D+04
         S(3) = 0.1826180D-01
         E(4) = 0.3064000D+03
         S(4) = 0.7166500D-01
         E(5) = 0.9953000D+02
         S(5) = 0.2123460D+00
         E(6) = 0.3542000D+02
         S(6) = 0.4162030D+00
         E(7) = 0.1330000D+02
         S(7) = 0.3730200D+00
         E(8) = 0.4392000D+01
         S(8) = 0.6250540D-01
         E(9) = 0.1676000D+01
         S(9) = -.6245320D-02
         E(10) = 0.5889000D+00
         S(10) = 0.2433740D-02
         E(11) = 0.5640000D-01
         S(11) = -.4423810D-03
         E(12) = 0.3170000D+05
         S(12) = -.1121620D-03
         E(13) = 0.4755000D+04
         S(13) = -.8685120D-03
         E(14) = 0.1082000D+04
         S(14) = -.4513300D-02
         E(15) = 0.3064000D+03
         S(15) = -.1814360D-01
         E(16) = 0.9953000D+02
         S(16) = -.5807990D-01
         E(17) = 0.3542000D+02
         S(17) = -.1376530D+00
         E(18) = 0.1330000D+02
         S(18) = -.1939080D+00
         E(19) = 0.4392000D+01
         S(19) = 0.8580090D-01
         E(20) = 0.1676000D+01
         S(20) = 0.6044190D+00
         E(21) = 0.5889000D+00
         S(21) = 0.4417190D+00
         E(22) = 0.5640000D-01
         S(22) = 0.1305470D-01
         E(23) = 0.3170000D+05
         S(23) = 0.1701600D-04
         E(24) = 0.4755000D+04
         S(24) = 0.1306930D-03
         E(25) = 0.1082000D+04
         S(25) = 0.6877840D-03
         E(26) = 0.3064000D+03
         S(26) = 0.2723590D-02
         E(27) = 0.9953000D+02
         S(27) = 0.8955290D-02
         E(28) = 0.3542000D+02
         S(28) = 0.2078320D-01
         E(29) = 0.1330000D+02
         S(29) = 0.3193800D-01
         E(30) = 0.4392000D+01
         S(30) = -.1913680D-01
         E(31) = 0.1676000D+01
         S(31) = -.1025950D+00
         E(32) = 0.5889000D+00
         S(32) = -.1989450D+00
         E(33) = 0.5640000D-01
         S(33) = 0.6559520D+00
         E(34) = 0.2307000D-01
         S(34) = 0.1000000D+01
         E(35) = 0.1381000D+03
         P(35) = 0.5796410D-02
         E(36) = 0.3224000D+02
         P(36) = 0.4157560D-01
         E(37) = 0.9985000D+01
         P(37) = 0.1628730D+00
         E(38) = 0.3484000D+01
         P(38) = 0.3594010D+00
         E(39) = 0.1231000D+01
         P(39) = 0.4499880D+00
         E(40) = 0.4177000D+00
         P(40) = 0.2275070D+00
         E(41) = 0.6513000D-01
         P(41) = 0.8082470D-02
         E(42) = 0.1381000D+03
         P(42) = -.5815310D-03
         E(43) = 0.3224000D+02
         P(43) = -.4073060D-02
         E(44) = 0.9985000D+01
         P(44) = -.1679370D-01
         E(45) = 0.3484000D+01
         P(45) = -.3532680D-01
         E(46) = 0.1231000D+01
         P(46) = -.5219710D-01
         E(47) = 0.4177000D+00
         P(47) = -.1683590D-01
         E(48) = 0.6513000D-01
         P(48) = 0.4346130D+00
         E(49) = 0.2053000D-01
         P(49) = 0.1000000D+01
         E(50) = 0.9730000D-01
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.4230000D+06
         S(1) = 0.1806180D-04
         E(2) = 0.6334000D+05
         S(2) = 0.1404300D-03
         E(3) = 0.1441000D+05
         S(3) = 0.7384380D-03
         E(4) = 0.4077000D+04
         S(4) = 0.3111820D-02
         E(5) = 0.1328000D+04
         S(5) = 0.1120810D-01
         E(6) = 0.4786000D+03
         S(6) = 0.3528280D-01
         E(7) = 0.1862000D+03
         S(7) = 0.9598970D-01
         E(8) = 0.7692000D+02
         S(8) = 0.2137350D+00
         E(9) = 0.3332000D+02
         S(9) = 0.3486880D+00
         E(10) = 0.1500000D+02
         S(10) = 0.3245660D+00
         E(11) = 0.6869000D+01
         S(11) = 0.1126330D+00
         E(12) = 0.2683000D+01
         S(12) = 0.7067970D-02
         E(13) = 0.1109000D+01
         S(13) = 0.5980100D-03
         E(14) = 0.6015000D-01
         S(14) = -.5308700D-05
         E(15) = 0.4230000D+06
         S(15) = -.4406530D-05
         E(16) = 0.6334000D+05
         S(16) = -.3434430D-04
         E(17) = 0.1441000D+05
         S(17) = -.1801140D-03
         E(18) = 0.4077000D+04
         S(18) = -.7639000D-03
         E(19) = 0.1328000D+04
         S(19) = -.2752480D-02
         E(20) = 0.4786000D+03
         S(20) = -.8860160D-02
         E(21) = 0.1862000D+03
         S(21) = -.2479390D-01
         E(22) = 0.7692000D+02
         S(22) = -.6059950D-01
         E(23) = 0.3332000D+02
         S(23) = -.1164460D+00
         E(24) = 0.1500000D+02
         S(24) = -.1624370D+00
         E(25) = 0.6869000D+01
         S(25) = -.4388910D-01
         E(26) = 0.2683000D+01
         S(26) = 0.3379170D+00
         E(27) = 0.1109000D+01
         S(27) = 0.5613470D+00
         E(28) = 0.6015000D-01
         S(28) = 0.4067540D-02
         E(29) = 0.4230000D+06
         S(29) = 0.6630190D-06
         E(30) = 0.6334000D+05
         S(30) = 0.5157690D-05
         E(31) = 0.1441000D+05
         S(31) = 0.2712500D-04
         E(32) = 0.4077000D+04
         S(32) = 0.1146350D-03
         E(33) = 0.1328000D+04
         S(33) = 0.4151180D-03
         E(34) = 0.4786000D+03
         S(34) = 0.1329780D-02
         E(35) = 0.1862000D+03
         S(35) = 0.3755950D-02
         E(36) = 0.7692000D+02
         S(36) = 0.9140250D-02
         E(37) = 0.3332000D+02
         S(37) = 0.1798590D-01
         E(38) = 0.1500000D+02
         S(38) = 0.2514770D-01
         E(39) = 0.6869000D+01
         S(39) = 0.7635220D-02
         E(40) = 0.2683000D+01
         S(40) = -.6145890D-01
         E(41) = 0.1109000D+01
         S(41) = -.1157210D+00
         E(42) = 0.6015000D-01
         S(42) = 0.6264060D+00
         E(43) = 0.4540000D+00
         S(43) = 0.1000000D+01
         E(44) = 0.2382000D-01
         S(44) = 0.1000000D+01
         E(45) = 0.2433000D+03
         P(45) = 0.2243920D-02
         E(46) = 0.5739000D+02
         P(46) = 0.1739970D-01
         E(47) = 0.1810000D+02
         P(47) = 0.7741250D-01
         E(48) = 0.6575000D+01
         P(48) = 0.2191020D+00
         E(49) = 0.2521000D+01
         P(49) = 0.3785220D+00
         E(50) = 0.9607000D+00
         P(50) = 0.3949020D+00
         E(51) = 0.3512000D+00
         P(51) = 0.1604240D+00
         E(52) = 0.9827000D-01
         P(52) = 0.2333110D-02
         E(53) = 0.2433000D+03
         P(53) = -.2224010D-03
         E(54) = 0.5739000D+02
         P(54) = -.1742770D-02
         E(55) = 0.1810000D+02
         P(55) = -.7754560D-02
         E(56) = 0.6575000D+01
         P(56) = -.2251870D-01
         E(57) = 0.2521000D+01
         P(57) = -.3843300D-01
         E(58) = 0.9607000D+00
         P(58) = -.4501770D-01
         E(59) = 0.3512000D+00
         P(59) = -.1921320D-01
         E(60) = 0.9827000D-01
         P(60) = 0.1826970D+00
         E(61) = 0.3734000D-01
         P(61) = 0.1000000D+01
         E(62) = 0.1500000D-01
         P(62) = 0.1000000D+01
         E(63) = 0.1367000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.6360000D-01
         D(64) = 0.1000000D+01
         E(65) = 0.1397000D+00
         F(65) = 0.1000000D+01
         ILAST = 65
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1224000D+07
         S(1) = 0.4788940D-05
         E(2) = 0.1832000D+06
         S(2) = 0.3723950D-04
         E(3) = 0.4170000D+05
         S(3) = 0.1958310D-03
         E(4) = 0.1181000D+05
         S(4) = 0.8266980D-03
         E(5) = 0.3853000D+04
         S(5) = 0.3002510D-02
         E(6) = 0.1391000D+04
         S(6) = 0.9703100D-02
         E(7) = 0.5425000D+03
         S(7) = 0.2823370D-01
         E(8) = 0.2249000D+03
         S(8) = 0.7320580D-01
         E(9) = 0.9793000D+02
         S(9) = 0.1628970D+00
         E(10) = 0.4431000D+02
         S(10) = 0.2887080D+00
         E(11) = 0.2065000D+02
         S(11) = 0.3468290D+00
         E(12) = 0.9729000D+01
         S(12) = 0.2068650D+00
         E(13) = 0.4228000D+01
         S(13) = 0.3280090D-01
         E(14) = 0.1969000D+01
         S(14) = -.6477360D-03
         E(15) = 0.8890000D+00
         S(15) = 0.1458780D-02
         E(16) = 0.3964000D+00
         S(16) = -.1783460D-03
         E(17) = 0.1224000D+07
         S(17) = -.1169580D-05
         E(18) = 0.1832000D+06
         S(18) = -.9091100D-05
         E(19) = 0.4170000D+05
         S(19) = -.4784990D-04
         E(20) = 0.1181000D+05
         S(20) = -.2019620D-03
         E(21) = 0.3853000D+04
         S(21) = -.7358370D-03
         E(22) = 0.1391000D+04
         S(22) = -.2387460D-02
         E(23) = 0.5425000D+03
         S(23) = -.7049690D-02
         E(24) = 0.2249000D+03
         S(24) = -.1878560D-01
         E(25) = 0.9793000D+02
         S(25) = -.4461530D-01
         E(26) = 0.4431000D+02
         S(26) = -.8977410D-01
         E(27) = 0.2065000D+02
         S(27) = -.1429400D+00
         E(28) = 0.9729000D+01
         S(28) = -.1243150D+00
         E(29) = 0.4228000D+01
         S(29) = 0.9996480D-01
         E(30) = 0.1969000D+01
         S(30) = 0.4170800D+00
         E(31) = 0.8890000D+00
         S(31) = 0.4751230D+00
         E(32) = 0.3964000D+00
         S(32) = 0.1632680D+00
         E(33) = 0.1224000D+07
         S(33) = 0.1758710D-06
         E(34) = 0.1832000D+06
         S(34) = 0.1365940D-05
         E(35) = 0.4170000D+05
         S(35) = 0.7197950D-05
         E(36) = 0.1181000D+05
         S(36) = 0.3033490D-04
         E(37) = 0.3853000D+04
         S(37) = 0.1107520D-03
         E(38) = 0.1391000D+04
         S(38) = 0.3585960D-03
         E(39) = 0.5425000D+03
         S(39) = 0.1062720D-02
         E(40) = 0.2249000D+03
         S(40) = 0.2826870D-02
         E(41) = 0.9793000D+02
         S(41) = 0.6767420D-02
         E(42) = 0.4431000D+02
         S(42) = 0.1364800D-01
         E(43) = 0.2065000D+02
         S(43) = 0.2228140D-01
         E(44) = 0.9729000D+01
         S(44) = 0.1960110D-01
         E(45) = 0.4228000D+01
         S(45) = -.1677080D-01
         E(46) = 0.1969000D+01
         S(46) = -.7737340D-01
         E(47) = 0.8890000D+00
         S(47) = -.1135010D+00
         E(48) = 0.3964000D+00
         S(48) = -.1391300D+00
         E(49) = 0.6993000D-01
         S(49) = 0.1000000D+01
         E(50) = 0.3289000D-01
         S(50) = 0.1000000D+01
         E(51) = 0.1612000D-01
         S(51) = 0.1000000D+01
         E(52) = 0.4134000D+03
         P(52) = 0.9081960D-03
         E(53) = 0.9798000D+02
         P(53) = 0.7417730D-02
         E(54) = 0.3137000D+02
         P(54) = 0.3574640D-01
         E(55) = 0.1162000D+02
         P(55) = 0.1185200D+00
         E(56) = 0.4671000D+01
         P(56) = 0.2614030D+00
         E(57) = 0.1918000D+01
         P(57) = 0.3783950D+00
         E(58) = 0.7775000D+00
         P(58) = 0.3346320D+00
         E(59) = 0.3013000D+00
         P(59) = 0.1268440D+00
         E(60) = 0.2275000D+00
         P(60) = -.1471170D-01
         E(61) = 0.4134000D+03
         P(61) = -.9017410D-04
         E(62) = 0.9798000D+02
         P(62) = -.7393420D-03
         E(63) = 0.3137000D+02
         P(63) = -.3573090D-02
         E(64) = 0.1162000D+02
         P(64) = -.1201420D-01
         E(65) = 0.4671000D+01
         P(65) = -.2671780D-01
         E(66) = 0.1918000D+01
         P(66) = -.3927530D-01
         E(67) = 0.7775000D+00
         P(67) = -.3760830D-01
         E(68) = 0.3013000D+00
         P(68) = -.4332280D-01
         E(69) = 0.2275000D+00
         P(69) = 0.5180030D-01
         E(70) = 0.7527000D-01
         P(70) = 0.1000000D+01
         E(71) = 0.3126000D-01
         P(71) = 0.1000000D+01
         E(72) = 0.1342000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.1538000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.8650000D-01
         D(74) = 0.1000000D+01
         E(75) = 0.4870000D-01
         D(75) = 0.1000000D+01
         E(76) = 0.1912000D+00
         F(76) = 0.1000000D+01
         E(77) = 0.1036000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.1722000D+00
         G(78) = 0.1000000D+01
         ILAST = 78
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1224000D+07
         S(1) = 0.5000000D-05
         E(2) = 0.1832000D+06
         S(2) = 0.3700000D-04
         E(3) = 0.4170000D+05
         S(3) = 0.1960000D-03
         E(4) = 0.1181000D+05
         S(4) = 0.8270000D-03
         E(5) = 0.3853000D+04
         S(5) = 0.3003000D-02
         E(6) = 0.1391000D+04
         S(6) = 0.9703000D-02
         E(7) = 0.5425000D+03
         S(7) = 0.2823400D-01
         E(8) = 0.2249000D+03
         S(8) = 0.7320600D-01
         E(9) = 0.9793000D+02
         S(9) = 0.1628970D+00
         E(10) = 0.4431000D+02
         S(10) = 0.2887080D+00
         E(11) = 0.2065000D+02
         S(11) = 0.3468290D+00
         E(12) = 0.9729000D+01
         S(12) = 0.2068650D+00
         E(13) = 0.4228000D+01
         S(13) = 0.3280100D-01
         E(14) = 0.1969000D+01
         S(14) = -.6480000D-03
         E(15) = 0.8890000D+00
         S(15) = 0.1459000D-02
         E(16) = 0.1224000D+07
         S(16) = -.1000000D-05
         E(17) = 0.1832000D+06
         S(17) = -.9000000D-05
         E(18) = 0.4170000D+05
         S(18) = -.4800000D-04
         E(19) = 0.1181000D+05
         S(19) = -.2020000D-03
         E(20) = 0.3853000D+04
         S(20) = -.7360000D-03
         E(21) = 0.1391000D+04
         S(21) = -.2387000D-02
         E(22) = 0.5425000D+03
         S(22) = -.7050000D-02
         E(23) = 0.2249000D+03
         S(23) = -.1878600D-01
         E(24) = 0.9793000D+02
         S(24) = -.4461500D-01
         E(25) = 0.4431000D+02
         S(25) = -.8977400D-01
         E(26) = 0.2065000D+02
         S(26) = -.1429400D+00
         E(27) = 0.9729000D+01
         S(27) = -.1243150D+00
         E(28) = 0.4228000D+01
         S(28) = 0.9996500D-01
         E(29) = 0.1969000D+01
         S(29) = 0.4170800D+00
         E(30) = 0.8890000D+00
         S(30) = 0.4751230D+00
         E(31) = 0.1832000D+06
         S(31) = 0.1000000D-05
         E(32) = 0.4170000D+05
         S(32) = 0.7000000D-05
         E(33) = 0.1181000D+05
         S(33) = 0.3000000D-04
         E(34) = 0.3853000D+04
         S(34) = 0.1110000D-03
         E(35) = 0.1391000D+04
         S(35) = 0.3590000D-03
         E(36) = 0.5425000D+03
         S(36) = 0.1063000D-02
         E(37) = 0.2249000D+03
         S(37) = 0.2827000D-02
         E(38) = 0.9793000D+02
         S(38) = 0.6767000D-02
         E(39) = 0.4431000D+02
         S(39) = 0.1364800D-01
         E(40) = 0.2065000D+02
         S(40) = 0.2228100D-01
         E(41) = 0.9729000D+01
         S(41) = 0.1960100D-01
         E(42) = 0.4228000D+01
         S(42) = -.1677100D-01
         E(43) = 0.1969000D+01
         S(43) = -.7737300D-01
         E(44) = 0.8890000D+00
         S(44) = -.1135010D+00
         E(45) = 0.3964000D+00
         S(45) = 0.1000000D+01
         E(46) = 0.6993000D-01
         S(46) = 0.1000000D+01
         E(47) = 0.3289000D-01
         S(47) = 0.1000000D+01
         E(48) = 0.1612000D-01
         S(48) = 0.1000000D+01
         E(49) = 0.4134000D+03
         P(49) = 0.9080000D-03
         E(50) = 0.9798000D+02
         P(50) = 0.7418000D-02
         E(51) = 0.3137000D+02
         P(51) = 0.3574600D-01
         E(52) = 0.1162000D+02
         P(52) = 0.1185200D+00
         E(53) = 0.4671000D+01
         P(53) = 0.2614030D+00
         E(54) = 0.1918000D+01
         P(54) = 0.3783950D+00
         E(55) = 0.7775000D+00
         P(55) = 0.3346320D+00
         E(56) = 0.3013000D+00
         P(56) = 0.1268440D+00
         E(57) = 0.4134000D+03
         P(57) = -.9000000D-04
         E(58) = 0.9798000D+02
         P(58) = -.7390000D-03
         E(59) = 0.3137000D+02
         P(59) = -.3573000D-02
         E(60) = 0.1162000D+02
         P(60) = -.1201400D-01
         E(61) = 0.4671000D+01
         P(61) = -.2671800D-01
         E(62) = 0.1918000D+01
         P(62) = -.3927500D-01
         E(63) = 0.7775000D+00
         P(63) = -.3760800D-01
         E(64) = 0.3013000D+00
         P(64) = -.4332300D-01
         E(65) = 0.2275000D+00
         P(65) = 0.1000000D+01
         E(66) = 0.7527000D-01
         P(66) = 0.1000000D+01
         E(67) = 0.3126000D-01
         P(67) = 0.1000000D+01
         E(68) = 0.1342000D-01
         P(68) = 0.1000000D+01
         E(69) = 0.2734000D+00
         D(69) = 0.1000000D+01
         E(70) = 0.1538000D+00
         D(70) = 0.1000000D+01
         E(71) = 0.8650000D-01
         D(71) = 0.1000000D+01
         E(72) = 0.4870000D-01
         D(72) = 0.1000000D+01
         E(73) = 0.4000000D+00
         F(73) = 0.1000000D+01
         E(74) = 0.1912000D+00
         F(74) = 0.1000000D+01
         E(75) = 0.1036000D+00
         F(75) = 0.1000000D+01
         E(76) = 0.4250000D+00
         G(76) = 0.1000000D+01
         E(77) = 0.1722000D+00
         G(77) = 0.1000000D+01
CFRJ     E(78) = 0.2000000D+00
CFRJ     H(78) = 0.1000000D+01
         ILAST = 77
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*) 'CC-PV6Z BASIS DOES NOT EXIST FOR NA'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- MG -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.4739000D+05
         S(1) = 0.3460230D-03
         E(2) = 0.7108000D+04
         S(2) = 0.2680770D-02
         E(3) = 0.1618000D+04
         S(3) = 0.1383670D-01
         E(4) = 0.4584000D+03
         S(4) = 0.5517670D-01
         E(5) = 0.1493000D+03
         S(5) = 0.1696600D+00
         E(6) = 0.5359000D+02
         S(6) = 0.3647030D+00
         E(7) = 0.2070000D+02
         S(7) = 0.4068560D+00
         E(8) = 0.8384000D+01
         S(8) = 0.1350890D+00
         E(9) = 0.2542000D+01
         S(9) = 0.4908840D-02
         E(10) = 0.8787000D+00
         S(10) = 0.2864600D-03
         E(11) = 0.1077000D+00
         S(11) = 0.2645900D-04
         E(12) = 0.4739000D+05
         S(12) = -.8778390D-04
         E(13) = 0.7108000D+04
         S(13) = -.6747250D-03
         E(14) = 0.1618000D+04
         S(14) = -.3556030D-02
         E(15) = 0.4584000D+03
         S(15) = -.1421540D-01
         E(16) = 0.1493000D+03
         S(16) = -.4767480D-01
         E(17) = 0.5359000D+02
         S(17) = -.1148920D+00
         E(18) = 0.2070000D+02
         S(18) = -.2006760D+00
         E(19) = 0.8384000D+01
         S(19) = -.3412240D-01
         E(20) = 0.2542000D+01
         S(20) = 0.5704540D+00
         E(21) = 0.8787000D+00
         S(21) = 0.5423090D+00
         E(22) = 0.1077000D+00
         S(22) = 0.2181280D-01
         E(23) = 0.4739000D+05
         S(23) = 0.1696280D-04
         E(24) = 0.7108000D+04
         S(24) = 0.1298650D-03
         E(25) = 0.1618000D+04
         S(25) = 0.6888310D-03
         E(26) = 0.4584000D+03
         S(26) = 0.2735330D-02
         E(27) = 0.1493000D+03
         S(27) = 0.9312240D-02
         E(28) = 0.5359000D+02
         S(28) = 0.2232650D-01
         E(29) = 0.2070000D+02
         S(29) = 0.4111950D-01
         E(30) = 0.8384000D+01
         S(30) = 0.5456420D-02
         E(31) = 0.2542000D+01
         S(31) = -.1340120D+00
         E(32) = 0.8787000D+00
         S(32) = -.2561760D+00
         E(33) = 0.1077000D+00
         S(33) = 0.6058560D+00
         E(34) = 0.3999000D-01
         S(34) = 0.1000000D+01
         E(35) = 0.1799000D+03
         P(35) = 0.5381610D-02
         E(36) = 0.4214000D+02
         P(36) = 0.3924180D-01
         E(37) = 0.1313000D+02
         P(37) = 0.1574450D+00
         E(38) = 0.4628000D+01
         P(38) = 0.3585350D+00
         E(39) = 0.1670000D+01
         P(39) = 0.4572260D+00
         E(40) = 0.5857000D+00
         P(40) = 0.2159180D+00
         E(41) = 0.1311000D+00
         P(41) = 0.6649480D-02
         E(42) = 0.1799000D+03
         P(42) = -.8659480D-03
         E(43) = 0.4214000D+02
         P(43) = -.6159780D-02
         E(44) = 0.1313000D+02
         P(44) = -.2615190D-01
         E(45) = 0.4628000D+01
         P(45) = -.5706470D-01
         E(46) = 0.1670000D+01
         P(46) = -.8739060D-01
         E(47) = 0.5857000D+00
         P(47) = -.1229900D-01
         E(48) = 0.1311000D+00
         P(48) = 0.5020850D+00
         E(49) = 0.4112000D-01
         P(49) = 0.1000000D+01
         E(50) = 0.1870000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1649000D+06
         S(1) = 0.7299290D-04
         E(2) = 0.2471000D+05
         S(2) = 0.5666520D-03
         E(3) = 0.5628000D+04
         S(3) = 0.2962690D-02
         E(4) = 0.1596000D+04
         S(4) = 0.1229620D-01
         E(5) = 0.5210000D+03
         S(5) = 0.4273240D-01
         E(6) = 0.1880000D+03
         S(6) = 0.1230130D+00
         E(7) = 0.7301000D+02
         S(7) = 0.2748320D+00
         E(8) = 0.2990000D+02
         S(8) = 0.4018180D+00
         E(9) = 0.1254000D+02
         S(9) = 0.2646970D+00
         E(10) = 0.4306000D+01
         S(10) = 0.3326120D-01
         E(11) = 0.1826000D+01
         S(11) = -.4413350D-02
         E(12) = 0.7417000D+00
         S(12) = 0.2060240D-02
         E(13) = 0.7612000D-01
         S(13) = 0.7081950D-03
         E(14) = 0.1649000D+06
         S(14) = -.1842480D-04
         E(15) = 0.2471000D+05
         S(15) = -.1435000D-03
         E(16) = 0.5628000D+04
         S(16) = -.7487100D-03
         E(17) = 0.1596000D+04
         S(17) = -.3144070D-02
         E(18) = 0.5210000D+03
         S(18) = -.1104810D-01
         E(19) = 0.1880000D+03
         S(19) = -.3360580D-01
         E(20) = 0.7301000D+02
         S(20) = -.8259460D-01
         E(21) = 0.2990000D+02
         S(21) = -.1593140D+00
         E(22) = 0.1254000D+02
         S(22) = -.1528880D+00
         E(23) = 0.4306000D+01
         S(23) = 0.1908490D+00
         E(24) = 0.1826000D+01
         S(24) = 0.5799640D+00
         E(25) = 0.7417000D+00
         S(25) = 0.3720290D+00
         E(26) = 0.7612000D-01
         S(26) = -.1193440D-01
         E(27) = 0.1649000D+06
         S(27) = 0.3551760D-05
         E(28) = 0.2471000D+05
         S(28) = 0.2764200D-04
         E(29) = 0.5628000D+04
         S(29) = 0.1444040D-03
         E(30) = 0.1596000D+04
         S(30) = 0.6057440D-03
         E(31) = 0.5210000D+03
         S(31) = 0.2135270D-02
         E(32) = 0.1880000D+03
         S(32) = 0.6499340D-02
         E(33) = 0.7301000D+02
         S(33) = 0.1614460D-01
         E(34) = 0.2990000D+02
         S(34) = 0.3157660D-01
         E(35) = 0.1254000D+02
         S(35) = 0.3163740D-01
         E(36) = 0.4306000D+01
         S(36) = -.4391400D-01
         E(37) = 0.1826000D+01
         S(37) = -.1510930D+00
         E(38) = 0.7417000D+00
         S(38) = -.2176680D+00
         E(39) = 0.7612000D-01
         S(39) = 0.5472450D+00
         E(40) = 0.1457000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.3310000D-01
         S(41) = 0.1000000D+01
         E(42) = 0.3169000D+03
         P(42) = 0.2075320D-02
         E(43) = 0.7486000D+02
         P(43) = 0.1628690D-01
         E(44) = 0.2372000D+02
         P(44) = 0.7386970D-01
         E(45) = 0.8669000D+01
         P(45) = 0.2142970D+00
         E(46) = 0.3363000D+01
         P(46) = 0.3821540D+00
         E(47) = 0.1310000D+01
         P(47) = 0.3981780D+00
         E(48) = 0.4911000D+00
         P(48) = 0.1528780D+00
         E(49) = 0.2364000D+00
         P(49) = -.4375400D-02
         E(50) = 0.3169000D+03
         P(50) = -.3297270D-03
         E(51) = 0.7486000D+02
         P(51) = -.2587540D-02
         E(52) = 0.2372000D+02
         P(52) = -.1191200D-01
         E(53) = 0.8669000D+01
         P(53) = -.3502270D-01
         E(54) = 0.3363000D+01
         P(54) = -.6399680D-01
         E(55) = 0.1310000D+01
         P(55) = -.7044360D-01
         E(56) = 0.4911000D+00
         P(56) = -.3758360D-01
         E(57) = 0.2364000D+00
         P(57) = 0.1770430D+00
         E(58) = 0.8733000D-01
         P(58) = 0.1000000D+01
         E(59) = 0.3237000D-01
         P(59) = 0.1000000D+01
         E(60) = 0.1260000D+00
         D(60) = 0.1000000D+01
         E(61) = 0.2940000D+00
         D(61) = 0.1000000D+01
         E(62) = 0.2520000D+00
         F(62) = 0.1000000D+01
         ILAST = 62
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.3276000D+06
         S(1) = 0.3096080D-04
         E(2) = 0.4905000D+05
         S(2) = 0.2409540D-03
         E(3) = 0.1115000D+05
         S(3) = 0.1266600D-02
         E(4) = 0.3152000D+04
         S(4) = 0.5333590D-02
         E(5) = 0.1025000D+04
         S(5) = 0.1907700D-01
         E(6) = 0.3688000D+03
         S(6) = 0.5880580D-01
         E(7) = 0.1432000D+03
         S(7) = 0.1514540D+00
         E(8) = 0.5896000D+02
         S(8) = 0.3007160D+00
         E(9) = 0.2540000D+02
         S(9) = 0.3811490D+00
         E(10) = 0.1115000D+02
         S(10) = 0.2135840D+00
         E(11) = 0.4004000D+01
         S(11) = 0.2312100D-01
         E(12) = 0.1701000D+01
         S(12) = -.2307570D-02
         E(13) = 0.7060000D+00
         S(13) = 0.1289000D-02
         E(14) = 0.3276000D+06
         S(14) = -.7831730D-05
         E(15) = 0.4905000D+05
         S(15) = -.6079350D-04
         E(16) = 0.1115000D+05
         S(16) = -.3211970D-03
         E(17) = 0.3152000D+04
         S(17) = -.1349550D-02
         E(18) = 0.1025000D+04
         S(18) = -.4905700D-02
         E(19) = 0.3688000D+03
         S(19) = -.1535610D-01
         E(20) = 0.1432000D+03
         S(20) = -.4234090D-01
         E(21) = 0.5896000D+02
         S(21) = -.9406030D-01
         E(22) = 0.2540000D+02
         S(22) = -.1634250D+00
         E(23) = 0.1115000D+02
         S(23) = -.1247540D+00
         E(24) = 0.4004000D+01
         S(24) = 0.2356230D+00
         E(25) = 0.1701000D+01
         S(25) = 0.5775630D+00
         E(26) = 0.7060000D+00
         S(26) = 0.3352320D+00
         E(27) = 0.3276000D+06
         S(27) = 0.1509080D-05
         E(28) = 0.4905000D+05
         S(28) = 0.1171340D-04
         E(29) = 0.1115000D+05
         S(29) = 0.6189800D-04
         E(30) = 0.3152000D+04
         S(30) = 0.2600880D-03
         E(31) = 0.1025000D+04
         S(31) = 0.9462180D-03
         E(32) = 0.3688000D+03
         S(32) = 0.2965950D-02
         E(33) = 0.1432000D+03
         S(33) = 0.8212450D-02
         E(34) = 0.5896000D+02
         S(34) = 0.1839770D-01
         E(35) = 0.2540000D+02
         S(35) = 0.3266570D-01
         E(36) = 0.1115000D+02
         S(36) = 0.2573150D-01
         E(37) = 0.4004000D+01
         S(37) = -.5353510D-01
         E(38) = 0.1701000D+01
         S(38) = -.1568950D+00
         E(39) = 0.7060000D+00
         S(39) = -.2066590D+00
         E(40) = 0.1410000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.6808000D-01
         S(41) = 0.1000000D+01
         E(42) = 0.3063000D-01
         S(42) = 0.1000000D+01
         E(43) = 0.5396000D+03
         P(43) = 0.8339690D-03
         E(44) = 0.1279000D+03
         P(44) = 0.6892150D-02
         E(45) = 0.4102000D+02
         P(45) = 0.3378740D-01
         E(46) = 0.1525000D+02
         P(46) = 0.1144010D+00
         E(47) = 0.6166000D+01
         P(47) = 0.2595140D+00
         E(48) = 0.2561000D+01
         P(48) = 0.3850950D+00
         E(49) = 0.1060000D+01
         P(49) = 0.3353730D+00
         E(50) = 0.4176000D+00
         P(50) = 0.1106410D+00
         E(51) = 0.2690000D+00
         P(51) = -.1213150D-01
         E(52) = 0.5396000D+03
         P(52) = -.1320760D-03
         E(53) = 0.1279000D+03
         P(53) = -.1095380D-02
         E(54) = 0.4102000D+02
         P(54) = -.5394950D-02
         E(55) = 0.1525000D+02
         P(55) = -.1855720D-01
         E(56) = 0.6166000D+01
         P(56) = -.4273750D-01
         E(57) = 0.2561000D+01
         P(57) = -.6476840D-01
         E(58) = 0.1060000D+01
         P(58) = -.6278180D-01
         E(59) = 0.4176000D+00
         P(59) = -.2449120D-01
         E(60) = 0.2690000D+00
         P(60) = 0.1047610D+00
         E(61) = 0.1223000D+00
         P(61) = 0.1000000D+01
         E(62) = 0.5476000D-01
         P(62) = 0.1000000D+01
         E(63) = 0.2388000D-01
         P(63) = 0.1000000D+01
         E(64) = 0.1060000D+00
         D(64) = 0.1000000D+01
         E(65) = 0.1944000D+00
         D(65) = 0.1000000D+01
         E(66) = 0.3570000D+00
         D(66) = 0.1000000D+01
         E(67) = 0.1810000D+00
         F(67) = 0.1000000D+01
         E(68) = 0.3590000D+00
         F(68) = 0.1000000D+01
         E(69) = 0.3070000D+00
         G(69) = 0.1000000D+01
         ILAST = 69
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.2968000D+07
         S(1) = 0.1971770D-05
         E(2) = 0.4443000D+06
         S(2) = 0.1533620D-04
         E(3) = 0.1011000D+06
         S(3) = 0.8068520D-04
         E(4) = 0.2864000D+05
         S(4) = 0.3407710D-03
         E(5) = 0.9343000D+04
         S(5) = 0.1241940D-02
         E(6) = 0.3373000D+04
         S(6) = 0.4041240D-02
         E(7) = 0.1316000D+04
         S(7) = 0.1197970D-01
         E(8) = 0.5458000D+03
         S(8) = 0.3242530D-01
         E(9) = 0.2381000D+03
         S(9) = 0.7893320D-01
         E(10) = 0.1082000D+03
         S(10) = 0.1665750D+00
         E(11) = 0.5080000D+02
         S(11) = 0.2828710D+00
         E(12) = 0.2448000D+02
         S(12) = 0.3318900D+00
         E(13) = 0.1193000D+02
         S(13) = 0.2032870D+00
         E(14) = 0.5543000D+01
         S(14) = 0.3828970D-01
         E(15) = 0.2675000D+01
         S(15) = 0.3089160D-03
         E(16) = 0.1263000D+01
         S(16) = 0.1389070D-02
         E(17) = 0.2968000D+07
         S(17) = -.4981600D-06
         E(18) = 0.4443000D+06
         S(18) = -.3875630D-05
         E(19) = 0.1011000D+06
         S(19) = -.2038540D-04
         E(20) = 0.2864000D+05
         S(20) = -.8616590D-04
         E(21) = 0.9343000D+04
         S(21) = -.3141760D-03
         E(22) = 0.3373000D+04
         S(22) = -.1025770D-02
         E(23) = 0.1316000D+04
         S(23) = -.3058160D-02
         E(24) = 0.5458000D+03
         S(24) = -.8410630D-02
         E(25) = 0.2381000D+03
         S(25) = -.2112020D-01
         E(26) = 0.1082000D+03
         S(26) = -.4768820D-01
         E(27) = 0.5080000D+02
         S(27) = -.9241190D-01
         E(28) = 0.2448000D+02
         S(28) = -.1425480D+00
         E(29) = 0.1193000D+02
         S(29) = -.1261680D+00
         E(30) = 0.5543000D+01
         S(30) = 0.7152820D-01
         E(31) = 0.2675000D+01
         S(31) = 0.3830390D+00
         E(32) = 0.1263000D+01
         S(32) = 0.4901330D+00
         E(33) = 0.2968000D+07
         S(33) = 0.9601750D-07
         E(34) = 0.4443000D+06
         S(34) = 0.7461640D-06
         E(35) = 0.1011000D+06
         S(35) = 0.3931190D-05
         E(36) = 0.2864000D+05
         S(36) = 0.1658120D-04
         E(37) = 0.9343000D+04
         S(37) = 0.6062570D-04
         E(38) = 0.3373000D+04
         S(38) = 0.1973220D-03
         E(39) = 0.1316000D+04
         S(39) = 0.5908810D-03
         E(40) = 0.5458000D+03
         S(40) = 0.1619040D-02
         E(41) = 0.2381000D+03
         S(41) = 0.4097560D-02
         E(42) = 0.1082000D+03
         S(42) = 0.9229890D-02
         E(43) = 0.5080000D+02
         S(43) = 0.1821680D-01
         E(44) = 0.2448000D+02
         S(44) = 0.2828840D-01
         E(45) = 0.1193000D+02
         S(45) = 0.2650590D-01
         E(46) = 0.5543000D+01
         S(46) = -.1720530D-01
         E(47) = 0.2675000D+01
         S(47) = -.8859170D-01
         E(48) = 0.1263000D+01
         S(48) = -.1638710D+00
         E(49) = 0.5883000D+00
         S(49) = 0.1000000D+01
         E(50) = 0.1496000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.6700000D-01
         S(51) = 0.1000000D+01
         E(52) = 0.2952000D-01
         S(52) = 0.1000000D+01
         E(53) = 0.1441000D+04
         P(53) = 0.1524070D-03
         E(54) = 0.3414000D+03
         P(54) = 0.1327640D-02
         E(55) = 0.1107000D+03
         P(55) = 0.7219370D-02
         E(56) = 0.4197000D+02
         P(56) = 0.2852050D-01
         E(57) = 0.1749000D+02
         P(57) = 0.8653460D-01
         E(58) = 0.7753000D+01
         P(58) = 0.1949500D+00
         E(59) = 0.3534000D+01
         P(59) = 0.3120510D+00
         E(60) = 0.1614000D+01
         P(60) = 0.3484760D+00
         E(61) = 0.7299000D+00
         P(61) = 0.2188860D+00
         E(62) = 0.3029000D+00
         P(62) = 0.4355790D-01
         E(63) = 0.1441000D+04
         P(63) = -.2410310D-04
         E(64) = 0.3414000D+03
         P(64) = -.2108090D-03
         E(65) = 0.1107000D+03
         P(65) = -.1145300D-02
         E(66) = 0.4197000D+02
         P(66) = -.4564170D-02
         E(67) = 0.1749000D+02
         P(67) = -.1396030D-01
         E(68) = 0.7753000D+01
         P(68) = -.3211050D-01
         E(69) = 0.3534000D+01
         P(69) = -.5162170D-01
         E(70) = 0.1614000D+01
         P(70) = -.6137130D-01
         E(71) = 0.7299000D+00
         P(71) = -.4424650D-01
         E(72) = 0.3029000D+00
         P(72) = 0.5231910D-01
         E(73) = 0.1583000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.8190000D-01
         P(74) = 0.1000000D+01
         E(75) = 0.4123000D-01
         P(75) = 0.1000000D+01
         E(76) = 0.1988000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.1100000D+00
         D(77) = 0.1000000D+01
         E(78) = 0.2420000D+00
         D(78) = 0.1000000D+01
         E(79) = 0.5320000D+00
         D(79) = 0.1000000D+01
         E(80) = 0.1171000D+01
         D(80) = 0.1000000D+01
         E(81) = 0.1550000D+00
         F(81) = 0.1000000D+01
         E(82) = 0.2640000D+00
         F(82) = 0.1000000D+01
         E(83) = 0.4480000D+00
         F(83) = 0.1000000D+01
         E(84) = 0.2400000D+00
         G(84) = 0.1000000D+01
         E(85) = 0.4440000D+00
         G(85) = 0.1000000D+01
CFRJ     E(86) = 0.3750000D+00
CFRJ     H(86) = 0.1000000D+01
         ILAST = 85
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*) 'CC-PV6Z BASIS DOES NOT EXIST FOR MG'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.6415000D+05
         S(1) = 0.2902500D-03
         E(2) = 0.9617000D+04
         S(2) = 0.2250640D-02
         E(3) = 0.2189000D+04
         S(3) = 0.1164590D-01
         E(4) = 0.6205000D+03
         S(4) = 0.4673770D-01
         E(5) = 0.2027000D+03
         S(5) = 0.1462990D+00
         E(6) = 0.7315000D+02
         S(6) = 0.3302830D+00
         E(7) = 0.2855000D+02
         S(7) = 0.4158610D+00
         E(8) = 0.1177000D+02
         S(8) = 0.1892530D+00
         E(9) = 0.3300000D+01
         S(9) = 0.1158890D-01
         E(10) = 0.1173000D+01
         S(10) = -.1283850D-02
         E(11) = 0.1752000D+00
         S(11) = 0.4258830D-03
         E(12) = 0.6415000D+05
         S(12) = -.7580480D-04
         E(13) = 0.9617000D+04
         S(13) = -.5817910D-03
         E(14) = 0.2189000D+04
         S(14) = -.3081130D-02
         E(15) = 0.6205000D+03
         S(15) = -.1231120D-01
         E(16) = 0.2027000D+03
         S(16) = -.4197810D-01
         E(17) = 0.7315000D+02
         S(17) = -.1033710D+00
         E(18) = 0.2855000D+02
         S(18) = -.1963080D+00
         E(19) = 0.1177000D+02
         S(19) = -.8300020D-01
         E(20) = 0.3300000D+01
         S(20) = 0.5410400D+00
         E(21) = 0.1173000D+01
         S(21) = 0.5787960D+00
         E(22) = 0.1752000D+00
         S(22) = 0.2881470D-01
         E(23) = 0.6415000D+05
         S(23) = 0.1750780D-04
         E(24) = 0.9617000D+04
         S(24) = 0.1342080D-03
         E(25) = 0.2189000D+04
         S(25) = 0.7124420D-03
         E(26) = 0.6205000D+03
         S(26) = 0.2843300D-02
         E(27) = 0.2027000D+03
         S(27) = 0.9768420D-02
         E(28) = 0.7315000D+02
         S(28) = 0.2418500D-01
         E(29) = 0.2855000D+02
         S(29) = 0.4749930D-01
         E(30) = 0.1177000D+02
         S(30) = 0.2036210D-01
         E(31) = 0.3300000D+01
         S(31) = -.1587880D+00
         E(32) = 0.1173000D+01
         S(32) = -.3116940D+00
         E(33) = 0.1752000D+00
         S(33) = 0.6201470D+00
         E(34) = 0.6473000D-01
         S(34) = 0.1000000D+01
         E(35) = 0.2588000D+03
         P(35) = 0.4068470D-02
         E(36) = 0.6089000D+02
         P(36) = 0.3068150D-01
         E(37) = 0.1914000D+02
         P(37) = 0.1291490D+00
         E(38) = 0.6881000D+01
         P(38) = 0.3208310D+00
         E(39) = 0.2574000D+01
         P(39) = 0.4538150D+00
         E(40) = 0.9572000D+00
         P(40) = 0.2750660D+00
         E(41) = 0.2099000D+00
         P(41) = 0.1908070D-01
         E(42) = 0.2588000D+03
         P(42) = -.7480530D-03
         E(43) = 0.6089000D+02
         P(43) = -.5457960D-02
         E(44) = 0.1914000D+02
         P(44) = -.2453710D-01
         E(45) = 0.6881000D+01
         P(45) = -.5821380D-01
         E(46) = 0.2574000D+01
         P(46) = -.9837560D-01
         E(47) = 0.9572000D+00
         P(47) = -.2600640D-01
         E(48) = 0.2099000D+00
         P(48) = 0.4640200D+00
         E(49) = 0.5986000D-01
         P(49) = 0.1000000D+01
         E(50) = 0.1890000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.2055000D+06
         S(1) = 0.6788360D-04
         E(2) = 0.3078000D+05
         S(2) = 0.5271490D-03
         E(3) = 0.7006000D+04
         S(3) = 0.2762030D-02
         E(4) = 0.1985000D+04
         S(4) = 0.1147280D-01
         E(5) = 0.6491000D+03
         S(5) = 0.3981880D-01
         E(6) = 0.2350000D+03
         S(6) = 0.1150400D+00
         E(7) = 0.9162000D+02
         S(7) = 0.2608870D+00
         E(8) = 0.3767000D+02
         S(8) = 0.3963860D+00
         E(9) = 0.1591000D+02
         S(9) = 0.2845970D+00
         E(10) = 0.5850000D+01
         S(10) = 0.4445830D-01
         E(11) = 0.2542000D+01
         S(11) = -.4898380D-02
         E(12) = 0.1057000D+01
         S(12) = 0.2612530D-02
         E(13) = 0.1455000D+00
         S(13) = 0.7220680D-03
         E(14) = 0.2055000D+06
         S(14) = -.1763770D-04
         E(15) = 0.3078000D+05
         S(15) = -.1371950D-03
         E(16) = 0.7006000D+04
         S(16) = -.7189100D-03
         E(17) = 0.1985000D+04
         S(17) = -.3011460D-02
         E(18) = 0.6491000D+03
         S(18) = -.1060140D-01
         E(19) = 0.2350000D+03
         S(19) = -.3213450D-01
         E(20) = 0.9162000D+02
         S(20) = -.8031560D-01
         E(21) = 0.3767000D+02
         S(21) = -.1567940D+00
         E(22) = 0.1591000D+02
         S(22) = -.1683760D+00
         E(23) = 0.5850000D+01
         S(23) = 0.1268790D+00
         E(24) = 0.2542000D+01
         S(24) = 0.5614940D+00
         E(25) = 0.1057000D+01
         S(25) = 0.4366130D+00
         E(26) = 0.1455000D+00
         S(26) = -.1145630D-01
         E(27) = 0.2055000D+06
         S(27) = 0.4073150D-05
         E(28) = 0.3078000D+05
         S(28) = 0.3165660D-04
         E(29) = 0.7006000D+04
         S(29) = 0.1661160D-03
         E(30) = 0.1985000D+04
         S(30) = 0.6949920D-03
         E(31) = 0.6491000D+03
         S(31) = 0.2455110D-02
         E(32) = 0.2350000D+03
         S(32) = 0.7445980D-02
         E(33) = 0.9162000D+02
         S(33) = 0.1882530D-01
         E(34) = 0.3767000D+02
         S(34) = 0.3727720D-01
         E(35) = 0.1591000D+02
         S(35) = 0.4194960D-01
         E(36) = 0.5850000D+01
         S(36) = -.3543750D-01
         E(37) = 0.2542000D+01
         S(37) = -.1751320D+00
         E(38) = 0.1057000D+01
         S(38) = -.2762030D+00
         E(39) = 0.1455000D+00
         S(39) = 0.6528090D+00
         E(40) = 0.2931000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.5650000D-01
         S(41) = 0.1000000D+01
         E(42) = 0.4444000D+03
         P(42) = 0.1627860D-02
         E(43) = 0.1051000D+03
         P(43) = 0.1306870D-01
         E(44) = 0.3347000D+02
         P(44) = 0.6123410D-01
         E(45) = 0.1233000D+02
         P(45) = 0.1878700D+00
         E(46) = 0.4869000D+01
         P(46) = 0.3604520D+00
         E(47) = 0.1961000D+01
         P(47) = 0.4084540D+00
         E(48) = 0.1888000D+00
         P(48) = 0.9765140D-02
         E(49) = 0.4444000D+03
         P(49) = -.2863410D-03
         E(50) = 0.1051000D+03
         P(50) = -.2423080D-02
         E(51) = 0.3347000D+02
         P(51) = -.1086580D-01
         E(52) = 0.1233000D+02
         P(52) = -.3643070D-01
         E(53) = 0.4869000D+01
         P(53) = -.6410740D-01
         E(54) = 0.1961000D+01
         P(54) = -.9722390D-01
         E(55) = 0.1888000D+00
         P(55) = 0.5034480D+00
         E(56) = 0.7834000D+00
         P(56) = 0.1000000D+01
         E(57) = 0.5557000D-01
         P(57) = 0.1000000D+01
         E(58) = 0.1090000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.3330000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.2440000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.4196000D+06
         S(1) = 0.2782190D-04
         E(2) = 0.6283000D+05
         S(2) = 0.2163300D-03
         E(3) = 0.1429000D+05
         S(3) = 0.1137540D-02
         E(4) = 0.4038000D+04
         S(4) = 0.4796350D-02
         E(5) = 0.1312000D+04
         S(5) = 0.1723890D-01
         E(6) = 0.4705000D+03
         S(6) = 0.5380660D-01
         E(7) = 0.1818000D+03
         S(7) = 0.1413260D+00
         E(8) = 0.7446000D+02
         S(8) = 0.2892680D+00
         E(9) = 0.3190000D+02
         S(9) = 0.3848250D+00
         E(10) = 0.1396000D+02
         S(10) = 0.2328520D+00
         E(11) = 0.5180000D+01
         S(11) = 0.2933300D-01
         E(12) = 0.2265000D+01
         S(12) = -.3005740D-02
         E(13) = 0.9664000D+00
         S(13) = 0.1666730D-02
         E(14) = 0.4196000D+06
         S(14) = -.7237540D-05
         E(15) = 0.6283000D+05
         S(15) = -.5617330D-04
         E(16) = 0.1429000D+05
         S(16) = -.2965280D-03
         E(17) = 0.4038000D+04
         S(17) = -.1249130D-02
         E(18) = 0.1312000D+04
         S(18) = -.4551010D-02
         E(19) = 0.4705000D+03
         S(19) = -.1443930D-01
         E(20) = 0.1818000D+03
         S(20) = -.4034640D-01
         E(21) = 0.7446000D+02
         S(21) = -.9226180D-01
         E(22) = 0.3190000D+02
         S(22) = -.1645100D+00
         E(23) = 0.1396000D+02
         S(23) = -.1412960D+00
         E(24) = 0.5180000D+01
         S(24) = 0.1953650D+00
         E(25) = 0.2265000D+01
         S(25) = 0.5724750D+00
         E(26) = 0.9664000D+00
         S(26) = 0.3740410D+00
         E(27) = 0.4196000D+06
         S(27) = 0.1671500D-05
         E(28) = 0.6283000D+05
         S(28) = 0.1296410D-04
         E(29) = 0.1429000D+05
         S(29) = 0.6851010D-04
         E(30) = 0.4038000D+04
         S(30) = 0.2882740D-03
         E(31) = 0.1312000D+04
         S(31) = 0.1052760D-02
         E(32) = 0.4705000D+03
         S(32) = 0.3338780D-02
         E(33) = 0.1818000D+03
         S(33) = 0.9392170D-02
         E(34) = 0.7446000D+02
         S(34) = 0.2160470D-01
         E(35) = 0.3190000D+02
         S(35) = 0.3958730D-01
         E(36) = 0.1396000D+02
         S(36) = 0.3491800D-01
         E(37) = 0.5180000D+01
         S(37) = -.5284150D-01
         E(38) = 0.2265000D+01
         S(38) = -.1918780D+00
         E(39) = 0.9664000D+00
         S(39) = -.2541150D+00
         E(40) = 0.2447000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1184000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.5021000D-01
         S(42) = 0.1000000D+01
         E(43) = 0.8913000D+03
         P(43) = 0.4917550D-03
         E(44) = 0.2113000D+03
         P(44) = 0.4158430D-02
         E(45) = 0.6828000D+02
         P(45) = 0.2125380D-01
         E(46) = 0.2570000D+02
         P(46) = 0.7640580D-01
         E(47) = 0.1063000D+02
         P(47) = 0.1942770D+00
         E(48) = 0.4602000D+01
         P(48) = 0.3344280D+00
         E(49) = 0.2015000D+01
         P(49) = 0.3750260D+00
         E(50) = 0.8706000D+00
         P(50) = 0.2040410D+00
         E(51) = 0.8913000D+03
         P(51) = -.8886950D-04
         E(52) = 0.2113000D+03
         P(52) = -.7458230D-03
         E(53) = 0.6828000D+02
         P(53) = -.3870250D-02
         E(54) = 0.2570000D+02
         P(54) = -.1393500D-01
         E(55) = 0.1063000D+02
         P(55) = -.3668600D-01
         E(56) = 0.4602000D+01
         P(56) = -.6277970D-01
         E(57) = 0.2015000D+01
         P(57) = -.7896020D-01
         E(58) = 0.8706000D+00
         P(58) = -.2885890D-01
         E(59) = 0.2972000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.1100000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.3989000D-01
         P(61) = 0.1000000D+01
         E(62) = 0.8040000D-01
         D(62) = 0.1000000D+01
         E(63) = 0.1990000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.4940000D+00
         D(64) = 0.1000000D+01
         E(65) = 0.1540000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.4010000D+00
         F(66) = 0.1000000D+01
         E(67) = 0.3570000D+00
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.3269000D+07
         S(1) = 0.2139620D-05
         E(2) = 0.4894000D+06
         S(2) = 0.1662640D-04
         E(3) = 0.1114000D+06
         S(3) = 0.8751680D-04
         E(4) = 0.3156000D+05
         S(4) = 0.3689900D-03
         E(5) = 0.1032000D+05
         S(5) = 0.1339030D-02
         E(6) = 0.3731000D+04
         S(6) = 0.4356360D-02
         E(7) = 0.1456000D+04
         S(7) = 0.1289550D-01
         E(8) = 0.6041000D+03
         S(8) = 0.3482010D-01
         E(9) = 0.2635000D+03
         S(9) = 0.8435300D-01
         E(10) = 0.1198000D+03
         S(10) = 0.1759070D+00
         E(11) = 0.5632000D+02
         S(11) = 0.2920910D+00
         E(12) = 0.2719000D+02
         S(12) = 0.3282200D+00
         E(13) = 0.1326000D+02
         S(13) = 0.1869270D+00
         E(14) = 0.6052000D+01
         S(14) = 0.3104300D-01
         E(15) = 0.2981000D+01
         S(15) = -.5089220D-03
         E(16) = 0.1476000D+01
         S(16) = 0.1488360D-02
         E(17) = 0.3269000D+07
         S(17) = -.5560260D-06
         E(18) = 0.4894000D+06
         S(18) = -.4323030D-05
         E(19) = 0.1114000D+06
         S(19) = -.2274130D-04
         E(20) = 0.3156000D+05
         S(20) = -.9601160D-04
         E(21) = 0.1032000D+05
         S(21) = -.3483760D-03
         E(22) = 0.3731000D+04
         S(22) = -.1138360D-02
         E(23) = 0.1456000D+04
         S(23) = -.3387440D-02
         E(24) = 0.6041000D+03
         S(24) = -.9315050D-02
         E(25) = 0.2635000D+03
         S(25) = -.2330230D-01
         E(26) = 0.1198000D+03
         S(26) = -.5234860D-01
         E(27) = 0.5632000D+02
         S(27) = -.9994990D-01
         E(28) = 0.2719000D+02
         S(28) = -.1505600D+00
         E(29) = 0.1326000D+02
         S(29) = -.1191210D+00
         E(30) = 0.6052000D+01
         S(30) = 0.1080910D+00
         E(31) = 0.2981000D+01
         S(31) = 0.4111290D+00
         E(32) = 0.1476000D+01
         S(32) = 0.4572140D+00
         E(33) = 0.3269000D+07
         S(33) = 0.1284230D-06
         E(34) = 0.4894000D+06
         S(34) = 0.9975140D-06
         E(35) = 0.1114000D+06
         S(35) = 0.5254800D-05
         E(36) = 0.3156000D+05
         S(36) = 0.2214500D-04
         E(37) = 0.1032000D+05
         S(37) = 0.8054640D-04
         E(38) = 0.3731000D+04
         S(38) = 0.2625060D-03
         E(39) = 0.1456000D+04
         S(39) = 0.7842200D-03
         E(40) = 0.6041000D+03
         S(40) = 0.2150390D-02
         E(41) = 0.2635000D+03
         S(41) = 0.5419740D-02
         E(42) = 0.1198000D+03
         S(42) = 0.1216860D-01
         E(43) = 0.5632000D+02
         S(43) = 0.2368230D-01
         E(44) = 0.2719000D+02
         S(44) = 0.3609370D-01
         E(45) = 0.1326000D+02
         S(45) = 0.3032840D-01
         E(46) = 0.6052000D+01
         S(46) = -.3090340D-01
         E(47) = 0.2981000D+01
         S(47) = -.1191260D+00
         E(48) = 0.1476000D+01
         S(48) = -.2111450D+00
         E(49) = 0.7334000D+00
         S(49) = 0.1000000D+01
         E(50) = 0.2447000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.1088000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.4672000D-01
         S(52) = 0.1000000D+01
         E(53) = 0.1461000D+04
         P(53) = 0.2086130D-03
         E(54) = 0.3462000D+03
         P(54) = 0.1810050D-02
         E(55) = 0.1122000D+03
         P(55) = 0.9734330D-02
         E(56) = 0.4251000D+02
         P(56) = 0.3782660D-01
         E(57) = 0.1772000D+02
         P(57) = 0.1108980D+00
         E(58) = 0.7852000D+01
         P(58) = 0.2342950D+00
         E(59) = 0.3571000D+01
         P(59) = 0.3452450D+00
         E(60) = 0.1637000D+01
         P(60) = 0.3314300D+00
         E(61) = 0.1461000D+04
         P(61) = -.3719470D-04
         E(62) = 0.3462000D+03
         P(62) = -.3285630D-03
         E(63) = 0.1122000D+03
         P(63) = -.1742640D-02
         E(64) = 0.4251000D+02
         P(64) = -.6948280D-02
         E(65) = 0.1772000D+02
         P(65) = -.2028070D-01
         E(66) = 0.7852000D+01
         P(66) = -.4486570D-01
         E(67) = 0.3571000D+01
         P(67) = -.6432780D-01
         E(68) = 0.1637000D+01
         P(68) = -.7526660D-01
         E(69) = 0.7382000D+00
         P(69) = 0.1000000D+01
         E(70) = 0.2577000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.9773000D-01
         P(71) = 0.1000000D+01
         E(72) = 0.3690000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.1317000D+01
         D(73) = 0.1000000D+01
         E(74) = 0.5260000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.2100000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.8400000D-01
         D(76) = 0.1000000D+01
         E(77) = 0.1300000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.2580000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.5130000D+00
         F(79) = 0.1000000D+01
         E(80) = 0.2520000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.5430000D+00
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.4460000D+00
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.3652000D+07
         S(1) = 0.1900000D-05
         E(2) = 0.5468000D+06
         S(2) = 0.1450000D-04
         E(3) = 0.1245000D+06
         S(3) = 0.7620000D-04
         E(4) = 0.3544000D+05
         S(4) = 0.3158000D-03
         E(5) = 0.1184000D+05
         S(5) = 0.1097400D-02
         E(6) = 0.4434000D+04
         S(6) = 0.3369700D-02
         E(7) = 0.1812000D+04
         S(7) = 0.9322200D-02
         E(8) = 0.7915000D+03
         S(8) = 0.2379920D-01
         E(9) = 0.3610000D+03
         S(9) = 0.5681910D-01
         E(10) = 0.1695000D+03
         S(10) = 0.1224680D+00
         E(11) = 0.8168000D+02
         S(11) = 0.2238970D+00
         E(12) = 0.4028000D+02
         S(12) = 0.3134460D+00
         E(13) = 0.2025000D+02
         S(13) = 0.2749750D+00
         E(14) = 0.1023000D+02
         S(14) = 0.1105640D+00
         E(15) = 0.4802000D+01
         S(15) = 0.1192150D-01
         E(16) = 0.2339000D+01
         S(16) = 0.6528000D-03
         E(17) = 0.3652000D+07
         S(17) = -.5000000D-06
         E(18) = 0.5468000D+06
         S(18) = -.3800000D-05
         E(19) = 0.1245000D+06
         S(19) = -.1980000D-04
         E(20) = 0.3544000D+05
         S(20) = -.8210000D-04
         E(21) = 0.1184000D+05
         S(21) = -.2858000D-03
         E(22) = 0.4434000D+04
         S(22) = -.8785000D-03
         E(23) = 0.1812000D+04
         S(23) = -.2448200D-02
         E(24) = 0.7915000D+03
         S(24) = -.6310000D-02
         E(25) = 0.3610000D+03
         S(25) = -.1548540D-01
         E(26) = 0.1695000D+03
         S(26) = -.3495890D-01
         E(27) = 0.8168000D+02
         S(27) = -.7077290D-01
         E(28) = 0.4028000D+02
         S(28) = -.1194230D+00
         E(29) = 0.2025000D+02
         S(29) = -.1488420D+00
         E(30) = 0.1023000D+02
         S(30) = -.5904650D-01
         E(31) = 0.4802000D+01
         S(31) = 0.2166930D+00
         E(32) = 0.2339000D+01
         S(32) = 0.4765570D+00
         E(33) = 0.3652000D+07
         S(33) = 0.1000000D-06
         E(34) = 0.5468000D+06
         S(34) = 0.9000000D-06
         E(35) = 0.1245000D+06
         S(35) = 0.4600000D-05
         E(36) = 0.3544000D+05
         S(36) = 0.1900000D-04
         E(37) = 0.1184000D+05
         S(37) = 0.6590000D-04
         E(38) = 0.4434000D+04
         S(38) = 0.2031000D-03
         E(39) = 0.1812000D+04
         S(39) = 0.5647000D-03
         E(40) = 0.7915000D+03
         S(40) = 0.1462000D-02
         E(41) = 0.3610000D+03
         S(41) = 0.3579400D-02
         E(42) = 0.1695000D+03
         S(42) = 0.8151600D-02
         E(43) = 0.8168000D+02
         S(43) = 0.1652760D-01
         E(44) = 0.4028000D+02
         S(44) = 0.2854670D-01
         E(45) = 0.2025000D+02
         S(45) = 0.3614840D-01
         E(46) = 0.1023000D+02
         S(46) = 0.1538040D-01
         E(47) = 0.4802000D+01
         S(47) = -.6121410D-01
         E(48) = 0.2339000D+01
         S(48) = -.1512630D+00
         E(49) = 0.1163000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.5882000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.2311000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1027000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.4521000D-01
         S(53) = 0.1000000D+01
         E(54) = 0.2884000D+04
         P(54) = 0.6380000D-04
         E(55) = 0.6832000D+03
         P(55) = 0.5631000D-03
         E(56) = 0.2220000D+03
         P(56) = 0.3169100D-02
         E(57) = 0.8482000D+02
         P(57) = 0.1324010D-01
         E(58) = 0.3581000D+02
         P(58) = 0.4334030D-01
         E(59) = 0.1622000D+02
         P(59) = 0.1119500D+00
         E(60) = 0.7702000D+01
         P(60) = 0.2177960D+00
         E(61) = 0.3741000D+01
         P(61) = 0.3116750D+00
         E(62) = 0.1831000D+01
         P(62) = 0.3167220D+00
         E(63) = 0.2884000D+04
         P(63) = -.8000000D-05
         E(64) = 0.6832000D+03
         P(64) = -.6510000D-04
         E(65) = 0.2220000D+03
         P(65) = -.3999000D-03
         E(66) = 0.8482000D+02
         P(66) = -.1536900D-02
         E(67) = 0.3581000D+02
         P(67) = -.5564400D-02
         E(68) = 0.1622000D+02
         P(68) = -.1311060D-01
         E(69) = 0.7702000D+01
         P(69) = -.2972000D-01
         E(70) = 0.3741000D+01
         P(70) = -.3471950D-01
         E(71) = 0.1831000D+01
         P(71) = -.5516210D-01
         E(72) = 0.8878000D+00
         P(72) = 0.1000000D+01
         E(73) = 0.3989000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.1718000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.7298000D-01
         P(75) = 0.1000000D+01
         E(76) = 0.3069000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.2214300D+01
         D(77) = 0.1000000D+01
         E(78) = 0.9449000D+00
         D(78) = 0.1000000D+01
         E(79) = 0.4032000D+00
         D(79) = 0.1000000D+01
         E(80) = 0.1721000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.7343000D-01
         D(81) = 0.1000000D+01
         E(82) = 0.8756000D+00
         F(82) = 0.1000000D+01
         E(83) = 0.4472000D+00
         F(83) = 0.1000000D+01
         E(84) = 0.2284000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.1167000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.6952000D+00
         G(86) = 0.1000000D+01
         E(87) = 0.3771000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.2046000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.6560000D+00
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.3300000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.5302000D+00
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.7886000D+05
         S(1) = 0.2704430D-03
         E(2) = 0.1182000D+05
         S(2) = 0.2097170D-02
         E(3) = 0.2692000D+04
         S(3) = 0.1085060D-01
         E(4) = 0.7634000D+03
         S(4) = 0.4367540D-01
         E(5) = 0.2496000D+03
         S(5) = 0.1376530D+00
         E(6) = 0.9028000D+02
         S(6) = 0.3166440D+00
         E(7) = 0.3529000D+02
         S(7) = 0.4185810D+00
         E(8) = 0.1451000D+02
         S(8) = 0.2102120D+00
         E(9) = 0.4053000D+01
         S(9) = 0.1449520D-01
         E(10) = 0.1482000D+01
         S(10) = -.2035900D-02
         E(11) = 0.2517000D+00
         S(11) = 0.6241860D-03
         E(12) = 0.7886000D+05
         S(12) = -.7231770D-04
         E(13) = 0.1182000D+05
         S(13) = -.5551160D-03
         E(14) = 0.2692000D+04
         S(14) = -.2938050D-02
         E(15) = 0.7634000D+03
         S(15) = -.1176870D-01
         E(16) = 0.2496000D+03
         S(16) = -.4029070D-01
         E(17) = 0.9028000D+02
         S(17) = -.1006090D+00
         E(18) = 0.3529000D+02
         S(18) = -.1965280D+00
         E(19) = 0.1451000D+02
         S(19) = -.1023820D+00
         E(20) = 0.4053000D+01
         S(20) = 0.5271900D+00
         E(21) = 0.1482000D+01
         S(21) = 0.5932510D+00
         E(22) = 0.2517000D+00
         S(22) = 0.3326520D-01
         E(23) = 0.7886000D+05
         S(23) = 0.1851130D-04
         E(24) = 0.1182000D+05
         S(24) = 0.1422360D-03
         E(25) = 0.2692000D+04
         S(25) = 0.7521850D-03
         E(26) = 0.7634000D+03
         S(26) = 0.3022790D-02
         E(27) = 0.2496000D+03
         S(27) = 0.1036770D-01
         E(28) = 0.9028000D+02
         S(28) = 0.2625630D-01
         E(29) = 0.3529000D+02
         S(29) = 0.5239890D-01
         E(30) = 0.1451000D+02
         S(30) = 0.2909590D-01
         E(31) = 0.4053000D+01
         S(31) = -.1780030D+00
         E(32) = 0.1482000D+01
         S(32) = -.3468740D+00
         E(33) = 0.2517000D+00
         S(33) = 0.6230200D+00
         E(34) = 0.9243000D-01
         S(34) = 0.1000000D+01
         E(35) = 0.3159000D+03
         P(35) = 0.3926560D-02
         E(36) = 0.7442000D+02
         P(36) = 0.2988110D-01
         E(37) = 0.2348000D+02
         P(37) = 0.1272120D+00
         E(38) = 0.8488000D+01
         P(38) = 0.3209430D+00
         E(39) = 0.3217000D+01
         P(39) = 0.4554290D+00
         E(40) = 0.1229000D+01
         P(40) = 0.2685630D+00
         E(41) = 0.2964000D+00
         P(41) = 0.1883360D-01
         E(42) = 0.3159000D+03
         P(42) = -.8583020D-03
         E(43) = 0.7442000D+02
         P(43) = -.6303280D-02
         E(44) = 0.2348000D+02
         P(44) = -.2882550D-01
         E(45) = 0.8488000D+01
         P(45) = -.6945600D-01
         E(46) = 0.3217000D+01
         P(46) = -.1194930D+00
         E(47) = 0.1229000D+01
         P(47) = -.1995810D-01
         E(48) = 0.2964000D+00
         P(48) = 0.5102680D+00
         E(49) = 0.8768000D-01
         P(49) = 0.1000000D+01
         E(50) = 0.2750000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.2549000D+06
         S(1) = 0.6251010D-04
         E(2) = 0.3819000D+05
         S(2) = 0.4855530D-03
         E(3) = 0.8690000D+04
         S(3) = 0.2545160D-02
         E(4) = 0.2462000D+04
         S(4) = 0.1058660D-01
         E(5) = 0.8048000D+03
         S(5) = 0.3687870D-01
         E(6) = 0.2913000D+03
         S(6) = 0.1074790D+00
         E(7) = 0.1136000D+03
         S(7) = 0.2479360D+00
         E(8) = 0.4675000D+02
         S(8) = 0.3909270D+00
         E(9) = 0.1982000D+02
         S(9) = 0.3020260D+00
         E(10) = 0.7708000D+01
         S(10) = 0.5592360D-01
         E(11) = 0.3340000D+01
         S(11) = -.4024060D-02
         E(12) = 0.1402000D+01
         S(12) = 0.2580300D-02
         E(13) = 0.2070000D+00
         S(13) = 0.6079300D-03
         E(14) = 0.2549000D+06
         S(14) = -.1663700D-04
         E(15) = 0.3819000D+05
         S(15) = -.1293100D-03
         E(16) = 0.8690000D+04
         S(16) = -.6788280D-03
         E(17) = 0.2462000D+04
         S(17) = -.2841170D-02
         E(18) = 0.8048000D+03
         S(18) = -.1005510D-01
         E(19) = 0.2913000D+03
         S(19) = -.3057740D-01
         E(20) = 0.1136000D+03
         S(20) = -.7772560D-01
         E(21) = 0.4675000D+02
         S(21) = -.1542360D+00
         E(22) = 0.1982000D+02
         S(22) = -.1803680D+00
         E(23) = 0.7708000D+01
         S(23) = 0.7982180D-01
         E(24) = 0.3340000D+01
         S(24) = 0.5474410D+00
         E(25) = 0.1402000D+01
         S(25) = 0.4801190D+00
         E(26) = 0.2070000D+00
         S(26) = -.1069960D-01
         E(27) = 0.2549000D+06
         S(27) = 0.4262570D-05
         E(28) = 0.3819000D+05
         S(28) = 0.3310620D-04
         E(29) = 0.8690000D+04
         S(29) = 0.1740150D-03
         E(30) = 0.2462000D+04
         S(30) = 0.7275740D-03
         E(31) = 0.8048000D+03
         S(31) = 0.2583330D-02
         E(32) = 0.2913000D+03
         S(32) = 0.7863540D-02
         E(33) = 0.1136000D+03
         S(33) = 0.2021550D-01
         E(34) = 0.4675000D+02
         S(34) = 0.4073200D-01
         E(35) = 0.1982000D+02
         S(35) = 0.4993580D-01
         E(36) = 0.7708000D+01
         S(36) = -.2493960D-01
         E(37) = 0.3340000D+01
         S(37) = -.1903500D+00
         E(38) = 0.1402000D+01
         S(38) = -.3183500D+00
         E(39) = 0.2070000D+00
         S(39) = 0.6811800D+00
         E(40) = 0.4387000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.7944000D-01
         S(41) = 0.1000000D+01
         E(42) = 0.4815000D+03
         P(42) = 0.1920450D-02
         E(43) = 0.1139000D+03
         P(43) = 0.1535520D-01
         E(44) = 0.3623000D+02
         P(44) = 0.7139910D-01
         E(45) = 0.1334000D+02
         P(45) = 0.2130520D+00
         E(46) = 0.5252000D+01
         P(46) = 0.3903540D+00
         E(47) = 0.2120000D+01
         P(47) = 0.3937210D+00
         E(48) = 0.2528000D+00
         P(48) = 0.3956300D-02
         E(49) = 0.4815000D+03
         P(49) = -.4052200D-03
         E(50) = 0.1139000D+03
         P(50) = -.3358960D-02
         E(51) = 0.3623000D+02
         P(51) = -.1528600D-01
         E(52) = 0.1334000D+02
         P(52) = -.4892180D-01
         E(53) = 0.5252000D+01
         P(53) = -.8550080D-01
         E(54) = 0.2120000D+01
         P(54) = -.1121370D+00
         E(55) = 0.2528000D+00
         P(55) = 0.5519190D+00
         E(56) = 0.8561000D+00
         P(56) = 0.1000000D+01
         E(57) = 0.7889000D-01
         P(57) = 0.1000000D+01
         E(58) = 0.1590000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.4810000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.3360000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.5130000D+06
         S(1) = 0.2609200D-04
         E(2) = 0.7682000D+05
         S(2) = 0.2029050D-03
         E(3) = 0.1747000D+05
         S(3) = 0.1067150D-02
         E(4) = 0.4935000D+04
         S(4) = 0.4505970D-02
         E(5) = 0.1602000D+04
         S(5) = 0.1623590D-01
         E(6) = 0.5741000D+03
         S(6) = 0.5089130D-01
         E(7) = 0.2215000D+03
         S(7) = 0.1351550D+00
         E(8) = 0.9054000D+02
         S(8) = 0.2812920D+00
         E(9) = 0.3874000D+02
         S(9) = 0.3853360D+00
         E(10) = 0.1695000D+02
         S(10) = 0.2456510D+00
         E(11) = 0.6452000D+01
         S(11) = 0.3431450D-01
         E(12) = 0.2874000D+01
         S(12) = -.3348840D-02
         E(13) = 0.1250000D+01
         S(13) = 0.1876250D-02
         E(14) = 0.5130000D+06
         S(14) = -.6948800D-05
         E(15) = 0.7682000D+05
         S(15) = -.5396410D-04
         E(16) = 0.1747000D+05
         S(16) = -.2847160D-03
         E(17) = 0.4935000D+04
         S(17) = -.1202030D-02
         E(18) = 0.1602000D+04
         S(18) = -.4383970D-02
         E(19) = 0.5741000D+03
         S(19) = -.1397760D-01
         E(20) = 0.2215000D+03
         S(20) = -.3935160D-01
         E(21) = 0.9054000D+02
         S(21) = -.9142830D-01
         E(22) = 0.3874000D+02
         S(22) = -.1656090D+00
         E(23) = 0.1695000D+02
         S(23) = -.1525050D+00
         E(24) = 0.6452000D+01
         S(24) = 0.1685240D+00
         E(25) = 0.2874000D+01
         S(25) = 0.5692840D+00
         E(26) = 0.1250000D+01
         S(26) = 0.3980560D+00
         E(27) = 0.5130000D+06
         S(27) = 0.1780680D-05
         E(28) = 0.7682000D+05
         S(28) = 0.1381480D-04
         E(29) = 0.1747000D+05
         S(29) = 0.7300050D-04
         E(30) = 0.4935000D+04
         S(30) = 0.3076660D-03
         E(31) = 0.1602000D+04
         S(31) = 0.1125630D-02
         E(32) = 0.5741000D+03
         S(32) = 0.3584350D-02
         E(33) = 0.2215000D+03
         S(33) = 0.1017280D-01
         E(34) = 0.9054000D+02
         S(34) = 0.2375200D-01
         E(35) = 0.3874000D+02
         S(35) = 0.4434830D-01
         E(36) = 0.1695000D+02
         S(36) = 0.4190410D-01
         E(37) = 0.6452000D+01
         S(37) = -.5025040D-01
         E(38) = 0.2874000D+01
         S(38) = -.2165780D+00
         E(39) = 0.1250000D+01
         S(39) = -.2864480D+00
         E(40) = 0.3599000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1699000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.7066000D-01
         S(42) = 0.1000000D+01
         E(43) = 0.1122000D+04
         P(43) = 0.4481430D-03
         E(44) = 0.2660000D+03
         P(44) = 0.3816390D-02
         E(45) = 0.8592000D+02
         P(45) = 0.1981050D-01
         E(46) = 0.3233000D+02
         P(46) = 0.7270170D-01
         E(47) = 0.1337000D+02
         P(47) = 0.1898390D+00
         E(48) = 0.5800000D+01
         P(48) = 0.3356720D+00
         E(49) = 0.2559000D+01
         P(49) = 0.3793650D+00
         E(50) = 0.1124000D+01
         P(50) = 0.2011930D+00
         E(51) = 0.1122000D+04
         P(51) = -.9648830D-04
         E(52) = 0.2660000D+03
         P(52) = -.8119710D-03
         E(53) = 0.8592000D+02
         P(53) = -.4300870D-02
         E(54) = 0.3233000D+02
         P(54) = -.1575020D-01
         E(55) = 0.1337000D+02
         P(55) = -.4295410D-01
         E(56) = 0.5800000D+01
         P(56) = -.7525740D-01
         E(57) = 0.2559000D+01
         P(57) = -.9714460D-01
         E(58) = 0.1124000D+01
         P(58) = -.2275070D-01
         E(59) = 0.3988000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.1533000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.5728000D-01
         P(61) = 0.1000000D+01
         E(62) = 0.1200000D+00
         D(62) = 0.1000000D+01
         E(63) = 0.3020000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.7600000D+00
         D(64) = 0.1000000D+01
         E(65) = 0.2120000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.5410000D+00
         F(66) = 0.1000000D+01
         E(67) = 0.4610000D+00
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.3948000D+07
         S(1) = 0.2037120D-05
         E(2) = 0.5911000D+06
         S(2) = 0.1583940D-04
         E(3) = 0.1345000D+06
         S(3) = 0.8335900D-04
         E(4) = 0.3812000D+05
         S(4) = 0.3513610D-03
         E(5) = 0.1246000D+05
         S(5) = 0.1276600D-02
         E(6) = 0.4504000D+04
         S(6) = 0.4151910D-02
         E(7) = 0.1758000D+04
         S(7) = 0.1230300D-01
         E(8) = 0.7291000D+03
         S(8) = 0.3331020D-01
         E(9) = 0.3180000D+03
         S(9) = 0.8098450D-01
         E(10) = 0.1446000D+03
         S(10) = 0.1702900D+00
         E(11) = 0.6797000D+02
         S(11) = 0.2868790D+00
         E(12) = 0.3282000D+02
         S(12) = 0.3303400D+00
         E(13) = 0.1603000D+02
         S(13) = 0.1966020D+00
         E(14) = 0.7396000D+01
         S(14) = 0.3545350D-01
         E(15) = 0.3661000D+01
         S(15) = -.5352040D-03
         E(16) = 0.1823000D+01
         S(16) = 0.1614650D-02
         E(17) = 0.3948000D+07
         S(17) = -.5420850D-06
         E(18) = 0.5911000D+06
         S(18) = -.4216770D-05
         E(19) = 0.1345000D+06
         S(19) = -.2218130D-04
         E(20) = 0.3812000D+05
         S(20) = -.9360280D-04
         E(21) = 0.1246000D+05
         S(21) = -.3401160D-03
         E(22) = 0.4504000D+04
         S(22) = -.1110610D-02
         E(23) = 0.1758000D+04
         S(23) = -.3308780D-02
         E(24) = 0.7291000D+03
         S(24) = -.9116020D-02
         E(25) = 0.3180000D+03
         S(25) = -.2287900D-01
         E(26) = 0.1446000D+03
         S(26) = -.5171190D-01
         E(27) = 0.6797000D+02
         S(27) = -.9990910D-01
         E(28) = 0.3282000D+02
         S(28) = -.1527470D+00
         E(29) = 0.1603000D+02
         S(29) = -.1275080D+00
         E(30) = 0.7396000D+01
         S(30) = 0.9469630D-01
         E(31) = 0.3661000D+01
         S(31) = 0.4140360D+00
         E(32) = 0.1823000D+01
         S(32) = 0.4679340D+00
         E(33) = 0.3948000D+07
         S(33) = 0.1389070D-06
         E(34) = 0.5911000D+06
         S(34) = 0.1079530D-05
         E(35) = 0.1345000D+06
         S(35) = 0.5686280D-05
         E(36) = 0.3812000D+05
         S(36) = 0.2395370D-04
         E(37) = 0.1246000D+05
         S(37) = 0.8724090D-04
         E(38) = 0.4504000D+04
         S(38) = 0.2841630D-03
         E(39) = 0.1758000D+04
         S(39) = 0.8498400D-03
         E(40) = 0.7291000D+03
         S(40) = 0.2335270D-02
         E(41) = 0.3180000D+03
         S(41) = 0.5904660D-02
         E(42) = 0.1446000D+03
         S(42) = 0.1334610D-01
         E(43) = 0.6797000D+02
         S(43) = 0.2628890D-01
         E(44) = 0.3282000D+02
         S(44) = 0.4074260D-01
         E(45) = 0.1603000D+02
         S(45) = 0.3614760D-01
         E(46) = 0.7396000D+01
         S(46) = -.3039230D-01
         E(47) = 0.3661000D+01
         S(47) = -.1359610D+00
         E(48) = 0.1823000D+01
         S(48) = -.2501440D+00
         E(49) = 0.9147000D+00
         S(49) = 0.1000000D+01
         E(50) = 0.3393000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.1500000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.6438000D-01
         S(52) = 0.1000000D+01
         E(53) = 0.1780000D+04
         P(53) = 0.2012060D-03
         E(54) = 0.4218000D+03
         P(54) = 0.1749370D-02
         E(55) = 0.1367000D+03
         P(55) = 0.9481410D-02
         E(56) = 0.5181000D+02
         P(56) = 0.3723130D-01
         E(57) = 0.2160000D+02
         P(57) = 0.1107630D+00
         E(58) = 0.9563000D+01
         P(58) = 0.2379330D+00
         E(59) = 0.4350000D+01
         P(59) = 0.3536910D+00
         E(60) = 0.2006000D+01
         P(60) = 0.3288390D+00
         E(61) = 0.1780000D+04
         P(61) = -.4271520D-04
         E(62) = 0.4218000D+03
         P(62) = -.3770390D-03
         E(63) = 0.1367000D+03
         P(63) = -.2022400D-02
         E(64) = 0.5181000D+02
         P(64) = -.8128330D-02
         E(65) = 0.2160000D+02
         P(65) = -.2422720D-01
         E(66) = 0.9563000D+01
         P(66) = -.5438250D-01
         E(67) = 0.4350000D+01
         P(67) = -.7990510D-01
         E(68) = 0.2006000D+01
         P(68) = -.8889580D-01
         E(69) = 0.9205000D+00
         P(69) = 0.1000000D+01
         E(70) = 0.3500000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.1381000D+00
         P(71) = 0.1000000D+01
         E(72) = 0.5338000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.1260000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.3210000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.8170000D+00
         D(75) = 0.1000000D+01
         E(76) = 0.2082000D+01
         D(76) = 0.1000000D+01
         E(77) = 0.1690000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.3410000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.6880000D+00
         F(79) = 0.1000000D+01
         E(80) = 0.3200000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.7050000D+00
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.5830000D+00
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.4465000D+07
         S(1) = 0.1700000D-05
         E(2) = 0.6685000D+06
         S(2) = 0.1360000D-04
         E(3) = 0.1522000D+06
         S(3) = 0.7140000D-04
         E(4) = 0.4330000D+05
         S(4) = 0.2973000D-03
         E(5) = 0.1441000D+05
         S(5) = 0.1038300D-02
         E(6) = 0.5394000D+04
         S(6) = 0.3174700D-02
         E(7) = 0.2212000D+04
         S(7) = 0.8732400D-02
         E(8) = 0.9681000D+03
         S(8) = 0.2238300D-01
         E(9) = 0.4412000D+03
         S(9) = 0.5372730D-01
         E(10) = 0.2071000D+03
         S(10) = 0.1166490D+00
         E(11) = 0.9980000D+02
         S(11) = 0.2159780D+00
         E(12) = 0.4924000D+02
         S(12) = 0.3095660D+00
         E(13) = 0.2474000D+02
         S(13) = 0.2839450D+00
         E(14) = 0.1247000D+02
         S(14) = 0.1222320D+00
         E(15) = 0.5795000D+01
         S(15) = 0.1419520D-01
         E(16) = 0.2830000D+01
         S(16) = 0.3121000D-03
         E(17) = 0.4465000D+07
         S(17) = -.5000000D-06
         E(18) = 0.6685000D+06
         S(18) = -.3600000D-05
         E(19) = 0.1522000D+06
         S(19) = -.1900000D-04
         E(20) = 0.4330000D+05
         S(20) = -.7910000D-04
         E(21) = 0.1441000D+05
         S(21) = -.2769000D-03
         E(22) = 0.5394000D+04
         S(22) = -.8472000D-03
         E(23) = 0.2212000D+04
         S(23) = -.2347800D-02
         E(24) = 0.9681000D+03
         S(24) = -.6070500D-02
         E(25) = 0.4412000D+03
         S(25) = -.1497110D-01
         E(26) = 0.2071000D+03
         S(26) = -.3397290D-01
         E(27) = 0.9980000D+02
         S(27) = -.6945840D-01
         E(28) = 0.4924000D+02
         S(28) = -.1190010D+00
         E(29) = 0.2474000D+02
         S(29) = -.1536450D+00
         E(30) = 0.1247000D+02
         S(30) = -.7046840D-01
         E(31) = 0.5795000D+01
         S(31) = 0.2131490D+00
         E(32) = 0.2830000D+01
         S(32) = 0.4915960D+00
         E(33) = 0.4465000D+07
         S(33) = 0.1000000D-06
         E(34) = 0.6685000D+06
         S(34) = 0.9000000D-06
         E(35) = 0.1522000D+06
         S(35) = 0.4900000D-05
         E(36) = 0.4330000D+05
         S(36) = 0.2030000D-04
         E(37) = 0.1441000D+05
         S(37) = 0.7090000D-04
         E(38) = 0.5394000D+04
         S(38) = 0.2172000D-03
         E(39) = 0.2212000D+04
         S(39) = 0.6013000D-03
         E(40) = 0.9681000D+03
         S(40) = 0.1559100D-02
         E(41) = 0.4412000D+03
         S(41) = 0.3844300D-02
         E(42) = 0.2071000D+03
         S(42) = 0.8779700D-02
         E(43) = 0.9980000D+02
         S(43) = 0.1803880D-01
         E(44) = 0.4924000D+02
         S(44) = 0.3152240D-01
         E(45) = 0.2474000D+02
         S(45) = 0.4169050D-01
         E(46) = 0.1247000D+02
         S(46) = 0.2009730D-01
         E(47) = 0.5795000D+01
         S(47) = -.6674840D-01
         E(48) = 0.2830000D+01
         S(48) = -.1819060D+00
         E(49) = 0.1407000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.6995000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.3083000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1385000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.6145000D-01
         S(53) = 0.1000000D+01
         E(54) = 0.3572000D+04
         P(54) = 0.5990000D-04
         E(55) = 0.8460000D+03
         P(55) = 0.5296000D-03
         E(56) = 0.2748000D+03
         P(56) = 0.2995800D-02
         E(57) = 0.1050000D+03
         P(57) = 0.1263350D-01
         E(58) = 0.4435000D+02
         P(58) = 0.4190440D-01
         E(59) = 0.2008000D+02
         P(59) = 0.1102590D+00
         E(60) = 0.9530000D+01
         P(60) = 0.2188310D+00
         E(61) = 0.4634000D+01
         P(61) = 0.3178280D+00
         E(62) = 0.2280000D+01
         P(62) = 0.3194250D+00
         E(63) = 0.3572000D+04
         P(63) = -.1280000D-04
         E(64) = 0.8460000D+03
         P(64) = -.1126000D-03
         E(65) = 0.2748000D+03
         P(65) = -.6402000D-03
         E(66) = 0.1050000D+03
         P(66) = -.2702900D-02
         E(67) = 0.4435000D+02
         P(67) = -.9078900D-02
         E(68) = 0.2008000D+02
         P(68) = -.2423480D-01
         E(69) = 0.9530000D+01
         P(69) = -.4934600D-01
         E(70) = 0.4634000D+01
         P(70) = -.7258590D-01
         E(71) = 0.2280000D+01
         P(71) = -.8042580D-01
         E(72) = 0.1116000D+01
         P(72) = 0.1000000D+01
         E(73) = 0.4991000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.2254000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.1001000D+00
         P(75) = 0.1000000D+01
         E(76) = 0.4332000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.3238600D+01
         D(77) = 0.1000000D+01
         E(78) = 0.1376700D+01
         D(78) = 0.1000000D+01
         E(79) = 0.5853000D+00
         D(79) = 0.1000000D+01
         E(80) = 0.2488000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.1058000D+00
         D(81) = 0.1000000D+01
         E(82) = 0.1351000D+01
         F(82) = 0.1000000D+01
         E(83) = 0.6600000D+00
         F(83) = 0.1000000D+01
         E(84) = 0.3225000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.1575000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.8528000D+00
         G(86) = 0.1000000D+01
         E(87) = 0.4631000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.2515000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.8557000D+00
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.4231000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.6946000D+00
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.9484000D+05
         S(1) = 0.2555090D-03
         E(2) = 0.1422000D+05
         S(2) = 0.1981930D-02
         E(3) = 0.3236000D+04
         S(3) = 0.1027600D-01
         E(4) = 0.9171000D+03
         S(4) = 0.4148230D-01
         E(5) = 0.2995000D+03
         S(5) = 0.1319840D+00
         E(6) = 0.1081000D+03
         S(6) = 0.3086620D+00
         E(7) = 0.4218000D+02
         S(7) = 0.4206470D+00
         E(8) = 0.1728000D+02
         S(8) = 0.2228780D+00
         E(9) = 0.4858000D+01
         S(9) = 0.1640350D-01
         E(10) = 0.1818000D+01
         S(10) = -.2542550D-02
         E(11) = 0.3372000D+00
         S(11) = 0.7480500D-03
         E(12) = 0.9484000D+05
         S(12) = -.6969390D-04
         E(13) = 0.1422000D+05
         S(13) = -.5352660D-03
         E(14) = 0.3236000D+04
         S(14) = -.2837090D-02
         E(15) = 0.9171000D+03
         S(15) = -.1139830D-01
         E(16) = 0.2995000D+03
         S(16) = -.3929290D-01
         E(17) = 0.1081000D+03
         S(17) = -.9963640D-01
         E(18) = 0.4218000D+02
         S(18) = -.1979830D+00
         E(19) = 0.1728000D+02
         S(19) = -.1148600D+00
         E(20) = 0.4858000D+01
         S(20) = 0.5185950D+00
         E(21) = 0.1818000D+01
         S(21) = 0.6018470D+00
         E(22) = 0.3372000D+00
         S(22) = 0.3686120D-01
         E(23) = 0.9484000D+05
         S(23) = 0.1911990D-04
         E(24) = 0.1422000D+05
         S(24) = 0.1472230D-03
         E(25) = 0.3236000D+04
         S(25) = 0.7779120D-03
         E(26) = 0.9171000D+03
         S(26) = 0.3145460D-02
         E(27) = 0.2995000D+03
         S(27) = 0.1082000D-01
         E(28) = 0.1081000D+03
         S(28) = 0.2799570D-01
         E(29) = 0.4218000D+02
         S(29) = 0.5639780D-01
         E(30) = 0.1728000D+02
         S(30) = 0.3581900D-01
         E(31) = 0.4858000D+01
         S(31) = -.1933870D+00
         E(32) = 0.1818000D+01
         S(32) = -.3720970D+00
         E(33) = 0.3372000D+00
         S(33) = 0.6242460D+00
         E(34) = 0.1232000D+00
         S(34) = 0.1000000D+01
         E(35) = 0.3705000D+03
         P(35) = 0.3950050D-02
         E(36) = 0.8733000D+02
         P(36) = 0.3024920D-01
         E(37) = 0.2759000D+02
         P(37) = 0.1295540D+00
         E(38) = 0.1000000D+02
         P(38) = 0.3275940D+00
         E(39) = 0.3825000D+01
         P(39) = 0.4569920D+00
         E(40) = 0.1494000D+01
         P(40) = 0.2530860D+00
         E(41) = 0.3921000D+00
         P(41) = 0.1687980D-01
         E(42) = 0.3705000D+03
         P(42) = -.9598320D-03
         E(43) = 0.8733000D+02
         P(43) = -.7111770D-02
         E(44) = 0.2759000D+02
         P(44) = -.3271220D-01
         E(45) = 0.1000000D+02
         P(45) = -.7957840D-01
         E(46) = 0.3825000D+01
         P(46) = -.1350160D+00
         E(47) = 0.1494000D+01
         P(47) = -.9105850D-02
         E(48) = 0.3921000D+00
         P(48) = 0.5378020D+00
         E(49) = 0.1186000D+00
         P(49) = 0.1000000D+01
         E(50) = 0.3730000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.3124000D+06
         S(1) = 0.5769600D-04
         E(2) = 0.4680000D+05
         S(2) = 0.4482960D-03
         E(3) = 0.1065000D+05
         S(3) = 0.2349390D-02
         E(4) = 0.3018000D+04
         S(4) = 0.9782650D-02
         E(5) = 0.9868000D+03
         S(5) = 0.3414670D-01
         E(6) = 0.3574000D+03
         S(6) = 0.1002040D+00
         E(7) = 0.1396000D+03
         S(7) = 0.2343720D+00
         E(8) = 0.5763000D+02
         S(8) = 0.3824340D+00
         E(9) = 0.2460000D+02
         S(9) = 0.3180880D+00
         E(10) = 0.1012000D+02
         S(10) = 0.7077880D-01
         E(11) = 0.4283000D+01
         S(11) = -.1817990D-02
         E(12) = 0.1805000D+01
         S(12) = 0.2161800D-02
         E(13) = 0.2782000D+00
         S(13) = 0.4322970D-03
         E(14) = 0.3124000D+06
         S(14) = -.1567090D-04
         E(15) = 0.4680000D+05
         S(15) = -.1217240D-03
         E(16) = 0.1065000D+05
         S(16) = -.6396720D-03
         E(17) = 0.3018000D+04
         S(17) = -.2674260D-02
         E(18) = 0.9868000D+03
         S(18) = -.9498310D-02
         E(19) = 0.3574000D+03
         S(19) = -.2893490D-01
         E(20) = 0.1396000D+03
         S(20) = -.7451210D-01
         E(21) = 0.5763000D+02
         S(21) = -.1499380D+00
         E(22) = 0.2460000D+02
         S(22) = -.1894670D+00
         E(23) = 0.1012000D+02
         S(23) = 0.3632700D-01
         E(24) = 0.4283000D+01
         S(24) = 0.5288160D+00
         E(25) = 0.1805000D+01
         S(25) = 0.5191150D+00
         E(26) = 0.2782000D+00
         S(26) = -.9256950D-02
         E(27) = 0.3124000D+06
         S(27) = 0.4306310D-05
         E(28) = 0.4680000D+05
         S(28) = 0.3341940D-04
         E(29) = 0.1065000D+05
         S(29) = 0.1758850D-03
         E(30) = 0.3018000D+04
         S(30) = 0.7343400D-03
         E(31) = 0.9868000D+03
         S(31) = 0.2617750D-02
         E(32) = 0.3574000D+03
         S(32) = 0.7978520D-02
         E(33) = 0.1396000D+03
         S(33) = 0.2079400D-01
         E(34) = 0.5763000D+02
         S(34) = 0.4244460D-01
         E(35) = 0.2460000D+02
         S(35) = 0.5634360D-01
         E(36) = 0.1012000D+02
         S(36) = -.1273580D-01
         E(37) = 0.4283000D+01
         S(37) = -.1964950D+00
         E(38) = 0.1805000D+01
         S(38) = -.3535550D+00
         E(39) = 0.2782000D+00
         S(39) = 0.7009120D+00
         E(40) = 0.6158000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1055000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.5049000D+03
         P(42) = 0.2337280D-02
         E(43) = 0.1194000D+03
         P(43) = 0.1854100D-01
         E(44) = 0.3796000D+02
         P(44) = 0.8496930D-01
         E(45) = 0.1395000D+02
         P(45) = 0.2446150D+00
         E(46) = 0.5457000D+01
         P(46) = 0.4227660D+00
         E(47) = 0.2177000D+01
         P(47) = 0.3684390D+00
         E(48) = 0.2877000D+00
         P(48) = -.3790050D-02
         E(49) = 0.5049000D+03
         P(49) = -.5552360D-03
         E(50) = 0.1194000D+03
         P(50) = -.4459130D-02
         E(51) = 0.3796000D+02
         P(51) = -.2063500D-01
         E(52) = 0.1395000D+02
         P(52) = -.6176940D-01
         E(53) = 0.5457000D+01
         P(53) = -.1089240D+00
         E(54) = 0.2177000D+01
         P(54) = -.1055990D+00
         E(55) = 0.2877000D+00
         P(55) = 0.5769810D+00
         E(56) = 0.8010000D+00
         P(56) = 0.1000000D+01
         E(57) = 0.9714000D-01
         P(57) = 0.1000000D+01
         E(58) = 0.2160000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.6520000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.4520000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.6152000D+06
         S(1) = 0.2474500D-04
         E(2) = 0.9212000D+05
         S(2) = 0.1924650D-03
         E(3) = 0.2095000D+05
         S(3) = 0.1012020D-02
         E(4) = 0.5920000D+04
         S(4) = 0.4272610D-02
         E(5) = 0.1922000D+04
         S(5) = 0.1541610D-01
         E(6) = 0.6880000D+03
         S(6) = 0.4859760D-01
         E(7) = 0.2650000D+03
         S(7) = 0.1300600D+00
         E(8) = 0.1082000D+03
         S(8) = 0.2745140D+00
         E(9) = 0.4622000D+02
         S(9) = 0.3854020D+00
         E(10) = 0.2023000D+02
         S(10) = 0.2559340D+00
         E(11) = 0.7859000D+01
         S(11) = 0.3912370D-01
         E(12) = 0.3547000D+01
         S(12) = -.3680100D-02
         E(13) = 0.1564000D+01
         S(13) = 0.2082110D-02
         E(14) = 0.6152000D+06
         S(14) = -.6722050D-05
         E(15) = 0.9212000D+05
         S(15) = -.5223110D-04
         E(16) = 0.2095000D+05
         S(16) = -.2753610D-03
         E(17) = 0.5920000D+04
         S(17) = -.1163070D-02
         E(18) = 0.1922000D+04
         S(18) = -.4242810D-02
         E(19) = 0.6880000D+03
         S(19) = -.1361140D-01
         E(20) = 0.2650000D+03
         S(20) = -.3851140D-01
         E(21) = 0.1082000D+03
         S(21) = -.9066430D-01
         E(22) = 0.4622000D+02
         S(22) = -.1665840D+00
         E(23) = 0.2023000D+02
         S(23) = -.1614470D+00
         E(24) = 0.7859000D+01
         S(24) = 0.1467810D+00
         E(25) = 0.3547000D+01
         S(25) = 0.5666820D+00
         E(26) = 0.1564000D+01
         S(26) = 0.4164330D+00
         E(27) = 0.6152000D+06
         S(27) = 0.1847400D-05
         E(28) = 0.9212000D+05
         S(28) = 0.1433800D-04
         E(29) = 0.2095000D+05
         S(29) = 0.7572280D-04
         E(30) = 0.5920000D+04
         S(30) = 0.3192050D-03
         E(31) = 0.1922000D+04
         S(31) = 0.1168510D-02
         E(32) = 0.6880000D+03
         S(32) = 0.3742670D-02
         E(33) = 0.2650000D+03
         S(33) = 0.1068170D-01
         E(34) = 0.1082000D+03
         S(34) = 0.2526570D-01
         E(35) = 0.4622000D+02
         S(35) = 0.4792830D-01
         E(36) = 0.2023000D+02
         S(36) = 0.4770960D-01
         E(37) = 0.7859000D+01
         S(37) = -.4665250D-01
         E(38) = 0.3547000D+01
         S(38) = -.2349680D+00
         E(39) = 0.1564000D+01
         S(39) = -.3113370D+00
         E(40) = 0.4888000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.2266000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.9331000D-01
         S(42) = 0.1000000D+01
         E(43) = 0.1367000D+04
         P(43) = 0.4210150D-03
         E(44) = 0.3240000D+03
         P(44) = 0.3609850D-02
         E(45) = 0.1046000D+03
         P(45) = 0.1892170D-01
         E(46) = 0.3937000D+02
         P(46) = 0.7055600D-01
         E(47) = 0.1626000D+02
         P(47) = 0.1881570D+00
         E(48) = 0.7056000D+01
         P(48) = 0.3387090D+00
         E(49) = 0.3130000D+01
         P(49) = 0.3819430D+00
         E(50) = 0.1394000D+01
         P(50) = 0.1952610D+00
         E(51) = 0.1367000D+04
         P(51) = -.1008270D-03
         E(52) = 0.3240000D+03
         P(52) = -.8544990D-03
         E(53) = 0.1046000D+03
         P(53) = -.4571160D-02
         E(54) = 0.3937000D+02
         P(54) = -.1703270D-01
         E(55) = 0.1626000D+02
         P(55) = -.4752040D-01
         E(56) = 0.7056000D+01
         P(56) = -.8527860D-01
         E(57) = 0.3130000D+01
         P(57) = -.1096760D+00
         E(58) = 0.1394000D+01
         P(58) = -.1611810D-01
         E(59) = 0.5179000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.2032000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.7698000D-01
         P(61) = 0.1000000D+01
         E(62) = 0.1650000D+00
         D(62) = 0.1000000D+01
         E(63) = 0.4130000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.1036000D+01
         D(64) = 0.1000000D+01
         E(65) = 0.2800000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.7030000D+00
         F(66) = 0.1000000D+01
         E(67) = 0.5970000D+00
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.4666000D+07
         S(1) = 0.1967590D-05
         E(2) = 0.6986000D+06
         S(2) = 0.1529630D-04
         E(3) = 0.1590000D+06
         S(3) = 0.8048260D-04
         E(4) = 0.4504000D+05
         S(4) = 0.3397370D-03
         E(5) = 0.1472000D+05
         S(5) = 0.1232910D-02
         E(6) = 0.5323000D+04
         S(6) = 0.4013450D-02
         E(7) = 0.2076000D+04
         S(7) = 0.1191240D-01
         E(8) = 0.8611000D+03
         S(8) = 0.3225110D-01
         E(9) = 0.3757000D+03
         S(9) = 0.7866430D-01
         E(10) = 0.1708000D+03
         S(10) = 0.1664580D+00
         E(11) = 0.8029000D+02
         S(11) = 0.2830390D+00
         E(12) = 0.3877000D+02
         S(12) = 0.3319420D+00
         E(13) = 0.1893000D+02
         S(13) = 0.2033520D+00
         E(14) = 0.8796000D+01
         S(14) = 0.3831830D-01
         E(15) = 0.4358000D+01
         S(15) = -.3847200D-03
         E(16) = 0.2174000D+01
         S(16) = 0.1587440D-02
         E(17) = 0.4666000D+07
         S(17) = -.5341530D-06
         E(18) = 0.6986000D+06
         S(18) = -.4154220D-05
         E(19) = 0.1590000D+06
         S(19) = -.2184840D-04
         E(20) = 0.4504000D+05
         S(20) = -.9232720D-04
         E(21) = 0.1472000D+05
         S(21) = -.3351090D-03
         E(22) = 0.5323000D+04
         S(22) = -.1095080D-02
         E(23) = 0.2076000D+04
         S(23) = -.3267980D-02
         E(24) = 0.8611000D+03
         S(24) = -.8999510D-02
         E(25) = 0.3757000D+03
         S(25) = -.2265280D-01
         E(26) = 0.1708000D+03
         S(26) = -.5146500D-01
         E(27) = 0.8029000D+02
         S(27) = -.1001860D+00
         E(28) = 0.3877000D+02
         S(28) = -.1550750D+00
         E(29) = 0.1893000D+02
         S(29) = -.1338180D+00
         E(30) = 0.8796000D+01
         S(30) = 0.8783610D-01
         E(31) = 0.4358000D+01
         S(31) = 0.4225810D+00
         E(32) = 0.2174000D+01
         S(32) = 0.4748990D+00
         E(33) = 0.4666000D+07
         S(33) = 0.1467760D-06
         E(34) = 0.6986000D+06
         S(34) = 0.1140640D-05
         E(35) = 0.1590000D+06
         S(35) = 0.6005680D-05
         E(36) = 0.4504000D+05
         S(36) = 0.2534270D-04
         E(37) = 0.1472000D+05
         S(37) = 0.9216060D-04
         E(38) = 0.5323000D+04
         S(38) = 0.3005630D-03
         E(39) = 0.2076000D+04
         S(39) = 0.8998840D-03
         E(40) = 0.8611000D+03
         S(40) = 0.2473540D-02
         E(41) = 0.3757000D+03
         S(41) = 0.6268120D-02
         E(42) = 0.1708000D+03
         S(42) = 0.1425980D-01
         E(43) = 0.8029000D+02
         S(43) = 0.2827690D-01
         E(44) = 0.3877000D+02
         S(44) = 0.4451240D-01
         E(45) = 0.1893000D+02
         S(45) = 0.4072170D-01
         E(46) = 0.8796000D+01
         S(46) = -.3019080D-01
         E(47) = 0.4358000D+01
         S(47) = -.1528940D+00
         E(48) = 0.2174000D+01
         S(48) = -.2824110D+00
         E(49) = 0.1095000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.4400000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.1945000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.8376000D-01
         S(52) = 0.1000000D+01
         E(53) = 0.2010000D+04
         P(53) = 0.2159150D-03
         E(54) = 0.4763000D+03
         P(54) = 0.1875360D-02
         E(55) = 0.1544000D+03
         P(55) = 0.1017420D-01
         E(56) = 0.5851000D+02
         P(56) = 0.3998560D-01
         E(57) = 0.2440000D+02
         P(57) = 0.1185630D+00
         E(58) = 0.1080000D+02
         P(58) = 0.2518160D+00
         E(59) = 0.4913000D+01
         P(59) = 0.3665650D+00
         E(60) = 0.2269000D+01
         P(60) = 0.3161770D+00
         E(61) = 0.2010000D+04
         P(61) = -.5114440D-04
         E(62) = 0.4763000D+03
         P(62) = -.4483560D-03
         E(63) = 0.1544000D+03
         P(63) = -.2423400D-02
         E(64) = 0.5851000D+02
         P(64) = -.9698260D-02
         E(65) = 0.2440000D+02
         P(65) = -.2909650D-01
         E(66) = 0.1080000D+02
         P(66) = -.6417260D-01
         E(67) = 0.4913000D+01
         P(67) = -.9450710D-01
         E(68) = 0.2269000D+01
         P(68) = -.9347000D-01
         E(69) = 0.1043000D+01
         P(69) = 0.1000000D+01
         E(70) = 0.4313000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.1767000D+00
         P(71) = 0.1000000D+01
         E(72) = 0.7009000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.1660000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.4180000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1054000D+01
         D(75) = 0.1000000D+01
         E(76) = 0.2656000D+01
         D(76) = 0.1000000D+01
         E(77) = 0.2190000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.4500000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.9230000D+00
         F(79) = 0.1000000D+01
         E(80) = 0.4120000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.9030000D+00
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.7450000D+00
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.5384000D+07
         S(1) = 0.1600000D-05
         E(2) = 0.8062000D+06
         S(2) = 0.1280000D-04
         E(3) = 0.1836000D+06
         S(3) = 0.6720000D-04
         E(4) = 0.5225000D+05
         S(4) = 0.2797000D-03
         E(5) = 0.1739000D+05
         S(5) = 0.9767000D-03
         E(6) = 0.6523000D+04
         S(6) = 0.2968400D-02
         E(7) = 0.2687000D+04
         S(7) = 0.8124000D-02
         E(8) = 0.1178000D+04
         S(8) = 0.2092000D-01
         E(9) = 0.5362000D+03
         S(9) = 0.5055900D-01
         E(10) = 0.2515000D+03
         S(10) = 0.1104790D+00
         E(11) = 0.1213000D+03
         S(11) = 0.2069570D+00
         E(12) = 0.5988000D+02
         S(12) = 0.3047370D+00
         E(13) = 0.3005000D+02
         S(13) = 0.2929520D+00
         E(14) = 0.1512000D+02
         S(14) = 0.1355610D+00
         E(15) = 0.7010000D+01
         S(15) = 0.1732080D-01
         E(16) = 0.3441000D+01
         S(16) = -.3520000D-04
         E(17) = 0.5384000D+07
         S(17) = -.4000000D-06
         E(18) = 0.8062000D+06
         S(18) = -.3500000D-05
         E(19) = 0.1836000D+06
         S(19) = -.1830000D-04
         E(20) = 0.5225000D+05
         S(20) = -.7590000D-04
         E(21) = 0.1739000D+05
         S(21) = -.2657000D-03
         E(22) = 0.6523000D+04
         S(22) = -.8080000D-03
         E(23) = 0.2687000D+04
         S(23) = -.2227300D-02
         E(24) = 0.1178000D+04
         S(24) = -.5783300D-02
         E(25) = 0.5362000D+03
         S(25) = -.1434380D-01
         E(26) = 0.2515000D+03
         S(26) = -.3270610D-01
         E(27) = 0.1213000D+03
         S(27) = -.6737160D-01
         E(28) = 0.5988000D+02
         S(28) = -.1176470D+00
         E(29) = 0.3005000D+02
         S(29) = -.1572800D+00
         E(30) = 0.1512000D+02
         S(30) = -.8385440D-01
         E(31) = 0.7010000D+01
         S(31) = 0.1997180D+00
         E(32) = 0.3441000D+01
         S(32) = 0.4986050D+00
         E(33) = 0.5384000D+07
         S(33) = 0.1000000D-06
         E(34) = 0.8062000D+06
         S(34) = 0.1000000D-05
         E(35) = 0.1836000D+06
         S(35) = 0.5000000D-05
         E(36) = 0.5225000D+05
         S(36) = 0.2090000D-04
         E(37) = 0.1739000D+05
         S(37) = 0.7300000D-04
         E(38) = 0.6523000D+04
         S(38) = 0.2221000D-03
         E(39) = 0.2687000D+04
         S(39) = 0.6122000D-03
         E(40) = 0.1178000D+04
         S(40) = 0.1591800D-02
         E(41) = 0.5362000D+03
         S(41) = 0.3953400D-02
         E(42) = 0.2515000D+03
         S(42) = 0.9057200D-02
         E(43) = 0.1213000D+03
         S(43) = 0.1879090D-01
         E(44) = 0.5988000D+02
         S(44) = 0.3338310D-01
         E(45) = 0.3005000D+02
         S(45) = 0.4594840D-01
         E(46) = 0.1512000D+02
         S(46) = 0.2552400D-01
         E(47) = 0.7010000D+01
         S(47) = -.6694960D-01
         E(48) = 0.3441000D+01
         S(48) = -.2036450D+00
         E(49) = 0.1712000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.8337000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.3912000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1777000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.7939000D-01
         S(53) = 0.1000000D+01
         E(54) = 0.4552000D+04
         P(54) = 0.5200000D-04
         E(55) = 0.1078000D+04
         P(55) = 0.4604000D-03
         E(56) = 0.3501000D+03
         P(56) = 0.2620800D-02
         E(57) = 0.1338000D+03
         P(57) = 0.1118730D-01
         E(58) = 0.5652000D+02
         P(58) = 0.3782290D-01
         E(59) = 0.2558000D+02
         P(59) = 0.1021160D+00
         E(60) = 0.1214000D+02
         P(60) = 0.2103140D+00
         E(61) = 0.5902000D+01
         P(61) = 0.3173830D+00
         E(62) = 0.2910000D+01
         P(62) = 0.3271650D+00
         E(63) = 0.4552000D+04
         P(63) = -.1240000D-04
         E(64) = 0.1078000D+04
         P(64) = -.1094000D-03
         E(65) = 0.3501000D+03
         P(65) = -.6256000D-03
         E(66) = 0.1338000D+03
         P(66) = -.2673400D-02
         E(67) = 0.5652000D+02
         P(67) = -.9155200D-02
         E(68) = 0.2558000D+02
         P(68) = -.2509930D-01
         E(69) = 0.1214000D+02
         P(69) = -.5318100D-01
         E(70) = 0.5902000D+01
         P(70) = -.8158880D-01
         E(71) = 0.2910000D+01
         P(71) = -.9197250D-01
         E(72) = 0.1435000D+01
         P(72) = 0.1000000D+01
         E(73) = 0.6570000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.3005000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.1340000D+00
         P(75) = 0.1000000D+01
         E(76) = 0.5783000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.4300800D+01
         D(77) = 0.1000000D+01
         E(78) = 0.1834600D+01
         D(78) = 0.1000000D+01
         E(79) = 0.7826000D+00
         D(79) = 0.1000000D+01
         E(80) = 0.3339000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.1424000D+00
         D(81) = 0.1000000D+01
         E(82) = 0.1816000D+01
         F(82) = 0.1000000D+01
         E(83) = 0.8806000D+00
         F(83) = 0.1000000D+01
         E(84) = 0.4270000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.2070000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.1061600D+01
         G(86) = 0.1000000D+01
         E(87) = 0.5791000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.3159000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.1085000D+01
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.5277000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.8890000D+00
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1108000D+06
         S(1) = 0.2476350D-03
         E(2) = 0.1661000D+05
         S(2) = 0.1920260D-02
         E(3) = 0.3781000D+04
         S(3) = 0.9961920D-02
         E(4) = 0.1071000D+04
         S(4) = 0.4029750D-01
         E(5) = 0.3498000D+03
         S(5) = 0.1286040D+00
         E(6) = 0.1263000D+03
         S(6) = 0.3034800D+00
         E(7) = 0.4926000D+02
         S(7) = 0.4214320D+00
         E(8) = 0.2016000D+02
         S(8) = 0.2307810D+00
         E(9) = 0.5720000D+01
         S(9) = 0.1789710D-01
         E(10) = 0.2182000D+01
         S(10) = -.2975160D-02
         E(11) = 0.4327000D+00
         S(11) = 0.8495220D-03
         E(12) = 0.1108000D+06
         S(12) = -.6870390D-04
         E(13) = 0.1661000D+05
         S(13) = -.5276810D-03
         E(14) = 0.3781000D+04
         S(14) = -.2796710D-02
         E(15) = 0.1071000D+04
         S(15) = -.1126510D-01
         E(16) = 0.3498000D+03
         S(16) = -.3888340D-01
         E(17) = 0.1263000D+03
         S(17) = -.9950250D-01
         E(18) = 0.4926000D+02
         S(18) = -.1997400D+00
         E(19) = 0.2016000D+02
         S(19) = -.1233600D+00
         E(20) = 0.5720000D+01
         S(20) = 0.5131940D+00
         E(21) = 0.2182000D+01
         S(21) = 0.6071200D+00
         E(22) = 0.4327000D+00
         S(22) = 0.3967530D-01
         E(23) = 0.1108000D+06
         S(23) = 0.1990770D-04
         E(24) = 0.1661000D+05
         S(24) = 0.1534830D-03
         E(25) = 0.3781000D+04
         S(25) = 0.8095030D-03
         E(26) = 0.1071000D+04
         S(26) = 0.3289740D-02
         E(27) = 0.3498000D+03
         S(27) = 0.1129670D-01
         E(28) = 0.1263000D+03
         S(28) = 0.2963850D-01
         E(29) = 0.4926000D+02
         S(29) = 0.5998510D-01
         E(30) = 0.2016000D+02
         S(30) = 0.4132480D-01
         E(31) = 0.5720000D+01
         S(31) = -.2074740D+00
         E(32) = 0.2182000D+01
         S(32) = -.3928890D+00
         E(33) = 0.4327000D+00
         S(33) = 0.6328400D+00
         E(34) = 0.1570000D+00
         S(34) = 0.1000000D+01
         E(35) = 0.3997000D+03
         P(35) = 0.4475410D-02
         E(36) = 0.9419000D+02
         P(36) = 0.3417080D-01
         E(37) = 0.2975000D+02
         P(37) = 0.1442500D+00
         E(38) = 0.1077000D+02
         P(38) = 0.3539280D+00
         E(39) = 0.4119000D+01
         P(39) = 0.4590850D+00
         E(40) = 0.1625000D+01
         P(40) = 0.2063830D+00
         E(41) = 0.4726000D+00
         P(41) = 0.1021410D-01
         E(42) = 0.3997000D+03
         P(42) = -.1162510D-02
         E(43) = 0.9419000D+02
         P(43) = -.8656640D-02
         E(44) = 0.2975000D+02
         P(44) = -.3908860D-01
         E(45) = 0.1077000D+02
         P(45) = -.9346250D-01
         E(46) = 0.4119000D+01
         P(46) = -.1479940D+00
         E(47) = 0.1625000D+01
         P(47) = 0.3019040D-01
         E(48) = 0.4726000D+00
         P(48) = 0.5615730D+00
         E(49) = 0.1407000D+00
         P(49) = 0.1000000D+01
         E(50) = 0.4790000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.3741000D+06
         S(1) = 0.5421400D-04
         E(2) = 0.5605000D+05
         S(2) = 0.4208550D-03
         E(3) = 0.1276000D+05
         S(3) = 0.2206980D-02
         E(4) = 0.3615000D+04
         S(4) = 0.9192580D-02
         E(5) = 0.1183000D+04
         S(5) = 0.3211230D-01
         E(6) = 0.4288000D+03
         S(6) = 0.9466830D-01
         E(7) = 0.1678000D+03
         S(7) = 0.2236300D+00
         E(8) = 0.6947000D+02
         S(8) = 0.3743930D+00
         E(9) = 0.2984000D+02
         S(9) = 0.3291080D+00
         E(10) = 0.1272000D+02
         S(10) = 0.8470380D-01
         E(11) = 0.5244000D+01
         S(11) = 0.4408510D-03
         E(12) = 0.2219000D+01
         S(12) = 0.1648270D-02
         E(13) = 0.3490000D+00
         S(13) = 0.3013060D-03
         E(14) = 0.3741000D+06
         S(14) = -.1498370D-04
         E(15) = 0.5605000D+05
         S(15) = -.1161980D-03
         E(16) = 0.1276000D+05
         S(16) = -.6115830D-03
         E(17) = 0.3615000D+04
         S(17) = -.2553700D-02
         E(18) = 0.1183000D+04
         S(18) = -.9087080D-02
         E(19) = 0.4288000D+03
         S(19) = -.2770450D-01
         E(20) = 0.1678000D+03
         S(20) = -.7200200D-01
         E(21) = 0.6947000D+02
         S(21) = -.1464390D+00
         E(22) = 0.2984000D+02
         S(22) = -.1951500D+00
         E(23) = 0.1272000D+02
         S(23) = 0.8191930D-02
         E(24) = 0.5244000D+01
         S(24) = 0.5166010D+00
         E(25) = 0.2219000D+01
         S(25) = 0.5421780D+00
         E(26) = 0.3490000D+00
         S(26) = -.9180720D-02
         E(27) = 0.3741000D+06
         S(27) = 0.4350660D-05
         E(28) = 0.5605000D+05
         S(28) = 0.3371400D-04
         E(29) = 0.1276000D+05
         S(29) = 0.1776740D-03
         E(30) = 0.3615000D+04
         S(30) = 0.7411160D-03
         E(31) = 0.1183000D+04
         S(31) = 0.2645910D-02
         E(32) = 0.4288000D+03
         S(32) = 0.8074870D-02
         E(33) = 0.1678000D+03
         S(33) = 0.2122760D-01
         E(34) = 0.6947000D+02
         S(34) = 0.4383230D-01
         E(35) = 0.2984000D+02
         S(35) = 0.6127160D-01
         E(36) = 0.1272000D+02
         S(36) = -.3615100D-02
         E(37) = 0.5244000D+01
         S(37) = -.2045100D+00
         E(38) = 0.2219000D+01
         S(38) = -.3818710D+00
         E(39) = 0.3490000D+00
         S(39) = 0.7141470D+00
         E(40) = 0.7767000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1322000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.5744000D+03
         P(42) = 0.2422640D-02
         E(43) = 0.1358000D+03
         P(43) = 0.1927960D-01
         E(44) = 0.4319000D+02
         P(44) = 0.8854010D-01
         E(45) = 0.1587000D+02
         P(45) = 0.2546540D+00
         E(46) = 0.6208000D+01
         P(46) = 0.4339840D+00
         E(47) = 0.2483000D+01
         P(47) = 0.3549530D+00
         E(48) = 0.3229000D+00
         P(48) = -.5029770D-02
         E(49) = 0.5744000D+03
         P(49) = -.6201020D-03
         E(50) = 0.1358000D+03
         P(50) = -.4938820D-02
         E(51) = 0.4319000D+02
         P(51) = -.2326470D-01
         E(52) = 0.1587000D+02
         P(52) = -.6851950D-01
         E(53) = 0.6208000D+01
         P(53) = -.1238960D+00
         E(54) = 0.2483000D+01
         P(54) = -.9694990D-01
         E(55) = 0.3229000D+00
         P(55) = 0.5693940D+00
         E(56) = 0.8688000D+00
         P(56) = 0.1000000D+01
         E(57) = 0.1098000D+00
         P(57) = 0.1000000D+01
         E(58) = 0.2690000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.8190000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.5570000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.7278000D+06
         S(1) = 0.2360250D-04
         E(2) = 0.1090000D+06
         S(2) = 0.1834820D-03
         E(3) = 0.2480000D+05
         S(3) = 0.9642780D-03
         E(4) = 0.7014000D+04
         S(4) = 0.4065370D-02
         E(5) = 0.2278000D+04
         S(5) = 0.1469730D-01
         E(6) = 0.8147000D+03
         S(6) = 0.4650810D-01
         E(7) = 0.3134000D+03
         S(7) = 0.1255080D+00
         E(8) = 0.1277000D+03
         S(8) = 0.2684330D+00
         E(9) = 0.5448000D+02
         S(9) = 0.3848090D+00
         E(10) = 0.2385000D+02
         S(10) = 0.2653720D+00
         E(11) = 0.9428000D+01
         S(11) = 0.4373260D-01
         E(12) = 0.4290000D+01
         S(12) = -.3788070D-02
         E(13) = 0.1909000D+01
         S(13) = 0.2180830D-02
         E(14) = 0.7278000D+06
         S(14) = -.6521790D-05
         E(15) = 0.1090000D+06
         S(15) = -.5066310D-04
         E(16) = 0.2480000D+05
         S(16) = -.2668330D-03
         E(17) = 0.7014000D+04
         S(17) = -.1126010D-02
         E(18) = 0.2278000D+04
         S(18) = -.4111860D-02
         E(19) = 0.8147000D+03
         S(19) = -.1324540D-01
         E(20) = 0.3134000D+03
         S(20) = -.3770040D-01
         E(21) = 0.1277000D+03
         S(21) = -.8985540D-01
         E(22) = 0.5448000D+02
         S(22) = -.1670980D+00
         E(23) = 0.2385000D+02
         S(23) = -.1693540D+00
         E(24) = 0.9428000D+01
         S(24) = 0.1278240D+00
         E(25) = 0.4290000D+01
         S(25) = 0.5648620D+00
         E(26) = 0.1909000D+01
         S(26) = 0.4317670D+00
         E(27) = 0.7278000D+06
         S(27) = 0.1894060D-05
         E(28) = 0.1090000D+06
         S(28) = 0.1469480D-04
         E(29) = 0.2480000D+05
         S(29) = 0.7754600D-04
         E(30) = 0.7014000D+04
         S(30) = 0.3265090D-03
         E(31) = 0.2278000D+04
         S(31) = 0.1196860D-02
         E(32) = 0.8147000D+03
         S(32) = 0.3847990D-02
         E(33) = 0.3134000D+03
         S(33) = 0.1105390D-01
         E(34) = 0.1277000D+03
         S(34) = 0.2646450D-01
         E(35) = 0.5448000D+02
         S(35) = 0.5087710D-01
         E(36) = 0.2385000D+02
         S(36) = 0.5300300D-01
         E(37) = 0.9428000D+01
         S(37) = -.4255180D-01
         E(38) = 0.4290000D+01
         S(38) = -.2508530D+00
         E(39) = 0.1909000D+01
         S(39) = -.3331520D+00
         E(40) = 0.6270000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.2873000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1172000D+00
         S(42) = 0.1000000D+01
         E(43) = 0.1546000D+04
         P(43) = 0.4411830D-03
         E(44) = 0.3664000D+03
         P(44) = 0.3775710D-02
         E(45) = 0.1184000D+03
         P(45) = 0.1983600D-01
         E(46) = 0.4453000D+02
         P(46) = 0.7420630D-01
         E(47) = 0.1838000D+02
         P(47) = 0.1973270D+00
         E(48) = 0.7965000D+01
         P(48) = 0.3518510D+00
         E(49) = 0.3541000D+01
         P(49) = 0.3786870D+00
         E(50) = 0.1591000D+01
         P(50) = 0.1709310D+00
         E(51) = 0.1546000D+04
         P(51) = -.1131100D-03
         E(52) = 0.3664000D+03
         P(52) = -.9585810D-03
         E(53) = 0.1184000D+03
         P(53) = -.5134710D-02
         E(54) = 0.4453000D+02
         P(54) = -.1926410D-01
         E(55) = 0.1838000D+02
         P(55) = -.5359800D-01
         E(56) = 0.7965000D+01
         P(56) = -.9603330D-01
         E(57) = 0.3541000D+01
         P(57) = -.1181830D+00
         E(58) = 0.1591000D+01
         P(58) = 0.9231940D-02
         E(59) = 0.6205000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.2420000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.9014000D-01
         P(61) = 0.1000000D+01
         E(62) = 0.2030000D+00
         D(62) = 0.1000000D+01
         E(63) = 0.5040000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.1250000D+01
         D(64) = 0.1000000D+01
         E(65) = 0.3350000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.8690000D+00
         F(66) = 0.1000000D+01
         E(67) = 0.6830000D+00
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.5481000D+07
         S(1) = 0.1893380D-05
         E(2) = 0.8206000D+06
         S(2) = 0.1472110D-04
         E(3) = 0.1867000D+06
         S(3) = 0.7750840D-04
         E(4) = 0.5288000D+05
         S(4) = 0.3272240D-03
         E(5) = 0.1725000D+05
         S(5) = 0.1193650D-02
         E(6) = 0.6226000D+04
         S(6) = 0.3883930D-02
         E(7) = 0.2429000D+04
         S(7) = 0.1153360D-01
         E(8) = 0.1007000D+04
         S(8) = 0.3127480D-01
         E(9) = 0.4395000D+03
         S(9) = 0.7643870D-01
         E(10) = 0.1998000D+03
         S(10) = 0.1627000D+00
         E(11) = 0.9392000D+02
         S(11) = 0.2793280D+00
         E(12) = 0.4534000D+02
         S(12) = 0.3331450D+00
         E(13) = 0.2215000D+02
         S(13) = 0.2098360D+00
         E(14) = 0.1034000D+02
         S(14) = 0.4159740D-01
         E(15) = 0.5119000D+01
         S(15) = -.4505520D-03
         E(16) = 0.2553000D+01
         S(16) = 0.1688550D-02
         E(17) = 0.5481000D+07
         S(17) = -.5229120D-06
         E(18) = 0.8206000D+06
         S(18) = -.4066900D-05
         E(19) = 0.1867000D+06
         S(19) = -.2140650D-04
         E(20) = 0.5288000D+05
         S(20) = -.9045400D-04
         E(21) = 0.1725000D+05
         S(21) = -.3300800D-03
         E(22) = 0.6226000D+04
         S(22) = -.1077820D-02
         E(23) = 0.2429000D+04
         S(23) = -.3218740D-02
         E(24) = 0.1007000D+04
         S(24) = -.8872170D-02
         E(25) = 0.4395000D+03
         S(25) = -.2237710D-01
         E(26) = 0.1998000D+03
         S(26) = -.5105770D-01
         E(27) = 0.9392000D+02
         S(27) = -.1002250D+00
         E(28) = 0.4534000D+02
         S(28) = -.1567950D+00
         E(29) = 0.2215000D+02
         S(29) = -.1397480D+00
         E(30) = 0.1034000D+02
         S(30) = 0.8100590D-01
         E(31) = 0.5119000D+01
         S(31) = 0.4308830D+00
         E(32) = 0.2553000D+01
         S(32) = 0.4816880D+00
         E(33) = 0.5481000D+07
         S(33) = 0.1518230D-06
         E(34) = 0.8206000D+06
         S(34) = 0.1180080D-05
         E(35) = 0.1867000D+06
         S(35) = 0.6216990D-05
         E(36) = 0.5288000D+05
         S(36) = 0.2624050D-04
         E(37) = 0.1725000D+05
         S(37) = 0.9590400D-04
         E(38) = 0.6226000D+04
         S(38) = 0.3126780D-03
         E(39) = 0.2429000D+04
         S(39) = 0.9363220D-03
         E(40) = 0.1007000D+04
         S(40) = 0.2577900D-02
         E(41) = 0.4395000D+03
         S(41) = 0.6541210D-02
         E(42) = 0.1998000D+03
         S(42) = 0.1496300D-01
         E(43) = 0.9392000D+02
         S(43) = 0.2989400D-01
         E(44) = 0.4534000D+02
         S(44) = 0.4769460D-01
         E(45) = 0.2215000D+02
         S(45) = 0.4495560D-01
         E(46) = 0.1034000D+02
         S(46) = -.2930090D-01
         E(47) = 0.5119000D+01
         S(47) = -.1689160D+00
         E(48) = 0.2553000D+01
         S(48) = -.3110140D+00
         E(49) = 0.1282000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.5450000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.2411000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1035000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.2200000D+04
         P(53) = 0.2390490D-03
         E(54) = 0.5214000D+03
         P(54) = 0.2076860D-02
         E(55) = 0.1690000D+03
         P(55) = 0.1123630D-01
         E(56) = 0.6405000D+02
         P(56) = 0.4406900D-01
         E(57) = 0.2672000D+02
         P(57) = 0.1291680D+00
         E(58) = 0.1183000D+02
         P(58) = 0.2690830D+00
         E(59) = 0.5378000D+01
         P(59) = 0.3786110D+00
         E(60) = 0.2482000D+01
         P(60) = 0.2967790D+00
         E(61) = 0.2200000D+04
         P(61) = -.6085620D-04
         E(62) = 0.5214000D+03
         P(62) = -.5304190D-03
         E(63) = 0.1690000D+03
         P(63) = -.2879150D-02
         E(64) = 0.6405000D+02
         P(64) = -.1143970D-01
         E(65) = 0.2672000D+02
         P(65) = -.3427640D-01
         E(66) = 0.1183000D+02
         P(66) = -.7358110D-01
         E(67) = 0.5378000D+01
         P(67) = -.1077820D+00
         E(68) = 0.2482000D+01
         P(68) = -.8797690D-01
         E(69) = 0.1116000D+01
         P(69) = 0.1000000D+01
         E(70) = 0.4848000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.2006000D+00
         P(71) = 0.1000000D+01
         E(72) = 0.7951000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.2050000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.5120000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1281000D+01
         D(75) = 0.1000000D+01
         E(76) = 0.3203000D+01
         D(76) = 0.1000000D+01
         E(77) = 0.2550000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.5290000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1096000D+01
         F(79) = 0.1000000D+01
         E(80) = 0.4630000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.1071000D+01
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.8720000D+00
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.6297000D+07
         S(1) = 0.1600000D-05
         E(2) = 0.9431000D+06
         S(2) = 0.1240000D-04
         E(3) = 0.2149000D+06
         S(3) = 0.6490000D-04
         E(4) = 0.6125000D+05
         S(4) = 0.2693000D-03
         E(5) = 0.2045000D+05
         S(5) = 0.9347000D-03
         E(6) = 0.7719000D+04
         S(6) = 0.2808300D-02
         E(7) = 0.3198000D+04
         S(7) = 0.7674000D-02
         E(8) = 0.1402000D+04
         S(8) = 0.1988980D-01
         E(9) = 0.6372000D+03
         S(9) = 0.4825890D-01
         E(10) = 0.2989000D+03
         S(10) = 0.1057570D+00
         E(11) = 0.1443000D+03
         S(11) = 0.2002230D+00
         E(12) = 0.7121000D+02
         S(12) = 0.3007280D+00
         E(13) = 0.3573000D+02
         S(13) = 0.2986880D+00
         E(14) = 0.1797000D+02
         S(14) = 0.1463470D+00
         E(15) = 0.8341000D+01
         S(15) = 0.2011590D-01
         E(16) = 0.4112000D+01
         S(16) = -.2488000D-03
         E(17) = 0.6297000D+07
         S(17) = -.4000000D-06
         E(18) = 0.9431000D+06
         S(18) = -.3400000D-05
         E(19) = 0.2149000D+06
         S(19) = -.1790000D-04
         E(20) = 0.6125000D+05
         S(20) = -.7440000D-04
         E(21) = 0.2045000D+05
         S(21) = -.2587000D-03
         E(22) = 0.7719000D+04
         S(22) = -.7777000D-03
         E(23) = 0.3198000D+04
         S(23) = -.2139600D-02
         E(24) = 0.1402000D+04
         S(24) = -.5590600D-02
         E(25) = 0.6372000D+03
         S(25) = -.1390760D-01
         E(26) = 0.2989000D+03
         S(26) = -.3176890D-01
         E(27) = 0.1443000D+03
         S(27) = -.6593020D-01
         E(28) = 0.7121000D+02
         S(28) = -.1168320D+00
         E(29) = 0.3573000D+02
         S(29) = -.1597870D+00
         E(30) = 0.1797000D+02
         S(30) = -.9453220D-01
         E(31) = 0.8341000D+01
         S(31) = 0.1878280D+00
         E(32) = 0.4112000D+01
         S(32) = 0.5046830D+00
         E(33) = 0.6297000D+07
         S(33) = 0.1000000D-06
         E(34) = 0.9431000D+06
         S(34) = 0.1000000D-05
         E(35) = 0.2149000D+06
         S(35) = 0.5200000D-05
         E(36) = 0.6125000D+05
         S(36) = 0.2160000D-04
         E(37) = 0.2045000D+05
         S(37) = 0.7510000D-04
         E(38) = 0.7719000D+04
         S(38) = 0.2258000D-03
         E(39) = 0.3198000D+04
         S(39) = 0.6217000D-03
         E(40) = 0.1402000D+04
         S(40) = 0.1625100D-02
         E(41) = 0.6372000D+03
         S(41) = 0.4053500D-02
         E(42) = 0.2989000D+03
         S(42) = 0.9290200D-02
         E(43) = 0.1443000D+03
         S(43) = 0.1945610D-01
         E(44) = 0.7121000D+02
         S(44) = 0.3500400D-01
         E(45) = 0.3573000D+02
         S(45) = 0.4948970D-01
         E(46) = 0.1797000D+02
         S(46) = 0.3034430D-01
         E(47) = 0.8341000D+01
         S(47) = -.6636610D-01
         E(48) = 0.4112000D+01
         S(48) = -.2231540D+00
         E(49) = 0.2045000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.9770000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.4766000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.2185000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.9759000D-01
         S(53) = 0.1000000D+01
         E(54) = 0.5266000D+04
         P(54) = 0.5230000D-04
         E(55) = 0.1247000D+04
         P(55) = 0.4635000D-03
         E(56) = 0.4050000D+03
         P(56) = 0.2641000D-02
         E(57) = 0.1548000D+03
         P(57) = 0.1131690D-01
         E(58) = 0.6538000D+02
         P(58) = 0.3847040D-01
         E(59) = 0.2959000D+02
         P(59) = 0.1043390D+00
         E(60) = 0.1404000D+02
         P(60) = 0.2156840D+00
         E(61) = 0.6824000D+01
         P(61) = 0.3252600D+00
         E(62) = 0.3369000D+01
         P(62) = 0.3261780D+00
         E(63) = 0.5266000D+04
         P(63) = -.1330000D-04
         E(64) = 0.1247000D+04
         P(64) = -.1179000D-03
         E(65) = 0.4050000D+03
         P(65) = -.6759000D-03
         E(66) = 0.1548000D+03
         P(66) = -.2897300D-02
         E(67) = 0.6538000D+02
         P(67) = -.9998000D-02
         E(68) = 0.2959000D+02
         P(68) = -.2754160D-01
         E(69) = 0.1404000D+02
         P(69) = -.5879430D-01
         E(70) = 0.6824000D+01
         P(70) = -.9037610D-01
         E(71) = 0.3369000D+01
         P(71) = -.9998910D-01
         E(72) = 0.1666000D+01
         P(72) = 0.1000000D+01
         E(73) = 0.7681000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.3504000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.1556000D+00
         P(75) = 0.1000000D+01
         E(76) = 0.6681000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.5075500D+01
         D(77) = 0.1000000D+01
         E(78) = 0.2183300D+01
         D(78) = 0.1000000D+01
         E(79) = 0.9392000D+00
         D(79) = 0.1000000D+01
         E(80) = 0.4040000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.1738000D+00
         D(81) = 0.1000000D+01
         E(82) = 0.1322200D+01
         F(82) = 0.1000000D+01
         E(83) = 0.7319000D+00
         F(83) = 0.1000000D+01
         E(84) = 0.4051000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.2243000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.1347300D+01
         G(86) = 0.1000000D+01
         E(87) = 0.7009000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.3647000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.1286100D+01
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.6115000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.1040900D+01
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1279000D+06
         S(1) = 0.2411530D-03
         E(2) = 0.1917000D+05
         S(2) = 0.1870950D-02
         E(3) = 0.4363000D+04
         S(3) = 0.9708270D-02
         E(4) = 0.1236000D+04
         S(4) = 0.3931530D-01
         E(5) = 0.4036000D+03
         S(5) = 0.1259320D+00
         E(6) = 0.1457000D+03
         S(6) = 0.2993410D+00
         E(7) = 0.5681000D+02
         S(7) = 0.4218860D+00
         E(8) = 0.2323000D+02
         S(8) = 0.2372010D+00
         E(9) = 0.6644000D+01
         S(9) = 0.1915310D-01
         E(10) = 0.2575000D+01
         S(10) = -.3347920D-02
         E(11) = 0.5371000D+00
         S(11) = 0.9298830D-03
         E(12) = 0.1279000D+06
         S(12) = -.6789220D-04
         E(13) = 0.1917000D+05
         S(13) = -.5218360D-03
         E(14) = 0.4363000D+04
         S(14) = -.2765130D-02
         E(15) = 0.1236000D+04
         S(15) = -.1115370D-01
         E(16) = 0.4036000D+03
         S(16) = -.3859190D-01
         E(17) = 0.1457000D+03
         S(17) = -.9948480D-01
         E(18) = 0.5681000D+02
         S(18) = -.2013920D+00
         E(19) = 0.2323000D+02
         S(19) = -.1303130D+00
         E(20) = 0.6644000D+01
         S(20) = 0.5094430D+00
         E(21) = 0.2575000D+01
         S(21) = 0.6107250D+00
         E(22) = 0.5371000D+00
         S(22) = 0.4215490D-01
         E(23) = 0.1279000D+06
         S(23) = 0.2049860D-04
         E(24) = 0.1917000D+05
         S(24) = 0.1582980D-03
         E(25) = 0.4363000D+04
         S(25) = 0.8336390D-03
         E(26) = 0.1236000D+04
         S(26) = 0.3398800D-02
         E(27) = 0.4036000D+03
         S(27) = 0.1167380D-01
         E(28) = 0.1457000D+03
         S(28) = 0.3096220D-01
         E(29) = 0.5681000D+02
         S(29) = 0.6295330D-01
         E(30) = 0.2323000D+02
         S(30) = 0.4602570D-01
         E(31) = 0.6644000D+01
         S(31) = -.2193120D+00
         E(32) = 0.2575000D+01
         S(32) = -.4087730D+00
         E(33) = 0.5371000D+00
         S(33) = 0.6384650D+00
         E(34) = 0.1938000D+00
         S(34) = 0.1000000D+01
         E(35) = 0.4176000D+03
         P(35) = 0.5259820D-02
         E(36) = 0.9833000D+02
         P(36) = 0.3983320D-01
         E(37) = 0.3104000D+02
         P(37) = 0.1646550D+00
         E(38) = 0.1119000D+02
         P(38) = 0.3873220D+00
         E(39) = 0.4249000D+01
         P(39) = 0.4570720D+00
         E(40) = 0.1624000D+01
         P(40) = 0.1516360D+00
         E(41) = 0.5322000D+00
         P(41) = 0.1816150D-02
         E(42) = 0.4176000D+03
         P(42) = -.1435700D-02
         E(43) = 0.9833000D+02
         P(43) = -.1077960D-01
         E(44) = 0.3104000D+02
         P(44) = -.4700750D-01
         E(45) = 0.1119000D+02
         P(45) = -.1110300D+00
         E(46) = 0.4249000D+01
         P(46) = -.1532750D+00
         E(47) = 0.1624000D+01
         P(47) = 0.8946090D-01
         E(48) = 0.5322000D+00
         P(48) = 0.5794440D+00
         E(49) = 0.1620000D+00
         P(49) = 0.1000000D+01
         E(50) = 0.6000000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.4561000D+06
         S(1) = 0.4929700D-04
         E(2) = 0.6833000D+05
         S(2) = 0.3830290D-03
         E(3) = 0.1555000D+05
         S(3) = 0.2008540D-02
         E(4) = 0.4405000D+04
         S(4) = 0.8385580D-02
         E(5) = 0.1439000D+04
         S(5) = 0.2947030D-01
         E(6) = 0.5204000D+03
         S(6) = 0.8783250D-01
         E(7) = 0.2031000D+03
         S(7) = 0.2114730D+00
         E(8) = 0.8396000D+02
         S(8) = 0.3653640D+00
         E(9) = 0.3620000D+02
         S(9) = 0.3408840D+00
         E(10) = 0.1583000D+02
         S(10) = 0.1021330D+00
         E(11) = 0.6334000D+01
         S(11) = 0.3116750D-02
         E(12) = 0.2694000D+01
         S(12) = 0.1057510D-02
         E(13) = 0.4313000D+00
         S(13) = 0.1561360D-03
         E(14) = 0.4561000D+06
         S(14) = -.1383040D-04
         E(15) = 0.6833000D+05
         S(15) = -.1072790D-03
         E(16) = 0.1555000D+05
         S(16) = -.5650830D-03
         E(17) = 0.4405000D+04
         S(17) = -.2361350D-02
         E(18) = 0.1439000D+04
         S(18) = -.8458860D-02
         E(19) = 0.5204000D+03
         S(19) = -.2596380D-01
         E(20) = 0.2031000D+03
         S(20) = -.6863620D-01
         E(21) = 0.8396000D+02
         S(21) = -.1418740D+00
         E(22) = 0.3620000D+02
         S(22) = -.1993190D+00
         E(23) = 0.1583000D+02
         S(23) = -.1956620D-01
         E(24) = 0.6334000D+01
         S(24) = 0.4997410D+00
         E(25) = 0.2694000D+01
         S(25) = 0.5637360D+00
         E(26) = 0.4313000D+00
         S(26) = -.8350910D-02
         E(27) = 0.4561000D+06
         S(27) = 0.4185460D-05
         E(28) = 0.6833000D+05
         S(28) = 0.3243950D-04
         E(29) = 0.1555000D+05
         S(29) = 0.1711050D-03
         E(30) = 0.4405000D+04
         S(30) = 0.7141760D-03
         E(31) = 0.1439000D+04
         S(31) = 0.2567050D-02
         E(32) = 0.5204000D+03
         S(32) = 0.7885520D-02
         E(33) = 0.2031000D+03
         S(33) = 0.2108670D-01
         E(34) = 0.8396000D+02
         S(34) = 0.4422640D-01
         E(35) = 0.3620000D+02
         S(35) = 0.6516700D-01
         E(36) = 0.1583000D+02
         S(36) = 0.6030120D-02
         E(37) = 0.6334000D+01
         S(37) = -.2064950D+00
         E(38) = 0.2694000D+01
         S(38) = -.4058710D+00
         E(39) = 0.4313000D+00
         S(39) = 0.7256610D+00
         E(40) = 0.9768000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.1625000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.6633000D+03
         P(42) = 0.2404480D-02
         E(43) = 0.1568000D+03
         P(43) = 0.1921480D-01
         E(44) = 0.4998000D+02
         P(44) = 0.8850970D-01
         E(45) = 0.1842000D+02
         P(45) = 0.2560200D+00
         E(46) = 0.7240000D+01
         P(46) = 0.4369270D+00
         E(47) = 0.2922000D+01
         P(47) = 0.3503340D+00
         E(48) = 0.3818000D+00
         P(48) = -.4584230D-02
         E(49) = 0.6633000D+03
         P(49) = -.6521450D-03
         E(50) = 0.1568000D+03
         P(50) = -.5194450D-02
         E(51) = 0.4998000D+02
         P(51) = -.2469380D-01
         E(52) = 0.1842000D+02
         P(52) = -.7281670D-01
         E(53) = 0.7240000D+01
         P(53) = -.1340300D+00
         E(54) = 0.2922000D+01
         P(54) = -.9477420D-01
         E(55) = 0.3818000D+00
         P(55) = 0.5646670D+00
         E(56) = 0.1022000D+01
         P(56) = 0.1000000D+01
         E(57) = 0.1301000D+00
         P(57) = 0.1000000D+01
         E(58) = 0.1046000D+01
         D(58) = 0.1000000D+01
         E(59) = 0.3440000D+00
         D(59) = 0.1000000D+01
         E(60) = 0.7060000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.8349000D+06
         S(1) = 0.2316880D-04
         E(2) = 0.1250000D+06
         S(2) = 0.1801540D-03
         E(3) = 0.2843000D+05
         S(3) = 0.9477820D-03
         E(4) = 0.8033000D+04
         S(4) = 0.4001390D-02
         E(5) = 0.2608000D+04
         S(5) = 0.1446290D-01
         E(6) = 0.9339000D+03
         S(6) = 0.4565860D-01
         E(7) = 0.3600000D+03
         S(7) = 0.1232480D+00
         E(8) = 0.1470000D+03
         S(8) = 0.2643690D+00
         E(9) = 0.6288000D+02
         S(9) = 0.3829890D+00
         E(10) = 0.2760000D+02
         S(10) = 0.2709340D+00
         E(11) = 0.1108000D+02
         S(11) = 0.4714040D-01
         E(12) = 0.5075000D+01
         S(12) = -.3717660D-02
         E(13) = 0.2278000D+01
         S(13) = 0.2191580D-02
         E(14) = 0.8349000D+06
         S(14) = -.6496490D-05
         E(15) = 0.1250000D+06
         S(15) = -.5048950D-04
         E(16) = 0.2843000D+05
         S(16) = -.2661130D-03
         E(17) = 0.8033000D+04
         S(17) = -.1124990D-02
         E(18) = 0.2608000D+04
         S(18) = -.4104970D-02
         E(19) = 0.9339000D+03
         S(19) = -.1319870D-01
         E(20) = 0.3600000D+03
         S(20) = -.3753420D-01
         E(21) = 0.1470000D+03
         S(21) = -.8972330D-01
         E(22) = 0.6288000D+02
         S(22) = -.1676710D+00
         E(23) = 0.2760000D+02
         S(23) = -.1747630D+00
         E(24) = 0.1108000D+02
         S(24) = 0.1149090D+00
         E(25) = 0.5075000D+01
         S(25) = 0.5636180D+00
         E(26) = 0.2278000D+01
         S(26) = 0.4416060D+00
         E(27) = 0.8349000D+06
         S(27) = 0.1966450D-05
         E(28) = 0.1250000D+06
         S(28) = 0.1526200D-04
         E(29) = 0.2843000D+05
         S(29) = 0.8060860D-04
         E(30) = 0.8033000D+04
         S(30) = 0.3399600D-03
         E(31) = 0.2608000D+04
         S(31) = 0.1245510D-02
         E(32) = 0.9339000D+03
         S(32) = 0.3996120D-02
         E(33) = 0.3600000D+03
         S(33) = 0.1147510D-01
         E(34) = 0.1470000D+03
         S(34) = 0.2755040D-01
         E(35) = 0.6288000D+02
         S(35) = 0.5329170D-01
         E(36) = 0.2760000D+02
         S(36) = 0.5712460D-01
         E(37) = 0.1108000D+02
         S(37) = -.3952010D-01
         E(38) = 0.5075000D+01
         S(38) = -.2643430D+00
         E(39) = 0.2278000D+01
         S(39) = -.3492910D+00
         E(40) = 0.7775000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.3527000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1431000D+00
         S(42) = 0.1000000D+01
         E(43) = 0.1703000D+04
         P(43) = 0.4740390D-03
         E(44) = 0.4036000D+03
         P(44) = 0.4064120D-02
         E(45) = 0.1303000D+03
         P(45) = 0.2133550D-01
         E(46) = 0.4905000D+02
         P(46) = 0.7946110D-01
         E(47) = 0.2026000D+02
         P(47) = 0.2089270D+00
         E(48) = 0.8787000D+01
         P(48) = 0.3649450D+00
         E(49) = 0.3919000D+01
         P(49) = 0.3717250D+00
         E(50) = 0.1765000D+01
         P(50) = 0.1462920D+00
         E(51) = 0.1703000D+04
         P(51) = -.1282660D-03
         E(52) = 0.4036000D+03
         P(52) = -.1093560D-02
         E(53) = 0.1303000D+03
         P(53) = -.5834290D-02
         E(54) = 0.4905000D+02
         P(54) = -.2192580D-01
         E(55) = 0.2026000D+02
         P(55) = -.6013850D-01
         E(56) = 0.8787000D+01
         P(56) = -.1069290D+00
         E(57) = 0.3919000D+01
         P(57) = -.1224540D+00
         E(58) = 0.1765000D+01
         P(58) = 0.3836190D-01
         E(59) = 0.7207000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.2839000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.1060000D+00
         P(61) = 0.1000000D+01
         E(62) = 0.2540000D+00
         D(62) = 0.1000000D+01
         E(63) = 0.6280000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.1551000D+01
         D(64) = 0.1000000D+01
         E(65) = 0.4230000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.1089000D+01
         F(66) = 0.1000000D+01
         E(67) = 0.8270000D+00
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.6410000D+07
         S(1) = 0.1813500D-05
         E(2) = 0.9596000D+06
         S(2) = 0.1411180D-04
         E(3) = 0.2183000D+06
         S(3) = 0.7424060D-04
         E(4) = 0.6181000D+05
         S(4) = 0.3141310D-03
         E(5) = 0.2014000D+05
         S(5) = 0.1146420D-02
         E(6) = 0.7264000D+04
         S(6) = 0.3738880D-02
         E(7) = 0.2832000D+04
         S(7) = 0.1109460D-01
         E(8) = 0.1175000D+04
         S(8) = 0.3011520D-01
         E(9) = 0.5126000D+03
         S(9) = 0.7391450D-01
         E(10) = 0.2330000D+03
         S(10) = 0.1582580D+00
         E(11) = 0.1095000D+03
         S(11) = 0.2747530D+00
         E(12) = 0.5286000D+02
         S(12) = 0.3340660D+00
         E(13) = 0.2584000D+02
         S(13) = 0.2175890D+00
         E(14) = 0.1217000D+02
         S(14) = 0.4572780D-01
         E(15) = 0.6030000D+01
         S(15) = -.1347390D-03
         E(16) = 0.3012000D+01
         S(16) = 0.1639330D-02
         E(17) = 0.6410000D+07
         S(17) = -.5083030D-06
         E(18) = 0.9596000D+06
         S(18) = -.3956330D-05
         E(19) = 0.2183000D+06
         S(19) = -.2080950D-04
         E(20) = 0.6181000D+05
         S(20) = -.8811750D-04
         E(21) = 0.2014000D+05
         S(21) = -.3217420D-03
         E(22) = 0.7264000D+04
         S(22) = -.1052770D-02
         E(23) = 0.2832000D+04
         S(23) = -.3141830D-02
         E(24) = 0.1175000D+04
         S(24) = -.8663630D-02
         E(25) = 0.5126000D+03
         S(25) = -.2193530D-01
         E(26) = 0.2330000D+03
         S(26) = -.5025840D-01
         E(27) = 0.1095000D+03
         S(27) = -.9954140D-01
         E(28) = 0.5286000D+02
         S(28) = -.1576470D+00
         E(29) = 0.2584000D+02
         S(29) = -.1460240D+00
         E(30) = 0.1217000D+02
         S(30) = 0.6922300D-01
         E(31) = 0.6030000D+01
         S(31) = 0.4304120D+00
         E(32) = 0.3012000D+01
         S(32) = 0.4908020D+00
         E(33) = 0.6410000D+07
         S(33) = 0.1538080D-06
         E(34) = 0.9596000D+06
         S(34) = 0.1196540D-05
         E(35) = 0.2183000D+06
         S(35) = 0.6298280D-05
         E(36) = 0.6181000D+05
         S(36) = 0.2664500D-04
         E(37) = 0.2014000D+05
         S(37) = 0.9741620D-04
         E(38) = 0.7264000D+04
         S(38) = 0.3183600D-03
         E(39) = 0.2832000D+04
         S(39) = 0.9523770D-03
         E(40) = 0.1175000D+04
         S(40) = 0.2624300D-02
         E(41) = 0.5126000D+03
         S(41) = 0.6681600D-02
         E(42) = 0.2330000D+03
         S(42) = 0.1535950D-01
         E(43) = 0.1095000D+03
         S(43) = 0.3094320D-01
         E(44) = 0.5286000D+02
         S(44) = 0.5006380D-01
         E(45) = 0.2584000D+02
         S(45) = 0.4897820D-01
         E(46) = 0.1217000D+02
         S(46) = -.2608070D-01
         E(47) = 0.6030000D+01
         S(47) = -.1784260D+00
         E(48) = 0.3012000D+01
         S(48) = -.3323240D+00
         E(49) = 0.1511000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.6604000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.2926000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1254000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.2548000D+04
         P(53) = 0.2357020D-03
         E(54) = 0.6037000D+03
         P(54) = 0.2051580D-02
         E(55) = 0.1956000D+03
         P(55) = 0.1115430D-01
         E(56) = 0.7415000D+02
         P(56) = 0.4398160D-01
         E(57) = 0.3094000D+02
         P(57) = 0.1299940D+00
         E(58) = 0.1369000D+02
         P(58) = 0.2729590D+00
         E(59) = 0.6229000D+01
         P(59) = 0.3836900D+00
         E(60) = 0.2878000D+01
         P(60) = 0.2918700D+00
         E(61) = 0.2548000D+04
         P(61) = -.6354100D-04
         E(62) = 0.6037000D+03
         P(62) = -.5532590D-03
         E(63) = 0.1956000D+03
         P(63) = -.3027950D-02
         E(64) = 0.7415000D+02
         P(64) = -.1206500D-01
         E(65) = 0.3094000D+02
         P(65) = -.3663480D-01
         E(66) = 0.1369000D+02
         P(66) = -.7907640D-01
         E(67) = 0.6229000D+01
         P(67) = -.1174220D+00
         E(68) = 0.2878000D+01
         P(68) = -.8609430D-01
         E(69) = 0.1282000D+01
         P(69) = 0.1000000D+01
         E(70) = 0.5641000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.2348000D+00
         P(71) = 0.1000000D+01
         E(72) = 0.9312000D-01
         P(72) = 0.1000000D+01
         E(73) = 0.2500000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.6180000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1529000D+01
         D(75) = 0.1000000D+01
         E(76) = 0.3781000D+01
         D(76) = 0.1000000D+01
         E(77) = 0.3200000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.6560000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1345000D+01
         F(79) = 0.1000000D+01
         E(80) = 0.5560000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.1302000D+01
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.1053000D+01
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.7733000D+07
         S(1) = 0.1434740D-05
         E(2) = 0.1158000D+07
         S(2) = 0.1114860D-04
         E(3) = 0.2637000D+06
         S(3) = 0.5858650D-04
         E(4) = 0.7501000D+05
         S(4) = 0.2445180D-03
         E(5) = 0.2489000D+05
         S(5) = 0.8582870D-03
         E(6) = 0.9318000D+04
         S(6) = 0.2610190D-02
         E(7) = 0.3840000D+04
         S(7) = 0.7137840D-02
         E(8) = 0.1684000D+04
         S(8) = 0.1845640D-01
         E(9) = 0.7663000D+03
         S(9) = 0.4489440D-01
         E(10) = 0.3595000D+03
         S(10) = 0.9938220D-01
         E(11) = 0.1734000D+03
         S(11) = 0.1907820D+00
         E(12) = 0.8561000D+02
         S(12) = 0.2935650D+00
         E(13) = 0.4293000D+02
         S(13) = 0.3064770D+00
         E(14) = 0.2155000D+02
         S(14) = 0.1622090D+00
         E(15) = 0.1005000D+02
         S(15) = 0.2493830D-01
         E(16) = 0.4978000D+01
         S(16) = -.5131420D-03
         E(17) = 0.7733000D+07
         S(17) = -.4022270D-06
         E(18) = 0.1158000D+07
         S(18) = -.3124480D-05
         E(19) = 0.2637000D+06
         S(19) = -.1642900D-04
         E(20) = 0.7501000D+05
         S(20) = -.6854210D-04
         E(21) = 0.2489000D+05
         S(21) = -.2410010D-03
         E(22) = 0.9318000D+04
         S(22) = -.7335380D-03
         E(23) = 0.3840000D+04
         S(23) = -.2018300D-02
         E(24) = 0.1684000D+04
         S(24) = -.5261070D-02
         E(25) = 0.7663000D+03
         S(25) = -.1309860D-01
         E(26) = 0.3595000D+03
         S(26) = -.3017940D-01
         E(27) = 0.1734000D+03
         S(27) = -.6318880D-01
         E(28) = 0.8561000D+02
         S(28) = -.1138590D+00
         E(29) = 0.4293000D+02
         S(29) = -.1612510D+00
         E(30) = 0.2155000D+02
         S(30) = -.1092340D+00
         E(31) = 0.1005000D+02
         S(31) = 0.1629990D+00
         E(32) = 0.4978000D+01
         S(32) = 0.5014130D+00
         E(33) = 0.7733000D+07
         S(33) = 0.1216960D-06
         E(34) = 0.1158000D+07
         S(34) = 0.9451410D-06
         E(35) = 0.2637000D+06
         S(35) = 0.4971190D-05
         E(36) = 0.7501000D+05
         S(36) = 0.2073230D-04
         E(37) = 0.2489000D+05
         S(37) = 0.7294020D-04
         E(38) = 0.9318000D+04
         S(38) = 0.2218990D-03
         E(39) = 0.3840000D+04
         S(39) = 0.6113550D-03
         E(40) = 0.1684000D+04
         S(40) = 0.1593370D-02
         E(41) = 0.7663000D+03
         S(41) = 0.3980010D-02
         E(42) = 0.3595000D+03
         S(42) = 0.9193750D-02
         E(43) = 0.1734000D+03
         S(43) = 0.1943990D-01
         E(44) = 0.8561000D+02
         S(44) = 0.3551870D-01
         E(45) = 0.4293000D+02
         S(45) = 0.5206740D-01
         E(46) = 0.2155000D+02
         S(46) = 0.3656440D-01
         E(47) = 0.1005000D+02
         S(47) = -.5975000D-01
         E(48) = 0.4978000D+01
         S(48) = -.2316410D+00
         E(49) = 0.2478000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.1180000D+01
         S(50) = 0.1000000D+01
         E(51) = 0.5828000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.2668000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.1183000D+00
         S(53) = 0.1000000D+01
         E(54) = 0.6091000D+04
         P(54) = 0.5161940D-04
         E(55) = 0.1442000D+04
         P(55) = 0.4584680D-03
         E(56) = 0.4683000D+03
         P(56) = 0.2615090D-02
         E(57) = 0.1790000D+03
         P(57) = 0.1125540D-01
         E(58) = 0.7561000D+02
         P(58) = 0.3845770D-01
         E(59) = 0.3422000D+02
         P(59) = 0.1050810D+00
         E(60) = 0.1623000D+02
         P(60) = 0.2186030D+00
         E(61) = 0.7890000D+01
         P(61) = 0.3308740D+00
         E(62) = 0.3898000D+01
         P(62) = 0.3258790D+00
         E(63) = 0.6091000D+04
         P(63) = -.1392590D-04
         E(64) = 0.1442000D+04
         P(64) = -.1233240D-03
         E(65) = 0.4683000D+03
         P(65) = -.7075510D-03
         E(66) = 0.1790000D+03
         P(66) = -.3049390D-02
         E(67) = 0.7561000D+02
         P(67) = -.1057520D-01
         E(68) = 0.3422000D+02
         P(68) = -.2940940D-01
         E(69) = 0.1623000D+02
         P(69) = -.6322960D-01
         E(70) = 0.7890000D+01
         P(70) = -.9818700D-01
         E(71) = 0.3898000D+01
         P(71) = -.1058700D+00
         E(72) = 0.1933000D+01
         P(72) = 0.1000000D+01
         E(73) = 0.9057000D+00
         P(73) = 0.1000000D+01
         E(74) = 0.4140000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.1836000D+00
         P(75) = 0.1000000D+01
         E(76) = 0.7859000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.6242800D+01
         D(77) = 0.1000000D+01
         E(78) = 0.2690600D+01
         D(78) = 0.1000000D+01
         E(79) = 0.1159600D+01
         D(79) = 0.1000000D+01
         E(80) = 0.4998000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.2154000D+00
         D(81) = 0.1000000D+01
         E(82) = 0.2532700D+01
         F(82) = 0.1000000D+01
         E(83) = 0.1240600D+01
         F(83) = 0.1000000D+01
         E(84) = 0.6077000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.2977000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.1538800D+01
         G(86) = 0.1000000D+01
         E(87) = 0.8050000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.4212000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.1561300D+01
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.7397000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.1257200D+01
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.1457000D+06
         S(1) = 0.2367000D-03
         E(2) = 0.2184000D+05
         S(2) = 0.1835230D-02
         E(3) = 0.4972000D+04
         S(3) = 0.9528600D-02
         E(4) = 0.1408000D+04
         S(4) = 0.3862830D-01
         E(5) = 0.4597000D+03
         S(5) = 0.1240810D+00
         E(6) = 0.1659000D+03
         S(6) = 0.2964710D+00
         E(7) = 0.6469000D+02
         S(7) = 0.4220680D+00
         E(8) = 0.2644000D+02
         S(8) = 0.2417110D+00
         E(9) = 0.7628000D+01
         S(9) = 0.2005090D-01
         E(10) = 0.2996000D+01
         S(10) = -.3610000D-02
         E(11) = 0.6504000D+00
         S(11) = 0.9756070D-03
         E(12) = 0.1457000D+06
         S(12) = -.6749100D-04
         E(13) = 0.2184000D+05
         S(13) = -.5185220D-03
         E(14) = 0.4972000D+04
         S(14) = -.2748250D-02
         E(15) = 0.1408000D+04
         S(15) = -.1110070D-01
         E(16) = 0.4597000D+03
         S(16) = -.3848200D-01
         E(17) = 0.1659000D+03
         S(17) = -.9975990D-01
         E(18) = 0.6469000D+02
         S(18) = -.2030880D+00
         E(19) = 0.2644000D+02
         S(19) = -.1356080D+00
         E(20) = 0.7628000D+01
         S(20) = 0.5071950D+00
         E(21) = 0.2996000D+01
         S(21) = 0.6128980D+00
         E(22) = 0.6504000D+00
         S(22) = 0.4429680D-01
         E(23) = 0.1457000D+06
         S(23) = 0.2104570D-04
         E(24) = 0.2184000D+05
         S(24) = 0.1625650D-03
         E(25) = 0.4972000D+04
         S(25) = 0.8554630D-03
         E(26) = 0.1408000D+04
         S(26) = 0.3497450D-02
         E(27) = 0.4597000D+03
         S(27) = 0.1201560D-01
         E(28) = 0.1659000D+03
         S(28) = 0.3213680D-01
         E(29) = 0.6469000D+02
         S(29) = 0.6552790D-01
         E(30) = 0.2644000D+02
         S(30) = 0.4993700D-01
         E(31) = 0.7628000D+01
         S(31) = -.2297690D+00
         E(32) = 0.2996000D+01
         S(32) = -.4210060D+00
         E(33) = 0.6504000D+00
         S(33) = 0.6423310D+00
         E(34) = 0.2337000D+00
         S(34) = 0.1000000D+01
         E(35) = 0.4537000D+03
         P(35) = 0.5705550D-02
         E(36) = 0.1068000D+03
         P(36) = 0.4304600D-01
         E(37) = 0.3373000D+02
         P(37) = 0.1765910D+00
         E(38) = 0.1213000D+02
         P(38) = 0.4068630D+00
         E(39) = 0.4594000D+01
         P(39) = 0.4525490D+00
         E(40) = 0.1678000D+01
         P(40) = 0.1228010D+00
         E(41) = 0.5909000D+00
         P(41) = -.4459960D-02
         E(42) = 0.4537000D+03
         P(42) = -.1606550D-02
         E(43) = 0.1068000D+03
         P(43) = -.1217140D-01
         E(44) = 0.3373000D+02
         P(44) = -.5207890D-01
         E(45) = 0.1213000D+02
         P(45) = -.1237370D+00
         E(46) = 0.4594000D+01
         P(46) = -.1516190D+00
         E(47) = 0.1678000D+01
         P(47) = 0.1424250D+00
         E(48) = 0.5909000D+00
         P(48) = 0.5845010D+00
         E(49) = 0.1852000D+00
         P(49) = 0.1000000D+01
         E(50) = 0.7380000D+00
         D(50) = 0.1000000D+01
         ILAST = 50
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.5450000D+06
         S(1) = 0.4558280D-04
         E(2) = 0.8164000D+05
         S(2) = 0.3541080D-03
         E(3) = 0.1858000D+05
         S(3) = 0.1857970D-02
         E(4) = 0.5261000D+04
         S(4) = 0.7768510D-02
         E(5) = 0.1717000D+04
         S(5) = 0.2742320D-01
         E(6) = 0.6199000D+03
         S(6) = 0.8238360D-01
         E(7) = 0.2416000D+03
         S(7) = 0.2012300D+00
         E(8) = 0.9979000D+02
         S(8) = 0.3567810D+00
         E(9) = 0.4315000D+02
         S(9) = 0.3495630D+00
         E(10) = 0.1914000D+02
         S(10) = 0.1182660D+00
         E(11) = 0.7488000D+01
         S(11) = 0.5601900D-02
         E(12) = 0.3205000D+01
         S(12) = 0.4834730D-03
         E(13) = 0.5204000D+00
         S(13) = 0.2920250D-04
         E(14) = 0.5450000D+06
         S(14) = -.1295510D-04
         E(15) = 0.8164000D+05
         S(15) = -.1004280D-03
         E(16) = 0.1858000D+05
         S(16) = -.5295830D-03
         E(17) = 0.5261000D+04
         S(17) = -.2213960D-02
         E(18) = 0.1717000D+04
         S(18) = -.7968450D-02
         E(19) = 0.6199000D+03
         S(19) = -.2458030D-01
         E(20) = 0.2416000D+03
         S(20) = -.6577980D-01
         E(21) = 0.9979000D+02
         S(21) = -.1379420D+00
         E(22) = 0.4315000D+02
         S(22) = -.2016300D+00
         E(23) = 0.1914000D+02
         S(23) = -.4128340D-01
         E(24) = 0.7488000D+01
         S(24) = 0.4846800D+00
         E(25) = 0.3205000D+01
         S(25) = 0.5792240D+00
         E(26) = 0.5204000D+00
         S(26) = -.7275530D-02
         E(27) = 0.5450000D+06
         S(27) = 0.4049900D-05
         E(28) = 0.8164000D+05
         S(28) = 0.3136910D-04
         E(29) = 0.1858000D+05
         S(29) = 0.1656460D-03
         E(30) = 0.5261000D+04
         S(30) = 0.6916620D-03
         E(31) = 0.1717000D+04
         S(31) = 0.2497900D-02
         E(32) = 0.6199000D+03
         S(32) = 0.7710740D-02
         E(33) = 0.2416000D+03
         S(33) = 0.2087140D-01
         E(34) = 0.9979000D+02
         S(34) = 0.4439650D-01
         E(35) = 0.4315000D+02
         S(35) = 0.6802240D-01
         E(36) = 0.1914000D+02
         S(36) = 0.1413500D-01
         E(37) = 0.7488000D+01
         S(37) = -.2074890D+00
         E(38) = 0.3205000D+01
         S(38) = -.4250450D+00
         E(39) = 0.5204000D+00
         S(39) = 0.7336270D+00
         E(40) = 0.1196000D+01
         S(40) = 0.1000000D+01
         E(41) = 0.1954000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.7618000D+03
         P(42) = 0.2369760D-02
         E(43) = 0.1802000D+03
         P(43) = 0.1901990D-01
         E(44) = 0.5750000D+02
         P(44) = 0.8808070D-01
         E(45) = 0.2124000D+02
         P(45) = 0.2563770D+00
         E(46) = 0.8388000D+01
         P(46) = 0.4387110D+00
         E(47) = 0.3416000D+01
         P(47) = 0.3475690D+00
         E(48) = 0.4523000D+00
         P(48) = -.5238820D-02
         E(49) = 0.7618000D+03
         P(49) = -.6672110D-03
         E(50) = 0.1802000D+03
         P(50) = -.5327170D-02
         E(51) = 0.5750000D+02
         P(51) = -.2554940D-01
         E(52) = 0.2124000D+02
         P(52) = -.7571970D-01
         E(53) = 0.8388000D+01
         P(53) = -.1411330D+00
         E(54) = 0.3416000D+01
         P(54) = -.9327680D-01
         E(55) = 0.4523000D+00
         P(55) = 0.5624500D+00
         E(56) = 0.1206000D+01
         P(56) = 0.1000000D+01
         E(57) = 0.1545000D+00
         P(57) = 0.1000000D+01
         E(58) = 0.4100000D+00
         D(58) = 0.1000000D+01
         E(59) = 0.1254000D+01
         D(59) = 0.1000000D+01
         E(60) = 0.8900000D+00
         F(60) = 0.1000000D+01
         ILAST = 60
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.9506000D+06
         S(1) = 0.2275450D-04
         E(2) = 0.1423000D+06
         S(2) = 0.1769450D-03
         E(3) = 0.3236000D+05
         S(3) = 0.9312820D-03
         E(4) = 0.9145000D+04
         S(4) = 0.3928600D-02
         E(5) = 0.2970000D+04
         S(5) = 0.1420640D-01
         E(6) = 0.1064000D+04
         S(6) = 0.4481140D-01
         E(7) = 0.4108000D+03
         S(7) = 0.1210010D+00
         E(8) = 0.1680000D+03
         S(8) = 0.2605790D+00
         E(9) = 0.7199000D+02
         S(9) = 0.3813640D+00
         E(10) = 0.3167000D+02
         S(10) = 0.2760580D+00
         E(11) = 0.1289000D+02
         S(11) = 0.5051790D-01
         E(12) = 0.5929000D+01
         S(12) = -.3598660D-02
         E(13) = 0.2678000D+01
         S(13) = 0.2187980D-02
         E(14) = 0.9506000D+06
         S(14) = -.6462010D-05
         E(15) = 0.1423000D+06
         S(15) = -.5023460D-04
         E(16) = 0.3236000D+05
         S(16) = -.2648040D-03
         E(17) = 0.9145000D+04
         S(17) = -.1118950D-02
         E(18) = 0.2970000D+04
         S(18) = -.4082760D-02
         E(19) = 0.1064000D+04
         S(19) = -.1312160D-01
         E(20) = 0.4108000D+03
         S(20) = -.3728550D-01
         E(21) = 0.1680000D+03
         S(21) = -.8947090D-01
         E(22) = 0.7199000D+02
         S(22) = -.1680540D+00
         E(23) = 0.3167000D+02
         S(23) = -.1795940D+00
         E(24) = 0.1289000D+02
         S(24) = 0.1029530D+00
         E(25) = 0.5929000D+01
         S(25) = 0.5626300D+00
         E(26) = 0.2678000D+01
         S(26) = 0.4503550D+00
         E(27) = 0.9506000D+06
         S(27) = 0.2020560D-05
         E(28) = 0.1423000D+06
         S(28) = 0.1568510D-04
         E(29) = 0.3236000D+05
         S(29) = 0.8286170D-04
         E(30) = 0.9145000D+04
         S(30) = 0.3492640D-03
         E(31) = 0.2970000D+04
         S(31) = 0.1279760D-02
         E(32) = 0.1064000D+04
         S(32) = 0.4103650D-02
         E(33) = 0.4108000D+03
         S(33) = 0.1177890D-01
         E(34) = 0.1680000D+03
         S(34) = 0.2838680D-01
         E(35) = 0.7199000D+02
         S(35) = 0.5524060D-01
         E(36) = 0.3167000D+02
         S(36) = 0.6074920D-01
         E(37) = 0.1289000D+02
         S(37) = -.3620120D-01
         E(38) = 0.5929000D+01
         S(38) = -.2753980D+00
         E(39) = 0.2678000D+01
         S(39) = -.3628450D+00
         E(40) = 0.9416000D+00
         S(40) = 0.1000000D+01
         E(41) = 0.4239000D+00
         S(41) = 0.1000000D+01
         E(42) = 0.1714000D+00
         S(42) = 0.1000000D+01
         E(43) = 0.1890000D+04
         P(43) = 0.4957520D-03
         E(44) = 0.4478000D+03
         P(44) = 0.4251720D-02
         E(45) = 0.1446000D+03
         P(45) = 0.2232770D-01
         E(46) = 0.5446000D+02
         P(46) = 0.8308780D-01
         E(47) = 0.2251000D+02
         P(47) = 0.2171100D+00
         E(48) = 0.9774000D+01
         P(48) = 0.3745070D+00
         E(49) = 0.4368000D+01
         P(49) = 0.3664450D+00
         E(50) = 0.1959000D+01
         P(50) = 0.1292450D+00
         E(51) = 0.1890000D+04
         P(51) = -.1388630D-03
         E(52) = 0.4478000D+03
         P(52) = -.1188700D-02
         E(53) = 0.1446000D+03
         P(53) = -.6325530D-02
         E(54) = 0.5446000D+02
         P(54) = -.2388130D-01
         E(55) = 0.2251000D+02
         P(55) = -.6492380D-01
         E(56) = 0.9774000D+01
         P(56) = -.1154440D+00
         E(57) = 0.4368000D+01
         P(57) = -.1236510D+00
         E(58) = 0.1959000D+01
         P(58) = 0.6490550D-01
         E(59) = 0.8260000D+00
         P(59) = 0.1000000D+01
         E(60) = 0.3297000D+00
         P(60) = 0.1000000D+01
         E(61) = 0.1242000D+00
         P(61) = 0.1000000D+01
         E(62) = 0.3110000D+00
         D(62) = 0.1000000D+01
         E(63) = 0.7630000D+00
         D(63) = 0.1000000D+01
         E(64) = 0.1873000D+01
         D(64) = 0.1000000D+01
         E(65) = 0.5430000D+00
         F(65) = 0.1000000D+01
         E(66) = 0.1325000D+01
         F(66) = 0.1000000D+01
         E(67) = 0.1007000D+01
         G(67) = 0.1000000D+01
         ILAST = 67
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.7401000D+07
         S(1) = 0.1750000D-05
         E(2) = 0.1108000D+07
         S(2) = 0.1361000D-04
         E(3) = 0.2521000D+06
         S(3) = 0.7163000D-04
         E(4) = 0.7138000D+05
         S(4) = 0.3030300D-03
         E(5) = 0.2326000D+05
         S(5) = 0.1106080D-02
         E(6) = 0.8390000D+04
         S(6) = 0.3606710D-02
         E(7) = 0.3271000D+04
         S(7) = 0.1071321D-01
         E(8) = 0.1357000D+04
         S(8) = 0.2910677D-01
         E(9) = 0.5920000D+03
         S(9) = 0.7166011D-01
         E(10) = 0.2691000D+03
         S(10) = 0.1541405D+00
         E(11) = 0.1265000D+03
         S(11) = 0.2704171D+00
         E(12) = 0.6103000D+02
         S(12) = 0.3348547D+00
         E(13) = 0.2986000D+02
         S(13) = 0.2243463D+00
         E(14) = 0.1417000D+02
         S(14) = 0.5000284D-01
         E(15) = 0.7022000D+01
         S(15) = 0.6459000D-04
         E(16) = 0.3511000D+01
         S(16) = 0.1686410D-02
         E(17) = 0.7401000D+07
         S(17) = -.5000000D-06
         E(18) = 0.1108000D+07
         S(18) = -.3870000D-05
         E(19) = 0.2521000D+06
         S(19) = -.2034000D-04
         E(20) = 0.7138000D+05
         S(20) = -.8609000D-04
         E(21) = 0.2326000D+05
         S(21) = -.3144400D-03
         E(22) = 0.8390000D+04
         S(22) = -.1028410D-02
         E(23) = 0.3271000D+04
         S(23) = -.3072670D-02
         E(24) = 0.1357000D+04
         S(24) = -.8475320D-02
         E(25) = 0.5920000D+03
         S(25) = -.2152008D-01
         E(26) = 0.2691000D+03
         S(26) = -.4944932D-01
         E(27) = 0.1265000D+03
         S(27) = -.9877592D-01
         E(28) = 0.6103000D+02
         S(28) = -.1583082D+00
         E(29) = 0.2986000D+02
         S(29) = -.1514030D+00
         E(30) = 0.1417000D+02
         S(30) = 0.5824264D-01
         E(31) = 0.7022000D+01
         S(31) = 0.4293830D+00
         E(32) = 0.3511000D+01
         S(32) = 0.4990888D+00
         E(33) = 0.7401000D+07
         S(33) = 0.1600000D-06
         E(34) = 0.1108000D+07
         S(34) = 0.1210000D-05
         E(35) = 0.2521000D+06
         S(35) = 0.6360000D-05
         E(36) = 0.7138000D+05
         S(36) = 0.2689000D-04
         E(37) = 0.2326000D+05
         S(37) = 0.9834000D-04
         E(38) = 0.8390000D+04
         S(38) = 0.3212900D-03
         E(39) = 0.3271000D+04
         S(39) = 0.9620000D-03
         E(40) = 0.1357000D+04
         S(40) = 0.2652450D-02
         E(41) = 0.5920000D+03
         S(41) = 0.6770350D-02
         E(42) = 0.2691000D+03
         S(42) = 0.1561727D-01
         E(43) = 0.1265000D+03
         S(43) = 0.3171666D-01
         E(44) = 0.6103000D+02
         S(44) = 0.5199742D-01
         E(45) = 0.2986000D+02
         S(45) = 0.5247514D-01
         E(46) = 0.1417000D+02
         S(46) = -.2264147D-01
         E(47) = 0.7022000D+01
         S(47) = -.1860623D+00
         E(48) = 0.3511000D+01
         S(48) = -.3501455D+00
         E(49) = 0.1758000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.7841000D+00
         S(50) = 0.1000000D+01
         E(51) = 0.3480000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.1491000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.2927000D+04
         P(53) = 0.2319900D-03
         E(54) = 0.6935000D+03
         P(54) = 0.2023290D-02
         E(55) = 0.2247000D+03
         P(55) = 0.1103401D-01
         E(56) = 0.8517000D+02
         P(56) = 0.4383970D-01
         E(57) = 0.3553000D+02
         P(57) = 0.1303590D+00
         E(58) = 0.1573000D+02
         P(58) = 0.2757499D+00
         E(59) = 0.7165000D+01
         P(59) = 0.3876433D+00
         E(60) = 0.3322000D+01
         P(60) = 0.2874074D+00
         E(61) = 0.2927000D+04
         P(61) = -.6491000D-04
         E(62) = 0.6935000D+03
         P(62) = -.5653100D-03
         E(63) = 0.2247000D+03
         P(63) = -.3109880D-02
         E(64) = 0.8517000D+02
         P(64) = -.1246964D-01
         E(65) = 0.3553000D+02
         P(65) = -.3822465D-01
         E(66) = 0.1573000D+02
         P(66) = -.8307918D-01
         E(67) = 0.7165000D+01
         P(67) = -.1245941D+00
         E(68) = 0.3322000D+01
         P(68) = -.8329713D-01
         E(69) = 0.1478000D+01
         P(69) = 0.1000000D+01
         E(70) = 0.6552000D+00
         P(70) = 0.1000000D+01
         E(71) = 0.2751000D+00
         P(71) = 0.1000000D+01
         E(72) = 0.1097000D+00
         P(72) = 0.1000000D+01
         E(73) = 0.3090000D+00
         D(73) = 0.1000000D+01
         E(74) = 0.7700000D+00
         D(74) = 0.1000000D+01
         E(75) = 0.1917000D+01
         D(75) = 0.1000000D+01
         E(76) = 0.4776000D+01
         D(76) = 0.1000000D+01
         E(77) = 0.4080000D+00
         F(77) = 0.1000000D+01
         E(78) = 0.8250000D+00
         F(78) = 0.1000000D+01
         E(79) = 0.1668000D+01
         F(79) = 0.1000000D+01
         E(80) = 0.6650000D+00
         G(80) = 0.1000000D+01
         E(81) = 0.1562000D+01
         G(81) = 0.1000000D+01
CFRJ     E(82) = 0.1264000D+01
CFRJ     H(82) = 0.1000000D+01
         ILAST = 81
      ELSE IF (NTMP.EQ.5) THEN
         E(1) = 0.9149000D+07
         S(1) = 0.1300000D-05
         E(2) = 0.1370000D+07
         S(2) = 0.1040000D-04
         E(3) = 0.3119000D+06
         S(3) = 0.5490000D-04
         E(4) = 0.8865000D+05
         S(4) = 0.2296000D-03
         E(5) = 0.2933000D+05
         S(5) = 0.8103000D-03
         E(6) = 0.1093000D+05
         S(6) = 0.2485300D-02
         E(7) = 0.4480000D+04
         S(7) = 0.6836900D-02
         E(8) = 0.1962000D+04
         S(8) = 0.1761990D-01
         E(9) = 0.8941000D+03
         S(9) = 0.4287520D-01
         E(10) = 0.4196000D+03
         S(10) = 0.9548530D-01
         E(11) = 0.2023000D+03
         S(11) = 0.1850640D+00
         E(12) = 0.9984000D+02
         S(12) = 0.2890420D+00
         E(13) = 0.5007000D+02
         S(13) = 0.3101660D+00
         E(14) = 0.2514000D+02
         S(14) = 0.1721830D+00
         E(15) = 0.1181000D+02
         S(15) = 0.2852270D-01
         E(16) = 0.5882000D+01
         S(16) = -.5757000D-03
         E(17) = 0.9149000D+07
         S(17) = -.4000000D-06
         E(18) = 0.1370000D+07
         S(18) = -.3000000D-05
         E(19) = 0.3119000D+06
         S(19) = -.1560000D-04
         E(20) = 0.8865000D+05
         S(20) = -.6520000D-04
         E(21) = 0.2933000D+05
         S(21) = -.2304000D-03
         E(22) = 0.1093000D+05
         S(22) = -.7075000D-03
         E(23) = 0.4480000D+04
         S(23) = -.1957300D-02
         E(24) = 0.1962000D+04
         S(24) = -.5085600D-02
         E(25) = 0.8941000D+03
         S(25) = -.1265280D-01
         E(26) = 0.4196000D+03
         S(26) = -.2930650D-01
         E(27) = 0.2023000D+03
         S(27) = -.6177120D-01
         E(28) = 0.9984000D+02
         S(28) = -.1125410D+00
         E(29) = 0.5007000D+02
         S(29) = -.1622930D+00
         E(30) = 0.2514000D+02
         S(30) = -.1184120D+00
         E(31) = 0.1181000D+02
         S(31) = 0.1461480D+00
         E(32) = 0.5882000D+01
         S(32) = 0.4977520D+00
         E(33) = 0.9149000D+07
         S(33) = 0.1000000D-06
         E(34) = 0.1370000D+07
         S(34) = 0.9000000D-06
         E(35) = 0.3119000D+06
         S(35) = 0.4900000D-05
         E(36) = 0.8865000D+05
         S(36) = 0.2040000D-04
         E(37) = 0.2933000D+05
         S(37) = 0.7200000D-04
         E(38) = 0.1093000D+05
         S(38) = 0.2210000D-03
         E(39) = 0.4480000D+04
         S(39) = 0.6125000D-03
         E(40) = 0.1962000D+04
         S(40) = 0.1590800D-02
         E(41) = 0.8941000D+03
         S(41) = 0.3972200D-02
         E(42) = 0.4196000D+03
         S(42) = 0.9220400D-02
         E(43) = 0.2023000D+03
         S(43) = 0.1963670D-01
         E(44) = 0.9984000D+02
         S(44) = 0.3625700D-01
         E(45) = 0.5007000D+02
         S(45) = 0.5417250D-01
         E(46) = 0.2514000D+02
         S(46) = 0.4099960D-01
         E(47) = 0.1181000D+02
         S(47) = -.5517440D-01
         E(48) = 0.5882000D+01
         S(48) = -.2387540D+00
         E(49) = 0.2939000D+01
         S(49) = 0.1000000D+01
         E(50) = 0.1405000D+01
         S(50) = 0.1000000D+01
         E(51) = 0.6963000D+00
         S(51) = 0.1000000D+01
         E(52) = 0.3188000D+00
         S(52) = 0.1000000D+01
         E(53) = 0.1410000D+00
         S(53) = 0.1000000D+01
         E(54) = 0.7050000D+04
         P(54) = 0.5020000D-04
         E(55) = 0.1669000D+04
         P(55) = 0.4454000D-03
         E(56) = 0.5421000D+03
         P(56) = 0.2548000D-02
         E(57) = 0.2071000D+03
         P(57) = 0.1101550D-01
         E(58) = 0.8752000D+02
         P(58) = 0.3784900D-01
         E(59) = 0.3961000D+02
         P(59) = 0.1043550D+00
         E(60) = 0.1878000D+02
         P(60) = 0.2193350D+00
         E(61) = 0.9130000D+01
         P(61) = 0.3346150D+00
         E(62) = 0.4516000D+01
         P(62) = 0.3267710D+00
         E(63) = 0.7050000D+04
         P(63) = -.1400000D-04
         E(64) = 0.1669000D+04
         P(64) = -.1243000D-03
         E(65) = 0.5421000D+03
         P(65) = -.7147000D-03
         E(66) = 0.2071000D+03
         P(66) = -.3096800D-02
         E(67) = 0.8752000D+02
         P(67) = -.1079610D-01
         E(68) = 0.3961000D+02
         P(68) = -.3035360D-01
         E(69) = 0.1878000D+02
         P(69) = -.6597850D-01
         E(70) = 0.9130000D+01
         P(70) = -.1038770D+00
         E(71) = 0.4516000D+01
         P(71) = -.1099560D+00
         E(72) = 0.2245000D+01
         P(72) = 0.1000000D+01
         E(73) = 0.1065000D+01
         P(73) = 0.1000000D+01
         E(74) = 0.4885000D+00
         P(74) = 0.1000000D+01
         E(75) = 0.2166000D+00
         P(75) = 0.1000000D+01
         E(76) = 0.9255000D-01
         P(76) = 0.1000000D+01
         E(77) = 0.7632700D+01
         D(77) = 0.1000000D+01
         E(78) = 0.3287600D+01
         D(78) = 0.1000000D+01
         E(79) = 0.1416000D+01
         D(79) = 0.1000000D+01
         E(80) = 0.6099000D+00
         D(80) = 0.1000000D+01
         E(81) = 0.2627000D+00
         D(81) = 0.1000000D+01
         E(82) = 0.3058200D+01
         F(82) = 0.1000000D+01
         E(83) = 0.1529200D+01
         F(83) = 0.1000000D+01
         E(84) = 0.7647000D+00
         F(84) = 0.1000000D+01
         E(85) = 0.3824000D+00
         F(85) = 0.1000000D+01
         E(86) = 0.1845000D+01
         G(86) = 0.1000000D+01
         E(87) = 0.9657000D+00
         G(87) = 0.1000000D+01
         E(88) = 0.5055000D+00
         G(88) = 0.1000000D+01
CFRJ     E(89) = 0.1874300D+01
CFRJ     H(89) = 0.1000000D+01
CFRJ     E(90) = 0.8871000D+00
CFRJ     H(90) = 0.1000000D+01
CFRJ     E(91) = 0.1506600D+01
CFRJ     I(91) = 0.1000000D+01
         ILAST = 88
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK CCN004
      SUBROUTINE CCN004(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      IF (NTMP.GE.5) GOTO 910
      IF(N.EQ.21) GO TO 121
      IF(N.EQ.22) GO TO 122
      IF(N.EQ.23) GO TO 123
      IF(N.EQ.24) GO TO 124
      IF(N.EQ.25) GO TO 125
      IF(N.EQ.26) GO TO 126
      IF(N.EQ.27) GO TO 127
      IF(N.EQ.28) GO TO 128
      IF(N.EQ.29) GO TO 129
      IF(N.EQ.30) GO TO 130
      IF(N.LT.21) NN = N-18
      IF(N.GT.30) NN = N-30+2
      GO TO (100,120,140,160,180,200,220,240),NN
C
  100 CONTINUE
      IF (MASWRK) WRITE(6,*) 'CC-PVNZ BASIS DOES NOT EXIST FOR K.'
      CALL BERROR(3)
      STOP
C
C     ----- CA -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         S(1) = 0.2214500D-03
         E(2) = 0.2848146D+05
         S(2) = 0.1718300D-02
         E(3) = 0.6482701D+04
         S(3) = 0.8923480D-02
         E(4) = 0.1835891D+04
         S(4) = 0.3630183D-01
         E(5) = 0.5987243D+03
         S(5) = 0.1176222D+00
         E(6) = 0.2158841D+03
         S(6) = 0.2860435D+00
         E(7) = 0.8401242D+02
         S(7) = 0.4226071D+00
         E(8) = 0.3422488D+02
         S(8) = 0.2577437D+00
         E(9) = 0.1002497D+02
         S(9) = 0.2391893D-01
         E(10) = 0.4055920D+01
         S(10) = -.4952180D-02
         E(11) = 0.1020261D+01
         S(11) = 0.1717790D-02
         E(12) = 0.4268650D+00
         S(12) = -.8920900D-03
         E(13) = 0.6334700D-01
         S(13) = 0.2451000D-03
         E(14) = 0.1900007D+06
         S(14) = -.6453000D-04
         E(15) = 0.2848146D+05
         S(15) = -.4966200D-03
         E(16) = 0.6482701D+04
         S(16) = -.2628260D-02
         E(17) = 0.1835891D+04
         S(17) = -.1066845D-01
         E(18) = 0.5987243D+03
         S(18) = -.3713509D-01
         E(19) = 0.2158841D+03
         S(19) = -.9804284D-01
         E(20) = 0.8401242D+02
         S(20) = -.2034269D+00
         E(21) = 0.3422488D+02
         S(21) = -.1524465D+00
         E(22) = 0.1002497D+02
         S(22) = 0.4827941D+00
         E(23) = 0.4055920D+01
         S(23) = 0.6292384D+00
         E(24) = 0.1020261D+01
         S(24) = 0.6164842D-01
         E(25) = 0.4268650D+00
         S(25) = -.1479971D-01
         E(26) = 0.6334700D-01
         S(26) = 0.3610890D-02
         E(27) = 0.1900007D+06
         S(27) = 0.2223000D-04
         E(28) = 0.2848146D+05
         S(28) = 0.1717000D-03
         E(29) = 0.6482701D+04
         S(29) = 0.9045200D-03
         E(30) = 0.1835891D+04
         S(30) = 0.3703430D-02
         E(31) = 0.5987243D+03
         S(31) = 0.1283750D-01
         E(32) = 0.2158841D+03
         S(32) = 0.3475459D-01
         E(33) = 0.8401242D+02
         S(33) = 0.7303491D-01
         E(34) = 0.3422488D+02
         S(34) = 0.6100083D-01
         E(35) = 0.1002497D+02
         S(35) = -.2429293D+00
         E(36) = 0.4055920D+01
         S(36) = -.4870850D+00
         E(37) = 0.1020261D+01
         S(37) = 0.5650280D+00
         E(38) = 0.4268650D+00
         S(38) = 0.6557439D+00
         E(39) = 0.6334700D-01
         S(39) = 0.2672894D-01
         E(40) = 0.1900007D+06
         S(40) = 0.5310000D-05
         E(41) = 0.2848146D+05
         S(41) = 0.4111000D-04
         E(42) = 0.6482701D+04
         S(42) = 0.2156800D-03
         E(43) = 0.1835891D+04
         S(43) = 0.8882700D-03
         E(44) = 0.5987243D+03
         S(44) = 0.3058130D-02
         E(45) = 0.2158841D+03
         S(45) = 0.8376080D-02
         E(46) = 0.8401242D+02
         S(46) = 0.1741056D-01
         E(47) = 0.3422488D+02
         S(47) = 0.1515453D-01
         E(48) = 0.1002497D+02
         S(48) = -.6207919D-01
         E(49) = 0.4055920D+01
         S(49) = -.1261180D+00
         E(50) = 0.1020261D+01
         S(50) = 0.1736069D+00
         E(51) = 0.4268650D+00
         S(51) = 0.3782294D+00
         E(52) = 0.6334700D-01
         S(52) = -.6596470D+00
         E(53) = 0.2630100D-01
         S(53) = 0.1000000D+01
         E(54) = 0.1072043D+04
         P(54) = 0.1981660D-02
         E(55) = 0.2538439D+03
         P(55) = 0.1612944D-01
         E(56) = 0.8131626D+02
         P(56) = 0.7657851D-01
         E(57) = 0.3024183D+02
         P(57) = 0.2326959D+00
         E(58) = 0.1210110D+02
         P(58) = 0.4244521D+00
         E(59) = 0.5022554D+01
         P(59) = 0.3732640D+00
         E(60) = 0.1909220D+01
         P(60) = 0.7868530D-01
         E(61) = 0.7713040D+00
         P(61) = -.5999270D-02
         E(62) = 0.3005700D+00
         P(62) = 0.2642570D-02
         E(63) = 0.7664900D-01
         P(63) = -.8569400D-03
         E(64) = 0.1072043D+04
         P(64) = -.6489100D-03
         E(65) = 0.2538439D+03
         P(65) = -.5279070D-02
         E(66) = 0.8131626D+02
         P(66) = -.2581131D-01
         E(67) = 0.3024183D+02
         P(67) = -.8062892D-01
         E(68) = 0.1210110D+02
         P(68) = -.1584655D+00
         E(69) = 0.5022554D+01
         P(69) = -.1281682D+00
         E(70) = 0.1909220D+01
         P(70) = 0.2561010D+00
         E(71) = 0.7713040D+00
         P(71) = 0.5872407D+00
         E(72) = 0.3005700D+00
         P(72) = 0.3037256D+00
         E(73) = 0.7664900D-01
         P(73) = 0.1416451D-01
         E(74) = 0.1072043D+04
         P(74) = 0.1359500D-03
         E(75) = 0.2538439D+03
         P(75) = 0.1094200D-02
         E(76) = 0.8131626D+02
         P(76) = 0.5426800D-02
         E(77) = 0.3024183D+02
         P(77) = 0.1674718D-01
         E(78) = 0.1210110D+02
         P(78) = 0.3389863D-01
         E(79) = 0.5022554D+01
         P(79) = 0.2531183D-01
         E(80) = 0.1909220D+01
         P(80) = -.5895713D-01
         E(81) = 0.7713040D+00
         P(81) = -.1587612D+00
         E(82) = 0.3005700D+00
         P(82) = -.8554523D-01
         E(83) = 0.7664900D-01
         P(83) = 0.5446467D+00
         E(84) = 0.2777200D-01
         P(84) = 0.1000000D+01
         E(85) = 0.1031820D+02
         D(85) = 0.3284900D-01
         E(86) = 0.2592420D+01
         D(86) = 0.1481920D+00
         E(87) = 0.7617000D+00
         D(87) = 0.3109210D+00
         E(88) = 0.2083800D+00
         D(88) = 0.4521950D+00
         E(89) = 0.5370000D-01
         D(89) = 0.1000000D+01
         ILAST = 89
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.2402654D+07
         S(1) = 0.9310000D-05
         E(2) = 0.3597898D+06
         S(2) = 0.7239000D-04
         E(3) = 0.8187809D+05
         S(3) = 0.3805900D-03
         E(4) = 0.2319089D+05
         S(4) = 0.1604530D-02
         E(5) = 0.7565212D+04
         S(5) = 0.5807800D-02
         E(6) = 0.2730702D+04
         S(6) = 0.1859566D-01
         E(7) = 0.1064640D+04
         S(7) = 0.5287776D-01
         E(8) = 0.4410605D+03
         S(8) = 0.1301515D+00
         E(9) = 0.1917269D+03
         S(9) = 0.2593147D+00
         E(10) = 0.8653774D+02
         S(10) = 0.3614961D+00
         E(11) = 0.3989924D+02
         S(11) = 0.2641116D+00
         E(12) = 0.1764065D+02
         S(12) = 0.5709398D-01
         E(13) = 0.8359990D+01
         S(13) = -.1822000D-02
         E(14) = 0.3951330D+01
         S(14) = 0.2111640D-02
         E(15) = 0.1713400D+01
         S(15) = -.9770900D-03
         E(16) = 0.8108600D+00
         S(16) = 0.4558100D-03
         E(17) = 0.3602500D+00
         S(17) = -.1914600D-03
         E(18) = 0.4484000D-01
         S(18) = -.7874000D-04
         E(19) = 0.2402654D+07
         S(19) = -.2700000D-05
         E(20) = 0.3597898D+06
         S(20) = -.2102000D-04
         E(21) = 0.8187809D+05
         S(21) = -.1105200D-03
         E(22) = 0.2319089D+05
         S(22) = -.4666600D-03
         E(23) = 0.7565212D+04
         S(23) = -.1695130D-02
         E(24) = 0.2730702D+04
         S(24) = -.5483460D-02
         E(25) = 0.1064640D+04
         S(25) = -.1596597D-01
         E(26) = 0.4410605D+03
         S(26) = -.4151384D-01
         E(27) = 0.1917269D+03
         S(27) = -.9286387D-01
         E(28) = 0.8653774D+02
         S(28) = -.1653166D+00
         E(29) = 0.3989924D+02
         S(29) = -.1766407D+00
         E(30) = 0.1764065D+02
         S(30) = 0.6444422D-01
         E(31) = 0.8359990D+01
         S(31) = 0.5108796D+00
         E(32) = 0.3951330D+01
         S(32) = 0.4946380D+00
         E(33) = 0.1713400D+01
         S(33) = 0.8750094D-01
         E(34) = 0.8108600D+00
         S(34) = -.3591010D-02
         E(35) = 0.3602500D+00
         S(35) = 0.2492200D-02
         E(36) = 0.4484000D-01
         S(36) = 0.6458700D-03
         E(37) = 0.2402654D+07
         S(37) = 0.9300000D-06
         E(38) = 0.3597898D+06
         S(38) = 0.7250000D-05
         E(39) = 0.8187809D+05
         S(39) = 0.3811000D-04
         E(40) = 0.2319089D+05
         S(40) = 0.1610100D-03
         E(41) = 0.7565212D+04
         S(41) = 0.5846600D-03
         E(42) = 0.2730702D+04
         S(42) = 0.1895040D-02
         E(43) = 0.1064640D+04
         S(43) = 0.5525250D-02
         E(44) = 0.4410605D+03
         S(44) = 0.1447010D-01
         E(45) = 0.1917269D+03
         S(45) = 0.3271581D-01
         E(46) = 0.8653774D+02
         S(46) = 0.6003190D-01
         E(47) = 0.3989924D+02
         S(47) = 0.6701683D-01
         E(48) = 0.1764065D+02
         S(48) = -.2593660D-01
         E(49) = 0.8359990D+01
         S(49) = -.2674747D+00
         E(50) = 0.3951330D+01
         S(50) = -.4269726D+00
         E(51) = 0.1713400D+01
         S(51) = 0.6796405D-01
         E(52) = 0.8108600D+00
         S(52) = 0.7102054D+00
         E(53) = 0.3602500D+00
         S(53) = 0.4418006D+00
         E(54) = 0.4484000D-01
         S(54) = -.1186924D-01
         E(55) = 0.2402654D+07
         S(55) = -.2200000D-06
         E(56) = 0.3597898D+06
         S(56) = -.1730000D-05
         E(57) = 0.8187809D+05
         S(57) = -.9100000D-05
         E(58) = 0.2319089D+05
         S(58) = -.3844000D-04
         E(59) = 0.7565212D+04
         S(59) = -.1396500D-03
         E(60) = 0.2730702D+04
         S(60) = -.4525100D-03
         E(61) = 0.1064640D+04
         S(61) = -.1320380D-02
         E(62) = 0.4410605D+03
         S(62) = -.3458410D-02
         E(63) = 0.1917269D+03
         S(63) = -.7836860D-02
         E(64) = 0.8653774D+02
         S(64) = -.1441517D-01
         E(65) = 0.3989924D+02
         S(65) = -.1621648D-01
         E(66) = 0.1764065D+02
         S(66) = 0.6344200D-02
         E(67) = 0.8359990D+01
         S(67) = 0.6740626D-01
         E(68) = 0.3951330D+01
         S(68) = 0.1144740D+00
         E(69) = 0.1713400D+01
         S(69) = -.2634477D-01
         E(70) = 0.8108600D+00
         S(70) = -.2336989D+00
         E(71) = 0.3602500D+00
         S(71) = -.3160754D+00
         E(72) = 0.4484000D-01
         S(72) = 0.5611103D+00
         E(73) = 0.8108000D-01
         S(73) = 0.1000000D+01
         E(74) = 0.2143000D-01
         S(74) = 0.1000000D+01
         E(75) = 0.4061289D+04
         P(75) = 0.1979900D-03
         E(76) = 0.9622465D+03
         P(76) = 0.1732080D-02
         E(77) = 0.3121686D+03
         P(77) = 0.9533790D-02
         E(78) = 0.1187144D+03
         P(78) = 0.3839012D-01
         E(79) = 0.4980670D+02
         P(79) = 0.1167588D+00
         E(80) = 0.2225998D+02
         P(80) = 0.2562687D+00
         E(81) = 0.1028764D+02
         P(81) = 0.3797808D+00
         E(82) = 0.4861154D+01
         P(82) = 0.3082933D+00
         E(83) = 0.2248773D+01
         P(83) = 0.8592090D-01
         E(84) = 0.1033662D+01
         P(84) = 0.2120670D-02
         E(85) = 0.4641320D+00
         P(85) = 0.1288800D-02
         E(86) = 0.6739000D-01
         P(86) = 0.1472800D-03
         E(87) = 0.4061289D+04
         P(87) = -.6455000D-04
         E(88) = 0.9622465D+03
         P(88) = -.5645800D-03
         E(89) = 0.3121686D+03
         P(89) = -.3131250D-02
         E(90) = 0.1187144D+03
         P(90) = -.1274086D-01
         E(91) = 0.4980670D+02
         P(91) = -.3991403D-01
         E(92) = 0.2225998D+02
         P(92) = -.9050448D-01
         E(93) = 0.1028764D+02
         P(93) = -.1426190D+00
         E(94) = 0.4861154D+01
         P(94) = -.1098090D+00
         E(95) = 0.2248773D+01
         P(95) = 0.1516249D+00
         E(96) = 0.1033662D+01
         P(96) = 0.4617641D+00
         E(97) = 0.4641320D+00
         P(97) = 0.4326003D+00
         E(98) = 0.6739000D-01
         P(98) = 0.2528740D-02
         E(99) = 0.4061289D+04
         P(99) = 0.1336000D-04
         E(100) = 0.9622465D+03
         P(100) = 0.1185200D-03
         E(101) = 0.3121686D+03
         P(101) = 0.6487200D-03
         E(102) = 0.1187144D+03
         P(102) = 0.2679930D-02
         E(103) = 0.4980670D+02
         P(103) = 0.8285130D-02
         E(104) = 0.2225998D+02
         P(104) = 0.1921235D-01
         E(105) = 0.1028764D+02
         P(105) = 0.2954984D-01
         E(106) = 0.4861154D+01
         P(106) = 0.2431232D-01
         E(107) = 0.2248773D+01
         P(107) = -.4111230D-01
         E(108) = 0.1033662D+01
         P(108) = -.1041976D+00
         E(109) = 0.4641320D+00
         P(109) = -.1503654D+00
         E(110) = 0.6739000D-01
         P(110) = 0.5986116D+00
         E(111) = 0.1987500D+00
         P(111) = 0.1000000D+01
         E(112) = 0.2542000D-01
         P(112) = 0.1000000D+01
         E(113) = 0.1694623D+02
         D(113) = 0.1547300D-01
         E(114) = 0.4472120D+01
         D(114) = 0.7887400D-01
         E(115) = 0.1438090D+01
         D(115) = 0.2087800D+00
         E(116) = 0.4669900D+00
         D(116) = 0.3302130D+00
         E(117) = 0.1415100D+00
         D(117) = 0.1000000D+01
         E(118) = 0.4164000D-01
         D(118) = 0.1000000D+01
         E(119) = 0.1509000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.7503960D+07
         S(1) = 0.2240000D-05
         E(2) = 0.1123486D+07
         S(2) = 0.1744000D-04
         E(3) = 0.2556635D+06
         S(3) = 0.9177000D-04
         E(4) = 0.7241606D+05
         S(4) = 0.3876800D-03
         E(5) = 0.2362604D+05
         S(5) = 0.1411850D-02
         E(6) = 0.8529986D+04
         S(6) = 0.4593590D-02
         E(7) = 0.3327341D+04
         S(7) = 0.1359733D-01
         E(8) = 0.1380354D+04
         S(8) = 0.3667360D-01
         E(9) = 0.6022149D+03
         S(9) = 0.8872076D-01
         E(10) = 0.2738874D+03
         S(10) = 0.1841489D+00
         E(11) = 0.1289451D+03
         S(11) = 0.3007422D+00
         E(12) = 0.6242299D+02
         S(12) = 0.3243482D+00
         E(13) = 0.3057437D+02
         S(13) = 0.1719575D+00
         E(14) = 0.1385522D+02
         S(14) = 0.2480933D-01
         E(15) = 0.6836204D+01
         S(15) = -.1034080D-02
         E(16) = 0.3378153D+01
         S(16) = 0.1012900D-02
         E(17) = 0.1491907D+01
         S(17) = -.4667800D-03
         E(18) = 0.7211400D+00
         S(18) = 0.1866200D-03
         E(19) = 0.3341520D+00
         S(19) = -.8808000D-04
         E(20) = 0.7503960D+07
         S(20) = -.6500000D-06
         E(21) = 0.1123486D+07
         S(21) = -.5070000D-05
         E(22) = 0.2556635D+06
         S(22) = -.2663000D-04
         E(23) = 0.7241606D+05
         S(23) = -.1126600D-03
         E(24) = 0.2362604D+05
         S(24) = -.4103000D-03
         E(25) = 0.8529986D+04
         S(25) = -.1341110D-02
         E(26) = 0.3327341D+04
         S(26) = -.3994040D-02
         E(27) = 0.1380354D+04
         S(27) = -.1098903D-01
         E(28) = 0.6022149D+03
         S(28) = -.2756447D-01
         E(29) = 0.2738874D+03
         S(29) = -.6216246D-01
         E(30) = 0.1289451D+03
         S(30) = -.1186048D+00
         E(31) = 0.6242299D+02
         S(31) = -.1741049D+00
         E(32) = 0.3057437D+02
         S(32) = -.1184771D+00
         E(33) = 0.1385522D+02
         S(33) = 0.1945747D+00
         E(34) = 0.6836204D+01
         S(34) = 0.5466113D+00
         E(35) = 0.3378153D+01
         S(35) = 0.3812632D+00
         E(36) = 0.1491907D+01
         S(36) = 0.5187853D-01
         E(37) = 0.7211400D+00
         S(37) = -.2049960D-02
         E(38) = 0.3341520D+00
         S(38) = 0.1688090D-02
         E(39) = 0.7503960D+07
         S(39) = 0.2200000D-06
         E(40) = 0.1123486D+07
         S(40) = 0.1750000D-05
         E(41) = 0.2556635D+06
         S(41) = 0.9180000D-05
         E(42) = 0.7241606D+05
         S(42) = 0.3888000D-04
         E(43) = 0.2362604D+05
         S(43) = 0.1413800D-03
         E(44) = 0.8529986D+04
         S(44) = 0.4632400D-03
         E(45) = 0.3327341D+04
         S(45) = 0.1377310D-02
         E(46) = 0.1380354D+04
         S(46) = 0.3807860D-02
         E(47) = 0.6022149D+03
         S(47) = 0.9556410D-02
         E(48) = 0.2738874D+03
         S(48) = 0.2183132D-01
         E(49) = 0.1289451D+03
         S(49) = 0.4214951D-01
         E(50) = 0.6242299D+02
         S(50) = 0.6462845D-01
         E(51) = 0.3057437D+02
         S(51) = 0.4535983D-01
         E(52) = 0.1385522D+02
         S(52) = -.8249853D-01
         E(53) = 0.6836204D+01
         S(53) = -.3231511D+00
         E(54) = 0.3378153D+01
         S(54) = -.3606350D+00
         E(55) = 0.1491907D+01
         S(55) = 0.2043895D+00
         E(56) = 0.7211400D+00
         S(56) = 0.6961009D+00
         E(57) = 0.3341520D+00
         S(57) = 0.3617750D+00
         E(58) = 0.7503960D+07
         S(58) = -.5000000D-07
         E(59) = 0.1123486D+07
         S(59) = -.4200000D-06
         E(60) = 0.2556635D+06
         S(60) = -.2190000D-05
         E(61) = 0.7241606D+05
         S(61) = -.9290000D-05
         E(62) = 0.2362604D+05
         S(62) = -.3374000D-04
         E(63) = 0.8529986D+04
         S(63) = -.1107000D-03
         E(64) = 0.3327341D+04
         S(64) = -.3286200D-03
         E(65) = 0.1380354D+04
         S(65) = -.9105000D-03
         E(66) = 0.6022149D+03
         S(66) = -.2280900D-02
         E(67) = 0.2738874D+03
         S(67) = -.5230950D-02
         E(68) = 0.1289451D+03
         S(68) = -.1008361D-01
         E(69) = 0.6242299D+02
         S(69) = -.1561294D-01
         E(70) = 0.3057437D+02
         S(70) = -.1088338D-01
         E(71) = 0.1385522D+02
         S(71) = 0.1995768D-01
         E(72) = 0.6836204D+01
         S(72) = 0.8348860D-01
         E(73) = 0.3378153D+01
         S(73) = 0.9594951D-01
         E(74) = 0.1491907D+01
         S(74) = -.6395772D-01
         E(75) = 0.7211400D+00
         S(75) = -.2452249D+00
         E(76) = 0.3341520D+00
         S(76) = -.2858467D+00
         E(77) = 0.8238200D-01
         S(77) = 0.1000000D+01
         E(78) = 0.4165500D-01
         S(78) = 0.1000000D+01
         E(79) = 0.1997300D-01
         S(79) = 0.1000000D+01
         E(80) = 0.9363010D+04
         P(80) = 0.4617000D-04
         E(81) = 0.2216255D+04
         P(81) = 0.4104900D-03
         E(82) = 0.7197596D+03
         P(82) = 0.2355670D-02
         E(83) = 0.2751728D+03
         P(83) = 0.1025491D-01
         E(84) = 0.1163924D+03
         P(84) = 0.3566035D-01
         E(85) = 0.5277770D+02
         P(85) = 0.9964056D-01
         E(86) = 0.2513188D+02
         P(86) = 0.2132063D+00
         E(87) = 0.1231416D+02
         P(87) = 0.3315352D+00
         E(88) = 0.6166797D+01
         P(88) = 0.3293426D+00
         E(89) = 0.3114279D+01
         P(89) = 0.1546641D+00
         E(90) = 0.1519013D+01
         P(90) = 0.2215526D-01
         E(91) = 0.7254350D+00
         P(91) = 0.5519100D-03
         E(92) = 0.3409260D+00
         P(92) = 0.1517700D-03
         E(93) = 0.9363010D+04
         P(93) = -.1505000D-04
         E(94) = 0.2216255D+04
         P(94) = -.1336100D-03
         E(95) = 0.7197596D+03
         P(95) = -.7701400D-03
         E(96) = 0.2751728D+03
         P(96) = -.3364530D-02
         E(97) = 0.1163924D+03
         P(97) = -.1186624D-01
         E(98) = 0.5277770D+02
         P(98) = -.3389423D-01
         E(99) = 0.2513188D+02
         P(99) = -.7514329D-01
         E(100) = 0.1231416D+02
         P(100) = -.1214435D+00
         E(101) = 0.6166797D+01
         P(101) = -.1292208D+00
         E(102) = 0.3114279D+01
         P(102) = 0.1587703D-01
         E(103) = 0.1519013D+01
         P(103) = 0.3085368D+00
         E(104) = 0.7254350D+00
         P(104) = 0.4728152D+00
         E(105) = 0.3409260D+00
         P(105) = 0.2941028D+00
         E(106) = 0.9363010D+04
         P(106) = 0.3130000D-05
         E(107) = 0.2216255D+04
         P(107) = 0.2795000D-04
         E(108) = 0.7197596D+03
         P(108) = 0.1600300D-03
         E(109) = 0.2751728D+03
         P(109) = 0.7041700D-03
         E(110) = 0.1163924D+03
         P(110) = 0.2469220D-02
         E(111) = 0.5277770D+02
         P(111) = 0.7118990D-02
         E(112) = 0.2513188D+02
         P(112) = 0.1569017D-01
         E(113) = 0.1231416D+02
         P(113) = 0.2578564D-01
         E(114) = 0.6166797D+01
         P(114) = 0.2693656D-01
         E(115) = 0.3114279D+01
         P(115) = -.4855860D-02
         E(116) = 0.1519013D+01
         P(116) = -.7654212D-01
         E(117) = 0.7254350D+00
         P(117) = -.1155446D+00
         E(118) = 0.3409260D+00
         P(118) = -.1212706D+00
         E(119) = 0.1440000D+00
         P(119) = 0.1000000D+01
         E(120) = 0.5800000D-01
         P(120) = 0.1000000D+01
         E(121) = 0.2316000D-01
         P(121) = 0.1000000D+01
         E(122) = 0.2627083D+02
         D(122) = 0.7346000D-02
         E(123) = 0.7307820D+01
         D(123) = 0.4090100D-01
         E(124) = 0.2454980D+01
         D(124) = 0.1300650D+00
         E(125) = 0.8871400D+00
         D(125) = 0.2441510D+00
         E(126) = 0.3092500D+00
         D(126) = 0.1000000D+01
         E(127) = 0.1031600D+00
         D(127) = 0.1000000D+01
         E(128) = 0.3374000D-01
         D(128) = 0.1000000D+01
         E(129) = 0.4883000D+00
         F(129) = 0.1000000D+01
         E(130) = 0.1165000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.1466000D+00
         G(131) = 0.1000000D+01
         ILAST = 131
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.2824960D+08
         S(1) = 0.4300000D-06
         E(2) = 0.4250190D+07
         S(2) = 0.3290000D-05
         E(3) = 0.9750140D+06
         S(3) = 0.1714000D-04
         E(4) = 0.2774460D+06
         S(4) = 0.7228000D-04
         E(5) = 0.9045470D+05
         S(5) = 0.2652200D-03
         E(6) = 0.3251590D+05
         S(6) = 0.8748400D-03
         E(7) = 0.1261060D+05
         S(7) = 0.2649910D-02
         E(8) = 0.5190770D+04
         S(8) = 0.7484470D-02
         E(9) = 0.2242330D+04
         S(9) = 0.1973093D-01
         E(10) = 0.1011530D+04
         S(10) = 0.4779799D-01
         E(11) = 0.4755470D+03
         S(11) = 0.1035956D+00
         E(12) = 0.2320720D+03
         S(12) = 0.1929302D+00
         E(13) = 0.1168740D+03
         S(13) = 0.2862676D+00
         E(14) = 0.6034270D+02
         S(14) = 0.2927849D+00
         E(15) = 0.3152440D+02
         S(15) = 0.1631280D+00
         E(16) = 0.1603080D+02
         S(16) = 0.3221688D-01
         E(17) = 0.8459920D+01
         S(17) = 0.5925800D-03
         E(18) = 0.4527180D+01
         S(18) = 0.1047900D-02
         E(19) = 0.2418590D+01
         S(19) = -.3837900D-03
         E(20) = 0.1251290D+01
         S(20) = 0.1577200D-03
         E(21) = 0.6434300D+00
         S(21) = -.1435700D-03
         E(22) = 0.3291800D+00
         S(22) = 0.5770000D-04
         E(23) = 0.2824960D+08
         S(23) = -.1200000D-06
         E(24) = 0.4250190D+07
         S(24) = -.9600000D-06
         E(25) = 0.9750140D+06
         S(25) = -.4970000D-05
         E(26) = 0.2774460D+06
         S(26) = -.2099000D-04
         E(27) = 0.9045470D+05
         S(27) = -.7701000D-04
         E(28) = 0.3251590D+05
         S(28) = -.2543100D-03
         E(29) = 0.1261060D+05
         S(29) = -.7716800D-03
         E(30) = 0.5190770D+04
         S(30) = -.2190830D-02
         E(31) = 0.2242330D+04
         S(31) = -.5835670D-02
         E(32) = 0.1011530D+04
         S(32) = -.1446869D-01
         E(33) = 0.4755470D+03
         S(33) = -.3280384D-01
         E(34) = 0.2320720D+03
         S(34) = -.6674435D-01
         E(35) = 0.1168740D+03
         S(35) = -.1166867D+00
         E(36) = 0.6034270D+02
         S(36) = -.1591970D+00
         E(37) = 0.3152440D+02
         S(37) = -.1162065D+00
         E(38) = 0.1603080D+02
         S(38) = 0.1054701D+00
         E(39) = 0.8459920D+01
         S(39) = 0.4248347D+00
         E(40) = 0.4527180D+01
         S(40) = 0.4577974D+00
         E(41) = 0.2418590D+01
         S(41) = 0.1661997D+00
         E(42) = 0.1251290D+01
         S(42) = 0.1462386D-01
         E(43) = 0.6434300D+00
         S(43) = 0.2046540D-02
         E(44) = 0.3291800D+00
         S(44) = 0.1951900D-03
         E(45) = 0.2824960D+08
         S(45) = 0.4000000D-07
         E(46) = 0.4250190D+07
         S(46) = 0.3300000D-06
         E(47) = 0.9750140D+06
         S(47) = 0.1720000D-05
         E(48) = 0.2774460D+06
         S(48) = 0.7240000D-05
         E(49) = 0.9045470D+05
         S(49) = 0.2656000D-04
         E(50) = 0.3251590D+05
         S(50) = 0.8772000D-04
         E(51) = 0.1261060D+05
         S(51) = 0.2661800D-03
         E(52) = 0.5190770D+04
         S(52) = 0.7562200D-03
         E(53) = 0.2242330D+04
         S(53) = 0.2016180D-02
         E(54) = 0.1011530D+04
         S(54) = 0.5012030D-02
         E(55) = 0.4755470D+03
         S(55) = 0.1141485D-01
         E(56) = 0.2320720D+03
         S(56) = 0.2345426D-01
         E(57) = 0.1168740D+03
         S(57) = 0.4173784D-01
         E(58) = 0.6034270D+02
         S(58) = 0.5894305D-01
         E(59) = 0.3152440D+02
         S(59) = 0.4503419D-01
         E(60) = 0.1603080D+02
         S(60) = -.4437618D-01
         E(61) = 0.8459920D+01
         S(61) = -.2187545D+00
         E(62) = 0.4527180D+01
         S(62) = -.3636304D+00
         E(63) = 0.2418590D+01
         S(63) = -.1542207D+00
         E(64) = 0.1251290D+01
         S(64) = 0.3523815D+00
         E(65) = 0.6434300D+00
         S(65) = 0.6141210D+00
         E(66) = 0.3291800D+00
         S(66) = 0.3003728D+00
         E(67) = 0.2824960D+08
         S(67) = -.1000000D-07
         E(68) = 0.4250190D+07
         S(68) = -.8000000D-07
         E(69) = 0.9750140D+06
         S(69) = -.4100000D-06
         E(70) = 0.2774460D+06
         S(70) = -.1730000D-05
         E(71) = 0.9045470D+05
         S(71) = -.6340000D-05
         E(72) = 0.3251590D+05
         S(72) = -.2094000D-04
         E(73) = 0.1261060D+05
         S(73) = -.6356000D-04
         E(74) = 0.5190770D+04
         S(74) = -.1805600D-03
         E(75) = 0.2242330D+04
         S(75) = -.4815500D-03
         E(76) = 0.1011530D+04
         S(76) = -.1197210D-02
         E(77) = 0.4755470D+03
         S(77) = -.2728890D-02
         E(78) = 0.2320720D+03
         S(78) = -.5611870D-02
         E(79) = 0.1168740D+03
         S(79) = -.1001305D-01
         E(80) = 0.6034270D+02
         S(80) = -.1419051D-01
         E(81) = 0.3152440D+02
         S(81) = -.1092170D-01
         E(82) = 0.1603080D+02
         S(82) = 0.1086343D-01
         E(83) = 0.8459920D+01
         S(83) = 0.5501493D-01
         E(84) = 0.4527180D+01
         S(84) = 0.9688214D-01
         E(85) = 0.2418590D+01
         S(85) = 0.3947968D-01
         E(86) = 0.1251290D+01
         S(86) = -.1086698D+00
         E(87) = 0.6434300D+00
         S(87) = -.2272832D+00
         E(88) = 0.3291800D+00
         S(88) = -.2570849D+00
         E(89) = 0.1423900D+00
         S(89) = 0.1000000D+01
         E(90) = 0.7819000D-01
         S(90) = 0.1000000D+01
         E(91) = 0.3763000D-01
         S(91) = 0.1000000D+01
         E(92) = 0.1829000D-01
         S(92) = 0.1000000D+01
         E(93) = 0.4063530D+06
         P(93) = 0.2300000D-06
         E(94) = 0.1360070D+05
         P(94) = 0.2393000D-04
         E(95) = 0.3235470D+04
         P(95) = 0.2121800D-03
         E(96) = 0.1053050D+04
         P(96) = 0.1227330D-02
         E(97) = 0.4035690D+03
         P(97) = 0.5452770D-02
         E(98) = 0.1714900D+03
         P(98) = 0.1962669D-01
         E(99) = 0.7823630D+02
         P(99) = 0.5827993D-01
         E(100) = 0.3760650D+02
         P(100) = 0.1395530D+00
         E(101) = 0.1870900D+02
         P(101) = 0.2559256D+00
         E(102) = 0.9500410D+01
         P(102) = 0.3399813D+00
         E(103) = 0.4905570D+01
         P(103) = 0.2730477D+00
         E(104) = 0.2526700D+01
         P(104) = 0.9644148D-01
         E(105) = 0.1271390D+01
         P(105) = 0.9552310D-02
         E(106) = 0.6260100D+00
         P(106) = 0.6758900D-03
         E(107) = 0.4063530D+06
         P(107) = -.7000000D-07
         E(108) = 0.1360070D+05
         P(108) = -.7790000D-05
         E(109) = 0.3235470D+04
         P(109) = -.6908000D-04
         E(110) = 0.1053050D+04
         P(110) = -.4005900D-03
         E(111) = 0.4035690D+03
         P(111) = -.1784900D-02
         E(112) = 0.1714900D+03
         P(112) = -.6483200D-02
         E(113) = 0.7823630D+02
         P(113) = -.1956244D-01
         E(114) = 0.3760650D+02
         P(114) = -.4824767D-01
         E(115) = 0.1870900D+02
         P(115) = -.9128611D-01
         E(116) = 0.9500410D+01
         P(116) = -.1284209D+00
         E(117) = 0.4905570D+01
         P(117) = -.9952292D-01
         E(118) = 0.2526700D+01
         P(118) = 0.9012384D-01
         E(119) = 0.1271390D+01
         P(119) = 0.3551988D+00
         E(120) = 0.6260100D+00
         P(120) = 0.4444889D+00
         E(121) = 0.4063530D+06
         P(121) = 0.2000000D-07
         E(122) = 0.1360070D+05
         P(122) = 0.1620000D-05
         E(123) = 0.3235470D+04
         P(123) = 0.1439000D-04
         E(124) = 0.1053050D+04
         P(124) = 0.8354000D-04
         E(125) = 0.4035690D+03
         P(125) = 0.3720800D-03
         E(126) = 0.1714900D+03
         P(126) = 0.1353330D-02
         E(127) = 0.7823630D+02
         P(127) = 0.4086420D-02
         E(128) = 0.3760650D+02
         P(128) = 0.1011073D-01
         E(129) = 0.1870900D+02
         P(129) = 0.1916725D-01
         E(130) = 0.9500410D+01
         P(130) = 0.2716132D-01
         E(131) = 0.4905570D+01
         P(131) = 0.2080774D-01
         E(132) = 0.2526700D+01
         P(132) = -.2308515D-01
         E(133) = 0.1271390D+01
         P(133) = -.8551094D-01
         E(134) = 0.6260100D+00
         P(134) = -.1179450D+00
         E(135) = 0.3009900D+00
         P(135) = 0.1000000D+01
         E(136) = 0.1176900D+00
         P(136) = 0.1000000D+01
         E(137) = 0.5116000D-01
         P(137) = 0.1000000D+01
         E(138) = 0.2142000D-01
         P(138) = 0.1000000D+01
         E(139) = 0.3956280D+02
         D(139) = 0.3446000D-02
         E(140) = 0.1143730D+02
         D(140) = 0.2136000D-01
         E(141) = 0.3967430D+01
         D(141) = 0.7544800D-01
         E(142) = 0.1524780D+01
         D(142) = 0.1715280D+00
         E(143) = 0.5904700D+00
         D(143) = 0.1000000D+01
         E(144) = 0.2191400D+00
         D(144) = 0.1000000D+01
         E(145) = 0.7957000D-01
         D(145) = 0.1000000D+01
         E(146) = 0.2834000D-01
         D(146) = 0.1000000D+01
         E(147) = 0.8600000D-01
         F(147) = 0.1000000D+01
         E(148) = 0.2580000D+00
         F(148) = 0.1000000D+01
         E(149) = 0.7741000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.1012000D+00
         G(150) = 0.1000000D+01
         E(151) = 0.3023000D+00
         G(151) = 0.1000000D+01
CFRJ     E(152) = 0.2534000D+00
CFRJ     H(152) = 0.1000000D+01
         ILAST = 151
      ENDIF
      RETURN
C
C     ----- SC -----
C        
  121 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 2.715278D+06
      E(2) = 4.065984D+05
      E(3) = 9.253004D+04
      E(4) = 2.620792D+04
      E(5) = 8.549429D+03
      E(6) = 3.085975D+03
      E(7) = 1.203172D+03
      E(8) = 4.984869D+02
      E(9) = 2.16736D+02
      E(10) = 9.787476D+01
      E(11) = 4.520433D+01
      E(12) = 2.021187D+01
      E(13) = 9.574751D+00
      E(14) = 4.540346D+00
      E(15) = 1.995687D+00
      E(16) = 9.42215D-01
      E(17) = 4.17845D-01
      E(18) = 9.5761D-02
      E(19) = 5.1351D-02
      E(20) = 2.715278D+06
      E(21) = 4.065984D+05
      E(22) = 9.253004D+04
      E(23) = 2.620792D+04
      E(24) = 8.549429D+03
      E(25) = 3.085975D+03
      E(26) = 1.203172D+03
      E(27) = 4.984869D+02
      E(28) = 2.16736D+02
      E(29) = 9.787476D+01
      E(30) = 4.520433D+01
      E(31) = 2.021187D+01
      E(32) = 9.574751D+00
      E(33) = 4.540346D+00
      E(34) = 1.995687D+00
      E(35) = 9.42215D-01
      E(36) = 4.17845D-01
      E(37) = 9.5761D-02
      E(38) = 5.1351D-02
      E(39) = 2.715278D+06
      E(40) = 4.065984D+05
      E(41) = 9.253004D+04
      E(42) = 2.620792D+04
      E(43) = 8.549429D+03
      E(44) = 3.085975D+03
      E(45) = 1.203172D+03
      E(46) = 4.984869D+02
      E(47) = 2.16736D+02
      E(48) = 9.787476D+01
      E(49) = 4.520433D+01
      E(50) = 2.021187D+01
      E(51) = 9.574751D+00
      E(52) = 4.540346D+00
      E(53) = 1.995687D+00
      E(54) = 9.42215D-01
      E(55) = 4.17845D-01
      E(56) = 9.5761D-02
      E(57) = 5.1351D-02
      E(58) = 2.715278D+06
      E(59) = 4.065984D+05
      E(60) = 9.253004D+04
      E(61) = 2.620792D+04
      E(62) = 8.549429D+03
      E(63) = 3.085975D+03
      E(64) = 1.203172D+03
      E(65) = 4.984869D+02
      E(66) = 2.16736D+02
      E(67) = 9.787476D+01
      E(68) = 4.520433D+01
      E(69) = 2.021187D+01
      E(70) = 9.574751D+00
      E(71) = 4.540346D+00
      E(72) = 1.995687D+00
      E(73) = 9.42215D-01
      E(74) = 4.17845D-01
      E(75) = 9.5761D-02
      E(76) = 5.1351D-02
      E(77) = 2.715278D+06
      E(78) = 4.065984D+05
      E(79) = 9.253004D+04
      E(80) = 2.620792D+04
      E(81) = 8.549429D+03
      E(82) = 3.085975D+03
      E(83) = 1.203172D+03
      E(84) = 4.984869D+02
      E(85) = 2.16736D+02
      E(86) = 9.787476D+01
      E(87) = 4.520433D+01
      E(88) = 2.021187D+01
      E(89) = 9.574751D+00
      E(90) = 4.540346D+00
      E(91) = 1.995687D+00
      E(92) = 9.42215D-01
      E(93) = 4.17845D-01
      E(94) = 9.5761D-02
      E(95) = 5.1351D-02
      E(96) = 2.715278D+06
      E(97) = 4.065984D+05
      E(98) = 9.253004D+04
      E(99) = 2.620792D+04
      E(100) = 8.549429D+03
      E(101) = 3.085975D+03
      E(102) = 1.203172D+03
      E(103) = 4.984869D+02
      E(104) = 2.16736D+02
      E(105) = 9.787476D+01
      E(106) = 4.520433D+01
      E(107) = 2.021187D+01
      E(108) = 9.574751D+00
      E(109) = 4.540346D+00
      E(110) = 1.995687D+00
      E(111) = 9.42215D-01
      E(112) = 4.17845D-01
      E(113) = 9.5761D-02
      E(114) = 5.1351D-02
      E(115) = 2.3878D-02
      E(116) = 1.059219D+04
      E(117) = 2.507533D+03
      E(118) = 8.144571D+02
      E(119) = 3.115195D+02
      E(120) = 1.319617D+02
      E(121) = 5.998718D+01
      E(122) = 2.86625D+01
      E(123) = 1.410851D+01
      E(124) = 7.103706D+00
      E(125) = 3.6092D+00
      E(126) = 1.77607D+00
      E(127) = 8.5476D-01
      E(128) = 4.02239D-01
      E(129) = 1.5468D-01
      E(130) = 6.4888D-02
      E(131) = 1.059219D+04
      E(132) = 2.507533D+03
      E(133) = 8.144571D+02
      E(134) = 3.115195D+02
      E(135) = 1.319617D+02
      E(136) = 5.998718D+01
      E(137) = 2.86625D+01
      E(138) = 1.410851D+01
      E(139) = 7.103706D+00
      E(140) = 3.6092D+00
      E(141) = 1.77607D+00
      E(142) = 8.5476D-01
      E(143) = 4.02239D-01
      E(144) = 1.5468D-01
      E(145) = 6.4888D-02
      E(146) = 1.059219D+04
      E(147) = 2.507533D+03
      E(148) = 8.144571D+02
      E(149) = 3.115195D+02
      E(150) = 1.319617D+02
      E(151) = 5.998718D+01
      E(152) = 2.86625D+01
      E(153) = 1.410851D+01
      E(154) = 7.103706D+00
      E(155) = 3.6092D+00
      E(156) = 1.77607D+00
      E(157) = 8.5476D-01
      E(158) = 4.02239D-01
      E(159) = 1.5468D-01
      E(160) = 6.4888D-02
      E(161) = 1.059219D+04
      E(162) = 2.507533D+03
      E(163) = 8.144571D+02
      E(164) = 3.115195D+02
      E(165) = 1.319617D+02
      E(166) = 5.998718D+01
      E(167) = 2.86625D+01
      E(168) = 1.410851D+01
      E(169) = 7.103706D+00
      E(170) = 3.6092D+00
      E(171) = 1.77607D+00
      E(172) = 8.5476D-01
      E(173) = 4.02239D-01
      E(174) = 1.5468D-01
      E(175) = 6.4888D-02
      E(176) = 1.059219D+04
      E(177) = 2.507533D+03
      E(178) = 8.144571D+02
      E(179) = 3.115195D+02
      E(180) = 1.319617D+02
      E(181) = 5.998718D+01
      E(182) = 2.86625D+01
      E(183) = 1.410851D+01
      E(184) = 7.103706D+00
      E(185) = 3.6092D+00
      E(186) = 1.77607D+00
      E(187) = 8.5476D-01
      E(188) = 4.02239D-01
      E(189) = 1.5468D-01
      E(190) = 6.4888D-02
      E(191) = 2.6301D-02
      E(192) = 5.06542D+01
      E(193) = 1.47325D+01
      E(194) = 5.18046D+00
      E(195) = 2.01959D+00
      E(196) = 7.99219D-01
      E(197) = 3.05316D-01
      E(198) = 1.10444D-01
      E(199) = 5.06542D+01
      E(200) = 1.47325D+01
      E(201) = 5.18046D+00
      E(202) = 2.01959D+00
      E(203) = 7.99219D-01
      E(204) = 3.05316D-01
      E(205) = 1.10444D-01
      E(206) = 5.06542D+01
      E(207) = 1.47325D+01
      E(208) = 5.18046D+00
      E(209) = 2.01959D+00
      E(210) = 7.99219D-01
      E(211) = 3.05316D-01
      E(212) = 1.10444D-01
      E(213) = 3.7065D-02
      E(214) = 7.126D-01
      E(215) = 1.636D-01
      E(216) = 4.112D-01
      S(1) = 1.06D-04
      S(2) = 3.17D-04
      S(3) = 9.05D-04
      S(4) = 2.464D-03
      S(5) = 6.78D-03
      S(6) = 1.8679D-02
      S(7) = 4.9418D-02
      S(8) = 1.1721D-01
      S(9) = 2.28041D-01
      S(10) = 3.09872D-01
      S(11) = 2.1755D-01
      S(12) = 7.2486D-02
      S(13) = 1.1595D-01
      S(14) = 1.16638D-01
      S(15) = 1.9823D-02
      S(16) = -4.88D-04
      S(17) = 1.83D-04
      S(18) = -7.0D-05
      S(19) = 6.3D-05
      S(20) = -6.1D-05
      S(21) = -1.82D-04
      S(22) = -5.2D-04
      S(23) = -1.417D-03
      S(24) = -3.912D-03
      S(25) = -1.0853D-02
      S(26) = -2.9155D-02
      S(27) = -7.16D-02
      S(28) = -1.50445D-01
      S(29) = -2.43542D-01
      S(30) = -2.33453D-01
      S(31) = 4.4997D-02
      S(32) = 4.96034D-01
      S(33) = 4.84856D-01
      S(34) = 8.7567D-02
      S(35) = -5.283D-03
      S(36) = 6.42D-04
      S(37) = -6.97D-04
      S(38) = 5.79D-04
      S(39) = 1.2D-05
      S(40) = 3.6D-05
      S(41) = 1.02D-04
      S(42) = 2.8D-04
      S(43) = 7.74D-04
      S(44) = 2.163D-03
      S(45) = 5.883D-03
      S(46) = 1.4887D-02
      S(47) = 3.3132D-02
      S(48) = 6.0285D-02
      S(49) = 6.7459D-02
      S(50) = -2.5015D-02
      S(51) = -2.70804D-01
      S(52) = -4.32003D-01
      S(53) = 7.6493D-02
      S(54) = 7.03097D-01
      S(55) = 4.42589D-01
      S(56) = 2.8138D-02
      S(57) = -1.2219D-02
      S(58) = -3.0D-06
      S(59) = -9.0D-06
      S(60) = -2.5D-05
      S(61) = -6.8D-05
      S(62) = -1.87D-04
      S(63) = -5.23D-04
      S(64) = -1.424D-03
      S(65) = -3.597D-03
      S(66) = -8.033D-03
      S(67) = -1.4598D-02
      S(68) = -1.6514D-02
      S(69) = 6.289D-03
      S(70) = 6.8263D-02
      S(71) = 1.16559D-01
      S(72) = -2.9949D-02
      S(73) = -2.30839D-01
      S(74) = -3.02323D-01
      S(75) = 2.69903D-01
      S(76) = 5.91926D-01
      S(77) = -5.0D-06
      S(78) = -1.5D-05
      S(79) = -4.3D-05
      S(80) = -1.19D-04
      S(81) = -3.17D-04
      S(82) = -9.33D-04
      S(83) = -2.369D-03
      S(84) = -6.551D-03
      S(85) = -1.2998D-02
      S(86) = -2.7889D-02
      S(87) = -2.2652D-02
      S(88) = -4.673D-03
      S(89) = 1.58642D-01
      S(90) = 1.41264D-01
      S(91) = 9.3435D-02
      S(92) = -8.97328D-01
      S(93) = 5.9706D-02
      S(94) = 2.309726D+00
      S(95) = -1.286221D+00
      S(96) = -8.0D-06
      S(97) = -2.4D-05
      S(98) = -6.7D-05
      S(99) = -1.9D-04
      S(100) = -4.92D-04
      S(101) = -1.512D-03
      S(102) = -3.616D-03
      S(103) = -1.079D-02
      S(104) = -1.9351D-02
      S(105) = -4.7676D-02
      S(106) = -2.8158D-02
      S(107) = -2.7947D-02
      S(108) = 3.10455D-01
      S(109) = 1.76989D-01
      S(110) = 2.15855D-01
      S(111) = -2.388085D+00
      S(112) = 2.387838D+00
      S(113) = 8.27268D-01
      S(114) = -3.341786D+00
      S(115) = 1.0D+00
      P(116) = 1.01D-04
      P(117) = 5.31D-04
      P(118) = 2.612D-03
      P(119) = 1.0624D-02
      P(120) = 3.5975D-02
      P(121) = 9.9242D-02
      P(122) = 2.11734D-01
      P(123) = 3.30072D-01
      P(124) = 3.29756D-01
      P(125) = 1.56838D-01
      P(126) = 2.1805D-02
      P(127) = -1.797D-03
      P(128) = -1.435D-03
      P(129) = -3.0D-04
      P(130) = 3.7D-05
      P(131) = -3.3D-05
      P(132) = -1.74D-04
      P(133) = -8.6D-04
      P(134) = -3.515D-03
      P(135) = -1.2054D-02
      P(136) = -3.4069D-02
      P(137) = -7.5213D-02
      P(138) = -1.22425D-01
      P(139) = -1.29338D-01
      P(140) = 1.6274D-02
      P(141) = 3.10182D-01
      P(142) = 4.62689D-01
      P(143) = 3.03519D-01
      P(144) = 5.0515D-02
      P(145) = -4.393D-03
      P(146) = -8.0D-06
      P(147) = -4.2D-05
      P(148) = -2.1D-04
      P(149) = -8.55D-04
      P(150) = -2.952D-03
      P(151) = -8.312D-03
      P(152) = -1.8531D-02
      P(153) = -3.0033D-02
      P(154) = -3.2641D-02
      P(155) = 8.348D-03
      P(156) = 8.7992D-02
      P(157) = 1.51913D-01
      P(158) = 9.6406D-02
      P(159) = -2.56387D-01
      P(160) = -5.87449D-01
      P(161) = 1.0D-05
      P(162) = 5.2D-05
      P(163) = 2.53D-04
      P(164) = 1.051D-03
      P(165) = 3.555D-03
      P(166) = 1.0218D-02
      P(167) = 2.2204D-02
      P(168) = 3.7286D-02
      P(169) = 3.7824D-02
      P(170) = -4.972D-03
      P(171) = -1.11285D-01
      P(172) = -1.6271D-01
      P(173) = -1.82691D-01
      P(174) = 3.99871D-01
      P(175) = 6.8541D-01
      P(176) = 2.0D-05
      P(177) = 9.9D-05
      P(178) = 5.4D-04
      P(179) = 1.976D-03
      P(180) = 7.619D-03
      P(181) = 1.8935D-02
      P(182) = 4.8865D-02
      P(183) = 6.4861D-02
      P(184) = 1.07488D-01
      P(185) = -6.0758D-02
      P(186) = -1.66922D-01
      P(187) = -7.59039D-01
      P(188) = 6.29502D-01
      P(189) = 1.163794D+00
      P(190) = -1.023917D+00
      P(191) = 1.0D+00
      D(192) = 4.252D-03
      D(193) = 2.7465D-02
      D(194) = 9.9227D-02
      D(195) = 2.29967D-01
      D(196) = 3.44287D-01
      D(197) = 3.73626D-01
      D(198) = 2.68021D-01
      D(199) = -4.396D-03
      D(200) = -2.8263D-02
      D(201) = -1.04792D-01
      D(202) = -2.34353D-01
      D(203) = -3.25509D-01
      D(204) = -6.9995D-02
      D(205) = 5.94922D-01
      D(206) = 5.763D-03
      D(207) = 3.6436D-02
      D(208) = 1.38732D-01
      D(209) = 3.00826D-01
      D(210) = 3.14979D-01
      D(211) = -7.43633D-01
      D(212) = -2.34638D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
        ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 8.417909D+07
      E(2) = 1.260312D+07
      E(3) = 2.867984D+05
      E(4) = 8.123469D+04
      E(5) = 2.650311D+04
      E(6) = 9.568701D+03
      E(7) = 3.732497D+03
      E(8) = 1.548422D+03
      E(9) = 6.75542D+02
      E(10) = 3.072522D+02
      E(11) = 1.446672D+02
      E(12) = 7.004387D+01
      E(13) = 3.43225D+01
      E(14) = 1.561224D+01
      E(15) = 7.743722D+00
      E(16) = 3.84426D+00
      E(17) = 1.719766D+00
      E(18) = 8.32523D-01
      E(19) = 3.85564D-01
      E(20) = 9.67D-02
      E(21) = 4.7778D-02
      E(22) = 8.417909D+07
      E(23) = 1.260312D+07
      E(24) = 2.867984D+05
      E(25) = 8.123469D+04
      E(26) = 2.650311D+04
      E(27) = 9.568701D+03
      E(28) = 3.732497D+03
      E(29) = 1.548422D+03
      E(30) = 6.75542D+02
      E(31) = 3.072522D+02
      E(32) = 1.446672D+02
      E(33) = 7.004387D+01
      E(34) = 3.43225D+01
      E(35) = 1.561224D+01
      E(36) = 7.743722D+00
      E(37) = 3.84426D+00
      E(38) = 1.719766D+00
      E(39) = 8.32523D-01
      E(40) = 3.85564D-01
      E(41) = 9.67D-02
      E(42) = 4.7778D-02
      E(43) = 8.417909D+07
      E(44) = 1.260312D+07
      E(45) = 2.867984D+05
      E(46) = 8.123469D+04
      E(47) = 2.650311D+04
      E(48) = 9.568701D+03
      E(49) = 3.732497D+03
      E(50) = 1.548422D+03
      E(51) = 6.75542D+02
      E(52) = 3.072522D+02
      E(53) = 1.446672D+02
      E(54) = 7.004387D+01
      E(55) = 3.43225D+01
      E(56) = 1.561224D+01
      E(57) = 7.743722D+00
      E(58) = 3.84426D+00
      E(59) = 1.719766D+00
      E(60) = 8.32523D-01
      E(61) = 3.85564D-01
      E(62) = 9.67D-02
      E(63) = 4.7778D-02
      E(64) = 8.417909D+07
      E(65) = 1.260312D+07
      E(66) = 2.867984D+05
      E(67) = 8.123469D+04
      E(68) = 2.650311D+04
      E(69) = 9.568701D+03
      E(70) = 3.732497D+03
      E(71) = 1.548422D+03
      E(72) = 6.75542D+02
      E(73) = 3.072522D+02
      E(74) = 1.446672D+02
      E(75) = 7.004387D+01
      E(76) = 3.43225D+01
      E(77) = 1.561224D+01
      E(78) = 7.743722D+00
      E(79) = 3.84426D+00
      E(80) = 1.719766D+00
      E(81) = 8.32523D-01
      E(82) = 3.85564D-01
      E(83) = 9.67D-02
      E(84) = 4.7778D-02
      E(85) = 8.417909D+07
      E(86) = 1.260312D+07
      E(87) = 2.867984D+05
      E(88) = 8.123469D+04
      E(89) = 2.650311D+04
      E(90) = 9.568701D+03
      E(91) = 3.732497D+03
      E(92) = 1.548422D+03
      E(93) = 6.75542D+02
      E(94) = 3.072522D+02
      E(95) = 1.446672D+02
      E(96) = 7.004387D+01
      E(97) = 3.43225D+01
      E(98) = 1.561224D+01
      E(99) = 7.743722D+00
      E(100) = 3.84426D+00
      E(101) = 1.719766D+00
      E(102) = 8.32523D-01
      E(103) = 3.85564D-01
      E(104) = 9.67D-02
      E(105) = 4.7778D-02
      E(106) = 8.417909D+07
      E(107) = 1.260312D+07
      E(108) = 2.867984D+05
      E(109) = 8.123469D+04
      E(110) = 2.650311D+04
      E(111) = 9.568701D+03
      E(112) = 3.732497D+03
      E(113) = 1.548422D+03
      E(114) = 6.75542D+02
      E(115) = 3.072522D+02
      E(116) = 1.446672D+02
      E(117) = 7.004387D+01
      E(118) = 3.43225D+01
      E(119) = 1.561224D+01
      E(120) = 7.743722D+00
      E(121) = 3.84426D+00
      E(122) = 1.719766D+00
      E(123) = 8.32523D-01
      E(124) = 3.85564D-01
      E(125) = 9.67D-02
      E(126) = 4.7778D-02
      E(127) = 8.417909D+07
      E(128) = 1.260312D+07
      E(129) = 2.867984D+05
      E(130) = 8.123469D+04
      E(131) = 2.650311D+04
      E(132) = 9.568701D+03
      E(133) = 3.732497D+03
      E(134) = 1.548422D+03
      E(135) = 6.75542D+02
      E(136) = 3.072522D+02
      E(137) = 1.446672D+02
      E(138) = 7.004387D+01
      E(139) = 3.43225D+01
      E(140) = 1.561224D+01
      E(141) = 7.743722D+00
      E(142) = 3.84426D+00
      E(143) = 1.719766D+00
      E(144) = 8.32523D-01
      E(145) = 3.85564D-01
      E(146) = 9.67D-02
      E(147) = 4.7778D-02
      E(148) = 2.2363D-02
      E(149) = 2.264097D+04
      E(150) = 5.357545D+03
      E(151) = 1.740373D+03
      E(152) = 6.666163D+02
      E(153) = 2.836384D+02
      E(154) = 1.297976D+02
      E(155) = 6.267956D+01
      E(156) = 3.150441D+01
      E(157) = 1.623525D+01
      E(158) = 8.518324D+00
      E(159) = 4.519005D+00
      E(160) = 2.366591D+00
      E(161) = 1.215235D+00
      E(162) = 6.14348D-01
      E(163) = 3.00745D-01
      E(164) = 1.25834D-01
      E(165) = 5.4719D-02
      E(166) = 2.264097D+04
      E(167) = 5.357545D+03
      E(168) = 1.740373D+03
      E(169) = 6.666163D+02
      E(170) = 2.836384D+02
      E(171) = 1.297976D+02
      E(172) = 6.267956D+01
      E(173) = 3.150441D+01
      E(174) = 1.623525D+01
      E(175) = 8.518324D+00
      E(176) = 4.519005D+00
      E(177) = 2.366591D+00
      E(178) = 1.215235D+00
      E(179) = 6.14348D-01
      E(180) = 3.00745D-01
      E(181) = 1.25834D-01
      E(182) = 5.4719D-02
      E(183) = 2.264097D+04
      E(184) = 5.357545D+03
      E(185) = 1.740373D+03
      E(186) = 6.666163D+02
      E(187) = 2.836384D+02
      E(188) = 1.297976D+02
      E(189) = 6.267956D+01
      E(190) = 3.150441D+01
      E(191) = 1.623525D+01
      E(192) = 8.518324D+00
      E(193) = 4.519005D+00
      E(194) = 2.366591D+00
      E(195) = 1.215235D+00
      E(196) = 6.14348D-01
      E(197) = 3.00745D-01
      E(198) = 1.25834D-01
      E(199) = 5.4719D-02
      E(200) = 2.264097D+04
      E(201) = 5.357545D+03
      E(202) = 1.740373D+03
      E(203) = 6.666163D+02
      E(204) = 2.836384D+02
      E(205) = 1.297976D+02
      E(206) = 6.267956D+01
      E(207) = 3.150441D+01
      E(208) = 1.623525D+01
      E(209) = 8.518324D+00
      E(210) = 4.519005D+00
      E(211) = 2.366591D+00
      E(212) = 1.215235D+00
      E(213) = 6.14348D-01
      E(214) = 3.00745D-01
      E(215) = 1.25834D-01
      E(216) = 5.4719D-02
      E(217) = 2.264097D+04
      E(218) = 5.357545D+03
      E(219) = 1.740373D+03
      E(220) = 6.666163D+02
      E(221) = 2.836384D+02
      E(222) = 1.297976D+02
      E(223) = 6.267956D+01
      E(224) = 3.150441D+01
      E(225) = 1.623525D+01
      E(226) = 8.518324D+00
      E(227) = 4.519005D+00
      E(228) = 2.366591D+00
      E(229) = 1.215235D+00
      E(230) = 6.14348D-01
      E(231) = 3.00745D-01
      E(232) = 1.25834D-01
      E(233) = 5.4719D-02
      E(234) = 2.264097D+04
      E(235) = 5.357545D+03
      E(236) = 1.740373D+03
      E(237) = 6.666163D+02
      E(238) = 2.836384D+02
      E(239) = 1.297976D+02
      E(240) = 6.267956D+01
      E(241) = 3.150441D+01
      E(242) = 1.623525D+01
      E(243) = 8.518324D+00
      E(244) = 4.519005D+00
      E(245) = 2.366591D+00
      E(246) = 1.215235D+00
      E(247) = 6.14348D-01
      E(248) = 3.00745D-01
      E(249) = 1.25834D-01
      E(250) = 5.4719D-02
      E(251) = 2.3488D-02
      E(252) = 1.48028D+02
      E(253) = 4.38528D+01
      E(254) = 1.66646D+01
      E(255) = 6.97893D+00
      E(256) = 3.12369D+00
      E(257) = 1.44687D+00
      E(258) = 6.67407D-01
      E(259) = 3.01633D-01
      E(260) = 1.32674D-01
      E(261) = 5.6739D-02
      E(262) = 1.48028D+02
      E(263) = 4.38528D+01
      E(264) = 1.66646D+01
      E(265) = 6.97893D+00
      E(266) = 3.12369D+00
      E(267) = 1.44687D+00
      E(268) = 6.67407D-01
      E(269) = 3.01633D-01
      E(270) = 1.32674D-01
      E(271) = 5.6739D-02
      E(272) = 1.48028D+02
      E(273) = 4.38528D+01
      E(274) = 1.66646D+01
      E(275) = 6.97893D+00
      E(276) = 3.12369D+00
      E(277) = 1.44687D+00
      E(278) = 6.67407D-01
      E(279) = 3.01633D-01
      E(280) = 1.32674D-01
      E(281) = 5.6739D-02
      E(282) = 1.48028D+02
      E(283) = 4.38528D+01
      E(284) = 1.66646D+01
      E(285) = 6.97893D+00
      E(286) = 3.12369D+00
      E(287) = 1.44687D+00
      E(288) = 6.67407D-01
      E(289) = 3.01633D-01
      E(290) = 1.32674D-01
      E(291) = 5.6739D-02
      E(292) = 2.3175D-02
      E(293) = 1.3905D+00
      E(294) = 3.921D-01
      E(295) = 1.106D-01
      E(296) = 9.757D-01
      E(297) = 2.53D-01
CSDJ  E(298) = 4.934D-01
      S(1) = 4.5D-05
      S(2) = 1.3D-04
      S(3) = 3.52D-04
      S(4) = 8.82D-04
      S(5) = 2.199D-03
      S(6) = 5.532D-03
      S(7) = 1.4083D-02
      S(8) = 3.5093D-02
      S(9) = 8.143D-02
      S(10) = 1.64569D-01
      S(11) = 2.62632D-01
      S(12) = 2.73162D-01
      S(13) = 1.41216D-01
      S(14) = 7.046D-02
      S(15) = 1.24919D-01
      S(16) = 8.8165D-02
      S(17) = 1.1326D-02
      S(18) = -4.19D-04
      S(19) = 1.25D-04
      S(20) = -4.3D-05
      S(21) = 4.0D-05
      S(22) = -2.6D-05
      S(23) = -7.5D-05
      S(24) = -2.02D-04
      S(25) = -5.07D-04
      S(26) = -1.264D-03
      S(27) = -3.191D-03
      S(28) = -8.161D-03
      S(29) = -2.0601D-02
      S(30) = -4.8916D-02
      S(31) = -1.04399D-01
      S(32) = -1.85476D-01
      S(33) = -2.44334D-01
      S(34) = -1.53887D-01
      S(35) = 1.86887D-01
      S(36) = 5.33367D-01
      S(37) = 3.68756D-01
      S(38) = 4.9506D-02
      S(39) = -3.972D-03
      S(40) = 1.95D-04
      S(41) = -3.59D-04
      S(42) = 2.88D-04
      S(43) = 5.0D-06
      S(44) = 1.5D-05
      S(45) = 4.0D-05
      S(46) = 1.0D-04
      S(47) = 2.49D-04
      S(48) = 6.33D-04
      S(49) = 1.622D-03
      S(50) = 4.149D-03
      S(51) = 1.0015D-02
      S(52) = 2.2402D-02
      S(53) = 4.2771D-02
      S(54) = 6.5143D-02
      S(55) = 4.5075D-02
      S(56) = -8.5865D-02
      S(57) = -3.31066D-01
      S(58) = -3.58468D-01
      S(59) = 2.21045D-01
      S(60) = 6.85397D-01
      S(61) = 3.60148D-01
      S(62) = 1.9169D-02
      S(63) = -5.864D-03
      S(64) = -1.0D-06
      S(65) = -4.0D-06
      S(66) = -1.0D-05
      S(67) = -2.4D-05
      S(68) = -6.0D-05
      S(69) = -1.53D-04
      S(70) = -3.92D-04
      S(71) = -1.003D-03
      S(72) = -2.421D-03
      S(73) = -5.419D-03
      S(74) = -1.0361D-02
      S(75) = -1.5832D-02
      S(76) = -1.1003D-02
      S(77) = 2.1159D-02
      S(78) = 8.5375D-02
      S(79) = 9.6415D-02
      S(80) = -7.0941D-02
      S(81) = -2.3984D-01
      S(82) = -2.72017D-01
      S(83) = 3.12701D-01
      S(84) = 6.13767D-01
      S(85) = -2.0D-06
      S(86) = -6.0D-06
      S(87) = -1.7D-05
      S(88) = -4.2D-05
      S(89) = -1.03D-04
      S(90) = -2.72D-04
      S(91) = -6.55D-04
      S(92) = -1.821D-03
      S(93) = -3.959D-03
      S(94) = -1.0108D-02
      S(95) = -1.6201D-02
      S(96) = -3.1893D-02
      S(97) = -1.0239D-02
      S(98) = 1.5545D-02
      S(99) = 2.03153D-01
      S(100) = 8.915D-02
      S(101) = 2.6284D-02
      S(102) = -9.64233D-01
      S(103) = 2.26409D-01
      S(104) = 2.095571D+00
      S(105) = -1.194284D+00
      S(106) = -3.0D-06
      S(107) = -1.0D-05
      S(108) = -2.6D-05
      S(109) = -6.7D-05
      S(110) = -1.6D-04
      S(111) = -4.35D-04
      S(112) = -1.005D-03
      S(113) = -2.949D-03
      S(114) = -5.972D-03
      S(115) = -1.6637D-02
      S(116) = -2.3684D-02
      S(117) = -5.4923D-02
      S(118) = -7.217D-03
      S(119) = 3.409D-03
      S(120) = 3.89512D-01
      S(121) = 9.2547D-02
      S(122) = -1.6444D-02
      S(123) = -2.307839D+00
      S(124) = 2.71745D+00
      S(125) = 3.8498D-02
      S(126) = -2.529713D+00
      S(127) = -4.0D-06
      S(128) = -1.0D-05
      S(129) = -2.8D-05
      S(130) = -7.0D-05
      S(131) = -1.81D-04
      S(132) = -4.32D-04
      S(133) = -1.212D-03
      S(134) = -2.752D-03
      S(135) = -7.724D-03
      S(136) = -1.4293D-02
      S(137) = -3.5135D-02
      S(138) = -3.6814D-02
      S(139) = -5.5963D-02
      S(140) = 1.1176D-01
      S(141) = 2.14166D-01
      S(142) = 6.13159D-01
      S(143) = -1.475876D+00
      S(144) = -6.97653D-01
      S(145) = 2.976883D+00
      S(146) = -5.746871D+00
      S(147) = 6.953163D+00
      S(148) = 1.0D+00
      P(149) = 3.9D-05
      P(150) = 1.73D-04
      P(151) = 7.84D-04
      P(152) = 3.141D-03
      P(153) = 1.1115D-02
      P(154) = 3.3811D-02
      P(155) = 8.713D-02
      P(156) = 1.81066D-01
      P(157) = 2.8947D-01
      P(158) = 3.26955D-01
      P(159) = 2.08919D-01
      P(160) = 5.4181D-02
      P(161) = 1.672D-03
      P(162) = -1.571D-03
      P(163) = -1.016D-03
      P(164) = -5.9D-05
      P(165) = -2.0D-05
      P(166) = -1.3D-05
      P(167) = -5.7D-05
      P(168) = -2.57D-04
      P(169) = -1.035D-03
      P(170) = -3.679D-03
      P(171) = -1.1336D-02
      P(172) = -2.9848D-02
      P(173) = -6.4054D-02
      P(174) = -1.06077D-01
      P(175) = -1.28014D-01
      P(176) = -5.1538D-02
      P(177) = 1.75306D-01
      P(178) = 3.92915D-01
      P(179) = 3.9556D-01
      P(180) = 1.75503D-01
      P(181) = 1.9022D-02
      P(182) = 7.4D-05
      P(183) = -3.0D-06
      P(184) = -1.4D-05
      P(185) = -6.3D-05
      P(186) = -2.52D-04
      P(187) = -9.0D-04
      P(188) = -2.761D-03
      P(189) = -7.323D-03
      P(190) = -1.5655D-02
      P(191) = -2.6266D-02
      P(192) = -3.1569D-02
      P(193) = -1.208D-02
      P(194) = 5.2784D-02
      P(195) = 1.13813D-01
      P(196) = 1.45762D-01
      P(197) = 1.3203D-02
      P(198) = -3.52261D-01
      P(199) = -5.50087D-01
      P(200) = 4.0D-06
      P(201) = 1.7D-05
      P(202) = 7.6D-05
      P(203) = 3.07D-04
      P(204) = 1.093D-03
      P(205) = 3.372D-03
      P(206) = 8.88D-03
      P(207) = 1.9123D-02
      P(208) = 3.1746D-02
      P(209) = 3.8762D-02
      P(210) = 1.4642D-02
      P(211) = -6.069D-02
      P(212) = -1.35627D-01
      P(213) = -1.75172D-01
      P(214) = -7.71D-02
      P(215) = 5.64691D-01
      P(216) = 5.41065D-01
      P(217) = 8.0D-06
      P(218) = 3.3D-05
      P(219) = 1.59D-04
      P(220) = 5.92D-04
      P(221) = 2.277D-03
      P(222) = 6.462D-03
      P(223) = 1.8608D-02
      P(224) = 3.6008D-02
      P(225) = 6.9418D-02
      P(226) = 7.0761D-02
      P(227) = 5.7589D-02
      P(228) = -1.76747D-01
      P(229) = -3.33302D-01
      P(230) = -5.69889D-01
      P(231) = 1.178258D+00
      P(232) = 5.50719D-01
      P(233) = -9.78221D-01
      P(234) = -9.0D-06
      P(235) = -4.4D-05
      P(236) = -1.67D-04
      P(237) = -8.33D-04
      P(238) = -2.35D-03
      P(239) = -9.188D-03
      P(240) = -1.8545D-02
      P(241) = -5.3755D-02
      P(242) = -5.9653D-02
      P(243) = -1.56949D-01
      P(244) = 1.2935D-02
      P(245) = 8.9444D-02
      P(246) = 1.276811D+00
      P(247) = -1.059147D+00
      P(248) = -1.324172D+00
      P(249) = 2.368099D+00
      P(250) = -1.175071D+00
      P(251) = 1.0D+00
      D(252) = 4.9D-04
      D(253) = 4.129D-03
      D(254) = 1.8686D-02
      D(255) = 5.7854D-02
      D(256) = 1.37078D-01
      D(257) = 2.31016D-01
      D(258) = 2.95683D-01
      D(259) = 3.04783D-01
      D(260) = 2.39925D-01
      D(261) = 1.10089D-01
      D(262) = -5.03D-04
      D(263) = -4.244D-03
      D(264) = -1.9283D-02
      D(265) = -6.0355D-02
      D(266) = -1.43706D-01
      D(267) = -2.3015D-01
      D(268) = -2.63147D-01
      D(269) = -5.5599D-02
      D(270) = 4.05492D-01
      D(271) = 4.84605D-01
      D(272) = -6.52D-04
      D(273) = -5.427D-03
      D(274) = -2.5225D-02
      D(275) = -7.72D-02
      D(276) = -1.89898D-01
      D(277) = -2.87769D-01
      D(278) = -1.76368D-01
      D(279) = 5.99245D-01
      D(280) = 5.00236D-01
      D(281) = -6.73389D-01
      D(282) = 8.35D-04
      D(283) = 8.383D-03
      D(284) = 3.3102D-02
      D(285) = 1.25723D-01
      D(286) = 2.47773D-01
      D(287) = 4.53539D-01
      D(288) = -5.35116D-01
      D(289) = -8.93268D-01
      D(290) = 1.439658D+00
      D(291) = -4.54752D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR SC'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN

C
C     ----- TI -----
C
  122 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 3.014643D+06
      E(2) = 4.514329D+05
      E(3) = 1.027338D+05
      E(4) = 2.909817D+04
      E(5) = 9.49233D+03
      E(6) = 3.426346D+03
      E(7) = 1.335896D+03
      E(8) = 5.535026D+02
      E(9) = 2.406925D+02
      E(10) = 1.087293D+02
      E(11) = 5.026457D+01
      E(12) = 2.258004D+01
      E(13) = 1.071432D+01
      E(14) = 5.093546D+00
      E(15) = 2.244183D+00
      E(16) = 1.05957D+00
      E(17) = 4.68849D-01
      E(18) = 1.06143D-01
      E(19) = 5.5262D-02
      E(20) = 3.014643D+06
      E(21) = 4.514329D+05
      E(22) = 1.027338D+05
      E(23) = 2.909817D+04
      E(24) = 9.49233D+03
      E(25) = 3.426346D+03
      E(26) = 1.335896D+03
      E(27) = 5.535026D+02
      E(28) = 2.406925D+02
      E(29) = 1.087293D+02
      E(30) = 5.026457D+01
      E(31) = 2.258004D+01
      E(32) = 1.071432D+01
      E(33) = 5.093546D+00
      E(34) = 2.244183D+00
      E(35) = 1.05957D+00
      E(36) = 4.68849D-01
      E(37) = 1.06143D-01
      E(38) = 5.5262D-02
      E(39) = 3.014643D+06
      E(40) = 4.514329D+05
      E(41) = 1.027338D+05
      E(42) = 2.909817D+04
      E(43) = 9.49233D+03
      E(44) = 3.426346D+03
      E(45) = 1.335896D+03
      E(46) = 5.535026D+02
      E(47) = 2.406925D+02
      E(48) = 1.087293D+02
      E(49) = 5.026457D+01
      E(50) = 2.258004D+01
      E(51) = 1.071432D+01
      E(52) = 5.093546D+00
      E(53) = 2.244183D+00
      E(54) = 1.05957D+00
      E(55) = 4.68849D-01
      E(56) = 1.06143D-01
      E(57) = 5.5262D-02
      E(58) = 3.014643D+06
      E(59) = 4.514329D+05
      E(60) = 1.027338D+05
      E(61) = 2.909817D+04
      E(62) = 9.49233D+03
      E(63) = 3.426346D+03
      E(64) = 1.335896D+03
      E(65) = 5.535026D+02
      E(66) = 2.406925D+02
      E(67) = 1.087293D+02
      E(68) = 5.026457D+01
      E(69) = 2.258004D+01
      E(70) = 1.071432D+01
      E(71) = 5.093546D+00
      E(72) = 2.244183D+00
      E(73) = 1.05957D+00
      E(74) = 4.68849D-01
      E(75) = 1.06143D-01
      E(76) = 5.5262D-02
      E(77) = 3.014643D+06
      E(78) = 4.514329D+05
      E(79) = 1.027338D+05
      E(80) = 2.909817D+04
      E(81) = 9.49233D+03
      E(82) = 3.426346D+03
      E(83) = 1.335896D+03
      E(84) = 5.535026D+02
      E(85) = 2.406925D+02
      E(86) = 1.087293D+02
      E(87) = 5.026457D+01
      E(88) = 2.258004D+01
      E(89) = 1.071432D+01
      E(90) = 5.093546D+00
      E(91) = 2.244183D+00
      E(92) = 1.05957D+00
      E(93) = 4.68849D-01
      E(94) = 1.06143D-01
      E(95) = 5.5262D-02
      E(96) = 3.014643D+06
      E(97) = 4.514329D+05
      E(98) = 1.027338D+05
      E(99) = 2.909817D+04
      E(100) = 9.49233D+03
      E(101) = 3.426346D+03
      E(102) = 1.335896D+03
      E(103) = 5.535026D+02
      E(104) = 2.406925D+02
      E(105) = 1.087293D+02
      E(106) = 5.026457D+01
      E(107) = 2.258004D+01
      E(108) = 1.071432D+01
      E(109) = 5.093546D+00
      E(110) = 2.244183D+00
      E(111) = 1.05957D+00
      E(112) = 4.68849D-01
      E(113) = 1.06143D-01
      E(114) = 5.5262D-02
      E(115) = 2.5465D-02
      E(116) = 1.191203D+04
      E(117) = 2.819947D+03
      E(118) = 9.159479D+02
      E(119) = 3.503842D+02
      E(120) = 1.484825D+02
      E(121) = 6.753944D+01
      E(122) = 3.230332D+01
      E(123) = 1.592786D+01
      E(124) = 8.038035D+00
      E(125) = 4.093916D+00
      E(126) = 2.02239D+00
      E(127) = 9.76102D-01
      E(128) = 4.59595D-01
      E(129) = 1.77195D-01
      E(130) = 7.3442D-02
      E(131) = 1.191203D+04
      E(132) = 2.819947D+03
      E(133) = 9.159479D+02
      E(134) = 3.503842D+02
      E(135) = 1.484825D+02
      E(136) = 6.753944D+01
      E(137) = 3.230332D+01
      E(138) = 1.592786D+01
      E(139) = 8.038035D+00
      E(140) = 4.093916D+00
      E(141) = 2.02239D+00
      E(142) = 9.76102D-01
      E(143) = 4.59595D-01
      E(144) = 1.77195D-01
      E(145) = 7.3442D-02
      E(146) = 1.191203D+04
      E(147) = 2.819947D+03
      E(148) = 9.159479D+02
      E(149) = 3.503842D+02
      E(150) = 1.484825D+02
      E(151) = 6.753944D+01
      E(152) = 3.230332D+01
      E(153) = 1.592786D+01
      E(154) = 8.038035D+00
      E(155) = 4.093916D+00
      E(156) = 2.02239D+00
      E(157) = 9.76102D-01
      E(158) = 4.59595D-01
      E(159) = 1.77195D-01
      E(160) = 7.3442D-02
      E(161) = 1.191203D+04
      E(162) = 2.819947D+03
      E(163) = 9.159479D+02
      E(164) = 3.503842D+02
      E(165) = 1.484825D+02
      E(166) = 6.753944D+01
      E(167) = 3.230332D+01
      E(168) = 1.592786D+01
      E(169) = 8.038035D+00
      E(170) = 4.093916D+00
      E(171) = 2.02239D+00
      E(172) = 9.76102D-01
      E(173) = 4.59595D-01
      E(174) = 1.77195D-01
      E(175) = 7.3442D-02
      E(176) = 1.191203D+04
      E(177) = 2.819947D+03
      E(178) = 9.159479D+02
      E(179) = 3.503842D+02
      E(180) = 1.484825D+02
      E(181) = 6.753944D+01
      E(182) = 3.230332D+01
      E(183) = 1.592786D+01
      E(184) = 8.038035D+00
      E(185) = 4.093916D+00
      E(186) = 2.02239D+00
      E(187) = 9.76102D-01
      E(188) = 4.59595D-01
      E(189) = 1.77195D-01
      E(190) = 7.3442D-02
      E(191) = 2.9334D-02
      E(192) = 6.43402D+01
      E(193) = 1.88418D+01
      E(194) = 6.71983D+00
      E(195) = 2.65613D+00
      E(196) = 1.07368D+00
      E(197) = 4.20557D-01
      E(198) = 1.54817D-01
      E(199) = 6.43402D+01
      E(200) = 1.88418D+01
      E(201) = 6.71983D+00
      E(202) = 2.65613D+00
      E(203) = 1.07368D+00
      E(204) = 4.20557D-01
      E(205) = 1.54817D-01
      E(206) = 6.43402D+01
      E(207) = 1.88418D+01
      E(208) = 6.71983D+00
      E(209) = 2.65613D+00
      E(210) = 1.07368D+00
      E(211) = 4.20557D-01
      E(212) = 1.54817D-01
      E(213) = 5.149D-02
      E(214) = 1.2274D+00
      E(215) = 2.788D-01
      E(216) = 7.092D-01
      S(1) = 1.12D-04
      S(2) = 3.32D-04
      S(3) = 9.4D-04
      S(4) = 2.532D-03
      S(5) = 6.879D-03
      S(6) = 1.8749D-02
      S(7) = 4.9294D-02
      S(8) = 1.16694D-01
      S(9) = 2.27325D-01
      S(10) = 3.10554D-01
      S(11) = 2.20584D-01
      S(12) = 7.3247D-02
      S(13) = 1.13154D-01
      S(14) = 1.13659D-01
      S(15) = 1.9316D-02
      S(16) = -4.65D-04
      S(17) = 1.59D-04
      S(18) = -5.9D-05
      S(19) = 6.2D-05
      S(20) = -6.3D-05
      S(21) = -1.89D-04
      S(22) = -5.35D-04
      S(23) = -1.443D-03
      S(24) = -3.933D-03
      S(25) = -1.0796D-02
      S(26) = -2.8829D-02
      S(27) = -7.0674D-02
      S(28) = -1.48778D-01
      S(29) = -2.4206D-01
      S(30) = -2.34721D-01
      S(31) = 4.2206D-02
      S(32) = 4.98335D-01
      S(33) = 4.86887D-01
      S(34) = 8.7904D-02
      S(35) = -5.264D-03
      S(36) = 5.52D-04
      S(37) = -6.28D-04
      S(38) = 5.53D-04
      S(39) = 1.3D-05
      S(40) = 3.8D-05
      S(41) = 1.09D-04
      S(42) = 2.94D-04
      S(43) = 8.03D-04
      S(44) = 2.22D-03
      S(45) = 5.999D-03
      S(46) = 1.5149D-02
      S(47) = 3.3733D-02
      S(48) = 6.1563D-02
      S(49) = 6.9462D-02
      S(50) = -2.4155D-02
      S(51) = -2.78984D-01
      S(52) = -4.38671D-01
      S(53) = 9.0906D-02
      S(54) = 7.09131D-01
      S(55) = 4.31164D-01
      S(56) = 2.5898D-02
      S(57) = -1.1007D-02
      S(58) = -3.0D-06
      S(59) = -9.0D-06
      S(60) = -2.6D-05
      S(61) = -7.0D-05
      S(62) = -1.91D-04
      S(63) = -5.26D-04
      S(64) = -1.424D-03
      S(65) = -3.593D-03
      S(66) = -8.022D-03
      S(67) = -1.4646D-02
      S(68) = -1.6661D-02
      S(69) = 5.889D-03
      S(70) = 6.9347D-02
      S(71) = 1.15921D-01
      S(72) = -3.2717D-02
      S(73) = -2.33414D-01
      S(74) = -2.86941D-01
      S(75) = 2.83954D-01
      S(76) = 5.84113D-01
      S(77) = -6.0D-06
      S(78) = -1.7D-05
      S(79) = -4.8D-05
      S(80) = -1.31D-04
      S(81) = -3.46D-04
      S(82) = -1.009D-03
      S(83) = -2.532D-03
      S(84) = -7.042D-03
      S(85) = -1.3829D-02
      S(86) = -3.0221D-02
      S(87) = -2.3981D-02
      S(88) = -7.185D-03
      S(89) = 1.75884D-01
      S(90) = 1.46246D-01
      S(91) = 9.7184D-02
      S(92) = -1.001736D+00
      S(93) = 1.99957D-01
      S(94) = 2.218104D+00
      S(95) = -1.342323D+00
      S(96) = -9.0D-06
      S(97) = -2.7D-05
      S(98) = -7.5D-05
      S(99) = -2.08D-04
      S(100) = -5.37D-04
      S(101) = -1.617D-03
      S(102) = -3.887D-03
      S(103) = -1.1419D-02
      S(104) = -2.0878D-02
      S(105) = -5.0397D-02
      S(106) = -3.2093D-02
      S(107) = -2.6946D-02
      S(108) = 3.27574D-01
      S(109) = 2.14723D-01
      S(110) = 1.17016D-01
      S(111) = -2.408024D+00
      S(112) = 2.593619D+00
      S(113) = 1.44748D-01
      S(114) = -2.525312D+00
      S(115) = 1.0D+00
      P(116) = 1.04D-04
      P(117) = 5.33D-04
      P(118) = 2.588D-03
      P(119) = 1.047D-02
      P(120) = 3.5471D-02
      P(121) = 9.8164D-02
      P(122) = 2.10631D-01
      P(123) = 3.30197D-01
      P(124) = 3.305D-01
      P(125) = 1.57186D-01
      P(126) = 2.1967D-02
      P(127) = -1.761D-03
      P(128) = -1.43D-03
      P(129) = -2.9D-04
      P(130) = 3.4D-05
      P(131) = -3.5D-05
      P(132) = -1.79D-04
      P(133) = -8.7D-04
      P(134) = -3.541D-03
      P(135) = -1.215D-02
      P(136) = -3.4471D-02
      P(137) = -7.6594D-02
      P(138) = -1.25622D-01
      P(139) = -1.32048D-01
      P(140) = 1.9396D-02
      P(141) = 3.16455D-01
      P(142) = 4.61489D-01
      P(143) = 2.9801D-01
      P(144) = 4.9517D-02
      P(145) = -4.108D-03
      P(146) = 8.0D-06
      P(147) = 4.3D-05
      P(148) = 2.09D-04
      P(149) = 8.48D-04
      P(150) = 2.925D-03
      P(151) = 8.276D-03
      P(152) = 1.855D-02
      P(153) = 3.034D-02
      P(154) = 3.2715D-02
      P(155) = -8.72D-03
      P(156) = -8.8636D-02
      P(157) = -1.49165D-01
      P(158) = -9.3232D-02
      P(159) = 2.50708D-01
      P(160) = 5.8618D-01
      P(161) = 1.0D-05
      P(162) = 5.4D-05
      P(163) = 2.61D-04
      P(164) = 1.071D-03
      P(165) = 3.639D-03
      P(166) = 1.0461D-02
      P(167) = 2.2985D-02
      P(168) = 3.8672D-02
      P(169) = 3.9499D-02
      P(170) = -6.899D-03
      P(171) = -1.14625D-01
      P(172) = -1.70887D-01
      P(173) = -1.65261D-01
      P(174) = 4.05858D-01
      P(175) = 6.74234D-01
      P(176) = 2.1D-05
      P(177) = 1.01D-04
      P(178) = 5.36D-04
      P(179) = 1.984D-03
      P(180) = 7.529D-03
      P(181) = 1.9151D-02
      P(182) = 4.8677D-02
      P(183) = 6.7179D-02
      P(184) = 1.03943D-01
      P(185) = -5.5562D-02
      P(186) = -1.91665D-01
      P(187) = -6.96907D-01
      P(188) = 5.74749D-01
      P(189) = 1.170499D+00
      P(190) = -1.006377D+00
      P(191) = 1.0D+00
      D(192) = 3.883D-03
      D(193) = 2.6204D-02
      D(194) = 9.6887D-02
      D(195) = 2.31631D-01
      D(196) = 3.51972D-01
      D(197) = 3.72563D-01
      D(198) = 2.50563D-01
      D(199) = -3.979D-03
      D(200) = -2.6764D-02
      D(201) = -1.01894D-01
      D(202) = -2.37111D-01
      D(203) = -3.13286D-01
      D(204) = -4.6563D-02
      D(205) = 5.84072D-01
      D(206) = 6.386D-03
      D(207) = 4.3301D-02
      D(208) = 1.7025D-01
      D(209) = 3.71946D-01
      D(210) = 2.3035D-01
      D(211) = -7.82027D-01
      D(212) = -1.23585D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 9.317034D+06
      E(2) = 1.394971D+06
      E(3) = 3.174531D+05
      E(4) = 8.9921D+04
      E(5) = 2.933816D+04
      E(6) = 1.059266D+04
      E(7) = 4.132056D+03
      E(8) = 1.714235D+03
      E(9) = 7.479151D+02
      E(10) = 3.401991D+02
      E(11) = 1.60206D+02
      E(12) = 7.758851D+01
      E(13) = 3.804489D+01
      E(14) = 1.735362D+01
      E(15) = 8.642062D+00
      E(16) = 4.304404D+00
      E(17) = 1.937718D+00
      E(18) = 9.36594D-01
      E(19) = 4.32624D-01
      E(20) = 1.07352D-01
      E(21) = 5.2034D-02
      E(22) = 9.317034D+06
      E(23) = 1.394971D+06
      E(24) = 3.174531D+05
      E(25) = 8.9921D+04
      E(26) = 2.933816D+04
      E(27) = 1.059266D+04
      E(28) = 4.132056D+03
      E(29) = 1.714235D+03
      E(30) = 7.479151D+02
      E(31) = 3.401991D+02
      E(32) = 1.60206D+02
      E(33) = 7.758851D+01
      E(34) = 3.804489D+01
      E(35) = 1.735362D+01
      E(36) = 8.642062D+00
      E(37) = 4.304404D+00
      E(38) = 1.937718D+00
      E(39) = 9.36594D-01
      E(40) = 4.32624D-01
      E(41) = 1.07352D-01
      E(42) = 5.2034D-02
      E(43) = 9.317034D+06
      E(44) = 1.394971D+06
      E(45) = 3.174531D+05
      E(46) = 8.9921D+04
      E(47) = 2.933816D+04
      E(48) = 1.059266D+04
      E(49) = 4.132056D+03
      E(50) = 1.714235D+03
      E(51) = 7.479151D+02
      E(52) = 3.401991D+02
      E(53) = 1.60206D+02
      E(54) = 7.758851D+01
      E(55) = 3.804489D+01
      E(56) = 1.735362D+01
      E(57) = 8.642062D+00
      E(58) = 4.304404D+00
      E(59) = 1.937718D+00
      E(60) = 9.36594D-01
      E(61) = 4.32624D-01
      E(62) = 1.07352D-01
      E(63) = 5.2034D-02
      E(64) = 9.317034D+06
      E(65) = 1.394971D+06
      E(66) = 3.174531D+05
      E(67) = 8.9921D+04
      E(68) = 2.933816D+04
      E(69) = 1.059266D+04
      E(70) = 4.132056D+03
      E(71) = 1.714235D+03
      E(72) = 7.479151D+02
      E(73) = 3.401991D+02
      E(74) = 1.60206D+02
      E(75) = 7.758851D+01
      E(76) = 3.804489D+01
      E(77) = 1.735362D+01
      E(78) = 8.642062D+00
      E(79) = 4.304404D+00
      E(80) = 1.937718D+00
      E(81) = 9.36594D-01
      E(82) = 4.32624D-01
      E(83) = 1.07352D-01
      E(84) = 5.2034D-02
      E(85) = 9.317034D+06
      E(86) = 1.394971D+06
      E(87) = 3.174531D+05
      E(88) = 8.9921D+04
      E(89) = 2.933816D+04
      E(90) = 1.059266D+04
      E(91) = 4.132056D+03
      E(92) = 1.714235D+03
      E(93) = 7.479151D+02
      E(94) = 3.401991D+02
      E(95) = 1.60206D+02
      E(96) = 7.758851D+01
      E(97) = 3.804489D+01
      E(98) = 1.735362D+01
      E(99) = 8.642062D+00
      E(100) = 4.304404D+00
      E(101) = 1.937718D+00
      E(102) = 9.36594D-01
      E(103) = 4.32624D-01
      E(104) = 1.07352D-01
      E(105) = 5.2034D-02
      E(106) = 9.317034D+06
      E(107) = 1.394971D+06
      E(108) = 3.174531D+05
      E(109) = 8.9921D+04
      E(110) = 2.933816D+04
      E(111) = 1.059266D+04
      E(112) = 4.132056D+03
      E(113) = 1.714235D+03
      E(114) = 7.479151D+02
      E(115) = 3.401991D+02
      E(116) = 1.60206D+02
      E(117) = 7.758851D+01
      E(118) = 3.804489D+01
      E(119) = 1.735362D+01
      E(120) = 8.642062D+00
      E(121) = 4.304404D+00
      E(122) = 1.937718D+00
      E(123) = 9.36594D-01
      E(124) = 4.32624D-01
      E(125) = 1.07352D-01
      E(126) = 5.2034D-02
      E(127) = 9.317034D+06
      E(128) = 1.394971D+06
      E(129) = 3.174531D+05
      E(130) = 8.9921D+04
      E(131) = 2.933816D+04
      E(132) = 1.059266D+04
      E(133) = 4.132056D+03
      E(134) = 1.714235D+03
      E(135) = 7.479151D+02
      E(136) = 3.401991D+02
      E(137) = 1.60206D+02
      E(138) = 7.758851D+01
      E(139) = 3.804489D+01
      E(140) = 1.735362D+01
      E(141) = 8.642062D+00
      E(142) = 4.304404D+00
      E(143) = 1.937718D+00
      E(144) = 9.36594D-01
      E(145) = 4.32624D-01
      E(146) = 1.07352D-01
      E(147) = 5.2034D-02
      E(148) = 2.4038D-02
      E(149) = 2.553733D+04
      E(150) = 6.042243D+03
      E(151) = 1.962653D+03
      E(152) = 7.517338D+02
      E(153) = 3.198833D+02
      E(154) = 1.4643D+02
      E(155) = 7.074861D+01
      E(156) = 3.559088D+01
      E(157) = 1.836893D+01
      E(158) = 9.658655D+00
      E(159) = 5.13673D+00
      E(160) = 2.698872D+00
      E(161) = 1.389703D+00
      E(162) = 7.03163D-01
      E(163) = 3.44123D-01
      E(164) = 1.41375D-01
      E(165) = 6.0791D-02
      E(166) = 2.553733D+04
      E(167) = 6.042243D+03
      E(168) = 1.962653D+03
      E(169) = 7.517338D+02
      E(170) = 3.198833D+02
      E(171) = 1.4643D+02
      E(172) = 7.074861D+01
      E(173) = 3.559088D+01
      E(174) = 1.836893D+01
      E(175) = 9.658655D+00
      E(176) = 5.13673D+00
      E(177) = 2.698872D+00
      E(178) = 1.389703D+00
      E(179) = 7.03163D-01
      E(180) = 3.44123D-01
      E(181) = 1.41375D-01
      E(182) = 6.0791D-02
      E(183) = 2.553733D+04
      E(184) = 6.042243D+03
      E(185) = 1.962653D+03
      E(186) = 7.517338D+02
      E(187) = 3.198833D+02
      E(188) = 1.4643D+02
      E(189) = 7.074861D+01
      E(190) = 3.559088D+01
      E(191) = 1.836893D+01
      E(192) = 9.658655D+00
      E(193) = 5.13673D+00
      E(194) = 2.698872D+00
      E(195) = 1.389703D+00
      E(196) = 7.03163D-01
      E(197) = 3.44123D-01
      E(198) = 1.41375D-01
      E(199) = 6.0791D-02
      E(200) = 2.553733D+04
      E(201) = 6.042243D+03
      E(202) = 1.962653D+03
      E(203) = 7.517338D+02
      E(204) = 3.198833D+02
      E(205) = 1.4643D+02
      E(206) = 7.074861D+01
      E(207) = 3.559088D+01
      E(208) = 1.836893D+01
      E(209) = 9.658655D+00
      E(210) = 5.13673D+00
      E(211) = 2.698872D+00
      E(212) = 1.389703D+00
      E(213) = 7.03163D-01
      E(214) = 3.44123D-01
      E(215) = 1.41375D-01
      E(216) = 6.0791D-02
      E(217) = 2.553733D+04
      E(218) = 6.042243D+03
      E(219) = 1.962653D+03
      E(220) = 7.517338D+02
      E(221) = 3.198833D+02
      E(222) = 1.4643D+02
      E(223) = 7.074861D+01
      E(224) = 3.559088D+01
      E(225) = 1.836893D+01
      E(226) = 9.658655D+00
      E(227) = 5.13673D+00
      E(228) = 2.698872D+00
      E(229) = 1.389703D+00
      E(230) = 7.03163D-01
      E(231) = 3.44123D-01
      E(232) = 1.41375D-01
      E(233) = 6.0791D-02
      E(234) = 2.553733D+04
      E(235) = 6.042243D+03
      E(236) = 1.962653D+03
      E(237) = 7.517338D+02
      E(238) = 3.198833D+02
      E(239) = 1.4643D+02
      E(240) = 7.074861D+01
      E(241) = 3.559088D+01
      E(242) = 1.836893D+01
      E(243) = 9.658655D+00
      E(244) = 5.13673D+00
      E(245) = 2.698872D+00
      E(246) = 1.389703D+00
      E(247) = 7.03163D-01
      E(248) = 3.44123D-01
      E(249) = 1.41375D-01
      E(250) = 6.0791D-02
      E(251) = 2.5831D-02
      E(252) = 1.99972D+02
      E(253) = 5.91869D+01
      E(254) = 2.26013D+01
      E(255) = 9.57391D+00
      E(256) = 4.31771D+00
      E(257) = 2.02373D+00
      E(258) = 9.47169D-01
      E(259) = 4.33877D-01
      E(260) = 1.92126D-01
      E(261) = 8.1404D-02
      E(262) = 1.99972D+02
      E(263) = 5.91869D+01
      E(264) = 2.26013D+01
      E(265) = 9.57391D+00
      E(266) = 4.31771D+00
      E(267) = 2.02373D+00
      E(268) = 9.47169D-01
      E(269) = 4.33877D-01
      E(270) = 1.92126D-01
      E(271) = 8.1404D-02
      E(272) = 1.99972D+02
      E(273) = 5.91869D+01
      E(274) = 2.26013D+01
      E(275) = 9.57391D+00
      E(276) = 4.31771D+00
      E(277) = 2.02373D+00
      E(278) = 9.47169D-01
      E(279) = 4.33877D-01
      E(280) = 1.92126D-01
      E(281) = 8.1404D-02
      E(282) = 1.99972D+02
      E(283) = 5.91869D+01
      E(284) = 2.26013D+01
      E(285) = 9.57391D+00
      E(286) = 4.31771D+00
      E(287) = 2.02373D+00
      E(288) = 9.47169D-01
      E(289) = 4.33877D-01
      E(290) = 1.92126D-01
      E(291) = 8.1404D-02
      E(292) = 3.2233D-02
      E(293) = 2.2331D+00
      E(294) = 6.332D-01
      E(295) = 1.796D-01
      E(296) = 1.5503D+00
      E(297) = 3.947D-01
CSDJ  E(298) = 8.524D-01
      S(1) = 4.8D-05
      S(2) = 1.37D-04
      S(3) = 3.69D-04
      S(4) = 9.18D-04
      S(5) = 2.265D-03
      S(6) = 5.637D-03
      S(7) = 1.4206D-02
      S(8) = 3.516D-02
      S(9) = 8.1336D-02
      S(10) = 1.64313D-01
      S(11) = 2.62732D-01
      S(12) = 2.74763D-01
      S(13) = 1.43381D-01
      S(14) = 6.9926D-02
      S(15) = 1.21733D-01
      S(16) = 8.5408D-02
      S(17) = 1.0957D-02
      S(18) = -3.62D-04
      S(19) = 9.5D-05
      S(20) = -3.1D-05
      S(21) = 3.9D-05
      S(22) = -2.7D-05
      S(23) = -7.8D-05
      S(24) = -2.09D-04
      S(25) = -5.22D-04
      S(26) = -1.29D-03
      S(27) = -3.222D-03
      S(28) = -8.158D-03
      S(29) = -2.0459D-02
      S(30) = -4.8444D-02
      S(31) = -1.03399D-01
      S(32) = -1.84186D-01
      S(33) = -2.43966D-01
      S(34) = -1.55092D-01
      S(35) = 1.87917D-01
      S(36) = 5.36126D-01
      S(37) = 3.67991D-01
      S(38) = 4.9409D-02
      S(39) = -3.825D-03
      S(40) = 8.7D-05
      S(41) = -3.08D-04
      S(42) = 2.85D-04
      S(43) = 6.0D-06
      S(44) = 1.6D-05
      S(45) = 4.3D-05
      S(46) = 1.06D-04
      S(47) = 2.63D-04
      S(48) = 6.59D-04
      S(49) = 1.672D-03
      S(50) = 4.25D-03
      S(51) = 1.0228D-02
      S(52) = 2.2863D-02
      S(53) = 4.3715D-02
      S(54) = 6.676D-02
      S(55) = 4.6623D-02
      S(56) = -8.8247D-02
      S(57) = -3.41497D-01
      S(58) = -3.59444D-01
      S(59) = 2.37022D-01
      S(60) = 6.87435D-01
      S(61) = 3.50025D-01
      S(62) = 1.7904D-02
      S(63) = -5.438D-03
      S(64) = -1.0D-06
      S(65) = -4.0D-06
      S(66) = -1.0D-05
      S(67) = -2.5D-05
      S(68) = -6.2D-05
      S(69) = -1.56D-04
      S(70) = -3.97D-04
      S(71) = -1.008D-03
      S(72) = -2.426D-03
      S(73) = -5.431D-03
      S(74) = -1.0386D-02
      S(75) = -1.5946D-02
      S(76) = -1.1136D-02
      S(77) = 2.1281D-02
      S(78) = 8.682D-02
      S(79) = 9.4619D-02
      S(80) = -7.3697D-02
      S(81) = -2.41218D-01
      S(82) = -2.56365D-01
      S(83) = 3.16867D-01
      S(84) = 6.06201D-01
      S(85) = -2.0D-06
      S(86) = -7.0D-06
      S(87) = -1.9D-05
      S(88) = -4.7D-05
      S(89) = -1.14D-04
      S(90) = -2.98D-04
      S(91) = -7.1D-04
      S(92) = -1.966D-03
      S(93) = -4.239D-03
      S(94) = -1.0891D-02
      S(95) = -1.7317D-02
      S(96) = -3.4652D-02
      S(97) = -1.0691D-02
      S(98) = 1.5581D-02
      S(99) = 2.24512D-01
      S(100) = 8.8664D-02
      S(101) = 1.5969D-02
      S(102) = -1.051999D+00
      S(103) = 3.67729D-01
      S(104) = 2.002432D+00
      S(105) = -1.226314D+00
      S(106) = -4.0D-06
      S(107) = -1.1D-05
      S(108) = -2.9D-05
      S(109) = -7.4D-05
      S(110) = -1.77D-04
      S(111) = -4.72D-04
      S(112) = -1.094D-03
      S(113) = -3.132D-03
      S(114) = -6.471D-03
      S(115) = -1.7534D-02
      S(116) = -2.5995D-02
      S(117) = -5.7483D-02
      S(118) = -1.12D-02
      S(119) = 1.147D-02
      S(120) = 4.08642D-01
      S(121) = 1.25764D-01
      S(122) = -1.61293D-01
      S(123) = -2.235015D+00
      S(124) = 2.857385D+00
      S(125) = -4.82688D-01
      S(126) = -1.878887D+00
      S(127) = -4.0D-06
      S(128) = -1.2D-05
      S(129) = -3.3D-05
      S(130) = -8.0D-05
      S(131) = -2.08D-04
      S(132) = -4.77D-04
      S(133) = -1.38D-03
      S(134) = -2.934D-03
      S(135) = -8.836D-03
      S(136) = -1.4835D-02
      S(137) = -4.1237D-02
      S(138) = -3.5313D-02
      S(139) = -7.456D-02
      S(140) = 1.56622D-01
      S(141) = 1.97097D-01
      S(142) = 7.63356D-01
      S(143) = -2.134411D+00
      S(144) = 4.04951D-01
      S(145) = 2.115322D+00
      S(146) = -5.082182D+00
      S(147) = 6.44235D+00
      S(148) = 1.0D+00
      P(149) = 4.1D-05
      P(150) = 1.75D-04
      P(151) = 7.8D-04
      P(152) = 3.092D-03
      P(153) = 1.0909D-02
      P(154) = 3.3211D-02
      P(155) = 8.5883D-02
      P(156) = 1.79524D-01
      P(157) = 2.88888D-01
      P(158) = 3.27696D-01
      P(159) = 2.1007D-01
      P(160) = 5.4925D-02
      P(161) = 1.824D-03
      P(162) = -1.583D-03
      P(163) = -1.001D-03
      P(164) = -6.0D-05
      P(165) = -1.6D-05
      P(166) = -1.4D-05
      P(167) = -5.9D-05
      P(168) = -2.62D-04
      P(169) = -1.041D-03
      P(170) = -3.691D-03
      P(171) = -1.1384D-02
      P(172) = -3.0086D-02
      P(173) = -6.5005D-02
      P(174) = -1.08509D-01
      P(175) = -1.31233D-01
      P(176) = -5.138D-02
      P(177) = 1.79725D-01
      P(178) = 3.9622D-01
      P(179) = 3.91575D-01
      P(180) = 1.73082D-01
      P(181) = 1.8813D-02
      P(182) = -2.96D-04
      P(183) = 3.0D-06
      P(184) = 1.4D-05
      P(185) = 6.3D-05
      P(186) = 2.49D-04
      P(187) = 8.88D-04
      P(188) = 2.725D-03
      P(189) = 7.265D-03
      P(190) = 1.5615D-02
      P(191) = 2.645D-02
      P(192) = 3.1766D-02
      P(193) = 1.208D-02
      P(194) = -5.3204D-02
      P(195) = -1.1294D-01
      P(196) = -1.42922D-01
      P(197) = -9.627D-03
      P(198) = 3.54068D-01
      P(199) = 5.48217D-01
      P(200) = 4.0D-06
      P(201) = 1.8D-05
      P(202) = 7.9D-05
      P(203) = 3.14D-04
      P(204) = 1.113D-03
      P(205) = 3.432D-03
      P(206) = 9.094D-03
      P(207) = 1.9666D-02
      P(208) = 3.3048D-02
      P(209) = 4.0202D-02
      P(210) = 1.5012D-02
      P(211) = -6.4097D-02
      P(212) = -1.39875D-01
      P(213) = -1.79527D-01
      P(214) = -4.9988D-02
      P(215) = 5.71018D-01
      P(216) = 5.22446D-01
      P(217) = 8.0D-06
      P(218) = 3.4D-05
      P(219) = 1.61D-04
      P(220) = 5.93D-04
      P(221) = 2.283D-03
      P(222) = 6.463D-03
      P(223) = 1.8763D-02
      P(224) = 3.6441D-02
      P(225) = 7.1011D-02
      P(226) = 7.1091D-02
      P(227) = 5.835D-02
      P(228) = -1.85934D-01
      P(229) = -3.29368D-01
      P(230) = -5.44698D-01
      P(231) = 1.160392D+00
      P(232) = 5.31026D-01
      P(233) = -9.67313D-01
      P(234) = -1.0D-05
      P(235) = -4.5D-05
      P(236) = -1.77D-04
      P(237) = -8.24D-04
      P(238) = -2.455D-03
      P(239) = -9.056D-03
      P(240) = -1.9603D-02
      P(241) = -5.3168D-02
      P(242) = -6.5931D-02
      P(243) = -1.48702D-01
      P(244) = -2.2468D-02
      P(245) = 1.80387D-01
      P(246) = 1.170471D+00
      P(247) = -1.009187D+00
      P(248) = -1.280413D+00
      P(249) = 2.283623D+00
      P(250) = -1.133533D+00
      P(251) = 1.0D+00
      D(252) = 3.87D-04
      D(253) = 3.362D-03
      D(254) = 1.6137D-02
      D(255) = 5.1905D-02
      D(256) = 1.28624D-01
      D(257) = 2.29119D-01
      D(258) = 3.01917D-01
      D(259) = 3.09649D-01
      D(260) = 2.34619D-01
      D(261) = 1.04876D-01
      D(262) = -3.95D-04
      D(263) = -3.433D-03
      D(264) = -1.6546D-02
      D(265) = -5.3843D-02
      D(266) = -1.35622D-01
      D(267) = -2.28199D-01
      D(268) = -2.56319D-01
      D(269) = -5.3921D-02
      D(270) = 3.87407D-01
      D(271) = 4.99552D-01
      D(272) = -6.27D-04
      D(273) = -5.459D-03
      D(274) = -2.667D-02
      D(275) = -8.8225D-02
      D(276) = -2.24698D-01
      D(277) = -3.28544D-01
      D(278) = -1.15835D-01
      D(279) = 6.16488D-01
      D(280) = 4.17846D-01
      D(281) = -6.08468D-01
      D(282) = -7.04D-04
      D(283) = -7.029D-03
      D(284) = -3.0681D-02
      D(285) = -1.17984D-01
      D(286) = -2.73688D-01
      D(287) = -3.82208D-01
      D(288) = 5.4167D-01
      D(289) = 7.65071D-01
      D(290) = -1.283436D+00
      D(291) = 2.7574D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR TI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN

C
C     ----- V -----
C
  123 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 3.321857D+06
      E(2) = 4.974356D+05
      E(3) = 1.132027D+05
      E(4) = 3.206333D+04
      E(5) = 1.045962D+04
      E(6) = 3.775506D+03
      E(7) = 1.47204D+03
      E(8) = 6.099331D+02
      E(9) = 2.652634D+02
      E(10) = 1.198607D+02
      E(11) = 5.544891D+01
      E(12) = 2.498372D+01
      E(13) = 1.188056D+01
      E(14) = 5.660311D+00
      E(15) = 2.495703D+00
      E(16) = 1.177866D+00
      E(17) = 5.20044D-01
      E(18) = 1.15965D-01
      E(19) = 5.8938D-02
      E(20) = 3.321857D+06
      E(21) = 4.974356D+05
      E(22) = 1.132027D+05
      E(23) = 3.206333D+04
      E(24) = 1.045962D+04
      E(25) = 3.775506D+03
      E(26) = 1.47204D+03
      E(27) = 6.099331D+02
      E(28) = 2.652634D+02
      E(29) = 1.198607D+02
      E(30) = 5.544891D+01
      E(31) = 2.498372D+01
      E(32) = 1.188056D+01
      E(33) = 5.660311D+00
      E(34) = 2.495703D+00
      E(35) = 1.177866D+00
      E(36) = 5.20044D-01
      E(37) = 1.15965D-01
      E(38) = 5.8938D-02
      E(39) = 3.321857D+06
      E(40) = 4.974356D+05
      E(41) = 1.132027D+05
      E(42) = 3.206333D+04
      E(43) = 1.045962D+04
      E(44) = 3.775506D+03
      E(45) = 1.47204D+03
      E(46) = 6.099331D+02
      E(47) = 2.652634D+02
      E(48) = 1.198607D+02
      E(49) = 5.544891D+01
      E(50) = 2.498372D+01
      E(51) = 1.188056D+01
      E(52) = 5.660311D+00
      E(53) = 2.495703D+00
      E(54) = 1.177866D+00
      E(55) = 5.20044D-01
      E(56) = 1.15965D-01
      E(57) = 5.8938D-02
      E(58) = 3.321857D+06
      E(59) = 4.974356D+05
      E(60) = 1.132027D+05
      E(61) = 3.206333D+04
      E(62) = 1.045962D+04
      E(63) = 3.775506D+03
      E(64) = 1.47204D+03
      E(65) = 6.099331D+02
      E(66) = 2.652634D+02
      E(67) = 1.198607D+02
      E(68) = 5.544891D+01
      E(69) = 2.498372D+01
      E(70) = 1.188056D+01
      E(71) = 5.660311D+00
      E(72) = 2.495703D+00
      E(73) = 1.177866D+00
      E(74) = 5.20044D-01
      E(75) = 1.15965D-01
      E(76) = 5.8938D-02
      E(77) = 3.321857D+06
      E(78) = 4.974356D+05
      E(79) = 1.132027D+05
      E(80) = 3.206333D+04
      E(81) = 1.045962D+04
      E(82) = 3.775506D+03
      E(83) = 1.47204D+03
      E(84) = 6.099331D+02
      E(85) = 2.652634D+02
      E(86) = 1.198607D+02
      E(87) = 5.544891D+01
      E(88) = 2.498372D+01
      E(89) = 1.188056D+01
      E(90) = 5.660311D+00
      E(91) = 2.495703D+00
      E(92) = 1.177866D+00
      E(93) = 5.20044D-01
      E(94) = 1.15965D-01
      E(95) = 5.8938D-02
      E(96) = 3.321857D+06
      E(97) = 4.974356D+05
      E(98) = 1.132027D+05
      E(99) = 3.206333D+04
      E(100) = 1.045962D+04
      E(101) = 3.775506D+03
      E(102) = 1.47204D+03
      E(103) = 6.099331D+02
      E(104) = 2.652634D+02
      E(105) = 1.198607D+02
      E(106) = 5.544891D+01
      E(107) = 2.498372D+01
      E(108) = 1.188056D+01
      E(109) = 5.660311D+00
      E(110) = 2.495703D+00
      E(111) = 1.177866D+00
      E(112) = 5.20044D-01
      E(113) = 1.15965D-01
      E(114) = 5.8938D-02
      E(115) = 2.6946D-02
      E(116) = 1.32732D+04
      E(117) = 3.142126D+03
      E(118) = 1.020588D+03
      E(119) = 3.904407D+02
      E(120) = 1.655043D+02
      E(121) = 7.532006D+01
      E(122) = 3.605503D+01
      E(123) = 1.780436D+01
      E(124) = 9.002929D+00
      E(125) = 4.594544D+00
      E(126) = 2.27676D+00
      E(127) = 1.101178D+00
      E(128) = 5.18638D-01
      E(129) = 2.00574D-01
      E(130) = 8.1217D-02
      E(131) = 1.32732D+04
      E(132) = 3.142126D+03
      E(133) = 1.020588D+03
      E(134) = 3.904407D+02
      E(135) = 1.655043D+02
      E(136) = 7.532006D+01
      E(137) = 3.605503D+01
      E(138) = 1.780436D+01
      E(139) = 9.002929D+00
      E(140) = 4.594544D+00
      E(141) = 2.27676D+00
      E(142) = 1.101178D+00
      E(143) = 5.18638D-01
      E(144) = 2.00574D-01
      E(145) = 8.1217D-02
      E(146) = 1.32732D+04
      E(147) = 3.142126D+03
      E(148) = 1.020588D+03
      E(149) = 3.904407D+02
      E(150) = 1.655043D+02
      E(151) = 7.532006D+01
      E(152) = 3.605503D+01
      E(153) = 1.780436D+01
      E(154) = 9.002929D+00
      E(155) = 4.594544D+00
      E(156) = 2.27676D+00
      E(157) = 1.101178D+00
      E(158) = 5.18638D-01
      E(159) = 2.00574D-01
      E(160) = 8.1217D-02
      E(161) = 1.32732D+04
      E(162) = 3.142126D+03
      E(163) = 1.020588D+03
      E(164) = 3.904407D+02
      E(165) = 1.655043D+02
      E(166) = 7.532006D+01
      E(167) = 3.605503D+01
      E(168) = 1.780436D+01
      E(169) = 9.002929D+00
      E(170) = 4.594544D+00
      E(171) = 2.27676D+00
      E(172) = 1.101178D+00
      E(173) = 5.18638D-01
      E(174) = 2.00574D-01
      E(175) = 8.1217D-02
      E(176) = 1.32732D+04
      E(177) = 3.142126D+03
      E(178) = 1.020588D+03
      E(179) = 3.904407D+02
      E(180) = 1.655043D+02
      E(181) = 7.532006D+01
      E(182) = 3.605503D+01
      E(183) = 1.780436D+01
      E(184) = 9.002929D+00
      E(185) = 4.594544D+00
      E(186) = 2.27676D+00
      E(187) = 1.101178D+00
      E(188) = 5.18638D-01
      E(189) = 2.00574D-01
      E(190) = 8.1217D-02
      E(191) = 3.1733D-02
      E(192) = 7.82841D+01
      E(193) = 2.3012D+01
      E(194) = 8.29016D+00
      E(195) = 3.30791D+00
      E(196) = 1.35555D+00
      E(197) = 5.39258D-01
      E(198) = 2.01255D-01
      E(199) = 7.82841D+01
      E(200) = 2.3012D+01
      E(201) = 8.29016D+00
      E(202) = 3.30791D+00
      E(203) = 1.35555D+00
      E(204) = 5.39258D-01
      E(205) = 2.01255D-01
      E(206) = 7.82841D+01
      E(207) = 2.3012D+01
      E(208) = 8.29016D+00
      E(209) = 3.30791D+00
      E(210) = 1.35555D+00
      E(211) = 5.39258D-01
      E(212) = 2.01255D-01
      E(213) = 6.7146D-02
      E(214) = 1.7488D+00
      E(215) = 4.057D-01
      E(216) = 1.1127D+00
      S(1) = 1.18D-04
      S(2) = 3.49D-04
      S(3) = 9.82D-04
      S(4) = 2.618D-03
      S(5) = 7.032D-03
      S(6) = 1.8966D-02
      S(7) = 4.9544D-02
      S(8) = 1.17007D-01
      S(9) = 2.28059D-01
      S(10) = 3.12805D-01
      S(11) = 2.2433D-01
      S(12) = 7.3589D-02
      S(13) = 1.07515D-01
      S(14) = 1.0737D-01
      S(15) = 1.8048D-02
      S(16) = -4.33D-04
      S(17) = 1.24D-04
      S(18) = -4.6D-05
      S(19) = 5.9D-05
      S(20) = -6.6D-05
      S(21) = -1.94D-04
      S(22) = -5.45D-04
      S(23) = -1.457D-03
      S(24) = -3.927D-03
      S(25) = -1.0668D-02
      S(26) = -2.8316D-02
      S(27) = -6.9288D-02
      S(28) = -1.46111D-01
      S(29) = -2.38945D-01
      S(30) = -2.33917D-01
      S(31) = 4.2107D-02
      S(32) = 5.02491D-01
      S(33) = 4.87815D-01
      S(34) = 8.7312D-02
      S(35) = -5.353D-03
      S(36) = 4.35D-04
      S(37) = -5.7D-04
      S(38) = 5.41D-04
      S(39) = 1.4D-05
      S(40) = 4.1D-05
      S(41) = 1.15D-04
      S(42) = 3.08D-04
      S(43) = 8.33D-04
      S(44) = 2.278D-03
      S(45) = 6.117D-03
      S(46) = 1.5408D-02
      S(47) = 3.4301D-02
      S(48) = 6.2722D-02
      S(49) = 7.1047D-02
      S(50) = -2.4119D-02
      S(51) = -2.8721D-01
      S(52) = -4.42609D-01
      S(53) = 1.06875D-01
      S(54) = 7.13329D-01
      S(55) = 4.19443D-01
      S(56) = 2.3831D-02
      S(57) = -9.883D-03
      S(58) = -3.0D-06
      S(59) = -1.0D-05
      S(60) = -2.7D-05
      S(61) = -7.2D-05
      S(62) = -1.94D-04
      S(63) = -5.3D-04
      S(64) = -1.425D-03
      S(65) = -3.589D-03
      S(66) = -8.003D-03
      S(67) = -1.4661D-02
      S(68) = -1.6704D-02
      S(69) = 5.706D-03
      S(70) = 7.0356D-02
      S(71) = 1.14562D-01
      S(72) = -3.595D-02
      S(73) = -2.3442D-01
      S(74) = -2.72682D-01
      S(75) = 2.96528D-01
      S(76) = 5.7721D-01
      S(77) = -6.0D-06
      S(78) = -1.8D-05
      S(79) = -5.1D-05
      S(80) = -1.41D-04
      S(81) = -3.66D-04
      S(82) = -1.061D-03
      S(83) = -2.635D-03
      S(84) = -7.343D-03
      S(85) = -1.4327D-02
      S(86) = -3.1641D-02
      S(87) = -2.475D-02
      S(88) = -8.638D-03
      S(89) = 1.87221D-01
      S(90) = 1.47967D-01
      S(91) = 9.3307D-02
      S(92) = -1.056754D+00
      S(93) = 2.91652D-01
      S(94) = 2.133999D+00
      S(95) = -1.354378D+00
      S(96) = -1.0D-05
      S(97) = -2.9D-05
      S(98) = -8.1D-05
      S(99) = -2.24D-04
      S(100) = -5.75D-04
      S(101) = -1.702D-03
      S(102) = -4.097D-03
      S(103) = -1.1893D-02
      S(104) = -2.2022D-02
      S(105) = -5.2401D-02
      S(106) = -3.4998D-02
      S(107) = -2.5851D-02
      S(108) = 3.41698D-01
      S(109) = 2.39962D-01
      S(110) = 3.1003D-02
      S(111) = -2.383583D+00
      S(112) = 2.699287D+00
      S(113) = -2.78831D-01
      S(114) = -1.983653D+00
      S(115) = 1.0D+00
      P(116) = 1.08D-04
      P(117) = 5.39D-04
      P(118) = 2.582D-03
      P(119) = 1.039D-02
      P(120) = 3.5189D-02
      P(121) = 9.7589D-02
      P(122) = 2.10236D-01
      P(123) = 3.30694D-01
      P(124) = 3.30698D-01
      P(125) = 1.567D-01
      P(126) = 2.1857D-02
      P(127) = -1.768D-03
      P(128) = -1.457D-03
      P(129) = -2.83D-04
      P(130) = 3.1D-05
      P(131) = -3.7D-05
      P(132) = -1.84D-04
      P(133) = -8.83D-04
      P(134) = -3.576D-03
      P(135) = -1.2264D-02
      P(136) = -3.4891D-02
      P(137) = -7.7889D-02
      P(138) = -1.28415D-01
      P(139) = -1.33896D-01
      P(140) = 2.3159D-02
      P(141) = 3.22075D-01
      P(142) = 4.59886D-01
      P(143) = 2.93122D-01
      P(144) = 4.8445D-02
      P(145) = -3.703D-03
      P(146) = 9.0D-06
      P(147) = 4.4D-05
      P(148) = 2.14D-04
      P(149) = 8.62D-04
      P(150) = 2.972D-03
      P(151) = 8.441D-03
      P(152) = 1.8995D-02
      P(153) = 3.1289D-02
      P(154) = 3.3338D-02
      P(155) = -1.0075D-02
      P(156) = -9.2562D-02
      P(157) = -1.48861D-01
      P(158) = -8.2302D-02
      P(159) = 2.50459D-01
      P(160) = 5.79925D-01
      P(161) = 1.1D-05
      P(162) = 5.6D-05
      P(163) = 2.66D-04
      P(164) = 1.087D-03
      P(165) = 3.688D-03
      P(166) = 1.064D-02
      P(167) = 2.3468D-02
      P(168) = 3.9763D-02
      P(169) = 4.0188D-02
      P(170) = -8.099D-03
      P(171) = -1.18328D-01
      P(172) = -1.73003D-01
      P(173) = -1.53963D-01
      P(174) = 4.1182D-01
      P(175) = 6.69652D-01
      P(176) = 2.3D-05
      P(177) = 1.07D-04
      P(178) = 5.57D-04
      P(179) = 2.055D-03
      P(180) = 7.788D-03
      P(181) = 1.9891D-02
      P(182) = 5.075D-02
      P(183) = 7.0533D-02
      P(184) = 1.08108D-01
      P(185) = -6.0677D-02
      P(186) = -2.16291D-01
      P(187) = -6.78628D-01
      P(188) = 6.03563D-01
      P(189) = 1.114854D+00
      P(190) = -9.88072D-01
      P(191) = 1.0D+00
      D(192) = 3.587D-03
      D(193) = 2.4974D-02
      D(194) = 9.4029D-02
      D(195) = 2.29042D-01
      D(196) = 3.51803D-01
      D(197) = 3.70889D-01
      D(198) = 2.48558D-01
      D(199) = -3.818D-03
      D(200) = -2.6531D-02
      D(201) = -1.03047D-01
      D(202) = -2.4669D-01
      D(203) = -3.12925D-01
      D(204) = -2.7581D-02
      D(205) = 5.66011D-01
      D(206) = 5.98D-03
      D(207) = 4.1779D-02
      D(208) = 1.68947D-01
      D(209) = 3.83133D-01
      D(210) = 2.11889D-01
      D(211) = -7.71553D-01
      D(212) = -1.2986D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
        ILAST = 216 
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.025178D+07
      E(2) = 1.53492D+06
      E(3) = 3.493009D+05
      E(4) = 9.894205D+04
      E(5) = 3.228136D+04
      E(6) = 1.165527D+04
      E(7) = 4.546548D+03
      E(8) = 1.886185D+03
      E(9) = 8.229417D+02
      E(10) = 3.743439D+02
      E(11) = 1.763069D+02
      E(12) = 8.540661D+01
      E(13) = 4.190435D+01
      E(14) = 1.915525D+01
      E(15) = 9.571617D+00
      E(16) = 4.780086D+00
      E(17) = 2.16186D+00
      E(18) = 1.042711D+00
      E(19) = 4.80282D-01
      E(20) = 1.17638D-01
      E(21) = 5.6174D-02
      E(22) = 1.025178D+07
      E(23) = 1.53492D+06
      E(24) = 3.493009D+05
      E(25) = 9.894205D+04
      E(26) = 3.228136D+04
      E(27) = 1.165527D+04
      E(28) = 4.546548D+03
      E(29) = 1.886185D+03
      E(30) = 8.229417D+02
      E(31) = 3.743439D+02
      E(32) = 1.763069D+02
      E(33) = 8.540661D+01
      E(34) = 4.190435D+01
      E(35) = 1.915525D+01
      E(36) = 9.571617D+00
      E(37) = 4.780086D+00
      E(38) = 2.16186D+00
      E(39) = 1.042711D+00
      E(40) = 4.80282D-01
      E(41) = 1.17638D-01
      E(42) = 5.6174D-02
      E(43) = 1.025178D+07
      E(44) = 1.53492D+06
      E(45) = 3.493009D+05
      E(46) = 9.894205D+04
      E(47) = 3.228136D+04
      E(48) = 1.165527D+04
      E(49) = 4.546548D+03
      E(50) = 1.886185D+03
      E(51) = 8.229417D+02
      E(52) = 3.743439D+02
      E(53) = 1.763069D+02
      E(54) = 8.540661D+01
      E(55) = 4.190435D+01
      E(56) = 1.915525D+01
      E(57) = 9.571617D+00
      E(58) = 4.780086D+00
      E(59) = 2.16186D+00
      E(60) = 1.042711D+00
      E(61) = 4.80282D-01
      E(62) = 1.17638D-01
      E(63) = 5.6174D-02
      E(64) = 1.025178D+07
      E(65) = 1.53492D+06
      E(66) = 3.493009D+05
      E(67) = 9.894205D+04
      E(68) = 3.228136D+04
      E(69) = 1.165527D+04
      E(70) = 4.546548D+03
      E(71) = 1.886185D+03
      E(72) = 8.229417D+02
      E(73) = 3.743439D+02
      E(74) = 1.763069D+02
      E(75) = 8.540661D+01
      E(76) = 4.190435D+01
      E(77) = 1.915525D+01
      E(78) = 9.571617D+00
      E(79) = 4.780086D+00
      E(80) = 2.16186D+00
      E(81) = 1.042711D+00
      E(82) = 4.80282D-01
      E(83) = 1.17638D-01
      E(84) = 5.6174D-02
      E(85) = 1.025178D+07
      E(86) = 1.53492D+06
      E(87) = 3.493009D+05
      E(88) = 9.894205D+04
      E(89) = 3.228136D+04
      E(90) = 1.165527D+04
      E(91) = 4.546548D+03
      E(92) = 1.886185D+03
      E(93) = 8.229417D+02
      E(94) = 3.743439D+02
      E(95) = 1.763069D+02
      E(96) = 8.540661D+01
      E(97) = 4.190435D+01
      E(98) = 1.915525D+01
      E(99) = 9.571617D+00
      E(100) = 4.780086D+00
      E(101) = 2.16186D+00
      E(102) = 1.042711D+00
      E(103) = 4.80282D-01
      E(104) = 1.17638D-01
      E(105) = 5.6174D-02
      E(106) = 1.025178D+07
      E(107) = 1.53492D+06
      E(108) = 3.493009D+05
      E(109) = 9.894205D+04
      E(110) = 3.228136D+04
      E(111) = 1.165527D+04
      E(112) = 4.546548D+03
      E(113) = 1.886185D+03
      E(114) = 8.229417D+02
      E(115) = 3.743439D+02
      E(116) = 1.763069D+02
      E(117) = 8.540661D+01
      E(118) = 4.190435D+01
      E(119) = 1.915525D+01
      E(120) = 9.571617D+00
      E(121) = 4.780086D+00
      E(122) = 2.16186D+00
      E(123) = 1.042711D+00
      E(124) = 4.80282D-01
      E(125) = 1.17638D-01
      E(126) = 5.6174D-02
      E(127) = 1.025178D+07
      E(128) = 1.53492D+06
      E(129) = 3.493009D+05
      E(130) = 9.894205D+04
      E(131) = 3.228136D+04
      E(132) = 1.165527D+04
      E(133) = 4.546548D+03
      E(134) = 1.886185D+03
      E(135) = 8.229417D+02
      E(136) = 3.743439D+02
      E(137) = 1.763069D+02
      E(138) = 8.540661D+01
      E(139) = 4.190435D+01
      E(140) = 1.915525D+01
      E(141) = 9.571617D+00
      E(142) = 4.780086D+00
      E(143) = 2.16186D+00
      E(144) = 1.042711D+00
      E(145) = 4.80282D-01
      E(146) = 1.17638D-01
      E(147) = 5.6174D-02
      E(148) = 2.5661D-02
      E(149) = 2.856332D+04
      E(150) = 6.757191D+03
      E(151) = 2.194652D+03
      E(152) = 8.405257D+02
      E(153) = 3.576666D+02
      E(154) = 1.637534D+02
      E(155) = 7.914466D+01
      E(156) = 3.983858D+01
      E(157) = 2.058536D+01
      E(158) = 1.084307D+01
      E(159) = 5.777969D+00
      E(160) = 3.04317D+00
      E(161) = 1.570239D+00
      E(162) = 7.94975D-01
      E(163) = 3.8898D-01
      E(164) = 1.57335D-01
      E(165) = 6.6583D-02
      E(166) = 2.856332D+04
      E(167) = 6.757191D+03
      E(168) = 2.194652D+03
      E(169) = 8.405257D+02
      E(170) = 3.576666D+02
      E(171) = 1.637534D+02
      E(172) = 7.914466D+01
      E(173) = 3.983858D+01
      E(174) = 2.058536D+01
      E(175) = 1.084307D+01
      E(176) = 5.777969D+00
      E(177) = 3.04317D+00
      E(178) = 1.570239D+00
      E(179) = 7.94975D-01
      E(180) = 3.8898D-01
      E(181) = 1.57335D-01
      E(182) = 6.6583D-02
      E(183) = 2.856332D+04
      E(184) = 6.757191D+03
      E(185) = 2.194652D+03
      E(186) = 8.405257D+02
      E(187) = 3.576666D+02
      E(188) = 1.637534D+02
      E(189) = 7.914466D+01
      E(190) = 3.983858D+01
      E(191) = 2.058536D+01
      E(192) = 1.084307D+01
      E(193) = 5.777969D+00
      E(194) = 3.04317D+00
      E(195) = 1.570239D+00
      E(196) = 7.94975D-01
      E(197) = 3.8898D-01
      E(198) = 1.57335D-01
      E(199) = 6.6583D-02
      E(200) = 2.856332D+04
      E(201) = 6.757191D+03
      E(202) = 2.194652D+03
      E(203) = 8.405257D+02
      E(204) = 3.576666D+02
      E(205) = 1.637534D+02
      E(206) = 7.914466D+01
      E(207) = 3.983858D+01
      E(208) = 2.058536D+01
      E(209) = 1.084307D+01
      E(210) = 5.777969D+00
      E(211) = 3.04317D+00
      E(212) = 1.570239D+00
      E(213) = 7.94975D-01
      E(214) = 3.8898D-01
      E(215) = 1.57335D-01
      E(216) = 6.6583D-02
      E(217) = 2.856332D+04
      E(218) = 6.757191D+03
      E(219) = 2.194652D+03
      E(220) = 8.405257D+02
      E(221) = 3.576666D+02
      E(222) = 1.637534D+02
      E(223) = 7.914466D+01
      E(224) = 3.983858D+01
      E(225) = 2.058536D+01
      E(226) = 1.084307D+01
      E(227) = 5.777969D+00
      E(228) = 3.04317D+00
      E(229) = 1.570239D+00
      E(230) = 7.94975D-01
      E(231) = 3.8898D-01
      E(232) = 1.57335D-01
      E(233) = 6.6583D-02
      E(234) = 2.856332D+04
      E(235) = 6.757191D+03
      E(236) = 2.194652D+03
      E(237) = 8.405257D+02
      E(238) = 3.576666D+02
      E(239) = 1.637534D+02
      E(240) = 7.914466D+01
      E(241) = 3.983858D+01
      E(242) = 2.058536D+01
      E(243) = 1.084307D+01
      E(244) = 5.777969D+00
      E(245) = 3.04317D+00
      E(246) = 1.570239D+00
      E(247) = 7.94975D-01
      E(248) = 3.8898D-01
      E(249) = 1.57335D-01
      E(250) = 6.6583D-02
      E(251) = 2.7844D-02
      E(252) = 2.44347D+02
      E(253) = 7.22926D+01
      E(254) = 2.76493D+01
      E(255) = 1.17778D+01
      E(256) = 5.33731D+00
      E(257) = 2.5176D+00
      E(258) = 1.18881D+00
      E(259) = 5.49967D-01
      E(260) = 2.45738D-01
      E(261) = 1.04504D-01
      E(262) = 2.44347D+02
      E(263) = 7.22926D+01
      E(264) = 2.76493D+01
      E(265) = 1.17778D+01
      E(266) = 5.33731D+00
      E(267) = 2.5176D+00
      E(268) = 1.18881D+00
      E(269) = 5.49967D-01
      E(270) = 2.45738D-01
      E(271) = 1.04504D-01
      E(272) = 2.44347D+02
      E(273) = 7.22926D+01
      E(274) = 2.76493D+01
      E(275) = 1.17778D+01
      E(276) = 5.33731D+00
      E(277) = 2.5176D+00
      E(278) = 1.18881D+00
      E(279) = 5.49967D-01
      E(280) = 2.45738D-01
      E(281) = 1.04504D-01
      E(282) = 2.44347D+02
      E(283) = 7.22926D+01
      E(284) = 2.76493D+01
      E(285) = 1.17778D+01
      E(286) = 5.33731D+00
      E(287) = 2.5176D+00
      E(288) = 1.18881D+00
      E(289) = 5.49967D-01
      E(290) = 2.45738D-01
      E(291) = 1.04504D-01
      E(292) = 4.1145D-02
      E(293) = 3.0318D+00
      E(294) = 8.733D-01
      E(295) = 2.516D-01
      E(296) = 2.1265D+00
      E(297) = 5.564D-01
CSDJ  E(298) = 1.2875D+00
      S(1) = 5.1D-05
      S(2) = 1.45D-04
      S(3) = 3.88D-04
      S(4) = 9.59D-04
      S(5) = 2.346D-03
      S(6) = 5.778D-03
      S(7) = 1.4418D-02
      S(8) = 3.5441D-02
      S(9) = 8.1715D-02
      S(10) = 1.64965D-01
      S(11) = 2.64175D-01
      S(12) = 2.77633D-01
      S(13) = 1.4606D-01
      S(14) = 6.8325D-02
      S(15) = 1.15365D-01
      S(16) = 8.027D-02
      S(17) = 1.0206D-02
      S(18) = -3.07D-04
      S(19) = 6.1D-05
      S(20) = -2.0D-05
      S(21) = 3.7D-05
      S(22) = -2.8D-05
      S(23) = -8.0D-05
      S(24) = -2.15D-04
      S(25) = -5.33D-04
      S(26) = -1.305D-03
      S(27) = -3.225D-03
      S(28) = -8.089D-03
      S(29) = -2.0152D-02
      S(30) = -4.7582D-02
      S(31) = -1.01586D-01
      S(32) = -1.81479D-01
      S(33) = -2.4184D-01
      S(34) = -1.54691D-01
      S(35) = 1.90622D-01
      S(36) = 5.39727D-01
      S(37) = 3.66705D-01
      S(38) = 4.8936D-02
      S(39) = -3.757D-03
      S(40) = -4.1D-05
      S(41) = -2.62D-04
      S(42) = 2.88D-04
      S(43) = 6.0D-06
      S(44) = 1.7D-05
      S(45) = 4.5D-05
      S(46) = 1.13D-04
      S(47) = 2.76D-04
      S(48) = 6.85D-04
      S(49) = 1.722D-03
      S(50) = 4.346D-03
      S(51) = 1.0426D-02
      S(52) = 2.3282D-02
      S(53) = 4.4548D-02
      S(54) = 6.8147D-02
      S(55) = 4.7783D-02
      S(56) = -9.0964D-02
      S(57) = -3.50911D-01
      S(58) = -3.58208D-01
      S(59) = 2.52382D-01
      S(60) = 6.88135D-01
      S(61) = 3.40434D-01
      S(62) = 1.6732D-02
      S(63) = -4.967D-03
      S(64) = -1.0D-06
      S(65) = -4.0D-06
      S(66) = -1.1D-05
      S(67) = -2.6D-05
      S(68) = -6.4D-05
      S(69) = -1.59D-04
      S(70) = -4.01D-04
      S(71) = -1.012D-03
      S(72) = -2.426D-03
      S(73) = -5.431D-03
      S(74) = -1.0384D-02
      S(75) = -1.5996D-02
      S(76) = -1.1176D-02
      S(77) = 2.1485D-02
      S(78) = 8.7879D-02
      S(79) = 9.2292D-02
      S(80) = -7.6284D-02
      S(81) = -2.40919D-01
      S(82) = -2.42542D-01
      S(83) = 3.2019D-01
      S(84) = 5.99166D-01
      S(85) = -3.0D-06
      S(86) = -8.0D-06
      S(87) = -2.0D-05
      S(88) = -5.1D-05
      S(89) = -1.22D-04
      S(90) = -3.18D-04
      S(91) = -7.48D-04
      S(92) = -2.061D-03
      S(93) = -4.415D-03
      S(94) = -1.1381D-02
      S(95) = -1.8008D-02
      S(96) = -3.6388D-02
      S(97) = -1.0916D-02
      S(98) = 1.5866D-02
      S(99) = 2.38561D-01
      S(100) = 8.6127D-02
      S(101) = 4.511D-03
      S(102) = -1.093647D+00
      S(103) = 4.53057D-01
      S(104) = 1.930909D+00
      S(105) = -1.232763D+00
      S(106) = -4.0D-06
      S(107) = -1.2D-05
      S(108) = -3.2D-05
      S(109) = -8.1D-05
      S(110) = -1.91D-04
      S(111) = -5.02D-04
      S(112) = -1.163D-03
      S(113) = -3.271D-03
      S(114) = -6.835D-03
      S(115) = -1.8185D-02
      S(116) = -2.7653D-02
      S(117) = -5.9336D-02
      S(118) = -1.3991D-02
      S(119) = 1.7781D-02
      S(120) = 4.23944D-01
      S(121) = 1.44325D-01
      S(122) = -2.71761D-01
      S(123) = -2.144841D+00
      S(124) = 2.906128D+00
      S(125) = -7.88185D-01
      S(126) = -1.465906D+00
      S(127) = -5.0D-06
      S(128) = -1.4D-05
      S(129) = -3.7D-05
      S(130) = -8.9D-05
      S(131) = -2.32D-04
      S(132) = -5.2D-04
      S(133) = -1.518D-03
      S(134) = -3.121D-03
      S(135) = -9.688D-03
      S(136) = -1.5529D-02
      S(137) = -4.5717D-02
      S(138) = -3.546D-02
      S(139) = -8.714D-02
      S(140) = 1.87605D-01
      S(141) = 2.02265D-01
      S(142) = 8.40822D-01
      S(143) = -2.580707D+00
      S(144) = 1.190346D+00
      S(145) = 1.473205D+00
      S(146) = -4.544161D+00
      S(147) = 5.996761D+00
      S(148) = 1.0D+00
      P(149) = 4.3D-05
      P(150) = 1.78D-04
      P(151) = 7.81D-04
      P(152) = 3.062D-03
      P(153) = 1.0768D-02
      P(154) = 3.2792D-02
      P(155) = 8.5036D-02
      P(156) = 1.78582D-01
      P(157) = 2.88783D-01
      P(158) = 3.28252D-01
      P(159) = 2.10457D-01
      P(160) = 5.519D-02
      P(161) = 1.883D-03
      P(162) = -1.627D-03
      P(163) = -1.007D-03
      P(164) = -6.2D-05
      P(165) = -1.3D-05
      P(166) = -1.5D-05
      P(167) = -6.1D-05
      P(168) = -2.67D-04
      P(169) = -1.049D-03
      P(170) = -3.707D-03
      P(171) = -1.1438D-02
      P(172) = -3.032D-02
      P(173) = -6.5871D-02
      P(174) = -1.10636D-01
      P(175) = -1.33796D-01
      P(176) = -5.047D-02
      P(177) = 1.84138D-01
      P(178) = 3.98676D-01
      P(179) = 3.87783D-01
      P(180) = 1.71007D-01
      P(181) = 1.8565D-02
      P(182) = -5.59D-04
      P(183) = 4.0D-06
      P(184) = 1.5D-05
      P(185) = 6.5D-05
      P(186) = 2.52D-04
      P(187) = 8.98D-04
      P(188) = 2.756D-03
      P(189) = 7.376D-03
      P(190) = 1.5933D-02
      P(191) = 2.7195D-02
      P(192) = 3.2594D-02
      P(193) = 1.1821D-02
      P(194) = -5.5837D-02
      P(195) = -1.15635D-01
      P(196) = -1.38637D-01
      P(197) = 2.213D-03
      P(198) = 3.52042D-01
      P(199) = 5.41156D-01
      P(200) = 4.0D-06
      P(201) = 1.8D-05
      P(202) = 8.1D-05
      P(203) = 3.18D-04
      P(204) = 1.124D-03
      P(205) = 3.468D-03
      P(206) = 9.214D-03
      P(207) = 2.0046D-02
      P(208) = 3.3884D-02
      P(209) = 4.1288D-02
      P(210) = 1.47D-02
      P(211) = -6.6218D-02
      P(212) = -1.43687D-01
      P(213) = -1.78018D-01
      P(214) = -3.3583D-02
      P(215) = 5.7644D-01
      P(216) = 5.11071D-01
      P(217) = 9.0D-06
      P(218) = 3.6D-05
      P(219) = 1.68D-04
      P(220) = 6.15D-04
      P(221) = 2.356D-03
      P(222) = 6.677D-03
      P(223) = 1.9441D-02
      P(224) = 3.802D-02
      P(225) = 7.4394D-02
      P(226) = 7.4666D-02
      P(227) = 5.9698D-02
      P(228) = -2.02846D-01
      P(229) = -3.46791D-01
      P(230) = -4.97173D-01
      P(231) = 1.159302D+00
      P(232) = 4.79112D-01
      P(233) = -9.45592D-01
      P(234) = -1.1D-05
      P(235) = -5.0D-05
      P(236) = -1.9D-04
      P(237) = -8.75D-04
      P(238) = -2.607D-03
      P(239) = -9.613D-03
      P(240) = -2.0946D-02
      P(241) = -5.7095D-02
      P(242) = -7.125D-02
      P(243) = -1.5852D-01
      P(244) = -1.8793D-02
      P(245) = 2.40947D-01
      P(246) = 1.142385D+00
      P(247) = -1.13662D+00
      P(248) = -1.077488D+00
      P(249) = 2.160207D+00
      P(250) = -1.131337D+00
      P(251) = 1.0D+00
      D(252) = 3.51D-04
      D(253) = 3.085D-03
      D(254) = 1.5258D-02
      D(255) = 5.0245D-02
      D(256) = 1.26523D-01
      D(257) = 2.2928D-01
      D(258) = 3.03406D-01
      D(259) = 3.08867D-01
      D(260) = 2.31089D-01
      D(261) = 1.03709D-01
      D(262) = -3.72D-04
      D(263) = -3.277D-03
      D(264) = -1.6279D-02
      D(265) = -5.4316D-02
      D(266) = -1.39911D-01
      D(267) = -2.39D-01
      D(268) = -2.53807D-01
      D(269) = -3.0322D-02
      D(270) = 3.83947D-01
      D(271) = 4.87982D-01
      D(272) = -5.75D-04
      D(273) = -5.077D-03
      D(274) = -2.5517D-02
      D(275) = -8.6834D-02
      D(276) = -2.28565D-01
      D(277) = -3.37656D-01
      D(278) = -9.1766D-02
      D(279) = 6.19922D-01
      D(280) = 3.93747D-01
      D(281) = -6.0298D-01
      D(282) = -7.31D-04
      D(283) = -7.095D-03
      D(284) = -3.3186D-02
      D(285) = -1.26942D-01
      D(286) = -3.25086D-01
      D(287) = -3.625D-01
      D(288) = 6.68913D-01
      D(289) = 6.03743D-01
      D(290) = -1.216481D+00
      D(291) = 2.81701D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR V'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     -----CR -----
C
  124 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 6.177194D+06
      E(2) = 9.249295D+05
      E(3) = 2.104865D+05
      E(4) = 5.962005D+04
      E(5) = 1.945076D+04
      E(6) = 7.022056D+03
      E(7) = 2.738763D+03
      E(8) = 1.135814D+03
      E(9) = 4.950923D+02
      E(10) = 2.247487D+02
      E(11) = 1.053836D+02
      E(12) = 5.019359D+01
      E(13) = 2.224957D+01
      E(14) = 1.098265D+01
      E(15) = 5.383665D+00
      E(16) = 2.343685D+00
      E(17) = 1.105202D+00
      E(18) = 4.87848D-01
      E(19) = 8.9599D-02
      E(20) = 6.177194D+06
      E(21) = 9.249295D+05
      E(22) = 2.104865D+05
      E(23) = 5.962005D+04
      E(24) = 1.945076D+04
      E(25) = 7.022056D+03
      E(26) = 2.738763D+03
      E(27) = 1.135814D+03
      E(28) = 4.950923D+02
      E(29) = 2.247487D+02
      E(30) = 1.053836D+02
      E(31) = 5.019359D+01
      E(32) = 2.224957D+01
      E(33) = 1.098265D+01
      E(34) = 5.383665D+00
      E(35) = 2.343685D+00
      E(36) = 1.105202D+00
      E(37) = 4.87848D-01
      E(38) = 8.9599D-02
      E(39) = 6.177194D+06
      E(40) = 9.249295D+05
      E(41) = 2.104865D+05
      E(42) = 5.962005D+04
      E(43) = 1.945076D+04
      E(44) = 7.022056D+03
      E(45) = 2.738763D+03
      E(46) = 1.135814D+03
      E(47) = 4.950923D+02
      E(48) = 2.247487D+02
      E(49) = 1.053836D+02
      E(50) = 5.019359D+01
      E(51) = 2.224957D+01
      E(52) = 1.098265D+01
      E(53) = 5.383665D+00
      E(54) = 2.343685D+00
      E(55) = 1.105202D+00
      E(56) = 4.87848D-01
      E(57) = 8.9599D-02
      E(58) = 6.177194D+06
      E(59) = 9.249295D+05
      E(60) = 2.104865D+05
      E(61) = 5.962005D+04
      E(62) = 1.945076D+04
      E(63) = 7.022056D+03
      E(64) = 2.738763D+03
      E(65) = 1.135814D+03
      E(66) = 4.950923D+02
      E(67) = 2.247487D+02
      E(68) = 1.053836D+02
      E(69) = 5.019359D+01
      E(70) = 2.224957D+01
      E(71) = 1.098265D+01
      E(72) = 5.383665D+00
      E(73) = 2.343685D+00
      E(74) = 1.105202D+00
      E(75) = 4.87848D-01
      E(76) = 8.9599D-02
      E(77) = 6.177194D+06
      E(78) = 9.249295D+05
      E(79) = 2.104865D+05
      E(80) = 5.962005D+04
      E(81) = 1.945076D+04
      E(82) = 7.022056D+03
      E(83) = 2.738763D+03
      E(84) = 1.135814D+03
      E(85) = 4.950923D+02
      E(86) = 2.247487D+02
      E(87) = 1.053836D+02
      E(88) = 5.019359D+01
      E(89) = 2.224957D+01
      E(90) = 1.098265D+01
      E(91) = 5.383665D+00
      E(92) = 2.343685D+00
      E(93) = 1.105202D+00
      E(94) = 4.87848D-01
      E(95) = 8.9599D-02
      E(96) = 6.177194D+06
      E(97) = 9.249295D+05
      E(98) = 2.104865D+05
      E(99) = 5.962005D+04
      E(100) = 1.945076D+04
      E(101) = 7.022056D+03
      E(102) = 2.738763D+03
      E(103) = 1.135814D+03
      E(104) = 4.950923D+02
      E(105) = 2.247487D+02
      E(106) = 1.053836D+02
      E(107) = 5.019359D+01
      E(108) = 2.224957D+01
      E(109) = 1.098265D+01
      E(110) = 5.383665D+00
      E(111) = 2.343685D+00
      E(112) = 1.105202D+00
      E(113) = 4.87848D-01
      E(114) = 8.9599D-02
      E(115) = 3.3423D-02
      E(116) = 1.44542D+04
      E(117) = 3.421676D+03
      E(118) = 1.111387D+03
      E(119) = 4.251918D+02
      E(120) = 1.802623D+02
      E(121) = 8.206117D+01
      E(122) = 3.929726D+01
      E(123) = 1.941959D+01
      E(124) = 9.828899D+00
      E(125) = 5.01681D+00
      E(126) = 2.487091D+00
      E(127) = 1.19878D+00
      E(128) = 5.58695D-01
      E(129) = 2.09366D-01
      E(130) = 8.4722D-02
      E(131) = 1.44542D+04
      E(132) = 3.421676D+03
      E(133) = 1.111387D+03
      E(134) = 4.251918D+02
      E(135) = 1.802623D+02
      E(136) = 8.206117D+01
      E(137) = 3.929726D+01
      E(138) = 1.941959D+01
      E(139) = 9.828899D+00
      E(140) = 5.01681D+00
      E(141) = 2.487091D+00
      E(142) = 1.19878D+00
      E(143) = 5.58695D-01
      E(144) = 2.09366D-01
      E(145) = 8.4722D-02
      E(146) = 1.44542D+04
      E(147) = 3.421676D+03
      E(148) = 1.111387D+03
      E(149) = 4.251918D+02
      E(150) = 1.802623D+02
      E(151) = 8.206117D+01
      E(152) = 3.929726D+01
      E(153) = 1.941959D+01
      E(154) = 9.828899D+00
      E(155) = 5.01681D+00
      E(156) = 2.487091D+00
      E(157) = 1.19878D+00
      E(158) = 5.58695D-01
      E(159) = 2.09366D-01
      E(160) = 8.4722D-02
      E(161) = 1.44542D+04
      E(162) = 3.421676D+03
      E(163) = 1.111387D+03
      E(164) = 4.251918D+02
      E(165) = 1.802623D+02
      E(166) = 8.206117D+01
      E(167) = 3.929726D+01
      E(168) = 1.941959D+01
      E(169) = 9.828899D+00
      E(170) = 5.01681D+00
      E(171) = 2.487091D+00
      E(172) = 1.19878D+00
      E(173) = 5.58695D-01
      E(174) = 2.09366D-01
      E(175) = 8.4722D-02
      E(176) = 1.44542D+04
      E(177) = 3.421676D+03
      E(178) = 1.111387D+03
      E(179) = 4.251918D+02
      E(180) = 1.802623D+02
      E(181) = 8.206117D+01
      E(182) = 3.929726D+01
      E(183) = 1.941959D+01
      E(184) = 9.828899D+00
      E(185) = 5.01681D+00
      E(186) = 2.487091D+00
      E(187) = 1.19878D+00
      E(188) = 5.58695D-01
      E(189) = 2.09366D-01
      E(190) = 8.4722D-02
      E(191) = 3.3278D-02
      E(192) = 8.94745D+01
      E(193) = 2.63368D+01
      E(194) = 9.53429D+00
      E(195) = 3.82118D+00
      E(196) = 1.57169D+00
      E(197) = 6.26422D-01
      E(198) = 2.33055D-01
      E(199) = 8.94745D+01
      E(200) = 2.63368D+01
      E(201) = 9.53429D+00
      E(202) = 3.82118D+00
      E(203) = 1.57169D+00
      E(204) = 6.26422D-01
      E(205) = 2.33055D-01
      E(206) = 8.94745D+01
      E(207) = 2.63368D+01
      E(208) = 9.53429D+00
      E(209) = 3.82118D+00
      E(210) = 1.57169D+00
      E(211) = 6.26422D-01
      E(212) = 2.33055D-01
      E(213) = 7.6303D-02
      E(214) = 2.2211D+00
      E(215) = 5.231D-01
      E(216) = 1.4199D+00
      S(1) = 8.4D-05
      S(2) = 2.41D-04
      S(3) = 6.58D-04
      S(4) = 1.673D-03
      S(5) = 4.248D-03
      S(6) = 1.0889D-02
      S(7) = 2.7859D-02
      S(8) = 6.7888D-02
      S(9) = 1.46802D-01
      S(10) = 2.55623D-01
      S(11) = 2.98408D-01
      S(12) = 1.7456D-01
      S(13) = 6.969D-02
      S(14) = 1.14184D-01
      S(15) = 8.407D-02
      S(16) = 9.926D-03
      S(17) = -3.16D-04
      S(18) = 5.9D-05
      S(19) = 1.6D-05
      S(20) = -4.6D-05
      S(21) = -1.34D-04
      S(22) = -3.64D-04
      S(23) = -9.27D-04
      S(24) = -2.361D-03
      S(25) = -6.076D-03
      S(26) = -1.5723D-02
      S(27) = -3.9078D-02
      S(28) = -8.8711D-02
      S(29) = -1.70112D-01
      S(30) = -2.47298D-01
      S(31) = -1.86381D-01
      S(32) = 1.58439D-01
      S(33) = 5.48125D-01
      S(34) = 3.88579D-01
      S(35) = 4.9281D-02
      S(36) = -4.305D-03
      S(37) = 1.11D-04
      S(38) = -2.7D-05
      S(39) = 1.0D-05
      S(40) = 2.9D-05
      S(41) = 7.8D-05
      S(42) = 2.0D-04
      S(43) = 5.11D-04
      S(44) = 1.317D-03
      S(45) = 3.447D-03
      S(46) = 8.668D-03
      S(47) = 2.0495D-02
      S(48) = 4.1701D-02
      S(49) = 6.93D-02
      S(50) = 5.8189D-02
      S(51) = -7.6181D-02
      S(52) = -3.56138D-01
      S(53) = -3.72651D-01
      S(54) = 2.83803D-01
      S(55) = 7.14934D-01
      S(56) = 2.90876D-01
      S(57) = 6.909D-03
      S(58) = -2.0D-06
      S(59) = -7.0D-06
      S(60) = -1.8D-05
      S(61) = -4.5D-05
      S(62) = -1.17D-04
      S(63) = -2.98D-04
      S(64) = -7.9D-04
      S(65) = -1.957D-03
      S(66) = -4.725D-03
      S(67) = -9.368D-03
      S(68) = -1.625D-02
      S(69) = -1.2549D-02
      S(70) = 1.555D-02
      S(71) = 9.1691D-02
      S(72) = 8.5426D-02
      S(73) = -6.625D-02
      S(74) = -2.86852D-01
      S(75) = -1.70303D-01
      S(76) = 6.96726D-01
      S(77) = 4.0D-06
      S(78) = 1.3D-05
      S(79) = 3.6D-05
      S(80) = 8.8D-05
      S(81) = 2.39D-04
      S(82) = 5.57D-04
      S(83) = 1.682D-03
      S(84) = 3.49D-03
      S(85) = 1.0512D-02
      S(86) = 1.5392D-02
      S(87) = 4.0277D-02
      S(88) = 7.394D-03
      S(89) = 1.4057D-02
      S(90) = -2.93673D-01
      S(91) = 3.01D-03
      S(92) = -1.7585D-01
      S(93) = 1.500646D+00
      S(94) = -1.12694D+00
      S(95) = -1.227088D+00
      S(96) = -7.0D-06
      S(97) = -2.1D-05
      S(98) = -5.8D-05
      S(99) = -1.45D-04
      S(100) = -3.84D-04
      S(101) = -9.37D-04
      S(102) = -2.648D-03
      S(103) = -6.027D-03
      S(104) = -1.6207D-02
      S(105) = -2.7955D-02
      S(106) = -5.9348D-02
      S(107) = -2.7859D-02
      S(108) = 1.7067D-02
      S(109) = 4.20501D-01
      S(110) = 2.02698D-01
      S(111) = -4.51794D-01
      S(112) = -1.906791D+00
      S(113) = 2.895515D+00
      S(114) = -2.237797D+00
      S(115) = 1.0D+00
      P(116) = 1.15D-04
      P(117) = 5.6D-04
      P(118) = 2.653D-03
      P(119) = 1.0612D-02
      P(120) = 3.5867D-02
      P(121) = 9.9324D-02
      P(122) = 2.13525D-01
      P(123) = 3.33997D-01
      P(124) = 3.28292D-01
      P(125) = 1.50582D-01
      P(126) = 2.0002D-02
      P(127) = -1.563D-03
      P(128) = -1.291D-03
      P(129) = -2.12D-04
      P(130) = 2.4D-05
      P(131) = -4.0D-05
      P(132) = -1.94D-04
      P(133) = -9.22D-04
      P(134) = -3.711D-03
      P(135) = -1.2706D-02
      P(136) = -3.6121D-02
      P(137) = -8.054D-02
      P(138) = -1.32312D-01
      P(139) = -1.34035D-01
      P(140) = 3.4707D-02
      P(141) = 3.3563D-01
      P(142) = 4.61278D-01
      P(143) = 2.78573D-01
      P(144) = 4.1221D-02
      P(145) = -3.8D-03
      P(146) = 9.0D-06
      P(147) = 4.6D-05
      P(148) = 2.19D-04
      P(149) = 8.78D-04
      P(150) = 3.03D-03
      P(151) = 8.568D-03
      P(152) = 1.9343D-02
      P(153) = 3.156D-02
      P(154) = 3.3056D-02
      P(155) = -1.359D-02
      P(156) = -9.4009D-02
      P(157) = -1.49847D-01
      P(158) = -6.5716D-02
      P(159) = 2.71174D-01
      P(160) = 5.75059D-01
      P(161) = 1.2D-05
      P(162) = 5.9D-05
      P(163) = 2.77D-04
      P(164) = 1.121D-03
      P(165) = 3.82D-03
      P(166) = 1.094D-02
      P(167) = 2.4301D-02
      P(168) = 4.0594D-02
      P(169) = 4.0773D-02
      P(170) = -1.344D-02
      P(171) = -1.21106D-01
      P(172) = -1.82737D-01
      P(173) = -1.20072D-01
      P(174) = 4.44952D-01
      P(175) = 6.41343D-01
      P(176) = 2.5D-05
      P(177) = 1.16D-04
      P(178) = 6.02D-04
      P(179) = 2.198D-03
      P(180) = 8.368D-03
      P(181) = 2.1219D-02
      P(182) = 5.4545D-02
      P(183) = 7.4673D-02
      P(184) = 1.14701D-01
      P(185) = -7.8321D-02
      P(186) = -2.46515D-01
      P(187) = -6.77323D-01
      P(188) = 7.47941D-01
      P(189) = 9.84506D-01
      P(190) = -1.029518D+00
      P(191) = 1.0D+00
      D(192) = 3.617D-03
      D(193) = 2.5539D-02
      D(194) = 9.6834D-02
      D(195) = 2.35122D-01
      D(196) = 3.57446D-01
      D(197) = 3.6916D-01
      D(198) = 2.38078D-01
      D(199) = -4.124D-03
      D(200) = -2.9098D-02
      D(201) = -1.14316D-01
      D(202) = -2.71958D-01
      D(203) = -3.16273D-01
      D(204) = 3.7457D-02
      D(205) = 5.89482D-01
      D(206) = 5.953D-03
      D(207) = 4.2227D-02
      D(208) = 1.73097D-01
      D(209) = 3.92711D-01
      D(210) = 1.54487D-01
      D(211) = -8.07019D-01
      D(212) = 9.44D-04
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.101664D+07
      E(2) = 1.649423D+06
      E(3) = 3.753589D+05
      E(4) = 1.063236D+05
      E(5) = 3.468976D+04
      E(6) = 1.252483D+04
      E(7) = 4.885752D+03
      E(8) = 2.026918D+03
      E(9) = 8.843645D+02
      E(10) = 4.02317D+02
      E(11) = 1.895271D+02
      E(12) = 9.186095D+01
      E(13) = 4.512476D+01
      E(14) = 2.062512D+01
      E(15) = 1.031973D+01
      E(16) = 5.157723D+00
      E(17) = 2.312628D+00
      E(18) = 1.103079D+00
      E(19) = 4.98042D-01
      E(20) = 1.18247D-01
      E(21) = 5.7356D-02
      E(22) = 1.101664D+07
      E(23) = 1.649423D+06
      E(24) = 3.753589D+05
      E(25) = 1.063236D+05
      E(26) = 3.468976D+04
      E(27) = 1.252483D+04
      E(28) = 4.885752D+03
      E(29) = 2.026918D+03
      E(30) = 8.843645D+02
      E(31) = 4.02317D+02
      E(32) = 1.895271D+02
      E(33) = 9.186095D+01
      E(34) = 4.512476D+01
      E(35) = 2.062512D+01
      E(36) = 1.031973D+01
      E(37) = 5.157723D+00
      E(38) = 2.312628D+00
      E(39) = 1.103079D+00
      E(40) = 4.98042D-01
      E(41) = 1.18247D-01
      E(42) = 5.7356D-02
      E(43) = 1.101664D+07
      E(44) = 1.649423D+06
      E(45) = 3.753589D+05
      E(46) = 1.063236D+05
      E(47) = 3.468976D+04
      E(48) = 1.252483D+04
      E(49) = 4.885752D+03
      E(50) = 2.026918D+03
      E(51) = 8.843645D+02
      E(52) = 4.02317D+02
      E(53) = 1.895271D+02
      E(54) = 9.186095D+01
      E(55) = 4.512476D+01
      E(56) = 2.062512D+01
      E(57) = 1.031973D+01
      E(58) = 5.157723D+00
      E(59) = 2.312628D+00
      E(60) = 1.103079D+00
      E(61) = 4.98042D-01
      E(62) = 1.18247D-01
      E(63) = 5.7356D-02
      E(64) = 1.101664D+07
      E(65) = 1.649423D+06
      E(66) = 3.753589D+05
      E(67) = 1.063236D+05
      E(68) = 3.468976D+04
      E(69) = 1.252483D+04
      E(70) = 4.885752D+03
      E(71) = 2.026918D+03
      E(72) = 8.843645D+02
      E(73) = 4.02317D+02
      E(74) = 1.895271D+02
      E(75) = 9.186095D+01
      E(76) = 4.512476D+01
      E(77) = 2.062512D+01
      E(78) = 1.031973D+01
      E(79) = 5.157723D+00
      E(80) = 2.312628D+00
      E(81) = 1.103079D+00
      E(82) = 4.98042D-01
      E(83) = 1.18247D-01
      E(84) = 5.7356D-02
      E(85) = 1.101664D+07
      E(86) = 1.649423D+06
      E(87) = 3.753589D+05
      E(88) = 1.063236D+05
      E(89) = 3.468976D+04
      E(90) = 1.252483D+04
      E(91) = 4.885752D+03
      E(92) = 2.026918D+03
      E(93) = 8.843645D+02
      E(94) = 4.02317D+02
      E(95) = 1.895271D+02
      E(96) = 9.186095D+01
      E(97) = 4.512476D+01
      E(98) = 2.062512D+01
      E(99) = 1.031973D+01
      E(100) = 5.157723D+00
      E(101) = 2.312628D+00
      E(102) = 1.103079D+00
      E(103) = 4.98042D-01
      E(104) = 1.18247D-01
      E(105) = 5.7356D-02
      E(106) = 1.101664D+07
      E(107) = 1.649423D+06
      E(108) = 3.753589D+05
      E(109) = 1.063236D+05
      E(110) = 3.468976D+04
      E(111) = 1.252483D+04
      E(112) = 4.885752D+03
      E(113) = 2.026918D+03
      E(114) = 8.843645D+02
      E(115) = 4.02317D+02
      E(116) = 1.895271D+02
      E(117) = 9.186095D+01
      E(118) = 4.512476D+01
      E(119) = 2.062512D+01
      E(120) = 1.031973D+01
      E(121) = 5.157723D+00
      E(122) = 2.312628D+00
      E(123) = 1.103079D+00
      E(124) = 4.98042D-01
      E(125) = 1.18247D-01
      E(126) = 5.7356D-02
      E(127) = 1.101664D+07
      E(128) = 1.649423D+06
      E(129) = 3.753589D+05
      E(130) = 1.063236D+05
      E(131) = 3.468976D+04
      E(132) = 1.252483D+04
      E(133) = 4.885752D+03
      E(134) = 2.026918D+03
      E(135) = 8.843645D+02
      E(136) = 4.02317D+02
      E(137) = 1.895271D+02
      E(138) = 9.186095D+01
      E(139) = 4.512476D+01
      E(140) = 2.062512D+01
      E(141) = 1.031973D+01
      E(142) = 5.157723D+00
      E(143) = 2.312628D+00
      E(144) = 1.103079D+00
      E(145) = 4.98042D-01
      E(146) = 1.18247D-01
      E(147) = 5.7356D-02
      E(148) = 2.576D-02
      E(149) = 3.153989D+04
      E(150) = 7.460234D+03
      E(151) = 2.422622D+03
      E(152) = 9.277547D+02
      E(153) = 3.948041D+02
      E(154) = 1.808027D+02
      E(155) = 8.742393D+01
      E(156) = 4.403427D+01
      E(157) = 2.277704D+01
      E(158) = 1.201547D+01
      E(159) = 6.411751D+00
      E(160) = 3.381136D+00
      E(161) = 1.747054D+00
      E(162) = 8.85004D-01
      E(163) = 4.33028D-01
      E(164) = 1.73962D-01
      E(165) = 7.2823D-02
      E(166) = 3.153989D+04
      E(167) = 7.460234D+03
      E(168) = 2.422622D+03
      E(169) = 9.277547D+02
      E(170) = 3.948041D+02
      E(171) = 1.808027D+02
      E(172) = 8.742393D+01
      E(173) = 4.403427D+01
      E(174) = 2.277704D+01
      E(175) = 1.201547D+01
      E(176) = 6.411751D+00
      E(177) = 3.381136D+00
      E(178) = 1.747054D+00
      E(179) = 8.85004D-01
      E(180) = 4.33028D-01
      E(181) = 1.73962D-01
      E(182) = 7.2823D-02
      E(183) = 3.153989D+04
      E(184) = 7.460234D+03
      E(185) = 2.422622D+03
      E(186) = 9.277547D+02
      E(187) = 3.948041D+02
      E(188) = 1.808027D+02
      E(189) = 8.742393D+01
      E(190) = 4.403427D+01
      E(191) = 2.277704D+01
      E(192) = 1.201547D+01
      E(193) = 6.411751D+00
      E(194) = 3.381136D+00
      E(195) = 1.747054D+00
      E(196) = 8.85004D-01
      E(197) = 4.33028D-01
      E(198) = 1.73962D-01
      E(199) = 7.2823D-02
      E(200) = 3.153989D+04
      E(201) = 7.460234D+03
      E(202) = 2.422622D+03
      E(203) = 9.277547D+02
      E(204) = 3.948041D+02
      E(205) = 1.808027D+02
      E(206) = 8.742393D+01
      E(207) = 4.403427D+01
      E(208) = 2.277704D+01
      E(209) = 1.201547D+01
      E(210) = 6.411751D+00
      E(211) = 3.381136D+00
      E(212) = 1.747054D+00
      E(213) = 8.85004D-01
      E(214) = 4.33028D-01
      E(215) = 1.73962D-01
      E(216) = 7.2823D-02
      E(217) = 3.153989D+04
      E(218) = 7.460234D+03
      E(219) = 2.422622D+03
      E(220) = 9.277547D+02
      E(221) = 3.948041D+02
      E(222) = 1.808027D+02
      E(223) = 8.742393D+01
      E(224) = 4.403427D+01
      E(225) = 2.277704D+01
      E(226) = 1.201547D+01
      E(227) = 6.411751D+00
      E(228) = 3.381136D+00
      E(229) = 1.747054D+00
      E(230) = 8.85004D-01
      E(231) = 4.33028D-01
      E(232) = 1.73962D-01
      E(233) = 7.2823D-02
      E(234) = 3.153989D+04
      E(235) = 7.460234D+03
      E(236) = 2.422622D+03
      E(237) = 9.277547D+02
      E(238) = 3.948041D+02
      E(239) = 1.808027D+02
      E(240) = 8.742393D+01
      E(241) = 4.403427D+01
      E(242) = 2.277704D+01
      E(243) = 1.201547D+01
      E(244) = 6.411751D+00
      E(245) = 3.381136D+00
      E(246) = 1.747054D+00
      E(247) = 8.85004D-01
      E(248) = 4.33028D-01
      E(249) = 1.73962D-01
      E(250) = 7.2823D-02
      E(251) = 2.9952D-02
      E(252) = 2.81312D+02
      E(253) = 8.31885D+01
      E(254) = 3.18396D+01
      E(255) = 1.36026D+01
      E(256) = 6.18298D+00
      E(257) = 2.9227D+00
      E(258) = 1.38216D+00
      E(259) = 6.3946D-01
      E(260) = 2.84898D-01
      E(261) = 1.20045D-01
      E(262) = 2.81312D+02
      E(263) = 8.31885D+01
      E(264) = 3.18396D+01
      E(265) = 1.36026D+01
      E(266) = 6.18298D+00
      E(267) = 2.9227D+00
      E(268) = 1.38216D+00
      E(269) = 6.3946D-01
      E(270) = 2.84898D-01
      E(271) = 1.20045D-01
      E(272) = 2.81312D+02
      E(273) = 8.31885D+01
      E(274) = 3.18396D+01
      E(275) = 1.36026D+01
      E(276) = 6.18298D+00
      E(277) = 2.9227D+00
      E(278) = 1.38216D+00
      E(279) = 6.3946D-01
      E(280) = 2.84898D-01
      E(281) = 1.20045D-01
      E(282) = 2.81312D+02
      E(283) = 8.31885D+01
      E(284) = 3.18396D+01
      E(285) = 1.36026D+01
      E(286) = 6.18298D+00
      E(287) = 2.9227D+00
      E(288) = 1.38216D+00
      E(289) = 6.3946D-01
      E(290) = 2.84898D-01
      E(291) = 1.20045D-01
      E(292) = 4.6229D-02
      E(293) = 3.7289D+00
      E(294) = 1.0824D+00
      E(295) = 3.142D-01
      E(296) = 2.588D+00
      E(297) = 6.848D-01
CSDJ  E(298) = 1.6472D+00
      S(1) = 5.4D-05
      S(2) = 1.54D-04
      S(3) = 4.12D-04
      S(4) = 1.012D-03
      S(5) = 2.46D-03
      S(6) = 6.008D-03
      S(7) = 1.487D-02
      S(8) = 3.6309D-02
      S(9) = 8.3308D-02
      S(10) = 1.67362D-01
      S(11) = 2.66103D-01
      S(12) = 2.76138D-01
      S(13) = 1.42968D-01
      S(14) = 6.9569D-02
      S(15) = 1.15358D-01
      S(16) = 7.605D-02
      S(17) = 8.97D-03
      S(18) = -2.63D-04
      S(19) = 7.1D-05
      S(20) = -1.1D-05
      S(21) = 4.0D-05
      S(22) = -3.0D-05
      S(23) = -8.6D-05
      S(24) = -2.28D-04
      S(25) = -5.62D-04
      S(26) = -1.367D-03
      S(27) = -3.352D-03
      S(28) = -8.339D-03
      S(29) = -2.0648D-02
      S(30) = -4.8543D-02
      S(31) = -1.03288D-01
      S(32) = -1.83652D-01
      S(33) = -2.42678D-01
      S(34) = -1.497D-01
      S(35) = 2.06191D-01
      S(36) = 5.46295D-01
      S(37) = 3.51933D-01
      S(38) = 4.3451D-02
      S(39) = -3.487D-03
      S(40) = 5.2D-05
      S(41) = -1.96D-04
      S(42) = 2.86D-04
      S(43) = 6.0D-06
      S(44) = 1.8D-05
      S(45) = 4.9D-05
      S(46) = 1.21D-04
      S(47) = 2.94D-04
      S(48) = 7.25D-04
      S(49) = 1.809D-03
      S(50) = 4.54D-03
      S(51) = 1.0837D-02
      S(52) = 2.4159D-02
      S(53) = 4.5962D-02
      S(54) = 6.9897D-02
      S(55) = 4.6691D-02
      S(56) = -9.9929D-02
      S(57) = -3.6857D-01
      S(58) = -3.42453D-01
      S(59) = 2.98513D-01
      S(60) = 6.97653D-01
      S(61) = 2.95692D-01
      S(62) = 9.59D-03
      S(63) = -1.075D-03
      S(64) = -1.0D-06
      S(65) = -4.0D-06
      S(66) = -1.1D-05
      S(67) = -2.8D-05
      S(68) = -6.7D-05
      S(69) = -1.66D-04
      S(70) = -4.12D-04
      S(71) = -1.039D-03
      S(72) = -2.463D-03
      S(73) = -5.548D-03
      S(74) = -1.0438D-02
      S(75) = -1.6239D-02
      S(76) = -1.0385D-02
      S(77) = 2.2425D-02
      S(78) = 9.2475D-02
      S(79) = 8.3365D-02
      S(80) = -8.2147D-02
      S(81) = -2.59025D-01
      S(82) = -2.04176D-01
      S(83) = 3.77777D-01
      S(84) = 5.58897D-01
      S(85) = -3.0D-06
      S(86) = -8.0D-06
      S(87) = -2.2D-05
      S(88) = -5.5D-05
      S(89) = -1.31D-04
      S(90) = -3.38D-04
      S(91) = -7.86D-04
      S(92) = -2.166D-03
      S(93) = -4.587D-03
      S(94) = -1.1904D-02
      S(95) = -1.8492D-02
      S(96) = -3.7872D-02
      S(97) = -9.363D-03
      S(98) = 1.7702D-02
      S(99) = 2.54799D-01
      S(100) = 7.0724D-02
      S(101) = -2.5707D-02
      S(102) = -1.136358D+00
      S(103) = 6.2814D-01
      S(104) = 1.883337D+00
      S(105) = -1.392949D+00
      S(106) = -5.0D-06
      S(107) = -1.3D-05
      S(108) = -3.5D-05
      S(109) = -8.7D-05
      S(110) = -2.08D-04
      S(111) = -5.32D-04
      S(112) = -1.254D-03
      S(113) = -3.399D-03
      S(114) = -7.361D-03
      S(115) = -1.861D-02
      S(116) = -3.0128D-02
      S(117) = -5.8728D-02
      S(118) = -1.9027D-02
      S(119) = 3.8848D-02
      S(120) = 4.18792D-01
      S(121) = 1.85359D-01
      S(122) = -5.21569D-01
      S(123) = -1.807587D+00
      S(124) = 2.872505D+00
      S(125) = -1.344882D+00
      S(126) = -7.20092D-01
      S(127) = -5.0D-06
      S(128) = -1.5D-05
      S(129) = -4.2D-05
      S(130) = -9.9D-05
      S(131) = -2.59D-04
      S(132) = -5.66D-04
      S(133) = -1.683D-03
      S(134) = -3.308D-03
      S(135) = -1.0739D-02
      S(136) = -1.6034D-02
      S(137) = -5.1158D-02
      S(138) = -3.3143D-02
      S(139) = -1.01498D-01
      S(140) = 2.33271D-01
      S(141) = 2.01463D-01
      S(142) = 8.80314D-01
      S(143) = -3.103087D+00
      S(144) = 2.329039D+00
      S(145) = 4.45165D-01
      S(146) = -3.888207D+00
      S(147) = 5.561546D+00
      S(148) = 1.0D+00
      P(149) = 4.6D-05
      P(150) = 1.84D-04
      P(151) = 7.93D-04
      P(152) = 3.074D-03
      P(153) = 1.0765D-02
      P(154) = 3.2748D-02
      P(155) = 8.4995D-02
      P(156) = 1.78851D-01
      P(157) = 2.89674D-01
      P(158) = 3.2835D-01
      P(159) = 2.09005D-01
      P(160) = 5.4394D-02
      P(161) = 2.005D-03
      P(162) = -1.438D-03
      P(163) = -9.11D-04
      P(164) = -5.2D-05
      P(165) = -1.2D-05
      P(166) = -1.6D-05
      P(167) = -6.4D-05
      P(168) = -2.75D-04
      P(169) = -1.07D-03
      P(170) = -3.765D-03
      P(171) = -1.1607D-02
      P(172) = -3.0803D-02
      P(173) = -6.7102D-02
      P(174) = -1.13024D-01
      P(175) = -1.35958D-01
      P(176) = -4.7815D-02
      P(177) = 1.90731D-01
      P(178) = 4.0119D-01
      P(179) = 3.82771D-01
      P(180) = 1.67431D-01
      P(181) = 1.804D-02
      P(182) = -6.54D-04
      P(183) = 4.0D-06
      P(184) = 1.5D-05
      P(185) = 6.5D-05
      P(186) = 2.52D-04
      P(187) = 8.93D-04
      P(188) = 2.737D-03
      P(189) = 7.331D-03
      P(190) = 1.5886D-02
      P(191) = 2.718D-02
      P(192) = 3.2427D-02
      P(193) = 1.0871D-02
      P(194) = -5.6506D-02
      P(195) = -1.14466D-01
      P(196) = -1.32964D-01
      P(197) = 4.714D-03
      P(198) = 3.44055D-01
      P(199) = 5.41279D-01
      P(200) = 5.0D-06
      P(201) = 1.9D-05
      P(202) = 8.3D-05
      P(203) = 3.25D-04
      P(204) = 1.144D-03
      P(205) = 3.535D-03
      P(206) = 9.375D-03
      P(207) = 2.0531D-02
      P(208) = 3.4648D-02
      P(209) = 4.2389D-02
      P(210) = 1.3373D-02
      P(211) = -6.8401D-02
      P(212) = -1.48762D-01
      P(213) = -1.73249D-01
      P(214) = -2.0763D-02
      P(215) = 5.78272D-01
      P(216) = 5.03192D-01
      P(217) = 1.0D-05
      P(218) = 3.9D-05
      P(219) = 1.79D-04
      P(220) = 6.5D-04
      P(221) = 2.472D-03
      P(222) = 7.023D-03
      P(223) = 2.0405D-02
      P(224) = 4.021D-02
      P(225) = 7.8458D-02
      P(226) = 7.9472D-02
      P(227) = 5.8851D-02
      P(228) = -2.24027D-01
      P(229) = -3.70263D-01
      P(230) = -4.3767D-01
      P(231) = 1.164537D+00
      P(232) = 4.15486D-01
      P(233) = -9.14328D-01
      P(234) = -1.3D-05
      P(235) = -5.4D-05
      P(236) = -2.07D-04
      P(237) = -9.32D-04
      P(238) = -2.799D-03
      P(239) = -1.0197D-02
      P(240) = -2.2581D-02
      P(241) = -6.0853D-02
      P(242) = -7.7964D-02
      P(243) = -1.67682D-01
      P(244) = -1.0779D-02
      P(245) = 3.10957D-01
      P(246) = 1.097624D+00
      P(247) = -1.279556D+00
      P(248) = -8.5692D-01
      P(249) = 2.041165D+00
      P(250) = -1.120271D+00
      P(251) = 1.0D+00
      D(252) = 3.47D-04
      D(253) = 3.07D-03
      D(254) = 1.5395D-02
      D(255) = 5.1319D-02
      D(256) = 1.29668D-01
      D(257) = 2.34781D-01
      D(258) = 3.08043D-01
      D(259) = 3.08056D-01
      D(260) = 2.23925D-01
      D(261) = 9.4679D-02
      D(262) = -3.94D-04
      D(263) = -3.494D-03
      D(264) = -1.759D-02
      D(265) = -5.9621D-02
      D(266) = -1.54514D-01
      D(267) = -2.60323D-01
      D(268) = -2.50061D-01
      D(269) = 2.2781D-02
      D(270) = 4.19234D-01
      D(271) = 4.52061D-01
      D(272) = -5.63D-04
      D(273) = -5.008D-03
      D(274) = -2.5492D-02
      D(275) = -8.8182D-02
      D(276) = -2.35399D-01
      D(277) = -3.39641D-01
      D(278) = -3.7615D-02
      D(279) = 6.60246D-01
      D(280) = 2.96544D-01
      D(281) = -6.55761D-01
      D(282) = 7.97D-04
      D(283) = 7.639D-03
      D(284) = 3.697D-02
      D(285) = 1.42439D-01
      D(286) = 3.75871D-01
      D(287) = 3.23185D-01
      D(288) = -8.33433D-01
      D(289) = -3.73054D-01
      D(290) = 1.213553D+00
      D(291) = -4.82945D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CR'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     ----- MN -----
C
  125 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 3.960805D+06
      E(2) = 5.931155D+05
      E(3) = 1.349768D+05
      E(4) = 3.823067D+04
      E(5) = 1.247154D+04
      E(6) = 4.501743D+03
      E(7) = 1.755212D+03
      E(8) = 7.273039D+02
      E(9) = 3.163678D+02
      E(10) = 1.430098D+02
      E(11) = 6.621805D+01
      E(12) = 2.991896D+01
      E(13) = 1.430318D+01
      E(14) = 6.839451D+00
      E(15) = 3.012374D+00
      E(16) = 1.418808D+00
      E(17) = 6.23624D-01
      E(18) = 1.34098D-01
      E(19) = 6.5548D-02
      E(20) = 3.960805D+06
      E(21) = 5.931155D+05
      E(22) = 1.349768D+05
      E(23) = 3.823067D+04
      E(24) = 1.247154D+04
      E(25) = 4.501743D+03
      E(26) = 1.755212D+03
      E(27) = 7.273039D+02
      E(28) = 3.163678D+02
      E(29) = 1.430098D+02
      E(30) = 6.621805D+01
      E(31) = 2.991896D+01
      E(32) = 1.430318D+01
      E(33) = 6.839451D+00
      E(34) = 3.012374D+00
      E(35) = 1.418808D+00
      E(36) = 6.23624D-01
      E(37) = 1.34098D-01
      E(38) = 6.5548D-02
      E(39) = 3.960805D+06
      E(40) = 5.931155D+05
      E(41) = 1.349768D+05
      E(42) = 3.823067D+04
      E(43) = 1.247154D+04
      E(44) = 4.501743D+03
      E(45) = 1.755212D+03
      E(46) = 7.273039D+02
      E(47) = 3.163678D+02
      E(48) = 1.430098D+02
      E(49) = 6.621805D+01
      E(50) = 2.991896D+01
      E(51) = 1.430318D+01
      E(52) = 6.839451D+00
      E(53) = 3.012374D+00
      E(54) = 1.418808D+00
      E(55) = 6.23624D-01
      E(56) = 1.34098D-01
      E(57) = 6.5548D-02
      E(58) = 3.960805D+06
      E(59) = 5.931155D+05
      E(60) = 1.349768D+05
      E(61) = 3.823067D+04
      E(62) = 1.247154D+04
      E(63) = 4.501743D+03
      E(64) = 1.755212D+03
      E(65) = 7.273039D+02
      E(66) = 3.163678D+02
      E(67) = 1.430098D+02
      E(68) = 6.621805D+01
      E(69) = 2.991896D+01
      E(70) = 1.430318D+01
      E(71) = 6.839451D+00
      E(72) = 3.012374D+00
      E(73) = 1.418808D+00
      E(74) = 6.23624D-01
      E(75) = 1.34098D-01
      E(76) = 6.5548D-02
      E(77) = 3.960805D+06
      E(78) = 5.931155D+05
      E(79) = 1.349768D+05
      E(80) = 3.823067D+04
      E(81) = 1.247154D+04
      E(82) = 4.501743D+03
      E(83) = 1.755212D+03
      E(84) = 7.273039D+02
      E(85) = 3.163678D+02
      E(86) = 1.430098D+02
      E(87) = 6.621805D+01
      E(88) = 2.991896D+01
      E(89) = 1.430318D+01
      E(90) = 6.839451D+00
      E(91) = 3.012374D+00
      E(92) = 1.418808D+00
      E(93) = 6.23624D-01
      E(94) = 1.34098D-01
      E(95) = 6.5548D-02
      E(96) = 3.960805D+06
      E(97) = 5.931155D+05
      E(98) = 1.349768D+05
      E(99) = 3.823067D+04
      E(100) = 1.247154D+04
      E(101) = 4.501743D+03
      E(102) = 1.755212D+03
      E(103) = 7.273039D+02
      E(104) = 3.163678D+02
      E(105) = 1.430098D+02
      E(106) = 6.621805D+01
      E(107) = 2.991896D+01
      E(108) = 1.430318D+01
      E(109) = 6.839451D+00
      E(110) = 3.012374D+00
      E(111) = 1.418808D+00
      E(112) = 6.23624D-01
      E(113) = 1.34098D-01
      E(114) = 6.5548D-02
      E(115) = 2.9584D-02
      E(116) = 1.620586D+04
      E(117) = 3.836274D+03
      E(118) = 1.246048D+03
      E(119) = 4.767535D+02
      E(120) = 2.021895D+02
      E(121) = 9.209487D+01
      E(122) = 4.41472D+01
      E(123) = 2.185468D+01
      E(124) = 1.108596D+01
      E(125) = 5.674108D+00
      E(126) = 2.82317D+00
      E(127) = 1.368621D+00
      E(128) = 6.44431D-01
      E(129) = 2.48346D-01
      E(130) = 9.7175D-02
      E(131) = 1.620586D+04
      E(132) = 3.836274D+03
      E(133) = 1.246048D+03
      E(134) = 4.767535D+02
      E(135) = 2.021895D+02
      E(136) = 9.209487D+01
      E(137) = 4.41472D+01
      E(138) = 2.185468D+01
      E(139) = 1.108596D+01
      E(140) = 5.674108D+00
      E(141) = 2.82317D+00
      E(142) = 1.368621D+00
      E(143) = 6.44431D-01
      E(144) = 2.48346D-01
      E(145) = 9.7175D-02
      E(146) = 1.620586D+04
      E(147) = 3.836274D+03
      E(148) = 1.246048D+03
      E(149) = 4.767535D+02
      E(150) = 2.021895D+02
      E(151) = 9.209487D+01
      E(152) = 4.41472D+01
      E(153) = 2.185468D+01
      E(154) = 1.108596D+01
      E(155) = 5.674108D+00
      E(156) = 2.82317D+00
      E(157) = 1.368621D+00
      E(158) = 6.44431D-01
      E(159) = 2.48346D-01
      E(160) = 9.7175D-02
      E(161) = 1.620586D+04
      E(162) = 3.836274D+03
      E(163) = 1.246048D+03
      E(164) = 4.767535D+02
      E(165) = 2.021895D+02
      E(166) = 9.209487D+01
      E(167) = 4.41472D+01
      E(168) = 2.185468D+01
      E(169) = 1.108596D+01
      E(170) = 5.674108D+00
      E(171) = 2.82317D+00
      E(172) = 1.368621D+00
      E(173) = 6.44431D-01
      E(174) = 2.48346D-01
      E(175) = 9.7175D-02
      E(176) = 1.620586D+04
      E(177) = 3.836274D+03
      E(178) = 1.246048D+03
      E(179) = 4.767535D+02
      E(180) = 2.021895D+02
      E(181) = 9.209487D+01
      E(182) = 4.41472D+01
      E(183) = 2.185468D+01
      E(184) = 1.108596D+01
      E(185) = 5.674108D+00
      E(186) = 2.82317D+00
      E(187) = 1.368621D+00
      E(188) = 6.44431D-01
      E(189) = 2.48346D-01
      E(190) = 9.7175D-02
      E(191) = 3.6565D-02
      E(192) = 1.01904D+02
      E(193) = 3.00337D+01
      E(194) = 1.09238D+01
      E(195) = 4.3974D+00
      E(196) = 1.81595D+00
      E(197) = 7.25731D-01
      E(198) = 2.69961D-01
      E(199) = 1.01904D+02
      E(200) = 3.00337D+01
      E(201) = 1.09238D+01
      E(202) = 4.3974D+00
      E(203) = 1.81595D+00
      E(204) = 7.25731D-01
      E(205) = 2.69961D-01
      E(206) = 1.01904D+02
      E(207) = 3.00337D+01
      E(208) = 1.09238D+01
      E(209) = 4.3974D+00
      E(210) = 1.81595D+00
      E(211) = 7.25731D-01
      E(212) = 2.69961D-01
      E(213) = 8.776D-02
      E(214) = 2.7032D+00
      E(215) = 6.438D-01
      E(216) = 1.7022D+00
      S(1) = 1.35D-04
      S(2) = 3.95D-04
      S(3) = 1.096D-03
      S(4) = 2.871D-03
      S(5) = 7.554D-03
      S(6) = 1.9975D-02
      S(7) = 5.1508D-02
      S(8) = 1.21003D-01
      S(9) = 2.36036D-01
      S(10) = 3.26482D-01
      S(11) = 2.39302D-01
      S(12) = 7.182D-02
      S(13) = 7.595D-02
      S(14) = 7.503D-02
      S(15) = 1.1836D-02
      S(16) = -3.59D-04
      S(17) = -6.2D-05
      S(18) = -1.4D-05
      S(19) = 2.6D-05
      S(20) = -6.5D-05
      S(21) = -1.89D-04
      S(22) = -5.25D-04
      S(23) = -1.379D-03
      S(24) = -3.642D-03
      S(25) = -9.711D-03
      S(26) = -2.5489D-02
      S(27) = -6.2259D-02
      S(28) = -1.32286D-01
      S(29) = -2.20459D-01
      S(30) = -2.21513D-01
      S(31) = 4.9336D-02
      S(32) = 5.16503D-01
      S(33) = 4.90074D-01
      S(34) = 8.4586D-02
      S(35) = -6.857D-03
      S(36) = -4.66D-04
      S(37) = -5.26D-04
      S(38) = 4.99D-04
      S(39) = 1.6D-05
      S(40) = 4.6D-05
      S(41) = 1.28D-04
      S(42) = 3.37D-04
      S(43) = 8.91D-04
      S(44) = 2.391D-03
      S(45) = 6.334D-03
      S(46) = 1.5866D-02
      S(47) = 3.5236D-02
      S(48) = 6.4545D-02
      S(49) = 7.3057D-02
      S(50) = -2.5737D-02
      S(51) = -3.02685D-01
      S(52) = -4.44065D-01
      S(53) = 1.40902D-01
      S(54) = 7.1899D-01
      S(55) = 3.95207D-01
      S(56) = 1.9851D-02
      S(57) = -7.783D-03
      S(58) = -4.0D-06
      S(59) = -1.0D-05
      S(60) = -2.9D-05
      S(61) = -7.5D-05
      S(62) = -1.99D-04
      S(63) = -5.33D-04
      S(64) = -1.413D-03
      S(65) = -3.542D-03
      S(66) = -7.871D-03
      S(67) = -1.4466D-02
      S(68) = -1.6425D-02
      S(69) = 5.762D-03
      S(70) = 7.1266D-02
      S(71) = 1.09414D-01
      S(72) = -4.2813D-02
      S(73) = -2.29383D-01
      S(74) = -2.4612D-01
      S(75) = 3.09653D-01
      S(76) = 5.65857D-01
      S(77) = -7.0D-06
      S(78) = -2.1D-05
      S(79) = -5.7D-05
      S(80) = -1.53D-04
      S(81) = -3.9D-04
      S(82) = -1.107D-03
      S(83) = -2.716D-03
      S(84) = -7.526D-03
      S(85) = -1.4643D-02
      S(86) = -3.2434D-02
      S(87) = -2.5239D-02
      S(88) = -8.668D-03
      S(89) = 1.95175D-01
      S(90) = 1.47464D-01
      S(91) = 7.0375D-02
      S(92) = -1.066777D+00
      S(93) = 3.72311D-01
      S(94) = 1.987207D+00
      S(95) = -1.289393D+00
      S(96) = -1.1D-05
      S(97) = -3.4D-05
      S(98) = -9.3D-05
      S(99) = -2.5D-04
      S(100) = -6.34D-04
      S(101) = -1.819D-03
      S(102) = -4.392D-03
      S(103) = -1.243D-02
      S(104) = -2.358D-02
      S(105) = -5.4309D-02
      S(106) = -3.935D-02
      S(107) = -2.0544D-02
      S(108) = 3.53115D-01
      S(109) = 2.78672D-01
      S(110) = -1.19522D-01
      S(111) = -2.246887D+00
      S(112) = 2.702669D+00
      S(113) = -5.97358D-01
      S(114) = -1.494873D+00
      S(115) = 1.0D+00
      P(116) = 1.18D-04
      P(117) = 5.55D-04
      P(118) = 2.591D-03
      P(119) = 1.0297D-02
      P(120) = 3.4812D-02
      P(121) = 9.6814D-02
      P(122) = 2.09903D-01
      P(123) = 3.31907D-01
      P(124) = 3.31179D-01
      P(125) = 1.557D-01
      P(126) = 2.0906D-02
      P(127) = -2.814D-03
      P(128) = -2.148D-03
      P(129) = -3.79D-04
      P(130) = 3.6D-05
      P(131) = -4.1D-05
      P(132) = -1.93D-04
      P(133) = -9.03D-04
      P(134) = -3.614D-03
      P(135) = -1.2373D-02
      P(136) = -3.5341D-02
      P(137) = -7.9499D-02
      P(138) = -1.32193D-01
      P(139) = -1.35689D-01
      P(140) = 3.0133D-02
      P(141) = 3.31029D-01
      P(142) = 4.56778D-01
      P(143) = 2.8591D-01
      P(144) = 4.6583D-02
      P(145) = -3.384D-03
      P(146) = -9.0D-06
      P(147) = -4.4D-05
      P(148) = -2.08D-04
      P(149) = -8.32D-04
      P(150) = -2.857D-03
      P(151) = -8.164D-03
      P(152) = -1.8455D-02
      P(153) = -3.0773D-02
      P(154) = -3.1999D-02
      P(155) = 1.0751D-02
      P(156) = 9.0894D-02
      P(157) = 1.37945D-01
      P(158) = 7.6112D-02
      P(159) = -2.31346D-01
      P(160) = -5.7517D-01
      P(161) = 1.3D-05
      P(162) = 6.0D-05
      P(163) = 2.79D-04
      P(164) = 1.127D-03
      P(165) = 3.818D-03
      P(166) = 1.1061D-02
      P(167) = 2.4585D-02
      P(168) = 4.2033D-02
      P(169) = 4.1811D-02
      P(170) = -1.0847D-02
      P(171) = -1.26559D-01
      P(172) = -1.78983D-01
      P(173) = -1.26067D-01
      P(174) = 4.20383D-01
      P(175) = 6.57838D-01
      P(176) = 2.7D-05
      P(177) = 1.22D-04
      P(178) = 6.14D-04
      P(179) = 2.265D-03
      P(180) = 8.477D-03
      P(181) = 2.2019D-02
      P(182) = 5.5787D-02
      P(183) = 7.9921D-02
      P(184) = 1.16892D-01
      P(185) = -6.8568D-02
      P(186) = -2.82821D-01
      P(187) = -6.50683D-01
      P(188) = 7.15133D-01
      P(189) = 9.59241D-01
      P(190) = -9.37157D-01
      P(191) = 1.0D+00
      D(192) = 3.575D-03
      D(193) = 2.5575D-02
      D(194) = 9.7747D-02
      D(195) = 2.37056D-01
      D(196) = 3.57923D-01
      D(197) = 3.65807D-01
      D(198) = 2.36296D-01
      D(199) = -3.646D-03
      D(200) = -2.6079D-02
      D(201) = -1.02455D-01
      D(202) = -2.48895D-01
      D(203) = -3.01887D-01
      D(204) = 8.369D-03
      D(205) = 5.39765D-01
      D(206) = 5.86D-03
      D(207) = 4.2143D-02
      D(208) = 1.73748D-01
      D(209) = 3.9642D-01
      D(210) = 1.6432D-01
      D(211) = -7.19875D-01
      D(212) = -1.64142D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.22105D+07
      E(2) = 1.828157D+06
      E(3) = 4.160303D+05
      E(4) = 1.178436D+05
      E(5) = 3.844814D+04
      E(6) = 1.388171D+04
      E(7) = 5.415002D+03
      E(8) = 2.24646D+03
      E(9) = 9.801463D+02
      E(10) = 4.458952D+02
      E(11) = 2.100558D+02
      E(12) = 1.018046D+02
      E(13) = 5.001126D+01
      E(14) = 2.293939D+01
      E(15) = 1.152264D+01
      E(16) = 5.776338D+00
      E(17) = 2.625959D+00
      E(18) = 1.260322D+00
      E(19) = 5.7713D-01
      E(20) = 1.36582D-01
      E(21) = 6.3535D-02
      E(22) = 1.22105D+07
      E(23) = 1.828157D+06
      E(24) = 4.160303D+05
      E(25) = 1.178436D+05
      E(26) = 3.844814D+04
      E(27) = 1.388171D+04
      E(28) = 5.415002D+03
      E(29) = 2.24646D+03
      E(30) = 9.801463D+02
      E(31) = 4.458952D+02
      E(32) = 2.100558D+02
      E(33) = 1.018046D+02
      E(34) = 5.001126D+01
      E(35) = 2.293939D+01
      E(36) = 1.152264D+01
      E(37) = 5.776338D+00
      E(38) = 2.625959D+00
      E(39) = 1.260322D+00
      E(40) = 5.7713D-01
      E(41) = 1.36582D-01
      E(42) = 6.3535D-02
      E(43) = 1.22105D+07
      E(44) = 1.828157D+06
      E(45) = 4.160303D+05
      E(46) = 1.178436D+05
      E(47) = 3.844814D+04
      E(48) = 1.388171D+04
      E(49) = 5.415002D+03
      E(50) = 2.24646D+03
      E(51) = 9.801463D+02
      E(52) = 4.458952D+02
      E(53) = 2.100558D+02
      E(54) = 1.018046D+02
      E(55) = 5.001126D+01
      E(56) = 2.293939D+01
      E(57) = 1.152264D+01
      E(58) = 5.776338D+00
      E(59) = 2.625959D+00
      E(60) = 1.260322D+00
      E(61) = 5.7713D-01
      E(62) = 1.36582D-01
      E(63) = 6.3535D-02
      E(64) = 1.22105D+07
      E(65) = 1.828157D+06
      E(66) = 4.160303D+05
      E(67) = 1.178436D+05
      E(68) = 3.844814D+04
      E(69) = 1.388171D+04
      E(70) = 5.415002D+03
      E(71) = 2.24646D+03
      E(72) = 9.801463D+02
      E(73) = 4.458952D+02
      E(74) = 2.100558D+02
      E(75) = 1.018046D+02
      E(76) = 5.001126D+01
      E(77) = 2.293939D+01
      E(78) = 1.152264D+01
      E(79) = 5.776338D+00
      E(80) = 2.625959D+00
      E(81) = 1.260322D+00
      E(82) = 5.7713D-01
      E(83) = 1.36582D-01
      E(84) = 6.3535D-02
      E(85) = 1.22105D+07
      E(86) = 1.828157D+06
      E(87) = 4.160303D+05
      E(88) = 1.178436D+05
      E(89) = 3.844814D+04
      E(90) = 1.388171D+04
      E(91) = 5.415002D+03
      E(92) = 2.24646D+03
      E(93) = 9.801463D+02
      E(94) = 4.458952D+02
      E(95) = 2.100558D+02
      E(96) = 1.018046D+02
      E(97) = 5.001126D+01
      E(98) = 2.293939D+01
      E(99) = 1.152264D+01
      E(100) = 5.776338D+00
      E(101) = 2.625959D+00
      E(102) = 1.260322D+00
      E(103) = 5.7713D-01
      E(104) = 1.36582D-01
      E(105) = 6.3535D-02
      E(106) = 1.22105D+07
      E(107) = 1.828157D+06
      E(108) = 4.160303D+05
      E(109) = 1.178436D+05
      E(110) = 3.844814D+04
      E(111) = 1.388171D+04
      E(112) = 5.415002D+03
      E(113) = 2.24646D+03
      E(114) = 9.801463D+02
      E(115) = 4.458952D+02
      E(116) = 2.100558D+02
      E(117) = 1.018046D+02
      E(118) = 5.001126D+01
      E(119) = 2.293939D+01
      E(120) = 1.152264D+01
      E(121) = 5.776338D+00
      E(122) = 2.625959D+00
      E(123) = 1.260322D+00
      E(124) = 5.7713D-01
      E(125) = 1.36582D-01
      E(126) = 6.3535D-02
      E(127) = 1.22105D+07
      E(128) = 1.828157D+06
      E(129) = 4.160303D+05
      E(130) = 1.178436D+05
      E(131) = 3.844814D+04
      E(132) = 1.388171D+04
      E(133) = 5.415002D+03
      E(134) = 2.24646D+03
      E(135) = 9.801463D+02
      E(136) = 4.458952D+02
      E(137) = 2.100558D+02
      E(138) = 1.018046D+02
      E(139) = 5.001126D+01
      E(140) = 2.293939D+01
      E(141) = 1.152264D+01
      E(142) = 5.776338D+00
      E(143) = 2.625959D+00
      E(144) = 1.260322D+00
      E(145) = 5.7713D-01
      E(146) = 1.36582D-01
      E(147) = 6.3535D-02
      E(148) = 2.8521D-02
      E(149) = 3.500512D+04
      E(150) = 8.279462D+03
      E(151) = 2.688465D+03
      E(152) = 1.02949D+03
      E(153) = 4.380708D+02
      E(154) = 2.006153D+02
      E(155) = 9.700769D+01
      E(156) = 4.887052D+01
      E(157) = 2.529281D+01
      E(158) = 1.335382D+01
      E(159) = 7.131786D+00
      E(160) = 3.764365D+00
      E(161) = 1.946265D+00
      E(162) = 9.85455D-01
      E(163) = 4.81865D-01
      E(164) = 1.8822219D-01
      E(165) = 7.753957D-02
      E(166) = 3.500512D+04
      E(167) = 8.279462D+03
      E(168) = 2.688465D+03
      E(169) = 1.02949D+03
      E(170) = 4.380708D+02
      E(171) = 2.006153D+02
      E(172) = 9.700769D+01
      E(173) = 4.887052D+01
      E(174) = 2.529281D+01
      E(175) = 1.335382D+01
      E(176) = 7.131786D+00
      E(177) = 3.764365D+00
      E(178) = 1.946265D+00
      E(179) = 9.85455D-01
      E(180) = 4.81865D-01
      E(181) = 1.8822219D-01
      E(182) = 7.753957D-02
      E(183) = 3.500512D+04
      E(184) = 8.279462D+03
      E(185) = 2.688465D+03
      E(186) = 1.02949D+03
      E(187) = 4.380708D+02
      E(188) = 2.006153D+02
      E(189) = 9.700769D+01
      E(190) = 4.887052D+01
      E(191) = 2.529281D+01
      E(192) = 1.335382D+01
      E(193) = 7.131786D+00
      E(194) = 3.764365D+00
      E(195) = 1.946265D+00
      E(196) = 9.85455D-01
      E(197) = 4.81865D-01
      E(198) = 1.8822219D-01
      E(199) = 7.753957D-02
      E(200) = 3.500512D+04
      E(201) = 8.279462D+03
      E(202) = 2.688465D+03
      E(203) = 1.02949D+03
      E(204) = 4.380708D+02
      E(205) = 2.006153D+02
      E(206) = 9.700769D+01
      E(207) = 4.887052D+01
      E(208) = 2.529281D+01
      E(209) = 1.335382D+01
      E(210) = 7.131786D+00
      E(211) = 3.764365D+00
      E(212) = 1.946265D+00
      E(213) = 9.85455D-01
      E(214) = 4.81865D-01
      E(215) = 1.8822219D-01
      E(216) = 7.753957D-02
      E(217) = 3.500512D+04
      E(218) = 8.279462D+03
      E(219) = 2.688465D+03
      E(220) = 1.02949D+03
      E(221) = 4.380708D+02
      E(222) = 2.006153D+02
      E(223) = 9.700769D+01
      E(224) = 4.887052D+01
      E(225) = 2.529281D+01
      E(226) = 1.335382D+01
      E(227) = 7.131786D+00
      E(228) = 3.764365D+00
      E(229) = 1.946265D+00
      E(230) = 9.85455D-01
      E(231) = 4.81865D-01
      E(232) = 1.8822219D-01
      E(233) = 7.753957D-02
      E(234) = 3.500512D+04
      E(235) = 8.279462D+03
      E(236) = 2.688465D+03
      E(237) = 1.02949D+03
      E(238) = 4.380708D+02
      E(239) = 2.006153D+02
      E(240) = 9.700769D+01
      E(241) = 4.887052D+01
      E(242) = 2.529281D+01
      E(243) = 1.335382D+01
      E(244) = 7.131786D+00
      E(245) = 3.764365D+00
      E(246) = 1.946265D+00
      E(247) = 9.85455D-01
      E(248) = 4.81865D-01
      E(249) = 1.8822219D-01
      E(250) = 7.753957D-02
      E(251) = 3.154945D-02
      E(252) = 3.13109D+02
      E(253) = 9.25276D+01
      E(254) = 3.54191D+01
      E(255) = 1.51577D+01
      E(256) = 6.90964D+00
      E(257) = 3.27256D+00
      E(258) = 1.54936D+00
      E(259) = 7.17094D-01
      E(260) = 3.1931D-01
      E(261) = 1.34157D-01
      E(262) = 3.13109D+02
      E(263) = 9.25276D+01
      E(264) = 3.54191D+01
      E(265) = 1.51577D+01
      E(266) = 6.90964D+00
      E(267) = 3.27256D+00
      E(268) = 1.54936D+00
      E(269) = 7.17094D-01
      E(270) = 3.1931D-01
      E(271) = 1.34157D-01
      E(272) = 3.13109D+02
      E(273) = 9.25276D+01
      E(274) = 3.54191D+01
      E(275) = 1.51577D+01
      E(276) = 6.90964D+00
      E(277) = 3.27256D+00
      E(278) = 1.54936D+00
      E(279) = 7.17094D-01
      E(280) = 3.1931D-01
      E(281) = 1.34157D-01
      E(282) = 3.13109D+02
      E(283) = 9.25276D+01
      E(284) = 3.54191D+01
      E(285) = 1.51577D+01
      E(286) = 6.90964D+00
      E(287) = 3.27256D+00
      E(288) = 1.54936D+00
      E(289) = 7.17094D-01
      E(290) = 3.1931D-01
      E(291) = 1.34157D-01
      E(292) = 5.14D-02
      E(293) = 4.4261D+00
      E(294) = 1.2989D+00
      E(295) = 3.812D-01
      E(296) = 3.1273D+00
      E(297) = 8.52D-01
CSDJ  E(298) = 1.966D+00
      S(1) = 5.8D-05
      S(2) = 1.65D-04
      S(3) = 4.38D-04
      S(4) = 1.07D-03
      S(5) = 2.576D-03
      S(6) = 6.227D-03
      S(7) = 1.5255D-02
      S(8) = 3.6993D-02
      S(9) = 8.4702D-02
      S(10) = 1.7075D-01
      S(11) = 2.74397D-01
      S(12) = 2.92043D-01
      S(13) = 1.56222D-01
      S(14) = 5.7062D-02
      S(15) = 8.0835D-02
      S(16) = 5.5424D-02
      S(17) = 6.629D-03
      S(18) = -2.79D-04
      S(19) = -7.2D-05
      S(20) = -3.0D-06
      S(21) = 1.8D-05
      S(22) = -2.8D-05
      S(23) = -7.9D-05
      S(24) = -2.09D-04
      S(25) = -5.12D-04
      S(26) = -1.236D-03
      S(27) = -3.0D-03
      S(28) = -7.392D-03
      S(29) = -1.8199D-02
      S(30) = -4.2775D-02
      S(31) = -9.1674D-02
      S(32) = -1.657D-01
      S(33) = -2.25906D-01
      S(34) = -1.46002D-01
      S(35) = 2.01341D-01
      S(36) = 5.51109D-01
      S(37) = 3.6494D-01
      S(38) = 4.6862D-02
      S(39) = -4.91D-03
      S(40) = -8.11D-04
      S(41) = -2.31D-04
      S(42) = 2.61D-04
      S(43) = 7.0D-06
      S(44) = 1.9D-05
      S(45) = 5.1D-05
      S(46) = 1.25D-04
      S(47) = 3.02D-04
      S(48) = 7.35D-04
      S(49) = 1.816D-03
      S(50) = 4.52D-03
      S(51) = 1.0763D-02
      S(52) = 2.3965D-02
      S(53) = 4.5838D-02
      S(54) = 7.0171D-02
      S(55) = 4.8992D-02
      S(56) = -9.6943D-02
      S(57) = -3.66783D-01
      S(58) = -3.50689D-01
      S(59) = 2.82689D-01
      S(60) = 6.87744D-01
      S(61) = 3.20827D-01
      S(62) = 1.4297D-02
      S(63) = -3.961D-03
      S(64) = -2.0D-06
      S(65) = -4.0D-06
      S(66) = -1.1D-05
      S(67) = -2.8D-05
      S(68) = -6.7D-05
      S(69) = -1.64D-04
      S(70) = -4.05D-04
      S(71) = -1.009D-03
      S(72) = -2.399D-03
      S(73) = -5.357D-03
      S(74) = -1.0229D-02
      S(75) = -1.5793D-02
      S(76) = -1.0947D-02
      S(77) = 2.1896D-02
      S(78) = 8.8154D-02
      S(79) = 8.5836D-02
      S(80) = -8.0579D-02
      S(81) = -2.33422D-01
      S(82) = -2.18035D-01
      S(83) = 3.213D-01
      S(84) = 5.87186D-01
      S(85) = -3.0D-06
      S(86) = -9.0D-06
      S(87) = -2.3D-05
      S(88) = -5.7D-05
      S(89) = -1.34D-04
      S(90) = -3.41D-04
      S(91) = -7.9D-04
      S(92) = -2.145D-03
      S(93) = -4.56D-03
      S(94) = -1.1734D-02
      S(95) = -1.8518D-02
      S(96) = -3.7587D-02
      S(97) = -1.0919D-02
      S(98) = 1.7293D-02
      S(99) = 2.49181D-01
      S(100) = 8.0367D-02
      S(101) = -1.877D-02
      S(102) = -1.096898D+00
      S(103) = 5.28005D-01
      S(104) = 1.805772D+00
      S(105) = -1.168371D+00
      S(106) = -5.0D-06
      S(107) = -1.4D-05
      S(108) = -3.7D-05
      S(109) = -9.1D-05
      S(110) = -2.13D-04
      S(111) = -5.44D-04
      S(112) = -1.254D-03
      S(113) = -3.424D-03
      S(114) = -7.24D-03
      S(115) = -1.8774D-02
      S(116) = -2.9456D-02
      S(117) = -6.0678D-02
      S(118) = -1.7246D-02
      S(119) = 2.7837D-02
      S(120) = 4.33945D-01
      S(121) = 1.64592D-01
      S(122) = -4.09716D-01
      S(123) = -1.96456D+00
      S(124) = 2.839549D+00
      S(125) = -9.66238D-01
      S(126) = -1.139342D+00
      S(127) = -6.0D-06
      S(128) = -1.6D-05
      S(129) = -4.4D-05
      S(130) = -1.04D-04
      S(131) = -2.66D-04
      S(132) = -5.87D-04
      S(133) = -1.677D-03
      S(134) = -3.407D-03
      S(135) = -1.0506D-02
      S(136) = -1.6751D-02
      S(137) = -4.9555D-02
      S(138) = -3.8142D-02
      S(139) = -9.5152D-02
      S(140) = 2.11291D-01
      S(141) = 2.31562D-01
      S(142) = 8.75281D-01
      S(143) = -2.972955D+00
      S(144) = 1.940533D+00
      S(145) = 8.06544D-01
      S(146) = -3.865274D+00
      S(147) = 5.365495D+00
      S(148) = 1.0D+00
      P(149) = 4.8D-05
      P(150) = 1.87D-04
      P(151) = 7.95D-04
      P(152) = 3.045D-03
      P(153) = 1.0622D-02
      P(154) = 3.2312D-02
      P(155) = 8.4106D-02
      P(156) = 1.77867D-01
      P(157) = 2.89674D-01
      P(158) = 3.29516D-01
      P(159) = 2.10106D-01
      P(160) = 5.4309D-02
      P(161) = 9.21D-04
      P(162) = -2.545D-03
      P(163) = -1.386D-03
      P(164) = -1.01D-04
      P(165) = -6.0D-06
      P(166) = -1.7D-05
      P(167) = -6.5D-05
      P(168) = -2.76D-04
      P(169) = -1.063D-03
      P(170) = -3.728D-03
      P(171) = -1.1496D-02
      P(172) = -3.0603D-02
      P(173) = -6.7067D-02
      P(174) = -1.13703D-01
      P(175) = -1.37073D-01
      P(176) = -4.6779D-02
      P(177) = 1.9381D-01
      P(178) = 4.0328D-01
      P(179) = 3.802D-01
      P(180) = 1.65991D-01
      P(181) = 1.7606D-02
      P(182) = -9.79D-04
      P(183) = -4.0D-06
      P(184) = -1.5D-05
      P(185) = -6.4D-05
      P(186) = -2.44D-04
      P(187) = -8.62D-04
      P(188) = -2.64D-03
      P(189) = -7.104D-03
      P(190) = -1.5449D-02
      P(191) = -2.667D-02
      P(192) = -3.1712D-02
      P(193) = -1.0638D-02
      P(194) = 5.5675D-02
      P(195) = 1.10372D-01
      P(196) = 1.27988D-01
      P(197) = -5.925D-03
      P(198) = -3.40306D-01
      P(199) = -5.39978D-01
      P(200) = 5.0D-06
      P(201) = 2.0D-05
      P(202) = 8.7D-05
      P(203) = 3.31D-04
      P(204) = 1.168D-03
      P(205) = 3.583D-03
      P(206) = 9.614D-03
      P(207) = 2.0963D-02
      P(208) = 3.6095D-02
      P(209) = 4.326D-02
      P(210) = 1.4593D-02
      P(211) = -7.3917D-02
      P(212) = -1.50813D-01
      P(213) = -1.78434D-01
      P(214) = 7.863D-03
      P(215) = 5.8957D-01
      P(216) = 4.81239D-01
      P(217) = 1.1D-05
      P(218) = 4.2D-05
      P(219) = 1.89D-04
      P(220) = 6.7D-04
      P(221) = 2.572D-03
      P(222) = 7.212D-03
      P(223) = 2.1332D-02
      P(224) = 4.1582D-02
      P(225) = 8.3296D-02
      P(226) = 8.1214D-02
      P(227) = 6.639D-02
      P(228) = -2.54452D-01
      P(229) = -3.78838D-01
      P(230) = -3.91121D-01
      P(231) = 1.172428D+00
      P(232) = 3.43329D-01
      P(233) = -8.9134D-01
      P(234) = -1.5D-05
      P(235) = -6.0D-05
      P(236) = -2.33D-04
      P(237) = -9.92D-04
      P(238) = -3.107D-03
      P(239) = -1.0816D-02
      P(240) = -2.535D-02
      P(241) = -6.4751D-02
      P(242) = -9.0657D-02
      P(243) = -1.70089D-01
      P(244) = -3.8624D-02
      P(245) = 4.44621D-01
      P(246) = 1.0592D+00
      P(247) = -1.546378D+00
      P(248) = -4.56853D-01
      P(249) = 1.7988D+00
      P(250) = -1.09623D+00
      P(251) = 1.0D+00
      D(252) = 3.59D-04
      D(253) = 3.183D-03
      D(254) = 1.6047D-02
      D(255) = 5.3748D-02
      D(256) = 1.34981D-01
      D(257) = 2.40798D-01
      D(258) = 3.09954D-01
      D(259) = 3.03348D-01
      D(260) = 2.16299D-01
      D(261) = 9.1718D-02
      D(262) = -3.66D-04
      D(263) = -3.255D-03
      D(264) = -1.6441D-02
      D(265) = -5.5865D-02
      D(266) = -1.43807D-01
      D(267) = -2.45365D-01
      D(268) = -2.37014D-01
      D(269) = 1.6821D-02
      D(270) = 3.8268D-01
      D(271) = 4.70368D-01
      D(272) = -5.78D-04
      D(273) = -5.17D-03
      D(274) = -2.6344D-02
      D(275) = -9.1975D-02
      D(276) = -2.42813D-01
      D(277) = -3.41872D-01
      D(278) = -2.6954D-02
      D(279) = 6.03852D-01
      D(280) = 3.36019D-01
      D(281) = -5.51186D-01
      D(282) = -7.35D-04
      D(283) = -6.642D-03
      D(284) = -3.3884D-02
      D(285) = -1.22608D-01
      D(286) = -3.5008D-01
      D(287) = -3.19157D-01
      D(288) = 7.22853D-01
      D(289) = 4.55942D-01
      D(290) = -1.058993D+00
      D(291) = 1.54553D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR MN'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     ----- FE -----
C
  126 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 4.316265D+06
      E(2) = 6.463424D+05
      E(3) = 1.470897D+05
      E(4) = 4.166152D+04
      E(5) = 1.359077D+04
      E(6) = 4.90575D+03
      E(7) = 1.912746D+03
      E(8) = 7.926043D+02
      E(9) = 3.448065D+02
      E(10) = 1.558999D+02
      E(11) = 7.223091D+01
      E(12) = 3.272506D+01
      E(13) = 1.566762D+01
      E(14) = 7.503483D+00
      E(15) = 3.312223D+00
      E(16) = 1.558471D+00
      E(17) = 6.83914D-01
      E(18) = 1.46757D-01
      E(19) = 7.0583D-02
      E(20) = 4.316265D+06
      E(21) = 6.463424D+05
      E(22) = 1.470897D+05
      E(23) = 4.166152D+04
      E(24) = 1.359077D+04
      E(25) = 4.90575D+03
      E(26) = 1.912746D+03
      E(27) = 7.926043D+02
      E(28) = 3.448065D+02
      E(29) = 1.558999D+02
      E(30) = 7.223091D+01
      E(31) = 3.272506D+01
      E(32) = 1.566762D+01
      E(33) = 7.503483D+00
      E(34) = 3.312223D+00
      E(35) = 1.558471D+00
      E(36) = 6.83914D-01
      E(37) = 1.46757D-01
      E(38) = 7.0583D-02
      E(39) = 4.316265D+06
      E(40) = 6.463424D+05
      E(41) = 1.470897D+05
      E(42) = 4.166152D+04
      E(43) = 1.359077D+04
      E(44) = 4.90575D+03
      E(45) = 1.912746D+03
      E(46) = 7.926043D+02
      E(47) = 3.448065D+02
      E(48) = 1.558999D+02
      E(49) = 7.223091D+01
      E(50) = 3.272506D+01
      E(51) = 1.566762D+01
      E(52) = 7.503483D+00
      E(53) = 3.312223D+00
      E(54) = 1.558471D+00
      E(55) = 6.83914D-01
      E(56) = 1.46757D-01
      E(57) = 7.0583D-02
      E(58) = 4.316265D+06
      E(59) = 6.463424D+05
      E(60) = 1.470897D+05
      E(61) = 4.166152D+04
      E(62) = 1.359077D+04
      E(63) = 4.90575D+03
      E(64) = 1.912746D+03
      E(65) = 7.926043D+02
      E(66) = 3.448065D+02
      E(67) = 1.558999D+02
      E(68) = 7.223091D+01
      E(69) = 3.272506D+01
      E(70) = 1.566762D+01
      E(71) = 7.503483D+00
      E(72) = 3.312223D+00
      E(73) = 1.558471D+00
      E(74) = 6.83914D-01
      E(75) = 1.46757D-01
      E(76) = 7.0583D-02
      E(77) = 4.316265D+06
      E(78) = 6.463424D+05
      E(79) = 1.470897D+05
      E(80) = 4.166152D+04
      E(81) = 1.359077D+04
      E(82) = 4.90575D+03
      E(83) = 1.912746D+03
      E(84) = 7.926043D+02
      E(85) = 3.448065D+02
      E(86) = 1.558999D+02
      E(87) = 7.223091D+01
      E(88) = 3.272506D+01
      E(89) = 1.566762D+01
      E(90) = 7.503483D+00
      E(91) = 3.312223D+00
      E(92) = 1.558471D+00
      E(93) = 6.83914D-01
      E(94) = 1.46757D-01
      E(95) = 7.0583D-02
      E(96) = 4.316265D+06
      E(97) = 6.463424D+05
      E(98) = 1.470897D+05
      E(99) = 4.166152D+04
      E(100) = 1.359077D+04
      E(101) = 4.90575D+03
      E(102) = 1.912746D+03
      E(103) = 7.926043D+02
      E(104) = 3.448065D+02
      E(105) = 1.558999D+02
      E(106) = 7.223091D+01
      E(107) = 3.272506D+01
      E(108) = 1.566762D+01
      E(109) = 7.503483D+00
      E(110) = 3.312223D+00
      E(111) = 1.558471D+00
      E(112) = 6.83914D-01
      E(113) = 1.46757D-01
      E(114) = 7.0583D-02
      E(115) = 3.1449D-02
      E(116) = 1.774569D+04
      E(117) = 4.200721D+03
      E(118) = 1.364429D+03
      E(119) = 5.220806D+02
      E(120) = 2.214595D+02
      E(121) = 1.009096D+02
      E(122) = 4.840115D+01
      E(123) = 2.398536D+01
      E(124) = 1.21825D+01
      E(125) = 6.242298D+00
      E(126) = 3.110944D+00
      E(127) = 1.509958D+00
      E(128) = 7.10845D-01
      E(129) = 2.72598D-01
      E(130) = 1.03972D-01
      E(131) = 1.774569D+04
      E(132) = 4.200721D+03
      E(133) = 1.364429D+03
      E(134) = 5.220806D+02
      E(135) = 2.214595D+02
      E(136) = 1.009096D+02
      E(137) = 4.840115D+01
      E(138) = 2.398536D+01
      E(139) = 1.21825D+01
      E(140) = 6.242298D+00
      E(141) = 3.110944D+00
      E(142) = 1.509958D+00
      E(143) = 7.10845D-01
      E(144) = 2.72598D-01
      E(145) = 1.03972D-01
      E(146) = 1.774569D+04
      E(147) = 4.200721D+03
      E(148) = 1.364429D+03
      E(149) = 5.220806D+02
      E(150) = 2.214595D+02
      E(151) = 1.009096D+02
      E(152) = 4.840115D+01
      E(153) = 2.398536D+01
      E(154) = 1.21825D+01
      E(155) = 6.242298D+00
      E(156) = 3.110944D+00
      E(157) = 1.509958D+00
      E(158) = 7.10845D-01
      E(159) = 2.72598D-01
      E(160) = 1.03972D-01
      E(161) = 1.774569D+04
      E(162) = 4.200721D+03
      E(163) = 1.364429D+03
      E(164) = 5.220806D+02
      E(165) = 2.214595D+02
      E(166) = 1.009096D+02
      E(167) = 4.840115D+01
      E(168) = 2.398536D+01
      E(169) = 1.21825D+01
      E(170) = 6.242298D+00
      E(171) = 3.110944D+00
      E(172) = 1.509958D+00
      E(173) = 7.10845D-01
      E(174) = 2.72598D-01
      E(175) = 1.03972D-01
      E(176) = 1.774569D+04
      E(177) = 4.200721D+03
      E(178) = 1.364429D+03
      E(179) = 5.220806D+02
      E(180) = 2.214595D+02
      E(181) = 1.009096D+02
      E(182) = 4.840115D+01
      E(183) = 2.398536D+01
      E(184) = 1.21825D+01
      E(185) = 6.242298D+00
      E(186) = 3.110944D+00
      E(187) = 1.509958D+00
      E(188) = 7.10845D-01
      E(189) = 2.72598D-01
      E(190) = 1.03972D-01
      E(191) = 3.8166D-02
      E(192) = 1.14884D+02
      E(193) = 3.38878D+01
      E(194) = 1.2373D+01
      E(195) = 4.99925D+00
      E(196) = 2.07043D+00
      E(197) = 8.28183D-01
      E(198) = 3.07547D-01
      E(199) = 1.14884D+02
      E(200) = 3.38878D+01
      E(201) = 1.2373D+01
      E(202) = 4.99925D+00
      E(203) = 2.07043D+00
      E(204) = 8.28183D-01
      E(205) = 3.07547D-01
      E(206) = 1.14884D+02
      E(207) = 3.38878D+01
      E(208) = 1.2373D+01
      E(209) = 4.99925D+00
      E(210) = 2.07043D+00
      E(211) = 8.28183D-01
      E(212) = 3.07547D-01
      E(213) = 9.9455D-02
      E(214) = 3.2243D+00
      E(215) = 7.758D-01
      E(216) = 2.0515D+00
      S(1) = 1.4D-04
      S(2) = 4.05D-04
      S(3) = 1.119D-03
      S(4) = 2.907D-03
      S(5) = 7.571D-03
      S(6) = 1.9818D-02
      S(7) = 5.0734D-02
      S(8) = 1.18729D-01
      S(9) = 2.31164D-01
      S(10) = 3.19322D-01
      S(11) = 2.33648D-01
      S(12) = 7.4022D-02
      S(13) = 9.0952D-02
      S(14) = 8.8898D-02
      S(15) = 1.4302D-02
      S(16) = -3.87D-04
      S(17) = 8.0D-06
      S(18) = -2.5D-05
      S(19) = 3.2D-05
      S(20) = -7.2D-05
      S(21) = -2.09D-04
      S(22) = -5.79D-04
      S(23) = -1.506D-03
      S(24) = -3.939D-03
      S(25) = -1.0396D-02
      S(26) = -2.7074D-02
      S(27) = -6.5777D-02
      S(28) = -1.39082D-01
      S(29) = -2.3015D-01
      S(30) = -2.29663D-01
      S(31) = 4.6091D-02
      S(32) = 5.15051D-01
      S(33) = 4.87175D-01
      S(34) = 8.438D-02
      S(35) = -5.911D-03
      S(36) = -4.4D-05
      S(37) = -4.87D-04
      S(38) = 4.37D-04
      S(39) = 1.7D-05
      S(40) = 4.9D-05
      S(41) = 1.35D-04
      S(42) = 3.52D-04
      S(43) = 9.23D-04
      S(44) = 2.452D-03
      S(45) = 6.451D-03
      S(46) = 1.6106D-02
      S(47) = 3.5742D-02
      S(48) = 6.5528D-02
      S(49) = 7.443D-02
      S(50) = -2.5711D-02
      S(51) = -3.08645D-01
      S(52) = -4.46544D-01
      S(53) = 1.48985D-01
      S(54) = 7.20395D-01
      S(55) = 3.89698D-01
      S(56) = 1.9184D-02
      S(57) = -7.023D-03
      S(58) = -4.0D-06
      S(59) = -1.1D-05
      S(60) = -2.9D-05
      S(61) = -7.7D-05
      S(62) = -2.01D-04
      S(63) = -5.35D-04
      S(64) = -1.408D-03
      S(65) = -3.518D-03
      S(66) = -7.814D-03
      S(67) = -1.4372D-02
      S(68) = -1.6383D-02
      S(69) = 5.643D-03
      S(70) = 7.1221D-02
      S(71) = 1.078D-01
      S(72) = -4.4262D-02
      S(73) = -2.25999D-01
      S(74) = -2.37628D-01
      S(75) = 2.9778D-01
      S(76) = 5.65497D-01
      S(77) = -7.0D-06
      S(78) = -2.1D-05
      S(79) = -5.8D-05
      S(80) = -1.55D-04
      S(81) = -3.93D-04
      S(82) = -1.101D-03
      S(83) = -2.693D-03
      S(84) = -7.404D-03
      S(85) = -1.4484D-02
      S(86) = -3.1853D-02
      S(87) = -2.5352D-02
      S(88) = -7.887D-03
      S(89) = 1.9147D-01
      S(90) = 1.48242D-01
      S(91) = 5.0761D-02
      S(92) = -1.012246D+00
      S(93) = 3.42339D-01
      S(94) = 1.857266D+00
      S(95) = -1.063679D+00
      S(96) = -1.2D-05
      S(97) = -3.6D-05
      S(98) = -9.9D-05
      S(99) = -2.63D-04
      S(100) = -6.64D-04
      S(101) = -1.869D-03
      S(102) = -4.542D-03
      S(103) = -1.2601D-02
      S(104) = -2.4423D-02
      S(105) = -5.4652D-02
      S(106) = -4.2541D-02
      S(107) = -1.5989D-02
      S(108) = 3.45964D-01
      S(109) = 3.20641D-01
      S(110) = -2.02125D-01
      S(111) = -2.160673D+00
      S(112) = 2.627486D+00
      S(113) = -4.75452D-01
      S(114) = -1.566613D+00
      S(115) = 1.0D+00
      P(116) = 1.23D-04
      P(117) = 5.66D-04
      P(118) = 2.608D-03
      P(119) = 1.0295D-02
      P(120) = 3.4751D-02
      P(121) = 9.669D-02
      P(122) = 2.1003D-01
      P(123) = 3.32457D-01
      P(124) = 3.30771D-01
      P(125) = 1.54733D-01
      P(126) = 2.0964D-02
      P(127) = -2.346D-03
      P(128) = -1.854D-03
      P(129) = -3.17D-04
      P(130) = 3.0D-05
      P(131) = -4.3D-05
      P(132) = -2.0D-04
      P(133) = -9.23D-04
      P(134) = -3.668D-03
      P(135) = -1.2539D-02
      P(136) = -3.5848D-02
      P(137) = -8.0822D-02
      P(138) = -1.34697D-01
      P(139) = -1.36912D-01
      P(140) = 3.3713D-02
      P(141) = 3.3567D-01
      P(142) = 4.55496D-01
      P(143) = 2.8176D-01
      P(144) = 4.515D-02
      P(145) = -3.165D-03
      P(146) = 9.0D-06
      P(147) = 4.4D-05
      P(148) = 2.01D-04
      P(149) = 8.0D-04
      P(150) = 2.738D-03
      P(151) = 7.848D-03
      P(152) = 1.7739D-02
      P(153) = 2.9749D-02
      P(154) = 3.0389D-02
      P(155) = -1.0765D-02
      P(156) = -8.7689D-02
      P(157) = -1.2847D-01
      P(158) = -7.3996D-02
      P(159) = 2.15455D-01
      P(160) = 5.72005D-01
      P(161) = 1.4D-05
      P(162) = 6.6D-05
      P(163) = 3.03D-04
      P(164) = 1.219D-03
      P(165) = 4.12D-03
      P(166) = 1.1953D-02
      P(167) = 2.662D-02
      P(168) = 4.5699D-02
      P(169) = 4.5033D-02
      P(170) = -1.3011D-02
      P(171) = -1.41375D-01
      P(172) = -1.94148D-01
      P(173) = -1.0177D-01
      P(174) = 4.67864D-01
      P(175) = 6.24218D-01
      P(176) = 3.0D-05
      P(177) = 1.34D-04
      P(178) = 6.59D-04
      P(179) = 2.447D-03
      P(180) = 9.014D-03
      P(181) = 2.3823D-02
      P(182) = 5.9364D-02
      P(183) = 8.758D-02
      P(184) = 1.22286D-01
      P(185) = -6.8112D-02
      P(186) = -3.51907D-01
      P(187) = -6.23706D-01
      P(188) = 8.41448D-01
      P(189) = 7.9207D-01
      P(190) = -9.1751D-01
      P(191) = 1.0D+00
      D(192) = 3.532D-03
      D(193) = 2.555D-02
      D(194) = 9.8357D-02
      D(195) = 2.37919D-01
      D(196) = 3.56539D-01
      D(197) = 3.62848D-01
      D(198) = 2.38803D-01
      D(199) = -3.896D-03
      D(200) = -2.8207D-02
      D(201) = -1.11573D-01
      D(202) = -2.72839D-01
      D(203) = -3.17152D-01
      D(204) = 5.2062D-02
      D(205) = 5.61269D-01
      D(206) = 5.703D-03
      D(207) = 4.1691D-02
      D(208) = 1.72043D-01
      D(209) = 4.08607D-01
      D(210) = 1.19525D-01
      D(211) = -7.66038D-01
      D(212) = -4.3081D-02
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.327714D+07
      E(2) = 1.987888D+06
      E(3) = 4.523871D+05
      E(4) = 1.281437D+05
      E(5) = 4.180917D+04
      E(6) = 1.509533D+04
      E(7) = 5.888438D+03
      E(8) = 2.442876D+03
      E(9) = 1.065857D+03
      E(10) = 4.849096D+02
      E(11) = 2.284585D+02
      E(12) = 1.107453D+02
      E(13) = 5.443116D+01
      E(14) = 2.501096D+01
      E(15) = 1.259262D+01
      E(16) = 6.323202D+00
      E(17) = 2.883384D+00
      E(18) = 1.382868D+00
      E(19) = 6.32201D-01
      E(20) = 1.49238D-01
      E(21) = 6.8494D-02
      E(22) = 1.327714D+07
      E(23) = 1.987888D+06
      E(24) = 4.523871D+05
      E(25) = 1.281437D+05
      E(26) = 4.180917D+04
      E(27) = 1.509533D+04
      E(28) = 5.888438D+03
      E(29) = 2.442876D+03
      E(30) = 1.065857D+03
      E(31) = 4.849096D+02
      E(32) = 2.284585D+02
      E(33) = 1.107453D+02
      E(34) = 5.443116D+01
      E(35) = 2.501096D+01
      E(36) = 1.259262D+01
      E(37) = 6.323202D+00
      E(38) = 2.883384D+00
      E(39) = 1.382868D+00
      E(40) = 6.32201D-01
      E(41) = 1.49238D-01
      E(42) = 6.8494D-02
      E(43) = 1.327714D+07
      E(44) = 1.987888D+06
      E(45) = 4.523871D+05
      E(46) = 1.281437D+05
      E(47) = 4.180917D+04
      E(48) = 1.509533D+04
      E(49) = 5.888438D+03
      E(50) = 2.442876D+03
      E(51) = 1.065857D+03
      E(52) = 4.849096D+02
      E(53) = 2.284585D+02
      E(54) = 1.107453D+02
      E(55) = 5.443116D+01
      E(56) = 2.501096D+01
      E(57) = 1.259262D+01
      E(58) = 6.323202D+00
      E(59) = 2.883384D+00
      E(60) = 1.382868D+00
      E(61) = 6.32201D-01
      E(62) = 1.49238D-01
      E(63) = 6.8494D-02
      E(64) = 1.327714D+07
      E(65) = 1.987888D+06
      E(66) = 4.523871D+05
      E(67) = 1.281437D+05
      E(68) = 4.180917D+04
      E(69) = 1.509533D+04
      E(70) = 5.888438D+03
      E(71) = 2.442876D+03
      E(72) = 1.065857D+03
      E(73) = 4.849096D+02
      E(74) = 2.284585D+02
      E(75) = 1.107453D+02
      E(76) = 5.443116D+01
      E(77) = 2.501096D+01
      E(78) = 1.259262D+01
      E(79) = 6.323202D+00
      E(80) = 2.883384D+00
      E(81) = 1.382868D+00
      E(82) = 6.32201D-01
      E(83) = 1.49238D-01
      E(84) = 6.8494D-02
      E(85) = 1.327714D+07
      E(86) = 1.987888D+06
      E(87) = 4.523871D+05
      E(88) = 1.281437D+05
      E(89) = 4.180917D+04
      E(90) = 1.509533D+04
      E(91) = 5.888438D+03
      E(92) = 2.442876D+03
      E(93) = 1.065857D+03
      E(94) = 4.849096D+02
      E(95) = 2.284585D+02
      E(96) = 1.107453D+02
      E(97) = 5.443116D+01
      E(98) = 2.501096D+01
      E(99) = 1.259262D+01
      E(100) = 6.323202D+00
      E(101) = 2.883384D+00
      E(102) = 1.382868D+00
      E(103) = 6.32201D-01
      E(104) = 1.49238D-01
      E(105) = 6.8494D-02
      E(106) = 1.327714D+07
      E(107) = 1.987888D+06
      E(108) = 4.523871D+05
      E(109) = 1.281437D+05
      E(110) = 4.180917D+04
      E(111) = 1.509533D+04
      E(112) = 5.888438D+03
      E(113) = 2.442876D+03
      E(114) = 1.065857D+03
      E(115) = 4.849096D+02
      E(116) = 2.284585D+02
      E(117) = 1.107453D+02
      E(118) = 5.443116D+01
      E(119) = 2.501096D+01
      E(120) = 1.259262D+01
      E(121) = 6.323202D+00
      E(122) = 2.883384D+00
      E(123) = 1.382868D+00
      E(124) = 6.32201D-01
      E(125) = 1.49238D-01
      E(126) = 6.8494D-02
      E(127) = 1.327714D+07
      E(128) = 1.987888D+06
      E(129) = 4.523871D+05
      E(130) = 1.281437D+05
      E(131) = 4.180917D+04
      E(132) = 1.509533D+04
      E(133) = 5.888438D+03
      E(134) = 2.442876D+03
      E(135) = 1.065857D+03
      E(136) = 4.849096D+02
      E(137) = 2.284585D+02
      E(138) = 1.107453D+02
      E(139) = 5.443116D+01
      E(140) = 2.501096D+01
      E(141) = 1.259262D+01
      E(142) = 6.323202D+00
      E(143) = 2.883384D+00
      E(144) = 1.382868D+00
      E(145) = 6.32201D-01
      E(146) = 1.49238D-01
      E(147) = 6.8494D-02
      E(148) = 3.0381D-02
      E(149) = 3.828205D+04
      E(150) = 9.061556D+03
      E(151) = 2.94445D+03
      E(152) = 1.128158D+03
      E(153) = 4.80338D+02
      E(154) = 2.201368D+02
      E(155) = 1.065482D+02
      E(156) = 5.374262D+01
      E(157) = 2.786318D+01
      E(158) = 1.474382D+01
      E(159) = 7.893351D+00
      E(160) = 4.179497D+00
      E(161) = 2.165669D+00
      E(162) = 1.09724D+00
      E(163) = 5.36085D-01
      E(164) = 2.02453D-01
      E(165) = 8.1695D-02
      E(166) = 3.828205D+04
      E(167) = 9.061556D+03
      E(168) = 2.94445D+03
      E(169) = 1.128158D+03
      E(170) = 4.80338D+02
      E(171) = 2.201368D+02
      E(172) = 1.065482D+02
      E(173) = 5.374262D+01
      E(174) = 2.786318D+01
      E(175) = 1.474382D+01
      E(176) = 7.893351D+00
      E(177) = 4.179497D+00
      E(178) = 2.165669D+00
      E(179) = 1.09724D+00
      E(180) = 5.36085D-01
      E(181) = 2.02453D-01
      E(182) = 8.1695D-02
      E(183) = 3.828205D+04
      E(184) = 9.061556D+03
      E(185) = 2.94445D+03
      E(186) = 1.128158D+03
      E(187) = 4.80338D+02
      E(188) = 2.201368D+02
      E(189) = 1.065482D+02
      E(190) = 5.374262D+01
      E(191) = 2.786318D+01
      E(192) = 1.474382D+01
      E(193) = 7.893351D+00
      E(194) = 4.179497D+00
      E(195) = 2.165669D+00
      E(196) = 1.09724D+00
      E(197) = 5.36085D-01
      E(198) = 2.02453D-01
      E(199) = 8.1695D-02
      E(200) = 3.828205D+04
      E(201) = 9.061556D+03
      E(202) = 2.94445D+03
      E(203) = 1.128158D+03
      E(204) = 4.80338D+02
      E(205) = 2.201368D+02
      E(206) = 1.065482D+02
      E(207) = 5.374262D+01
      E(208) = 2.786318D+01
      E(209) = 1.474382D+01
      E(210) = 7.893351D+00
      E(211) = 4.179497D+00
      E(212) = 2.165669D+00
      E(213) = 1.09724D+00
      E(214) = 5.36085D-01
      E(215) = 2.02453D-01
      E(216) = 8.1695D-02
      E(217) = 3.828205D+04
      E(218) = 9.061556D+03
      E(219) = 2.94445D+03
      E(220) = 1.128158D+03
      E(221) = 4.80338D+02
      E(222) = 2.201368D+02
      E(223) = 1.065482D+02
      E(224) = 5.374262D+01
      E(225) = 2.786318D+01
      E(226) = 1.474382D+01
      E(227) = 7.893351D+00
      E(228) = 4.179497D+00
      E(229) = 2.165669D+00
      E(230) = 1.09724D+00
      E(231) = 5.36085D-01
      E(232) = 2.02453D-01
      E(233) = 8.1695D-02
      E(234) = 3.828205D+04
      E(235) = 9.061556D+03
      E(236) = 2.94445D+03
      E(237) = 1.128158D+03
      E(238) = 4.80338D+02
      E(239) = 2.201368D+02
      E(240) = 1.065482D+02
      E(241) = 5.374262D+01
      E(242) = 2.786318D+01
      E(243) = 1.474382D+01
      E(244) = 7.893351D+00
      E(245) = 4.179497D+00
      E(246) = 2.165669D+00
      E(247) = 1.09724D+00
      E(248) = 5.36085D-01
      E(249) = 2.02453D-01
      E(250) = 8.1695D-02
      E(251) = 3.2614D-02
      E(252) = 3.50995D+02
      E(253) = 1.03667D+02
      E(254) = 3.97043D+01
      E(255) = 1.7031D+01
      E(256) = 7.78902D+00
      E(257) = 3.69955D+00
      E(258) = 1.75532D+00
      E(259) = 8.12845D-01
      E(260) = 3.61441D-01
      E(261) = 1.51346D-01
      E(262) = 3.50995D+02
      E(263) = 1.03667D+02
      E(264) = 3.97043D+01
      E(265) = 1.7031D+01
      E(266) = 7.78902D+00
      E(267) = 3.69955D+00
      E(268) = 1.75532D+00
      E(269) = 8.12845D-01
      E(270) = 3.61441D-01
      E(271) = 1.51346D-01
      E(272) = 3.50995D+02
      E(273) = 1.03667D+02
      E(274) = 3.97043D+01
      E(275) = 1.7031D+01
      E(276) = 7.78902D+00
      E(277) = 3.69955D+00
      E(278) = 1.75532D+00
      E(279) = 8.12845D-01
      E(280) = 3.61441D-01
      E(281) = 1.51346D-01
      E(282) = 3.50995D+02
      E(283) = 1.03667D+02
      E(284) = 3.97043D+01
      E(285) = 1.7031D+01
      E(286) = 7.78902D+00
      E(287) = 3.69955D+00
      E(288) = 1.75532D+00
      E(289) = 8.12845D-01
      E(290) = 3.61441D-01
      E(291) = 1.51346D-01
      E(292) = 5.7513D-02
      E(293) = 5.1588D+00
      E(294) = 1.5344D+00
      E(295) = 4.564D-01
      E(296) = 3.7476D+00
      E(297) = 1.0505D+00
CSDJ  E(298) = 2.3448D+00
      S(1) = 6.0D-05
      S(2) = 1.7D-04
      S(3) = 4.5D-04
      S(4) = 1.093D-03
      S(5) = 2.613D-03
      S(6) = 6.26D-03
      S(7) = 1.5195D-02
      S(8) = 3.6577D-02
      S(9) = 8.3375D-02
      S(10) = 1.67634D-01
      S(11) = 2.6886D-01
      S(12) = 2.85235D-01
      S(13) = 1.52532D-01
      S(14) = 6.3381D-02
      S(15) = 9.6724D-02
      S(16) = 6.547D-02
      S(17) = 7.963D-03
      S(18) = -2.53D-04
      S(19) = -3.2D-05
      S(20) = -7.0D-06
      S(21) = 1.9D-05
      S(22) = -3.1D-05
      S(23) = -8.8D-05
      S(24) = -2.32D-04
      S(25) = -5.65D-04
      S(26) = -1.353D-03
      S(27) = -3.256D-03
      S(28) = -7.948D-03
      S(29) = -1.9413D-02
      S(30) = -4.5382D-02
      S(31) = -9.6799D-02
      S(32) = -1.73972D-01
      S(33) = -2.35094D-01
      S(34) = -1.51188D-01
      S(35) = 2.01278D-01
      S(36) = 5.494D-01
      S(37) = 3.60933D-01
      S(38) = 4.656D-02
      S(39) = -4.016D-03
      S(40) = -4.73D-04
      S(41) = -2.09D-04
      S(42) = 2.15D-04
      S(43) = 7.0D-06
      S(44) = 2.1D-05
      S(45) = 5.4D-05
      S(46) = 1.32D-04
      S(47) = 3.16D-04
      S(48) = 7.64D-04
      S(49) = 1.869D-03
      S(50) = 4.621D-03
      S(51) = 1.0961D-02
      S(52) = 2.4364D-02
      S(53) = 4.6596D-02
      S(54) = 7.1374D-02
      S(55) = 4.989D-02
      S(56) = -9.9588D-02
      S(57) = -3.73923D-01
      S(58) = -3.48904D-01
      S(59) = 2.9208D-01
      S(60) = 6.87112D-01
      S(61) = 3.15279D-01
      S(62) = 1.3855D-02
      S(63) = -3.439D-03
      S(64) = -2.0D-06
      S(65) = -4.0D-06
      S(66) = -1.2D-05
      S(67) = -2.9D-05
      S(68) = -6.9D-05
      S(69) = -1.67D-04
      S(70) = -4.08D-04
      S(71) = -1.009D-03
      S(72) = -2.39D-03
      S(73) = -5.329D-03
      S(74) = -1.0178D-02
      S(75) = -1.572D-02
      S(76) = -1.092D-02
      S(77) = 2.2063D-02
      S(78) = 8.8075D-02
      S(79) = 8.365D-02
      S(80) = -8.175D-02
      S(81) = -2.29392D-01
      S(82) = -2.09824D-01
      S(83) = 3.09503D-01
      S(84) = 5.84985D-01
      S(85) = -3.0D-06
      S(86) = -9.0D-06
      S(87) = -2.4D-05
      S(88) = -5.9D-05
      S(89) = -1.37D-04
      S(90) = -3.44D-04
      S(91) = -7.94D-04
      S(92) = -2.13D-03
      S(93) = -4.544D-03
      S(94) = -1.157D-02
      S(95) = -1.8481D-02
      S(96) = -3.6933D-02
      S(97) = -1.1529D-02
      S(98) = 1.9229D-02
      S(99) = 2.44304D-01
      S(100) = 8.2702D-02
      S(101) = -3.9945D-02
      S(102) = -1.039704D+00
      S(103) = 4.95303D-01
      S(104) = 1.695744D+00
      S(105) = -9.63698D-01
      S(106) = -5.0D-06
      S(107) = -1.5D-05
      S(108) = -3.9D-05
      S(109) = -9.6D-05
      S(110) = -2.24D-04
      S(111) = -5.62D-04
      S(112) = -1.301D-03
      S(113) = -3.475D-03
      S(114) = -7.462D-03
      S(115) = -1.887D-02
      S(116) = -3.0568D-02
      S(117) = -6.0289D-02
      S(118) = -2.0592D-02
      S(119) = 3.5786D-02
      S(120) = 4.21687D-01
      S(121) = 2.09233D-01
      S(122) = -4.97503D-01
      S(123) = -1.868319D+00
      S(124) = 2.754584D+00
      S(125) = -8.33109D-01
      S(126) = -1.231152D+00
      S(127) = -6.0D-06
      S(128) = -1.7D-05
      S(129) = -4.5D-05
      S(130) = -1.07D-04
      S(131) = -2.72D-04
      S(132) = -5.94D-04
      S(133) = -1.69D-03
      S(134) = -3.383D-03
      S(135) = -1.0502D-02
      S(136) = -1.644D-02
      S(137) = -4.9622D-02
      S(138) = -3.6541D-02
      S(139) = -9.6909D-02
      S(140) = 2.14075D-01
      S(141) = 2.01045D-01
      S(142) = 9.69941D-01
      S(143) = -3.142628D+00
      S(144) = 2.126705D+00
      S(145) = 6.98957D-01
      S(146) = -3.729889D+00
      S(147) = 5.145733D+00
      S(148) = 1.0D+00
      P(149) = 5.1D-05
      P(150) = 1.93D-04
      P(151) = 8.07D-04
      P(152) = 3.054D-03
      P(153) = 1.0591D-02
      P(154) = 3.2142D-02
      P(155) = 8.3649D-02
      P(156) = 1.7715D-01
      P(157) = 2.89086D-01
      P(158) = 3.29157D-01
      P(159) = 2.10423D-01
      P(160) = 5.5174D-02
      P(161) = 1.511D-03
      P(162) = -2.183D-03
      P(163) = -1.218D-03
      P(164) = -8.5D-05
      P(165) = -2.0D-06
      P(166) = -1.8D-05
      P(167) = -6.8D-05
      P(168) = -2.85D-04
      P(169) = -1.082D-03
      P(170) = -3.773D-03
      P(171) = -1.1611D-02
      P(172) = -3.0903D-02
      P(173) = -6.7861D-02
      P(174) = -1.15349D-01
      P(175) = -1.38914D-01
      P(176) = -4.6625D-02
      P(177) = 1.9467D-01
      P(178) = 4.0401D-01
      P(179) = 3.78678D-01
      P(180) = 1.66596D-01
      P(181) = 1.7534D-02
      P(182) = -1.355D-03
      P(183) = 4.0D-06
      P(184) = 1.5D-05
      P(185) = 6.2D-05
      P(186) = 2.35D-04
      P(187) = 8.27D-04
      P(188) = 2.522D-03
      P(189) = 6.796D-03
      P(190) = 1.4782D-02
      P(191) = 2.5653D-02
      P(192) = 3.0313D-02
      P(193) = 1.0201D-02
      P(194) = -5.3193D-02
      P(195) = -1.03678D-01
      P(196) = -1.20998D-01
      P(197) = 3.108D-03
      P(198) = 3.28315D-01
      P(199) = 5.42243D-01
      P(200) = 6.0D-06
      P(201) = 2.3D-05
      P(202) = 9.6D-05
      P(203) = 3.58D-04
      P(204) = 1.27D-03
      P(205) = 3.842D-03
      P(206) = 1.0441D-02
      P(207) = 2.2479D-02
      P(208) = 3.9599D-02
      P(209) = 4.5983D-02
      P(210) = 1.7579D-02
      P(211) = -8.5028D-02
      P(212) = -1.60909D-01
      P(213) = -1.94528D-01
      P(214) = 5.8205D-02
      P(215) = 6.25981D-01
      P(216) = 4.27146D-01
      P(217) = 1.3D-05
      P(218) = 4.6D-05
      P(219) = 2.06D-04
      P(220) = 7.16D-04
      P(221) = 2.759D-03
      P(222) = 7.643D-03
      P(223) = 2.2873D-02
      P(224) = 4.4081D-02
      P(225) = 8.9984D-02
      P(226) = 8.534D-02
      P(227) = 7.7278D-02
      P(228) = -2.97245D-01
      P(229) = -4.06718D-01
      P(230) = -3.12155D-01
      P(231) = 1.205255D+00
      P(232) = 1.89499D-01
      P(233) = -8.42454D-01
      P(234) = -1.6D-05
      P(235) = -6.5D-05
      P(236) = -2.56D-04
      P(237) = -1.04D-03
      P(238) = -3.37D-03
      P(239) = -1.1241D-02
      P(240) = -2.7582D-02
      P(241) = -6.7021D-02
      P(242) = -1.00694D-01
      P(243) = -1.70311D-01
      P(244) = -7.8323D-02
      P(245) = 6.07745D-01
      P(246) = 9.64576D-01
      P(247) = -1.792773D+00
      P(248) = -2.6289D-02
      P(249) = 1.546099D+00
      P(250) = -1.094969D+00
      P(251) = 1.0D+00
      D(252) = 3.59D-04
      D(253) = 3.185D-03
      D(254) = 1.6176D-02
      D(255) = 5.4553D-02
      D(256) = 1.3673D-01
      D(257) = 2.42024D-01
      D(258) = 3.08487D-01
      D(259) = 3.00403D-01
      D(260) = 2.16463D-01
      D(261) = 9.433D-02
      D(262) = -3.95D-04
      D(263) = -3.53D-03
      D(264) = -1.7941D-02
      D(265) = -6.1461D-02
      D(266) = -1.58316D-01
      D(267) = -2.6934D-01
      D(268) = -2.41226D-01
      D(269) = 5.857D-02
      D(270) = 4.11615D-01
      D(271) = 4.3616D-01
      D(272) = -5.7D-04
      D(273) = -5.117D-03
      D(274) = -2.6234D-02
      D(275) = -9.2069D-02
      D(276) = -2.4644D-01
      D(277) = -3.50215D-01
      D(278) = 3.0736D-02
      D(279) = 6.47736D-01
      D(280) = 2.40024D-01
      D(281) = -6.04803D-01
      D(282) = -8.19D-04
      D(283) = -7.013D-03
      D(284) = -3.7847D-02
      D(285) = -1.31414D-01
      D(286) = -4.094D-01
      D(287) = -2.89367D-01
      D(288) = 9.17577D-01
      D(289) = 2.02084D-01
      D(290) = -1.076167D+00
      D(291) = 4.01769D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR FE'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     ----- CO -----
C
  127 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 4.675675D+06
      E(2) = 7.001615D+05
      E(3) = 1.593373D+05
      E(4) = 4.513046D+04
      E(5) = 1.472238D+04
      E(6) = 5.314222D+03
      E(7) = 2.072018D+03
      E(8) = 8.586188D+02
      E(9) = 3.735497D+02
      E(10) = 1.689229D+02
      E(11) = 7.829639D+01
      E(12) = 3.552123D+01
      E(13) = 1.704144D+01
      E(14) = 8.173D+00
      E(15) = 3.610318D+00
      E(16) = 1.697047D+00
      E(17) = 7.43532D-01
      E(18) = 1.58344D-01
      E(19) = 7.5036D-02
      E(20) = 4.675675D+06
      E(21) = 7.001615D+05
      E(22) = 1.593373D+05
      E(23) = 4.513046D+04
      E(24) = 1.472238D+04
      E(25) = 5.314222D+03
      E(26) = 2.072018D+03
      E(27) = 8.586188D+02
      E(28) = 3.735497D+02
      E(29) = 1.689229D+02
      E(30) = 7.829639D+01
      E(31) = 3.552123D+01
      E(32) = 1.704144D+01
      E(33) = 8.173D+00
      E(34) = 3.610318D+00
      E(35) = 1.697047D+00
      E(36) = 7.43532D-01
      E(37) = 1.58344D-01
      E(38) = 7.5036D-02
      E(39) = 4.675675D+06
      E(40) = 7.001615D+05
      E(41) = 1.593373D+05
      E(42) = 4.513046D+04
      E(43) = 1.472238D+04
      E(44) = 5.314222D+03
      E(45) = 2.072018D+03
      E(46) = 8.586188D+02
      E(47) = 3.735497D+02
      E(48) = 1.689229D+02
      E(49) = 7.829639D+01
      E(50) = 3.552123D+01
      E(51) = 1.704144D+01
      E(52) = 8.173D+00
      E(53) = 3.610318D+00
      E(54) = 1.697047D+00
      E(55) = 7.43532D-01
      E(56) = 1.58344D-01
      E(57) = 7.5036D-02
      E(58) = 4.675675D+06
      E(59) = 7.001615D+05
      E(60) = 1.593373D+05
      E(61) = 4.513046D+04
      E(62) = 1.472238D+04
      E(63) = 5.314222D+03
      E(64) = 2.072018D+03
      E(65) = 8.586188D+02
      E(66) = 3.735497D+02
      E(67) = 1.689229D+02
      E(68) = 7.829639D+01
      E(69) = 3.552123D+01
      E(70) = 1.704144D+01
      E(71) = 8.173D+00
      E(72) = 3.610318D+00
      E(73) = 1.697047D+00
      E(74) = 7.43532D-01
      E(75) = 1.58344D-01
      E(76) = 7.5036D-02
      E(77) = 4.675675D+06
      E(78) = 7.001615D+05
      E(79) = 1.593373D+05
      E(80) = 4.513046D+04
      E(81) = 1.472238D+04
      E(82) = 5.314222D+03
      E(83) = 2.072018D+03
      E(84) = 8.586188D+02
      E(85) = 3.735497D+02
      E(86) = 1.689229D+02
      E(87) = 7.829639D+01
      E(88) = 3.552123D+01
      E(89) = 1.704144D+01
      E(90) = 8.173D+00
      E(91) = 3.610318D+00
      E(92) = 1.697047D+00
      E(93) = 7.43532D-01
      E(94) = 1.58344D-01
      E(95) = 7.5036D-02
      E(96) = 4.675675D+06
      E(97) = 7.001615D+05
      E(98) = 1.593373D+05
      E(99) = 4.513046D+04
      E(100) = 1.472238D+04
      E(101) = 5.314222D+03
      E(102) = 2.072018D+03
      E(103) = 8.586188D+02
      E(104) = 3.735497D+02
      E(105) = 1.689229D+02
      E(106) = 7.829639D+01
      E(107) = 3.552123D+01
      E(108) = 1.704144D+01
      E(109) = 8.173D+00
      E(110) = 3.610318D+00
      E(111) = 1.697047D+00
      E(112) = 7.43532D-01
      E(113) = 1.58344D-01
      E(114) = 7.5036D-02
      E(115) = 3.3091D-02
      E(116) = 1.926778D+04
      E(117) = 4.560986D+03
      E(118) = 1.481436D+03
      E(119) = 5.668671D+02
      E(120) = 2.40491D+02
      E(121) = 1.096105D+02
      E(122) = 5.259491D+01
      E(123) = 2.608361D+01
      E(124) = 1.326143D+01
      E(125) = 6.799778D+00
      E(126) = 3.393414D+00
      E(127) = 1.648766D+00
      E(128) = 7.76282D-01
      E(129) = 2.97209D-01
      E(130) = 1.13352D-01
      E(131) = 1.926778D+04
      E(132) = 4.560986D+03
      E(133) = 1.481436D+03
      E(134) = 5.668671D+02
      E(135) = 2.40491D+02
      E(136) = 1.096105D+02
      E(137) = 5.259491D+01
      E(138) = 2.608361D+01
      E(139) = 1.326143D+01
      E(140) = 6.799778D+00
      E(141) = 3.393414D+00
      E(142) = 1.648766D+00
      E(143) = 7.76282D-01
      E(144) = 2.97209D-01
      E(145) = 1.13352D-01
      E(146) = 1.926778D+04
      E(147) = 4.560986D+03
      E(148) = 1.481436D+03
      E(149) = 5.668671D+02
      E(150) = 2.40491D+02
      E(151) = 1.096105D+02
      E(152) = 5.259491D+01
      E(153) = 2.608361D+01
      E(154) = 1.326143D+01
      E(155) = 6.799778D+00
      E(156) = 3.393414D+00
      E(157) = 1.648766D+00
      E(158) = 7.76282D-01
      E(159) = 2.97209D-01
      E(160) = 1.13352D-01
      E(161) = 1.926778D+04
      E(162) = 4.560986D+03
      E(163) = 1.481436D+03
      E(164) = 5.668671D+02
      E(165) = 2.40491D+02
      E(166) = 1.096105D+02
      E(167) = 5.259491D+01
      E(168) = 2.608361D+01
      E(169) = 1.326143D+01
      E(170) = 6.799778D+00
      E(171) = 3.393414D+00
      E(172) = 1.648766D+00
      E(173) = 7.76282D-01
      E(174) = 2.97209D-01
      E(175) = 1.13352D-01
      E(176) = 1.926778D+04
      E(177) = 4.560986D+03
      E(178) = 1.481436D+03
      E(179) = 5.668671D+02
      E(180) = 2.40491D+02
      E(181) = 1.096105D+02
      E(182) = 5.259491D+01
      E(183) = 2.608361D+01
      E(184) = 1.326143D+01
      E(185) = 6.799778D+00
      E(186) = 3.393414D+00
      E(187) = 1.648766D+00
      E(188) = 7.76282D-01
      E(189) = 2.97209D-01
      E(190) = 1.13352D-01
      E(191) = 4.151D-02
      E(192) = 1.28392D+02
      E(193) = 3.78938D+01
      E(194) = 1.38798D+01
      E(195) = 5.62544D+00
      E(196) = 2.33539D+00
      E(197) = 9.35192D-01
      E(198) = 3.46953D-01
      E(199) = 1.28392D+02
      E(200) = 3.78938D+01
      E(201) = 1.38798D+01
      E(202) = 5.62544D+00
      E(203) = 2.33539D+00
      E(204) = 9.35192D-01
      E(205) = 3.46953D-01
      E(206) = 1.28392D+02
      E(207) = 3.78938D+01
      E(208) = 1.38798D+01
      E(209) = 5.62544D+00
      E(210) = 2.33539D+00
      E(211) = 9.35192D-01
      E(212) = 3.46953D-01
      E(213) = 1.11723D-01
      E(214) = 3.7724D+00
      E(215) = 9.17D-01
      E(216) = 2.4229D+00
      S(1) = 1.46D-04
      S(2) = 4.22D-04
      S(3) = 1.157D-03
      S(4) = 2.982D-03
      S(5) = 7.695D-03
      S(6) = 1.9953D-02
      S(7) = 5.0717D-02
      S(8) = 1.1823D-01
      S(9) = 2.29804D-01
      S(10) = 3.17283D-01
      S(11) = 2.32325D-01
      S(12) = 7.4863D-02
      S(13) = 9.4649D-02
      S(14) = 9.1625D-02
      S(15) = 1.466D-02
      S(16) = -4.14D-04
      S(17) = 5.0D-06
      S(18) = -2.8D-05
      S(19) = 2.9D-05
      S(20) = -7.7D-05
      S(21) = -2.22D-04
      S(22) = -6.1D-04
      S(23) = -1.576D-03
      S(24) = -4.085D-03
      S(25) = -1.0678D-02
      S(26) = -2.7613D-02
      S(27) = -6.6816D-02
      S(28) = -1.40979D-01
      S(29) = -2.32921D-01
      S(30) = -2.32046D-01
      S(31) = 4.6553D-02
      S(32) = 5.16965D-01
      S(33) = 4.8484D-01
      S(34) = 8.3289D-02
      S(35) = -5.811D-03
      S(36) = -5.4D-05
      S(37) = -4.68D-04
      S(38) = 3.89D-04
      S(39) = 1.8D-05
      S(40) = 5.2D-05
      S(41) = 1.42D-04
      S(42) = 3.67D-04
      S(43) = 9.54D-04
      S(44) = 2.512D-03
      S(45) = 6.564D-03
      S(46) = 1.6331D-02
      S(47) = 3.6186D-02
      S(48) = 6.6352D-02
      S(49) = 7.5343D-02
      S(50) = -2.6487D-02
      S(51) = -3.14805D-01
      S(52) = -4.46712D-01
      S(53) = 1.6012D-01
      S(54) = 7.21324D-01
      S(55) = 3.82357D-01
      S(56) = 1.8188D-02
      S(57) = -6.415D-03
      S(58) = -4.0D-06
      S(59) = -1.1D-05
      S(60) = -3.0D-05
      S(61) = -7.8D-05
      S(62) = -2.04D-04
      S(63) = -5.36D-04
      S(64) = -1.402D-03
      S(65) = -3.49D-03
      S(66) = -7.74D-03
      S(67) = -1.424D-02
      S(68) = -1.6227D-02
      S(69) = 5.692D-03
      S(70) = 7.1136D-02
      S(71) = 1.05421D-01
      S(72) = -4.6187D-02
      S(73) = -2.22002D-01
      S(74) = -2.28624D-01
      S(75) = 2.91332D-01
      S(76) = 5.63058D-01
      S(77) = -7.0D-06
      S(78) = -2.2D-05
      S(79) = -5.9D-05
      S(80) = -1.55D-04
      S(81) = -3.91D-04
      S(82) = -1.081D-03
      S(83) = -2.638D-03
      S(84) = -7.186D-03
      S(85) = -1.4141D-02
      S(86) = -3.0801D-02
      S(87) = -2.503D-02
      S(88) = -6.499D-03
      S(89) = 1.84831D-01
      S(90) = 1.46485D-01
      S(91) = 3.0255D-02
      S(92) = -9.42238D-01
      S(93) = 3.00635D-01
      S(94) = 1.741418D+00
      S(95) = -8.54978D-01
      S(96) = -1.3D-05
      S(97) = -3.9D-05
      S(98) = -1.06D-04
      S(99) = -2.79D-04
      S(100) = -7.01D-04
      S(101) = -1.942D-03
      S(102) = -4.723D-03
      S(103) = -1.294D-02
      S(104) = -2.5343D-02
      S(105) = -5.5819D-02
      S(106) = -4.4966D-02
      S(107) = -1.3306D-02
      S(108) = 3.49631D-01
      S(109) = 3.47865D-01
      S(110) = -2.72895D-01
      S(111) = -2.093243D+00
      S(112) = 2.571184D+00
      S(113) = -3.86954D-01
      S(114) = -1.589674D+00
      S(115) = 1.0D+00
      P(116) = 1.3D-04
      P(117) = 5.82D-04
      P(118) = 2.648D-03
      P(119) = 1.0381D-02
      P(120) = 3.4963D-02
      P(121) = 9.7229D-02
      P(122) = 2.11248D-01
      P(123) = 3.33852D-01
      P(124) = 3.29751D-01
      P(125) = 1.52294D-01
      P(126) = 2.0265D-02
      P(127) = -2.285D-03
      P(128) = -1.811D-03
      P(129) = -2.96D-04
      P(130) = 2.8D-05
      P(131) = -4.6D-05
      P(132) = -2.08D-04
      P(133) = -9.47D-04
      P(134) = -3.738D-03
      P(135) = -1.275D-02
      P(136) = -3.6447D-02
      P(137) = -8.2235D-02
      P(138) = -1.36999D-01
      P(139) = -1.37121D-01
      P(140) = 3.9321D-02
      P(141) = 3.41226D-01
      P(142) = 4.53634D-01
      P(143) = 2.76114D-01
      P(144) = 4.3665D-02
      P(145) = -3.07D-03
      P(146) = -1.0D-05
      P(147) = -4.6D-05
      P(148) = -2.09D-04
      P(149) = -8.25D-04
      P(150) = -2.817D-03
      P(151) = -8.068D-03
      P(152) = -1.8268D-02
      P(153) = -3.0586D-02
      P(154) = -3.0883D-02
      P(155) = 1.2303D-02
      P(156) = 9.0431D-02
      P(157) = 1.3082D-01
      P(158) = 6.9211D-02
      P(159) = -2.24882D-01
      P(160) = -5.69656D-01
      P(161) = 1.6D-05
      P(162) = 7.2D-05
      P(163) = 3.26D-04
      P(164) = 1.298D-03
      P(165) = 4.392D-03
      P(166) = 1.27D-02
      P(167) = 2.8424D-02
      P(168) = 4.8533D-02
      P(169) = 4.7752D-02
      P(170) = -1.6652D-02
      P(171) = -1.53667D-01
      P(172) = -2.05663D-01
      P(173) = -7.218D-02
      P(174) = 4.83141D-01
      P(175) = 5.99472D-01
      P(176) = 3.3D-05
      P(177) = 1.46D-04
      P(178) = 6.97D-04
      P(179) = 2.605D-03
      P(180) = 9.45D-03
      P(181) = 2.5356D-02
      P(182) = 6.2122D-02
      P(183) = 9.3938D-02
      P(184) = 1.25408D-01
      P(185) = -6.9256D-02
      P(186) = -4.14893D-01
      P(187) = -5.71306D-01
      P(188) = 9.05986D-01
      P(189) = 6.87131D-01
      P(190) = -8.90115D-01
      P(191) = 1.0D+00
      D(192) = 3.505D-03
      D(193) = 2.5583D-02
      D(194) = 9.9084D-02
      D(195) = 2.39139D-01
      D(196) = 3.56151D-01
      D(197) = 3.60414D-01
      D(198) = 2.39212D-01
      D(199) = -4.065D-03
      D(200) = -2.9729D-02
      D(201) = -1.18466D-01
      D(202) = -2.8972D-01
      D(203) = -3.20348D-01
      D(204) = 8.568D-02
      D(205) = 5.59123D-01
      D(206) = 5.472D-03
      D(207) = 4.0455D-02
      D(208) = 1.67281D-01
      D(209) = 4.07982D-01
      D(210) = 9.378D-02
      D(211) = -7.66277D-01
      D(212) = -8.306D-03
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.437022D+07
      E(2) = 2.15154D+06
      E(3) = 4.896257D+05
      E(4) = 1.386903D+05
      E(5) = 4.524989D+04
      E(6) = 1.633762D+04
      E(7) = 6.373073D+03
      E(8) = 2.643958D+03
      E(9) = 1.153614D+03
      E(10) = 5.248606D+02
      E(11) = 2.473069D+02
      E(12) = 1.199063D+02
      E(13) = 5.896429D+01
      E(14) = 2.713616D+01
      E(15) = 1.368912D+01
      E(16) = 6.882771D+00
      E(17) = 3.144647D+00
      E(18) = 1.506266D+00
      E(19) = 6.87268D-01
      E(20) = 1.60972D-01
      E(21) = 7.3017D-02
      E(22) = 1.437022D+07
      E(23) = 2.15154D+06
      E(24) = 4.896257D+05
      E(25) = 1.386903D+05
      E(26) = 4.524989D+04
      E(27) = 1.633762D+04
      E(28) = 6.373073D+03
      E(29) = 2.643958D+03
      E(30) = 1.153614D+03
      E(31) = 5.248606D+02
      E(32) = 2.473069D+02
      E(33) = 1.199063D+02
      E(34) = 5.896429D+01
      E(35) = 2.713616D+01
      E(36) = 1.368912D+01
      E(37) = 6.882771D+00
      E(38) = 3.144647D+00
      E(39) = 1.506266D+00
      E(40) = 6.87268D-01
      E(41) = 1.60972D-01
      E(42) = 7.3017D-02
      E(43) = 1.437022D+07
      E(44) = 2.15154D+06
      E(45) = 4.896257D+05
      E(46) = 1.386903D+05
      E(47) = 4.524989D+04
      E(48) = 1.633762D+04
      E(49) = 6.373073D+03
      E(50) = 2.643958D+03
      E(51) = 1.153614D+03
      E(52) = 5.248606D+02
      E(53) = 2.473069D+02
      E(54) = 1.199063D+02
      E(55) = 5.896429D+01
      E(56) = 2.713616D+01
      E(57) = 1.368912D+01
      E(58) = 6.882771D+00
      E(59) = 3.144647D+00
      E(60) = 1.506266D+00
      E(61) = 6.87268D-01
      E(62) = 1.60972D-01
      E(63) = 7.3017D-02
      E(64) = 1.437022D+07
      E(65) = 2.15154D+06
      E(66) = 4.896257D+05
      E(67) = 1.386903D+05
      E(68) = 4.524989D+04
      E(69) = 1.633762D+04
      E(70) = 6.373073D+03
      E(71) = 2.643958D+03
      E(72) = 1.153614D+03
      E(73) = 5.248606D+02
      E(74) = 2.473069D+02
      E(75) = 1.199063D+02
      E(76) = 5.896429D+01
      E(77) = 2.713616D+01
      E(78) = 1.368912D+01
      E(79) = 6.882771D+00
      E(80) = 3.144647D+00
      E(81) = 1.506266D+00
      E(82) = 6.87268D-01
      E(83) = 1.60972D-01
      E(84) = 7.3017D-02
      E(85) = 1.437022D+07
      E(86) = 2.15154D+06
      E(87) = 4.896257D+05
      E(88) = 1.386903D+05
      E(89) = 4.524989D+04
      E(90) = 1.633762D+04
      E(91) = 6.373073D+03
      E(92) = 2.643958D+03
      E(93) = 1.153614D+03
      E(94) = 5.248606D+02
      E(95) = 2.473069D+02
      E(96) = 1.199063D+02
      E(97) = 5.896429D+01
      E(98) = 2.713616D+01
      E(99) = 1.368912D+01
      E(100) = 6.882771D+00
      E(101) = 3.144647D+00
      E(102) = 1.506266D+00
      E(103) = 6.87268D-01
      E(104) = 1.60972D-01
      E(105) = 7.3017D-02
      E(106) = 1.437022D+07
      E(107) = 2.15154D+06
      E(108) = 4.896257D+05
      E(109) = 1.386903D+05
      E(110) = 4.524989D+04
      E(111) = 1.633762D+04
      E(112) = 6.373073D+03
      E(113) = 2.643958D+03
      E(114) = 1.153614D+03
      E(115) = 5.248606D+02
      E(116) = 2.473069D+02
      E(117) = 1.199063D+02
      E(118) = 5.896429D+01
      E(119) = 2.713616D+01
      E(120) = 1.368912D+01
      E(121) = 6.882771D+00
      E(122) = 3.144647D+00
      E(123) = 1.506266D+00
      E(124) = 6.87268D-01
      E(125) = 1.60972D-01
      E(126) = 7.3017D-02
      E(127) = 1.437022D+07
      E(128) = 2.15154D+06
      E(129) = 4.896257D+05
      E(130) = 1.386903D+05
      E(131) = 4.524989D+04
      E(132) = 1.633762D+04
      E(133) = 6.373073D+03
      E(134) = 2.643958D+03
      E(135) = 1.153614D+03
      E(136) = 5.248606D+02
      E(137) = 2.473069D+02
      E(138) = 1.199063D+02
      E(139) = 5.896429D+01
      E(140) = 2.713616D+01
      E(141) = 1.368912D+01
      E(142) = 6.882771D+00
      E(143) = 3.144647D+00
      E(144) = 1.506266D+00
      E(145) = 6.87268D-01
      E(146) = 1.60972D-01
      E(147) = 7.3017D-02
      E(148) = 3.2071D-02
      E(149) = 4.19614D+04
      E(150) = 9.928306D+03
      E(151) = 3.224971D+03
      E(152) = 1.235293D+03
      E(153) = 5.258469D+02
      E(154) = 2.409762D+02
      E(155) = 1.166418D+02
      E(156) = 5.884834D+01
      E(157) = 3.05291D+01
      E(158) = 1.616943D+01
      E(159) = 8.664236D+00
      E(160) = 4.591943D+00
      E(161) = 2.381048D+00
      E(162) = 1.206246D+00
      E(163) = 5.88822D-01
      E(164) = 2.24893D-01
      E(165) = 9.0448D-02
      E(166) = 4.19614D+04
      E(167) = 9.928306D+03
      E(168) = 3.224971D+03
      E(169) = 1.235293D+03
      E(170) = 5.258469D+02
      E(171) = 2.409762D+02
      E(172) = 1.166418D+02
      E(173) = 5.884834D+01
      E(174) = 3.05291D+01
      E(175) = 1.616943D+01
      E(176) = 8.664236D+00
      E(177) = 4.591943D+00
      E(178) = 2.381048D+00
      E(179) = 1.206246D+00
      E(180) = 5.88822D-01
      E(181) = 2.24893D-01
      E(182) = 9.0448D-02
      E(183) = 4.19614D+04
      E(184) = 9.928306D+03
      E(185) = 3.224971D+03
      E(186) = 1.235293D+03
      E(187) = 5.258469D+02
      E(188) = 2.409762D+02
      E(189) = 1.166418D+02
      E(190) = 5.884834D+01
      E(191) = 3.05291D+01
      E(192) = 1.616943D+01
      E(193) = 8.664236D+00
      E(194) = 4.591943D+00
      E(195) = 2.381048D+00
      E(196) = 1.206246D+00
      E(197) = 5.88822D-01
      E(198) = 2.24893D-01
      E(199) = 9.0448D-02
      E(200) = 4.19614D+04
      E(201) = 9.928306D+03
      E(202) = 3.224971D+03
      E(203) = 1.235293D+03
      E(204) = 5.258469D+02
      E(205) = 2.409762D+02
      E(206) = 1.166418D+02
      E(207) = 5.884834D+01
      E(208) = 3.05291D+01
      E(209) = 1.616943D+01
      E(210) = 8.664236D+00
      E(211) = 4.591943D+00
      E(212) = 2.381048D+00
      E(213) = 1.206246D+00
      E(214) = 5.88822D-01
      E(215) = 2.24893D-01
      E(216) = 9.0448D-02
      E(217) = 4.19614D+04
      E(218) = 9.928306D+03
      E(219) = 3.224971D+03
      E(220) = 1.235293D+03
      E(221) = 5.258469D+02
      E(222) = 2.409762D+02
      E(223) = 1.166418D+02
      E(224) = 5.884834D+01
      E(225) = 3.05291D+01
      E(226) = 1.616943D+01
      E(227) = 8.664236D+00
      E(228) = 4.591943D+00
      E(229) = 2.381048D+00
      E(230) = 1.206246D+00
      E(231) = 5.88822D-01
      E(232) = 2.24893D-01
      E(233) = 9.0448D-02
      E(234) = 4.19614D+04
      E(235) = 9.928306D+03
      E(236) = 3.224971D+03
      E(237) = 1.235293D+03
      E(238) = 5.258469D+02
      E(239) = 2.409762D+02
      E(240) = 1.166418D+02
      E(241) = 5.884834D+01
      E(242) = 3.05291D+01
      E(243) = 1.616943D+01
      E(244) = 8.664236D+00
      E(245) = 4.591943D+00
      E(246) = 2.381048D+00
      E(247) = 1.206246D+00
      E(248) = 5.88822D-01
      E(249) = 2.24893D-01
      E(250) = 9.0448D-02
      E(251) = 3.582D-02
      E(252) = 3.71566D+02
      E(253) = 1.10115D+02
      E(254) = 4.24255D+01
      E(255) = 1.83369D+01
      E(256) = 8.4573D+00
      E(257) = 4.04179D+00
      E(258) = 1.92603D+00
      E(259) = 8.94281D-01
      E(260) = 3.97988D-01
      E(261) = 1.665D-01
      E(262) = 3.71566D+02
      E(263) = 1.10115D+02
      E(264) = 4.24255D+01
      E(265) = 1.83369D+01
      E(266) = 8.4573D+00
      E(267) = 4.04179D+00
      E(268) = 1.92603D+00
      E(269) = 8.94281D-01
      E(270) = 3.97988D-01
      E(271) = 1.665D-01
      E(272) = 3.71566D+02
      E(273) = 1.10115D+02
      E(274) = 4.24255D+01
      E(275) = 1.83369D+01
      E(276) = 8.4573D+00
      E(277) = 4.04179D+00
      E(278) = 1.92603D+00
      E(279) = 8.94281D-01
      E(280) = 3.97988D-01
      E(281) = 1.665D-01
      E(282) = 3.71566D+02
      E(283) = 1.10115D+02
      E(284) = 4.24255D+01
      E(285) = 1.83369D+01
      E(286) = 8.4573D+00
      E(287) = 4.04179D+00
      E(288) = 1.92603D+00
      E(289) = 8.94281D-01
      E(290) = 3.97988D-01
      E(291) = 1.665D-01
      E(292) = 6.3025D-02
      E(293) = 5.941D+00
      E(294) = 1.785D+00
      E(295) = 5.363D-01
      E(296) = 4.387D+00
      E(297) = 1.251D+00
CSDJ  E(298) = 2.7485D+00
      S(1) = 6.3D-05
      S(2) = 1.78D-04
      S(3) = 4.68D-04
      S(4) = 1.13D-03
      S(5) = 2.683D-03
      S(6) = 6.374D-03
      S(7) = 1.5338D-02
      S(8) = 3.6656D-02
      S(9) = 8.3183D-02
      S(10) = 1.66855D-01
      S(11) = 2.67292D-01
      S(12) = 2.83374D-01
      S(13) = 1.51748D-01
      S(14) = 6.5249D-02
      S(15) = 1.00405D-01
      S(16) = 6.7231D-02
      S(17) = 8.126D-03
      S(18) = -2.61D-04
      S(19) = -3.9D-05
      S(20) = -8.0D-06
      S(21) = 1.4D-05
      S(22) = -3.3D-05
      S(23) = -9.4D-05
      S(24) = -2.46D-04
      S(25) = -5.96D-04
      S(26) = -1.418D-03
      S(27) = -3.382D-03
      S(28) = -8.185D-03
      S(29) = -1.9849D-02
      S(30) = -4.6191D-02
      S(31) = -9.8272D-02
      S(32) = -1.76304D-01
      S(33) = -2.37792D-01
      S(34) = -1.52386D-01
      S(35) = 2.03622D-01
      S(36) = 5.50168D-01
      S(37) = 3.57807D-01
      S(38) = 4.5766D-02
      S(39) = -3.89D-03
      S(40) = -4.84D-04
      S(41) = -2.01D-04
      S(42) = 1.79D-04
      S(43) = 8.0D-06
      S(44) = 2.2D-05
      S(45) = 5.7D-05
      S(46) = 1.39D-04
      S(47) = 3.3D-04
      S(48) = 7.91D-04
      S(49) = 1.92D-03
      S(50) = 4.714D-03
      S(51) = 1.1133D-02
      S(52) = 2.4699D-02
      S(53) = 4.7206D-02
      S(54) = 7.2295D-02
      S(55) = 5.0383D-02
      S(56) = -1.02393D-01
      S(57) = -3.80218D-01
      S(58) = -3.4544D-01
      S(59) = 3.02492D-01
      S(60) = 6.86059D-01
      S(61) = 3.08954D-01
      S(62) = 1.3206D-02
      S(63) = -3.117D-03
      S(64) = -2.0D-06
      S(65) = -5.0D-06
      S(66) = -1.2D-05
      S(67) = -3.0D-05
      S(68) = -7.0D-05
      S(69) = -1.69D-04
      S(70) = -4.1D-04
      S(71) = -1.007D-03
      S(72) = -2.376D-03
      S(73) = -5.286D-03
      S(74) = -1.009D-02
      S(75) = -1.5579D-02
      S(76) = -1.0795D-02
      S(77) = 2.2227D-02
      S(78) = 8.7657D-02
      S(79) = 8.0921D-02
      S(80) = -8.2761D-02
      S(81) = -2.24661D-01
      S(82) = -2.0158D-01
      S(83) = 3.01766D-01
      S(84) = 5.81093D-01
      S(85) = -3.0D-06
      S(86) = -9.0D-06
      S(87) = -2.4D-05
      S(88) = -5.9D-05
      S(89) = -1.38D-04
      S(90) = -3.43D-04
      S(91) = -7.88D-04
      S(92) = -2.085D-03
      S(93) = -4.467D-03
      S(94) = -1.1237D-02
      S(95) = -1.8185D-02
      S(96) = -3.5669D-02
      S(97) = -1.1932D-02
      S(98) = 2.1237D-02
      S(99) = 2.3483D-01
      S(100) = 8.4848D-02
      S(101) = -6.1564D-02
      S(102) = -9.63349D-01
      S(103) = 4.43546D-01
      S(104) = 1.599495D+00
      S(105) = -7.69526D-01
      S(106) = -6.0D-06
      S(107) = -1.6D-05
      S(108) = -4.2D-05
      S(109) = -1.02D-04
      S(110) = -2.39D-04
      S(111) = -5.91D-04
      S(112) = -1.367D-03
      S(113) = -3.583D-03
      S(114) = -7.782D-03
      S(115) = -1.9271D-02
      S(116) = -3.2014D-02
      S(117) = -6.0912D-02
      S(118) = -2.3615D-02
      S(119) = 4.3742D-02
      S(120) = 4.19575D-01
      S(121) = 2.45493D-01
      S(122) = -5.91348D-01
      S(123) = -1.772308D+00
      S(124) = 2.67902D+00
      S(125) = -7.27499D-01
      S(126) = -1.274708D+00
      S(127) = -6.0D-06
      S(128) = -1.8D-05
      S(129) = -4.7D-05
      S(130) = -1.11D-04
      S(131) = -2.8D-04
      S(132) = -6.05D-04
      S(133) = -1.714D-03
      S(134) = -3.376D-03
      S(135) = -1.0571D-02
      S(136) = -1.6194D-02
      S(137) = -5.0037D-02
      S(138) = -3.4947D-02
      S(139) = -9.9341D-02
      S(140) = 2.19456D-01
      S(141) = 1.78426D-01
      S(142) = 1.040195D+00
      S(143) = -3.301482D+00
      S(144) = 2.345495D+00
      S(145) = 5.43657D-01
      S(146) = -3.576126D+00
      S(147) = 4.942109D+00
      S(148) = 1.0D+00
      P(149) = 5.3D-05
      P(150) = 1.98D-04
      P(151) = 8.16D-04
      P(152) = 3.054D-03
      P(153) = 1.0544D-02
      P(154) = 3.1963D-02
      P(155) = 8.3275D-02
      P(156) = 1.76801D-01
      P(157) = 2.89252D-01
      P(158) = 3.29409D-01
      P(159) = 2.10303D-01
      P(160) = 5.5148D-02
      P(161) = 1.578D-03
      P(162) = -2.145D-03
      P(163) = -1.188D-03
      P(164) = -8.0D-05
      P(165) = -3.0D-06
      P(166) = -1.9D-05
      P(167) = -7.1D-05
      P(168) = -2.91D-04
      P(169) = -1.094D-03
      P(170) = -3.796D-03
      P(171) = -1.1667D-02
      P(172) = -3.1095D-02
      P(173) = -6.8473D-02
      P(174) = -1.16813D-01
      P(175) = -1.4034D-01
      P(176) = -4.5531D-02
      P(177) = 1.97989D-01
      P(178) = 4.05246D-01
      P(179) = 3.76618D-01
      P(180) = 1.6425D-01
      P(181) = 1.7326D-02
      P(182) = -1.159D-03
      P(183) = 4.0D-06
      P(184) = 1.6D-05
      P(185) = 6.4D-05
      P(186) = 2.4D-04
      P(187) = 8.41D-04
      P(188) = 2.564D-03
      P(189) = 6.914D-03
      P(190) = 1.5097D-02
      P(191) = 2.6256D-02
      P(192) = 3.1048D-02
      P(193) = 1.0064D-02
      P(194) = -5.4602D-02
      P(195) = -1.06346D-01
      P(196) = -1.21055D-01
      P(197) = 6.313D-03
      P(198) = 3.28322D-01
      P(199) = 5.40438D-01
      P(200) = 7.0D-06
      P(201) = 2.5D-05
      P(202) = 1.03D-04
      P(203) = 3.8D-04
      P(204) = 1.341D-03
      P(205) = 4.053D-03
      P(206) = 1.1033D-02
      P(207) = 2.3822D-02
      P(208) = 4.2132D-02
      P(209) = 4.8926D-02
      P(210) = 1.8237D-02
      P(211) = -9.2779D-02
      P(212) = -1.74291D-01
      P(213) = -1.94958D-01
      P(214) = 8.6644D-02
      P(215) = 6.19607D-01
      P(216) = 4.15517D-01
      P(217) = 1.4D-05
      P(218) = 4.9D-05
      P(219) = 2.17D-04
      P(220) = 7.53D-04
      P(221) = 2.852D-03
      P(222) = 8.0D-03
      P(223) = 2.3641D-02
      P(224) = 4.6459D-02
      P(225) = 9.3084D-02
      P(226) = 9.2113D-02
      P(227) = 7.7422D-02
      P(228) = -3.21427D-01
      P(229) = -4.38649D-01
      P(230) = -2.19106D-01
      P(231) = 1.179445D+00
      P(232) = 1.32439D-01
      P(233) = -8.10921D-01
      P(234) = 1.8D-05
      P(235) = 6.8D-05
      P(236) = 2.72D-04
      P(237) = 1.065D-03
      P(238) = 3.543D-03
      P(239) = 1.1431D-02
      P(240) = 2.9116D-02
      P(241) = 6.8105D-02
      P(242) = 1.08244D-01
      P(243) = 1.7097D-01
      P(244) = 1.03832D-01
      P(245) = -7.47739D-01
      P(246) = -8.09278D-01
      P(247) = 1.837364D+00
      P(248) = -1.40661D-01
      P(249) = -1.439892D+00
      P(250) = 1.04983D+00
      P(251) = 1.0D+00
      D(252) = 3.98D-04
      D(253) = 3.481D-03
      D(254) = 1.7362D-02
      D(255) = 5.7682D-02
      D(256) = 1.41811D-01
      D(257) = 2.45656D-01
      D(258) = 3.07502D-01
      D(259) = 2.95595D-01
      D(260) = 2.12167D-01
      D(261) = 9.2896D-02
      D(262) = -4.6D-04
      D(263) = -4.061D-03
      D(264) = -2.0258D-02
      D(265) = -6.8582D-02
      D(266) = -1.73463D-01
      D(267) = -2.85872D-01
      D(268) = -2.28842D-01
      D(269) = 1.00024D-01
      D(270) = 4.21328D-01
      D(271) = 4.05468D-01
      D(272) = -6.11D-04
      D(273) = -5.416D-03
      D(274) = -2.7235D-02
      D(275) = -9.4208D-02
      D(276) = -2.49596D-01
      D(277) = -3.44074D-01
      D(278) = 8.3032D-02
      D(279) = 6.51098D-01
      D(280) = 1.77803D-01
      D(281) = -6.15582D-01
      D(282) = -9.19D-04
      D(283) = -7.597D-03
      D(284) = -4.1011D-02
      D(285) = -1.37999D-01
      D(286) = -4.39274D-01
      D(287) = -2.34536D-01
      D(288) = 9.73679D-01
      D(289) = 7.504D-02
      D(290) = -1.030668D+00
      D(291) = 4.4349D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CO'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     ----- NI -----
C
  128 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 5.045991D+06
      E(2) = 7.556142D+05
      E(3) = 1.719568D+05
      E(4) = 4.870479D+04
      E(5) = 1.588841D+04
      E(6) = 5.735123D+03
      E(7) = 2.236137D+03
      E(8) = 9.266468D+02
      E(9) = 4.031743D+02
      E(10) = 1.823476D+02
      E(11) = 8.454885D+01
      E(12) = 3.839634D+01
      E(13) = 1.845859D+01
      E(14) = 8.863548D+00
      E(15) = 3.916227D+00
      E(16) = 1.83887D+00
      E(17) = 8.04362D-01
      E(18) = 1.69797D-01
      E(19) = 7.9306D-02
      E(20) = 5.045991D+06
      E(21) = 7.556142D+05
      E(22) = 1.719568D+05
      E(23) = 4.870479D+04
      E(24) = 1.588841D+04
      E(25) = 5.735123D+03
      E(26) = 2.236137D+03
      E(27) = 9.266468D+02
      E(28) = 4.031743D+02
      E(29) = 1.823476D+02
      E(30) = 8.454885D+01
      E(31) = 3.839634D+01
      E(32) = 1.845859D+01
      E(33) = 8.863548D+00
      E(34) = 3.916227D+00
      E(35) = 1.83887D+00
      E(36) = 8.04362D-01
      E(37) = 1.69797D-01
      E(38) = 7.9306D-02
      E(39) = 5.045991D+06
      E(40) = 7.556142D+05
      E(41) = 1.719568D+05
      E(42) = 4.870479D+04
      E(43) = 1.588841D+04
      E(44) = 5.735123D+03
      E(45) = 2.236137D+03
      E(46) = 9.266468D+02
      E(47) = 4.031743D+02
      E(48) = 1.823476D+02
      E(49) = 8.454885D+01
      E(50) = 3.839634D+01
      E(51) = 1.845859D+01
      E(52) = 8.863548D+00
      E(53) = 3.916227D+00
      E(54) = 1.83887D+00
      E(55) = 8.04362D-01
      E(56) = 1.69797D-01
      E(57) = 7.9306D-02
      E(58) = 5.045991D+06
      E(59) = 7.556142D+05
      E(60) = 1.719568D+05
      E(61) = 4.870479D+04
      E(62) = 1.588841D+04
      E(63) = 5.735123D+03
      E(64) = 2.236137D+03
      E(65) = 9.266468D+02
      E(66) = 4.031743D+02
      E(67) = 1.823476D+02
      E(68) = 8.454885D+01
      E(69) = 3.839634D+01
      E(70) = 1.845859D+01
      E(71) = 8.863548D+00
      E(72) = 3.916227D+00
      E(73) = 1.83887D+00
      E(74) = 8.04362D-01
      E(75) = 1.69797D-01
      E(76) = 7.9306D-02
      E(77) = 5.045991D+06
      E(78) = 7.556142D+05
      E(79) = 1.719568D+05
      E(80) = 4.870479D+04
      E(81) = 1.588841D+04
      E(82) = 5.735123D+03
      E(83) = 2.236137D+03
      E(84) = 9.266468D+02
      E(85) = 4.031743D+02
      E(86) = 1.823476D+02
      E(87) = 8.454885D+01
      E(88) = 3.839634D+01
      E(89) = 1.845859D+01
      E(90) = 8.863548D+00
      E(91) = 3.916227D+00
      E(92) = 1.83887D+00
      E(93) = 8.04362D-01
      E(94) = 1.69797D-01
      E(95) = 7.9306D-02
      E(96) = 5.045991D+06
      E(97) = 7.556142D+05
      E(98) = 1.719568D+05
      E(99) = 4.870479D+04
      E(100) = 1.588841D+04
      E(101) = 5.735123D+03
      E(102) = 2.236137D+03
      E(103) = 9.266468D+02
      E(104) = 4.031743D+02
      E(105) = 1.823476D+02
      E(106) = 8.454885D+01
      E(107) = 3.839634D+01
      E(108) = 1.845859D+01
      E(109) = 8.863548D+00
      E(110) = 3.916227D+00
      E(111) = 1.83887D+00
      E(112) = 8.04362D-01
      E(113) = 1.69797D-01
      E(114) = 7.9306D-02
      E(115) = 3.4677D-02
      E(116) = 2.102792D+04
      E(117) = 4.97756D+03
      E(118) = 1.61674D+03
      E(119) = 6.186718D+02
      E(120) = 2.625183D+02
      E(121) = 1.196907D+02
      E(122) = 5.746585D+01
      E(123) = 2.852829D+01
      E(124) = 1.452148D+01
      E(125) = 7.45385D+00
      E(126) = 3.723553D+00
      E(127) = 1.809813D+00
      E(128) = 8.51336D-01
      E(129) = 3.234058D-01
      E(130) = 1.19021D-01
      E(131) = 2.102792D+04
      E(132) = 4.97756D+03
      E(133) = 1.61674D+03
      E(134) = 6.186718D+02
      E(135) = 2.625183D+02
      E(136) = 1.196907D+02
      E(137) = 5.746585D+01
      E(138) = 2.852829D+01
      E(139) = 1.452148D+01
      E(140) = 7.45385D+00
      E(141) = 3.723553D+00
      E(142) = 1.809813D+00
      E(143) = 8.51336D-01
      E(144) = 3.234058D-01
      E(145) = 1.19021D-01
      E(146) = 2.102792D+04
      E(147) = 4.97756D+03
      E(148) = 1.61674D+03
      E(149) = 6.186718D+02
      E(150) = 2.625183D+02
      E(151) = 1.196907D+02
      E(152) = 5.746585D+01
      E(153) = 2.852829D+01
      E(154) = 1.452148D+01
      E(155) = 7.45385D+00
      E(156) = 3.723553D+00
      E(157) = 1.809813D+00
      E(158) = 8.51336D-01
      E(159) = 3.234058D-01
      E(160) = 1.19021D-01
      E(161) = 2.102792D+04
      E(162) = 4.97756D+03
      E(163) = 1.61674D+03
      E(164) = 6.186718D+02
      E(165) = 2.625183D+02
      E(166) = 1.196907D+02
      E(167) = 5.746585D+01
      E(168) = 2.852829D+01
      E(169) = 1.452148D+01
      E(170) = 7.45385D+00
      E(171) = 3.723553D+00
      E(172) = 1.809813D+00
      E(173) = 8.51336D-01
      E(174) = 3.234058D-01
      E(175) = 1.19021D-01
      E(176) = 2.102792D+04
      E(177) = 4.97756D+03
      E(178) = 1.61674D+03
      E(179) = 6.186718D+02
      E(180) = 2.625183D+02
      E(181) = 1.196907D+02
      E(182) = 5.746585D+01
      E(183) = 2.852829D+01
      E(184) = 1.452148D+01
      E(185) = 7.45385D+00
      E(186) = 3.723553D+00
      E(187) = 1.809813D+00
      E(188) = 8.51336D-01
      E(189) = 3.234058D-01
      E(190) = 1.19021D-01
      E(191) = 4.2162D-02
      E(192) = 1.425904D+02
      E(193) = 4.210219D+01
      E(194) = 1.546337D+01
      E(195) = 6.28381D+00
      E(196) = 2.61417D+00
      E(197) = 1.04802D+00
      E(198) = 3.88652D-01
      E(199) = 1.425904D+02
      E(200) = 4.210219D+01
      E(201) = 1.546337D+01
      E(202) = 6.28381D+00
      E(203) = 2.61417D+00
      E(204) = 1.04802D+00
      E(205) = 3.88652D-01
      E(206) = 1.425904D+02
      E(207) = 4.210219D+01
      E(208) = 1.546337D+01
      E(209) = 6.28381D+00
      E(210) = 2.61417D+00
      E(211) = 1.04802D+00
      E(212) = 3.88652D-01
      E(213) = 1.24664D-01
      E(214) = 4.3455D+00
      E(215) = 1.068D+00
      E(216) = 2.9284D+00
      S(1) = 1.57D-04
      S(2) = 4.53D-04
      S(3) = 1.237D-03
      S(4) = 3.165D-03
      S(5) = 8.095D-03
      S(6) = 2.0804D-02
      S(7) = 5.2534D-02
      S(8) = 1.22129D-01
      S(9) = 2.37639D-01
      S(10) = 3.30312D-01
      S(11) = 2.45914D-01
      S(12) = 7.2276D-02
      S(13) = 6.3512D-02
      S(14) = 6.1884D-02
      S(15) = 9.4D-03
      S(16) = -2.19D-04
      S(17) = -7.9D-05
      S(18) = -5.0D-06
      S(19) = 3.0D-06
      S(20) = -7.1D-05
      S(21) = -2.06D-04
      S(22) = -5.62D-04
      S(23) = -1.442D-03
      S(24) = -3.706D-03
      S(25) = -9.611D-03
      S(26) = -2.4736D-02
      S(27) = -5.9903D-02
      S(28) = -1.27386D-01
      S(29) = -2.14181D-01
      S(30) = -2.18324D-01
      S(31) = 5.2598D-02
      S(32) = 5.24932D-01
      S(33) = 4.88007D-01
      S(34) = 8.2484D-02
      S(35) = -6.795D-03
      S(36) = -6.43D-04
      S(37) = -4.92D-04
      S(38) = 3.54D-04
      S(39) = 1.9D-05
      S(40) = 5.4D-05
      S(41) = 1.48D-04
      S(42) = 3.81D-04
      S(43) = 9.81D-04
      S(44) = 2.559D-03
      S(45) = 6.641D-03
      S(46) = 1.646D-02
      S(47) = 3.6419D-02
      S(48) = 6.6732D-02
      S(49) = 7.5739D-02
      S(50) = -2.751D-02
      S(51) = -3.19046D-01
      S(52) = -4.44919D-01
      S(53) = 1.72422D-01
      S(54) = 7.15572D-01
      S(55) = 3.79172D-01
      S(56) = 1.9936D-02
      S(57) = -7.476D-03
      S(58) = -4.0D-06
      S(59) = -1.1D-05
      S(60) = -3.1D-05
      S(61) = -8.1D-05
      S(62) = -2.08D-04
      S(63) = -5.43D-04
      S(64) = -1.408D-03
      S(65) = -3.493D-03
      S(66) = -7.733D-03
      S(67) = -1.4223D-02
      S(68) = -1.6181D-02
      S(69) = 5.841D-03
      S(70) = 7.1579D-02
      S(71) = 1.03737D-01
      S(72) = -4.8315D-02
      S(73) = -2.19304D-01
      S(74) = -2.20817D-01
      S(75) = 2.8697D-01
      S(76) = 5.5998D-01
      S(77) = -8.0D-06
      S(78) = -2.3D-05
      S(79) = -6.2D-05
      S(80) = -1.63D-04
      S(81) = -4.08D-04
      S(82) = -1.112D-03
      S(83) = -2.709D-03
      S(84) = -7.309D-03
      S(85) = -1.4465D-02
      S(86) = -3.1182D-02
      S(87) = -2.5835D-02
      S(88) = -5.347D-03
      S(89) = 1.86015D-01
      S(90) = 1.54658D-01
      S(91) = 1.1497D-02
      S(92) = -9.44566D-01
      S(93) = 3.3431D-01
      S(94) = 1.641871D+00
      S(95) = -7.39998D-01
      S(96) = -1.4D-05
      S(97) = -4.1D-05
      S(98) = -1.12D-04
      S(99) = -2.93D-04
      S(100) = -7.34D-04
      S(101) = -1.996D-03
      S(102) = -4.885D-03
      S(103) = -1.3108D-02
      S(104) = -2.6222D-02
      S(105) = -5.5952D-02
      S(106) = -4.8098D-02
      S(107) = -7.457D-03
      S(108) = 3.40392D-01
      S(109) = 3.96756D-01
      S(110) = -3.81492D-01
      S(111) = -1.99138D+00
      S(112) = 2.535279D+00
      S(113) = -4.3258D-01
      S(114) = -1.486952D+00
      S(115) = 1.0D+00
      P(116) = 1.35D-04
      P(117) = 5.92D-04
      P(118) = 2.656D-03
      P(119) = 1.0337D-02
      P(120) = 3.4752D-02
      P(121) = 9.6704D-02
      P(122) = 2.10659D-01
      P(123) = 3.33828D-01
      P(124) = 3.3022D-01
      P(125) = 1.52801D-01
      P(126) = 2.0149D-02
      P(127) = -2.709D-03
      P(128) = -2.11D-03
      P(129) = -3.52D-04
      P(130) = 3.6D-05
      P(131) = -4.8D-05
      P(132) = -2.12D-04
      P(133) = -9.52D-04
      P(134) = -3.733D-03
      P(135) = -1.2707D-02
      P(136) = -3.6371D-02
      P(137) = -8.2282D-02
      P(138) = -1.37649D-01
      P(139) = -1.37166D-01
      P(140) = 4.0287D-02
      P(141) = 3.42212D-01
      P(142) = 4.49657D-01
      P(143) = 2.7777D-01
      P(144) = 4.6415D-02
      P(145) = -2.949D-03
      P(146) = 1.0D-05
      P(147) = 4.3D-05
      P(148) = 1.93D-04
      P(149) = 7.6D-04
      P(150) = 2.582D-03
      P(151) = 7.428D-03
      P(152) = 1.6798D-02
      P(153) = 2.8395D-02
      P(154) = 2.8162D-02
      P(155) = -1.1146D-02
      P(156) = -8.3349D-02
      P(157) = -1.16088D-01
      P(158) = -7.006D-02
      P(159) = 1.99503D-01
      P(160) = 5.6601D-01
      P(161) = 2.0D-05
      P(162) = 8.8D-05
      P(163) = 3.95D-04
      P(164) = 1.556D-03
      P(165) = 5.282D-03
      P(166) = 1.5213D-02
      P(167) = 3.4373D-02
      P(168) = 5.8434D-02
      P(169) = 5.8969D-02
      P(170) = -2.2937D-02
      P(171) = -1.97884D-01
      P(172) = -2.47325D-01
      P(173) = 9.569D-03
      P(174) = 5.45003D-01
      P(175) = 5.23518D-01
      P(176) = 3.6D-05
      P(177) = 1.55D-04
      P(178) = 7.28D-04
      P(179) = 2.725D-03
      P(180) = 9.781D-03
      P(181) = 2.6547D-02
      P(182) = 6.4444D-02
      P(183) = 9.9471D-02
      P(184) = 1.30208D-01
      P(185) = -7.0707D-02
      P(186) = -4.81943D-01
      P(187) = -5.05647D-01
      P(188) = 1.001649D+00
      P(189) = 4.88776D-01
      P(190) = -8.79302D-01
      P(191) = 1.0D+00
      D(192) = 3.389D-03
      D(193) = 2.4928D-02
      D(194) = 9.7056D-02
      D(195) = 2.33812D-01
      D(196) = 3.46658D-01
      D(197) = 3.51799D-01
      D(198) = 2.52185D-01
      D(199) = -3.527D-03
      D(200) = -2.5947D-02
      D(201) = -1.0366D-01
      D(202) = -2.52387D-01
      D(203) = -2.96727D-01
      D(204) = -5.79D-04
      D(205) = 4.40389D-01
      D(206) = 5.076D-03
      D(207) = 3.7857D-02
      D(208) = 1.54962D-01
      D(209) = 3.85253D-01
      D(210) = 1.7756D-01
      D(211) = -6.2599D-01
      D(212) = -3.41851D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.550302D+07
      E(2) = 2.321071D+06
      E(3) = 5.281802D+05
      E(4) = 1.49604D+05
      E(5) = 4.880907D+04
      E(6) = 1.762239D+04
      E(7) = 6.874201D+03
      E(8) = 2.851857D+03
      E(9) = 1.244334D+03
      E(10) = 5.661547D+02
      E(11) = 2.667873D+02
      E(12) = 1.293752D+02
      E(13) = 6.365161D+01
      E(14) = 2.933302D+01
      E(15) = 1.482212D+01
      E(16) = 7.460513D+00
      E(17) = 3.413576D+00
      E(18) = 1.632884D+00
      E(19) = 7.43579D-01
      E(20) = 1.550302D+07
      E(21) = 2.321071D+06
      E(22) = 5.281802D+05
      E(23) = 1.49604D+05
      E(24) = 4.880907D+04
      E(25) = 1.762239D+04
      E(26) = 6.874201D+03
      E(27) = 2.851857D+03
      E(28) = 1.244334D+03
      E(29) = 5.661547D+02
      E(30) = 2.667873D+02
      E(31) = 1.293752D+02
      E(32) = 6.365161D+01
      E(33) = 2.933302D+01
      E(34) = 1.482212D+01
      E(35) = 7.460513D+00
      E(36) = 3.413576D+00
      E(37) = 1.632884D+00
      E(38) = 7.43579D-01
      E(39) = 1.72592D-01
      E(40) = 7.742D-02
      E(41) = 1.550302D+07
      E(42) = 2.321071D+06
      E(43) = 5.281802D+05
      E(44) = 1.49604D+05
      E(45) = 4.880907D+04
      E(46) = 1.762239D+04
      E(47) = 6.874201D+03
      E(48) = 2.851857D+03
      E(49) = 1.244334D+03
      E(50) = 5.661547D+02
      E(51) = 2.667873D+02
      E(52) = 1.293752D+02
      E(53) = 6.365161D+01
      E(54) = 2.933302D+01
      E(55) = 1.482212D+01
      E(56) = 7.460513D+00
      E(57) = 3.413576D+00
      E(58) = 1.632884D+00
      E(59) = 7.43579D-01
      E(60) = 1.72592D-01
      E(61) = 7.742D-02
      E(62) = 1.550302D+07
      E(63) = 2.321071D+06
      E(64) = 5.281802D+05
      E(65) = 1.49604D+05
      E(66) = 4.880907D+04
      E(67) = 1.762239D+04
      E(68) = 6.874201D+03
      E(69) = 2.851857D+03
      E(70) = 1.244334D+03
      E(71) = 5.661547D+02
      E(72) = 2.667873D+02
      E(73) = 1.293752D+02
      E(74) = 6.365161D+01
      E(75) = 2.933302D+01
      E(76) = 1.482212D+01
      E(77) = 7.460513D+00
      E(78) = 3.413576D+00
      E(79) = 1.632884D+00
      E(80) = 7.43579D-01
      E(81) = 1.72592D-01
      E(82) = 7.742D-02
      E(83) = 1.550302D+07
      E(84) = 2.321071D+06
      E(85) = 5.281802D+05
      E(86) = 1.49604D+05
      E(87) = 4.880907D+04
      E(88) = 1.762239D+04
      E(89) = 6.874201D+03
      E(90) = 2.851857D+03
      E(91) = 1.244334D+03
      E(92) = 5.661547D+02
      E(93) = 2.667873D+02
      E(94) = 1.293752D+02
      E(95) = 6.365161D+01
      E(96) = 2.933302D+01
      E(97) = 1.482212D+01
      E(98) = 7.460513D+00
      E(99) = 3.413576D+00
      E(100) = 1.632884D+00
      E(101) = 7.43579D-01
      E(102) = 1.72592D-01
      E(103) = 7.742D-02
      E(104) = 1.550302D+07
      E(105) = 2.321071D+06
      E(106) = 5.281802D+05
      E(107) = 1.49604D+05
      E(108) = 4.880907D+04
      E(109) = 1.762239D+04
      E(110) = 6.874201D+03
      E(111) = 2.851857D+03
      E(112) = 1.244334D+03
      E(113) = 5.661547D+02
      E(114) = 2.667873D+02
      E(115) = 1.293752D+02
      E(116) = 6.365161D+01
      E(117) = 2.933302D+01
      E(118) = 1.482212D+01
      E(119) = 7.460513D+00
      E(120) = 3.413576D+00
      E(121) = 1.632884D+00
      E(122) = 7.43579D-01
      E(123) = 1.72592D-01
      E(124) = 7.742D-02
      E(125) = 1.550302D+07
      E(126) = 2.321071D+06
      E(127) = 5.281802D+05
      E(128) = 1.49604D+05
      E(129) = 4.880907D+04
      E(130) = 1.762239D+04
      E(131) = 6.874201D+03
      E(132) = 2.851857D+03
      E(133) = 1.244334D+03
      E(134) = 5.661547D+02
      E(135) = 2.667873D+02
      E(136) = 1.293752D+02
      E(137) = 6.365161D+01
      E(138) = 2.933302D+01
      E(139) = 1.482212D+01
      E(140) = 7.460513D+00
      E(141) = 3.413576D+00
      E(142) = 1.632884D+00
      E(143) = 7.43579D-01
      E(144) = 1.72592D-01
      E(145) = 7.742D-02
      E(146) = 3.3701D-02
      E(147) = 4.506662D+04
      E(148) = 1.066264D+04
      E(149) = 3.463431D+03
      E(150) = 1.326624D+03
      E(151) = 5.647414D+02
      E(152) = 2.588288D+02
      E(153) = 1.253115D+02
      E(154) = 6.324233D+01
      E(155) = 3.282406D+01
      E(156) = 1.739692D+01
      E(157) = 9.324394D+00
      E(158) = 4.938839D+00
      E(159) = 2.562025D+00
      E(160) = 1.299294D+00
      E(161) = 6.34678D-01
      E(162) = 2.325994D-01
      E(163) = 9.1523D-02
      E(164) = 4.506662D+04
      E(165) = 1.066264D+04
      E(166) = 3.463431D+03
      E(167) = 1.326624D+03
      E(168) = 5.647414D+02
      E(169) = 2.588288D+02
      E(170) = 1.253115D+02
      E(171) = 6.324233D+01
      E(172) = 3.282406D+01
      E(173) = 1.739692D+01
      E(174) = 9.324394D+00
      E(175) = 4.938839D+00
      E(176) = 2.562025D+00
      E(177) = 1.299294D+00
      E(178) = 6.34678D-01
      E(179) = 2.325994D-01
      E(180) = 9.1523D-02
      E(181) = 4.506662D+04
      E(182) = 1.066264D+04
      E(183) = 3.463431D+03
      E(184) = 1.326624D+03
      E(185) = 5.647414D+02
      E(186) = 2.588288D+02
      E(187) = 1.253115D+02
      E(188) = 6.324233D+01
      E(189) = 3.282406D+01
      E(190) = 1.739692D+01
      E(191) = 9.324394D+00
      E(192) = 4.938839D+00
      E(193) = 2.562025D+00
      E(194) = 1.299294D+00
      E(195) = 6.34678D-01
      E(196) = 2.325994D-01
      E(197) = 9.1523D-02
      E(198) = 4.506662D+04
      E(199) = 1.066264D+04
      E(200) = 3.463431D+03
      E(201) = 1.326624D+03
      E(202) = 5.647414D+02
      E(203) = 2.588288D+02
      E(204) = 1.253115D+02
      E(205) = 6.324233D+01
      E(206) = 3.282406D+01
      E(207) = 1.739692D+01
      E(208) = 9.324394D+00
      E(209) = 4.938839D+00
      E(210) = 2.562025D+00
      E(211) = 1.299294D+00
      E(212) = 6.34678D-01
      E(213) = 2.325994D-01
      E(214) = 9.1523D-02
      E(215) = 4.506662D+04
      E(216) = 1.066264D+04
      E(217) = 3.463431D+03
      E(218) = 1.326624D+03
      E(219) = 5.647414D+02
      E(220) = 2.588288D+02
      E(221) = 1.253115D+02
      E(222) = 6.324233D+01
      E(223) = 3.282406D+01
      E(224) = 1.739692D+01
      E(225) = 9.324394D+00
      E(226) = 4.938839D+00
      E(227) = 2.562025D+00
      E(228) = 1.299294D+00
      E(229) = 6.34678D-01
      E(230) = 2.325994D-01
      E(231) = 9.1523D-02
      E(232) = 4.506662D+04
      E(233) = 1.066264D+04
      E(234) = 3.463431D+03
      E(235) = 1.326624D+03
      E(236) = 5.647414D+02
      E(237) = 2.588288D+02
      E(238) = 1.253115D+02
      E(239) = 6.324233D+01
      E(240) = 3.282406D+01
      E(241) = 1.739692D+01
      E(242) = 9.324394D+00
      E(243) = 4.938839D+00
      E(244) = 2.562025D+00
      E(245) = 1.299294D+00
      E(246) = 6.34678D-01
      E(247) = 2.325994D-01
      E(248) = 9.1523D-02
      E(249) = 3.5574D-02
      E(250) = 4.3227419D+02
      E(251) = 1.2745703D+02
      E(252) = 4.8830964D+01
      E(253) = 2.1016747D+01
      E(254) = 9.6571026D+00
      E(255) = 4.6030529D+00
      E(256) = 2.1892443D+00
      E(257) = 1.0143931D+00
      E(258) = 4.5035253D-01
      E(259) = 1.8765306D-01
      E(260) = 4.3227419D+02
      E(261) = 1.2745703D+02
      E(262) = 4.8830964D+01
      E(263) = 2.1016747D+01
      E(264) = 9.6571026D+00
      E(265) = 4.6030529D+00
      E(266) = 2.1892443D+00
      E(267) = 1.0143931D+00
      E(268) = 4.5035253D-01
      E(269) = 1.8765306D-01
      E(270) = 4.3227419D+02
      E(271) = 1.2745703D+02
      E(272) = 4.8830964D+01
      E(273) = 2.1016747D+01
      E(274) = 9.6571026D+00
      E(275) = 4.6030529D+00
      E(276) = 2.1892443D+00
      E(277) = 1.0143931D+00
      E(278) = 4.5035253D-01
      E(279) = 1.8765306D-01
      E(280) = 4.3227419D+02
      E(281) = 1.2745703D+02
      E(282) = 4.8830964D+01
      E(283) = 2.1016747D+01
      E(284) = 9.6571026D+00
      E(285) = 4.6030529D+00
      E(286) = 2.1892443D+00
      E(287) = 1.0143931D+00
      E(288) = 4.5035253D-01
      E(289) = 1.8765306D-01
      E(290) = 7.047793D-02
      E(291) = 6.8303D+00
      E(292) = 2.0748D+00
      E(293) = 6.302D-01
      E(294) = 5.3315D+00
      E(295) = 1.5215D+00
CSDJ  E(296) = 3.1948D+00
      S(1) = 6.8D-05
      S(2) = 1.92D-04
      S(3) = 5.03D-04
      S(4) = 1.208D-03
      S(5) = 2.849D-03
      S(6) = 6.715D-03
      S(7) = 1.6026D-02
      S(8) = 3.8045D-02
      S(9) = 8.6016D-02
      S(10) = 1.72473D-01
      S(11) = 2.77147D-01
      S(12) = 2.96878D-01
      S(13) = 1.60722D-01
      S(14) = 5.3209D-02
      S(15) = 6.7078D-02
      S(16) = 4.5104D-02
      S(17) = 5.163D-03
      S(18) = -1.68D-04
      S(19) = -8.1D-05
      S(20) = -3.1D-05
      S(21) = -8.7D-05
      S(22) = -2.28D-04
      S(23) = -5.49D-04
      S(24) = -1.297D-03
      S(25) = -3.072D-03
      S(26) = -7.379D-03
      S(27) = -1.7805D-02
      S(28) = -4.1384D-02
      S(29) = -8.8477D-02
      S(30) = -1.60533D-01
      S(31) = -2.21145D-01
      S(32) = -1.4293D-01
      S(33) = 2.10509D-01
      S(34) = 5.57178D-01
      S(35) = 3.58747D-01
      S(36) = 4.4805D-02
      S(37) = -4.771D-03
      S(38) = -9.71D-04
      S(39) = -2.25D-04
      S(40) = 1.45D-04
      S(41) = 8.0D-06
      S(42) = 2.3D-05
      S(43) = 6.0D-05
      S(44) = 1.45D-04
      S(45) = 3.43D-04
      S(46) = 8.14D-04
      S(47) = 1.96D-03
      S(48) = 4.779D-03
      S(49) = 1.1241D-02
      S(50) = 2.488D-02
      S(51) = 4.7522D-02
      S(52) = 7.2708D-02
      S(53) = 5.0487D-02
      S(54) = -1.0491D-01
      S(55) = -3.84158D-01
      S(56) = -3.4051D-01
      S(57) = 3.12869D-01
      S(58) = 6.78789D-01
      S(59) = 3.07419D-01
      S(60) = 1.4665D-02
      S(61) = -3.954D-03
      S(62) = -2.0D-06
      S(63) = -5.0D-06
      S(64) = -1.3D-05
      S(65) = -3.1D-05
      S(66) = -7.3D-05
      S(67) = -1.73D-04
      S(68) = -4.15D-04
      S(69) = -1.013D-03
      S(70) = -2.381D-03
      S(71) = -5.286D-03
      S(72) = -1.0082D-02
      S(73) = -1.5555D-02
      S(74) = -1.0728D-02
      S(75) = 2.2587D-02
      S(76) = 8.7823D-02
      S(77) = 7.875D-02
      S(78) = -8.4131D-02
      S(79) = -2.21235D-01
      S(80) = -1.9437D-01
      S(81) = 2.95815D-01
      S(82) = 5.76885D-01
      S(83) = -4.0D-06
      S(84) = -1.0D-05
      S(85) = -2.6D-05
      S(86) = -6.3D-05
      S(87) = -1.46D-04
      S(88) = -3.59D-04
      S(89) = -8.24D-04
      S(90) = -2.147D-03
      S(91) = -4.63D-03
      S(92) = -1.1466D-02
      S(93) = -1.8885D-02
      S(94) = -3.6091D-02
      S(95) = -1.3193D-02
      S(96) = 2.4935D-02
      S(97) = 2.35151D-01
      S(98) = 9.9559D-02
      S(99) = -9.9125D-02
      S(100) = -9.52023D-01
      S(101) = 4.79D-01
      S(102) = 1.499728D+00
      S(103) = -6.53359D-01
      S(104) = -6.0D-06
      S(105) = -1.7D-05
      S(106) = -4.5D-05
      S(107) = -1.08D-04
      S(108) = -2.53D-04
      S(109) = -6.14D-04
      S(110) = -1.433D-03
      S(111) = -3.647D-03
      S(112) = -8.126D-03
      S(113) = -1.9336D-02
      S(114) = -3.3778D-02
      S(115) = -5.9733D-02
      S(116) = -2.9195D-02
      S(117) = 5.7672D-02
      S(118) = 3.96298D-01
      S(119) = 3.26282D-01
      S(120) = -7.65999D-01
      S(121) = -1.595111D+00
      S(122) = 2.605156D+00
      S(123) = -7.64769D-01
      S(124) = -1.174913D+00
      S(125) = -7.0D-06
      S(126) = -1.9D-05
      S(127) = -5.0D-05
      S(128) = -1.17D-04
      S(129) = -2.94D-04
      S(130) = -6.29D-04
      S(131) = -1.769D-03
      S(132) = -3.453D-03
      S(133) = -1.0811D-02
      S(134) = -1.6397D-02
      S(135) = -5.1132D-02
      S(136) = -3.4773D-02
      S(137) = -1.02009D-01
      S(138) = 2.24813D-01
      S(139) = 1.66629D-01
      S(140) = 1.150408D+00
      S(141) = -3.66776D+00
      S(142) = 2.908906D+00
      S(143) = 1.23307D-01
      S(144) = -3.256887D+00
      S(145) = 4.630344D+00
      S(146) = 1.0D+00
      P(147) = 5.7D-05
      P(148) = 2.08D-04
      P(149) = 8.46D-04
      P(150) = 3.134D-03
      P(151) = 1.0765D-02
      P(152) = 3.2541D-02
      P(153) = 8.462D-02
      P(154) = 1.79253D-01
      P(155) = 2.92077D-01
      P(156) = 3.2908D-01
      P(157) = 2.0605D-01
      P(158) = 5.218D-02
      P(159) = 7.93D-04
      P(160) = -2.497D-03
      P(161) = -1.34D-03
      P(162) = -9.6D-05
      P(163) = 5.0D-06
      P(164) = -2.0D-05
      P(165) = -7.4D-05
      P(166) = -3.02D-04
      P(167) = -1.126D-03
      P(168) = -3.886D-03
      P(169) = -1.1918D-02
      P(170) = -3.1708D-02
      P(171) = -6.9749D-02
      P(172) = -1.18583D-01
      P(173) = -1.40592D-01
      P(174) = -3.9182D-02
      P(175) = 2.07037D-01
      P(176) = 4.06866D-01
      P(177) = 3.67213D-01
      P(178) = 1.62532D-01
      P(179) = 1.7949D-02
      P(180) = -1.61D-03
      P(181) = 4.0D-06
      P(182) = 1.5D-05
      P(183) = 6.2D-05
      P(184) = 2.27D-04
      P(185) = 7.94D-04
      P(186) = 2.41D-03
      P(187) = 6.501D-03
      P(188) = 1.4142D-02
      P(189) = 2.4601D-02
      P(190) = 2.8487D-02
      P(191) = 7.973D-03
      P(192) = -5.2475D-02
      P(193) = -9.615D-02
      P(194) = -1.09891D-01
      P(195) = 5.277D-03
      P(196) = 3.16056D-01
      P(197) = 5.41417D-01
      P(198) = 9.0D-06
      P(199) = 3.1D-05
      P(200) = 1.29D-04
      P(201) = 4.67D-04
      P(202) = 1.669D-03
      P(203) = 4.942D-03
      P(204) = 1.3703D-02
      P(205) = 2.8882D-02
      P(206) = 5.2509D-02
      P(207) = 5.7525D-02
      P(208) = 2.3341D-02
      P(209) = -1.31479D-01
      P(210) = -2.12518D-01
      P(211) = -2.14951D-01
      P(212) = 2.26429D-01
      P(213) = 6.39033D-01
      P(214) = 3.12974D-01
      P(215) = 1.5D-05
      P(216) = 5.4D-05
      P(217) = 2.33D-04
      P(218) = 8.06D-04
      P(219) = 3.023D-03
      P(220) = 8.505D-03
      P(221) = 2.4974D-02
      P(222) = 4.931D-02
      P(223) = 9.7712D-02
      P(224) = 9.7823D-02
      P(225) = 7.4793D-02
      P(226) = -3.72893D-01
      P(227) = -4.52107D-01
      P(228) = -8.3181D-02
      P(229) = 1.181081D+00
      P(230) = -9.963D-02
      P(231) = -7.43702D-01
      P(232) = 2.1D-05
      P(233) = 7.7D-05
      P(234) = 3.04D-04
      P(235) = 1.171D-03
      P(236) = 3.902D-03
      P(237) = 1.2489D-02
      P(238) = 3.2012D-02
      P(239) = 7.4203D-02
      P(240) = 1.18672D-01
      P(241) = 1.88844D-01
      P(242) = 1.04245D-01
      P(243) = -9.85723D-01
      P(244) = -5.22412D-01
      P(245) = 2.008485D+00
      P(246) = -6.51673D-01
      P(247) = -1.091067D+00
      P(248) = 1.009808D+00
      P(249) = 1.0D+00
      D(250) = 3.51D-04
      D(251) = 3.116D-03
      D(252) = 1.6011D-02
      D(253) = 5.4614D-02
      D(254) = 1.36495D-01
      D(255) = 2.38911D-01
      D(256) = 3.00002D-01
      D(257) = 2.90696D-01
      D(258) = 2.20977D-01
      D(259) = 1.20323D-01
      D(260) = -3.6D-04
      D(261) = -3.219D-03
      D(262) = -1.6548D-02
      D(263) = -5.7271D-02
      D(264) = -1.46873D-01
      D(265) = -2.47901D-01
      D(266) = -2.23489D-01
      D(267) = 1.3239D-02
      D(268) = 3.10477D-01
      D(269) = 4.52251D-01
      D(270) = 5.07D-04
      D(271) = 4.577D-03
      D(272) = 2.3549D-02
      D(273) = 8.3187D-02
      D(274) = 2.21089D-01
      D(275) = 3.39813D-01
      D(276) = 3.9078D-02
      D(277) = -5.22152D-01
      D(278) = -3.95057D-01
      D(279) = 3.65659D-01
      D(280) = -7.3D-04
      D(281) = -6.277D-03
      D(282) = -3.4063D-02
      D(283) = -1.18439D-01
      D(284) = -3.6639D-01
      D(285) = -3.20553D-01
      D(286) = 6.93977D-01
      D(287) = 4.62384D-01
      D(288) = -8.21479D-01
      D(289) = -1.86017D-01
      D(290) = 1.0D+00
      F(291) = 1.0D+00
      F(292) = 1.0D+00
      F(293) = 1.0D+00
      G(294) = 1.0D+00
      G(295) = 1.0D+00
CSDJ  H(296) = 1.0D+00
       ILAST = 295
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR NI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN

C
C     ----- CU -----
C
  129 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 5.430321D+06
      E(2) = 8.131665D+05
      E(3) = 1.850544D+05
      E(4) = 5.241466D+04
      E(5) = 1.709868D+04
      E(6) = 6.171994D+03
      E(7) = 2.406481D+03
      E(8) = 9.972584D+02
      E(9) = 4.339289D+02
      E(10) = 1.962869D+02
      E(11) = 9.10428D+01
      E(12) = 4.138425D+01
      E(13) = 1.993278D+01
      E(14) = 9.581891D+00
      E(15) = 4.234516D+00
      E(16) = 1.985814D+00
      E(17) = 8.67083D-01
      E(18) = 1.81339D-01
      E(19) = 8.3657D-02
      E(20) = 5.430321D+06
      E(21) = 8.131665D+05
      E(22) = 1.850544D+05
      E(23) = 5.241466D+04
      E(24) = 1.709868D+04
      E(25) = 6.171994D+03
      E(26) = 2.406481D+03
      E(27) = 9.972584D+02
      E(28) = 4.339289D+02
      E(29) = 1.962869D+02
      E(30) = 9.10428D+01
      E(31) = 4.138425D+01
      E(32) = 1.993278D+01
      E(33) = 9.581891D+00
      E(34) = 4.234516D+00
      E(35) = 1.985814D+00
      E(36) = 8.67083D-01
      E(37) = 1.81339D-01
      E(38) = 8.3657D-02
      E(39) = 5.430321D+06
      E(40) = 8.131665D+05
      E(41) = 1.850544D+05
      E(42) = 5.241466D+04
      E(43) = 1.709868D+04
      E(44) = 6.171994D+03
      E(45) = 2.406481D+03
      E(46) = 9.972584D+02
      E(47) = 4.339289D+02
      E(48) = 1.962869D+02
      E(49) = 9.10428D+01
      E(50) = 4.138425D+01
      E(51) = 1.993278D+01
      E(52) = 9.581891D+00
      E(53) = 4.234516D+00
      E(54) = 1.985814D+00
      E(55) = 8.67083D-01
      E(56) = 1.81339D-01
      E(57) = 8.3657D-02
      E(58) = 5.430321D+06
      E(59) = 8.131665D+05
      E(60) = 1.850544D+05
      E(61) = 5.241466D+04
      E(62) = 1.709868D+04
      E(63) = 6.171994D+03
      E(64) = 2.406481D+03
      E(65) = 9.972584D+02
      E(66) = 4.339289D+02
      E(67) = 1.962869D+02
      E(68) = 9.10428D+01
      E(69) = 4.138425D+01
      E(70) = 1.993278D+01
      E(71) = 9.581891D+00
      E(72) = 4.234516D+00
      E(73) = 1.985814D+00
      E(74) = 8.67083D-01
      E(75) = 1.81339D-01
      E(76) = 8.3657D-02
      E(77) = 5.430321D+06
      E(78) = 8.131665D+05
      E(79) = 1.850544D+05
      E(80) = 5.241466D+04
      E(81) = 1.709868D+04
      E(82) = 6.171994D+03
      E(83) = 2.406481D+03
      E(84) = 9.972584D+02
      E(85) = 4.339289D+02
      E(86) = 1.962869D+02
      E(87) = 9.10428D+01
      E(88) = 4.138425D+01
      E(89) = 1.993278D+01
      E(90) = 9.581891D+00
      E(91) = 4.234516D+00
      E(92) = 1.985814D+00
      E(93) = 8.67083D-01
      E(94) = 1.81339D-01
      E(95) = 8.3657D-02
      E(96) = 5.430321D+06
      E(97) = 8.131665D+05
      E(98) = 1.850544D+05
      E(99) = 5.241466D+04
      E(100) = 1.709868D+04
      E(101) = 6.171994D+03
      E(102) = 2.406481D+03
      E(103) = 9.972584D+02
      E(104) = 4.339289D+02
      E(105) = 1.962869D+02
      E(106) = 9.10428D+01
      E(107) = 4.138425D+01
      E(108) = 1.993278D+01
      E(109) = 9.581891D+00
      E(110) = 4.234516D+00
      E(111) = 1.985814D+00
      E(112) = 8.67083D-01
      E(113) = 1.81339D-01
      E(114) = 8.3657D-02
      E(115) = 3.6267D-02
      E(116) = 2.276057D+04
      E(117) = 5.387679D+03
      E(118) = 1.749945D+03
      E(119) = 6.696653D+02
      E(120) = 2.841948D+02
      E(121) = 1.296077D+02
      E(122) = 6.225415D+01
      E(123) = 3.092964D+01
      E(124) = 1.575827D+01
      E(125) = 8.094211D+00
      E(126) = 4.046921D+00
      E(127) = 1.967869D+00
      E(128) = 9.25295D-01
      E(129) = 3.51093D-01
      E(130) = 1.26799D-01
      E(131) = 2.276057D+04
      E(132) = 5.387679D+03
      E(133) = 1.749945D+03
      E(134) = 6.696653D+02
      E(135) = 2.841948D+02
      E(136) = 1.296077D+02
      E(137) = 6.225415D+01
      E(138) = 3.092964D+01
      E(139) = 1.575827D+01
      E(140) = 8.094211D+00
      E(141) = 4.046921D+00
      E(142) = 1.967869D+00
      E(143) = 9.25295D-01
      E(144) = 3.51093D-01
      E(145) = 1.26799D-01
      E(146) = 2.276057D+04
      E(147) = 5.387679D+03
      E(148) = 1.749945D+03
      E(149) = 6.696653D+02
      E(150) = 2.841948D+02
      E(151) = 1.296077D+02
      E(152) = 6.225415D+01
      E(153) = 3.092964D+01
      E(154) = 1.575827D+01
      E(155) = 8.094211D+00
      E(156) = 4.046921D+00
      E(157) = 1.967869D+00
      E(158) = 9.25295D-01
      E(159) = 3.51093D-01
      E(160) = 1.26799D-01
      E(161) = 2.276057D+04
      E(162) = 5.387679D+03
      E(163) = 1.749945D+03
      E(164) = 6.696653D+02
      E(165) = 2.841948D+02
      E(166) = 1.296077D+02
      E(167) = 6.225415D+01
      E(168) = 3.092964D+01
      E(169) = 1.575827D+01
      E(170) = 8.094211D+00
      E(171) = 4.046921D+00
      E(172) = 1.967869D+00
      E(173) = 9.25295D-01
      E(174) = 3.51093D-01
      E(175) = 1.26799D-01
      E(176) = 2.276057D+04
      E(177) = 5.387679D+03
      E(178) = 1.749945D+03
      E(179) = 6.696653D+02
      E(180) = 2.841948D+02
      E(181) = 1.296077D+02
      E(182) = 6.225415D+01
      E(183) = 3.092964D+01
      E(184) = 1.575827D+01
      E(185) = 8.094211D+00
      E(186) = 4.046921D+00
      E(187) = 1.967869D+00
      E(188) = 9.25295D-01
      E(189) = 3.51093D-01
      E(190) = 1.26799D-01
      E(191) = 4.4162D-02
      E(192) = 1.77685D+02
      E(193) = 5.25404D+01
      E(194) = 1.94769D+01
      E(195) = 8.00146D+00
      E(196) = 3.39892D+00
      E(197) = 1.40538D+00
      E(198) = 5.4533D-01
      E(199) = 1.77685D+02
      E(200) = 5.25404D+01
      E(201) = 1.94769D+01
      E(202) = 8.00146D+00
      E(203) = 3.39892D+00
      E(204) = 1.40538D+00
      E(205) = 5.4533D-01
      E(206) = 1.77685D+02
      E(207) = 5.25404D+01
      E(208) = 1.94769D+01
      E(209) = 8.00146D+00
      E(210) = 3.39892D+00
      E(211) = 1.40538D+00
      E(212) = 5.4533D-01
      E(213) = 1.8811D-01
      E(214) = 5.0286D+00
      E(215) = 1.2594D+00
      E(216) = 3.4097D+00
      S(1) = 1.58D-04
      S(2) = 4.52D-04
      S(3) = 1.229D-03
      S(4) = 3.12D-03
      S(5) = 7.912D-03
      S(6) = 2.0142D-02
      S(7) = 5.0462D-02
      S(8) = 1.16616D-01
      S(9) = 2.25543D-01
      S(10) = 3.10152D-01
      S(11) = 2.26139D-01
      S(12) = 7.6992D-02
      S(13) = 1.08755D-01
      S(14) = 1.02969D-01
      S(15) = 1.6299D-02
      S(16) = -5.39D-04
      S(17) = -2.0D-06
      S(18) = -3.8D-05
      S(19) = 2.6D-05
      S(20) = -8.9D-05
      S(21) = -2.55D-04
      S(22) = -6.94D-04
      S(23) = -1.766D-03
      S(24) = -4.498D-03
      S(25) = -1.1545D-02
      S(26) = -2.9418D-02
      S(27) = -7.0517D-02
      S(28) = -1.47788D-01
      S(29) = -2.4238D-01
      S(30) = -2.3906D-01
      S(31) = 4.7693D-02
      S(32) = 5.19467D-01
      S(33) = 4.78107D-01
      S(34) = 8.0558D-02
      S(35) = -5.628D-03
      S(36) = -7.2D-05
      S(37) = -4.33D-04
      S(38) = 3.08D-04
      S(39) = 2.0D-05
      S(40) = 5.7D-05
      S(41) = 1.56D-04
      S(42) = 3.99D-04
      S(43) = 1.019D-03
      S(44) = 2.636D-03
      S(45) = 6.792D-03
      S(46) = 1.6772D-02
      S(47) = 3.7024D-02
      S(48) = 6.7832D-02
      S(49) = 7.6768D-02
      S(50) = -2.8588D-02
      S(51) = -3.26233D-01
      S(52) = -4.45146D-01
      S(53) = 1.81532D-01
      S(54) = 7.21916D-01
      S(55) = 3.68632D-01
      S(56) = 1.6395D-02
      S(57) = -5.526D-03
      S(58) = -4.0D-06
      S(59) = -1.2D-05
      S(60) = -3.2D-05
      S(61) = -8.2D-05
      S(62) = -2.08D-04
      S(63) = -5.39D-04
      S(64) = -1.388D-03
      S(65) = -3.43D-03
      S(66) = -7.579D-03
      S(67) = -1.3934D-02
      S(68) = -1.5825D-02
      S(69) = 5.891D-03
      S(70) = 7.0648D-02
      S(71) = 1.00346D-01
      S(72) = -4.9461D-02
      S(73) = -2.13618D-01
      S(74) = -2.12203D-01
      S(75) = 2.81299D-01
      S(76) = 5.56068D-01
      S(77) = -8.0D-06
      S(78) = -2.2D-05
      S(79) = -5.9D-05
      S(80) = -1.52D-04
      S(81) = -3.78D-04
      S(82) = -1.018D-03
      S(83) = -2.473D-03
      S(84) = -6.614D-03
      S(85) = -1.3152D-02
      S(86) = -2.8083D-02
      S(87) = -2.3661D-02
      S(88) = -3.658D-03
      S(89) = 1.67451D-01
      S(90) = 1.37849D-01
      S(91) = 1.695D-03
      S(92) = -7.98861D-01
      S(93) = 2.03639D-01
      S(94) = 1.549691D+00
      S(95) = -4.95024D-01
      S(96) = -1.5D-05
      S(97) = -4.4D-05
      S(98) = -1.2D-04
      S(99) = -3.11D-04
      S(100) = -7.72D-04
      S(101) = -2.089D-03
      S(102) = -5.051D-03
      S(103) = -1.3599D-02
      S(104) = -2.6875D-02
      S(105) = -5.8138D-02
      S(106) = -4.8331D-02
      S(107) = -9.916D-03
      S(108) = 3.62372D-01
      S(109) = 3.77896D-01
      S(110) = -3.71727D-01
      S(111) = -1.991129D+00
      S(112) = 2.468236D+00
      S(113) = -2.14446D-01
      S(114) = -1.634714D+00
      S(115) = 1.0D+00
      P(116) = 1.41D-04
      P(117) = 6.05D-04
      P(118) = 2.684D-03
      P(119) = 1.037D-02
      P(120) = 3.4776D-02
      P(121) = 9.6726D-02
      P(122) = 2.10877D-01
      P(123) = 3.3419D-01
      P(124) = 3.29557D-01
      P(125) = 1.51925D-01
      P(126) = 2.0507D-02
      P(127) = -1.966D-03
      P(128) = -1.631D-03
      P(129) = -2.57D-04
      P(130) = 2.5D-05
      P(131) = -5.1D-05
      P(132) = -2.2D-04
      P(133) = -9.77D-04
      P(134) = -3.803D-03
      P(135) = -1.2916D-02
      P(136) = -3.6952D-02
      P(137) = -8.3709D-02
      P(138) = -1.40077D-01
      P(139) = -1.38423D-01
      P(140) = 4.3486D-02
      P(141) = 3.46078D-01
      P(142) = 4.5123D-01
      P(143) = 2.72637D-01
      P(144) = 4.2464D-02
      P(145) = -2.769D-03
      P(146) = 1.0D-05
      P(147) = 4.3D-05
      P(148) = 1.9D-04
      P(149) = 7.43D-04
      P(150) = 2.515D-03
      P(151) = 7.246D-03
      P(152) = 1.6375D-02
      P(153) = 2.7781D-02
      P(154) = 2.712D-02
      P(155) = -1.1226D-02
      P(156) = -8.1474D-02
      P(157) = -1.10618D-01
      P(158) = -6.8669D-02
      P(159) = 1.92135D-01
      P(160) = 5.63145D-01
      P(161) = 1.9D-05
      P(162) = 8.3D-05
      P(163) = 3.68D-04
      P(164) = 1.447D-03
      P(165) = 4.866D-03
      P(166) = 1.4121D-02
      P(167) = 3.164D-02
      P(168) = 5.4567D-02
      P(169) = 5.3045D-02
      P(170) = -1.9946D-02
      P(171) = -1.83509D-01
      P(172) = -2.17326D-01
      P(173) = -2.8217D-02
      P(174) = 5.2893D-01
      P(175) = 5.57562D-01
      P(176) = 3.9D-05
      P(177) = 1.63D-04
      P(178) = 7.55D-04
      P(179) = 2.793D-03
      P(180) = 1.0048D-02
      P(181) = 2.7115D-02
      P(182) = 6.632D-02
      P(183) = 1.01558D-01
      P(184) = 1.35158D-01
      P(185) = -7.7881D-02
      P(186) = -4.99172D-01
      P(187) = -4.81709D-01
      P(188) = 9.79864D-01
      P(189) = 5.02534D-01
      P(190) = -8.45723D-01
      P(191) = 1.0D+00
      D(192) = 2.709D-03
      D(193) = 2.0685D-02
      D(194) = 8.3626D-02
      D(195) = 2.12923D-01
      D(196) = 3.35566D-01
      D(197) = 3.58108D-01
      D(198) = 2.66441D-01
      D(199) = -3.377D-03
      D(200) = -2.5819D-02
      D(201) = -1.0724D-01
      D(202) = -2.80541D-01
      D(203) = -3.48732D-01
      D(204) = 2.1609D-02
      D(205) = 4.91613D-01
      D(206) = 4.166D-03
      D(207) = 3.2875D-02
      D(208) = 1.37362D-01
      D(209) = 3.89096D-01
      D(210) = 1.75766D-01
      D(211) = -6.83499D-01
      D(212) = -2.67348D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
         ILAST = 216 
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.666549D+07
      E(2) = 2.495213D+06
      E(3) = 5.678507D+05
      E(4) = 1.608531D+05
      E(5) = 5.248186D+04
      E(6) = 1.894885D+04
      E(7) = 7.391655D+03
      E(8) = 3.066517D+03
      E(9) = 1.337994D+03
      E(10) = 6.08783D+02
      E(11) = 2.86898D+02
      E(12) = 1.39153D+02
      E(13) = 6.849455D+01
      E(14) = 3.160108D+01
      E(15) = 1.599158D+01
      E(16) = 8.05651D+00
      E(17) = 3.690329D+00
      E(18) = 1.762902D+00
      E(19) = 8.01269D-01
      E(20) = 1.84243D-01
      E(21) = 8.1793D-02
      E(22) = 1.666549D+07
      E(23) = 2.495213D+06
      E(24) = 5.678507D+05
      E(25) = 1.608531D+05
      E(26) = 5.248186D+04
      E(27) = 1.894885D+04
      E(28) = 7.391655D+03
      E(29) = 3.066517D+03
      E(30) = 1.337994D+03
      E(31) = 6.08783D+02
      E(32) = 2.86898D+02
      E(33) = 1.39153D+02
      E(34) = 6.849455D+01
      E(35) = 3.160108D+01
      E(36) = 1.599158D+01
      E(37) = 8.05651D+00
      E(38) = 3.690329D+00
      E(39) = 1.762902D+00
      E(40) = 8.01269D-01
      E(41) = 1.84243D-01
      E(42) = 8.1793D-02
      E(43) = 1.666549D+07
      E(44) = 2.495213D+06
      E(45) = 5.678507D+05
      E(46) = 1.608531D+05
      E(47) = 5.248186D+04
      E(48) = 1.894885D+04
      E(49) = 7.391655D+03
      E(50) = 3.066517D+03
      E(51) = 1.337994D+03
      E(52) = 6.08783D+02
      E(53) = 2.86898D+02
      E(54) = 1.39153D+02
      E(55) = 6.849455D+01
      E(56) = 3.160108D+01
      E(57) = 1.599158D+01
      E(58) = 8.05651D+00
      E(59) = 3.690329D+00
      E(60) = 1.762902D+00
      E(61) = 8.01269D-01
      E(62) = 1.84243D-01
      E(63) = 8.1793D-02
      E(64) = 1.666549D+07
      E(65) = 2.495213D+06
      E(66) = 5.678507D+05
      E(67) = 1.608531D+05
      E(68) = 5.248186D+04
      E(69) = 1.894885D+04
      E(70) = 7.391655D+03
      E(71) = 3.066517D+03
      E(72) = 1.337994D+03
      E(73) = 6.08783D+02
      E(74) = 2.86898D+02
      E(75) = 1.39153D+02
      E(76) = 6.849455D+01
      E(77) = 3.160108D+01
      E(78) = 1.599158D+01
      E(79) = 8.05651D+00
      E(80) = 3.690329D+00
      E(81) = 1.762902D+00
      E(82) = 8.01269D-01
      E(83) = 1.84243D-01
      E(84) = 8.1793D-02
      E(85) = 1.666549D+07
      E(86) = 2.495213D+06
      E(87) = 5.678507D+05
      E(88) = 1.608531D+05
      E(89) = 5.248186D+04
      E(90) = 1.894885D+04
      E(91) = 7.391655D+03
      E(92) = 3.066517D+03
      E(93) = 1.337994D+03
      E(94) = 6.08783D+02
      E(95) = 2.86898D+02
      E(96) = 1.39153D+02
      E(97) = 6.849455D+01
      E(98) = 3.160108D+01
      E(99) = 1.599158D+01
      E(100) = 8.05651D+00
      E(101) = 3.690329D+00
      E(102) = 1.762902D+00
      E(103) = 8.01269D-01
      E(104) = 1.84243D-01
      E(105) = 8.1793D-02
      E(106) = 1.666549D+07
      E(107) = 2.495213D+06
      E(108) = 5.678507D+05
      E(109) = 1.608531D+05
      E(110) = 5.248186D+04
      E(111) = 1.894885D+04
      E(112) = 7.391655D+03
      E(113) = 3.066517D+03
      E(114) = 1.337994D+03
      E(115) = 6.08783D+02
      E(116) = 2.86898D+02
      E(117) = 1.39153D+02
      E(118) = 6.849455D+01
      E(119) = 3.160108D+01
      E(120) = 1.599158D+01
      E(121) = 8.05651D+00
      E(122) = 3.690329D+00
      E(123) = 1.762902D+00
      E(124) = 8.01269D-01
      E(125) = 1.84243D-01
      E(126) = 8.1793D-02
      E(127) = 1.666549D+07
      E(128) = 2.495213D+06
      E(129) = 5.678507D+05
      E(130) = 1.608531D+05
      E(131) = 5.248186D+04
      E(132) = 1.894885D+04
      E(133) = 7.391655D+03
      E(134) = 3.066517D+03
      E(135) = 1.337994D+03
      E(136) = 6.08783D+02
      E(137) = 2.86898D+02
      E(138) = 1.39153D+02
      E(139) = 6.849455D+01
      E(140) = 3.160108D+01
      E(141) = 1.599158D+01
      E(142) = 8.05651D+00
      E(143) = 3.690329D+00
      E(144) = 1.762902D+00
      E(145) = 8.01269D-01
      E(146) = 1.84243D-01
      E(147) = 8.1793D-02
      E(148) = 3.5303D-02
      E(149) = 4.821841D+04
      E(150) = 1.142055D+04
      E(151) = 3.713569D+03
      E(152) = 1.423762D+03
      E(153) = 6.066041D+02
      E(154) = 2.782564D+02
      E(155) = 1.348449D+02
      E(156) = 6.812254D+01
      E(157) = 3.540088D+01
      E(158) = 1.879029D+01
      E(159) = 1.008356D+01
      E(160) = 5.34612D+00
      E(161) = 2.775228D+00
      E(162) = 1.407564D+00
      E(163) = 6.87213D-01
      E(164) = 2.47397D-01
      E(165) = 4.821841D+04
      E(166) = 1.142055D+04
      E(167) = 3.713569D+03
      E(168) = 1.423762D+03
      E(169) = 6.066041D+02
      E(170) = 2.782564D+02
      E(171) = 1.348449D+02
      E(172) = 6.812254D+01
      E(173) = 3.540088D+01
      E(174) = 1.879029D+01
      E(175) = 1.008356D+01
      E(176) = 5.34612D+00
      E(177) = 2.775228D+00
      E(178) = 1.407564D+00
      E(179) = 6.87213D-01
      E(180) = 2.47397D-01
      E(181) = 9.6187D-02
      E(182) = 4.821841D+04
      E(183) = 1.142055D+04
      E(184) = 3.713569D+03
      E(185) = 1.423762D+03
      E(186) = 6.066041D+02
      E(187) = 2.782564D+02
      E(188) = 1.348449D+02
      E(189) = 6.812254D+01
      E(190) = 3.540088D+01
      E(191) = 1.879029D+01
      E(192) = 1.008356D+01
      E(193) = 5.34612D+00
      E(194) = 2.775228D+00
      E(195) = 1.407564D+00
      E(196) = 6.87213D-01
      E(197) = 2.47397D-01
      E(198) = 9.6187D-02
      E(199) = 4.821841D+04
      E(200) = 1.142055D+04
      E(201) = 3.713569D+03
      E(202) = 1.423762D+03
      E(203) = 6.066041D+02
      E(204) = 2.782564D+02
      E(205) = 1.348449D+02
      E(206) = 6.812254D+01
      E(207) = 3.540088D+01
      E(208) = 1.879029D+01
      E(209) = 1.008356D+01
      E(210) = 5.34612D+00
      E(211) = 2.775228D+00
      E(212) = 1.407564D+00
      E(213) = 6.87213D-01
      E(214) = 2.47397D-01
      E(215) = 9.6187D-02
      E(216) = 4.821841D+04
      E(217) = 1.142055D+04
      E(218) = 3.713569D+03
      E(219) = 1.423762D+03
      E(220) = 6.066041D+02
      E(221) = 2.782564D+02
      E(222) = 1.348449D+02
      E(223) = 6.812254D+01
      E(224) = 3.540088D+01
      E(225) = 1.879029D+01
      E(226) = 1.008356D+01
      E(227) = 5.34612D+00
      E(228) = 2.775228D+00
      E(229) = 1.407564D+00
      E(230) = 6.87213D-01
      E(231) = 2.47397D-01
      E(232) = 9.6187D-02
      E(233) = 4.821841D+04
      E(234) = 1.142055D+04
      E(235) = 3.713569D+03
      E(236) = 1.423762D+03
      E(237) = 6.066041D+02
      E(238) = 2.782564D+02
      E(239) = 1.348449D+02
      E(240) = 6.812254D+01
      E(241) = 3.540088D+01
      E(242) = 1.879029D+01
      E(243) = 1.008356D+01
      E(244) = 5.34612D+00
      E(245) = 2.775228D+00
      E(246) = 1.407564D+00
      E(247) = 6.87213D-01
      E(248) = 2.47397D-01
      E(249) = 9.6187D-02
      E(250) = 3.6948D-02
      E(251) = 5.56317D+02
      E(252) = 1.63692D+02
      E(253) = 6.27973D+01
      E(254) = 2.72478D+01
      E(255) = 1.26298D+01
      E(256) = 6.10341D+00
      E(257) = 2.965448D+00
      E(258) = 1.412653D+00
      E(259) = 6.49845D-01
      E(260) = 2.83701D-01
      E(261) = 5.56317D+02
      E(262) = 1.63692D+02
      E(263) = 6.27973D+01
      E(264) = 2.72478D+01
      E(265) = 1.26298D+01
      E(266) = 6.10341D+00
      E(267) = 2.965448D+00
      E(268) = 1.412653D+00
      E(269) = 6.49845D-01
      E(270) = 2.83701D-01
      E(271) = 5.56317D+02
      E(272) = 1.63692D+02
      E(273) = 6.27973D+01
      E(274) = 2.72478D+01
      E(275) = 1.26298D+01
      E(276) = 6.10341D+00
      E(277) = 2.965448D+00
      E(278) = 1.412653D+00
      E(279) = 6.49845D-01
      E(280) = 2.83701D-01
      E(281) = 5.56317D+02
      E(282) = 1.63692D+02
      E(283) = 6.27973D+01
      E(284) = 2.72478D+01
      E(285) = 1.26298D+01
      E(286) = 6.10341D+00
      E(287) = 2.965448D+00
      E(288) = 1.412653D+00
      E(289) = 6.49845D-01
      E(290) = 2.83701D-01
      E(291) = 1.13329D-01
      E(292) = 7.6837D+00
      E(293) = 2.3657D+00
      E(294) = 7.284D-01
      E(295) = 5.9423D+00
      E(296) = 1.7494D+00
CSDJ  E(297) = 3.7293D+00
      S(1) = 6.9D-05
      S(2) = 1.92D-04
      S(3) = 5.02D-04
      S(4) = 1.2D-03
      S(5) = 2.812D-03
      S(6) = 6.576D-03
      S(7) = 1.5563D-02
      S(8) = 3.666D-02
      S(9) = 8.2401D-02
      S(10) = 1.64332D-01
      S(11) = 2.62145D-01
      S(12) = 2.76466D-01
      S(13) = 1.4789D-01
      S(14) = 7.1599D-02
      S(15) = 1.14422D-01
      S(16) = 7.4733D-02
      S(17) = 8.901D-03
      S(18) = -3.24D-04
      S(19) = -5.8D-05
      S(20) = -1.3D-05
      S(21) = 7.0D-06
      S(22) = -3.9D-05
      S(23) = -1.08D-04
      S(24) = -2.83D-04
      S(25) = -6.76D-04
      S(26) = -1.588D-03
      S(27) = -3.73D-03
      S(28) = -8.88D-03
      S(29) = -2.1223D-02
      S(30) = -4.8899D-02
      S(31) = -1.03322D-01
      S(32) = -1.84178D-01
      S(33) = -2.46279D-01
      S(34) = -1.55758D-01
      S(35) = 2.08389D-01
      S(36) = 5.50074D-01
      S(37) = 3.4998D-01
      S(38) = 4.3809D-02
      S(39) = -3.669D-03
      S(40) = -5.07D-04
      S(41) = -1.86D-04
      S(42) = 1.15D-04
      S(43) = 9.0D-06
      S(44) = 2.4D-05
      S(45) = 6.4D-05
      S(46) = 1.53D-04
      S(47) = 3.59D-04
      S(48) = 8.47D-04
      S(49) = 2.024D-03
      S(50) = 4.9D-03
      S(51) = 1.1473D-02
      S(52) = 2.5341D-02
      S(53) = 4.8325D-02
      S(54) = 7.3892D-02
      S(55) = 5.0915D-02
      S(56) = -1.08314D-01
      S(57) = -3.91449D-01
      S(58) = -3.36991D-01
      S(59) = 3.22344D-01
      S(60) = 6.82957D-01
      S(61) = 2.97028D-01
      S(62) = 1.1974D-02
      S(63) = -2.692D-03
      S(64) = -2.0D-06
      S(65) = -5.0D-06
      S(66) = -1.3D-05
      S(67) = -3.1D-05
      S(68) = -7.3D-05
      S(69) = -1.73D-04
      S(70) = -4.13D-04
      S(71) = -1.002D-03
      S(72) = -2.344D-03
      S(73) = -5.192D-03
      S(74) = -9.891D-03
      S(75) = -1.5245D-02
      S(76) = -1.0449D-02
      S(77) = 2.2566D-02
      S(78) = 8.6448D-02
      S(79) = 7.5331D-02
      S(80) = -8.4213D-02
      S(81) = -2.15165D-01
      S(82) = -1.86623D-01
      S(83) = 2.89928D-01
      S(84) = 5.72278D-01
      S(85) = -3.0D-06
      S(86) = -9.0D-06
      S(87) = -2.4D-05
      S(88) = -5.9D-05
      S(89) = -1.37D-04
      S(90) = -3.32D-04
      S(91) = -7.58D-04
      S(92) = -1.956D-03
      S(93) = -4.214D-03
      S(94) = -1.0372D-02
      S(95) = -1.7144D-02
      S(96) = -3.2526D-02
      S(97) = -1.2017D-02
      S(98) = 2.3963D-02
      S(99) = 2.11961D-01
      S(100) = 8.428D-02
      S(101) = -8.9472D-02
      S(102) = -8.09196D-01
      S(103) = 3.24217D-01
      S(104) = 1.447289D+00
      S(105) = -4.43132D-01
      S(106) = -7.0D-06
      S(107) = -1.9D-05
      S(108) = -4.9D-05
      S(109) = -1.17D-04
      S(110) = -2.72D-04
      S(111) = -6.58D-04
      S(112) = -1.515D-03
      S(113) = -3.859D-03
      S(114) = -8.469D-03
      S(115) = -2.0392D-02
      S(116) = -3.4896D-02
      S(117) = -6.3408D-02
      S(118) = -2.8078D-02
      S(119) = 5.7058D-02
      S(120) = 4.30275D-01
      S(121) = 2.97302D-01
      S(122) = -7.72365D-01
      S(123) = -1.579862D+00
      S(124) = 2.535085D+00
      S(125) = -5.51653D-01
      S(126) = -1.312257D+00
      S(127) = -7.0D-06
      S(128) = -2.0D-05
      S(129) = -5.2D-05
      S(130) = -1.21D-04
      S(131) = -3.0D-04
      S(132) = -6.41D-04
      S(133) = -1.783D-03
      S(134) = -3.463D-03
      S(135) = -1.0778D-02
      S(136) = -1.6322D-02
      S(137) = -5.0821D-02
      S(138) = -3.4451D-02
      S(139) = -1.01172D-01
      S(140) = 2.24667D-01
      S(141) = 1.69943D-01
      S(142) = 1.113261D+00
      S(143) = -3.563214D+00
      S(144) = 2.767509D+00
      S(145) = 2.1888D-01
      S(146) = -3.266031D+00
      S(147) = 4.560972D+00
      S(148) = 1.0D+00
      P(149) = 6.1D-05
      P(150) = 2.18D-04
      P(151) = 8.73D-04
      P(152) = 3.199D-03
      P(153) = 1.0915D-02
      P(154) = 3.2865D-02
      P(155) = 8.5258D-02
      P(156) = 1.80269D-01
      P(157) = 2.93029D-01
      P(158) = 3.28203D-01
      P(159) = 2.03772D-01
      P(160) = 5.1461D-02
      P(161) = 1.373D-03
      P(162) = -1.893D-03
      P(163) = -1.034D-03
      P(164) = -6.0D-05
      P(165) = -2.2D-05
      P(166) = -7.9D-05
      P(167) = -3.17D-04
      P(168) = -1.167D-03
      P(169) = -4.002D-03
      P(170) = -1.2228D-02
      P(171) = -3.2463D-02
      P(172) = -7.1294D-02
      P(173) = -1.21022D-01
      P(174) = -1.42145D-01
      P(175) = -3.6368D-02
      P(176) = 2.12547D-01
      P(177) = 4.09867D-01
      P(178) = 3.65324D-01
      P(179) = 1.55916D-01
      P(180) = 1.5497D-02
      P(181) = -1.545D-03
      P(182) = 4.0D-06
      P(183) = 1.5D-05
      P(184) = 6.2D-05
      P(185) = 2.26D-04
      P(186) = 7.84D-04
      P(187) = 2.37D-03
      P(188) = 6.388D-03
      P(189) = 1.3859D-02
      P(190) = 2.4114D-02
      P(191) = 2.7571D-02
      P(192) = 7.097D-03
      P(193) = -5.1924D-02
      P(194) = -9.2604D-02
      P(195) = -1.05564D-01
      P(196) = 6.378D-03
      P(197) = 3.11776D-01
      P(198) = 5.40751D-01
      P(199) = 9.0D-06
      P(200) = 3.0D-05
      P(201) = 1.24D-04
      P(202) = 4.43D-04
      P(203) = 1.574D-03
      P(204) = 4.634D-03
      P(205) = 1.2844D-02
      P(206) = 2.697D-02
      P(207) = 4.912D-02
      P(208) = 5.2993D-02
      P(209) = 2.0617D-02
      P(210) = -1.22665D-01
      P(211) = -1.91191D-01
      P(212) = -2.07443D-01
      P(213) = 1.92646D-01
      P(214) = 6.49001D-01
      P(215) = 3.28732D-01
      P(216) = 1.7D-05
      P(217) = 5.8D-05
      P(218) = 2.46D-04
      P(219) = 8.42D-04
      P(220) = 3.131D-03
      P(221) = 8.787D-03
      P(222) = 2.5709D-02
      P(223) = 5.0752D-02
      P(224) = 1.00255D-01
      P(225) = 1.00525D-01
      P(226) = 7.335D-02
      P(227) = -3.88726D-01
      P(228) = -4.49547D-01
      P(229) = -7.6617D-02
      P(230) = 1.18207D+00
      P(231) = -9.9659D-02
      P(232) = -7.17121D-01
      P(233) = 2.1D-05
      P(234) = 8.0D-05
      P(235) = 2.99D-04
      P(236) = 1.199D-03
      P(237) = 3.744D-03
      P(238) = 1.2708D-02
      P(239) = 3.0332D-02
      P(240) = 7.5983D-02
      P(241) = 1.08502D-01
      P(242) = 2.05154D-01
      P(243) = 5.7015D-02
      P(244) = -9.11782D-01
      P(245) = -5.40962D-01
      P(246) = 1.949762D+00
      P(247) = -5.88039D-01
      P(248) = -1.130224D+00
      P(249) = 1.044146D+00
      P(250) = 1.0D+00
      D(251) = 2.61D-04
      D(252) = 2.344D-03
      D(253) = 1.2486D-02
      D(254) = 4.4282D-02
      D(255) = 1.15934D-01
      D(256) = 2.1745D-01
      D(257) = 2.91421D-01
      D(258) = 2.98357D-01
      D(259) = 2.37986D-01
      D(260) = 1.33253D-01
      D(261) = -3.24D-04
      D(262) = -2.918D-03
      D(263) = -1.5594D-02
      D(264) = -5.5961D-02
      D(265) = -1.51816D-01
      D(266) = -2.79787D-01
      D(267) = -2.71533D-01
      D(268) = 1.809D-02
      D(269) = 3.56204D-01
      D(270) = 4.2016D-01
      D(271) = 3.89D-04
      D(272) = 3.534D-03
      D(273) = 1.8936D-02
      D(274) = 6.8928D-02
      D(275) = 1.97272D-01
      D(276) = 3.48736D-01
      D(277) = 5.9703D-02
      D(278) = -5.59699D-01
      D(279) = -3.88026D-01
      D(280) = 4.38327D-01
      D(281) = -6.03D-04
      D(282) = -5.054D-03
      D(283) = -2.932D-02
      D(284) = -1.01632D-01
      D(285) = -3.52673D-01
      D(286) = -4.21389D-01
      D(287) = 7.3433D-01
      D(288) = 5.56494D-01
      D(289) = -9.76545D-01
      D(290) = -8.9913D-02
      D(291) = 1.0D+00
      F(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      G(295) = 1.0D+00
      G(296) = 1.0D+00
CSDJ  H(297) = 1.0D+00
       ILAST = 296
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CU'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C
C     ----- ZN -----
C
  130 CONTINUE
      IF (NTMP.EQ.2) THEN
      E(1) = 5.820021D+06
      E(2) = 8.715234D+05
      E(3) = 1.98335D+05
      E(4) = 5.617631D+04
      E(5) = 1.832582D+04
      E(6) = 6.614955D+03
      E(7) = 2.579199D+03
      E(8) = 1.068849D+03
      E(9) = 4.651045D+02
      E(10) = 2.10413D+02
      E(11) = 9.761629D+01
      E(12) = 4.43802D+01
      E(13) = 2.142308D+01
      E(14) = 1.030891D+01
      E(15) = 4.553645D+00
      E(16) = 2.132821D+00
      E(17) = 9.29697D-01
      E(18) = 1.92147D-01
      E(19) = 8.7595D-02
      E(20) = 5.820021D+06
      E(21) = 8.715234D+05
      E(22) = 1.98335D+05
      E(23) = 5.617631D+04
      E(24) = 1.832582D+04
      E(25) = 6.614955D+03
      E(26) = 2.579199D+03
      E(27) = 1.068849D+03
      E(28) = 4.651045D+02
      E(29) = 2.10413D+02
      E(30) = 9.761629D+01
      E(31) = 4.43802D+01
      E(32) = 2.142308D+01
      E(33) = 1.030891D+01
      E(34) = 4.553645D+00
      E(35) = 2.132821D+00
      E(36) = 9.29697D-01
      E(37) = 1.92147D-01
      E(38) = 8.7595D-02
      E(39) = 5.820021D+06
      E(40) = 8.715234D+05
      E(41) = 1.98335D+05
      E(42) = 5.617631D+04
      E(43) = 1.832582D+04
      E(44) = 6.614955D+03
      E(45) = 2.579199D+03
      E(46) = 1.068849D+03
      E(47) = 4.651045D+02
      E(48) = 2.10413D+02
      E(49) = 9.761629D+01
      E(50) = 4.43802D+01
      E(51) = 2.142308D+01
      E(52) = 1.030891D+01
      E(53) = 4.553645D+00
      E(54) = 2.132821D+00
      E(55) = 9.29697D-01
      E(56) = 1.92147D-01
      E(57) = 8.7595D-02
      E(58) = 5.820021D+06
      E(59) = 8.715234D+05
      E(60) = 1.98335D+05
      E(61) = 5.617631D+04
      E(62) = 1.832582D+04
      E(63) = 6.614955D+03
      E(64) = 2.579199D+03
      E(65) = 1.068849D+03
      E(66) = 4.651045D+02
      E(67) = 2.10413D+02
      E(68) = 9.761629D+01
      E(69) = 4.43802D+01
      E(70) = 2.142308D+01
      E(71) = 1.030891D+01
      E(72) = 4.553645D+00
      E(73) = 2.132821D+00
      E(74) = 9.29697D-01
      E(75) = 1.92147D-01
      E(76) = 8.7595D-02
      E(77) = 5.820021D+06
      E(78) = 8.715234D+05
      E(79) = 1.98335D+05
      E(80) = 5.617631D+04
      E(81) = 1.832582D+04
      E(82) = 6.614955D+03
      E(83) = 2.579199D+03
      E(84) = 1.068849D+03
      E(85) = 4.651045D+02
      E(86) = 2.10413D+02
      E(87) = 9.761629D+01
      E(88) = 4.43802D+01
      E(89) = 2.142308D+01
      E(90) = 1.030891D+01
      E(91) = 4.553645D+00
      E(92) = 2.132821D+00
      E(93) = 9.29697D-01
      E(94) = 1.92147D-01
      E(95) = 8.7595D-02
      E(96) = 5.820021D+06
      E(97) = 8.715234D+05
      E(98) = 1.98335D+05
      E(99) = 5.617631D+04
      E(100) = 1.832582D+04
      E(101) = 6.614955D+03
      E(102) = 2.579199D+03
      E(103) = 1.068849D+03
      E(104) = 4.651045D+02
      E(105) = 2.10413D+02
      E(106) = 9.761629D+01
      E(107) = 4.43802D+01
      E(108) = 2.142308D+01
      E(109) = 1.030891D+01
      E(110) = 4.553645D+00
      E(111) = 2.132821D+00
      E(112) = 9.29697D-01
      E(113) = 1.92147D-01
      E(114) = 8.7595D-02
      E(115) = 3.7702D-02
      E(116) = 2.441198D+04
      E(117) = 5.778518D+03
      E(118) = 1.876862D+03
      E(119) = 7.182361D+02
      E(120) = 3.048327D+02
      E(121) = 1.390453D+02
      E(122) = 6.680417D+01
      E(123) = 3.320699D+01
      E(124) = 1.692816D+01
      E(125) = 8.696229D+00
      E(126) = 4.35051D+00
      E(127) = 2.116523D+00
      E(128) = 9.95387D-01
      E(129) = 3.75639D-01
      E(130) = 1.33885D-01
      E(131) = 2.441198D+04
      E(132) = 5.778518D+03
      E(133) = 1.876862D+03
      E(134) = 7.182361D+02
      E(135) = 3.048327D+02
      E(136) = 1.390453D+02
      E(137) = 6.680417D+01
      E(138) = 3.320699D+01
      E(139) = 1.692816D+01
      E(140) = 8.696229D+00
      E(141) = 4.35051D+00
      E(142) = 2.116523D+00
      E(143) = 9.95387D-01
      E(144) = 3.75639D-01
      E(145) = 1.33885D-01
      E(146) = 2.441198D+04
      E(147) = 5.778518D+03
      E(148) = 1.876862D+03
      E(149) = 7.182361D+02
      E(150) = 3.048327D+02
      E(151) = 1.390453D+02
      E(152) = 6.680417D+01
      E(153) = 3.320699D+01
      E(154) = 1.692816D+01
      E(155) = 8.696229D+00
      E(156) = 4.35051D+00
      E(157) = 2.116523D+00
      E(158) = 9.95387D-01
      E(159) = 3.75639D-01
      E(160) = 1.33885D-01
      E(161) = 2.441198D+04
      E(162) = 5.778518D+03
      E(163) = 1.876862D+03
      E(164) = 7.182361D+02
      E(165) = 3.048327D+02
      E(166) = 1.390453D+02
      E(167) = 6.680417D+01
      E(168) = 3.320699D+01
      E(169) = 1.692816D+01
      E(170) = 8.696229D+00
      E(171) = 4.35051D+00
      E(172) = 2.116523D+00
      E(173) = 9.95387D-01
      E(174) = 3.75639D-01
      E(175) = 1.33885D-01
      E(176) = 2.441198D+04
      E(177) = 5.778518D+03
      E(178) = 1.876862D+03
      E(179) = 7.182361D+02
      E(180) = 3.048327D+02
      E(181) = 1.390453D+02
      E(182) = 6.680417D+01
      E(183) = 3.320699D+01
      E(184) = 1.692816D+01
      E(185) = 8.696229D+00
      E(186) = 4.35051D+00
      E(187) = 2.116523D+00
      E(188) = 9.95387D-01
      E(189) = 3.75639D-01
      E(190) = 1.33885D-01
      E(191) = 4.6023D-02
      E(192) = 2.109473D+02
      E(193) = 6.239151D+01
      E(194) = 2.326482D+01
      E(195) = 9.623342D+00
      E(196) = 4.139418D+00
      E(197) = 1.744079D+00
      E(198) = 6.95325D-01
      E(199) = 2.109473D+02
      E(200) = 6.239151D+01
      E(201) = 2.326482D+01
      E(202) = 9.623342D+00
      E(203) = 4.139418D+00
      E(204) = 1.744079D+00
      E(205) = 6.95325D-01
      E(206) = 2.109473D+02
      E(207) = 6.239151D+01
      E(208) = 2.326482D+01
      E(209) = 9.623342D+00
      E(210) = 4.139418D+00
      E(211) = 1.744079D+00
      E(212) = 6.95325D-01
      E(213) = 2.48724D-01
      E(214) = 5.7344D+00
      E(215) = 1.4615D+00
      E(216) = 4.0243D+00
      S(1) = 1.81D-04
      S(2) = 5.17D-04
      S(3) = 1.398D-03
      S(4) = 3.527D-03
      S(5) = 8.875D-03
      S(6) = 2.2419D-02
      S(7) = 5.5873D-02
      S(8) = 1.29079D-01
      S(9) = 2.51415D-01
      S(10) = 3.53341D-01
      S(11) = 2.70315D-01
      S(12) = 6.5222D-02
      S(13) = -1.233D-03
      S(14) = 1.795D-03
      S(15) = -8.22D-04
      S(16) = 3.48D-04
      S(17) = -1.31D-04
      S(18) = 4.4D-05
      S(19) = -3.4D-05
      S(20) = -5.7D-05
      S(21) = -1.63D-04
      S(22) = -4.42D-04
      S(23) = -1.119D-03
      S(24) = -2.835D-03
      S(25) = -7.251D-03
      S(26) = -1.8531D-02
      S(27) = -4.5141D-02
      S(28) = -9.8306D-02
      S(29) = -1.73387D-01
      S(30) = -1.86834D-01
      S(31) = 6.5229D-02
      S(32) = 5.32016D-01
      S(33) = 4.83528D-01
      S(34) = 8.1573D-02
      S(35) = -1.695D-03
      S(36) = 1.829D-03
      S(37) = -3.33D-04
      S(38) = 2.59D-04
      S(39) = 2.2D-05
      S(40) = 6.2D-05
      S(41) = 1.68D-04
      S(42) = 4.25D-04
      S(43) = 1.075D-03
      S(44) = 2.759D-03
      S(45) = 7.058D-03
      S(46) = 1.7359D-02
      S(47) = 3.8196D-02
      S(48) = 6.9866D-02
      S(49) = 7.8569D-02
      S(50) = -3.0477D-02
      S(51) = -3.36446D-01
      S(52) = -4.46844D-01
      S(53) = 1.92505D-01
      S(54) = 7.30395D-01
      S(55) = 3.55703D-01
      S(56) = 1.1698D-02
      S(57) = -5.135D-03
      S(58) = 4.0D-06
      S(59) = 1.3D-05
      S(60) = 3.4D-05
      S(61) = 8.6D-05
      S(62) = 2.18D-04
      S(63) = 5.59D-04
      S(64) = 1.429D-03
      S(65) = 3.527D-03
      S(66) = 7.743D-03
      S(67) = 1.4306D-02
      S(68) = 1.6002D-02
      S(69) = -5.993D-03
      S(70) = -7.3734D-02
      S(71) = -9.999D-02
      S(72) = 5.0319D-02
      S(73) = 2.26584D-01
      S(74) = 2.08575D-01
      S(75) = -3.42659D-01
      S(76) = -5.53736D-01
      S(77) = -1.2D-05
      S(78) = -3.4D-05
      S(79) = -9.2D-05
      S(80) = -2.36D-04
      S(81) = -5.79D-04
      S(82) = -1.567D-03
      S(83) = -3.711D-03
      S(84) = -1.0137D-02
      S(85) = -1.9441D-02
      S(86) = -4.3509D-02
      S(87) = -3.2897D-02
      S(88) = -1.1654D-02
      S(89) = 2.74953D-01
      S(90) = 1.9252D-01
      S(91) = -3.3568D-02
      S(92) = -1.373744D+00
      S(93) = 8.94472D-01
      S(94) = 1.65274D+00
      S(95) = -1.422437D+00
      S(96) = 1.7D-05
      S(97) = 4.9D-05
      S(98) = 1.34D-04
      S(99) = 3.39D-04
      S(100) = 8.57D-04
      S(101) = 2.209D-03
      S(102) = 5.623D-03
      S(103) = 1.3969D-02
      S(104) = 3.0588D-02
      S(105) = 5.733D-02
      S(106) = 6.3931D-02
      S(107) = -2.0492D-02
      S(108) = -3.3304D-01
      S(109) = -5.85671D-01
      S(110) = 1.001728D+00
      S(111) = 1.420971D+00
      S(112) = -2.730899D+00
      S(113) = 2.187182D+00
      S(114) = -7.68588D-01
      S(115) = 1.0D+00
      P(116) = 1.48D-04
      P(117) = 6.24D-04
      P(118) = 2.734D-03
      P(119) = 1.0484D-02
      P(120) = 3.5053D-02
      P(121) = 9.733D-02
      P(122) = 2.11903D-01
      P(123) = 3.34676D-01
      P(124) = 3.27075D-01
      P(125) = 1.49383D-01
      P(126) = 2.2387D-02
      P(127) = 1.556D-03
      P(128) = 4.64D-04
      P(129) = 6.3D-05
      P(130) = -1.0D-06
      P(131) = -5.6D-05
      P(132) = -2.34D-04
      P(133) = -1.03D-03
      P(134) = -3.978D-03
      P(135) = -1.3472D-02
      P(136) = -3.8466D-02
      P(137) = -8.7024D-02
      P(138) = -1.45096D-01
      P(139) = -1.40979D-01
      P(140) = 4.8729D-02
      P(141) = 3.52524D-01
      P(142) = 4.5239D-01
      P(143) = 2.63819D-01
      P(144) = 3.7568D-02
      P(145) = -2.473D-03
      P(146) = 1.0D-05
      P(147) = 4.3D-05
      P(148) = 1.9D-04
      P(149) = 7.36D-04
      P(150) = 2.484D-03
      P(151) = 7.154D-03
      P(152) = 1.6138D-02
      P(153) = 2.7351D-02
      P(154) = 2.6126D-02
      P(155) = -1.2049D-02
      P(156) = -8.0312D-02
      P(157) = -1.06296D-01
      P(158) = -6.5561D-02
      P(159) = 1.89066D-01
      P(160) = 5.60373D-01
      P(161) = 1.8D-05
      P(162) = 7.5D-05
      P(163) = 3.25D-04
      P(164) = 1.28D-03
      P(165) = 4.243D-03
      P(166) = 1.2446D-02
      P(167) = 2.7464D-02
      P(168) = 4.8191D-02
      P(169) = 4.3946D-02
      P(170) = -1.6325D-02
      P(171) = -1.59314D-01
      P(172) = -1.75692D-01
      P(173) = -7.4781D-02
      P(174) = 4.8454D-01
      P(175) = 6.14743D-01
      P(176) = 4.1D-05
      P(177) = 1.67D-04
      P(178) = 7.71D-04
      P(179) = 2.818D-03
      P(180) = 1.0177D-02
      P(181) = 2.7197D-02
      P(182) = 6.7115D-02
      P(183) = 1.01151D-01
      P(184) = 1.36758D-01
      P(185) = -8.7995D-02
      P(186) = -4.88784D-01
      P(187) = -4.70937D-01
      P(188) = 9.18558D-01
      P(189) = 5.83999D-01
      P(190) = -8.29317D-01
      P(191) = 1.0D+00
      D(192) = 2.353D-03
      D(193) = 1.8384D-02
      D(194) = 7.6273D-02
      D(195) = 2.00841D-01
      D(196) = 3.28998D-01
      D(197) = 3.61856D-01
      D(198) = 2.73609D-01
      D(199) = 3.289D-03
      D(200) = 2.5827D-02
      D(201) = 1.09933D-01
      D(202) = 3.01717D-01
      D(203) = 3.8734D-01
      D(204) = -5.0391D-02
      D(205) = -5.3851D-01
      D(206) = 3.791D-03
      D(207) = 3.1632D-02
      D(208) = 1.31525D-01
      D(209) = 4.23003D-01
      D(210) = 1.33079D-01
      D(211) = -7.72118D-01
      D(212) = -1.07782D-01
      D(213) = 1.0D+00
      F(214) = 1.0D+00
      F(215) = 1.0D+00
      G(216) = 1.0D+00
       ILAST = 216
      ELSE IF (NTMP.EQ.3) THEN
      E(1) = 1.785293D+07
      E(2) = 2.673038D+06
      E(3) = 6.083244D+05
      E(4) = 1.723176D+05
      E(5) = 5.622269D+04
      E(6) = 2.029985D+04
      E(7) = 7.918871D+03
      E(8) = 3.28534D+03
      E(9) = 1.433524D+03
      E(10) = 6.522889D+02
      E(11) = 3.07436D+02
      E(12) = 1.491466D+02
      E(13) = 7.345108D+01
      E(14) = 3.392562D+01
      E(15) = 1.718947D+01
      E(16) = 8.666595D+00
      E(17) = 3.972505D+00
      E(18) = 1.894665D+00
      E(19) = 8.59385D-01
      E(20) = 1.95256D-01
      E(21) = 8.5854D-02
      E(22) = 1.785293D+07
      E(23) = 2.673038D+06
      E(24) = 6.083244D+05
      E(25) = 1.723176D+05
      E(26) = 5.622269D+04
      E(27) = 2.029985D+04
      E(28) = 7.918871D+03
      E(29) = 3.28534D+03
      E(30) = 1.433524D+03
      E(31) = 6.522889D+02
      E(32) = 3.07436D+02
      E(33) = 1.491466D+02
      E(34) = 7.345108D+01
      E(35) = 3.392562D+01
      E(36) = 1.718947D+01
      E(37) = 8.666595D+00
      E(38) = 3.972505D+00
      E(39) = 1.894665D+00
      E(40) = 8.59385D-01
      E(41) = 1.95256D-01
      E(42) = 8.5854D-02
      E(43) = 1.785293D+07
      E(44) = 2.673038D+06
      E(45) = 6.083244D+05
      E(46) = 1.723176D+05
      E(47) = 5.622269D+04
      E(48) = 2.029985D+04
      E(49) = 7.918871D+03
      E(50) = 3.28534D+03
      E(51) = 1.433524D+03
      E(52) = 6.522889D+02
      E(53) = 3.07436D+02
      E(54) = 1.491466D+02
      E(55) = 7.345108D+01
      E(56) = 3.392562D+01
      E(57) = 1.718947D+01
      E(58) = 8.666595D+00
      E(59) = 3.972505D+00
      E(60) = 1.894665D+00
      E(61) = 8.59385D-01
      E(62) = 1.95256D-01
      E(63) = 8.5854D-02
      E(64) = 1.785293D+07
      E(65) = 2.673038D+06
      E(66) = 6.083244D+05
      E(67) = 1.723176D+05
      E(68) = 5.622269D+04
      E(69) = 2.029985D+04
      E(70) = 7.918871D+03
      E(71) = 3.28534D+03
      E(72) = 1.433524D+03
      E(73) = 6.522889D+02
      E(74) = 3.07436D+02
      E(75) = 1.491466D+02
      E(76) = 7.345108D+01
      E(77) = 3.392562D+01
      E(78) = 1.718947D+01
      E(79) = 8.666595D+00
      E(80) = 3.972505D+00
      E(81) = 1.894665D+00
      E(82) = 8.59385D-01
      E(83) = 1.95256D-01
      E(84) = 8.5854D-02
      E(85) = 1.785293D+07
      E(86) = 2.673038D+06
      E(87) = 6.083244D+05
      E(88) = 1.723176D+05
      E(89) = 5.622269D+04
      E(90) = 2.029985D+04
      E(91) = 7.918871D+03
      E(92) = 3.28534D+03
      E(93) = 1.433524D+03
      E(94) = 6.522889D+02
      E(95) = 3.07436D+02
      E(96) = 1.491466D+02
      E(97) = 7.345108D+01
      E(98) = 3.392562D+01
      E(99) = 1.718947D+01
      E(100) = 8.666595D+00
      E(101) = 3.972505D+00
      E(102) = 1.894665D+00
      E(103) = 8.59385D-01
      E(104) = 1.95256D-01
      E(105) = 8.5854D-02
      E(106) = 1.785293D+07
      E(107) = 2.673038D+06
      E(108) = 6.083244D+05
      E(109) = 1.723176D+05
      E(110) = 5.622269D+04
      E(111) = 2.029985D+04
      E(112) = 7.918871D+03
      E(113) = 3.28534D+03
      E(114) = 1.433524D+03
      E(115) = 6.522889D+02
      E(116) = 3.07436D+02
      E(117) = 1.491466D+02
      E(118) = 7.345108D+01
      E(119) = 3.392562D+01
      E(120) = 1.718947D+01
      E(121) = 8.666595D+00
      E(122) = 3.972505D+00
      E(123) = 1.894665D+00
      E(124) = 8.59385D-01
      E(125) = 1.95256D-01
      E(126) = 8.5854D-02
      E(127) = 1.785293D+07
      E(128) = 2.673038D+06
      E(129) = 6.083244D+05
      E(130) = 1.723176D+05
      E(131) = 5.622269D+04
      E(132) = 2.029985D+04
      E(133) = 7.918871D+03
      E(134) = 3.28534D+03
      E(135) = 1.433524D+03
      E(136) = 6.522889D+02
      E(137) = 3.07436D+02
      E(138) = 1.491466D+02
      E(139) = 7.345108D+01
      E(140) = 3.392562D+01
      E(141) = 1.718947D+01
      E(142) = 8.666595D+00
      E(143) = 3.972505D+00
      E(144) = 1.894665D+00
      E(145) = 8.59385D-01
      E(146) = 1.95256D-01
      E(147) = 8.5854D-02
      E(148) = 3.6781D-02
      E(149) = 5.286793D+04
      E(150) = 1.251179D+04
      E(151) = 4.065286D+03
      E(152) = 1.557595D+03
      E(153) = 6.632892D+02
      E(154) = 3.041561D+02
      E(155) = 1.47368D+02
      E(156) = 7.445469D+01
      E(157) = 3.871493D+01
      E(158) = 2.057022D+01
      E(159) = 1.105425D+01
      E(160) = 5.874661D+00
      E(161) = 3.052936D+00
      E(162) = 1.547225D+00
      E(163) = 7.54151D-01
      E(164) = 2.65553D-01
      E(165) = 1.01908D-01
      E(166) = 5.286793D+04
      E(167) = 1.251179D+04
      E(168) = 4.065286D+03
      E(169) = 1.557595D+03
      E(170) = 6.632892D+02
      E(171) = 3.041561D+02
      E(172) = 1.47368D+02
      E(173) = 7.445469D+01
      E(174) = 3.871493D+01
      E(175) = 2.057022D+01
      E(176) = 1.105425D+01
      E(177) = 5.874661D+00
      E(178) = 3.052936D+00
      E(179) = 1.547225D+00
      E(180) = 7.54151D-01
      E(181) = 2.65553D-01
      E(182) = 1.01908D-01
      E(183) = 5.286793D+04
      E(184) = 1.251179D+04
      E(185) = 4.065286D+03
      E(186) = 1.557595D+03
      E(187) = 6.632892D+02
      E(188) = 3.041561D+02
      E(189) = 1.47368D+02
      E(190) = 7.445469D+01
      E(191) = 3.871493D+01
      E(192) = 2.057022D+01
      E(193) = 1.105425D+01
      E(194) = 5.874661D+00
      E(195) = 3.052936D+00
      E(196) = 1.547225D+00
      E(197) = 7.54151D-01
      E(198) = 2.65553D-01
      E(199) = 1.01908D-01
      E(200) = 5.286793D+04
      E(201) = 1.251179D+04
      E(202) = 4.065286D+03
      E(203) = 1.557595D+03
      E(204) = 6.632892D+02
      E(205) = 3.041561D+02
      E(206) = 1.47368D+02
      E(207) = 7.445469D+01
      E(208) = 3.871493D+01
      E(209) = 2.057022D+01
      E(210) = 1.105425D+01
      E(211) = 5.874661D+00
      E(212) = 3.052936D+00
      E(213) = 1.547225D+00
      E(214) = 7.54151D-01
      E(215) = 2.65553D-01
      E(216) = 1.01908D-01
      E(217) = 5.286793D+04
      E(218) = 1.251179D+04
      E(219) = 4.065286D+03
      E(220) = 1.557595D+03
      E(221) = 6.632892D+02
      E(222) = 3.041561D+02
      E(223) = 1.47368D+02
      E(224) = 7.445469D+01
      E(225) = 3.871493D+01
      E(226) = 2.057022D+01
      E(227) = 1.105425D+01
      E(228) = 5.874661D+00
      E(229) = 3.052936D+00
      E(230) = 1.547225D+00
      E(231) = 7.54151D-01
      E(232) = 2.65553D-01
      E(233) = 1.01908D-01
      E(234) = 5.286793D+04
      E(235) = 1.251179D+04
      E(236) = 4.065286D+03
      E(237) = 1.557595D+03
      E(238) = 6.632892D+02
      E(239) = 3.041561D+02
      E(240) = 1.47368D+02
      E(241) = 7.445469D+01
      E(242) = 3.871493D+01
      E(243) = 2.057022D+01
      E(244) = 1.105425D+01
      E(245) = 5.874661D+00
      E(246) = 3.052936D+00
      E(247) = 1.547225D+00
      E(248) = 7.54151D-01
      E(249) = 2.65553D-01
      E(250) = 1.01908D-01
      E(251) = 3.8623D-02
      E(252) = 6.900847D+02
      E(253) = 2.023066D+02
      E(254) = 7.744594D+01
      E(255) = 3.368378D+01
      E(256) = 1.566998D+01
      E(257) = 7.62247D+00
      E(258) = 3.749978D+00
      E(259) = 1.818151D+00
      E(260) = 8.55597D-01
      E(261) = 3.83842D-01
      E(262) = 6.900847D+02
      E(263) = 2.023066D+02
      E(264) = 7.744594D+01
      E(265) = 3.368378D+01
      E(266) = 1.566998D+01
      E(267) = 7.62247D+00
      E(268) = 3.749978D+00
      E(269) = 1.818151D+00
      E(270) = 8.55597D-01
      E(271) = 3.83842D-01
      E(272) = 6.900847D+02
      E(273) = 2.023066D+02
      E(274) = 7.744594D+01
      E(275) = 3.368378D+01
      E(276) = 1.566998D+01
      E(277) = 7.62247D+00
      E(278) = 3.749978D+00
      E(279) = 1.818151D+00
      E(280) = 8.55597D-01
      E(281) = 3.83842D-01
      E(282) = 6.900847D+02
      E(283) = 2.023066D+02
      E(284) = 7.744594D+01
      E(285) = 3.368378D+01
      E(286) = 1.566998D+01
      E(287) = 7.62247D+00
      E(288) = 3.749978D+00
      E(289) = 1.818151D+00
      E(290) = 8.55597D-01
      E(291) = 3.83842D-01
      E(292) = 1.57952D-01
      E(293) = 8.6408D+00
      E(294) = 2.6947D+00
      E(295) = 8.403D-01
      E(296) = 6.8215D+00
      E(297) = 2.0378D+00
CSDJ  E(298) = 4.3396D+00
      S(1) = 7.9D-05
      S(2) = 2.2D-04
      S(3) = 5.73D-04
      S(4) = 1.364D-03
      S(5) = 3.179D-03
      S(6) = 7.382D-03
      S(7) = 1.7343D-02
      S(8) = 4.0629D-02
      S(9) = 9.1128D-02
      S(10) = 1.82415D-01
      S(11) = 2.94461D-01
      S(12) = 3.20858D-01
      S(13) = 1.76394D-01
      S(14) = 2.695D-02
      S(15) = -1.462D-03
      S(16) = 9.88D-04
      S(17) = -4.54D-04
      S(18) = 1.67D-04
      S(19) = -6.7D-05
      S(20) = 2.1D-05
      S(21) = -1.5D-05
      S(22) = -2.5D-05
      S(23) = -6.9D-05
      S(24) = -1.81D-04
      S(25) = -4.32D-04
      S(26) = -1.008D-03
      S(27) = -2.358D-03
      S(28) = -5.588D-03
      S(29) = -1.3377D-02
      S(30) = -3.1106D-02
      S(31) = -6.7582D-02
      S(32) = -1.2662D-01
      S(33) = -1.84286D-01
      S(34) = -1.21003D-01
      S(35) = 2.22019D-01
      S(36) = 5.60947D-01
      S(37) = 3.52486D-01
      S(38) = 4.5433D-02
      S(39) = 5.2D-05
      S(40) = 1.009D-03
      S(41) = -1.18D-04
      S(42) = 8.9D-05
      S(43) = 9.0D-06
      S(44) = 2.6D-05
      S(45) = 6.9D-05
      S(46) = 1.64D-04
      S(47) = 3.82D-04
      S(48) = 8.95D-04
      S(49) = 2.122D-03
      S(50) = 5.103D-03
      S(51) = 1.1888D-02
      S(52) = 2.6186D-02
      S(53) = 4.9805D-02
      S(54) = 7.5966D-02
      S(55) = 5.1766D-02
      S(56) = -1.12978D-01
      S(57) = -4.01298D-01
      S(58) = -3.34737D-01
      S(59) = 3.331D-01
      S(60) = 6.88972D-01
      S(61) = 2.84864D-01
      S(62) = 8.244D-03
      S(63) = -3.093D-03
      S(64) = -2.0D-06
      S(65) = -5.0D-06
      S(66) = -1.4D-05
      S(67) = -3.3D-05
      S(68) = -7.7D-05
      S(69) = -1.82D-04
      S(70) = -4.29D-04
      S(71) = -1.036D-03
      S(72) = -2.405D-03
      S(73) = -5.337D-03
      S(74) = -1.009D-02
      S(75) = -1.5671D-02
      S(76) = -1.04D-02
      S(77) = 2.3126D-02
      S(78) = 8.9945D-02
      S(79) = 7.3512D-02
      S(80) = -8.5003D-02
      S(81) = -2.28969D-01
      S(82) = -1.81093D-01
      S(83) = 3.47999D-01
      S(84) = 5.7004D-01
      S(85) = -5.0D-06
      S(86) = -1.5D-05
      S(87) = -3.9D-05
      S(88) = -9.3D-05
      S(89) = -2.13D-04
      S(90) = -5.17D-04
      S(91) = -1.158D-03
      S(92) = -3.017D-03
      S(93) = -6.328D-03
      S(94) = -1.5992D-02
      S(95) = -2.5383D-02
      S(96) = -5.0878D-02
      S(97) = -1.4793D-02
      S(98) = 3.0557D-02
      S(99) = 3.4757D-01
      S(100) = 1.09403D-01
      S(101) = -2.2084D-01
      S(102) = -1.304411D+00
      S(103) = 1.066357D+00
      S(104) = 1.427174D+00
      S(105) = -1.261361D+00
      S(106) = 7.0D-06
      S(107) = 2.1D-05
      S(108) = 5.4D-05
      S(109) = 1.27D-04
      S(110) = 2.99D-04
      S(111) = 6.95D-04
      S(112) = 1.67D-03
      S(113) = 3.94D-03
      S(114) = 9.446D-03
      S(115) = 2.0152D-02
      S(116) = 4.0471D-02
      S(117) = 5.8211D-02
      S(118) = 4.8092D-02
      S(119) = -1.06178D-01
      S(120) = -3.82229D-01
      S(121) = -5.13587D-01
      S(122) = 1.535796D+00
      S(123) = 6.74903D-01
      S(124) = -2.542236D+00
      S(125) = 2.336824D+00
      S(126) = -9.07222D-01
      S(127) = -1.0D-05
      S(128) = -2.8D-05
      S(129) = -7.3D-05
      S(130) = -1.71D-04
      S(131) = -4.14D-04
      S(132) = -9.14D-04
      S(133) = -2.374D-03
      S(134) = -5.012D-03
      S(135) = -1.3907D-02
      S(136) = -2.4517D-02
      S(137) = -6.337D-02
      S(138) = -6.1852D-02
      S(139) = -1.06848D-01
      S(140) = 2.25431D-01
      S(141) = 5.6748D-01
      S(142) = 1.010752D+00
      S(143) = -5.56117D+00
      S(144) = 6.9915D+00
      S(145) = -3.54246D+00
      S(146) = 3.9528D-02
      S(147) = 1.626683D+00
      S(148) = 1.0D+00
      P(149) = 6.3D-05
      P(150) = 2.21D-04
      P(151) = 8.71D-04
      P(152) = 3.155D-03
      P(153) = 1.0714D-02
      P(154) = 3.2228D-02
      P(155) = 8.377D-02
      P(156) = 1.77844D-01
      P(157) = 2.90579D-01
      P(158) = 3.275D-01
      P(159) = 2.05923D-01
      P(160) = 5.4914D-02
      P(161) = 4.909D-03
      P(162) = 9.73D-04
      P(163) = 1.84D-04
      P(164) = 5.0D-05
      P(165) = -1.2D-05
      P(166) = -2.4D-05
      P(167) = -8.3D-05
      P(168) = -3.27D-04
      P(169) = -1.191D-03
      P(170) = -4.065D-03
      P(171) = -1.2402D-02
      P(172) = -3.2976D-02
      P(173) = -7.2683D-02
      P(174) = -1.23984D-01
      P(175) = -1.4629D-01
      P(176) = -4.0228D-02
      P(177) = 2.09819D-01
      P(178) = 4.11365D-01
      P(179) = 3.68822D-01
      P(180) = 1.54201D-01
      P(181) = 1.4142D-02
      P(182) = -1.504D-03
      P(183) = 4.0D-06
      P(184) = 1.5D-05
      P(185) = 6.1D-05
      P(186) = 2.18D-04
      P(187) = 7.55D-04
      P(188) = 2.276D-03
      P(189) = 6.153D-03
      P(190) = 1.339D-02
      P(191) = 2.3467D-02
      P(192) = 2.6892D-02
      P(193) = 7.442D-03
      P(194) = -4.9776D-02
      P(195) = -8.9063D-02
      P(196) = -1.02881D-01
      P(197) = 4.221D-03
      P(198) = 3.0498D-01
      P(199) = 5.4105D-01
      P(200) = 8.0D-06
      P(201) = 2.7D-05
      P(202) = 1.09D-04
      P(203) = 3.85D-04
      P(204) = 1.354D-03
      P(205) = 4.008D-03
      P(206) = 1.1055D-02
      P(207) = 2.3491D-02
      P(208) = 4.2577D-02
      P(209) = 4.6861D-02
      P(210) = 1.7722D-02
      P(211) = -1.00303D-01
      P(212) = -1.63393D-01
      P(213) = -1.89393D-01
      P(214) = 1.17244D-01
      P(215) = 6.4695D-01
      P(216) = 3.79952D-01
      P(217) = 1.7D-05
      P(218) = 5.8D-05
      P(219) = 2.46D-04
      P(220) = 8.21D-04
      P(221) = 3.09D-03
      P(222) = 8.5D-03
      P(223) = 2.5417D-02
      P(224) = 4.921D-02
      P(225) = 1.00669D-01
      P(226) = 9.6509D-02
      P(227) = 8.1927D-02
      P(228) = -3.83401D-01
      P(229) = -4.18203D-01
      P(230) = -1.67707D-01
      P(231) = 1.194809D+00
      P(232) = -1.921D-03
      P(233) = -7.33766D-01
      P(234) = -2.2D-05
      P(235) = -8.0D-05
      P(236) = -2.86D-04
      P(237) = -1.185D-03
      P(238) = -3.493D-03
      P(239) = -1.2532D-02
      P(240) = -2.8137D-02
      P(241) = -7.6D-02
      P(242) = -9.8506D-02
      P(243) = -2.14367D-01
      P(244) = -2.6511D-02
      P(245) = 7.72888D-01
      P(246) = 6.87498D-01
      P(247) = -1.874844D+00
      P(248) = 3.8645D-01
      P(249) = 1.243615D+00
      P(250) = -1.072597D+00
      P(251) = 1.0D+00
      D(252) = 2.08D-04
      D(253) = 1.88D-03
      D(254) = 1.0315D-02
      D(255) = 3.7934D-02
      D(256) = 1.0289D-01
      D(257) = 2.02681D-01
      D(258) = 2.8453D-01
      D(259) = 3.0243D-01
      D(260) = 2.48925D-01
      D(261) = 1.42296D-01
      D(262) = -2.9D-04
      D(263) = -2.63D-03
      D(264) = -1.4534D-02
      D(265) = -5.3933D-02
      D(266) = -1.52427D-01
      D(267) = -3.00097D-01
      D(268) = -3.10301D-01
      D(269) = 2.1857D-02
      D(270) = 3.96122D-01
      D(271) = 3.96809D-01
      D(272) = -3.22D-04
      D(273) = -2.98D-03
      D(274) = -1.6353D-02
      D(275) = -6.1673D-02
      D(276) = -1.8589D-01
      D(277) = -3.75008D-01
      D(278) = -4.0182D-02
      D(279) = 6.10959D-01
      D(280) = 3.38652D-01
      D(281) = -4.89134D-01
      D(282) = 4.57D-04
      D(283) = 3.791D-03
      D(284) = 2.3036D-02
      D(285) = 8.1202D-02
      D(286) = 2.93793D-01
      D(287) = 4.47737D-01
      D(288) = -6.03354D-01
      D(289) = -6.90404D-01
      D(290) = 9.76068D-01
      D(291) = 2.28607D-01
      D(292) = 1.0D+00
      F(293) = 1.0D+00
      F(294) = 1.0D+00
      F(295) = 1.0D+00
      G(296) = 1.0D+00
      G(297) = 1.0D+00
CSDJ  H(298) = 1.0D+00
       ILAST = 297
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR ZN'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C       
C     ----- GA -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.4851300D+06
         S(1) = 0.2068000D-03
         E(2) = 0.7271900D+05
         S(2) = 0.1604700D-02
         E(3) = 0.1655200D+05
         S(3) = 0.8340200D-02
         E(4) = 0.4687800D+04
         S(4) = 0.3402480D-01
         E(5) = 0.1529100D+04
         S(5) = 0.1111699D+00
         E(6) = 0.5518100D+03
         S(6) = 0.2753930D+00
         E(7) = 0.2151800D+03
         S(7) = 0.4212628D+00
         E(8) = 0.8817400D+02
         S(8) = 0.2738906D+00
         E(9) = 0.2715400D+02
         S(9) = 0.2837200D-01
         E(10) = 0.1150300D+02
         S(10) = -.6293100D-02
         E(11) = 0.3301800D+01
         S(11) = 0.2060600D-02
         E(12) = 0.1331400D+01
         S(12) = -.9269000D-03
         E(13) = 0.1931600D+00
         S(13) = 0.2273000D-03
         E(14) = 0.4851300D+06
         S(14) = -.6430000D-04
         E(15) = 0.7271900D+05
         S(15) = -.4954000D-03
         E(16) = 0.1655200D+05
         S(16) = -.2620800D-02
         E(17) = 0.4687800D+04
         S(17) = -.1068390D-01
         E(18) = 0.1529100D+04
         S(18) = -.3741230D-01
         E(19) = 0.5518100D+03
         S(19) = -.1009636D+00
         E(20) = 0.2151800D+03
         S(20) = -.2145141D+00
         E(21) = 0.8817400D+02
         S(21) = -.1752297D+00
         E(22) = 0.2715400D+02
         S(22) = 0.4831599D+00
         E(23) = 0.1150300D+02
         S(23) = 0.6323677D+00
         E(24) = 0.3301800D+01
         S(24) = 0.6849420D-01
         E(25) = 0.1331400D+01
         S(25) = -.1187120D-01
         E(26) = 0.1931600D+00
         S(26) = 0.2665200D-02
         E(27) = 0.4851300D+06
         S(27) = 0.2450000D-04
         E(28) = 0.7271900D+05
         S(28) = 0.1895000D-03
         E(29) = 0.1655200D+05
         S(29) = 0.9964000D-03
         E(30) = 0.4687800D+04
         S(30) = 0.4108200D-02
         E(31) = 0.1529100D+04
         S(31) = 0.1429380D-01
         E(32) = 0.5518100D+03
         S(32) = 0.3980340D-01
         E(33) = 0.2151800D+03
         S(33) = 0.8559400D-01
         E(34) = 0.8817400D+02
         S(34) = 0.7963050D-01
         E(35) = 0.2715400D+02
         S(35) = -.2939107D+00
         E(36) = 0.1150300D+02
         S(36) = -.5263914D+00
         E(37) = 0.3301800D+01
         S(37) = 0.5864249D+00
         E(38) = 0.1331400D+01
         S(38) = 0.6726347D+00
         E(39) = 0.1931600D+00
         S(39) = 0.2761230D-01
         E(40) = 0.4851300D+06
         S(40) = -.5700000D-05
         E(41) = 0.7271900D+05
         S(41) = -.4400000D-04
         E(42) = 0.1655200D+05
         S(42) = -.2305000D-03
         E(43) = 0.4687800D+04
         S(43) = -.9544000D-03
         E(44) = 0.1529100D+04
         S(44) = -.3305500D-02
         E(45) = 0.5518100D+03
         S(45) = -.9288800D-02
         E(46) = 0.2151800D+03
         S(46) = -.1986440D-01
         E(47) = 0.8817400D+02
         S(47) = -.1908880D-01
         E(48) = 0.2715400D+02
         S(48) = 0.7323560D-01
         E(49) = 0.1150300D+02
         S(49) = 0.1341526D+00
         E(50) = 0.3301800D+01
         S(50) = -.1831929D+00
         E(51) = 0.1331400D+01
         S(51) = -.3571308D+00
         E(52) = 0.1931600D+00
         S(52) = 0.6246013D+00
         E(53) = 0.7089500D-01
         S(53) = 0.1000000D+01
         E(54) = 0.3248600D+04
         P(54) = 0.1526000D-02
         E(55) = 0.7699700D+03
         P(55) = 0.1274860D-01
         E(56) = 0.2482000D+03
         P(56) = 0.6337420D-01
         E(57) = 0.9336400D+02
         P(57) = 0.2065775D+00
         E(58) = 0.3825100D+02
         P(58) = 0.4092963D+00
         E(59) = 0.1642200D+02
         P(59) = 0.3919183D+00
         E(60) = 0.6791800D+01
         P(60) = 0.1029441D+00
         E(61) = 0.2833600D+01
         P(61) = -.7203000D-03
         E(62) = 0.1106200D+01
         P(62) = 0.2095000D-02
         E(63) = 0.2225000D+00
         P(63) = -.3290000D-03
         E(64) = 0.3248600D+04
         P(64) = -.5803000D-03
         E(65) = 0.7699700D+03
         P(65) = -.4864700D-02
         E(66) = 0.2482000D+03
         P(66) = -.2483940D-01
         E(67) = 0.9336400D+02
         P(67) = -.8417590D-01
         E(68) = 0.3825100D+02
         P(68) = -.1800885D+00
         E(69) = 0.1642200D+02
         P(69) = -.1585555D+00
         E(70) = 0.6791800D+01
         P(70) = 0.2355376D+00
         E(71) = 0.2833600D+01
         P(71) = 0.5820587D+00
         E(72) = 0.1106200D+01
         P(72) = 0.3366619D+00
         E(73) = 0.2225000D+00
         P(73) = 0.1719120D-01
         E(74) = 0.3248600D+04
         P(74) = 0.9500000D-04
         E(75) = 0.7699700D+03
         P(75) = 0.7832000D-03
         E(76) = 0.2482000D+03
         P(76) = 0.4085500D-02
         E(77) = 0.9336400D+02
         P(77) = 0.1359870D-01
         E(78) = 0.3825100D+02
         P(78) = 0.3026950D-01
         E(79) = 0.1642200D+02
         P(79) = 0.2417900D-01
         E(80) = 0.6791800D+01
         P(80) = -.4237770D-01
         E(81) = 0.2833600D+01
         P(81) = -.1265661D+00
         E(82) = 0.1106200D+01
         P(82) = -.4994440D-01
         E(83) = 0.2225000D+00
         P(83) = 0.4494199D+00
         E(84) = 0.6177200D-01
         P(84) = 0.1000000D+01
         E(85) = 0.6533700D+02
         D(85) = 0.2738250D-01
         E(86) = 0.1849700D+02
         D(86) = 0.1510805D+00
         E(87) = 0.6315000D+01
         D(87) = 0.3749217D+00
         E(88) = 0.2163500D+01
         D(88) = 0.4750799D+00
         E(89) = 0.6667500D+00
         D(89) = 0.2982750D+00
         E(90) = 0.1884000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
         ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.6558157D+07
         S(1) = 0.8000000D-05
         E(2) = 0.9820253D+06
         S(2) = 0.6220000D-04
         E(3) = 0.2234677D+06
         S(3) = 0.3270000D-03
         E(4) = 0.6328829D+05
         S(4) = 0.1379400D-02
         E(5) = 0.2064294D+05
         S(5) = 0.4999300D-02
         E(6) = 0.7450522D+04
         S(6) = 0.1606050D-01
         E(7) = 0.2905074D+04
         S(7) = 0.4601240D-01
         E(8) = 0.1204210D+04
         S(8) = 0.1152224D+00
         E(9) = 0.5243045D+03
         S(9) = 0.2373921D+00
         E(10) = 0.2374656D+03
         S(10) = 0.3531989D+00
         E(11) = 0.1105787D+03
         S(11) = 0.2915500D+00
         E(12) = 0.5137462D+02
         S(12) = 0.8121290D-01
         E(13) = 0.2444085D+02
         S(13) = 0.7655000D-03
         E(14) = 0.1176859D+02
         S(14) = 0.1612400D-02
         E(15) = 0.5342119D+01
         S(15) = -.7530000D-03
         E(16) = 0.2495036D+01
         S(16) = 0.3134000D-03
         E(17) = 0.1098773D+01
         S(17) = -.1306000D-03
         E(18) = 0.2601800D+00
         S(18) = 0.5130000D-04
         E(19) = 0.6558157D+07
         S(19) = -.2500000D-05
         E(20) = 0.9820253D+06
         S(20) = -.1930000D-04
         E(21) = 0.2234677D+06
         S(21) = -.1014000D-03
         E(22) = 0.6328829D+05
         S(22) = -.4281000D-03
         E(23) = 0.2064294D+05
         S(23) = -.1558200D-02
         E(24) = 0.7450522D+04
         S(24) = -.5046900D-02
         E(25) = 0.2905074D+04
         S(25) = -.1480560D-01
         E(26) = 0.1204210D+04
         S(26) = -.3894820D-01
         E(27) = 0.5243045D+03
         S(27) = -.8968320D-01
         E(28) = 0.2374656D+03
         S(28) = -.1664076D+00
         E(29) = 0.1105787D+03
         S(29) = -.2004010D+00
         E(30) = 0.5137462D+02
         S(30) = 0.1149430D-01
         E(31) = 0.2444085D+02
         S(31) = 0.4958134D+00
         E(32) = 0.1176859D+02
         S(32) = 0.5295550D+00
         E(33) = 0.5342119D+01
         S(33) = 0.1110185D+00
         E(34) = 0.2495036D+01
         S(34) = -.7000000D-03
         E(35) = 0.1098773D+01
         S(35) = 0.2228300D-02
         E(36) = 0.2601800D+00
         S(36) = -.5014000D-03
         E(37) = 0.6558157D+07
         S(37) = 0.9000000D-06
         E(38) = 0.9820253D+06
         S(38) = 0.7400000D-05
         E(39) = 0.2234677D+06
         S(39) = 0.3870000D-04
         E(40) = 0.6328829D+05
         S(40) = 0.1633000D-03
         E(41) = 0.2064294D+05
         S(41) = 0.5944000D-03
         E(42) = 0.7450522D+04
         S(42) = 0.1929200D-02
         E(43) = 0.2905074D+04
         S(43) = 0.5668900D-02
         E(44) = 0.1204210D+04
         S(44) = 0.1502820D-01
         E(45) = 0.5243045D+03
         S(45) = 0.3502220D-01
         E(46) = 0.2374656D+03
         S(46) = 0.6711350D-01
         E(47) = 0.1105787D+03
         S(47) = 0.8501560D-01
         E(48) = 0.5137462D+02
         S(48) = -.4721200D-02
         E(49) = 0.2444085D+02
         S(49) = -.3016737D+00
         E(50) = 0.1176859D+02
         S(50) = -.4825489D+00
         E(51) = 0.5342119D+01
         S(51) = 0.8916950D-01
         E(52) = 0.2495036D+01
         S(52) = 0.7287830D+00
         E(53) = 0.1098773D+01
         S(53) = 0.4288542D+00
         E(54) = 0.2601800D+00
         S(54) = 0.2072490D-01
         E(55) = 0.6558157D+07
         S(55) = 0.2000000D-06
         E(56) = 0.9820253D+06
         S(56) = 0.1700000D-05
         E(57) = 0.2234677D+06
         S(57) = 0.9000000D-05
         E(58) = 0.6328829D+05
         S(58) = 0.3800000D-04
         E(59) = 0.2064294D+05
         S(59) = 0.1382000D-03
         E(60) = 0.7450522D+04
         S(60) = 0.4489000D-03
         E(61) = 0.2905074D+04
         S(61) = 0.1318800D-02
         E(62) = 0.1204210D+04
         S(62) = 0.3501600D-02
         E(63) = 0.5243045D+03
         S(63) = 0.8167300D-02
         E(64) = 0.2374656D+03
         S(64) = 0.1573380D-01
         E(65) = 0.1105787D+03
         S(65) = 0.2002840D-01
         E(66) = 0.5137462D+02
         S(66) = -.1013600D-02
         E(67) = 0.2444085D+02
         S(67) = -.7501620D-01
         E(68) = 0.1176859D+02
         S(68) = -.1257980D+00
         E(69) = 0.5342119D+01
         S(69) = 0.3008570D-01
         E(70) = 0.2495036D+01
         S(70) = 0.2488169D+00
         E(71) = 0.1098773D+01
         S(71) = 0.2843706D+00
         E(72) = 0.2601800D+00
         S(72) = -.3110594D+00
         E(73) = 0.1270790D+00
         S(73) = 0.1000000D+01
         E(74) = 0.5440800D-01
         S(74) = 0.1000000D+01
         E(75) = 0.8050167D+04
         P(75) = 0.3169000D-03
         E(76) = 0.1907536D+04
         P(76) = 0.2764800D-02
         E(77) = 0.6186275D+03
         P(77) = 0.1512040D-01
         E(78) = 0.2353242D+03
         P(78) = 0.5995830D-01
         E(79) = 0.9889965D+02
         P(79) = 0.1733120D+00
         E(80) = 0.4424822D+02
         P(80) = 0.3410820D+00
         E(81) = 0.2061743D+02
         P(81) = 0.3896967D+00
         E(82) = 0.9780516D+01
         P(82) = 0.1839817D+00
         E(83) = 0.4441238D+01
         P(83) = 0.2188960D-01
         E(84) = 0.1964045D+01
         P(84) = 0.1160800D-02
         E(85) = 0.8335780D+00
         P(85) = 0.2735000D-03
         E(86) = 0.8050167D+04
         P(86) = -.1203000D-03
         E(87) = 0.1907536D+04
         P(87) = -.1049200D-02
         E(88) = 0.6186275D+03
         P(88) = -.5810200D-02
         E(89) = 0.2353242D+03
         P(89) = -.2343450D-01
         E(90) = 0.9889965D+02
         P(90) = -.7082700D-01
         E(91) = 0.4424822D+02
         P(91) = -.1465511D+00
         E(92) = 0.2061743D+02
         P(92) = -.1769660D+00
         E(93) = 0.9780516D+01
         P(93) = 0.3638210D-01
         E(94) = 0.4441238D+01
         P(94) = 0.4232848D+00
         E(95) = 0.1964045D+01
         P(95) = 0.4952586D+00
         E(96) = 0.8335780D+00
         P(96) = 0.1797428D+00
         E(97) = 0.8050167D+04
         P(97) = 0.2000000D-04
         E(98) = 0.1907536D+04
         P(98) = 0.1689000D-03
         E(99) = 0.6186275D+03
         P(99) = 0.9668000D-03
         E(100) = 0.2353242D+03
         P(100) = 0.3779700D-02
         E(101) = 0.9889965D+02
         P(101) = 0.1190820D-01
         E(102) = 0.4424822D+02
         P(102) = 0.2356930D-01
         E(103) = 0.2061743D+02
         P(103) = 0.3142330D-01
         E(104) = 0.9780516D+01
         P(104) = -.1361880D-01
         E(105) = 0.4441238D+01
         P(105) = -.7340030D-01
         E(106) = 0.1964045D+01
         P(106) = -.1264785D+00
         E(107) = 0.8335780D+00
         P(107) = 0.1585790D-01
         E(108) = 0.1934450D+00
         P(108) = 0.1000000D+01
         E(109) = 0.5611700D-01
         P(109) = 0.1000000D+01
         E(110) = 0.2441474D+03
         D(110) = 0.2027000D-02
         E(111) = 0.7306759D+02
         D(111) = 0.1650880D-01
         E(112) = 0.2759208D+02
         D(112) = 0.7038230D-01
         E(113) = 0.1154652D+02
         D(113) = 0.1911430D+00
         E(114) = 0.5048628D+01
         D(114) = 0.3254092D+00
         E(115) = 0.2178465D+01
         D(115) = 0.3678199D+00
         E(116) = 0.9002530D+00
         D(116) = 0.2744685D+00
         E(117) = 0.3373270D+00
         D(117) = 0.1000000D+01
         E(118) = 0.1169000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.2881000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
         ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1127450D+08
         S(1) = 0.4100000D-05
         E(2) = 0.1688053D+07
         S(2) = 0.3160000D-04
         E(3) = 0.3841408D+06
         S(3) = 0.1662000D-03
         E(4) = 0.1088070D+06
         S(4) = 0.7017000D-03
         E(5) = 0.3549769D+05
         S(5) = 0.2550800D-02
         E(6) = 0.1281510D+05
         S(6) = 0.8265300D-02
         E(7) = 0.4998109D+04
         S(7) = 0.2419500D-01
         E(8) = 0.2072885D+04
         S(8) = 0.6365720D-01
         E(9) = 0.9037458D+03
         S(9) = 0.1457651D+00
         E(10) = 0.4104431D+03
         S(10) = 0.2703313D+00
         E(11) = 0.1926064D+03
         S(11) = 0.3491571D+00
         E(12) = 0.9204968D+02
         S(12) = 0.2374433D+00
         E(13) = 0.4204781D+02
         S(13) = 0.4808330D-01
         E(14) = 0.2106922D+02
         S(14) = -.2296600D-02
         E(15) = 0.1044792D+02
         S(15) = 0.1790400D-02
         E(16) = 0.4777658D+01
         S(16) = -.8276000D-03
         E(17) = 0.2282566D+01
         S(17) = 0.3543000D-03
         E(18) = 0.1035303D+01
         S(18) = -.1411000D-03
         E(19) = 0.1127450D+08
         S(19) = -.1300000D-05
         E(20) = 0.1688053D+07
         S(20) = -.9800000D-05
         E(21) = 0.3841408D+06
         S(21) = -.5150000D-04
         E(22) = 0.1088070D+06
         S(22) = -.2176000D-03
         E(23) = 0.3549769D+05
         S(23) = -.7932000D-03
         E(24) = 0.1281510D+05
         S(24) = -.2582100D-02
         E(25) = 0.4998109D+04
         S(25) = -.7665200D-02
         E(26) = 0.2072885D+04
         S(26) = -.2075670D-01
         E(27) = 0.9037458D+03
         S(27) = -.5077580D-01
         E(28) = 0.4104431D+03
         S(28) = -.1073802D+00
         E(29) = 0.1926064D+03
         S(29) = -.1806520D+00
         E(30) = 0.9204968D+02
         S(30) = -.1736701D+00
         E(31) = 0.4204781D+02
         S(31) = 0.1108251D+00
         E(32) = 0.2106922D+02
         S(32) = 0.5418366D+00
         E(33) = 0.1044792D+02
         S(33) = 0.4467899D+00
         E(34) = 0.4777658D+01
         S(34) = 0.7621050D-01
         E(35) = 0.2282566D+01
         S(35) = -.9371000D-03
         E(36) = 0.1035303D+01
         S(36) = 0.1780600D-02
         E(37) = 0.1127450D+08
         S(37) = 0.5000000D-06
         E(38) = 0.1688053D+07
         S(38) = 0.3700000D-05
         E(39) = 0.3841408D+06
         S(39) = 0.1970000D-04
         E(40) = 0.1088070D+06
         S(40) = 0.8300000D-04
         E(41) = 0.3549769D+05
         S(41) = 0.3029000D-03
         E(42) = 0.1281510D+05
         S(42) = 0.9850000D-03
         E(43) = 0.4998109D+04
         S(43) = 0.2934100D-02
         E(44) = 0.2072885D+04
         S(44) = 0.7957200D-02
         E(45) = 0.9037458D+03
         S(45) = 0.1967610D-01
         E(46) = 0.4104431D+03
         S(46) = 0.4217830D-01
         E(47) = 0.1926064D+03
         S(47) = 0.7386450D-01
         E(48) = 0.9204968D+02
         S(48) = 0.7475310D-01
         E(49) = 0.4204781D+02
         S(49) = -.5341080D-01
         E(50) = 0.2106922D+02
         S(50) = -.3573919D+00
         E(51) = 0.1044792D+02
         S(51) = -.4250713D+00
         E(52) = 0.4777658D+01
         S(52) = 0.2010992D+00
         E(53) = 0.2282566D+01
         S(53) = 0.7145966D+00
         E(54) = 0.1035303D+01
         S(54) = 0.3688149D+00
         E(55) = 0.1127450D+08
         S(55) = -.1000000D-06
         E(56) = 0.1688053D+07
         S(56) = -.9000000D-06
         E(57) = 0.3841408D+06
         S(57) = -.4600000D-05
         E(58) = 0.1088070D+06
         S(58) = -.1930000D-04
         E(59) = 0.3549769D+05
         S(59) = -.7050000D-04
         E(60) = 0.1281510D+05
         S(60) = -.2290000D-03
         E(61) = 0.4998109D+04
         S(61) = -.6835000D-03
         E(62) = 0.2072885D+04
         S(62) = -.1850500D-02
         E(63) = 0.9037458D+03
         S(63) = -.4593000D-02
         E(64) = 0.4104431D+03
         S(64) = -.9834300D-02
         E(65) = 0.1926064D+03
         S(65) = -.1738490D-01
         E(66) = 0.9204968D+02
         S(66) = -.1757520D-01
         E(67) = 0.4204781D+02
         S(67) = 0.1252540D-01
         E(68) = 0.2106922D+02
         S(68) = 0.9034000D-01
         E(69) = 0.1044792D+02
         S(69) = 0.1104721D+00
         E(70) = 0.4777658D+01
         S(70) = -.6121190D-01
         E(71) = 0.2282566D+01
         S(71) = -.2561768D+00
         E(72) = 0.1035303D+01
         S(72) = -.2603772D+00
         E(73) = 0.2576740D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1191790D+00
         S(74) = 0.1000000D+01
         E(75) = 0.5129400D-01
         S(75) = 0.1000000D+01
         E(76) = 0.2205977D+05
         P(76) = 0.5470000D-04
         E(77) = 0.5222313D+04
         P(77) = 0.4865000D-03
         E(78) = 0.1696060D+04
         P(78) = 0.2799000D-02
         E(79) = 0.6487657D+03
         P(79) = 0.1223960D-01
         E(80) = 0.2751027D+03
         P(80) = 0.4274760D-01
         E(81) = 0.1253463D+03
         P(81) = 0.1187187D+00
         E(82) = 0.6005433D+02
         P(82) = 0.2485828D+00
         E(83) = 0.2972377D+02
         P(83) = 0.3601622D+00
         E(84) = 0.1503978D+02
         P(84) = 0.2950171D+00
         E(85) = 0.7572273D+01
         P(85) = 0.9847940D-01
         E(86) = 0.3738676D+01
         P(86) = 0.8767100D-02
         E(87) = 0.1796788D+01
         P(87) = 0.1396100D-02
         E(88) = 0.8299100D+00
         P(88) = 0.7700000D-04
         E(89) = 0.2205977D+05
         P(89) = -.2070000D-04
         E(90) = 0.5222313D+04
         P(90) = -.1846000D-03
         E(91) = 0.1696060D+04
         P(91) = -.1064000D-02
         E(92) = 0.6487657D+03
         P(92) = -.4694600D-02
         E(93) = 0.2751027D+03
         P(93) = -.1664860D-01
         E(94) = 0.1253463D+03
         P(94) = -.4781140D-01
         E(95) = 0.6005433D+02
         P(95) = -.1045303D+00
         E(96) = 0.2972377D+02
         P(96) = -.1612965D+00
         E(97) = 0.1503978D+02
         P(97) = -.1143170D+00
         E(98) = 0.7572273D+01
         P(98) = 0.1459056D+00
         E(99) = 0.3738676D+01
         P(99) = 0.4271989D+00
         E(100) = 0.1796788D+01
         P(100) = 0.4240415D+00
         E(101) = 0.8299100D+00
         P(101) = 0.1599440D+00
         E(102) = 0.2205977D+05
         P(102) = 0.3400000D-05
         E(103) = 0.5222313D+04
         P(103) = 0.3000000D-04
         E(104) = 0.1696060D+04
         P(104) = 0.1750000D-03
         E(105) = 0.6487657D+03
         P(105) = 0.7642000D-03
         E(106) = 0.2751027D+03
         P(106) = 0.2745800D-02
         E(107) = 0.1253463D+03
         P(107) = 0.7814000D-02
         E(108) = 0.6005433D+02
         P(108) = 0.1742150D-01
         E(109) = 0.2972377D+02
         P(109) = 0.2648520D-01
         E(110) = 0.1503978D+02
         P(110) = 0.1939500D-01
         E(111) = 0.7572273D+01
         P(111) = -.3131290D-01
         E(112) = 0.3738676D+01
         P(112) = -.8016340D-01
         E(113) = 0.1796788D+01
         P(113) = -.1001729D+00
         E(114) = 0.8299100D+00
         P(114) = -.1058780D-01
         E(115) = 0.2728740D+00
         P(115) = 0.1000000D+01
         E(116) = 0.1015400D+00
         P(116) = 0.1000000D+01
         E(117) = 0.3765800D-01
         P(117) = 0.1000000D+01
         E(118) = 0.7664370D+03
         D(118) = 0.1745000D-03
         E(119) = 0.2310043D+03
         D(119) = 0.1657700D-02
         E(120) = 0.8978124D+02
         D(120) = 0.9289900D-02
         E(121) = 0.3954668D+02
         D(121) = 0.3489050D-01
         E(122) = 0.1860758D+02
         D(122) = 0.9634530D-01
         E(123) = 0.9151287D+01
         D(123) = 0.1955703D+00
         E(124) = 0.4565005D+01
         D(124) = 0.2835942D+00
         E(125) = 0.2253066D+01
         D(125) = 0.3082515D+00
         E(126) = 0.1086723D+01
         D(126) = 0.2519620D+00
         E(127) = 0.5033040D+00
         D(127) = 0.1000000D+01
         E(128) = 0.2122830D+00
         D(128) = 0.1000000D+01
         E(129) = 0.8280000D-01
         D(129) = 0.1000000D+01
         E(130) = 0.1810000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.4710000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.4032000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1086152D+09
         S(1) = 0.2400000D-06
         E(2) = 0.1626454D+08
         S(2) = 0.1860000D-05
         E(3) = 0.3700112D+07
         S(3) = 0.9800000D-05
         E(4) = 0.1047169D+07
         S(4) = 0.4152000D-04
         E(5) = 0.3410676D+06
         S(5) = 0.1520500D-03
         E(6) = 0.1227715D+06
         S(6) = 0.5007700D-03
         E(7) = 0.4765958D+05
         S(7) = 0.1518700D-02
         E(8) = 0.1963335D+05
         S(8) = 0.4302500D-02
         E(9) = 0.8488735D+04
         S(9) = 0.1145230D-01
         E(10) = 0.3823138D+04
         S(10) = 0.2856400D-01
         E(11) = 0.1784476D+04
         S(11) = 0.6574850D-01
         E(12) = 0.8600530D+03
         S(12) = 0.1352895D+00
         E(13) = 0.4266987D+03
         S(13) = 0.2345514D+00
         E(14) = 0.2172616D+03
         S(14) = 0.3078351D+00
         E(15) = 0.1129699D+03
         S(15) = 0.2529947D+00
         E(16) = 0.5944944D+02
         S(16) = 0.9601040D-01
         E(17) = 0.3078226D+02
         S(17) = 0.9788500D-02
         E(18) = 0.1642321D+02
         S(18) = 0.5912000D-03
         E(19) = 0.8757889D+01
         S(19) = -.5540000D-04
         E(20) = 0.4409629D+01
         S(20) = 0.1380000D-04
         E(21) = 0.2249449D+01
         S(21) = -.6420000D-04
         E(22) = 0.1126115D+01
         S(22) = 0.1690000D-04
         E(23) = 0.1086152D+09
         S(23) = -.7000000D-07
         E(24) = 0.1626454D+08
         S(24) = -.5800000D-06
         E(25) = 0.3700112D+07
         S(25) = -.3030000D-05
         E(26) = 0.1047169D+07
         S(26) = -.1287000D-04
         E(27) = 0.3410676D+06
         S(27) = -.4714000D-04
         E(28) = 0.1227715D+06
         S(28) = -.1553000D-03
         E(29) = 0.4765958D+05
         S(29) = -.4718000D-03
         E(30) = 0.1963335D+05
         S(30) = -.1340500D-02
         E(31) = 0.8488735D+04
         S(31) = -.3595500D-02
         E(32) = 0.3823138D+04
         S(32) = -.9101600D-02
         E(33) = 0.1784476D+04
         S(33) = -.2163600D-01
         E(34) = 0.8600530D+03
         S(34) = -.4733650D-01
         E(35) = 0.4266987D+03
         S(35) = -.9249970D-01
         E(36) = 0.2172616D+03
         S(36) = -.1504351D+00
         E(37) = 0.1129699D+03
         S(37) = -.1721227D+00
         E(38) = 0.5944944D+02
         S(38) = -.4401790D-01
         E(39) = 0.3078226D+02
         S(39) = 0.2973828D+00
         E(40) = 0.1642321D+02
         S(40) = 0.5279748D+00
         E(41) = 0.8757889D+01
         S(41) = 0.3008905D+00
         E(42) = 0.4409629D+01
         S(42) = 0.4588190D-01
         E(43) = 0.2249449D+01
         S(43) = 0.1282800D-02
         E(44) = 0.1126115D+01
         S(44) = 0.1258800D-02
         E(45) = 0.1086152D+09
         S(45) = 0.3000000D-07
         E(46) = 0.1626454D+08
         S(46) = 0.2200000D-06
         E(47) = 0.3700112D+07
         S(47) = 0.1160000D-05
         E(48) = 0.1047169D+07
         S(48) = 0.4910000D-05
         E(49) = 0.3410676D+06
         S(49) = 0.1798000D-04
         E(50) = 0.1227715D+06
         S(50) = 0.5920000D-04
         E(51) = 0.4765958D+05
         S(51) = 0.1801000D-03
         E(52) = 0.1963335D+05
         S(52) = 0.5114000D-03
         E(53) = 0.8488735D+04
         S(53) = 0.1374000D-02
         E(54) = 0.3823138D+04
         S(54) = 0.3481800D-02
         E(55) = 0.1784476D+04
         S(55) = 0.8316900D-02
         E(56) = 0.8600530D+03
         S(56) = 0.1831800D-01
         E(57) = 0.4266987D+03
         S(57) = 0.3639030D-01
         E(58) = 0.2172616D+03
         S(58) = 0.6080830D-01
         E(59) = 0.1129699D+03
         S(59) = 0.7329390D-01
         E(60) = 0.5944944D+02
         S(60) = 0.1974160D-01
         E(61) = 0.3078226D+02
         S(61) = -.1612970D+00
         E(62) = 0.1642321D+02
         S(62) = -.4021948D+00
         E(63) = 0.8757889D+01
         S(63) = -.2927248D+00
         E(64) = 0.4409629D+01
         S(64) = 0.2706942D+00
         E(65) = 0.2249449D+01
         S(65) = 0.6359759D+00
         E(66) = 0.1126115D+01
         S(66) = 0.3702489D+00
         E(67) = 0.1086152D+09
         S(67) = -.7000000D-08
         E(68) = 0.1626454D+08
         S(68) = -.5100000D-07
         E(69) = 0.3700112D+07
         S(69) = -.2700000D-06
         E(70) = 0.1047169D+07
         S(70) = -.1142000D-05
         E(71) = 0.3410676D+06
         S(71) = -.4183000D-05
         E(72) = 0.1227715D+06
         S(72) = -.1378100D-04
         E(73) = 0.4765958D+05
         S(73) = -.4188200D-04
         E(74) = 0.1963335D+05
         S(74) = -.1190230D-03
         E(75) = 0.8488735D+04
         S(75) = -.3196000D-03
         E(76) = 0.3823138D+04
         S(76) = -.8107000D-03
         E(77) = 0.1784476D+04
         S(77) = -.1936000D-02
         E(78) = 0.8600530D+03
         S(78) = -.4272200D-02
         E(79) = 0.4266987D+03
         S(79) = -.8494500D-02
         E(80) = 0.2172616D+03
         S(80) = -.1427090D-01
         E(81) = 0.1129699D+03
         S(81) = -.1726810D-01
         E(82) = 0.5944944D+02
         S(82) = -.4778200D-02
         E(83) = 0.3078226D+02
         S(83) = 0.3949270D-01
         E(84) = 0.1642321D+02
         S(84) = 0.1027200D+00
         E(85) = 0.8757889D+01
         S(85) = 0.7735290D-01
         E(86) = 0.4409629D+01
         S(86) = -.8495650D-01
         E(87) = 0.2249449D+01
         S(87) = -.2219834D+00
         E(88) = 0.1126115D+01
         S(88) = -.2532089D+00
         E(89) = 0.5154860D+00
         S(89) = 0.1000000D+01
         E(90) = 0.2425780D+00
         S(90) = 0.1000000D+01
         E(91) = 0.1070860D+00
         S(91) = 0.1000000D+01
         E(92) = 0.4698800D-01
         S(92) = 0.1000000D+01
         E(93) = 0.3215219D+05
         P(93) = 0.2830000D-04
         E(94) = 0.7609384D+04
         P(94) = 0.2529000D-03
         E(95) = 0.2471474D+04
         P(95) = 0.1468600D-02
         E(96) = 0.9460636D+03
         P(96) = 0.6562700D-02
         E(97) = 0.4019471D+03
         P(97) = 0.2380230D-01
         E(98) = 0.1836469D+03
         P(98) = 0.7089450D-01
         E(99) = 0.8853326D+02
         P(99) = 0.1676384D+00
         E(100) = 0.4427036D+02
         P(100) = 0.2959754D+00
         E(101) = 0.2272308D+02
         P(101) = 0.3488610D+00
         E(102) = 0.1182314D+02
         P(102) = 0.2175496D+00
         E(103) = 0.6042135D+01
         P(103) = 0.5205110D-01
         E(104) = 0.3031754D+01
         P(104) = 0.3437800D-02
         E(105) = 0.1493366D+01
         P(105) = 0.9833000D-03
         E(106) = 0.3215219D+05
         P(106) = -.1070000D-04
         E(107) = 0.7609384D+04
         P(107) = -.9580000D-04
         E(108) = 0.2471474D+04
         P(108) = -.5582000D-03
         E(109) = 0.9460636D+03
         P(109) = -.2504000D-02
         E(110) = 0.4019471D+03
         P(110) = -.9199600D-02
         E(111) = 0.1836469D+03
         P(111) = -.2799730D-01
         E(112) = 0.8853326D+02
         P(112) = -.6887460D-01
         E(113) = 0.4427036D+02
         P(113) = -.1273843D+00
         E(114) = 0.2272308D+02
         P(114) = -.1585889D+00
         E(115) = 0.1182314D+02
         P(115) = -.4249680D-01
         E(116) = 0.6042135D+01
         P(116) = 0.2441440D+00
         E(117) = 0.3031754D+01
         P(117) = 0.4459111D+00
         E(118) = 0.1493366D+01
         P(118) = 0.3529522D+00
         E(119) = 0.3215219D+05
         P(119) = 0.1700000D-05
         E(120) = 0.7609384D+04
         P(120) = 0.1580000D-04
         E(121) = 0.2471474D+04
         P(121) = 0.9080000D-04
         E(122) = 0.9460636D+03
         P(122) = 0.4120000D-03
         E(123) = 0.4019471D+03
         P(123) = 0.1498400D-02
         E(124) = 0.1836469D+03
         P(124) = 0.4625200D-02
         E(125) = 0.8853326D+02
         P(125) = 0.1127130D-01
         E(126) = 0.4427036D+02
         P(126) = 0.2132120D-01
         E(127) = 0.2272308D+02
         P(127) = 0.2595230D-01
         E(128) = 0.1182314D+02
         P(128) = 0.6632000D-02
         E(129) = 0.6042135D+01
         P(129) = -.5017040D-01
         E(130) = 0.3031754D+01
         P(130) = -.8429770D-01
         E(131) = 0.1493366D+01
         P(131) = -.9030230D-01
         E(132) = 0.7097270D+00
         P(132) = 0.1000000D+01
         E(133) = 0.2485930D+00
         P(133) = 0.1000000D+01
         E(134) = 0.9439500D-01
         P(134) = 0.1000000D+01
         E(135) = 0.3588700D-01
         P(135) = 0.1000000D+01
         E(136) = 0.1040505D+04
         D(136) = 0.8920000D-04
         E(137) = 0.3145971D+03
         D(137) = 0.8625000D-03
         E(138) = 0.1227876D+03
         D(138) = 0.5009400D-02
         E(139) = 0.5476037D+02
         D(139) = 0.1996490D-01
         E(140) = 0.2629894D+02
         D(140) = 0.5832140D-01
         E(141) = 0.1326345D+02
         D(141) = 0.1316868D+00
         E(142) = 0.6885065D+01
         D(142) = 0.2218676D+00
         E(143) = 0.3579525D+01
         D(143) = 0.2825059D+00
         E(144) = 0.1831564D+01
         D(144) = 0.2831989D+00
         E(145) = 0.9129090D+00
         D(145) = 0.1000000D+01
         E(146) = 0.4353400D+00
         D(146) = 0.1000000D+01
         E(147) = 0.1885180D+00
         D(147) = 0.1000000D+01
         E(148) = 0.7580000D-01
         D(148) = 0.1000000D+01
         E(149) = 0.1340000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.2826000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.5960000D+00
         F(151) = 0.1000000D+01
         E(152) = 0.2750000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.6146000D+00
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.4986000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C     ----- GE -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.5218000D+06
         S(1) = 0.2045000D-03
         E(2) = 0.7821400D+05
         S(2) = 0.1586800D-02
         E(3) = 0.1780300D+05
         S(3) = 0.8248000D-02
         E(4) = 0.5041900D+04
         S(4) = 0.3366490D-01
         E(5) = 0.1644500D+04
         S(5) = 0.1101249D+00
         E(6) = 0.5934300D+03
         S(6) = 0.2735607D+00
         E(7) = 0.2313600D+03
         S(7) = 0.4210670D+00
         E(8) = 0.9476200D+02
         S(8) = 0.2766791D+00
         E(9) = 0.2927400D+02
         S(9) = 0.2921800D-01
         E(10) = 0.1245000D+02
         S(10) = -.6590300D-02
         E(11) = 0.3646300D+01
         S(11) = 0.2243000D-02
         E(12) = 0.1502500D+01
         S(12) = -.1038200D-02
         E(13) = 0.2450300D+00
         S(13) = 0.2695000D-03
         E(14) = 0.5218000D+06
         S(14) = -.6380000D-04
         E(15) = 0.7821400D+05
         S(15) = -.4916000D-03
         E(16) = 0.1780300D+05
         S(16) = -.2600200D-02
         E(17) = 0.5041900D+04
         S(17) = -.1060800D-01
         E(18) = 0.1644500D+04
         S(18) = -.3716020D-01
         E(19) = 0.5934300D+03
         S(19) = -.1005790D+00
         E(20) = 0.2313600D+03
         S(20) = -.2143977D+00
         E(21) = 0.9476200D+02
         S(21) = -.1782617D+00
         E(22) = 0.2927400D+02
         S(22) = 0.4777404D+00
         E(23) = 0.1245000D+02
         S(23) = 0.6355983D+00
         E(24) = 0.3646300D+01
         S(24) = 0.7221740D-01
         E(25) = 0.1502500D+01
         S(25) = -.1272650D-01
         E(26) = 0.2450300D+00
         S(26) = 0.2960800D-02
         E(27) = 0.5218000D+06
         S(27) = 0.2460000D-04
         E(28) = 0.7821400D+05
         S(28) = 0.1900000D-03
         E(29) = 0.1780300D+05
         S(29) = 0.9993000D-03
         E(30) = 0.5041900D+04
         S(30) = 0.4120000D-02
         E(31) = 0.1644500D+04
         S(31) = 0.1435570D-01
         E(32) = 0.5934300D+03
         S(32) = 0.4003750D-01
         E(33) = 0.2313600D+03
         S(33) = 0.8657940D-01
         E(34) = 0.9476200D+02
         S(34) = 0.8158610D-01
         E(35) = 0.2927400D+02
         S(35) = -.2934770D+00
         E(36) = 0.1245000D+02
         S(36) = -.5367983D+00
         E(37) = 0.3646300D+01
         S(37) = 0.5637985D+00
         E(38) = 0.1502500D+01
         S(38) = 0.6947182D+00
         E(39) = 0.2450300D+00
         S(39) = 0.3157300D-01
         E(40) = 0.5218000D+06
         S(40) = -.6300000D-05
         E(41) = 0.7821400D+05
         S(41) = -.4860000D-04
         E(42) = 0.1780300D+05
         S(42) = -.2553000D-03
         E(43) = 0.5041900D+04
         S(43) = -.1056000D-02
         E(44) = 0.1644500D+04
         S(44) = -.3667400D-02
         E(45) = 0.5934300D+03
         S(45) = -.1030530D-01
         E(46) = 0.2313600D+03
         S(46) = -.2222000D-01
         E(47) = 0.9476200D+02
         S(47) = -.2152750D-01
         E(48) = 0.2927400D+02
         S(48) = 0.8067520D-01
         E(49) = 0.1245000D+02
         S(49) = 0.1524958D+00
         E(50) = 0.3646300D+01
         S(50) = -.1980528D+00
         E(51) = 0.1502500D+01
         S(51) = -.4073954D+00
         E(52) = 0.2450300D+00
         S(52) = 0.6477288D+00
         E(53) = 0.9159400D-01
         S(53) = 0.1000000D+01
         E(54) = 0.3568100D+04
         P(54) = 0.1459100D-02
         E(55) = 0.8457200D+03
         P(55) = 0.1221760D-01
         E(56) = 0.2727400D+03
         P(56) = 0.6104900D-01
         E(57) = 0.1026800D+03
         P(57) = 0.2008039D+00
         E(58) = 0.4214800D+02
         P(58) = 0.4038942D+00
         E(59) = 0.1814900D+02
         P(59) = 0.3970027D+00
         E(60) = 0.7593400D+01
         P(60) = 0.1105481D+00
         E(61) = 0.3196400D+01
         P(61) = 0.7680000D-04
         E(62) = 0.1274300D+01
         P(62) = 0.2126300D-02
         E(63) = 0.2825800D+00
         P(63) = -.3744000D-03
         E(64) = 0.3568100D+04
         P(64) = -.5630000D-03
         E(65) = 0.8457200D+03
         P(65) = -.4735400D-02
         E(66) = 0.2727400D+03
         P(66) = -.2426430D-01
         E(67) = 0.1026800D+03
         P(67) = -.8309000D-01
         E(68) = 0.4214800D+02
         P(68) = -.1800247D+00
         E(69) = 0.1814900D+02
         P(69) = -.1663295D+00
         E(70) = 0.7593400D+01
         P(70) = 0.2193717D+00
         E(71) = 0.3196400D+01
         P(71) = 0.5820239D+00
         E(72) = 0.1274300D+01
         P(72) = 0.3477720D+00
         E(73) = 0.2825800D+00
         P(73) = 0.1924550D-01
         E(74) = 0.3568100D+04
         P(74) = 0.1115000D-03
         E(75) = 0.8457200D+03
         P(75) = 0.9212000D-03
         E(76) = 0.2727400D+03
         P(76) = 0.4827300D-02
         E(77) = 0.1026800D+03
         P(77) = 0.1622720D-01
         E(78) = 0.4214800D+02
         P(78) = 0.3663540D-01
         E(79) = 0.1814900D+02
         P(79) = 0.3078670D-01
         E(80) = 0.7593400D+01
         P(80) = -.4806430D-01
         E(81) = 0.3196400D+01
         P(81) = -.1559804D+00
         E(82) = 0.1274300D+01
         P(82) = -.6323700D-01
         E(83) = 0.2825800D+00
         P(83) = 0.5040819D+00
         E(84) = 0.8409000D-01
         P(84) = 0.1000000D+01
         E(85) = 0.7476200D+02
         D(85) = 0.2576840D-01
         E(86) = 0.2130200D+02
         D(86) = 0.1454421D+00
         E(87) = 0.7343600D+01
         D(87) = 0.3713721D+00
         E(88) = 0.2565100D+01
         D(88) = 0.4800002D+00
         E(89) = 0.8197000D+00
         D(89) = 0.2896800D+00
         E(90) = 0.2470000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.7447967D+07
         S(1) = 0.7400000D-05
         E(2) = 0.1115318D+07
         S(2) = 0.5740000D-04
         E(3) = 0.2538426D+06
         S(3) = 0.3019000D-03
         E(4) = 0.7191529D+05
         S(4) = 0.1273300D-02
         E(5) = 0.2347018D+05
         S(5) = 0.4612300D-02
         E(6) = 0.8477492D+04
         S(6) = 0.1482140D-01
         E(7) = 0.3308391D+04
         S(7) = 0.4255360D-01
         E(8) = 0.1372605D+04
         S(8) = 0.1073055D+00
         E(9) = 0.5982201D+03
         S(9) = 0.2245178D+00
         E(10) = 0.2713860D+03
         S(10) = 0.3453131D+00
         E(11) = 0.1269780D+03
         S(11) = 0.3045261D+00
         E(12) = 0.6022207D+02
         S(12) = 0.9906700D-01
         E(13) = 0.2801858D+02
         S(13) = 0.4131700D-02
         E(14) = 0.1351752D+02
         S(14) = 0.1034700D-02
         E(15) = 0.6309406D+01
         S(15) = -.4856000D-03
         E(16) = 0.2904534D+01
         S(16) = 0.1805000D-03
         E(17) = 0.1287556D+01
         S(17) = -.9120000D-04
         E(18) = 0.1677320D+00
         S(18) = -.2660000D-04
         E(19) = 0.7447967D+07
         S(19) = -.2300000D-05
         E(20) = 0.1115318D+07
         S(20) = -.1790000D-04
         E(21) = 0.2538426D+06
         S(21) = -.9400000D-04
         E(22) = 0.7191529D+05
         S(22) = -.3964000D-03
         E(23) = 0.2347018D+05
         S(23) = -.1442500D-02
         E(24) = 0.8477492D+04
         S(24) = -.4667500D-02
         E(25) = 0.3308391D+04
         S(25) = -.1371530D-01
         E(26) = 0.1372605D+04
         S(26) = -.3617970D-01
         E(27) = 0.5982201D+03
         S(27) = -.8416790D-01
         E(28) = 0.2713860D+03
         S(28) = -.1588767D+00
         E(29) = 0.1269780D+03
         S(29) = -.2033807D+00
         E(30) = 0.6022207D+02
         S(30) = -.2514100D-01
         E(31) = 0.2801858D+02
         S(31) = 0.4575152D+00
         E(32) = 0.1351752D+02
         S(32) = 0.5571939D+00
         E(33) = 0.6309406D+01
         S(33) = 0.1397055D+00
         E(34) = 0.2904534D+01
         S(34) = 0.2264500D-02
         E(35) = 0.1287556D+01
         S(35) = 0.2092700D-02
         E(36) = 0.1677320D+00
         S(36) = 0.3281000D-03
         E(37) = 0.7447967D+07
         S(37) = 0.9000000D-06
         E(38) = 0.1115318D+07
         S(38) = 0.6900000D-05
         E(39) = 0.2538426D+06
         S(39) = 0.3620000D-04
         E(40) = 0.7191529D+05
         S(40) = 0.1528000D-03
         E(41) = 0.2347018D+05
         S(41) = 0.5563000D-03
         E(42) = 0.8477492D+04
         S(42) = 0.1801800D-02
         E(43) = 0.3308391D+04
         S(43) = 0.5308500D-02
         E(44) = 0.1372605D+04
         S(44) = 0.1408770D-01
         E(45) = 0.5982201D+03
         S(45) = 0.3320130D-01
         E(46) = 0.2713860D+03
         S(46) = 0.6446210D-01
         E(47) = 0.1269780D+03
         S(47) = 0.8695400D-01
         E(48) = 0.6022207D+02
         S(48) = 0.1187450D-01
         E(49) = 0.2801858D+02
         S(49) = -.2724534D+00
         E(50) = 0.1351752D+02
         S(50) = -.5001452D+00
         E(51) = 0.6309406D+01
         S(51) = 0.1085540D-01
         E(52) = 0.2904534D+01
         S(52) = 0.7216469D+00
         E(53) = 0.1287556D+01
         S(53) = 0.4805213D+00
         E(54) = 0.1677320D+00
         S(54) = -.1022970D-01
         E(55) = 0.7447967D+07
         S(55) = -.2000000D-06
         E(56) = 0.1115318D+07
         S(56) = -.1800000D-05
         E(57) = 0.2538426D+06
         S(57) = -.9300000D-05
         E(58) = 0.7191529D+05
         S(58) = -.3920000D-04
         E(59) = 0.2347018D+05
         S(59) = -.1426000D-03
         E(60) = 0.8477492D+04
         S(60) = -.4621000D-03
         E(61) = 0.3308391D+04
         S(61) = -.1361400D-02
         E(62) = 0.1372605D+04
         S(62) = -.3617500D-02
         E(63) = 0.5982201D+03
         S(63) = -.8535900D-02
         E(64) = 0.2713860D+03
         S(64) = -.1665060D-01
         E(65) = 0.1269780D+03
         S(65) = -.2259110D-01
         E(66) = 0.6022207D+02
         S(66) = -.3214700D-02
         E(67) = 0.2801858D+02
         S(67) = 0.7449980D-01
         E(68) = 0.1351752D+02
         S(68) = 0.1440333D+00
         E(69) = 0.6309406D+01
         S(69) = -.8081500D-02
         E(70) = 0.2904534D+01
         S(70) = -.2704163D+00
         E(71) = 0.1287556D+01
         S(71) = -.3401607D+00
         E(72) = 0.1677320D+00
         S(72) = 0.6190657D+00
         E(73) = 0.3365520D+00
         S(73) = 0.1000000D+01
         E(74) = 0.7106900D-01
         S(74) = 0.1000000D+01
         E(75) = 0.6979598D+04
         P(75) = 0.4569000D-03
         E(76) = 0.1654165D+04
         P(76) = 0.3956200D-02
         E(77) = 0.5360286D+03
         P(77) = 0.2131430D-01
         E(78) = 0.2035371D+03
         P(78) = 0.8187150D-01
         E(79) = 0.8523753D+02
         P(79) = 0.2223732D+00
         E(80) = 0.3784196D+02
         P(80) = 0.3905659D+00
         E(81) = 0.1740651D+02
         P(81) = 0.3560415D+00
         E(82) = 0.7881492D+01
         P(82) = 0.1070312D+00
         E(83) = 0.3533213D+01
         P(83) = 0.3694100D-02
         E(84) = 0.1521473D+01
         P(84) = 0.1921900D-02
         E(85) = 0.1990930D+00
         P(85) = 0.1917000D-03
         E(86) = 0.6979598D+04
         P(86) = -.1756000D-03
         E(87) = 0.1654165D+04
         P(87) = -.1530500D-02
         E(88) = 0.5360286D+03
         P(88) = -.8314500D-02
         E(89) = 0.2035371D+03
         P(89) = -.3287180D-01
         E(90) = 0.8523753D+02
         P(90) = -.9316610D-01
         E(91) = 0.3784196D+02
         P(91) = -.1755542D+00
         E(92) = 0.1740651D+02
         P(92) = -.1467912D+00
         E(93) = 0.7881492D+01
         P(93) = 0.1862934D+00
         E(94) = 0.3533213D+01
         P(94) = 0.5264862D+00
         E(95) = 0.1521473D+01
         P(95) = 0.3970859D+00
         E(96) = 0.1990930D+00
         P(96) = -.3347800D-02
         E(97) = 0.6979598D+04
         P(97) = 0.3480000D-04
         E(98) = 0.1654165D+04
         P(98) = 0.3014000D-03
         E(99) = 0.5360286D+03
         P(99) = 0.1648700D-02
         E(100) = 0.2035371D+03
         P(100) = 0.6498200D-02
         E(101) = 0.8523753D+02
         P(101) = 0.1863830D-01
         E(102) = 0.3784196D+02
         P(102) = 0.3506130D-01
         E(103) = 0.1740651D+02
         P(103) = 0.2958920D-01
         E(104) = 0.7881492D+01
         P(104) = -.4724580D-01
         E(105) = 0.3533213D+01
         P(105) = -.1249847D+00
         E(106) = 0.1521473D+01
         P(106) = -.1210801D+00
         E(107) = 0.1990930D+00
         P(107) = 0.5754730D+00
         E(108) = 0.5627040D+00
         P(108) = 0.1000000D+01
         E(109) = 0.6703100D-01
         P(109) = 0.1000000D+01
         E(110) = 0.2822391D+03
         D(110) = 0.1827500D-02
         E(111) = 0.8454996D+02
         D(111) = 0.1515450D-01
         E(112) = 0.3207366D+02
         D(112) = 0.6604600D-01
         E(113) = 0.1349750D+02
         D(113) = 0.1839470D+00
         E(114) = 0.5958550D+01
         D(114) = 0.3227872D+00
         E(115) = 0.2610788D+01
         D(115) = 0.3729459D+00
         E(116) = 0.1103987D+01
         D(116) = 0.2751730D+00
         E(117) = 0.4240490D+00
         D(117) = 0.1000000D+01
         E(118) = 0.1520000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.3458000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1236051D+08
         S(1) = 0.3900000D-05
         E(2) = 0.1850698D+07
         S(2) = 0.3050000D-04
         E(3) = 0.4211314D+06
         S(3) = 0.1605000D-03
         E(4) = 0.1192783D+06
         S(4) = 0.6776000D-03
         E(5) = 0.3891228D+05
         S(5) = 0.2463700D-02
         E(6) = 0.1404868D+05
         S(6) = 0.7983500D-02
         E(7) = 0.5480699D+04
         S(7) = 0.2337740D-01
         E(8) = 0.2274206D+04
         S(8) = 0.6157420D-01
         E(9) = 0.9922413D+03
         S(9) = 0.1415076D+00
         E(10) = 0.4509997D+03
         S(10) = 0.2646942D+00
         E(11) = 0.2118202D+03
         S(11) = 0.3483257D+00
         E(12) = 0.1014110D+03
         S(12) = 0.2454196D+00
         E(13) = 0.4691409D+02
         S(13) = 0.5356460D-01
         E(14) = 0.2350895D+02
         S(14) = -.1838000D-02
         E(15) = 0.1168131D+02
         S(15) = 0.1804900D-02
         E(16) = 0.5434526D+01
         S(16) = -.8476000D-03
         E(17) = 0.2608808D+01
         S(17) = 0.3668000D-03
         E(18) = 0.1198442D+01
         S(18) = -.1542000D-03
         E(19) = 0.1236051D+08
         S(19) = -.1200000D-05
         E(20) = 0.1850698D+07
         S(20) = -.9500000D-05
         E(21) = 0.4211314D+06
         S(21) = -.4990000D-04
         E(22) = 0.1192783D+06
         S(22) = -.2109000D-03
         E(23) = 0.3891228D+05
         S(23) = -.7686000D-03
         E(24) = 0.1404868D+05
         S(24) = -.2502500D-02
         E(25) = 0.5480699D+04
         S(25) = -.7425900D-02
         E(26) = 0.2274206D+04
         S(26) = -.2012490D-01
         E(27) = 0.9922413D+03
         S(27) = -.4929860D-01
         E(28) = 0.4509997D+03
         S(28) = -.1048683D+00
         E(29) = 0.2118202D+03
         S(29) = -.1783275D+00
         E(30) = 0.1014110D+03
         S(30) = -.1789581D+00
         E(31) = 0.4691409D+02
         S(31) = 0.8738420D-01
         E(32) = 0.2350895D+02
         S(32) = 0.5270920D+00
         E(33) = 0.1168131D+02
         S(33) = 0.4679551D+00
         E(34) = 0.5434526D+01
         S(34) = 0.8922060D-01
         E(35) = 0.2608808D+01
         S(35) = -.3423000D-03
         E(36) = 0.1198442D+01
         S(36) = 0.1914400D-02
         E(37) = 0.1236051D+08
         S(37) = 0.5000000D-06
         E(38) = 0.1850698D+07
         S(38) = 0.3700000D-05
         E(39) = 0.4211314D+06
         S(39) = 0.1920000D-04
         E(40) = 0.1192783D+06
         S(40) = 0.8130000D-04
         E(41) = 0.3891228D+05
         S(41) = 0.2965000D-03
         E(42) = 0.1404868D+05
         S(42) = 0.9648000D-03
         E(43) = 0.5480699D+04
         S(43) = 0.2871500D-02
         E(44) = 0.2274206D+04
         S(44) = 0.7797300D-02
         E(45) = 0.9922413D+03
         S(45) = 0.1929220D-01
         E(46) = 0.4509997D+03
         S(46) = 0.4162000D-01
         E(47) = 0.2118202D+03
         S(47) = 0.7353680D-01
         E(48) = 0.1014110D+03
         S(48) = 0.7783200D-01
         E(49) = 0.4691409D+02
         S(49) = -.4235820D-01
         E(50) = 0.2350895D+02
         S(50) = -.3447537D+00
         E(51) = 0.1168131D+02
         S(51) = -.4456713D+00
         E(52) = 0.5434526D+01
         S(52) = 0.1511544D+00
         E(53) = 0.2608808D+01
         S(53) = 0.7174295D+00
         E(54) = 0.1198442D+01
         S(54) = 0.4035634D+00
         E(55) = 0.1236051D+08
         S(55) = -.1000000D-06
         E(56) = 0.1850698D+07
         S(56) = -.9000000D-06
         E(57) = 0.4211314D+06
         S(57) = -.4900000D-05
         E(58) = 0.1192783D+06
         S(58) = -.2080000D-04
         E(59) = 0.3891228D+05
         S(59) = -.7610000D-04
         E(60) = 0.1404868D+05
         S(60) = -.2472000D-03
         E(61) = 0.5480699D+04
         S(61) = -.7373000D-03
         E(62) = 0.2274206D+04
         S(62) = -.1998100D-02
         E(63) = 0.9922413D+03
         S(63) = -.4964000D-02
         E(64) = 0.4509997D+03
         S(64) = -.1069300D-01
         E(65) = 0.2118202D+03
         S(65) = -.1908430D-01
         E(66) = 0.1014110D+03
         S(66) = -.2016430D-01
         E(67) = 0.4691409D+02
         S(67) = 0.1083620D-01
         E(68) = 0.2350895D+02
         S(68) = 0.9621100D-01
         E(69) = 0.1168131D+02
         S(69) = 0.1279979D+00
         E(70) = 0.5434526D+01
         S(70) = -.5060650D-01
         E(71) = 0.2608808D+01
         S(71) = -.2852917D+00
         E(72) = 0.1198442D+01
         S(72) = -.3065359D+00
         E(73) = 0.3298080D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1554330D+00
         S(74) = 0.1000000D+01
         E(75) = 0.6691300D-01
         S(75) = 0.1000000D+01
         E(76) = 0.2401747D+05
         P(76) = 0.5310000D-04
         E(77) = 0.5685717D+04
         P(77) = 0.4720000D-03
         E(78) = 0.1846486D+04
         P(78) = 0.2718700D-02
         E(79) = 0.7062498D+03
         P(79) = 0.1191450D-01
         E(80) = 0.2994561D+03
         P(80) = 0.4176250D-01
         E(81) = 0.1364390D+03
         P(81) = 0.1165894D+00
         E(82) = 0.6539015D+02
         P(82) = 0.2458338D+00
         E(83) = 0.3239373D+02
         P(83) = 0.3591261D+00
         E(84) = 0.1641562D+02
         P(84) = 0.2977929D+00
         E(85) = 0.8287787D+01
         P(85) = 0.1017708D+00
         E(86) = 0.4112634D+01
         P(86) = 0.9407200D-02
         E(87) = 0.1998854D+01
         P(87) = 0.1435000D-02
         E(88) = 0.9442910D+00
         P(88) = 0.3540000D-04
         E(89) = 0.2401747D+05
         P(89) = -.2040000D-04
         E(90) = 0.5685717D+04
         P(90) = -.1818000D-03
         E(91) = 0.1846486D+04
         P(91) = -.1049100D-02
         E(92) = 0.7062498D+03
         P(92) = -.4639200D-02
         E(93) = 0.2994561D+03
         P(93) = -.1650900D-01
         E(94) = 0.1364390D+03
         P(94) = -.4766090D-01
         E(95) = 0.6539015D+02
         P(95) = -.1049678D+00
         E(96) = 0.3239373D+02
         P(96) = -.1633745D+00
         E(97) = 0.1641562D+02
         P(97) = -.1180998D+00
         E(98) = 0.8287787D+01
         P(98) = 0.1420178D+00
         E(99) = 0.4112634D+01
         P(99) = 0.4274324D+00
         E(100) = 0.1998854D+01
         P(100) = 0.4256167D+00
         E(101) = 0.9442910D+00
         P(101) = 0.1582034D+00
         E(102) = 0.2401747D+05
         P(102) = 0.4000000D-05
         E(103) = 0.5685717D+04
         P(103) = 0.3570000D-04
         E(104) = 0.1846486D+04
         P(104) = 0.2080000D-03
         E(105) = 0.7062498D+03
         P(105) = 0.9121000D-03
         E(106) = 0.2994561D+03
         P(106) = 0.3282300D-02
         E(107) = 0.1364390D+03
         P(107) = 0.9413900D-02
         E(108) = 0.6539015D+02
         P(108) = 0.2109170D-01
         E(109) = 0.3239373D+02
         P(109) = 0.3250000D-01
         E(110) = 0.1641562D+02
         P(110) = 0.2399720D-01
         E(111) = 0.8287787D+01
         P(111) = -.3711860D-01
         E(112) = 0.4112634D+01
         P(112) = -.9881300D-01
         E(113) = 0.1998854D+01
         P(113) = -.1235659D+00
         E(114) = 0.9442910D+00
         P(114) = -.1101330D-01
         E(115) = 0.3412110D+00
         P(115) = 0.1000000D+01
         E(116) = 0.1343500D+00
         P(116) = 0.1000000D+01
         E(117) = 0.5173500D-01
         P(117) = 0.1000000D+01
         E(118) = 0.8646741D+03
         D(118) = 0.1645000D-03
         E(119) = 0.2610376D+03
         D(119) = 0.1565400D-02
         E(120) = 0.1017703D+03
         D(120) = 0.8795400D-02
         E(121) = 0.4511664D+02
         D(121) = 0.3318520D-01
         E(122) = 0.2143069D+02
         D(122) = 0.9195370D-01
         E(123) = 0.1065986D+02
         D(123) = 0.1892017D+00
         E(124) = 0.5392287D+01
         D(124) = 0.2805892D+00
         E(125) = 0.2704497D+01
         D(125) = 0.3117474D+00
         E(126) = 0.1328544D+01
         D(126) = 0.2554197D+00
         E(127) = 0.6264520D+00
         D(127) = 0.1000000D+01
         E(128) = 0.2660130D+00
         D(128) = 0.1000000D+01
         E(129) = 0.1063000D+00
         D(129) = 0.1000000D+01
         E(130) = 0.5492000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.2190000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.4681000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1220012D+09
         S(1) = 0.2200000D-06
         E(2) = 0.1825747D+08
         S(2) = 0.1750000D-05
         E(3) = 0.4150822D+07
         S(3) = 0.9200000D-05
         E(4) = 0.1174102D+07
         S(4) = 0.3899000D-04
         E(5) = 0.3823092D+06
         S(5) = 0.1428000D-03
         E(6) = 0.1376080D+06
         S(6) = 0.4703000D-03
         E(7) = 0.5341924D+05
         S(7) = 0.1426700D-02
         E(8) = 0.2200576D+05
         S(8) = 0.4043400D-02
         E(9) = 0.9513848D+04
         S(9) = 0.1077320D-01
         E(10) = 0.4284176D+04
         S(10) = 0.2692730D-01
         E(11) = 0.1999166D+04
         S(11) = 0.6223740D-01
         E(12) = 0.9632472D+03
         S(12) = 0.1290382D+00
         E(13) = 0.4778050D+03
         S(13) = 0.2267312D+00
         E(14) = 0.2433159D+03
         S(14) = 0.3048903D+00
         E(15) = 0.1266400D+03
         S(15) = 0.2617662D+00
         E(16) = 0.6678358D+02
         S(16) = 0.1076348D+00
         E(17) = 0.3441608D+02
         S(17) = 0.1262340D-01
         E(18) = 0.1837281D+02
         S(18) = 0.3918000D-03
         E(19) = 0.9805461D+01
         S(19) = 0.8120000D-04
         E(20) = 0.4969403D+01
         S(20) = -.4890000D-04
         E(21) = 0.2548623D+01
         S(21) = -.3170000D-04
         E(22) = 0.1284594D+01
         S(22) = -.1090000D-05
         E(23) = 0.1220012D+09
         S(23) = -.7000000D-07
         E(24) = 0.1825747D+08
         S(24) = -.5400000D-06
         E(25) = 0.4150822D+07
         S(25) = -.2860000D-05
         E(26) = 0.1174102D+07
         S(26) = -.1213000D-04
         E(27) = 0.3823092D+06
         S(27) = -.4443000D-04
         E(28) = 0.1376080D+06
         S(28) = -.1464000D-03
         E(29) = 0.5341924D+05
         S(29) = -.4447000D-03
         E(30) = 0.2200576D+05
         S(30) = -.1263700D-02
         E(31) = 0.9513848D+04
         S(31) = -.3392000D-02
         E(32) = 0.4284176D+04
         S(32) = -.8597900D-02
         E(33) = 0.1999166D+04
         S(33) = -.2049640D-01
         E(34) = 0.9632472D+03
         S(34) = -.4505710D-01
         E(35) = 0.4778050D+03
         S(35) = -.8879220D-01
         E(36) = 0.2433159D+03
         S(36) = -.1466299D+00
         E(37) = 0.1266400D+03
         S(37) = -.1743140D+00
         E(38) = 0.6678358D+02
         S(38) = -.6116560D-01
         E(39) = 0.3441608D+02
         S(39) = 0.2716690D+00
         E(40) = 0.1837281D+02
         S(40) = 0.5280226D+00
         E(41) = 0.9805461D+01
         S(41) = 0.3240138D+00
         E(42) = 0.4969403D+01
         S(42) = 0.5441770D-01
         E(43) = 0.2548623D+01
         S(43) = 0.1446300D-02
         E(44) = 0.1284594D+01
         S(44) = 0.1424800D-02
         E(45) = 0.1220012D+09
         S(45) = 0.3000000D-07
         E(46) = 0.1825747D+08
         S(46) = 0.2100000D-06
         E(47) = 0.4150822D+07
         S(47) = 0.1100000D-05
         E(48) = 0.1174102D+07
         S(48) = 0.4670000D-05
         E(49) = 0.3823092D+06
         S(49) = 0.1713000D-04
         E(50) = 0.1376080D+06
         S(50) = 0.5640000D-04
         E(51) = 0.5341924D+05
         S(51) = 0.1715000D-03
         E(52) = 0.2200576D+05
         S(52) = 0.4872000D-03
         E(53) = 0.9513848D+04
         S(53) = 0.1309700D-02
         E(54) = 0.4284176D+04
         S(54) = 0.3323200D-02
         E(55) = 0.1999166D+04
         S(55) = 0.7959100D-02
         E(56) = 0.9632472D+03
         S(56) = 0.1760970D-01
         E(57) = 0.4778050D+03
         S(57) = 0.3525760D-01
         E(58) = 0.2433159D+03
         S(58) = 0.5976870D-01
         E(59) = 0.1266400D+03
         S(59) = 0.7474060D-01
         E(60) = 0.6678358D+02
         S(60) = 0.2778630D-01
         E(61) = 0.3441608D+02
         S(61) = -.1472878D+00
         E(62) = 0.1837281D+02
         S(62) = -.3974202D+00
         E(63) = 0.9805461D+01
         S(63) = -.3205666D+00
         E(64) = 0.4969403D+01
         S(64) = 0.2331968D+00
         E(65) = 0.2548623D+01
         S(65) = 0.6424890D+00
         E(66) = 0.1284594D+01
         S(66) = 0.3966684D+00
         E(67) = 0.1220012D+09
         S(67) = -.7000000D-08
         E(68) = 0.1825747D+08
         S(68) = -.5400000D-07
         E(69) = 0.4150822D+07
         S(69) = -.2830000D-06
         E(70) = 0.1174102D+07
         S(70) = -.1120000D-05
         E(71) = 0.3823092D+06
         S(71) = -.4391000D-05
         E(72) = 0.1376080D+06
         S(72) = -.1446100D-04
         E(73) = 0.5341924D+05
         S(73) = -.4396500D-04
         E(74) = 0.2200576D+05
         S(74) = -.1249000D-03
         E(75) = 0.9513848D+04
         S(75) = -.3358000D-03
         E(76) = 0.4284176D+04
         S(76) = -.8525000D-03
         E(77) = 0.1999166D+04
         S(77) = -.2042400D-02
         E(78) = 0.9632472D+03
         S(78) = -.4524500D-02
         E(79) = 0.4778050D+03
         S(79) = -.9074400D-02
         E(80) = 0.2433159D+03
         S(80) = -.1544830D-01
         E(81) = 0.1266400D+03
         S(81) = -.1943380D-01
         E(82) = 0.6678358D+02
         S(82) = -.7328900D-02
         E(83) = 0.3441608D+02
         S(83) = 0.3964850D-01
         E(84) = 0.1837281D+02
         S(84) = 0.1121796D+00
         E(85) = 0.9805461D+01
         S(85) = 0.9356860D-01
         E(86) = 0.4969403D+01
         S(86) = -.8064590D-01
         E(87) = 0.2548623D+01
         S(87) = -.2501109D+00
         E(88) = 0.1284594D+01
         S(88) = -.2978099D+00
         E(89) = 0.5833530D+00
         S(89) = 0.1000000D+01
         E(90) = 0.2934390D+00
         S(90) = 0.1000000D+01
         E(91) = 0.1326720D+00
         S(91) = 0.1000000D+01
         E(92) = 0.5923900D-01
         S(92) = 0.1000000D+01
         E(93) = 0.3231497D+05
         P(93) = 0.3160000D-04
         E(94) = 0.7648200D+04
         P(94) = 0.2820000D-03
         E(95) = 0.2484211D+04
         P(95) = 0.1635300D-02
         E(96) = 0.9510031D+03
         P(96) = 0.7286400D-02
         E(97) = 0.4040483D+03
         P(97) = 0.2629310D-01
         E(98) = 0.1846035D+03
         P(98) = 0.7759430D-01
         E(99) = 0.8896413D+02
         P(99) = 0.1803653D+00
         E(100) = 0.4444774D+02
         P(100) = 0.3095354D+00
         E(101) = 0.2279907D+02
         P(101) = 0.3454752D+00
         E(102) = 0.1183593D+02
         P(102) = 0.1963290D+00
         E(103) = 0.6011294D+01
         P(103) = 0.4090680D-01
         E(104) = 0.2995784D+01
         P(104) = 0.2419700D-02
         E(105) = 0.1469570D+01
         P(105) = 0.8003000D-03
         E(106) = 0.3231497D+05
         P(106) = -.1220000D-04
         E(107) = 0.7648200D+04
         P(107) = -.1084000D-03
         E(108) = 0.2484211D+04
         P(108) = -.6311000D-03
         E(109) = 0.9510031D+03
         P(109) = -.2824300D-02
         E(110) = 0.4040483D+03
         P(110) = -.1033170D-01
         E(111) = 0.1846035D+03
         P(111) = -.3121020D-01
         E(112) = 0.8896413D+02
         P(112) = -.7559540D-01
         E(113) = 0.4444774D+02
         P(113) = -.1362944D+00
         E(114) = 0.2279907D+02
         P(114) = -.1590150D+00
         E(115) = 0.1183593D+02
         P(115) = -.1498050D-01
         E(116) = 0.6011294D+01
         P(116) = 0.2868225D+00
         E(117) = 0.2995784D+01
         P(117) = 0.4626656D+00
         E(118) = 0.1469570D+01
         P(118) = 0.3168505D+00
         E(119) = 0.3231497D+05
         P(119) = 0.2400000D-05
         E(120) = 0.7648200D+04
         P(120) = 0.2140000D-04
         E(121) = 0.2484211D+04
         P(121) = 0.1243000D-03
         E(122) = 0.9510031D+03
         P(122) = 0.5589000D-03
         E(123) = 0.4040483D+03
         P(123) = 0.2038300D-02
         E(124) = 0.1846035D+03
         P(124) = 0.6201600D-02
         E(125) = 0.8896413D+02
         P(125) = 0.1501060D-01
         E(126) = 0.4444774D+02
         P(126) = 0.2741270D-01
         E(127) = 0.2279907D+02
         P(127) = 0.3177960D-01
         E(128) = 0.1183593D+02
         P(128) = 0.9228000D-03
         E(129) = 0.6011294D+01
         P(129) = -.6983420D-01
         E(130) = 0.2995784D+01
         P(130) = -.1119600D+00
         E(131) = 0.1469570D+01
         P(131) = -.9935650D-01
         E(132) = 0.6906810D+00
         P(132) = 0.1000000D+01
         E(133) = 0.2861600D+00
         P(133) = 0.1000000D+01
         E(134) = 0.1177420D+00
         P(134) = 0.1000000D+01
         E(135) = 0.4738500D-01
         P(135) = 0.1000000D+01
         E(136) = 0.1226798D+04
         D(136) = 0.7630000D-04
         E(137) = 0.3712322D+03
         D(137) = 0.7425000D-03
         E(138) = 0.1448910D+03
         D(138) = 0.4375600D-02
         E(139) = 0.6460413D+02
         D(139) = 0.1792570D-01
         E(140) = 0.3103974D+02
         D(140) = 0.5392530D-01
         E(141) = 0.1564387D+02
         D(141) = 0.1257191D+00
         E(142) = 0.8125822D+01
         D(142) = 0.2191566D+00
         E(143) = 0.4239762D+01
         D(143) = 0.2860662D+00
         E(144) = 0.2186386D+01
         D(144) = 0.2896504D+00
         E(145) = 0.1103871D+01
         D(145) = 0.1000000D+01
         E(146) = 0.5338110D+00
         D(146) = 0.1000000D+01
         E(147) = 0.2313550D+00
         D(147) = 0.1000000D+01
         E(148) = 0.9530000D-01
         D(148) = 0.1000000D+01
         E(149) = 0.1630000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.3297000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.6709000D+00
         F(151) = 0.1000000D+01
         E(152) = 0.3160000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.7034000D+00
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.5815000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C     ----- AS  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.5595838D+06
         S(1) = 0.2024000D-03
         E(2) = 0.8387933D+05
         S(2) = 0.1570900D-02
         E(3) = 0.1909267D+05
         S(3) = 0.8166200D-02
         E(4) = 0.5407392D+04
         S(4) = 0.3333990D-01
         E(5) = 0.1763756D+04
         S(5) = 0.1091726D+00
         E(6) = 0.6364567D+03
         S(6) = 0.2718853D+00
         E(7) = 0.2480884D+03
         S(7) = 0.4208509D+00
         E(8) = 0.1015785D+03
         S(8) = 0.2792257D+00
         E(9) = 0.3147551D+02
         S(9) = 0.3003010D-01
         E(10) = 0.1343728D+02
         S(10) = -.6880400D-02
         E(11) = 0.4008690D+01
         S(11) = 0.2424000D-02
         E(12) = 0.1684929D+01
         S(12) = -.1149100D-02
         E(13) = 0.3000190D+00
         S(13) = 0.3095000D-03
         E(14) = 0.5595838D+06
         S(14) = -.6340000D-04
         E(15) = 0.8387933D+05
         S(15) = -.4883000D-03
         E(16) = 0.1909267D+05
         S(16) = -.2582100D-02
         E(17) = 0.5407392D+04
         S(17) = -.1054020D-01
         E(18) = 0.1763756D+04
         S(18) = -.3693250D-01
         E(19) = 0.6364567D+03
         S(19) = -.1002355D+00
         E(20) = 0.2480884D+03
         S(20) = -.2142948D+00
         E(21) = 0.1015785D+03
         S(21) = -.1810526D+00
         E(22) = 0.3147551D+02
         S(22) = 0.4725410D+00
         E(23) = 0.1343728D+02
         S(23) = 0.6386194D+00
         E(24) = 0.4008690D+01
         S(24) = 0.7581070D-01
         E(25) = 0.1684929D+01
         S(25) = -.1352780D-01
         E(26) = 0.3000190D+00
         S(26) = 0.3197000D-02
         E(27) = 0.5595838D+06
         S(27) = 0.2460000D-04
         E(28) = 0.8387933D+05
         S(28) = 0.1907000D-03
         E(29) = 0.1909267D+05
         S(29) = 0.1003100D-02
         E(30) = 0.5407392D+04
         S(30) = 0.4135300D-02
         E(31) = 0.1763756D+04
         S(31) = 0.1442590D-01
         E(32) = 0.6364567D+03
         S(32) = 0.4029620D-01
         E(33) = 0.2480884D+03
         S(33) = 0.8756700D-01
         E(34) = 0.1015785D+03
         S(34) = 0.8351780D-01
         E(35) = 0.3147551D+02
         S(35) = -.2932935D+00
         E(36) = 0.1343728D+02
         S(36) = -.5470520D+00
         E(37) = 0.4008690D+01
         S(37) = 0.5438738D+00
         E(38) = 0.1684929D+01
         S(38) = 0.7143591D+00
         E(39) = 0.3000190D+00
         S(39) = 0.3534430D-01
         E(40) = 0.5595838D+06
         S(40) = -.6800000D-05
         E(41) = 0.8387933D+05
         S(41) = -.5250000D-04
         E(42) = 0.1909267D+05
         S(42) = -.2756000D-03
         E(43) = 0.5407392D+04
         S(43) = -.1138900D-02
         E(44) = 0.1763756D+04
         S(44) = -.3964600D-02
         E(45) = 0.6364567D+03
         S(45) = -.1114230D-01
         E(46) = 0.2480884D+03
         S(46) = -.2419910D-01
         E(47) = 0.1015785D+03
         S(47) = -.2363390D-01
         E(48) = 0.3147551D+02
         S(48) = 0.8663170D-01
         E(49) = 0.1343728D+02
         S(49) = 0.1685839D+00
         E(50) = 0.4008690D+01
         S(50) = -.2091425D+00
         E(51) = 0.1684929D+01
         S(51) = -.4500918D+00
         E(52) = 0.3000190D+00
         S(52) = 0.6603978D+00
         E(53) = 0.1135870D+00
         S(53) = 0.1000000D+01
         E(54) = 0.3886356D+04
         P(54) = 0.1409700D-02
         E(55) = 0.9212020D+03
         P(55) = 0.1182770D-01
         E(56) = 0.2971932D+03
         P(56) = 0.5932800D-01
         E(57) = 0.1119751D+03
         P(57) = 0.1965115D+00
         E(58) = 0.4603462D+02
         P(58) = 0.3997891D+00
         E(59) = 0.1987419D+02
         P(59) = 0.4004653D+00
         E(60) = 0.8386088D+01
         P(60) = 0.1164196D+00
         E(61) = 0.3558728D+01
         P(61) = 0.6918000D-03
         E(62) = 0.1447282D+01
         P(62) = 0.2163300D-02
         E(63) = 0.3477790D+00
         P(63) = -.4150000D-03
         E(64) = 0.3886356D+04
         P(64) = -.5519000D-03
         E(65) = 0.9212020D+03
         P(65) = -.4655000D-02
         E(66) = 0.2971932D+03
         P(66) = -.2391760D-01
         E(67) = 0.1119751D+03
         P(67) = -.8256270D-01
         E(68) = 0.4603462D+02
         P(68) = -.1806791D+00
         E(69) = 0.1987419D+02
         P(69) = -.1724848D+00
         E(70) = 0.8386088D+01
         P(70) = 0.2086700D+00
         E(71) = 0.3558728D+01
         P(71) = 0.5823622D+00
         E(72) = 0.1447282D+01
         P(72) = 0.3537465D+00
         E(73) = 0.3477790D+00
         P(73) = 0.2064390D-01
         E(74) = 0.3886356D+04
         P(74) = 0.1236000D-03
         E(75) = 0.9212020D+03
         P(75) = 0.1024000D-02
         E(76) = 0.2971932D+03
         P(76) = 0.5380500D-02
         E(77) = 0.1119751D+03
         P(77) = 0.1824430D-01
         E(78) = 0.4603462D+02
         P(78) = 0.4159790D-01
         E(79) = 0.1987419D+02
         P(79) = 0.3629980D-01
         E(80) = 0.8386088D+01
         P(80) = -.5235690D-01
         E(81) = 0.3558728D+01
         P(81) = -.1791667D+00
         E(82) = 0.1447282D+01
         P(82) = -.7404770D-01
         E(83) = 0.3477790D+00
         P(83) = 0.5358094D+00
         E(84) = 0.1076990D+00
         P(84) = 0.1000000D+01
         E(85) = 0.8442423D+02
         D(85) = 0.2452880D-01
         E(86) = 0.2418159D+02
         D(86) = 0.1411340D+00
         E(87) = 0.8401777D+01
         D(87) = 0.3687579D+00
         E(88) = 0.2980502D+01
         D(88) = 0.4840626D+00
         E(89) = 0.9790030D+00
         D(89) = 0.2824434D+00
         E(90) = 0.3098000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.8482340D+07
         S(1) = 0.6800000D-05
         E(2) = 0.1270151D+07
         S(2) = 0.5280000D-04
         E(3) = 0.2890570D+06
         S(3) = 0.2774000D-03
         E(4) = 0.8187985D+05
         S(4) = 0.1170200D-02
         E(5) = 0.2671656D+05
         S(5) = 0.4242100D-02
         E(6) = 0.9647584D+04
         S(6) = 0.1365570D-01
         E(7) = 0.3764119D+04
         S(7) = 0.3933990D-01
         E(8) = 0.1561566D+04
         S(8) = 0.9992920D-01
         E(9) = 0.6808147D+03
         S(9) = 0.2121555D+00
         E(10) = 0.3092412D+03
         S(10) = 0.3363866D+00
         E(11) = 0.1452574D+03
         S(11) = 0.3155125D+00
         E(12) = 0.6973905D+02
         S(12) = 0.1181312D+00
         E(13) = 0.3177032D+02
         S(13) = 0.8007600D-02
         E(14) = 0.1539176D+02
         S(14) = 0.3293000D-03
         E(15) = 0.7341526D+01
         S(15) = -.1523000D-03
         E(16) = 0.3323716D+01
         S(16) = 0.2470000D-04
         E(17) = 0.1485867D+01
         S(17) = -.3660000D-04
         E(18) = 0.2115000D+00
         S(18) = -.9400000D-05
         E(19) = 0.8482340D+07
         S(19) = -.2100000D-05
         E(20) = 0.1270151D+07
         S(20) = -.1650000D-04
         E(21) = 0.2890570D+06
         S(21) = -.8660000D-04
         E(22) = 0.8187985D+05
         S(22) = -.3653000D-03
         E(23) = 0.2671656D+05
         S(23) = -.1330900D-02
         E(24) = 0.9647584D+04
         S(24) = -.4309300D-02
         E(25) = 0.3764119D+04
         S(25) = -.1269730D-01
         E(26) = 0.1561566D+04
         S(26) = -.3361600D-01
         E(27) = 0.6808147D+03
         S(27) = -.7894700D-01
         E(28) = 0.3092412D+03
         S(28) = -.1514458D+00
         E(29) = 0.1452574D+03
         S(29) = -.2042014D+00
         E(30) = 0.6973905D+02
         S(30) = -.5573670D-01
         E(31) = 0.3177032D+02
         S(31) = 0.4187607D+00
         E(32) = 0.1539176D+02
         S(32) = 0.5758762D+00
         E(33) = 0.7341526D+01
         S(33) = 0.1696842D+00
         E(34) = 0.3323716D+01
         S(34) = 0.6066200D-02
         E(35) = 0.1485867D+01
         S(35) = 0.1760500D-02
         E(36) = 0.2115000D+00
         S(36) = 0.2316000D-03
         E(37) = 0.8482340D+07
         S(37) = 0.8000000D-06
         E(38) = 0.1270151D+07
         S(38) = 0.6400000D-05
         E(39) = 0.2890570D+06
         S(39) = 0.3370000D-04
         E(40) = 0.8187985D+05
         S(40) = 0.1423000D-03
         E(41) = 0.2671656D+05
         S(41) = 0.5188000D-03
         E(42) = 0.9647584D+04
         S(42) = 0.1680200D-02
         E(43) = 0.3764119D+04
         S(43) = 0.4967700D-02
         E(44) = 0.1561566D+04
         S(44) = 0.1321150D-01
         E(45) = 0.6808147D+03
         S(45) = 0.3145660D-01
         E(46) = 0.3092412D+03
         S(46) = 0.6184460D-01
         E(47) = 0.1452574D+03
         S(47) = 0.8795660D-01
         E(48) = 0.6973905D+02
         S(48) = 0.2575480D-01
         E(49) = 0.3177032D+02
         S(49) = -.2455459D+00
         E(50) = 0.1539176D+02
         S(50) = -.5090572D+00
         E(51) = 0.7341526D+01
         S(51) = -.5557490D-01
         E(52) = 0.3323716D+01
         S(52) = 0.7083796D+00
         E(53) = 0.1485867D+01
         S(53) = 0.5231027D+00
         E(54) = 0.2115000D+00
         S(54) = -.1111760D-01
         E(55) = 0.8482340D+07
         S(55) = -.2000000D-06
         E(56) = 0.1270151D+07
         S(56) = -.1800000D-05
         E(57) = 0.2890570D+06
         S(57) = -.9300000D-05
         E(58) = 0.8187985D+05
         S(58) = -.3920000D-04
         E(59) = 0.2671656D+05
         S(59) = -.1429000D-03
         E(60) = 0.9647584D+04
         S(60) = -.4629000D-03
         E(61) = 0.3764119D+04
         S(61) = -.1368700D-02
         E(62) = 0.1561566D+04
         S(62) = -.3644000D-02
         E(63) = 0.6808147D+03
         S(63) = -.8688400D-02
         E(64) = 0.3092412D+03
         S(64) = -.1715560D-01
         E(65) = 0.1452574D+03
         S(65) = -.2455140D-01
         E(66) = 0.6973905D+02
         S(66) = -.7352400D-02
         E(67) = 0.3177032D+02
         S(67) = 0.7200870D-01
         E(68) = 0.1539176D+02
         S(68) = 0.1576254D+00
         E(69) = 0.7341526D+01
         S(69) = 0.1420740D-01
         E(70) = 0.3323716D+01
         S(70) = -.2851593D+00
         E(71) = 0.1485867D+01
         S(71) = -.3885347D+00
         E(72) = 0.2115000D+00
         S(72) = 0.6495337D+00
         E(73) = 0.4210860D+00
         S(73) = 0.1000000D+01
         E(74) = 0.8897400D-01
         S(74) = 0.1000000D+01
         E(75) = 0.7423861D+04
         P(75) = 0.4599000D-03
         E(76) = 0.1759517D+04
         P(76) = 0.3982300D-02
         E(77) = 0.5702292D+03
         P(77) = 0.2146380D-01
         E(78) = 0.2165800D+03
         P(78) = 0.8246170D-01
         E(79) = 0.9073425D+02
         P(79) = 0.2238902D+00
         E(80) = 0.4030879D+02
         P(80) = 0.3920704D+00
         E(81) = 0.1855550D+02
         P(81) = 0.3542238D+00
         E(82) = 0.8396543D+01
         P(82) = 0.1048641D+00
         E(83) = 0.3767367D+01
         P(83) = 0.3366400D-02
         E(84) = 0.1629701D+01
         P(84) = 0.1849500D-02
         E(85) = 0.2225030D+00
         P(85) = 0.2297000D-03
         E(86) = 0.7423861D+04
         P(86) = -.1794000D-03
         E(87) = 0.1759517D+04
         P(87) = -.1564100D-02
         E(88) = 0.5702292D+03
         P(88) = -.8499900D-02
         E(89) = 0.2165800D+03
         P(89) = -.3363270D-01
         E(90) = 0.9073425D+02
         P(90) = -.9532280D-01
         E(91) = 0.4030879D+02
         P(91) = -.1793626D+00
         E(92) = 0.1855550D+02
         P(92) = -.1466682D+00
         E(93) = 0.8396543D+01
         P(93) = 0.1966016D+00
         E(94) = 0.3767367D+01
         P(94) = 0.5372088D+00
         E(95) = 0.1629701D+01
         P(95) = 0.3857361D+00
         E(96) = 0.2225030D+00
         P(96) = -.5400600D-02
         E(97) = 0.7423861D+04
         P(97) = 0.3990000D-04
         E(98) = 0.1759517D+04
         P(98) = 0.3488000D-03
         E(99) = 0.5702292D+03
         P(99) = 0.1895300D-02
         E(100) = 0.2165800D+03
         P(100) = 0.7532500D-02
         E(101) = 0.9073425D+02
         P(101) = 0.2143150D-01
         E(102) = 0.4030879D+02
         P(102) = 0.4078070D-01
         E(103) = 0.1855550D+02
         P(103) = 0.3252490D-01
         E(104) = 0.8396543D+01
         P(104) = -.5488320D-01
         E(105) = 0.3767367D+01
         P(105) = -.1511922D+00
         E(106) = 0.1629701D+01
         P(106) = -.1249011D+00
         E(107) = 0.2225030D+00
         P(107) = 0.5855293D+00
         E(108) = 0.5682630D+00
         P(108) = 0.1000000D+01
         E(109) = 0.8040500D-01
         P(109) = 0.1000000D+01
         E(110) = 0.3210196D+03
         D(110) = 0.1684000D-02
         E(111) = 0.9624931D+02
         D(111) = 0.1415860D-01
         E(112) = 0.3664496D+02
         D(112) = 0.6282590D-01
         E(113) = 0.1549396D+02
         D(113) = 0.1784993D+00
         E(114) = 0.6891138D+01
         D(114) = 0.3209452D+00
         E(115) = 0.3054831D+01
         D(115) = 0.3773515D+00
         E(116) = 0.1314241D+01
         D(116) = 0.2750231D+00
         E(117) = 0.5134300D+00
         D(117) = 0.1000000D+01
         E(118) = 0.1877000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.4158000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1360034D+08
         S(1) = 0.3800000D-05
         E(2) = 0.2036507D+07
         S(2) = 0.2920000D-04
         E(3) = 0.4634328D+06
         S(3) = 0.1538000D-03
         E(4) = 0.1312599D+06
         S(4) = 0.6496000D-03
         E(5) = 0.4281919D+05
         S(5) = 0.2362500D-02
         E(6) = 0.1545702D+05
         S(6) = 0.7660900D-02
         E(7) = 0.6028458D+04
         S(7) = 0.2246720D-01
         E(8) = 0.2500560D+04
         S(8) = 0.5934250D-01
         E(9) = 0.1090615D+04
         S(9) = 0.1371015D+00
         E(10) = 0.4956215D+03
         S(10) = 0.2589472D+00
         E(11) = 0.2328167D+03
         S(11) = 0.3472847D+00
         E(12) = 0.1116312D+03
         S(12) = 0.2534247D+00
         E(13) = 0.5226995D+02
         S(13) = 0.5962660D-01
         E(14) = 0.2614988D+02
         S(14) = -.1186100D-02
         E(15) = 0.1301876D+02
         S(15) = 0.1779100D-02
         E(16) = 0.6155432D+01
         S(16) = -.8455000D-03
         E(17) = 0.2959127D+01
         S(17) = 0.3660000D-03
         E(18) = 0.1373874D+01
         S(18) = -.1622000D-03
         E(19) = 0.1360034D+08
         S(19) = -.1200000D-05
         E(20) = 0.2036507D+07
         S(20) = -.9100000D-05
         E(21) = 0.4634328D+06
         S(21) = -.4800000D-04
         E(22) = 0.1312599D+06
         S(22) = -.2028000D-03
         E(23) = 0.4281919D+05
         S(23) = -.7392000D-03
         E(24) = 0.1545702D+05
         S(24) = -.2408900D-02
         E(25) = 0.6028458D+04
         S(25) = -.7153800D-02
         E(26) = 0.2500560D+04
         S(26) = -.1943330D-01
         E(27) = 0.1090615D+04
         S(27) = -.4774710D-01
         E(28) = 0.4956215D+03
         S(28) = -.1022639D+00
         E(29) = 0.2328167D+03
         S(29) = -.1758326D+00
         E(30) = 0.1116312D+03
         S(30) = -.1837494D+00
         E(31) = 0.5226995D+02
         S(31) = 0.6482760D-01
         E(32) = 0.2614988D+02
         S(32) = 0.5109281D+00
         E(33) = 0.1301876D+02
         S(33) = 0.4873143D+00
         E(34) = 0.6155432D+01
         S(34) = 0.1033636D+00
         E(35) = 0.2959127D+01
         S(35) = 0.6355000D-03
         E(36) = 0.1373874D+01
         S(36) = 0.1976600D-02
         E(37) = 0.1360034D+08
         S(37) = 0.5000000D-06
         E(38) = 0.2036507D+07
         S(38) = 0.3600000D-05
         E(39) = 0.4634328D+06
         S(39) = 0.1870000D-04
         E(40) = 0.1312599D+06
         S(40) = 0.7900000D-04
         E(41) = 0.4281919D+05
         S(41) = 0.2881000D-03
         E(42) = 0.1545702D+05
         S(42) = 0.9386000D-03
         E(43) = 0.6028458D+04
         S(43) = 0.2794600D-02
         E(44) = 0.2500560D+04
         S(44) = 0.7609800D-02
         E(45) = 0.1090615D+04
         S(45) = 0.1886990D-01
         E(46) = 0.4956215D+03
         S(46) = 0.4100630D-01
         E(47) = 0.2328167D+03
         S(47) = 0.7312750D-01
         E(48) = 0.1116312D+03
         S(48) = 0.8071940D-01
         E(49) = 0.5226995D+02
         S(49) = -.3163000D-01
         E(50) = 0.2614988D+02
         S(50) = -.3317376D+00
         E(51) = 0.1301876D+02
         S(51) = -.4638221D+00
         E(52) = 0.6155432D+01
         S(52) = 0.1036990D+00
         E(53) = 0.2959127D+01
         S(53) = 0.7182986D+00
         E(54) = 0.1373874D+01
         S(54) = 0.4353305D+00
         E(55) = 0.1360034D+08
         S(55) = -.1000000D-06
         E(56) = 0.2036507D+07
         S(56) = -.1000000D-05
         E(57) = 0.4634328D+06
         S(57) = -.5200000D-05
         E(58) = 0.1312599D+06
         S(58) = -.2170000D-04
         E(59) = 0.4281919D+05
         S(59) = -.7940000D-04
         E(60) = 0.1545702D+05
         S(60) = -.2583000D-03
         E(61) = 0.6028458D+04
         S(61) = -.7709000D-03
         E(62) = 0.2500560D+04
         S(62) = -.2094600D-02
         E(63) = 0.1090615D+04
         S(63) = -.5216400D-02
         E(64) = 0.4956215D+03
         S(64) = -.1131630D-01
         E(65) = 0.2328167D+03
         S(65) = -.2039350D-01
         E(66) = 0.1116312D+03
         S(66) = -.2246640D-01
         E(67) = 0.5226995D+02
         S(67) = 0.8559000D-02
         E(68) = 0.2614988D+02
         S(68) = 0.9956920D-01
         E(69) = 0.1301876D+02
         S(69) = 0.1434501D+00
         E(70) = 0.6155432D+01
         S(70) = -.3719010D-01
         E(71) = 0.2959127D+01
         S(71) = -.3085368D+00
         E(72) = 0.1373874D+01
         S(72) = -.3478649D+00
         E(73) = 0.4088500D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1945110D+00
         S(74) = 0.1000000D+01
         E(75) = 0.8364100D-01
         S(75) = 0.1000000D+01
         E(76) = 0.2557042D+05
         P(76) = 0.5330000D-04
         E(77) = 0.6052924D+04
         P(77) = 0.4744000D-03
         E(78) = 0.1965700D+04
         P(78) = 0.2733000D-02
         E(79) = 0.7517723D+03
         P(79) = 0.1198710D-01
         E(80) = 0.3186814D+03
         P(80) = 0.4207660D-01
         E(81) = 0.1451475D+03
         P(81) = 0.1175891D+00
         E(82) = 0.6954116D+02
         P(82) = 0.2478747D+00
         E(83) = 0.3445138D+02
         P(83) = 0.3605148D+00
         E(84) = 0.1746061D+02
         P(84) = 0.2955921D+00
         E(85) = 0.8808609D+01
         P(85) = 0.9921630D-01
         E(86) = 0.4378646D+01
         P(86) = 0.8786600D-02
         E(87) = 0.2144405D+01
         P(87) = 0.1446200D-02
         E(88) = 0.1029350D+01
         P(88) = -.4470000D-04
         E(89) = 0.2557042D+05
         P(89) = -.2080000D-04
         E(90) = 0.6052924D+04
         P(90) = -.1855000D-03
         E(91) = 0.1965700D+04
         P(91) = -.1070400D-02
         E(92) = 0.7517723D+03
         P(92) = -.4739200D-02
         E(93) = 0.3186814D+03
         P(93) = -.1688850D-01
         E(94) = 0.1451475D+03
         P(94) = -.4884450D-01
         E(95) = 0.6954116D+02
         P(95) = -.1075989D+00
         E(96) = 0.3445138D+02
         P(96) = -.1669376D+00
         E(97) = 0.1746061D+02
         P(97) = -.1169214D+00
         E(98) = 0.8808609D+01
         P(98) = 0.1514505D+00
         E(99) = 0.4378646D+01
         P(99) = 0.4371731D+00
         E(100) = 0.2144405D+01
         P(100) = 0.4197078D+00
         E(101) = 0.1029350D+01
         P(101) = 0.1437636D+00
         E(102) = 0.2557042D+05
         P(102) = 0.4600000D-05
         E(103) = 0.6052924D+04
         P(103) = 0.4120000D-04
         E(104) = 0.1965700D+04
         P(104) = 0.2393000D-03
         E(105) = 0.7517723D+03
         P(105) = 0.1053100D-02
         E(106) = 0.3186814D+03
         P(106) = 0.3786300D-02
         E(107) = 0.1451475D+03
         P(107) = 0.1091010D-01
         E(108) = 0.6954116D+02
         P(108) = 0.2438530D-01
         E(109) = 0.3445138D+02
         P(109) = 0.3764820D-01
         E(110) = 0.1746061D+02
         P(110) = 0.2651370D-01
         E(111) = 0.8808609D+01
         P(111) = -.4454640D-01
         E(112) = 0.4378646D+01
         P(112) = -.1167681D+00
         E(113) = 0.2144405D+01
         P(113) = -.1409441D+00
         E(114) = 0.1029350D+01
         P(114) = -.1212100D-02
         E(115) = 0.4046360D+00
         P(115) = 0.1000000D+01
         E(116) = 0.1656220D+00
         P(116) = 0.1000000D+01
         E(117) = 0.6561000D-01
         P(117) = 0.1000000D+01
         E(118) = 0.9969796D+03
         D(118) = 0.1462000D-03
         E(119) = 0.3009852D+03
         D(119) = 0.1403400D-02
         E(120) = 0.1172347D+03
         D(120) = 0.8019500D-02
         E(121) = 0.5195690D+02
         D(121) = 0.3100480D-01
         E(122) = 0.2468944D+02
         D(122) = 0.8784780D-01
         E(123) = 0.1229517D+02
         D(123) = 0.1852250D+00
         E(124) = 0.6244652D+01
         D(124) = 0.2808251D+00
         E(125) = 0.3155460D+01
         D(125) = 0.3163198D+00
         E(126) = 0.1568049D+01
         D(126) = 0.2571192D+00
         E(127) = 0.7486470D+00
         D(127) = 0.1000000D+01
         E(128) = 0.3191250D+00
         D(128) = 0.1000000D+01
         E(129) = 0.1300000D+00
         D(129) = 0.1000000D+01
         E(130) = 0.2640000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.6440000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.5465000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1375075D+09
         S(1) = 0.2100000D-06
         E(2) = 0.2051505D+08
         S(2) = 0.1630000D-05
         E(3) = 0.4648716D+07
         S(3) = 0.8650000D-05
         E(4) = 0.1311265D+07
         S(4) = 0.3676000D-04
         E(5) = 0.4261859D+06
         S(5) = 0.1348800D-03
         E(6) = 0.1532371D+06
         S(6) = 0.4446000D-03
         E(7) = 0.5945940D+05
         S(7) = 0.1348800D-02
         E(8) = 0.2449281D+05
         S(8) = 0.3823100D-02
         E(9) = 0.1059025D+05
         S(9) = 0.1019080D-01
         E(10) = 0.4769784D+04
         S(10) = 0.2550270D-01
         E(11) = 0.2226370D+04
         S(11) = 0.5911040D-01
         E(12) = 0.1073086D+04
         S(12) = 0.1232888D+00
         E(13) = 0.5325006D+03
         S(13) = 0.2191743D+00
         E(14) = 0.2712976D+03
         S(14) = 0.3013612D+00
         E(15) = 0.1413119D+03
         S(15) = 0.2694892D+00
         E(16) = 0.7458443D+02
         S(16) = 0.1191270D+00
         E(17) = 0.3829834D+02
         S(17) = 0.1569800D-01
         E(18) = 0.2046913D+02
         S(18) = 0.2047000D-03
         E(19) = 0.1093958D+02
         S(19) = 0.2236000D-03
         E(20) = 0.5590367D+01
         S(20) = -.1168000D-03
         E(21) = 0.2882859D+01
         S(21) = 0.4190000D-05
         E(22) = 0.1466086D+01
         S(22) = -.2167000D-04
         E(23) = 0.1375075D+09
         S(23) = -.7000000D-07
         E(24) = 0.2051505D+08
         S(24) = -.5100000D-06
         E(25) = 0.4648716D+07
         S(25) = -.2700000D-05
         E(26) = 0.1311265D+07
         S(26) = -.1147000D-04
         E(27) = 0.4261859D+06
         S(27) = -.4210000D-04
         E(28) = 0.1532371D+06
         S(28) = -.1388000D-03
         E(29) = 0.5945940D+05
         S(29) = -.4218000D-03
         E(30) = 0.2449281D+05
         S(30) = -.1198400D-02
         E(31) = 0.1059025D+05
         S(31) = -.3217400D-02
         E(32) = 0.4769784D+04
         S(32) = -.8159800D-02
         E(33) = 0.2226370D+04
         S(33) = -.1948340D-01
         E(34) = 0.1073086D+04
         S(34) = -.4297870D-01
         E(35) = 0.5325006D+03
         S(35) = -.8529870D-01
         E(36) = 0.2712976D+03
         S(36) = -.1428402D+00
         E(37) = 0.1413119D+03
         S(37) = -.1757282D+00
         E(38) = 0.7458443D+02
         S(38) = -.7641270D-01
         E(39) = 0.3829834D+02
         S(39) = 0.2466575D+00
         E(40) = 0.2046913D+02
         S(40) = 0.5253824D+00
         E(41) = 0.1093958D+02
         S(41) = 0.3459724D+00
         E(42) = 0.5590367D+01
         S(42) = 0.6395330D-01
         E(43) = 0.2882859D+01
         S(43) = 0.1829900D-02
         E(44) = 0.1466086D+01
         S(44) = 0.1564500D-02
         E(45) = 0.1375075D+09
         S(45) = 0.3000000D-07
         E(46) = 0.2051505D+08
         S(46) = 0.2000000D-06
         E(47) = 0.4648716D+07
         S(47) = 0.1050000D-05
         E(48) = 0.1311265D+07
         S(48) = 0.4470000D-05
         E(49) = 0.4261859D+06
         S(49) = 0.1640000D-04
         E(50) = 0.1532371D+06
         S(50) = 0.5404000D-04
         E(51) = 0.5945940D+05
         S(51) = 0.1643000D-03
         E(52) = 0.2449281D+05
         S(52) = 0.4669000D-03
         E(53) = 0.1059025D+05
         S(53) = 0.1255200D-02
         E(54) = 0.4769784D+04
         S(54) = 0.3186900D-02
         E(55) = 0.2226370D+04
         S(55) = 0.7643200D-02
         E(56) = 0.1073086D+04
         S(56) = 0.1696690D-01
         E(57) = 0.5325006D+03
         S(57) = 0.3419090D-01
         E(58) = 0.2712976D+03
         S(58) = 0.5872870D-01
         E(59) = 0.1413119D+03
         S(59) = 0.7588560D-01
         E(60) = 0.7458443D+02
         S(60) = 0.3506140D-01
         E(61) = 0.3829834D+02
         S(61) = -.1338623D+00
         E(62) = 0.2046913D+02
         S(62) = -.3913634D+00
         E(63) = 0.1093958D+02
         S(63) = -.3462820D+00
         E(64) = 0.5590367D+01
         S(64) = 0.1941327D+00
         E(65) = 0.2882859D+01
         S(65) = 0.6451986D+00
         E(66) = 0.1466086D+01
         S(66) = 0.4234813D+00
         E(67) = 0.1375075D+09
         S(67) = -.7000000D-08
         E(68) = 0.2051505D+08
         S(68) = -.5500000D-07
         E(69) = 0.4648716D+07
         S(69) = -.2890000D-06
         E(70) = 0.1311265D+07
         S(70) = -.1230000D-05
         E(71) = 0.4261859D+06
         S(71) = -.4517000D-05
         E(72) = 0.1532371D+06
         S(72) = -.1488400D-04
         E(73) = 0.5945940D+05
         S(73) = -.4526500D-04
         E(74) = 0.2449281D+05
         S(74) = -.1285820D-03
         E(75) = 0.1059025D+05
         S(75) = -.3458010D-03
         E(76) = 0.4769784D+04
         S(76) = -.8780310D-03
         E(77) = 0.2226370D+04
         S(77) = -.2107300D-02
         E(78) = 0.1073086D+04
         S(78) = -.4681700D-02
         E(79) = 0.5325006D+03
         S(79) = -.9455800D-02
         E(80) = 0.2712976D+03
         S(80) = -.1629900D-01
         E(81) = 0.1413119D+03
         S(81) = -.2121380D-01
         E(82) = 0.7458443D+02
         S(82) = -.9894400D-02
         E(83) = 0.3829834D+02
         S(83) = 0.3863790D-01
         E(84) = 0.2046913D+02
         S(84) = 0.1188893D+00
         E(85) = 0.1093958D+02
         S(85) = 0.1088990D+00
         E(86) = 0.5590367D+01
         S(86) = -.7220790D-01
         E(87) = 0.2882859D+01
         S(87) = -.2718000D+00
         E(88) = 0.1466086D+01
         S(88) = -.3371662D+00
         E(89) = 0.6748390D+00
         S(89) = 0.1000000D+01
         E(90) = 0.3463990D+00
         S(90) = 0.1000000D+01
         E(91) = 0.1592890D+00
         S(91) = 0.1000000D+01
         E(92) = 0.7210900D-01
         S(92) = 0.1000000D+01
         E(93) = 0.3416616D+05
         P(93) = 0.3220000D-04
         E(94) = 0.8086561D+04
         P(94) = 0.2868000D-03
         E(95) = 0.2626511D+04
         P(95) = 0.1663300D-02
         E(96) = 0.1005395D+04
         P(96) = 0.7412500D-02
         E(97) = 0.4271273D+03
         P(97) = 0.2675120D-01
         E(98) = 0.1951511D+03
         P(98) = 0.7889440D-01
         E(99) = 0.9405431D+02
         P(99) = 0.1829916D+00
         E(100) = 0.4699988D+02
         P(100) = 0.3124941D+00
         E(101) = 0.2411746D+02
         P(101) = 0.3445322D+00
         E(102) = 0.1251998D+02
         P(102) = 0.1916436D+00
         E(103) = 0.6357325D+01
         P(103) = 0.3871360D-01
         E(104) = 0.3168052D+01
         P(104) = 0.2241800D-02
         E(105) = 0.1553481D+01
         P(105) = 0.7209000D-03
         E(106) = 0.3416616D+05
         P(106) = -.1260000D-04
         E(107) = 0.8086561D+04
         P(107) = -.1119000D-03
         E(108) = 0.2626511D+04
         P(108) = -.6516000D-03
         E(109) = 0.1005395D+04
         P(109) = -.2917300D-02
         E(110) = 0.4271273D+03
         P(110) = -.1067380D-01
         E(111) = 0.1951511D+03
         P(111) = -.3224550D-01
         E(112) = 0.9405431D+02
         P(112) = -.7797310D-01
         E(113) = 0.4699988D+02
         P(113) = -.1401038D+00
         E(114) = 0.2411746D+02
         P(114) = -.1607132D+00
         E(115) = 0.1251998D+02
         P(115) = -.7670300D-02
         E(116) = 0.6357325D+01
         P(116) = 0.3007983D+00
         E(117) = 0.3168052D+01
         P(117) = 0.4715878D+00
         E(118) = 0.1553481D+01
         P(118) = 0.3032064D+00
         E(119) = 0.3416616D+05
         P(119) = 0.2800000D-05
         E(120) = 0.8086561D+04
         P(120) = 0.2490000D-04
         E(121) = 0.2626511D+04
         P(121) = 0.1451000D-03
         E(122) = 0.1005395D+04
         P(122) = 0.6504000D-03
         E(123) = 0.4271273D+03
         P(123) = 0.2381800D-02
         E(124) = 0.1951511D+03
         P(124) = 0.7220700D-02
         E(125) = 0.9405431D+02
         P(125) = 0.1753180D-01
         E(126) = 0.4699988D+02
         P(126) = 0.3174140D-01
         E(127) = 0.2411746D+02
         P(127) = 0.3654490D-01
         E(128) = 0.1251998D+02
         P(128) = -.1602400D-02
         E(129) = 0.6357325D+01
         P(129) = -.8246440D-01
         E(130) = 0.3168052D+01
         P(130) = -.1344372D+00
         E(131) = 0.1553481D+01
         P(131) = -.1051686D+00
         E(132) = 0.7103250D+00
         P(132) = 0.1000000D+01
         E(133) = 0.3209550D+00
         P(133) = 0.1000000D+01
         E(134) = 0.1393570D+00
         P(134) = 0.1000000D+01
         E(135) = 0.5841000D-01
         P(135) = 0.1000000D+01
         E(136) = 0.1424451D+04
         D(136) = 0.6660000D-04
         E(137) = 0.4310668D+03
         D(137) = 0.6537000D-03
         E(138) = 0.1681286D+03
         D(138) = 0.3904100D-02
         E(139) = 0.7486672D+02
         D(139) = 0.1639190D-01
         E(140) = 0.3594586D+02
         D(140) = 0.5062320D-01
         E(141) = 0.1809847D+02
         D(141) = 0.1211021D+00
         E(142) = 0.9405780D+01
         D(142) = 0.2168169D+00
         E(143) = 0.4923904D+01
         D(143) = 0.2887452D+00
         E(144) = 0.2556493D+01
         D(144) = 0.2947769D+00
         E(145) = 0.1304233D+01
         D(145) = 0.1000000D+01
         E(146) = 0.6371180D+00
         D(146) = 0.1000000D+01
         E(147) = 0.2757950D+00
         D(147) = 0.1000000D+01
         E(148) = 0.1153000D+00
         D(148) = 0.1000000D+01
         E(149) = 0.1960000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.3859000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.7599000D+00
         F(151) = 0.1000000D+01
         E(152) = 0.3700000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.8092000D+00
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.6773000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C     ----- SE  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.5989900D+06
         S(1) = 0.2004000D-03
         E(2) = 0.8978300D+05
         S(2) = 0.1555400D-02
         E(3) = 0.2043500D+05
         S(3) = 0.8087200D-02
         E(4) = 0.5786900D+04
         S(4) = 0.3303440D-01
         E(5) = 0.1887300D+04
         S(5) = 0.1082924D+00
         E(6) = 0.6809700D+03
         S(6) = 0.2703361D+00
         E(7) = 0.2653900D+03
         S(7) = 0.4206236D+00
         E(8) = 0.1086300D+03
         S(8) = 0.2815922D+00
         E(9) = 0.3376000D+02
         S(9) = 0.3081100D-01
         E(10) = 0.1446500D+02
         S(10) = -.7161700D-02
         E(11) = 0.4389000D+01
         S(11) = 0.2602200D-02
         E(12) = 0.1878300D+01
         S(12) = -.1258300D-02
         E(13) = 0.3585900D+00
         S(13) = 0.3465000D-03
         E(14) = 0.5989900D+06
         S(14) = -.6290000D-04
         E(15) = 0.8978300D+05
         S(15) = -.4850000D-03
         E(16) = 0.2043500D+05
         S(16) = -.2564400D-02
         E(17) = 0.5786900D+04
         S(17) = -.1047610D-01
         E(18) = 0.1887300D+04
         S(18) = -.3672230D-01
         E(19) = 0.6809700D+03
         S(19) = -.9992250D-01
         E(20) = 0.2653900D+03
         S(20) = -.2141973D+00
         E(21) = 0.1086300D+03
         S(21) = -.1836593D+00
         E(22) = 0.3376000D+02
         S(22) = 0.4675454D+00
         E(23) = 0.1446500D+02
         S(23) = 0.6414740D+00
         E(24) = 0.4389000D+01
         S(24) = 0.7925690D-01
         E(25) = 0.1878300D+01
         S(25) = -.1426970D-01
         E(26) = 0.3585900D+00
         S(26) = 0.3379200D-02
         E(27) = 0.5989900D+06
         S(27) = 0.2470000D-04
         E(28) = 0.8978300D+05
         S(28) = 0.1913000D-03
         E(29) = 0.2043500D+05
         S(29) = 0.1006800D-02
         E(30) = 0.5786900D+04
         S(30) = 0.4151400D-02
         E(31) = 0.1887300D+04
         S(31) = 0.1449910D-01
         E(32) = 0.6809700D+03
         S(32) = 0.4056580D-01
         E(33) = 0.2653900D+03
         S(33) = 0.8853640D-01
         E(34) = 0.1086300D+03
         S(34) = 0.8542120D-01
         E(35) = 0.3376000D+02
         S(35) = -.2932581D+00
         E(36) = 0.1446500D+02
         S(36) = -.5570727D+00
         E(37) = 0.4389000D+01
         S(37) = 0.5261436D+00
         E(38) = 0.1878300D+01
         S(38) = 0.7320371D+00
         E(39) = 0.3585900D+00
         S(39) = 0.3882460D-01
         E(40) = 0.5989900D+06
         S(40) = -.7200000D-05
         E(41) = 0.8978300D+05
         S(41) = -.5590000D-04
         E(42) = 0.2043500D+05
         S(42) = -.2938000D-03
         E(43) = 0.5786900D+04
         S(43) = -.1213600D-02
         E(44) = 0.1887300D+04
         S(44) = -.4234000D-02
         E(45) = 0.6809700D+03
         S(45) = -.1190350D-01
         E(46) = 0.2653900D+03
         S(46) = -.2602060D-01
         E(47) = 0.1086300D+03
         S(47) = -.2561480D-01
         E(48) = 0.3376000D+02
         S(48) = 0.9194270D-01
         E(49) = 0.1446500D+02
         S(49) = 0.1838700D+00
         E(50) = 0.4389000D+01
         S(50) = -.2188461D+00
         E(51) = 0.1878300D+01
         S(51) = -.4896524D+00
         E(52) = 0.3585900D+00
         S(52) = 0.6775818D+00
         E(53) = 0.1364900D+00
         S(53) = 0.1000000D+01
         E(54) = 0.4135600D+04
         P(54) = 0.1412700D-02
         E(55) = 0.9803400D+03
         P(55) = 0.1185880D-01
         E(56) = 0.3163500D+03
         P(56) = 0.5951530D-01
         E(57) = 0.1192500D+03
         P(57) = 0.1972201D+00
         E(58) = 0.4906800D+02
         P(58) = 0.4007439D+00
         E(59) = 0.2121200D+02
         P(59) = 0.3994740D+00
         E(60) = 0.8946200D+01
         P(60) = 0.1153364D+00
         E(61) = 0.3823600D+01
         P(61) = 0.2219000D-03
         E(62) = 0.1588300D+01
         P(62) = 0.2283800D-02
         E(63) = 0.4096900D+00
         P(63) = -.4756000D-03
         E(64) = 0.4135600D+04
         P(64) = -.5610000D-03
         E(65) = 0.9803400D+03
         P(65) = -.4734000D-02
         E(66) = 0.3163500D+03
         P(66) = -.2435040D-01
         E(67) = 0.1192500D+03
         P(67) = -.8410710D-01
         E(68) = 0.4906800D+02
         P(68) = -.1841384D+00
         E(69) = 0.2121200D+02
         P(69) = -.1735004D+00
         E(70) = 0.8946200D+01
         P(70) = 0.2167263D+00
         E(71) = 0.3823600D+01
         P(71) = 0.5850099D+00
         E(72) = 0.1588300D+01
         P(72) = 0.3416816D+00
         E(73) = 0.4096900D+00
         P(73) = 0.1991250D-01
         E(74) = 0.4135600D+04
         P(74) = 0.1366000D-03
         E(75) = 0.9803400D+03
         P(75) = 0.1130800D-02
         E(76) = 0.3163500D+03
         P(76) = 0.5958100D-02
         E(77) = 0.1192500D+03
         P(77) = 0.2018660D-01
         E(78) = 0.4906800D+02
         P(78) = 0.4619390D-01
         E(79) = 0.2121200D+02
         P(79) = 0.3940500D-01
         E(80) = 0.8946200D+01
         P(80) = -.5928460D-01
         E(81) = 0.3823600D+01
         P(81) = -.2014663D+00
         E(82) = 0.1588300D+01
         P(82) = -.6878210D-01
         E(83) = 0.4096900D+00
         P(83) = 0.5595944D+00
         E(84) = 0.1245900D+00
         P(84) = 0.1000000D+01
         E(85) = 0.9447200D+02
         D(85) = 0.2349820D-01
         E(86) = 0.2718000D+02
         D(86) = 0.1375183D+00
         E(87) = 0.9506800D+01
         D(87) = 0.3664824D+00
         E(88) = 0.3416800D+01
         D(88) = 0.4874717D+00
         E(89) = 0.1147900D+01
         D(89) = 0.2765769D+00
         E(90) = 0.3682000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.9563600D+07
         S(1) = 0.6300000D-05
         E(2) = 0.1432100D+07
         S(2) = 0.4890000D-04
         E(3) = 0.3259100D+06
         S(3) = 0.2574000D-03
         E(4) = 0.9231200D+05
         S(4) = 0.1086100D-02
         E(5) = 0.3011600D+05
         S(5) = 0.3939900D-02
         E(6) = 0.1087200D+05
         S(6) = 0.1270410D-01
         E(7) = 0.4240100D+04
         S(7) = 0.3671560D-01
         E(8) = 0.1758400D+04
         S(8) = 0.9386720D-01
         E(9) = 0.7665900D+03
         S(9) = 0.2017677D+00
         E(10) = 0.3484300D+03
         S(10) = 0.3280540D+00
         E(11) = 0.1640300D+03
         S(11) = 0.3238334D+00
         E(12) = 0.7914200D+02
         S(12) = 0.1352337D+00
         E(13) = 0.3552400D+02
         S(13) = 0.1170750D-01
         E(14) = 0.1730500D+02
         S(14) = -.3436000D-03
         E(15) = 0.8378400D+01
         S(15) = 0.1665000D-03
         E(16) = 0.3740500D+01
         S(16) = -.1188000D-03
         E(17) = 0.1689000D+01
         S(17) = 0.2040000D-04
         E(18) = 0.2552000D+00
         S(18) = 0.8300000D-05
         E(19) = 0.9563600D+07
         S(19) = -.2000000D-05
         E(20) = 0.1432100D+07
         S(20) = -.1530000D-04
         E(21) = 0.3259100D+06
         S(21) = -.8060000D-04
         E(22) = 0.9231200D+05
         S(22) = -.3400000D-03
         E(23) = 0.3011600D+05
         S(23) = -.1239700D-02
         E(24) = 0.1087200D+05
         S(24) = -.4017700D-02
         E(25) = 0.4240100D+04
         S(25) = -.1186720D-01
         E(26) = 0.1758400D+04
         S(26) = -.3153400D-01
         E(27) = 0.7665900D+03
         S(27) = -.7464390D-01
         E(28) = 0.3484300D+03
         S(28) = -.1452179D+00
         E(29) = 0.1640300D+03
         S(29) = -.2038441D+00
         E(30) = 0.7914200D+02
         S(30) = -.7887110D-01
         E(31) = 0.3552400D+02
         S(31) = 0.3845825D+00
         E(32) = 0.1730500D+02
         S(32) = 0.5865270D+00
         E(33) = 0.8378400D+01
         S(33) = 0.1973591D+00
         E(34) = 0.3740500D+01
         S(34) = 0.1001020D-01
         E(35) = 0.1689000D+01
         S(35) = 0.1316000D-02
         E(36) = 0.2552000D+00
         S(36) = 0.1109000D-03
         E(37) = 0.9563600D+07
         S(37) = 0.8000000D-06
         E(38) = 0.1432100D+07
         S(38) = 0.6000000D-05
         E(39) = 0.3259100D+06
         S(39) = 0.3170000D-04
         E(40) = 0.9231200D+05
         S(40) = 0.1337000D-03
         E(41) = 0.3011600D+05
         S(41) = 0.4883000D-03
         E(42) = 0.1087200D+05
         S(42) = 0.1582100D-02
         E(43) = 0.4240100D+04
         S(43) = 0.4691900D-02
         E(44) = 0.1758400D+04
         S(44) = 0.1250980D-01
         E(45) = 0.7665900D+03
         S(45) = 0.3003810D-01
         E(46) = 0.3484300D+03
         S(46) = 0.5972710D-01
         E(47) = 0.1640300D+03
         S(47) = 0.8846960D-01
         E(48) = 0.7914200D+02
         S(48) = 0.3639200D-01
         E(49) = 0.3552400D+02
         S(49) = -.2235329D+00
         E(50) = 0.1730500D+02
         S(50) = -.5122462D+00
         E(51) = 0.8378400D+01
         S(51) = -.1084224D+00
         E(52) = 0.3740500D+01
         S(52) = 0.6936372D+00
         E(53) = 0.1689000D+01
         S(53) = 0.5558711D+00
         E(54) = 0.2552000D+00
         S(54) = -.1138320D-01
         E(55) = 0.9563600D+07
         S(55) = -.2000000D-06
         E(56) = 0.1432100D+07
         S(56) = -.1800000D-05
         E(57) = 0.3259100D+06
         S(57) = -.9300000D-05
         E(58) = 0.9231200D+05
         S(58) = -.3910000D-04
         E(59) = 0.3011600D+05
         S(59) = -.1428000D-03
         E(60) = 0.1087200D+05
         S(60) = -.4627000D-03
         E(61) = 0.4240100D+04
         S(61) = -.1372200D-02
         E(62) = 0.1758400D+04
         S(62) = -.3662800D-02
         E(63) = 0.7665900D+03
         S(63) = -.8806100D-02
         E(64) = 0.3484300D+03
         S(64) = -.1758670D-01
         E(65) = 0.1640300D+03
         S(65) = -.2620740D-01
         E(66) = 0.7914200D+02
         S(66) = -.1099640D-01
         E(67) = 0.3552400D+02
         S(67) = 0.6956970D-01
         E(68) = 0.1730500D+02
         S(68) = 0.1683947D+00
         E(69) = 0.8378400D+01
         S(69) = 0.3461600D-01
         E(70) = 0.3740500D+01
         S(70) = -.2978702D+00
         E(71) = 0.1689000D+01
         S(71) = -.4322569D+00
         E(72) = 0.2552000D+00
         S(72) = 0.6757217D+00
         E(73) = 0.5092700D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1065100D+00
         S(74) = 0.1000000D+01
         E(75) = 0.8004300D+04
         P(75) = 0.4505000D-03
         E(76) = 0.1896900D+04
         P(76) = 0.3904900D-02
         E(77) = 0.6147100D+03
         P(77) = 0.2109010D-01
         E(78) = 0.2335000D+03
         P(78) = 0.8129200D-01
         E(79) = 0.9785600D+02
         P(79) = 0.2217841D+00
         E(80) = 0.4351400D+02
         P(80) = 0.3907270D+00
         E(81) = 0.2006300D+02
         P(81) = 0.3559714D+00
         E(82) = 0.9112700D+01
         P(82) = 0.1073272D+00
         E(83) = 0.4106300D+01
         P(83) = 0.3698500D-02
         E(84) = 0.1794900D+01
         P(84) = 0.1803200D-02
         E(85) = 0.2461500D+00
         P(85) = 0.2208000D-03
         E(86) = 0.8004300D+04
         P(86) = -.1783000D-03
         E(87) = 0.1896900D+04
         P(87) = -.1555400D-02
         E(88) = 0.6147100D+03
         P(88) = -.8472700D-02
         E(89) = 0.2335000D+03
         P(89) = -.3362450D-01
         E(90) = 0.9785600D+02
         P(90) = -.9582670D-01
         E(91) = 0.4351400D+02
         P(91) = -.1813907D+00
         E(92) = 0.2006300D+02
         P(92) = -.1503152D+00
         E(93) = 0.9112700D+01
         P(93) = 0.1948263D+00
         E(94) = 0.4106300D+01
         P(94) = 0.5415554D+00
         E(95) = 0.1794900D+01
         P(95) = 0.3837299D+00
         E(96) = 0.2461500D+00
         P(96) = -.5013200D-02
         E(97) = 0.8004300D+04
         P(97) = 0.4300000D-04
         E(98) = 0.1896900D+04
         P(98) = 0.3770000D-03
         E(99) = 0.6147100D+03
         P(99) = 0.2046500D-02
         E(100) = 0.2335000D+03
         P(100) = 0.8189900D-02
         E(101) = 0.9785600D+02
         P(101) = 0.2333560D-01
         E(102) = 0.4351400D+02
         P(102) = 0.4498130D-01
         E(103) = 0.2006300D+02
         P(103) = 0.3574750D-01
         E(104) = 0.9112700D+01
         P(104) = -.5868660D-01
         E(105) = 0.4106300D+01
         P(105) = -.1709573D+00
         E(106) = 0.1794900D+01
         P(106) = -.1293583D+00
         E(107) = 0.2461500D+00
         P(107) = 0.5778069D+00
         E(108) = 0.6243200D+00
         P(108) = 0.1000000D+01
         E(109) = 0.8891700D-01
         P(109) = 0.1000000D+01
         E(110) = 0.3618500D+03
         D(110) = 0.1565500D-02
         E(111) = 0.1085500D+03
         D(111) = 0.1332620D-01
         E(112) = 0.4143300D+02
         D(112) = 0.6015270D-01
         E(113) = 0.1757900D+02
         D(113) = 0.1740293D+00
         E(114) = 0.7862700D+01
         D(114) = 0.3195690D+00
         E(115) = 0.3518000D+01
         D(115) = 0.3812029D+00
         E(116) = 0.1534800D+01
         D(116) = 0.2746086D+00
         E(117) = 0.6081300D+00
         D(117) = 0.1000000D+01
         E(118) = 0.2220000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.4620000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1501100D+08
         S(1) = 0.3600000D-05
         E(2) = 0.2247500D+07
         S(2) = 0.2790000D-04
         E(3) = 0.5114500D+06
         S(3) = 0.1466000D-03
         E(4) = 0.1448700D+06
         S(4) = 0.6190000D-03
         E(5) = 0.4726100D+05
         S(5) = 0.2251400D-02
         E(6) = 0.1706200D+05
         S(6) = 0.7303000D-02
         E(7) = 0.6654500D+04
         S(7) = 0.2144420D-01
         E(8) = 0.2759800D+04
         S(8) = 0.5681220D-01
         E(9) = 0.1203200D+04
         S(9) = 0.1320807D+00
         E(10) = 0.5465300D+03
         S(10) = 0.2523469D+00
         E(11) = 0.2566300D+03
         S(11) = 0.3459296D+00
         E(12) = 0.1231400D+03
         S(12) = 0.2623890D+00
         E(13) = 0.5826300D+02
         S(13) = 0.6679380D-01
         E(14) = 0.2902300D+02
         S(14) = -.3332000D-03
         E(15) = 0.1446500D+02
         S(15) = 0.1727500D-02
         E(16) = 0.6934800D+01
         S(16) = -.8299000D-03
         E(17) = 0.3329900D+01
         S(17) = 0.3578000D-03
         E(18) = 0.1560000D+01
         S(18) = -.1666000D-03
         E(19) = 0.1501100D+08
         S(19) = -.1100000D-05
         E(20) = 0.2247500D+07
         S(20) = -.8700000D-05
         E(21) = 0.5114500D+06
         S(21) = -.4590000D-04
         E(22) = 0.1448700D+06
         S(22) = -.1939000D-03
         E(23) = 0.4726100D+05
         S(23) = -.7064000D-03
         E(24) = 0.1706200D+05
         S(24) = -.2303000D-02
         E(25) = 0.6654500D+04
         S(25) = -.6842500D-02
         E(26) = 0.2759800D+04
         S(26) = -.1863350D-01
         E(27) = 0.1203200D+04
         S(27) = -.4595120D-01
         E(28) = 0.5465300D+03
         S(28) = -.9921930D-01
         E(29) = 0.2566300D+03
         S(29) = -.1728813D+00
         E(30) = 0.1231400D+03
         S(30) = -.1884973D+00
         E(31) = 0.5826300D+02
         S(31) = 0.4226100D-01
         E(32) = 0.2902300D+02
         S(32) = 0.4936791D+00
         E(33) = 0.1446500D+02
         S(33) = 0.5052818D+00
         E(34) = 0.6934800D+01
         S(34) = 0.1184150D+00
         E(35) = 0.3329900D+01
         S(35) = 0.1956700D-02
         E(36) = 0.1560000D+01
         S(36) = 0.1964800D-02
         E(37) = 0.1501100D+08
         S(37) = 0.4000000D-06
         E(38) = 0.2247500D+07
         S(38) = 0.3400000D-05
         E(39) = 0.5114500D+06
         S(39) = 0.1810000D-04
         E(40) = 0.1448700D+06
         S(40) = 0.7630000D-04
         E(41) = 0.4726100D+05
         S(41) = 0.2781000D-03
         E(42) = 0.1706200D+05
         S(42) = 0.9068000D-03
         E(43) = 0.6654500D+04
         S(43) = 0.2699900D-02
         E(44) = 0.2759800D+04
         S(44) = 0.7372600D-02
         E(45) = 0.1203200D+04
         S(45) = 0.1833600D-01
         E(46) = 0.5465300D+03
         S(46) = 0.4018120D-01
         E(47) = 0.2566300D+03
         S(47) = 0.7248640D-01
         E(48) = 0.1231400D+03
         S(48) = 0.8356260D-01
         E(49) = 0.5826300D+02
         S(49) = -.2075920D-01
         E(50) = 0.2902300D+02
         S(50) = -.3183535D+00
         E(51) = 0.1446500D+02
         S(51) = -.4798333D+00
         E(52) = 0.6934800D+01
         S(52) = 0.5928190D-01
         E(53) = 0.3329900D+01
         S(53) = 0.7174116D+00
         E(54) = 0.1560000D+01
         S(54) = 0.4638636D+00
         E(55) = 0.1501100D+08
         S(55) = -.1000000D-06
         E(56) = 0.2247500D+07
         S(56) = -.1000000D-05
         E(57) = 0.5114500D+06
         S(57) = -.5300000D-05
         E(58) = 0.1448700D+06
         S(58) = -.2230000D-04
         E(59) = 0.4726100D+05
         S(59) = -.8140000D-04
         E(60) = 0.1706200D+05
         S(60) = -.2649000D-03
         E(61) = 0.6654500D+04
         S(61) = -.7906000D-03
         E(62) = 0.2759800D+04
         S(62) = -.2153900D-02
         E(63) = 0.1203200D+04
         S(63) = -.5381200D-02
         E(64) = 0.5465300D+03
         S(64) = -.1176940D-01
         E(65) = 0.2566300D+03
         S(65) = -.2146290D-01
         E(66) = 0.1231400D+03
         S(66) = -.2469040D-01
         E(67) = 0.5826300D+02
         S(67) = 0.5777400D-02
         E(68) = 0.2902300D+02
         S(68) = 0.1015209D+00
         E(69) = 0.1446500D+02
         S(69) = 0.1578570D+00
         E(70) = 0.6934800D+01
         S(70) = -.2242190D-01
         E(71) = 0.3329900D+01
         S(71) = -.3290776D+00
         E(72) = 0.1560000D+01
         S(72) = -.3873443D+00
         E(73) = 0.4929100D+00
         S(73) = 0.1000000D+01
         E(74) = 0.2352500D+00
         S(74) = 0.1000000D+01
         E(75) = 0.1003700D+00
         S(75) = 0.1000000D+01
         E(76) = 0.2521700D+05
         P(76) = 0.6100000D-04
         E(77) = 0.5969900D+04
         P(77) = 0.5424000D-03
         E(78) = 0.1938900D+04
         P(78) = 0.3117400D-02
         E(79) = 0.7416600D+03
         P(79) = 0.1359770D-01
         E(80) = 0.3145000D+03
         P(80) = 0.4727880D-01
         E(81) = 0.1433100D+03
         P(81) = 0.1297856D+00
         E(82) = 0.6865000D+02
         P(82) = 0.2657383D+00
         E(83) = 0.3399500D+02
         P(83) = 0.3673544D+00
         E(84) = 0.1718500D+02
         P(84) = 0.2747805D+00
         E(85) = 0.8574000D+01
         P(85) = 0.7916790D-01
         E(86) = 0.4220600D+01
         P(86) = 0.5134900D-02
         E(87) = 0.2052100D+01
         P(87) = 0.1331900D-02
         E(88) = 0.9615600D+00
         P(88) = -.2033000D-03
         E(89) = 0.2521700D+05
         P(89) = -.2410000D-04
         E(90) = 0.5969900D+04
         P(90) = -.2152000D-03
         E(91) = 0.1938900D+04
         P(91) = -.1238600D-02
         E(92) = 0.7416600D+03
         P(92) = -.5460700D-02
         E(93) = 0.3145000D+03
         P(93) = -.1929360D-01
         E(94) = 0.1433100D+03
         P(94) = -.5497150D-01
         E(95) = 0.6865000D+02
         P(95) = -.1177952D+00
         E(96) = 0.3399500D+02
         P(96) = -.1740782D+00
         E(97) = 0.1718500D+02
         P(97) = -.9557980D-01
         E(98) = 0.8574000D+01
         P(98) = 0.2059714D+00
         E(99) = 0.4220600D+01
         P(99) = 0.4735431D+00
         E(100) = 0.2052100D+01
         P(100) = 0.3831922D+00
         E(101) = 0.9615600D+00
         P(101) = 0.9208720D-01
         E(102) = 0.2521700D+05
         P(102) = 0.5800000D-05
         E(103) = 0.5969900D+04
         P(103) = 0.5200000D-04
         E(104) = 0.1938900D+04
         P(104) = 0.2998000D-03
         E(105) = 0.7416600D+03
         P(105) = 0.1320100D-02
         E(106) = 0.3145000D+03
         P(106) = 0.4685700D-02
         E(107) = 0.1433100D+03
         P(107) = 0.1337370D-01
         E(108) = 0.6865000D+02
         P(108) = 0.2892450D-01
         E(109) = 0.3399500D+02
         P(109) = 0.4294540D-01
         E(110) = 0.1718500D+02
         P(110) = 0.2232720D-01
         E(111) = 0.8574000D+01
         P(111) = -.6360310D-01
         E(112) = 0.4220600D+01
         P(112) = -.1436147D+00
         E(113) = 0.2052100D+01
         P(113) = -.1447293D+00
         E(114) = 0.9615600D+00
         P(114) = 0.6303800D-01
         E(115) = 0.4215100D+00
         P(115) = 0.1000000D+01
         E(116) = 0.1762600D+00
         P(116) = 0.1000000D+01
         E(117) = 0.7066300D-01
         P(117) = 0.1000000D+01
         E(118) = 0.1143400D+04
         D(118) = 0.1301000D-03
         E(119) = 0.3453300D+03
         D(119) = 0.1257300D-02
         E(120) = 0.1344600D+03
         D(120) = 0.7288200D-02
         E(121) = 0.5956700D+02
         D(121) = 0.2886470D-01
         E(122) = 0.2828300D+02
         D(122) = 0.8389870D-01
         E(123) = 0.1406100D+02
         D(123) = 0.1819771D+00
         E(124) = 0.7139000D+01
         D(124) = 0.2826057D+00
         E(125) = 0.3614800D+01
         D(125) = 0.3220453D+00
         E(126) = 0.1807200D+01
         D(126) = 0.2581633D+00
         E(127) = 0.8694400D+00
         D(127) = 0.1000000D+01
         E(128) = 0.3703600D+00
         D(128) = 0.1000000D+01
         E(129) = 0.1530000D+00
         D(129) = 0.1000000D+01
         E(130) = 0.2840000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.7097000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.5730000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1544322D+09
         S(1) = 0.1900000D-06
         E(2) = 0.2312921D+08
         S(2) = 0.1510000D-05
         E(3) = 0.5261793D+07
         S(3) = 0.7960000D-05
         E(4) = 0.1488817D+07
         S(4) = 0.3375000D-04
         E(5) = 0.4846566D+06
         S(5) = 0.1237200D-03
         E(6) = 0.1742706D+06
         S(6) = 0.4083900D-03
         E(7) = 0.6752909D+05
         S(7) = 0.1243100D-02
         E(8) = 0.2775084D+05
         S(8) = 0.3538900D-02
         E(9) = 0.1196422D+05
         S(9) = 0.9482200D-02
         E(10) = 0.5370715D+04
         S(10) = 0.2389010D-01
         E(11) = 0.2497319D+04
         S(11) = 0.5587570D-01
         E(12) = 0.1198768D+04
         S(12) = 0.1179104D+00
         E(13) = 0.5925803D+03
         S(13) = 0.2127962D+00
         E(14) = 0.3009771D+03
         S(14) = 0.2989304D+00
         E(15) = 0.1564602D+03
         S(15) = 0.2765651D+00
         E(16) = 0.8247609D+02
         S(16) = 0.1292941D+00
         E(17) = 0.4227089D+02
         S(17) = 0.1858750D-01
         E(18) = 0.2263022D+02
         S(18) = 0.7730000D-04
         E(19) = 0.1212237D+02
         S(19) = 0.3427000D-03
         E(20) = 0.6249170D+01
         S(20) = -.1753000D-03
         E(21) = 0.3242678D+01
         S(21) = 0.3570000D-04
         E(22) = 0.1666362D+01
         S(22) = -.4065000D-04
         E(23) = 0.1544322D+09
         S(23) = -.6000000D-07
         E(24) = 0.2312921D+08
         S(24) = -.4700000D-06
         E(25) = 0.5261793D+07
         S(25) = -.2490000D-05
         E(26) = 0.1488817D+07
         S(26) = -.1056000D-04
         E(27) = 0.4846566D+06
         S(27) = -.3873000D-04
         E(28) = 0.1742706D+06
         S(28) = -.1278600D-03
         E(29) = 0.6752909D+05
         S(29) = -.3898000D-03
         E(30) = 0.2775084D+05
         S(30) = -.1112300D-02
         E(31) = 0.1196422D+05
         S(31) = -.3000700D-02
         E(32) = 0.5370715D+04
         S(32) = -.7656300D-02
         E(33) = 0.2497319D+04
         S(33) = -.1842210D-01
         E(34) = 0.1198768D+04
         S(34) = -.4101840D-01
         E(35) = 0.5925803D+03
         S(35) = -.8230260D-01
         E(36) = 0.3009771D+03
         S(36) = -.1398840D+00
         E(37) = 0.1564602D+03
         S(37) = -.1770337D+00
         E(38) = 0.8247609D+02
         S(38) = -.8877610D-01
         E(39) = 0.4227089D+02
         S(39) = 0.2251537D+00
         E(40) = 0.2263022D+02
         S(40) = 0.5207171D+00
         E(41) = 0.1212237D+02
         S(41) = 0.3645093D+00
         E(42) = 0.6249170D+01
         S(42) = 0.7361690D-01
         E(43) = 0.3242678D+01
         S(43) = 0.2354000D-02
         E(44) = 0.1666362D+01
         S(44) = 0.1694700D-02
         E(45) = 0.1544322D+09
         S(45) = 0.2000000D-07
         E(46) = 0.2312921D+08
         S(46) = 0.1900000D-06
         E(47) = 0.5261793D+07
         S(47) = 0.9800000D-06
         E(48) = 0.1488817D+07
         S(48) = 0.4150000D-05
         E(49) = 0.4846566D+06
         S(49) = 0.1524000D-04
         E(50) = 0.1742706D+06
         S(50) = 0.5031000D-04
         E(51) = 0.6752909D+05
         S(51) = 0.1534600D-03
         E(52) = 0.2775084D+05
         S(52) = 0.4378000D-03
         E(53) = 0.1196422D+05
         S(53) = 0.1182700D-02
         E(54) = 0.5370715D+04
         S(54) = 0.3020800D-02
         E(55) = 0.2497319D+04
         S(55) = 0.7299200D-02
         E(56) = 0.1198768D+04
         S(56) = 0.1635280D-01
         E(57) = 0.5925803D+03
         S(57) = 0.3329620D-01
         E(58) = 0.3009771D+03
         S(58) = 0.5801390D-01
         E(59) = 0.1564602D+03
         S(59) = 0.7702330D-01
         E(60) = 0.8247609D+02
         S(60) = 0.4110650D-01
         E(61) = 0.4227089D+02
         S(61) = -.1225782D+00
         E(62) = 0.2263022D+02
         S(62) = -.3853397D+00
         E(63) = 0.1212237D+02
         S(63) = -.3675073D+00
         E(64) = 0.6249170D+01
         S(64) = 0.1574340D+00
         E(65) = 0.3242678D+01
         S(65) = 0.6440872D+00
         E(66) = 0.1666362D+01
         S(66) = 0.4482209D+00
         E(67) = 0.1544322D+09
         S(67) = -.7000000D-08
         E(68) = 0.2312921D+08
         S(68) = -.5400000D-07
         E(69) = 0.5261793D+07
         S(69) = -.2870000D-06
         E(70) = 0.1488817D+07
         S(70) = -.1214000D-05
         E(71) = 0.4846566D+06
         S(71) = -.4456000D-05
         E(72) = 0.1742706D+06
         S(72) = -.1470600D-04
         E(73) = 0.6752909D+05
         S(73) = -.4487100D-04
         E(74) = 0.2775084D+05
         S(74) = -.1279890D-03
         E(75) = 0.1196422D+05
         S(75) = -.3457020D-03
         E(76) = 0.5370715D+04
         S(76) = -.8834000D-03
         E(77) = 0.2497319D+04
         S(77) = -.2136300D-02
         E(78) = 0.1198768D+04
         S(78) = -.4789200D-02
         E(79) = 0.5925803D+03
         S(79) = -.9775800D-02
         E(80) = 0.3009771D+03
         S(80) = -.1708770D-01
         E(81) = 0.1564602D+03
         S(81) = -.2286560D-01
         E(82) = 0.8247609D+02
         S(82) = -.1230280D-01
         E(83) = 0.4227089D+02
         S(83) = 0.3752540D-01
         E(84) = 0.2263022D+02
         S(84) = 0.1244342D+00
         E(85) = 0.1212237D+02
         S(85) = 0.1231195D+00
         E(86) = 0.6249170D+01
         S(86) = -.6243300D-01
         E(87) = 0.3242678D+01
         S(87) = -.2894834D+00
         E(88) = 0.1666362D+01
         S(88) = -.3744399D+00
         E(89) = 0.7872640D+00
         S(89) = 0.1000000D+01
         E(90) = 0.4029720D+00
         S(90) = 0.1000000D+01
         E(91) = 0.1870960D+00
         S(91) = 0.1000000D+01
         E(92) = 0.8470600D-01
         S(92) = 0.1000000D+01
         E(93) = 0.3651134D+05
         P(93) = 0.3200000D-04
         E(94) = 0.8640551D+04
         P(94) = 0.2854000D-03
         E(95) = 0.2805691D+04
         P(95) = 0.1656700D-02
         E(96) = 0.1073496D+04
         P(96) = 0.7395500D-02
         E(97) = 0.4557747D+03
         P(97) = 0.2675430D-01
         E(98) = 0.2080943D+03
         P(98) = 0.7909890D-01
         E(99) = 0.1002311D+03
         P(99) = 0.1837967D+00
         E(100) = 0.5007352D+02
         P(100) = 0.3138041D+00
         E(101) = 0.2570026D+02
         P(101) = 0.3443650D+00
         E(102) = 0.1334679D+02
         P(102) = 0.1898591D+00
         E(103) = 0.6787051D+01
         P(103) = 0.3791930D-01
         E(104) = 0.3391654D+01
         P(104) = 0.2178100D-02
         E(105) = 0.1670327D+01
         P(105) = 0.6590000D-03
         E(106) = 0.3651134D+05
         P(106) = -.1270000D-04
         E(107) = 0.8640551D+04
         P(107) = -.1130000D-03
         E(108) = 0.2805691D+04
         P(108) = -.6582000D-03
         E(109) = 0.1073496D+04
         P(109) = -.2952800D-02
         E(110) = 0.4557747D+03
         P(110) = -.1082890D-01
         E(111) = 0.2080943D+03
         P(111) = -.3281240D-01
         E(112) = 0.1002311D+03
         P(112) = -.7950700D-01
         E(113) = 0.5007352D+02
         P(113) = -.1430274D+00
         E(114) = 0.2570026D+02
         P(114) = -.1627787D+00
         E(115) = 0.1334679D+02
         P(115) = -.4298300D-02
         E(116) = 0.6787051D+01
         P(116) = 0.3091829D+00
         E(117) = 0.3391654D+01
         P(117) = 0.4776013D+00
         E(118) = 0.1670327D+01
         P(118) = 0.2928526D+00
         E(119) = 0.3651134D+05
         P(119) = 0.3100000D-05
         E(120) = 0.8640551D+04
         P(120) = 0.2730000D-04
         E(121) = 0.2805691D+04
         P(121) = 0.1593000D-03
         E(122) = 0.1073496D+04
         P(122) = 0.7136000D-03
         E(123) = 0.4557747D+03
         P(123) = 0.2626000D-02
         E(124) = 0.2080943D+03
         P(124) = 0.7966700D-02
         E(125) = 0.1002311D+03
         P(125) = 0.1944400D-01
         E(126) = 0.5007352D+02
         P(126) = 0.3513280D-01
         E(127) = 0.2570026D+02
         P(127) = 0.4040280D-01
         E(128) = 0.1334679D+02
         P(128) = -.3396900D-02
         E(129) = 0.6787051D+01
         P(129) = -.9209990D-01
         E(130) = 0.3391654D+01
         P(130) = -.1535090D+00
         E(131) = 0.1670327D+01
         P(131) = -.1058705D+00
         E(132) = 0.7525990D+00
         P(132) = 0.1000000D+01
         E(133) = 0.3468130D+00
         P(133) = 0.1000000D+01
         E(134) = 0.1518550D+00
         P(134) = 0.1000000D+01
         E(135) = 0.6385600D-01
         P(135) = 0.1000000D+01
         E(136) = 0.1635066D+04
         D(136) = 0.5910000D-04
         E(137) = 0.4946727D+03
         D(137) = 0.5840000D-03
         E(138) = 0.1928439D+03
         D(138) = 0.3525600D-02
         E(139) = 0.8578220D+02
         D(139) = 0.1511270D-01
         E(140) = 0.4114997D+02
         D(140) = 0.4784460D-01
         E(141) = 0.2067817D+02
         D(141) = 0.1174345D+00
         E(142) = 0.1072639D+02
         D(142) = 0.2159074D+00
         E(143) = 0.5612454D+01
         D(143) = 0.2929216D+00
         E(144) = 0.2920376D+01
         D(144) = 0.3000864D+00
         E(145) = 0.1498184D+01
         D(145) = 0.1000000D+01
         E(146) = 0.7359990D+00
         D(146) = 0.1000000D+01
         E(147) = 0.3160040D+00
         D(147) = 0.1000000D+01
         E(148) = 0.1331000D+00
         D(148) = 0.1000000D+01
         E(149) = 0.2100000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.4211000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.8442000D+00
         F(151) = 0.1000000D+01
         E(152) = 0.3850000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.8659000D+00
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.7235000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C     ----- BR -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.6401000D+06
         S(1) = 0.1984000D-03
         E(2) = 0.9593800D+05
         S(2) = 0.1540000D-02
         E(3) = 0.2183300D+05
         S(3) = 0.8009600D-02
         E(4) = 0.6181900D+04
         S(4) = 0.3273410D-01
         E(5) = 0.2015700D+04
         S(5) = 0.1074480D+00
         E(6) = 0.7271000D+03
         S(6) = 0.2688946D+00
         E(7) = 0.2832800D+03
         S(7) = 0.4204411D+00
         E(8) = 0.1159100D+03
         S(8) = 0.2838041D+00
         E(9) = 0.3612400D+02
         S(9) = 0.3154550D-01
         E(10) = 0.1553200D+02
         S(10) = -.7426800D-02
         E(11) = 0.4785700D+01
         S(11) = 0.2772800D-02
         E(12) = 0.2081700D+01
         S(12) = -.1363500D-02
         E(13) = 0.4202800D+00
         S(13) = 0.3812000D-03
         E(14) = 0.6401000D+06
         S(14) = -.6250000D-04
         E(15) = 0.9593800D+05
         S(15) = -.4816000D-03
         E(16) = 0.2183300D+05
         S(16) = -.2546600D-02
         E(17) = 0.6181900D+04
         S(17) = -.1041120D-01
         E(18) = 0.2015700D+04
         S(18) = -.3651790D-01
         E(19) = 0.7271000D+03
         S(19) = -.9962950D-01
         E(20) = 0.2832800D+03
         S(20) = -.2141310D+00
         E(21) = 0.1159100D+03
         S(21) = -.1860911D+00
         E(22) = 0.3612400D+02
         S(22) = 0.4628261D+00
         E(23) = 0.1553200D+02
         S(23) = 0.6441141D+00
         E(24) = 0.4785700D+01
         S(24) = 0.8255020D-01
         E(25) = 0.2081700D+01
         S(25) = -.1496940D-01
         E(26) = 0.4202800D+00
         S(26) = 0.3528800D-02
         E(27) = 0.6401000D+06
         S(27) = 0.2480000D-04
         E(28) = 0.9593800D+05
         S(28) = 0.1919000D-03
         E(29) = 0.2183300D+05
         S(29) = 0.1010000D-02
         E(30) = 0.6181900D+04
         S(30) = 0.4165900D-02
         E(31) = 0.2015700D+04
         S(31) = 0.1456830D-01
         E(32) = 0.7271000D+03
         S(32) = 0.4083450D-01
         E(33) = 0.2832800D+03
         S(33) = 0.8948590D-01
         E(34) = 0.1159100D+03
         S(34) = 0.8727860D-01
         E(35) = 0.3612400D+02
         S(35) = -.2933644D+00
         E(36) = 0.1553200D+02
         S(36) = -.5667109D+00
         E(37) = 0.4785700D+01
         S(37) = 0.5105658D+00
         E(38) = 0.2081700D+01
         S(38) = 0.7477214D+00
         E(39) = 0.4202800D+00
         S(39) = 0.4215120D-01
         E(40) = 0.6401000D+06
         S(40) = -.7600000D-05
         E(41) = 0.9593800D+05
         S(41) = -.5880000D-04
         E(42) = 0.2183300D+05
         S(42) = -.3092000D-03
         E(43) = 0.6181900D+04
         S(43) = -.1276600D-02
         E(44) = 0.2015700D+04
         S(44) = -.4463400D-02
         E(45) = 0.7271000D+03
         S(45) = -.1255750D-01
         E(46) = 0.2832800D+03
         S(46) = -.2761450D-01
         E(47) = 0.1159100D+03
         S(47) = -.2739450D-01
         E(48) = 0.3612400D+02
         S(48) = 0.9640940D-01
         E(49) = 0.1553200D+02
         S(49) = 0.1976871D+00
         E(50) = 0.4785700D+01
         S(50) = -.2266693D+00
         E(51) = 0.2081700D+01
         S(51) = -.5241165D+00
         E(52) = 0.4202800D+00
         S(52) = 0.6889865D+00
         E(53) = 0.1606900D+00
         S(53) = 0.1000000D+01
         E(54) = 0.4340800D+04
         P(54) = 0.1444800D-02
         E(55) = 0.1028900D+04
         P(55) = 0.1212880D-01
         E(56) = 0.3320200D+03
         P(56) = 0.6080770D-01
         E(57) = 0.1251600D+03
         P(57) = 0.2009358D+00
         E(58) = 0.5151100D+02
         P(58) = 0.4047419D+00
         E(59) = 0.2228100D+02
         P(59) = 0.3957151D+00
         E(60) = 0.9341700D+01
         P(60) = 0.1102213D+00
         E(61) = 0.4013200D+01
         P(61) = -.9090000D-03
         E(62) = 0.1700200D+01
         P(62) = 0.2483200D-02
         E(63) = 0.4719400D+00
         P(63) = -.5744000D-03
         E(64) = 0.4340800D+04
         P(64) = -.5819000D-03
         E(65) = 0.1028900D+04
         P(65) = -.4906500D-02
         E(66) = 0.3320200D+03
         P(66) = -.2525140D-01
         E(67) = 0.1251600D+03
         P(67) = -.8694450D-01
         E(68) = 0.5151100D+02
         P(68) = -.1893422D+00
         E(69) = 0.2228100D+02
         P(69) = -.1710882D+00
         E(70) = 0.9341700D+01
         P(70) = 0.2368755D+00
         E(71) = 0.4013200D+01
         P(71) = 0.5898400D+00
         E(72) = 0.1700200D+01
         P(72) = 0.3171944D+00
         E(73) = 0.4719400D+00
         P(73) = 0.1798330D-01
         E(74) = 0.4340800D+04
         P(74) = 0.1518000D-03
         E(75) = 0.1028900D+04
         P(75) = 0.1256300D-02
         E(76) = 0.3320200D+03
         P(76) = 0.6622400D-02
         E(77) = 0.1251600D+03
         P(77) = 0.2238160D-01
         E(78) = 0.5151100D+02
         P(78) = 0.5097170D-01
         E(79) = 0.2228100D+02
         P(79) = 0.4140090D-01
         E(80) = 0.9341700D+01
         P(80) = -.7039700D-01
         E(81) = 0.4013200D+01
         P(81) = -.2232540D+00
         E(82) = 0.1700200D+01
         P(82) = -.5641790D-01
         E(83) = 0.4719400D+00
         P(83) = 0.5808079D+00
         E(84) = 0.1442100D+00
         P(84) = 0.1000000D+01
         E(85) = 0.1048300D+03
         D(85) = 0.2265830D-01
         E(86) = 0.3027200D+02
         D(86) = 0.1345895D+00
         E(87) = 0.1064900D+02
         D(87) = 0.3647181D+00
         E(88) = 0.3869600D+01
         D(88) = 0.4904196D+00
         E(89) = 0.1323900D+01
         D(89) = 0.2713885D+00
         E(90) = 0.4098000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1063900D+08
         S(1) = 0.5900000D-05
         E(2) = 0.1593400D+07
         S(2) = 0.4610000D-04
         E(3) = 0.3626100D+06
         S(3) = 0.2422000D-03
         E(4) = 0.1027000D+06
         S(4) = 0.1022600D-02
         E(5) = 0.3350100D+05
         S(5) = 0.3711300D-02
         E(6) = 0.1209300D+05
         S(6) = 0.1197850D-01
         E(7) = 0.4715900D+04
         S(7) = 0.3469270D-01
         E(8) = 0.1955600D+04
         S(8) = 0.8912390D-01
         E(9) = 0.8526100D+03
         S(9) = 0.1934557D+00
         E(10) = 0.3876700D+03
         S(10) = 0.3209019D+00
         E(11) = 0.1826800D+03
         S(11) = 0.3299233D+00
         E(12) = 0.8824500D+02
         S(12) = 0.1494121D+00
         E(13) = 0.3926300D+02
         S(13) = 0.1499380D-01
         E(14) = 0.1923400D+02
         S(14) = -.9165000D-03
         E(15) = 0.9405700D+01
         S(15) = 0.4380000D-03
         E(16) = 0.4160100D+01
         S(16) = -.2398000D-03
         E(17) = 0.1899500D+01
         S(17) = 0.7360000D-04
         E(18) = 0.3011400D+00
         S(18) = 0.2390000D-04
         E(19) = 0.1063900D+08
         S(19) = -.1900000D-05
         E(20) = 0.1593400D+07
         S(20) = -.1450000D-04
         E(21) = 0.3626100D+06
         S(21) = -.7610000D-04
         E(22) = 0.1027000D+06
         S(22) = -.3210000D-03
         E(23) = 0.3350100D+05
         S(23) = -.1170900D-02
         E(24) = 0.1209300D+05
         S(24) = -.3796800D-02
         E(25) = 0.4715900D+04
         S(25) = -.1123070D-01
         E(26) = 0.1955600D+04
         S(26) = -.2992770D-01
         E(27) = 0.8526100D+03
         S(27) = -.7127060D-01
         E(28) = 0.3876700D+03
         S(28) = -.1403136D+00
         E(29) = 0.1826800D+03
         S(29) = -.2030763D+00
         E(30) = 0.8824500D+02
         S(30) = -.9609850D-01
         E(31) = 0.3926300D+02
         S(31) = 0.3558086D+00
         E(32) = 0.1923400D+02
         S(32) = 0.5921792D+00
         E(33) = 0.9405700D+01
         S(33) = 0.2215977D+00
         E(34) = 0.4160100D+01
         S(34) = 0.1376480D-01
         E(35) = 0.1899500D+01
         S(35) = 0.8395000D-03
         E(36) = 0.3011400D+00
         S(36) = -.8500000D-05
         E(37) = 0.1063900D+08
         S(37) = 0.7000000D-06
         E(38) = 0.1593400D+07
         S(38) = 0.5700000D-05
         E(39) = 0.3626100D+06
         S(39) = 0.3030000D-04
         E(40) = 0.1027000D+06
         S(40) = 0.1275000D-03
         E(41) = 0.3350100D+05
         S(41) = 0.4659000D-03
         E(42) = 0.1209300D+05
         S(42) = 0.1509600D-02
         E(43) = 0.4715900D+04
         S(43) = 0.4485200D-02
         E(44) = 0.1955600D+04
         S(44) = 0.1198350D-01
         E(45) = 0.8526100D+03
         S(45) = 0.2895710D-01
         E(46) = 0.3876700D+03
         S(46) = 0.5815660D-01
         E(47) = 0.1826800D+03
         S(47) = 0.8881330D-01
         E(48) = 0.8824500D+02
         S(48) = 0.4452440D-01
         E(49) = 0.3926300D+02
         S(49) = -.2060387D+00
         E(50) = 0.1923400D+02
         S(50) = -.5127017D+00
         E(51) = 0.9405700D+01
         S(51) = -.1509349D+00
         E(52) = 0.4160100D+01
         S(52) = 0.6789203D+00
         E(53) = 0.1899500D+01
         S(53) = 0.5817697D+00
         E(54) = 0.3011400D+00
         S(54) = -.1118250D-01
         E(55) = 0.1063900D+08
         S(55) = -.2000000D-06
         E(56) = 0.1593400D+07
         S(56) = -.1800000D-05
         E(57) = 0.3626100D+06
         S(57) = -.9300000D-05
         E(58) = 0.1027000D+06
         S(58) = -.3910000D-04
         E(59) = 0.3350100D+05
         S(59) = -.1428000D-03
         E(60) = 0.1209300D+05
         S(60) = -.4628000D-03
         E(61) = 0.4715900D+04
         S(61) = -.1375000D-02
         E(62) = 0.1955600D+04
         S(62) = -.3678400D-02
         E(63) = 0.8526100D+03
         S(63) = -.8898100D-02
         E(64) = 0.3876700D+03
         S(64) = -.1795290D-01
         E(65) = 0.1826800D+03
         S(65) = -.2757320D-01
         E(66) = 0.8824500D+02
         S(66) = -.1409530D-01
         E(67) = 0.3926300D+02
         S(67) = 0.6725610D-01
         E(68) = 0.1923400D+02
         S(68) = 0.1766928D+00
         E(69) = 0.9405700D+01
         S(69) = 0.5288610D-01
         E(70) = 0.4160100D+01
         S(70) = -.3075955D+00
         E(71) = 0.1899500D+01
         S(71) = -.4700658D+00
         E(72) = 0.3011400D+00
         S(72) = 0.6980341D+00
         E(73) = 0.6047200D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1251500D+00
         S(74) = 0.1000000D+01
         E(75) = 0.8676500D+04
         P(75) = 0.4357000D-03
         E(76) = 0.2055900D+04
         P(76) = 0.3781500D-02
         E(77) = 0.6662300D+03
         P(77) = 0.2047820D-01
         E(78) = 0.2531000D+03
         P(78) = 0.7928340D-01
         E(79) = 0.1061200D+03
         P(79) = 0.2178473D+00
         E(80) = 0.4724200D+02
         P(80) = 0.3878585D+00
         E(81) = 0.2182500D+02
         P(81) = 0.3594350D+00
         E(82) = 0.9968400D+01
         P(82) = 0.1121995D+00
         E(83) = 0.4517100D+01
         P(83) = 0.4387400D-02
         E(84) = 0.1998200D+01
         P(84) = 0.1780900D-02
         E(85) = 0.2814500D+00
         P(85) = 0.2122000D-03
         E(86) = 0.8676500D+04
         P(86) = -.1748000D-03
         E(87) = 0.2055900D+04
         P(87) = -.1526300D-02
         E(88) = 0.6662300D+03
         P(88) = -.8339900D-02
         E(89) = 0.2531000D+03
         P(89) = -.3322030D-01
         E(90) = 0.1061200D+03
         P(90) = -.9541800D-01
         E(91) = 0.4724200D+02
         P(91) = -.1824026D+00
         E(92) = 0.2182500D+02
         P(92) = -.1558308D+00
         E(93) = 0.9968400D+01
         P(93) = 0.1867899D+00
         E(94) = 0.4517100D+01
         P(94) = 0.5427733D+00
         E(95) = 0.1998200D+01
         P(95) = 0.3873309D+00
         E(96) = 0.2814500D+00
         P(96) = -.4378400D-02
         E(97) = 0.8676500D+04
         P(97) = 0.4510000D-04
         E(98) = 0.2055900D+04
         P(98) = 0.3964000D-03
         E(99) = 0.6662300D+03
         P(99) = 0.2155500D-02
         E(100) = 0.2531000D+03
         P(100) = 0.8672000D-02
         E(101) = 0.1061200D+03
         P(101) = 0.2486800D-01
         E(102) = 0.4724200D+02
         P(102) = 0.4854720D-01
         E(103) = 0.2182500D+02
         P(103) = 0.3961560D-01
         E(104) = 0.9968400D+01
         P(104) = -.6057490D-01
         E(105) = 0.4517100D+01
         P(105) = -.1871699D+00
         E(106) = 0.1998200D+01
         P(106) = -.1377757D+00
         E(107) = 0.2814500D+00
         P(107) = 0.5760896D+00
         E(108) = 0.7098800D+00
         P(108) = 0.1000000D+01
         E(109) = 0.1020400D+00
         P(109) = 0.1000000D+01
         E(110) = 0.4038300D+03
         D(110) = 0.1473200D-02
         E(111) = 0.1211700D+03
         D(111) = 0.1267250D-01
         E(112) = 0.4634500D+02
         D(112) = 0.5804510D-01
         E(113) = 0.1972100D+02
         D(113) = 0.1705103D+00
         E(114) = 0.8862400D+01
         D(114) = 0.3185958D+00
         E(115) = 0.3996200D+01
         D(115) = 0.3845023D+00
         E(116) = 0.1763600D+01
         D(116) = 0.2737737D+00
         E(117) = 0.7061900D+00
         D(117) = 0.1000000D+01
         E(118) = 0.2639000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.5515000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1647500D+08
         S(1) = 0.3400000D-05
         E(2) = 0.2466600D+07
         S(2) = 0.2670000D-04
         E(3) = 0.5613100D+06
         S(3) = 0.1404000D-03
         E(4) = 0.1589900D+06
         S(4) = 0.5927000D-03
         E(5) = 0.5186900D+05
         S(5) = 0.2156100D-02
         E(6) = 0.1872600D+05
         S(6) = 0.6995900D-02
         E(7) = 0.7303600D+04
         S(7) = 0.2056450D-01
         E(8) = 0.3029100D+04
         S(8) = 0.5458930D-01
         E(9) = 0.1320800D+04
         S(9) = 0.1275226D+00
         E(10) = 0.6000300D+03
         S(10) = 0.2459780D+00
         E(11) = 0.2819000D+03
         S(11) = 0.3436508D+00
         E(12) = 0.1355400D+03
         S(12) = 0.2702530D+00
         E(13) = 0.6487000D+02
         S(13) = 0.7447950D-01
         E(14) = 0.3212900D+02
         S(14) = 0.8787000D-03
         E(15) = 0.1603700D+02
         S(15) = 0.1575500D-02
         E(16) = 0.7784900D+01
         S(16) = -.7602000D-03
         E(17) = 0.3724700D+01
         S(17) = 0.3211000D-03
         E(18) = 0.1758300D+01
         S(18) = -.1586000D-03
         E(19) = 0.1647500D+08
         S(19) = -.1100000D-05
         E(20) = 0.2466600D+07
         S(20) = -.8400000D-05
         E(21) = 0.5613100D+06
         S(21) = -.4410000D-04
         E(22) = 0.1589900D+06
         S(22) = -.1862000D-03
         E(23) = 0.5186900D+05
         S(23) = -.6783000D-03
         E(24) = 0.1872600D+05
         S(24) = -.2212200D-02
         E(25) = 0.7303600D+04
         S(25) = -.6575200D-02
         E(26) = 0.3029100D+04
         S(26) = -.1793280D-01
         E(27) = 0.1320800D+04
         S(27) = -.4433210D-01
         E(28) = 0.6000300D+03
         S(28) = -.9634780D-01
         E(29) = 0.2819000D+03
         S(29) = -.1696814D+00
         E(30) = 0.1355400D+03
         S(30) = -.1920769D+00
         E(31) = 0.6487000D+02
         S(31) = 0.2087310D-01
         E(32) = 0.3212900D+02
         S(32) = 0.4744996D+00
         E(33) = 0.1603700D+02
         S(33) = 0.5214907D+00
         E(34) = 0.7784900D+01
         S(34) = 0.1348001D+00
         E(35) = 0.3724700D+01
         S(35) = 0.3661400D-02
         E(36) = 0.1758300D+01
         S(36) = 0.1884000D-02
         E(37) = 0.1647500D+08
         S(37) = 0.4000000D-06
         E(38) = 0.2466600D+07
         S(38) = 0.3300000D-05
         E(39) = 0.5613100D+06
         S(39) = 0.1750000D-04
         E(40) = 0.1589900D+06
         S(40) = 0.7400000D-04
         E(41) = 0.5186900D+05
         S(41) = 0.2697000D-03
         E(42) = 0.1872600D+05
         S(42) = 0.8799000D-03
         E(43) = 0.7303600D+04
         S(43) = 0.2619800D-02
         E(44) = 0.3029100D+04
         S(44) = 0.7167100D-02
         E(45) = 0.1320800D+04
         S(45) = 0.1785610D-01
         E(46) = 0.6000300D+03
         S(46) = 0.3939600D-01
         E(47) = 0.2819000D+03
         S(47) = 0.7171020D-01
         E(48) = 0.1355400D+03
         S(48) = 0.8588770D-01
         E(49) = 0.6487000D+02
         S(49) = -.1038610D-01
         E(50) = 0.3212900D+02
         S(50) = -.3040135D+00
         E(51) = 0.1603700D+02
         S(51) = -.4933178D+00
         E(52) = 0.7784900D+01
         S(52) = 0.1608900D-01
         E(53) = 0.3724700D+01
         S(53) = 0.7146686D+00
         E(54) = 0.1758300D+01
         S(54) = 0.4904795D+00
         E(55) = 0.1647500D+08
         S(55) = -.1000000D-06
         E(56) = 0.2466600D+07
         S(56) = -.1000000D-05
         E(57) = 0.5613100D+06
         S(57) = -.5400000D-05
         E(58) = 0.1589900D+06
         S(58) = -.2270000D-04
         E(59) = 0.5186900D+05
         S(59) = -.8270000D-04
         E(60) = 0.1872600D+05
         S(60) = -.2694000D-03
         E(61) = 0.7303600D+04
         S(61) = -.8042000D-03
         E(62) = 0.3029100D+04
         S(62) = -.2194900D-02
         E(63) = 0.1320800D+04
         S(63) = -.5493900D-02
         E(64) = 0.6000300D+03
         S(64) = -.1209600D-01
         E(65) = 0.2819000D+03
         S(65) = -.2226230D-01
         E(66) = 0.1355400D+03
         S(66) = -.2660630D-01
         E(67) = 0.6487000D+02
         S(67) = 0.2758000D-02
         E(68) = 0.3212900D+02
         S(68) = 0.1016803D+00
         E(69) = 0.1603700D+02
         S(69) = 0.1704132D+00
         E(70) = 0.7784900D+01
         S(70) = -.6222000D-02
         E(71) = 0.3724700D+01
         S(71) = -.3452570D+00
         E(72) = 0.1758300D+01
         S(72) = -.4234840D+00
         E(73) = 0.5833100D+00
         S(73) = 0.1000000D+01
         E(74) = 0.2785600D+00
         S(74) = 0.1000000D+01
         E(75) = 0.1182900D+00
         S(75) = 0.1000000D+01
         E(76) = 0.2660700D+05
         P(76) = 0.6190000D-04
         E(77) = 0.6298200D+04
         P(77) = 0.5499000D-03
         E(78) = 0.2045200D+04
         P(78) = 0.3162000D-02
         E(79) = 0.7821600D+03
         P(79) = 0.1379790D-01
         E(80) = 0.3316300D+03
         P(80) = 0.4798120D-01
         E(81) = 0.1511100D+03
         P(81) = 0.1315710D+00
         E(82) = 0.7239200D+02
         P(82) = 0.2685861D+00
         E(83) = 0.3586200D+02
         P(83) = 0.3683473D+00
         E(84) = 0.1813400D+02
         P(84) = 0.2711363D+00
         E(85) = 0.9043000D+01
         P(85) = 0.7622220D-01
         E(86) = 0.4450000D+01
         P(86) = 0.4674900D-02
         E(87) = 0.2166100D+01
         P(87) = 0.1256500D-02
         E(88) = 0.9962800D+00
         P(88) = -.2357000D-03
         E(89) = 0.2660700D+05
         P(89) = -.2480000D-04
         E(90) = 0.6298200D+04
         P(90) = -.2212000D-03
         E(91) = 0.2045200D+04
         P(91) = -.1273600D-02
         E(92) = 0.7821600D+03
         P(92) = -.5617900D-02
         E(93) = 0.3316300D+03
         P(93) = -.1986000D-01
         E(94) = 0.1511100D+03
         P(94) = -.5655310D-01
         E(95) = 0.7239200D+02
         P(95) = -.1209479D+00
         E(96) = 0.3586200D+02
         P(96) = -.1773098D+00
         E(97) = 0.1813400D+02
         P(97) = -.9214720D-01
         E(98) = 0.9043000D+01
         P(98) = 0.2187683D+00
         E(99) = 0.4450000D+01
         P(99) = 0.4854670D+00
         E(100) = 0.2166100D+01
         P(100) = 0.3721970D+00
         E(101) = 0.9962800D+00
         P(101) = 0.7769070D-01
         E(102) = 0.2660700D+05
         P(102) = 0.6400000D-05
         E(103) = 0.6298200D+04
         P(103) = 0.5720000D-04
         E(104) = 0.2045200D+04
         P(104) = 0.3297000D-03
         E(105) = 0.7821600D+03
         P(105) = 0.1456200D-02
         E(106) = 0.3316300D+03
         P(106) = 0.5159100D-02
         E(107) = 0.1511100D+03
         P(107) = 0.1476170D-01
         E(108) = 0.7239200D+02
         P(108) = 0.3176940D-01
         E(109) = 0.3586200D+02
         P(109) = 0.4706800D-01
         E(110) = 0.1813400D+02
         P(110) = 0.2238710D-01
         E(111) = 0.9043000D+01
         P(111) = -.7202540D-01
         E(112) = 0.4450000D+01
         P(112) = -.1626429D+00
         E(113) = 0.2166100D+01
         P(113) = -.1496503D+00
         E(114) = 0.9962800D+00
         P(114) = 0.1064517D+00
         E(115) = 0.4544300D+00
         P(115) = 0.1000000D+01
         E(116) = 0.1940400D+00
         P(116) = 0.1000000D+01
         E(117) = 0.7899700D-01
         P(117) = 0.1000000D+01
         E(118) = 0.1289600D+04
         D(118) = 0.1190000D-03
         E(119) = 0.3897500D+03
         D(119) = 0.1155100D-02
         E(120) = 0.1517600D+03
         D(120) = 0.6764800D-02
         E(121) = 0.6722300D+02
         D(121) = 0.2730170D-01
         E(122) = 0.3191300D+02
         D(122) = 0.8092980D-01
         E(123) = 0.1585700D+02
         D(123) = 0.1794011D+00
         E(124) = 0.8054500D+01
         D(124) = 0.2840086D+00
         E(125) = 0.4088700D+01
         D(125) = 0.3266797D+00
         E(126) = 0.2055600D+01
         D(126) = 0.2584900D+00
         E(127) = 0.9950900D+00
         D(127) = 0.1000000D+01
         E(128) = 0.4231300D+00
         D(128) = 0.1000000D+01
         E(129) = 0.1779000D+00
         D(129) = 0.1000000D+01
         E(130) = 0.3407000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.8257000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.6491000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1657352D+09
         S(1) = 0.1900000D-06
         E(2) = 0.2477438D+08
         S(2) = 0.1490000D-05
         E(3) = 0.5628202D+07
         S(3) = 0.7880000D-05
         E(4) = 0.1591900D+07
         S(4) = 0.3339000D-04
         E(5) = 0.5182638D+06
         S(5) = 0.1223100D-03
         E(6) = 0.1864909D+06
         S(6) = 0.4032100D-03
         E(7) = 0.7233249D+05
         S(7) = 0.1225640D-02
         E(8) = 0.2976113D+05
         S(8) = 0.3482350D-02
         E(9) = 0.1285171D+05
         S(9) = 0.9308560D-02
         E(10) = 0.5780943D+04
         S(10) = 0.2338830D-01
         E(11) = 0.2695010D+04
         S(11) = 0.5455300D-01
         E(12) = 0.1297660D+04
         S(12) = 0.1149479D+00
         E(13) = 0.6436349D+03
         S(13) = 0.2079225D+00
         E(14) = 0.3279519D+03
         S(14) = 0.2951596D+00
         E(15) = 0.1709226D+03
         S(15) = 0.2798766D+00
         E(16) = 0.9025014D+02
         S(16) = 0.1369752D+00
         E(17) = 0.4629247D+02
         S(17) = 0.2121540D-01
         E(18) = 0.2484866D+02
         S(18) = -.2540000D-04
         E(19) = 0.1334714D+02
         S(19) = 0.4570000D-03
         E(20) = 0.6948258D+01
         S(20) = -.2348000D-03
         E(21) = 0.3625075D+01
         S(21) = 0.6858000D-04
         E(22) = 0.1882153D+01
         S(22) = -.6116000D-04
         E(23) = 0.1657352D+09
         S(23) = -.6000000D-07
         E(24) = 0.2477438D+08
         S(24) = -.4700000D-06
         E(25) = 0.5628202D+07
         S(25) = -.2470000D-05
         E(26) = 0.1591900D+07
         S(26) = -.1048000D-04
         E(27) = 0.5182638D+06
         S(27) = -.3840000D-04
         E(28) = 0.1864909D+06
         S(28) = -.1266000D-03
         E(29) = 0.7233249D+05
         S(29) = -.3854500D-03
         E(30) = 0.2976113D+05
         S(30) = -.1097610D-02
         E(31) = 0.1285171D+05
         S(31) = -.2953790D-02
         E(32) = 0.5780943D+04
         S(32) = -.7514600D-02
         E(33) = 0.2695010D+04
         S(33) = -.1802300D-01
         E(34) = 0.1297660D+04
         S(34) = -.4002550D-01
         E(35) = 0.6436349D+03
         S(35) = -.8029190D-01
         E(36) = 0.3279519D+03
         S(36) = -.1372166D+00
         E(37) = 0.1709226D+03
         S(37) = -.1769439D+00
         E(38) = 0.9025014D+02
         S(38) = -.9770330D-01
         E(39) = 0.4629247D+02
         S(39) = 0.2067633D+00
         E(40) = 0.2484866D+02
         S(40) = 0.5148419D+00
         E(41) = 0.1334714D+02
         S(41) = 0.3799206D+00
         E(42) = 0.6948258D+01
         S(42) = 0.8301280D-01
         E(43) = 0.3625075D+01
         S(43) = 0.3215700D-02
         E(44) = 0.1882153D+01
         S(44) = 0.1712900D-02
         E(45) = 0.1657352D+09
         S(45) = 0.2000000D-07
         E(46) = 0.2477438D+08
         S(46) = 0.1900000D-06
         E(47) = 0.5628202D+07
         S(47) = 0.9800000D-06
         E(48) = 0.1591900D+07
         S(48) = 0.4160000D-05
         E(49) = 0.5182638D+06
         S(49) = 0.1526000D-04
         E(50) = 0.1864909D+06
         S(50) = 0.5031000D-04
         E(51) = 0.7233249D+05
         S(51) = 0.1532500D-03
         E(52) = 0.2976113D+05
         S(52) = 0.4363700D-03
         E(53) = 0.1285171D+05
         S(53) = 0.1175800D-02
         E(54) = 0.5780943D+04
         S(54) = 0.2994600D-02
         E(55) = 0.2695010D+04
         S(55) = 0.7211900D-02
         E(56) = 0.1297660D+04
         S(56) = 0.1611510D-01
         E(57) = 0.6436349D+03
         S(57) = 0.3279430D-01
         E(58) = 0.3279519D+03
         S(58) = 0.5743090D-01
         E(59) = 0.1709226D+03
         S(59) = 0.7761870D-01
         E(60) = 0.9025014D+02
         S(60) = 0.4564640D-01
         E(61) = 0.4629247D+02
         S(61) = -.1131171D+00
         E(62) = 0.2484866D+02
         S(62) = -.3795596D+00
         E(63) = 0.1334714D+02
         S(63) = -.3851494D+00
         E(64) = 0.6948258D+01
         S(64) = 0.1236851D+00
         E(65) = 0.3625075D+01
         S(65) = 0.6406138D+00
         E(66) = 0.1882153D+01
         S(66) = 0.4707436D+00
         E(67) = 0.1657352D+09
         S(67) = -.7000000D-08
         E(68) = 0.2477438D+08
         S(68) = -.5700000D-07
         E(69) = 0.5628202D+07
         S(69) = -.3010000D-06
         E(70) = 0.1591900D+07
         S(70) = -.1276000D-05
         E(71) = 0.5182638D+06
         S(71) = -.4678000D-05
         E(72) = 0.1864909D+06
         S(72) = -.1541600D-04
         E(73) = 0.7233249D+05
         S(73) = -.4697500D-04
         E(74) = 0.2976113D+05
         S(74) = -.1337210D-03
         E(75) = 0.1285171D+05
         S(75) = -.3604850D-03
         E(76) = 0.5780943D+04
         S(76) = -.9179760D-03
         E(77) = 0.2695010D+04
         S(77) = -.2212900D-02
         E(78) = 0.1297660D+04
         S(78) = -.4947300D-02
         E(79) = 0.6436349D+03
         S(79) = -.1009510D-01
         E(80) = 0.3279519D+03
         S(80) = -.1773240D-01
         E(81) = 0.1709226D+03
         S(81) = -.2416530D-01
         E(82) = 0.9025014D+02
         S(82) = -.1431800D-01
         E(83) = 0.4629247D+02
         S(83) = 0.3628120D-01
         E(84) = 0.2484866D+02
         S(84) = 0.1286552D+00
         E(85) = 0.1334714D+02
         S(85) = 0.1356888D+00
         E(86) = 0.6948258D+01
         S(86) = -.5167640D-01
         E(87) = 0.3625075D+01
         S(87) = -.3030724D+00
         E(88) = 0.1882153D+01
         S(88) = -.4073838D+00
         E(89) = 0.9108220D+00
         S(89) = 0.1000000D+01
         E(90) = 0.4639570D+00
         S(90) = 0.1000000D+01
         E(91) = 0.2169330D+00
         S(91) = 0.1000000D+01
         E(92) = 0.9840600D-01
         S(92) = 0.1000000D+01
         E(93) = 0.3939153D+05
         P(93) = 0.3120000D-04
         E(94) = 0.9325222D+04
         P(94) = 0.2780000D-03
         E(95) = 0.3028994D+04
         P(95) = 0.1613800D-02
         E(96) = 0.1159514D+04
         P(96) = 0.7204900D-02
         E(97) = 0.4926813D+03
         P(97) = 0.2608730D-01
         E(98) = 0.2251745D+03
         P(98) = 0.7729710D-01
         E(99) = 0.1085933D+03
         P(99) = 0.1804775D+00
         E(100) = 0.5433608D+02
         P(100) = 0.3106126D+00
         E(101) = 0.2793665D+02
         P(101) = 0.3454297D+00
         E(102) = 0.1453963D+02
         P(102) = 0.1948515D+00
         E(103) = 0.7421307D+01
         P(103) = 0.4038600D-01
         E(104) = 0.3730389D+01
         P(104) = 0.2309100D-02
         E(105) = 0.1854127D+01
         P(105) = 0.6715000D-03
         E(106) = 0.3939153D+05
         P(106) = -.1250000D-04
         E(107) = 0.9325222D+04
         P(107) = -.1116000D-03
         E(108) = 0.3028994D+04
         P(108) = -.6499000D-03
         E(109) = 0.1159514D+04
         P(109) = -.2915900D-02
         E(110) = 0.4926813D+03
         P(110) = -.1070090D-01
         E(111) = 0.2251745D+03
         P(111) = -.3249510D-01
         E(112) = 0.1085933D+03
         P(112) = -.7911230D-01
         E(113) = 0.5433608D+02
         P(113) = -.1435252D+00
         E(114) = 0.2793665D+02
         P(114) = -.1658248D+00
         E(115) = 0.1453963D+02
         P(115) = -.1065910D-01
         E(116) = 0.7421307D+01
         P(116) = 0.3050662D+00
         E(117) = 0.3730389D+01
         P(117) = 0.4813563D+00
         E(118) = 0.1854127D+01
         P(118) = 0.2942769D+00
         E(119) = 0.3939153D+05
         P(119) = 0.3200000D-05
         E(120) = 0.9325222D+04
         P(120) = 0.2880000D-04
         E(121) = 0.3028994D+04
         P(121) = 0.1684000D-03
         E(122) = 0.1159514D+04
         P(122) = 0.7543000D-03
         E(123) = 0.4926813D+03
         P(123) = 0.2780100D-02
         E(124) = 0.2251745D+03
         P(124) = 0.8446200D-02
         E(125) = 0.1085933D+03
         P(125) = 0.2073760D-01
         E(126) = 0.5433608D+02
         P(126) = 0.3775420D-01
         E(127) = 0.2793665D+02
         P(127) = 0.4420620D-01
         E(128) = 0.1453963D+02
         P(128) = -.2177500D-02
         E(129) = 0.7421307D+01
         P(129) = -.9795300D-01
         E(130) = 0.3730389D+01
         P(130) = -.1692656D+00
         E(131) = 0.1854127D+01
         P(131) = -.1117490D+00
         E(132) = 0.8453370D+00
         P(132) = 0.1000000D+01
         E(133) = 0.3921520D+00
         P(133) = 0.1000000D+01
         E(134) = 0.1727670D+00
         P(134) = 0.1000000D+01
         E(135) = 0.7290800D-01
         P(135) = 0.1000000D+01
         E(136) = 0.1850635D+04
         D(136) = 0.5380000D-04
         E(137) = 0.5570712D+03
         D(137) = 0.5402000D-03
         E(138) = 0.2164869D+03
         D(138) = 0.3301200D-02
         E(139) = 0.9613885D+02
         D(139) = 0.1435510D-01
         E(140) = 0.4612638D+02
         D(140) = 0.4611680D-01
         E(141) = 0.2320116D+02
         D(141) = 0.1147873D+00
         E(142) = 0.1205593D+02
         D(142) = 0.2145369D+00
         E(143) = 0.6325545D+01
         D(143) = 0.2953131D+00
         E(144) = 0.3304922D+01
         D(144) = 0.3040938D+00
         E(145) = 0.1704253D+01
         D(145) = 0.1000000D+01
         E(146) = 0.8399400D+00
         D(146) = 0.1000000D+01
         E(147) = 0.3569530D+00
         D(147) = 0.1000000D+01
         E(148) = 0.1520000D+00
         D(148) = 0.1000000D+01
         E(149) = 0.2550000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.4955000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.9627000D+00
         F(151) = 0.1000000D+01
         E(152) = 0.4390000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.9768000D+00
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.8193000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C     ----- KR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(1) = 0.6813588D+06
         S(1) = 0.1969000D-03
         E(2) = 0.1021265D+06
         S(2) = 0.1528600D-02
         E(3) = 0.2324371D+05
         S(3) = 0.7950000D-02
         E(4) = 0.6582007D+04
         S(4) = 0.3249380D-01
         E(5) = 0.2146429D+04
         S(5) = 0.1067240D+00
         E(6) = 0.7743378D+03
         S(6) = 0.2675701D+00
         E(7) = 0.3016702D+03
         S(7) = 0.4201851D+00
         E(8) = 0.1234118D+03
         S(8) = 0.2858015D+00
         E(9) = 0.3856755D+02
         S(9) = 0.3224610D-01
         E(10) = 0.1663738D+02
         S(10) = -.7682800D-02
         E(11) = 0.5198795D+01
         S(11) = 0.2939300D-02
         E(12) = 0.2294814D+01
         S(12) = -.1466200D-02
         E(13) = 0.4852110D+00
         S(13) = 0.4144000D-03
         E(14) = 0.6813588D+06
         S(14) = -.6220000D-04
         E(15) = 0.1021265D+06
         S(15) = -.4794000D-03
         E(16) = 0.2324371D+05
         S(16) = -.2534100D-02
         E(17) = 0.6582007D+04
         S(17) = -.1036360D-01
         E(18) = 0.2146429D+04
         S(18) = -.3635160D-01
         E(19) = 0.7743378D+03
         S(19) = -.9937370D-01
         E(20) = 0.3016702D+03
         S(20) = -.2140610D+00
         E(21) = 0.1234118D+03
         S(21) = -.1883192D+00
         E(22) = 0.3856755D+02
         S(22) = 0.4583816D+00
         E(23) = 0.1663738D+02
         S(23) = 0.6465664D+00
         E(24) = 0.5198795D+01
         S(24) = 0.8565790D-01
         E(25) = 0.2294814D+01
         S(25) = -.1561230D-01
         E(26) = 0.4852110D+00
         S(26) = 0.3649000D-02
         E(27) = 0.6813588D+06
         S(27) = 0.2490000D-04
         E(28) = 0.1021265D+06
         S(28) = 0.1928000D-03
         E(29) = 0.2324371D+05
         S(29) = 0.1014900D-02
         E(30) = 0.6582007D+04
         S(30) = 0.4185700D-02
         E(31) = 0.2146429D+04
         S(31) = 0.1464590D-01
         E(32) = 0.7743378D+03
         S(32) = 0.4110700D-01
         E(33) = 0.3016702D+03
         S(33) = 0.9039550D-01
         E(34) = 0.1234118D+03
         S(34) = 0.8906230D-01
         E(35) = 0.3856755D+02
         S(35) = -.2935718D+00
         E(36) = 0.1663738D+02
         S(36) = -.5759698D+00
         E(37) = 0.5198795D+01
         S(37) = 0.4968578D+00
         E(38) = 0.2294814D+01
         S(38) = 0.7616895D+00
         E(39) = 0.4852110D+00
         S(39) = 0.4532670D-01
         E(40) = 0.6813588D+06
         S(40) = -.7900000D-05
         E(41) = 0.1021265D+06
         S(41) = -.6140000D-04
         E(42) = 0.2324371D+05
         S(42) = -.3230000D-03
         E(43) = 0.6582007D+04
         S(43) = -.1333000D-02
         E(44) = 0.2146429D+04
         S(44) = -.4667200D-02
         E(45) = 0.7743378D+03
         S(45) = -.1313520D-01
         E(46) = 0.3016702D+03
         S(46) = -.2903420D-01
         E(47) = 0.1234118D+03
         S(47) = -.2901730D-01
         E(48) = 0.3856755D+02
         S(48) = 0.1002664D+00
         E(49) = 0.1663738D+02
         S(49) = 0.2103818D+00
         E(50) = 0.5198795D+01
         S(50) = -.2332471D+00
         E(51) = 0.2294814D+01
         S(51) = -.5546497D+00
         E(52) = 0.4852110D+00
         S(52) = 0.6969522D+00
         E(53) = 0.1862700D+00
         S(53) = 0.1000000D+01
         E(54) = 0.4474270D+04
         P(54) = 0.1519500D-02
         E(55) = 0.1060579D+04
         P(55) = 0.1274240D-01
         E(56) = 0.3422081D+03
         P(56) = 0.6364650D-01
         E(57) = 0.1289984D+03
         P(57) = 0.2085635D+00
         E(58) = 0.5308722D+02
         P(58) = 0.4122423D+00
         E(59) = 0.2295942D+02
         P(59) = 0.3878103D+00
         E(60) = 0.9507300D+01
         P(60) = 0.1003820D+00
         E(61) = 0.4083055D+01
         P(61) = -.2507800D-02
         E(62) = 0.1750446D+01
         P(62) = 0.2713900D-02
         E(63) = 0.5291900D+00
         P(63) = -.6977000D-03
         E(64) = 0.4474270D+04
         P(64) = -.6208000D-03
         E(65) = 0.1060579D+04
         P(65) = -.5221200D-02
         E(66) = 0.3422081D+03
         P(66) = -.2684630D-01
         E(67) = 0.1289984D+03
         P(67) = -.9158230D-01
         E(68) = 0.5308722D+02
         P(68) = -.1968164D+00
         E(69) = 0.2295942D+02
         P(69) = -.1634750D+00
         E(70) = 0.9507300D+01
         P(70) = 0.2738204D+00
         E(71) = 0.4083055D+01
         P(71) = 0.5981592D+00
         E(72) = 0.1750446D+01
         P(72) = 0.2750453D+00
         E(73) = 0.5291900D+00
         P(73) = 0.1277060D-01
         E(74) = 0.4474270D+04
         P(74) = 0.1701000D-03
         E(75) = 0.1060579D+04
         P(75) = 0.1406400D-02
         E(76) = 0.3422081D+03
         P(76) = 0.7396300D-02
         E(77) = 0.1289984D+03
         P(77) = 0.2482540D-01
         E(78) = 0.5308722D+02
         P(78) = 0.5571550D-01
         E(79) = 0.2295942D+02
         P(79) = 0.4121320D-01
         E(80) = 0.9507300D+01
         P(80) = -.8760570D-01
         E(81) = 0.4083055D+01
         P(81) = -.2440586D+00
         E(82) = 0.1750446D+01
         P(82) = -.2950070D-01
         E(83) = 0.5291900D+00
         P(83) = 0.6012295D+00
         E(84) = 0.1643690D+00
         P(84) = 0.1000000D+01
         E(85) = 0.1155253D+03
         D(85) = 0.2195570D-01
         E(86) = 0.3346525D+02
         D(86) = 0.1321620D+00
         E(87) = 0.1183046D+02
         D(87) = 0.3633484D+00
         E(88) = 0.4339771D+01
         D(88) = 0.4929582D+00
         E(89) = 0.1507524D+01
         D(89) = 0.2667560D+00
         E(90) = 0.5030000D+00
         D(90) = 0.1000000D+01
         ILAST = 90
      ELSE IF (NTMP.EQ.2) THEN
         E(1) = 0.1171811D+08
         S(1) = 0.5600000D-05
         E(2) = 0.1754604D+07
         S(2) = 0.4380000D-04
         E(3) = 0.3992813D+06
         S(3) = 0.2305000D-03
         E(4) = 0.1130846D+06
         S(4) = 0.9733000D-03
         E(5) = 0.3688593D+05
         S(5) = 0.3533700D-02
         E(6) = 0.1331221D+05
         S(6) = 0.1141670D-01
         E(7) = 0.5189988D+04
         S(7) = 0.3313250D-01
         E(8) = 0.2151660D+04
         S(8) = 0.8544640D-01
         E(9) = 0.9380325D+03
         S(9) = 0.1869124D+00
         E(10) = 0.4265573D+03
         S(10) = 0.3149761D+00
         E(11) = 0.2010666D+03
         S(11) = 0.3343334D+00
         E(12) = 0.9709761D+02
         S(12) = 0.1608810D+00
         E(13) = 0.4299872D+02
         S(13) = 0.1784350D-01
         E(14) = 0.2117707D+02
         S(14) = -.1379300D-02
         E(15) = 0.1042675D+02
         S(15) = 0.6572000D-03
         E(16) = 0.4585008D+01
         S(16) = -.3388000D-03
         E(17) = 0.2117603D+01
         S(17) = 0.1211000D-03
         E(18) = 0.3492250D+00
         S(18) = 0.3660000D-04
         E(19) = 0.1171811D+08
         S(19) = -.1800000D-05
         E(20) = 0.1754604D+07
         S(20) = -.1380000D-04
         E(21) = 0.3992813D+06
         S(21) = -.7260000D-04
         E(22) = 0.1130846D+06
         S(22) = -.3063000D-03
         E(23) = 0.3688593D+05
         S(23) = -.1117700D-02
         E(24) = 0.1331221D+05
         S(24) = -.3627000D-02
         E(25) = 0.5189988D+04
         S(25) = -.1074320D-01
         E(26) = 0.2151660D+04
         S(26) = -.2869920D-01
         E(27) = 0.9380325D+03
         S(27) = -.6866790D-01
         E(28) = 0.4265573D+03
         S(28) = -.1365155D+00
         E(29) = 0.2010666D+03
         S(29) = -.2022458D+00
         E(30) = 0.9709761D+02
         S(30) = -.1090569D+00
         E(31) = 0.4299872D+02
         S(31) = 0.3318768D+00
         E(32) = 0.2117707D+02
         S(32) = 0.5948250D+00
         E(33) = 0.1042675D+02
         S(33) = 0.2424825D+00
         E(34) = 0.4585008D+01
         S(34) = 0.1722410D-01
         E(35) = 0.2117603D+01
         S(35) = 0.3685000D-03
         E(36) = 0.3492250D+00
         S(36) = -.1153000D-03
         E(37) = 0.1171811D+08
         S(37) = 0.7000000D-06
         E(38) = 0.1754604D+07
         S(38) = 0.5500000D-05
         E(39) = 0.3992813D+06
         S(39) = 0.2920000D-04
         E(40) = 0.1130846D+06
         S(40) = 0.1228000D-03
         E(41) = 0.3688593D+05
         S(41) = 0.4491000D-03
         E(42) = 0.1331221D+05
         S(42) = 0.1455700D-02
         E(43) = 0.5189988D+04
         S(43) = 0.4331900D-02
         E(44) = 0.2151660D+04
         S(44) = 0.1159650D-01
         E(45) = 0.9380325D+03
         S(45) = 0.2815850D-01
         E(46) = 0.4265573D+03
         S(46) = 0.5703390D-01
         E(47) = 0.2010666D+03
         S(47) = 0.8913560D-01
         E(48) = 0.9709761D+02
         S(48) = 0.5084210D-01
         E(49) = 0.4299872D+02
         S(49) = -.1921030D+00
         E(50) = 0.2117707D+02
         S(50) = -.5121040D+00
         E(51) = 0.1042675D+02
         S(51) = -.1857007D+00
         E(52) = 0.4585008D+01
         S(52) = 0.6654119D+00
         E(53) = 0.2117603D+01
         S(53) = 0.6023925D+00
         E(54) = 0.3492250D+00
         S(54) = -.1064530D-01
         E(55) = 0.1171811D+08
         S(55) = -.2000000D-06
         E(56) = 0.1754604D+07
         S(56) = -.1800000D-05
         E(57) = 0.3992813D+06
         S(57) = -.9300000D-05
         E(58) = 0.1130846D+06
         S(58) = -.3910000D-04
         E(59) = 0.3688593D+05
         S(59) = -.1430000D-03
         E(60) = 0.1331221D+05
         S(60) = -.4639000D-03
         E(61) = 0.5189988D+04
         S(61) = -.1380100D-02
         E(62) = 0.2151660D+04
         S(62) = -.3700100D-02
         E(63) = 0.9380325D+03
         S(63) = -.8992100D-02
         E(64) = 0.4265573D+03
         S(64) = -.1830210D-01
         E(65) = 0.2010666D+03
         S(65) = -.2875590D-01
         E(66) = 0.9709761D+02
         S(66) = -.1673240D-01
         E(67) = 0.4299872D+02
         S(67) = 0.6524100D-01
         E(68) = 0.2117707D+02
         S(68) = 0.1834422D+00
         E(69) = 0.1042675D+02
         S(69) = 0.6921830D-01
         E(70) = 0.4585008D+01
         S(70) = -.3156034D+00
         E(71) = 0.2117603D+01
         S(71) = -.5031501D+00
         E(72) = 0.3492250D+00
         S(72) = 0.7171571D+00
         E(73) = 0.7070570D+00
         S(73) = 0.1000000D+01
         E(74) = 0.1448210D+00
         S(74) = 0.1000000D+01
         E(75) = 0.9366309D+04
         P(75) = 0.4231000D-03
         E(76) = 0.2219554D+04
         P(76) = 0.3674300D-02
         E(77) = 0.7194529D+03
         P(77) = 0.1993120D-01
         E(78) = 0.2734645D+03
         P(78) = 0.7742220D-01
         E(79) = 0.1147523D+03
         P(79) = 0.2140386D+00
         E(80) = 0.5115557D+02
         P(80) = 0.3848556D+00
         E(81) = 0.2368268D+02
         P(81) = 0.3626340D+00
         E(82) = 0.1087548D+02
         P(82) = 0.1170818D+00
         E(83) = 0.4955131D+01
         P(83) = 0.5121000D-02
         E(84) = 0.2217267D+01
         P(84) = 0.1753900D-02
         E(85) = 0.3221540D+00
         P(85) = 0.2199000D-03
         E(86) = 0.9366309D+04
         P(86) = -.1720000D-03
         E(87) = 0.2219554D+04
         P(87) = -.1502500D-02
         E(88) = 0.7194529D+03
         P(88) = -.8226900D-02
         E(89) = 0.2734645D+03
         P(89) = -.3285660D-01
         E(90) = 0.1147523D+03
         P(90) = -.9501350D-01
         E(91) = 0.5115557D+02
         P(91) = -.1833106D+00
         E(92) = 0.2368268D+02
         P(92) = -.1612161D+00
         E(93) = 0.1087548D+02
         P(93) = 0.1787644D+00
         E(94) = 0.4955131D+01
         P(94) = 0.5437885D+00
         E(95) = 0.2217267D+01
         P(95) = 0.3913387D+00
         E(96) = 0.3221540D+00
         P(96) = -.4780000D-02
         E(97) = 0.9366309D+04
         P(97) = 0.4660000D-04
         E(98) = 0.2219554D+04
         P(98) = 0.4100000D-03
         E(99) = 0.7194529D+03
         P(99) = 0.2232800D-02
         E(100) = 0.2734645D+03
         P(100) = 0.9014400D-02
         E(101) = 0.1147523D+03
         P(101) = 0.2601150D-01
         E(102) = 0.5115557D+02
         P(102) = 0.5133400D-01
         E(103) = 0.2368268D+02
         P(103) = 0.4309290D-01
         E(104) = 0.1087548D+02
         P(104) = -.6150400D-01
         E(105) = 0.4955131D+01
         P(105) = -.2003424D+00
         E(106) = 0.2217267D+01
         P(106) = -.1457364D+00
         E(107) = 0.3221540D+00
         P(107) = 0.5764581D+00
         E(108) = 0.8064100D+00
         P(108) = 0.1000000D+01
         E(109) = 0.1176190D+00
         P(109) = 0.1000000D+01
         E(110) = 0.4461613D+03
         D(110) = 0.1404400D-02
         E(111) = 0.1339648D+03
         D(111) = 0.1217150D-01
         E(112) = 0.5134591D+02
         D(112) = 0.5639190D-01
         E(113) = 0.2191691D+02
         D(113) = 0.1676430D+00
         E(114) = 0.9893725D+01
         D(114) = 0.3177368D+00
         E(115) = 0.4492527D+01
         D(115) = 0.3872647D+00
         E(116) = 0.2002293D+01
         D(116) = 0.2728006D+00
         E(117) = 0.8084090D+00
         D(117) = 0.1000000D+01
         E(118) = 0.3006000D+00
         D(118) = 0.1000000D+01
         E(119) = 0.6622000D+00
         F(119) = 0.1000000D+01
         ILAST = 119
      ELSE IF (NTMP.EQ.3) THEN
         E(1) = 0.1822611D+08
         S(1) = 0.3200000D-05
         E(2) = 0.2728802D+07
         S(2) = 0.2520000D-04
         E(3) = 0.6209977D+06
         S(3) = 0.1328000D-03
         E(4) = 0.1758996D+06
         S(4) = 0.5607000D-03
         E(5) = 0.5738750D+05
         S(5) = 0.2040100D-02
         E(6) = 0.2071718D+05
         S(6) = 0.6623500D-02
         E(7) = 0.8078890D+04
         S(7) = 0.1949960D-01
         E(8) = 0.3349517D+04
         S(8) = 0.5193640D-01
         E(9) = 0.1459781D+04
         S(9) = 0.1221166D+00
         E(10) = 0.6628939D+03
         S(10) = 0.2383653D+00
         E(11) = 0.3113922D+03
         S(11) = 0.3407051D+00
         E(12) = 0.1499375D+03
         S(12) = 0.2792855D+00
         E(13) = 0.7249825D+02
         S(13) = 0.8409920D-01
         E(14) = 0.3556935D+02
         S(14) = 0.2504200D-02
         E(15) = 0.1776663D+02
         S(15) = 0.1357400D-02
         E(16) = 0.8712383D+01
         S(16) = -.6591000D-03
         E(17) = 0.4144971D+01
         S(17) = 0.2701000D-03
         E(18) = 0.1969649D+01
         S(18) = -.1436000D-03
         E(19) = 0.1822611D+08
         S(19) = -.1000000D-05
         E(20) = 0.2728802D+07
         S(20) = -.7900000D-05
         E(21) = 0.6209977D+06
         S(21) = -.4180000D-04
         E(22) = 0.1758996D+06
         S(22) = -.1766000D-03
         E(23) = 0.5738750D+05
         S(23) = -.6434000D-03
         E(24) = 0.2071718D+05
         S(24) = -.2099900D-02
         E(25) = 0.8078890D+04
         S(25) = -.6245300D-02
         E(26) = 0.3349517D+04
         S(26) = -.1708040D-01
         E(27) = 0.1459781D+04
         S(27) = -.4238150D-01
         E(28) = 0.6628939D+03
         S(28) = -.9286790D-01
         E(29) = 0.3113922D+03
         S(29) = -.1657390D+00
         E(30) = 0.1499375D+03
         S(30) = -.1955088D+00
         E(31) = 0.7249825D+02
         S(31) = -.1640900D-02
         E(32) = 0.3556935D+02
         S(32) = 0.4530071D+00
         E(33) = 0.1776663D+02
         S(33) = 0.5370751D+00
         E(34) = 0.8712383D+01
         S(34) = 0.1528971D+00
         E(35) = 0.4144971D+01
         S(35) = 0.5741100D-02
         E(36) = 0.1969649D+01
         S(36) = 0.1741400D-02
         E(37) = 0.1822611D+08
         S(37) = 0.4000000D-06
         E(38) = 0.2728802D+07
         S(38) = 0.3200000D-05
         E(39) = 0.6209977D+06
         S(39) = 0.1680000D-04
         E(40) = 0.1758996D+06
         S(40) = 0.7090000D-04
         E(41) = 0.5738750D+05
         S(41) = 0.2582000D-03
         E(42) = 0.2071718D+05
         S(42) = 0.8433000D-03
         E(43) = 0.8078890D+04
         S(43) = 0.2511500D-02
         E(44) = 0.3349517D+04
         S(44) = 0.6892100D-02
         E(45) = 0.1459781D+04
         S(45) = 0.1722200D-01
         E(46) = 0.6628939D+03
         S(46) = 0.3831590D-01
         E(47) = 0.3113922D+03
         S(47) = 0.7054380D-01
         E(48) = 0.1499375D+03
         S(48) = 0.8807170D-01
         E(49) = 0.7249825D+02
         S(49) = 0.6328000D-03
         E(50) = 0.3556935D+02
         S(50) = -.2881065D+00
         E(51) = 0.1776663D+02
         S(51) = -.5049797D+00
         E(52) = 0.8712383D+01
         S(52) = -.2677730D-01
         E(53) = 0.4144971D+01
         S(53) = 0.7098718D+00
         E(54) = 0.1969649D+01
         S(54) = 0.5158020D+00
         E(55) = 0.1822611D+08
         S(55) = -.1000000D-06
         E(56) = 0.2728802D+07
         S(56) = -.1000000D-05
         E(57) = 0.6209977D+06
         S(57) = -.5300000D-05
         E(58) = 0.1758996D+06
         S(58) = -.2260000D-04
         E(59) = 0.5738750D+05
         S(59) = -.8230000D-04
         E(60) = 0.2071718D+05
         S(60) = -.2684000D-03
         E(61) = 0.8078890D+04
         S(61) = -.8014000D-03
         E(62) = 0.3349517D+04
         S(62) = -.2193700D-02
         E(63) = 0.1459781D+04
         S(63) = -.5507400D-02
         E(64) = 0.6628939D+03
         S(64) = -.1222660D-01
         E(65) = 0.3113922D+03
         S(65) = -.2276170D-01
         E(66) = 0.1499375D+03
         S(66) = -.2836060D-01
         E(67) = 0.7249825D+02
         S(67) = -.7565000D-03
         E(68) = 0.3556935D+02
         S(68) = 0.1001365D+00
         E(69) = 0.1776663D+02
         S(69) = 0.1815332D+00
         E(70) = 0.8712383D+01
         S(70) = 0.1118670D-01
         E(71) = 0.4144971D+01
         S(71) = -.3575843D+00
         E(72) = 0.1969649D+01
         S(72) = -.4572305D+00
         E(73) = 0.6799520D+00
         S(73) = 0.1000000D+01
         E(74) = 0.3245020D+00
         S(74) = 0.1000000D+01
         E(75) = 0.1374410D+00
         S(75) = 0.1000000D+01
         E(76) = 0.2860083D+05
         P(76) = 0.6050000D-04
         E(77) = 0.6770991D+04
         P(77) = 0.5378000D-03
         E(78) = 0.2199049D+04
         P(78) = 0.3093400D-02
         E(79) = 0.8411796D+03
         P(79) = 0.1351500D-01
         E(80) = 0.3567663D+03
         P(80) = 0.4709590D-01
         E(81) = 0.1626362D+03
         P(81) = 0.1296200D+00
         E(82) = 0.7796604D+02
         P(82) = 0.2661108D+00
         E(83) = 0.3866149D+02
         P(83) = 0.3678058D+00
         E(84) = 0.1957679D+02
         P(84) = 0.2740372D+00
         E(85) = 0.9791761D+01
         P(85) = 0.7871130D-01
         E(86) = 0.4835383D+01
         P(86) = 0.4984200D-02
         E(87) = 0.2368125D+01
         P(87) = 0.1226700D-02
         E(88) = 0.1089996D+01
         P(88) = -.2448000D-03
         E(89) = 0.2860083D+05
         P(89) = -.2460000D-04
         E(90) = 0.6770991D+04
         P(90) = -.2192000D-03
         E(91) = 0.2199049D+04
         P(91) = -.1262800D-02
         E(92) = 0.8411796D+03
         P(92) = -.5575600D-02
         E(93) = 0.3567663D+03
         P(93) = -.1975460D-01
         E(94) = 0.1626362D+03
         P(94) = -.5644880D-01
         E(95) = 0.7796604D+02
         P(95) = -.1214923D+00
         E(96) = 0.3866149D+02
         P(96) = -.1794907D+00
         E(97) = 0.1957679D+02
         P(97) = -.9623140D-01
         E(98) = 0.9791761D+01
         P(98) = 0.2163190D+00
         E(99) = 0.4835383D+01
         P(99) = 0.4899721D+00
         E(100) = 0.2368125D+01
         P(100) = 0.3726758D+00
         E(101) = 0.1089996D+01
         P(101) = 0.7500880D-01
         E(102) = 0.2860083D+05
         P(102) = 0.6700000D-05
         E(103) = 0.6770991D+04
         P(103) = 0.5960000D-04
         E(104) = 0.2199049D+04
         P(104) = 0.3432000D-03
         E(105) = 0.8411796D+03
         P(105) = 0.1519000D-02
         E(106) = 0.3567663D+03
         P(106) = 0.5388100D-02
         E(107) = 0.1626362D+03
         P(107) = 0.1549350D-01
         E(108) = 0.7796604D+02
         P(108) = 0.3351760D-01
         E(109) = 0.3866149D+02
         P(109) = 0.5019110D-01
         E(110) = 0.1957679D+02
         P(110) = 0.2445500D-01
         E(111) = 0.9791761D+01
         P(111) = -.7529530D-01
         E(112) = 0.4835383D+01
         P(112) = -.1760534D+00
         E(113) = 0.2368125D+01
         P(113) = -.1570724D+00
         E(114) = 0.1089996D+01
         P(114) = 0.1304579D+00
         E(115) = 0.5045880D+00
         P(115) = 0.1000000D+01
         E(116) = 0.2184550D+00
         P(116) = 0.1000000D+01
         E(117) = 0.8995900D-01
         P(117) = 0.1000000D+01
         E(118) = 0.1437779D+04
         D(118) = 0.1108000D-03
         E(119) = 0.4342685D+03
         D(119) = 0.1082800D-02
         E(120) = 0.1689270D+03
         D(120) = 0.6406500D-02
         E(121) = 0.7477754D+02
         D(121) = 0.2623790D-01
         E(122) = 0.3551602D+02
         D(122) = 0.7882350D-01
         E(123) = 0.1767105D+02
         D(123) = 0.1770677D+00
         E(124) = 0.9004611D+01
         D(124) = 0.2839622D+00
         E(125) = 0.4594773D+01
         D(125) = 0.3294702D+00
         E(126) = 0.2326486D+01
         D(126) = 0.2589001D+00
         E(127) = 0.1133247D+01
         D(127) = 0.1000000D+01
         E(128) = 0.4813070D+00
         D(128) = 0.1000000D+01
         E(129) = 0.2053000D+00
         D(129) = 0.1000000D+01
         E(130) = 0.4130000D+00
         F(130) = 0.1000000D+01
         E(131) = 0.9557000D+00
         F(131) = 0.1000000D+01
         E(132) = 0.7395000D+00
         G(132) = 0.1000000D+01
         ILAST = 132
      ELSE IF (NTMP.EQ.4) THEN
         E(1) = 0.1828221D+09
         S(1) = 0.1800000D-06
         E(2) = 0.2735616D+08
         S(2) = 0.1420000D-05
         E(3) = 0.6221170D+07
         S(3) = 0.7460000D-05
         E(4) = 0.1760278D+07
         S(4) = 0.3159000D-04
         E(5) = 0.5731938D+06
         S(5) = 0.1157500D-03
         E(6) = 0.2062585D+06
         S(6) = 0.3815000D-03
         E(7) = 0.8002667D+05
         S(7) = 0.1159000D-02
         E(8) = 0.3293908D+05
         S(8) = 0.3293400D-02
         E(9) = 0.1422263D+05
         S(9) = 0.8816100D-02
         E(10) = 0.6393071D+04
         S(10) = 0.2221800D-01
         E(11) = 0.2976454D+04
         S(11) = 0.5208810D-01
         E(12) = 0.1430525D+04
         S(12) = 0.1106356D+00
         E(13) = 0.7079262D+03
         S(13) = 0.2025326D+00
         E(14) = 0.3598485D+03
         S(14) = 0.2926350D+00
         E(15) = 0.1871497D+03
         S(15) = 0.2851224D+00
         E(16) = 0.9863452D+02
         S(16) = 0.1455064D+00
         E(17) = 0.5054787D+02
         S(17) = 0.2399390D-01
         E(18) = 0.2716700D+02
         S(18) = -.9490000D-04
         E(19) = 0.1461510D+02
         S(19) = 0.5578000D-03
         E(20) = 0.7651352D+01
         S(20) = -.2870000D-03
         E(21) = 0.3997263D+01
         S(21) = 0.9660000D-04
         E(22) = 0.2085853D+01
         S(22) = -.7840000D-04
         E(23) = 0.1828221D+09
         S(23) = -.5700000D-06
         E(24) = 0.2735616D+08
         S(24) = -.4500000D-06
         E(25) = 0.6221170D+07
         S(25) = -.2350000D-05
         E(26) = 0.1760278D+07
         S(26) = -.9940000D-05
         E(27) = 0.5731938D+06
         S(27) = -.3640000D-04
         E(28) = 0.2062585D+06
         S(28) = -.1201000D-03
         E(29) = 0.8002667D+05
         S(29) = -.3654000D-03
         E(30) = 0.3293908D+05
         S(30) = -.1040700D-02
         E(31) = 0.1422263D+05
         S(31) = -.2803800D-02
         E(32) = 0.6393071D+04
         S(32) = -.7150900D-02
         E(33) = 0.2976454D+04
         S(33) = -.1722040D-01
         E(34) = 0.1430525D+04
         S(34) = -.3848000D-01
         E(35) = 0.7079262D+03
         S(35) = -.7786280D-01
         E(36) = 0.3598485D+03
         S(36) = -.1347423D+00
         E(37) = 0.1871497D+03
         S(37) = -.1776148D+00
         E(38) = 0.9863452D+02
         S(38) = -.1068413D+00
         E(39) = 0.5054787D+02
         S(39) = 0.1896132D+00
         E(40) = 0.2716700D+02
         S(40) = 0.5091871D+00
         E(41) = 0.1461510D+02
         S(41) = 0.3939859D+00
         E(42) = 0.7651352D+01
         S(42) = 0.9190320D-01
         E(43) = 0.3997263D+01
         S(43) = 0.3919500D-02
         E(44) = 0.2085853D+01
         S(44) = 0.1749600D-02
         E(45) = 0.1828221D+09
         S(45) = 0.2000000D-07
         E(46) = 0.2735616D+08
         S(46) = 0.1800000D-06
         E(47) = 0.6221170D+07
         S(47) = 0.9400000D-06
         E(48) = 0.1760278D+07
         S(48) = 0.3990000D-05
         E(49) = 0.5731938D+06
         S(49) = 0.1462000D-04
         E(50) = 0.2062585D+06
         S(50) = 0.4819000D-04
         E(51) = 0.8002667D+05
         S(51) = 0.1467000D-03
         E(52) = 0.3293908D+05
         S(52) = 0.4177000D-03
         E(53) = 0.1422263D+05
         S(53) = 0.1126700D-02
         E(54) = 0.6393071D+04
         S(54) = 0.2876900D-02
         E(55) = 0.2976454D+04
         S(55) = 0.6954900D-02
         E(56) = 0.1430525D+04
         S(56) = 0.1563650D-01
         E(57) = 0.7079262D+03
         S(57) = 0.3208010D-01
         E(58) = 0.3598485D+03
         S(58) = 0.5686890D-01
         E(59) = 0.1871497D+03
         S(59) = 0.7848450D-01
         E(60) = 0.9863452D+02
         S(60) = 0.5033980D-01
         E(61) = 0.5054787D+02
         S(61) = -.1042742D+00
         E(62) = 0.2716700D+02
         S(62) = -.3743761D+00
         E(63) = 0.1461510D+02
         S(63) = -.4011131D+00
         E(64) = 0.7651352D+01
         S(64) = 0.9683880D-01
         E(65) = 0.3997263D+01
         S(65) = 0.6428776D+00
         E(66) = 0.2085853D+01
         S(66) = 0.4860600D+00
         E(67) = 0.1828221D+09
         S(67) = -.6000000D-08
         E(68) = 0.2735616D+08
         S(68) = -.5700000D-07
         E(69) = 0.6221170D+07
         S(69) = -.3000000D-06
         E(70) = 0.1760278D+07
         S(70) = -.1270000D-05
         E(71) = 0.5731938D+06
         S(71) = -.4658000D-05
         E(72) = 0.2062585D+06
         S(72) = -.1534700D-04
         E(73) = 0.8002667D+05
         S(73) = -.4673600D-04
         E(74) = 0.3293908D+05
         S(74) = -.1330220D-03
         E(75) = 0.1422263D+05
         S(75) = -.3590620D-03
         E(76) = 0.6393071D+04
         S(76) = -.9165000D-03
         E(77) = 0.2976454D+04
         S(77) = -.2218400D-02
         E(78) = 0.1430525D+04
         S(78) = -.4988300D-02
         E(79) = 0.7079262D+03
         S(79) = -.1026610D-01
         E(80) = 0.3598485D+03
         S(80) = -.1824450D-01
         E(81) = 0.1871497D+03
         S(81) = -.2541100D-01
         E(82) = 0.9863452D+02
         S(82) = -.1639310D-01
         E(83) = 0.5054787D+02
         S(83) = 0.3469770D-01
         E(84) = 0.2716700D+02
         S(84) = 0.1321283D+00
         E(85) = 0.1461510D+02
         S(85) = 0.1470925D+00
         E(86) = 0.7651352D+01
         S(86) = -.4182160D-01
         E(87) = 0.3997263D+01
         S(87) = -.3195240D+00
         E(88) = 0.2085853D+01
         S(88) = -.4363286D+00
         E(89) = 0.1014797D+01
         S(89) = 0.1000000D+01
         E(90) = 0.5197880D+00
         S(90) = 0.1000000D+01
         E(91) = 0.2451030D+00
         S(91) = 0.1000000D+01
         E(92) = 0.1118960D+00
         S(92) = 0.1000000D+01
         E(93) = 0.4299306D+05
         P(93) = 0.2970000D-04
         E(94) = 0.1017372D+05
         P(94) = 0.2651000D-03
         E(95) = 0.3303106D+04
         P(95) = 0.1541600D-02
         E(96) = 0.1263540D+04
         P(96) = 0.6906500D-02
         E(97) = 0.5363655D+03
         P(97) = 0.2513970D-01
         E(98) = 0.2448762D+03
         P(98) = 0.7501240D-01
         E(99) = 0.1179912D+03
         P(99) = 0.1767433D+00
         E(100) = 0.5902125D+02
         P(100) = 0.3075135D+00
         E(101) = 0.3035607D+02
         P(101) = 0.3470644D+00
         E(102) = 0.1581998D+02
         P(102) = 0.2002802D+00
         E(103) = 0.8104580D+01
         P(103) = 0.4305080D-01
         E(104) = 0.4097964D+01
         P(104) = 0.2477200D-02
         E(105) = 0.2056061D+01
         P(105) = 0.6789000D-03
         E(106) = 0.4299306D+05
         P(106) = -.1210000D-04
         E(107) = 0.1017372D+05
         P(107) = -.1078000D-03
         E(108) = 0.3303106D+04
         P(108) = -.6290000D-03
         E(109) = 0.1263540D+04
         P(109) = -.2832300D-02
         E(110) = 0.5363655D+03
         P(110) = -.1044620D-01
         E(111) = 0.2448762D+03
         P(111) = -.3194000D-01
         E(112) = 0.1179912D+03
         P(112) = -.7845990D-01
         E(113) = 0.5902125D+02
         P(113) = -.1439719D+00
         E(114) = 0.3035607D+02
         P(114) = -.1691703D+00
         E(115) = 0.1581998D+02
         P(115) = -.1759660D-01
         E(116) = 0.8104580D+01
         P(116) = 0.3002649D+00
         E(117) = 0.4097964D+01
         P(117) = 0.4847661D+00
         E(118) = 0.2056061D+01
         P(118) = 0.2967248D+00
         E(119) = 0.4299306D+05
         P(119) = 0.3300000D-05
         E(120) = 0.1017372D+05
         P(120) = 0.2930000D-04
         E(121) = 0.3303106D+04
         P(121) = 0.1713000D-03
         E(122) = 0.1263540D+04
         P(122) = 0.7695000D-03
         E(123) = 0.5363655D+03
         P(123) = 0.2851400D-02
         E(124) = 0.2448762D+03
         P(124) = 0.8720400D-02
         E(125) = 0.1179912D+03
         P(125) = 0.2161810D-01
         E(126) = 0.5902125D+02
         P(126) = 0.3980240D-01
         E(127) = 0.3035607D+02
         P(127) = 0.4747750D-01
         E(128) = 0.1581998D+02
         P(128) = -.4773000D-03
         E(129) = 0.8104580D+01
         P(129) = -.1021891D+00
         E(130) = 0.4097964D+01
         P(130) = -.1823611D+00
         E(131) = 0.2056061D+01
         P(131) = -.1173363D+00
         E(132) = 0.9521450D+00
         P(132) = 0.1000000D+01
         E(133) = 0.4447740D+00
         P(133) = 0.1000000D+01
         E(134) = 0.1974960D+00
         P(134) = 0.1000000D+01
         E(135) = 0.8382300D-01
         P(135) = 0.1000000D+01
         E(136) = 0.2067436D+04
         D(136) = 0.4960000D-04
         E(137) = 0.6256937D+03
         D(137) = 0.4944000D-03
         E(138) = 0.2439468D+03
         D(138) = 0.3026500D-02
         E(139) = 0.1084237D+03
         D(139) = 0.1334610D-01
         E(140) = 0.5200522D+02
         D(140) = 0.4378690D-01
         E(141) = 0.2611540D+02
         D(141) = 0.1114388D+00
         E(142) = 0.1354675D+02
         D(142) = 0.2130341D+00
         E(143) = 0.7105810D+01
         D(143) = 0.2979241D+00
         E(144) = 0.3721554D+01
         D(144) = 0.3079660D+00
         E(145) = 0.1929120D+01
         D(145) = 0.1000000D+01
         E(146) = 0.9558260D+00
         D(146) = 0.1000000D+01
         E(147) = 0.4051970D+00
         D(147) = 0.1000000D+01
         E(148) = 0.1741000D+00
         D(148) = 0.1000000D+01
         E(149) = 0.3150000D+00
         F(149) = 0.1000000D+01
         E(150) = 0.5870000D+00
         F(150) = 0.1000000D+01
         E(151) = 0.1094000D+01
         F(151) = 0.1000000D+01
         E(152) = 0.5010000D+00
         G(152) = 0.1000000D+01
         E(153) = 0.1104000D+01
         G(153) = 0.1000000D+01
CFRJ     E(154) = 0.9303000D+00
CFRJ     H(154) = 0.1000000D+01
         ILAST = 153
      ENDIF
      RETURN
C
C        TRANSITION METALS
C
  910 CONTINUE
      IF (MASWRK) WRITE(6,*)
     *     'THERE ARE NO CC-PV6Z BASIS SETS FOR Z > 18'
      CALL BERROR(3)
      STOP
      END
C*MODULE BASCCN  *DECK DCCN03
      SUBROUTINE DCCN03(E,D,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),D(310)
C
      NN = N-10
      GO TO (100,100,140,160,180,200,220,240),NN
C
C     ----- NA MG -----
C
  100 CONTINUE
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.1195000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1570000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1970000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2639000D+01
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.4240000D+01
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.1803000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2303000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2645000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.3738000D+01
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.6825000D+01
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.2506000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.3120000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.3343000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.5103000D+01
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.9473000D+01
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.2994000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.3756000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4159000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.6510000D+01
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.1153300D+02
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3652000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4610000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.5191000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.8399000D+01
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.1477200D+02
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4390000D+01
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5551000D+01
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.6315000D+01
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1051800D+02
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.1774300D+02
      ENDIF
      D(ILAST+1) = 0.1000000D+01
      ILAST = ILAST + 1
      RETURN
      END
C*MODULE BASCCN  *DECK MCCN03
      SUBROUTINE MCCN03(E,N,NTMP)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310)
C
C     MODIFY THE EXISTING D-FUNCTIONS WHEN A TIGHT D-FUNCTION IS ADDED
C
      NN = N-10
      GO TO (100,100,140,160,180,200,220,240),NN
C
C     ----- NA, MG -----
C
  100 CONTINUE
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.1900000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.3330000D+00
         E(59) = 0.1110000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.4370000D+00
         E(63) = 0.1950000D+00
         E(64) = 0.8000000D-01
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.5880000D+00
         E(74) = 0.3800000D+00
         E(75) = 0.1800000D+00
         E(76) = 0.7280000D-01
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.8500000D+00
         E(78) = 0.7490000D+00
         E(79) = 0.3500000D+00
         E(80) = 0.1560000D+00
         E(81) = 0.6610000D-01
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.2750000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.4760000D+00
         E(59) = 0.1600000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.6080000D+00
         E(63) = 0.2720000D+00
         E(64) = 0.1130000D+00
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.8930000D+00
         E(74) = 0.5330000D+00
         E(75) = 0.2580000D+00
         E(76) = 0.1050000D+00
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.1763000D+01
         E(78) = 0.8350000D+00
         E(79) = 0.5070000D+00
         E(80) = 0.2320000D+00
         E(81) = 0.9770000D-01
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.3740000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.6480000D+00
         E(59) = 0.2180000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.8070000D+00
         E(63) = 0.3650000D+00
         E(64) = 0.1540000D+00
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.1254000D+01
         E(74) = 0.7240000D+00
         E(75) = 0.3540000D+00
         E(76) = 0.1440000D+00
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.2482000D+01
         E(78) = 0.1088000D+01
         E(79) = 0.6920000D+00
         E(80) = 0.3190000D+00
         E(81) = 0.1340000D+00
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.4810000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.8120000D+00
         E(59) = 0.2730000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.1019000D+01
         E(63) = 0.4640000D+00
         E(64) = 0.1940000D+00
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.1590000D+01
         E(74) = 0.8860000D+00
         E(75) = 0.4380000D+00
         E(76) = 0.1770000D+00
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.2988000D+01
         E(78) = 0.1259000D+01
         E(79) = 0.8040000D+00
         E(80) = 0.3800000D+00
         E(81) = 0.1600000D+00
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.6030000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.1011000D+01
         E(59) = 0.3390000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.1276000D+01
         E(63) = 0.5830000D+00
         E(64) = 0.2430000D+00
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.2030000D+01
         E(74) = 0.1097000D+01
         E(75) = 0.5490000D+00
         E(76) = 0.2210000D+00
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.3820000D+01
         E(78) = 0.1583000D+01
         E(79) = 0.1036000D+01
         E(80) = 0.4880000D+00
         E(81) = 0.2030000D+00
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(50) = 0.7390000D+00
      ELSE IF (NTMP.EQ.2) THEN
         E(58) = 0.1235000D+01
         E(59) = 0.4120000D+00
      ELSE IF (NTMP.EQ.3) THEN
         E(62) = 0.1562000D+01
         E(63) = 0.7150000D+00
         E(64) = 0.2970000D+00
      ELSE IF (NTMP.EQ.4) THEN
         E(73) = 0.2516000D+01
         E(74) = 0.1332000D+01
         E(75) = 0.6730000D+00
         E(76) = 0.2700000D+00
      ELSE IF (NTMP.EQ.5) THEN
         E(77) = 0.4580000D+01
         E(78) = 0.1889000D+01
         E(79) = 0.1252000D+01
         E(80) = 0.5940000D+00
         E(81) = 0.2470000D+00
      ENDIF
      END
C*MODULE BASCCN  *DECK ACCN01
      SUBROUTINE ACCN01(E,S,P,D,F,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310)
C
      GO TO (100,120),N
C
C     ----- HYDROGEN -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.2974000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1410000D+00
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2526000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1020000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2470000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2363000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8480000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1900000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3600000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2070000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7440000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1560000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2740000D+00
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.5430000D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.1890000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6700000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1260000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2450000D+00
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.4070000D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.6820000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  4
      ENDIF
      RETURN
C
C     ----- HE -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.7255000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2473000D+00
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5138000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1993000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4592000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4819000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1626000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3510000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6906000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.4664000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1400000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2892000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5345000D+00
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.7899000D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.4473000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1280000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2410000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4070000D+00
         F(ILAST+4) = 0.1000000D+01
CFRJ     E(ILAST+5) = 0.6860000D+00
CFRJ     G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1016000D+01
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  4
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK ACCN02
      SUBROUTINE ACCN02(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
C
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      NN = N-2
      GO TO (100,100,140,160,180,200,220,240),NN
C
  100 CONTINUE
      IF (MASWRK) WRITE(6,*)'AUG-CC-PVNZ BASIS DOES NOT EXIST FOR LI,BE'
      CALL BERROR(3)
      STOP
C
C     ----- B  -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3105000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2378000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9040000D-01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2914000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2096000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6040000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1630000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2721000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1878000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4660000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1130000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2730000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2610000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1570000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4310000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8430000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2020000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3840000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.2300000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1365000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3920000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7330000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1620000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2880000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.5000000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- C  -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4690000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4041000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1510000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4402000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3569000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1000000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2680000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4145000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3218000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7660000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1870000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4240000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.3940000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2720000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7010000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1380000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3190000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.5860000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.3540000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2376000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6360000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1180000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2540000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4510000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.7760000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- N -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.6124000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5611000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2300000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5760000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4910000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1510000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3640000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.5464000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4402000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1110000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2450000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5590000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.5180000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3690000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9710000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1920000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4360000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.7880000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.4714000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3150000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8740000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1510000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3260000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.5870000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.1041000D+01
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- O  ------
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.7896000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6856000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3320000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.7376000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5974000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2140000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5000000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.6959000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5348000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1540000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3240000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7140000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.6550000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4460000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1310000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2370000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5170000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1024000D+01
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.5935000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3380000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1150000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1950000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4060000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.7480000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.1345000D+01
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- F  -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.9863000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8502000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4640000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.9158000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7361000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2920000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7240000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.8594000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6568000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2070000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4600000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.9240000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.8060000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5500000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1720000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3310000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.6630000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1326000D+01
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.7315000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4760000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1510000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2720000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5200000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.9850000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.1739000D+01
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- NE -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.1230000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1064000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6310000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1133000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.9175000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3860000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1084000D+01
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1054000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8178000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2730000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6890000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1224000D+01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.9570000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6540000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2130000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4250000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.8090000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1628000D+01
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.8690000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5660000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1870000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3492000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.6345000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1209300D+01
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.2121500D+01
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK ACCN03
      SUBROUTINE ACCN03(E,S,P,D,F,G,N,NTMP,ILAST,LCORE)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
      LOGICAL LCORE
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
C     WE IMPLEMENT THE AUG-CC-PV(N+D)Z BASIS SETS UNDER THE NAME
C     OF AUG-CC-PVNX (KEYWORD ACCN) ON THE GROUNDS THAT THE ORIGINAL
C     BASIS SETS ARE FLAWED IN THE D SPACE, AND THE NEW ONES ARE
C     WHAT WE SHOULD USE.
C
C     NOTE HOWEVER, THAT THE CORE VERSION BASIS SETS DO NOT APPEAR
C     TO HAVE BEEN REDEFINED, IN EITHER THE NORMAL D SPACE, NOR IN
C     THE DIFFUSE D SHELL.  THIS WAS VERIFIED ON THE EMSL WEB PAGE,
C     IN DECEMBER 2005.  THE STRATEGY HERE IS TO SET UP THE ORIGINAL
C     BASIS SETS AUG-CC-PCVNZ, BUT TO DISCOURAGE THEIR USE IN THE
C     MANUAL, BECAUSE THEY SURELY CONTAIN THE FLAWS OF THE ORIGINAL.
C
      NN = N-10
      GO TO (100,100,140,160,180,200,220,240),NN
C
C     ----- NA,MG -----
C
  100 CONTINUE
      IF (MASWRK) WRITE(6,*)'AUG-CC-PVNZ BASIS DOES NOT EXIST FOR NA,MG'
      CALL BERROR(3)
      STOP
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.2310000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1530000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5520000D-01
         IF(LCORE) E(ILAST+3) = 0.0535D000
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2210000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1460000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3570000D-01
         IF(LCORE) E(ILAST+3) = 0.0356D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8580000D-01
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1830000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1210000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2740000D-01
         IF(LCORE) E(ILAST+3) = 0.0282D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5820000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1530000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1770000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1150000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2540000D-01
         IF(LCORE) E(ILAST+3) = 0.0294D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5090000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1069000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2270000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.1737000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1021000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2370000D-01
         IF(LCORE) E(ILAST+3) = 0.02666D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4625000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.8545000D-01
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.1655000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.2990000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3320000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2500000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8400000D-01
         IF(LCORE) E(ILAST+3) = 0.0823D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.3300000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2370000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5510000D-01
         IF(LCORE) E(ILAST+3) = 0.0556D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1250000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2750000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2000000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4140000D-01
         IF(LCORE) E(ILAST+3) = 0.0435D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8460000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2120000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2600000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1920000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3900000D-01
         IF(LCORE) E(ILAST+3) = 0.0468D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7350000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1510000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3230000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.2539000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1694000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3700000D-01
         IF(LCORE) E(ILAST+3) = 0.04139D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6884000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1164000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2351000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.4271000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4170000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3430000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1160000D+00
         IF(LCORE) E(ILAST+3) = 0.113D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4090000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3070000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7750000D-01
         IF(LCORE) E(ILAST+3) = 0.0775D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1650000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.3540000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2720000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5700000D-01
         IF(LCORE) E(ILAST+3) = 0.0594D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1090000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2500000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.3350000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2530000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5370000D-01
         IF(LCORE) E(ILAST+3) = 0.0624D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9500000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1840000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3720000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.3228000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2197000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5070000D-01
         IF(LCORE) E(ILAST+3) = 0.05492D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8710000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1470000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2874000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.5151000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.5070000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3990000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1550000D+00
         IF(LCORE) E(ILAST+3) = 0.152D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4970000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3510000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1010000D+00
         IF(LCORE) E(ILAST+3) = 0.101D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2180000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4280000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3170000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.0722000D+00
         IF(LCORE) E(ILAST+3) = 0.0748D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1400000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2970000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.4200000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2940000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6640000D-01
         IF(LCORE) E(ILAST+3) = 0.0794D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1188000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2200000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4720000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.3893000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2648000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6090000D-01
         IF(LCORE) E(ILAST+3) = 0.06986D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1100000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1799000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3465000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.6222000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.6080000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4660000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1980000D+00
         IF(LCORE) E(ILAST+3) = 0.196D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5910000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4190000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1300000D+00
         IF(LCORE) E(ILAST+3) = 0.135D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3120000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.5190000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3760000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9120000D-01
         IF(LCORE) E(ILAST+3) = 0.0952D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2170000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3780000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.4790000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3480000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.0836000D+00
         IF(LCORE) E(ILAST+3) = 0.1003D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1640000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2770000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.6070000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.4625000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3163000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.0775000D+00
         IF(LCORE) E(ILAST+3) = 0.08885D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1465000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2177000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4365000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.8074000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.7090000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5330000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2380000D+00
         IF(LCORE) E(ILAST+3) = 0.240D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.6850000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4870000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1550000D+00
         IF(LCORE) E(ILAST+3) = 0.169D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4060000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.6100000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4350000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1080000D+00
         IF(LCORE) E(ILAST+3) = 0.116D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2940000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4590000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.5380000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4020000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.0978000D+00
         IF(LCORE) E(ILAST+3) = 0.121D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2090000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3340000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.7420000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         E(ILAST+1) = 0.5357000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3678000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.0898000D+00
         IF(LCORE) E(ILAST+3) = 0.1078D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1830000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2555000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.5265000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
CFRJ     E(ILAST+7) = 0.9926000D+00
CFRJ     I(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  5
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK ACCN04
      SUBROUTINE ACCN04(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      IF (NTMP.GE.5) GOTO 910
      IF(N.EQ.21) GO TO 121
      IF(N.EQ.22) GO TO 122
      IF(N.EQ.23) GO TO 123
      IF(N.EQ.24) GO TO 124
      IF(N.EQ.25) GO TO 125
      IF(N.EQ.26) GO TO 126
      IF(N.EQ.27) GO TO 127
      IF(N.EQ.28) GO TO 128
      IF(N.EQ.29) GO TO 129
      IF(N.EQ.30) GO TO 130
      IF(N.LT.21) NN = N-18
      IF(N.GT.30) NN = N-30+2
      GO TO (100,100,140,160,180,200,220,240),NN
C
  100 CONTINUE
      IF (MASWRK) WRITE(6,*)'AUG-CC-PVNZ BASIS DOES NOT EXIST FOR K,CA'
      CALL BERROR(3)
      STOP
C     ----- SC -----
C
  121 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.1100000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.0660000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.2440000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 4.0630000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 9.4730000D-02
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.0470000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.0080000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 9.4700000D-03
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 3.0670000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 7.0600000D-02
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 1.1931000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR SC'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C     ----- TI -----
C
  122 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.1730000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.1720000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.7120000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 8.0690000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 2.0413000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.1100000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.0980000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.2760000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 5.4490000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 1.2313000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 2.6253000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR TI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C     ----- V -----
C
  123 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.2320000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.2400000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.2400000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.2813000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 3.7212000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.1720000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.1720000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.6200000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 8.0530000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 1.8929000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 4.5499000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR V'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- CR -----
C
  124 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.2470000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.3070000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.4980000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.7249000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 4.9896000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.1570000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.2320000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.7800000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.0242000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 2.4002000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 6.1479000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CR'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- MN -----
C
  125 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.3350000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.3760000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.8530000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 2.1764000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 6.1436000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.2800000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.2840000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 1.9690000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.2624000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 3.1119000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 7.5513000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR MN'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- FE -----
C
  126 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.4010000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.4010000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 3.2160000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 2.6723000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 7.6426000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.3480000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.3020000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.1860000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.5270000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 3.9815000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 9.3245000D-01
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR FE'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- CO -----
C
  127 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.4590000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.5200000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 3.5980000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 3.2041000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 9.2816000D-01
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.4090000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.4190000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.3860000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 1.8087000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 4.8521000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 1.1246100D-00
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CO'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- NI -----
C
  128 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.5160000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.4940000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 3.9990000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 3.7725000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 1.1744600D-00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.4670000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.3830000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 2.6470000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 2.1526000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 6.1121000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 1.3438200D-00
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR NI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- CU -----
C
  129 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.5720000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.5380000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 6.4890000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 4.5165000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 1.4055600D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.5240000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.4190000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 4.5270000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 2.5007000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 7.1035000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 1.6227600D+00
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR CU'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- ZN -----
C
  130 CONTINUE
      IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 1.6230000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.5820000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 8.8970000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 5.3654000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 1.7512600D-00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 1.5760000D-02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 1.4640000D-02
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 6.5000000D-02
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 2.9390000D-02
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 8.4730000D-01
         G(ILAST+5) = 0.1000000D+01
CSDJ     E(ILAST+6) = 1.9605400D-00
CSDJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV5Z BASIS DOES NOT EXIST FOR ZN'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C     ----- GA -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.2434800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1516400D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5370000D-01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1439800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1930000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3870000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9800000D-01
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1847500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1140600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2790000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.6550000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1680000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1730100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1105000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2600000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5110000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1140000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.2540000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR GA'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- GE -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3396100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2394500D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7710000D-01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2737000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2136800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5280000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1323000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2639000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1855000D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3970000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8840000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2143000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2427400D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1759300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3640000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7050000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1460000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3200000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR GE'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- AS  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4115200D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3126800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1078000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.3340700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2679900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7000000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1690000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.3249900D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2369800D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5310000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1132000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2390000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2941800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2204300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4880000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8990000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1655000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.3668000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR AS'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- SE  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4874700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3549200D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1283000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.3920100D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3025100D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8370000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1880000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.3815200D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2656900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6190000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1240000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2630000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.3393500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2497500D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5480000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9920000D-01
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1830000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4020000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR SE'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- BR -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.5694600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4104900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1719000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4559300D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3514200D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1047000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2580000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4427000D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3051300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8290000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1748000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3110000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.3910600D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2905200D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7810000D-01
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1388000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2190000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.4910000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR BR'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- KR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.6514500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4660600D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2155000D+00
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5198500D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4003300D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1257000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3280000D+00
         F(ILAST+4) = 0.1000000D+01
         ILAST = ILAST +  4
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.5038800D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3445700D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1039000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2256000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3590000D+00
         G(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.4427700D-01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3312900D-01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1014000D+00
         D(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1784000D+00
         F(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2550000D+00
         G(ILAST+5) = 0.1000000D+01
CFRJ     E(ILAST+6) = 0.5800000D+00
CFRJ     H(ILAST+6) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.5) THEN
         IF (MASWRK) WRITE(6,*)'AUG-CC-PV6Z BASIS DOES NOT EXIST FOR KR'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C        TRANSITION METALS
C
  910 CONTINUE
      IF (MASWRK) WRITE(6,*)
     *     'THERE ARE NO CC-PV6Z BASIS SETS FOR Z > 18'
      CALL BERROR(3)
      STOP
      END
C*MODULE BASCCN  *DECK CCCN02
      SUBROUTINE CCCN02(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
C
      LOGICAL GOPARR,DSKWRK,MASWRK
C
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
      NN = N-2
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- LI  -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.9060000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3242000D+01
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1974000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6830000D+00
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7320000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1875000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4912000D+01
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.5614000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1860000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6160000D+00
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.9785000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2593000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.6870000D+00
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1060200D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.3066000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.6683000D+01
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         IF (MASWRK) WRITE(6,*) 'CC-PCV5Z BASIS DOES NOT EXIST FOR LI'
         CALL BERROR(3)
         STOP
      ENDIF
      RETURN
C
C     ----- BE  -----
C
  120 CONTINUE
      IF (MASWRK) WRITE(6,*) 'CC-PCVNZ BASIS DOES NOT EXIST FOR BE'
      CALL BERROR(3)
      STOP
C
C     ----- B  -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3066000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.9940000D+01
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.2940000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8311000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6016000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2289100D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1301500D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.4864000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1328800D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3630400D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5489000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1630200D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4841800D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.6640000D+01
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.2446200D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1879400D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.6411000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1452100D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3289000D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7449600D+02
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5172000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1322500D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.3381600D+02
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.8646700D+02
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.7066000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.1972100D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.5504200D+02
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.9994000D+01
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.3309000D+02
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.2402000D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
C
C     ----- C  -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4530000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1455700D+02
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4292000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1187600D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8778000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3319000D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1483900D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.7216000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1957000D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5307300D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8182000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2418600D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.7149400D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.8656000D+01
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.3321300D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2469400D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.9185000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2079500D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4708000D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1065880D+03
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7668000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1948400D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.4951000D+02
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.1258040D+03
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1000900D+02
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.2806500D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.7869500D+02
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1169300D+02
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.4156900D+02
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.3278000D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
C
C     ----- N -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.6233000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1997700D+02
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.5952000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1620100D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1187100D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4484900D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1420000D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.9862000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2662700D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7189400D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1132000D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.3334900D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.9824500D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1182800D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.4521800D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2836400D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1227500D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2782700D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6308500D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1430130D+03
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1076000D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.2718000D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.6865600D+02
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.1734250D+03
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1405300D+02
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.3908100D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.1086850D+03
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1435700D+02
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.5269000D+02
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.4112000D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
C
C     ----- O  ------
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.8215000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2605600D+02
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.7845000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2103200D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1515900D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5743700D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1585800D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1297400D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3490000D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9388100D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1447500D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4273000D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1261400D+03
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1492700D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.5754400D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2648300D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1564500D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3587400D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8225900D+02
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1886200D+03
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1404900D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.3544600D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.8942900D+02
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.2256300D+03
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1670300D+02
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.4732000D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.1340560D+03
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1735400D+02
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.6554600D+02
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.4857800D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
C
C     ----- F  -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.1042600D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3283000D+02
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.9812000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2594300D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1875600D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.7134800D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1910800D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1631900D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4378400D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1174720D+03
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1811900D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5350500D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1580010D+03
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1894300D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.7279800D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2516100D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.1987600D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4488000D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1013390D+03
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2288240D+03
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1730600D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4366300D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1101620D+03
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.2779380D+03
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2173100D+02
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.6095500D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.1708900D+03
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.2233700D+02
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.8229000D+02
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.4972700D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
C
C     ----- NE -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.1285400D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4018400D+02
         P(ILAST+2) = 0.1000000D+01
         ILAST = ILAST +  2
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1208300D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3194700D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2282700D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.8701700D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2316800D+02
         D(ILAST+5) = 0.1000000D+01
         ILAST = ILAST +  5
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2018000D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5404200D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1447250D+03
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2222200D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.6562200D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1937800D+03
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.2361300D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.9010700D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2883000D+02
         F(ILAST+9) = 0.1000000D+01
         ILAST = ILAST +  9
      ELSE IF (NTMP.EQ.4) THEN
         E(ILAST+1) = 0.2431300D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.5468000D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1229750D+03
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2765710D+03
         S(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2130900D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.5372000D+02
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1354280D+03
         P(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.3414140D+03
         P(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2704400D+02
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.7575000D+02
         D(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.2121760D+03
         D(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.2802900D+02
         F(ILAST+12) = 0.1000000D+01
         E(ILAST+13) = 0.1025860D+03
         F(ILAST+13) = 0.1000000D+01
         E(ILAST+14) = 0.3879400D+02
         G(ILAST+14) = 0.1000000D+01
         ILAST = ILAST + 14
      ENDIF
      RETURN
      END
C*MODULE BASCCN  *DECK CCCN03
      SUBROUTINE CCCN03(E,S,P,D,F,G,N,NTMP,ILAST)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION E(310),S(310),P(310),D(310),F(310),G(310)
C
      NN = N-10
      GO TO (100,120,140,160,180,200,220,240),NN
C
C     ----- NA -----
C
  100 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.7040000D+00
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7610000D+00
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2949000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.4189000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6260000D+00
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1569000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5120000D+00
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5404000D+01
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.1530000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.3465000D+01
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2428200D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4874000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9780000D+00
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4466000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1689000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.6380000D+00
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.8606000D+01
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.3137000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1144000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.6258000D+01
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.2173000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.4097000D+01
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- MG -----
C
  120 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.3422000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.8279000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3704000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1751600D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3870000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2029700D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5105000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7029000D+01
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.2121000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.4530000D+01
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2324300D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.9561000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3933000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3953600D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1277800D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4130000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1253300D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.4677000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.1745000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.7876000D+01
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.2805000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.5394000D+01
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- AL -----
C
  140 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4030000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1529000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4725000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.7488000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1272000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2202000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.5548000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2634000D+01
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.8646000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.5686000D+01
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.9729000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4870000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.2437000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1000000D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.4514000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.2038000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1483500D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.5637000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2142000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.9853000D+01
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.3525000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.6894000D+01
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- SI -----
C
  160 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.4959000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1998000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5806000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.9164000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1621000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6458000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2517000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1067100D+02
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.3308000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.7001000D+01
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1216400D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.6187000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3147000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1264600D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.5747000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.2612000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1901500D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.7401000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.2881000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.1192500D+02
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.4304000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.8577000D+01
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- P  -----
C
  180 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.5977000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2524000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7020000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1097800D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2006000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.7084000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2701000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1289100D+02
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4056000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.8462000D+01
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1483100D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.7640000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.3935000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1552300D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.7073000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.3223000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.2341700D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.9250000D+01
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.3654000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.1420700D+02
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.5161000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1044800D+02
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- S  -----
C
  200 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.7083000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3089000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8363000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1292800D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2413000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.8114000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3106000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1525400D+02
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4845000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1005200D+02
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.1759900D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.9186000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.4795000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.1812700D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.8219000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.3726000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.2741700D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.1089300D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.4319000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.1653500D+02
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.6008000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1251800D+02
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- CL -----
C
  220 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.8273000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3697000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9844000D+01
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1506400D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.2874000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.9480000D+01
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.3668000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1795700D+02
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.5760000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1177900D+02
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2068900D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1088000D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.5722000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2078400D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.9379000D+01
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4232000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.3225500D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.1288800D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.5149000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.1910700D+02
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.6950000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1478200D+02
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      RETURN
C
C     ----- AR -----
C
  240 CONTINUE
      IF (NTMP.EQ.1) THEN
         E(ILAST+1) = 0.9548000D+01
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.4361000D+01
         P(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1145900D+02
         D(ILAST+3) = 0.1000000D+01
         ILAST = ILAST +  3
      ELSE IF (NTMP.EQ.2) THEN
         E(ILAST+1) = 0.1736200D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.3378000D+01
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.1101900D+02
         P(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.4307000D+01
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.2070600D+02
         D(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.6681000D+01
         D(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.1367400D+02
         F(ILAST+7) = 0.1000000D+01
         ILAST = ILAST +  7
      ELSE IF (NTMP.EQ.3) THEN
         E(ILAST+1) = 0.2402400D+02
         S(ILAST+1) = 0.1000000D+01
         E(ILAST+2) = 0.1270600D+02
         S(ILAST+2) = 0.1000000D+01
         E(ILAST+3) = 0.6720000D+01
         S(ILAST+3) = 0.1000000D+01
         E(ILAST+4) = 0.2362700D+02
         P(ILAST+4) = 0.1000000D+01
         E(ILAST+5) = 0.1065400D+02
         P(ILAST+5) = 0.1000000D+01
         E(ILAST+6) = 0.4804000D+01
         P(ILAST+6) = 0.1000000D+01
         E(ILAST+7) = 0.3736400D+02
         D(ILAST+7) = 0.1000000D+01
         E(ILAST+8) = 0.1501300D+02
         D(ILAST+8) = 0.1000000D+01
         E(ILAST+9) = 0.6032000D+01
         D(ILAST+9) = 0.1000000D+01
         E(ILAST+10) = 0.2188400D+02
         F(ILAST+10) = 0.1000000D+01
         E(ILAST+11) = 0.7968000D+01
         F(ILAST+11) = 0.1000000D+01
         E(ILAST+12) = 0.1724300D+02
         G(ILAST+12) = 0.1000000D+01
         ILAST = ILAST + 12
      ENDIF
      END
