C 19 SEP 05 - MK  - INCLUDE MODEL CORE POTENTIAL LIBRARY
C
C*MODULE MCPLIB  *DECK TM3948
      SUBROUTINE TM3948(MMPMOD,NUCZ,MMPTYP,SHINFO,CDFCTR,NOSH,KTYP,KNG,
     2                  EX,C,ZCORE,NOAN0,NOAN1,AN0,ALPN0,AN1,
     3                  ALPN1,BPAR,ITYP,IERR)
C
C     --- MMPMOD: 0  READ VALENCE BASIS-SET
C     ---         1  READ MODEL-POTENTIAL-PARAMETERS
C     ---            AND CORE-SHELL BASIS-SET
C
C     --- NUCZ:    NUCLEAR CHARGE
C     --- MMPTYP:  1  NON-RELATIVISTIC   MOD.POT.
C     ---          2  QUASI-RELATIVISTIC MOD.POT.
C     ---          3  READ IN MOD.POT.FROM $MMP GROUP
C     ---          4  TYPE NOT SPECIFIED
C     ---    W*10**I  FOR I-TH SHELL (I>=1)
C     ---    W: 1,2,3,4,6  S,P,D,F,L - SHELL
C     --- CDFCTR(I) CODED DEFAULT CONTRACTION OF VALENCE-SHELL I
C     --- NOSH     NO.OF (VALENCE OR CORE) SHELLS
C     --- KTYP(I)  TYPE OF SHELL I
C     --- KNG(I)   NO.OF GTFS IN SHELL I
C     --- EX(J)    EXPONENT OF J-TH GTF
C     --- C(J)     CONTRACTION COEFF.OF J-TH GTF
C     --- ZCORE    CORE-CHARGE
C     --- NOAN0    NO.OF A-TERMS FOR N=0
C     --- NOAN1    NO.OF A-TERMS FOR N=1
C     --- AN0(I)   A-PARAMETERS FOR N=0
C     --- ALPN0(I) ALPHA-EXPONENTS FOR N=0
C     --- AN1(I)   A-PARAMETERS FOR N=1
C     --- ALPN1(I) ALPHA-EXPONENTS FOR N=1
C     --- BPAR(I)  B-PARAMETERS
C     --- IERR(I)  ERROR-STATUS   FOR MMPMOD=0:
C     ---          0  OK; 1  NOT MMP-ATOM; 2 MMPTYP WRONG
C
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION AN0(*),ALPN0(*),AN1(*),ALPN1(*)
      DIMENSION BPAR(*),KNG(*),KTYP(*)
      DIMENSION C(*),EX(*)
      CHARACTER*20 CDFCTR(*),SHINFO
C
      DIMENSION ITYP(10)
      COMMON /IOFILE/ IR,IW,IP,IJK,IPK,IDAF,NAV,IODA(950)
C
      IZSAVE=NUCZ
      IERR=0
C
      IZSAVE=NUCZ
      IERR=0
C
C     --- ITYP(I) IS THE TYPE (MMPTYP) OF THE I-TH BUILT-IN
C     --- MODEL-POTENTIAL FOR A GIVEN ATOM (IZSAVE)
C
      DO 40 I=1,10
         ITYP(I)=0
  40  CONTINUE

C ... ../TOOLS_MCP/TM3948:Y-CD.DS.MPPAR
C ... ../TOOLS_MCP/TM3948:Y-CD.DSP.MPPAR

