C  5 FEB 05 - MWS - CHANGE COMMON NAME GAMMAF TO BE FMTTBL INSTEAD
C 10 NOV 04 - MWS - ADJUST CC TOLERANCE
C  7 SEP 04 - GDF - NEW MODULE FOR ERIC'S SPECIAL D ROUTINES
C
C  LPHI=      58
C  LWK1=       1
C  LWK2=      11
C  LENW=      11
C*MODULE INT2D   *DECK DSSS
      SUBROUTINE DSSS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ,KEQL,
     *                 XC,YC,ZC,XD,YD,ZD,PHI,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 2),CXYZ( 10)
      DOUBLE PRECISION PHI(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 2)
      KL=0
      PHI(      15)=ZERO
      PHI(      17)=ZERO
      PHI(      27)=ZERO
      PHI(      28)=ZERO
      PHI(      29)=ZERO
      DO I=      51,      57
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      14)=ZERO
      PHI(      16)=ZERO
      PHI(      24)=ZERO
      PHI(      25)=ZERO
      PHI(      26)=ZERO
      DO I=      44,      50
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      13)=ZERO
      PHI(      21)=ZERO
      PHI(      22)=ZERO
      PHI(      23)=ZERO
      DO I=      37,      43
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      12)=ZERO
      PHI(      18)=ZERO
      PHI(      19)=ZERO
      PHI(      20)=ZERO
      DO I=      30,      36
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 2)
      FX=(FX + FGRID(3,IPT, 2))*TVAL
      FX=(FX + FGRID(2,IPT, 2))*TVAL
      FX=(FX + FGRID(1,IPT, 2))*TVAL
      FX= FX + FGRID(0,IPT, 2)
      FT( 2)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      12)=PHI(      12)+FAC*PHI(       1)
      FAC=SFAC( 1)
      PHI(      18)=PHI(      18)+FAC*PHI(       2)
      PHI(      19)=PHI(      19)+FAC*PHI(       3)
      PHI(      20)=PHI(      20)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=      30,      36
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      13)=PHI(      13)+FAC*PHI(      12)
      FAC=SFAC( 1)
      PHI(      21)=PHI(      21)+FAC*PHI(      18)
      PHI(      22)=PHI(      22)+FAC*PHI(      19)
      PHI(      23)=PHI(      23)+FAC*PHI(      20)
      FAC=SFAC( 1)
      J=      30
      DO I=      37,      43
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      14)=PHI(      14)+FAC*PHI(      13)
      FAC=SFAC( 3)
      PHI(      16)=PHI(      16)+FAC*PHI(      13)
      FAC=SFAC( 3)
      PHI(      24)=PHI(      24)+FAC*PHI(      21)
      PHI(      25)=PHI(      25)+FAC*PHI(      22)
      PHI(      26)=PHI(      26)+FAC*PHI(      23)
      FAC=SFAC( 3)
      J=      37
      DO I=      44,      50
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      15)=PHI(      15)+FAC*PHI(      14)
      FAC=SFAC( 3)
      PHI(      17)=PHI(      17)+FAC*PHI(      16)
      FAC=SFAC( 2)
      PHI(      27)=PHI(      27)+FAC*PHI(      24)
      PHI(      28)=PHI(      28)+FAC*PHI(      25)
      PHI(      29)=PHI(      29)+FAC*PHI(      26)
      FAC=SFAC( 1)
      J=      44
      DO I=      51,      57
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(      52)=PHI(      52)-D01*PHI(      51)
      PHI(      54)=PHI(      54)-D01*PHI(      51)
      PHI(      57)=PHI(      57)-D01*PHI(      51)
      WRK2(    1,1)= PHI(      17)
      WRK2(    2,1)= PHI(      15)
      WRK2(    3,1)=-PHI(      27)
      WRK2(    4,1)=-PHI(      28)
      WRK2(    5,1)=-PHI(      29)
      WRK2(    6,1)= PHI(      52)
      WRK2(    7,1)= PHI(      53)
      WRK2(    8,1)= PHI(      54)
      WRK2(    9,1)= PHI(      55)
      WRK2(   10,1)= PHI(      56)
      WRK2(   11,1)= PHI(      57)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      END DO
      RETURN
      END
C  LPHI=     159
C  LWK1=       4
C  LWK2=      33
C  LENW=      11
C*MODULE INT2D   *DECK DSPS
      SUBROUTINE DSPS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 3),CXYZ( 20)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 3)
      KL=0
      PHI(      28)=ZERO
      PHI(      30)=ZERO
      PHI(      40)=ZERO
      PHI(      41)=ZERO
      PHI(      42)=ZERO
      PHI(      46)=ZERO
      PHI(      47)=ZERO
      PHI(      48)=ZERO
      PHI(      55)=ZERO
      PHI(      56)=ZERO
      PHI(      57)=ZERO
      DO I=      79,      85
      PHI(I)=ZERO
      END DO
      DO I=     100,     106
      PHI(I)=ZERO
      END DO
      DO I=     146,     158
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      27)=ZERO
      PHI(      29)=ZERO
      PHI(      37)=ZERO
      PHI(      38)=ZERO
      PHI(      39)=ZERO
      PHI(      43)=ZERO
      PHI(      44)=ZERO
      PHI(      45)=ZERO
      PHI(      52)=ZERO
      PHI(      53)=ZERO
      PHI(      54)=ZERO
      DO I=      72,      78
      PHI(I)=ZERO
      END DO
      DO I=      93,      99
      PHI(I)=ZERO
      END DO
      DO I=     133,     145
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      26)=ZERO
      PHI(      34)=ZERO
      PHI(      35)=ZERO
      PHI(      36)=ZERO
      PHI(      49)=ZERO
      PHI(      50)=ZERO
      PHI(      51)=ZERO
      DO I=      65,      71
      PHI(I)=ZERO
      END DO
      DO I=      86,      92
      PHI(I)=ZERO
      END DO
      DO I=     120,     132
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      25)=ZERO
      PHI(      31)=ZERO
      PHI(      32)=ZERO
      PHI(      33)=ZERO
      DO I=      58,      64
      PHI(I)=ZERO
      END DO
      DO I=     107,     119
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 3)
      FX=(FX + FGRID(3,IPT, 3))*TVAL
      FX=(FX + FGRID(2,IPT, 3))*TVAL
      FX=(FX + FGRID(1,IPT, 3))*TVAL
      FX= FX + FGRID(0,IPT, 3)
      FT( 3)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      25)=PHI(      25)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      31)=PHI(      31)+FAC*PHI(       2)
      PHI(      32)=PHI(      32)+FAC*PHI(       3)
      PHI(      33)=PHI(      33)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=      58,      64
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     107,     119
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      26)=PHI(      26)+FAC*PHI(      25)
      FAC=SFAC( 1)
      PHI(      34)=PHI(      34)+FAC*PHI(      31)
      PHI(      35)=PHI(      35)+FAC*PHI(      32)
      PHI(      36)=PHI(      36)+FAC*PHI(      33)
      FAC=SFAC( 2)
      PHI(      49)=PHI(      49)+FAC*PHI(      31)
      PHI(      50)=PHI(      50)+FAC*PHI(      32)
      PHI(      51)=PHI(      51)+FAC*PHI(      33)
      FAC=SFAC( 1)
      J=      58
      DO I=      65,      71
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      58
      DO I=      86,      92
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     107
      DO I=     120,     132
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      27)=PHI(      27)+FAC*PHI(      26)
      FAC=SFAC( 3)
      PHI(      29)=PHI(      29)+FAC*PHI(      26)
      FAC=SFAC( 2)
      PHI(      37)=PHI(      37)+FAC*PHI(      34)
      PHI(      38)=PHI(      38)+FAC*PHI(      35)
      PHI(      39)=PHI(      39)+FAC*PHI(      36)
      FAC=SFAC( 3)
      PHI(      43)=PHI(      43)+FAC*PHI(      34)
      PHI(      44)=PHI(      44)+FAC*PHI(      35)
      PHI(      45)=PHI(      45)+FAC*PHI(      36)
      FAC=SFAC( 3)
      PHI(      52)=PHI(      52)+FAC*PHI(      49)
      PHI(      53)=PHI(      53)+FAC*PHI(      50)
      PHI(      54)=PHI(      54)+FAC*PHI(      51)
      FAC=SFAC( 3)
      J=      65
      DO I=      72,      78
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      86
      DO I=      93,      99
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     120
      DO I=     133,     145
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      28)=PHI(      28)+FAC*PHI(      27)
      FAC=SFAC( 3)
      PHI(      30)=PHI(      30)+FAC*PHI(      29)
      FAC=SFAC( 1)
      PHI(      40)=PHI(      40)+FAC*PHI(      37)
      PHI(      41)=PHI(      41)+FAC*PHI(      38)
      PHI(      42)=PHI(      42)+FAC*PHI(      39)
      FAC=SFAC( 3)
      PHI(      46)=PHI(      46)+FAC*PHI(      43)
      PHI(      47)=PHI(      47)+FAC*PHI(      44)
      PHI(      48)=PHI(      48)+FAC*PHI(      45)
      FAC=SFAC( 2)
      PHI(      55)=PHI(      55)+FAC*PHI(      52)
      PHI(      56)=PHI(      56)+FAC*PHI(      53)
      PHI(      57)=PHI(      57)+FAC*PHI(      54)
      FAC=SFAC( 2)
      J=      72
      DO I=      79,      85
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      93
      DO I=     100,     106
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     133
      DO I=     146,     158
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(      80)=PHI(      80)-D01*PHI(      79)
      PHI(      82)=PHI(      82)-D01*PHI(      79)
      PHI(      85)=PHI(      85)-D01*PHI(      79)
      PHI(     101)=PHI(     101)-D01*PHI(     100)
      PHI(     103)=PHI(     103)-D01*PHI(     100)
      PHI(     106)=PHI(     106)-D01*PHI(     100)
      PHI(     149)=PHI(     149)-D01*PHI(     146)
      PHI(     150)=PHI(     150)-D01*PHI(     147)
      PHI(     152)=PHI(     152)-D01*PHI(     147)
      PHI(     153)=PHI(     153)-D01*PHI(     148)
      PHI(     155)=PHI(     155)-D01*PHI(     148)
      PHI(     158)=PHI(     158)-D01*PHI(     148)
      PHI(     149)=PHI(     149)-D02*PHI(     146)
      PHI(     151)=PHI(     151)-D01*PHI(     146)
      PHI(     152)=PHI(     152)-D02*PHI(     147)
      PHI(     156)=PHI(     156)-D01*PHI(     146)
      PHI(     157)=PHI(     157)-D01*PHI(     147)
      PHI(     158)=PHI(     158)-D02*PHI(     148)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(      46)+CONF( 1)*PHI(      30)
      WRK1(    3)= PHI(      47)+CONF( 2)*PHI(      30)
      WRK1(    4)= PHI(      48)+CONF( 3)*PHI(      30)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 1)
      WRK1(    2)= PHI(      40)+CONF( 1)*PHI(      28)
      WRK1(    3)= PHI(      41)+CONF( 2)*PHI(      28)
      WRK1(    4)= PHI(      42)+CONF( 3)*PHI(      28)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 2)
      WRK1(    2)=-PHI(      80)-CONF( 1)*PHI(      55)
      WRK1(    3)=-PHI(      81)-CONF( 2)*PHI(      55)
      WRK1(    4)=-PHI(      83)-CONF( 3)*PHI(      55)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 3)
      WRK1(    2)=-PHI(      81)-CONF( 1)*PHI(      56)
      WRK1(    3)=-PHI(      82)-CONF( 2)*PHI(      56)
      WRK1(    4)=-PHI(      84)-CONF( 3)*PHI(      56)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 4)
      WRK1(    2)=-PHI(      83)-CONF( 1)*PHI(      57)
      WRK1(    3)=-PHI(      84)-CONF( 2)*PHI(      57)
      WRK1(    4)=-PHI(      85)-CONF( 3)*PHI(      57)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 5)
      WRK1(    2)= PHI(     149)+CONF( 1)*PHI(     101)
      WRK1(    3)= PHI(     150)+CONF( 2)*PHI(     101)
      WRK1(    4)= PHI(     153)+CONF( 3)*PHI(     101)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 6)
      WRK1(    2)= PHI(     150)+CONF( 1)*PHI(     102)
      WRK1(    3)= PHI(     151)+CONF( 2)*PHI(     102)
      WRK1(    4)= PHI(     154)+CONF( 3)*PHI(     102)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 7)
      WRK1(    2)= PHI(     151)+CONF( 1)*PHI(     103)
      WRK1(    3)= PHI(     152)+CONF( 2)*PHI(     103)
      WRK1(    4)= PHI(     155)+CONF( 3)*PHI(     103)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 8)
      WRK1(    2)= PHI(     153)+CONF( 1)*PHI(     104)
      WRK1(    3)= PHI(     154)+CONF( 2)*PHI(     104)
      WRK1(    4)= PHI(     156)+CONF( 3)*PHI(     104)
      CALL DSPS_BCTE(WRK1,WRK2,LENW, 9)
      WRK1(    2)= PHI(     154)+CONF( 1)*PHI(     105)
      WRK1(    3)= PHI(     155)+CONF( 2)*PHI(     105)
      WRK1(    4)= PHI(     157)+CONF( 3)*PHI(     105)
      CALL DSPS_BCTE(WRK1,WRK2,LENW,10)
      WRK1(    2)= PHI(     156)+CONF( 1)*PHI(     106)
      WRK1(    3)= PHI(     157)+CONF( 2)*PHI(     106)
      WRK1(    4)= PHI(     158)+CONF( 3)*PHI(     106)
      CALL DSPS_BCTE(WRK1,WRK2,LENW,11)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     3
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DSPS_BCTE
      SUBROUTINE DSPS_BCTE(WRK1,WRK2,LENW,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*)
      J=       1
      DO I=1,     3
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=     453
C  LWK1=      11
C  LWK2=     144
C  LENW=      24
C*MODULE INT2D   *DECK DSPP
      SUBROUTINE DSPP (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 4),CXYZ( 35)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 4)
      KL=0
      PHI(      50)=ZERO
      PHI(      51)=ZERO
      PHI(      53)=ZERO
      PHI(      57)=ZERO
      PHI(      58)=ZERO
      PHI(      60)=ZERO
      PHI(      70)=ZERO
      PHI(      71)=ZERO
      PHI(      72)=ZERO
      PHI(      76)=ZERO
      PHI(      77)=ZERO
      PHI(      78)=ZERO
      PHI(      88)=ZERO
      PHI(      89)=ZERO
      PHI(      90)=ZERO
      PHI(      91)=ZERO
      PHI(      92)=ZERO
      PHI(      93)=ZERO
      PHI(      97)=ZERO
      PHI(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     106)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     112)=ZERO
      PHI(     113)=ZERO
      PHI(     114)=ZERO
      DO I=     136,     142
      PHI(I)=ZERO
      END DO
      DO I=     164,     170
      PHI(I)=ZERO
      END DO
      DO I=     171,     177
      PHI(I)=ZERO
      END DO
      DO I=     185,     191
      PHI(I)=ZERO
      END DO
      DO I=     206,     212
      PHI(I)=ZERO
      END DO
      DO I=     220,     226
      PHI(I)=ZERO
      END DO
      DO I=     241,     247
      PHI(I)=ZERO
      END DO
      DO I=     287,     299
      PHI(I)=ZERO
      END DO
      DO I=     313,     325
      PHI(I)=ZERO
      END DO
      DO I=     352,     364
      PHI(I)=ZERO
      END DO
      DO I=     431,     452
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      52)=ZERO
      PHI(      56)=ZERO
      PHI(      59)=ZERO
      PHI(      67)=ZERO
      PHI(      68)=ZERO
      PHI(      69)=ZERO
      PHI(      73)=ZERO
      PHI(      74)=ZERO
      PHI(      75)=ZERO
      PHI(      85)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      94)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(     103)=ZERO
      PHI(     104)=ZERO
      PHI(     105)=ZERO
      PHI(     109)=ZERO
      PHI(     110)=ZERO
      PHI(     111)=ZERO
      DO I=     129,     135
      PHI(I)=ZERO
      END DO
      DO I=     157,     163
      PHI(I)=ZERO
      END DO
      DO I=     178,     184
      PHI(I)=ZERO
      END DO
      DO I=     199,     205
      PHI(I)=ZERO
      END DO
      DO I=     213,     219
      PHI(I)=ZERO
      END DO
      DO I=     234,     240
      PHI(I)=ZERO
      END DO
      DO I=     274,     286
      PHI(I)=ZERO
      END DO
      DO I=     300,     312
      PHI(I)=ZERO
      END DO
      DO I=     339,     351
      PHI(I)=ZERO
      END DO
      DO I=     409,     430
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      48)=ZERO
      PHI(      55)=ZERO
      PHI(      64)=ZERO
      PHI(      65)=ZERO
      PHI(      66)=ZERO
      PHI(      82)=ZERO
      PHI(      83)=ZERO
      PHI(      84)=ZERO
      PHI(     100)=ZERO
      PHI(     101)=ZERO
      PHI(     102)=ZERO
      DO I=     122,     128
      PHI(I)=ZERO
      END DO
      DO I=     150,     156
      PHI(I)=ZERO
      END DO
      DO I=     192,     198
      PHI(I)=ZERO
      END DO
      DO I=     227,     233
      PHI(I)=ZERO
      END DO
      DO I=     261,     273
      PHI(I)=ZERO
      END DO
      DO I=     326,     338
      PHI(I)=ZERO
      END DO
      DO I=     387,     408
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      54)=ZERO
      PHI(      61)=ZERO
      PHI(      62)=ZERO
      PHI(      63)=ZERO
      PHI(      79)=ZERO
      PHI(      80)=ZERO
      PHI(      81)=ZERO
      DO I=     115,     121
      PHI(I)=ZERO
      END DO
      DO I=     143,     149
      PHI(I)=ZERO
      END DO
      DO I=     248,     260
      PHI(I)=ZERO
      END DO
      DO I=     365,     386
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 4)
      FX=(FX + FGRID(3,IPT, 4))*TVAL
      FX=(FX + FGRID(2,IPT, 4))*TVAL
      FX=(FX + FGRID(1,IPT, 4))*TVAL
      FX= FX + FGRID(0,IPT, 4)
      FT( 4)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      47)=PHI(      47)+FAC*PHI(       1)
      FAC=SFAC( 3)
      PHI(      54)=PHI(      54)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      61)=PHI(      61)+FAC*PHI(       2)
      PHI(      62)=PHI(      62)+FAC*PHI(       3)
      PHI(      63)=PHI(      63)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(      79)=PHI(      79)+FAC*PHI(       2)
      PHI(      80)=PHI(      80)+FAC*PHI(       3)
      PHI(      81)=PHI(      81)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     115,     121
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     143,     149
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     248,     260
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     365,     386
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      48)=PHI(      48)+FAC*PHI(      47)
      FAC=SFAC( 3)
      PHI(      55)=PHI(      55)+FAC*PHI(      54)
      FAC=SFAC( 1)
      PHI(      64)=PHI(      64)+FAC*PHI(      61)
      PHI(      65)=PHI(      65)+FAC*PHI(      62)
      PHI(      66)=PHI(      66)+FAC*PHI(      63)
      FAC=SFAC( 2)
      PHI(      82)=PHI(      82)+FAC*PHI(      79)
      PHI(      83)=PHI(      83)+FAC*PHI(      80)
      PHI(      84)=PHI(      84)+FAC*PHI(      81)
      FAC=SFAC( 3)
      PHI(     100)=PHI(     100)+FAC*PHI(      79)
      PHI(     101)=PHI(     101)+FAC*PHI(      80)
      PHI(     102)=PHI(     102)+FAC*PHI(      81)
      FAC=SFAC( 1)
      J=     115
      DO I=     122,     128
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     143
      DO I=     150,     156
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     143
      DO I=     192,     198
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     143
      DO I=     227,     233
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     248
      DO I=     261,     273
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     248
      DO I=     326,     338
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     365
      DO I=     387,     408
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      52)=PHI(      52)+FAC*PHI(      48)
      FAC=SFAC( 2)
      PHI(      56)=PHI(      56)+FAC*PHI(      55)
      FAC=SFAC( 3)
      PHI(      59)=PHI(      59)+FAC*PHI(      55)
      FAC=SFAC( 2)
      PHI(      67)=PHI(      67)+FAC*PHI(      64)
      PHI(      68)=PHI(      68)+FAC*PHI(      65)
      PHI(      69)=PHI(      69)+FAC*PHI(      66)
      FAC=SFAC( 3)
      PHI(      73)=PHI(      73)+FAC*PHI(      64)
      PHI(      74)=PHI(      74)+FAC*PHI(      65)
      PHI(      75)=PHI(      75)+FAC*PHI(      66)
      FAC=SFAC( 2)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      PHI(      86)=PHI(      86)+FAC*PHI(      83)
      PHI(      87)=PHI(      87)+FAC*PHI(      84)
      FAC=SFAC( 3)
      PHI(      94)=PHI(      94)+FAC*PHI(      82)
      PHI(      95)=PHI(      95)+FAC*PHI(      83)
      PHI(      96)=PHI(      96)+FAC*PHI(      84)
      FAC=SFAC( 2)
      PHI(     103)=PHI(     103)+FAC*PHI(     100)
      PHI(     104)=PHI(     104)+FAC*PHI(     101)
      PHI(     105)=PHI(     105)+FAC*PHI(     102)
      FAC=SFAC( 3)
      PHI(     109)=PHI(     109)+FAC*PHI(     100)
      PHI(     110)=PHI(     110)+FAC*PHI(     101)
      PHI(     111)=PHI(     111)+FAC*PHI(     102)
      FAC=SFAC( 3)
      J=     122
      DO I=     129,     135
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     150
      DO I=     157,     163
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     150
      DO I=     178,     184
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     192
      DO I=     199,     205
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     192
      DO I=     213,     219
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     227
      DO I=     234,     240
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     261
      DO I=     274,     286
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     261
      DO I=     300,     312
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     326
      DO I=     339,     351
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     387
      DO I=     409,     430
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      50)=PHI(      50)+FAC*PHI(      49)
      FAC=SFAC( 2)
      PHI(      51)=PHI(      51)+FAC*PHI(      49)
      FAC=SFAC( 3)
      PHI(      53)=PHI(      53)+FAC*PHI(      52)
      FAC=SFAC( 1)
      PHI(      57)=PHI(      57)+FAC*PHI(      56)
      FAC=SFAC( 2)
      PHI(      58)=PHI(      58)+FAC*PHI(      56)
      FAC=SFAC( 3)
      PHI(      60)=PHI(      60)+FAC*PHI(      59)
      FAC=SFAC( 1)
      PHI(      70)=PHI(      70)+FAC*PHI(      67)
      PHI(      71)=PHI(      71)+FAC*PHI(      68)
      PHI(      72)=PHI(      72)+FAC*PHI(      69)
      FAC=SFAC( 2)
      PHI(      76)=PHI(      76)+FAC*PHI(      73)
      PHI(      77)=PHI(      77)+FAC*PHI(      74)
      PHI(      78)=PHI(      78)+FAC*PHI(      75)
      FAC=SFAC( 1)
      PHI(      88)=PHI(      88)+FAC*PHI(      85)
      PHI(      89)=PHI(      89)+FAC*PHI(      86)
      PHI(      90)=PHI(      90)+FAC*PHI(      87)
      FAC=SFAC( 2)
      PHI(      91)=PHI(      91)+FAC*PHI(      85)
      PHI(      92)=PHI(      92)+FAC*PHI(      86)
      PHI(      93)=PHI(      93)+FAC*PHI(      87)
      FAC=SFAC( 3)
      PHI(      97)=PHI(      97)+FAC*PHI(      94)
      PHI(      98)=PHI(      98)+FAC*PHI(      95)
      PHI(      99)=PHI(      99)+FAC*PHI(      96)
      FAC=SFAC( 1)
      PHI(     106)=PHI(     106)+FAC*PHI(     103)
      PHI(     107)=PHI(     107)+FAC*PHI(     104)
      PHI(     108)=PHI(     108)+FAC*PHI(     105)
      FAC=SFAC( 2)
      PHI(     112)=PHI(     112)+FAC*PHI(     109)
      PHI(     113)=PHI(     113)+FAC*PHI(     110)
      PHI(     114)=PHI(     114)+FAC*PHI(     111)
      FAC=SFAC( 1)
      J=     129
      DO I=     136,     142
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     157
      DO I=     164,     170
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     157
      DO I=     171,     177
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     178
      DO I=     185,     191
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     199
      DO I=     206,     212
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     213
      DO I=     220,     226
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     234
      DO I=     241,     247
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     274
      DO I=     287,     299
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     300
      DO I=     313,     325
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     339
      DO I=     352,     364
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     409
      DO I=     431,     452
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     137)=PHI(     137)-D01*PHI(     136)
      PHI(     139)=PHI(     139)-D01*PHI(     136)
      PHI(     142)=PHI(     142)-D01*PHI(     136)
      PHI(     165)=PHI(     165)-D01*PHI(     164)
      PHI(     167)=PHI(     167)-D01*PHI(     164)
      PHI(     170)=PHI(     170)-D01*PHI(     164)
      PHI(     172)=PHI(     172)-D01*PHI(     171)
      PHI(     174)=PHI(     174)-D01*PHI(     171)
      PHI(     177)=PHI(     177)-D01*PHI(     171)
      PHI(     186)=PHI(     186)-D01*PHI(     185)
      PHI(     188)=PHI(     188)-D01*PHI(     185)
      PHI(     191)=PHI(     191)-D01*PHI(     185)
      PHI(     207)=PHI(     207)-D01*PHI(     206)
      PHI(     209)=PHI(     209)-D01*PHI(     206)
      PHI(     212)=PHI(     212)-D01*PHI(     206)
      PHI(     221)=PHI(     221)-D01*PHI(     220)
      PHI(     223)=PHI(     223)-D01*PHI(     220)
      PHI(     226)=PHI(     226)-D01*PHI(     220)
      PHI(     242)=PHI(     242)-D01*PHI(     241)
      PHI(     244)=PHI(     244)-D01*PHI(     241)
      PHI(     247)=PHI(     247)-D01*PHI(     241)
      PHI(     290)=PHI(     290)-D01*PHI(     287)
      PHI(     291)=PHI(     291)-D01*PHI(     288)
      PHI(     293)=PHI(     293)-D01*PHI(     288)
      PHI(     294)=PHI(     294)-D01*PHI(     289)
      PHI(     296)=PHI(     296)-D01*PHI(     289)
      PHI(     299)=PHI(     299)-D01*PHI(     289)
      PHI(     290)=PHI(     290)-D02*PHI(     287)
      PHI(     292)=PHI(     292)-D01*PHI(     287)
      PHI(     293)=PHI(     293)-D02*PHI(     288)
      PHI(     297)=PHI(     297)-D01*PHI(     287)
      PHI(     298)=PHI(     298)-D01*PHI(     288)
      PHI(     299)=PHI(     299)-D02*PHI(     289)
      PHI(     316)=PHI(     316)-D01*PHI(     313)
      PHI(     317)=PHI(     317)-D01*PHI(     314)
      PHI(     319)=PHI(     319)-D01*PHI(     314)
      PHI(     320)=PHI(     320)-D01*PHI(     315)
      PHI(     322)=PHI(     322)-D01*PHI(     315)
      PHI(     325)=PHI(     325)-D01*PHI(     315)
      PHI(     316)=PHI(     316)-D02*PHI(     313)
      PHI(     318)=PHI(     318)-D01*PHI(     313)
      PHI(     319)=PHI(     319)-D02*PHI(     314)
      PHI(     323)=PHI(     323)-D01*PHI(     313)
      PHI(     324)=PHI(     324)-D01*PHI(     314)
      PHI(     325)=PHI(     325)-D02*PHI(     315)
      PHI(     355)=PHI(     355)-D01*PHI(     352)
      PHI(     356)=PHI(     356)-D01*PHI(     353)
      PHI(     358)=PHI(     358)-D01*PHI(     353)
      PHI(     359)=PHI(     359)-D01*PHI(     354)
      PHI(     361)=PHI(     361)-D01*PHI(     354)
      PHI(     364)=PHI(     364)-D01*PHI(     354)
      PHI(     355)=PHI(     355)-D02*PHI(     352)
      PHI(     357)=PHI(     357)-D01*PHI(     352)
      PHI(     358)=PHI(     358)-D02*PHI(     353)
      PHI(     362)=PHI(     362)-D01*PHI(     352)
      PHI(     363)=PHI(     363)-D01*PHI(     353)
      PHI(     364)=PHI(     364)-D02*PHI(     354)
      PHI(     438)=PHI(     438)-D01*PHI(     432)
      PHI(     439)=PHI(     439)-D01*PHI(     433)
      PHI(     440)=PHI(     440)-D01*PHI(     434)
      PHI(     442)=PHI(     442)-D01*PHI(     434)
      PHI(     443)=PHI(     443)-D01*PHI(     435)
      PHI(     444)=PHI(     444)-D01*PHI(     436)
      PHI(     446)=PHI(     446)-D01*PHI(     436)
      PHI(     447)=PHI(     447)-D01*PHI(     437)
      PHI(     449)=PHI(     449)-D01*PHI(     437)
      PHI(     452)=PHI(     452)-D01*PHI(     437)
      PHI(     438)=PHI(     438)-D02*PHI(     432)
      PHI(     439)=PHI(     439)-D02*PHI(     433)
      PHI(     441)=PHI(     441)-D01*PHI(     433)
      PHI(     442)=PHI(     442)-D02*PHI(     434)
      PHI(     443)=PHI(     443)-D02*PHI(     435)
      PHI(     445)=PHI(     445)-D01*PHI(     435)
      PHI(     446)=PHI(     446)-D02*PHI(     436)
      PHI(     450)=PHI(     450)-D01*PHI(     435)
      PHI(     451)=PHI(     451)-D01*PHI(     436)
      PHI(     452)=PHI(     452)-D02*PHI(     437)
      PHI(     432)=PHI(     432)-D01*PHI(     431)
      PHI(     434)=PHI(     434)-D01*PHI(     431)
      PHI(     437)=PHI(     437)-D01*PHI(     431)
      PHI(     438)=PHI(     438)-D03*PHI(     432)
      PHI(     440)=PHI(     440)-D01*PHI(     432)
      PHI(     441)=PHI(     441)-D02*PHI(     433)
      PHI(     442)=PHI(     442)-D03*PHI(     434)
      PHI(     447)=PHI(     447)-D01*PHI(     432)
      PHI(     448)=PHI(     448)-D01*PHI(     433)
      PHI(     449)=PHI(     449)-D01*PHI(     434)
      PHI(     450)=PHI(     450)-D02*PHI(     435)
      PHI(     451)=PHI(     451)-D02*PHI(     436)
      PHI(     452)=PHI(     452)-D03*PHI(     437)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    6)= PHI(     172)+CONF( 1)*PHI(      91)
      WRK1(    7)= PHI(     173)+CONF( 1)*PHI(      92)
      WRK1(    8)= PHI(     174)+CONF( 2)*PHI(      92)
      WRK1(    9)= PHI(     175)+CONF( 1)*PHI(      93)
      WRK1(   10)= PHI(     176)+CONF( 2)*PHI(      93)
      WRK1(   11)= PHI(     177)+CONF( 3)*PHI(      93)
      WRK1(    3)= PHI(      91)+CONF( 1)*PHI(      58)
      WRK1(    4)= PHI(      92)+CONF( 2)*PHI(      58)
      WRK1(    5)= PHI(      93)+CONF( 3)*PHI(      58)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      51)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      51)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      51)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    6)=-PHI(     290)-CONF( 1)*PHI(     207)
      WRK1(    7)=-PHI(     291)-CONF( 1)*PHI(     208)
      WRK1(    8)=-PHI(     292)-CONF( 2)*PHI(     208)
      WRK1(    9)=-PHI(     294)-CONF( 1)*PHI(     210)
      WRK1(   10)=-PHI(     295)-CONF( 2)*PHI(     210)
      WRK1(   11)=-PHI(     297)-CONF( 3)*PHI(     210)
      WRK1(    3)=-PHI(     207)-CONF( 1)*PHI(     106)
      WRK1(    4)=-PHI(     208)-CONF( 2)*PHI(     106)
      WRK1(    5)=-PHI(     210)-CONF( 3)*PHI(     106)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      70)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      70)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      70)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    6)=-PHI(     291)-CONF( 1)*PHI(     208)
      WRK1(    7)=-PHI(     292)-CONF( 1)*PHI(     209)
      WRK1(    8)=-PHI(     293)-CONF( 2)*PHI(     209)
      WRK1(    9)=-PHI(     295)-CONF( 1)*PHI(     211)
      WRK1(   10)=-PHI(     296)-CONF( 2)*PHI(     211)
      WRK1(   11)=-PHI(     298)-CONF( 3)*PHI(     211)
      WRK1(    3)=-PHI(     208)-CONF( 1)*PHI(     107)
      WRK1(    4)=-PHI(     209)-CONF( 2)*PHI(     107)
      WRK1(    5)=-PHI(     211)-CONF( 3)*PHI(     107)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      71)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      71)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      71)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    6)=-PHI(     294)-CONF( 1)*PHI(     210)
      WRK1(    7)=-PHI(     295)-CONF( 1)*PHI(     211)
      WRK1(    8)=-PHI(     296)-CONF( 2)*PHI(     211)
      WRK1(    9)=-PHI(     297)-CONF( 1)*PHI(     212)
      WRK1(   10)=-PHI(     298)-CONF( 2)*PHI(     212)
      WRK1(   11)=-PHI(     299)-CONF( 3)*PHI(     212)
      WRK1(    3)=-PHI(     210)-CONF( 1)*PHI(     108)
      WRK1(    4)=-PHI(     211)-CONF( 2)*PHI(     108)
      WRK1(    5)=-PHI(     212)-CONF( 3)*PHI(     108)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      72)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      72)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      72)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    6)= PHI(     186)+CONF( 1)*PHI(      97)
      WRK1(    7)= PHI(     187)+CONF( 1)*PHI(      98)
      WRK1(    8)= PHI(     188)+CONF( 2)*PHI(      98)
      WRK1(    9)= PHI(     189)+CONF( 1)*PHI(      99)
      WRK1(   10)= PHI(     190)+CONF( 2)*PHI(      99)
      WRK1(   11)= PHI(     191)+CONF( 3)*PHI(      99)
      WRK1(    3)= PHI(      97)+CONF( 1)*PHI(      60)
      WRK1(    4)= PHI(      98)+CONF( 2)*PHI(      60)
      WRK1(    5)= PHI(      99)+CONF( 3)*PHI(      60)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      53)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      53)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      53)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    6)= PHI(     165)+CONF( 1)*PHI(      88)
      WRK1(    7)= PHI(     166)+CONF( 1)*PHI(      89)
      WRK1(    8)= PHI(     167)+CONF( 2)*PHI(      89)
      WRK1(    9)= PHI(     168)+CONF( 1)*PHI(      90)
      WRK1(   10)= PHI(     169)+CONF( 2)*PHI(      90)
      WRK1(   11)= PHI(     170)+CONF( 3)*PHI(      90)
      WRK1(    3)= PHI(      88)+CONF( 1)*PHI(      57)
      WRK1(    4)= PHI(      89)+CONF( 2)*PHI(      57)
      WRK1(    5)= PHI(      90)+CONF( 3)*PHI(      57)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      50)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      50)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      50)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    6)=-PHI(     316)-CONF( 1)*PHI(     221)
      WRK1(    7)=-PHI(     317)-CONF( 1)*PHI(     222)
      WRK1(    8)=-PHI(     318)-CONF( 2)*PHI(     222)
      WRK1(    9)=-PHI(     320)-CONF( 1)*PHI(     224)
      WRK1(   10)=-PHI(     321)-CONF( 2)*PHI(     224)
      WRK1(   11)=-PHI(     323)-CONF( 3)*PHI(     224)
      WRK1(    3)=-PHI(     221)-CONF( 1)*PHI(     112)
      WRK1(    4)=-PHI(     222)-CONF( 2)*PHI(     112)
      WRK1(    5)=-PHI(     224)-CONF( 3)*PHI(     112)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      76)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      76)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      76)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    6)=-PHI(     317)-CONF( 1)*PHI(     222)
      WRK1(    7)=-PHI(     318)-CONF( 1)*PHI(     223)
      WRK1(    8)=-PHI(     319)-CONF( 2)*PHI(     223)
      WRK1(    9)=-PHI(     321)-CONF( 1)*PHI(     225)
      WRK1(   10)=-PHI(     322)-CONF( 2)*PHI(     225)
      WRK1(   11)=-PHI(     324)-CONF( 3)*PHI(     225)
      WRK1(    3)=-PHI(     222)-CONF( 1)*PHI(     113)
      WRK1(    4)=-PHI(     223)-CONF( 2)*PHI(     113)
      WRK1(    5)=-PHI(     225)-CONF( 3)*PHI(     113)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      77)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      77)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      77)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    6)=-PHI(     320)-CONF( 1)*PHI(     224)
      WRK1(    7)=-PHI(     321)-CONF( 1)*PHI(     225)
      WRK1(    8)=-PHI(     322)-CONF( 2)*PHI(     225)
      WRK1(    9)=-PHI(     323)-CONF( 1)*PHI(     226)
      WRK1(   10)=-PHI(     324)-CONF( 2)*PHI(     226)
      WRK1(   11)=-PHI(     325)-CONF( 3)*PHI(     226)
      WRK1(    3)=-PHI(     224)-CONF( 1)*PHI(     114)
      WRK1(    4)=-PHI(     225)-CONF( 2)*PHI(     114)
      WRK1(    5)=-PHI(     226)-CONF( 3)*PHI(     114)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      78)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      78)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      78)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    6)= PHI(     438)+CONF( 1)*PHI(     355)
      WRK1(    7)= PHI(     439)+CONF( 1)*PHI(     356)
      WRK1(    8)= PHI(     440)+CONF( 2)*PHI(     356)
      WRK1(    9)= PHI(     443)+CONF( 1)*PHI(     359)
      WRK1(   10)= PHI(     444)+CONF( 2)*PHI(     359)
      WRK1(   11)= PHI(     447)+CONF( 3)*PHI(     359)
      WRK1(    3)= PHI(     355)+CONF( 1)*PHI(     242)
      WRK1(    4)= PHI(     356)+CONF( 2)*PHI(     242)
      WRK1(    5)= PHI(     359)+CONF( 3)*PHI(     242)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     137)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     137)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     137)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    6)= PHI(     439)+CONF( 1)*PHI(     356)
      WRK1(    7)= PHI(     440)+CONF( 1)*PHI(     357)
      WRK1(    8)= PHI(     441)+CONF( 2)*PHI(     357)
      WRK1(    9)= PHI(     444)+CONF( 1)*PHI(     360)
      WRK1(   10)= PHI(     445)+CONF( 2)*PHI(     360)
      WRK1(   11)= PHI(     448)+CONF( 3)*PHI(     360)
      WRK1(    3)= PHI(     356)+CONF( 1)*PHI(     243)
      WRK1(    4)= PHI(     357)+CONF( 2)*PHI(     243)
      WRK1(    5)= PHI(     360)+CONF( 3)*PHI(     243)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     138)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     138)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     138)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   11)
      WRK1(    6)= PHI(     440)+CONF( 1)*PHI(     357)
      WRK1(    7)= PHI(     441)+CONF( 1)*PHI(     358)
      WRK1(    8)= PHI(     442)+CONF( 2)*PHI(     358)
      WRK1(    9)= PHI(     445)+CONF( 1)*PHI(     361)
      WRK1(   10)= PHI(     446)+CONF( 2)*PHI(     361)
      WRK1(   11)= PHI(     449)+CONF( 3)*PHI(     361)
      WRK1(    3)= PHI(     357)+CONF( 1)*PHI(     244)
      WRK1(    4)= PHI(     358)+CONF( 2)*PHI(     244)
      WRK1(    5)= PHI(     361)+CONF( 3)*PHI(     244)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     139)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     139)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     139)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   12)
      WRK1(    6)= PHI(     443)+CONF( 1)*PHI(     359)
      WRK1(    7)= PHI(     444)+CONF( 1)*PHI(     360)
      WRK1(    8)= PHI(     445)+CONF( 2)*PHI(     360)
      WRK1(    9)= PHI(     447)+CONF( 1)*PHI(     362)
      WRK1(   10)= PHI(     448)+CONF( 2)*PHI(     362)
      WRK1(   11)= PHI(     450)+CONF( 3)*PHI(     362)
      WRK1(    3)= PHI(     359)+CONF( 1)*PHI(     245)
      WRK1(    4)= PHI(     360)+CONF( 2)*PHI(     245)
      WRK1(    5)= PHI(     362)+CONF( 3)*PHI(     245)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     140)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     140)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     140)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   13)
      WRK1(    6)= PHI(     444)+CONF( 1)*PHI(     360)
      WRK1(    7)= PHI(     445)+CONF( 1)*PHI(     361)
      WRK1(    8)= PHI(     446)+CONF( 2)*PHI(     361)
      WRK1(    9)= PHI(     448)+CONF( 1)*PHI(     363)
      WRK1(   10)= PHI(     449)+CONF( 2)*PHI(     363)
      WRK1(   11)= PHI(     451)+CONF( 3)*PHI(     363)
      WRK1(    3)= PHI(     360)+CONF( 1)*PHI(     246)
      WRK1(    4)= PHI(     361)+CONF( 2)*PHI(     246)
      WRK1(    5)= PHI(     363)+CONF( 3)*PHI(     246)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     141)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     141)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     141)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   14)
      WRK1(    6)= PHI(     447)+CONF( 1)*PHI(     362)
      WRK1(    7)= PHI(     448)+CONF( 1)*PHI(     363)
      WRK1(    8)= PHI(     449)+CONF( 2)*PHI(     363)
      WRK1(    9)= PHI(     450)+CONF( 1)*PHI(     364)
      WRK1(   10)= PHI(     451)+CONF( 2)*PHI(     364)
      WRK1(   11)= PHI(     452)+CONF( 3)*PHI(     364)
      WRK1(    3)= PHI(     362)+CONF( 1)*PHI(     247)
      WRK1(    4)= PHI(     363)+CONF( 2)*PHI(     247)
      WRK1(    5)= PHI(     364)+CONF( 3)*PHI(     247)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     142)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     142)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     142)
      CALL DSPP_BCTE(WRK1,WRK2,LENW,CONF,   15)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     6
      WRK2(    2,I)=WRK2(    2,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    7,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 1)*WRK2(    8,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 2)*WRK2(    8,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    5,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    5,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    7,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    7,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 2)*WRK2(    8,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    7,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    8,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   10,I)-CONF( 1)*WRK2(    2,I)
      WRK2(   17,I)=WRK2(   11,I)-CONF( 1)*WRK2(    3,I)
      WRK2(   18,I)=WRK2(   13,I)-CONF( 1)*WRK2(    4,I)
      WRK2(   19,I)=WRK2(   11,I)-CONF( 2)*WRK2(    2,I)
      WRK2(   20,I)=WRK2(   12,I)-CONF( 2)*WRK2(    3,I)
      WRK2(   21,I)=WRK2(   14,I)-CONF( 2)*WRK2(    4,I)
      WRK2(   22,I)=WRK2(   13,I)-CONF( 3)*WRK2(    2,I)
      WRK2(   23,I)=WRK2(   14,I)-CONF( 3)*WRK2(    3,I)
      WRK2(   24,I)=WRK2(   15,I)-CONF( 3)*WRK2(    4,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DSPP_BCTE
      SUBROUTINE DSPP_BCTE(WRK1,WRK2,LENW,CONF,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*),CONF(*)
      WRK1(    6)=WRK1(    6)+CONF( 1)*WRK1(    3)
      WRK1(    7)=WRK1(    7)+CONF( 2)*WRK1(    3)
      WRK1(    8)=WRK1(    8)+CONF( 2)*WRK1(    4)
      WRK1(    9)=WRK1(    9)+CONF( 3)*WRK1(    3)
      WRK1(   10)=WRK1(   10)+CONF( 3)*WRK1(    4)
      WRK1(   11)=WRK1(   11)+CONF( 3)*WRK1(    5)
      J=       5
      DO I=1,     6
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=     389
C  LWK1=      11
C  LWK2=      66
C  LENW=      11
C*MODULE INT2D   *DECK DSDS
      SUBROUTINE DSDS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 4),CXYZ( 35)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 4)
      KL=0
      PHI(      50)=ZERO
      PHI(      52)=ZERO
      PHI(      56)=ZERO
      PHI(      58)=ZERO
      PHI(      68)=ZERO
      PHI(      69)=ZERO
      PHI(      70)=ZERO
      PHI(      80)=ZERO
      PHI(      81)=ZERO
      PHI(      82)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(      97)=ZERO
      DO I=     119,     125
      PHI(I)=ZERO
      END DO
      DO I=     147,     153
      PHI(I)=ZERO
      END DO
      DO I=     161,     167
      PHI(I)=ZERO
      END DO
      DO I=     182,     188
      PHI(I)=ZERO
      END DO
      DO I=     203,     209
      PHI(I)=ZERO
      END DO
      DO I=     249,     261
      PHI(I)=ZERO
      END DO
      DO I=     288,     300
      PHI(I)=ZERO
      END DO
      DO I=     367,     388
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      51)=ZERO
      PHI(      55)=ZERO
      PHI(      57)=ZERO
      PHI(      65)=ZERO
      PHI(      66)=ZERO
      PHI(      67)=ZERO
      PHI(      77)=ZERO
      PHI(      78)=ZERO
      PHI(      79)=ZERO
      PHI(      83)=ZERO
      PHI(      84)=ZERO
      PHI(      85)=ZERO
      PHI(      92)=ZERO
      PHI(      93)=ZERO
      PHI(      94)=ZERO
      DO I=     112,     118
      PHI(I)=ZERO
      END DO
      DO I=     140,     146
      PHI(I)=ZERO
      END DO
      DO I=     154,     160
      PHI(I)=ZERO
      END DO
      DO I=     175,     181
      PHI(I)=ZERO
      END DO
      DO I=     196,     202
      PHI(I)=ZERO
      END DO
      DO I=     236,     248
      PHI(I)=ZERO
      END DO
      DO I=     275,     287
      PHI(I)=ZERO
      END DO
      DO I=     345,     366
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      48)=ZERO
      PHI(      54)=ZERO
      PHI(      62)=ZERO
      PHI(      63)=ZERO
      PHI(      64)=ZERO
      PHI(      74)=ZERO
      PHI(      75)=ZERO
      PHI(      76)=ZERO
      PHI(      89)=ZERO
      PHI(      90)=ZERO
      PHI(      91)=ZERO
      DO I=     105,     111
      PHI(I)=ZERO
      END DO
      DO I=     133,     139
      PHI(I)=ZERO
      END DO
      DO I=     168,     174
      PHI(I)=ZERO
      END DO
      DO I=     189,     195
      PHI(I)=ZERO
      END DO
      DO I=     223,     235
      PHI(I)=ZERO
      END DO
      DO I=     262,     274
      PHI(I)=ZERO
      END DO
      DO I=     323,     344
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      53)=ZERO
      PHI(      59)=ZERO
      PHI(      60)=ZERO
      PHI(      61)=ZERO
      PHI(      71)=ZERO
      PHI(      72)=ZERO
      PHI(      73)=ZERO
      DO I=      98,     104
      PHI(I)=ZERO
      END DO
      DO I=     126,     132
      PHI(I)=ZERO
      END DO
      DO I=     210,     222
      PHI(I)=ZERO
      END DO
      DO I=     301,     322
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 4)
      FX=(FX + FGRID(3,IPT, 4))*TVAL
      FX=(FX + FGRID(2,IPT, 4))*TVAL
      FX=(FX + FGRID(1,IPT, 4))*TVAL
      FX= FX + FGRID(0,IPT, 4)
      FT( 4)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      47)=PHI(      47)+FAC*PHI(       1)
      FAC=SFAC( 3)
      PHI(      53)=PHI(      53)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      59)=PHI(      59)+FAC*PHI(       2)
      PHI(      60)=PHI(      60)+FAC*PHI(       3)
      PHI(      61)=PHI(      61)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(      71)=PHI(      71)+FAC*PHI(       2)
      PHI(      72)=PHI(      72)+FAC*PHI(       3)
      PHI(      73)=PHI(      73)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=      98,     104
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     126,     132
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     210,     222
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     301,     322
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      48)=PHI(      48)+FAC*PHI(      47)
      FAC=SFAC( 3)
      PHI(      54)=PHI(      54)+FAC*PHI(      53)
      FAC=SFAC( 1)
      PHI(      62)=PHI(      62)+FAC*PHI(      59)
      PHI(      63)=PHI(      63)+FAC*PHI(      60)
      PHI(      64)=PHI(      64)+FAC*PHI(      61)
      FAC=SFAC( 2)
      PHI(      74)=PHI(      74)+FAC*PHI(      71)
      PHI(      75)=PHI(      75)+FAC*PHI(      72)
      PHI(      76)=PHI(      76)+FAC*PHI(      73)
      FAC=SFAC( 3)
      PHI(      89)=PHI(      89)+FAC*PHI(      71)
      PHI(      90)=PHI(      90)+FAC*PHI(      72)
      PHI(      91)=PHI(      91)+FAC*PHI(      73)
      FAC=SFAC( 1)
      J=      98
      DO I=     105,     111
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     126
      DO I=     133,     139
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     126
      DO I=     168,     174
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     126
      DO I=     189,     195
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     210
      DO I=     223,     235
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     210
      DO I=     262,     274
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     301
      DO I=     323,     344
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      51)=PHI(      51)+FAC*PHI(      48)
      FAC=SFAC( 2)
      PHI(      55)=PHI(      55)+FAC*PHI(      54)
      FAC=SFAC( 3)
      PHI(      57)=PHI(      57)+FAC*PHI(      54)
      FAC=SFAC( 3)
      PHI(      65)=PHI(      65)+FAC*PHI(      62)
      PHI(      66)=PHI(      66)+FAC*PHI(      63)
      PHI(      67)=PHI(      67)+FAC*PHI(      64)
      FAC=SFAC( 2)
      PHI(      77)=PHI(      77)+FAC*PHI(      74)
      PHI(      78)=PHI(      78)+FAC*PHI(      75)
      PHI(      79)=PHI(      79)+FAC*PHI(      76)
      FAC=SFAC( 3)
      PHI(      83)=PHI(      83)+FAC*PHI(      74)
      PHI(      84)=PHI(      84)+FAC*PHI(      75)
      PHI(      85)=PHI(      85)+FAC*PHI(      76)
      FAC=SFAC( 3)
      PHI(      92)=PHI(      92)+FAC*PHI(      89)
      PHI(      93)=PHI(      93)+FAC*PHI(      90)
      PHI(      94)=PHI(      94)+FAC*PHI(      91)
      FAC=SFAC( 3)
      J=     105
      DO I=     112,     118
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     133
      DO I=     140,     146
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     133
      DO I=     154,     160
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     168
      DO I=     175,     181
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     189
      DO I=     196,     202
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     223
      DO I=     236,     248
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     262
      DO I=     275,     287
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     323
      DO I=     345,     366
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      50)=PHI(      50)+FAC*PHI(      49)
      FAC=SFAC( 3)
      PHI(      52)=PHI(      52)+FAC*PHI(      51)
      FAC=SFAC( 1)
      PHI(      56)=PHI(      56)+FAC*PHI(      55)
      FAC=SFAC( 3)
      PHI(      58)=PHI(      58)+FAC*PHI(      57)
      FAC=SFAC( 2)
      PHI(      68)=PHI(      68)+FAC*PHI(      65)
      PHI(      69)=PHI(      69)+FAC*PHI(      66)
      PHI(      70)=PHI(      70)+FAC*PHI(      67)
      FAC=SFAC( 1)
      PHI(      80)=PHI(      80)+FAC*PHI(      77)
      PHI(      81)=PHI(      81)+FAC*PHI(      78)
      PHI(      82)=PHI(      82)+FAC*PHI(      79)
      FAC=SFAC( 3)
      PHI(      86)=PHI(      86)+FAC*PHI(      83)
      PHI(      87)=PHI(      87)+FAC*PHI(      84)
      PHI(      88)=PHI(      88)+FAC*PHI(      85)
      FAC=SFAC( 2)
      PHI(      95)=PHI(      95)+FAC*PHI(      92)
      PHI(      96)=PHI(      96)+FAC*PHI(      93)
      PHI(      97)=PHI(      97)+FAC*PHI(      94)
      FAC=SFAC( 1)
      J=     112
      DO I=     119,     125
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     140
      DO I=     147,     153
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     154
      DO I=     161,     167
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     175
      DO I=     182,     188
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     196
      DO I=     203,     209
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     236
      DO I=     249,     261
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     275
      DO I=     288,     300
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     345
      DO I=     367,     388
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     120)=PHI(     120)-D01*PHI(     119)
      PHI(     122)=PHI(     122)-D01*PHI(     119)
      PHI(     125)=PHI(     125)-D01*PHI(     119)
      PHI(     148)=PHI(     148)-D01*PHI(     147)
      PHI(     150)=PHI(     150)-D01*PHI(     147)
      PHI(     153)=PHI(     153)-D01*PHI(     147)
      PHI(     162)=PHI(     162)-D01*PHI(     161)
      PHI(     164)=PHI(     164)-D01*PHI(     161)
      PHI(     167)=PHI(     167)-D01*PHI(     161)
      PHI(     183)=PHI(     183)-D01*PHI(     182)
      PHI(     185)=PHI(     185)-D01*PHI(     182)
      PHI(     188)=PHI(     188)-D01*PHI(     182)
      PHI(     204)=PHI(     204)-D01*PHI(     203)
      PHI(     206)=PHI(     206)-D01*PHI(     203)
      PHI(     209)=PHI(     209)-D01*PHI(     203)
      PHI(     252)=PHI(     252)-D01*PHI(     249)
      PHI(     253)=PHI(     253)-D01*PHI(     250)
      PHI(     255)=PHI(     255)-D01*PHI(     250)
      PHI(     256)=PHI(     256)-D01*PHI(     251)
      PHI(     258)=PHI(     258)-D01*PHI(     251)
      PHI(     261)=PHI(     261)-D01*PHI(     251)
      PHI(     252)=PHI(     252)-D02*PHI(     249)
      PHI(     254)=PHI(     254)-D01*PHI(     249)
      PHI(     255)=PHI(     255)-D02*PHI(     250)
      PHI(     259)=PHI(     259)-D01*PHI(     249)
      PHI(     260)=PHI(     260)-D01*PHI(     250)
      PHI(     261)=PHI(     261)-D02*PHI(     251)
      PHI(     291)=PHI(     291)-D01*PHI(     288)
      PHI(     292)=PHI(     292)-D01*PHI(     289)
      PHI(     294)=PHI(     294)-D01*PHI(     289)
      PHI(     295)=PHI(     295)-D01*PHI(     290)
      PHI(     297)=PHI(     297)-D01*PHI(     290)
      PHI(     300)=PHI(     300)-D01*PHI(     290)
      PHI(     291)=PHI(     291)-D02*PHI(     288)
      PHI(     293)=PHI(     293)-D01*PHI(     288)
      PHI(     294)=PHI(     294)-D02*PHI(     289)
      PHI(     298)=PHI(     298)-D01*PHI(     288)
      PHI(     299)=PHI(     299)-D01*PHI(     289)
      PHI(     300)=PHI(     300)-D02*PHI(     290)
      PHI(     374)=PHI(     374)-D01*PHI(     368)
      PHI(     375)=PHI(     375)-D01*PHI(     369)
      PHI(     376)=PHI(     376)-D01*PHI(     370)
      PHI(     378)=PHI(     378)-D01*PHI(     370)
      PHI(     379)=PHI(     379)-D01*PHI(     371)
      PHI(     380)=PHI(     380)-D01*PHI(     372)
      PHI(     382)=PHI(     382)-D01*PHI(     372)
      PHI(     383)=PHI(     383)-D01*PHI(     373)
      PHI(     385)=PHI(     385)-D01*PHI(     373)
      PHI(     388)=PHI(     388)-D01*PHI(     373)
      PHI(     374)=PHI(     374)-D02*PHI(     368)
      PHI(     375)=PHI(     375)-D02*PHI(     369)
      PHI(     377)=PHI(     377)-D01*PHI(     369)
      PHI(     378)=PHI(     378)-D02*PHI(     370)
      PHI(     379)=PHI(     379)-D02*PHI(     371)
      PHI(     381)=PHI(     381)-D01*PHI(     371)
      PHI(     382)=PHI(     382)-D02*PHI(     372)
      PHI(     386)=PHI(     386)-D01*PHI(     371)
      PHI(     387)=PHI(     387)-D01*PHI(     372)
      PHI(     388)=PHI(     388)-D02*PHI(     373)
      PHI(     368)=PHI(     368)-D01*PHI(     367)
      PHI(     370)=PHI(     370)-D01*PHI(     367)
      PHI(     373)=PHI(     373)-D01*PHI(     367)
      PHI(     374)=PHI(     374)-D03*PHI(     368)
      PHI(     376)=PHI(     376)-D01*PHI(     368)
      PHI(     377)=PHI(     377)-D02*PHI(     369)
      PHI(     378)=PHI(     378)-D03*PHI(     370)
      PHI(     383)=PHI(     383)-D01*PHI(     368)
      PHI(     384)=PHI(     384)-D01*PHI(     369)
      PHI(     385)=PHI(     385)-D01*PHI(     370)
      PHI(     386)=PHI(     386)-D02*PHI(     371)
      PHI(     387)=PHI(     387)-D02*PHI(     372)
      PHI(     388)=PHI(     388)-D03*PHI(     373)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    6)= PHI(     162)+CONF( 1)*PHI(      86)
      WRK1(    7)= PHI(     163)+CONF( 1)*PHI(      87)
      WRK1(    8)= PHI(     164)+CONF( 2)*PHI(      87)
      WRK1(    9)= PHI(     165)+CONF( 1)*PHI(      88)
      WRK1(   10)= PHI(     166)+CONF( 2)*PHI(      88)
      WRK1(   11)= PHI(     167)+CONF( 3)*PHI(      88)
      WRK1(    3)= PHI(      86)+CONF( 1)*PHI(      58)
      WRK1(    4)= PHI(      87)+CONF( 2)*PHI(      58)
      WRK1(    5)= PHI(      88)+CONF( 3)*PHI(      58)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      52)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      52)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      52)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    6)= PHI(     148)+CONF( 1)*PHI(      80)
      WRK1(    7)= PHI(     149)+CONF( 1)*PHI(      81)
      WRK1(    8)= PHI(     150)+CONF( 2)*PHI(      81)
      WRK1(    9)= PHI(     151)+CONF( 1)*PHI(      82)
      WRK1(   10)= PHI(     152)+CONF( 2)*PHI(      82)
      WRK1(   11)= PHI(     153)+CONF( 3)*PHI(      82)
      WRK1(    3)= PHI(      80)+CONF( 1)*PHI(      56)
      WRK1(    4)= PHI(      81)+CONF( 2)*PHI(      56)
      WRK1(    5)= PHI(      82)+CONF( 3)*PHI(      56)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      50)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      50)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      50)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    6)=-PHI(     252)-CONF( 1)*PHI(     183)
      WRK1(    7)=-PHI(     253)-CONF( 1)*PHI(     184)
      WRK1(    8)=-PHI(     254)-CONF( 2)*PHI(     184)
      WRK1(    9)=-PHI(     256)-CONF( 1)*PHI(     186)
      WRK1(   10)=-PHI(     257)-CONF( 2)*PHI(     186)
      WRK1(   11)=-PHI(     259)-CONF( 3)*PHI(     186)
      WRK1(    3)=-PHI(     183)-CONF( 1)*PHI(      95)
      WRK1(    4)=-PHI(     184)-CONF( 2)*PHI(      95)
      WRK1(    5)=-PHI(     186)-CONF( 3)*PHI(      95)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      68)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      68)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      68)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    6)=-PHI(     253)-CONF( 1)*PHI(     184)
      WRK1(    7)=-PHI(     254)-CONF( 1)*PHI(     185)
      WRK1(    8)=-PHI(     255)-CONF( 2)*PHI(     185)
      WRK1(    9)=-PHI(     257)-CONF( 1)*PHI(     187)
      WRK1(   10)=-PHI(     258)-CONF( 2)*PHI(     187)
      WRK1(   11)=-PHI(     260)-CONF( 3)*PHI(     187)
      WRK1(    3)=-PHI(     184)-CONF( 1)*PHI(      96)
      WRK1(    4)=-PHI(     185)-CONF( 2)*PHI(      96)
      WRK1(    5)=-PHI(     187)-CONF( 3)*PHI(      96)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      69)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      69)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      69)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    6)=-PHI(     256)-CONF( 1)*PHI(     186)
      WRK1(    7)=-PHI(     257)-CONF( 1)*PHI(     187)
      WRK1(    8)=-PHI(     258)-CONF( 2)*PHI(     187)
      WRK1(    9)=-PHI(     259)-CONF( 1)*PHI(     188)
      WRK1(   10)=-PHI(     260)-CONF( 2)*PHI(     188)
      WRK1(   11)=-PHI(     261)-CONF( 3)*PHI(     188)
      WRK1(    3)=-PHI(     186)-CONF( 1)*PHI(      97)
      WRK1(    4)=-PHI(     187)-CONF( 2)*PHI(      97)
      WRK1(    5)=-PHI(     188)-CONF( 3)*PHI(      97)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(      70)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(      70)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(      70)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    6)= PHI(     374)+CONF( 1)*PHI(     291)
      WRK1(    7)= PHI(     375)+CONF( 1)*PHI(     292)
      WRK1(    8)= PHI(     376)+CONF( 2)*PHI(     292)
      WRK1(    9)= PHI(     379)+CONF( 1)*PHI(     295)
      WRK1(   10)= PHI(     380)+CONF( 2)*PHI(     295)
      WRK1(   11)= PHI(     383)+CONF( 3)*PHI(     295)
      WRK1(    3)= PHI(     291)+CONF( 1)*PHI(     204)
      WRK1(    4)= PHI(     292)+CONF( 2)*PHI(     204)
      WRK1(    5)= PHI(     295)+CONF( 3)*PHI(     204)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     120)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     120)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     120)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    6)= PHI(     375)+CONF( 1)*PHI(     292)
      WRK1(    7)= PHI(     376)+CONF( 1)*PHI(     293)
      WRK1(    8)= PHI(     377)+CONF( 2)*PHI(     293)
      WRK1(    9)= PHI(     380)+CONF( 1)*PHI(     296)
      WRK1(   10)= PHI(     381)+CONF( 2)*PHI(     296)
      WRK1(   11)= PHI(     384)+CONF( 3)*PHI(     296)
      WRK1(    3)= PHI(     292)+CONF( 1)*PHI(     205)
      WRK1(    4)= PHI(     293)+CONF( 2)*PHI(     205)
      WRK1(    5)= PHI(     296)+CONF( 3)*PHI(     205)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     121)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     121)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     121)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    6)= PHI(     376)+CONF( 1)*PHI(     293)
      WRK1(    7)= PHI(     377)+CONF( 1)*PHI(     294)
      WRK1(    8)= PHI(     378)+CONF( 2)*PHI(     294)
      WRK1(    9)= PHI(     381)+CONF( 1)*PHI(     297)
      WRK1(   10)= PHI(     382)+CONF( 2)*PHI(     297)
      WRK1(   11)= PHI(     385)+CONF( 3)*PHI(     297)
      WRK1(    3)= PHI(     293)+CONF( 1)*PHI(     206)
      WRK1(    4)= PHI(     294)+CONF( 2)*PHI(     206)
      WRK1(    5)= PHI(     297)+CONF( 3)*PHI(     206)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     122)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     122)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     122)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    6)= PHI(     379)+CONF( 1)*PHI(     295)
      WRK1(    7)= PHI(     380)+CONF( 1)*PHI(     296)
      WRK1(    8)= PHI(     381)+CONF( 2)*PHI(     296)
      WRK1(    9)= PHI(     383)+CONF( 1)*PHI(     298)
      WRK1(   10)= PHI(     384)+CONF( 2)*PHI(     298)
      WRK1(   11)= PHI(     386)+CONF( 3)*PHI(     298)
      WRK1(    3)= PHI(     295)+CONF( 1)*PHI(     207)
      WRK1(    4)= PHI(     296)+CONF( 2)*PHI(     207)
      WRK1(    5)= PHI(     298)+CONF( 3)*PHI(     207)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     123)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     123)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     123)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    6)= PHI(     380)+CONF( 1)*PHI(     296)
      WRK1(    7)= PHI(     381)+CONF( 1)*PHI(     297)
      WRK1(    8)= PHI(     382)+CONF( 2)*PHI(     297)
      WRK1(    9)= PHI(     384)+CONF( 1)*PHI(     299)
      WRK1(   10)= PHI(     385)+CONF( 2)*PHI(     299)
      WRK1(   11)= PHI(     387)+CONF( 3)*PHI(     299)
      WRK1(    3)= PHI(     296)+CONF( 1)*PHI(     208)
      WRK1(    4)= PHI(     297)+CONF( 2)*PHI(     208)
      WRK1(    5)= PHI(     299)+CONF( 3)*PHI(     208)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     124)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     124)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     124)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    6)= PHI(     383)+CONF( 1)*PHI(     298)
      WRK1(    7)= PHI(     384)+CONF( 1)*PHI(     299)
      WRK1(    8)= PHI(     385)+CONF( 2)*PHI(     299)
      WRK1(    9)= PHI(     386)+CONF( 1)*PHI(     300)
      WRK1(   10)= PHI(     387)+CONF( 2)*PHI(     300)
      WRK1(   11)= PHI(     388)+CONF( 3)*PHI(     300)
      WRK1(    3)= PHI(     298)+CONF( 1)*PHI(     209)
      WRK1(    4)= PHI(     299)+CONF( 2)*PHI(     209)
      WRK1(    5)= PHI(     300)+CONF( 3)*PHI(     209)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     125)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     125)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     125)
      CALL DSDS_BCTE(WRK1,WRK2,LENW,CONF,   11)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     6
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DSDS_BCTE
      SUBROUTINE DSDS_BCTE(WRK1,WRK2,LENW,CONF,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*),CONF(*)
      WRK1(    6)=WRK1(    6)+CONF( 1)*WRK1(    3)
      WRK1(    7)=WRK1(    7)+CONF( 2)*WRK1(    3)
      WRK1(    8)=WRK1(    8)+CONF( 2)*WRK1(    4)
      WRK1(    9)=WRK1(    9)+CONF( 3)*WRK1(    3)
      WRK1(   10)=WRK1(   10)+CONF( 3)*WRK1(    4)
      WRK1(   11)=WRK1(   11)+CONF( 3)*WRK1(    5)
      J=       5
      DO I=1,     6
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=     149
C  LWK1=       1
C  LWK2=      53
C  LENW=      53
C*MODULE INT2D   *DECK DPSS
      SUBROUTINE DPSS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ,KEQL,
     *                 XC,YC,ZC,XD,YD,ZD,PHI,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 3),CXYZ( 20)
      DOUBLE PRECISION PHI(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 3)
      KL=0
      PHI(      28)=ZERO
      PHI(      30)=ZERO
      PHI(      31)=ZERO
      PHI(      33)=ZERO
      PHI(      43)=ZERO
      PHI(      44)=ZERO
      PHI(      45)=ZERO
      PHI(      46)=ZERO
      PHI(      47)=ZERO
      PHI(      48)=ZERO
      PHI(      52)=ZERO
      PHI(      53)=ZERO
      PHI(      54)=ZERO
      DO I=      76,      82
      PHI(I)=ZERO
      END DO
      DO I=      90,      96
      PHI(I)=ZERO
      END DO
      DO I=     136,     148
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      27)=ZERO
      PHI(      29)=ZERO
      PHI(      32)=ZERO
      PHI(      40)=ZERO
      PHI(      41)=ZERO
      PHI(      42)=ZERO
      PHI(      49)=ZERO
      PHI(      50)=ZERO
      PHI(      51)=ZERO
      DO I=      69,      75
      PHI(I)=ZERO
      END DO
      DO I=      83,      89
      PHI(I)=ZERO
      END DO
      DO I=     123,     135
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      26)=ZERO
      PHI(      37)=ZERO
      PHI(      38)=ZERO
      PHI(      39)=ZERO
      DO I=      62,      68
      PHI(I)=ZERO
      END DO
      DO I=     110,     122
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      25)=ZERO
      PHI(      34)=ZERO
      PHI(      35)=ZERO
      PHI(      36)=ZERO
      DO I=      55,      61
      PHI(I)=ZERO
      END DO
      DO I=      97,     109
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 3)
      FX=(FX + FGRID(3,IPT, 3))*TVAL
      FX=(FX + FGRID(2,IPT, 3))*TVAL
      FX=(FX + FGRID(1,IPT, 3))*TVAL
      FX= FX + FGRID(0,IPT, 3)
      FT( 3)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      25)=PHI(      25)+FAC*PHI(       1)
      FAC=SFAC( 1)
      PHI(      34)=PHI(      34)+FAC*PHI(       2)
      PHI(      35)=PHI(      35)+FAC*PHI(       3)
      PHI(      36)=PHI(      36)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=      55,      61
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      12
      DO I=      97,     109
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      26)=PHI(      26)+FAC*PHI(      25)
      FAC=SFAC( 1)
      PHI(      37)=PHI(      37)+FAC*PHI(      34)
      PHI(      38)=PHI(      38)+FAC*PHI(      35)
      PHI(      39)=PHI(      39)+FAC*PHI(      36)
      FAC=SFAC( 1)
      J=      55
      DO I=      62,      68
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      97
      DO I=     110,     122
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 2)
      PHI(      27)=PHI(      27)+FAC*PHI(      26)
      FAC=SFAC( 3)
      PHI(      29)=PHI(      29)+FAC*PHI(      26)
      FAC=SFAC( 4)
      PHI(      32)=PHI(      32)+FAC*PHI(      26)
      FAC=SFAC( 3)
      PHI(      40)=PHI(      40)+FAC*PHI(      37)
      PHI(      41)=PHI(      41)+FAC*PHI(      38)
      PHI(      42)=PHI(      42)+FAC*PHI(      39)
      FAC=SFAC( 4)
      PHI(      49)=PHI(      49)+FAC*PHI(      37)
      PHI(      50)=PHI(      50)+FAC*PHI(      38)
      PHI(      51)=PHI(      51)+FAC*PHI(      39)
      FAC=SFAC( 3)
      J=      62
      DO I=      69,      75
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=      62
      DO I=      83,      89
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     110
      DO I=     123,     135
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 1)
      PHI(      28)=PHI(      28)+FAC*PHI(      27)
      FAC=SFAC( 2)
      PHI(      30)=PHI(      30)+FAC*PHI(      29)
      FAC=SFAC( 3)
      PHI(      31)=PHI(      31)+FAC*PHI(      29)
      FAC=SFAC( 4)
      PHI(      33)=PHI(      33)+FAC*PHI(      32)
      FAC=SFAC( 1)
      PHI(      43)=PHI(      43)+FAC*PHI(      40)
      PHI(      44)=PHI(      44)+FAC*PHI(      41)
      PHI(      45)=PHI(      45)+FAC*PHI(      42)
      FAC=SFAC( 2)
      PHI(      46)=PHI(      46)+FAC*PHI(      40)
      PHI(      47)=PHI(      47)+FAC*PHI(      41)
      PHI(      48)=PHI(      48)+FAC*PHI(      42)
      FAC=SFAC( 3)
      PHI(      52)=PHI(      52)+FAC*PHI(      49)
      PHI(      53)=PHI(      53)+FAC*PHI(      50)
      PHI(      54)=PHI(      54)+FAC*PHI(      51)
      FAC=SFAC( 1)
      J=      69
      DO I=      76,      82
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      83
      DO I=      90,      96
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     123
      DO I=     136,     148
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(      77)=PHI(      77)-D01*PHI(      76)
      PHI(      79)=PHI(      79)-D01*PHI(      76)
      PHI(      82)=PHI(      82)-D01*PHI(      76)
      PHI(      91)=PHI(      91)-D01*PHI(      90)
      PHI(      93)=PHI(      93)-D01*PHI(      90)
      PHI(      96)=PHI(      96)-D01*PHI(      90)
      PHI(     139)=PHI(     139)-D01*PHI(     136)
      PHI(     140)=PHI(     140)-D01*PHI(     137)
      PHI(     142)=PHI(     142)-D01*PHI(     137)
      PHI(     143)=PHI(     143)-D01*PHI(     138)
      PHI(     145)=PHI(     145)-D01*PHI(     138)
      PHI(     148)=PHI(     148)-D01*PHI(     138)
      PHI(     139)=PHI(     139)-D02*PHI(     136)
      PHI(     141)=PHI(     141)-D01*PHI(     136)
      PHI(     142)=PHI(     142)-D02*PHI(     137)
      PHI(     146)=PHI(     146)-D01*PHI(     136)
      PHI(     147)=PHI(     147)-D01*PHI(     137)
      PHI(     148)=PHI(     148)-D02*PHI(     138)
      WRK2(    1,1)= PHI(      31)
      WRK2(    2,1)= PHI(      28)
      WRK2(    3,1)=-PHI(      46)
      WRK2(    4,1)=-PHI(      47)
      WRK2(    5,1)=-PHI(      48)
      WRK2(    6,1)= PHI(      77)
      WRK2(    7,1)= PHI(      78)
      WRK2(    8,1)= PHI(      79)
      WRK2(    9,1)= PHI(      80)
      WRK2(   10,1)= PHI(      81)
      WRK2(   11,1)= PHI(      82)
      WRK2(   12,1)= PHI(      33)
      WRK2(   13,1)= PHI(      30)
      WRK2(   14,1)=-PHI(      52)
      WRK2(   15,1)=-PHI(      53)
      WRK2(   16,1)=-PHI(      54)
      WRK2(   17,1)=-PHI(      43)
      WRK2(   18,1)=-PHI(      44)
      WRK2(   19,1)=-PHI(      45)
      WRK2(   20,1)= PHI(      91)
      WRK2(   21,1)= PHI(      92)
      WRK2(   22,1)= PHI(      93)
      WRK2(   23,1)= PHI(      94)
      WRK2(   24,1)= PHI(      95)
      WRK2(   25,1)= PHI(      96)
      WRK2(   26,1)=-PHI(     139)
      WRK2(   27,1)=-PHI(     140)
      WRK2(   28,1)=-PHI(     141)
      WRK2(   29,1)=-PHI(     142)
      WRK2(   30,1)=-PHI(     143)
      WRK2(   31,1)=-PHI(     144)
      WRK2(   32,1)=-PHI(     145)
      WRK2(   33,1)=-PHI(     146)
      WRK2(   34,1)=-PHI(     147)
      WRK2(   35,1)=-PHI(     148)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   36,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   37,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   38,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   39,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   40,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   41,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   42,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   43,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(   44,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(   45,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(   46,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(   47,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(   48,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(   49,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(   50,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(   51,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(   52,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(   53,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      END DO
      RETURN
      END
C  LPHI=     390
C  LWK1=       4
C  LWK2=     159
C  LENW=      53
C*MODULE INT2D   *DECK DPPS
      SUBROUTINE DPPS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 4),CXYZ( 35)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 4)
      KL=0
      PHI(      50)=ZERO
      PHI(      52)=ZERO
      PHI(      53)=ZERO
      PHI(      55)=ZERO
      PHI(      65)=ZERO
      PHI(      66)=ZERO
      PHI(      67)=ZERO
      PHI(      71)=ZERO
      PHI(      72)=ZERO
      PHI(      73)=ZERO
      PHI(      74)=ZERO
      PHI(      75)=ZERO
      PHI(      76)=ZERO
      PHI(      80)=ZERO
      PHI(      81)=ZERO
      PHI(      82)=ZERO
      PHI(      89)=ZERO
      PHI(      90)=ZERO
      PHI(      91)=ZERO
      PHI(      92)=ZERO
      PHI(      93)=ZERO
      PHI(      94)=ZERO
      PHI(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     100)=ZERO
      DO I=     122,     128
      PHI(I)=ZERO
      END DO
      DO I=     129,     135
      PHI(I)=ZERO
      END DO
      DO I=     143,     149
      PHI(I)=ZERO
      END DO
      DO I=     164,     170
      PHI(I)=ZERO
      END DO
      DO I=     178,     184
      PHI(I)=ZERO
      END DO
      DO I=     224,     236
      PHI(I)=ZERO
      END DO
      DO I=     250,     262
      PHI(I)=ZERO
      END DO
      DO I=     289,     301
      PHI(I)=ZERO
      END DO
      DO I=     368,     389
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      51)=ZERO
      PHI(      54)=ZERO
      PHI(      62)=ZERO
      PHI(      63)=ZERO
      PHI(      64)=ZERO
      PHI(      68)=ZERO
      PHI(      69)=ZERO
      PHI(      70)=ZERO
      PHI(      77)=ZERO
      PHI(      78)=ZERO
      PHI(      79)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(      97)=ZERO
      DO I=     115,     121
      PHI(I)=ZERO
      END DO
      DO I=     136,     142
      PHI(I)=ZERO
      END DO
      DO I=     157,     163
      PHI(I)=ZERO
      END DO
      DO I=     171,     177
      PHI(I)=ZERO
      END DO
      DO I=     211,     223
      PHI(I)=ZERO
      END DO
      DO I=     237,     249
      PHI(I)=ZERO
      END DO
      DO I=     276,     288
      PHI(I)=ZERO
      END DO
      DO I=     346,     367
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      48)=ZERO
      PHI(      59)=ZERO
      PHI(      60)=ZERO
      PHI(      61)=ZERO
      PHI(      83)=ZERO
      PHI(      84)=ZERO
      PHI(      85)=ZERO
      DO I=     108,     114
      PHI(I)=ZERO
      END DO
      DO I=     150,     156
      PHI(I)=ZERO
      END DO
      DO I=     198,     210
      PHI(I)=ZERO
      END DO
      DO I=     263,     275
      PHI(I)=ZERO
      END DO
      DO I=     324,     345
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      56)=ZERO
      PHI(      57)=ZERO
      PHI(      58)=ZERO
      DO I=     101,     107
      PHI(I)=ZERO
      END DO
      DO I=     185,     197
      PHI(I)=ZERO
      END DO
      DO I=     302,     323
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 4)
      FX=(FX + FGRID(3,IPT, 4))*TVAL
      FX=(FX + FGRID(2,IPT, 4))*TVAL
      FX=(FX + FGRID(1,IPT, 4))*TVAL
      FX= FX + FGRID(0,IPT, 4)
      FT( 4)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      47)=PHI(      47)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      56)=PHI(      56)+FAC*PHI(       2)
      PHI(      57)=PHI(      57)+FAC*PHI(       3)
      PHI(      58)=PHI(      58)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     101,     107
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     185,     197
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     302,     323
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      48)=PHI(      48)+FAC*PHI(      47)
      FAC=SFAC( 1)
      PHI(      59)=PHI(      59)+FAC*PHI(      56)
      PHI(      60)=PHI(      60)+FAC*PHI(      57)
      PHI(      61)=PHI(      61)+FAC*PHI(      58)
      FAC=SFAC( 2)
      PHI(      83)=PHI(      83)+FAC*PHI(      56)
      PHI(      84)=PHI(      84)+FAC*PHI(      57)
      PHI(      85)=PHI(      85)+FAC*PHI(      58)
      FAC=SFAC( 1)
      J=     101
      DO I=     108,     114
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     101
      DO I=     150,     156
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     185
      DO I=     198,     210
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     185
      DO I=     263,     275
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     302
      DO I=     324,     345
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 2)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      51)=PHI(      51)+FAC*PHI(      48)
      FAC=SFAC( 4)
      PHI(      54)=PHI(      54)+FAC*PHI(      48)
      FAC=SFAC( 2)
      PHI(      62)=PHI(      62)+FAC*PHI(      59)
      PHI(      63)=PHI(      63)+FAC*PHI(      60)
      PHI(      64)=PHI(      64)+FAC*PHI(      61)
      FAC=SFAC( 3)
      PHI(      68)=PHI(      68)+FAC*PHI(      59)
      PHI(      69)=PHI(      69)+FAC*PHI(      60)
      PHI(      70)=PHI(      70)+FAC*PHI(      61)
      FAC=SFAC( 4)
      PHI(      77)=PHI(      77)+FAC*PHI(      59)
      PHI(      78)=PHI(      78)+FAC*PHI(      60)
      PHI(      79)=PHI(      79)+FAC*PHI(      61)
      FAC=SFAC( 3)
      PHI(      86)=PHI(      86)+FAC*PHI(      83)
      PHI(      87)=PHI(      87)+FAC*PHI(      84)
      PHI(      88)=PHI(      88)+FAC*PHI(      85)
      FAC=SFAC( 4)
      PHI(      95)=PHI(      95)+FAC*PHI(      83)
      PHI(      96)=PHI(      96)+FAC*PHI(      84)
      PHI(      97)=PHI(      97)+FAC*PHI(      85)
      FAC=SFAC( 3)
      J=     108
      DO I=     115,     121
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     108
      DO I=     136,     142
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     150
      DO I=     157,     163
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     150
      DO I=     171,     177
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     198
      DO I=     211,     223
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     198
      DO I=     237,     249
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     263
      DO I=     276,     288
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     324
      DO I=     346,     367
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 1)
      PHI(      50)=PHI(      50)+FAC*PHI(      49)
      FAC=SFAC( 2)
      PHI(      52)=PHI(      52)+FAC*PHI(      51)
      FAC=SFAC( 3)
      PHI(      53)=PHI(      53)+FAC*PHI(      51)
      FAC=SFAC( 4)
      PHI(      55)=PHI(      55)+FAC*PHI(      54)
      FAC=SFAC( 1)
      PHI(      65)=PHI(      65)+FAC*PHI(      62)
      PHI(      66)=PHI(      66)+FAC*PHI(      63)
      PHI(      67)=PHI(      67)+FAC*PHI(      64)
      FAC=SFAC( 2)
      PHI(      71)=PHI(      71)+FAC*PHI(      68)
      PHI(      72)=PHI(      72)+FAC*PHI(      69)
      PHI(      73)=PHI(      73)+FAC*PHI(      70)
      FAC=SFAC( 3)
      PHI(      74)=PHI(      74)+FAC*PHI(      68)
      PHI(      75)=PHI(      75)+FAC*PHI(      69)
      PHI(      76)=PHI(      76)+FAC*PHI(      70)
      FAC=SFAC( 4)
      PHI(      80)=PHI(      80)+FAC*PHI(      77)
      PHI(      81)=PHI(      81)+FAC*PHI(      78)
      PHI(      82)=PHI(      82)+FAC*PHI(      79)
      FAC=SFAC( 1)
      PHI(      89)=PHI(      89)+FAC*PHI(      86)
      PHI(      90)=PHI(      90)+FAC*PHI(      87)
      PHI(      91)=PHI(      91)+FAC*PHI(      88)
      FAC=SFAC( 2)
      PHI(      92)=PHI(      92)+FAC*PHI(      86)
      PHI(      93)=PHI(      93)+FAC*PHI(      87)
      PHI(      94)=PHI(      94)+FAC*PHI(      88)
      FAC=SFAC( 3)
      PHI(      98)=PHI(      98)+FAC*PHI(      95)
      PHI(      99)=PHI(      99)+FAC*PHI(      96)
      PHI(     100)=PHI(     100)+FAC*PHI(      97)
      FAC=SFAC( 1)
      J=     115
      DO I=     122,     128
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     115
      DO I=     129,     135
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     136
      DO I=     143,     149
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     157
      DO I=     164,     170
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     171
      DO I=     178,     184
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     211
      DO I=     224,     236
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     237
      DO I=     250,     262
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     276
      DO I=     289,     301
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     346
      DO I=     368,     389
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     123)=PHI(     123)-D01*PHI(     122)
      PHI(     125)=PHI(     125)-D01*PHI(     122)
      PHI(     128)=PHI(     128)-D01*PHI(     122)
      PHI(     130)=PHI(     130)-D01*PHI(     129)
      PHI(     132)=PHI(     132)-D01*PHI(     129)
      PHI(     135)=PHI(     135)-D01*PHI(     129)
      PHI(     144)=PHI(     144)-D01*PHI(     143)
      PHI(     146)=PHI(     146)-D01*PHI(     143)
      PHI(     149)=PHI(     149)-D01*PHI(     143)
      PHI(     165)=PHI(     165)-D01*PHI(     164)
      PHI(     167)=PHI(     167)-D01*PHI(     164)
      PHI(     170)=PHI(     170)-D01*PHI(     164)
      PHI(     179)=PHI(     179)-D01*PHI(     178)
      PHI(     181)=PHI(     181)-D01*PHI(     178)
      PHI(     184)=PHI(     184)-D01*PHI(     178)
      PHI(     227)=PHI(     227)-D01*PHI(     224)
      PHI(     228)=PHI(     228)-D01*PHI(     225)
      PHI(     230)=PHI(     230)-D01*PHI(     225)
      PHI(     231)=PHI(     231)-D01*PHI(     226)
      PHI(     233)=PHI(     233)-D01*PHI(     226)
      PHI(     236)=PHI(     236)-D01*PHI(     226)
      PHI(     227)=PHI(     227)-D02*PHI(     224)
      PHI(     229)=PHI(     229)-D01*PHI(     224)
      PHI(     230)=PHI(     230)-D02*PHI(     225)
      PHI(     234)=PHI(     234)-D01*PHI(     224)
      PHI(     235)=PHI(     235)-D01*PHI(     225)
      PHI(     236)=PHI(     236)-D02*PHI(     226)
      PHI(     253)=PHI(     253)-D01*PHI(     250)
      PHI(     254)=PHI(     254)-D01*PHI(     251)
      PHI(     256)=PHI(     256)-D01*PHI(     251)
      PHI(     257)=PHI(     257)-D01*PHI(     252)
      PHI(     259)=PHI(     259)-D01*PHI(     252)
      PHI(     262)=PHI(     262)-D01*PHI(     252)
      PHI(     253)=PHI(     253)-D02*PHI(     250)
      PHI(     255)=PHI(     255)-D01*PHI(     250)
      PHI(     256)=PHI(     256)-D02*PHI(     251)
      PHI(     260)=PHI(     260)-D01*PHI(     250)
      PHI(     261)=PHI(     261)-D01*PHI(     251)
      PHI(     262)=PHI(     262)-D02*PHI(     252)
      PHI(     292)=PHI(     292)-D01*PHI(     289)
      PHI(     293)=PHI(     293)-D01*PHI(     290)
      PHI(     295)=PHI(     295)-D01*PHI(     290)
      PHI(     296)=PHI(     296)-D01*PHI(     291)
      PHI(     298)=PHI(     298)-D01*PHI(     291)
      PHI(     301)=PHI(     301)-D01*PHI(     291)
      PHI(     292)=PHI(     292)-D02*PHI(     289)
      PHI(     294)=PHI(     294)-D01*PHI(     289)
      PHI(     295)=PHI(     295)-D02*PHI(     290)
      PHI(     299)=PHI(     299)-D01*PHI(     289)
      PHI(     300)=PHI(     300)-D01*PHI(     290)
      PHI(     301)=PHI(     301)-D02*PHI(     291)
      PHI(     375)=PHI(     375)-D01*PHI(     369)
      PHI(     376)=PHI(     376)-D01*PHI(     370)
      PHI(     377)=PHI(     377)-D01*PHI(     371)
      PHI(     379)=PHI(     379)-D01*PHI(     371)
      PHI(     380)=PHI(     380)-D01*PHI(     372)
      PHI(     381)=PHI(     381)-D01*PHI(     373)
      PHI(     383)=PHI(     383)-D01*PHI(     373)
      PHI(     384)=PHI(     384)-D01*PHI(     374)
      PHI(     386)=PHI(     386)-D01*PHI(     374)
      PHI(     389)=PHI(     389)-D01*PHI(     374)
      PHI(     375)=PHI(     375)-D02*PHI(     369)
      PHI(     376)=PHI(     376)-D02*PHI(     370)
      PHI(     378)=PHI(     378)-D01*PHI(     370)
      PHI(     379)=PHI(     379)-D02*PHI(     371)
      PHI(     380)=PHI(     380)-D02*PHI(     372)
      PHI(     382)=PHI(     382)-D01*PHI(     372)
      PHI(     383)=PHI(     383)-D02*PHI(     373)
      PHI(     387)=PHI(     387)-D01*PHI(     372)
      PHI(     388)=PHI(     388)-D01*PHI(     373)
      PHI(     389)=PHI(     389)-D02*PHI(     374)
      PHI(     369)=PHI(     369)-D01*PHI(     368)
      PHI(     371)=PHI(     371)-D01*PHI(     368)
      PHI(     374)=PHI(     374)-D01*PHI(     368)
      PHI(     375)=PHI(     375)-D03*PHI(     369)
      PHI(     377)=PHI(     377)-D01*PHI(     369)
      PHI(     378)=PHI(     378)-D02*PHI(     370)
      PHI(     379)=PHI(     379)-D03*PHI(     371)
      PHI(     384)=PHI(     384)-D01*PHI(     369)
      PHI(     385)=PHI(     385)-D01*PHI(     370)
      PHI(     386)=PHI(     386)-D01*PHI(     371)
      PHI(     387)=PHI(     387)-D02*PHI(     372)
      PHI(     388)=PHI(     388)-D02*PHI(     373)
      PHI(     389)=PHI(     389)-D03*PHI(     374)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(      74)+CONF( 1)*PHI(      53)
      WRK1(    3)= PHI(      75)+CONF( 2)*PHI(      53)
      WRK1(    4)= PHI(      76)+CONF( 3)*PHI(      53)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 1)
      WRK1(    2)= PHI(      65)+CONF( 1)*PHI(      50)
      WRK1(    3)= PHI(      66)+CONF( 2)*PHI(      50)
      WRK1(    4)= PHI(      67)+CONF( 3)*PHI(      50)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 2)
      WRK1(    2)=-PHI(     130)-CONF( 1)*PHI(      92)
      WRK1(    3)=-PHI(     131)-CONF( 2)*PHI(      92)
      WRK1(    4)=-PHI(     133)-CONF( 3)*PHI(      92)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 3)
      WRK1(    2)=-PHI(     131)-CONF( 1)*PHI(      93)
      WRK1(    3)=-PHI(     132)-CONF( 2)*PHI(      93)
      WRK1(    4)=-PHI(     134)-CONF( 3)*PHI(      93)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 4)
      WRK1(    2)=-PHI(     133)-CONF( 1)*PHI(      94)
      WRK1(    3)=-PHI(     134)-CONF( 2)*PHI(      94)
      WRK1(    4)=-PHI(     135)-CONF( 3)*PHI(      94)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 5)
      WRK1(    2)= PHI(     227)+CONF( 1)*PHI(     165)
      WRK1(    3)= PHI(     228)+CONF( 2)*PHI(     165)
      WRK1(    4)= PHI(     231)+CONF( 3)*PHI(     165)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 6)
      WRK1(    2)= PHI(     228)+CONF( 1)*PHI(     166)
      WRK1(    3)= PHI(     229)+CONF( 2)*PHI(     166)
      WRK1(    4)= PHI(     232)+CONF( 3)*PHI(     166)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 7)
      WRK1(    2)= PHI(     229)+CONF( 1)*PHI(     167)
      WRK1(    3)= PHI(     230)+CONF( 2)*PHI(     167)
      WRK1(    4)= PHI(     233)+CONF( 3)*PHI(     167)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 8)
      WRK1(    2)= PHI(     231)+CONF( 1)*PHI(     168)
      WRK1(    3)= PHI(     232)+CONF( 2)*PHI(     168)
      WRK1(    4)= PHI(     234)+CONF( 3)*PHI(     168)
      CALL DPPS_BCTE(WRK1,WRK2,LENW, 9)
      WRK1(    2)= PHI(     232)+CONF( 1)*PHI(     169)
      WRK1(    3)= PHI(     233)+CONF( 2)*PHI(     169)
      WRK1(    4)= PHI(     235)+CONF( 3)*PHI(     169)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,10)
      WRK1(    2)= PHI(     234)+CONF( 1)*PHI(     170)
      WRK1(    3)= PHI(     235)+CONF( 2)*PHI(     170)
      WRK1(    4)= PHI(     236)+CONF( 3)*PHI(     170)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,11)
      WRK1(    2)= PHI(      80)+CONF( 1)*PHI(      55)
      WRK1(    3)= PHI(      81)+CONF( 2)*PHI(      55)
      WRK1(    4)= PHI(      82)+CONF( 3)*PHI(      55)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,12)
      WRK1(    2)= PHI(      71)+CONF( 1)*PHI(      52)
      WRK1(    3)= PHI(      72)+CONF( 2)*PHI(      52)
      WRK1(    4)= PHI(      73)+CONF( 3)*PHI(      52)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,13)
      WRK1(    2)=-PHI(     144)-CONF( 1)*PHI(      98)
      WRK1(    3)=-PHI(     145)-CONF( 2)*PHI(      98)
      WRK1(    4)=-PHI(     147)-CONF( 3)*PHI(      98)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,14)
      WRK1(    2)=-PHI(     145)-CONF( 1)*PHI(      99)
      WRK1(    3)=-PHI(     146)-CONF( 2)*PHI(      99)
      WRK1(    4)=-PHI(     148)-CONF( 3)*PHI(      99)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,15)
      WRK1(    2)=-PHI(     147)-CONF( 1)*PHI(     100)
      WRK1(    3)=-PHI(     148)-CONF( 2)*PHI(     100)
      WRK1(    4)=-PHI(     149)-CONF( 3)*PHI(     100)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,16)
      WRK1(    2)=-PHI(     123)-CONF( 1)*PHI(      89)
      WRK1(    3)=-PHI(     124)-CONF( 2)*PHI(      89)
      WRK1(    4)=-PHI(     126)-CONF( 3)*PHI(      89)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,17)
      WRK1(    2)=-PHI(     124)-CONF( 1)*PHI(      90)
      WRK1(    3)=-PHI(     125)-CONF( 2)*PHI(      90)
      WRK1(    4)=-PHI(     127)-CONF( 3)*PHI(      90)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,18)
      WRK1(    2)=-PHI(     126)-CONF( 1)*PHI(      91)
      WRK1(    3)=-PHI(     127)-CONF( 2)*PHI(      91)
      WRK1(    4)=-PHI(     128)-CONF( 3)*PHI(      91)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,19)
      WRK1(    2)= PHI(     253)+CONF( 1)*PHI(     179)
      WRK1(    3)= PHI(     254)+CONF( 2)*PHI(     179)
      WRK1(    4)= PHI(     257)+CONF( 3)*PHI(     179)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,20)
      WRK1(    2)= PHI(     254)+CONF( 1)*PHI(     180)
      WRK1(    3)= PHI(     255)+CONF( 2)*PHI(     180)
      WRK1(    4)= PHI(     258)+CONF( 3)*PHI(     180)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,21)
      WRK1(    2)= PHI(     255)+CONF( 1)*PHI(     181)
      WRK1(    3)= PHI(     256)+CONF( 2)*PHI(     181)
      WRK1(    4)= PHI(     259)+CONF( 3)*PHI(     181)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,22)
      WRK1(    2)= PHI(     257)+CONF( 1)*PHI(     182)
      WRK1(    3)= PHI(     258)+CONF( 2)*PHI(     182)
      WRK1(    4)= PHI(     260)+CONF( 3)*PHI(     182)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,23)
      WRK1(    2)= PHI(     258)+CONF( 1)*PHI(     183)
      WRK1(    3)= PHI(     259)+CONF( 2)*PHI(     183)
      WRK1(    4)= PHI(     261)+CONF( 3)*PHI(     183)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,24)
      WRK1(    2)= PHI(     260)+CONF( 1)*PHI(     184)
      WRK1(    3)= PHI(     261)+CONF( 2)*PHI(     184)
      WRK1(    4)= PHI(     262)+CONF( 3)*PHI(     184)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,25)
      WRK1(    2)=-PHI(     375)-CONF( 1)*PHI(     292)
      WRK1(    3)=-PHI(     376)-CONF( 2)*PHI(     292)
      WRK1(    4)=-PHI(     380)-CONF( 3)*PHI(     292)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,26)
      WRK1(    2)=-PHI(     376)-CONF( 1)*PHI(     293)
      WRK1(    3)=-PHI(     377)-CONF( 2)*PHI(     293)
      WRK1(    4)=-PHI(     381)-CONF( 3)*PHI(     293)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,27)
      WRK1(    2)=-PHI(     377)-CONF( 1)*PHI(     294)
      WRK1(    3)=-PHI(     378)-CONF( 2)*PHI(     294)
      WRK1(    4)=-PHI(     382)-CONF( 3)*PHI(     294)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,28)
      WRK1(    2)=-PHI(     378)-CONF( 1)*PHI(     295)
      WRK1(    3)=-PHI(     379)-CONF( 2)*PHI(     295)
      WRK1(    4)=-PHI(     383)-CONF( 3)*PHI(     295)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,29)
      WRK1(    2)=-PHI(     380)-CONF( 1)*PHI(     296)
      WRK1(    3)=-PHI(     381)-CONF( 2)*PHI(     296)
      WRK1(    4)=-PHI(     384)-CONF( 3)*PHI(     296)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,30)
      WRK1(    2)=-PHI(     381)-CONF( 1)*PHI(     297)
      WRK1(    3)=-PHI(     382)-CONF( 2)*PHI(     297)
      WRK1(    4)=-PHI(     385)-CONF( 3)*PHI(     297)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,31)
      WRK1(    2)=-PHI(     382)-CONF( 1)*PHI(     298)
      WRK1(    3)=-PHI(     383)-CONF( 2)*PHI(     298)
      WRK1(    4)=-PHI(     386)-CONF( 3)*PHI(     298)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,32)
      WRK1(    2)=-PHI(     384)-CONF( 1)*PHI(     299)
      WRK1(    3)=-PHI(     385)-CONF( 2)*PHI(     299)
      WRK1(    4)=-PHI(     387)-CONF( 3)*PHI(     299)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,33)
      WRK1(    2)=-PHI(     385)-CONF( 1)*PHI(     300)
      WRK1(    3)=-PHI(     386)-CONF( 2)*PHI(     300)
      WRK1(    4)=-PHI(     388)-CONF( 3)*PHI(     300)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,34)
      WRK1(    2)=-PHI(     387)-CONF( 1)*PHI(     301)
      WRK1(    3)=-PHI(     388)-CONF( 2)*PHI(     301)
      WRK1(    4)=-PHI(     389)-CONF( 3)*PHI(     301)
      CALL DPPS_BCTE(WRK1,WRK2,LENW,35)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     3
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   36,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   37,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   38,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   39,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   40,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   41,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   42,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   43,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(   44,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(   45,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(   46,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(   47,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(   48,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(   49,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(   50,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(   51,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(   52,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(   53,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DPPS_BCTE
      SUBROUTINE DPPS_BCTE(WRK1,WRK2,LENW,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*)
      J=       1
      DO I=1,     3
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=    1181
C  LWK1=      24
C  LWK2=     477
C  LENW=      53
C*MODULE INT2D   *DECK DPPP
      SUBROUTINE DPPP (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 5),CXYZ( 56)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (D04=4.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 5)
      KL=0
      PHI(      84)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      89)=ZERO
      PHI(      92)=ZERO
      PHI(      94)=ZERO
      PHI(      95)=ZERO
      PHI(      97)=ZERO
      PHI(     101)=ZERO
      PHI(     103)=ZERO
      PHI(     104)=ZERO
      PHI(     106)=ZERO
      PHI(     116)=ZERO
      PHI(     117)=ZERO
      PHI(     118)=ZERO
      PHI(     122)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     125)=ZERO
      PHI(     126)=ZERO
      PHI(     127)=ZERO
      PHI(     128)=ZERO
      PHI(     129)=ZERO
      PHI(     130)=ZERO
      PHI(     134)=ZERO
      PHI(     135)=ZERO
      PHI(     136)=ZERO
      PHI(     137)=ZERO
      PHI(     138)=ZERO
      PHI(     139)=ZERO
      PHI(     146)=ZERO
      PHI(     147)=ZERO
      PHI(     148)=ZERO
      PHI(     149)=ZERO
      PHI(     150)=ZERO
      PHI(     151)=ZERO
      PHI(     155)=ZERO
      PHI(     156)=ZERO
      PHI(     157)=ZERO
      PHI(     167)=ZERO
      PHI(     168)=ZERO
      PHI(     169)=ZERO
      PHI(     173)=ZERO
      PHI(     174)=ZERO
      PHI(     175)=ZERO
      PHI(     176)=ZERO
      PHI(     177)=ZERO
      PHI(     178)=ZERO
      PHI(     182)=ZERO
      PHI(     183)=ZERO
      PHI(     184)=ZERO
      PHI(     191)=ZERO
      PHI(     192)=ZERO
      PHI(     193)=ZERO
      PHI(     194)=ZERO
      PHI(     195)=ZERO
      PHI(     196)=ZERO
      PHI(     200)=ZERO
      PHI(     201)=ZERO
      PHI(     202)=ZERO
      DO I=     224,     230
      PHI(I)=ZERO
      END DO
      DO I=     231,     237
      PHI(I)=ZERO
      END DO
      DO I=     245,     251
      PHI(I)=ZERO
      END DO
      DO I=     252,     258
      PHI(I)=ZERO
      END DO
      DO I=     273,     279
      PHI(I)=ZERO
      END DO
      DO I=     287,     293
      PHI(I)=ZERO
      END DO
      DO I=     315,     321
      PHI(I)=ZERO
      END DO
      DO I=     329,     335
      PHI(I)=ZERO
      END DO
      DO I=     336,     342
      PHI(I)=ZERO
      END DO
      DO I=     350,     356
      PHI(I)=ZERO
      END DO
      DO I=     371,     377
      PHI(I)=ZERO
      END DO
      DO I=     378,     384
      PHI(I)=ZERO
      END DO
      DO I=     392,     398
      PHI(I)=ZERO
      END DO
      DO I=     413,     419
      PHI(I)=ZERO
      END DO
      DO I=     427,     433
      PHI(I)=ZERO
      END DO
      DO I=     473,     485
      PHI(I)=ZERO
      END DO
      DO I=     499,     511
      PHI(I)=ZERO
      END DO
      DO I=     512,     524
      PHI(I)=ZERO
      END DO
      DO I=     551,     563
      PHI(I)=ZERO
      END DO
      DO I=     603,     615
      PHI(I)=ZERO
      END DO
      DO I=     616,     628
      PHI(I)=ZERO
      END DO
      DO I=     642,     654
      PHI(I)=ZERO
      END DO
      DO I=     681,     693
      PHI(I)=ZERO
      END DO
      DO I=     707,     719
      PHI(I)=ZERO
      END DO
      DO I=     746,     758
      PHI(I)=ZERO
      END DO
      DO I=     825,     846
      PHI(I)=ZERO
      END DO
      DO I=     913,     934
      PHI(I)=ZERO
      END DO
      DO I=     957,     978
      PHI(I)=ZERO
      END DO
      DO I=    1023,    1044
      PHI(I)=ZERO
      END DO
      DO I=    1147,    1180
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      85)=ZERO
      PHI(      88)=ZERO
      PHI(      91)=ZERO
      PHI(      93)=ZERO
      PHI(      96)=ZERO
      PHI(     100)=ZERO
      PHI(     102)=ZERO
      PHI(     105)=ZERO
      PHI(     113)=ZERO
      PHI(     114)=ZERO
      PHI(     115)=ZERO
      PHI(     119)=ZERO
      PHI(     120)=ZERO
      PHI(     121)=ZERO
      PHI(     131)=ZERO
      PHI(     132)=ZERO
      PHI(     133)=ZERO
      PHI(     143)=ZERO
      PHI(     144)=ZERO
      PHI(     145)=ZERO
      PHI(     152)=ZERO
      PHI(     153)=ZERO
      PHI(     154)=ZERO
      PHI(     164)=ZERO
      PHI(     165)=ZERO
      PHI(     166)=ZERO
      PHI(     170)=ZERO
      PHI(     171)=ZERO
      PHI(     172)=ZERO
      PHI(     179)=ZERO
      PHI(     180)=ZERO
      PHI(     181)=ZERO
      PHI(     188)=ZERO
      PHI(     189)=ZERO
      PHI(     190)=ZERO
      PHI(     197)=ZERO
      PHI(     198)=ZERO
      PHI(     199)=ZERO
      DO I=     217,     223
      PHI(I)=ZERO
      END DO
      DO I=     238,     244
      PHI(I)=ZERO
      END DO
      DO I=     266,     272
      PHI(I)=ZERO
      END DO
      DO I=     280,     286
      PHI(I)=ZERO
      END DO
      DO I=     308,     314
      PHI(I)=ZERO
      END DO
      DO I=     322,     328
      PHI(I)=ZERO
      END DO
      DO I=     343,     349
      PHI(I)=ZERO
      END DO
      DO I=     364,     370
      PHI(I)=ZERO
      END DO
      DO I=     385,     391
      PHI(I)=ZERO
      END DO
      DO I=     406,     412
      PHI(I)=ZERO
      END DO
      DO I=     420,     426
      PHI(I)=ZERO
      END DO
      DO I=     460,     472
      PHI(I)=ZERO
      END DO
      DO I=     486,     498
      PHI(I)=ZERO
      END DO
      DO I=     538,     550
      PHI(I)=ZERO
      END DO
      DO I=     590,     602
      PHI(I)=ZERO
      END DO
      DO I=     629,     641
      PHI(I)=ZERO
      END DO
      DO I=     668,     680
      PHI(I)=ZERO
      END DO
      DO I=     694,     706
      PHI(I)=ZERO
      END DO
      DO I=     733,     745
      PHI(I)=ZERO
      END DO
      DO I=     803,     824
      PHI(I)=ZERO
      END DO
      DO I=     891,     912
      PHI(I)=ZERO
      END DO
      DO I=     935,     956
      PHI(I)=ZERO
      END DO
      DO I=    1001,    1022
      PHI(I)=ZERO
      END DO
      DO I=    1113,    1146
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      82)=ZERO
      PHI(      90)=ZERO
      PHI(      99)=ZERO
      PHI(     110)=ZERO
      PHI(     111)=ZERO
      PHI(     112)=ZERO
      PHI(     140)=ZERO
      PHI(     141)=ZERO
      PHI(     142)=ZERO
      PHI(     161)=ZERO
      PHI(     162)=ZERO
      PHI(     163)=ZERO
      PHI(     185)=ZERO
      PHI(     186)=ZERO
      PHI(     187)=ZERO
      DO I=     210,     216
      PHI(I)=ZERO
      END DO
      DO I=     259,     265
      PHI(I)=ZERO
      END DO
      DO I=     301,     307
      PHI(I)=ZERO
      END DO
      DO I=     357,     363
      PHI(I)=ZERO
      END DO
      DO I=     399,     405
      PHI(I)=ZERO
      END DO
      DO I=     447,     459
      PHI(I)=ZERO
      END DO
      DO I=     525,     537
      PHI(I)=ZERO
      END DO
      DO I=     577,     589
      PHI(I)=ZERO
      END DO
      DO I=     655,     667
      PHI(I)=ZERO
      END DO
      DO I=     720,     732
      PHI(I)=ZERO
      END DO
      DO I=     781,     802
      PHI(I)=ZERO
      END DO
      DO I=     869,     890
      PHI(I)=ZERO
      END DO
      DO I=     979,    1000
      PHI(I)=ZERO
      END DO
      DO I=    1079,    1112
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      98)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     109)=ZERO
      PHI(     158)=ZERO
      PHI(     159)=ZERO
      PHI(     160)=ZERO
      DO I=     203,     209
      PHI(I)=ZERO
      END DO
      DO I=     294,     300
      PHI(I)=ZERO
      END DO
      DO I=     434,     446
      PHI(I)=ZERO
      END DO
      DO I=     564,     576
      PHI(I)=ZERO
      END DO
      DO I=     759,     780
      PHI(I)=ZERO
      END DO
      DO I=     847,     868
      PHI(I)=ZERO
      END DO
      DO I=    1045,    1078
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 5)
      FX=(FX + FGRID(3,IPT, 5))*TVAL
      FX=(FX + FGRID(2,IPT, 5))*TVAL
      FX=(FX + FGRID(1,IPT, 5))*TVAL
      FX= FX + FGRID(0,IPT, 5)
      FT( 8)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 7)=RMR( 8)*(T2*FT( 8)+ET)
      FT( 6)=RMR( 7)*(T2*FT( 7)+ET)
      FT( 5)=RMR( 6)*(T2*FT( 6)+ET)
      FT( 4)=RMR( 5)*(T2*FT( 5)+ET)
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      VSM=VSM*VS2
      SAUX( 5)=ZEROL*FT( 5)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      RR=RR*RINV
      SAUX( 5)=TLGM( 5)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      CXYZ(    36)=CXYZ(    21)*RXYZ(1)
      CXYZ(    37)=CXYZ(    22)*RXYZ(1)
      CXYZ(    38)=CXYZ(    23)*RXYZ(1)
      CXYZ(    39)=CXYZ(    24)*RXYZ(1)
      CXYZ(    40)=CXYZ(    25)*RXYZ(1)
      CXYZ(    41)=CXYZ(    25)*RXYZ(2)
      CXYZ(    42)=CXYZ(    26)*RXYZ(1)
      CXYZ(    43)=CXYZ(    27)*RXYZ(1)
      CXYZ(    44)=CXYZ(    28)*RXYZ(1)
      CXYZ(    45)=CXYZ(    29)*RXYZ(1)
      CXYZ(    46)=CXYZ(    29)*RXYZ(2)
      CXYZ(    47)=CXYZ(    30)*RXYZ(1)
      CXYZ(    48)=CXYZ(    31)*RXYZ(1)
      CXYZ(    49)=CXYZ(    32)*RXYZ(1)
      CXYZ(    50)=CXYZ(    32)*RXYZ(2)
      CXYZ(    51)=CXYZ(    33)*RXYZ(1)
      CXYZ(    52)=CXYZ(    34)*RXYZ(1)
      CXYZ(    53)=CXYZ(    34)*RXYZ(2)
      CXYZ(    54)=CXYZ(    35)*RXYZ(1)
      CXYZ(    55)=CXYZ(    35)*RXYZ(2)
      CXYZ(    56)=CXYZ(    35)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      PHI(      47)=CXYZ(     2)*SAUX( 3)
      PHI(      48)=CXYZ(     3)*SAUX( 3)
      PHI(      49)=CXYZ(     4)*SAUX( 3)
      PHI(      50)=CXYZ(    11)*SAUX( 4)
      PHI(      51)=CXYZ(    12)*SAUX( 4)
      PHI(      52)=CXYZ(    13)*SAUX( 4)
      PHI(      53)=CXYZ(    14)*SAUX( 4)
      PHI(      54)=CXYZ(    15)*SAUX( 4)
      PHI(      55)=CXYZ(    16)*SAUX( 4)
      PHI(      56)=CXYZ(    17)*SAUX( 4)
      PHI(      57)=CXYZ(    18)*SAUX( 4)
      PHI(      58)=CXYZ(    19)*SAUX( 4)
      PHI(      59)=CXYZ(    20)*SAUX( 4)
      PHI(      60)=CXYZ(    36)*SAUX( 5)
      PHI(      61)=CXYZ(    37)*SAUX( 5)
      PHI(      62)=CXYZ(    38)*SAUX( 5)
      PHI(      63)=CXYZ(    39)*SAUX( 5)
      PHI(      64)=CXYZ(    40)*SAUX( 5)
      PHI(      65)=CXYZ(    41)*SAUX( 5)
      PHI(      66)=CXYZ(    42)*SAUX( 5)
      PHI(      67)=CXYZ(    43)*SAUX( 5)
      PHI(      68)=CXYZ(    44)*SAUX( 5)
      PHI(      69)=CXYZ(    45)*SAUX( 5)
      PHI(      70)=CXYZ(    46)*SAUX( 5)
      PHI(      71)=CXYZ(    47)*SAUX( 5)
      PHI(      72)=CXYZ(    48)*SAUX( 5)
      PHI(      73)=CXYZ(    49)*SAUX( 5)
      PHI(      74)=CXYZ(    50)*SAUX( 5)
      PHI(      75)=CXYZ(    51)*SAUX( 5)
      PHI(      76)=CXYZ(    52)*SAUX( 5)
      PHI(      77)=CXYZ(    53)*SAUX( 5)
      PHI(      78)=CXYZ(    54)*SAUX( 5)
      PHI(      79)=CXYZ(    55)*SAUX( 5)
      PHI(      80)=CXYZ(    56)*SAUX( 5)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      81)=PHI(      81)+FAC*PHI(       1)
      FAC=SFAC( 3)
      PHI(      98)=PHI(      98)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(     107)=PHI(     107)+FAC*PHI(       2)
      PHI(     108)=PHI(     108)+FAC*PHI(       3)
      PHI(     109)=PHI(     109)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(     158)=PHI(     158)+FAC*PHI(       2)
      PHI(     159)=PHI(     159)+FAC*PHI(       3)
      PHI(     160)=PHI(     160)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     203,     209
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     294,     300
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     434,     446
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     564,     576
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     759,     780
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     847,     868
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      47
      DO I=    1045,    1078
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      82)=PHI(      82)+FAC*PHI(      81)
      FAC=SFAC( 2)
      PHI(      90)=PHI(      90)+FAC*PHI(      81)
      FAC=SFAC( 3)
      PHI(      99)=PHI(      99)+FAC*PHI(      98)
      FAC=SFAC( 1)
      PHI(     110)=PHI(     110)+FAC*PHI(     107)
      PHI(     111)=PHI(     111)+FAC*PHI(     108)
      PHI(     112)=PHI(     112)+FAC*PHI(     109)
      FAC=SFAC( 2)
      PHI(     140)=PHI(     140)+FAC*PHI(     107)
      PHI(     141)=PHI(     141)+FAC*PHI(     108)
      PHI(     142)=PHI(     142)+FAC*PHI(     109)
      FAC=SFAC( 2)
      PHI(     161)=PHI(     161)+FAC*PHI(     158)
      PHI(     162)=PHI(     162)+FAC*PHI(     159)
      PHI(     163)=PHI(     163)+FAC*PHI(     160)
      FAC=SFAC( 3)
      PHI(     185)=PHI(     185)+FAC*PHI(     158)
      PHI(     186)=PHI(     186)+FAC*PHI(     159)
      PHI(     187)=PHI(     187)+FAC*PHI(     160)
      FAC=SFAC( 1)
      J=     203
      DO I=     210,     216
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     203
      DO I=     259,     265
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     294
      DO I=     301,     307
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     294
      DO I=     357,     363
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     294
      DO I=     399,     405
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     434
      DO I=     447,     459
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     434
      DO I=     525,     537
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     564
      DO I=     577,     589
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     564
      DO I=     655,     667
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     564
      DO I=     720,     732
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     759
      DO I=     781,     802
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     847
      DO I=     869,     890
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     847
      DO I=     979,    1000
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=    1045
      DO I=    1079,    1112
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 2)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      88)=PHI(      88)+FAC*PHI(      82)
      FAC=SFAC( 2)
      PHI(      91)=PHI(      91)+FAC*PHI(      90)
      FAC=SFAC( 3)
      PHI(      93)=PHI(      93)+FAC*PHI(      90)
      FAC=SFAC( 4)
      PHI(      96)=PHI(      96)+FAC*PHI(      90)
      FAC=SFAC( 2)
      PHI(     100)=PHI(     100)+FAC*PHI(      99)
      FAC=SFAC( 3)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      FAC=SFAC( 4)
      PHI(     105)=PHI(     105)+FAC*PHI(      99)
      FAC=SFAC( 2)
      PHI(     113)=PHI(     113)+FAC*PHI(     110)
      PHI(     114)=PHI(     114)+FAC*PHI(     111)
      PHI(     115)=PHI(     115)+FAC*PHI(     112)
      FAC=SFAC( 3)
      PHI(     119)=PHI(     119)+FAC*PHI(     110)
      PHI(     120)=PHI(     120)+FAC*PHI(     111)
      PHI(     121)=PHI(     121)+FAC*PHI(     112)
      FAC=SFAC( 4)
      PHI(     131)=PHI(     131)+FAC*PHI(     110)
      PHI(     132)=PHI(     132)+FAC*PHI(     111)
      PHI(     133)=PHI(     133)+FAC*PHI(     112)
      FAC=SFAC( 3)
      PHI(     143)=PHI(     143)+FAC*PHI(     140)
      PHI(     144)=PHI(     144)+FAC*PHI(     141)
      PHI(     145)=PHI(     145)+FAC*PHI(     142)
      FAC=SFAC( 4)
      PHI(     152)=PHI(     152)+FAC*PHI(     140)
      PHI(     153)=PHI(     153)+FAC*PHI(     141)
      PHI(     154)=PHI(     154)+FAC*PHI(     142)
      FAC=SFAC( 2)
      PHI(     164)=PHI(     164)+FAC*PHI(     161)
      PHI(     165)=PHI(     165)+FAC*PHI(     162)
      PHI(     166)=PHI(     166)+FAC*PHI(     163)
      FAC=SFAC( 3)
      PHI(     170)=PHI(     170)+FAC*PHI(     161)
      PHI(     171)=PHI(     171)+FAC*PHI(     162)
      PHI(     172)=PHI(     172)+FAC*PHI(     163)
      FAC=SFAC( 4)
      PHI(     179)=PHI(     179)+FAC*PHI(     161)
      PHI(     180)=PHI(     180)+FAC*PHI(     162)
      PHI(     181)=PHI(     181)+FAC*PHI(     163)
      FAC=SFAC( 3)
      PHI(     188)=PHI(     188)+FAC*PHI(     185)
      PHI(     189)=PHI(     189)+FAC*PHI(     186)
      PHI(     190)=PHI(     190)+FAC*PHI(     187)
      FAC=SFAC( 4)
      PHI(     197)=PHI(     197)+FAC*PHI(     185)
      PHI(     198)=PHI(     198)+FAC*PHI(     186)
      PHI(     199)=PHI(     199)+FAC*PHI(     187)
      FAC=SFAC( 3)
      J=     210
      DO I=     217,     223
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     210
      DO I=     238,     244
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     259
      DO I=     266,     272
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     259
      DO I=     280,     286
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     301
      DO I=     308,     314
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     301
      DO I=     322,     328
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     301
      DO I=     343,     349
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     357
      DO I=     364,     370
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     357
      DO I=     385,     391
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     399
      DO I=     406,     412
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     399
      DO I=     420,     426
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     447
      DO I=     460,     472
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     447
      DO I=     486,     498
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     525
      DO I=     538,     550
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     577
      DO I=     590,     602
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     577
      DO I=     629,     641
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     655
      DO I=     668,     680
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     655
      DO I=     694,     706
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     720
      DO I=     733,     745
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     781
      DO I=     803,     824
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     869
      DO I=     891,     912
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     869
      DO I=     935,     956
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     979
      DO I=    1001,    1022
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=    1079
      DO I=    1113,    1146
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 1)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 2)
      PHI(      86)=PHI(      86)+FAC*PHI(      85)
      FAC=SFAC( 3)
      PHI(      87)=PHI(      87)+FAC*PHI(      85)
      FAC=SFAC( 4)
      PHI(      89)=PHI(      89)+FAC*PHI(      88)
      FAC=SFAC( 1)
      PHI(      92)=PHI(      92)+FAC*PHI(      91)
      FAC=SFAC( 2)
      PHI(      94)=PHI(      94)+FAC*PHI(      93)
      FAC=SFAC( 3)
      PHI(      95)=PHI(      95)+FAC*PHI(      93)
      FAC=SFAC( 4)
      PHI(      97)=PHI(      97)+FAC*PHI(      96)
      FAC=SFAC( 1)
      PHI(     101)=PHI(     101)+FAC*PHI(     100)
      FAC=SFAC( 2)
      PHI(     103)=PHI(     103)+FAC*PHI(     102)
      FAC=SFAC( 3)
      PHI(     104)=PHI(     104)+FAC*PHI(     102)
      FAC=SFAC( 4)
      PHI(     106)=PHI(     106)+FAC*PHI(     105)
      FAC=SFAC( 1)
      PHI(     116)=PHI(     116)+FAC*PHI(     113)
      PHI(     117)=PHI(     117)+FAC*PHI(     114)
      PHI(     118)=PHI(     118)+FAC*PHI(     115)
      FAC=SFAC( 1)
      PHI(     122)=PHI(     122)+FAC*PHI(     119)
      PHI(     123)=PHI(     123)+FAC*PHI(     120)
      PHI(     124)=PHI(     124)+FAC*PHI(     121)
      FAC=SFAC( 2)
      PHI(     125)=PHI(     125)+FAC*PHI(     119)
      PHI(     126)=PHI(     126)+FAC*PHI(     120)
      PHI(     127)=PHI(     127)+FAC*PHI(     121)
      FAC=SFAC( 3)
      PHI(     128)=PHI(     128)+FAC*PHI(     119)
      PHI(     129)=PHI(     129)+FAC*PHI(     120)
      PHI(     130)=PHI(     130)+FAC*PHI(     121)
      FAC=SFAC( 3)
      PHI(     134)=PHI(     134)+FAC*PHI(     131)
      PHI(     135)=PHI(     135)+FAC*PHI(     132)
      PHI(     136)=PHI(     136)+FAC*PHI(     133)
      FAC=SFAC( 4)
      PHI(     137)=PHI(     137)+FAC*PHI(     131)
      PHI(     138)=PHI(     138)+FAC*PHI(     132)
      PHI(     139)=PHI(     139)+FAC*PHI(     133)
      FAC=SFAC( 1)
      PHI(     146)=PHI(     146)+FAC*PHI(     143)
      PHI(     147)=PHI(     147)+FAC*PHI(     144)
      PHI(     148)=PHI(     148)+FAC*PHI(     145)
      FAC=SFAC( 2)
      PHI(     149)=PHI(     149)+FAC*PHI(     143)
      PHI(     150)=PHI(     150)+FAC*PHI(     144)
      PHI(     151)=PHI(     151)+FAC*PHI(     145)
      FAC=SFAC( 3)
      PHI(     155)=PHI(     155)+FAC*PHI(     152)
      PHI(     156)=PHI(     156)+FAC*PHI(     153)
      PHI(     157)=PHI(     157)+FAC*PHI(     154)
      FAC=SFAC( 1)
      PHI(     167)=PHI(     167)+FAC*PHI(     164)
      PHI(     168)=PHI(     168)+FAC*PHI(     165)
      PHI(     169)=PHI(     169)+FAC*PHI(     166)
      FAC=SFAC( 2)
      PHI(     173)=PHI(     173)+FAC*PHI(     170)
      PHI(     174)=PHI(     174)+FAC*PHI(     171)
      PHI(     175)=PHI(     175)+FAC*PHI(     172)
      FAC=SFAC( 3)
      PHI(     176)=PHI(     176)+FAC*PHI(     170)
      PHI(     177)=PHI(     177)+FAC*PHI(     171)
      PHI(     178)=PHI(     178)+FAC*PHI(     172)
      FAC=SFAC( 4)
      PHI(     182)=PHI(     182)+FAC*PHI(     179)
      PHI(     183)=PHI(     183)+FAC*PHI(     180)
      PHI(     184)=PHI(     184)+FAC*PHI(     181)
      FAC=SFAC( 1)
      PHI(     191)=PHI(     191)+FAC*PHI(     188)
      PHI(     192)=PHI(     192)+FAC*PHI(     189)
      PHI(     193)=PHI(     193)+FAC*PHI(     190)
      FAC=SFAC( 2)
      PHI(     194)=PHI(     194)+FAC*PHI(     188)
      PHI(     195)=PHI(     195)+FAC*PHI(     189)
      PHI(     196)=PHI(     196)+FAC*PHI(     190)
      FAC=SFAC( 3)
      PHI(     200)=PHI(     200)+FAC*PHI(     197)
      PHI(     201)=PHI(     201)+FAC*PHI(     198)
      PHI(     202)=PHI(     202)+FAC*PHI(     199)
      FAC=SFAC( 1)
      J=     217
      DO I=     224,     230
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     217
      DO I=     231,     237
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     238
      DO I=     245,     251
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     238
      DO I=     252,     258
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     266
      DO I=     273,     279
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     280
      DO I=     287,     293
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     308
      DO I=     315,     321
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     322
      DO I=     329,     335
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     322
      DO I=     336,     342
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     343
      DO I=     350,     356
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     364
      DO I=     371,     377
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     364
      DO I=     378,     384
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     385
      DO I=     392,     398
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     406
      DO I=     413,     419
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     420
      DO I=     427,     433
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     460
      DO I=     473,     485
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     486
      DO I=     499,     511
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     486
      DO I=     512,     524
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     538
      DO I=     551,     563
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     590
      DO I=     603,     615
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     590
      DO I=     616,     628
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     629
      DO I=     642,     654
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     668
      DO I=     681,     693
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     694
      DO I=     707,     719
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     733
      DO I=     746,     758
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     803
      DO I=     825,     846
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     891
      DO I=     913,     934
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     935
      DO I=     957,     978
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=    1001
      DO I=    1023,    1044
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=    1113
      DO I=    1147,    1180
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     225)=PHI(     225)-D01*PHI(     224)
      PHI(     227)=PHI(     227)-D01*PHI(     224)
      PHI(     230)=PHI(     230)-D01*PHI(     224)
      PHI(     232)=PHI(     232)-D01*PHI(     231)
      PHI(     234)=PHI(     234)-D01*PHI(     231)
      PHI(     237)=PHI(     237)-D01*PHI(     231)
      PHI(     246)=PHI(     246)-D01*PHI(     245)
      PHI(     248)=PHI(     248)-D01*PHI(     245)
      PHI(     251)=PHI(     251)-D01*PHI(     245)
      PHI(     253)=PHI(     253)-D01*PHI(     252)
      PHI(     255)=PHI(     255)-D01*PHI(     252)
      PHI(     258)=PHI(     258)-D01*PHI(     252)
      PHI(     274)=PHI(     274)-D01*PHI(     273)
      PHI(     276)=PHI(     276)-D01*PHI(     273)
      PHI(     279)=PHI(     279)-D01*PHI(     273)
      PHI(     288)=PHI(     288)-D01*PHI(     287)
      PHI(     290)=PHI(     290)-D01*PHI(     287)
      PHI(     293)=PHI(     293)-D01*PHI(     287)
      PHI(     316)=PHI(     316)-D01*PHI(     315)
      PHI(     318)=PHI(     318)-D01*PHI(     315)
      PHI(     321)=PHI(     321)-D01*PHI(     315)
      PHI(     330)=PHI(     330)-D01*PHI(     329)
      PHI(     332)=PHI(     332)-D01*PHI(     329)
      PHI(     335)=PHI(     335)-D01*PHI(     329)
      PHI(     337)=PHI(     337)-D01*PHI(     336)
      PHI(     339)=PHI(     339)-D01*PHI(     336)
      PHI(     342)=PHI(     342)-D01*PHI(     336)
      PHI(     351)=PHI(     351)-D01*PHI(     350)
      PHI(     353)=PHI(     353)-D01*PHI(     350)
      PHI(     356)=PHI(     356)-D01*PHI(     350)
      PHI(     372)=PHI(     372)-D01*PHI(     371)
      PHI(     374)=PHI(     374)-D01*PHI(     371)
      PHI(     377)=PHI(     377)-D01*PHI(     371)
      PHI(     379)=PHI(     379)-D01*PHI(     378)
      PHI(     381)=PHI(     381)-D01*PHI(     378)
      PHI(     384)=PHI(     384)-D01*PHI(     378)
      PHI(     393)=PHI(     393)-D01*PHI(     392)
      PHI(     395)=PHI(     395)-D01*PHI(     392)
      PHI(     398)=PHI(     398)-D01*PHI(     392)
      PHI(     414)=PHI(     414)-D01*PHI(     413)
      PHI(     416)=PHI(     416)-D01*PHI(     413)
      PHI(     419)=PHI(     419)-D01*PHI(     413)
      PHI(     428)=PHI(     428)-D01*PHI(     427)
      PHI(     430)=PHI(     430)-D01*PHI(     427)
      PHI(     433)=PHI(     433)-D01*PHI(     427)
      PHI(     476)=PHI(     476)-D01*PHI(     473)
      PHI(     477)=PHI(     477)-D01*PHI(     474)
      PHI(     479)=PHI(     479)-D01*PHI(     474)
      PHI(     480)=PHI(     480)-D01*PHI(     475)
      PHI(     482)=PHI(     482)-D01*PHI(     475)
      PHI(     485)=PHI(     485)-D01*PHI(     475)
      PHI(     476)=PHI(     476)-D02*PHI(     473)
      PHI(     478)=PHI(     478)-D01*PHI(     473)
      PHI(     479)=PHI(     479)-D02*PHI(     474)
      PHI(     483)=PHI(     483)-D01*PHI(     473)
      PHI(     484)=PHI(     484)-D01*PHI(     474)
      PHI(     485)=PHI(     485)-D02*PHI(     475)
      PHI(     502)=PHI(     502)-D01*PHI(     499)
      PHI(     503)=PHI(     503)-D01*PHI(     500)
      PHI(     505)=PHI(     505)-D01*PHI(     500)
      PHI(     506)=PHI(     506)-D01*PHI(     501)
      PHI(     508)=PHI(     508)-D01*PHI(     501)
      PHI(     511)=PHI(     511)-D01*PHI(     501)
      PHI(     502)=PHI(     502)-D02*PHI(     499)
      PHI(     504)=PHI(     504)-D01*PHI(     499)
      PHI(     505)=PHI(     505)-D02*PHI(     500)
      PHI(     509)=PHI(     509)-D01*PHI(     499)
      PHI(     510)=PHI(     510)-D01*PHI(     500)
      PHI(     511)=PHI(     511)-D02*PHI(     501)
      PHI(     515)=PHI(     515)-D01*PHI(     512)
      PHI(     516)=PHI(     516)-D01*PHI(     513)
      PHI(     518)=PHI(     518)-D01*PHI(     513)
      PHI(     519)=PHI(     519)-D01*PHI(     514)
      PHI(     521)=PHI(     521)-D01*PHI(     514)
      PHI(     524)=PHI(     524)-D01*PHI(     514)
      PHI(     515)=PHI(     515)-D02*PHI(     512)
      PHI(     517)=PHI(     517)-D01*PHI(     512)
      PHI(     518)=PHI(     518)-D02*PHI(     513)
      PHI(     522)=PHI(     522)-D01*PHI(     512)
      PHI(     523)=PHI(     523)-D01*PHI(     513)
      PHI(     524)=PHI(     524)-D02*PHI(     514)
      PHI(     554)=PHI(     554)-D01*PHI(     551)
      PHI(     555)=PHI(     555)-D01*PHI(     552)
      PHI(     557)=PHI(     557)-D01*PHI(     552)
      PHI(     558)=PHI(     558)-D01*PHI(     553)
      PHI(     560)=PHI(     560)-D01*PHI(     553)
      PHI(     563)=PHI(     563)-D01*PHI(     553)
      PHI(     554)=PHI(     554)-D02*PHI(     551)
      PHI(     556)=PHI(     556)-D01*PHI(     551)
      PHI(     557)=PHI(     557)-D02*PHI(     552)
      PHI(     561)=PHI(     561)-D01*PHI(     551)
      PHI(     562)=PHI(     562)-D01*PHI(     552)
      PHI(     563)=PHI(     563)-D02*PHI(     553)
      PHI(     606)=PHI(     606)-D01*PHI(     603)
      PHI(     607)=PHI(     607)-D01*PHI(     604)
      PHI(     609)=PHI(     609)-D01*PHI(     604)
      PHI(     610)=PHI(     610)-D01*PHI(     605)
      PHI(     612)=PHI(     612)-D01*PHI(     605)
      PHI(     615)=PHI(     615)-D01*PHI(     605)
      PHI(     606)=PHI(     606)-D02*PHI(     603)
      PHI(     608)=PHI(     608)-D01*PHI(     603)
      PHI(     609)=PHI(     609)-D02*PHI(     604)
      PHI(     613)=PHI(     613)-D01*PHI(     603)
      PHI(     614)=PHI(     614)-D01*PHI(     604)
      PHI(     615)=PHI(     615)-D02*PHI(     605)
      PHI(     619)=PHI(     619)-D01*PHI(     616)
      PHI(     620)=PHI(     620)-D01*PHI(     617)
      PHI(     622)=PHI(     622)-D01*PHI(     617)
      PHI(     623)=PHI(     623)-D01*PHI(     618)
      PHI(     625)=PHI(     625)-D01*PHI(     618)
      PHI(     628)=PHI(     628)-D01*PHI(     618)
      PHI(     619)=PHI(     619)-D02*PHI(     616)
      PHI(     621)=PHI(     621)-D01*PHI(     616)
      PHI(     622)=PHI(     622)-D02*PHI(     617)
      PHI(     626)=PHI(     626)-D01*PHI(     616)
      PHI(     627)=PHI(     627)-D01*PHI(     617)
      PHI(     628)=PHI(     628)-D02*PHI(     618)
      PHI(     645)=PHI(     645)-D01*PHI(     642)
      PHI(     646)=PHI(     646)-D01*PHI(     643)
      PHI(     648)=PHI(     648)-D01*PHI(     643)
      PHI(     649)=PHI(     649)-D01*PHI(     644)
      PHI(     651)=PHI(     651)-D01*PHI(     644)
      PHI(     654)=PHI(     654)-D01*PHI(     644)
      PHI(     645)=PHI(     645)-D02*PHI(     642)
      PHI(     647)=PHI(     647)-D01*PHI(     642)
      PHI(     648)=PHI(     648)-D02*PHI(     643)
      PHI(     652)=PHI(     652)-D01*PHI(     642)
      PHI(     653)=PHI(     653)-D01*PHI(     643)
      PHI(     654)=PHI(     654)-D02*PHI(     644)
      PHI(     684)=PHI(     684)-D01*PHI(     681)
      PHI(     685)=PHI(     685)-D01*PHI(     682)
      PHI(     687)=PHI(     687)-D01*PHI(     682)
      PHI(     688)=PHI(     688)-D01*PHI(     683)
      PHI(     690)=PHI(     690)-D01*PHI(     683)
      PHI(     693)=PHI(     693)-D01*PHI(     683)
      PHI(     684)=PHI(     684)-D02*PHI(     681)
      PHI(     686)=PHI(     686)-D01*PHI(     681)
      PHI(     687)=PHI(     687)-D02*PHI(     682)
      PHI(     691)=PHI(     691)-D01*PHI(     681)
      PHI(     692)=PHI(     692)-D01*PHI(     682)
      PHI(     693)=PHI(     693)-D02*PHI(     683)
      PHI(     710)=PHI(     710)-D01*PHI(     707)
      PHI(     711)=PHI(     711)-D01*PHI(     708)
      PHI(     713)=PHI(     713)-D01*PHI(     708)
      PHI(     714)=PHI(     714)-D01*PHI(     709)
      PHI(     716)=PHI(     716)-D01*PHI(     709)
      PHI(     719)=PHI(     719)-D01*PHI(     709)
      PHI(     710)=PHI(     710)-D02*PHI(     707)
      PHI(     712)=PHI(     712)-D01*PHI(     707)
      PHI(     713)=PHI(     713)-D02*PHI(     708)
      PHI(     717)=PHI(     717)-D01*PHI(     707)
      PHI(     718)=PHI(     718)-D01*PHI(     708)
      PHI(     719)=PHI(     719)-D02*PHI(     709)
      PHI(     749)=PHI(     749)-D01*PHI(     746)
      PHI(     750)=PHI(     750)-D01*PHI(     747)
      PHI(     752)=PHI(     752)-D01*PHI(     747)
      PHI(     753)=PHI(     753)-D01*PHI(     748)
      PHI(     755)=PHI(     755)-D01*PHI(     748)
      PHI(     758)=PHI(     758)-D01*PHI(     748)
      PHI(     749)=PHI(     749)-D02*PHI(     746)
      PHI(     751)=PHI(     751)-D01*PHI(     746)
      PHI(     752)=PHI(     752)-D02*PHI(     747)
      PHI(     756)=PHI(     756)-D01*PHI(     746)
      PHI(     757)=PHI(     757)-D01*PHI(     747)
      PHI(     758)=PHI(     758)-D02*PHI(     748)
      PHI(     832)=PHI(     832)-D01*PHI(     826)
      PHI(     833)=PHI(     833)-D01*PHI(     827)
      PHI(     834)=PHI(     834)-D01*PHI(     828)
      PHI(     836)=PHI(     836)-D01*PHI(     828)
      PHI(     837)=PHI(     837)-D01*PHI(     829)
      PHI(     838)=PHI(     838)-D01*PHI(     830)
      PHI(     840)=PHI(     840)-D01*PHI(     830)
      PHI(     841)=PHI(     841)-D01*PHI(     831)
      PHI(     843)=PHI(     843)-D01*PHI(     831)
      PHI(     846)=PHI(     846)-D01*PHI(     831)
      PHI(     832)=PHI(     832)-D02*PHI(     826)
      PHI(     833)=PHI(     833)-D02*PHI(     827)
      PHI(     835)=PHI(     835)-D01*PHI(     827)
      PHI(     836)=PHI(     836)-D02*PHI(     828)
      PHI(     837)=PHI(     837)-D02*PHI(     829)
      PHI(     839)=PHI(     839)-D01*PHI(     829)
      PHI(     840)=PHI(     840)-D02*PHI(     830)
      PHI(     844)=PHI(     844)-D01*PHI(     829)
      PHI(     845)=PHI(     845)-D01*PHI(     830)
      PHI(     846)=PHI(     846)-D02*PHI(     831)
      PHI(     826)=PHI(     826)-D01*PHI(     825)
      PHI(     828)=PHI(     828)-D01*PHI(     825)
      PHI(     831)=PHI(     831)-D01*PHI(     825)
      PHI(     832)=PHI(     832)-D03*PHI(     826)
      PHI(     834)=PHI(     834)-D01*PHI(     826)
      PHI(     835)=PHI(     835)-D02*PHI(     827)
      PHI(     836)=PHI(     836)-D03*PHI(     828)
      PHI(     841)=PHI(     841)-D01*PHI(     826)
      PHI(     842)=PHI(     842)-D01*PHI(     827)
      PHI(     843)=PHI(     843)-D01*PHI(     828)
      PHI(     844)=PHI(     844)-D02*PHI(     829)
      PHI(     845)=PHI(     845)-D02*PHI(     830)
      PHI(     846)=PHI(     846)-D03*PHI(     831)
      PHI(     920)=PHI(     920)-D01*PHI(     914)
      PHI(     921)=PHI(     921)-D01*PHI(     915)
      PHI(     922)=PHI(     922)-D01*PHI(     916)
      PHI(     924)=PHI(     924)-D01*PHI(     916)
      PHI(     925)=PHI(     925)-D01*PHI(     917)
      PHI(     926)=PHI(     926)-D01*PHI(     918)
      PHI(     928)=PHI(     928)-D01*PHI(     918)
      PHI(     929)=PHI(     929)-D01*PHI(     919)
      PHI(     931)=PHI(     931)-D01*PHI(     919)
      PHI(     934)=PHI(     934)-D01*PHI(     919)
      PHI(     920)=PHI(     920)-D02*PHI(     914)
      PHI(     921)=PHI(     921)-D02*PHI(     915)
      PHI(     923)=PHI(     923)-D01*PHI(     915)
      PHI(     924)=PHI(     924)-D02*PHI(     916)
      PHI(     925)=PHI(     925)-D02*PHI(     917)
      PHI(     927)=PHI(     927)-D01*PHI(     917)
      PHI(     928)=PHI(     928)-D02*PHI(     918)
      PHI(     932)=PHI(     932)-D01*PHI(     917)
      PHI(     933)=PHI(     933)-D01*PHI(     918)
      PHI(     934)=PHI(     934)-D02*PHI(     919)
      PHI(     914)=PHI(     914)-D01*PHI(     913)
      PHI(     916)=PHI(     916)-D01*PHI(     913)
      PHI(     919)=PHI(     919)-D01*PHI(     913)
      PHI(     920)=PHI(     920)-D03*PHI(     914)
      PHI(     922)=PHI(     922)-D01*PHI(     914)
      PHI(     923)=PHI(     923)-D02*PHI(     915)
      PHI(     924)=PHI(     924)-D03*PHI(     916)
      PHI(     929)=PHI(     929)-D01*PHI(     914)
      PHI(     930)=PHI(     930)-D01*PHI(     915)
      PHI(     931)=PHI(     931)-D01*PHI(     916)
      PHI(     932)=PHI(     932)-D02*PHI(     917)
      PHI(     933)=PHI(     933)-D02*PHI(     918)
      PHI(     934)=PHI(     934)-D03*PHI(     919)
      PHI(     964)=PHI(     964)-D01*PHI(     958)
      PHI(     965)=PHI(     965)-D01*PHI(     959)
      PHI(     966)=PHI(     966)-D01*PHI(     960)
      PHI(     968)=PHI(     968)-D01*PHI(     960)
      PHI(     969)=PHI(     969)-D01*PHI(     961)
      PHI(     970)=PHI(     970)-D01*PHI(     962)
      PHI(     972)=PHI(     972)-D01*PHI(     962)
      PHI(     973)=PHI(     973)-D01*PHI(     963)
      PHI(     975)=PHI(     975)-D01*PHI(     963)
      PHI(     978)=PHI(     978)-D01*PHI(     963)
      PHI(     964)=PHI(     964)-D02*PHI(     958)
      PHI(     965)=PHI(     965)-D02*PHI(     959)
      PHI(     967)=PHI(     967)-D01*PHI(     959)
      PHI(     968)=PHI(     968)-D02*PHI(     960)
      PHI(     969)=PHI(     969)-D02*PHI(     961)
      PHI(     971)=PHI(     971)-D01*PHI(     961)
      PHI(     972)=PHI(     972)-D02*PHI(     962)
      PHI(     976)=PHI(     976)-D01*PHI(     961)
      PHI(     977)=PHI(     977)-D01*PHI(     962)
      PHI(     978)=PHI(     978)-D02*PHI(     963)
      PHI(     958)=PHI(     958)-D01*PHI(     957)
      PHI(     960)=PHI(     960)-D01*PHI(     957)
      PHI(     963)=PHI(     963)-D01*PHI(     957)
      PHI(     964)=PHI(     964)-D03*PHI(     958)
      PHI(     966)=PHI(     966)-D01*PHI(     958)
      PHI(     967)=PHI(     967)-D02*PHI(     959)
      PHI(     968)=PHI(     968)-D03*PHI(     960)
      PHI(     973)=PHI(     973)-D01*PHI(     958)
      PHI(     974)=PHI(     974)-D01*PHI(     959)
      PHI(     975)=PHI(     975)-D01*PHI(     960)
      PHI(     976)=PHI(     976)-D02*PHI(     961)
      PHI(     977)=PHI(     977)-D02*PHI(     962)
      PHI(     978)=PHI(     978)-D03*PHI(     963)
      PHI(    1030)=PHI(    1030)-D01*PHI(    1024)
      PHI(    1031)=PHI(    1031)-D01*PHI(    1025)
      PHI(    1032)=PHI(    1032)-D01*PHI(    1026)
      PHI(    1034)=PHI(    1034)-D01*PHI(    1026)
      PHI(    1035)=PHI(    1035)-D01*PHI(    1027)
      PHI(    1036)=PHI(    1036)-D01*PHI(    1028)
      PHI(    1038)=PHI(    1038)-D01*PHI(    1028)
      PHI(    1039)=PHI(    1039)-D01*PHI(    1029)
      PHI(    1041)=PHI(    1041)-D01*PHI(    1029)
      PHI(    1044)=PHI(    1044)-D01*PHI(    1029)
      PHI(    1030)=PHI(    1030)-D02*PHI(    1024)
      PHI(    1031)=PHI(    1031)-D02*PHI(    1025)
      PHI(    1033)=PHI(    1033)-D01*PHI(    1025)
      PHI(    1034)=PHI(    1034)-D02*PHI(    1026)
      PHI(    1035)=PHI(    1035)-D02*PHI(    1027)
      PHI(    1037)=PHI(    1037)-D01*PHI(    1027)
      PHI(    1038)=PHI(    1038)-D02*PHI(    1028)
      PHI(    1042)=PHI(    1042)-D01*PHI(    1027)
      PHI(    1043)=PHI(    1043)-D01*PHI(    1028)
      PHI(    1044)=PHI(    1044)-D02*PHI(    1029)
      PHI(    1024)=PHI(    1024)-D01*PHI(    1023)
      PHI(    1026)=PHI(    1026)-D01*PHI(    1023)
      PHI(    1029)=PHI(    1029)-D01*PHI(    1023)
      PHI(    1030)=PHI(    1030)-D03*PHI(    1024)
      PHI(    1032)=PHI(    1032)-D01*PHI(    1024)
      PHI(    1033)=PHI(    1033)-D02*PHI(    1025)
      PHI(    1034)=PHI(    1034)-D03*PHI(    1026)
      PHI(    1039)=PHI(    1039)-D01*PHI(    1024)
      PHI(    1040)=PHI(    1040)-D01*PHI(    1025)
      PHI(    1041)=PHI(    1041)-D01*PHI(    1026)
      PHI(    1042)=PHI(    1042)-D02*PHI(    1027)
      PHI(    1043)=PHI(    1043)-D02*PHI(    1028)
      PHI(    1044)=PHI(    1044)-D03*PHI(    1029)
      PHI(    1160)=PHI(    1160)-D01*PHI(    1150)
      PHI(    1161)=PHI(    1161)-D01*PHI(    1151)
      PHI(    1162)=PHI(    1162)-D01*PHI(    1152)
      PHI(    1163)=PHI(    1163)-D01*PHI(    1153)
      PHI(    1165)=PHI(    1165)-D01*PHI(    1153)
      PHI(    1166)=PHI(    1166)-D01*PHI(    1154)
      PHI(    1167)=PHI(    1167)-D01*PHI(    1155)
      PHI(    1168)=PHI(    1168)-D01*PHI(    1156)
      PHI(    1170)=PHI(    1170)-D01*PHI(    1156)
      PHI(    1171)=PHI(    1171)-D01*PHI(    1157)
      PHI(    1172)=PHI(    1172)-D01*PHI(    1158)
      PHI(    1174)=PHI(    1174)-D01*PHI(    1158)
      PHI(    1175)=PHI(    1175)-D01*PHI(    1159)
      PHI(    1177)=PHI(    1177)-D01*PHI(    1159)
      PHI(    1180)=PHI(    1180)-D01*PHI(    1159)
      PHI(    1160)=PHI(    1160)-D02*PHI(    1150)
      PHI(    1161)=PHI(    1161)-D02*PHI(    1151)
      PHI(    1162)=PHI(    1162)-D02*PHI(    1152)
      PHI(    1164)=PHI(    1164)-D01*PHI(    1152)
      PHI(    1165)=PHI(    1165)-D02*PHI(    1153)
      PHI(    1166)=PHI(    1166)-D02*PHI(    1154)
      PHI(    1167)=PHI(    1167)-D02*PHI(    1155)
      PHI(    1169)=PHI(    1169)-D01*PHI(    1155)
      PHI(    1170)=PHI(    1170)-D02*PHI(    1156)
      PHI(    1171)=PHI(    1171)-D02*PHI(    1157)
      PHI(    1173)=PHI(    1173)-D01*PHI(    1157)
      PHI(    1174)=PHI(    1174)-D02*PHI(    1158)
      PHI(    1178)=PHI(    1178)-D01*PHI(    1157)
      PHI(    1179)=PHI(    1179)-D01*PHI(    1158)
      PHI(    1180)=PHI(    1180)-D02*PHI(    1159)
      PHI(    1150)=PHI(    1150)-D01*PHI(    1147)
      PHI(    1151)=PHI(    1151)-D01*PHI(    1148)
      PHI(    1153)=PHI(    1153)-D01*PHI(    1148)
      PHI(    1154)=PHI(    1154)-D01*PHI(    1149)
      PHI(    1156)=PHI(    1156)-D01*PHI(    1149)
      PHI(    1159)=PHI(    1159)-D01*PHI(    1149)
      PHI(    1160)=PHI(    1160)-D03*PHI(    1150)
      PHI(    1161)=PHI(    1161)-D03*PHI(    1151)
      PHI(    1163)=PHI(    1163)-D01*PHI(    1151)
      PHI(    1164)=PHI(    1164)-D02*PHI(    1152)
      PHI(    1165)=PHI(    1165)-D03*PHI(    1153)
      PHI(    1166)=PHI(    1166)-D03*PHI(    1154)
      PHI(    1168)=PHI(    1168)-D01*PHI(    1154)
      PHI(    1169)=PHI(    1169)-D02*PHI(    1155)
      PHI(    1170)=PHI(    1170)-D03*PHI(    1156)
      PHI(    1175)=PHI(    1175)-D01*PHI(    1154)
      PHI(    1176)=PHI(    1176)-D01*PHI(    1155)
      PHI(    1177)=PHI(    1177)-D01*PHI(    1156)
      PHI(    1178)=PHI(    1178)-D02*PHI(    1157)
      PHI(    1179)=PHI(    1179)-D02*PHI(    1158)
      PHI(    1180)=PHI(    1180)-D03*PHI(    1159)
      PHI(    1150)=PHI(    1150)-D02*PHI(    1147)
      PHI(    1152)=PHI(    1152)-D01*PHI(    1147)
      PHI(    1153)=PHI(    1153)-D02*PHI(    1148)
      PHI(    1157)=PHI(    1157)-D01*PHI(    1147)
      PHI(    1158)=PHI(    1158)-D01*PHI(    1148)
      PHI(    1159)=PHI(    1159)-D02*PHI(    1149)
      PHI(    1160)=PHI(    1160)-D04*PHI(    1150)
      PHI(    1162)=PHI(    1162)-D01*PHI(    1150)
      PHI(    1163)=PHI(    1163)-D02*PHI(    1151)
      PHI(    1164)=PHI(    1164)-D03*PHI(    1152)
      PHI(    1165)=PHI(    1165)-D04*PHI(    1153)
      PHI(    1171)=PHI(    1171)-D01*PHI(    1150)
      PHI(    1172)=PHI(    1172)-D01*PHI(    1151)
      PHI(    1173)=PHI(    1173)-D01*PHI(    1152)
      PHI(    1174)=PHI(    1174)-D01*PHI(    1153)
      PHI(    1175)=PHI(    1175)-D02*PHI(    1154)
      PHI(    1176)=PHI(    1176)-D02*PHI(    1155)
      PHI(    1177)=PHI(    1177)-D02*PHI(    1156)
      PHI(    1178)=PHI(    1178)-D03*PHI(    1157)
      PHI(    1179)=PHI(    1179)-D03*PHI(    1158)
      PHI(    1180)=PHI(    1180)-D04*PHI(    1159)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(     128)+CONF( 1)*PHI(      95)
      WRK1(    3)= PHI(     129)+CONF( 2)*PHI(      95)
      WRK1(    4)= PHI(     130)+CONF( 3)*PHI(      95)
      WRK1(   10)= PHI(     337)+CONF( 1)*PHI(     176)
      WRK1(   11)= PHI(     338)+CONF( 1)*PHI(     177)
      WRK1(   12)= PHI(     339)+CONF( 2)*PHI(     177)
      WRK1(   13)= PHI(     340)+CONF( 1)*PHI(     178)
      WRK1(   14)= PHI(     341)+CONF( 2)*PHI(     178)
      WRK1(   15)= PHI(     342)+CONF( 3)*PHI(     178)
      WRK1(    7)= PHI(     176)+CONF( 1)*PHI(     104)
      WRK1(    8)= PHI(     177)+CONF( 2)*PHI(     104)
      WRK1(    9)= PHI(     178)+CONF( 3)*PHI(     104)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(      87)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(      87)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(      87)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    2)= PHI(     116)+CONF( 1)*PHI(      92)
      WRK1(    3)= PHI(     117)+CONF( 2)*PHI(      92)
      WRK1(    4)= PHI(     118)+CONF( 3)*PHI(      92)
      WRK1(   10)= PHI(     316)+CONF( 1)*PHI(     167)
      WRK1(   11)= PHI(     317)+CONF( 1)*PHI(     168)
      WRK1(   12)= PHI(     318)+CONF( 2)*PHI(     168)
      WRK1(   13)= PHI(     319)+CONF( 1)*PHI(     169)
      WRK1(   14)= PHI(     320)+CONF( 2)*PHI(     169)
      WRK1(   15)= PHI(     321)+CONF( 3)*PHI(     169)
      WRK1(    7)= PHI(     167)+CONF( 1)*PHI(     101)
      WRK1(    8)= PHI(     168)+CONF( 2)*PHI(     101)
      WRK1(    9)= PHI(     169)+CONF( 3)*PHI(     101)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(      84)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(      84)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(      84)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    2)=-PHI(     232)-CONF( 1)*PHI(     149)
      WRK1(    3)=-PHI(     233)-CONF( 2)*PHI(     149)
      WRK1(    4)=-PHI(     235)-CONF( 3)*PHI(     149)
      WRK1(   10)=-PHI(     619)-CONF( 1)*PHI(     379)
      WRK1(   11)=-PHI(     620)-CONF( 1)*PHI(     380)
      WRK1(   12)=-PHI(     621)-CONF( 2)*PHI(     380)
      WRK1(   13)=-PHI(     623)-CONF( 1)*PHI(     382)
      WRK1(   14)=-PHI(     624)-CONF( 2)*PHI(     382)
      WRK1(   15)=-PHI(     626)-CONF( 3)*PHI(     382)
      WRK1(    7)=-PHI(     379)-CONF( 1)*PHI(     194)
      WRK1(    8)=-PHI(     380)-CONF( 2)*PHI(     194)
      WRK1(    9)=-PHI(     382)-CONF( 3)*PHI(     194)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     125)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     125)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     125)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    2)=-PHI(     233)-CONF( 1)*PHI(     150)
      WRK1(    3)=-PHI(     234)-CONF( 2)*PHI(     150)
      WRK1(    4)=-PHI(     236)-CONF( 3)*PHI(     150)
      WRK1(   10)=-PHI(     620)-CONF( 1)*PHI(     380)
      WRK1(   11)=-PHI(     621)-CONF( 1)*PHI(     381)
      WRK1(   12)=-PHI(     622)-CONF( 2)*PHI(     381)
      WRK1(   13)=-PHI(     624)-CONF( 1)*PHI(     383)
      WRK1(   14)=-PHI(     625)-CONF( 2)*PHI(     383)
      WRK1(   15)=-PHI(     627)-CONF( 3)*PHI(     383)
      WRK1(    7)=-PHI(     380)-CONF( 1)*PHI(     195)
      WRK1(    8)=-PHI(     381)-CONF( 2)*PHI(     195)
      WRK1(    9)=-PHI(     383)-CONF( 3)*PHI(     195)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     126)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     126)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     126)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    2)=-PHI(     235)-CONF( 1)*PHI(     151)
      WRK1(    3)=-PHI(     236)-CONF( 2)*PHI(     151)
      WRK1(    4)=-PHI(     237)-CONF( 3)*PHI(     151)
      WRK1(   10)=-PHI(     623)-CONF( 1)*PHI(     382)
      WRK1(   11)=-PHI(     624)-CONF( 1)*PHI(     383)
      WRK1(   12)=-PHI(     625)-CONF( 2)*PHI(     383)
      WRK1(   13)=-PHI(     626)-CONF( 1)*PHI(     384)
      WRK1(   14)=-PHI(     627)-CONF( 2)*PHI(     384)
      WRK1(   15)=-PHI(     628)-CONF( 3)*PHI(     384)
      WRK1(    7)=-PHI(     382)-CONF( 1)*PHI(     196)
      WRK1(    8)=-PHI(     383)-CONF( 2)*PHI(     196)
      WRK1(    9)=-PHI(     384)-CONF( 3)*PHI(     196)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     127)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     127)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     127)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    2)= PHI(     476)+CONF( 1)*PHI(     274)
      WRK1(    3)= PHI(     477)+CONF( 2)*PHI(     274)
      WRK1(    4)= PHI(     480)+CONF( 3)*PHI(     274)
      WRK1(   10)= PHI(     920)+CONF( 1)*PHI(     684)
      WRK1(   11)= PHI(     921)+CONF( 1)*PHI(     685)
      WRK1(   12)= PHI(     922)+CONF( 2)*PHI(     685)
      WRK1(   13)= PHI(     925)+CONF( 1)*PHI(     688)
      WRK1(   14)= PHI(     926)+CONF( 2)*PHI(     688)
      WRK1(   15)= PHI(     929)+CONF( 3)*PHI(     688)
      WRK1(    7)= PHI(     684)+CONF( 1)*PHI(     414)
      WRK1(    8)= PHI(     685)+CONF( 2)*PHI(     414)
      WRK1(    9)= PHI(     688)+CONF( 3)*PHI(     414)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     225)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     225)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     225)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    2)= PHI(     477)+CONF( 1)*PHI(     275)
      WRK1(    3)= PHI(     478)+CONF( 2)*PHI(     275)
      WRK1(    4)= PHI(     481)+CONF( 3)*PHI(     275)
      WRK1(   10)= PHI(     921)+CONF( 1)*PHI(     685)
      WRK1(   11)= PHI(     922)+CONF( 1)*PHI(     686)
      WRK1(   12)= PHI(     923)+CONF( 2)*PHI(     686)
      WRK1(   13)= PHI(     926)+CONF( 1)*PHI(     689)
      WRK1(   14)= PHI(     927)+CONF( 2)*PHI(     689)
      WRK1(   15)= PHI(     930)+CONF( 3)*PHI(     689)
      WRK1(    7)= PHI(     685)+CONF( 1)*PHI(     415)
      WRK1(    8)= PHI(     686)+CONF( 2)*PHI(     415)
      WRK1(    9)= PHI(     689)+CONF( 3)*PHI(     415)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     226)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     226)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     226)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    2)= PHI(     478)+CONF( 1)*PHI(     276)
      WRK1(    3)= PHI(     479)+CONF( 2)*PHI(     276)
      WRK1(    4)= PHI(     482)+CONF( 3)*PHI(     276)
      WRK1(   10)= PHI(     922)+CONF( 1)*PHI(     686)
      WRK1(   11)= PHI(     923)+CONF( 1)*PHI(     687)
      WRK1(   12)= PHI(     924)+CONF( 2)*PHI(     687)
      WRK1(   13)= PHI(     927)+CONF( 1)*PHI(     690)
      WRK1(   14)= PHI(     928)+CONF( 2)*PHI(     690)
      WRK1(   15)= PHI(     931)+CONF( 3)*PHI(     690)
      WRK1(    7)= PHI(     686)+CONF( 1)*PHI(     416)
      WRK1(    8)= PHI(     687)+CONF( 2)*PHI(     416)
      WRK1(    9)= PHI(     690)+CONF( 3)*PHI(     416)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     227)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     227)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     227)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    2)= PHI(     480)+CONF( 1)*PHI(     277)
      WRK1(    3)= PHI(     481)+CONF( 2)*PHI(     277)
      WRK1(    4)= PHI(     483)+CONF( 3)*PHI(     277)
      WRK1(   10)= PHI(     925)+CONF( 1)*PHI(     688)
      WRK1(   11)= PHI(     926)+CONF( 1)*PHI(     689)
      WRK1(   12)= PHI(     927)+CONF( 2)*PHI(     689)
      WRK1(   13)= PHI(     929)+CONF( 1)*PHI(     691)
      WRK1(   14)= PHI(     930)+CONF( 2)*PHI(     691)
      WRK1(   15)= PHI(     932)+CONF( 3)*PHI(     691)
      WRK1(    7)= PHI(     688)+CONF( 1)*PHI(     417)
      WRK1(    8)= PHI(     689)+CONF( 2)*PHI(     417)
      WRK1(    9)= PHI(     691)+CONF( 3)*PHI(     417)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     228)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     228)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     228)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    2)= PHI(     481)+CONF( 1)*PHI(     278)
      WRK1(    3)= PHI(     482)+CONF( 2)*PHI(     278)
      WRK1(    4)= PHI(     484)+CONF( 3)*PHI(     278)
      WRK1(   10)= PHI(     926)+CONF( 1)*PHI(     689)
      WRK1(   11)= PHI(     927)+CONF( 1)*PHI(     690)
      WRK1(   12)= PHI(     928)+CONF( 2)*PHI(     690)
      WRK1(   13)= PHI(     930)+CONF( 1)*PHI(     692)
      WRK1(   14)= PHI(     931)+CONF( 2)*PHI(     692)
      WRK1(   15)= PHI(     933)+CONF( 3)*PHI(     692)
      WRK1(    7)= PHI(     689)+CONF( 1)*PHI(     418)
      WRK1(    8)= PHI(     690)+CONF( 2)*PHI(     418)
      WRK1(    9)= PHI(     692)+CONF( 3)*PHI(     418)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     229)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     229)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     229)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    2)= PHI(     483)+CONF( 1)*PHI(     279)
      WRK1(    3)= PHI(     484)+CONF( 2)*PHI(     279)
      WRK1(    4)= PHI(     485)+CONF( 3)*PHI(     279)
      WRK1(   10)= PHI(     929)+CONF( 1)*PHI(     691)
      WRK1(   11)= PHI(     930)+CONF( 1)*PHI(     692)
      WRK1(   12)= PHI(     931)+CONF( 2)*PHI(     692)
      WRK1(   13)= PHI(     932)+CONF( 1)*PHI(     693)
      WRK1(   14)= PHI(     933)+CONF( 2)*PHI(     693)
      WRK1(   15)= PHI(     934)+CONF( 3)*PHI(     693)
      WRK1(    7)= PHI(     691)+CONF( 1)*PHI(     419)
      WRK1(    8)= PHI(     692)+CONF( 2)*PHI(     419)
      WRK1(    9)= PHI(     693)+CONF( 3)*PHI(     419)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     230)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     230)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     230)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   11)
      WRK1(    2)= PHI(     137)+CONF( 1)*PHI(      97)
      WRK1(    3)= PHI(     138)+CONF( 2)*PHI(      97)
      WRK1(    4)= PHI(     139)+CONF( 3)*PHI(      97)
      WRK1(   10)= PHI(     351)+CONF( 1)*PHI(     182)
      WRK1(   11)= PHI(     352)+CONF( 1)*PHI(     183)
      WRK1(   12)= PHI(     353)+CONF( 2)*PHI(     183)
      WRK1(   13)= PHI(     354)+CONF( 1)*PHI(     184)
      WRK1(   14)= PHI(     355)+CONF( 2)*PHI(     184)
      WRK1(   15)= PHI(     356)+CONF( 3)*PHI(     184)
      WRK1(    7)= PHI(     182)+CONF( 1)*PHI(     106)
      WRK1(    8)= PHI(     183)+CONF( 2)*PHI(     106)
      WRK1(    9)= PHI(     184)+CONF( 3)*PHI(     106)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(      89)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(      89)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(      89)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   12)
      WRK1(    2)= PHI(     125)+CONF( 1)*PHI(      94)
      WRK1(    3)= PHI(     126)+CONF( 2)*PHI(      94)
      WRK1(    4)= PHI(     127)+CONF( 3)*PHI(      94)
      WRK1(   10)= PHI(     330)+CONF( 1)*PHI(     173)
      WRK1(   11)= PHI(     331)+CONF( 1)*PHI(     174)
      WRK1(   12)= PHI(     332)+CONF( 2)*PHI(     174)
      WRK1(   13)= PHI(     333)+CONF( 1)*PHI(     175)
      WRK1(   14)= PHI(     334)+CONF( 2)*PHI(     175)
      WRK1(   15)= PHI(     335)+CONF( 3)*PHI(     175)
      WRK1(    7)= PHI(     173)+CONF( 1)*PHI(     103)
      WRK1(    8)= PHI(     174)+CONF( 2)*PHI(     103)
      WRK1(    9)= PHI(     175)+CONF( 3)*PHI(     103)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(      86)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(      86)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(      86)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   13)
      WRK1(    2)=-PHI(     253)-CONF( 1)*PHI(     155)
      WRK1(    3)=-PHI(     254)-CONF( 2)*PHI(     155)
      WRK1(    4)=-PHI(     256)-CONF( 3)*PHI(     155)
      WRK1(   10)=-PHI(     645)-CONF( 1)*PHI(     393)
      WRK1(   11)=-PHI(     646)-CONF( 1)*PHI(     394)
      WRK1(   12)=-PHI(     647)-CONF( 2)*PHI(     394)
      WRK1(   13)=-PHI(     649)-CONF( 1)*PHI(     396)
      WRK1(   14)=-PHI(     650)-CONF( 2)*PHI(     396)
      WRK1(   15)=-PHI(     652)-CONF( 3)*PHI(     396)
      WRK1(    7)=-PHI(     393)-CONF( 1)*PHI(     200)
      WRK1(    8)=-PHI(     394)-CONF( 2)*PHI(     200)
      WRK1(    9)=-PHI(     396)-CONF( 3)*PHI(     200)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     134)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     134)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     134)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   14)
      WRK1(    2)=-PHI(     254)-CONF( 1)*PHI(     156)
      WRK1(    3)=-PHI(     255)-CONF( 2)*PHI(     156)
      WRK1(    4)=-PHI(     257)-CONF( 3)*PHI(     156)
      WRK1(   10)=-PHI(     646)-CONF( 1)*PHI(     394)
      WRK1(   11)=-PHI(     647)-CONF( 1)*PHI(     395)
      WRK1(   12)=-PHI(     648)-CONF( 2)*PHI(     395)
      WRK1(   13)=-PHI(     650)-CONF( 1)*PHI(     397)
      WRK1(   14)=-PHI(     651)-CONF( 2)*PHI(     397)
      WRK1(   15)=-PHI(     653)-CONF( 3)*PHI(     397)
      WRK1(    7)=-PHI(     394)-CONF( 1)*PHI(     201)
      WRK1(    8)=-PHI(     395)-CONF( 2)*PHI(     201)
      WRK1(    9)=-PHI(     397)-CONF( 3)*PHI(     201)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     135)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     135)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     135)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   15)
      WRK1(    2)=-PHI(     256)-CONF( 1)*PHI(     157)
      WRK1(    3)=-PHI(     257)-CONF( 2)*PHI(     157)
      WRK1(    4)=-PHI(     258)-CONF( 3)*PHI(     157)
      WRK1(   10)=-PHI(     649)-CONF( 1)*PHI(     396)
      WRK1(   11)=-PHI(     650)-CONF( 1)*PHI(     397)
      WRK1(   12)=-PHI(     651)-CONF( 2)*PHI(     397)
      WRK1(   13)=-PHI(     652)-CONF( 1)*PHI(     398)
      WRK1(   14)=-PHI(     653)-CONF( 2)*PHI(     398)
      WRK1(   15)=-PHI(     654)-CONF( 3)*PHI(     398)
      WRK1(    7)=-PHI(     396)-CONF( 1)*PHI(     202)
      WRK1(    8)=-PHI(     397)-CONF( 2)*PHI(     202)
      WRK1(    9)=-PHI(     398)-CONF( 3)*PHI(     202)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     136)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     136)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     136)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   16)
      WRK1(    2)=-PHI(     225)-CONF( 1)*PHI(     146)
      WRK1(    3)=-PHI(     226)-CONF( 2)*PHI(     146)
      WRK1(    4)=-PHI(     228)-CONF( 3)*PHI(     146)
      WRK1(   10)=-PHI(     606)-CONF( 1)*PHI(     372)
      WRK1(   11)=-PHI(     607)-CONF( 1)*PHI(     373)
      WRK1(   12)=-PHI(     608)-CONF( 2)*PHI(     373)
      WRK1(   13)=-PHI(     610)-CONF( 1)*PHI(     375)
      WRK1(   14)=-PHI(     611)-CONF( 2)*PHI(     375)
      WRK1(   15)=-PHI(     613)-CONF( 3)*PHI(     375)
      WRK1(    7)=-PHI(     372)-CONF( 1)*PHI(     191)
      WRK1(    8)=-PHI(     373)-CONF( 2)*PHI(     191)
      WRK1(    9)=-PHI(     375)-CONF( 3)*PHI(     191)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     122)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     122)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     122)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   17)
      WRK1(    2)=-PHI(     226)-CONF( 1)*PHI(     147)
      WRK1(    3)=-PHI(     227)-CONF( 2)*PHI(     147)
      WRK1(    4)=-PHI(     229)-CONF( 3)*PHI(     147)
      WRK1(   10)=-PHI(     607)-CONF( 1)*PHI(     373)
      WRK1(   11)=-PHI(     608)-CONF( 1)*PHI(     374)
      WRK1(   12)=-PHI(     609)-CONF( 2)*PHI(     374)
      WRK1(   13)=-PHI(     611)-CONF( 1)*PHI(     376)
      WRK1(   14)=-PHI(     612)-CONF( 2)*PHI(     376)
      WRK1(   15)=-PHI(     614)-CONF( 3)*PHI(     376)
      WRK1(    7)=-PHI(     373)-CONF( 1)*PHI(     192)
      WRK1(    8)=-PHI(     374)-CONF( 2)*PHI(     192)
      WRK1(    9)=-PHI(     376)-CONF( 3)*PHI(     192)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     123)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     123)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     123)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   18)
      WRK1(    2)=-PHI(     228)-CONF( 1)*PHI(     148)
      WRK1(    3)=-PHI(     229)-CONF( 2)*PHI(     148)
      WRK1(    4)=-PHI(     230)-CONF( 3)*PHI(     148)
      WRK1(   10)=-PHI(     610)-CONF( 1)*PHI(     375)
      WRK1(   11)=-PHI(     611)-CONF( 1)*PHI(     376)
      WRK1(   12)=-PHI(     612)-CONF( 2)*PHI(     376)
      WRK1(   13)=-PHI(     613)-CONF( 1)*PHI(     377)
      WRK1(   14)=-PHI(     614)-CONF( 2)*PHI(     377)
      WRK1(   15)=-PHI(     615)-CONF( 3)*PHI(     377)
      WRK1(    7)=-PHI(     375)-CONF( 1)*PHI(     193)
      WRK1(    8)=-PHI(     376)-CONF( 2)*PHI(     193)
      WRK1(    9)=-PHI(     377)-CONF( 3)*PHI(     193)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     124)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     124)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     124)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   19)
      WRK1(    2)= PHI(     515)+CONF( 1)*PHI(     288)
      WRK1(    3)= PHI(     516)+CONF( 2)*PHI(     288)
      WRK1(    4)= PHI(     519)+CONF( 3)*PHI(     288)
      WRK1(   10)= PHI(     964)+CONF( 1)*PHI(     710)
      WRK1(   11)= PHI(     965)+CONF( 1)*PHI(     711)
      WRK1(   12)= PHI(     966)+CONF( 2)*PHI(     711)
      WRK1(   13)= PHI(     969)+CONF( 1)*PHI(     714)
      WRK1(   14)= PHI(     970)+CONF( 2)*PHI(     714)
      WRK1(   15)= PHI(     973)+CONF( 3)*PHI(     714)
      WRK1(    7)= PHI(     710)+CONF( 1)*PHI(     428)
      WRK1(    8)= PHI(     711)+CONF( 2)*PHI(     428)
      WRK1(    9)= PHI(     714)+CONF( 3)*PHI(     428)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     246)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     246)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     246)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   20)
      WRK1(    2)= PHI(     516)+CONF( 1)*PHI(     289)
      WRK1(    3)= PHI(     517)+CONF( 2)*PHI(     289)
      WRK1(    4)= PHI(     520)+CONF( 3)*PHI(     289)
      WRK1(   10)= PHI(     965)+CONF( 1)*PHI(     711)
      WRK1(   11)= PHI(     966)+CONF( 1)*PHI(     712)
      WRK1(   12)= PHI(     967)+CONF( 2)*PHI(     712)
      WRK1(   13)= PHI(     970)+CONF( 1)*PHI(     715)
      WRK1(   14)= PHI(     971)+CONF( 2)*PHI(     715)
      WRK1(   15)= PHI(     974)+CONF( 3)*PHI(     715)
      WRK1(    7)= PHI(     711)+CONF( 1)*PHI(     429)
      WRK1(    8)= PHI(     712)+CONF( 2)*PHI(     429)
      WRK1(    9)= PHI(     715)+CONF( 3)*PHI(     429)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     247)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     247)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     247)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   21)
      WRK1(    2)= PHI(     517)+CONF( 1)*PHI(     290)
      WRK1(    3)= PHI(     518)+CONF( 2)*PHI(     290)
      WRK1(    4)= PHI(     521)+CONF( 3)*PHI(     290)
      WRK1(   10)= PHI(     966)+CONF( 1)*PHI(     712)
      WRK1(   11)= PHI(     967)+CONF( 1)*PHI(     713)
      WRK1(   12)= PHI(     968)+CONF( 2)*PHI(     713)
      WRK1(   13)= PHI(     971)+CONF( 1)*PHI(     716)
      WRK1(   14)= PHI(     972)+CONF( 2)*PHI(     716)
      WRK1(   15)= PHI(     975)+CONF( 3)*PHI(     716)
      WRK1(    7)= PHI(     712)+CONF( 1)*PHI(     430)
      WRK1(    8)= PHI(     713)+CONF( 2)*PHI(     430)
      WRK1(    9)= PHI(     716)+CONF( 3)*PHI(     430)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     248)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     248)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     248)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   22)
      WRK1(    2)= PHI(     519)+CONF( 1)*PHI(     291)
      WRK1(    3)= PHI(     520)+CONF( 2)*PHI(     291)
      WRK1(    4)= PHI(     522)+CONF( 3)*PHI(     291)
      WRK1(   10)= PHI(     969)+CONF( 1)*PHI(     714)
      WRK1(   11)= PHI(     970)+CONF( 1)*PHI(     715)
      WRK1(   12)= PHI(     971)+CONF( 2)*PHI(     715)
      WRK1(   13)= PHI(     973)+CONF( 1)*PHI(     717)
      WRK1(   14)= PHI(     974)+CONF( 2)*PHI(     717)
      WRK1(   15)= PHI(     976)+CONF( 3)*PHI(     717)
      WRK1(    7)= PHI(     714)+CONF( 1)*PHI(     431)
      WRK1(    8)= PHI(     715)+CONF( 2)*PHI(     431)
      WRK1(    9)= PHI(     717)+CONF( 3)*PHI(     431)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     249)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     249)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     249)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   23)
      WRK1(    2)= PHI(     520)+CONF( 1)*PHI(     292)
      WRK1(    3)= PHI(     521)+CONF( 2)*PHI(     292)
      WRK1(    4)= PHI(     523)+CONF( 3)*PHI(     292)
      WRK1(   10)= PHI(     970)+CONF( 1)*PHI(     715)
      WRK1(   11)= PHI(     971)+CONF( 1)*PHI(     716)
      WRK1(   12)= PHI(     972)+CONF( 2)*PHI(     716)
      WRK1(   13)= PHI(     974)+CONF( 1)*PHI(     718)
      WRK1(   14)= PHI(     975)+CONF( 2)*PHI(     718)
      WRK1(   15)= PHI(     977)+CONF( 3)*PHI(     718)
      WRK1(    7)= PHI(     715)+CONF( 1)*PHI(     432)
      WRK1(    8)= PHI(     716)+CONF( 2)*PHI(     432)
      WRK1(    9)= PHI(     718)+CONF( 3)*PHI(     432)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     250)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     250)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     250)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   24)
      WRK1(    2)= PHI(     522)+CONF( 1)*PHI(     293)
      WRK1(    3)= PHI(     523)+CONF( 2)*PHI(     293)
      WRK1(    4)= PHI(     524)+CONF( 3)*PHI(     293)
      WRK1(   10)= PHI(     973)+CONF( 1)*PHI(     717)
      WRK1(   11)= PHI(     974)+CONF( 1)*PHI(     718)
      WRK1(   12)= PHI(     975)+CONF( 2)*PHI(     718)
      WRK1(   13)= PHI(     976)+CONF( 1)*PHI(     719)
      WRK1(   14)= PHI(     977)+CONF( 2)*PHI(     719)
      WRK1(   15)= PHI(     978)+CONF( 3)*PHI(     719)
      WRK1(    7)= PHI(     717)+CONF( 1)*PHI(     433)
      WRK1(    8)= PHI(     718)+CONF( 2)*PHI(     433)
      WRK1(    9)= PHI(     719)+CONF( 3)*PHI(     433)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     251)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     251)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     251)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   25)
      WRK1(    2)=-PHI(     832)-CONF( 1)*PHI(     554)
      WRK1(    3)=-PHI(     833)-CONF( 2)*PHI(     554)
      WRK1(    4)=-PHI(     837)-CONF( 3)*PHI(     554)
      WRK1(   10)=-PHI(    1160)-CONF( 1)*PHI(    1030)
      WRK1(   11)=-PHI(    1161)-CONF( 1)*PHI(    1031)
      WRK1(   12)=-PHI(    1162)-CONF( 2)*PHI(    1031)
      WRK1(   13)=-PHI(    1166)-CONF( 1)*PHI(    1035)
      WRK1(   14)=-PHI(    1167)-CONF( 2)*PHI(    1035)
      WRK1(   15)=-PHI(    1171)-CONF( 3)*PHI(    1035)
      WRK1(    7)=-PHI(    1030)-CONF( 1)*PHI(     749)
      WRK1(    8)=-PHI(    1031)-CONF( 2)*PHI(     749)
      WRK1(    9)=-PHI(    1035)-CONF( 3)*PHI(     749)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     502)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     502)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     502)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   26)
      WRK1(    2)=-PHI(     833)-CONF( 1)*PHI(     555)
      WRK1(    3)=-PHI(     834)-CONF( 2)*PHI(     555)
      WRK1(    4)=-PHI(     838)-CONF( 3)*PHI(     555)
      WRK1(   10)=-PHI(    1161)-CONF( 1)*PHI(    1031)
      WRK1(   11)=-PHI(    1162)-CONF( 1)*PHI(    1032)
      WRK1(   12)=-PHI(    1163)-CONF( 2)*PHI(    1032)
      WRK1(   13)=-PHI(    1167)-CONF( 1)*PHI(    1036)
      WRK1(   14)=-PHI(    1168)-CONF( 2)*PHI(    1036)
      WRK1(   15)=-PHI(    1172)-CONF( 3)*PHI(    1036)
      WRK1(    7)=-PHI(    1031)-CONF( 1)*PHI(     750)
      WRK1(    8)=-PHI(    1032)-CONF( 2)*PHI(     750)
      WRK1(    9)=-PHI(    1036)-CONF( 3)*PHI(     750)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     503)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     503)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     503)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   27)
      WRK1(    2)=-PHI(     834)-CONF( 1)*PHI(     556)
      WRK1(    3)=-PHI(     835)-CONF( 2)*PHI(     556)
      WRK1(    4)=-PHI(     839)-CONF( 3)*PHI(     556)
      WRK1(   10)=-PHI(    1162)-CONF( 1)*PHI(    1032)
      WRK1(   11)=-PHI(    1163)-CONF( 1)*PHI(    1033)
      WRK1(   12)=-PHI(    1164)-CONF( 2)*PHI(    1033)
      WRK1(   13)=-PHI(    1168)-CONF( 1)*PHI(    1037)
      WRK1(   14)=-PHI(    1169)-CONF( 2)*PHI(    1037)
      WRK1(   15)=-PHI(    1173)-CONF( 3)*PHI(    1037)
      WRK1(    7)=-PHI(    1032)-CONF( 1)*PHI(     751)
      WRK1(    8)=-PHI(    1033)-CONF( 2)*PHI(     751)
      WRK1(    9)=-PHI(    1037)-CONF( 3)*PHI(     751)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     504)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     504)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     504)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   28)
      WRK1(    2)=-PHI(     835)-CONF( 1)*PHI(     557)
      WRK1(    3)=-PHI(     836)-CONF( 2)*PHI(     557)
      WRK1(    4)=-PHI(     840)-CONF( 3)*PHI(     557)
      WRK1(   10)=-PHI(    1163)-CONF( 1)*PHI(    1033)
      WRK1(   11)=-PHI(    1164)-CONF( 1)*PHI(    1034)
      WRK1(   12)=-PHI(    1165)-CONF( 2)*PHI(    1034)
      WRK1(   13)=-PHI(    1169)-CONF( 1)*PHI(    1038)
      WRK1(   14)=-PHI(    1170)-CONF( 2)*PHI(    1038)
      WRK1(   15)=-PHI(    1174)-CONF( 3)*PHI(    1038)
      WRK1(    7)=-PHI(    1033)-CONF( 1)*PHI(     752)
      WRK1(    8)=-PHI(    1034)-CONF( 2)*PHI(     752)
      WRK1(    9)=-PHI(    1038)-CONF( 3)*PHI(     752)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     505)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     505)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     505)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   29)
      WRK1(    2)=-PHI(     837)-CONF( 1)*PHI(     558)
      WRK1(    3)=-PHI(     838)-CONF( 2)*PHI(     558)
      WRK1(    4)=-PHI(     841)-CONF( 3)*PHI(     558)
      WRK1(   10)=-PHI(    1166)-CONF( 1)*PHI(    1035)
      WRK1(   11)=-PHI(    1167)-CONF( 1)*PHI(    1036)
      WRK1(   12)=-PHI(    1168)-CONF( 2)*PHI(    1036)
      WRK1(   13)=-PHI(    1171)-CONF( 1)*PHI(    1039)
      WRK1(   14)=-PHI(    1172)-CONF( 2)*PHI(    1039)
      WRK1(   15)=-PHI(    1175)-CONF( 3)*PHI(    1039)
      WRK1(    7)=-PHI(    1035)-CONF( 1)*PHI(     753)
      WRK1(    8)=-PHI(    1036)-CONF( 2)*PHI(     753)
      WRK1(    9)=-PHI(    1039)-CONF( 3)*PHI(     753)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     506)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     506)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     506)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   30)
      WRK1(    2)=-PHI(     838)-CONF( 1)*PHI(     559)
      WRK1(    3)=-PHI(     839)-CONF( 2)*PHI(     559)
      WRK1(    4)=-PHI(     842)-CONF( 3)*PHI(     559)
      WRK1(   10)=-PHI(    1167)-CONF( 1)*PHI(    1036)
      WRK1(   11)=-PHI(    1168)-CONF( 1)*PHI(    1037)
      WRK1(   12)=-PHI(    1169)-CONF( 2)*PHI(    1037)
      WRK1(   13)=-PHI(    1172)-CONF( 1)*PHI(    1040)
      WRK1(   14)=-PHI(    1173)-CONF( 2)*PHI(    1040)
      WRK1(   15)=-PHI(    1176)-CONF( 3)*PHI(    1040)
      WRK1(    7)=-PHI(    1036)-CONF( 1)*PHI(     754)
      WRK1(    8)=-PHI(    1037)-CONF( 2)*PHI(     754)
      WRK1(    9)=-PHI(    1040)-CONF( 3)*PHI(     754)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     507)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     507)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     507)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   31)
      WRK1(    2)=-PHI(     839)-CONF( 1)*PHI(     560)
      WRK1(    3)=-PHI(     840)-CONF( 2)*PHI(     560)
      WRK1(    4)=-PHI(     843)-CONF( 3)*PHI(     560)
      WRK1(   10)=-PHI(    1168)-CONF( 1)*PHI(    1037)
      WRK1(   11)=-PHI(    1169)-CONF( 1)*PHI(    1038)
      WRK1(   12)=-PHI(    1170)-CONF( 2)*PHI(    1038)
      WRK1(   13)=-PHI(    1173)-CONF( 1)*PHI(    1041)
      WRK1(   14)=-PHI(    1174)-CONF( 2)*PHI(    1041)
      WRK1(   15)=-PHI(    1177)-CONF( 3)*PHI(    1041)
      WRK1(    7)=-PHI(    1037)-CONF( 1)*PHI(     755)
      WRK1(    8)=-PHI(    1038)-CONF( 2)*PHI(     755)
      WRK1(    9)=-PHI(    1041)-CONF( 3)*PHI(     755)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     508)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     508)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     508)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   32)
      WRK1(    2)=-PHI(     841)-CONF( 1)*PHI(     561)
      WRK1(    3)=-PHI(     842)-CONF( 2)*PHI(     561)
      WRK1(    4)=-PHI(     844)-CONF( 3)*PHI(     561)
      WRK1(   10)=-PHI(    1171)-CONF( 1)*PHI(    1039)
      WRK1(   11)=-PHI(    1172)-CONF( 1)*PHI(    1040)
      WRK1(   12)=-PHI(    1173)-CONF( 2)*PHI(    1040)
      WRK1(   13)=-PHI(    1175)-CONF( 1)*PHI(    1042)
      WRK1(   14)=-PHI(    1176)-CONF( 2)*PHI(    1042)
      WRK1(   15)=-PHI(    1178)-CONF( 3)*PHI(    1042)
      WRK1(    7)=-PHI(    1039)-CONF( 1)*PHI(     756)
      WRK1(    8)=-PHI(    1040)-CONF( 2)*PHI(     756)
      WRK1(    9)=-PHI(    1042)-CONF( 3)*PHI(     756)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     509)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     509)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     509)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   33)
      WRK1(    2)=-PHI(     842)-CONF( 1)*PHI(     562)
      WRK1(    3)=-PHI(     843)-CONF( 2)*PHI(     562)
      WRK1(    4)=-PHI(     845)-CONF( 3)*PHI(     562)
      WRK1(   10)=-PHI(    1172)-CONF( 1)*PHI(    1040)
      WRK1(   11)=-PHI(    1173)-CONF( 1)*PHI(    1041)
      WRK1(   12)=-PHI(    1174)-CONF( 2)*PHI(    1041)
      WRK1(   13)=-PHI(    1176)-CONF( 1)*PHI(    1043)
      WRK1(   14)=-PHI(    1177)-CONF( 2)*PHI(    1043)
      WRK1(   15)=-PHI(    1179)-CONF( 3)*PHI(    1043)
      WRK1(    7)=-PHI(    1040)-CONF( 1)*PHI(     757)
      WRK1(    8)=-PHI(    1041)-CONF( 2)*PHI(     757)
      WRK1(    9)=-PHI(    1043)-CONF( 3)*PHI(     757)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     510)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     510)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     510)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   34)
      WRK1(    2)=-PHI(     844)-CONF( 1)*PHI(     563)
      WRK1(    3)=-PHI(     845)-CONF( 2)*PHI(     563)
      WRK1(    4)=-PHI(     846)-CONF( 3)*PHI(     563)
      WRK1(   10)=-PHI(    1175)-CONF( 1)*PHI(    1042)
      WRK1(   11)=-PHI(    1176)-CONF( 1)*PHI(    1043)
      WRK1(   12)=-PHI(    1177)-CONF( 2)*PHI(    1043)
      WRK1(   13)=-PHI(    1178)-CONF( 1)*PHI(    1044)
      WRK1(   14)=-PHI(    1179)-CONF( 2)*PHI(    1044)
      WRK1(   15)=-PHI(    1180)-CONF( 3)*PHI(    1044)
      WRK1(    7)=-PHI(    1042)-CONF( 1)*PHI(     758)
      WRK1(    8)=-PHI(    1043)-CONF( 2)*PHI(     758)
      WRK1(    9)=-PHI(    1044)-CONF( 3)*PHI(     758)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     511)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     511)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     511)
      CALL DPPP_BCTE(WRK1,WRK2,LENW,CONF,   35)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     9
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   36,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   37,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   38,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   39,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   40,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   41,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   42,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   43,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(   44,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(   45,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(   46,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(   47,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(   48,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(   49,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(   50,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(   51,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(   52,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(   53,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DPPP_BCTE
      SUBROUTINE DPPP_BCTE(WRK1,WRK2,LENW,CONF,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*),CONF(*)
      WRK1(   10)=WRK1(   10)+CONF( 1)*WRK1(    7)
      WRK1(   11)=WRK1(   11)+CONF( 2)*WRK1(    7)
      WRK1(   12)=WRK1(   12)+CONF( 2)*WRK1(    8)
      WRK1(   13)=WRK1(   13)+CONF( 3)*WRK1(    7)
      WRK1(   14)=WRK1(   14)+CONF( 3)*WRK1(    8)
      WRK1(   15)=WRK1(   15)+CONF( 3)*WRK1(    9)
      WRK1(   16)=WRK1(   10)-CONF( 1)*WRK1(    2)
      WRK1(   17)=WRK1(   11)-CONF( 1)*WRK1(    3)
      WRK1(   18)=WRK1(   13)-CONF( 1)*WRK1(    4)
      WRK1(   19)=WRK1(   11)-CONF( 2)*WRK1(    2)
      WRK1(   20)=WRK1(   12)-CONF( 2)*WRK1(    3)
      WRK1(   21)=WRK1(   14)-CONF( 2)*WRK1(    4)
      WRK1(   22)=WRK1(   13)-CONF( 3)*WRK1(    2)
      WRK1(   23)=WRK1(   14)-CONF( 3)*WRK1(    3)
      WRK1(   24)=WRK1(   15)-CONF( 3)*WRK1(    4)
      J=      15
      DO I=1,     9
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=     928
C  LWK1=      11
C  LWK2=     318
C  LENW=      53
C*MODULE INT2D   *DECK DPDS
      SUBROUTINE DPDS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 5),CXYZ( 56)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (D04=4.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 5)
      KL=0
      PHI(      84)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      89)=ZERO
      PHI(      93)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(      98)=ZERO
      PHI(     108)=ZERO
      PHI(     109)=ZERO
      PHI(     110)=ZERO
      PHI(     111)=ZERO
      PHI(     112)=ZERO
      PHI(     113)=ZERO
      PHI(     117)=ZERO
      PHI(     118)=ZERO
      PHI(     119)=ZERO
      PHI(     129)=ZERO
      PHI(     130)=ZERO
      PHI(     131)=ZERO
      PHI(     135)=ZERO
      PHI(     136)=ZERO
      PHI(     137)=ZERO
      PHI(     138)=ZERO
      PHI(     139)=ZERO
      PHI(     140)=ZERO
      PHI(     144)=ZERO
      PHI(     145)=ZERO
      PHI(     146)=ZERO
      PHI(     153)=ZERO
      PHI(     154)=ZERO
      PHI(     155)=ZERO
      PHI(     156)=ZERO
      PHI(     157)=ZERO
      PHI(     158)=ZERO
      PHI(     162)=ZERO
      PHI(     163)=ZERO
      PHI(     164)=ZERO
      DO I=     186,     192
      PHI(I)=ZERO
      END DO
      DO I=     200,     206
      PHI(I)=ZERO
      END DO
      DO I=     228,     234
      PHI(I)=ZERO
      END DO
      DO I=     242,     248
      PHI(I)=ZERO
      END DO
      DO I=     249,     255
      PHI(I)=ZERO
      END DO
      DO I=     263,     269
      PHI(I)=ZERO
      END DO
      DO I=     284,     290
      PHI(I)=ZERO
      END DO
      DO I=     291,     297
      PHI(I)=ZERO
      END DO
      DO I=     305,     311
      PHI(I)=ZERO
      END DO
      DO I=     326,     332
      PHI(I)=ZERO
      END DO
      DO I=     340,     346
      PHI(I)=ZERO
      END DO
      DO I=     386,     398
      PHI(I)=ZERO
      END DO
      DO I=     438,     450
      PHI(I)=ZERO
      END DO
      DO I=     451,     463
      PHI(I)=ZERO
      END DO
      DO I=     477,     489
      PHI(I)=ZERO
      END DO
      DO I=     516,     528
      PHI(I)=ZERO
      END DO
      DO I=     542,     554
      PHI(I)=ZERO
      END DO
      DO I=     581,     593
      PHI(I)=ZERO
      END DO
      DO I=     660,     681
      PHI(I)=ZERO
      END DO
      DO I=     704,     725
      PHI(I)=ZERO
      END DO
      DO I=     770,     791
      PHI(I)=ZERO
      END DO
      DO I=     894,     927
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      85)=ZERO
      PHI(      88)=ZERO
      PHI(      92)=ZERO
      PHI(      94)=ZERO
      PHI(      97)=ZERO
      PHI(     105)=ZERO
      PHI(     106)=ZERO
      PHI(     107)=ZERO
      PHI(     114)=ZERO
      PHI(     115)=ZERO
      PHI(     116)=ZERO
      PHI(     126)=ZERO
      PHI(     127)=ZERO
      PHI(     128)=ZERO
      PHI(     132)=ZERO
      PHI(     133)=ZERO
      PHI(     134)=ZERO
      PHI(     141)=ZERO
      PHI(     142)=ZERO
      PHI(     143)=ZERO
      PHI(     150)=ZERO
      PHI(     151)=ZERO
      PHI(     152)=ZERO
      PHI(     159)=ZERO
      PHI(     160)=ZERO
      PHI(     161)=ZERO
      DO I=     179,     185
      PHI(I)=ZERO
      END DO
      DO I=     193,     199
      PHI(I)=ZERO
      END DO
      DO I=     221,     227
      PHI(I)=ZERO
      END DO
      DO I=     235,     241
      PHI(I)=ZERO
      END DO
      DO I=     256,     262
      PHI(I)=ZERO
      END DO
      DO I=     277,     283
      PHI(I)=ZERO
      END DO
      DO I=     298,     304
      PHI(I)=ZERO
      END DO
      DO I=     319,     325
      PHI(I)=ZERO
      END DO
      DO I=     333,     339
      PHI(I)=ZERO
      END DO
      DO I=     373,     385
      PHI(I)=ZERO
      END DO
      DO I=     425,     437
      PHI(I)=ZERO
      END DO
      DO I=     464,     476
      PHI(I)=ZERO
      END DO
      DO I=     503,     515
      PHI(I)=ZERO
      END DO
      DO I=     529,     541
      PHI(I)=ZERO
      END DO
      DO I=     568,     580
      PHI(I)=ZERO
      END DO
      DO I=     638,     659
      PHI(I)=ZERO
      END DO
      DO I=     682,     703
      PHI(I)=ZERO
      END DO
      DO I=     748,     769
      PHI(I)=ZERO
      END DO
      DO I=     860,     893
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      82)=ZERO
      PHI(      91)=ZERO
      PHI(     102)=ZERO
      PHI(     103)=ZERO
      PHI(     104)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     125)=ZERO
      PHI(     147)=ZERO
      PHI(     148)=ZERO
      PHI(     149)=ZERO
      DO I=     172,     178
      PHI(I)=ZERO
      END DO
      DO I=     214,     220
      PHI(I)=ZERO
      END DO
      DO I=     270,     276
      PHI(I)=ZERO
      END DO
      DO I=     312,     318
      PHI(I)=ZERO
      END DO
      DO I=     360,     372
      PHI(I)=ZERO
      END DO
      DO I=     412,     424
      PHI(I)=ZERO
      END DO
      DO I=     490,     502
      PHI(I)=ZERO
      END DO
      DO I=     555,     567
      PHI(I)=ZERO
      END DO
      DO I=     616,     637
      PHI(I)=ZERO
      END DO
      DO I=     726,     747
      PHI(I)=ZERO
      END DO
      DO I=     826,     859
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      90)=ZERO
      PHI(      99)=ZERO
      PHI(     100)=ZERO
      PHI(     101)=ZERO
      PHI(     120)=ZERO
      PHI(     121)=ZERO
      PHI(     122)=ZERO
      DO I=     165,     171
      PHI(I)=ZERO
      END DO
      DO I=     207,     213
      PHI(I)=ZERO
      END DO
      DO I=     347,     359
      PHI(I)=ZERO
      END DO
      DO I=     399,     411
      PHI(I)=ZERO
      END DO
      DO I=     594,     615
      PHI(I)=ZERO
      END DO
      DO I=     792,     825
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 5)
      FX=(FX + FGRID(3,IPT, 5))*TVAL
      FX=(FX + FGRID(2,IPT, 5))*TVAL
      FX=(FX + FGRID(1,IPT, 5))*TVAL
      FX= FX + FGRID(0,IPT, 5)
      FT( 8)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 7)=RMR( 8)*(T2*FT( 8)+ET)
      FT( 6)=RMR( 7)*(T2*FT( 7)+ET)
      FT( 5)=RMR( 6)*(T2*FT( 6)+ET)
      FT( 4)=RMR( 5)*(T2*FT( 5)+ET)
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      VSM=VSM*VS2
      SAUX( 5)=ZEROL*FT( 5)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      RR=RR*RINV
      SAUX( 5)=TLGM( 5)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      CXYZ(    36)=CXYZ(    21)*RXYZ(1)
      CXYZ(    37)=CXYZ(    22)*RXYZ(1)
      CXYZ(    38)=CXYZ(    23)*RXYZ(1)
      CXYZ(    39)=CXYZ(    24)*RXYZ(1)
      CXYZ(    40)=CXYZ(    25)*RXYZ(1)
      CXYZ(    41)=CXYZ(    25)*RXYZ(2)
      CXYZ(    42)=CXYZ(    26)*RXYZ(1)
      CXYZ(    43)=CXYZ(    27)*RXYZ(1)
      CXYZ(    44)=CXYZ(    28)*RXYZ(1)
      CXYZ(    45)=CXYZ(    29)*RXYZ(1)
      CXYZ(    46)=CXYZ(    29)*RXYZ(2)
      CXYZ(    47)=CXYZ(    30)*RXYZ(1)
      CXYZ(    48)=CXYZ(    31)*RXYZ(1)
      CXYZ(    49)=CXYZ(    32)*RXYZ(1)
      CXYZ(    50)=CXYZ(    32)*RXYZ(2)
      CXYZ(    51)=CXYZ(    33)*RXYZ(1)
      CXYZ(    52)=CXYZ(    34)*RXYZ(1)
      CXYZ(    53)=CXYZ(    34)*RXYZ(2)
      CXYZ(    54)=CXYZ(    35)*RXYZ(1)
      CXYZ(    55)=CXYZ(    35)*RXYZ(2)
      CXYZ(    56)=CXYZ(    35)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      PHI(      47)=CXYZ(     2)*SAUX( 3)
      PHI(      48)=CXYZ(     3)*SAUX( 3)
      PHI(      49)=CXYZ(     4)*SAUX( 3)
      PHI(      50)=CXYZ(    11)*SAUX( 4)
      PHI(      51)=CXYZ(    12)*SAUX( 4)
      PHI(      52)=CXYZ(    13)*SAUX( 4)
      PHI(      53)=CXYZ(    14)*SAUX( 4)
      PHI(      54)=CXYZ(    15)*SAUX( 4)
      PHI(      55)=CXYZ(    16)*SAUX( 4)
      PHI(      56)=CXYZ(    17)*SAUX( 4)
      PHI(      57)=CXYZ(    18)*SAUX( 4)
      PHI(      58)=CXYZ(    19)*SAUX( 4)
      PHI(      59)=CXYZ(    20)*SAUX( 4)
      PHI(      60)=CXYZ(    36)*SAUX( 5)
      PHI(      61)=CXYZ(    37)*SAUX( 5)
      PHI(      62)=CXYZ(    38)*SAUX( 5)
      PHI(      63)=CXYZ(    39)*SAUX( 5)
      PHI(      64)=CXYZ(    40)*SAUX( 5)
      PHI(      65)=CXYZ(    41)*SAUX( 5)
      PHI(      66)=CXYZ(    42)*SAUX( 5)
      PHI(      67)=CXYZ(    43)*SAUX( 5)
      PHI(      68)=CXYZ(    44)*SAUX( 5)
      PHI(      69)=CXYZ(    45)*SAUX( 5)
      PHI(      70)=CXYZ(    46)*SAUX( 5)
      PHI(      71)=CXYZ(    47)*SAUX( 5)
      PHI(      72)=CXYZ(    48)*SAUX( 5)
      PHI(      73)=CXYZ(    49)*SAUX( 5)
      PHI(      74)=CXYZ(    50)*SAUX( 5)
      PHI(      75)=CXYZ(    51)*SAUX( 5)
      PHI(      76)=CXYZ(    52)*SAUX( 5)
      PHI(      77)=CXYZ(    53)*SAUX( 5)
      PHI(      78)=CXYZ(    54)*SAUX( 5)
      PHI(      79)=CXYZ(    55)*SAUX( 5)
      PHI(      80)=CXYZ(    56)*SAUX( 5)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 2)
      PHI(      81)=PHI(      81)+FAC*PHI(       1)
      FAC=SFAC( 3)
      PHI(      90)=PHI(      90)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      99)=PHI(      99)+FAC*PHI(       2)
      PHI(     100)=PHI(     100)+FAC*PHI(       3)
      PHI(     101)=PHI(     101)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(     120)=PHI(     120)+FAC*PHI(       2)
      PHI(     121)=PHI(     121)+FAC*PHI(       3)
      PHI(     122)=PHI(     122)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     165,     171
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     207,     213
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     347,     359
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     399,     411
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     594,     615
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      47
      DO I=     792,     825
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      FAC=SFAC( 1)
      PHI(      82)=PHI(      82)+FAC*PHI(      81)
      FAC=SFAC( 3)
      PHI(      91)=PHI(      91)+FAC*PHI(      90)
      FAC=SFAC( 1)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      PHI(     103)=PHI(     103)+FAC*PHI(     100)
      PHI(     104)=PHI(     104)+FAC*PHI(     101)
      FAC=SFAC( 2)
      PHI(     123)=PHI(     123)+FAC*PHI(     120)
      PHI(     124)=PHI(     124)+FAC*PHI(     121)
      PHI(     125)=PHI(     125)+FAC*PHI(     122)
      FAC=SFAC( 3)
      PHI(     147)=PHI(     147)+FAC*PHI(     120)
      PHI(     148)=PHI(     148)+FAC*PHI(     121)
      PHI(     149)=PHI(     149)+FAC*PHI(     122)
      FAC=SFAC( 1)
      J=     165
      DO I=     172,     178
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     207
      DO I=     214,     220
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     207
      DO I=     270,     276
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     207
      DO I=     312,     318
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     347
      DO I=     360,     372
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     399
      DO I=     412,     424
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     399
      DO I=     490,     502
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     399
      DO I=     555,     567
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     594
      DO I=     616,     637
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     594
      DO I=     726,     747
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     792
      DO I=     826,     859
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 2)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      88)=PHI(      88)+FAC*PHI(      82)
      FAC=SFAC( 2)
      PHI(      92)=PHI(      92)+FAC*PHI(      91)
      FAC=SFAC( 3)
      PHI(      94)=PHI(      94)+FAC*PHI(      91)
      FAC=SFAC( 4)
      PHI(      97)=PHI(      97)+FAC*PHI(      91)
      FAC=SFAC( 3)
      PHI(     105)=PHI(     105)+FAC*PHI(     102)
      PHI(     106)=PHI(     106)+FAC*PHI(     103)
      PHI(     107)=PHI(     107)+FAC*PHI(     104)
      FAC=SFAC( 4)
      PHI(     114)=PHI(     114)+FAC*PHI(     102)
      PHI(     115)=PHI(     115)+FAC*PHI(     103)
      PHI(     116)=PHI(     116)+FAC*PHI(     104)
      FAC=SFAC( 2)
      PHI(     126)=PHI(     126)+FAC*PHI(     123)
      PHI(     127)=PHI(     127)+FAC*PHI(     124)
      PHI(     128)=PHI(     128)+FAC*PHI(     125)
      FAC=SFAC( 3)
      PHI(     132)=PHI(     132)+FAC*PHI(     123)
      PHI(     133)=PHI(     133)+FAC*PHI(     124)
      PHI(     134)=PHI(     134)+FAC*PHI(     125)
      FAC=SFAC( 4)
      PHI(     141)=PHI(     141)+FAC*PHI(     123)
      PHI(     142)=PHI(     142)+FAC*PHI(     124)
      PHI(     143)=PHI(     143)+FAC*PHI(     125)
      FAC=SFAC( 3)
      PHI(     150)=PHI(     150)+FAC*PHI(     147)
      PHI(     151)=PHI(     151)+FAC*PHI(     148)
      PHI(     152)=PHI(     152)+FAC*PHI(     149)
      FAC=SFAC( 4)
      PHI(     159)=PHI(     159)+FAC*PHI(     147)
      PHI(     160)=PHI(     160)+FAC*PHI(     148)
      PHI(     161)=PHI(     161)+FAC*PHI(     149)
      FAC=SFAC( 3)
      J=     172
      DO I=     179,     185
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     172
      DO I=     193,     199
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     214
      DO I=     221,     227
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     214
      DO I=     235,     241
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     214
      DO I=     256,     262
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     270
      DO I=     277,     283
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     270
      DO I=     298,     304
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     312
      DO I=     319,     325
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     312
      DO I=     333,     339
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     360
      DO I=     373,     385
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     412
      DO I=     425,     437
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     412
      DO I=     464,     476
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     490
      DO I=     503,     515
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     490
      DO I=     529,     541
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     555
      DO I=     568,     580
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     616
      DO I=     638,     659
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     616
      DO I=     682,     703
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     726
      DO I=     748,     769
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     826
      DO I=     860,     893
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      FAC=SFAC( 1)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 2)
      PHI(      86)=PHI(      86)+FAC*PHI(      85)
      FAC=SFAC( 3)
      PHI(      87)=PHI(      87)+FAC*PHI(      85)
      FAC=SFAC( 4)
      PHI(      89)=PHI(      89)+FAC*PHI(      88)
      FAC=SFAC( 1)
      PHI(      93)=PHI(      93)+FAC*PHI(      92)
      FAC=SFAC( 2)
      PHI(      95)=PHI(      95)+FAC*PHI(      94)
      FAC=SFAC( 3)
      PHI(      96)=PHI(      96)+FAC*PHI(      94)
      FAC=SFAC( 4)
      PHI(      98)=PHI(      98)+FAC*PHI(      97)
      FAC=SFAC( 1)
      PHI(     108)=PHI(     108)+FAC*PHI(     105)
      PHI(     109)=PHI(     109)+FAC*PHI(     106)
      PHI(     110)=PHI(     110)+FAC*PHI(     107)
      FAC=SFAC( 2)
      PHI(     111)=PHI(     111)+FAC*PHI(     105)
      PHI(     112)=PHI(     112)+FAC*PHI(     106)
      PHI(     113)=PHI(     113)+FAC*PHI(     107)
      FAC=SFAC( 3)
      PHI(     117)=PHI(     117)+FAC*PHI(     114)
      PHI(     118)=PHI(     118)+FAC*PHI(     115)
      PHI(     119)=PHI(     119)+FAC*PHI(     116)
      FAC=SFAC( 1)
      PHI(     129)=PHI(     129)+FAC*PHI(     126)
      PHI(     130)=PHI(     130)+FAC*PHI(     127)
      PHI(     131)=PHI(     131)+FAC*PHI(     128)
      FAC=SFAC( 2)
      PHI(     135)=PHI(     135)+FAC*PHI(     132)
      PHI(     136)=PHI(     136)+FAC*PHI(     133)
      PHI(     137)=PHI(     137)+FAC*PHI(     134)
      FAC=SFAC( 3)
      PHI(     138)=PHI(     138)+FAC*PHI(     132)
      PHI(     139)=PHI(     139)+FAC*PHI(     133)
      PHI(     140)=PHI(     140)+FAC*PHI(     134)
      FAC=SFAC( 4)
      PHI(     144)=PHI(     144)+FAC*PHI(     141)
      PHI(     145)=PHI(     145)+FAC*PHI(     142)
      PHI(     146)=PHI(     146)+FAC*PHI(     143)
      FAC=SFAC( 1)
      PHI(     153)=PHI(     153)+FAC*PHI(     150)
      PHI(     154)=PHI(     154)+FAC*PHI(     151)
      PHI(     155)=PHI(     155)+FAC*PHI(     152)
      FAC=SFAC( 2)
      PHI(     156)=PHI(     156)+FAC*PHI(     150)
      PHI(     157)=PHI(     157)+FAC*PHI(     151)
      PHI(     158)=PHI(     158)+FAC*PHI(     152)
      FAC=SFAC( 3)
      PHI(     162)=PHI(     162)+FAC*PHI(     159)
      PHI(     163)=PHI(     163)+FAC*PHI(     160)
      PHI(     164)=PHI(     164)+FAC*PHI(     161)
      FAC=SFAC( 1)
      J=     179
      DO I=     186,     192
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     193
      DO I=     200,     206
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     221
      DO I=     228,     234
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     235
      DO I=     242,     248
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     235
      DO I=     249,     255
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     256
      DO I=     263,     269
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     277
      DO I=     284,     290
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     277
      DO I=     291,     297
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     298
      DO I=     305,     311
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     319
      DO I=     326,     332
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     333
      DO I=     340,     346
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     373
      DO I=     386,     398
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     425
      DO I=     438,     450
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     425
      DO I=     451,     463
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     464
      DO I=     477,     489
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     503
      DO I=     516,     528
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     529
      DO I=     542,     554
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     568
      DO I=     581,     593
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     638
      DO I=     660,     681
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     682
      DO I=     704,     725
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     748
      DO I=     770,     791
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     860
      DO I=     894,     927
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     187)=PHI(     187)-D01*PHI(     186)
      PHI(     189)=PHI(     189)-D01*PHI(     186)
      PHI(     192)=PHI(     192)-D01*PHI(     186)
      PHI(     201)=PHI(     201)-D01*PHI(     200)
      PHI(     203)=PHI(     203)-D01*PHI(     200)
      PHI(     206)=PHI(     206)-D01*PHI(     200)
      PHI(     229)=PHI(     229)-D01*PHI(     228)
      PHI(     231)=PHI(     231)-D01*PHI(     228)
      PHI(     234)=PHI(     234)-D01*PHI(     228)
      PHI(     243)=PHI(     243)-D01*PHI(     242)
      PHI(     245)=PHI(     245)-D01*PHI(     242)
      PHI(     248)=PHI(     248)-D01*PHI(     242)
      PHI(     250)=PHI(     250)-D01*PHI(     249)
      PHI(     252)=PHI(     252)-D01*PHI(     249)
      PHI(     255)=PHI(     255)-D01*PHI(     249)
      PHI(     264)=PHI(     264)-D01*PHI(     263)
      PHI(     266)=PHI(     266)-D01*PHI(     263)
      PHI(     269)=PHI(     269)-D01*PHI(     263)
      PHI(     285)=PHI(     285)-D01*PHI(     284)
      PHI(     287)=PHI(     287)-D01*PHI(     284)
      PHI(     290)=PHI(     290)-D01*PHI(     284)
      PHI(     292)=PHI(     292)-D01*PHI(     291)
      PHI(     294)=PHI(     294)-D01*PHI(     291)
      PHI(     297)=PHI(     297)-D01*PHI(     291)
      PHI(     306)=PHI(     306)-D01*PHI(     305)
      PHI(     308)=PHI(     308)-D01*PHI(     305)
      PHI(     311)=PHI(     311)-D01*PHI(     305)
      PHI(     327)=PHI(     327)-D01*PHI(     326)
      PHI(     329)=PHI(     329)-D01*PHI(     326)
      PHI(     332)=PHI(     332)-D01*PHI(     326)
      PHI(     341)=PHI(     341)-D01*PHI(     340)
      PHI(     343)=PHI(     343)-D01*PHI(     340)
      PHI(     346)=PHI(     346)-D01*PHI(     340)
      PHI(     389)=PHI(     389)-D01*PHI(     386)
      PHI(     390)=PHI(     390)-D01*PHI(     387)
      PHI(     392)=PHI(     392)-D01*PHI(     387)
      PHI(     393)=PHI(     393)-D01*PHI(     388)
      PHI(     395)=PHI(     395)-D01*PHI(     388)
      PHI(     398)=PHI(     398)-D01*PHI(     388)
      PHI(     389)=PHI(     389)-D02*PHI(     386)
      PHI(     391)=PHI(     391)-D01*PHI(     386)
      PHI(     392)=PHI(     392)-D02*PHI(     387)
      PHI(     396)=PHI(     396)-D01*PHI(     386)
      PHI(     397)=PHI(     397)-D01*PHI(     387)
      PHI(     398)=PHI(     398)-D02*PHI(     388)
      PHI(     441)=PHI(     441)-D01*PHI(     438)
      PHI(     442)=PHI(     442)-D01*PHI(     439)
      PHI(     444)=PHI(     444)-D01*PHI(     439)
      PHI(     445)=PHI(     445)-D01*PHI(     440)
      PHI(     447)=PHI(     447)-D01*PHI(     440)
      PHI(     450)=PHI(     450)-D01*PHI(     440)
      PHI(     441)=PHI(     441)-D02*PHI(     438)
      PHI(     443)=PHI(     443)-D01*PHI(     438)
      PHI(     444)=PHI(     444)-D02*PHI(     439)
      PHI(     448)=PHI(     448)-D01*PHI(     438)
      PHI(     449)=PHI(     449)-D01*PHI(     439)
      PHI(     450)=PHI(     450)-D02*PHI(     440)
      PHI(     454)=PHI(     454)-D01*PHI(     451)
      PHI(     455)=PHI(     455)-D01*PHI(     452)
      PHI(     457)=PHI(     457)-D01*PHI(     452)
      PHI(     458)=PHI(     458)-D01*PHI(     453)
      PHI(     460)=PHI(     460)-D01*PHI(     453)
      PHI(     463)=PHI(     463)-D01*PHI(     453)
      PHI(     454)=PHI(     454)-D02*PHI(     451)
      PHI(     456)=PHI(     456)-D01*PHI(     451)
      PHI(     457)=PHI(     457)-D02*PHI(     452)
      PHI(     461)=PHI(     461)-D01*PHI(     451)
      PHI(     462)=PHI(     462)-D01*PHI(     452)
      PHI(     463)=PHI(     463)-D02*PHI(     453)
      PHI(     480)=PHI(     480)-D01*PHI(     477)
      PHI(     481)=PHI(     481)-D01*PHI(     478)
      PHI(     483)=PHI(     483)-D01*PHI(     478)
      PHI(     484)=PHI(     484)-D01*PHI(     479)
      PHI(     486)=PHI(     486)-D01*PHI(     479)
      PHI(     489)=PHI(     489)-D01*PHI(     479)
      PHI(     480)=PHI(     480)-D02*PHI(     477)
      PHI(     482)=PHI(     482)-D01*PHI(     477)
      PHI(     483)=PHI(     483)-D02*PHI(     478)
      PHI(     487)=PHI(     487)-D01*PHI(     477)
      PHI(     488)=PHI(     488)-D01*PHI(     478)
      PHI(     489)=PHI(     489)-D02*PHI(     479)
      PHI(     519)=PHI(     519)-D01*PHI(     516)
      PHI(     520)=PHI(     520)-D01*PHI(     517)
      PHI(     522)=PHI(     522)-D01*PHI(     517)
      PHI(     523)=PHI(     523)-D01*PHI(     518)
      PHI(     525)=PHI(     525)-D01*PHI(     518)
      PHI(     528)=PHI(     528)-D01*PHI(     518)
      PHI(     519)=PHI(     519)-D02*PHI(     516)
      PHI(     521)=PHI(     521)-D01*PHI(     516)
      PHI(     522)=PHI(     522)-D02*PHI(     517)
      PHI(     526)=PHI(     526)-D01*PHI(     516)
      PHI(     527)=PHI(     527)-D01*PHI(     517)
      PHI(     528)=PHI(     528)-D02*PHI(     518)
      PHI(     545)=PHI(     545)-D01*PHI(     542)
      PHI(     546)=PHI(     546)-D01*PHI(     543)
      PHI(     548)=PHI(     548)-D01*PHI(     543)
      PHI(     549)=PHI(     549)-D01*PHI(     544)
      PHI(     551)=PHI(     551)-D01*PHI(     544)
      PHI(     554)=PHI(     554)-D01*PHI(     544)
      PHI(     545)=PHI(     545)-D02*PHI(     542)
      PHI(     547)=PHI(     547)-D01*PHI(     542)
      PHI(     548)=PHI(     548)-D02*PHI(     543)
      PHI(     552)=PHI(     552)-D01*PHI(     542)
      PHI(     553)=PHI(     553)-D01*PHI(     543)
      PHI(     554)=PHI(     554)-D02*PHI(     544)
      PHI(     584)=PHI(     584)-D01*PHI(     581)
      PHI(     585)=PHI(     585)-D01*PHI(     582)
      PHI(     587)=PHI(     587)-D01*PHI(     582)
      PHI(     588)=PHI(     588)-D01*PHI(     583)
      PHI(     590)=PHI(     590)-D01*PHI(     583)
      PHI(     593)=PHI(     593)-D01*PHI(     583)
      PHI(     584)=PHI(     584)-D02*PHI(     581)
      PHI(     586)=PHI(     586)-D01*PHI(     581)
      PHI(     587)=PHI(     587)-D02*PHI(     582)
      PHI(     591)=PHI(     591)-D01*PHI(     581)
      PHI(     592)=PHI(     592)-D01*PHI(     582)
      PHI(     593)=PHI(     593)-D02*PHI(     583)
      PHI(     667)=PHI(     667)-D01*PHI(     661)
      PHI(     668)=PHI(     668)-D01*PHI(     662)
      PHI(     669)=PHI(     669)-D01*PHI(     663)
      PHI(     671)=PHI(     671)-D01*PHI(     663)
      PHI(     672)=PHI(     672)-D01*PHI(     664)
      PHI(     673)=PHI(     673)-D01*PHI(     665)
      PHI(     675)=PHI(     675)-D01*PHI(     665)
      PHI(     676)=PHI(     676)-D01*PHI(     666)
      PHI(     678)=PHI(     678)-D01*PHI(     666)
      PHI(     681)=PHI(     681)-D01*PHI(     666)
      PHI(     667)=PHI(     667)-D02*PHI(     661)
      PHI(     668)=PHI(     668)-D02*PHI(     662)
      PHI(     670)=PHI(     670)-D01*PHI(     662)
      PHI(     671)=PHI(     671)-D02*PHI(     663)
      PHI(     672)=PHI(     672)-D02*PHI(     664)
      PHI(     674)=PHI(     674)-D01*PHI(     664)
      PHI(     675)=PHI(     675)-D02*PHI(     665)
      PHI(     679)=PHI(     679)-D01*PHI(     664)
      PHI(     680)=PHI(     680)-D01*PHI(     665)
      PHI(     681)=PHI(     681)-D02*PHI(     666)
      PHI(     661)=PHI(     661)-D01*PHI(     660)
      PHI(     663)=PHI(     663)-D01*PHI(     660)
      PHI(     666)=PHI(     666)-D01*PHI(     660)
      PHI(     667)=PHI(     667)-D03*PHI(     661)
      PHI(     669)=PHI(     669)-D01*PHI(     661)
      PHI(     670)=PHI(     670)-D02*PHI(     662)
      PHI(     671)=PHI(     671)-D03*PHI(     663)
      PHI(     676)=PHI(     676)-D01*PHI(     661)
      PHI(     677)=PHI(     677)-D01*PHI(     662)
      PHI(     678)=PHI(     678)-D01*PHI(     663)
      PHI(     679)=PHI(     679)-D02*PHI(     664)
      PHI(     680)=PHI(     680)-D02*PHI(     665)
      PHI(     681)=PHI(     681)-D03*PHI(     666)
      PHI(     711)=PHI(     711)-D01*PHI(     705)
      PHI(     712)=PHI(     712)-D01*PHI(     706)
      PHI(     713)=PHI(     713)-D01*PHI(     707)
      PHI(     715)=PHI(     715)-D01*PHI(     707)
      PHI(     716)=PHI(     716)-D01*PHI(     708)
      PHI(     717)=PHI(     717)-D01*PHI(     709)
      PHI(     719)=PHI(     719)-D01*PHI(     709)
      PHI(     720)=PHI(     720)-D01*PHI(     710)
      PHI(     722)=PHI(     722)-D01*PHI(     710)
      PHI(     725)=PHI(     725)-D01*PHI(     710)
      PHI(     711)=PHI(     711)-D02*PHI(     705)
      PHI(     712)=PHI(     712)-D02*PHI(     706)
      PHI(     714)=PHI(     714)-D01*PHI(     706)
      PHI(     715)=PHI(     715)-D02*PHI(     707)
      PHI(     716)=PHI(     716)-D02*PHI(     708)
      PHI(     718)=PHI(     718)-D01*PHI(     708)
      PHI(     719)=PHI(     719)-D02*PHI(     709)
      PHI(     723)=PHI(     723)-D01*PHI(     708)
      PHI(     724)=PHI(     724)-D01*PHI(     709)
      PHI(     725)=PHI(     725)-D02*PHI(     710)
      PHI(     705)=PHI(     705)-D01*PHI(     704)
      PHI(     707)=PHI(     707)-D01*PHI(     704)
      PHI(     710)=PHI(     710)-D01*PHI(     704)
      PHI(     711)=PHI(     711)-D03*PHI(     705)
      PHI(     713)=PHI(     713)-D01*PHI(     705)
      PHI(     714)=PHI(     714)-D02*PHI(     706)
      PHI(     715)=PHI(     715)-D03*PHI(     707)
      PHI(     720)=PHI(     720)-D01*PHI(     705)
      PHI(     721)=PHI(     721)-D01*PHI(     706)
      PHI(     722)=PHI(     722)-D01*PHI(     707)
      PHI(     723)=PHI(     723)-D02*PHI(     708)
      PHI(     724)=PHI(     724)-D02*PHI(     709)
      PHI(     725)=PHI(     725)-D03*PHI(     710)
      PHI(     777)=PHI(     777)-D01*PHI(     771)
      PHI(     778)=PHI(     778)-D01*PHI(     772)
      PHI(     779)=PHI(     779)-D01*PHI(     773)
      PHI(     781)=PHI(     781)-D01*PHI(     773)
      PHI(     782)=PHI(     782)-D01*PHI(     774)
      PHI(     783)=PHI(     783)-D01*PHI(     775)
      PHI(     785)=PHI(     785)-D01*PHI(     775)
      PHI(     786)=PHI(     786)-D01*PHI(     776)
      PHI(     788)=PHI(     788)-D01*PHI(     776)
      PHI(     791)=PHI(     791)-D01*PHI(     776)
      PHI(     777)=PHI(     777)-D02*PHI(     771)
      PHI(     778)=PHI(     778)-D02*PHI(     772)
      PHI(     780)=PHI(     780)-D01*PHI(     772)
      PHI(     781)=PHI(     781)-D02*PHI(     773)
      PHI(     782)=PHI(     782)-D02*PHI(     774)
      PHI(     784)=PHI(     784)-D01*PHI(     774)
      PHI(     785)=PHI(     785)-D02*PHI(     775)
      PHI(     789)=PHI(     789)-D01*PHI(     774)
      PHI(     790)=PHI(     790)-D01*PHI(     775)
      PHI(     791)=PHI(     791)-D02*PHI(     776)
      PHI(     771)=PHI(     771)-D01*PHI(     770)
      PHI(     773)=PHI(     773)-D01*PHI(     770)
      PHI(     776)=PHI(     776)-D01*PHI(     770)
      PHI(     777)=PHI(     777)-D03*PHI(     771)
      PHI(     779)=PHI(     779)-D01*PHI(     771)
      PHI(     780)=PHI(     780)-D02*PHI(     772)
      PHI(     781)=PHI(     781)-D03*PHI(     773)
      PHI(     786)=PHI(     786)-D01*PHI(     771)
      PHI(     787)=PHI(     787)-D01*PHI(     772)
      PHI(     788)=PHI(     788)-D01*PHI(     773)
      PHI(     789)=PHI(     789)-D02*PHI(     774)
      PHI(     790)=PHI(     790)-D02*PHI(     775)
      PHI(     791)=PHI(     791)-D03*PHI(     776)
      PHI(     907)=PHI(     907)-D01*PHI(     897)
      PHI(     908)=PHI(     908)-D01*PHI(     898)
      PHI(     909)=PHI(     909)-D01*PHI(     899)
      PHI(     910)=PHI(     910)-D01*PHI(     900)
      PHI(     912)=PHI(     912)-D01*PHI(     900)
      PHI(     913)=PHI(     913)-D01*PHI(     901)
      PHI(     914)=PHI(     914)-D01*PHI(     902)
      PHI(     915)=PHI(     915)-D01*PHI(     903)
      PHI(     917)=PHI(     917)-D01*PHI(     903)
      PHI(     918)=PHI(     918)-D01*PHI(     904)
      PHI(     919)=PHI(     919)-D01*PHI(     905)
      PHI(     921)=PHI(     921)-D01*PHI(     905)
      PHI(     922)=PHI(     922)-D01*PHI(     906)
      PHI(     924)=PHI(     924)-D01*PHI(     906)
      PHI(     927)=PHI(     927)-D01*PHI(     906)
      PHI(     907)=PHI(     907)-D02*PHI(     897)
      PHI(     908)=PHI(     908)-D02*PHI(     898)
      PHI(     909)=PHI(     909)-D02*PHI(     899)
      PHI(     911)=PHI(     911)-D01*PHI(     899)
      PHI(     912)=PHI(     912)-D02*PHI(     900)
      PHI(     913)=PHI(     913)-D02*PHI(     901)
      PHI(     914)=PHI(     914)-D02*PHI(     902)
      PHI(     916)=PHI(     916)-D01*PHI(     902)
      PHI(     917)=PHI(     917)-D02*PHI(     903)
      PHI(     918)=PHI(     918)-D02*PHI(     904)
      PHI(     920)=PHI(     920)-D01*PHI(     904)
      PHI(     921)=PHI(     921)-D02*PHI(     905)
      PHI(     925)=PHI(     925)-D01*PHI(     904)
      PHI(     926)=PHI(     926)-D01*PHI(     905)
      PHI(     927)=PHI(     927)-D02*PHI(     906)
      PHI(     897)=PHI(     897)-D01*PHI(     894)
      PHI(     898)=PHI(     898)-D01*PHI(     895)
      PHI(     900)=PHI(     900)-D01*PHI(     895)
      PHI(     901)=PHI(     901)-D01*PHI(     896)
      PHI(     903)=PHI(     903)-D01*PHI(     896)
      PHI(     906)=PHI(     906)-D01*PHI(     896)
      PHI(     907)=PHI(     907)-D03*PHI(     897)
      PHI(     908)=PHI(     908)-D03*PHI(     898)
      PHI(     910)=PHI(     910)-D01*PHI(     898)
      PHI(     911)=PHI(     911)-D02*PHI(     899)
      PHI(     912)=PHI(     912)-D03*PHI(     900)
      PHI(     913)=PHI(     913)-D03*PHI(     901)
      PHI(     915)=PHI(     915)-D01*PHI(     901)
      PHI(     916)=PHI(     916)-D02*PHI(     902)
      PHI(     917)=PHI(     917)-D03*PHI(     903)
      PHI(     922)=PHI(     922)-D01*PHI(     901)
      PHI(     923)=PHI(     923)-D01*PHI(     902)
      PHI(     924)=PHI(     924)-D01*PHI(     903)
      PHI(     925)=PHI(     925)-D02*PHI(     904)
      PHI(     926)=PHI(     926)-D02*PHI(     905)
      PHI(     927)=PHI(     927)-D03*PHI(     906)
      PHI(     897)=PHI(     897)-D02*PHI(     894)
      PHI(     899)=PHI(     899)-D01*PHI(     894)
      PHI(     900)=PHI(     900)-D02*PHI(     895)
      PHI(     904)=PHI(     904)-D01*PHI(     894)
      PHI(     905)=PHI(     905)-D01*PHI(     895)
      PHI(     906)=PHI(     906)-D02*PHI(     896)
      PHI(     907)=PHI(     907)-D04*PHI(     897)
      PHI(     909)=PHI(     909)-D01*PHI(     897)
      PHI(     910)=PHI(     910)-D02*PHI(     898)
      PHI(     911)=PHI(     911)-D03*PHI(     899)
      PHI(     912)=PHI(     912)-D04*PHI(     900)
      PHI(     918)=PHI(     918)-D01*PHI(     897)
      PHI(     919)=PHI(     919)-D01*PHI(     898)
      PHI(     920)=PHI(     920)-D01*PHI(     899)
      PHI(     921)=PHI(     921)-D01*PHI(     900)
      PHI(     922)=PHI(     922)-D02*PHI(     901)
      PHI(     923)=PHI(     923)-D02*PHI(     902)
      PHI(     924)=PHI(     924)-D02*PHI(     903)
      PHI(     925)=PHI(     925)-D03*PHI(     904)
      PHI(     926)=PHI(     926)-D03*PHI(     905)
      PHI(     927)=PHI(     927)-D04*PHI(     906)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    6)= PHI(     250)+CONF( 1)*PHI(     138)
      WRK1(    7)= PHI(     251)+CONF( 1)*PHI(     139)
      WRK1(    8)= PHI(     252)+CONF( 2)*PHI(     139)
      WRK1(    9)= PHI(     253)+CONF( 1)*PHI(     140)
      WRK1(   10)= PHI(     254)+CONF( 2)*PHI(     140)
      WRK1(   11)= PHI(     255)+CONF( 3)*PHI(     140)
      WRK1(    3)= PHI(     138)+CONF( 1)*PHI(      96)
      WRK1(    4)= PHI(     139)+CONF( 2)*PHI(      96)
      WRK1(    5)= PHI(     140)+CONF( 3)*PHI(      96)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      87)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      87)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      87)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    6)= PHI(     229)+CONF( 1)*PHI(     129)
      WRK1(    7)= PHI(     230)+CONF( 1)*PHI(     130)
      WRK1(    8)= PHI(     231)+CONF( 2)*PHI(     130)
      WRK1(    9)= PHI(     232)+CONF( 1)*PHI(     131)
      WRK1(   10)= PHI(     233)+CONF( 2)*PHI(     131)
      WRK1(   11)= PHI(     234)+CONF( 3)*PHI(     131)
      WRK1(    3)= PHI(     129)+CONF( 1)*PHI(      93)
      WRK1(    4)= PHI(     130)+CONF( 2)*PHI(      93)
      WRK1(    5)= PHI(     131)+CONF( 3)*PHI(      93)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      84)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      84)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      84)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    6)=-PHI(     454)-CONF( 1)*PHI(     292)
      WRK1(    7)=-PHI(     455)-CONF( 1)*PHI(     293)
      WRK1(    8)=-PHI(     456)-CONF( 2)*PHI(     293)
      WRK1(    9)=-PHI(     458)-CONF( 1)*PHI(     295)
      WRK1(   10)=-PHI(     459)-CONF( 2)*PHI(     295)
      WRK1(   11)=-PHI(     461)-CONF( 3)*PHI(     295)
      WRK1(    3)=-PHI(     292)-CONF( 1)*PHI(     156)
      WRK1(    4)=-PHI(     293)-CONF( 2)*PHI(     156)
      WRK1(    5)=-PHI(     295)-CONF( 3)*PHI(     156)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     111)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     111)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     111)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    6)=-PHI(     455)-CONF( 1)*PHI(     293)
      WRK1(    7)=-PHI(     456)-CONF( 1)*PHI(     294)
      WRK1(    8)=-PHI(     457)-CONF( 2)*PHI(     294)
      WRK1(    9)=-PHI(     459)-CONF( 1)*PHI(     296)
      WRK1(   10)=-PHI(     460)-CONF( 2)*PHI(     296)
      WRK1(   11)=-PHI(     462)-CONF( 3)*PHI(     296)
      WRK1(    3)=-PHI(     293)-CONF( 1)*PHI(     157)
      WRK1(    4)=-PHI(     294)-CONF( 2)*PHI(     157)
      WRK1(    5)=-PHI(     296)-CONF( 3)*PHI(     157)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     112)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     112)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     112)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    6)=-PHI(     458)-CONF( 1)*PHI(     295)
      WRK1(    7)=-PHI(     459)-CONF( 1)*PHI(     296)
      WRK1(    8)=-PHI(     460)-CONF( 2)*PHI(     296)
      WRK1(    9)=-PHI(     461)-CONF( 1)*PHI(     297)
      WRK1(   10)=-PHI(     462)-CONF( 2)*PHI(     297)
      WRK1(   11)=-PHI(     463)-CONF( 3)*PHI(     297)
      WRK1(    3)=-PHI(     295)-CONF( 1)*PHI(     158)
      WRK1(    4)=-PHI(     296)-CONF( 2)*PHI(     158)
      WRK1(    5)=-PHI(     297)-CONF( 3)*PHI(     158)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     113)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     113)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     113)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    6)= PHI(     667)+CONF( 1)*PHI(     519)
      WRK1(    7)= PHI(     668)+CONF( 1)*PHI(     520)
      WRK1(    8)= PHI(     669)+CONF( 2)*PHI(     520)
      WRK1(    9)= PHI(     672)+CONF( 1)*PHI(     523)
      WRK1(   10)= PHI(     673)+CONF( 2)*PHI(     523)
      WRK1(   11)= PHI(     676)+CONF( 3)*PHI(     523)
      WRK1(    3)= PHI(     519)+CONF( 1)*PHI(     327)
      WRK1(    4)= PHI(     520)+CONF( 2)*PHI(     327)
      WRK1(    5)= PHI(     523)+CONF( 3)*PHI(     327)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     187)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     187)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     187)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    6)= PHI(     668)+CONF( 1)*PHI(     520)
      WRK1(    7)= PHI(     669)+CONF( 1)*PHI(     521)
      WRK1(    8)= PHI(     670)+CONF( 2)*PHI(     521)
      WRK1(    9)= PHI(     673)+CONF( 1)*PHI(     524)
      WRK1(   10)= PHI(     674)+CONF( 2)*PHI(     524)
      WRK1(   11)= PHI(     677)+CONF( 3)*PHI(     524)
      WRK1(    3)= PHI(     520)+CONF( 1)*PHI(     328)
      WRK1(    4)= PHI(     521)+CONF( 2)*PHI(     328)
      WRK1(    5)= PHI(     524)+CONF( 3)*PHI(     328)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     188)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     188)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     188)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    6)= PHI(     669)+CONF( 1)*PHI(     521)
      WRK1(    7)= PHI(     670)+CONF( 1)*PHI(     522)
      WRK1(    8)= PHI(     671)+CONF( 2)*PHI(     522)
      WRK1(    9)= PHI(     674)+CONF( 1)*PHI(     525)
      WRK1(   10)= PHI(     675)+CONF( 2)*PHI(     525)
      WRK1(   11)= PHI(     678)+CONF( 3)*PHI(     525)
      WRK1(    3)= PHI(     521)+CONF( 1)*PHI(     329)
      WRK1(    4)= PHI(     522)+CONF( 2)*PHI(     329)
      WRK1(    5)= PHI(     525)+CONF( 3)*PHI(     329)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     189)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     189)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     189)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    6)= PHI(     672)+CONF( 1)*PHI(     523)
      WRK1(    7)= PHI(     673)+CONF( 1)*PHI(     524)
      WRK1(    8)= PHI(     674)+CONF( 2)*PHI(     524)
      WRK1(    9)= PHI(     676)+CONF( 1)*PHI(     526)
      WRK1(   10)= PHI(     677)+CONF( 2)*PHI(     526)
      WRK1(   11)= PHI(     679)+CONF( 3)*PHI(     526)
      WRK1(    3)= PHI(     523)+CONF( 1)*PHI(     330)
      WRK1(    4)= PHI(     524)+CONF( 2)*PHI(     330)
      WRK1(    5)= PHI(     526)+CONF( 3)*PHI(     330)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     190)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     190)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     190)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    6)= PHI(     673)+CONF( 1)*PHI(     524)
      WRK1(    7)= PHI(     674)+CONF( 1)*PHI(     525)
      WRK1(    8)= PHI(     675)+CONF( 2)*PHI(     525)
      WRK1(    9)= PHI(     677)+CONF( 1)*PHI(     527)
      WRK1(   10)= PHI(     678)+CONF( 2)*PHI(     527)
      WRK1(   11)= PHI(     680)+CONF( 3)*PHI(     527)
      WRK1(    3)= PHI(     524)+CONF( 1)*PHI(     331)
      WRK1(    4)= PHI(     525)+CONF( 2)*PHI(     331)
      WRK1(    5)= PHI(     527)+CONF( 3)*PHI(     331)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     191)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     191)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     191)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    6)= PHI(     676)+CONF( 1)*PHI(     526)
      WRK1(    7)= PHI(     677)+CONF( 1)*PHI(     527)
      WRK1(    8)= PHI(     678)+CONF( 2)*PHI(     527)
      WRK1(    9)= PHI(     679)+CONF( 1)*PHI(     528)
      WRK1(   10)= PHI(     680)+CONF( 2)*PHI(     528)
      WRK1(   11)= PHI(     681)+CONF( 3)*PHI(     528)
      WRK1(    3)= PHI(     526)+CONF( 1)*PHI(     332)
      WRK1(    4)= PHI(     527)+CONF( 2)*PHI(     332)
      WRK1(    5)= PHI(     528)+CONF( 3)*PHI(     332)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     192)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     192)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     192)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   11)
      WRK1(    6)= PHI(     264)+CONF( 1)*PHI(     144)
      WRK1(    7)= PHI(     265)+CONF( 1)*PHI(     145)
      WRK1(    8)= PHI(     266)+CONF( 2)*PHI(     145)
      WRK1(    9)= PHI(     267)+CONF( 1)*PHI(     146)
      WRK1(   10)= PHI(     268)+CONF( 2)*PHI(     146)
      WRK1(   11)= PHI(     269)+CONF( 3)*PHI(     146)
      WRK1(    3)= PHI(     144)+CONF( 1)*PHI(      98)
      WRK1(    4)= PHI(     145)+CONF( 2)*PHI(      98)
      WRK1(    5)= PHI(     146)+CONF( 3)*PHI(      98)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      89)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      89)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      89)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   12)
      WRK1(    6)= PHI(     243)+CONF( 1)*PHI(     135)
      WRK1(    7)= PHI(     244)+CONF( 1)*PHI(     136)
      WRK1(    8)= PHI(     245)+CONF( 2)*PHI(     136)
      WRK1(    9)= PHI(     246)+CONF( 1)*PHI(     137)
      WRK1(   10)= PHI(     247)+CONF( 2)*PHI(     137)
      WRK1(   11)= PHI(     248)+CONF( 3)*PHI(     137)
      WRK1(    3)= PHI(     135)+CONF( 1)*PHI(      95)
      WRK1(    4)= PHI(     136)+CONF( 2)*PHI(      95)
      WRK1(    5)= PHI(     137)+CONF( 3)*PHI(      95)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(      86)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(      86)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(      86)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   13)
      WRK1(    6)=-PHI(     480)-CONF( 1)*PHI(     306)
      WRK1(    7)=-PHI(     481)-CONF( 1)*PHI(     307)
      WRK1(    8)=-PHI(     482)-CONF( 2)*PHI(     307)
      WRK1(    9)=-PHI(     484)-CONF( 1)*PHI(     309)
      WRK1(   10)=-PHI(     485)-CONF( 2)*PHI(     309)
      WRK1(   11)=-PHI(     487)-CONF( 3)*PHI(     309)
      WRK1(    3)=-PHI(     306)-CONF( 1)*PHI(     162)
      WRK1(    4)=-PHI(     307)-CONF( 2)*PHI(     162)
      WRK1(    5)=-PHI(     309)-CONF( 3)*PHI(     162)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     117)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     117)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     117)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   14)
      WRK1(    6)=-PHI(     481)-CONF( 1)*PHI(     307)
      WRK1(    7)=-PHI(     482)-CONF( 1)*PHI(     308)
      WRK1(    8)=-PHI(     483)-CONF( 2)*PHI(     308)
      WRK1(    9)=-PHI(     485)-CONF( 1)*PHI(     310)
      WRK1(   10)=-PHI(     486)-CONF( 2)*PHI(     310)
      WRK1(   11)=-PHI(     488)-CONF( 3)*PHI(     310)
      WRK1(    3)=-PHI(     307)-CONF( 1)*PHI(     163)
      WRK1(    4)=-PHI(     308)-CONF( 2)*PHI(     163)
      WRK1(    5)=-PHI(     310)-CONF( 3)*PHI(     163)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     118)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     118)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     118)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   15)
      WRK1(    6)=-PHI(     484)-CONF( 1)*PHI(     309)
      WRK1(    7)=-PHI(     485)-CONF( 1)*PHI(     310)
      WRK1(    8)=-PHI(     486)-CONF( 2)*PHI(     310)
      WRK1(    9)=-PHI(     487)-CONF( 1)*PHI(     311)
      WRK1(   10)=-PHI(     488)-CONF( 2)*PHI(     311)
      WRK1(   11)=-PHI(     489)-CONF( 3)*PHI(     311)
      WRK1(    3)=-PHI(     309)-CONF( 1)*PHI(     164)
      WRK1(    4)=-PHI(     310)-CONF( 2)*PHI(     164)
      WRK1(    5)=-PHI(     311)-CONF( 3)*PHI(     164)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     119)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     119)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     119)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   16)
      WRK1(    6)=-PHI(     441)-CONF( 1)*PHI(     285)
      WRK1(    7)=-PHI(     442)-CONF( 1)*PHI(     286)
      WRK1(    8)=-PHI(     443)-CONF( 2)*PHI(     286)
      WRK1(    9)=-PHI(     445)-CONF( 1)*PHI(     288)
      WRK1(   10)=-PHI(     446)-CONF( 2)*PHI(     288)
      WRK1(   11)=-PHI(     448)-CONF( 3)*PHI(     288)
      WRK1(    3)=-PHI(     285)-CONF( 1)*PHI(     153)
      WRK1(    4)=-PHI(     286)-CONF( 2)*PHI(     153)
      WRK1(    5)=-PHI(     288)-CONF( 3)*PHI(     153)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     108)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     108)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     108)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   17)
      WRK1(    6)=-PHI(     442)-CONF( 1)*PHI(     286)
      WRK1(    7)=-PHI(     443)-CONF( 1)*PHI(     287)
      WRK1(    8)=-PHI(     444)-CONF( 2)*PHI(     287)
      WRK1(    9)=-PHI(     446)-CONF( 1)*PHI(     289)
      WRK1(   10)=-PHI(     447)-CONF( 2)*PHI(     289)
      WRK1(   11)=-PHI(     449)-CONF( 3)*PHI(     289)
      WRK1(    3)=-PHI(     286)-CONF( 1)*PHI(     154)
      WRK1(    4)=-PHI(     287)-CONF( 2)*PHI(     154)
      WRK1(    5)=-PHI(     289)-CONF( 3)*PHI(     154)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     109)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     109)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     109)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   18)
      WRK1(    6)=-PHI(     445)-CONF( 1)*PHI(     288)
      WRK1(    7)=-PHI(     446)-CONF( 1)*PHI(     289)
      WRK1(    8)=-PHI(     447)-CONF( 2)*PHI(     289)
      WRK1(    9)=-PHI(     448)-CONF( 1)*PHI(     290)
      WRK1(   10)=-PHI(     449)-CONF( 2)*PHI(     290)
      WRK1(   11)=-PHI(     450)-CONF( 3)*PHI(     290)
      WRK1(    3)=-PHI(     288)-CONF( 1)*PHI(     155)
      WRK1(    4)=-PHI(     289)-CONF( 2)*PHI(     155)
      WRK1(    5)=-PHI(     290)-CONF( 3)*PHI(     155)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     110)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     110)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     110)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   19)
      WRK1(    6)= PHI(     711)+CONF( 1)*PHI(     545)
      WRK1(    7)= PHI(     712)+CONF( 1)*PHI(     546)
      WRK1(    8)= PHI(     713)+CONF( 2)*PHI(     546)
      WRK1(    9)= PHI(     716)+CONF( 1)*PHI(     549)
      WRK1(   10)= PHI(     717)+CONF( 2)*PHI(     549)
      WRK1(   11)= PHI(     720)+CONF( 3)*PHI(     549)
      WRK1(    3)= PHI(     545)+CONF( 1)*PHI(     341)
      WRK1(    4)= PHI(     546)+CONF( 2)*PHI(     341)
      WRK1(    5)= PHI(     549)+CONF( 3)*PHI(     341)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     201)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     201)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     201)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   20)
      WRK1(    6)= PHI(     712)+CONF( 1)*PHI(     546)
      WRK1(    7)= PHI(     713)+CONF( 1)*PHI(     547)
      WRK1(    8)= PHI(     714)+CONF( 2)*PHI(     547)
      WRK1(    9)= PHI(     717)+CONF( 1)*PHI(     550)
      WRK1(   10)= PHI(     718)+CONF( 2)*PHI(     550)
      WRK1(   11)= PHI(     721)+CONF( 3)*PHI(     550)
      WRK1(    3)= PHI(     546)+CONF( 1)*PHI(     342)
      WRK1(    4)= PHI(     547)+CONF( 2)*PHI(     342)
      WRK1(    5)= PHI(     550)+CONF( 3)*PHI(     342)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     202)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     202)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     202)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   21)
      WRK1(    6)= PHI(     713)+CONF( 1)*PHI(     547)
      WRK1(    7)= PHI(     714)+CONF( 1)*PHI(     548)
      WRK1(    8)= PHI(     715)+CONF( 2)*PHI(     548)
      WRK1(    9)= PHI(     718)+CONF( 1)*PHI(     551)
      WRK1(   10)= PHI(     719)+CONF( 2)*PHI(     551)
      WRK1(   11)= PHI(     722)+CONF( 3)*PHI(     551)
      WRK1(    3)= PHI(     547)+CONF( 1)*PHI(     343)
      WRK1(    4)= PHI(     548)+CONF( 2)*PHI(     343)
      WRK1(    5)= PHI(     551)+CONF( 3)*PHI(     343)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     203)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     203)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     203)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   22)
      WRK1(    6)= PHI(     716)+CONF( 1)*PHI(     549)
      WRK1(    7)= PHI(     717)+CONF( 1)*PHI(     550)
      WRK1(    8)= PHI(     718)+CONF( 2)*PHI(     550)
      WRK1(    9)= PHI(     720)+CONF( 1)*PHI(     552)
      WRK1(   10)= PHI(     721)+CONF( 2)*PHI(     552)
      WRK1(   11)= PHI(     723)+CONF( 3)*PHI(     552)
      WRK1(    3)= PHI(     549)+CONF( 1)*PHI(     344)
      WRK1(    4)= PHI(     550)+CONF( 2)*PHI(     344)
      WRK1(    5)= PHI(     552)+CONF( 3)*PHI(     344)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     204)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     204)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     204)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   23)
      WRK1(    6)= PHI(     717)+CONF( 1)*PHI(     550)
      WRK1(    7)= PHI(     718)+CONF( 1)*PHI(     551)
      WRK1(    8)= PHI(     719)+CONF( 2)*PHI(     551)
      WRK1(    9)= PHI(     721)+CONF( 1)*PHI(     553)
      WRK1(   10)= PHI(     722)+CONF( 2)*PHI(     553)
      WRK1(   11)= PHI(     724)+CONF( 3)*PHI(     553)
      WRK1(    3)= PHI(     550)+CONF( 1)*PHI(     345)
      WRK1(    4)= PHI(     551)+CONF( 2)*PHI(     345)
      WRK1(    5)= PHI(     553)+CONF( 3)*PHI(     345)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     205)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     205)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     205)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   24)
      WRK1(    6)= PHI(     720)+CONF( 1)*PHI(     552)
      WRK1(    7)= PHI(     721)+CONF( 1)*PHI(     553)
      WRK1(    8)= PHI(     722)+CONF( 2)*PHI(     553)
      WRK1(    9)= PHI(     723)+CONF( 1)*PHI(     554)
      WRK1(   10)= PHI(     724)+CONF( 2)*PHI(     554)
      WRK1(   11)= PHI(     725)+CONF( 3)*PHI(     554)
      WRK1(    3)= PHI(     552)+CONF( 1)*PHI(     346)
      WRK1(    4)= PHI(     553)+CONF( 2)*PHI(     346)
      WRK1(    5)= PHI(     554)+CONF( 3)*PHI(     346)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     206)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     206)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     206)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   25)
      WRK1(    6)=-PHI(     907)-CONF( 1)*PHI(     777)
      WRK1(    7)=-PHI(     908)-CONF( 1)*PHI(     778)
      WRK1(    8)=-PHI(     909)-CONF( 2)*PHI(     778)
      WRK1(    9)=-PHI(     913)-CONF( 1)*PHI(     782)
      WRK1(   10)=-PHI(     914)-CONF( 2)*PHI(     782)
      WRK1(   11)=-PHI(     918)-CONF( 3)*PHI(     782)
      WRK1(    3)=-PHI(     777)-CONF( 1)*PHI(     584)
      WRK1(    4)=-PHI(     778)-CONF( 2)*PHI(     584)
      WRK1(    5)=-PHI(     782)-CONF( 3)*PHI(     584)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     389)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     389)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     389)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   26)
      WRK1(    6)=-PHI(     908)-CONF( 1)*PHI(     778)
      WRK1(    7)=-PHI(     909)-CONF( 1)*PHI(     779)
      WRK1(    8)=-PHI(     910)-CONF( 2)*PHI(     779)
      WRK1(    9)=-PHI(     914)-CONF( 1)*PHI(     783)
      WRK1(   10)=-PHI(     915)-CONF( 2)*PHI(     783)
      WRK1(   11)=-PHI(     919)-CONF( 3)*PHI(     783)
      WRK1(    3)=-PHI(     778)-CONF( 1)*PHI(     585)
      WRK1(    4)=-PHI(     779)-CONF( 2)*PHI(     585)
      WRK1(    5)=-PHI(     783)-CONF( 3)*PHI(     585)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     390)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     390)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     390)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   27)
      WRK1(    6)=-PHI(     909)-CONF( 1)*PHI(     779)
      WRK1(    7)=-PHI(     910)-CONF( 1)*PHI(     780)
      WRK1(    8)=-PHI(     911)-CONF( 2)*PHI(     780)
      WRK1(    9)=-PHI(     915)-CONF( 1)*PHI(     784)
      WRK1(   10)=-PHI(     916)-CONF( 2)*PHI(     784)
      WRK1(   11)=-PHI(     920)-CONF( 3)*PHI(     784)
      WRK1(    3)=-PHI(     779)-CONF( 1)*PHI(     586)
      WRK1(    4)=-PHI(     780)-CONF( 2)*PHI(     586)
      WRK1(    5)=-PHI(     784)-CONF( 3)*PHI(     586)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     391)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     391)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     391)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   28)
      WRK1(    6)=-PHI(     910)-CONF( 1)*PHI(     780)
      WRK1(    7)=-PHI(     911)-CONF( 1)*PHI(     781)
      WRK1(    8)=-PHI(     912)-CONF( 2)*PHI(     781)
      WRK1(    9)=-PHI(     916)-CONF( 1)*PHI(     785)
      WRK1(   10)=-PHI(     917)-CONF( 2)*PHI(     785)
      WRK1(   11)=-PHI(     921)-CONF( 3)*PHI(     785)
      WRK1(    3)=-PHI(     780)-CONF( 1)*PHI(     587)
      WRK1(    4)=-PHI(     781)-CONF( 2)*PHI(     587)
      WRK1(    5)=-PHI(     785)-CONF( 3)*PHI(     587)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     392)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     392)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     392)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   29)
      WRK1(    6)=-PHI(     913)-CONF( 1)*PHI(     782)
      WRK1(    7)=-PHI(     914)-CONF( 1)*PHI(     783)
      WRK1(    8)=-PHI(     915)-CONF( 2)*PHI(     783)
      WRK1(    9)=-PHI(     918)-CONF( 1)*PHI(     786)
      WRK1(   10)=-PHI(     919)-CONF( 2)*PHI(     786)
      WRK1(   11)=-PHI(     922)-CONF( 3)*PHI(     786)
      WRK1(    3)=-PHI(     782)-CONF( 1)*PHI(     588)
      WRK1(    4)=-PHI(     783)-CONF( 2)*PHI(     588)
      WRK1(    5)=-PHI(     786)-CONF( 3)*PHI(     588)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     393)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     393)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     393)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   30)
      WRK1(    6)=-PHI(     914)-CONF( 1)*PHI(     783)
      WRK1(    7)=-PHI(     915)-CONF( 1)*PHI(     784)
      WRK1(    8)=-PHI(     916)-CONF( 2)*PHI(     784)
      WRK1(    9)=-PHI(     919)-CONF( 1)*PHI(     787)
      WRK1(   10)=-PHI(     920)-CONF( 2)*PHI(     787)
      WRK1(   11)=-PHI(     923)-CONF( 3)*PHI(     787)
      WRK1(    3)=-PHI(     783)-CONF( 1)*PHI(     589)
      WRK1(    4)=-PHI(     784)-CONF( 2)*PHI(     589)
      WRK1(    5)=-PHI(     787)-CONF( 3)*PHI(     589)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     394)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     394)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     394)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   31)
      WRK1(    6)=-PHI(     915)-CONF( 1)*PHI(     784)
      WRK1(    7)=-PHI(     916)-CONF( 1)*PHI(     785)
      WRK1(    8)=-PHI(     917)-CONF( 2)*PHI(     785)
      WRK1(    9)=-PHI(     920)-CONF( 1)*PHI(     788)
      WRK1(   10)=-PHI(     921)-CONF( 2)*PHI(     788)
      WRK1(   11)=-PHI(     924)-CONF( 3)*PHI(     788)
      WRK1(    3)=-PHI(     784)-CONF( 1)*PHI(     590)
      WRK1(    4)=-PHI(     785)-CONF( 2)*PHI(     590)
      WRK1(    5)=-PHI(     788)-CONF( 3)*PHI(     590)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     395)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     395)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     395)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   32)
      WRK1(    6)=-PHI(     918)-CONF( 1)*PHI(     786)
      WRK1(    7)=-PHI(     919)-CONF( 1)*PHI(     787)
      WRK1(    8)=-PHI(     920)-CONF( 2)*PHI(     787)
      WRK1(    9)=-PHI(     922)-CONF( 1)*PHI(     789)
      WRK1(   10)=-PHI(     923)-CONF( 2)*PHI(     789)
      WRK1(   11)=-PHI(     925)-CONF( 3)*PHI(     789)
      WRK1(    3)=-PHI(     786)-CONF( 1)*PHI(     591)
      WRK1(    4)=-PHI(     787)-CONF( 2)*PHI(     591)
      WRK1(    5)=-PHI(     789)-CONF( 3)*PHI(     591)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     396)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     396)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     396)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   33)
      WRK1(    6)=-PHI(     919)-CONF( 1)*PHI(     787)
      WRK1(    7)=-PHI(     920)-CONF( 1)*PHI(     788)
      WRK1(    8)=-PHI(     921)-CONF( 2)*PHI(     788)
      WRK1(    9)=-PHI(     923)-CONF( 1)*PHI(     790)
      WRK1(   10)=-PHI(     924)-CONF( 2)*PHI(     790)
      WRK1(   11)=-PHI(     926)-CONF( 3)*PHI(     790)
      WRK1(    3)=-PHI(     787)-CONF( 1)*PHI(     592)
      WRK1(    4)=-PHI(     788)-CONF( 2)*PHI(     592)
      WRK1(    5)=-PHI(     790)-CONF( 3)*PHI(     592)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     397)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     397)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     397)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   34)
      WRK1(    6)=-PHI(     922)-CONF( 1)*PHI(     789)
      WRK1(    7)=-PHI(     923)-CONF( 1)*PHI(     790)
      WRK1(    8)=-PHI(     924)-CONF( 2)*PHI(     790)
      WRK1(    9)=-PHI(     925)-CONF( 1)*PHI(     791)
      WRK1(   10)=-PHI(     926)-CONF( 2)*PHI(     791)
      WRK1(   11)=-PHI(     927)-CONF( 3)*PHI(     791)
      WRK1(    3)=-PHI(     789)-CONF( 1)*PHI(     593)
      WRK1(    4)=-PHI(     790)-CONF( 2)*PHI(     593)
      WRK1(    5)=-PHI(     791)-CONF( 3)*PHI(     593)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     398)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     398)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     398)
      CALL DPDS_BCTE(WRK1,WRK2,LENW,CONF,   35)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     6
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   36,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   37,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   38,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   39,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   40,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   41,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   42,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   43,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(   44,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(   45,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(   46,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(   47,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(   48,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(   49,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(   50,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(   51,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(   52,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(   53,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DPDS_BCTE
      SUBROUTINE DPDS_BCTE(WRK1,WRK2,LENW,CONF,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*),CONF(*)
      WRK1(    6)=WRK1(    6)+CONF( 1)*WRK1(    3)
      WRK1(    7)=WRK1(    7)+CONF( 2)*WRK1(    3)
      WRK1(    8)=WRK1(    8)+CONF( 2)*WRK1(    4)
      WRK1(    9)=WRK1(    9)+CONF( 3)*WRK1(    3)
      WRK1(   10)=WRK1(   10)+CONF( 3)*WRK1(    4)
      WRK1(   11)=WRK1(   11)+CONF( 3)*WRK1(    5)
      J=       5
      DO I=1,     6
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
C  LPHI=     319
C  LWK1=       1
C  LWK2=     165
C  LENW=     165
C*MODULE INT2D   *DECK DDSS
      SUBROUTINE DDSS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ,KEQL,
     *                 XC,YC,ZC,XD,YD,ZD,PHI,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 4),CXYZ( 35)
      DOUBLE PRECISION PHI(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 4)
      KL=0
      PHI(      50)=ZERO
      PHI(      52)=ZERO
      PHI(      53)=ZERO
      PHI(      54)=ZERO
      PHI(      56)=ZERO
      PHI(      57)=ZERO
      PHI(      59)=ZERO
      PHI(      69)=ZERO
      PHI(      70)=ZERO
      PHI(      71)=ZERO
      PHI(      72)=ZERO
      PHI(      73)=ZERO
      PHI(      74)=ZERO
      PHI(      78)=ZERO
      PHI(      79)=ZERO
      PHI(      80)=ZERO
      PHI(      81)=ZERO
      PHI(      82)=ZERO
      PHI(      83)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      89)=ZERO
      DO I=     111,     117
      PHI(I)=ZERO
      END DO
      DO I=     125,     131
      PHI(I)=ZERO
      END DO
      DO I=     132,     138
      PHI(I)=ZERO
      END DO
      DO I=     146,     152
      PHI(I)=ZERO
      END DO
      DO I=     192,     204
      PHI(I)=ZERO
      END DO
      DO I=     218,     230
      PHI(I)=ZERO
      END DO
      DO I=     297,     318
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      51)=ZERO
      PHI(      55)=ZERO
      PHI(      58)=ZERO
      PHI(      66)=ZERO
      PHI(      67)=ZERO
      PHI(      68)=ZERO
      PHI(      75)=ZERO
      PHI(      76)=ZERO
      PHI(      77)=ZERO
      PHI(      84)=ZERO
      PHI(      85)=ZERO
      PHI(      86)=ZERO
      DO I=     104,     110
      PHI(I)=ZERO
      END DO
      DO I=     118,     124
      PHI(I)=ZERO
      END DO
      DO I=     139,     145
      PHI(I)=ZERO
      END DO
      DO I=     179,     191
      PHI(I)=ZERO
      END DO
      DO I=     205,     217
      PHI(I)=ZERO
      END DO
      DO I=     275,     296
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      48)=ZERO
      PHI(      63)=ZERO
      PHI(      64)=ZERO
      PHI(      65)=ZERO
      DO I=      97,     103
      PHI(I)=ZERO
      END DO
      DO I=     166,     178
      PHI(I)=ZERO
      END DO
      DO I=     253,     274
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      60)=ZERO
      PHI(      61)=ZERO
      PHI(      62)=ZERO
      DO I=      90,      96
      PHI(I)=ZERO
      END DO
      DO I=     153,     165
      PHI(I)=ZERO
      END DO
      DO I=     231,     252
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 4)
      FX=(FX + FGRID(3,IPT, 4))*TVAL
      FX=(FX + FGRID(2,IPT, 4))*TVAL
      FX=(FX + FGRID(1,IPT, 4))*TVAL
      FX= FX + FGRID(0,IPT, 4)
      FT( 4)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      47)=PHI(      47)+FAC*PHI(       1)
      FAC=SFAC( 1)
      PHI(      60)=PHI(      60)+FAC*PHI(       2)
      PHI(      61)=PHI(      61)+FAC*PHI(       3)
      PHI(      62)=PHI(      62)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=      90,      96
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      12
      DO I=     153,     165
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      25
      DO I=     231,     252
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      FAC=SFAC( 1)
      PHI(      48)=PHI(      48)+FAC*PHI(      47)
      FAC=SFAC( 1)
      PHI(      63)=PHI(      63)+FAC*PHI(      60)
      PHI(      64)=PHI(      64)+FAC*PHI(      61)
      PHI(      65)=PHI(      65)+FAC*PHI(      62)
      FAC=SFAC( 1)
      J=      90
      DO I=      97,     103
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     153
      DO I=     166,     178
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     231
      DO I=     253,     274
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      SF=SF*FAC
      SFAC( 5)=SF
      FAC=SFAC( 2)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      51)=PHI(      51)+FAC*PHI(      48)
      FAC=SFAC( 4)
      PHI(      55)=PHI(      55)+FAC*PHI(      48)
      FAC=SFAC( 5)
      PHI(      58)=PHI(      58)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      66)=PHI(      66)+FAC*PHI(      63)
      PHI(      67)=PHI(      67)+FAC*PHI(      64)
      PHI(      68)=PHI(      68)+FAC*PHI(      65)
      FAC=SFAC( 4)
      PHI(      75)=PHI(      75)+FAC*PHI(      63)
      PHI(      76)=PHI(      76)+FAC*PHI(      64)
      PHI(      77)=PHI(      77)+FAC*PHI(      65)
      FAC=SFAC( 5)
      PHI(      84)=PHI(      84)+FAC*PHI(      63)
      PHI(      85)=PHI(      85)+FAC*PHI(      64)
      PHI(      86)=PHI(      86)+FAC*PHI(      65)
      FAC=SFAC( 3)
      J=      97
      DO I=     104,     110
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=      97
      DO I=     118,     124
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=      97
      DO I=     139,     145
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     166
      DO I=     179,     191
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     166
      DO I=     205,     217
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     253
      DO I=     275,     296
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      SF=SF*FAC
      SFAC( 5)=SF
      FAC=SFAC( 1)
      PHI(      50)=PHI(      50)+FAC*PHI(      49)
      FAC=SFAC( 1)
      PHI(      52)=PHI(      52)+FAC*PHI(      51)
      FAC=SFAC( 2)
      PHI(      53)=PHI(      53)+FAC*PHI(      51)
      FAC=SFAC( 3)
      PHI(      54)=PHI(      54)+FAC*PHI(      51)
      FAC=SFAC( 3)
      PHI(      56)=PHI(      56)+FAC*PHI(      55)
      FAC=SFAC( 4)
      PHI(      57)=PHI(      57)+FAC*PHI(      55)
      FAC=SFAC( 5)
      PHI(      59)=PHI(      59)+FAC*PHI(      58)
      FAC=SFAC( 1)
      PHI(      69)=PHI(      69)+FAC*PHI(      66)
      PHI(      70)=PHI(      70)+FAC*PHI(      67)
      PHI(      71)=PHI(      71)+FAC*PHI(      68)
      FAC=SFAC( 2)
      PHI(      72)=PHI(      72)+FAC*PHI(      66)
      PHI(      73)=PHI(      73)+FAC*PHI(      67)
      PHI(      74)=PHI(      74)+FAC*PHI(      68)
      FAC=SFAC( 2)
      PHI(      78)=PHI(      78)+FAC*PHI(      75)
      PHI(      79)=PHI(      79)+FAC*PHI(      76)
      PHI(      80)=PHI(      80)+FAC*PHI(      77)
      FAC=SFAC( 3)
      PHI(      81)=PHI(      81)+FAC*PHI(      75)
      PHI(      82)=PHI(      82)+FAC*PHI(      76)
      PHI(      83)=PHI(      83)+FAC*PHI(      77)
      FAC=SFAC( 4)
      PHI(      87)=PHI(      87)+FAC*PHI(      84)
      PHI(      88)=PHI(      88)+FAC*PHI(      85)
      PHI(      89)=PHI(      89)+FAC*PHI(      86)
      FAC=SFAC( 1)
      J=     104
      DO I=     111,     117
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     118
      DO I=     125,     131
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     118
      DO I=     132,     138
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     139
      DO I=     146,     152
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     179
      DO I=     192,     204
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     205
      DO I=     218,     230
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     275
      DO I=     297,     318
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     112)=PHI(     112)-D01*PHI(     111)
      PHI(     114)=PHI(     114)-D01*PHI(     111)
      PHI(     117)=PHI(     117)-D01*PHI(     111)
      PHI(     126)=PHI(     126)-D01*PHI(     125)
      PHI(     128)=PHI(     128)-D01*PHI(     125)
      PHI(     131)=PHI(     131)-D01*PHI(     125)
      PHI(     133)=PHI(     133)-D01*PHI(     132)
      PHI(     135)=PHI(     135)-D01*PHI(     132)
      PHI(     138)=PHI(     138)-D01*PHI(     132)
      PHI(     147)=PHI(     147)-D01*PHI(     146)
      PHI(     149)=PHI(     149)-D01*PHI(     146)
      PHI(     152)=PHI(     152)-D01*PHI(     146)
      PHI(     195)=PHI(     195)-D01*PHI(     192)
      PHI(     196)=PHI(     196)-D01*PHI(     193)
      PHI(     198)=PHI(     198)-D01*PHI(     193)
      PHI(     199)=PHI(     199)-D01*PHI(     194)
      PHI(     201)=PHI(     201)-D01*PHI(     194)
      PHI(     204)=PHI(     204)-D01*PHI(     194)
      PHI(     195)=PHI(     195)-D02*PHI(     192)
      PHI(     197)=PHI(     197)-D01*PHI(     192)
      PHI(     198)=PHI(     198)-D02*PHI(     193)
      PHI(     202)=PHI(     202)-D01*PHI(     192)
      PHI(     203)=PHI(     203)-D01*PHI(     193)
      PHI(     204)=PHI(     204)-D02*PHI(     194)
      PHI(     221)=PHI(     221)-D01*PHI(     218)
      PHI(     222)=PHI(     222)-D01*PHI(     219)
      PHI(     224)=PHI(     224)-D01*PHI(     219)
      PHI(     225)=PHI(     225)-D01*PHI(     220)
      PHI(     227)=PHI(     227)-D01*PHI(     220)
      PHI(     230)=PHI(     230)-D01*PHI(     220)
      PHI(     221)=PHI(     221)-D02*PHI(     218)
      PHI(     223)=PHI(     223)-D01*PHI(     218)
      PHI(     224)=PHI(     224)-D02*PHI(     219)
      PHI(     228)=PHI(     228)-D01*PHI(     218)
      PHI(     229)=PHI(     229)-D01*PHI(     219)
      PHI(     230)=PHI(     230)-D02*PHI(     220)
      PHI(     304)=PHI(     304)-D01*PHI(     298)
      PHI(     305)=PHI(     305)-D01*PHI(     299)
      PHI(     306)=PHI(     306)-D01*PHI(     300)
      PHI(     308)=PHI(     308)-D01*PHI(     300)
      PHI(     309)=PHI(     309)-D01*PHI(     301)
      PHI(     310)=PHI(     310)-D01*PHI(     302)
      PHI(     312)=PHI(     312)-D01*PHI(     302)
      PHI(     313)=PHI(     313)-D01*PHI(     303)
      PHI(     315)=PHI(     315)-D01*PHI(     303)
      PHI(     318)=PHI(     318)-D01*PHI(     303)
      PHI(     304)=PHI(     304)-D02*PHI(     298)
      PHI(     305)=PHI(     305)-D02*PHI(     299)
      PHI(     307)=PHI(     307)-D01*PHI(     299)
      PHI(     308)=PHI(     308)-D02*PHI(     300)
      PHI(     309)=PHI(     309)-D02*PHI(     301)
      PHI(     311)=PHI(     311)-D01*PHI(     301)
      PHI(     312)=PHI(     312)-D02*PHI(     302)
      PHI(     316)=PHI(     316)-D01*PHI(     301)
      PHI(     317)=PHI(     317)-D01*PHI(     302)
      PHI(     318)=PHI(     318)-D02*PHI(     303)
      PHI(     298)=PHI(     298)-D01*PHI(     297)
      PHI(     300)=PHI(     300)-D01*PHI(     297)
      PHI(     303)=PHI(     303)-D01*PHI(     297)
      PHI(     304)=PHI(     304)-D03*PHI(     298)
      PHI(     306)=PHI(     306)-D01*PHI(     298)
      PHI(     307)=PHI(     307)-D02*PHI(     299)
      PHI(     308)=PHI(     308)-D03*PHI(     300)
      PHI(     313)=PHI(     313)-D01*PHI(     298)
      PHI(     314)=PHI(     314)-D01*PHI(     299)
      PHI(     315)=PHI(     315)-D01*PHI(     300)
      PHI(     316)=PHI(     316)-D02*PHI(     301)
      PHI(     317)=PHI(     317)-D02*PHI(     302)
      PHI(     318)=PHI(     318)-D03*PHI(     303)
      WRK2(    1,1)= PHI(      54)
      WRK2(    2,1)= PHI(      50)
      WRK2(    3,1)=-PHI(      72)
      WRK2(    4,1)=-PHI(      73)
      WRK2(    5,1)=-PHI(      74)
      WRK2(    6,1)= PHI(     112)
      WRK2(    7,1)= PHI(     113)
      WRK2(    8,1)= PHI(     114)
      WRK2(    9,1)= PHI(     115)
      WRK2(   10,1)= PHI(     116)
      WRK2(   11,1)= PHI(     117)
      WRK2(   12,1)= PHI(      57)
      WRK2(   13,1)= PHI(      53)
      WRK2(   14,1)=-PHI(      81)
      WRK2(   15,1)=-PHI(      82)
      WRK2(   16,1)=-PHI(      83)
      WRK2(   17,1)=-PHI(      69)
      WRK2(   18,1)=-PHI(      70)
      WRK2(   19,1)=-PHI(      71)
      WRK2(   20,1)= PHI(     133)
      WRK2(   21,1)= PHI(     134)
      WRK2(   22,1)= PHI(     135)
      WRK2(   23,1)= PHI(     136)
      WRK2(   24,1)= PHI(     137)
      WRK2(   25,1)= PHI(     138)
      WRK2(   26,1)=-PHI(     195)
      WRK2(   27,1)=-PHI(     196)
      WRK2(   28,1)=-PHI(     197)
      WRK2(   29,1)=-PHI(     198)
      WRK2(   30,1)=-PHI(     199)
      WRK2(   31,1)=-PHI(     200)
      WRK2(   32,1)=-PHI(     201)
      WRK2(   33,1)=-PHI(     202)
      WRK2(   34,1)=-PHI(     203)
      WRK2(   35,1)=-PHI(     204)
      WRK2(   36,1)= PHI(      59)
      WRK2(   37,1)= PHI(      56)
      WRK2(   38,1)= PHI(      52)
      WRK2(   39,1)=-PHI(      87)
      WRK2(   40,1)=-PHI(      88)
      WRK2(   41,1)=-PHI(      89)
      WRK2(   42,1)=-PHI(      78)
      WRK2(   43,1)=-PHI(      79)
      WRK2(   44,1)=-PHI(      80)
      WRK2(   45,1)= PHI(     147)
      WRK2(   46,1)= PHI(     148)
      WRK2(   47,1)= PHI(     149)
      WRK2(   48,1)= PHI(     150)
      WRK2(   49,1)= PHI(     151)
      WRK2(   50,1)= PHI(     152)
      WRK2(   51,1)= PHI(     126)
      WRK2(   52,1)= PHI(     127)
      WRK2(   53,1)= PHI(     128)
      WRK2(   54,1)= PHI(     129)
      WRK2(   55,1)= PHI(     130)
      WRK2(   56,1)= PHI(     131)
      WRK2(   57,1)=-PHI(     221)
      WRK2(   58,1)=-PHI(     222)
      WRK2(   59,1)=-PHI(     223)
      WRK2(   60,1)=-PHI(     224)
      WRK2(   61,1)=-PHI(     225)
      WRK2(   62,1)=-PHI(     226)
      WRK2(   63,1)=-PHI(     227)
      WRK2(   64,1)=-PHI(     228)
      WRK2(   65,1)=-PHI(     229)
      WRK2(   66,1)=-PHI(     230)
      WRK2(   67,1)= PHI(     304)
      WRK2(   68,1)= PHI(     305)
      WRK2(   69,1)= PHI(     306)
      WRK2(   70,1)= PHI(     307)
      WRK2(   71,1)= PHI(     308)
      WRK2(   72,1)= PHI(     309)
      WRK2(   73,1)= PHI(     310)
      WRK2(   74,1)= PHI(     311)
      WRK2(   75,1)= PHI(     312)
      WRK2(   76,1)= PHI(     313)
      WRK2(   77,1)= PHI(     314)
      WRK2(   78,1)= PHI(     315)
      WRK2(   79,1)= PHI(     316)
      WRK2(   80,1)= PHI(     317)
      WRK2(   81,1)= PHI(     318)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 6)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 5)*WRK2(   52,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 1)*WRK2(   59,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 1)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 6)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 5)*WRK2(   54,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 1)*WRK2(   62,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 1)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 5)*WRK2(   55,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 1)*WRK2(   64,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 1)*WRK2(   65,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 2)*WRK2(   65,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 1)*WRK2(   66,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 2)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 6)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 5)*WRK2(   42,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   49,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 2)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   40,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   40,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 1)*WRK2(   41,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   41,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   41,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   42,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 1)*WRK2(   43,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 2)*WRK2(   43,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 1)*WRK2(   44,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 2)*WRK2(   44,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 3)*WRK2(   44,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 1)*WRK2(   36,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 3)*WRK2(   36,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 2)*WRK2(   37,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 3)*WRK2(   37,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 5)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 1)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 5)*WRK2(   52,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 5)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 1)*WRK2(   62,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 2)*WRK2(   62,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 1)*WRK2(   64,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 2)*WRK2(   64,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 2)*WRK2(   65,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 5)*WRK2(   54,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 5)*WRK2(   55,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 5)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 2)*WRK2(   39,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   40,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 3)*WRK2(   40,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   41,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   42,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   42,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 2)*WRK2(   43,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   42,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   43,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 3)*WRK2(   44,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   58,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 2)*WRK2(   61,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 2)*WRK2(   62,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 3)*WRK2(   61,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 3)*WRK2(   62,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 3)*WRK2(   63,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   45,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 3)*WRK2(   45,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 3)*WRK2(   46,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 3)*WRK2(   47,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 2)*WRK2(   57,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   58,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 3)*WRK2(   57,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 3)*WRK2(   58,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 3)*WRK2(   59,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 3)*WRK2(   60,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 3)*WRK2(   61,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 3)*WRK2(   62,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 3)*WRK2(   63,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   82,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   83,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   84,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   85,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   86,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   87,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   88,I)=WRK2(   67,I)-CONF( 1)*WRK2(   26,I)
      WRK2(   89,I)=WRK2(   68,I)-CONF( 1)*WRK2(   27,I)
      WRK2(   90,I)=WRK2(   69,I)-CONF( 1)*WRK2(   28,I)
      WRK2(   91,I)=WRK2(   70,I)-CONF( 1)*WRK2(   29,I)
      WRK2(   92,I)=WRK2(   72,I)-CONF( 1)*WRK2(   30,I)
      WRK2(   93,I)=WRK2(   73,I)-CONF( 1)*WRK2(   31,I)
      WRK2(   94,I)=WRK2(   74,I)-CONF( 1)*WRK2(   32,I)
      WRK2(   95,I)=WRK2(   76,I)-CONF( 1)*WRK2(   33,I)
      WRK2(   96,I)=WRK2(   77,I)-CONF( 1)*WRK2(   34,I)
      WRK2(   97,I)=WRK2(   79,I)-CONF( 1)*WRK2(   35,I)
      WRK2(   98,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   99,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(  100,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(  101,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(  102,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(  103,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(  104,I)=WRK2(   68,I)-CONF( 2)*WRK2(   26,I)
      WRK2(  105,I)=WRK2(   69,I)-CONF( 2)*WRK2(   27,I)
      WRK2(  106,I)=WRK2(   70,I)-CONF( 2)*WRK2(   28,I)
      WRK2(  107,I)=WRK2(   71,I)-CONF( 2)*WRK2(   29,I)
      WRK2(  108,I)=WRK2(   73,I)-CONF( 2)*WRK2(   30,I)
      WRK2(  109,I)=WRK2(   74,I)-CONF( 2)*WRK2(   31,I)
      WRK2(  110,I)=WRK2(   75,I)-CONF( 2)*WRK2(   32,I)
      WRK2(  111,I)=WRK2(   77,I)-CONF( 2)*WRK2(   33,I)
      WRK2(  112,I)=WRK2(   78,I)-CONF( 2)*WRK2(   34,I)
      WRK2(  113,I)=WRK2(   80,I)-CONF( 2)*WRK2(   35,I)
      WRK2(  114,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(  115,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(  116,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(  117,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(  118,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(  119,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      WRK2(  120,I)=WRK2(   72,I)-CONF( 3)*WRK2(   26,I)
      WRK2(  121,I)=WRK2(   73,I)-CONF( 3)*WRK2(   27,I)
      WRK2(  122,I)=WRK2(   74,I)-CONF( 3)*WRK2(   28,I)
      WRK2(  123,I)=WRK2(   75,I)-CONF( 3)*WRK2(   29,I)
      WRK2(  124,I)=WRK2(   76,I)-CONF( 3)*WRK2(   30,I)
      WRK2(  125,I)=WRK2(   77,I)-CONF( 3)*WRK2(   31,I)
      WRK2(  126,I)=WRK2(   78,I)-CONF( 3)*WRK2(   32,I)
      WRK2(  127,I)=WRK2(   79,I)-CONF( 3)*WRK2(   33,I)
      WRK2(  128,I)=WRK2(   80,I)-CONF( 3)*WRK2(   34,I)
      WRK2(  129,I)=WRK2(   81,I)-CONF( 3)*WRK2(   35,I)
      WRK2(  130,I)=WRK2(   88,I)-CONF( 1)*WRK2(   82,I)
      WRK2(  131,I)=WRK2(   89,I)-CONF( 1)*WRK2(   83,I)
      WRK2(  132,I)=WRK2(   90,I)-CONF( 1)*WRK2(   84,I)
      WRK2(  133,I)=WRK2(   92,I)-CONF( 1)*WRK2(   85,I)
      WRK2(  134,I)=WRK2(   93,I)-CONF( 1)*WRK2(   86,I)
      WRK2(  135,I)=WRK2(   95,I)-CONF( 1)*WRK2(   87,I)
      WRK2(  136,I)=WRK2(  104,I)-CONF( 1)*WRK2(   98,I)
      WRK2(  137,I)=WRK2(  105,I)-CONF( 1)*WRK2(   99,I)
      WRK2(  138,I)=WRK2(  106,I)-CONF( 1)*WRK2(  100,I)
      WRK2(  139,I)=WRK2(  108,I)-CONF( 1)*WRK2(  101,I)
      WRK2(  140,I)=WRK2(  109,I)-CONF( 1)*WRK2(  102,I)
      WRK2(  141,I)=WRK2(  111,I)-CONF( 1)*WRK2(  103,I)
      WRK2(  142,I)=WRK2(  105,I)-CONF( 2)*WRK2(   98,I)
      WRK2(  143,I)=WRK2(  106,I)-CONF( 2)*WRK2(   99,I)
      WRK2(  144,I)=WRK2(  107,I)-CONF( 2)*WRK2(  100,I)
      WRK2(  145,I)=WRK2(  109,I)-CONF( 2)*WRK2(  101,I)
      WRK2(  146,I)=WRK2(  110,I)-CONF( 2)*WRK2(  102,I)
      WRK2(  147,I)=WRK2(  112,I)-CONF( 2)*WRK2(  103,I)
      WRK2(  148,I)=WRK2(  120,I)-CONF( 1)*WRK2(  114,I)
      WRK2(  149,I)=WRK2(  121,I)-CONF( 1)*WRK2(  115,I)
      WRK2(  150,I)=WRK2(  122,I)-CONF( 1)*WRK2(  116,I)
      WRK2(  151,I)=WRK2(  124,I)-CONF( 1)*WRK2(  117,I)
      WRK2(  152,I)=WRK2(  125,I)-CONF( 1)*WRK2(  118,I)
      WRK2(  153,I)=WRK2(  127,I)-CONF( 1)*WRK2(  119,I)
      WRK2(  154,I)=WRK2(  121,I)-CONF( 2)*WRK2(  114,I)
      WRK2(  155,I)=WRK2(  122,I)-CONF( 2)*WRK2(  115,I)
      WRK2(  156,I)=WRK2(  123,I)-CONF( 2)*WRK2(  116,I)
      WRK2(  157,I)=WRK2(  125,I)-CONF( 2)*WRK2(  117,I)
      WRK2(  158,I)=WRK2(  126,I)-CONF( 2)*WRK2(  118,I)
      WRK2(  159,I)=WRK2(  128,I)-CONF( 2)*WRK2(  119,I)
      WRK2(  160,I)=WRK2(  124,I)-CONF( 3)*WRK2(  114,I)
      WRK2(  161,I)=WRK2(  125,I)-CONF( 3)*WRK2(  115,I)
      WRK2(  162,I)=WRK2(  126,I)-CONF( 3)*WRK2(  116,I)
      WRK2(  163,I)=WRK2(  127,I)-CONF( 3)*WRK2(  117,I)
      WRK2(  164,I)=WRK2(  128,I)-CONF( 3)*WRK2(  118,I)
      WRK2(  165,I)=WRK2(  129,I)-CONF( 3)*WRK2(  119,I)
      END DO
      RETURN
      END
C  LPHI=     802
C  LWK1=       4
C  LWK2=     495
C  LENW=     165
C*MODULE INT2D   *DECK DDPS
      SUBROUTINE DDPS (IPRIM,JPRIM,KPRIM,LPRIM,IEQJ
     *,KEQL,XA,YA,ZA,XB,YB,ZB,XC,YC,ZC,XD,YD,ZD,PHI
     *,WRK1,WRK2,LENW)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      COMMON /SHLNOS/ QQ4,IDUMMY(20)
      PARAMETER (NTX=4,NPF=450,NGRD=7,NPX=1000,MXQT=16)
      COMMON /FMTTBL/ FGRID(0:NTX,0:NPF,0:NGRD)
     *,XGRID(0:NTX,0:NPX),TMAX,RFINC(0:NGRD)
     *,RXINC,RMR(MXQT),TLGM(0:MXQT),NORD
      PARAMETER (MXPR=30, MXPS=MXPR*MXPR)
      COMMON /ERIPRM/ EXI(MXPR),EXJ(MXPR),EXK(MXPR),EXL(MXPR)
     *,CCI(MXPR),CCJ(MXPR),CCK(MXPR),CCL(MXPR)
     *,XAB(MXPS),YAB(MXPS),ZAB(MXPS)
     *,XCD(MXPS),YCD(MXPS),ZCD(MXPS)
     *,CCBRA(MXPS),CCKET(MXPS),RXB(MXPS)
     *,SLBRA(MXPS),SLKET(MXPS),RXK(MXPS)
      LOGICAL IEQJ,KEQL
      DOUBLE PRECISION RXYZ(3),SFAC(9),CONF(11),FT(0:16)
      DOUBLE PRECISION SAUX(0: 5),CXYZ( 56)
      DOUBLE PRECISION PHI(*),WRK1(*),WRK2(LENW,*)
      PARAMETER (ZERO=0.0D+00, ONE=1.0D+00, TWO=2.0D+00)
      PARAMETER (D01=1.0D+00, D02=2.0D+00, D03=3.0D+00)
      PARAMETER (D04=4.0D+00)
      PARAMETER (CCTOL=1.0D-13)
      DATA CONF/0.0D+00,0.0D+00,0.0D+00,1.0D+00,2.0D+00,3.0D+00
     &,         4.0D+00,5.0D+00,6.0D+00,7.0D+00,8.0D+00/
      SAVE CONF
      RFAC=RFINC( 5)
      KL=0
      PHI(      84)=ZERO
      PHI(      86)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      90)=ZERO
      PHI(      91)=ZERO
      PHI(      93)=ZERO
      PHI(     103)=ZERO
      PHI(     104)=ZERO
      PHI(     105)=ZERO
      PHI(     109)=ZERO
      PHI(     110)=ZERO
      PHI(     111)=ZERO
      PHI(     112)=ZERO
      PHI(     113)=ZERO
      PHI(     114)=ZERO
      PHI(     115)=ZERO
      PHI(     116)=ZERO
      PHI(     117)=ZERO
      PHI(     121)=ZERO
      PHI(     122)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     125)=ZERO
      PHI(     126)=ZERO
      PHI(     130)=ZERO
      PHI(     131)=ZERO
      PHI(     132)=ZERO
      PHI(     139)=ZERO
      PHI(     140)=ZERO
      PHI(     141)=ZERO
      PHI(     142)=ZERO
      PHI(     143)=ZERO
      PHI(     144)=ZERO
      PHI(     148)=ZERO
      PHI(     149)=ZERO
      PHI(     150)=ZERO
      PHI(     151)=ZERO
      PHI(     152)=ZERO
      PHI(     153)=ZERO
      PHI(     157)=ZERO
      PHI(     158)=ZERO
      PHI(     159)=ZERO
      DO I=     181,     187
      PHI(I)=ZERO
      END DO
      DO I=     188,     194
      PHI(I)=ZERO
      END DO
      DO I=     202,     208
      PHI(I)=ZERO
      END DO
      DO I=     209,     215
      PHI(I)=ZERO
      END DO
      DO I=     223,     229
      PHI(I)=ZERO
      END DO
      DO I=     244,     250
      PHI(I)=ZERO
      END DO
      DO I=     258,     264
      PHI(I)=ZERO
      END DO
      DO I=     265,     271
      PHI(I)=ZERO
      END DO
      DO I=     279,     285
      PHI(I)=ZERO
      END DO
      DO I=     325,     337
      PHI(I)=ZERO
      END DO
      DO I=     351,     363
      PHI(I)=ZERO
      END DO
      DO I=     364,     376
      PHI(I)=ZERO
      END DO
      DO I=     390,     402
      PHI(I)=ZERO
      END DO
      DO I=     429,     441
      PHI(I)=ZERO
      END DO
      DO I=     455,     467
      PHI(I)=ZERO
      END DO
      DO I=     534,     555
      PHI(I)=ZERO
      END DO
      DO I=     578,     599
      PHI(I)=ZERO
      END DO
      DO I=     644,     665
      PHI(I)=ZERO
      END DO
      DO I=     768,     801
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      85)=ZERO
      PHI(      89)=ZERO
      PHI(      92)=ZERO
      PHI(     100)=ZERO
      PHI(     101)=ZERO
      PHI(     102)=ZERO
      PHI(     106)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     118)=ZERO
      PHI(     119)=ZERO
      PHI(     120)=ZERO
      PHI(     127)=ZERO
      PHI(     128)=ZERO
      PHI(     129)=ZERO
      PHI(     136)=ZERO
      PHI(     137)=ZERO
      PHI(     138)=ZERO
      PHI(     145)=ZERO
      PHI(     146)=ZERO
      PHI(     147)=ZERO
      PHI(     154)=ZERO
      PHI(     155)=ZERO
      PHI(     156)=ZERO
      DO I=     174,     180
      PHI(I)=ZERO
      END DO
      DO I=     195,     201
      PHI(I)=ZERO
      END DO
      DO I=     216,     222
      PHI(I)=ZERO
      END DO
      DO I=     237,     243
      PHI(I)=ZERO
      END DO
      DO I=     251,     257
      PHI(I)=ZERO
      END DO
      DO I=     272,     278
      PHI(I)=ZERO
      END DO
      DO I=     312,     324
      PHI(I)=ZERO
      END DO
      DO I=     338,     350
      PHI(I)=ZERO
      END DO
      DO I=     377,     389
      PHI(I)=ZERO
      END DO
      DO I=     416,     428
      PHI(I)=ZERO
      END DO
      DO I=     442,     454
      PHI(I)=ZERO
      END DO
      DO I=     512,     533
      PHI(I)=ZERO
      END DO
      DO I=     556,     577
      PHI(I)=ZERO
      END DO
      DO I=     622,     643
      PHI(I)=ZERO
      END DO
      DO I=     734,     767
      PHI(I)=ZERO
      END DO
      KTOP=KPRIM
      IF (KEQL) KTOP=LL
      DO KK=1,KTOP
      KL=KL+1
      CCKF=CCKET(KL)
      IF (ABS(CCKF).GT.CCTOL) THEN
      EKL=EXL(LL)+EXK(KK)
      XKL=XCD(KL)
      YKL=YCD(KL)
      ZKL=ZCD(KL)
      IJ=0
      PHI(      82)=ZERO
      PHI(      97)=ZERO
      PHI(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     133)=ZERO
      PHI(     134)=ZERO
      PHI(     135)=ZERO
      DO I=     167,     173
      PHI(I)=ZERO
      END DO
      DO I=     230,     236
      PHI(I)=ZERO
      END DO
      DO I=     299,     311
      PHI(I)=ZERO
      END DO
      DO I=     403,     415
      PHI(I)=ZERO
      END DO
      DO I=     490,     511
      PHI(I)=ZERO
      END DO
      DO I=     600,     621
      PHI(I)=ZERO
      END DO
      DO I=     700,     733
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      94)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      DO I=     160,     166
      PHI(I)=ZERO
      END DO
      DO I=     286,     298
      PHI(I)=ZERO
      END DO
      DO I=     468,     489
      PHI(I)=ZERO
      END DO
      DO I=     666,     699
      PHI(I)=ZERO
      END DO
      ITOP=IPRIM
      IF (IEQJ) ITOP=JJ
      DO II=1,ITOP
      IJ=IJ+1
      CCBF=CCBRA(IJ)
      IF (ABS(CCBF).GT.CCTOL) THEN
      EIJ=EXJ(JJ)+EXI(II)
      EIJKL=EIJ+EKL
      EINV=ONE/EIJKL
      RX=XKL-XAB(IJ)
      RY=YKL-YAB(IJ)
      RZ=ZKL-ZAB(IJ)
      R2=RX*RX+RY*RY+RZ*RZ
      VS=EIJ*EKL*EINV
      TT=VS*R2
      IF (TT.LE.TMAX) THEN
      TVAL=TT*RFAC
      IPT=NINT(TVAL)
      FX= TVAL*FGRID(4,IPT, 5)
      FX=(FX + FGRID(3,IPT, 5))*TVAL
      FX=(FX + FGRID(2,IPT, 5))*TVAL
      FX=(FX + FGRID(1,IPT, 5))*TVAL
      FX= FX + FGRID(0,IPT, 5)
      FT( 8)=FX
      TVAL=TT*RXINC
      IPT=NINT(TVAL)
      ET= TVAL*XGRID(4,IPT)
      ET=(ET + XGRID(3,IPT))*TVAL
      ET=(ET + XGRID(2,IPT))*TVAL
      ET=(ET + XGRID(1,IPT))*TVAL
      ET= ET + XGRID(0,IPT)
      T2=TT*TWO
      FT( 7)=RMR( 8)*(T2*FT( 8)+ET)
      FT( 6)=RMR( 7)*(T2*FT( 7)+ET)
      FT( 5)=RMR( 6)*(T2*FT( 6)+ET)
      FT( 4)=RMR( 5)*(T2*FT( 5)+ET)
      FT( 3)=RMR( 4)*(T2*FT( 4)+ET)
      FT( 2)=RMR( 3)*(T2*FT( 3)+ET)
      FT( 1)=RMR( 2)*(T2*FT( 2)+ET)
      FT( 0)=RMR( 1)*(T2*FT( 1)+ET)
      ZEROL=CCBF*CCKF*SQRT(EINV)*QQ4
      SAUX(0)=ZEROL*FT(0)
      VS2=TWO*VS
      VSM=ONE
      VSM=VSM*VS2
      SAUX( 1)=ZEROL*FT( 1)*VSM
      VSM=VSM*VS2
      SAUX( 2)=ZEROL*FT( 2)*VSM
      VSM=VSM*VS2
      SAUX( 3)=ZEROL*FT( 3)*VSM
      VSM=VSM*VS2
      SAUX( 4)=ZEROL*FT( 4)*VSM
      VSM=VSM*VS2
      SAUX( 5)=ZEROL*FT( 5)*VSM
      ELSE
      ZEROL=CCBF*CCKF*SLBRA(IJ)*SLKET(KL)*QQ4
      RINV=ONE/R2
      SAUX(0)=ZEROL*SQRT(RINV)
      RR=SAUX(0)
      RR=RR*RINV
      SAUX( 1)=TLGM( 1)*RR
      RR=RR*RINV
      SAUX( 2)=TLGM( 2)*RR
      RR=RR*RINV
      SAUX( 3)=TLGM( 3)*RR
      RR=RR*RINV
      SAUX( 4)=TLGM( 4)*RR
      RR=RR*RINV
      SAUX( 5)=TLGM( 5)*RR
      END IF
      RXYZ(1)=RX
      RXYZ(2)=RY
      RXYZ(3)=RZ
      CXYZ(1)=ONE
      CXYZ(2)=RX
      CXYZ(3)=RY
      CXYZ(4)=RZ
      CXYZ(     5)=CXYZ(     2)*RXYZ(1)
      CXYZ(     6)=CXYZ(     3)*RXYZ(1)
      CXYZ(     7)=CXYZ(     3)*RXYZ(2)
      CXYZ(     8)=CXYZ(     4)*RXYZ(1)
      CXYZ(     9)=CXYZ(     4)*RXYZ(2)
      CXYZ(    10)=CXYZ(     4)*RXYZ(3)
      CXYZ(    11)=CXYZ(     5)*RXYZ(1)
      CXYZ(    12)=CXYZ(     6)*RXYZ(1)
      CXYZ(    13)=CXYZ(     7)*RXYZ(1)
      CXYZ(    14)=CXYZ(     7)*RXYZ(2)
      CXYZ(    15)=CXYZ(     8)*RXYZ(1)
      CXYZ(    16)=CXYZ(     9)*RXYZ(1)
      CXYZ(    17)=CXYZ(     9)*RXYZ(2)
      CXYZ(    18)=CXYZ(    10)*RXYZ(1)
      CXYZ(    19)=CXYZ(    10)*RXYZ(2)
      CXYZ(    20)=CXYZ(    10)*RXYZ(3)
      CXYZ(    21)=CXYZ(    11)*RXYZ(1)
      CXYZ(    22)=CXYZ(    12)*RXYZ(1)
      CXYZ(    23)=CXYZ(    13)*RXYZ(1)
      CXYZ(    24)=CXYZ(    14)*RXYZ(1)
      CXYZ(    25)=CXYZ(    14)*RXYZ(2)
      CXYZ(    26)=CXYZ(    15)*RXYZ(1)
      CXYZ(    27)=CXYZ(    16)*RXYZ(1)
      CXYZ(    28)=CXYZ(    17)*RXYZ(1)
      CXYZ(    29)=CXYZ(    17)*RXYZ(2)
      CXYZ(    30)=CXYZ(    18)*RXYZ(1)
      CXYZ(    31)=CXYZ(    19)*RXYZ(1)
      CXYZ(    32)=CXYZ(    19)*RXYZ(2)
      CXYZ(    33)=CXYZ(    20)*RXYZ(1)
      CXYZ(    34)=CXYZ(    20)*RXYZ(2)
      CXYZ(    35)=CXYZ(    20)*RXYZ(3)
      CXYZ(    36)=CXYZ(    21)*RXYZ(1)
      CXYZ(    37)=CXYZ(    22)*RXYZ(1)
      CXYZ(    38)=CXYZ(    23)*RXYZ(1)
      CXYZ(    39)=CXYZ(    24)*RXYZ(1)
      CXYZ(    40)=CXYZ(    25)*RXYZ(1)
      CXYZ(    41)=CXYZ(    25)*RXYZ(2)
      CXYZ(    42)=CXYZ(    26)*RXYZ(1)
      CXYZ(    43)=CXYZ(    27)*RXYZ(1)
      CXYZ(    44)=CXYZ(    28)*RXYZ(1)
      CXYZ(    45)=CXYZ(    29)*RXYZ(1)
      CXYZ(    46)=CXYZ(    29)*RXYZ(2)
      CXYZ(    47)=CXYZ(    30)*RXYZ(1)
      CXYZ(    48)=CXYZ(    31)*RXYZ(1)
      CXYZ(    49)=CXYZ(    32)*RXYZ(1)
      CXYZ(    50)=CXYZ(    32)*RXYZ(2)
      CXYZ(    51)=CXYZ(    33)*RXYZ(1)
      CXYZ(    52)=CXYZ(    34)*RXYZ(1)
      CXYZ(    53)=CXYZ(    34)*RXYZ(2)
      CXYZ(    54)=CXYZ(    35)*RXYZ(1)
      CXYZ(    55)=CXYZ(    35)*RXYZ(2)
      CXYZ(    56)=CXYZ(    35)*RXYZ(3)
      PHI(1)=SAUX(0)
      PHI(       2)=CXYZ(     2)*SAUX( 1)
      PHI(       3)=CXYZ(     3)*SAUX( 1)
      PHI(       4)=CXYZ(     4)*SAUX( 1)
      PHI(       5)=CXYZ(     1)*SAUX( 1)
      PHI(       6)=CXYZ(     5)*SAUX( 2)
      PHI(       7)=CXYZ(     6)*SAUX( 2)
      PHI(       8)=CXYZ(     7)*SAUX( 2)
      PHI(       9)=CXYZ(     8)*SAUX( 2)
      PHI(      10)=CXYZ(     9)*SAUX( 2)
      PHI(      11)=CXYZ(    10)*SAUX( 2)
      PHI(      12)=CXYZ(     2)*SAUX( 2)
      PHI(      13)=CXYZ(     3)*SAUX( 2)
      PHI(      14)=CXYZ(     4)*SAUX( 2)
      PHI(      15)=CXYZ(    11)*SAUX( 3)
      PHI(      16)=CXYZ(    12)*SAUX( 3)
      PHI(      17)=CXYZ(    13)*SAUX( 3)
      PHI(      18)=CXYZ(    14)*SAUX( 3)
      PHI(      19)=CXYZ(    15)*SAUX( 3)
      PHI(      20)=CXYZ(    16)*SAUX( 3)
      PHI(      21)=CXYZ(    17)*SAUX( 3)
      PHI(      22)=CXYZ(    18)*SAUX( 3)
      PHI(      23)=CXYZ(    19)*SAUX( 3)
      PHI(      24)=CXYZ(    20)*SAUX( 3)
      PHI(      25)=CXYZ(     1)*SAUX( 2)
      PHI(      26)=CXYZ(     5)*SAUX( 3)
      PHI(      27)=CXYZ(     6)*SAUX( 3)
      PHI(      28)=CXYZ(     7)*SAUX( 3)
      PHI(      29)=CXYZ(     8)*SAUX( 3)
      PHI(      30)=CXYZ(     9)*SAUX( 3)
      PHI(      31)=CXYZ(    10)*SAUX( 3)
      PHI(      32)=CXYZ(    21)*SAUX( 4)
      PHI(      33)=CXYZ(    22)*SAUX( 4)
      PHI(      34)=CXYZ(    23)*SAUX( 4)
      PHI(      35)=CXYZ(    24)*SAUX( 4)
      PHI(      36)=CXYZ(    25)*SAUX( 4)
      PHI(      37)=CXYZ(    26)*SAUX( 4)
      PHI(      38)=CXYZ(    27)*SAUX( 4)
      PHI(      39)=CXYZ(    28)*SAUX( 4)
      PHI(      40)=CXYZ(    29)*SAUX( 4)
      PHI(      41)=CXYZ(    30)*SAUX( 4)
      PHI(      42)=CXYZ(    31)*SAUX( 4)
      PHI(      43)=CXYZ(    32)*SAUX( 4)
      PHI(      44)=CXYZ(    33)*SAUX( 4)
      PHI(      45)=CXYZ(    34)*SAUX( 4)
      PHI(      46)=CXYZ(    35)*SAUX( 4)
      PHI(      47)=CXYZ(     2)*SAUX( 3)
      PHI(      48)=CXYZ(     3)*SAUX( 3)
      PHI(      49)=CXYZ(     4)*SAUX( 3)
      PHI(      50)=CXYZ(    11)*SAUX( 4)
      PHI(      51)=CXYZ(    12)*SAUX( 4)
      PHI(      52)=CXYZ(    13)*SAUX( 4)
      PHI(      53)=CXYZ(    14)*SAUX( 4)
      PHI(      54)=CXYZ(    15)*SAUX( 4)
      PHI(      55)=CXYZ(    16)*SAUX( 4)
      PHI(      56)=CXYZ(    17)*SAUX( 4)
      PHI(      57)=CXYZ(    18)*SAUX( 4)
      PHI(      58)=CXYZ(    19)*SAUX( 4)
      PHI(      59)=CXYZ(    20)*SAUX( 4)
      PHI(      60)=CXYZ(    36)*SAUX( 5)
      PHI(      61)=CXYZ(    37)*SAUX( 5)
      PHI(      62)=CXYZ(    38)*SAUX( 5)
      PHI(      63)=CXYZ(    39)*SAUX( 5)
      PHI(      64)=CXYZ(    40)*SAUX( 5)
      PHI(      65)=CXYZ(    41)*SAUX( 5)
      PHI(      66)=CXYZ(    42)*SAUX( 5)
      PHI(      67)=CXYZ(    43)*SAUX( 5)
      PHI(      68)=CXYZ(    44)*SAUX( 5)
      PHI(      69)=CXYZ(    45)*SAUX( 5)
      PHI(      70)=CXYZ(    46)*SAUX( 5)
      PHI(      71)=CXYZ(    47)*SAUX( 5)
      PHI(      72)=CXYZ(    48)*SAUX( 5)
      PHI(      73)=CXYZ(    49)*SAUX( 5)
      PHI(      74)=CXYZ(    50)*SAUX( 5)
      PHI(      75)=CXYZ(    51)*SAUX( 5)
      PHI(      76)=CXYZ(    52)*SAUX( 5)
      PHI(      77)=CXYZ(    53)*SAUX( 5)
      PHI(      78)=CXYZ(    54)*SAUX( 5)
      PHI(      79)=CXYZ(    55)*SAUX( 5)
      PHI(      80)=CXYZ(    56)*SAUX( 5)
      FAC=RXB(IJ)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      81)=PHI(      81)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      94)=PHI(      94)+FAC*PHI(       2)
      PHI(      95)=PHI(      95)+FAC*PHI(       3)
      PHI(      96)=PHI(      96)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     160,     166
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     286,     298
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     468,     489
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      47
      DO I=     666,     699
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXJ(JJ)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      FAC=SFAC( 2)
      PHI(      82)=PHI(      82)+FAC*PHI(      81)
      FAC=SFAC( 1)
      PHI(      97)=PHI(      97)+FAC*PHI(      94)
      PHI(      98)=PHI(      98)+FAC*PHI(      95)
      PHI(      99)=PHI(      99)+FAC*PHI(      96)
      FAC=SFAC( 2)
      PHI(     133)=PHI(     133)+FAC*PHI(      94)
      PHI(     134)=PHI(     134)+FAC*PHI(      95)
      PHI(     135)=PHI(     135)+FAC*PHI(      96)
      FAC=SFAC( 1)
      J=     160
      DO I=     167,     173
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     160
      DO I=     230,     236
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     286
      DO I=     299,     311
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     286
      DO I=     403,     415
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     468
      DO I=     490,     511
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     468
      DO I=     600,     621
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     666
      DO I=     700,     733
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
      FAC=RXK(KL)
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      SF=SF*FAC
      SFAC( 5)=SF
      FAC=SFAC( 2)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      89)=PHI(      89)+FAC*PHI(      82)
      FAC=SFAC( 5)
      PHI(      92)=PHI(      92)+FAC*PHI(      82)
      FAC=SFAC( 2)
      PHI(     100)=PHI(     100)+FAC*PHI(      97)
      PHI(     101)=PHI(     101)+FAC*PHI(      98)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      FAC=SFAC( 3)
      PHI(     106)=PHI(     106)+FAC*PHI(      97)
      PHI(     107)=PHI(     107)+FAC*PHI(      98)
      PHI(     108)=PHI(     108)+FAC*PHI(      99)
      FAC=SFAC( 4)
      PHI(     118)=PHI(     118)+FAC*PHI(      97)
      PHI(     119)=PHI(     119)+FAC*PHI(      98)
      PHI(     120)=PHI(     120)+FAC*PHI(      99)
      FAC=SFAC( 5)
      PHI(     127)=PHI(     127)+FAC*PHI(      97)
      PHI(     128)=PHI(     128)+FAC*PHI(      98)
      PHI(     129)=PHI(     129)+FAC*PHI(      99)
      FAC=SFAC( 3)
      PHI(     136)=PHI(     136)+FAC*PHI(     133)
      PHI(     137)=PHI(     137)+FAC*PHI(     134)
      PHI(     138)=PHI(     138)+FAC*PHI(     135)
      FAC=SFAC( 4)
      PHI(     145)=PHI(     145)+FAC*PHI(     133)
      PHI(     146)=PHI(     146)+FAC*PHI(     134)
      PHI(     147)=PHI(     147)+FAC*PHI(     135)
      FAC=SFAC( 5)
      PHI(     154)=PHI(     154)+FAC*PHI(     133)
      PHI(     155)=PHI(     155)+FAC*PHI(     134)
      PHI(     156)=PHI(     156)+FAC*PHI(     135)
      FAC=SFAC( 3)
      J=     167
      DO I=     174,     180
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     167
      DO I=     195,     201
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     167
      DO I=     216,     222
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     230
      DO I=     237,     243
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     230
      DO I=     251,     257
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     230
      DO I=     272,     278
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     299
      DO I=     312,     324
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     299
      DO I=     338,     350
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     299
      DO I=     377,     389
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     403
      DO I=     416,     428
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     403
      DO I=     442,     454
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     490
      DO I=     512,     533
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     490
      DO I=     556,     577
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     600
      DO I=     622,     643
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     700
      DO I=     734,     767
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END IF
      END DO
      FAC=EXL(LL)*TWO
      SF=ONE
      SFAC(1)=SF
      SF=SF*FAC
      SFAC( 2)=SF
      SF=SF*FAC
      SFAC( 3)=SF
      SF=SF*FAC
      SFAC( 4)=SF
      SF=SF*FAC
      SFAC( 5)=SF
      FAC=SFAC( 1)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 1)
      PHI(      86)=PHI(      86)+FAC*PHI(      85)
      FAC=SFAC( 2)
      PHI(      87)=PHI(      87)+FAC*PHI(      85)
      FAC=SFAC( 3)
      PHI(      88)=PHI(      88)+FAC*PHI(      85)
      FAC=SFAC( 3)
      PHI(      90)=PHI(      90)+FAC*PHI(      89)
      FAC=SFAC( 4)
      PHI(      91)=PHI(      91)+FAC*PHI(      89)
      FAC=SFAC( 5)
      PHI(      93)=PHI(      93)+FAC*PHI(      92)
      FAC=SFAC( 1)
      PHI(     103)=PHI(     103)+FAC*PHI(     100)
      PHI(     104)=PHI(     104)+FAC*PHI(     101)
      PHI(     105)=PHI(     105)+FAC*PHI(     102)
      FAC=SFAC( 1)
      PHI(     109)=PHI(     109)+FAC*PHI(     106)
      PHI(     110)=PHI(     110)+FAC*PHI(     107)
      PHI(     111)=PHI(     111)+FAC*PHI(     108)
      FAC=SFAC( 2)
      PHI(     112)=PHI(     112)+FAC*PHI(     106)
      PHI(     113)=PHI(     113)+FAC*PHI(     107)
      PHI(     114)=PHI(     114)+FAC*PHI(     108)
      FAC=SFAC( 3)
      PHI(     115)=PHI(     115)+FAC*PHI(     106)
      PHI(     116)=PHI(     116)+FAC*PHI(     107)
      PHI(     117)=PHI(     117)+FAC*PHI(     108)
      FAC=SFAC( 3)
      PHI(     121)=PHI(     121)+FAC*PHI(     118)
      PHI(     122)=PHI(     122)+FAC*PHI(     119)
      PHI(     123)=PHI(     123)+FAC*PHI(     120)
      FAC=SFAC( 4)
      PHI(     124)=PHI(     124)+FAC*PHI(     118)
      PHI(     125)=PHI(     125)+FAC*PHI(     119)
      PHI(     126)=PHI(     126)+FAC*PHI(     120)
      FAC=SFAC( 5)
      PHI(     130)=PHI(     130)+FAC*PHI(     127)
      PHI(     131)=PHI(     131)+FAC*PHI(     128)
      PHI(     132)=PHI(     132)+FAC*PHI(     129)
      FAC=SFAC( 1)
      PHI(     139)=PHI(     139)+FAC*PHI(     136)
      PHI(     140)=PHI(     140)+FAC*PHI(     137)
      PHI(     141)=PHI(     141)+FAC*PHI(     138)
      FAC=SFAC( 2)
      PHI(     142)=PHI(     142)+FAC*PHI(     136)
      PHI(     143)=PHI(     143)+FAC*PHI(     137)
      PHI(     144)=PHI(     144)+FAC*PHI(     138)
      FAC=SFAC( 2)
      PHI(     148)=PHI(     148)+FAC*PHI(     145)
      PHI(     149)=PHI(     149)+FAC*PHI(     146)
      PHI(     150)=PHI(     150)+FAC*PHI(     147)
      FAC=SFAC( 3)
      PHI(     151)=PHI(     151)+FAC*PHI(     145)
      PHI(     152)=PHI(     152)+FAC*PHI(     146)
      PHI(     153)=PHI(     153)+FAC*PHI(     147)
      FAC=SFAC( 4)
      PHI(     157)=PHI(     157)+FAC*PHI(     154)
      PHI(     158)=PHI(     158)+FAC*PHI(     155)
      PHI(     159)=PHI(     159)+FAC*PHI(     156)
      FAC=SFAC( 1)
      J=     174
      DO I=     181,     187
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     174
      DO I=     188,     194
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     195
      DO I=     202,     208
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     195
      DO I=     209,     215
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     216
      DO I=     223,     229
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     237
      DO I=     244,     250
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     251
      DO I=     258,     264
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     251
      DO I=     265,     271
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     272
      DO I=     279,     285
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     312
      DO I=     325,     337
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     338
      DO I=     351,     363
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     338
      DO I=     364,     376
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     377
      DO I=     390,     402
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     416
      DO I=     429,     441
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     442
      DO I=     455,     467
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     512
      DO I=     534,     555
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     556
      DO I=     578,     599
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     622
      DO I=     644,     665
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     734
      DO I=     768,     801
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     182)=PHI(     182)-D01*PHI(     181)
      PHI(     184)=PHI(     184)-D01*PHI(     181)
      PHI(     187)=PHI(     187)-D01*PHI(     181)
      PHI(     189)=PHI(     189)-D01*PHI(     188)
      PHI(     191)=PHI(     191)-D01*PHI(     188)
      PHI(     194)=PHI(     194)-D01*PHI(     188)
      PHI(     203)=PHI(     203)-D01*PHI(     202)
      PHI(     205)=PHI(     205)-D01*PHI(     202)
      PHI(     208)=PHI(     208)-D01*PHI(     202)
      PHI(     210)=PHI(     210)-D01*PHI(     209)
      PHI(     212)=PHI(     212)-D01*PHI(     209)
      PHI(     215)=PHI(     215)-D01*PHI(     209)
      PHI(     224)=PHI(     224)-D01*PHI(     223)
      PHI(     226)=PHI(     226)-D01*PHI(     223)
      PHI(     229)=PHI(     229)-D01*PHI(     223)
      PHI(     245)=PHI(     245)-D01*PHI(     244)
      PHI(     247)=PHI(     247)-D01*PHI(     244)
      PHI(     250)=PHI(     250)-D01*PHI(     244)
      PHI(     259)=PHI(     259)-D01*PHI(     258)
      PHI(     261)=PHI(     261)-D01*PHI(     258)
      PHI(     264)=PHI(     264)-D01*PHI(     258)
      PHI(     266)=PHI(     266)-D01*PHI(     265)
      PHI(     268)=PHI(     268)-D01*PHI(     265)
      PHI(     271)=PHI(     271)-D01*PHI(     265)
      PHI(     280)=PHI(     280)-D01*PHI(     279)
      PHI(     282)=PHI(     282)-D01*PHI(     279)
      PHI(     285)=PHI(     285)-D01*PHI(     279)
      PHI(     328)=PHI(     328)-D01*PHI(     325)
      PHI(     329)=PHI(     329)-D01*PHI(     326)
      PHI(     331)=PHI(     331)-D01*PHI(     326)
      PHI(     332)=PHI(     332)-D01*PHI(     327)
      PHI(     334)=PHI(     334)-D01*PHI(     327)
      PHI(     337)=PHI(     337)-D01*PHI(     327)
      PHI(     328)=PHI(     328)-D02*PHI(     325)
      PHI(     330)=PHI(     330)-D01*PHI(     325)
      PHI(     331)=PHI(     331)-D02*PHI(     326)
      PHI(     335)=PHI(     335)-D01*PHI(     325)
      PHI(     336)=PHI(     336)-D01*PHI(     326)
      PHI(     337)=PHI(     337)-D02*PHI(     327)
      PHI(     354)=PHI(     354)-D01*PHI(     351)
      PHI(     355)=PHI(     355)-D01*PHI(     352)
      PHI(     357)=PHI(     357)-D01*PHI(     352)
      PHI(     358)=PHI(     358)-D01*PHI(     353)
      PHI(     360)=PHI(     360)-D01*PHI(     353)
      PHI(     363)=PHI(     363)-D01*PHI(     353)
      PHI(     354)=PHI(     354)-D02*PHI(     351)
      PHI(     356)=PHI(     356)-D01*PHI(     351)
      PHI(     357)=PHI(     357)-D02*PHI(     352)
      PHI(     361)=PHI(     361)-D01*PHI(     351)
      PHI(     362)=PHI(     362)-D01*PHI(     352)
      PHI(     363)=PHI(     363)-D02*PHI(     353)
      PHI(     367)=PHI(     367)-D01*PHI(     364)
      PHI(     368)=PHI(     368)-D01*PHI(     365)
      PHI(     370)=PHI(     370)-D01*PHI(     365)
      PHI(     371)=PHI(     371)-D01*PHI(     366)
      PHI(     373)=PHI(     373)-D01*PHI(     366)
      PHI(     376)=PHI(     376)-D01*PHI(     366)
      PHI(     367)=PHI(     367)-D02*PHI(     364)
      PHI(     369)=PHI(     369)-D01*PHI(     364)
      PHI(     370)=PHI(     370)-D02*PHI(     365)
      PHI(     374)=PHI(     374)-D01*PHI(     364)
      PHI(     375)=PHI(     375)-D01*PHI(     365)
      PHI(     376)=PHI(     376)-D02*PHI(     366)
      PHI(     393)=PHI(     393)-D01*PHI(     390)
      PHI(     394)=PHI(     394)-D01*PHI(     391)
      PHI(     396)=PHI(     396)-D01*PHI(     391)
      PHI(     397)=PHI(     397)-D01*PHI(     392)
      PHI(     399)=PHI(     399)-D01*PHI(     392)
      PHI(     402)=PHI(     402)-D01*PHI(     392)
      PHI(     393)=PHI(     393)-D02*PHI(     390)
      PHI(     395)=PHI(     395)-D01*PHI(     390)
      PHI(     396)=PHI(     396)-D02*PHI(     391)
      PHI(     400)=PHI(     400)-D01*PHI(     390)
      PHI(     401)=PHI(     401)-D01*PHI(     391)
      PHI(     402)=PHI(     402)-D02*PHI(     392)
      PHI(     432)=PHI(     432)-D01*PHI(     429)
      PHI(     433)=PHI(     433)-D01*PHI(     430)
      PHI(     435)=PHI(     435)-D01*PHI(     430)
      PHI(     436)=PHI(     436)-D01*PHI(     431)
      PHI(     438)=PHI(     438)-D01*PHI(     431)
      PHI(     441)=PHI(     441)-D01*PHI(     431)
      PHI(     432)=PHI(     432)-D02*PHI(     429)
      PHI(     434)=PHI(     434)-D01*PHI(     429)
      PHI(     435)=PHI(     435)-D02*PHI(     430)
      PHI(     439)=PHI(     439)-D01*PHI(     429)
      PHI(     440)=PHI(     440)-D01*PHI(     430)
      PHI(     441)=PHI(     441)-D02*PHI(     431)
      PHI(     458)=PHI(     458)-D01*PHI(     455)
      PHI(     459)=PHI(     459)-D01*PHI(     456)
      PHI(     461)=PHI(     461)-D01*PHI(     456)
      PHI(     462)=PHI(     462)-D01*PHI(     457)
      PHI(     464)=PHI(     464)-D01*PHI(     457)
      PHI(     467)=PHI(     467)-D01*PHI(     457)
      PHI(     458)=PHI(     458)-D02*PHI(     455)
      PHI(     460)=PHI(     460)-D01*PHI(     455)
      PHI(     461)=PHI(     461)-D02*PHI(     456)
      PHI(     465)=PHI(     465)-D01*PHI(     455)
      PHI(     466)=PHI(     466)-D01*PHI(     456)
      PHI(     467)=PHI(     467)-D02*PHI(     457)
      PHI(     541)=PHI(     541)-D01*PHI(     535)
      PHI(     542)=PHI(     542)-D01*PHI(     536)
      PHI(     543)=PHI(     543)-D01*PHI(     537)
      PHI(     545)=PHI(     545)-D01*PHI(     537)
      PHI(     546)=PHI(     546)-D01*PHI(     538)
      PHI(     547)=PHI(     547)-D01*PHI(     539)
      PHI(     549)=PHI(     549)-D01*PHI(     539)
      PHI(     550)=PHI(     550)-D01*PHI(     540)
      PHI(     552)=PHI(     552)-D01*PHI(     540)
      PHI(     555)=PHI(     555)-D01*PHI(     540)
      PHI(     541)=PHI(     541)-D02*PHI(     535)
      PHI(     542)=PHI(     542)-D02*PHI(     536)
      PHI(     544)=PHI(     544)-D01*PHI(     536)
      PHI(     545)=PHI(     545)-D02*PHI(     537)
      PHI(     546)=PHI(     546)-D02*PHI(     538)
      PHI(     548)=PHI(     548)-D01*PHI(     538)
      PHI(     549)=PHI(     549)-D02*PHI(     539)
      PHI(     553)=PHI(     553)-D01*PHI(     538)
      PHI(     554)=PHI(     554)-D01*PHI(     539)
      PHI(     555)=PHI(     555)-D02*PHI(     540)
      PHI(     535)=PHI(     535)-D01*PHI(     534)
      PHI(     537)=PHI(     537)-D01*PHI(     534)
      PHI(     540)=PHI(     540)-D01*PHI(     534)
      PHI(     541)=PHI(     541)-D03*PHI(     535)
      PHI(     543)=PHI(     543)-D01*PHI(     535)
      PHI(     544)=PHI(     544)-D02*PHI(     536)
      PHI(     545)=PHI(     545)-D03*PHI(     537)
      PHI(     550)=PHI(     550)-D01*PHI(     535)
      PHI(     551)=PHI(     551)-D01*PHI(     536)
      PHI(     552)=PHI(     552)-D01*PHI(     537)
      PHI(     553)=PHI(     553)-D02*PHI(     538)
      PHI(     554)=PHI(     554)-D02*PHI(     539)
      PHI(     555)=PHI(     555)-D03*PHI(     540)
      PHI(     585)=PHI(     585)-D01*PHI(     579)
      PHI(     586)=PHI(     586)-D01*PHI(     580)
      PHI(     587)=PHI(     587)-D01*PHI(     581)
      PHI(     589)=PHI(     589)-D01*PHI(     581)
      PHI(     590)=PHI(     590)-D01*PHI(     582)
      PHI(     591)=PHI(     591)-D01*PHI(     583)
      PHI(     593)=PHI(     593)-D01*PHI(     583)
      PHI(     594)=PHI(     594)-D01*PHI(     584)
      PHI(     596)=PHI(     596)-D01*PHI(     584)
      PHI(     599)=PHI(     599)-D01*PHI(     584)
      PHI(     585)=PHI(     585)-D02*PHI(     579)
      PHI(     586)=PHI(     586)-D02*PHI(     580)
      PHI(     588)=PHI(     588)-D01*PHI(     580)
      PHI(     589)=PHI(     589)-D02*PHI(     581)
      PHI(     590)=PHI(     590)-D02*PHI(     582)
      PHI(     592)=PHI(     592)-D01*PHI(     582)
      PHI(     593)=PHI(     593)-D02*PHI(     583)
      PHI(     597)=PHI(     597)-D01*PHI(     582)
      PHI(     598)=PHI(     598)-D01*PHI(     583)
      PHI(     599)=PHI(     599)-D02*PHI(     584)
      PHI(     579)=PHI(     579)-D01*PHI(     578)
      PHI(     581)=PHI(     581)-D01*PHI(     578)
      PHI(     584)=PHI(     584)-D01*PHI(     578)
      PHI(     585)=PHI(     585)-D03*PHI(     579)
      PHI(     587)=PHI(     587)-D01*PHI(     579)
      PHI(     588)=PHI(     588)-D02*PHI(     580)
      PHI(     589)=PHI(     589)-D03*PHI(     581)
      PHI(     594)=PHI(     594)-D01*PHI(     579)
      PHI(     595)=PHI(     595)-D01*PHI(     580)
      PHI(     596)=PHI(     596)-D01*PHI(     581)
      PHI(     597)=PHI(     597)-D02*PHI(     582)
      PHI(     598)=PHI(     598)-D02*PHI(     583)
      PHI(     599)=PHI(     599)-D03*PHI(     584)
      PHI(     651)=PHI(     651)-D01*PHI(     645)
      PHI(     652)=PHI(     652)-D01*PHI(     646)
      PHI(     653)=PHI(     653)-D01*PHI(     647)
      PHI(     655)=PHI(     655)-D01*PHI(     647)
      PHI(     656)=PHI(     656)-D01*PHI(     648)
      PHI(     657)=PHI(     657)-D01*PHI(     649)
      PHI(     659)=PHI(     659)-D01*PHI(     649)
      PHI(     660)=PHI(     660)-D01*PHI(     650)
      PHI(     662)=PHI(     662)-D01*PHI(     650)
      PHI(     665)=PHI(     665)-D01*PHI(     650)
      PHI(     651)=PHI(     651)-D02*PHI(     645)
      PHI(     652)=PHI(     652)-D02*PHI(     646)
      PHI(     654)=PHI(     654)-D01*PHI(     646)
      PHI(     655)=PHI(     655)-D02*PHI(     647)
      PHI(     656)=PHI(     656)-D02*PHI(     648)
      PHI(     658)=PHI(     658)-D01*PHI(     648)
      PHI(     659)=PHI(     659)-D02*PHI(     649)
      PHI(     663)=PHI(     663)-D01*PHI(     648)
      PHI(     664)=PHI(     664)-D01*PHI(     649)
      PHI(     665)=PHI(     665)-D02*PHI(     650)
      PHI(     645)=PHI(     645)-D01*PHI(     644)
      PHI(     647)=PHI(     647)-D01*PHI(     644)
      PHI(     650)=PHI(     650)-D01*PHI(     644)
      PHI(     651)=PHI(     651)-D03*PHI(     645)
      PHI(     653)=PHI(     653)-D01*PHI(     645)
      PHI(     654)=PHI(     654)-D02*PHI(     646)
      PHI(     655)=PHI(     655)-D03*PHI(     647)
      PHI(     660)=PHI(     660)-D01*PHI(     645)
      PHI(     661)=PHI(     661)-D01*PHI(     646)
      PHI(     662)=PHI(     662)-D01*PHI(     647)
      PHI(     663)=PHI(     663)-D02*PHI(     648)
      PHI(     664)=PHI(     664)-D02*PHI(     649)
      PHI(     665)=PHI(     665)-D03*PHI(     650)
      PHI(     781)=PHI(     781)-D01*PHI(     771)
      PHI(     782)=PHI(     782)-D01*PHI(     772)
      PHI(     783)=PHI(     783)-D01*PHI(     773)
      PHI(     784)=PHI(     784)-D01*PHI(     774)
      PHI(     786)=PHI(     786)-D01*PHI(     774)
      PHI(     787)=PHI(     787)-D01*PHI(     775)
      PHI(     788)=PHI(     788)-D01*PHI(     776)
      PHI(     789)=PHI(     789)-D01*PHI(     777)
      PHI(     791)=PHI(     791)-D01*PHI(     777)
      PHI(     792)=PHI(     792)-D01*PHI(     778)
      PHI(     793)=PHI(     793)-D01*PHI(     779)
      PHI(     795)=PHI(     795)-D01*PHI(     779)
      PHI(     796)=PHI(     796)-D01*PHI(     780)
      PHI(     798)=PHI(     798)-D01*PHI(     780)
      PHI(     801)=PHI(     801)-D01*PHI(     780)
      PHI(     781)=PHI(     781)-D02*PHI(     771)
      PHI(     782)=PHI(     782)-D02*PHI(     772)
      PHI(     783)=PHI(     783)-D02*PHI(     773)
      PHI(     785)=PHI(     785)-D01*PHI(     773)
      PHI(     786)=PHI(     786)-D02*PHI(     774)
      PHI(     787)=PHI(     787)-D02*PHI(     775)
      PHI(     788)=PHI(     788)-D02*PHI(     776)
      PHI(     790)=PHI(     790)-D01*PHI(     776)
      PHI(     791)=PHI(     791)-D02*PHI(     777)
      PHI(     792)=PHI(     792)-D02*PHI(     778)
      PHI(     794)=PHI(     794)-D01*PHI(     778)
      PHI(     795)=PHI(     795)-D02*PHI(     779)
      PHI(     799)=PHI(     799)-D01*PHI(     778)
      PHI(     800)=PHI(     800)-D01*PHI(     779)
      PHI(     801)=PHI(     801)-D02*PHI(     780)
      PHI(     771)=PHI(     771)-D01*PHI(     768)
      PHI(     772)=PHI(     772)-D01*PHI(     769)
      PHI(     774)=PHI(     774)-D01*PHI(     769)
      PHI(     775)=PHI(     775)-D01*PHI(     770)
      PHI(     777)=PHI(     777)-D01*PHI(     770)
      PHI(     780)=PHI(     780)-D01*PHI(     770)
      PHI(     781)=PHI(     781)-D03*PHI(     771)
      PHI(     782)=PHI(     782)-D03*PHI(     772)
      PHI(     784)=PHI(     784)-D01*PHI(     772)
      PHI(     785)=PHI(     785)-D02*PHI(     773)
      PHI(     786)=PHI(     786)-D03*PHI(     774)
      PHI(     787)=PHI(     787)-D03*PHI(     775)
      PHI(     789)=PHI(     789)-D01*PHI(     775)
      PHI(     790)=PHI(     790)-D02*PHI(     776)
      PHI(     791)=PHI(     791)-D03*PHI(     777)
      PHI(     796)=PHI(     796)-D01*PHI(     775)
      PHI(     797)=PHI(     797)-D01*PHI(     776)
      PHI(     798)=PHI(     798)-D01*PHI(     777)
      PHI(     799)=PHI(     799)-D02*PHI(     778)
      PHI(     800)=PHI(     800)-D02*PHI(     779)
      PHI(     801)=PHI(     801)-D03*PHI(     780)
      PHI(     771)=PHI(     771)-D02*PHI(     768)
      PHI(     773)=PHI(     773)-D01*PHI(     768)
      PHI(     774)=PHI(     774)-D02*PHI(     769)
      PHI(     778)=PHI(     778)-D01*PHI(     768)
      PHI(     779)=PHI(     779)-D01*PHI(     769)
      PHI(     780)=PHI(     780)-D02*PHI(     770)
      PHI(     781)=PHI(     781)-D04*PHI(     771)
      PHI(     783)=PHI(     783)-D01*PHI(     771)
      PHI(     784)=PHI(     784)-D02*PHI(     772)
      PHI(     785)=PHI(     785)-D03*PHI(     773)
      PHI(     786)=PHI(     786)-D04*PHI(     774)
      PHI(     792)=PHI(     792)-D01*PHI(     771)
      PHI(     793)=PHI(     793)-D01*PHI(     772)
      PHI(     794)=PHI(     794)-D01*PHI(     773)
      PHI(     795)=PHI(     795)-D01*PHI(     774)
      PHI(     796)=PHI(     796)-D02*PHI(     775)
      PHI(     797)=PHI(     797)-D02*PHI(     776)
      PHI(     798)=PHI(     798)-D02*PHI(     777)
      PHI(     799)=PHI(     799)-D03*PHI(     778)
      PHI(     800)=PHI(     800)-D03*PHI(     779)
      PHI(     801)=PHI(     801)-D04*PHI(     780)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(     115)+CONF( 1)*PHI(      88)
      WRK1(    3)= PHI(     116)+CONF( 2)*PHI(      88)
      WRK1(    4)= PHI(     117)+CONF( 3)*PHI(      88)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,1)
      WRK1(    2)= PHI(     103)+CONF( 1)*PHI(      84)
      WRK1(    3)= PHI(     104)+CONF( 2)*PHI(      84)
      WRK1(    4)= PHI(     105)+CONF( 3)*PHI(      84)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,2)
      WRK1(    2)=-PHI(     189)-CONF( 1)*PHI(     142)
      WRK1(    3)=-PHI(     190)-CONF( 2)*PHI(     142)
      WRK1(    4)=-PHI(     192)-CONF( 3)*PHI(     142)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,3)
      WRK1(    2)=-PHI(     190)-CONF( 1)*PHI(     143)
      WRK1(    3)=-PHI(     191)-CONF( 2)*PHI(     143)
      WRK1(    4)=-PHI(     193)-CONF( 3)*PHI(     143)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,4)
      WRK1(    2)=-PHI(     192)-CONF( 1)*PHI(     144)
      WRK1(    3)=-PHI(     193)-CONF( 2)*PHI(     144)
      WRK1(    4)=-PHI(     194)-CONF( 3)*PHI(     144)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,5)
      WRK1(    2)= PHI(     328)+CONF( 1)*PHI(     245)
      WRK1(    3)= PHI(     329)+CONF( 2)*PHI(     245)
      WRK1(    4)= PHI(     332)+CONF( 3)*PHI(     245)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,6)
      WRK1(    2)= PHI(     329)+CONF( 1)*PHI(     246)
      WRK1(    3)= PHI(     330)+CONF( 2)*PHI(     246)
      WRK1(    4)= PHI(     333)+CONF( 3)*PHI(     246)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,7)
      WRK1(    2)= PHI(     330)+CONF( 1)*PHI(     247)
      WRK1(    3)= PHI(     331)+CONF( 2)*PHI(     247)
      WRK1(    4)= PHI(     334)+CONF( 3)*PHI(     247)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,8)
      WRK1(    2)= PHI(     332)+CONF( 1)*PHI(     248)
      WRK1(    3)= PHI(     333)+CONF( 2)*PHI(     248)
      WRK1(    4)= PHI(     335)+CONF( 3)*PHI(     248)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,9)
      WRK1(    2)= PHI(     333)+CONF( 1)*PHI(     249)
      WRK1(    3)= PHI(     334)+CONF( 2)*PHI(     249)
      WRK1(    4)= PHI(     336)+CONF( 3)*PHI(     249)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,10)
      WRK1(    2)= PHI(     335)+CONF( 1)*PHI(     250)
      WRK1(    3)= PHI(     336)+CONF( 2)*PHI(     250)
      WRK1(    4)= PHI(     337)+CONF( 3)*PHI(     250)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,11)
      WRK1(    2)= PHI(     124)+CONF( 1)*PHI(      91)
      WRK1(    3)= PHI(     125)+CONF( 2)*PHI(      91)
      WRK1(    4)= PHI(     126)+CONF( 3)*PHI(      91)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,12)
      WRK1(    2)= PHI(     112)+CONF( 1)*PHI(      87)
      WRK1(    3)= PHI(     113)+CONF( 2)*PHI(      87)
      WRK1(    4)= PHI(     114)+CONF( 3)*PHI(      87)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,13)
      WRK1(    2)=-PHI(     210)-CONF( 1)*PHI(     151)
      WRK1(    3)=-PHI(     211)-CONF( 2)*PHI(     151)
      WRK1(    4)=-PHI(     213)-CONF( 3)*PHI(     151)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,14)
      WRK1(    2)=-PHI(     211)-CONF( 1)*PHI(     152)
      WRK1(    3)=-PHI(     212)-CONF( 2)*PHI(     152)
      WRK1(    4)=-PHI(     214)-CONF( 3)*PHI(     152)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,15)
      WRK1(    2)=-PHI(     213)-CONF( 1)*PHI(     153)
      WRK1(    3)=-PHI(     214)-CONF( 2)*PHI(     153)
      WRK1(    4)=-PHI(     215)-CONF( 3)*PHI(     153)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,16)
      WRK1(    2)=-PHI(     182)-CONF( 1)*PHI(     139)
      WRK1(    3)=-PHI(     183)-CONF( 2)*PHI(     139)
      WRK1(    4)=-PHI(     185)-CONF( 3)*PHI(     139)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,17)
      WRK1(    2)=-PHI(     183)-CONF( 1)*PHI(     140)
      WRK1(    3)=-PHI(     184)-CONF( 2)*PHI(     140)
      WRK1(    4)=-PHI(     186)-CONF( 3)*PHI(     140)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,18)
      WRK1(    2)=-PHI(     185)-CONF( 1)*PHI(     141)
      WRK1(    3)=-PHI(     186)-CONF( 2)*PHI(     141)
      WRK1(    4)=-PHI(     187)-CONF( 3)*PHI(     141)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,19)
      WRK1(    2)= PHI(     367)+CONF( 1)*PHI(     266)
      WRK1(    3)= PHI(     368)+CONF( 2)*PHI(     266)
      WRK1(    4)= PHI(     371)+CONF( 3)*PHI(     266)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,20)
      WRK1(    2)= PHI(     368)+CONF( 1)*PHI(     267)
      WRK1(    3)= PHI(     369)+CONF( 2)*PHI(     267)
      WRK1(    4)= PHI(     372)+CONF( 3)*PHI(     267)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,21)
      WRK1(    2)= PHI(     369)+CONF( 1)*PHI(     268)
      WRK1(    3)= PHI(     370)+CONF( 2)*PHI(     268)
      WRK1(    4)= PHI(     373)+CONF( 3)*PHI(     268)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,22)
      WRK1(    2)= PHI(     371)+CONF( 1)*PHI(     269)
      WRK1(    3)= PHI(     372)+CONF( 2)*PHI(     269)
      WRK1(    4)= PHI(     374)+CONF( 3)*PHI(     269)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,23)
      WRK1(    2)= PHI(     372)+CONF( 1)*PHI(     270)
      WRK1(    3)= PHI(     373)+CONF( 2)*PHI(     270)
      WRK1(    4)= PHI(     375)+CONF( 3)*PHI(     270)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,24)
      WRK1(    2)= PHI(     374)+CONF( 1)*PHI(     271)
      WRK1(    3)= PHI(     375)+CONF( 2)*PHI(     271)
      WRK1(    4)= PHI(     376)+CONF( 3)*PHI(     271)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,25)
      WRK1(    2)=-PHI(     541)-CONF( 1)*PHI(     432)
      WRK1(    3)=-PHI(     542)-CONF( 2)*PHI(     432)
      WRK1(    4)=-PHI(     546)-CONF( 3)*PHI(     432)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,26)
      WRK1(    2)=-PHI(     542)-CONF( 1)*PHI(     433)
      WRK1(    3)=-PHI(     543)-CONF( 2)*PHI(     433)
      WRK1(    4)=-PHI(     547)-CONF( 3)*PHI(     433)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,27)
      WRK1(    2)=-PHI(     543)-CONF( 1)*PHI(     434)
      WRK1(    3)=-PHI(     544)-CONF( 2)*PHI(     434)
      WRK1(    4)=-PHI(     548)-CONF( 3)*PHI(     434)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,28)
      WRK1(    2)=-PHI(     544)-CONF( 1)*PHI(     435)
      WRK1(    3)=-PHI(     545)-CONF( 2)*PHI(     435)
      WRK1(    4)=-PHI(     549)-CONF( 3)*PHI(     435)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,29)
      WRK1(    2)=-PHI(     546)-CONF( 1)*PHI(     436)
      WRK1(    3)=-PHI(     547)-CONF( 2)*PHI(     436)
      WRK1(    4)=-PHI(     550)-CONF( 3)*PHI(     436)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,30)
      WRK1(    2)=-PHI(     547)-CONF( 1)*PHI(     437)
      WRK1(    3)=-PHI(     548)-CONF( 2)*PHI(     437)
      WRK1(    4)=-PHI(     551)-CONF( 3)*PHI(     437)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,31)
      WRK1(    2)=-PHI(     548)-CONF( 1)*PHI(     438)
      WRK1(    3)=-PHI(     549)-CONF( 2)*PHI(     438)
      WRK1(    4)=-PHI(     552)-CONF( 3)*PHI(     438)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,32)
      WRK1(    2)=-PHI(     550)-CONF( 1)*PHI(     439)
      WRK1(    3)=-PHI(     551)-CONF( 2)*PHI(     439)
      WRK1(    4)=-PHI(     553)-CONF( 3)*PHI(     439)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,33)
      WRK1(    2)=-PHI(     551)-CONF( 1)*PHI(     440)
      WRK1(    3)=-PHI(     552)-CONF( 2)*PHI(     440)
      WRK1(    4)=-PHI(     554)-CONF( 3)*PHI(     440)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,34)
      WRK1(    2)=-PHI(     553)-CONF( 1)*PHI(     441)
      WRK1(    3)=-PHI(     554)-CONF( 2)*PHI(     441)
      WRK1(    4)=-PHI(     555)-CONF( 3)*PHI(     441)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,35)
      WRK1(    2)= PHI(     130)+CONF( 1)*PHI(      93)
      WRK1(    3)= PHI(     131)+CONF( 2)*PHI(      93)
      WRK1(    4)= PHI(     132)+CONF( 3)*PHI(      93)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,36)
      WRK1(    2)= PHI(     121)+CONF( 1)*PHI(      90)
      WRK1(    3)= PHI(     122)+CONF( 2)*PHI(      90)
      WRK1(    4)= PHI(     123)+CONF( 3)*PHI(      90)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,37)
      WRK1(    2)= PHI(     109)+CONF( 1)*PHI(      86)
      WRK1(    3)= PHI(     110)+CONF( 2)*PHI(      86)
      WRK1(    4)= PHI(     111)+CONF( 3)*PHI(      86)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,38)
      WRK1(    2)=-PHI(     224)-CONF( 1)*PHI(     157)
      WRK1(    3)=-PHI(     225)-CONF( 2)*PHI(     157)
      WRK1(    4)=-PHI(     227)-CONF( 3)*PHI(     157)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,39)
      WRK1(    2)=-PHI(     225)-CONF( 1)*PHI(     158)
      WRK1(    3)=-PHI(     226)-CONF( 2)*PHI(     158)
      WRK1(    4)=-PHI(     228)-CONF( 3)*PHI(     158)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,40)
      WRK1(    2)=-PHI(     227)-CONF( 1)*PHI(     159)
      WRK1(    3)=-PHI(     228)-CONF( 2)*PHI(     159)
      WRK1(    4)=-PHI(     229)-CONF( 3)*PHI(     159)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,41)
      WRK1(    2)=-PHI(     203)-CONF( 1)*PHI(     148)
      WRK1(    3)=-PHI(     204)-CONF( 2)*PHI(     148)
      WRK1(    4)=-PHI(     206)-CONF( 3)*PHI(     148)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,42)
      WRK1(    2)=-PHI(     204)-CONF( 1)*PHI(     149)
      WRK1(    3)=-PHI(     205)-CONF( 2)*PHI(     149)
      WRK1(    4)=-PHI(     207)-CONF( 3)*PHI(     149)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,43)
      WRK1(    2)=-PHI(     206)-CONF( 1)*PHI(     150)
      WRK1(    3)=-PHI(     207)-CONF( 2)*PHI(     150)
      WRK1(    4)=-PHI(     208)-CONF( 3)*PHI(     150)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,44)
      WRK1(    2)= PHI(     393)+CONF( 1)*PHI(     280)
      WRK1(    3)= PHI(     394)+CONF( 2)*PHI(     280)
      WRK1(    4)= PHI(     397)+CONF( 3)*PHI(     280)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,45)
      WRK1(    2)= PHI(     394)+CONF( 1)*PHI(     281)
      WRK1(    3)= PHI(     395)+CONF( 2)*PHI(     281)
      WRK1(    4)= PHI(     398)+CONF( 3)*PHI(     281)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,46)
      WRK1(    2)= PHI(     395)+CONF( 1)*PHI(     282)
      WRK1(    3)= PHI(     396)+CONF( 2)*PHI(     282)
      WRK1(    4)= PHI(     399)+CONF( 3)*PHI(     282)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,47)
      WRK1(    2)= PHI(     397)+CONF( 1)*PHI(     283)
      WRK1(    3)= PHI(     398)+CONF( 2)*PHI(     283)
      WRK1(    4)= PHI(     400)+CONF( 3)*PHI(     283)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,48)
      WRK1(    2)= PHI(     398)+CONF( 1)*PHI(     284)
      WRK1(    3)= PHI(     399)+CONF( 2)*PHI(     284)
      WRK1(    4)= PHI(     401)+CONF( 3)*PHI(     284)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,49)
      WRK1(    2)= PHI(     400)+CONF( 1)*PHI(     285)
      WRK1(    3)= PHI(     401)+CONF( 2)*PHI(     285)
      WRK1(    4)= PHI(     402)+CONF( 3)*PHI(     285)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,50)
      WRK1(    2)= PHI(     354)+CONF( 1)*PHI(     259)
      WRK1(    3)= PHI(     355)+CONF( 2)*PHI(     259)
      WRK1(    4)= PHI(     358)+CONF( 3)*PHI(     259)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,51)
      WRK1(    2)= PHI(     355)+CONF( 1)*PHI(     260)
      WRK1(    3)= PHI(     356)+CONF( 2)*PHI(     260)
      WRK1(    4)= PHI(     359)+CONF( 3)*PHI(     260)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,52)
      WRK1(    2)= PHI(     356)+CONF( 1)*PHI(     261)
      WRK1(    3)= PHI(     357)+CONF( 2)*PHI(     261)
      WRK1(    4)= PHI(     360)+CONF( 3)*PHI(     261)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,53)
      WRK1(    2)= PHI(     358)+CONF( 1)*PHI(     262)
      WRK1(    3)= PHI(     359)+CONF( 2)*PHI(     262)
      WRK1(    4)= PHI(     361)+CONF( 3)*PHI(     262)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,54)
      WRK1(    2)= PHI(     359)+CONF( 1)*PHI(     263)
      WRK1(    3)= PHI(     360)+CONF( 2)*PHI(     263)
      WRK1(    4)= PHI(     362)+CONF( 3)*PHI(     263)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,55)
      WRK1(    2)= PHI(     361)+CONF( 1)*PHI(     264)
      WRK1(    3)= PHI(     362)+CONF( 2)*PHI(     264)
      WRK1(    4)= PHI(     363)+CONF( 3)*PHI(     264)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,56)
      WRK1(    2)=-PHI(     585)-CONF( 1)*PHI(     458)
      WRK1(    3)=-PHI(     586)-CONF( 2)*PHI(     458)
      WRK1(    4)=-PHI(     590)-CONF( 3)*PHI(     458)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,57)
      WRK1(    2)=-PHI(     586)-CONF( 1)*PHI(     459)
      WRK1(    3)=-PHI(     587)-CONF( 2)*PHI(     459)
      WRK1(    4)=-PHI(     591)-CONF( 3)*PHI(     459)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,58)
      WRK1(    2)=-PHI(     587)-CONF( 1)*PHI(     460)
      WRK1(    3)=-PHI(     588)-CONF( 2)*PHI(     460)
      WRK1(    4)=-PHI(     592)-CONF( 3)*PHI(     460)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,59)
      WRK1(    2)=-PHI(     588)-CONF( 1)*PHI(     461)
      WRK1(    3)=-PHI(     589)-CONF( 2)*PHI(     461)
      WRK1(    4)=-PHI(     593)-CONF( 3)*PHI(     461)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,60)
      WRK1(    2)=-PHI(     590)-CONF( 1)*PHI(     462)
      WRK1(    3)=-PHI(     591)-CONF( 2)*PHI(     462)
      WRK1(    4)=-PHI(     594)-CONF( 3)*PHI(     462)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,61)
      WRK1(    2)=-PHI(     591)-CONF( 1)*PHI(     463)
      WRK1(    3)=-PHI(     592)-CONF( 2)*PHI(     463)
      WRK1(    4)=-PHI(     595)-CONF( 3)*PHI(     463)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,62)
      WRK1(    2)=-PHI(     592)-CONF( 1)*PHI(     464)
      WRK1(    3)=-PHI(     593)-CONF( 2)*PHI(     464)
      WRK1(    4)=-PHI(     596)-CONF( 3)*PHI(     464)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,63)
      WRK1(    2)=-PHI(     594)-CONF( 1)*PHI(     465)
      WRK1(    3)=-PHI(     595)-CONF( 2)*PHI(     465)
      WRK1(    4)=-PHI(     597)-CONF( 3)*PHI(     465)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,64)
      WRK1(    2)=-PHI(     595)-CONF( 1)*PHI(     466)
      WRK1(    3)=-PHI(     596)-CONF( 2)*PHI(     466)
      WRK1(    4)=-PHI(     598)-CONF( 3)*PHI(     466)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,65)
      WRK1(    2)=-PHI(     597)-CONF( 1)*PHI(     467)
      WRK1(    3)=-PHI(     598)-CONF( 2)*PHI(     467)
      WRK1(    4)=-PHI(     599)-CONF( 3)*PHI(     467)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,66)
      WRK1(    2)= PHI(     781)+CONF( 1)*PHI(     651)
      WRK1(    3)= PHI(     782)+CONF( 2)*PHI(     651)
      WRK1(    4)= PHI(     787)+CONF( 3)*PHI(     651)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,67)
      WRK1(    2)= PHI(     782)+CONF( 1)*PHI(     652)
      WRK1(    3)= PHI(     783)+CONF( 2)*PHI(     652)
      WRK1(    4)= PHI(     788)+CONF( 3)*PHI(     652)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,68)
      WRK1(    2)= PHI(     783)+CONF( 1)*PHI(     653)
      WRK1(    3)= PHI(     784)+CONF( 2)*PHI(     653)
      WRK1(    4)= PHI(     789)+CONF( 3)*PHI(     653)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,69)
      WRK1(    2)= PHI(     784)+CONF( 1)*PHI(     654)
      WRK1(    3)= PHI(     785)+CONF( 2)*PHI(     654)
      WRK1(    4)= PHI(     790)+CONF( 3)*PHI(     654)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,70)
      WRK1(    2)= PHI(     785)+CONF( 1)*PHI(     655)
      WRK1(    3)= PHI(     786)+CONF( 2)*PHI(     655)
      WRK1(    4)= PHI(     791)+CONF( 3)*PHI(     655)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,71)
      WRK1(    2)= PHI(     787)+CONF( 1)*PHI(     656)
      WRK1(    3)= PHI(     788)+CONF( 2)*PHI(     656)
      WRK1(    4)= PHI(     792)+CONF( 3)*PHI(     656)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,72)
      WRK1(    2)= PHI(     788)+CONF( 1)*PHI(     657)
      WRK1(    3)= PHI(     789)+CONF( 2)*PHI(     657)
      WRK1(    4)= PHI(     793)+CONF( 3)*PHI(     657)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,73)
      WRK1(    2)= PHI(     789)+CONF( 1)*PHI(     658)
      WRK1(    3)= PHI(     790)+CONF( 2)*PHI(     658)
      WRK1(    4)= PHI(     794)+CONF( 3)*PHI(     658)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,74)
      WRK1(    2)= PHI(     790)+CONF( 1)*PHI(     659)
      WRK1(    3)= PHI(     791)+CONF( 2)*PHI(     659)
      WRK1(    4)= PHI(     795)+CONF( 3)*PHI(     659)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,75)
      WRK1(    2)= PHI(     792)+CONF( 1)*PHI(     660)
      WRK1(    3)= PHI(     793)+CONF( 2)*PHI(     660)
      WRK1(    4)= PHI(     796)+CONF( 3)*PHI(     660)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,76)
      WRK1(    2)= PHI(     793)+CONF( 1)*PHI(     661)
      WRK1(    3)= PHI(     794)+CONF( 2)*PHI(     661)
      WRK1(    4)= PHI(     797)+CONF( 3)*PHI(     661)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,77)
      WRK1(    2)= PHI(     794)+CONF( 1)*PHI(     662)
      WRK1(    3)= PHI(     795)+CONF( 2)*PHI(     662)
      WRK1(    4)= PHI(     798)+CONF( 3)*PHI(     662)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,78)
      WRK1(    2)= PHI(     796)+CONF( 1)*PHI(     663)
      WRK1(    3)= PHI(     797)+CONF( 2)*PHI(     663)
      WRK1(    4)= PHI(     799)+CONF( 3)*PHI(     663)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,79)
      WRK1(    2)= PHI(     797)+CONF( 1)*PHI(     664)
      WRK1(    3)= PHI(     798)+CONF( 2)*PHI(     664)
      WRK1(    4)= PHI(     800)+CONF( 3)*PHI(     664)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,80)
      WRK1(    2)= PHI(     799)+CONF( 1)*PHI(     665)
      WRK1(    3)= PHI(     800)+CONF( 2)*PHI(     665)
      WRK1(    4)= PHI(     801)+CONF( 3)*PHI(     665)
      CALL DDPS_BCTE(WRK1,WRK2,LENW,81)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     3
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 1)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(    3,I)=WRK2(    3,I)+CONF( 1)*WRK2(    1,I)
      WRK2(    4,I)=WRK2(    4,I)+CONF( 2)*WRK2(    1,I)
      WRK2(    5,I)=WRK2(    5,I)+CONF( 3)*WRK2(    1,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 5)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 5)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 5)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 1)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 1)*WRK2(   16,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 2)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 4)*WRK2(   13,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 6)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 5)*WRK2(   52,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 1)*WRK2(   59,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 1)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 6)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 5)*WRK2(   54,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 1)*WRK2(   62,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 1)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 5)*WRK2(   55,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 1)*WRK2(   64,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 1)*WRK2(   65,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 2)*WRK2(   65,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 1)*WRK2(   66,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 2)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 6)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 5)*WRK2(   42,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   49,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 2)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   40,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   40,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 1)*WRK2(   41,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   41,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   41,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 4)*WRK2(   37,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   42,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 1)*WRK2(   43,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 2)*WRK2(   43,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 1)*WRK2(   44,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 2)*WRK2(   44,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 3)*WRK2(   44,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 4)*WRK2(   38,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 1)*WRK2(   36,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 3)*WRK2(   36,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 2)*WRK2(   37,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 3)*WRK2(   37,I)
      WRK2(    6,I)=WRK2(    6,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    3,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 2)*WRK2(    4,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 1)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 1)*WRK2(   23,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 2)*WRK2(   23,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   24,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 4)*WRK2(   17,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   18,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 4)*WRK2(   19,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 2)*WRK2(   15,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   15,I)
      WRK2(   25,I)=WRK2(   25,I)+CONF( 3)*WRK2(   16,I)
      WRK2(   26,I)=WRK2(   26,I)+CONF( 1)*WRK2(   20,I)
      WRK2(   27,I)=WRK2(   27,I)+CONF( 2)*WRK2(   20,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 2)*WRK2(   21,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   22,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   20,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 3)*WRK2(   21,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 3)*WRK2(   22,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   23,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 3)*WRK2(   24,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 5)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 1)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 5)*WRK2(   52,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 5)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 1)*WRK2(   62,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 2)*WRK2(   62,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 1)*WRK2(   64,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 2)*WRK2(   64,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 2)*WRK2(   65,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 5)*WRK2(   54,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 5)*WRK2(   55,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 5)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 2)*WRK2(   39,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   40,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 3)*WRK2(   40,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   41,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   42,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   42,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 2)*WRK2(   43,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   42,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   43,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 3)*WRK2(   44,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   58,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   58,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 1)*WRK2(   61,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 2)*WRK2(   61,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 2)*WRK2(   62,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   63,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 3)*WRK2(   61,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 4)*WRK2(   51,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 3)*WRK2(   62,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 4)*WRK2(   52,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 3)*WRK2(   63,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 4)*WRK2(   53,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 4)*WRK2(   54,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 4)*WRK2(   55,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 4)*WRK2(   56,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   45,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   45,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 3)*WRK2(   45,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 3)*WRK2(   46,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 3)*WRK2(   47,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 1)*WRK2(   57,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 2)*WRK2(   57,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   58,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 2)*WRK2(   59,I)
      WRK2(   71,I)=WRK2(   71,I)+CONF( 2)*WRK2(   60,I)
      WRK2(   72,I)=WRK2(   72,I)+CONF( 3)*WRK2(   57,I)
      WRK2(   73,I)=WRK2(   73,I)+CONF( 3)*WRK2(   58,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 3)*WRK2(   59,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 3)*WRK2(   60,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 3)*WRK2(   61,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 3)*WRK2(   62,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 3)*WRK2(   63,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   64,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 3)*WRK2(   65,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 3)*WRK2(   66,I)
      WRK2(   82,I)=WRK2(   26,I)-CONF( 1)*WRK2(    6,I)
      WRK2(   83,I)=WRK2(   27,I)-CONF( 1)*WRK2(    7,I)
      WRK2(   84,I)=WRK2(   28,I)-CONF( 1)*WRK2(    8,I)
      WRK2(   85,I)=WRK2(   30,I)-CONF( 1)*WRK2(    9,I)
      WRK2(   86,I)=WRK2(   31,I)-CONF( 1)*WRK2(   10,I)
      WRK2(   87,I)=WRK2(   33,I)-CONF( 1)*WRK2(   11,I)
      WRK2(   88,I)=WRK2(   67,I)-CONF( 1)*WRK2(   26,I)
      WRK2(   89,I)=WRK2(   68,I)-CONF( 1)*WRK2(   27,I)
      WRK2(   90,I)=WRK2(   69,I)-CONF( 1)*WRK2(   28,I)
      WRK2(   91,I)=WRK2(   70,I)-CONF( 1)*WRK2(   29,I)
      WRK2(   92,I)=WRK2(   72,I)-CONF( 1)*WRK2(   30,I)
      WRK2(   93,I)=WRK2(   73,I)-CONF( 1)*WRK2(   31,I)
      WRK2(   94,I)=WRK2(   74,I)-CONF( 1)*WRK2(   32,I)
      WRK2(   95,I)=WRK2(   76,I)-CONF( 1)*WRK2(   33,I)
      WRK2(   96,I)=WRK2(   77,I)-CONF( 1)*WRK2(   34,I)
      WRK2(   97,I)=WRK2(   79,I)-CONF( 1)*WRK2(   35,I)
      WRK2(   98,I)=WRK2(   27,I)-CONF( 2)*WRK2(    6,I)
      WRK2(   99,I)=WRK2(   28,I)-CONF( 2)*WRK2(    7,I)
      WRK2(  100,I)=WRK2(   29,I)-CONF( 2)*WRK2(    8,I)
      WRK2(  101,I)=WRK2(   31,I)-CONF( 2)*WRK2(    9,I)
      WRK2(  102,I)=WRK2(   32,I)-CONF( 2)*WRK2(   10,I)
      WRK2(  103,I)=WRK2(   34,I)-CONF( 2)*WRK2(   11,I)
      WRK2(  104,I)=WRK2(   68,I)-CONF( 2)*WRK2(   26,I)
      WRK2(  105,I)=WRK2(   69,I)-CONF( 2)*WRK2(   27,I)
      WRK2(  106,I)=WRK2(   70,I)-CONF( 2)*WRK2(   28,I)
      WRK2(  107,I)=WRK2(   71,I)-CONF( 2)*WRK2(   29,I)
      WRK2(  108,I)=WRK2(   73,I)-CONF( 2)*WRK2(   30,I)
      WRK2(  109,I)=WRK2(   74,I)-CONF( 2)*WRK2(   31,I)
      WRK2(  110,I)=WRK2(   75,I)-CONF( 2)*WRK2(   32,I)
      WRK2(  111,I)=WRK2(   77,I)-CONF( 2)*WRK2(   33,I)
      WRK2(  112,I)=WRK2(   78,I)-CONF( 2)*WRK2(   34,I)
      WRK2(  113,I)=WRK2(   80,I)-CONF( 2)*WRK2(   35,I)
      WRK2(  114,I)=WRK2(   30,I)-CONF( 3)*WRK2(    6,I)
      WRK2(  115,I)=WRK2(   31,I)-CONF( 3)*WRK2(    7,I)
      WRK2(  116,I)=WRK2(   32,I)-CONF( 3)*WRK2(    8,I)
      WRK2(  117,I)=WRK2(   33,I)-CONF( 3)*WRK2(    9,I)
      WRK2(  118,I)=WRK2(   34,I)-CONF( 3)*WRK2(   10,I)
      WRK2(  119,I)=WRK2(   35,I)-CONF( 3)*WRK2(   11,I)
      WRK2(  120,I)=WRK2(   72,I)-CONF( 3)*WRK2(   26,I)
      WRK2(  121,I)=WRK2(   73,I)-CONF( 3)*WRK2(   27,I)
      WRK2(  122,I)=WRK2(   74,I)-CONF( 3)*WRK2(   28,I)
      WRK2(  123,I)=WRK2(   75,I)-CONF( 3)*WRK2(   29,I)
      WRK2(  124,I)=WRK2(   76,I)-CONF( 3)*WRK2(   30,I)
      WRK2(  125,I)=WRK2(   77,I)-CONF( 3)*WRK2(   31,I)
      WRK2(  126,I)=WRK2(   78,I)-CONF( 3)*WRK2(   32,I)
      WRK2(  127,I)=WRK2(   79,I)-CONF( 3)*WRK2(   33,I)
      WRK2(  128,I)=WRK2(   80,I)-CONF( 3)*WRK2(   34,I)
      WRK2(  129,I)=WRK2(   81,I)-CONF( 3)*WRK2(   35,I)
      WRK2(  130,I)=WRK2(   88,I)-CONF( 1)*WRK2(   82,I)
      WRK2(  131,I)=WRK2(   89,I)-CONF( 1)*WRK2(   83,I)
      WRK2(  132,I)=WRK2(   90,I)-CONF( 1)*WRK2(   84,I)
      WRK2(  133,I)=WRK2(   92,I)-CONF( 1)*WRK2(   85,I)
      WRK2(  134,I)=WRK2(   93,I)-CONF( 1)*WRK2(   86,I)
      WRK2(  135,I)=WRK2(   95,I)-CONF( 1)*WRK2(   87,I)
      WRK2(  136,I)=WRK2(  104,I)-CONF( 1)*WRK2(   98,I)
      WRK2(  137,I)=WRK2(  105,I)-CONF( 1)*WRK2(   99,I)
      WRK2(  138,I)=WRK2(  106,I)-CONF( 1)*WRK2(  100,I)
      WRK2(  139,I)=WRK2(  108,I)-CONF( 1)*WRK2(  101,I)
      WRK2(  140,I)=WRK2(  109,I)-CONF( 1)*WRK2(  102,I)
      WRK2(  141,I)=WRK2(  111,I)-CONF( 1)*WRK2(  103,I)
      WRK2(  142,I)=WRK2(  105,I)-CONF( 2)*WRK2(   98,I)
      WRK2(  143,I)=WRK2(  106,I)-CONF( 2)*WRK2(   99,I)
      WRK2(  144,I)=WRK2(  107,I)-CONF( 2)*WRK2(  100,I)
      WRK2(  145,I)=WRK2(  109,I)-CONF( 2)*WRK2(  101,I)
      WRK2(  146,I)=WRK2(  110,I)-CONF( 2)*WRK2(  102,I)
      WRK2(  147,I)=WRK2(  112,I)-CONF( 2)*WRK2(  103,I)
      WRK2(  148,I)=WRK2(  120,I)-CONF( 1)*WRK2(  114,I)
      WRK2(  149,I)=WRK2(  121,I)-CONF( 1)*WRK2(  115,I)
      WRK2(  150,I)=WRK2(  122,I)-CONF( 1)*WRK2(  116,I)
      WRK2(  151,I)=WRK2(  124,I)-CONF( 1)*WRK2(  117,I)
      WRK2(  152,I)=WRK2(  125,I)-CONF( 1)*WRK2(  118,I)
      WRK2(  153,I)=WRK2(  127,I)-CONF( 1)*WRK2(  119,I)
      WRK2(  154,I)=WRK2(  121,I)-CONF( 2)*WRK2(  114,I)
      WRK2(  155,I)=WRK2(  122,I)-CONF( 2)*WRK2(  115,I)
      WRK2(  156,I)=WRK2(  123,I)-CONF( 2)*WRK2(  116,I)
      WRK2(  157,I)=WRK2(  125,I)-CONF( 2)*WRK2(  117,I)
      WRK2(  158,I)=WRK2(  126,I)-CONF( 2)*WRK2(  118,I)
      WRK2(  159,I)=WRK2(  128,I)-CONF( 2)*WRK2(  119,I)
      WRK2(  160,I)=WRK2(  124,I)-CONF( 3)*WRK2(  114,I)
      WRK2(  161,I)=WRK2(  125,I)-CONF( 3)*WRK2(  115,I)
      WRK2(  162,I)=WRK2(  126,I)-CONF( 3)*WRK2(  116,I)
      WRK2(  163,I)=WRK2(  127,I)-CONF( 3)*WRK2(  117,I)
      WRK2(  164,I)=WRK2(  128,I)-CONF( 3)*WRK2(  118,I)
      WRK2(  165,I)=WRK2(  129,I)-CONF( 3)*WRK2(  119,I)
      END DO
      RETURN
      END
C*MODULE INT2D   *DECK DDPS_BCTE
      SUBROUTINE DDPS_BCTE(WRK1,WRK2,LENW,JR)
      INTEGER LENW,I,J,JR
      DOUBLE PRECISION WRK1(*),WRK2(LENW,*)
      J=       1
      DO I=1,     3
      J=J+1
      WRK2(JR,I)=WRK1(J)
      END DO
      END