C
C     --- 
C
      IF(IZSAVE.EQ.39) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE :  Y/QR             CONFIGURATION : S1P6D02      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE :  9.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -24.140394 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2035 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -1.2324 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.1836 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  9.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.31919500D+04
           C( 1)=-0.26491484D-02
          EX( 2)= 0.39974200D+03
           C( 2)=-0.14917974D-01
          EX( 3)= 0.29479700D+02
           C( 3)= 0.77816840D-01
          EX( 4)= 0.39074100D+01
           C( 4)=-0.24174214D+00
          EX( 5)= 0.65228800D+00
           C( 5)= 0.39035849D+00
          EX( 6)= 0.31892100D+00
           C( 6)= 0.23767730D+00
          EX( 7)= 0.60509000D-01
           C( 7)=-0.72665229D+00
          EX( 8)= 0.25013000D-01
           C( 8)=-0.44046442D+00
          EX( 9)= 0.32518300D+03
           C( 9)=-0.21497776D-01
          EX(10)= 0.67949600D+02
           C(10)=-0.10465969D+00
          EX(11)= 0.60805800D+01
           C(11)= 0.36018207D+00
          EX(12)= 0.73113000D+00
           C(12)=-0.78293968D+00
          EX(13)= 0.25578000D+00
           C(13)=-0.31247716D+00
          EX(14)= 0.36977800D+02
           C(14)= 0.32970168D-01
          EX(15)= 0.88107900D+01
           C(15)= 0.97213274D-01
          EX(16)= 0.73912000D+00
           C(16)=-0.39405169D+00
          EX(17)= 0.21567000D+00
           C(17)=-0.51329528D+00
          EX(18)= 0.61400000D-01
           C(18)=-0.36612434D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  9.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.14527660D+01
          ALPN0( 1)= 0.18254300D+03
            AN0( 2)= 0.82228945D+00
          ALPN0( 2)= 0.90361203D+01
            AN0( 3)= 0.25647052D+00
          ALPN0( 3)= 0.16516607D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.15157753D+03
          ALPN1( 1)= 0.38250059D+04
            AN1( 2)= 0.11729729D+02
          ALPN1( 2)= 0.44221136D+02
            AN1( 3)= 0.37544464D+00
          ALPN1( 3)= 0.13386849D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.12606700D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.17775940D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.30472400D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.43083780D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.15789832D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.23815760D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.12817480D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.33058640D+05
           C(  1) = 0.18414443D-01
          EX(  2) = 0.37753112D+04
           C(  2) = 0.12878374D+00
          EX(  3) = 0.78046358D+03
           C(  3) = 0.44833232D+00
          EX(  4) = 0.20910772D+03
           C(  4) = 0.53013926D+00
          EX(  5) = 0.34240776D+03
           C(  5) =-0.43046610D-02
          EX(  6) = 0.37643325D+02
           C(  6) = 0.27681870D-01
          EX(  7) = 0.15808645D+02
           C(  7) = 0.18931983D-01
          EX(  8) = 0.29469536D+02
           C(  8) = 0.57708065D-02
          EX(  9) = 0.48394968D+01
           C(  9) =-0.18782238D-01
          EX( 10) = 0.21167037D+01
           C( 10) =-0.76999890D-02
          EX( 11) = 0.36136942D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.68485339D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.28209162D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.33058640D+05
           C( 14) = 0.65991306D-02
          EX( 15) = 0.37753112D+04
           C( 15) = 0.46151856D-01
          EX( 16) = 0.78046358D+03
           C( 16) = 0.16066756D+00
          EX( 17) = 0.20910772D+03
           C( 17) = 0.18998448D+00
          EX( 18) = 0.34240776D+03
           C( 18) = 0.10316369D+00
          EX( 19) = 0.37643325D+02
           C( 19) =-0.66341208D+00
          EX( 20) = 0.15808645D+02
           C( 20) =-0.45371594D+00
          EX( 21) = 0.29469536D+02
           C( 21) = 0.41689785D-02
          EX( 22) = 0.48394968D+01
           C( 22) =-0.13568770D-01
          EX( 23) = 0.21167037D+01
           C( 23) =-0.55626694D-02
          EX( 24) = 0.36136942D+01
           C( 24) =-0.10341373D-02
          EX( 25) = 0.68485339D+00
           C( 25) = 0.31307355D-02
          EX( 26) = 0.28209162D+00
           C( 26) = 0.13468096D-02
          EX( 27) = 0.33058640D+05
           C( 27) = 0.27582367D-02
          EX( 28) = 0.37753112D+04
           C( 28) = 0.19290078D-01
          EX( 29) = 0.78046358D+03
           C( 29) = 0.67154175D-01
          EX( 30) = 0.20910772D+03
           C( 30) = 0.79407758D-01
          EX( 31) = 0.34240776D+03
           C( 31) = 0.50483006D-01
          EX( 32) = 0.37643325D+02
           C( 32) =-0.32463975D+00
          EX( 33) = 0.15808645D+02
           C( 33) =-0.22202524D+00
          EX( 34) = 0.29469536D+02
           C( 34) =-0.27352954D+00
          EX( 35) = 0.48394968D+01
           C( 35) = 0.89025633D+00
          EX( 36) = 0.21167037D+01
           C( 36) = 0.36497055D+00
          EX( 37) = 0.36136942D+01
           C( 37) =-0.11929619D-02
          EX( 38) = 0.68485339D+00
           C( 38) = 0.36115591D-02
          EX( 39) = 0.28209162D+00
           C( 39) = 0.15536549D-02
          EX( 40) = 0.33058640D+05
           C( 40) = 0.10153646D-02
          EX( 41) = 0.37753112D+04
           C( 41) = 0.71010807D-02
          EX( 42) = 0.78046358D+03
           C( 42) = 0.24720855D-01
          EX( 43) = 0.20910772D+03
           C( 43) = 0.29231656D-01
          EX( 44) = 0.34240776D+03
           C( 44) = 0.18602282D-01
          EX( 45) = 0.37643325D+02
           C( 45) =-0.11962520D+00
          EX( 46) = 0.15808645D+02
           C( 46) =-0.81813196D-01
          EX( 47) = 0.29469536D+02
           C( 47) =-0.13099222D+00
          EX( 48) = 0.48394968D+01
           C( 48) = 0.42634024D+00
          EX( 49) = 0.21167037D+01
           C( 49) = 0.17478296D+00
          EX( 50) = 0.36136942D+01
           C( 50) = 0.29679009D+00
          EX( 51) = 0.68485339D+00
           C( 51) =-0.89849891D+00
          EX( 52) = 0.28209162D+00
           C( 52) =-0.38652482D+00
          EX( 53) = 0.10617592D+04
           C( 53) = 0.28395282D-01
          EX( 54) = 0.22779979D+03
           C( 54) = 0.19000328D+00
          EX( 55) = 0.69231419D+02
           C( 55) = 0.51203953D+00
          EX( 56) = 0.23978064D+02
           C( 56) = 0.42366293D+00
          EX( 57) = 0.11051461D+02
           C( 57) = 0.14195634D-01
          EX( 58) = 0.44239919D+01
           C( 58) = 0.20972287D-01
          EX( 59) = 0.18804841D+01
           C( 59) = 0.58291736D-02
          EX( 60) = 0.10721349D+01
           C( 60) =-0.49075280D-02
          EX( 61) = 0.44181499D+00
           C( 61) =-0.57239181D-02
          EX( 62) = 0.17304333D+00
           C( 62) =-0.14036570D-02
          EX( 63) = 0.10617592D+04
           C( 63) = 0.13229939D-01
          EX( 64) = 0.22779979D+03
           C( 64) = 0.88526393D-01
          EX( 65) = 0.69231419D+02
           C( 65) = 0.23856964D+00
          EX( 66) = 0.23978064D+02
           C( 66) = 0.19739317D+00
          EX( 67) = 0.11051461D+02
           C( 67) =-0.41246497D+00
          EX( 68) = 0.44239919D+01
           C( 68) =-0.60936581D+00
          EX( 69) = 0.18804841D+01
           C( 69) =-0.16937108D+00
          EX( 70) = 0.10721349D+01
           C( 70) =-0.14093408D-02
          EX( 71) = 0.44181499D+00
           C( 71) =-0.16437912D-02
          EX( 72) = 0.17304333D+00
           C( 72) =-0.40310135D-03
          EX( 73) = 0.13899670D+03
           C( 73) = 0.25855171D-01
          EX( 74) = 0.38242597D+02
           C( 74) = 0.15807088D+00
          EX( 75) = 0.13384030D+02
           C( 75) = 0.40567039D+00
          EX( 76) = 0.49830930D+01
           C( 76) = 0.48285480D+00
          EX( 77) = 0.18050660D+01
           C( 77) = 0.19410974D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE :  Y/QR             CONFIGURATION : S1D02        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  3.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =      -1.321509 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.1973 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.1817 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  3.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.18474900D+02
           C( 1)=-0.79024319D-01
          EX( 2)= 0.39074100D+01
           C( 2)= 0.22975672D+00
          EX( 3)= 0.65228800D+00
           C( 3)=-0.36348745D+00
          EX( 4)= 0.31892100D+00
           C( 4)=-0.23671250D+00
          EX( 5)= 0.60509000D-01
           C( 5)= 0.67066516D+00
          EX( 6)= 0.25013000D-01
           C( 6)= 0.49397505D+00
          EX( 7)= 0.36977800D+02
           C( 7)= 0.54234195D-01
          EX( 8)= 0.88107900D+01
           C( 8)= 0.10585298D+00
          EX( 9)= 0.73912000D+00
           C( 9)=-0.38875162D+00
          EX(10)= 0.21567000D+00
           C(10)=-0.51912594D+00
          EX(11)= 0.61400000D-01
           C(11)=-0.36022680D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  3.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.69137300D+01
          ALPN0( 1)= 0.16666325D+03
            AN0( 2)= 0.36647224D+01
          ALPN0( 2)= 0.57545627D+01
            AN0( 3)= 0.14068270D+01
          ALPN0( 3)= 0.14263577D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.75675818D+02
          ALPN1( 1)= 0.11034785D+04
            AN1( 2)= 0.81542256D+02
          ALPN1( 2)= 0.65368901D+02
            AN1( 3)= 0.10710951D+01
          ALPN1( 3)= 0.66327728D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.88246899D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.12443158D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.21330680D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.30158646D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.11052882D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.16671032D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.17230360D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.89722360D+01
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.33058640D+05
           C(  1) = 0.18414443D-01
          EX(  2) = 0.37753112D+04
           C(  2) = 0.12878374D+00
          EX(  3) = 0.78046358D+03
           C(  3) = 0.44833232D+00
          EX(  4) = 0.20910772D+03
           C(  4) = 0.53013926D+00
          EX(  5) = 0.34240776D+03
           C(  5) =-0.43046610D-02
          EX(  6) = 0.37643325D+02
           C(  6) = 0.27681870D-01
          EX(  7) = 0.15808645D+02
           C(  7) = 0.18931983D-01
          EX(  8) = 0.29469536D+02
           C(  8) = 0.57708065D-02
          EX(  9) = 0.48394968D+01
           C(  9) =-0.18782238D-01
          EX( 10) = 0.21167037D+01
           C( 10) =-0.76999890D-02
          EX( 11) = 0.36136942D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.68485339D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.28209162D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.33058640D+05
           C( 14) = 0.65991306D-02
          EX( 15) = 0.37753112D+04
           C( 15) = 0.46151856D-01
          EX( 16) = 0.78046358D+03
           C( 16) = 0.16066756D+00
          EX( 17) = 0.20910772D+03
           C( 17) = 0.18998448D+00
          EX( 18) = 0.34240776D+03
           C( 18) = 0.10316369D+00
          EX( 19) = 0.37643325D+02
           C( 19) =-0.66341208D+00
          EX( 20) = 0.15808645D+02
           C( 20) =-0.45371594D+00
          EX( 21) = 0.29469536D+02
           C( 21) = 0.41689785D-02
          EX( 22) = 0.48394968D+01
           C( 22) =-0.13568770D-01
          EX( 23) = 0.21167037D+01
           C( 23) =-0.55626694D-02
          EX( 24) = 0.36136942D+01
           C( 24) =-0.10341373D-02
          EX( 25) = 0.68485339D+00
           C( 25) = 0.31307355D-02
          EX( 26) = 0.28209162D+00
           C( 26) = 0.13468096D-02
          EX( 27) = 0.33058640D+05
           C( 27) = 0.27582367D-02
          EX( 28) = 0.37753112D+04
           C( 28) = 0.19290078D-01
          EX( 29) = 0.78046358D+03
           C( 29) = 0.67154175D-01
          EX( 30) = 0.20910772D+03
           C( 30) = 0.79407758D-01
          EX( 31) = 0.34240776D+03
           C( 31) = 0.50483006D-01
          EX( 32) = 0.37643325D+02
           C( 32) =-0.32463975D+00
          EX( 33) = 0.15808645D+02
           C( 33) =-0.22202524D+00
          EX( 34) = 0.29469536D+02
           C( 34) =-0.27352954D+00
          EX( 35) = 0.48394968D+01
           C( 35) = 0.89025633D+00
          EX( 36) = 0.21167037D+01
           C( 36) = 0.36497055D+00
          EX( 37) = 0.36136942D+01
           C( 37) =-0.11929619D-02
          EX( 38) = 0.68485339D+00
           C( 38) = 0.36115591D-02
          EX( 39) = 0.28209162D+00
           C( 39) = 0.15536549D-02
          EX( 40) = 0.33058640D+05
           C( 40) = 0.10153646D-02
          EX( 41) = 0.37753112D+04
           C( 41) = 0.71010807D-02
          EX( 42) = 0.78046358D+03
           C( 42) = 0.24720855D-01
          EX( 43) = 0.20910772D+03
           C( 43) = 0.29231656D-01
          EX( 44) = 0.34240776D+03
           C( 44) = 0.18602282D-01
          EX( 45) = 0.37643325D+02
           C( 45) =-0.11962520D+00
          EX( 46) = 0.15808645D+02
           C( 46) =-0.81813196D-01
          EX( 47) = 0.29469536D+02
           C( 47) =-0.13099222D+00
          EX( 48) = 0.48394968D+01
           C( 48) = 0.42634024D+00
          EX( 49) = 0.21167037D+01
           C( 49) = 0.17478296D+00
          EX( 50) = 0.36136942D+01
           C( 50) = 0.29679009D+00
          EX( 51) = 0.68485339D+00
           C( 51) =-0.89849891D+00
          EX( 52) = 0.28209162D+00
           C( 52) =-0.38652482D+00
          EX( 53) = 0.10617592D+04
           C( 53) = 0.28395282D-01
          EX( 54) = 0.22779979D+03
           C( 54) = 0.19000328D+00
          EX( 55) = 0.69231419D+02
           C( 55) = 0.51203953D+00
          EX( 56) = 0.23978064D+02
           C( 56) = 0.42366293D+00
          EX( 57) = 0.11051461D+02
           C( 57) = 0.14195634D-01
          EX( 58) = 0.44239919D+01
           C( 58) = 0.20972287D-01
          EX( 59) = 0.18804841D+01
           C( 59) = 0.58291736D-02
          EX( 60) = 0.10721349D+01
           C( 60) =-0.49075280D-02
          EX( 61) = 0.44181499D+00
           C( 61) =-0.57239181D-02
          EX( 62) = 0.17304333D+00
           C( 62) =-0.14036570D-02
          EX( 63) = 0.10617592D+04
           C( 63) = 0.13229939D-01
          EX( 64) = 0.22779979D+03
           C( 64) = 0.88526393D-01
          EX( 65) = 0.69231419D+02
           C( 65) = 0.23856964D+00
          EX( 66) = 0.23978064D+02
           C( 66) = 0.19739317D+00
          EX( 67) = 0.11051461D+02
           C( 67) =-0.41246497D+00
          EX( 68) = 0.44239919D+01
           C( 68) =-0.60936581D+00
          EX( 69) = 0.18804841D+01
           C( 69) =-0.16937108D+00
          EX( 70) = 0.10721349D+01
           C( 70) =-0.14093408D-02
          EX( 71) = 0.44181499D+00
           C( 71) =-0.16437912D-02
          EX( 72) = 0.17304333D+00
           C( 72) =-0.40310135D-03
          EX( 73) = 0.10617592D+04
           C( 73) = 0.44925739D-02
          EX( 74) = 0.22779979D+03
           C( 74) = 0.30061466D-01
          EX( 75) = 0.69231419D+02
           C( 75) = 0.81012596D-01
          EX( 76) = 0.23978064D+02
           C( 76) = 0.67030045D-01
          EX( 77) = 0.11051461D+02
           C( 77) =-0.18637300D+00
          EX( 78) = 0.44239919D+01
           C( 78) =-0.27534297D+00
          EX( 79) = 0.18804841D+01
           C( 79) =-0.76530612D-01
          EX( 80) = 0.10721349D+01
           C( 80) = 0.48969198D+00
          EX( 81) = 0.44181499D+00
           C( 81) = 0.57115452D+00
          EX( 82) = 0.17304333D+00
           C( 82) = 0.14006229D+00
          EX( 83) = 0.13899670D+03
           C( 83) = 0.25855171D-01
          EX( 84) = 0.38242597D+02
           C( 84) = 0.15807088D+00
          EX( 85) = 0.13384030D+02
           C( 85) = 0.40567039D+00
          EX( 86) = 0.49830930D+01
           C( 86) = 0.48285480D+00
          EX( 87) = 0.18050660D+01
           C( 87) = 0.19410974D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C
      IF(IZSAVE.EQ.40) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : ZR/QR             CONFIGURATION : S1P6D03      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 10.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -30.548450 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2167 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -1.4050 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.2360 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 10.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.34055300D+04
           C( 1)= 0.26630733D-02
          EX( 2)= 0.42443000D+03
           C( 2)= 0.15302249D-01
          EX( 3)= 0.31198400D+02
           C( 3)=-0.80200593D-01
          EX( 4)= 0.42263700D+01
           C( 4)= 0.24759555D+00
          EX( 5)= 0.74171800D+00
           C( 5)=-0.37179536D+00
          EX( 6)= 0.37657900D+00
           C( 6)=-0.25679350D+00
          EX( 7)= 0.68657000D-01
           C( 7)= 0.72217086D+00
          EX( 8)= 0.27760000D-01
           C( 8)= 0.44617564D+00
          EX( 9)= 0.34338200D+03
           C( 9)= 0.24154230D-01
          EX(10)= 0.71872600D+02
           C(10)= 0.11198569D+00
          EX(11)= 0.65651500D+01
           C(11)=-0.37228615D+00
          EX(12)= 0.81969500D+00
           C(12)= 0.77770678D+00
          EX(13)= 0.28784300D+00
           C(13)= 0.32046005D+00
          EX(14)= 0.40187400D+02
           C(14)= 0.35029074D-01
          EX(15)= 0.96675600D+01
           C(15)= 0.10848888D+00
          EX(16)= 0.87700300D+00
           C(16)=-0.41534150D+00
          EX(17)= 0.27265400D+00
           C(17)=-0.51492336D+00
          EX(18)= 0.80482000D-01
           C(18)=-0.32213239D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 10.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.12974000D+01
          ALPN0( 1)= 0.18208000D+03
            AN0( 2)= 0.73663000D+00
          ALPN0( 2)= 0.10140582D+02
            AN0( 3)= 0.23235000D+00
          ALPN0( 3)= 0.17388758D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.13516803D+03
          ALPN1( 1)= 0.37135751D+04
            AN1( 2)= 0.11458397D+02
          ALPN1( 2)= 0.50825896D+02
            AN1( 3)= 0.30962585D+00
          ALPN1( 3)= 0.14382677D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.13316242D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.18960788D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.33185660D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.48078200D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.16871810D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.26158990D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.14593416D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.35924398D+05
           C(  1) = 0.18176579D-01
          EX(  2) = 0.40641502D+04
           C(  2) = 0.12697716D+00
          EX(  3) = 0.83572265D+03
           C(  3) = 0.44476274D+00
          EX(  4) = 0.22320844D+03
           C(  4) = 0.53450110D+00
          EX(  5) = 0.36380586D+03
           C(  5) =-0.45608859D-02
          EX(  6) = 0.39776872D+02
           C(  6) = 0.29628190D-01
          EX(  7) = 0.16728420D+02
           C(  7) = 0.20117112D-01
          EX(  8) = 0.31336900D+02
           C(  8) = 0.68211058D-02
          EX(  9) = 0.51641485D+01
           C(  9) =-0.22269087D-01
          EX( 10) = 0.22674028D+01
           C( 10) =-0.88136624D-02
          EX( 11) = 0.39565455D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.76556688D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.31487964D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.35924398D+05
           C( 14) = 0.65380947D-02
          EX( 15) = 0.40641502D+04
           C( 15) = 0.45673542D-01
          EX( 16) = 0.83572265D+03
           C( 16) = 0.15998066D+00
          EX( 17) = 0.22320844D+03
           C( 17) = 0.19225945D+00
          EX( 18) = 0.36380586D+03
           C( 18) = 0.10237688D+00
          EX( 19) = 0.39776872D+02
           C( 19) =-0.66505533D+00
          EX( 20) = 0.16728420D+02
           C( 20) =-0.45156293D+00
          EX( 21) = 0.31336900D+02
           C( 21) = 0.41545784D-02
          EX( 22) = 0.51641485D+01
           C( 22) =-0.13563588D-01
          EX( 23) = 0.22674028D+01
           C( 23) =-0.53681988D-02
          EX( 24) = 0.39565455D+01
           C( 24) =-0.10172486D-02
          EX( 25) = 0.76556688D+00
           C( 25) = 0.29939683D-02
          EX( 26) = 0.31487964D+00
           C( 26) = 0.12519121D-02
          EX( 27) = 0.35924398D+05
           C( 27) = 0.27542324D-02
          EX( 28) = 0.40641502D+04
           C( 28) = 0.19240399D-01
          EX( 29) = 0.83572265D+03
           C( 29) = 0.67393320D-01
          EX( 30) = 0.22320844D+03
           C( 30) = 0.80991055D-01
          EX( 31) = 0.36380586D+03
           C( 31) = 0.50540378D-01
          EX( 32) = 0.39776872D+02
           C( 32) =-0.32831777D+00
          EX( 33) = 0.16728420D+02
           C( 33) =-0.22292301D+00
          EX( 34) = 0.31336900D+02
           C( 34) =-0.27614481D+00
          EX( 35) = 0.51641485D+01
           C( 35) = 0.90153893D+00
          EX( 36) = 0.22674028D+01
           C( 36) = 0.35681122D+00
          EX( 37) = 0.39565455D+01
           C( 37) =-0.12018325D-02
          EX( 38) = 0.76556688D+00
           C( 38) = 0.35372361D-02
          EX( 39) = 0.31487964D+00
           C( 39) = 0.14790767D-02
          EX( 40) = 0.35924398D+05
           C( 40) = 0.10400700D-02
          EX( 41) = 0.40641502D+04
           C( 41) = 0.72656766D-02
          EX( 42) = 0.83572265D+03
           C( 42) = 0.25449476D-01
          EX( 43) = 0.22320844D+03
           C( 43) = 0.30584336D-01
          EX( 44) = 0.36380586D+03
           C( 44) = 0.19257125D-01
          EX( 45) = 0.39776872D+02
           C( 45) =-0.12509713D+00
          EX( 46) = 0.16728420D+02
           C( 46) =-0.84939140D-01
          EX( 47) = 0.31336900D+02
           C( 47) =-0.13566870D+00
          EX( 48) = 0.51641485D+01
           C( 48) = 0.44292201D+00
          EX( 49) = 0.22674028D+01
           C( 49) = 0.17529974D+00
          EX( 50) = 0.39565455D+01
           C( 50) = 0.31119103D+00
          EX( 51) = 0.76556688D+00
           C( 51) =-0.91589818D+00
          EX( 52) = 0.31487964D+00
           C( 52) =-0.38297801D+00
          EX( 53) = 0.11347780D+04
           C( 53) = 0.28022719D-01
          EX( 54) = 0.24317220D+03
           C( 54) = 0.18805475D+00
          EX( 55) = 0.73908400D+02
           C( 55) = 0.50997543D+00
          EX( 56) = 0.25628900D+02
           C( 56) = 0.42655673D+00
          EX( 57) = 0.11791680D+02
           C( 57) = 0.14919323D-01
          EX( 58) = 0.47404030D+01
           C( 58) = 0.21949333D-01
          EX( 59) = 0.20241400D+01
           C( 59) = 0.58822618D-02
          EX( 60) = 0.11994940D+01
           C( 60) =-0.54501534D-02
          EX( 61) = 0.49767900D+00
           C( 61) =-0.61658421D-02
          EX( 62) = 0.19476350D+00
           C( 62) =-0.14769314D-02
          EX( 63) = 0.11347780D+04
           C( 63) = 0.13196653D-01
          EX( 64) = 0.24317220D+03
           C( 64) = 0.88560051D-01
          EX( 65) = 0.73908400D+02
           C( 65) = 0.24016118D+00
          EX( 66) = 0.25628900D+02
           C( 66) = 0.20087707D+00
          EX( 67) = 0.11791680D+02
           C( 67) =-0.41565230D+00
          EX( 68) = 0.47404030D+01
           C( 68) =-0.61150835D+00
          EX( 69) = 0.20241400D+01
           C( 69) =-0.16387979D+00
          EX( 70) = 0.11994940D+01
           C( 70) =-0.13897125D-02
          EX( 71) = 0.49767900D+00
           C( 71) =-0.15722030D-02
          EX( 72) = 0.19476350D+00
           C( 72) =-0.37659672D-03
          EX( 73) = 0.15160952D+03
           C( 73) = 0.25018447D-01
          EX( 74) = 0.41815947D+02
           C( 74) = 0.15481753D+00
          EX( 75) = 0.14693396D+02
           C( 75) = 0.40317637D+00
          EX( 76) = 0.55110833D+01
           C( 76) = 0.48509917D+00
          EX( 77) = 0.20190563D+01
           C( 77) = 0.19377053D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : ZR/QR             CONFIGURATION : S1D03        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  4.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =      -2.819872 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2134 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.2381 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  4.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.19516300D+02
           C( 1)=-0.98433185D-01
          EX( 2)= 0.42263700D+01
           C( 2)= 0.27260007D+00
          EX( 3)= 0.74171800D+00
           C( 3)=-0.45099925D+00
          EX( 4)= 0.37657900D+00
           C( 4)=-0.18524711D+00
          EX( 5)= 0.68657000D-01
           C( 5)= 0.68506038D+00
          EX( 6)= 0.27760000D-01
           C( 6)= 0.46698912D+00
          EX( 7)= 0.40187400D+02
           C( 7)= 0.56932482D-01
          EX( 8)= 0.96675600D+01
           C( 8)= 0.11564031D+00
          EX( 9)= 0.87700300D+00
           C( 9)=-0.43244657D+00
          EX(10)= 0.27265400D+00
           C(10)=-0.51500928D+00
          EX(11)= 0.80482000D-01
           C(11)=-0.29849352D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  4.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.51853500D+01
          ALPN0( 1)= 0.17497747D+03
            AN0( 2)= 0.26920000D+01
          ALPN0( 2)= 0.59927156D+01
            AN0( 3)= 0.97077000D+00
          ALPN0( 3)= 0.13169700D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.37172190D+02
          ALPN1( 1)= 0.14094784D+04
            AN1( 2)= 0.57645320D+02
          ALPN1( 2)= 0.64462400D+02
            AN1( 3)= 0.76258800D+00
          ALPN1( 3)= 0.71290303D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.86555570D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.12324512D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.21570679D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.31250830D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.10966677D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.17003343D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.18263570D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.94857204D+01
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.35924398D+05
           C(  1) = 0.18176579D-01
          EX(  2) = 0.40641502D+04
           C(  2) = 0.12697716D+00
          EX(  3) = 0.83572265D+03
           C(  3) = 0.44476274D+00
          EX(  4) = 0.22320844D+03
           C(  4) = 0.53450110D+00
          EX(  5) = 0.36380586D+03
           C(  5) =-0.45608859D-02
          EX(  6) = 0.39776872D+02
           C(  6) = 0.29628190D-01
          EX(  7) = 0.16728420D+02
           C(  7) = 0.20117112D-01
          EX(  8) = 0.31336900D+02
           C(  8) = 0.68211058D-02
          EX(  9) = 0.51641485D+01
           C(  9) =-0.22269087D-01
          EX( 10) = 0.22674028D+01
           C( 10) =-0.88136624D-02
          EX( 11) = 0.39565455D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.76556688D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.31487964D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.35924398D+05
           C( 14) = 0.65380947D-02
          EX( 15) = 0.40641502D+04
           C( 15) = 0.45673542D-01
          EX( 16) = 0.83572265D+03
           C( 16) = 0.15998066D+00
          EX( 17) = 0.22320844D+03
           C( 17) = 0.19225945D+00
          EX( 18) = 0.36380586D+03
           C( 18) = 0.10237688D+00
          EX( 19) = 0.39776872D+02
           C( 19) =-0.66505533D+00
          EX( 20) = 0.16728420D+02
           C( 20) =-0.45156293D+00
          EX( 21) = 0.31336900D+02
           C( 21) = 0.41545784D-02
          EX( 22) = 0.51641485D+01
           C( 22) =-0.13563588D-01
          EX( 23) = 0.22674028D+01
           C( 23) =-0.53681988D-02
          EX( 24) = 0.39565455D+01
           C( 24) =-0.10172486D-02
          EX( 25) = 0.76556688D+00
           C( 25) = 0.29939683D-02
          EX( 26) = 0.31487964D+00
           C( 26) = 0.12519121D-02
          EX( 27) = 0.35924398D+05
           C( 27) = 0.27542324D-02
          EX( 28) = 0.40641502D+04
           C( 28) = 0.19240399D-01
          EX( 29) = 0.83572265D+03
           C( 29) = 0.67393320D-01
          EX( 30) = 0.22320844D+03
           C( 30) = 0.80991055D-01
          EX( 31) = 0.36380586D+03
           C( 31) = 0.50540378D-01
          EX( 32) = 0.39776872D+02
           C( 32) =-0.32831777D+00
          EX( 33) = 0.16728420D+02
           C( 33) =-0.22292301D+00
          EX( 34) = 0.31336900D+02
           C( 34) =-0.27614481D+00
          EX( 35) = 0.51641485D+01
           C( 35) = 0.90153893D+00
          EX( 36) = 0.22674028D+01
           C( 36) = 0.35681122D+00
          EX( 37) = 0.39565455D+01
           C( 37) =-0.12018325D-02
          EX( 38) = 0.76556688D+00
           C( 38) = 0.35372361D-02
          EX( 39) = 0.31487964D+00
           C( 39) = 0.14790767D-02
          EX( 40) = 0.35924398D+05
           C( 40) = 0.10400700D-02
          EX( 41) = 0.40641502D+04
           C( 41) = 0.72656766D-02
          EX( 42) = 0.83572265D+03
           C( 42) = 0.25449476D-01
          EX( 43) = 0.22320844D+03
           C( 43) = 0.30584336D-01
          EX( 44) = 0.36380586D+03
           C( 44) = 0.19257125D-01
          EX( 45) = 0.39776872D+02
           C( 45) =-0.12509713D+00
          EX( 46) = 0.16728420D+02
           C( 46) =-0.84939140D-01
          EX( 47) = 0.31336900D+02
           C( 47) =-0.13566870D+00
          EX( 48) = 0.51641485D+01
           C( 48) = 0.44292201D+00
          EX( 49) = 0.22674028D+01
           C( 49) = 0.17529974D+00
          EX( 50) = 0.39565455D+01
           C( 50) = 0.31119103D+00
          EX( 51) = 0.76556688D+00
           C( 51) =-0.91589818D+00
          EX( 52) = 0.31487964D+00
           C( 52) =-0.38297801D+00
          EX( 53) = 0.11347780D+04
           C( 53) = 0.28022719D-01
          EX( 54) = 0.24317220D+03
           C( 54) = 0.18805475D+00
          EX( 55) = 0.73908400D+02
           C( 55) = 0.50997543D+00
          EX( 56) = 0.25628900D+02
           C( 56) = 0.42655673D+00
          EX( 57) = 0.11791680D+02
           C( 57) = 0.14919323D-01
          EX( 58) = 0.47404030D+01
           C( 58) = 0.21949333D-01
          EX( 59) = 0.20241400D+01
           C( 59) = 0.58822618D-02
          EX( 60) = 0.11994940D+01
           C( 60) =-0.54501534D-02
          EX( 61) = 0.49767900D+00
           C( 61) =-0.61658421D-02
          EX( 62) = 0.19476350D+00
           C( 62) =-0.14769314D-02
          EX( 63) = 0.11347780D+04
           C( 63) = 0.13196653D-01
          EX( 64) = 0.24317220D+03
           C( 64) = 0.88560051D-01
          EX( 65) = 0.73908400D+02
           C( 65) = 0.24016118D+00
          EX( 66) = 0.25628900D+02
           C( 66) = 0.20087707D+00
          EX( 67) = 0.11791680D+02
           C( 67) =-0.41565230D+00
          EX( 68) = 0.47404030D+01
           C( 68) =-0.61150835D+00
          EX( 69) = 0.20241400D+01
           C( 69) =-0.16387979D+00
          EX( 70) = 0.11994940D+01
           C( 70) =-0.13897125D-02
          EX( 71) = 0.49767900D+00
           C( 71) =-0.15722030D-02
          EX( 72) = 0.19476350D+00
           C( 72) =-0.37659672D-03
          EX( 73) = 0.11347780D+04
           C( 73) = 0.46409851D-02
          EX( 74) = 0.24317220D+03
           C( 74) = 0.31144704D-01
          EX( 75) = 0.73908400D+02
           C( 75) = 0.84459628D-01
          EX( 76) = 0.25628900D+02
           C( 76) = 0.70644234D-01
          EX( 77) = 0.11791680D+02
           C( 77) =-0.19616397D+00
          EX( 78) = 0.47404030D+01
           C( 78) =-0.28859677D+00
          EX( 79) = 0.20241400D+01
           C( 79) =-0.77341838D-01
          EX( 80) = 0.11994940D+01
           C( 80) = 0.50315174D+00
          EX( 81) = 0.49767900D+00
           C( 81) = 0.56922328D+00
          EX( 82) = 0.19476350D+00
           C( 82) = 0.13634856D+00
          EX( 83) = 0.15160952D+03
           C( 83) = 0.25018447D-01
          EX( 84) = 0.41815947D+02
           C( 84) = 0.15481753D+00
          EX( 85) = 0.14693396D+02
           C( 85) = 0.40317637D+00
          EX( 86) = 0.55110833D+01
           C( 86) = 0.48509917D+00
          EX( 87) = 0.20190563D+01
           C( 87) = 0.19377053D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.41) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : NB/QR             CONFIGURATION : S1P6D04      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 11.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -38.476256 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2266 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -1.5797 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.2850 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 11.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.36299200D+04
           C( 1)=-0.29162106D-02
          EX( 2)= 0.45005400D+03
           C( 2)=-0.17210781D-01
          EX( 3)= 0.32983500D+02
           C( 3)= 0.88614748D-01
          EX( 4)= 0.45582500D+01
           C( 4)=-0.26651473D+00
          EX( 5)= 0.83752000D+00
           C( 5)= 0.37863245D+00
          EX( 6)= 0.43663000D+00
           C( 6)= 0.24822742D+00
          EX( 7)= 0.76267000D-01
           C( 7)=-0.69762598D+00
          EX( 8)= 0.30250000D-01
           C( 8)=-0.46354825D+00
          EX( 9)= 0.36228700D+03
           C( 9)= 0.28115277D-01
          EX(10)= 0.75936500D+02
           C(10)= 0.12836264D+00
          EX(11)= 0.70683600D+01
           C(11)=-0.40690980D+00
          EX(12)= 0.91156900D+00
           C(12)= 0.78865949D+00
          EX(13)= 0.32104200D+00
           C(13)= 0.30799803D+00
          EX(14)= 0.43658500D+02
           C(14)=-0.53306499D-01
          EX(15)= 0.10591500D+02
           C(15)=-0.14126438D+00
          EX(16)= 0.10105047D+01
           C(16)= 0.44698616D+00
          EX(17)= 0.32544164D+00
           C(17)= 0.49999564D+00
          EX(18)= 0.98048700D-01
           C(18)= 0.29013704D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 11.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.11876545D+01
          ALPN0( 1)= 0.18362968D+03
            AN0( 2)= 0.68436792D+00
          ALPN0( 2)= 0.93691571D+01
            AN0( 3)= 0.21062796D+00
          ALPN0( 3)= 0.18985345D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.11660303D+03
          ALPN1( 1)= 0.36629796D+04
            AN1( 2)= 0.10124942D+02
          ALPN1( 2)= 0.46810875D+02
            AN1( 3)= 0.24571982D+00
          ALPN1( 3)= 0.16220693D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.14046652D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.20185800D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.35980800D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.53059600D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.17989194D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.28571800D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.16431000D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.38664923D+05
           C(  1) = 0.18116161D-01
          EX(  2) = 0.43338665D+04
           C(  2) = 0.12632821D+00
          EX(  3) = 0.88653197D+03
           C(  3) = 0.44378081D+00
          EX(  4) = 0.23602485D+03
           C(  4) = 0.53622498D+00
          EX(  5) = 0.38532516D+03
           C(  5) =-0.45851891D-02
          EX(  6) = 0.42122731D+02
           C(  6) = 0.29899765D-01
          EX(  7) = 0.17743254D+02
           C(  7) = 0.20389244D-01
          EX(  8) = 0.33264311D+02
           C(  8) = 0.68697093D-02
          EX(  9) = 0.55032261D+01
           C(  9) =-0.22474117D-01
          EX( 10) = 0.24240426D+01
           C( 10) =-0.86162519D-02
          EX( 11) = 0.43124249D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.84941920D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.34875136D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.38664923D+05
           C( 14) = 0.65408987D-02
          EX( 15) = 0.43338665D+04
           C( 15) = 0.45611208D-01
          EX( 16) = 0.88653197D+03
           C( 16) = 0.16022850D+00
          EX( 17) = 0.23602485D+03
           C( 17) = 0.19360576D+00
          EX( 18) = 0.38532516D+03
           C( 18) = 0.10181516D+00
          EX( 19) = 0.42122731D+02
           C( 19) =-0.66393106D+00
          EX( 20) = 0.17743254D+02
           C( 20) =-0.45274779D+00
          EX( 21) = 0.33264311D+02
           C( 21) = 0.42045699D-02
          EX( 22) = 0.55032261D+01
           C( 22) =-0.13755167D-01
          EX( 23) = 0.24240426D+01
           C( 23) =-0.52735321D-02
          EX( 24) = 0.43124249D+01
           C( 24) =-0.10218341D-02
          EX( 25) = 0.84941920D+00
           C( 25) = 0.29353367D-02
          EX( 26) = 0.34875136D+00
           C( 26) = 0.12098500D-02
          EX( 27) = 0.38664923D+05
           C( 27) = 0.27759442D-02
          EX( 28) = 0.43338665D+04
           C( 28) = 0.19357304D-01
          EX( 29) = 0.88653197D+03
           C( 29) = 0.68000653D-01
          EX( 30) = 0.23602485D+03
           C( 30) = 0.82165896D-01
          EX( 31) = 0.38532516D+03
           C( 31) = 0.50673635D-01
          EX( 32) = 0.42122731D+02
           C( 32) =-0.33043998D+00
          EX( 33) = 0.17743254D+02
           C( 33) =-0.22533359D+00
          EX( 34) = 0.33264311D+02
           C( 34) =-0.27869535D+00
          EX( 35) = 0.55032261D+01
           C( 35) = 0.91174627D+00
          EX( 36) = 0.24240426D+01
           C( 36) = 0.34955035D+00
          EX( 37) = 0.43124249D+01
           C( 37) =-0.12079537D-02
          EX( 38) = 0.84941920D+00
           C( 38) = 0.34699868D-02
          EX( 39) = 0.34875136D+00
           C( 39) = 0.14302154D-02
          EX( 40) = 0.38664923D+05
           C( 40) = 0.10707468D-02
          EX( 41) = 0.43338665D+04
           C( 41) = 0.74665664D-02
          EX( 42) = 0.88653197D+03
           C( 42) = 0.26229447D-01
          EX( 43) = 0.23602485D+03
           C( 43) = 0.31693314D-01
          EX( 44) = 0.38532516D+03
           C( 44) = 0.19849298D-01
          EX( 45) = 0.42122731D+02
           C( 45) =-0.12943618D+00
          EX( 46) = 0.17743254D+02
           C( 46) =-0.88265103D-01
          EX( 47) = 0.33264311D+02
           C( 47) =-0.13999786D+00
          EX( 48) = 0.55032261D+01
           C( 48) = 0.45800022D+00
          EX( 49) = 0.24240426D+01
           C( 49) = 0.17559067D+00
          EX( 50) = 0.43124249D+01
           C( 50) = 0.32319265D+00
          EX( 51) = 0.84941920D+00
           C( 51) =-0.92840833D+00
          EX( 52) = 0.34875136D+00
           C( 52) =-0.38265961D+00
          EX( 53) = 0.12116859D+04
           C( 53) = 0.27641087D-01
          EX( 54) = 0.25932192D+03
           C( 54) = 0.18603056D+00
          EX( 55) = 0.78817338D+02
           C( 55) = 0.50775325D+00
          EX( 56) = 0.27362720D+02
           C( 56) = 0.42961681D+00
          EX( 57) = 0.12560132D+02
           C( 57) = 0.15706905D-01
          EX( 58) = 0.50687391D+01
           C( 58) = 0.23027676D-01
          EX( 59) = 0.21712497D+01
           C( 59) = 0.59575044D-02
          EX( 60) = 0.13336899D+01
           C( 60) =-0.60689459D-02
          EX( 61) = 0.55603871D+00
           C( 61) =-0.67294171D-02
          EX( 62) = 0.21771030D+00
           C( 62) =-0.15952344D-02
          EX( 63) = 0.12116859D+04
           C( 63) = 0.13148175D-01
          EX( 64) = 0.25932192D+03
           C( 64) = 0.88490092D-01
          EX( 65) = 0.78817338D+02
           C( 65) = 0.24152554D+00
          EX( 66) = 0.27362720D+02
           C( 66) = 0.20435799D+00
          EX( 67) = 0.12560132D+02
           C( 67) =-0.41854357D+00
          EX( 68) = 0.50687391D+01
           C( 68) =-0.61362095D+00
          EX( 69) = 0.21712497D+01
           C( 69) =-0.15875025D+00
          EX( 70) = 0.13336899D+01
           C( 70) =-0.13733628D-02
          EX( 71) = 0.55603871D+00
           C( 71) =-0.15228232D-02
          EX( 72) = 0.21771030D+00
           C( 72) =-0.36099115D-03
          EX( 73) = 0.16461394D+03
           C( 73) = 0.24301168D-01
          EX( 74) = 0.45498830D+02
           C( 74) = 0.15202210D+00
          EX( 75) = 0.16043733D+02
           C( 75) = 0.40106297D+00
          EX( 76) = 0.60567560D+01
           C( 76) = 0.48709237D+00
          EX( 77) = 0.22405570D+01
           C( 77) = 0.19328492D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : NB/QR             CONFIGURATION : S1D04        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  5.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =      -4.991185 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2258 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.2867 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  5.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.20591700D+02
           C( 1)=-0.10301583D+00
          EX( 2)= 0.45582500D+01
           C( 2)= 0.26803009D+00
          EX( 3)= 0.83752000D+00
           C( 3)=-0.42897577D+00
          EX( 4)= 0.43663000D+00
           C( 4)=-0.19902768D+00
          EX( 5)= 0.76267000D-01
           C( 5)= 0.69000408D+00
          EX( 6)= 0.30250000D-01
           C( 6)= 0.46289973D+00
          EX( 7)= 0.43658500D+02
           C( 7)= 0.62716553D-01
          EX( 8)= 0.10591500D+02
           C( 8)= 0.12429084D+00
          EX( 9)= 0.10105047D+01
           C( 9)=-0.43737521D+00
          EX(10)= 0.32544164D+00
           C(10)=-0.52118264D+00
          EX(11)= 0.98048700D-01
           C(11)=-0.27124515D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  5.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.39746212D+01
          ALPN0( 1)= 0.18890115D+03
            AN0( 2)= 0.21307593D+01
          ALPN0( 2)= 0.63201705D+01
            AN0( 3)= 0.68551468D+00
          ALPN0( 3)= 0.13746649D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.20159864D+02
          ALPN1( 1)= 0.18540627D+04
            AN1( 2)= 0.41368176D+02
          ALPN1( 2)= 0.58338809D+02
            AN1( 3)= 0.57834224D+00
          ALPN1( 3)= 0.73890153D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.84279912D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.12111480D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.21588480D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.31835760D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.10793516D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.17143080D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.18954120D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.98586000D+01
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.38664923D+05
           C(  1) = 0.18116161D-01
          EX(  2) = 0.43338665D+04
           C(  2) = 0.12632821D+00
          EX(  3) = 0.88653197D+03
           C(  3) = 0.44378081D+00
          EX(  4) = 0.23602485D+03
           C(  4) = 0.53622498D+00
          EX(  5) = 0.38532516D+03
           C(  5) =-0.45851891D-02
          EX(  6) = 0.42122731D+02
           C(  6) = 0.29899765D-01
          EX(  7) = 0.17743254D+02
           C(  7) = 0.20389244D-01
          EX(  8) = 0.33264311D+02
           C(  8) = 0.68697093D-02
          EX(  9) = 0.55032261D+01
           C(  9) =-0.22474117D-01
          EX( 10) = 0.24240426D+01
           C( 10) =-0.86162519D-02
          EX( 11) = 0.43124249D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.84941920D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.34875136D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.38664923D+05
           C( 14) = 0.65408987D-02
          EX( 15) = 0.43338665D+04
           C( 15) = 0.45611208D-01
          EX( 16) = 0.88653197D+03
           C( 16) = 0.16022850D+00
          EX( 17) = 0.23602485D+03
           C( 17) = 0.19360576D+00
          EX( 18) = 0.38532516D+03
           C( 18) = 0.10181516D+00
          EX( 19) = 0.42122731D+02
           C( 19) =-0.66393106D+00
          EX( 20) = 0.17743254D+02
           C( 20) =-0.45274779D+00
          EX( 21) = 0.33264311D+02
           C( 21) = 0.42045699D-02
          EX( 22) = 0.55032261D+01
           C( 22) =-0.13755167D-01
          EX( 23) = 0.24240426D+01
           C( 23) =-0.52735321D-02
          EX( 24) = 0.43124249D+01
           C( 24) =-0.10218341D-02
          EX( 25) = 0.84941920D+00
           C( 25) = 0.29353367D-02
          EX( 26) = 0.34875136D+00
           C( 26) = 0.12098500D-02
          EX( 27) = 0.38664923D+05
           C( 27) = 0.27759442D-02
          EX( 28) = 0.43338665D+04
           C( 28) = 0.19357304D-01
          EX( 29) = 0.88653197D+03
           C( 29) = 0.68000653D-01
          EX( 30) = 0.23602485D+03
           C( 30) = 0.82165896D-01
          EX( 31) = 0.38532516D+03
           C( 31) = 0.50673635D-01
          EX( 32) = 0.42122731D+02
           C( 32) =-0.33043998D+00
          EX( 33) = 0.17743254D+02
           C( 33) =-0.22533359D+00
          EX( 34) = 0.33264311D+02
           C( 34) =-0.27869535D+00
          EX( 35) = 0.55032261D+01
           C( 35) = 0.91174627D+00
          EX( 36) = 0.24240426D+01
           C( 36) = 0.34955035D+00
          EX( 37) = 0.43124249D+01
           C( 37) =-0.12079537D-02
          EX( 38) = 0.84941920D+00
           C( 38) = 0.34699868D-02
          EX( 39) = 0.34875136D+00
           C( 39) = 0.14302154D-02
          EX( 40) = 0.38664923D+05
           C( 40) = 0.10707468D-02
          EX( 41) = 0.43338665D+04
           C( 41) = 0.74665664D-02
          EX( 42) = 0.88653197D+03
           C( 42) = 0.26229447D-01
          EX( 43) = 0.23602485D+03
           C( 43) = 0.31693314D-01
          EX( 44) = 0.38532516D+03
           C( 44) = 0.19849298D-01
          EX( 45) = 0.42122731D+02
           C( 45) =-0.12943618D+00
          EX( 46) = 0.17743254D+02
           C( 46) =-0.88265103D-01
          EX( 47) = 0.33264311D+02
           C( 47) =-0.13999786D+00
          EX( 48) = 0.55032261D+01
           C( 48) = 0.45800022D+00
          EX( 49) = 0.24240426D+01
           C( 49) = 0.17559067D+00
          EX( 50) = 0.43124249D+01
           C( 50) = 0.32319265D+00
          EX( 51) = 0.84941920D+00
           C( 51) =-0.92840833D+00
          EX( 52) = 0.34875136D+00
           C( 52) =-0.38265961D+00
          EX( 53) = 0.12116859D+04
           C( 53) = 0.27641087D-01
          EX( 54) = 0.25932192D+03
           C( 54) = 0.18603056D+00
          EX( 55) = 0.78817338D+02
           C( 55) = 0.50775325D+00
          EX( 56) = 0.27362720D+02
           C( 56) = 0.42961681D+00
          EX( 57) = 0.12560132D+02
           C( 57) = 0.15706905D-01
          EX( 58) = 0.50687391D+01
           C( 58) = 0.23027676D-01
          EX( 59) = 0.21712497D+01
           C( 59) = 0.59575044D-02
          EX( 60) = 0.13336899D+01
           C( 60) =-0.60689459D-02
          EX( 61) = 0.55603871D+00
           C( 61) =-0.67294171D-02
          EX( 62) = 0.21771030D+00
           C( 62) =-0.15952344D-02
          EX( 63) = 0.12116859D+04
           C( 63) = 0.13148175D-01
          EX( 64) = 0.25932192D+03
           C( 64) = 0.88490092D-01
          EX( 65) = 0.78817338D+02
           C( 65) = 0.24152554D+00
          EX( 66) = 0.27362720D+02
           C( 66) = 0.20435799D+00
          EX( 67) = 0.12560132D+02
           C( 67) =-0.41854357D+00
          EX( 68) = 0.50687391D+01
           C( 68) =-0.61362095D+00
          EX( 69) = 0.21712497D+01
           C( 69) =-0.15875025D+00
          EX( 70) = 0.13336899D+01
           C( 70) =-0.13733628D-02
          EX( 71) = 0.55603871D+00
           C( 71) =-0.15228232D-02
          EX( 72) = 0.21771030D+00
           C( 72) =-0.36099115D-03
          EX( 73) = 0.12116859D+04
           C( 73) = 0.47584922D-02
          EX( 74) = 0.25932192D+03
           C( 74) = 0.32025694D-01
          EX( 75) = 0.78817338D+02
           C( 75) = 0.87411176D-01
          EX( 76) = 0.27362720D+02
           C( 76) = 0.73959764D-01
          EX( 77) = 0.12560132D+02
           C( 77) =-0.20485539D+00
          EX( 78) = 0.50687391D+01
           C( 78) =-0.30033567D+00
          EX( 79) = 0.21712497D+01
           C( 79) =-0.77700027D-01
          EX( 80) = 0.13336899D+01
           C( 80) = 0.51278676D+00
          EX( 81) = 0.55603871D+00
           C( 81) = 0.56859230D+00
          EX( 82) = 0.21771030D+00
           C( 82) = 0.13478702D+00
          EX( 83) = 0.16461394D+03
           C( 83) = 0.24301168D-01
          EX( 84) = 0.45498830D+02
           C( 84) = 0.15202210D+00
          EX( 85) = 0.16043733D+02
           C( 85) = 0.40106297D+00
          EX( 86) = 0.60567560D+01
           C( 86) = 0.48709237D+00
          EX( 87) = 0.22405570D+01
           C( 87) = 0.19328492D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.42) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : MO/QR             CONFIGURATION : S1P6D05      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 12.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -47.379186 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2370 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -1.7524 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3418 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 12.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.38640600D+04
           C( 1)=-0.32114394D-02
          EX( 2)= 0.47657900D+03
           C( 2)=-0.18651991D-01
          EX( 3)= 0.34836800D+02
           C( 3)= 0.94122506D-01
          EX( 4)= 0.49026900D+01
           C( 4)=-0.28116082D+00
          EX( 5)= 0.94025400D+00
           C( 5)= 0.38251230D+00
          EX( 6)= 0.49868700D+00
           C( 6)= 0.24849918D+00
          EX( 7)= 0.83059000D-01
           C( 7)=-0.70094788D+00
          EX( 8)= 0.32347000D-01
           C( 8)=-0.45549235D+00
          EX( 9)= 0.38190700D+03
           C( 9)= 0.28073050D-01
          EX(10)= 0.80142800D+02
           C(10)= 0.12760787D+00
          EX(11)= 0.75901200D+01
           C(11)=-0.41092607D+00
          EX(12)= 0.10066600D+01
           C(12)= 0.78806032D+00
          EX(13)= 0.35526000D+00
           C(13)= 0.31207612D+00
          EX(14)= 0.47241000D+02
           C(14)=-0.50475840D-01
          EX(15)= 0.11547700D+02
           C(15)=-0.14558452D+00
          EX(16)= 0.11461400D+01
           C(16)= 0.46291824D+00
          EX(17)= 0.37932900D+00
           C(17)= 0.49794698D+00
          EX(18)= 0.11666400D+00
           C(18)= 0.26477369D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 12.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.10099315D+01
          ALPN0( 1)= 0.18101543D+03
            AN0( 2)= 0.63927251D+00
          ALPN0( 2)= 0.10451961D+02
            AN0( 3)= 0.19023035D+00
          ALPN0( 3)= 0.18296146D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.11647897D+03
          ALPN1( 1)= 0.31454918D+04
            AN1( 2)= 0.94526427D+01
          ALPN1( 2)= 0.53643072D+02
            AN1( 3)= 0.21729558D+00
          ALPN1( 3)= 0.16963324D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.14798000D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.21450400D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.38851000D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.57975400D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.19141200D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.31046400D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.18322140D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.41581323D+05
           C(  1) = 0.18059245D-01
          EX(  2) = 0.46172103D+04
           C(  2) = 0.12568440D+00
          EX(  3) = 0.93945037D+03
           C(  3) = 0.44279026D+00
          EX(  4) = 0.24929468D+03
           C(  4) = 0.53795633D+00
          EX(  5) = 0.40757748D+03
           C(  5) =-0.46097172D-02
          EX(  6) = 0.44597209D+02
           C(  6) = 0.30100492D-01
          EX(  7) = 0.18853806D+02
           C(  7) = 0.20728556D-01
          EX(  8) = 0.35267320D+02
           C(  8) = 0.69109666D-02
          EX(  9) = 0.58538682D+01
           C(  9) =-0.22661067D-01
          EX( 10) = 0.25852159D+01
           C( 10) =-0.84273147D-02
          EX( 11) = 0.46819201D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.93627069D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.38357024D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.41581323D+05
           C( 14) = 0.65446524D-02
          EX( 15) = 0.46172103D+04
           C( 15) = 0.45547900D-01
          EX( 16) = 0.93945037D+03
           C( 16) = 0.16046675D+00
          EX( 17) = 0.24929468D+03
           C( 17) = 0.19495484D+00
          EX( 18) = 0.40757748D+03
           C( 18) = 0.10124402D+00
          EX( 19) = 0.44597209D+02
           C( 19) =-0.66110238D+00
          EX( 20) = 0.18853806D+02
           C( 20) =-0.45526492D+00
          EX( 21) = 0.35267320D+02
           C( 21) = 0.44192893D-02
          EX( 22) = 0.58538682D+01
           C( 22) =-0.14490854D-01
          EX( 23) = 0.25852159D+01
           C( 23) =-0.53889338D-02
          EX( 24) = 0.46819201D+01
           C( 24) =-0.11760114D-02
          EX( 25) = 0.93627069D+00
           C( 25) = 0.33093821D-02
          EX( 26) = 0.38357024D+00
           C( 26) = 0.13577845D-02
          EX( 27) = 0.41581323D+05
           C( 27) = 0.27970524D-02
          EX( 28) = 0.46172103D+04
           C( 28) = 0.19466254D-01
          EX( 29) = 0.93945037D+03
           C( 29) = 0.68580253D-01
          EX( 30) = 0.24929468D+03
           C( 30) = 0.83319766D-01
          EX( 31) = 0.40757748D+03
           C( 31) = 0.50779252D-01
          EX( 32) = 0.44597209D+02
           C( 32) =-0.33157793D+00
          EX( 33) = 0.18853806D+02
           C( 33) =-0.22833952D+00
          EX( 34) = 0.35267320D+02
           C( 34) =-0.28094254D+00
          EX( 35) = 0.58538682D+01
           C( 35) = 0.92121089D+00
          EX( 36) = 0.25852159D+01
           C( 36) = 0.34258467D+00
          EX( 37) = 0.46819201D+01
           C( 37) =-0.12098205D-02
          EX( 38) = 0.93627069D+00
           C( 38) = 0.34045233D-02
          EX( 39) = 0.38357024D+00
           C( 39) = 0.13968194D-02
          EX( 40) = 0.41581323D+05
           C( 40) = 0.10982805D-02
          EX( 41) = 0.46172103D+04
           C( 41) = 0.76435487D-02
          EX( 42) = 0.93945037D+03
           C( 42) = 0.26928474D-01
          EX( 43) = 0.24929468D+03
           C( 43) = 0.32716038D-01
          EX( 44) = 0.40757748D+03
           C( 44) = 0.20352630D-01
          EX( 45) = 0.44597209D+02
           C( 45) =-0.13289844D+00
          EX( 46) = 0.18853806D+02
           C( 46) =-0.91519854D-01
          EX( 47) = 0.35267320D+02
           C( 47) =-0.14392010D+00
          EX( 48) = 0.58538682D+01
           C( 48) = 0.47191416D+00
          EX( 49) = 0.25852159D+01
           C( 49) = 0.17549787D+00
          EX( 50) = 0.46819201D+01
           C( 50) = 0.33305593D+00
          EX( 51) = 0.93627069D+00
           C( 51) =-0.93724371D+00
          EX( 52) = 0.38357024D+00
           C( 52) =-0.38453554D+00
          EX( 53) = 0.12869232D+04
           C( 53) = 0.27444444D-01
          EX( 54) = 0.27504871D+03
           C( 54) = 0.18502080D+00
          EX( 55) = 0.83578822D+02
           C( 55) = 0.50687053D+00
          EX( 56) = 0.29033996D+02
           C( 56) = 0.43097892D+00
          EX( 57) = 0.13343044D+02
           C( 57) = 0.16036172D-01
          EX( 58) = 0.54037923D+01
           C( 58) = 0.23355125D-01
          EX( 59) = 0.23198564D+01
           C( 59) = 0.58308591D-02
          EX( 60) = 0.14741790D+01
           C( 60) =-0.60034572D-02
          EX( 61) = 0.61669045D+00
           C( 61) =-0.65704874D-02
          EX( 62) = 0.24181767D+00
           C( 62) =-0.15573495D-02
          EX( 63) = 0.12869232D+04
           C( 63) = 0.13177442D-01
          EX( 64) = 0.27504871D+03
           C( 64) = 0.88837687D-01
          EX( 65) = 0.83578822D+02
           C( 65) = 0.24337374D+00
          EX( 66) = 0.29033996D+02
           C( 66) = 0.20693441D+00
          EX( 67) = 0.13343044D+02
           C( 67) =-0.42242121D+00
          EX( 68) = 0.54037923D+01
           C( 68) =-0.61521542D+00
          EX( 69) = 0.23198564D+01
           C( 69) =-0.15359517D+00
          EX( 70) = 0.14741790D+01
           C( 70) =-0.13579509D-02
          EX( 71) = 0.61669045D+00
           C( 71) =-0.14862103D-02
          EX( 72) = 0.24181767D+00
           C( 72) =-0.35226441D-03
          EX( 73) = 0.17798872D+03
           C( 73) = 0.23686819D-01
          EX( 74) = 0.49286121D+02
           C( 74) = 0.14962303D+00
          EX( 75) = 0.17433525D+02
           C( 75) = 0.39928381D+00
          EX( 76) = 0.66196250D+01
           C( 76) = 0.48885024D+00
          EX( 77) = 0.24693629D+01
           C( 77) = 0.19266927D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : MO/QR             CONFIGURATION : S1D05        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  6.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =      -8.010133 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2380 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3418 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  6.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.21710380D+02
           C( 1)= 0.10900441D+00
          EX( 2)= 0.49026900D+01
           C( 2)=-0.27938732D+00
          EX( 3)= 0.94025400D+00
           C( 3)= 0.42765363D+00
          EX( 4)= 0.49868700D+00
           C( 4)= 0.20024728D+00
          EX( 5)= 0.83059000D-01
           C( 5)=-0.70676002D+00
          EX( 6)= 0.32347000D-01
           C( 6)=-0.44373986D+00
          EX( 7)= 0.47241000D+02
           C( 7)= 0.71359782D-01
          EX( 8)= 0.11547700D+02
           C( 8)= 0.13904697D+00
          EX( 9)= 0.11461400D+01
           C( 9)=-0.44076639D+00
          EX(10)= 0.37932900D+00
           C(10)=-0.52395603D+00
          EX(11)= 0.11666400D+00
           C(11)=-0.25059077D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  6.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.31138536D+01
          ALPN0( 1)= 0.16499759D+03
            AN0( 2)= 0.17333260D+01
          ALPN0( 2)= 0.66367400D+01
            AN0( 3)= 0.58509584D+00
          ALPN0( 3)= 0.15228009D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.14997250D+02
          ALPN1( 1)= 0.19849570D+04
            AN1( 2)= 0.35391918D+02
          ALPN1( 2)= 0.61847000D+02
            AN1( 3)= 0.43992400D+00
          ALPN1( 3)= 0.74591007D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.88788000D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.12870240D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.23310600D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.34785240D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.11484720D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.18627840D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.21020040D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.10993284D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.41581323D+05
           C(  1) = 0.18059245D-01
          EX(  2) = 0.46172103D+04
           C(  2) = 0.12568440D+00
          EX(  3) = 0.93945037D+03
           C(  3) = 0.44279026D+00
          EX(  4) = 0.24929468D+03
           C(  4) = 0.53795633D+00
          EX(  5) = 0.40757748D+03
           C(  5) =-0.46097172D-02
          EX(  6) = 0.44597209D+02
           C(  6) = 0.30100492D-01
          EX(  7) = 0.18853806D+02
           C(  7) = 0.20728556D-01
          EX(  8) = 0.35267320D+02
           C(  8) = 0.69109666D-02
          EX(  9) = 0.58538682D+01
           C(  9) =-0.22661067D-01
          EX( 10) = 0.25852159D+01
           C( 10) =-0.84273147D-02
          EX( 11) = 0.46819201D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.93627069D+00
           C( 12) = 0.00000000D+00
          EX( 13) = 0.38357024D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.41581323D+05
           C( 14) = 0.65446524D-02
          EX( 15) = 0.46172103D+04
           C( 15) = 0.45547900D-01
          EX( 16) = 0.93945037D+03
           C( 16) = 0.16046675D+00
          EX( 17) = 0.24929468D+03
           C( 17) = 0.19495484D+00
          EX( 18) = 0.40757748D+03
           C( 18) = 0.10124402D+00
          EX( 19) = 0.44597209D+02
           C( 19) =-0.66110238D+00
          EX( 20) = 0.18853806D+02
           C( 20) =-0.45526492D+00
          EX( 21) = 0.35267320D+02
           C( 21) = 0.44192893D-02
          EX( 22) = 0.58538682D+01
           C( 22) =-0.14490854D-01
          EX( 23) = 0.25852159D+01
           C( 23) =-0.53889338D-02
          EX( 24) = 0.46819201D+01
           C( 24) =-0.11760114D-02
          EX( 25) = 0.93627069D+00
           C( 25) = 0.33093821D-02
          EX( 26) = 0.38357024D+00
           C( 26) = 0.13577845D-02
          EX( 27) = 0.41581323D+05
           C( 27) = 0.27970524D-02
          EX( 28) = 0.46172103D+04
           C( 28) = 0.19466254D-01
          EX( 29) = 0.93945037D+03
           C( 29) = 0.68580253D-01
          EX( 30) = 0.24929468D+03
           C( 30) = 0.83319766D-01
          EX( 31) = 0.40757748D+03
           C( 31) = 0.50779252D-01
          EX( 32) = 0.44597209D+02
           C( 32) =-0.33157793D+00
          EX( 33) = 0.18853806D+02
           C( 33) =-0.22833952D+00
          EX( 34) = 0.35267320D+02
           C( 34) =-0.28094254D+00
          EX( 35) = 0.58538682D+01
           C( 35) = 0.92121089D+00
          EX( 36) = 0.25852159D+01
           C( 36) = 0.34258467D+00
          EX( 37) = 0.46819201D+01
           C( 37) =-0.12098205D-02
          EX( 38) = 0.93627069D+00
           C( 38) = 0.34045233D-02
          EX( 39) = 0.38357024D+00
           C( 39) = 0.13968194D-02
          EX( 40) = 0.41581323D+05
           C( 40) = 0.10982805D-02
          EX( 41) = 0.46172103D+04
           C( 41) = 0.76435487D-02
          EX( 42) = 0.93945037D+03
           C( 42) = 0.26928474D-01
          EX( 43) = 0.24929468D+03
           C( 43) = 0.32716038D-01
          EX( 44) = 0.40757748D+03
           C( 44) = 0.20352630D-01
          EX( 45) = 0.44597209D+02
           C( 45) =-0.13289844D+00
          EX( 46) = 0.18853806D+02
           C( 46) =-0.91519854D-01
          EX( 47) = 0.35267320D+02
           C( 47) =-0.14392010D+00
          EX( 48) = 0.58538682D+01
           C( 48) = 0.47191416D+00
          EX( 49) = 0.25852159D+01
           C( 49) = 0.17549787D+00
          EX( 50) = 0.46819201D+01
           C( 50) = 0.33305593D+00
          EX( 51) = 0.93627069D+00
           C( 51) =-0.93724371D+00
          EX( 52) = 0.38357024D+00
           C( 52) =-0.38453554D+00
          EX( 53) = 0.12869232D+04
           C( 53) = 0.27444444D-01
          EX( 54) = 0.27504871D+03
           C( 54) = 0.18502080D+00
          EX( 55) = 0.83578822D+02
           C( 55) = 0.50687053D+00
          EX( 56) = 0.29033996D+02
           C( 56) = 0.43097892D+00
          EX( 57) = 0.13343044D+02
           C( 57) = 0.16036172D-01
          EX( 58) = 0.54037923D+01
           C( 58) = 0.23355125D-01
          EX( 59) = 0.23198564D+01
           C( 59) = 0.58308591D-02
          EX( 60) = 0.14741790D+01
           C( 60) =-0.60034572D-02
          EX( 61) = 0.61669045D+00
           C( 61) =-0.65704874D-02
          EX( 62) = 0.24181767D+00
           C( 62) =-0.15573495D-02
          EX( 63) = 0.12869232D+04
           C( 63) = 0.13177442D-01
          EX( 64) = 0.27504871D+03
           C( 64) = 0.88837687D-01
          EX( 65) = 0.83578822D+02
           C( 65) = 0.24337374D+00
          EX( 66) = 0.29033996D+02
           C( 66) = 0.20693441D+00
          EX( 67) = 0.13343044D+02
           C( 67) =-0.42242121D+00
          EX( 68) = 0.54037923D+01
           C( 68) =-0.61521542D+00
          EX( 69) = 0.23198564D+01
           C( 69) =-0.15359517D+00
          EX( 70) = 0.14741790D+01
           C( 70) =-0.13579509D-02
          EX( 71) = 0.61669045D+00
           C( 71) =-0.14862103D-02
          EX( 72) = 0.24181767D+00
           C( 72) =-0.35226441D-03
          EX( 73) = 0.12869232D+04
           C( 73) = 0.48835257D-02
          EX( 74) = 0.27504871D+03
           C( 74) = 0.32923015D-01
          EX( 75) = 0.83578822D+02
           C( 75) = 0.90193672D-01
          EX( 76) = 0.29033996D+02
           C( 76) = 0.76689351D-01
          EX( 77) = 0.13343044D+02
           C( 77) =-0.21317977D+00
          EX( 78) = 0.54037923D+01
           C( 78) =-0.31047560D+00
          EX( 79) = 0.23198564D+01
           C( 79) =-0.77513583D-01
          EX( 80) = 0.14741790D+01
           C( 80) = 0.51964691D+00
          EX( 81) = 0.61669045D+00
           C( 81) = 0.56872788D+00
          EX( 82) = 0.24181767D+00
           C( 82) = 0.13480097D+00
          EX( 83) = 0.17798872D+03
           C( 83) = 0.23686819D-01
          EX( 84) = 0.49286121D+02
           C( 84) = 0.14962303D+00
          EX( 85) = 0.17433525D+02
           C( 85) = 0.39928381D+00
          EX( 86) = 0.66196250D+01
           C( 86) = 0.48885024D+00
          EX( 87) = 0.24693629D+01
           C( 87) = 0.19266927D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.43) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : TC/QR             CONFIGURATION : S1P6D06      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 13.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -57.732186 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2377 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -1.9470 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3609 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 13.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.41107300D+04
           C( 1)= 0.32487722D-02
          EX( 2)= 0.50416800D+03
           C( 2)= 0.19274985D-01
          EX( 3)= 0.36753500D+02
           C( 3)=-0.96622593D-01
          EX( 4)= 0.52624300D+01
           C( 4)= 0.28541522D+00
          EX( 5)= 0.10539300D+01
           C( 5)=-0.36363429D+00
          EX( 6)= 0.55610000D+00
           C( 6)=-0.24835746D+00
          EX( 7)= 0.86725000D-01
           C( 7)= 0.67949441D+00
          EX( 8)= 0.33230000D-01
           C( 8)= 0.46762953D+00
          EX( 9)= 0.40228070D+03
           C( 9)= 0.30555951D-01
          EX(10)= 0.84498100D+02
           C(10)= 0.13700626D+00
          EX(11)= 0.81307300D+01
           C(11)=-0.43269120D+00
          EX(12)= 0.11059400D+01
           C(12)= 0.79456346D+00
          EX(13)= 0.39177000D+00
           C(13)= 0.30537160D+00
          EX(14)= 0.51165050D+02
           C(14)= 0.59583698D-01
          EX(15)= 0.12592500D+02
           C(15)= 0.16714960D+00
          EX(16)= 0.12831200D+01
           C(16)=-0.48050975D+00
          EX(17)= 0.42618500D+00
           C(17)=-0.48722410D+00
          EX(18)= 0.12969900D+00
           C(18)=-0.25455910D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 13.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.94099464D+00
          ALPN0( 1)= 0.18254729D+03
            AN0( 2)= 0.60715810D+00
          ALPN0( 2)= 0.10173718D+02
            AN0( 3)= 0.17612848D+00
          ALPN0( 3)= 0.20105318D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.10318805D+03
          ALPN1( 1)= 0.30276184D+04
            AN1( 2)= 0.81113628D+01
          ALPN1( 2)= 0.53115602D+02
            AN1( 3)= 0.18941654D+00
          ALPN1( 3)= 0.18748097D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.15571100D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.22762200D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.41865600D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.63416000D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.20335000D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.33652000D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.20334400D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.44686283D+05
           C(  1) = 0.18005128D-01
          EX(  2) = 0.49149740D+04
           C(  2) = 0.12504259D+00
          EX(  3) = 0.99457031D+03
           C(  3) = 0.44178705D+00
          EX(  4) = 0.26303239D+03
           C(  4) = 0.53970138D+00
          EX(  5) = 0.43081717D+03
           C(  5) =-0.46326429D-02
          EX(  6) = 0.47115633D+02
           C(  6) = 0.30378186D-01
          EX(  7) = 0.19947723D+02
           C(  7) = 0.21023110D-01
          EX(  8) = 0.37336035D+02
           C(  8) = 0.69642292D-02
          EX(  9) = 0.62190187D+01
           C(  9) =-0.22879454D-01
          EX( 10) = 0.27508337D+01
           C( 10) =-0.82617905D-02
          EX( 11) = 0.50645847D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.10261021D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.41985687D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.44686283D+05
           C( 14) = 0.65488103D-02
          EX( 15) = 0.49149740D+04
           C( 15) = 0.45480390D-01
          EX( 16) = 0.99457031D+03
           C( 16) = 0.16068643D+00
          EX( 17) = 0.26303239D+03
           C( 17) = 0.19629975D+00
          EX( 18) = 0.43081717D+03
           C( 18) = 0.10061821D+00
          EX( 19) = 0.47115633D+02
           C( 19) =-0.65979592D+00
          EX( 20) = 0.19947723D+02
           C( 20) =-0.45660930D+00
          EX( 21) = 0.37336035D+02
           C( 21) = 0.44674926D-02
          EX( 22) = 0.62190187D+01
           C( 22) =-0.14676970D-01
          EX( 23) = 0.27508337D+01
           C( 23) =-0.52998668D-02
          EX( 24) = 0.50645847D+01
           C( 24) =-0.11732722D-02
          EX( 25) = 0.10261021D+01
           C( 25) = 0.32493699D-02
          EX( 26) = 0.41985687D+00
           C( 26) = 0.13226430D-02
          EX( 27) = 0.44686283D+05
           C( 27) = 0.28174333D-02
          EX( 28) = 0.49149740D+04
           C( 28) = 0.19566601D-01
          EX( 29) = 0.99457031D+03
           C( 29) = 0.69130614D-01
          EX( 30) = 0.26303239D+03
           C( 30) = 0.84452199D-01
          EX( 31) = 0.43081717D+03
           C( 31) = 0.50832316D-01
          EX( 32) = 0.47115633D+02
           C( 32) =-0.33332886D+00
          EX( 33) = 0.19947723D+02
           C( 33) =-0.23067899D+00
          EX( 34) = 0.37336035D+02
           C( 34) =-0.28324567D+00
          EX( 35) = 0.62190187D+01
           C( 35) = 0.93054172D+00
          EX( 36) = 0.27508337D+01
           C( 36) = 0.33601943D+00
          EX( 37) = 0.50645847D+01
           C( 37) =-0.12045446D-02
          EX( 38) = 0.10261021D+01
           C( 38) = 0.33359786D-02
          EX( 39) = 0.41985687D+00
           C( 39) = 0.13578967D-02
          EX( 40) = 0.44686283D+05
           C( 40) = 0.11242941D-02
          EX( 41) = 0.49149740D+04
           C( 41) = 0.78080339D-02
          EX( 42) = 0.99457031D+03
           C( 42) = 0.27586505D-01
          EX( 43) = 0.26303239D+03
           C( 43) = 0.33700570D-01
          EX( 44) = 0.43081717D+03
           C( 44) = 0.20789761D-01
          EX( 45) = 0.47115633D+02
           C( 45) =-0.13632720D+00
          EX( 46) = 0.19947723D+02
           C( 46) =-0.94344728D-01
          EX( 47) = 0.37336035D+02
           C( 47) =-0.14780316D+00
          EX( 48) = 0.62190187D+01
           C( 48) = 0.48557500D+00
          EX( 49) = 0.27508337D+01
           C( 49) = 0.17534155D+00
          EX( 50) = 0.50645847D+01
           C( 50) = 0.34174185D+00
          EX( 51) = 0.10261021D+01
           C( 51) =-0.94645185D+00
          EX( 52) = 0.41985687D+00
           C( 52) =-0.38524943D+00
          EX( 53) = 0.13713105D+04
           C( 53) = 0.27060815D-01
          EX( 54) = 0.29267041D+03
           C( 54) = 0.18294377D+00
          EX( 55) = 0.88921950D+02
           C( 55) = 0.50448510D+00
          EX( 56) = 0.30921454D+02
           C( 56) = 0.43419383D+00
          EX( 57) = 0.14168232D+02
           C( 57) = 0.16894203D-01
          EX( 58) = 0.57567145D+01
           C( 58) = 0.24541661D-01
          EX( 59) = 0.24748629D+01
           C( 59) = 0.59363318D-02
          EX( 60) = 0.16218927D+01
           C( 60) =-0.67055853D-02
          EX( 61) = 0.68073405D+00
           C( 61) =-0.72738330D-02
          EX( 62) = 0.26691670D+00
           C( 62) =-0.17055120D-02
          EX( 63) = 0.13713105D+04
           C( 63) = 0.13109110D-01
          EX( 64) = 0.29267041D+03
           C( 64) = 0.88623716D-01
          EX( 65) = 0.88921950D+02
           C( 65) = 0.24438844D+00
          EX( 66) = 0.30921454D+02
           C( 66) = 0.21033714D+00
          EX( 67) = 0.14168232D+02
           C( 67) =-0.42480031D+00
          EX( 68) = 0.57567145D+01
           C( 68) =-0.61709365D+00
          EX( 69) = 0.24748629D+01
           C( 69) =-0.14926751D+00
          EX( 70) = 0.16218927D+01
           C( 70) =-0.13566270D-02
          EX( 71) = 0.68073405D+00
           C( 71) =-0.14715909D-02
          EX( 72) = 0.26691670D+00
           C( 72) =-0.34504724D-03
          EX( 73) = 0.19177964D+03
           C( 73) = 0.23147675D-01
          EX( 74) = 0.53190184D+02
           C( 74) = 0.14751070D+00
          EX( 75) = 0.18867261D+02
           C( 75) = 0.39773656D+00
          EX( 76) = 0.72015344D+01
           C( 76) = 0.49041502D+00
          EX( 77) = 0.27062658D+01
           C( 77) = 0.19203675D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : TC/QR             CONFIGURATION : S1D06        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  7.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -11.873834 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2390 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3614 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  7.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.22869800D+02
           C( 1)=-0.11338065D+00
          EX( 2)= 0.52624300D+01
           C( 2)= 0.29523023D+00
          EX( 3)= 0.10539300D+01
           C( 3)=-0.42648778D+00
          EX( 4)= 0.55610000D+00
           C( 4)=-0.19930497D+00
          EX( 5)= 0.86725000D-01
           C( 5)= 0.68534252D+00
          EX( 6)= 0.33230000D-01
           C( 6)= 0.45496850D+00
          EX( 7)= 0.51165050D+02
           C( 7)= 0.72660377D-01
          EX( 8)= 0.12592500D+02
           C( 8)= 0.15131744D+00
          EX( 9)= 0.12831200D+01
           C( 9)=-0.46452250D+00
          EX(10)= 0.42618500D+00
           C(10)=-0.51044836D+00
          EX(11)= 0.12969900D+00
           C(11)=-0.23977816D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  7.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.30352006D+01
          ALPN0( 1)= 0.17153687D+03
            AN0( 2)= 0.14676063D+01
          ALPN0( 2)= 0.67900060D+01
            AN0( 3)= 0.50249875D+00
          ALPN0( 3)= 0.14346411D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.10007315D+02
          ALPN1( 1)= 0.22449800D+04
            AN1( 2)= 0.27672587D+02
          ALPN1( 2)= 0.62590326D+02
            AN1( 3)= 0.35053061D+00
          ALPN1( 3)= 0.81182987D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.93426600D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.13657320D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.25119360D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.38049600D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.12201000D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.20191200D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.23382000D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.12200640D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.44686283D+05
           C(  1) = 0.18005128D-01
          EX(  2) = 0.49149740D+04
           C(  2) = 0.12504259D+00
          EX(  3) = 0.99457031D+03
           C(  3) = 0.44178705D+00
          EX(  4) = 0.26303239D+03
           C(  4) = 0.53970138D+00
          EX(  5) = 0.43081717D+03
           C(  5) =-0.46326429D-02
          EX(  6) = 0.47115633D+02
           C(  6) = 0.30378186D-01
          EX(  7) = 0.19947723D+02
           C(  7) = 0.21023110D-01
          EX(  8) = 0.37336035D+02
           C(  8) = 0.69642292D-02
          EX(  9) = 0.62190187D+01
           C(  9) =-0.22879454D-01
          EX( 10) = 0.27508337D+01
           C( 10) =-0.82617905D-02
          EX( 11) = 0.50645847D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.10261021D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.41985687D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.44686283D+05
           C( 14) = 0.65488103D-02
          EX( 15) = 0.49149740D+04
           C( 15) = 0.45480390D-01
          EX( 16) = 0.99457031D+03
           C( 16) = 0.16068643D+00
          EX( 17) = 0.26303239D+03
           C( 17) = 0.19629975D+00
          EX( 18) = 0.43081717D+03
           C( 18) = 0.10061821D+00
          EX( 19) = 0.47115633D+02
           C( 19) =-0.65979592D+00
          EX( 20) = 0.19947723D+02
           C( 20) =-0.45660930D+00
          EX( 21) = 0.37336035D+02
           C( 21) = 0.44674926D-02
          EX( 22) = 0.62190187D+01
           C( 22) =-0.14676970D-01
          EX( 23) = 0.27508337D+01
           C( 23) =-0.52998668D-02
          EX( 24) = 0.50645847D+01
           C( 24) =-0.11732722D-02
          EX( 25) = 0.10261021D+01
           C( 25) = 0.32493699D-02
          EX( 26) = 0.41985687D+00
           C( 26) = 0.13226430D-02
          EX( 27) = 0.44686283D+05
           C( 27) = 0.28174333D-02
          EX( 28) = 0.49149740D+04
           C( 28) = 0.19566601D-01
          EX( 29) = 0.99457031D+03
           C( 29) = 0.69130614D-01
          EX( 30) = 0.26303239D+03
           C( 30) = 0.84452199D-01
          EX( 31) = 0.43081717D+03
           C( 31) = 0.50832316D-01
          EX( 32) = 0.47115633D+02
           C( 32) =-0.33332886D+00
          EX( 33) = 0.19947723D+02
           C( 33) =-0.23067899D+00
          EX( 34) = 0.37336035D+02
           C( 34) =-0.28324567D+00
          EX( 35) = 0.62190187D+01
           C( 35) = 0.93054172D+00
          EX( 36) = 0.27508337D+01
           C( 36) = 0.33601943D+00
          EX( 37) = 0.50645847D+01
           C( 37) =-0.12045446D-02
          EX( 38) = 0.10261021D+01
           C( 38) = 0.33359786D-02
          EX( 39) = 0.41985687D+00
           C( 39) = 0.13578967D-02
          EX( 40) = 0.44686283D+05
           C( 40) = 0.11242941D-02
          EX( 41) = 0.49149740D+04
           C( 41) = 0.78080339D-02
          EX( 42) = 0.99457031D+03
           C( 42) = 0.27586505D-01
          EX( 43) = 0.26303239D+03
           C( 43) = 0.33700570D-01
          EX( 44) = 0.43081717D+03
           C( 44) = 0.20789761D-01
          EX( 45) = 0.47115633D+02
           C( 45) =-0.13632720D+00
          EX( 46) = 0.19947723D+02
           C( 46) =-0.94344728D-01
          EX( 47) = 0.37336035D+02
           C( 47) =-0.14780316D+00
          EX( 48) = 0.62190187D+01
           C( 48) = 0.48557500D+00
          EX( 49) = 0.27508337D+01
           C( 49) = 0.17534155D+00
          EX( 50) = 0.50645847D+01
           C( 50) = 0.34174185D+00
          EX( 51) = 0.10261021D+01
           C( 51) =-0.94645185D+00
          EX( 52) = 0.41985687D+00
           C( 52) =-0.38524943D+00
          EX( 53) = 0.13713105D+04
           C( 53) = 0.27060815D-01
          EX( 54) = 0.29267041D+03
           C( 54) = 0.18294377D+00
          EX( 55) = 0.88921950D+02
           C( 55) = 0.50448510D+00
          EX( 56) = 0.30921454D+02
           C( 56) = 0.43419383D+00
          EX( 57) = 0.14168232D+02
           C( 57) = 0.16894203D-01
          EX( 58) = 0.57567145D+01
           C( 58) = 0.24541661D-01
          EX( 59) = 0.24748629D+01
           C( 59) = 0.59363318D-02
          EX( 60) = 0.16218927D+01
           C( 60) =-0.67055853D-02
          EX( 61) = 0.68073405D+00
           C( 61) =-0.72738330D-02
          EX( 62) = 0.26691670D+00
           C( 62) =-0.17055120D-02
          EX( 63) = 0.13713105D+04
           C( 63) = 0.13109110D-01
          EX( 64) = 0.29267041D+03
           C( 64) = 0.88623716D-01
          EX( 65) = 0.88921950D+02
           C( 65) = 0.24438844D+00
          EX( 66) = 0.30921454D+02
           C( 66) = 0.21033714D+00
          EX( 67) = 0.14168232D+02
           C( 67) =-0.42480031D+00
          EX( 68) = 0.57567145D+01
           C( 68) =-0.61709365D+00
          EX( 69) = 0.24748629D+01
           C( 69) =-0.14926751D+00
          EX( 70) = 0.16218927D+01
           C( 70) =-0.13566270D-02
          EX( 71) = 0.68073405D+00
           C( 71) =-0.14715909D-02
          EX( 72) = 0.26691670D+00
           C( 72) =-0.34504724D-03
          EX( 73) = 0.13713105D+04
           C( 73) = 0.49652027D-02
          EX( 74) = 0.29267041D+03
           C( 74) = 0.33567094D-01
          EX( 75) = 0.88921950D+02
           C( 75) = 0.92564499D-01
          EX( 76) = 0.30921454D+02
           C( 76) = 0.79667237D-01
          EX( 77) = 0.14168232D+02
           C( 77) =-0.22055968D+00
          EX( 78) = 0.57567145D+01
           C( 78) =-0.32039990D+00
          EX( 79) = 0.24748629D+01
           C( 79) =-0.77500870D-01
          EX( 80) = 0.16218927D+01
           C( 80) = 0.52573888D+00
          EX( 81) = 0.68073405D+00
           C( 81) = 0.57029128D+00
          EX( 82) = 0.26691670D+00
           C( 82) = 0.13371748D+00
          EX( 83) = 0.19177964D+03
           C( 83) = 0.23147675D-01
          EX( 84) = 0.53190184D+02
           C( 84) = 0.14751070D+00
          EX( 85) = 0.18867261D+02
           C( 85) = 0.39773656D+00
          EX( 86) = 0.72015344D+01
           C( 86) = 0.49041502D+00
          EX( 87) = 0.27062658D+01
           C( 87) = 0.19203675D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.44) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : RU/QR             CONFIGURATION : S1P6D07      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 14.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -68.868012 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2381 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -2.1432 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3936 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 14.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.43676250D+04
           C( 1)=-0.30351450D-02
          EX( 2)= 0.53270800D+03
           C( 2)=-0.18312361D-01
          EX( 3)= 0.38739400D+02
           C( 3)= 0.92285951D-01
          EX( 4)= 0.56355400D+01
           C( 4)=-0.27422076D+00
          EX( 5)= 0.11722200D+01
           C( 5)= 0.32374469D+00
          EX( 6)= 0.61113100D+00
           C( 6)= 0.26477481D+00
          EX( 7)= 0.89460000D-01
           C( 7)=-0.67414595D+00
          EX( 8)= 0.33766000D-01
           C( 8)=-0.46848015D+00
          EX( 9)= 0.42342300D+03
           C( 9)= 0.30912050D-01
          EX(10)= 0.89001600D+02
           C(10)= 0.13680724D+00
          EX(11)= 0.86900000D+01
           C(11)=-0.43199544D+00
          EX(12)= 0.12086100D+01
           C(12)= 0.78670199D+00
          EX(13)= 0.42930000D+00
           C(13)= 0.31687071D+00
          EX(14)= 0.55143400D+02
           C(14)=-0.53299643D-01
          EX(15)= 0.13654600D+02
           C(15)=-0.16511691D+00
          EX(16)= 0.14259500D+01
           C(16)= 0.48071911D+00
          EX(17)= 0.47724700D+00
           C(17)= 0.49372772D+00
          EX(18)= 0.14536700D+00
           C(18)= 0.24476074D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 14.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.89082474D+00
          ALPN0( 1)= 0.18383991D+03
            AN0( 2)= 0.54343435D+00
          ALPN0( 2)= 0.10607278D+02
            AN0( 3)= 0.16029665D+00
          ALPN0( 3)= 0.20218635D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.96657121D+02
          ALPN1( 1)= 0.28490643D+04
            AN1( 2)= 0.75000317D+01
          ALPN1( 2)= 0.58776949D+02
            AN1( 3)= 0.16030737D+00
          ALPN1( 3)= 0.18947748D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.16365500D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.24114600D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.44959400D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.68818000D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.21563800D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.36322200D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.22401800D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.47987547D+05
           C(  1) = 0.17955344D-01
          EX(  2) = 0.52275561D+04
           C(  2) = 0.12440916D+00
          EX(  3) = 0.10519317D+04
           C(  3) = 0.44077674D+00
          EX(  4) = 0.27724311D+03
           C(  4) = 0.54144849D+00
          EX(  5) = 0.45496365D+03
           C(  5) =-0.46546845D-02
          EX(  6) = 0.49723078D+02
           C(  6) = 0.30657064D-01
          EX(  7) = 0.21081686D+02
           C(  7) = 0.21328877D-01
          EX(  8) = 0.39477434D+02
           C(  8) = 0.70191247D-02
          EX(  9) = 0.65973891D+01
           C(  9) =-0.23101640D-01
          EX( 10) = 0.29210317D+01
           C( 10) =-0.81113039D-02
          EX( 11) = 0.54615536D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.11190753D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.45716174D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.47987547D+05
           C( 14) = 0.65541518D-02
          EX( 15) = 0.52275561D+04
           C( 15) = 0.45412470D-01
          EX( 16) = 0.10519317D+04
           C( 16) = 0.16089459D+00
          EX( 17) = 0.27724311D+03
           C( 17) = 0.19764230D+00
          EX( 18) = 0.45496365D+03
           C( 18) = 0.99962240D-01
          EX( 19) = 0.49723078D+02
           C( 19) =-0.65837947D+00
          EX( 20) = 0.21081686D+02
           C( 20) =-0.45805087D+00
          EX( 21) = 0.39477434D+02
           C( 21) = 0.45162576D-02
          EX( 22) = 0.65973891D+01
           C( 22) =-0.14864098D-01
          EX( 23) = 0.29210317D+01
           C( 23) =-0.52189895D-02
          EX( 24) = 0.54615536D+01
           C( 24) =-0.11700028D-02
          EX( 25) = 0.11190753D+01
           C( 25) = 0.31961554D-02
          EX( 26) = 0.45716174D+00
           C( 26) = 0.12982498D-02
          EX( 27) = 0.47987547D+05
           C( 27) = 0.28374108D-02
          EX( 28) = 0.52275561D+04
           C( 28) = 0.19659879D-01
          EX( 29) = 0.10519317D+04
           C( 29) = 0.69654173D-01
          EX( 30) = 0.27724311D+03
           C( 30) = 0.85562922D-01
          EX( 31) = 0.45496365D+03
           C( 31) = 0.50846821D-01
          EX( 32) = 0.49723078D+02
           C( 32) =-0.33489149D+00
          EX( 33) = 0.21081686D+02
           C( 33) =-0.23299228D+00
          EX( 34) = 0.39477434D+02
           C( 34) =-0.28541992D+00
          EX( 35) = 0.65973891D+01
           C( 35) = 0.93938613D+00
          EX( 36) = 0.29210317D+01
           C( 36) = 0.32983140D+00
          EX( 37) = 0.54615536D+01
           C( 37) =-0.11959085D-02
          EX( 38) = 0.11190753D+01
           C( 38) = 0.32669233D-02
          EX( 39) = 0.45716174D+00
           C( 39) = 0.13269950D-02
          EX( 40) = 0.47987547D+05
           C( 40) = 0.11481402D-02
          EX( 41) = 0.52275561D+04
           C( 41) = 0.79552451D-02
          EX( 42) = 0.10519317D+04
           C( 42) = 0.28185119D-01
          EX( 43) = 0.27724311D+03
           C( 43) = 0.34622494D-01
          EX( 44) = 0.45496365D+03
           C( 44) = 0.21155833D-01
          EX( 45) = 0.49723078D+02
           C( 45) =-0.13933828D+00
          EX( 46) = 0.21081686D+02
           C( 46) =-0.96941085D-01
          EX( 47) = 0.39477434D+02
           C( 47) =-0.15142285D+00
          EX( 48) = 0.65973891D+01
           C( 48) = 0.49836927D+00
          EX( 49) = 0.29210317D+01
           C( 49) = 0.17498431D+00
          EX( 50) = 0.54615536D+01
           C( 50) = 0.34897705D+00
          EX( 51) = 0.11190753D+01
           C( 51) =-0.95331812D+00
          EX( 52) = 0.45716174D+00
           C( 52) =-0.38722929D+00
          EX( 53) = 0.14607499D+04
           C( 53) = 0.26652162D-01
          EX( 54) = 0.31129975D+03
           C( 54) = 0.18069999D+00
          EX( 55) = 0.94565939D+02
           C( 55) = 0.50180415D+00
          EX( 56) = 0.32916839D+02
           C( 56) = 0.43772279D+00
          EX( 57) = 0.15025667D+02
           C( 57) = 0.17868669D-01
          EX( 58) = 0.61235508D+01
           C( 58) = 0.25921262D-01
          EX( 59) = 0.26344722D+01
           C( 59) = 0.60897873D-02
          EX( 60) = 0.17765928D+01
           C( 60) =-0.75664683D-02
          EX( 61) = 0.74759584D+00
           C( 61) =-0.81706604D-02
          EX( 62) = 0.29338233D+00
           C( 62) =-0.19141341D-02
          EX( 63) = 0.14607499D+04
           C( 63) = 0.13019434D-01
          EX( 64) = 0.31129975D+03
           C( 64) = 0.88270940D-01
          EX( 65) = 0.94565939D+02
           C( 65) = 0.24512854D+00
          EX( 66) = 0.32916839D+02
           C( 66) = 0.21382515D+00
          EX( 67) = 0.15025667D+02
           C( 67) =-0.42667001D+00
          EX( 68) = 0.61235508D+01
           C( 68) =-0.61895070D+00
          EX( 69) = 0.26344722D+01
           C( 69) =-0.14541260D+00
          EX( 70) = 0.17765928D+01
           C( 70) =-0.13611364D-02
          EX( 71) = 0.74759584D+00
           C( 71) =-0.14698249D-02
          EX( 72) = 0.29338233D+00
           C( 72) =-0.34433471D-03
          EX( 73) = 0.20602459D+03
           C( 73) = 0.22664206D-01
          EX( 74) = 0.57219232D+02
           C( 74) = 0.14561335D+00
          EX( 75) = 0.20346951D+02
           C( 75) = 0.39636631D+00
          EX( 76) = 0.78028039D+01
           C( 76) = 0.49185659D+00
          EX( 77) = 0.29511463D+01
           C( 77) = 0.19141098D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : RU/QR             CONFIGURATION : S1D07        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  8.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -16.613244 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2347 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.3931 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  8.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.24070300D+02
           C( 1)= 0.90455295D-01
          EX( 2)= 0.56355400D+01
           C( 2)=-0.25545591D+00
          EX( 3)= 0.11722200D+01
           C( 3)= 0.33138646D+00
          EX( 4)= 0.61113100D+00
           C( 4)= 0.23775609D+00
          EX( 5)= 0.89460000D-01
           C( 5)=-0.65213789D+00
          EX( 6)= 0.33766000D-01
           C( 6)=-0.48733096D+00
          EX( 7)= 0.55143400D+02
           C( 7)= 0.71818339D-01
          EX( 8)= 0.13654600D+02
           C( 8)= 0.15913633D+00
          EX( 9)= 0.14259500D+01
           C( 9)=-0.47035178D+00
          EX(10)= 0.47724700D+00
           C(10)=-0.50790679D+00
          EX(11)= 0.14536700D+00
           C(11)=-0.23359855D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  8.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.23227776D+01
          ALPN0( 1)= 0.15871383D+03
            AN0( 2)= 0.13299719D+01
          ALPN0( 2)= 0.73276213D+01
            AN0( 3)= 0.45510665D+00
          ALPN0( 3)= 0.14951262D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.10316925D+02
          ALPN1( 1)= 0.16823666D+04
            AN1( 2)= 0.23366592D+02
          ALPN1( 2)= 0.69525210D+02
            AN1( 3)= 0.28024850D+00
          ALPN1( 3)= 0.85343007D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.98193000D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.14468760D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.26975640D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.41290800D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.12938280D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.21793320D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.25719600D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.13441080D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.47987547D+05
           C(  1) = 0.17955344D-01
          EX(  2) = 0.52275561D+04
           C(  2) = 0.12440916D+00
          EX(  3) = 0.10519317D+04
           C(  3) = 0.44077674D+00
          EX(  4) = 0.27724311D+03
           C(  4) = 0.54144849D+00
          EX(  5) = 0.45496365D+03
           C(  5) =-0.46546845D-02
          EX(  6) = 0.49723078D+02
           C(  6) = 0.30657064D-01
          EX(  7) = 0.21081686D+02
           C(  7) = 0.21328877D-01
          EX(  8) = 0.39477434D+02
           C(  8) = 0.70191247D-02
          EX(  9) = 0.65973891D+01
           C(  9) =-0.23101640D-01
          EX( 10) = 0.29210317D+01
           C( 10) =-0.81113039D-02
          EX( 11) = 0.54615536D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.11190753D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.45716174D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.47987547D+05
           C( 14) = 0.65541518D-02
          EX( 15) = 0.52275561D+04
           C( 15) = 0.45412470D-01
          EX( 16) = 0.10519317D+04
           C( 16) = 0.16089459D+00
          EX( 17) = 0.27724311D+03
           C( 17) = 0.19764230D+00
          EX( 18) = 0.45496365D+03
           C( 18) = 0.99962240D-01
          EX( 19) = 0.49723078D+02
           C( 19) =-0.65837947D+00
          EX( 20) = 0.21081686D+02
           C( 20) =-0.45805087D+00
          EX( 21) = 0.39477434D+02
           C( 21) = 0.45162576D-02
          EX( 22) = 0.65973891D+01
           C( 22) =-0.14864098D-01
          EX( 23) = 0.29210317D+01
           C( 23) =-0.52189895D-02
          EX( 24) = 0.54615536D+01
           C( 24) =-0.11700028D-02
          EX( 25) = 0.11190753D+01
           C( 25) = 0.31961554D-02
          EX( 26) = 0.45716174D+00
           C( 26) = 0.12982498D-02
          EX( 27) = 0.47987547D+05
           C( 27) = 0.28374108D-02
          EX( 28) = 0.52275561D+04
           C( 28) = 0.19659879D-01
          EX( 29) = 0.10519317D+04
           C( 29) = 0.69654173D-01
          EX( 30) = 0.27724311D+03
           C( 30) = 0.85562922D-01
          EX( 31) = 0.45496365D+03
           C( 31) = 0.50846821D-01
          EX( 32) = 0.49723078D+02
           C( 32) =-0.33489149D+00
          EX( 33) = 0.21081686D+02
           C( 33) =-0.23299228D+00
          EX( 34) = 0.39477434D+02
           C( 34) =-0.28541992D+00
          EX( 35) = 0.65973891D+01
           C( 35) = 0.93938613D+00
          EX( 36) = 0.29210317D+01
           C( 36) = 0.32983140D+00
          EX( 37) = 0.54615536D+01
           C( 37) =-0.11959085D-02
          EX( 38) = 0.11190753D+01
           C( 38) = 0.32669233D-02
          EX( 39) = 0.45716174D+00
           C( 39) = 0.13269950D-02
          EX( 40) = 0.47987547D+05
           C( 40) = 0.11481402D-02
          EX( 41) = 0.52275561D+04
           C( 41) = 0.79552451D-02
          EX( 42) = 0.10519317D+04
           C( 42) = 0.28185119D-01
          EX( 43) = 0.27724311D+03
           C( 43) = 0.34622494D-01
          EX( 44) = 0.45496365D+03
           C( 44) = 0.21155833D-01
          EX( 45) = 0.49723078D+02
           C( 45) =-0.13933828D+00
          EX( 46) = 0.21081686D+02
           C( 46) =-0.96941085D-01
          EX( 47) = 0.39477434D+02
           C( 47) =-0.15142285D+00
          EX( 48) = 0.65973891D+01
           C( 48) = 0.49836927D+00
          EX( 49) = 0.29210317D+01
           C( 49) = 0.17498431D+00
          EX( 50) = 0.54615536D+01
           C( 50) = 0.34897705D+00
          EX( 51) = 0.11190753D+01
           C( 51) =-0.95331812D+00
          EX( 52) = 0.45716174D+00
           C( 52) =-0.38722929D+00
          EX( 53) = 0.14607499D+04
           C( 53) = 0.26652162D-01
          EX( 54) = 0.31129975D+03
           C( 54) = 0.18069999D+00
          EX( 55) = 0.94565939D+02
           C( 55) = 0.50180415D+00
          EX( 56) = 0.32916839D+02
           C( 56) = 0.43772279D+00
          EX( 57) = 0.15025667D+02
           C( 57) = 0.17868669D-01
          EX( 58) = 0.61235508D+01
           C( 58) = 0.25921262D-01
          EX( 59) = 0.26344722D+01
           C( 59) = 0.60897873D-02
          EX( 60) = 0.17765928D+01
           C( 60) =-0.75664683D-02
          EX( 61) = 0.74759584D+00
           C( 61) =-0.81706604D-02
          EX( 62) = 0.29338233D+00
           C( 62) =-0.19141341D-02
          EX( 63) = 0.14607499D+04
           C( 63) = 0.13019434D-01
          EX( 64) = 0.31129975D+03
           C( 64) = 0.88270940D-01
          EX( 65) = 0.94565939D+02
           C( 65) = 0.24512854D+00
          EX( 66) = 0.32916839D+02
           C( 66) = 0.21382515D+00
          EX( 67) = 0.15025667D+02
           C( 67) =-0.42667001D+00
          EX( 68) = 0.61235508D+01
           C( 68) =-0.61895070D+00
          EX( 69) = 0.26344722D+01
           C( 69) =-0.14541260D+00
          EX( 70) = 0.17765928D+01
           C( 70) =-0.13611364D-02
          EX( 71) = 0.74759584D+00
           C( 71) =-0.14698249D-02
          EX( 72) = 0.29338233D+00
           C( 72) =-0.34433471D-03
          EX( 73) = 0.14607499D+04
           C( 73) = 0.50234565D-02
          EX( 74) = 0.31129975D+03
           C( 74) = 0.34058719D-01
          EX( 75) = 0.94565939D+02
           C( 75) = 0.94581115D-01
          EX( 76) = 0.32916839D+02
           C( 76) = 0.82502925D-01
          EX( 77) = 0.15025667D+02
           C( 77) =-0.22706363D+00
          EX( 78) = 0.61235508D+01
           C( 78) =-0.32939082D+00
          EX( 79) = 0.26344722D+01
           C( 79) =-0.77385123D-01
          EX( 80) = 0.17765928D+01
           C( 80) = 0.52983921D+00
          EX( 81) = 0.74759584D+00
           C( 81) = 0.57214753D+00
          EX( 82) = 0.29338233D+00
           C( 82) = 0.13403655D+00
          EX( 83) = 0.20602459D+03
           C( 83) = 0.22664206D-01
          EX( 84) = 0.57219232D+02
           C( 84) = 0.14561335D+00
          EX( 85) = 0.20346951D+02
           C( 85) = 0.39636631D+00
          EX( 86) = 0.78028039D+01
           C( 86) = 0.49185659D+00
          EX( 87) = 0.29511463D+01
           C( 87) = 0.19141098D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.45) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : RH/QR             CONFIGURATION : S1P6D08      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 15.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -81.847009 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2377 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -2.3416 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.4279 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 15.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.46363200D+04
           C( 1)= 0.31339886D-02
          EX( 2)= 0.56228900D+03
           C( 2)= 0.19011729D-01
          EX( 3)= 0.40794200D+02
           C( 3)=-0.93218449D-01
          EX( 4)= 0.60225500D+01
           C( 4)= 0.27054586D+00
          EX( 5)= 0.12935500D+01
           C( 5)=-0.30225375D+00
          EX( 6)= 0.66420800D+00
           C( 6)=-0.26362462D+00
          EX( 7)= 0.91842000D-01
           C( 7)= 0.66031236D+00
          EX( 8)= 0.34218000D-01
           C( 8)= 0.47565092D+00
          EX( 9)= 0.44524000D+03
           C( 9)= 0.34204553D-01
          EX(10)= 0.93647400D+02
           C(10)= 0.14495606D+00
          EX(11)= 0.92682600D+01
           C(11)=-0.44580889D+00
          EX(12)= 0.13148700D+01
           C(12)= 0.78369266D+00
          EX(13)= 0.46807100D+00
           C(13)= 0.32045904D+00
          EX(14)= 0.59236500D+02
           C(14)= 0.61739121D-01
          EX(15)= 0.14748700D+02
           C(15)= 0.17569993D+00
          EX(16)= 0.15734800D+01
           C(16)=-0.48526663D+00
          EX(17)= 0.53022300D+00
           C(17)=-0.49149116D+00
          EX(18)= 0.16194000D+00
           C(18)=-0.23713247D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 15.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.84230354D+00
          ALPN0( 1)= 0.17645121D+03
            AN0( 2)= 0.51687757D+00
          ALPN0( 2)= 0.12133516D+02
            AN0( 3)= 0.13552885D+00
          ALPN0( 3)= 0.23567394D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.90252696D+02
          ALPN1( 1)= 0.26699288D+04
            AN1( 2)= 0.68159958D+01
          ALPN1( 2)= 0.52800737D+02
            AN1( 3)= 0.14707330D+00
          ALPN1( 3)= 0.19297883D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.17181430D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.25509600D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.48147000D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.74300400D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.22829200D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.39071200D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.24537200D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.51498556D+05
           C(  1) = 0.17909352D-01
          EX(  2) = 0.55557716D+04
           C(  2) = 0.12378192D+00
          EX(  3) = 0.11116257D+04
           C(  3) = 0.43975752D+00
          EX(  4) = 0.29193989D+03
           C(  4) = 0.54320148D+00
          EX(  5) = 0.48004936D+03
           C(  5) =-0.46759119D-02
          EX(  6) = 0.52421874D+02
           C(  6) = 0.30937622D-01
          EX(  7) = 0.22256770D+02
           C(  7) = 0.21646469D-01
          EX(  8) = 0.41693108D+02
           C(  8) = 0.70757114D-02
          EX(  9) = 0.69893041D+01
           C(  9) =-0.23326946D-01
          EX( 10) = 0.30960494D+01
           C( 10) =-0.79757280D-02
          EX( 11) = 0.58731050D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.12153193D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.49570274D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.51498556D+05
           C( 14) = 0.65605272D-02
          EX( 15) = 0.55557716D+04
           C( 15) = 0.45343607D-01
          EX( 16) = 0.11116257D+04
           C( 16) = 0.16109132D+00
          EX( 17) = 0.29193989D+03
           C( 17) = 0.19898476D+00
          EX( 18) = 0.48004936D+03
           C( 18) = 0.99276882D-01
          EX( 19) = 0.52421874D+02
           C( 19) =-0.65685383D+00
          EX( 20) = 0.22256770D+02
           C( 20) =-0.45958820D+00
          EX( 21) = 0.41693108D+02
           C( 21) = 0.45659917D-02
          EX( 22) = 0.69893041D+01
           C( 22) =-0.15052994D-01
          EX( 23) = 0.30960494D+01
           C( 23) =-0.51467769D-02
          EX( 24) = 0.58731050D+01
           C( 24) =-0.11670216D-02
          EX( 25) = 0.12153193D+01
           C( 25) = 0.31510057D-02
          EX( 26) = 0.49570274D+00
           C( 26) = 0.12804011D-02
          EX( 27) = 0.51498556D+05
           C( 27) = 0.28570011D-02
          EX( 28) = 0.55557716D+04
           C( 28) = 0.19746391D-01
          EX( 29) = 0.11116257D+04
           C( 29) = 0.70152605D-01
          EX( 30) = 0.29193989D+03
           C( 30) = 0.86654570D-01
          EX( 31) = 0.48004936D+03
           C( 31) = 0.50824632D-01
          EX( 32) = 0.52421874D+02
           C( 32) =-0.33627521D+00
          EX( 33) = 0.22256770D+02
           C( 33) =-0.23528540D+00
          EX( 34) = 0.41693108D+02
           C( 34) =-0.28747224D+00
          EX( 35) = 0.69893041D+01
           C( 35) = 0.94772792D+00
          EX( 36) = 0.30960494D+01
           C( 36) = 0.32403814D+00
          EX( 37) = 0.58731050D+01
           C( 37) =-0.11852331D-02
          EX( 38) = 0.12153193D+01
           C( 38) = 0.32001773D-02
          EX( 39) = 0.49570274D+00
           C( 39) = 0.13003818D-02
          EX( 40) = 0.51498556D+05
           C( 40) = 0.11704068D-02
          EX( 41) = 0.55557716D+04
           C( 41) = 0.80893601D-02
          EX( 42) = 0.11116257D+04
           C( 42) = 0.28738907D-01
          EX( 43) = 0.29193989D+03
           C( 43) = 0.35499147D-01
          EX( 44) = 0.48004936D+03
           C( 44) = 0.21464808D-01
          EX( 45) = 0.52421874D+02
           C( 45) =-0.14201939D+00
          EX( 46) = 0.22256770D+02
           C( 46) =-0.99368275D-01
          EX( 47) = 0.41693108D+02
           C( 47) =-0.15484130D+00
          EX( 48) = 0.69893041D+01
           C( 48) = 0.51047513D+00
          EX( 49) = 0.30960494D+01
           C( 49) = 0.17453681D+00
          EX( 50) = 0.58731050D+01
           C( 50) = 0.35515110D+00
          EX( 51) = 0.12153193D+01
           C( 51) =-0.95892238D+00
          EX( 52) = 0.49570274D+00
           C( 52) =-0.38965505D+00
          EX( 53) = 0.15453173D+04
           C( 53) = 0.26495588D-01
          EX( 54) = 0.32881157D+03
           C( 54) = 0.17986634D+00
          EX( 55) = 0.99842514D+02
           C( 55) = 0.50107191D+00
          EX( 56) = 0.34766105D+02
           C( 56) = 0.43887207D+00
          EX( 57) = 0.15890080D+02
           C( 57) = 0.18149424D-01
          EX( 58) = 0.64941007D+01
           C( 58) = 0.26162867D-01
          EX( 59) = 0.27946568D+01
           C( 59) = 0.59634409D-02
          EX( 60) = 0.19371510D+01
           C( 60) =-0.74381346D-02
          EX( 61) = 0.81679062D+00
           C( 61) =-0.80067898D-02
          EX( 62) = 0.32082251D+00
           C( 62) =-0.18783437D-02
          EX( 63) = 0.15453173D+04
           C( 63) = 0.13044291D-01
          EX( 64) = 0.32881157D+03
           C( 64) = 0.88551681D-01
          EX( 65) = 0.99842514D+02
           C( 65) = 0.24668739D+00
          EX( 66) = 0.34766105D+02
           C( 66) = 0.21606521D+00
          EX( 67) = 0.15890080D+02
           C( 67) =-0.43013217D+00
          EX( 68) = 0.64941007D+01
           C( 68) =-0.62004672D+00
          EX( 69) = 0.27946568D+01
           C( 69) =-0.14133054D+00
          EX( 70) = 0.19371510D+01
           C( 70) =-0.13630952D-02
          EX( 71) = 0.81679062D+00
           C( 71) =-0.14673056D-02
          EX( 72) = 0.32082251D+00
           C( 72) =-0.34422090D-03
          EX( 73) = 0.22071179D+03
           C( 73) = 0.22231290D-01
          EX( 74) = 0.61370780D+02
           C( 74) = 0.14390994D+00
          EX( 75) = 0.21872080D+02
           C( 75) = 0.39515301D+00
          EX( 76) = 0.84234126D+01
           C( 76) = 0.49317174D+00
          EX( 77) = 0.32040839D+01
           C( 77) = 0.19079188D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : RH/QR             CONFIGURATION : S1D08        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE :  9.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -22.763633 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2361 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.4286 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE -  9.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.25314070D+02
           C( 1)= 0.10296093D+00
          EX( 2)= 0.60225500D+01
           C( 2)=-0.27855725D+00
          EX( 3)= 0.12935500D+01
           C( 3)= 0.36434853D+00
          EX( 4)= 0.66420800D+00
           C( 4)= 0.21565745D+00
          EX( 5)= 0.91842000D-01
           C( 5)=-0.64357426D+00
          EX( 6)= 0.34218000D-01
           C( 6)=-0.48448031D+00
          EX( 7)= 0.59236500D+02
           C( 7)= 0.77942457D-01
          EX( 8)= 0.14748700D+02
           C( 8)= 0.18416919D+00
          EX( 9)= 0.15734800D+01
           C( 9)=-0.48761717D+00
          EX(10)= 0.53022300D+00
           C(10)=-0.49439236D+00
          EX(11)= 0.16194000D+00
           C(11)=-0.22360970D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE -  9.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.23366848D+01
          ALPN0( 1)= 0.19636502D+03
            AN0( 2)= 0.11409949D+01
          ALPN0( 2)= 0.70024404D+01
            AN0( 3)= 0.40316737D+00
          ALPN0( 3)= 0.15823814D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.77494450D+01
          ALPN1( 1)= 0.22480697D+04
            AN1( 2)= 0.18832608D+02
          ALPN1( 2)= 0.65192211D+02
            AN1( 3)= 0.25252033D+00
          ALPN1( 3)= 0.93235050D+00
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.98793222D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.14668020D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.27684525D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.42722730D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.13126790D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.22465940D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.26923800D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.14108890D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.51498556D+05
           C(  1) = 0.17909352D-01
          EX(  2) = 0.55557716D+04
           C(  2) = 0.12378192D+00
          EX(  3) = 0.11116257D+04
           C(  3) = 0.43975752D+00
          EX(  4) = 0.29193989D+03
           C(  4) = 0.54320148D+00
          EX(  5) = 0.48004936D+03
           C(  5) =-0.46759119D-02
          EX(  6) = 0.52421874D+02
           C(  6) = 0.30937622D-01
          EX(  7) = 0.22256770D+02
           C(  7) = 0.21646469D-01
          EX(  8) = 0.41693108D+02
           C(  8) = 0.70757114D-02
          EX(  9) = 0.69893041D+01
           C(  9) =-0.23326946D-01
          EX( 10) = 0.30960494D+01
           C( 10) =-0.79757280D-02
          EX( 11) = 0.58731050D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.12153193D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.49570274D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.51498556D+05
           C( 14) = 0.65605272D-02
          EX( 15) = 0.55557716D+04
           C( 15) = 0.45343607D-01
          EX( 16) = 0.11116257D+04
           C( 16) = 0.16109132D+00
          EX( 17) = 0.29193989D+03
           C( 17) = 0.19898476D+00
          EX( 18) = 0.48004936D+03
           C( 18) = 0.99276882D-01
          EX( 19) = 0.52421874D+02
           C( 19) =-0.65685383D+00
          EX( 20) = 0.22256770D+02
           C( 20) =-0.45958820D+00
          EX( 21) = 0.41693108D+02
           C( 21) = 0.45659917D-02
          EX( 22) = 0.69893041D+01
           C( 22) =-0.15052994D-01
          EX( 23) = 0.30960494D+01
           C( 23) =-0.51467769D-02
          EX( 24) = 0.58731050D+01
           C( 24) =-0.11670216D-02
          EX( 25) = 0.12153193D+01
           C( 25) = 0.31510057D-02
          EX( 26) = 0.49570274D+00
           C( 26) = 0.12804011D-02
          EX( 27) = 0.51498556D+05
           C( 27) = 0.28570011D-02
          EX( 28) = 0.55557716D+04
           C( 28) = 0.19746391D-01
          EX( 29) = 0.11116257D+04
           C( 29) = 0.70152605D-01
          EX( 30) = 0.29193989D+03
           C( 30) = 0.86654570D-01
          EX( 31) = 0.48004936D+03
           C( 31) = 0.50824632D-01
          EX( 32) = 0.52421874D+02
           C( 32) =-0.33627521D+00
          EX( 33) = 0.22256770D+02
           C( 33) =-0.23528540D+00
          EX( 34) = 0.41693108D+02
           C( 34) =-0.28747224D+00
          EX( 35) = 0.69893041D+01
           C( 35) = 0.94772792D+00
          EX( 36) = 0.30960494D+01
           C( 36) = 0.32403814D+00
          EX( 37) = 0.58731050D+01
           C( 37) =-0.11852331D-02
          EX( 38) = 0.12153193D+01
           C( 38) = 0.32001773D-02
          EX( 39) = 0.49570274D+00
           C( 39) = 0.13003818D-02
          EX( 40) = 0.51498556D+05
           C( 40) = 0.11704068D-02
          EX( 41) = 0.55557716D+04
           C( 41) = 0.80893601D-02
          EX( 42) = 0.11116257D+04
           C( 42) = 0.28738907D-01
          EX( 43) = 0.29193989D+03
           C( 43) = 0.35499147D-01
          EX( 44) = 0.48004936D+03
           C( 44) = 0.21464808D-01
          EX( 45) = 0.52421874D+02
           C( 45) =-0.14201939D+00
          EX( 46) = 0.22256770D+02
           C( 46) =-0.99368275D-01
          EX( 47) = 0.41693108D+02
           C( 47) =-0.15484130D+00
          EX( 48) = 0.69893041D+01
           C( 48) = 0.51047513D+00
          EX( 49) = 0.30960494D+01
           C( 49) = 0.17453681D+00
          EX( 50) = 0.58731050D+01
           C( 50) = 0.35515110D+00
          EX( 51) = 0.12153193D+01
           C( 51) =-0.95892238D+00
          EX( 52) = 0.49570274D+00
           C( 52) =-0.38965505D+00
          EX( 53) = 0.15453173D+04
           C( 53) = 0.26495588D-01
          EX( 54) = 0.32881157D+03
           C( 54) = 0.17986634D+00
          EX( 55) = 0.99842514D+02
           C( 55) = 0.50107191D+00
          EX( 56) = 0.34766105D+02
           C( 56) = 0.43887207D+00
          EX( 57) = 0.15890080D+02
           C( 57) = 0.18149424D-01
          EX( 58) = 0.64941007D+01
           C( 58) = 0.26162867D-01
          EX( 59) = 0.27946568D+01
           C( 59) = 0.59634409D-02
          EX( 60) = 0.19371510D+01
           C( 60) =-0.74381346D-02
          EX( 61) = 0.81679062D+00
           C( 61) =-0.80067898D-02
          EX( 62) = 0.32082251D+00
           C( 62) =-0.18783437D-02
          EX( 63) = 0.15453173D+04
           C( 63) = 0.13044291D-01
          EX( 64) = 0.32881157D+03
           C( 64) = 0.88551681D-01
          EX( 65) = 0.99842514D+02
           C( 65) = 0.24668739D+00
          EX( 66) = 0.34766105D+02
           C( 66) = 0.21606521D+00
          EX( 67) = 0.15890080D+02
           C( 67) =-0.43013217D+00
          EX( 68) = 0.64941007D+01
           C( 68) =-0.62004672D+00
          EX( 69) = 0.27946568D+01
           C( 69) =-0.14133054D+00
          EX( 70) = 0.19371510D+01
           C( 70) =-0.13630952D-02
          EX( 71) = 0.81679062D+00
           C( 71) =-0.14673056D-02
          EX( 72) = 0.32082251D+00
           C( 72) =-0.34422090D-03
          EX( 73) = 0.15453173D+04
           C( 73) = 0.51154421D-02
          EX( 74) = 0.32881157D+03
           C( 74) = 0.34726381D-01
          EX( 75) = 0.99842514D+02
           C( 75) = 0.96740799D-01
          EX( 76) = 0.34766105D+02
           C( 76) = 0.84732019D-01
          EX( 77) = 0.15890080D+02
           C( 77) =-0.23392568D+00
          EX( 78) = 0.64941007D+01
           C( 78) =-0.33720996D+00
          EX( 79) = 0.27946568D+01
           C( 79) =-0.76862055D-01
          EX( 80) = 0.19371510D+01
           C( 80) = 0.53324504D+00
          EX( 81) = 0.81679062D+00
           C( 81) = 0.57401233D+00
          EX( 82) = 0.32082251D+00
           C( 82) = 0.13465977D+00
          EX( 83) = 0.22071179D+03
           C( 83) = 0.22231290D-01
          EX( 84) = 0.61370780D+02
           C( 84) = 0.14390994D+00
          EX( 85) = 0.21872080D+02
           C( 85) = 0.39515301D+00
          EX( 86) = 0.84234126D+01
           C( 86) = 0.49317174D+00
          EX( 87) = 0.32040839D+01
           C( 87) = 0.19079188D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.46) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : PD/QR             CONFIGURATION : S1P6D09      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 16.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -96.083054 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2336 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -2.5428 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.4653 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 16.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.49190900D+04
           C( 1)= 0.24591802D-02
          EX( 2)= 0.59302300D+03
           C( 2)= 0.16215769D-01
          EX( 3)= 0.42917300D+02
           C( 3)=-0.82849456D-01
          EX( 4)= 0.64239320D+01
           C( 4)= 0.24323441D+00
          EX( 5)= 0.14167900D+01
           C( 5)=-0.24586279D+00
          EX( 6)= 0.71537900D+00
           C( 6)=-0.28082441D+00
          EX( 7)= 0.93967000D-01
           C( 7)= 0.62560675D+00
          EX( 8)= 0.34620000D-01
           C( 8)= 0.50679313D+00
          EX( 9)= 0.46787800D+03
           C( 9)= 0.35508326D-01
          EX(10)= 0.98447300D+02
           C(10)= 0.15155395D+00
          EX(11)= 0.98654400D+01
           C(11)=-0.45359644D+00
          EX(12)= 0.14248100D+01
           C(12)= 0.77757089D+00
          EX(13)= 0.50813000D+00
           C(13)= 0.32795348D+00
          EX(14)= 0.63445560D+02
           C(14)= 0.64417893D-01
          EX(15)= 0.15875500D+02
           C(15)= 0.18325802D+00
          EX(16)= 0.17258700D+01
           C(16)=-0.48643264D+00
          EX(17)= 0.58511000D+00
           C(17)=-0.49194678D+00
          EX(18)= 0.17933300D+00
           C(18)=-0.23147620D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 16.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.78743784D+00
          ALPN0( 1)= 0.17577454D+03
            AN0( 2)= 0.48566388D+00
          ALPN0( 2)= 0.12228894D+02
            AN0( 3)= 0.12170269D+00
          ALPN0( 3)= 0.23626047D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.78657401D+02
          ALPN1( 1)= 0.26647829D+04
            AN1( 2)= 0.64850338D+01
          ALPN1( 2)= 0.54922960D+02
            AN1( 3)= 0.11266202D+00
          ALPN1( 3)= 0.20665724D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.18019120D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.26947560D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.51431200D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.79878800D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.24131260D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.41900600D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.26741800D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.55231832D+05
           C(  1) = 0.17867271D-01
          EX(  2) = 0.59003532D+04
           C(  2) = 0.12316134D+00
          EX(  3) = 0.11737326D+04
           C(  3) = 0.43872920D+00
          EX(  4) = 0.30713392D+03
           C(  4) = 0.54495978D+00
          EX(  5) = 0.50594959D+03
           C(  5) =-0.46975143D-02
          EX(  6) = 0.55276947D+02
           C(  6) = 0.31132780D-01
          EX(  7) = 0.23555554D+02
           C(  7) = 0.22043022D-01
          EX(  8) = 0.43992781D+02
           C(  8) = 0.71223074D-02
          EX(  9) = 0.73932697D+01
           C(  9) =-0.23523241D-01
          EX( 10) = 0.32765054D+01
           C( 10) =-0.78468810D-02
          EX( 11) = 0.63000104D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.13149142D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.53552483D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.55231832D+05
           C( 14) = 0.65682098D-02
          EX( 15) = 0.59003532D+04
           C( 15) = 0.45275492D-01
          EX( 16) = 0.11737326D+04
           C( 16) = 0.16128179D+00
          EX( 17) = 0.30713392D+03
           C( 17) = 0.20033335D+00
          EX( 18) = 0.50594959D+03
           C( 18) = 0.98587977D-01
          EX( 19) = 0.55276947D+02
           C( 19) =-0.65339190D+00
          EX( 20) = 0.23555554D+02
           C( 20) =-0.46262274D+00
          EX( 21) = 0.43992781D+02
           C( 21) = 0.48143887D-02
          EX( 22) = 0.73932697D+01
           C( 22) =-0.15900749D-01
          EX( 23) = 0.32765054D+01
           C( 23) =-0.53041709D-02
          EX( 24) = 0.63000104D+01
           C( 24) =-0.13408778D-02
          EX( 25) = 0.13149142D+01
           C( 25) = 0.35843045D-02
          EX( 26) = 0.53552483D+00
           C( 26) = 0.14595072D-02
          EX( 27) = 0.55231832D+05
           C( 27) = 0.28763924D-02
          EX( 28) = 0.59003532D+04
           C( 28) = 0.19827333D-01
          EX( 29) = 0.11737326D+04
           C( 29) = 0.70629552D-01
          EX( 30) = 0.30713392D+03
           C( 30) = 0.87731260D-01
          EX( 31) = 0.50594959D+03
           C( 31) = 0.50782899D-01
          EX( 32) = 0.55276947D+02
           C( 32) =-0.33656371D+00
          EX( 33) = 0.23555554D+02
           C( 33) =-0.23829807D+00
          EX( 34) = 0.43992781D+02
           C( 34) =-0.28920064D+00
          EX( 35) = 0.73932697D+01
           C( 35) = 0.95515901D+00
          EX( 36) = 0.32765054D+01
           C( 36) = 0.31862189D+00
          EX( 37) = 0.63000104D+01
           C( 37) =-0.11774536D-02
          EX( 38) = 0.13149142D+01
           C( 38) = 0.31474547D-02
          EX( 39) = 0.53552483D+00
           C( 39) = 0.12816246D-02
          EX( 40) = 0.55231832D+05
           C( 40) = 0.11913965D-02
          EX( 41) = 0.59003532D+04
           C( 41) = 0.82124451D-02
          EX( 42) = 0.11737326D+04
           C( 42) = 0.29254632D-01
          EX( 43) = 0.30713392D+03
           C( 43) = 0.36338129D-01
          EX( 44) = 0.50594959D+03
           C( 44) = 0.21731315D-01
          EX( 45) = 0.55276947D+02
           C( 45) =-0.14402431D+00
          EX( 46) = 0.23555554D+02
           C( 46) =-0.10197390D+00
          EX( 47) = 0.43992781D+02
           C( 47) =-0.15797057D+00
          EX( 48) = 0.73932697D+01
           C( 48) = 0.52173817D+00
          EX( 49) = 0.32765054D+01
           C( 49) = 0.17404139D+00
          EX( 50) = 0.63000104D+01
           C( 50) = 0.36046027D+00
          EX( 51) = 0.13149142D+01
           C( 51) =-0.96354740D+00
          EX( 52) = 0.53552483D+00
           C( 52) =-0.39235068D+00
          EX( 53) = 0.16440891D+04
           C( 53) = 0.26066523D-01
          EX( 54) = 0.34926820D+03
           C( 54) = 0.17746569D+00
          EX( 55) = 0.10602443D+03
           C( 55) = 0.49806872D+00
          EX( 56) = 0.36951769D+02
           C( 56) = 0.44271982D+00
          EX( 57) = 0.16810755D+02
           C( 57) = 0.19256794D-01
          EX( 58) = 0.68884785D+01
           C( 58) = 0.27764953D-01
          EX( 59) = 0.29639378D+01
           C( 59) = 0.61757403D-02
          EX( 60) = 0.21057318D+01
           C( 60) =-0.84766803D-02
          EX( 61) = 0.88948550D+00
           C( 61) =-0.91263900D-02
          EX( 62) = 0.34969327D+00
           C( 62) =-0.21526958D-02
          EX( 63) = 0.16440891D+04
           C( 63) = 0.12928730D-01
          EX( 64) = 0.34926820D+03
           C( 64) = 0.88021171D-01
          EX( 65) = 0.10602443D+03
           C( 65) = 0.24703701D+00
          EX( 66) = 0.36951769D+02
           C( 66) = 0.21958452D+00
          EX( 67) = 0.16810755D+02
           C( 67) =-0.43124201D+00
          EX( 68) = 0.68884785D+01
           C( 68) =-0.62177607D+00
          EX( 69) = 0.29639378D+01
           C( 69) =-0.13830125D+00
          EX( 70) = 0.21057318D+01
           C( 70) =-0.13770272D-02
          EX( 71) = 0.88948550D+00
           C( 71) =-0.14825718D-02
          EX( 72) = 0.34969327D+00
           C( 72) =-0.34970302D-03
          EX( 73) = 0.23584260D+03
           C( 73) = 0.21842085D-01
          EX( 74) = 0.65645203D+02
           C( 74) = 0.14237416D+00
          EX( 75) = 0.23442824D+02
           C( 75) = 0.39407446D+00
          EX( 76) = 0.90634495D+01
           C( 76) = 0.49437328D+00
          EX( 77) = 0.34651215D+01
           C( 77) = 0.19018320D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : PD/QR             CONFIGURATION : S1D09        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE : 10.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -29.691493 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2345 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.4646 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 10.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.26623300D+02
           C( 1)=-0.87891674D-01
          EX( 2)= 0.64239320D+01
           C( 2)= 0.23766007D+00
          EX( 3)= 0.14167900D+01
           C( 3)=-0.31868400D+00
          EX( 4)= 0.71537900D+00
           C( 4)=-0.22790309D+00
          EX( 5)= 0.93967000D-01
           C( 5)= 0.62535377D+00
          EX( 6)= 0.34620000D-01
           C( 6)= 0.49891469D+00
          EX( 7)= 0.63445560D+02
           C( 7)=-0.69025801D-01
          EX( 8)= 0.15875500D+02
           C( 8)=-0.18083483D+00
          EX( 9)= 0.17258700D+01
           C( 9)= 0.48957967D+00
          EX(10)= 0.58511000D+00
           C(10)= 0.49699329D+00
          EX(11)= 0.17933300D+00
           C(11)= 0.21849302D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 10.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.15467355D+01
          ALPN0( 1)= 0.26969991D+03
            AN0( 2)= 0.11385922D+01
          ALPN0( 2)= 0.75209562D+01
            AN0( 3)= 0.31447931D+00
          ALPN0( 3)= 0.14988211D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.61561000D+01
          ALPN1( 1)= 0.22847000D+04
            AN1( 2)= 0.16838200D+02
          ALPN1( 2)= 0.70775373D+02
            AN1( 3)= 0.23150516D+00
          ALPN1( 3)= 0.10301585D+01
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.94600380D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.14147469D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.27001380D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.41936370D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.12668911D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.21997815D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.26699820D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.14039445D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.55231832D+05
           C(  1) = 0.17867271D-01
          EX(  2) = 0.59003532D+04
           C(  2) = 0.12316134D+00
          EX(  3) = 0.11737326D+04
           C(  3) = 0.43872920D+00
          EX(  4) = 0.30713392D+03
           C(  4) = 0.54495978D+00
          EX(  5) = 0.50594959D+03
           C(  5) =-0.46975143D-02
          EX(  6) = 0.55276947D+02
           C(  6) = 0.31132780D-01
          EX(  7) = 0.23555554D+02
           C(  7) = 0.22043022D-01
          EX(  8) = 0.43992781D+02
           C(  8) = 0.71223074D-02
          EX(  9) = 0.73932697D+01
           C(  9) =-0.23523241D-01
          EX( 10) = 0.32765054D+01
           C( 10) =-0.78468810D-02
          EX( 11) = 0.63000104D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.13149142D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.53552483D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.55231832D+05
           C( 14) = 0.65682098D-02
          EX( 15) = 0.59003532D+04
           C( 15) = 0.45275492D-01
          EX( 16) = 0.11737326D+04
           C( 16) = 0.16128179D+00
          EX( 17) = 0.30713392D+03
           C( 17) = 0.20033335D+00
          EX( 18) = 0.50594959D+03
           C( 18) = 0.98587977D-01
          EX( 19) = 0.55276947D+02
           C( 19) =-0.65339190D+00
          EX( 20) = 0.23555554D+02
           C( 20) =-0.46262274D+00
          EX( 21) = 0.43992781D+02
           C( 21) = 0.48143887D-02
          EX( 22) = 0.73932697D+01
           C( 22) =-0.15900749D-01
          EX( 23) = 0.32765054D+01
           C( 23) =-0.53041709D-02
          EX( 24) = 0.63000104D+01
           C( 24) =-0.13408778D-02
          EX( 25) = 0.13149142D+01
           C( 25) = 0.35843045D-02
          EX( 26) = 0.53552483D+00
           C( 26) = 0.14595072D-02
          EX( 27) = 0.55231832D+05
           C( 27) = 0.28763924D-02
          EX( 28) = 0.59003532D+04
           C( 28) = 0.19827333D-01
          EX( 29) = 0.11737326D+04
           C( 29) = 0.70629552D-01
          EX( 30) = 0.30713392D+03
           C( 30) = 0.87731260D-01
          EX( 31) = 0.50594959D+03
           C( 31) = 0.50782899D-01
          EX( 32) = 0.55276947D+02
           C( 32) =-0.33656371D+00
          EX( 33) = 0.23555554D+02
           C( 33) =-0.23829807D+00
          EX( 34) = 0.43992781D+02
           C( 34) =-0.28920064D+00
          EX( 35) = 0.73932697D+01
           C( 35) = 0.95515901D+00
          EX( 36) = 0.32765054D+01
           C( 36) = 0.31862189D+00
          EX( 37) = 0.63000104D+01
           C( 37) =-0.11774536D-02
          EX( 38) = 0.13149142D+01
           C( 38) = 0.31474547D-02
          EX( 39) = 0.53552483D+00
           C( 39) = 0.12816246D-02
          EX( 40) = 0.55231832D+05
           C( 40) = 0.11913965D-02
          EX( 41) = 0.59003532D+04
           C( 41) = 0.82124451D-02
          EX( 42) = 0.11737326D+04
           C( 42) = 0.29254632D-01
          EX( 43) = 0.30713392D+03
           C( 43) = 0.36338129D-01
          EX( 44) = 0.50594959D+03
           C( 44) = 0.21731315D-01
          EX( 45) = 0.55276947D+02
           C( 45) =-0.14402431D+00
          EX( 46) = 0.23555554D+02
           C( 46) =-0.10197390D+00
          EX( 47) = 0.43992781D+02
           C( 47) =-0.15797057D+00
          EX( 48) = 0.73932697D+01
           C( 48) = 0.52173817D+00
          EX( 49) = 0.32765054D+01
           C( 49) = 0.17404139D+00
          EX( 50) = 0.63000104D+01
           C( 50) = 0.36046027D+00
          EX( 51) = 0.13149142D+01
           C( 51) =-0.96354740D+00
          EX( 52) = 0.53552483D+00
           C( 52) =-0.39235068D+00
          EX( 53) = 0.16440891D+04
           C( 53) = 0.26066523D-01
          EX( 54) = 0.34926820D+03
           C( 54) = 0.17746569D+00
          EX( 55) = 0.10602443D+03
           C( 55) = 0.49806872D+00
          EX( 56) = 0.36951769D+02
           C( 56) = 0.44271982D+00
          EX( 57) = 0.16810755D+02
           C( 57) = 0.19256794D-01
          EX( 58) = 0.68884785D+01
           C( 58) = 0.27764953D-01
          EX( 59) = 0.29639378D+01
           C( 59) = 0.61757403D-02
          EX( 60) = 0.21057318D+01
           C( 60) =-0.84766803D-02
          EX( 61) = 0.88948550D+00
           C( 61) =-0.91263900D-02
          EX( 62) = 0.34969327D+00
           C( 62) =-0.21526958D-02
          EX( 63) = 0.16440891D+04
           C( 63) = 0.12928730D-01
          EX( 64) = 0.34926820D+03
           C( 64) = 0.88021171D-01
          EX( 65) = 0.10602443D+03
           C( 65) = 0.24703701D+00
          EX( 66) = 0.36951769D+02
           C( 66) = 0.21958452D+00
          EX( 67) = 0.16810755D+02
           C( 67) =-0.43124201D+00
          EX( 68) = 0.68884785D+01
           C( 68) =-0.62177607D+00
          EX( 69) = 0.29639378D+01
           C( 69) =-0.13830125D+00
          EX( 70) = 0.21057318D+01
           C( 70) =-0.13770272D-02
          EX( 71) = 0.88948550D+00
           C( 71) =-0.14825718D-02
          EX( 72) = 0.34969327D+00
           C( 72) =-0.34970302D-03
          EX( 73) = 0.16440891D+04
           C( 73) = 0.51438137D-02
          EX( 74) = 0.34926820D+03
           C( 74) = 0.35020031D-01
          EX( 75) = 0.10602443D+03
           C( 75) = 0.98285940D-01
          EX( 76) = 0.36951769D+02
           C( 76) = 0.87363715D-01
          EX( 77) = 0.16810755D+02
           C( 77) =-0.23921875D+00
          EX( 78) = 0.68884785D+01
           C( 78) =-0.34491187D+00
          EX( 79) = 0.29639378D+01
           C( 79) =-0.76718522D-01
          EX( 80) = 0.21057318D+01
           C( 80) = 0.53531721D+00
          EX( 81) = 0.88948550D+00
           C( 81) = 0.57634751D+00
          EX( 82) = 0.34969327D+00
           C( 82) = 0.13594651D+00
          EX( 83) = 0.23584260D+03
           C( 83) = 0.21842085D-01
          EX( 84) = 0.65645203D+02
           C( 84) = 0.14237416D+00
          EX( 85) = 0.23442824D+02
           C( 85) = 0.39407446D+00
          EX( 86) = 0.90634495D+01
           C( 86) = 0.49437328D+00
          EX( 87) = 0.34651215D+01
           C( 87) = 0.19018320D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.47) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : AG/QR             CONFIGURATION : S1P6D10      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 17.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =    -111.660283 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2323 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -2.7458 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.5113 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 17.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.52139400D+04
           C( 1)= 0.21281937D-02
          EX( 2)= 0.62484000D+03
           C( 2)= 0.14735936D-01
          EX( 3)= 0.45110800D+02
           C( 3)=-0.76927719D-01
          EX( 4)= 0.68398600D+01
           C( 4)= 0.22738121D+00
          EX( 5)= 0.15405400D+01
           C( 5)=-0.21727117D+00
          EX( 6)= 0.76345000D+00
           C( 6)=-0.28281725D+00
          EX( 7)= 0.95570000D-01
           C( 7)= 0.61259859D+00
          EX( 8)= 0.34880000D-01
           C( 8)= 0.51557693D+00
          EX( 9)= 0.49119800D+03
           C( 9)= 0.35462627D-01
          EX(10)= 0.10339200D+03
           C(10)= 0.15112416D+00
          EX(11)= 0.10481700D+02
           C(11)=-0.45605533D+00
          EX(12)= 0.15382900D+01
           C(12)= 0.77180644D+00
          EX(13)= 0.54938000D+00
           C(13)= 0.33621695D+00
          EX(14)= 0.67760700D+02
           C(14)= 0.60822123D-01
          EX(15)= 0.17030900D+02
           C(15)= 0.18300933D+00
          EX(16)= 0.18833800D+01
           C(16)=-0.48375466D+00
          EX(17)= 0.64288600D+00
           C(17)=-0.49779045D+00
          EX(18)= 0.19833500D+00
           C(18)=-0.22490099D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 17.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.74335324D+00
          ALPN0( 1)= 0.17134217D+03
            AN0( 2)= 0.45849893D+00
          ALPN0( 2)= 0.12127488D+02
            AN0( 3)= 0.97755685D-01
          ALPN0( 3)= 0.23558893D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.73056011D+02
          ALPN1( 1)= 0.25923745D+04
            AN1( 2)= 0.60686784D+01
          ALPN1( 2)= 0.59804064D+02
            AN1( 3)= 0.10391384D+00
          ALPN1( 3)= 0.20906737D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.18878660D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.28428260D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.54805600D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.85500800D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.25469400D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.44803600D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.29008000D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.59200735D+05
           C(  1) = 0.17829182D-01
          EX(  2) = 0.62620811D+04
           C(  2) = 0.12254779D+00
          EX(  3) = 0.12383370D+04
           C(  3) = 0.43769232D+00
          EX(  4) = 0.32283775D+03
           C(  4) = 0.54672239D+00
          EX(  5) = 0.53301225D+03
           C(  5) =-0.47170490D-02
          EX(  6) = 0.58168859D+02
           C(  6) = 0.31416096D-01
          EX(  7) = 0.24819367D+02
           C(  7) = 0.22385306D-01
          EX(  8) = 0.46362186D+02
           C(  8) = 0.71818624D-02
          EX(  9) = 0.78126958D+01
           C(  9) =-0.23753454D-01
          EX( 10) = 0.34615921D+01
           C( 10) =-0.77390686D-02
          EX( 11) = 0.67419866D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.14177324D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.57650115D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.59200735D+05
           C( 14) = 0.65768937D-02
          EX( 15) = 0.62620811D+04
           C( 15) = 0.45205870D-01
          EX( 16) = 0.12383370D+04
           C( 16) = 0.16145754D+00
          EX( 17) = 0.32283775D+03
           C( 17) = 0.20167694D+00
          EX( 18) = 0.53301225D+03
           C( 18) = 0.97845794D-01
          EX( 19) = 0.58168859D+02
           C( 19) =-0.65166438D+00
          EX( 20) = 0.24819367D+02
           C( 20) =-0.46433862D+00
          EX( 21) = 0.46362186D+02
           C( 21) = 0.48656653D-02
          EX( 22) = 0.78126958D+01
           C( 22) =-0.16092811D-01
          EX( 23) = 0.34615921D+01
           C( 23) =-0.52431688D-02
          EX( 24) = 0.67419866D+01
           C( 24) =-0.13354285D-02
          EX( 25) = 0.14177324D+01
           C( 25) = 0.35387769D-02
          EX( 26) = 0.57650115D+00
           C( 26) = 0.14464962D-02
          EX( 27) = 0.59200735D+05
           C( 27) = 0.28954611D-02
          EX( 28) = 0.62620811D+04
           C( 28) = 0.19901773D-01
          EX( 29) = 0.12383370D+04
           C( 29) = 0.71081278D-01
          EX( 30) = 0.32283775D+03
           C( 30) = 0.88787772D-01
          EX( 31) = 0.53301225D+03
           C( 31) = 0.50690975D-01
          EX( 32) = 0.58168859D+02
           C( 32) =-0.33760779D+00
          EX( 33) = 0.24819367D+02
           C( 33) =-0.24055993D+00
          EX( 34) = 0.46362186D+02
           C( 34) =-0.29101573D+00
          EX( 35) = 0.78126958D+01
           C( 35) = 0.96251197D+00
          EX( 36) = 0.34615921D+01
           C( 36) = 0.31359424D+00
          EX( 37) = 0.67419866D+01
           C( 37) =-0.11650710D-02
          EX( 38) = 0.14177324D+01
           C( 38) = 0.30873435D-02
          EX( 39) = 0.57650115D+00
           C( 39) = 0.12619701D-02
          EX( 40) = 0.59200735D+05
           C( 40) = 0.12110830D-02
          EX( 41) = 0.62620811D+04
           C( 41) = 0.83243032D-02
          EX( 42) = 0.12383370D+04
           C( 42) = 0.29731127D-01
          EX( 43) = 0.32283775D+03
           C( 43) = 0.37137212D-01
          EX( 44) = 0.53301225D+03
           C( 44) = 0.21943631D-01
          EX( 45) = 0.58168859D+02
           C( 45) =-0.14614713D+00
          EX( 46) = 0.24819367D+02
           C( 46) =-0.10413606D+00
          EX( 47) = 0.46362186D+02
           C( 47) =-0.16099570D+00
          EX( 48) = 0.78126958D+01
           C( 48) = 0.53248083D+00
          EX( 49) = 0.34615921D+01
           C( 49) = 0.17348659D+00
          EX( 50) = 0.67419866D+01
           C( 50) = 0.36498374D+00
          EX( 51) = 0.14177324D+01
           C( 51) =-0.96717722D+00
          EX( 52) = 0.57650115D+00
           C( 52) =-0.39533947D+00
          EX( 53) = 0.17353008D+04
           C( 53) = 0.25931488D-01
          EX( 54) = 0.36803116D+03
           C( 54) = 0.17672673D+00
          EX( 55) = 0.11165798D+03
           C( 55) = 0.49741927D+00
          EX( 56) = 0.38923277D+02
           C( 56) = 0.44375651D+00
          EX( 57) = 0.17731849D+02
           C( 57) = 0.19507696D-01
          EX( 58) = 0.72835929D+01
           C( 58) = 0.27960710D-01
          EX( 59) = 0.31324704D+01
           C( 59) = 0.60564628D-02
          EX( 60) = 0.22797460D+01
           C( 60) =-0.83206578D-02
          EX( 61) = 0.96424029D+00
           C( 61) =-0.89610437D-02
          EX( 62) = 0.37951417D+00
           C( 62) =-0.21282432D-02
          EX( 63) = 0.17353008D+04
           C( 63) = 0.12951132D-01
          EX( 64) = 0.36803116D+03
           C( 64) = 0.88263775D-01
          EX( 65) = 0.11165798D+03
           C( 65) = 0.24842933D+00
          EX( 66) = 0.38923277D+02
           C( 66) = 0.22162818D+00
          EX( 67) = 0.17731849D+02
           C( 67) =-0.43438535D+00
          EX( 68) = 0.72835929D+01
           C( 68) =-0.62261185D+00
          EX( 69) = 0.31324704D+01
           C( 69) =-0.13486159D+00
          EX( 70) = 0.22797460D+01
           C( 70) =-0.13852682D-02
          EX( 71) = 0.96424029D+00
           C( 71) =-0.14918831D-02
          EX( 72) = 0.37951417D+00
           C( 72) =-0.35432147D-03
          EX( 73) = 0.25140700D+03
           C( 73) = 0.21490091D-01
          EX( 74) = 0.70039800D+02
           C( 74) = 0.14099059D+00
          EX( 75) = 0.25058300D+02
           C( 75) = 0.39312166D+00
          EX( 76) = 0.97225900D+01
           C( 76) = 0.49547209D+00
          EX( 77) = 0.37341200D+01
           C( 77) = 0.18957080D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : AG/QR             CONFIGURATION : S1D10        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE : 11.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -37.586671 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2370 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.5116 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 11.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.27973300D+02
           C( 1)=-0.76325472D-01
          EX( 2)= 0.68399500D+01
           C( 2)= 0.22040524D+00
          EX( 3)= 0.15404500D+01
           C( 3)=-0.28427172D+00
          EX( 4)= 0.76342300D+00
           C( 4)=-0.22888721D+00
          EX( 5)= 0.95573000D-01
           C( 5)= 0.64149363D+00
          EX( 6)= 0.34876000D-01
           C( 6)= 0.48137633D+00
          EX( 7)= 0.67760700D+02
           C( 7)= 0.50184174D-01
          EX( 8)= 0.17030900D+02
           C( 8)= 0.13484473D+00
          EX( 9)= 0.18833800D+01
           C( 9)=-0.48976645D+00
          EX(10)= 0.64288600D+00
           C(10)=-0.50384230D+00
          EX(11)= 0.19833500D+00
           C(11)=-0.21628674D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 11.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.14938380D+01
          ALPN0( 1)= 0.27568530D+03
            AN0( 2)= 0.96843100D+00
          ALPN0( 2)= 0.80300560D+01
            AN0( 3)= 0.26754500D+00
          ALPN0( 3)= 0.14736580D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.53151000D+01
          ALPN1( 1)= 0.21680600D+04
            AN1( 2)= 0.15733360D+02
          ALPN1( 2)= 0.71319012D+02
            AN1( 3)= 0.19630600D+00
          ALPN1( 3)= 0.10332409D+01
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.99112965D+03
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.14924836D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.28772940D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.44887920D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.13371435D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.23521890D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.28828485D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.15229200D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.59200735D+05
           C(  1) = 0.17829182D-01
          EX(  2) = 0.62620811D+04
           C(  2) = 0.12254779D+00
          EX(  3) = 0.12383370D+04
           C(  3) = 0.43769232D+00
          EX(  4) = 0.32283775D+03
           C(  4) = 0.54672239D+00
          EX(  5) = 0.53301225D+03
           C(  5) =-0.47170490D-02
          EX(  6) = 0.58168859D+02
           C(  6) = 0.31416096D-01
          EX(  7) = 0.24819367D+02
           C(  7) = 0.22385306D-01
          EX(  8) = 0.46362186D+02
           C(  8) = 0.71818624D-02
          EX(  9) = 0.78126958D+01
           C(  9) =-0.23753454D-01
          EX( 10) = 0.34615921D+01
           C( 10) =-0.77390686D-02
          EX( 11) = 0.67419866D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.14177324D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.57650115D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.59200735D+05
           C( 14) = 0.65768937D-02
          EX( 15) = 0.62620811D+04
           C( 15) = 0.45205870D-01
          EX( 16) = 0.12383370D+04
           C( 16) = 0.16145754D+00
          EX( 17) = 0.32283775D+03
           C( 17) = 0.20167694D+00
          EX( 18) = 0.53301225D+03
           C( 18) = 0.97845794D-01
          EX( 19) = 0.58168859D+02
           C( 19) =-0.65166438D+00
          EX( 20) = 0.24819367D+02
           C( 20) =-0.46433862D+00
          EX( 21) = 0.46362186D+02
           C( 21) = 0.48656653D-02
          EX( 22) = 0.78126958D+01
           C( 22) =-0.16092811D-01
          EX( 23) = 0.34615921D+01
           C( 23) =-0.52431688D-02
          EX( 24) = 0.67419866D+01
           C( 24) =-0.13354285D-02
          EX( 25) = 0.14177324D+01
           C( 25) = 0.35387769D-02
          EX( 26) = 0.57650115D+00
           C( 26) = 0.14464962D-02
          EX( 27) = 0.59200735D+05
           C( 27) = 0.28954611D-02
          EX( 28) = 0.62620811D+04
           C( 28) = 0.19901773D-01
          EX( 29) = 0.12383370D+04
           C( 29) = 0.71081278D-01
          EX( 30) = 0.32283775D+03
           C( 30) = 0.88787772D-01
          EX( 31) = 0.53301225D+03
           C( 31) = 0.50690975D-01
          EX( 32) = 0.58168859D+02
           C( 32) =-0.33760779D+00
          EX( 33) = 0.24819367D+02
           C( 33) =-0.24055993D+00
          EX( 34) = 0.46362186D+02
           C( 34) =-0.29101573D+00
          EX( 35) = 0.78126958D+01
           C( 35) = 0.96251197D+00
          EX( 36) = 0.34615921D+01
           C( 36) = 0.31359424D+00
          EX( 37) = 0.67419866D+01
           C( 37) =-0.11650710D-02
          EX( 38) = 0.14177324D+01
           C( 38) = 0.30873435D-02
          EX( 39) = 0.57650115D+00
           C( 39) = 0.12619701D-02
          EX( 40) = 0.59200735D+05
           C( 40) = 0.12110830D-02
          EX( 41) = 0.62620811D+04
           C( 41) = 0.83243032D-02
          EX( 42) = 0.12383370D+04
           C( 42) = 0.29731127D-01
          EX( 43) = 0.32283775D+03
           C( 43) = 0.37137212D-01
          EX( 44) = 0.53301225D+03
           C( 44) = 0.21943631D-01
          EX( 45) = 0.58168859D+02
           C( 45) =-0.14614713D+00
          EX( 46) = 0.24819367D+02
           C( 46) =-0.10413606D+00
          EX( 47) = 0.46362186D+02
           C( 47) =-0.16099570D+00
          EX( 48) = 0.78126958D+01
           C( 48) = 0.53248083D+00
          EX( 49) = 0.34615921D+01
           C( 49) = 0.17348659D+00
          EX( 50) = 0.67419866D+01
           C( 50) = 0.36498374D+00
          EX( 51) = 0.14177324D+01
           C( 51) =-0.96717722D+00
          EX( 52) = 0.57650115D+00
           C( 52) =-0.39533947D+00
          EX( 53) = 0.17353008D+04
           C( 53) = 0.25931488D-01
          EX( 54) = 0.36803116D+03
           C( 54) = 0.17672673D+00
          EX( 55) = 0.11165798D+03
           C( 55) = 0.49741927D+00
          EX( 56) = 0.38923277D+02
           C( 56) = 0.44375651D+00
          EX( 57) = 0.17731849D+02
           C( 57) = 0.19507696D-01
          EX( 58) = 0.72835929D+01
           C( 58) = 0.27960710D-01
          EX( 59) = 0.31324704D+01
           C( 59) = 0.60564628D-02
          EX( 60) = 0.22797460D+01
           C( 60) =-0.83206578D-02
          EX( 61) = 0.96424029D+00
           C( 61) =-0.89610437D-02
          EX( 62) = 0.37951417D+00
           C( 62) =-0.21282432D-02
          EX( 63) = 0.17353008D+04
           C( 63) = 0.12951132D-01
          EX( 64) = 0.36803116D+03
           C( 64) = 0.88263775D-01
          EX( 65) = 0.11165798D+03
           C( 65) = 0.24842933D+00
          EX( 66) = 0.38923277D+02
           C( 66) = 0.22162818D+00
          EX( 67) = 0.17731849D+02
           C( 67) =-0.43438535D+00
          EX( 68) = 0.72835929D+01
           C( 68) =-0.62261185D+00
          EX( 69) = 0.31324704D+01
           C( 69) =-0.13486159D+00
          EX( 70) = 0.22797460D+01
           C( 70) =-0.13852682D-02
          EX( 71) = 0.96424029D+00
           C( 71) =-0.14918831D-02
          EX( 72) = 0.37951417D+00
           C( 72) =-0.35432147D-03
          EX( 73) = 0.17353008D+04
           C( 73) = 0.52186094D-02
          EX( 74) = 0.36803116D+03
           C( 74) = 0.35565555D-01
          EX( 75) = 0.11165798D+03
           C( 75) = 0.10010366D+00
          EX( 76) = 0.38923277D+02
           C( 76) = 0.89304240D-01
          EX( 77) = 0.17731849D+02
           C( 77) =-0.24518763D+00
          EX( 78) = 0.72835929D+01
           C( 78) =-0.35143156D+00
          EX( 79) = 0.31324704D+01
           C( 79) =-0.76122253D-01
          EX( 80) = 0.22797460D+01
           C( 80) = 0.53709776D+00
          EX( 81) = 0.96424029D+00
           C( 81) = 0.57843461D+00
          EX( 82) = 0.37951417D+00
           C( 82) = 0.13737792D+00
          EX( 83) = 0.25140700D+03
           C( 83) = 0.21490091D-01
          EX( 84) = 0.70039800D+02
           C( 84) = 0.14099059D+00
          EX( 85) = 0.25058300D+02
           C( 85) = 0.39312166D+00
          EX( 86) = 0.97225900D+01
           C( 86) = 0.49547209D+00
          EX( 87) = 0.37341200D+01
           C( 87) = 0.18957080D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C
C     --- 
C
      IF(IZSAVE.EQ.48) THEN
        ITYP(1)=121
        ITYP(2)=122
C     --- 
        IF (MMPTYP.EQ.122) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : CD/QR             CONFIGURATION : S2P6D10      *
C   VALENCE : (5S/4P/4D)        BASIS SET     : ( 8/ 5/ 5)   *
C          EFFECTIVE CORE CHARGE : 18.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =    -128.474117 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2795 A.U.
C  ***     ORBITAL ENERGY( 4P ) =   -3.1204 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.7209 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 18.0D+00
          SHINFO='5S/4P/4D'
          NOSH= 3
          CDFCTR(1)='71'
          CDFCTR(2)='5'
          CDFCTR(3)='41'
             KNG(1)= 8
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 2
             KNG(3)= 5
            KTYP(3)= 3
          EX( 1)= 0.55284900D+04
           C( 1)= 0.26585837D-02
          EX( 2)= 0.65812600D+03
           C( 2)= 0.17939310D-01
          EX( 3)= 0.47366300D+02
           C( 3)=-0.91181553D-01
          EX( 4)= 0.72714200D+01
           C( 4)= 0.26697228D+00
          EX( 5)= 0.17141900D+01
           C( 5)=-0.22703520D+00
          EX( 6)= 0.89284000D+00
           C( 6)=-0.34622016D+00
          EX( 7)= 0.12103000D+00
           C( 7)= 0.66781051D+00
          EX( 8)= 0.43420000D-01
           C( 8)= 0.48093222D+00
          EX( 9)= 0.51557300D+03
           C( 9)= 0.35835914D-01
          EX(10)= 0.10853600D+03
           C(10)= 0.14963241D+00
          EX(11)= 0.11113900D+02
           C(11)=-0.45863995D+00
          EX(12)= 0.16631000D+01
           C(12)= 0.76940858D+00
          EX(13)= 0.60498000D+00
           C(13)= 0.33982532D+00
          EX(14)= 0.72067400D+02
           C(14)=-0.57884124D-01
          EX(15)= 0.18192900D+02
           C(15)=-0.18579558D+00
          EX(16)= 0.20749800D+01
           C(16)= 0.48481116D+00
          EX(17)= 0.73854000D+00
           C(17)= 0.50204235D+00
          EX(18)= 0.24310000D+00
           C(18)= 0.19892886D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 18.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.72464751D+00
          ALPN0( 1)= 0.16689227D+03
            AN0( 2)= 0.41258244D+00
          ALPN0( 2)= 0.13138227D+02
            AN0( 3)= 0.90942427D-01
          ALPN0( 3)= 0.24286356D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.76040333D+02
          ALPN1( 1)= 0.25681098D+04
            AN1( 2)= 0.54297968D+01
          ALPN1( 2)= 0.62217021D+02
            AN1( 3)= 0.93517327D-01
          ALPN1( 3)= 0.20912542D+01
C         --- CORE-SHELL INFORMATION 
          NOSH     =  7
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.19764200D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.29993800D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.58686000D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.94955600D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.26885200D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.48191000D+02
          KTYP( 7) =  3
           KNG( 7) =  5
          BPAR( 7) = 0.31742800D+02
C         --- EXPONENTS AND COEFFICIENTS 
          EX(  1) = 0.63419666D+05
           C(  1) = 0.17795081D-01
          EX(  2) = 0.66418070D+04
           C(  2) = 0.12194091D+00
          EX(  3) = 0.13055337D+04
           C(  3) = 0.43664473D+00
          EX(  4) = 0.33906514D+03
           C(  4) = 0.54849181D+00
          EX(  5) = 0.56281562D+03
           C(  5) =-0.47243850D-02
          EX(  6) = 0.60533991D+02
           C(  6) = 0.32503412D-01
          EX(  7) = 0.25323010D+02
           C(  7) = 0.22121156D-01
          EX(  8) = 0.48791184D+02
           C(  8) = 0.73305085D-02
          EX(  9) = 0.82090295D+01
           C(  9) =-0.24626140D-01
          EX( 10) = 0.35209302D+01
           C( 10) =-0.73908198D-02
          EX( 11) = 0.71794009D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.15302675D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.63427104D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.63419666D+05
           C( 14) = 0.65850544D-02
          EX( 15) = 0.66418070D+04
           C( 15) = 0.45124130D-01
          EX( 16) = 0.13055337D+04
           C( 16) = 0.16158000D+00
          EX( 17) = 0.33906514D+03
           C( 17) = 0.20296893D+00
          EX( 18) = 0.56281562D+03
           C( 18) = 0.96845682D-01
          EX( 19) = 0.60533991D+02
           C( 19) =-0.66629097D+00
          EX( 20) = 0.25323010D+02
           C( 20) =-0.45346397D+00
          EX( 21) = 0.48791184D+02
           C( 21) = 0.31736482D-02
          EX( 22) = 0.82090295D+01
           C( 22) =-0.10661566D-01
          EX( 23) = 0.35209302D+01
           C( 23) =-0.31997592D-02
          EX( 24) = 0.71794009D+01
           C( 24) = 0.00000000D+00
          EX( 25) = 0.15302675D+01
           C( 25) = 0.00000000D+00
          EX( 26) = 0.63427104D+00
           C( 26) = 0.00000000D+00
          EX( 27) = 0.63419666D+05
           C( 27) = 0.29140552D-02
          EX( 28) = 0.66418070D+04
           C( 28) = 0.19968584D-01
          EX( 29) = 0.13055337D+04
           C( 29) = 0.71503290D-01
          EX( 30) = 0.33906514D+03
           C( 30) = 0.89818946D-01
          EX( 31) = 0.56281562D+03
           C( 31) = 0.50430038D-01
          EX( 32) = 0.60533991D+02
           C( 32) =-0.34695485D+00
          EX( 33) = 0.25323010D+02
           C( 33) =-0.23613035D+00
          EX( 34) = 0.48791184D+02
           C( 34) =-0.29403075D+00
          EX( 35) = 0.82090295D+01
           C( 35) = 0.98776812D+00
          EX( 36) = 0.35209302D+01
           C( 36) = 0.29644987D+00
          EX( 37) = 0.71794009D+01
           C( 37) = 0.00000000D+00
          EX( 38) = 0.15302675D+01
           C( 38) = 0.00000000D+00
          EX( 39) = 0.63427104D+00
           C( 39) = 0.00000000D+00
          EX( 40) = 0.63419666D+05
           C( 40) = 0.12368227D-02
          EX( 41) = 0.66418070D+04
           C( 41) = 0.84753358D-02
          EX( 42) = 0.13055337D+04
           C( 42) = 0.30348393D-01
          EX( 43) = 0.33906514D+03
           C( 43) = 0.38122171D-01
          EX( 44) = 0.56281562D+03
           C( 44) = 0.22126926D-01
          EX( 45) = 0.60533991D+02
           C( 45) =-0.15223158D+00
          EX( 46) = 0.25323010D+02
           C( 46) =-0.10360569D+00
          EX( 47) = 0.48791184D+02
           C( 47) =-0.16580779D+00
          EX( 48) = 0.82090295D+01
           C( 48) = 0.55701537D+00
          EX( 49) = 0.35209302D+01
           C( 49) = 0.16717197D+00
          EX( 50) = 0.71794009D+01
           C( 50) = 0.37219985D+00
          EX( 51) = 0.15302675D+01
           C( 51) =-0.97978846D+00
          EX( 52) = 0.63427104D+00
           C( 52) =-0.39423340D+00
          EX( 53) = 0.18301043D+04
           C( 53) = 0.25794677D-01
          EX( 54) = 0.38747013D+03
           C( 54) = 0.17596567D+00
          EX( 55) = 0.11748419D+03
           C( 55) = 0.49672559D+00
          EX( 56) = 0.40961698D+02
           C( 56) = 0.44484583D+00
          EX( 57) = 0.18681106D+02
           C( 57) = 0.19782046D-01
          EX( 58) = 0.76905086D+01
           C( 58) = 0.28184007D-01
          EX( 59) = 0.33033719D+01
           C( 59) = 0.59599823D-02
          EX( 60) = 0.24627641D+01
           C( 60) =-0.82133024D-02
          EX( 61) = 0.10502929D+01
           C( 61) =-0.88159343D-02
          EX( 62) = 0.41743670D+00
           C( 62) =-0.19907646D-02
          EX( 63) = 0.18301043D+04
           C( 63) = 0.12968380D-01
          EX( 64) = 0.38747013D+03
           C( 64) = 0.88467457D-01
          EX( 65) = 0.11748419D+03
           C( 65) = 0.24973082D+00
          EX( 66) = 0.40961698D+02
           C( 66) = 0.22364805D+00
          EX( 67) = 0.18681106D+02
           C( 67) =-0.43748243D+00
          EX( 68) = 0.76905086D+01
           C( 68) =-0.62329284D+00
          EX( 69) = 0.33033719D+01
           C( 69) =-0.13180575D+00
          EX( 70) = 0.24627641D+01
           C( 70) =-0.12976041D-02
          EX( 71) = 0.10502929D+01
           C( 71) =-0.13928128D-02
          EX( 72) = 0.41743670D+00
           C( 72) =-0.31451713D-03
          EX( 73) = 0.26761333D+03
           C( 73) = 0.21144663D-01
          EX( 74) = 0.74615655D+02
           C( 74) = 0.13956334D+00
          EX( 75) = 0.26742662D+02
           C( 75) = 0.39197148D+00
          EX( 76) = 0.10411848D+02
           C( 76) = 0.49643848D+00
          EX( 77) = 0.40166691D+01
           C( 77) = 0.18950882D+00
          RETURN
          END IF
C     --- 
        ELSE IF (MMPTYP.EQ.121) THEN
          IF (MMPMOD.EQ.0) THEN
C
C*************************************************************
C     TITLE : CD/QR             CONFIGURATION : S2D10        *
C   VALENCE : (5S/4D)           BASIS SET     : ( 6/ 5)      *
C          EFFECTIVE CORE CHARGE : 12.000000                 *
C*************************************************************
C
C  ***     TOTAL ENERGY         =     -47.383368 A.U.
C
C  ***     ORBITAL ENERGY( 5S ) =    -.2819 A.U.
C  ***     ORBITAL ENERGY( 4D ) =    -.7212 A.U.
C
C         --- VALENCE-SHELL BASIS-SET
C
          ZCORE = IZSAVE - 12.0D+00
          SHINFO='5S/4D'
          NOSH= 2
          CDFCTR(1)='51'
          CDFCTR(2)='41'
             KNG(1)= 6
            KTYP(1)= 1
             KNG(2)= 5
            KTYP(2)= 3
          EX( 1)= 0.29281100D+02
           C( 1)=-0.95817201D-01
          EX( 2)= 0.72714200D+01
           C( 2)= 0.26164910D+00
          EX( 3)= 0.17141900D+01
           C( 3)=-0.31897666D+00
          EX( 4)= 0.89283700D+00
           C( 4)=-0.26883770D+00
          EX( 5)= 0.12102700D+00
           C( 5)= 0.66946761D+00
          EX( 6)= 0.43424000D-01
           C( 6)= 0.46911851D+00
          EX( 7)= 0.72067400D+02
           C( 7)=-0.74737968D-01
          EX( 8)= 0.18192900D+02
           C( 8)=-0.20204883D+00
          EX( 9)= 0.20749800D+01
           C( 9)= 0.49756032D+00
          EX(10)= 0.73854000D+00
           C(10)= 0.49239198D+00
          EX(11)= 0.24310000D+00
           C(11)= 0.18887058D+00
          RETURN
        ELSE
C
C         --- CORE-SHELLS AND MODEL-POTENTIAL
C
          ZCORE = IZSAVE - 12.0D+00
          NOAN0=  3
          NOAN1=  3
C         --- A-PARAMETERS FOR N=0
            AN0( 1)= 0.13917280D+01
          ALPN0( 1)= 0.23775990D+03
            AN0( 2)= 0.89664200D+00
          ALPN0( 2)= 0.78159300D+01
            AN0( 3)= 0.24736100D+00
          ALPN0( 3)= 0.15948200D+01
C         --- A-PARAMETERS FOR N=1
            AN1( 1)= 0.38013740D+01
          ALPN1( 1)= 0.21550949D+04
            AN1( 2)= 0.12384400D+02
          ALPN1( 2)= 0.65882700D+02
            AN1( 3)= 0.16604700D+00
          ALPN1( 3)= 0.11001793D+01
C         --- CORE-SHELL INFORMATION
          NOSH     =  8
          KTYP( 1) =  1
           KNG( 1) = 13
          BPAR( 1) = 0.10376205D+04
          KTYP( 2) =  1
           KNG( 2) = 13
          BPAR( 2) = 0.15746745D+03
          KTYP( 3) =  1
           KNG( 3) = 13
          BPAR( 3) = 0.30810150D+02
          KTYP( 4) =  1
           KNG( 4) = 13
          BPAR( 4) = 0.49851690D+01
          KTYP( 5) =  2
           KNG( 5) = 10
          BPAR( 5) = 0.14114730D+03
          KTYP( 6) =  2
           KNG( 6) = 10
          BPAR( 6) = 0.25300275D+02
          KTYP( 7) =  2
           KNG( 7) = 10
          BPAR( 7) = 0.32760525D+01
          KTYP( 8) =  3
           KNG( 8) =  5
          BPAR( 8) = 0.16664970D+02
C         --- EXPONENTS AND COEFFICIENTS
          EX(  1) = 0.63419666D+05
           C(  1) = 0.17795081D-01
          EX(  2) = 0.66418070D+04
           C(  2) = 0.12194091D+00
          EX(  3) = 0.13055337D+04
           C(  3) = 0.43664473D+00
          EX(  4) = 0.33906514D+03
           C(  4) = 0.54849181D+00
          EX(  5) = 0.56281562D+03
           C(  5) =-0.47243850D-02
          EX(  6) = 0.60533991D+02
           C(  6) = 0.32503412D-01
          EX(  7) = 0.25323010D+02
           C(  7) = 0.22121156D-01
          EX(  8) = 0.48791184D+02
           C(  8) = 0.73305085D-02
          EX(  9) = 0.82090295D+01
           C(  9) =-0.24626140D-01
          EX( 10) = 0.35209302D+01
           C( 10) =-0.73908198D-02
          EX( 11) = 0.71794009D+01
           C( 11) = 0.00000000D+00
          EX( 12) = 0.15302675D+01
           C( 12) = 0.00000000D+00
          EX( 13) = 0.63427104D+00
           C( 13) = 0.00000000D+00
          EX( 14) = 0.63419666D+05
           C( 14) = 0.65850544D-02
          EX( 15) = 0.66418070D+04
           C( 15) = 0.45124130D-01
          EX( 16) = 0.13055337D+04
           C( 16) = 0.16158000D+00
          EX( 17) = 0.33906514D+03
           C( 17) = 0.20296893D+00
          EX( 18) = 0.56281562D+03
           C( 18) = 0.96845682D-01
          EX( 19) = 0.60533991D+02
           C( 19) =-0.66629097D+00
          EX( 20) = 0.25323010D+02
           C( 20) =-0.45346397D+00
          EX( 21) = 0.48791184D+02
           C( 21) = 0.31736482D-02
          EX( 22) = 0.82090295D+01
           C( 22) =-0.10661566D-01
          EX( 23) = 0.35209302D+01
           C( 23) =-0.31997592D-02
          EX( 24) = 0.71794009D+01
           C( 24) = 0.00000000D+00
          EX( 25) = 0.15302675D+01
           C( 25) = 0.00000000D+00
          EX( 26) = 0.63427104D+00
           C( 26) = 0.00000000D+00
          EX( 27) = 0.63419666D+05
           C( 27) = 0.29140552D-02
          EX( 28) = 0.66418070D+04
           C( 28) = 0.19968584D-01
          EX( 29) = 0.13055337D+04
           C( 29) = 0.71503290D-01
          EX( 30) = 0.33906514D+03
           C( 30) = 0.89818946D-01
          EX( 31) = 0.56281562D+03
           C( 31) = 0.50430038D-01
          EX( 32) = 0.60533991D+02
           C( 32) =-0.34695485D+00
          EX( 33) = 0.25323010D+02
           C( 33) =-0.23613035D+00
          EX( 34) = 0.48791184D+02
           C( 34) =-0.29403075D+00
          EX( 35) = 0.82090295D+01
           C( 35) = 0.98776812D+00
          EX( 36) = 0.35209302D+01
           C( 36) = 0.29644987D+00
          EX( 37) = 0.71794009D+01
           C( 37) = 0.00000000D+00
          EX( 38) = 0.15302675D+01
           C( 38) = 0.00000000D+00
          EX( 39) = 0.63427104D+00
           C( 39) = 0.00000000D+00
          EX( 40) = 0.63419666D+05
           C( 40) = 0.12368227D-02
          EX( 41) = 0.66418070D+04
           C( 41) = 0.84753358D-02
          EX( 42) = 0.13055337D+04
           C( 42) = 0.30348393D-01
          EX( 43) = 0.33906514D+03
           C( 43) = 0.38122171D-01
          EX( 44) = 0.56281562D+03
           C( 44) = 0.22126926D-01
          EX( 45) = 0.60533991D+02
           C( 45) =-0.15223158D+00
          EX( 46) = 0.25323010D+02
           C( 46) =-0.10360569D+00
          EX( 47) = 0.48791184D+02
           C( 47) =-0.16580779D+00
          EX( 48) = 0.82090295D+01
           C( 48) = 0.55701537D+00
          EX( 49) = 0.35209302D+01
           C( 49) = 0.16717197D+00
          EX( 50) = 0.71794009D+01
           C( 50) = 0.37219985D+00
          EX( 51) = 0.15302675D+01
           C( 51) =-0.97978846D+00
          EX( 52) = 0.63427104D+00
           C( 52) =-0.39423340D+00
          EX( 53) = 0.18301043D+04
           C( 53) = 0.25794677D-01
          EX( 54) = 0.38747013D+03
           C( 54) = 0.17596567D+00
          EX( 55) = 0.11748419D+03
           C( 55) = 0.49672559D+00
          EX( 56) = 0.40961698D+02
           C( 56) = 0.44484583D+00
          EX( 57) = 0.18681106D+02
           C( 57) = 0.19782046D-01
          EX( 58) = 0.76905086D+01
           C( 58) = 0.28184007D-01
          EX( 59) = 0.33033719D+01
           C( 59) = 0.59599823D-02
          EX( 60) = 0.24627641D+01
           C( 60) =-0.82133024D-02
          EX( 61) = 0.10502929D+01
           C( 61) =-0.88159343D-02
          EX( 62) = 0.41743670D+00
           C( 62) =-0.19907646D-02
          EX( 63) = 0.18301043D+04
           C( 63) = 0.12968380D-01
          EX( 64) = 0.38747013D+03
           C( 64) = 0.88467457D-01
          EX( 65) = 0.11748419D+03
           C( 65) = 0.24973082D+00
          EX( 66) = 0.40961698D+02
           C( 66) = 0.22364805D+00
          EX( 67) = 0.18681106D+02
           C( 67) =-0.43748243D+00
          EX( 68) = 0.76905086D+01
           C( 68) =-0.62329284D+00
          EX( 69) = 0.33033719D+01
           C( 69) =-0.13180575D+00
          EX( 70) = 0.24627641D+01
           C( 70) =-0.12976041D-02
          EX( 71) = 0.10502929D+01
           C( 71) =-0.13928128D-02
          EX( 72) = 0.41743670D+00
           C( 72) =-0.31451713D-03
          EX( 73) = 0.18301043D+04
           C( 73) = 0.53230168D-02
          EX( 74) = 0.38747013D+03
           C( 74) = 0.36312460D-01
          EX( 75) = 0.11748419D+03
           C( 75) = 0.10250482D+00
          EX( 76) = 0.40961698D+02
           C( 76) = 0.91798853D-01
          EX( 77) = 0.18681106D+02
           C( 77) =-0.25280484D+00
          EX( 78) = 0.76905086D+01
           C( 78) =-0.36017778D+00
          EX( 79) = 0.33033719D+01
           C( 79) =-0.76165648D-01
          EX( 80) = 0.24627641D+01
           C( 80) = 0.54284944D+00
          EX( 81) = 0.10502929D+01
           C( 81) = 0.58267975D+00
          EX( 82) = 0.41743670D+00
           C( 82) = 0.13157746D+00
          EX( 83) = 0.26761333D+03
           C( 83) = 0.21144663D-01
          EX( 84) = 0.74615655D+02
           C( 84) = 0.13956334D+00
          EX( 85) = 0.26742662D+02
           C( 85) = 0.39197148D+00
          EX( 86) = 0.10411848D+02
           C( 86) = 0.49643848D+00
          EX( 87) = 0.40166691D+01
           C( 87) = 0.18950882D+00
          RETURN
          END IF
        END IF
        IERR=2
        RETURN
      END IF
C ...
C
C--   IF (MODE.EQ.0) THEN
C--      IERR=1
C--      RETURN
C--   END IF
C
      WRITE(IW,9999) IZSAVE
      CALL ABRT
      STOP
 9999 FORMAT(/1X,'*** NO MOD-POT AVAILABLE FOR ATOM A=',I4)
      END
