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 F ROUTINES
C
C  LPHI=     129
C  LWK1=       1
C  LWK2=      24
C  LENW=      24
C*MODULE INT2F   *DECK FSSS
      SUBROUTINE FSSS (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(      40)=ZERO
      PHI(      41)=ZERO
      PHI(      42)=ZERO
      PHI(      46)=ZERO
      PHI(      47)=ZERO
      PHI(      48)=ZERO
      DO I=      70,      76
      PHI(I)=ZERO
      END DO
      DO I=     116,     128
      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
      DO I=      63,      69
      PHI(I)=ZERO
      END DO
      DO I=     103,     115
      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
      DO I=      56,      62
      PHI(I)=ZERO
      END DO
      DO I=      90,     102
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      25)=ZERO
      PHI(      31)=ZERO
      PHI(      32)=ZERO
      PHI(      33)=ZERO
      DO I=      49,      55
      PHI(I)=ZERO
      END DO
      DO I=      77,      89
      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(      31)=PHI(      31)+FAC*PHI(       2)
      PHI(      32)=PHI(      32)+FAC*PHI(       3)
      PHI(      33)=PHI(      33)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=      49,      55
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      12
      DO I=      77,      89
      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(      34)=PHI(      34)+FAC*PHI(      31)
      PHI(      35)=PHI(      35)+FAC*PHI(      32)
      PHI(      36)=PHI(      36)+FAC*PHI(      33)
      FAC=SFAC( 1)
      J=      49
      DO I=      56,      62
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      77
      DO I=      90,     102
      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( 3)
      PHI(      27)=PHI(      27)+FAC*PHI(      26)
      FAC=SFAC( 4)
      PHI(      29)=PHI(      29)+FAC*PHI(      26)
      FAC=SFAC( 3)
      PHI(      37)=PHI(      37)+FAC*PHI(      34)
      PHI(      38)=PHI(      38)+FAC*PHI(      35)
      PHI(      39)=PHI(      39)+FAC*PHI(      36)
      FAC=SFAC( 4)
      PHI(      43)=PHI(      43)+FAC*PHI(      34)
      PHI(      44)=PHI(      44)+FAC*PHI(      35)
      PHI(      45)=PHI(      45)+FAC*PHI(      36)
      FAC=SFAC( 4)
      J=      56
      DO I=      63,      69
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=      90
      DO I=     103,     115
      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( 2)
      PHI(      28)=PHI(      28)+FAC*PHI(      27)
      FAC=SFAC( 4)
      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)
      J=      63
      DO I=      70,      76
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     103
      DO I=     116,     128
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(      71)=PHI(      71)-D01*PHI(      70)
      PHI(      73)=PHI(      73)-D01*PHI(      70)
      PHI(      76)=PHI(      76)-D01*PHI(      70)
      PHI(     119)=PHI(     119)-D01*PHI(     116)
      PHI(     120)=PHI(     120)-D01*PHI(     117)
      PHI(     122)=PHI(     122)-D01*PHI(     117)
      PHI(     123)=PHI(     123)-D01*PHI(     118)
      PHI(     125)=PHI(     125)-D01*PHI(     118)
      PHI(     128)=PHI(     128)-D01*PHI(     118)
      PHI(     119)=PHI(     119)-D02*PHI(     116)
      PHI(     121)=PHI(     121)-D01*PHI(     116)
      PHI(     122)=PHI(     122)-D02*PHI(     117)
      PHI(     126)=PHI(     126)-D01*PHI(     116)
      PHI(     127)=PHI(     127)-D01*PHI(     117)
      PHI(     128)=PHI(     128)-D02*PHI(     118)
      WRK2(    1,1)= PHI(      30)
      WRK2(    2,1)= PHI(      28)
      WRK2(    3,1)=-PHI(      46)
      WRK2(    4,1)=-PHI(      47)
      WRK2(    5,1)=-PHI(      48)
      WRK2(    6,1)=-PHI(      40)
      WRK2(    7,1)=-PHI(      41)
      WRK2(    8,1)=-PHI(      42)
      WRK2(    9,1)= PHI(      71)
      WRK2(   10,1)= PHI(      72)
      WRK2(   11,1)= PHI(      73)
      WRK2(   12,1)= PHI(      74)
      WRK2(   13,1)= PHI(      75)
      WRK2(   14,1)= PHI(      76)
      WRK2(   15,1)=-PHI(     119)
      WRK2(   16,1)=-PHI(     120)
      WRK2(   17,1)=-PHI(     121)
      WRK2(   18,1)=-PHI(     122)
      WRK2(   19,1)=-PHI(     123)
      WRK2(   20,1)=-PHI(     124)
      WRK2(   21,1)=-PHI(     125)
      WRK2(   22,1)=-PHI(     126)
      WRK2(   23,1)=-PHI(     127)
      WRK2(   24,1)=-PHI(     128)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      END DO
      RETURN
      END
C  LPHI=     328
C  LWK1=       4
C  LWK2=      72
C  LENW=      24
C*MODULE INT2F   *DECK FSPS
      SUBROUTINE FSPS (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(      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(      83)=ZERO
      PHI(      84)=ZERO
      PHI(      85)=ZERO
      DO I=     107,     113
      PHI(I)=ZERO
      END DO
      DO I=     121,     127
      PHI(I)=ZERO
      END DO
      DO I=     142,     148
      PHI(I)=ZERO
      END DO
      DO I=     188,     200
      PHI(I)=ZERO
      END DO
      DO I=     227,     239
      PHI(I)=ZERO
      END DO
      DO I=     306,     327
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      51)=ZERO
      PHI(      59)=ZERO
      PHI(      60)=ZERO
      PHI(      61)=ZERO
      PHI(      65)=ZERO
      PHI(      66)=ZERO
      PHI(      67)=ZERO
      PHI(      74)=ZERO
      PHI(      75)=ZERO
      PHI(      76)=ZERO
      PHI(      80)=ZERO
      PHI(      81)=ZERO
      PHI(      82)=ZERO
      DO I=     100,     106
      PHI(I)=ZERO
      END DO
      DO I=     114,     120
      PHI(I)=ZERO
      END DO
      DO I=     135,     141
      PHI(I)=ZERO
      END DO
      DO I=     175,     187
      PHI(I)=ZERO
      END DO
      DO I=     214,     226
      PHI(I)=ZERO
      END DO
      DO I=     284,     305
      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(      56)=ZERO
      PHI(      57)=ZERO
      PHI(      58)=ZERO
      PHI(      71)=ZERO
      PHI(      72)=ZERO
      PHI(      73)=ZERO
      DO I=      93,      99
      PHI(I)=ZERO
      END DO
      DO I=     128,     134
      PHI(I)=ZERO
      END DO
      DO I=     162,     174
      PHI(I)=ZERO
      END DO
      DO I=     201,     213
      PHI(I)=ZERO
      END DO
      DO I=     262,     283
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      53)=ZERO
      PHI(      54)=ZERO
      PHI(      55)=ZERO
      DO I=      86,      92
      PHI(I)=ZERO
      END DO
      DO I=     149,     161
      PHI(I)=ZERO
      END DO
      DO I=     240,     261
      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(      53)=PHI(      53)+FAC*PHI(       2)
      PHI(      54)=PHI(      54)+FAC*PHI(       3)
      PHI(      55)=PHI(      55)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=      86,      92
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     149,     161
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     240,     261
      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(      56)=PHI(      56)+FAC*PHI(      53)
      PHI(      57)=PHI(      57)+FAC*PHI(      54)
      PHI(      58)=PHI(      58)+FAC*PHI(      55)
      FAC=SFAC( 2)
      PHI(      71)=PHI(      71)+FAC*PHI(      53)
      PHI(      72)=PHI(      72)+FAC*PHI(      54)
      PHI(      73)=PHI(      73)+FAC*PHI(      55)
      FAC=SFAC( 1)
      J=      86
      DO I=      93,      99
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      86
      DO I=     128,     134
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     149
      DO I=     162,     174
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     149
      DO I=     201,     213
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     240
      DO I=     262,     283
      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( 3)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 4)
      PHI(      51)=PHI(      51)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      59)=PHI(      59)+FAC*PHI(      56)
      PHI(      60)=PHI(      60)+FAC*PHI(      57)
      PHI(      61)=PHI(      61)+FAC*PHI(      58)
      FAC=SFAC( 4)
      PHI(      65)=PHI(      65)+FAC*PHI(      56)
      PHI(      66)=PHI(      66)+FAC*PHI(      57)
      PHI(      67)=PHI(      67)+FAC*PHI(      58)
      FAC=SFAC( 3)
      PHI(      74)=PHI(      74)+FAC*PHI(      71)
      PHI(      75)=PHI(      75)+FAC*PHI(      72)
      PHI(      76)=PHI(      76)+FAC*PHI(      73)
      FAC=SFAC( 4)
      PHI(      80)=PHI(      80)+FAC*PHI(      71)
      PHI(      81)=PHI(      81)+FAC*PHI(      72)
      PHI(      82)=PHI(      82)+FAC*PHI(      73)
      FAC=SFAC( 3)
      J=      93
      DO I=     100,     106
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=      93
      DO I=     114,     120
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     128
      DO I=     135,     141
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     162
      DO I=     175,     187
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     201
      DO I=     214,     226
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     262
      DO I=     284,     305
      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( 2)
      PHI(      50)=PHI(      50)+FAC*PHI(      49)
      FAC=SFAC( 4)
      PHI(      52)=PHI(      52)+FAC*PHI(      51)
      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( 4)
      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(      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(      80)
      PHI(      84)=PHI(      84)+FAC*PHI(      81)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 1)
      J=     100
      DO I=     107,     113
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     114
      DO I=     121,     127
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     135
      DO I=     142,     148
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     175
      DO I=     188,     200
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     214
      DO I=     227,     239
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     284
      DO I=     306,     327
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     108)=PHI(     108)-D01*PHI(     107)
      PHI(     110)=PHI(     110)-D01*PHI(     107)
      PHI(     113)=PHI(     113)-D01*PHI(     107)
      PHI(     122)=PHI(     122)-D01*PHI(     121)
      PHI(     124)=PHI(     124)-D01*PHI(     121)
      PHI(     127)=PHI(     127)-D01*PHI(     121)
      PHI(     143)=PHI(     143)-D01*PHI(     142)
      PHI(     145)=PHI(     145)-D01*PHI(     142)
      PHI(     148)=PHI(     148)-D01*PHI(     142)
      PHI(     191)=PHI(     191)-D01*PHI(     188)
      PHI(     192)=PHI(     192)-D01*PHI(     189)
      PHI(     194)=PHI(     194)-D01*PHI(     189)
      PHI(     195)=PHI(     195)-D01*PHI(     190)
      PHI(     197)=PHI(     197)-D01*PHI(     190)
      PHI(     200)=PHI(     200)-D01*PHI(     190)
      PHI(     191)=PHI(     191)-D02*PHI(     188)
      PHI(     193)=PHI(     193)-D01*PHI(     188)
      PHI(     194)=PHI(     194)-D02*PHI(     189)
      PHI(     198)=PHI(     198)-D01*PHI(     188)
      PHI(     199)=PHI(     199)-D01*PHI(     189)
      PHI(     200)=PHI(     200)-D02*PHI(     190)
      PHI(     230)=PHI(     230)-D01*PHI(     227)
      PHI(     231)=PHI(     231)-D01*PHI(     228)
      PHI(     233)=PHI(     233)-D01*PHI(     228)
      PHI(     234)=PHI(     234)-D01*PHI(     229)
      PHI(     236)=PHI(     236)-D01*PHI(     229)
      PHI(     239)=PHI(     239)-D01*PHI(     229)
      PHI(     230)=PHI(     230)-D02*PHI(     227)
      PHI(     232)=PHI(     232)-D01*PHI(     227)
      PHI(     233)=PHI(     233)-D02*PHI(     228)
      PHI(     237)=PHI(     237)-D01*PHI(     227)
      PHI(     238)=PHI(     238)-D01*PHI(     228)
      PHI(     239)=PHI(     239)-D02*PHI(     229)
      PHI(     313)=PHI(     313)-D01*PHI(     307)
      PHI(     314)=PHI(     314)-D01*PHI(     308)
      PHI(     315)=PHI(     315)-D01*PHI(     309)
      PHI(     317)=PHI(     317)-D01*PHI(     309)
      PHI(     318)=PHI(     318)-D01*PHI(     310)
      PHI(     319)=PHI(     319)-D01*PHI(     311)
      PHI(     321)=PHI(     321)-D01*PHI(     311)
      PHI(     322)=PHI(     322)-D01*PHI(     312)
      PHI(     324)=PHI(     324)-D01*PHI(     312)
      PHI(     327)=PHI(     327)-D01*PHI(     312)
      PHI(     313)=PHI(     313)-D02*PHI(     307)
      PHI(     314)=PHI(     314)-D02*PHI(     308)
      PHI(     316)=PHI(     316)-D01*PHI(     308)
      PHI(     317)=PHI(     317)-D02*PHI(     309)
      PHI(     318)=PHI(     318)-D02*PHI(     310)
      PHI(     320)=PHI(     320)-D01*PHI(     310)
      PHI(     321)=PHI(     321)-D02*PHI(     311)
      PHI(     325)=PHI(     325)-D01*PHI(     310)
      PHI(     326)=PHI(     326)-D01*PHI(     311)
      PHI(     327)=PHI(     327)-D02*PHI(     312)
      PHI(     307)=PHI(     307)-D01*PHI(     306)
      PHI(     309)=PHI(     309)-D01*PHI(     306)
      PHI(     312)=PHI(     312)-D01*PHI(     306)
      PHI(     313)=PHI(     313)-D03*PHI(     307)
      PHI(     315)=PHI(     315)-D01*PHI(     307)
      PHI(     316)=PHI(     316)-D02*PHI(     308)
      PHI(     317)=PHI(     317)-D03*PHI(     309)
      PHI(     322)=PHI(     322)-D01*PHI(     307)
      PHI(     323)=PHI(     323)-D01*PHI(     308)
      PHI(     324)=PHI(     324)-D01*PHI(     309)
      PHI(     325)=PHI(     325)-D02*PHI(     310)
      PHI(     326)=PHI(     326)-D02*PHI(     311)
      PHI(     327)=PHI(     327)-D03*PHI(     312)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(      68)+CONF( 1)*PHI(      52)
      WRK1(    3)= PHI(      69)+CONF( 2)*PHI(      52)
      WRK1(    4)= PHI(      70)+CONF( 3)*PHI(      52)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 1)
      WRK1(    2)= PHI(      62)+CONF( 1)*PHI(      50)
      WRK1(    3)= PHI(      63)+CONF( 2)*PHI(      50)
      WRK1(    4)= PHI(      64)+CONF( 3)*PHI(      50)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 2)
      WRK1(    2)=-PHI(     122)-CONF( 1)*PHI(      83)
      WRK1(    3)=-PHI(     123)-CONF( 2)*PHI(      83)
      WRK1(    4)=-PHI(     125)-CONF( 3)*PHI(      83)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 3)
      WRK1(    2)=-PHI(     123)-CONF( 1)*PHI(      84)
      WRK1(    3)=-PHI(     124)-CONF( 2)*PHI(      84)
      WRK1(    4)=-PHI(     126)-CONF( 3)*PHI(      84)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 4)
      WRK1(    2)=-PHI(     125)-CONF( 1)*PHI(      85)
      WRK1(    3)=-PHI(     126)-CONF( 2)*PHI(      85)
      WRK1(    4)=-PHI(     127)-CONF( 3)*PHI(      85)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 5)
      WRK1(    2)=-PHI(     108)-CONF( 1)*PHI(      77)
      WRK1(    3)=-PHI(     109)-CONF( 2)*PHI(      77)
      WRK1(    4)=-PHI(     111)-CONF( 3)*PHI(      77)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 6)
      WRK1(    2)=-PHI(     109)-CONF( 1)*PHI(      78)
      WRK1(    3)=-PHI(     110)-CONF( 2)*PHI(      78)
      WRK1(    4)=-PHI(     112)-CONF( 3)*PHI(      78)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 7)
      WRK1(    2)=-PHI(     111)-CONF( 1)*PHI(      79)
      WRK1(    3)=-PHI(     112)-CONF( 2)*PHI(      79)
      WRK1(    4)=-PHI(     113)-CONF( 3)*PHI(      79)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 8)
      WRK1(    2)= PHI(     191)+CONF( 1)*PHI(     143)
      WRK1(    3)= PHI(     192)+CONF( 2)*PHI(     143)
      WRK1(    4)= PHI(     195)+CONF( 3)*PHI(     143)
      CALL FSPS_BCTE(WRK1,WRK2,LENW, 9)
      WRK1(    2)= PHI(     192)+CONF( 1)*PHI(     144)
      WRK1(    3)= PHI(     193)+CONF( 2)*PHI(     144)
      WRK1(    4)= PHI(     196)+CONF( 3)*PHI(     144)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,10)
      WRK1(    2)= PHI(     193)+CONF( 1)*PHI(     145)
      WRK1(    3)= PHI(     194)+CONF( 2)*PHI(     145)
      WRK1(    4)= PHI(     197)+CONF( 3)*PHI(     145)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,11)
      WRK1(    2)= PHI(     195)+CONF( 1)*PHI(     146)
      WRK1(    3)= PHI(     196)+CONF( 2)*PHI(     146)
      WRK1(    4)= PHI(     198)+CONF( 3)*PHI(     146)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,12)
      WRK1(    2)= PHI(     196)+CONF( 1)*PHI(     147)
      WRK1(    3)= PHI(     197)+CONF( 2)*PHI(     147)
      WRK1(    4)= PHI(     199)+CONF( 3)*PHI(     147)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,13)
      WRK1(    2)= PHI(     198)+CONF( 1)*PHI(     148)
      WRK1(    3)= PHI(     199)+CONF( 2)*PHI(     148)
      WRK1(    4)= PHI(     200)+CONF( 3)*PHI(     148)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,14)
      WRK1(    2)=-PHI(     313)-CONF( 1)*PHI(     230)
      WRK1(    3)=-PHI(     314)-CONF( 2)*PHI(     230)
      WRK1(    4)=-PHI(     318)-CONF( 3)*PHI(     230)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,15)
      WRK1(    2)=-PHI(     314)-CONF( 1)*PHI(     231)
      WRK1(    3)=-PHI(     315)-CONF( 2)*PHI(     231)
      WRK1(    4)=-PHI(     319)-CONF( 3)*PHI(     231)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,16)
      WRK1(    2)=-PHI(     315)-CONF( 1)*PHI(     232)
      WRK1(    3)=-PHI(     316)-CONF( 2)*PHI(     232)
      WRK1(    4)=-PHI(     320)-CONF( 3)*PHI(     232)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,17)
      WRK1(    2)=-PHI(     316)-CONF( 1)*PHI(     233)
      WRK1(    3)=-PHI(     317)-CONF( 2)*PHI(     233)
      WRK1(    4)=-PHI(     321)-CONF( 3)*PHI(     233)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,18)
      WRK1(    2)=-PHI(     318)-CONF( 1)*PHI(     234)
      WRK1(    3)=-PHI(     319)-CONF( 2)*PHI(     234)
      WRK1(    4)=-PHI(     322)-CONF( 3)*PHI(     234)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,19)
      WRK1(    2)=-PHI(     319)-CONF( 1)*PHI(     235)
      WRK1(    3)=-PHI(     320)-CONF( 2)*PHI(     235)
      WRK1(    4)=-PHI(     323)-CONF( 3)*PHI(     235)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,20)
      WRK1(    2)=-PHI(     320)-CONF( 1)*PHI(     236)
      WRK1(    3)=-PHI(     321)-CONF( 2)*PHI(     236)
      WRK1(    4)=-PHI(     324)-CONF( 3)*PHI(     236)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,21)
      WRK1(    2)=-PHI(     322)-CONF( 1)*PHI(     237)
      WRK1(    3)=-PHI(     323)-CONF( 2)*PHI(     237)
      WRK1(    4)=-PHI(     325)-CONF( 3)*PHI(     237)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,22)
      WRK1(    2)=-PHI(     323)-CONF( 1)*PHI(     238)
      WRK1(    3)=-PHI(     324)-CONF( 2)*PHI(     238)
      WRK1(    4)=-PHI(     326)-CONF( 3)*PHI(     238)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,23)
      WRK1(    2)=-PHI(     325)-CONF( 1)*PHI(     239)
      WRK1(    3)=-PHI(     326)-CONF( 2)*PHI(     239)
      WRK1(    4)=-PHI(     327)-CONF( 3)*PHI(     239)
      CALL FSPS_BCTE(WRK1,WRK2,LENW,24)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     3
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      END DO
      RETURN
      END
C*MODULE INT2F   *DECK FSPS_BCTE
      SUBROUTINE FSPS_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=     976
C  LWK1=      24
C  LWK2=     216
C  LENW=      24
C*MODULE INT2F   *DECK FSPP
      SUBROUTINE FSPP (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(      89)=ZERO
      PHI(      91)=ZERO
      PHI(      95)=ZERO
      PHI(      97)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     109)=ZERO
      PHI(     110)=ZERO
      PHI(     111)=ZERO
      PHI(     112)=ZERO
      PHI(     116)=ZERO
      PHI(     117)=ZERO
      PHI(     118)=ZERO
      PHI(     119)=ZERO
      PHI(     120)=ZERO
      PHI(     121)=ZERO
      PHI(     128)=ZERO
      PHI(     129)=ZERO
      PHI(     130)=ZERO
      PHI(     134)=ZERO
      PHI(     135)=ZERO
      PHI(     136)=ZERO
      PHI(     146)=ZERO
      PHI(     147)=ZERO
      PHI(     148)=ZERO
      PHI(     152)=ZERO
      PHI(     153)=ZERO
      PHI(     154)=ZERO
      PHI(     161)=ZERO
      PHI(     162)=ZERO
      PHI(     163)=ZERO
      PHI(     167)=ZERO
      PHI(     168)=ZERO
      PHI(     169)=ZERO
      DO I=     191,     197
      PHI(I)=ZERO
      END DO
      DO I=     205,     211
      PHI(I)=ZERO
      END DO
      DO I=     212,     218
      PHI(I)=ZERO
      END DO
      DO I=     233,     239
      PHI(I)=ZERO
      END DO
      DO I=     261,     267
      PHI(I)=ZERO
      END DO
      DO I=     275,     281
      PHI(I)=ZERO
      END DO
      DO I=     296,     302
      PHI(I)=ZERO
      END DO
      DO I=     310,     316
      PHI(I)=ZERO
      END DO
      DO I=     331,     337
      PHI(I)=ZERO
      END DO
      DO I=     377,     389
      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=     481,     493
      PHI(I)=ZERO
      END DO
      DO I=     507,     519
      PHI(I)=ZERO
      END DO
      DO I=     546,     558
      PHI(I)=ZERO
      END DO
      DO I=     585,     597
      PHI(I)=ZERO
      END DO
      DO I=     664,     685
      PHI(I)=ZERO
      END DO
      DO I=     752,     773
      PHI(I)=ZERO
      END DO
      DO I=     818,     839
      PHI(I)=ZERO
      END DO
      DO I=     942,     975
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      85)=ZERO
      PHI(      88)=ZERO
      PHI(      90)=ZERO
      PHI(      94)=ZERO
      PHI(      96)=ZERO
      PHI(     104)=ZERO
      PHI(     105)=ZERO
      PHI(     106)=ZERO
      PHI(     113)=ZERO
      PHI(     114)=ZERO
      PHI(     115)=ZERO
      PHI(     125)=ZERO
      PHI(     126)=ZERO
      PHI(     127)=ZERO
      PHI(     131)=ZERO
      PHI(     132)=ZERO
      PHI(     133)=ZERO
      PHI(     143)=ZERO
      PHI(     144)=ZERO
      PHI(     145)=ZERO
      PHI(     149)=ZERO
      PHI(     150)=ZERO
      PHI(     151)=ZERO
      PHI(     158)=ZERO
      PHI(     159)=ZERO
      PHI(     160)=ZERO
      PHI(     164)=ZERO
      PHI(     165)=ZERO
      PHI(     166)=ZERO
      DO I=     184,     190
      PHI(I)=ZERO
      END DO
      DO I=     198,     204
      PHI(I)=ZERO
      END DO
      DO I=     226,     232
      PHI(I)=ZERO
      END DO
      DO I=     254,     260
      PHI(I)=ZERO
      END DO
      DO I=     268,     274
      PHI(I)=ZERO
      END DO
      DO I=     289,     295
      PHI(I)=ZERO
      END DO
      DO I=     303,     309
      PHI(I)=ZERO
      END DO
      DO I=     324,     330
      PHI(I)=ZERO
      END DO
      DO I=     364,     376
      PHI(I)=ZERO
      END DO
      DO I=     416,     428
      PHI(I)=ZERO
      END DO
      DO I=     468,     480
      PHI(I)=ZERO
      END DO
      DO I=     494,     506
      PHI(I)=ZERO
      END DO
      DO I=     533,     545
      PHI(I)=ZERO
      END DO
      DO I=     572,     584
      PHI(I)=ZERO
      END DO
      DO I=     642,     663
      PHI(I)=ZERO
      END DO
      DO I=     730,     751
      PHI(I)=ZERO
      END DO
      DO I=     796,     817
      PHI(I)=ZERO
      END DO
      DO I=     908,     941
      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(      87)=ZERO
      PHI(      93)=ZERO
      PHI(     101)=ZERO
      PHI(     102)=ZERO
      PHI(     103)=ZERO
      PHI(     122)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     140)=ZERO
      PHI(     141)=ZERO
      PHI(     142)=ZERO
      PHI(     155)=ZERO
      PHI(     156)=ZERO
      PHI(     157)=ZERO
      DO I=     177,     183
      PHI(I)=ZERO
      END DO
      DO I=     219,     225
      PHI(I)=ZERO
      END DO
      DO I=     247,     253
      PHI(I)=ZERO
      END DO
      DO I=     282,     288
      PHI(I)=ZERO
      END DO
      DO I=     317,     323
      PHI(I)=ZERO
      END DO
      DO I=     351,     363
      PHI(I)=ZERO
      END DO
      DO I=     403,     415
      PHI(I)=ZERO
      END DO
      DO I=     455,     467
      PHI(I)=ZERO
      END DO
      DO I=     520,     532
      PHI(I)=ZERO
      END DO
      DO I=     559,     571
      PHI(I)=ZERO
      END DO
      DO I=     620,     641
      PHI(I)=ZERO
      END DO
      DO I=     708,     729
      PHI(I)=ZERO
      END DO
      DO I=     774,     795
      PHI(I)=ZERO
      END DO
      DO I=     874,     907
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      92)=ZERO
      PHI(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     100)=ZERO
      PHI(     137)=ZERO
      PHI(     138)=ZERO
      PHI(     139)=ZERO
      DO I=     170,     176
      PHI(I)=ZERO
      END DO
      DO I=     240,     246
      PHI(I)=ZERO
      END DO
      DO I=     338,     350
      PHI(I)=ZERO
      END DO
      DO I=     442,     454
      PHI(I)=ZERO
      END DO
      DO I=     598,     619
      PHI(I)=ZERO
      END DO
      DO I=     686,     707
      PHI(I)=ZERO
      END DO
      DO I=     840,     873
      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(      92)=PHI(      92)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      98)=PHI(      98)+FAC*PHI(       2)
      PHI(      99)=PHI(      99)+FAC*PHI(       3)
      PHI(     100)=PHI(     100)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(     137)=PHI(     137)+FAC*PHI(       2)
      PHI(     138)=PHI(     138)+FAC*PHI(       3)
      PHI(     139)=PHI(     139)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     170,     176
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     240,     246
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     338,     350
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     442,     454
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     598,     619
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     686,     707
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      47
      DO I=     840,     873
      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(      87)=PHI(      87)+FAC*PHI(      81)
      FAC=SFAC( 3)
      PHI(      93)=PHI(      93)+FAC*PHI(      92)
      FAC=SFAC( 1)
      PHI(     101)=PHI(     101)+FAC*PHI(      98)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      PHI(     103)=PHI(     103)+FAC*PHI(     100)
      FAC=SFAC( 2)
      PHI(     122)=PHI(     122)+FAC*PHI(      98)
      PHI(     123)=PHI(     123)+FAC*PHI(      99)
      PHI(     124)=PHI(     124)+FAC*PHI(     100)
      FAC=SFAC( 2)
      PHI(     140)=PHI(     140)+FAC*PHI(     137)
      PHI(     141)=PHI(     141)+FAC*PHI(     138)
      PHI(     142)=PHI(     142)+FAC*PHI(     139)
      FAC=SFAC( 3)
      PHI(     155)=PHI(     155)+FAC*PHI(     137)
      PHI(     156)=PHI(     156)+FAC*PHI(     138)
      PHI(     157)=PHI(     157)+FAC*PHI(     139)
      FAC=SFAC( 1)
      J=     170
      DO I=     177,     183
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     170
      DO I=     219,     225
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     240
      DO I=     247,     253
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     240
      DO I=     282,     288
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     240
      DO I=     317,     323
      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=     403,     415
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     442
      DO I=     455,     467
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     442
      DO I=     520,     532
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     442
      DO I=     559,     571
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     598
      DO I=     620,     641
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     686
      DO I=     708,     729
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     686
      DO I=     774,     795
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     840
      DO I=     874,     907
      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( 3)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(      88)=PHI(      88)+FAC*PHI(      87)
      FAC=SFAC( 4)
      PHI(      90)=PHI(      90)+FAC*PHI(      87)
      FAC=SFAC( 3)
      PHI(      94)=PHI(      94)+FAC*PHI(      93)
      FAC=SFAC( 4)
      PHI(      96)=PHI(      96)+FAC*PHI(      93)
      FAC=SFAC( 3)
      PHI(     104)=PHI(     104)+FAC*PHI(     101)
      PHI(     105)=PHI(     105)+FAC*PHI(     102)
      PHI(     106)=PHI(     106)+FAC*PHI(     103)
      FAC=SFAC( 4)
      PHI(     113)=PHI(     113)+FAC*PHI(     101)
      PHI(     114)=PHI(     114)+FAC*PHI(     102)
      PHI(     115)=PHI(     115)+FAC*PHI(     103)
      FAC=SFAC( 3)
      PHI(     125)=PHI(     125)+FAC*PHI(     122)
      PHI(     126)=PHI(     126)+FAC*PHI(     123)
      PHI(     127)=PHI(     127)+FAC*PHI(     124)
      FAC=SFAC( 4)
      PHI(     131)=PHI(     131)+FAC*PHI(     122)
      PHI(     132)=PHI(     132)+FAC*PHI(     123)
      PHI(     133)=PHI(     133)+FAC*PHI(     124)
      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(     149)=PHI(     149)+FAC*PHI(     140)
      PHI(     150)=PHI(     150)+FAC*PHI(     141)
      PHI(     151)=PHI(     151)+FAC*PHI(     142)
      FAC=SFAC( 3)
      PHI(     158)=PHI(     158)+FAC*PHI(     155)
      PHI(     159)=PHI(     159)+FAC*PHI(     156)
      PHI(     160)=PHI(     160)+FAC*PHI(     157)
      FAC=SFAC( 4)
      PHI(     164)=PHI(     164)+FAC*PHI(     155)
      PHI(     165)=PHI(     165)+FAC*PHI(     156)
      PHI(     166)=PHI(     166)+FAC*PHI(     157)
      FAC=SFAC( 3)
      J=     177
      DO I=     184,     190
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     177
      DO I=     198,     204
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     219
      DO I=     226,     232
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     247
      DO I=     254,     260
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     247
      DO I=     268,     274
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     282
      DO I=     289,     295
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     282
      DO I=     303,     309
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     317
      DO I=     324,     330
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     351
      DO I=     364,     376
      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( 3)
      J=     455
      DO I=     468,     480
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     455
      DO I=     494,     506
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     520
      DO I=     533,     545
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     559
      DO I=     572,     584
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     620
      DO I=     642,     663
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     708
      DO I=     730,     751
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     774
      DO I=     796,     817
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     874
      DO I=     908,     941
      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( 2)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 4)
      PHI(      86)=PHI(      86)+FAC*PHI(      85)
      FAC=SFAC( 2)
      PHI(      89)=PHI(      89)+FAC*PHI(      88)
      FAC=SFAC( 4)
      PHI(      91)=PHI(      91)+FAC*PHI(      90)
      FAC=SFAC( 2)
      PHI(      95)=PHI(      95)+FAC*PHI(      94)
      FAC=SFAC( 4)
      PHI(      97)=PHI(      97)+FAC*PHI(      96)
      FAC=SFAC( 1)
      PHI(     107)=PHI(     107)+FAC*PHI(     104)
      PHI(     108)=PHI(     108)+FAC*PHI(     105)
      PHI(     109)=PHI(     109)+FAC*PHI(     106)
      FAC=SFAC( 2)
      PHI(     110)=PHI(     110)+FAC*PHI(     104)
      PHI(     111)=PHI(     111)+FAC*PHI(     105)
      PHI(     112)=PHI(     112)+FAC*PHI(     106)
      FAC=SFAC( 3)
      PHI(     116)=PHI(     116)+FAC*PHI(     113)
      PHI(     117)=PHI(     117)+FAC*PHI(     114)
      PHI(     118)=PHI(     118)+FAC*PHI(     115)
      FAC=SFAC( 4)
      PHI(     119)=PHI(     119)+FAC*PHI(     113)
      PHI(     120)=PHI(     120)+FAC*PHI(     114)
      PHI(     121)=PHI(     121)+FAC*PHI(     115)
      FAC=SFAC( 1)
      PHI(     128)=PHI(     128)+FAC*PHI(     125)
      PHI(     129)=PHI(     129)+FAC*PHI(     126)
      PHI(     130)=PHI(     130)+FAC*PHI(     127)
      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( 2)
      PHI(     146)=PHI(     146)+FAC*PHI(     143)
      PHI(     147)=PHI(     147)+FAC*PHI(     144)
      PHI(     148)=PHI(     148)+FAC*PHI(     145)
      FAC=SFAC( 4)
      PHI(     152)=PHI(     152)+FAC*PHI(     149)
      PHI(     153)=PHI(     153)+FAC*PHI(     150)
      PHI(     154)=PHI(     154)+FAC*PHI(     151)
      FAC=SFAC( 1)
      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(     167)=PHI(     167)+FAC*PHI(     164)
      PHI(     168)=PHI(     168)+FAC*PHI(     165)
      PHI(     169)=PHI(     169)+FAC*PHI(     166)
      FAC=SFAC( 1)
      J=     184
      DO I=     191,     197
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     198
      DO I=     205,     211
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     198
      DO I=     212,     218
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     226
      DO I=     233,     239
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     254
      DO I=     261,     267
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     268
      DO I=     275,     281
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     289
      DO I=     296,     302
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     303
      DO I=     310,     316
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     324
      DO I=     331,     337
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     364
      DO I=     377,     389
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     364
      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( 1)
      J=     468
      DO I=     481,     493
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     494
      DO I=     507,     519
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     533
      DO I=     546,     558
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     572
      DO I=     585,     597
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     642
      DO I=     664,     685
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     730
      DO I=     752,     773
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     796
      DO I=     818,     839
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     908
      DO I=     942,     975
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     192)=PHI(     192)-D01*PHI(     191)
      PHI(     194)=PHI(     194)-D01*PHI(     191)
      PHI(     197)=PHI(     197)-D01*PHI(     191)
      PHI(     206)=PHI(     206)-D01*PHI(     205)
      PHI(     208)=PHI(     208)-D01*PHI(     205)
      PHI(     211)=PHI(     211)-D01*PHI(     205)
      PHI(     213)=PHI(     213)-D01*PHI(     212)
      PHI(     215)=PHI(     215)-D01*PHI(     212)
      PHI(     218)=PHI(     218)-D01*PHI(     212)
      PHI(     234)=PHI(     234)-D01*PHI(     233)
      PHI(     236)=PHI(     236)-D01*PHI(     233)
      PHI(     239)=PHI(     239)-D01*PHI(     233)
      PHI(     262)=PHI(     262)-D01*PHI(     261)
      PHI(     264)=PHI(     264)-D01*PHI(     261)
      PHI(     267)=PHI(     267)-D01*PHI(     261)
      PHI(     276)=PHI(     276)-D01*PHI(     275)
      PHI(     278)=PHI(     278)-D01*PHI(     275)
      PHI(     281)=PHI(     281)-D01*PHI(     275)
      PHI(     297)=PHI(     297)-D01*PHI(     296)
      PHI(     299)=PHI(     299)-D01*PHI(     296)
      PHI(     302)=PHI(     302)-D01*PHI(     296)
      PHI(     311)=PHI(     311)-D01*PHI(     310)
      PHI(     313)=PHI(     313)-D01*PHI(     310)
      PHI(     316)=PHI(     316)-D01*PHI(     310)
      PHI(     332)=PHI(     332)-D01*PHI(     331)
      PHI(     334)=PHI(     334)-D01*PHI(     331)
      PHI(     337)=PHI(     337)-D01*PHI(     331)
      PHI(     380)=PHI(     380)-D01*PHI(     377)
      PHI(     381)=PHI(     381)-D01*PHI(     378)
      PHI(     383)=PHI(     383)-D01*PHI(     378)
      PHI(     384)=PHI(     384)-D01*PHI(     379)
      PHI(     386)=PHI(     386)-D01*PHI(     379)
      PHI(     389)=PHI(     389)-D01*PHI(     379)
      PHI(     380)=PHI(     380)-D02*PHI(     377)
      PHI(     382)=PHI(     382)-D01*PHI(     377)
      PHI(     383)=PHI(     383)-D02*PHI(     378)
      PHI(     387)=PHI(     387)-D01*PHI(     377)
      PHI(     388)=PHI(     388)-D01*PHI(     378)
      PHI(     389)=PHI(     389)-D02*PHI(     379)
      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(     484)=PHI(     484)-D01*PHI(     481)
      PHI(     485)=PHI(     485)-D01*PHI(     482)
      PHI(     487)=PHI(     487)-D01*PHI(     482)
      PHI(     488)=PHI(     488)-D01*PHI(     483)
      PHI(     490)=PHI(     490)-D01*PHI(     483)
      PHI(     493)=PHI(     493)-D01*PHI(     483)
      PHI(     484)=PHI(     484)-D02*PHI(     481)
      PHI(     486)=PHI(     486)-D01*PHI(     481)
      PHI(     487)=PHI(     487)-D02*PHI(     482)
      PHI(     491)=PHI(     491)-D01*PHI(     481)
      PHI(     492)=PHI(     492)-D01*PHI(     482)
      PHI(     493)=PHI(     493)-D02*PHI(     483)
      PHI(     510)=PHI(     510)-D01*PHI(     507)
      PHI(     511)=PHI(     511)-D01*PHI(     508)
      PHI(     513)=PHI(     513)-D01*PHI(     508)
      PHI(     514)=PHI(     514)-D01*PHI(     509)
      PHI(     516)=PHI(     516)-D01*PHI(     509)
      PHI(     519)=PHI(     519)-D01*PHI(     509)
      PHI(     510)=PHI(     510)-D02*PHI(     507)
      PHI(     512)=PHI(     512)-D01*PHI(     507)
      PHI(     513)=PHI(     513)-D02*PHI(     508)
      PHI(     517)=PHI(     517)-D01*PHI(     507)
      PHI(     518)=PHI(     518)-D01*PHI(     508)
      PHI(     519)=PHI(     519)-D02*PHI(     509)
      PHI(     549)=PHI(     549)-D01*PHI(     546)
      PHI(     550)=PHI(     550)-D01*PHI(     547)
      PHI(     552)=PHI(     552)-D01*PHI(     547)
      PHI(     553)=PHI(     553)-D01*PHI(     548)
      PHI(     555)=PHI(     555)-D01*PHI(     548)
      PHI(     558)=PHI(     558)-D01*PHI(     548)
      PHI(     549)=PHI(     549)-D02*PHI(     546)
      PHI(     551)=PHI(     551)-D01*PHI(     546)
      PHI(     552)=PHI(     552)-D02*PHI(     547)
      PHI(     556)=PHI(     556)-D01*PHI(     546)
      PHI(     557)=PHI(     557)-D01*PHI(     547)
      PHI(     558)=PHI(     558)-D02*PHI(     548)
      PHI(     588)=PHI(     588)-D01*PHI(     585)
      PHI(     589)=PHI(     589)-D01*PHI(     586)
      PHI(     591)=PHI(     591)-D01*PHI(     586)
      PHI(     592)=PHI(     592)-D01*PHI(     587)
      PHI(     594)=PHI(     594)-D01*PHI(     587)
      PHI(     597)=PHI(     597)-D01*PHI(     587)
      PHI(     588)=PHI(     588)-D02*PHI(     585)
      PHI(     590)=PHI(     590)-D01*PHI(     585)
      PHI(     591)=PHI(     591)-D02*PHI(     586)
      PHI(     595)=PHI(     595)-D01*PHI(     585)
      PHI(     596)=PHI(     596)-D01*PHI(     586)
      PHI(     597)=PHI(     597)-D02*PHI(     587)
      PHI(     671)=PHI(     671)-D01*PHI(     665)
      PHI(     672)=PHI(     672)-D01*PHI(     666)
      PHI(     673)=PHI(     673)-D01*PHI(     667)
      PHI(     675)=PHI(     675)-D01*PHI(     667)
      PHI(     676)=PHI(     676)-D01*PHI(     668)
      PHI(     677)=PHI(     677)-D01*PHI(     669)
      PHI(     679)=PHI(     679)-D01*PHI(     669)
      PHI(     680)=PHI(     680)-D01*PHI(     670)
      PHI(     682)=PHI(     682)-D01*PHI(     670)
      PHI(     685)=PHI(     685)-D01*PHI(     670)
      PHI(     671)=PHI(     671)-D02*PHI(     665)
      PHI(     672)=PHI(     672)-D02*PHI(     666)
      PHI(     674)=PHI(     674)-D01*PHI(     666)
      PHI(     675)=PHI(     675)-D02*PHI(     667)
      PHI(     676)=PHI(     676)-D02*PHI(     668)
      PHI(     678)=PHI(     678)-D01*PHI(     668)
      PHI(     679)=PHI(     679)-D02*PHI(     669)
      PHI(     683)=PHI(     683)-D01*PHI(     668)
      PHI(     684)=PHI(     684)-D01*PHI(     669)
      PHI(     685)=PHI(     685)-D02*PHI(     670)
      PHI(     665)=PHI(     665)-D01*PHI(     664)
      PHI(     667)=PHI(     667)-D01*PHI(     664)
      PHI(     670)=PHI(     670)-D01*PHI(     664)
      PHI(     671)=PHI(     671)-D03*PHI(     665)
      PHI(     673)=PHI(     673)-D01*PHI(     665)
      PHI(     674)=PHI(     674)-D02*PHI(     666)
      PHI(     675)=PHI(     675)-D03*PHI(     667)
      PHI(     680)=PHI(     680)-D01*PHI(     665)
      PHI(     681)=PHI(     681)-D01*PHI(     666)
      PHI(     682)=PHI(     682)-D01*PHI(     667)
      PHI(     683)=PHI(     683)-D02*PHI(     668)
      PHI(     684)=PHI(     684)-D02*PHI(     669)
      PHI(     685)=PHI(     685)-D03*PHI(     670)
      PHI(     759)=PHI(     759)-D01*PHI(     753)
      PHI(     760)=PHI(     760)-D01*PHI(     754)
      PHI(     761)=PHI(     761)-D01*PHI(     755)
      PHI(     763)=PHI(     763)-D01*PHI(     755)
      PHI(     764)=PHI(     764)-D01*PHI(     756)
      PHI(     765)=PHI(     765)-D01*PHI(     757)
      PHI(     767)=PHI(     767)-D01*PHI(     757)
      PHI(     768)=PHI(     768)-D01*PHI(     758)
      PHI(     770)=PHI(     770)-D01*PHI(     758)
      PHI(     773)=PHI(     773)-D01*PHI(     758)
      PHI(     759)=PHI(     759)-D02*PHI(     753)
      PHI(     760)=PHI(     760)-D02*PHI(     754)
      PHI(     762)=PHI(     762)-D01*PHI(     754)
      PHI(     763)=PHI(     763)-D02*PHI(     755)
      PHI(     764)=PHI(     764)-D02*PHI(     756)
      PHI(     766)=PHI(     766)-D01*PHI(     756)
      PHI(     767)=PHI(     767)-D02*PHI(     757)
      PHI(     771)=PHI(     771)-D01*PHI(     756)
      PHI(     772)=PHI(     772)-D01*PHI(     757)
      PHI(     773)=PHI(     773)-D02*PHI(     758)
      PHI(     753)=PHI(     753)-D01*PHI(     752)
      PHI(     755)=PHI(     755)-D01*PHI(     752)
      PHI(     758)=PHI(     758)-D01*PHI(     752)
      PHI(     759)=PHI(     759)-D03*PHI(     753)
      PHI(     761)=PHI(     761)-D01*PHI(     753)
      PHI(     762)=PHI(     762)-D02*PHI(     754)
      PHI(     763)=PHI(     763)-D03*PHI(     755)
      PHI(     768)=PHI(     768)-D01*PHI(     753)
      PHI(     769)=PHI(     769)-D01*PHI(     754)
      PHI(     770)=PHI(     770)-D01*PHI(     755)
      PHI(     771)=PHI(     771)-D02*PHI(     756)
      PHI(     772)=PHI(     772)-D02*PHI(     757)
      PHI(     773)=PHI(     773)-D03*PHI(     758)
      PHI(     825)=PHI(     825)-D01*PHI(     819)
      PHI(     826)=PHI(     826)-D01*PHI(     820)
      PHI(     827)=PHI(     827)-D01*PHI(     821)
      PHI(     829)=PHI(     829)-D01*PHI(     821)
      PHI(     830)=PHI(     830)-D01*PHI(     822)
      PHI(     831)=PHI(     831)-D01*PHI(     823)
      PHI(     833)=PHI(     833)-D01*PHI(     823)
      PHI(     834)=PHI(     834)-D01*PHI(     824)
      PHI(     836)=PHI(     836)-D01*PHI(     824)
      PHI(     839)=PHI(     839)-D01*PHI(     824)
      PHI(     825)=PHI(     825)-D02*PHI(     819)
      PHI(     826)=PHI(     826)-D02*PHI(     820)
      PHI(     828)=PHI(     828)-D01*PHI(     820)
      PHI(     829)=PHI(     829)-D02*PHI(     821)
      PHI(     830)=PHI(     830)-D02*PHI(     822)
      PHI(     832)=PHI(     832)-D01*PHI(     822)
      PHI(     833)=PHI(     833)-D02*PHI(     823)
      PHI(     837)=PHI(     837)-D01*PHI(     822)
      PHI(     838)=PHI(     838)-D01*PHI(     823)
      PHI(     839)=PHI(     839)-D02*PHI(     824)
      PHI(     819)=PHI(     819)-D01*PHI(     818)
      PHI(     821)=PHI(     821)-D01*PHI(     818)
      PHI(     824)=PHI(     824)-D01*PHI(     818)
      PHI(     825)=PHI(     825)-D03*PHI(     819)
      PHI(     827)=PHI(     827)-D01*PHI(     819)
      PHI(     828)=PHI(     828)-D02*PHI(     820)
      PHI(     829)=PHI(     829)-D03*PHI(     821)
      PHI(     834)=PHI(     834)-D01*PHI(     819)
      PHI(     835)=PHI(     835)-D01*PHI(     820)
      PHI(     836)=PHI(     836)-D01*PHI(     821)
      PHI(     837)=PHI(     837)-D02*PHI(     822)
      PHI(     838)=PHI(     838)-D02*PHI(     823)
      PHI(     839)=PHI(     839)-D03*PHI(     824)
      PHI(     955)=PHI(     955)-D01*PHI(     945)
      PHI(     956)=PHI(     956)-D01*PHI(     946)
      PHI(     957)=PHI(     957)-D01*PHI(     947)
      PHI(     958)=PHI(     958)-D01*PHI(     948)
      PHI(     960)=PHI(     960)-D01*PHI(     948)
      PHI(     961)=PHI(     961)-D01*PHI(     949)
      PHI(     962)=PHI(     962)-D01*PHI(     950)
      PHI(     963)=PHI(     963)-D01*PHI(     951)
      PHI(     965)=PHI(     965)-D01*PHI(     951)
      PHI(     966)=PHI(     966)-D01*PHI(     952)
      PHI(     967)=PHI(     967)-D01*PHI(     953)
      PHI(     969)=PHI(     969)-D01*PHI(     953)
      PHI(     970)=PHI(     970)-D01*PHI(     954)
      PHI(     972)=PHI(     972)-D01*PHI(     954)
      PHI(     975)=PHI(     975)-D01*PHI(     954)
      PHI(     955)=PHI(     955)-D02*PHI(     945)
      PHI(     956)=PHI(     956)-D02*PHI(     946)
      PHI(     957)=PHI(     957)-D02*PHI(     947)
      PHI(     959)=PHI(     959)-D01*PHI(     947)
      PHI(     960)=PHI(     960)-D02*PHI(     948)
      PHI(     961)=PHI(     961)-D02*PHI(     949)
      PHI(     962)=PHI(     962)-D02*PHI(     950)
      PHI(     964)=PHI(     964)-D01*PHI(     950)
      PHI(     965)=PHI(     965)-D02*PHI(     951)
      PHI(     966)=PHI(     966)-D02*PHI(     952)
      PHI(     968)=PHI(     968)-D01*PHI(     952)
      PHI(     969)=PHI(     969)-D02*PHI(     953)
      PHI(     973)=PHI(     973)-D01*PHI(     952)
      PHI(     974)=PHI(     974)-D01*PHI(     953)
      PHI(     975)=PHI(     975)-D02*PHI(     954)
      PHI(     945)=PHI(     945)-D01*PHI(     942)
      PHI(     946)=PHI(     946)-D01*PHI(     943)
      PHI(     948)=PHI(     948)-D01*PHI(     943)
      PHI(     949)=PHI(     949)-D01*PHI(     944)
      PHI(     951)=PHI(     951)-D01*PHI(     944)
      PHI(     954)=PHI(     954)-D01*PHI(     944)
      PHI(     955)=PHI(     955)-D03*PHI(     945)
      PHI(     956)=PHI(     956)-D03*PHI(     946)
      PHI(     958)=PHI(     958)-D01*PHI(     946)
      PHI(     959)=PHI(     959)-D02*PHI(     947)
      PHI(     960)=PHI(     960)-D03*PHI(     948)
      PHI(     961)=PHI(     961)-D03*PHI(     949)
      PHI(     963)=PHI(     963)-D01*PHI(     949)
      PHI(     964)=PHI(     964)-D02*PHI(     950)
      PHI(     965)=PHI(     965)-D03*PHI(     951)
      PHI(     970)=PHI(     970)-D01*PHI(     949)
      PHI(     971)=PHI(     971)-D01*PHI(     950)
      PHI(     972)=PHI(     972)-D01*PHI(     951)
      PHI(     973)=PHI(     973)-D02*PHI(     952)
      PHI(     974)=PHI(     974)-D02*PHI(     953)
      PHI(     975)=PHI(     975)-D03*PHI(     954)
      PHI(     945)=PHI(     945)-D02*PHI(     942)
      PHI(     947)=PHI(     947)-D01*PHI(     942)
      PHI(     948)=PHI(     948)-D02*PHI(     943)
      PHI(     952)=PHI(     952)-D01*PHI(     942)
      PHI(     953)=PHI(     953)-D01*PHI(     943)
      PHI(     954)=PHI(     954)-D02*PHI(     944)
      PHI(     955)=PHI(     955)-D04*PHI(     945)
      PHI(     957)=PHI(     957)-D01*PHI(     945)
      PHI(     958)=PHI(     958)-D02*PHI(     946)
      PHI(     959)=PHI(     959)-D03*PHI(     947)
      PHI(     960)=PHI(     960)-D04*PHI(     948)
      PHI(     966)=PHI(     966)-D01*PHI(     945)
      PHI(     967)=PHI(     967)-D01*PHI(     946)
      PHI(     968)=PHI(     968)-D01*PHI(     947)
      PHI(     969)=PHI(     969)-D01*PHI(     948)
      PHI(     970)=PHI(     970)-D02*PHI(     949)
      PHI(     971)=PHI(     971)-D02*PHI(     950)
      PHI(     972)=PHI(     972)-D02*PHI(     951)
      PHI(     973)=PHI(     973)-D03*PHI(     952)
      PHI(     974)=PHI(     974)-D03*PHI(     953)
      PHI(     975)=PHI(     975)-D04*PHI(     954)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(     119)+CONF( 1)*PHI(      91)
      WRK1(    3)= PHI(     120)+CONF( 2)*PHI(      91)
      WRK1(    4)= PHI(     121)+CONF( 3)*PHI(      91)
      WRK1(   10)= PHI(     276)+CONF( 1)*PHI(     152)
      WRK1(   11)= PHI(     277)+CONF( 1)*PHI(     153)
      WRK1(   12)= PHI(     278)+CONF( 2)*PHI(     153)
      WRK1(   13)= PHI(     279)+CONF( 1)*PHI(     154)
      WRK1(   14)= PHI(     280)+CONF( 2)*PHI(     154)
      WRK1(   15)= PHI(     281)+CONF( 3)*PHI(     154)
      WRK1(    7)= PHI(     152)+CONF( 1)*PHI(      97)
      WRK1(    8)= PHI(     153)+CONF( 2)*PHI(      97)
      WRK1(    9)= PHI(     154)+CONF( 3)*PHI(      97)
      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 FSPP_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    2)= PHI(     110)+CONF( 1)*PHI(      89)
      WRK1(    3)= PHI(     111)+CONF( 2)*PHI(      89)
      WRK1(    4)= PHI(     112)+CONF( 3)*PHI(      89)
      WRK1(   10)= PHI(     262)+CONF( 1)*PHI(     146)
      WRK1(   11)= PHI(     263)+CONF( 1)*PHI(     147)
      WRK1(   12)= PHI(     264)+CONF( 2)*PHI(     147)
      WRK1(   13)= PHI(     265)+CONF( 1)*PHI(     148)
      WRK1(   14)= PHI(     266)+CONF( 2)*PHI(     148)
      WRK1(   15)= PHI(     267)+CONF( 3)*PHI(     148)
      WRK1(    7)= PHI(     146)+CONF( 1)*PHI(      95)
      WRK1(    8)= PHI(     147)+CONF( 2)*PHI(      95)
      WRK1(    9)= PHI(     148)+CONF( 3)*PHI(      95)
      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 FSPP_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    2)=-PHI(     213)-CONF( 1)*PHI(     134)
      WRK1(    3)=-PHI(     214)-CONF( 2)*PHI(     134)
      WRK1(    4)=-PHI(     216)-CONF( 3)*PHI(     134)
      WRK1(   10)=-PHI(     510)-CONF( 1)*PHI(     311)
      WRK1(   11)=-PHI(     511)-CONF( 1)*PHI(     312)
      WRK1(   12)=-PHI(     512)-CONF( 2)*PHI(     312)
      WRK1(   13)=-PHI(     514)-CONF( 1)*PHI(     314)
      WRK1(   14)=-PHI(     515)-CONF( 2)*PHI(     314)
      WRK1(   15)=-PHI(     517)-CONF( 3)*PHI(     314)
      WRK1(    7)=-PHI(     311)-CONF( 1)*PHI(     167)
      WRK1(    8)=-PHI(     312)-CONF( 2)*PHI(     167)
      WRK1(    9)=-PHI(     314)-CONF( 3)*PHI(     167)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     116)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     116)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     116)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    2)=-PHI(     214)-CONF( 1)*PHI(     135)
      WRK1(    3)=-PHI(     215)-CONF( 2)*PHI(     135)
      WRK1(    4)=-PHI(     217)-CONF( 3)*PHI(     135)
      WRK1(   10)=-PHI(     511)-CONF( 1)*PHI(     312)
      WRK1(   11)=-PHI(     512)-CONF( 1)*PHI(     313)
      WRK1(   12)=-PHI(     513)-CONF( 2)*PHI(     313)
      WRK1(   13)=-PHI(     515)-CONF( 1)*PHI(     315)
      WRK1(   14)=-PHI(     516)-CONF( 2)*PHI(     315)
      WRK1(   15)=-PHI(     518)-CONF( 3)*PHI(     315)
      WRK1(    7)=-PHI(     312)-CONF( 1)*PHI(     168)
      WRK1(    8)=-PHI(     313)-CONF( 2)*PHI(     168)
      WRK1(    9)=-PHI(     315)-CONF( 3)*PHI(     168)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     117)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     117)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     117)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    2)=-PHI(     216)-CONF( 1)*PHI(     136)
      WRK1(    3)=-PHI(     217)-CONF( 2)*PHI(     136)
      WRK1(    4)=-PHI(     218)-CONF( 3)*PHI(     136)
      WRK1(   10)=-PHI(     514)-CONF( 1)*PHI(     314)
      WRK1(   11)=-PHI(     515)-CONF( 1)*PHI(     315)
      WRK1(   12)=-PHI(     516)-CONF( 2)*PHI(     315)
      WRK1(   13)=-PHI(     517)-CONF( 1)*PHI(     316)
      WRK1(   14)=-PHI(     518)-CONF( 2)*PHI(     316)
      WRK1(   15)=-PHI(     519)-CONF( 3)*PHI(     316)
      WRK1(    7)=-PHI(     314)-CONF( 1)*PHI(     169)
      WRK1(    8)=-PHI(     315)-CONF( 2)*PHI(     169)
      WRK1(    9)=-PHI(     316)-CONF( 3)*PHI(     169)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     118)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     118)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     118)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    2)=-PHI(     192)-CONF( 1)*PHI(     128)
      WRK1(    3)=-PHI(     193)-CONF( 2)*PHI(     128)
      WRK1(    4)=-PHI(     195)-CONF( 3)*PHI(     128)
      WRK1(   10)=-PHI(     484)-CONF( 1)*PHI(     297)
      WRK1(   11)=-PHI(     485)-CONF( 1)*PHI(     298)
      WRK1(   12)=-PHI(     486)-CONF( 2)*PHI(     298)
      WRK1(   13)=-PHI(     488)-CONF( 1)*PHI(     300)
      WRK1(   14)=-PHI(     489)-CONF( 2)*PHI(     300)
      WRK1(   15)=-PHI(     491)-CONF( 3)*PHI(     300)
      WRK1(    7)=-PHI(     297)-CONF( 1)*PHI(     161)
      WRK1(    8)=-PHI(     298)-CONF( 2)*PHI(     161)
      WRK1(    9)=-PHI(     300)-CONF( 3)*PHI(     161)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     107)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     107)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     107)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    2)=-PHI(     193)-CONF( 1)*PHI(     129)
      WRK1(    3)=-PHI(     194)-CONF( 2)*PHI(     129)
      WRK1(    4)=-PHI(     196)-CONF( 3)*PHI(     129)
      WRK1(   10)=-PHI(     485)-CONF( 1)*PHI(     298)
      WRK1(   11)=-PHI(     486)-CONF( 1)*PHI(     299)
      WRK1(   12)=-PHI(     487)-CONF( 2)*PHI(     299)
      WRK1(   13)=-PHI(     489)-CONF( 1)*PHI(     301)
      WRK1(   14)=-PHI(     490)-CONF( 2)*PHI(     301)
      WRK1(   15)=-PHI(     492)-CONF( 3)*PHI(     301)
      WRK1(    7)=-PHI(     298)-CONF( 1)*PHI(     162)
      WRK1(    8)=-PHI(     299)-CONF( 2)*PHI(     162)
      WRK1(    9)=-PHI(     301)-CONF( 3)*PHI(     162)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     108)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     108)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     108)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    2)=-PHI(     195)-CONF( 1)*PHI(     130)
      WRK1(    3)=-PHI(     196)-CONF( 2)*PHI(     130)
      WRK1(    4)=-PHI(     197)-CONF( 3)*PHI(     130)
      WRK1(   10)=-PHI(     488)-CONF( 1)*PHI(     300)
      WRK1(   11)=-PHI(     489)-CONF( 1)*PHI(     301)
      WRK1(   12)=-PHI(     490)-CONF( 2)*PHI(     301)
      WRK1(   13)=-PHI(     491)-CONF( 1)*PHI(     302)
      WRK1(   14)=-PHI(     492)-CONF( 2)*PHI(     302)
      WRK1(   15)=-PHI(     493)-CONF( 3)*PHI(     302)
      WRK1(    7)=-PHI(     300)-CONF( 1)*PHI(     163)
      WRK1(    8)=-PHI(     301)-CONF( 2)*PHI(     163)
      WRK1(    9)=-PHI(     302)-CONF( 3)*PHI(     163)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     109)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     109)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     109)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    2)= PHI(     393)+CONF( 1)*PHI(     234)
      WRK1(    3)= PHI(     394)+CONF( 2)*PHI(     234)
      WRK1(    4)= PHI(     397)+CONF( 3)*PHI(     234)
      WRK1(   10)= PHI(     759)+CONF( 1)*PHI(     549)
      WRK1(   11)= PHI(     760)+CONF( 1)*PHI(     550)
      WRK1(   12)= PHI(     761)+CONF( 2)*PHI(     550)
      WRK1(   13)= PHI(     764)+CONF( 1)*PHI(     553)
      WRK1(   14)= PHI(     765)+CONF( 2)*PHI(     553)
      WRK1(   15)= PHI(     768)+CONF( 3)*PHI(     553)
      WRK1(    7)= PHI(     549)+CONF( 1)*PHI(     332)
      WRK1(    8)= PHI(     550)+CONF( 2)*PHI(     332)
      WRK1(    9)= PHI(     553)+CONF( 3)*PHI(     332)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     206)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     206)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     206)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    2)= PHI(     394)+CONF( 1)*PHI(     235)
      WRK1(    3)= PHI(     395)+CONF( 2)*PHI(     235)
      WRK1(    4)= PHI(     398)+CONF( 3)*PHI(     235)
      WRK1(   10)= PHI(     760)+CONF( 1)*PHI(     550)
      WRK1(   11)= PHI(     761)+CONF( 1)*PHI(     551)
      WRK1(   12)= PHI(     762)+CONF( 2)*PHI(     551)
      WRK1(   13)= PHI(     765)+CONF( 1)*PHI(     554)
      WRK1(   14)= PHI(     766)+CONF( 2)*PHI(     554)
      WRK1(   15)= PHI(     769)+CONF( 3)*PHI(     554)
      WRK1(    7)= PHI(     550)+CONF( 1)*PHI(     333)
      WRK1(    8)= PHI(     551)+CONF( 2)*PHI(     333)
      WRK1(    9)= PHI(     554)+CONF( 3)*PHI(     333)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     207)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     207)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     207)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    2)= PHI(     395)+CONF( 1)*PHI(     236)
      WRK1(    3)= PHI(     396)+CONF( 2)*PHI(     236)
      WRK1(    4)= PHI(     399)+CONF( 3)*PHI(     236)
      WRK1(   10)= PHI(     761)+CONF( 1)*PHI(     551)
      WRK1(   11)= PHI(     762)+CONF( 1)*PHI(     552)
      WRK1(   12)= PHI(     763)+CONF( 2)*PHI(     552)
      WRK1(   13)= PHI(     766)+CONF( 1)*PHI(     555)
      WRK1(   14)= PHI(     767)+CONF( 2)*PHI(     555)
      WRK1(   15)= PHI(     770)+CONF( 3)*PHI(     555)
      WRK1(    7)= PHI(     551)+CONF( 1)*PHI(     334)
      WRK1(    8)= PHI(     552)+CONF( 2)*PHI(     334)
      WRK1(    9)= PHI(     555)+CONF( 3)*PHI(     334)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     208)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     208)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     208)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   11)
      WRK1(    2)= PHI(     397)+CONF( 1)*PHI(     237)
      WRK1(    3)= PHI(     398)+CONF( 2)*PHI(     237)
      WRK1(    4)= PHI(     400)+CONF( 3)*PHI(     237)
      WRK1(   10)= PHI(     764)+CONF( 1)*PHI(     553)
      WRK1(   11)= PHI(     765)+CONF( 1)*PHI(     554)
      WRK1(   12)= PHI(     766)+CONF( 2)*PHI(     554)
      WRK1(   13)= PHI(     768)+CONF( 1)*PHI(     556)
      WRK1(   14)= PHI(     769)+CONF( 2)*PHI(     556)
      WRK1(   15)= PHI(     771)+CONF( 3)*PHI(     556)
      WRK1(    7)= PHI(     553)+CONF( 1)*PHI(     335)
      WRK1(    8)= PHI(     554)+CONF( 2)*PHI(     335)
      WRK1(    9)= PHI(     556)+CONF( 3)*PHI(     335)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     209)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     209)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     209)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   12)
      WRK1(    2)= PHI(     398)+CONF( 1)*PHI(     238)
      WRK1(    3)= PHI(     399)+CONF( 2)*PHI(     238)
      WRK1(    4)= PHI(     401)+CONF( 3)*PHI(     238)
      WRK1(   10)= PHI(     765)+CONF( 1)*PHI(     554)
      WRK1(   11)= PHI(     766)+CONF( 1)*PHI(     555)
      WRK1(   12)= PHI(     767)+CONF( 2)*PHI(     555)
      WRK1(   13)= PHI(     769)+CONF( 1)*PHI(     557)
      WRK1(   14)= PHI(     770)+CONF( 2)*PHI(     557)
      WRK1(   15)= PHI(     772)+CONF( 3)*PHI(     557)
      WRK1(    7)= PHI(     554)+CONF( 1)*PHI(     336)
      WRK1(    8)= PHI(     555)+CONF( 2)*PHI(     336)
      WRK1(    9)= PHI(     557)+CONF( 3)*PHI(     336)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     210)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     210)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     210)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   13)
      WRK1(    2)= PHI(     400)+CONF( 1)*PHI(     239)
      WRK1(    3)= PHI(     401)+CONF( 2)*PHI(     239)
      WRK1(    4)= PHI(     402)+CONF( 3)*PHI(     239)
      WRK1(   10)= PHI(     768)+CONF( 1)*PHI(     556)
      WRK1(   11)= PHI(     769)+CONF( 1)*PHI(     557)
      WRK1(   12)= PHI(     770)+CONF( 2)*PHI(     557)
      WRK1(   13)= PHI(     771)+CONF( 1)*PHI(     558)
      WRK1(   14)= PHI(     772)+CONF( 2)*PHI(     558)
      WRK1(   15)= PHI(     773)+CONF( 3)*PHI(     558)
      WRK1(    7)= PHI(     556)+CONF( 1)*PHI(     337)
      WRK1(    8)= PHI(     557)+CONF( 2)*PHI(     337)
      WRK1(    9)= PHI(     558)+CONF( 3)*PHI(     337)
      WRK1(   10)=WRK1(   10)+CONF( 4)*PHI(     211)
      WRK1(   12)=WRK1(   12)+CONF( 4)*PHI(     211)
      WRK1(   15)=WRK1(   15)+CONF( 4)*PHI(     211)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   14)
      WRK1(    2)=-PHI(     671)-CONF( 1)*PHI(     432)
      WRK1(    3)=-PHI(     672)-CONF( 2)*PHI(     432)
      WRK1(    4)=-PHI(     676)-CONF( 3)*PHI(     432)
      WRK1(   10)=-PHI(     955)-CONF( 1)*PHI(     825)
      WRK1(   11)=-PHI(     956)-CONF( 1)*PHI(     826)
      WRK1(   12)=-PHI(     957)-CONF( 2)*PHI(     826)
      WRK1(   13)=-PHI(     961)-CONF( 1)*PHI(     830)
      WRK1(   14)=-PHI(     962)-CONF( 2)*PHI(     830)
      WRK1(   15)=-PHI(     966)-CONF( 3)*PHI(     830)
      WRK1(    7)=-PHI(     825)-CONF( 1)*PHI(     588)
      WRK1(    8)=-PHI(     826)-CONF( 2)*PHI(     588)
      WRK1(    9)=-PHI(     830)-CONF( 3)*PHI(     588)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     380)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     380)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     380)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   15)
      WRK1(    2)=-PHI(     672)-CONF( 1)*PHI(     433)
      WRK1(    3)=-PHI(     673)-CONF( 2)*PHI(     433)
      WRK1(    4)=-PHI(     677)-CONF( 3)*PHI(     433)
      WRK1(   10)=-PHI(     956)-CONF( 1)*PHI(     826)
      WRK1(   11)=-PHI(     957)-CONF( 1)*PHI(     827)
      WRK1(   12)=-PHI(     958)-CONF( 2)*PHI(     827)
      WRK1(   13)=-PHI(     962)-CONF( 1)*PHI(     831)
      WRK1(   14)=-PHI(     963)-CONF( 2)*PHI(     831)
      WRK1(   15)=-PHI(     967)-CONF( 3)*PHI(     831)
      WRK1(    7)=-PHI(     826)-CONF( 1)*PHI(     589)
      WRK1(    8)=-PHI(     827)-CONF( 2)*PHI(     589)
      WRK1(    9)=-PHI(     831)-CONF( 3)*PHI(     589)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     381)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     381)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     381)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   16)
      WRK1(    2)=-PHI(     673)-CONF( 1)*PHI(     434)
      WRK1(    3)=-PHI(     674)-CONF( 2)*PHI(     434)
      WRK1(    4)=-PHI(     678)-CONF( 3)*PHI(     434)
      WRK1(   10)=-PHI(     957)-CONF( 1)*PHI(     827)
      WRK1(   11)=-PHI(     958)-CONF( 1)*PHI(     828)
      WRK1(   12)=-PHI(     959)-CONF( 2)*PHI(     828)
      WRK1(   13)=-PHI(     963)-CONF( 1)*PHI(     832)
      WRK1(   14)=-PHI(     964)-CONF( 2)*PHI(     832)
      WRK1(   15)=-PHI(     968)-CONF( 3)*PHI(     832)
      WRK1(    7)=-PHI(     827)-CONF( 1)*PHI(     590)
      WRK1(    8)=-PHI(     828)-CONF( 2)*PHI(     590)
      WRK1(    9)=-PHI(     832)-CONF( 3)*PHI(     590)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     382)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     382)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     382)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   17)
      WRK1(    2)=-PHI(     674)-CONF( 1)*PHI(     435)
      WRK1(    3)=-PHI(     675)-CONF( 2)*PHI(     435)
      WRK1(    4)=-PHI(     679)-CONF( 3)*PHI(     435)
      WRK1(   10)=-PHI(     958)-CONF( 1)*PHI(     828)
      WRK1(   11)=-PHI(     959)-CONF( 1)*PHI(     829)
      WRK1(   12)=-PHI(     960)-CONF( 2)*PHI(     829)
      WRK1(   13)=-PHI(     964)-CONF( 1)*PHI(     833)
      WRK1(   14)=-PHI(     965)-CONF( 2)*PHI(     833)
      WRK1(   15)=-PHI(     969)-CONF( 3)*PHI(     833)
      WRK1(    7)=-PHI(     828)-CONF( 1)*PHI(     591)
      WRK1(    8)=-PHI(     829)-CONF( 2)*PHI(     591)
      WRK1(    9)=-PHI(     833)-CONF( 3)*PHI(     591)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     383)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     383)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     383)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   18)
      WRK1(    2)=-PHI(     676)-CONF( 1)*PHI(     436)
      WRK1(    3)=-PHI(     677)-CONF( 2)*PHI(     436)
      WRK1(    4)=-PHI(     680)-CONF( 3)*PHI(     436)
      WRK1(   10)=-PHI(     961)-CONF( 1)*PHI(     830)
      WRK1(   11)=-PHI(     962)-CONF( 1)*PHI(     831)
      WRK1(   12)=-PHI(     963)-CONF( 2)*PHI(     831)
      WRK1(   13)=-PHI(     966)-CONF( 1)*PHI(     834)
      WRK1(   14)=-PHI(     967)-CONF( 2)*PHI(     834)
      WRK1(   15)=-PHI(     970)-CONF( 3)*PHI(     834)
      WRK1(    7)=-PHI(     830)-CONF( 1)*PHI(     592)
      WRK1(    8)=-PHI(     831)-CONF( 2)*PHI(     592)
      WRK1(    9)=-PHI(     834)-CONF( 3)*PHI(     592)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     384)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     384)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     384)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   19)
      WRK1(    2)=-PHI(     677)-CONF( 1)*PHI(     437)
      WRK1(    3)=-PHI(     678)-CONF( 2)*PHI(     437)
      WRK1(    4)=-PHI(     681)-CONF( 3)*PHI(     437)
      WRK1(   10)=-PHI(     962)-CONF( 1)*PHI(     831)
      WRK1(   11)=-PHI(     963)-CONF( 1)*PHI(     832)
      WRK1(   12)=-PHI(     964)-CONF( 2)*PHI(     832)
      WRK1(   13)=-PHI(     967)-CONF( 1)*PHI(     835)
      WRK1(   14)=-PHI(     968)-CONF( 2)*PHI(     835)
      WRK1(   15)=-PHI(     971)-CONF( 3)*PHI(     835)
      WRK1(    7)=-PHI(     831)-CONF( 1)*PHI(     593)
      WRK1(    8)=-PHI(     832)-CONF( 2)*PHI(     593)
      WRK1(    9)=-PHI(     835)-CONF( 3)*PHI(     593)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     385)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     385)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     385)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   20)
      WRK1(    2)=-PHI(     678)-CONF( 1)*PHI(     438)
      WRK1(    3)=-PHI(     679)-CONF( 2)*PHI(     438)
      WRK1(    4)=-PHI(     682)-CONF( 3)*PHI(     438)
      WRK1(   10)=-PHI(     963)-CONF( 1)*PHI(     832)
      WRK1(   11)=-PHI(     964)-CONF( 1)*PHI(     833)
      WRK1(   12)=-PHI(     965)-CONF( 2)*PHI(     833)
      WRK1(   13)=-PHI(     968)-CONF( 1)*PHI(     836)
      WRK1(   14)=-PHI(     969)-CONF( 2)*PHI(     836)
      WRK1(   15)=-PHI(     972)-CONF( 3)*PHI(     836)
      WRK1(    7)=-PHI(     832)-CONF( 1)*PHI(     594)
      WRK1(    8)=-PHI(     833)-CONF( 2)*PHI(     594)
      WRK1(    9)=-PHI(     836)-CONF( 3)*PHI(     594)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     386)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     386)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     386)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   21)
      WRK1(    2)=-PHI(     680)-CONF( 1)*PHI(     439)
      WRK1(    3)=-PHI(     681)-CONF( 2)*PHI(     439)
      WRK1(    4)=-PHI(     683)-CONF( 3)*PHI(     439)
      WRK1(   10)=-PHI(     966)-CONF( 1)*PHI(     834)
      WRK1(   11)=-PHI(     967)-CONF( 1)*PHI(     835)
      WRK1(   12)=-PHI(     968)-CONF( 2)*PHI(     835)
      WRK1(   13)=-PHI(     970)-CONF( 1)*PHI(     837)
      WRK1(   14)=-PHI(     971)-CONF( 2)*PHI(     837)
      WRK1(   15)=-PHI(     973)-CONF( 3)*PHI(     837)
      WRK1(    7)=-PHI(     834)-CONF( 1)*PHI(     595)
      WRK1(    8)=-PHI(     835)-CONF( 2)*PHI(     595)
      WRK1(    9)=-PHI(     837)-CONF( 3)*PHI(     595)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     387)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     387)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     387)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   22)
      WRK1(    2)=-PHI(     681)-CONF( 1)*PHI(     440)
      WRK1(    3)=-PHI(     682)-CONF( 2)*PHI(     440)
      WRK1(    4)=-PHI(     684)-CONF( 3)*PHI(     440)
      WRK1(   10)=-PHI(     967)-CONF( 1)*PHI(     835)
      WRK1(   11)=-PHI(     968)-CONF( 1)*PHI(     836)
      WRK1(   12)=-PHI(     969)-CONF( 2)*PHI(     836)
      WRK1(   13)=-PHI(     971)-CONF( 1)*PHI(     838)
      WRK1(   14)=-PHI(     972)-CONF( 2)*PHI(     838)
      WRK1(   15)=-PHI(     974)-CONF( 3)*PHI(     838)
      WRK1(    7)=-PHI(     835)-CONF( 1)*PHI(     596)
      WRK1(    8)=-PHI(     836)-CONF( 2)*PHI(     596)
      WRK1(    9)=-PHI(     838)-CONF( 3)*PHI(     596)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     388)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     388)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     388)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   23)
      WRK1(    2)=-PHI(     683)-CONF( 1)*PHI(     441)
      WRK1(    3)=-PHI(     684)-CONF( 2)*PHI(     441)
      WRK1(    4)=-PHI(     685)-CONF( 3)*PHI(     441)
      WRK1(   10)=-PHI(     970)-CONF( 1)*PHI(     837)
      WRK1(   11)=-PHI(     971)-CONF( 1)*PHI(     838)
      WRK1(   12)=-PHI(     972)-CONF( 2)*PHI(     838)
      WRK1(   13)=-PHI(     973)-CONF( 1)*PHI(     839)
      WRK1(   14)=-PHI(     974)-CONF( 2)*PHI(     839)
      WRK1(   15)=-PHI(     975)-CONF( 3)*PHI(     839)
      WRK1(    7)=-PHI(     837)-CONF( 1)*PHI(     597)
      WRK1(    8)=-PHI(     838)-CONF( 2)*PHI(     597)
      WRK1(    9)=-PHI(     839)-CONF( 3)*PHI(     597)
      WRK1(   10)=WRK1(   10)-CONF( 4)*PHI(     389)
      WRK1(   12)=WRK1(   12)-CONF( 4)*PHI(     389)
      WRK1(   15)=WRK1(   15)-CONF( 4)*PHI(     389)
      CALL FSPP_BCTE(WRK1,WRK2,LENW,CONF,   24)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     9
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      END DO
      RETURN
      END
C*MODULE INT2F   *DECK FSPP_BCTE
      SUBROUTINE FSPP_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=     768
C  LWK1=      11
C  LWK2=     144
C  LENW=      24
C*MODULE INT2F   *DECK FSDS
      SUBROUTINE FSDS (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(      90)=ZERO
      PHI(      92)=ZERO
      PHI(     102)=ZERO
      PHI(     103)=ZERO
      PHI(     104)=ZERO
      PHI(     108)=ZERO
      PHI(     109)=ZERO
      PHI(     110)=ZERO
      PHI(     120)=ZERO
      PHI(     121)=ZERO
      PHI(     122)=ZERO
      PHI(     126)=ZERO
      PHI(     127)=ZERO
      PHI(     128)=ZERO
      PHI(     135)=ZERO
      PHI(     136)=ZERO
      PHI(     137)=ZERO
      PHI(     141)=ZERO
      PHI(     142)=ZERO
      PHI(     143)=ZERO
      DO I=     165,     171
      PHI(I)=ZERO
      END DO
      DO I=     193,     199
      PHI(I)=ZERO
      END DO
      DO I=     207,     213
      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=     263,     269
      PHI(I)=ZERO
      END DO
      DO I=     309,     321
      PHI(I)=ZERO
      END DO
      DO I=     361,     373
      PHI(I)=ZERO
      END DO
      DO I=     387,     399
      PHI(I)=ZERO
      END DO
      DO I=     426,     438
      PHI(I)=ZERO
      END DO
      DO I=     465,     477
      PHI(I)=ZERO
      END DO
      DO I=     544,     565
      PHI(I)=ZERO
      END DO
      DO I=     610,     631
      PHI(I)=ZERO
      END DO
      DO I=     734,     767
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      85)=ZERO
      PHI(      89)=ZERO
      PHI(      91)=ZERO
      PHI(      99)=ZERO
      PHI(     100)=ZERO
      PHI(     101)=ZERO
      PHI(     105)=ZERO
      PHI(     106)=ZERO
      PHI(     107)=ZERO
      PHI(     117)=ZERO
      PHI(     118)=ZERO
      PHI(     119)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     125)=ZERO
      PHI(     132)=ZERO
      PHI(     133)=ZERO
      PHI(     134)=ZERO
      PHI(     138)=ZERO
      PHI(     139)=ZERO
      PHI(     140)=ZERO
      DO I=     158,     164
      PHI(I)=ZERO
      END DO
      DO I=     186,     192
      PHI(I)=ZERO
      END DO
      DO I=     200,     206
      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=     296,     308
      PHI(I)=ZERO
      END DO
      DO I=     348,     360
      PHI(I)=ZERO
      END DO
      DO I=     374,     386
      PHI(I)=ZERO
      END DO
      DO I=     413,     425
      PHI(I)=ZERO
      END DO
      DO I=     452,     464
      PHI(I)=ZERO
      END DO
      DO I=     522,     543
      PHI(I)=ZERO
      END DO
      DO I=     588,     609
      PHI(I)=ZERO
      END DO
      DO I=     700,     733
      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(      88)=ZERO
      PHI(      96)=ZERO
      PHI(      97)=ZERO
      PHI(      98)=ZERO
      PHI(     114)=ZERO
      PHI(     115)=ZERO
      PHI(     116)=ZERO
      PHI(     129)=ZERO
      PHI(     130)=ZERO
      PHI(     131)=ZERO
      DO I=     151,     157
      PHI(I)=ZERO
      END DO
      DO I=     179,     185
      PHI(I)=ZERO
      END DO
      DO I=     214,     220
      PHI(I)=ZERO
      END DO
      DO I=     249,     255
      PHI(I)=ZERO
      END DO
      DO I=     283,     295
      PHI(I)=ZERO
      END DO
      DO I=     335,     347
      PHI(I)=ZERO
      END DO
      DO I=     400,     412
      PHI(I)=ZERO
      END DO
      DO I=     439,     451
      PHI(I)=ZERO
      END DO
      DO I=     500,     521
      PHI(I)=ZERO
      END DO
      DO I=     566,     587
      PHI(I)=ZERO
      END DO
      DO I=     666,     699
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      87)=ZERO
      PHI(      93)=ZERO
      PHI(      94)=ZERO
      PHI(      95)=ZERO
      PHI(     111)=ZERO
      PHI(     112)=ZERO
      PHI(     113)=ZERO
      DO I=     144,     150
      PHI(I)=ZERO
      END DO
      DO I=     172,     178
      PHI(I)=ZERO
      END DO
      DO I=     270,     282
      PHI(I)=ZERO
      END DO
      DO I=     322,     334
      PHI(I)=ZERO
      END DO
      DO I=     478,     499
      PHI(I)=ZERO
      END DO
      DO I=     632,     665
      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(      87)=PHI(      87)+FAC*PHI(       1)
      FAC=SFAC( 2)
      PHI(      93)=PHI(      93)+FAC*PHI(       2)
      PHI(      94)=PHI(      94)+FAC*PHI(       3)
      PHI(      95)=PHI(      95)+FAC*PHI(       4)
      FAC=SFAC( 3)
      PHI(     111)=PHI(     111)+FAC*PHI(       2)
      PHI(     112)=PHI(     112)+FAC*PHI(       3)
      PHI(     113)=PHI(     113)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     144,     150
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=       5
      DO I=     172,     178
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     270,     282
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      12
      DO I=     322,     334
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      25
      DO I=     478,     499
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=      47
      DO I=     632,     665
      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(      88)=PHI(      88)+FAC*PHI(      87)
      FAC=SFAC( 1)
      PHI(      96)=PHI(      96)+FAC*PHI(      93)
      PHI(      97)=PHI(      97)+FAC*PHI(      94)
      PHI(      98)=PHI(      98)+FAC*PHI(      95)
      FAC=SFAC( 2)
      PHI(     114)=PHI(     114)+FAC*PHI(     111)
      PHI(     115)=PHI(     115)+FAC*PHI(     112)
      PHI(     116)=PHI(     116)+FAC*PHI(     113)
      FAC=SFAC( 3)
      PHI(     129)=PHI(     129)+FAC*PHI(     111)
      PHI(     130)=PHI(     130)+FAC*PHI(     112)
      PHI(     131)=PHI(     131)+FAC*PHI(     113)
      FAC=SFAC( 1)
      J=     144
      DO I=     151,     157
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     172
      DO I=     179,     185
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     172
      DO I=     214,     220
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     172
      DO I=     249,     255
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     270
      DO I=     283,     295
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     322
      DO I=     335,     347
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     322
      DO I=     400,     412
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     322
      DO I=     439,     451
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     478
      DO I=     500,     521
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     478
      DO I=     566,     587
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     632
      DO I=     666,     699
      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( 3)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      85)=PHI(      85)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(      89)=PHI(      89)+FAC*PHI(      88)
      FAC=SFAC( 4)
      PHI(      91)=PHI(      91)+FAC*PHI(      88)
      FAC=SFAC( 3)
      PHI(      99)=PHI(      99)+FAC*PHI(      96)
      PHI(     100)=PHI(     100)+FAC*PHI(      97)
      PHI(     101)=PHI(     101)+FAC*PHI(      98)
      FAC=SFAC( 4)
      PHI(     105)=PHI(     105)+FAC*PHI(      96)
      PHI(     106)=PHI(     106)+FAC*PHI(      97)
      PHI(     107)=PHI(     107)+FAC*PHI(      98)
      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( 4)
      PHI(     123)=PHI(     123)+FAC*PHI(     114)
      PHI(     124)=PHI(     124)+FAC*PHI(     115)
      PHI(     125)=PHI(     125)+FAC*PHI(     116)
      FAC=SFAC( 3)
      PHI(     132)=PHI(     132)+FAC*PHI(     129)
      PHI(     133)=PHI(     133)+FAC*PHI(     130)
      PHI(     134)=PHI(     134)+FAC*PHI(     131)
      FAC=SFAC( 4)
      PHI(     138)=PHI(     138)+FAC*PHI(     129)
      PHI(     139)=PHI(     139)+FAC*PHI(     130)
      PHI(     140)=PHI(     140)+FAC*PHI(     131)
      FAC=SFAC( 4)
      J=     151
      DO I=     158,     164
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     179
      DO I=     186,     192
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     179
      DO I=     200,     206
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     214
      DO I=     221,     227
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     214
      DO I=     235,     241
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     249
      DO I=     256,     262
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     283
      DO I=     296,     308
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     335
      DO I=     348,     360
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     335
      DO I=     374,     386
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     400
      DO I=     413,     425
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     439
      DO I=     452,     464
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     500
      DO I=     522,     543
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     566
      DO I=     588,     609
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     666
      DO I=     700,     733
      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( 2)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 4)
      PHI(      86)=PHI(      86)+FAC*PHI(      85)
      FAC=SFAC( 2)
      PHI(      90)=PHI(      90)+FAC*PHI(      89)
      FAC=SFAC( 4)
      PHI(      92)=PHI(      92)+FAC*PHI(      91)
      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( 3)
      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(     120)=PHI(     120)+FAC*PHI(     117)
      PHI(     121)=PHI(     121)+FAC*PHI(     118)
      PHI(     122)=PHI(     122)+FAC*PHI(     119)
      FAC=SFAC( 4)
      PHI(     126)=PHI(     126)+FAC*PHI(     123)
      PHI(     127)=PHI(     127)+FAC*PHI(     124)
      PHI(     128)=PHI(     128)+FAC*PHI(     125)
      FAC=SFAC( 1)
      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(     141)=PHI(     141)+FAC*PHI(     138)
      PHI(     142)=PHI(     142)+FAC*PHI(     139)
      PHI(     143)=PHI(     143)+FAC*PHI(     140)
      FAC=SFAC( 2)
      J=     158
      DO I=     165,     171
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     186
      DO I=     193,     199
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     200
      DO I=     207,     213
      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( 3)
      J=     235
      DO I=     242,     248
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     256
      DO I=     263,     269
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     296
      DO I=     309,     321
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     348
      DO I=     361,     373
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     374
      DO I=     387,     399
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     413
      DO I=     426,     438
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     452
      DO I=     465,     477
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     522
      DO I=     544,     565
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     588
      DO I=     610,     631
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     700
      DO I=     734,     767
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     166)=PHI(     166)-D01*PHI(     165)
      PHI(     168)=PHI(     168)-D01*PHI(     165)
      PHI(     171)=PHI(     171)-D01*PHI(     165)
      PHI(     194)=PHI(     194)-D01*PHI(     193)
      PHI(     196)=PHI(     196)-D01*PHI(     193)
      PHI(     199)=PHI(     199)-D01*PHI(     193)
      PHI(     208)=PHI(     208)-D01*PHI(     207)
      PHI(     210)=PHI(     210)-D01*PHI(     207)
      PHI(     213)=PHI(     213)-D01*PHI(     207)
      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(     264)=PHI(     264)-D01*PHI(     263)
      PHI(     266)=PHI(     266)-D01*PHI(     263)
      PHI(     269)=PHI(     269)-D01*PHI(     263)
      PHI(     312)=PHI(     312)-D01*PHI(     309)
      PHI(     313)=PHI(     313)-D01*PHI(     310)
      PHI(     315)=PHI(     315)-D01*PHI(     310)
      PHI(     316)=PHI(     316)-D01*PHI(     311)
      PHI(     318)=PHI(     318)-D01*PHI(     311)
      PHI(     321)=PHI(     321)-D01*PHI(     311)
      PHI(     312)=PHI(     312)-D02*PHI(     309)
      PHI(     314)=PHI(     314)-D01*PHI(     309)
      PHI(     315)=PHI(     315)-D02*PHI(     310)
      PHI(     319)=PHI(     319)-D01*PHI(     309)
      PHI(     320)=PHI(     320)-D01*PHI(     310)
      PHI(     321)=PHI(     321)-D02*PHI(     311)
      PHI(     364)=PHI(     364)-D01*PHI(     361)
      PHI(     365)=PHI(     365)-D01*PHI(     362)
      PHI(     367)=PHI(     367)-D01*PHI(     362)
      PHI(     368)=PHI(     368)-D01*PHI(     363)
      PHI(     370)=PHI(     370)-D01*PHI(     363)
      PHI(     373)=PHI(     373)-D01*PHI(     363)
      PHI(     364)=PHI(     364)-D02*PHI(     361)
      PHI(     366)=PHI(     366)-D01*PHI(     361)
      PHI(     367)=PHI(     367)-D02*PHI(     362)
      PHI(     371)=PHI(     371)-D01*PHI(     361)
      PHI(     372)=PHI(     372)-D01*PHI(     362)
      PHI(     373)=PHI(     373)-D02*PHI(     363)
      PHI(     390)=PHI(     390)-D01*PHI(     387)
      PHI(     391)=PHI(     391)-D01*PHI(     388)
      PHI(     393)=PHI(     393)-D01*PHI(     388)
      PHI(     394)=PHI(     394)-D01*PHI(     389)
      PHI(     396)=PHI(     396)-D01*PHI(     389)
      PHI(     399)=PHI(     399)-D01*PHI(     389)
      PHI(     390)=PHI(     390)-D02*PHI(     387)
      PHI(     392)=PHI(     392)-D01*PHI(     387)
      PHI(     393)=PHI(     393)-D02*PHI(     388)
      PHI(     397)=PHI(     397)-D01*PHI(     387)
      PHI(     398)=PHI(     398)-D01*PHI(     388)
      PHI(     399)=PHI(     399)-D02*PHI(     389)
      PHI(     429)=PHI(     429)-D01*PHI(     426)
      PHI(     430)=PHI(     430)-D01*PHI(     427)
      PHI(     432)=PHI(     432)-D01*PHI(     427)
      PHI(     433)=PHI(     433)-D01*PHI(     428)
      PHI(     435)=PHI(     435)-D01*PHI(     428)
      PHI(     438)=PHI(     438)-D01*PHI(     428)
      PHI(     429)=PHI(     429)-D02*PHI(     426)
      PHI(     431)=PHI(     431)-D01*PHI(     426)
      PHI(     432)=PHI(     432)-D02*PHI(     427)
      PHI(     436)=PHI(     436)-D01*PHI(     426)
      PHI(     437)=PHI(     437)-D01*PHI(     427)
      PHI(     438)=PHI(     438)-D02*PHI(     428)
      PHI(     468)=PHI(     468)-D01*PHI(     465)
      PHI(     469)=PHI(     469)-D01*PHI(     466)
      PHI(     471)=PHI(     471)-D01*PHI(     466)
      PHI(     472)=PHI(     472)-D01*PHI(     467)
      PHI(     474)=PHI(     474)-D01*PHI(     467)
      PHI(     477)=PHI(     477)-D01*PHI(     467)
      PHI(     468)=PHI(     468)-D02*PHI(     465)
      PHI(     470)=PHI(     470)-D01*PHI(     465)
      PHI(     471)=PHI(     471)-D02*PHI(     466)
      PHI(     475)=PHI(     475)-D01*PHI(     465)
      PHI(     476)=PHI(     476)-D01*PHI(     466)
      PHI(     477)=PHI(     477)-D02*PHI(     467)
      PHI(     551)=PHI(     551)-D01*PHI(     545)
      PHI(     552)=PHI(     552)-D01*PHI(     546)
      PHI(     553)=PHI(     553)-D01*PHI(     547)
      PHI(     555)=PHI(     555)-D01*PHI(     547)
      PHI(     556)=PHI(     556)-D01*PHI(     548)
      PHI(     557)=PHI(     557)-D01*PHI(     549)
      PHI(     559)=PHI(     559)-D01*PHI(     549)
      PHI(     560)=PHI(     560)-D01*PHI(     550)
      PHI(     562)=PHI(     562)-D01*PHI(     550)
      PHI(     565)=PHI(     565)-D01*PHI(     550)
      PHI(     551)=PHI(     551)-D02*PHI(     545)
      PHI(     552)=PHI(     552)-D02*PHI(     546)
      PHI(     554)=PHI(     554)-D01*PHI(     546)
      PHI(     555)=PHI(     555)-D02*PHI(     547)
      PHI(     556)=PHI(     556)-D02*PHI(     548)
      PHI(     558)=PHI(     558)-D01*PHI(     548)
      PHI(     559)=PHI(     559)-D02*PHI(     549)
      PHI(     563)=PHI(     563)-D01*PHI(     548)
      PHI(     564)=PHI(     564)-D01*PHI(     549)
      PHI(     565)=PHI(     565)-D02*PHI(     550)
      PHI(     545)=PHI(     545)-D01*PHI(     544)
      PHI(     547)=PHI(     547)-D01*PHI(     544)
      PHI(     550)=PHI(     550)-D01*PHI(     544)
      PHI(     551)=PHI(     551)-D03*PHI(     545)
      PHI(     553)=PHI(     553)-D01*PHI(     545)
      PHI(     554)=PHI(     554)-D02*PHI(     546)
      PHI(     555)=PHI(     555)-D03*PHI(     547)
      PHI(     560)=PHI(     560)-D01*PHI(     545)
      PHI(     561)=PHI(     561)-D01*PHI(     546)
      PHI(     562)=PHI(     562)-D01*PHI(     547)
      PHI(     563)=PHI(     563)-D02*PHI(     548)
      PHI(     564)=PHI(     564)-D02*PHI(     549)
      PHI(     565)=PHI(     565)-D03*PHI(     550)
      PHI(     617)=PHI(     617)-D01*PHI(     611)
      PHI(     618)=PHI(     618)-D01*PHI(     612)
      PHI(     619)=PHI(     619)-D01*PHI(     613)
      PHI(     621)=PHI(     621)-D01*PHI(     613)
      PHI(     622)=PHI(     622)-D01*PHI(     614)
      PHI(     623)=PHI(     623)-D01*PHI(     615)
      PHI(     625)=PHI(     625)-D01*PHI(     615)
      PHI(     626)=PHI(     626)-D01*PHI(     616)
      PHI(     628)=PHI(     628)-D01*PHI(     616)
      PHI(     631)=PHI(     631)-D01*PHI(     616)
      PHI(     617)=PHI(     617)-D02*PHI(     611)
      PHI(     618)=PHI(     618)-D02*PHI(     612)
      PHI(     620)=PHI(     620)-D01*PHI(     612)
      PHI(     621)=PHI(     621)-D02*PHI(     613)
      PHI(     622)=PHI(     622)-D02*PHI(     614)
      PHI(     624)=PHI(     624)-D01*PHI(     614)
      PHI(     625)=PHI(     625)-D02*PHI(     615)
      PHI(     629)=PHI(     629)-D01*PHI(     614)
      PHI(     630)=PHI(     630)-D01*PHI(     615)
      PHI(     631)=PHI(     631)-D02*PHI(     616)
      PHI(     611)=PHI(     611)-D01*PHI(     610)
      PHI(     613)=PHI(     613)-D01*PHI(     610)
      PHI(     616)=PHI(     616)-D01*PHI(     610)
      PHI(     617)=PHI(     617)-D03*PHI(     611)
      PHI(     619)=PHI(     619)-D01*PHI(     611)
      PHI(     620)=PHI(     620)-D02*PHI(     612)
      PHI(     621)=PHI(     621)-D03*PHI(     613)
      PHI(     626)=PHI(     626)-D01*PHI(     611)
      PHI(     627)=PHI(     627)-D01*PHI(     612)
      PHI(     628)=PHI(     628)-D01*PHI(     613)
      PHI(     629)=PHI(     629)-D02*PHI(     614)
      PHI(     630)=PHI(     630)-D02*PHI(     615)
      PHI(     631)=PHI(     631)-D03*PHI(     616)
      PHI(     747)=PHI(     747)-D01*PHI(     737)
      PHI(     748)=PHI(     748)-D01*PHI(     738)
      PHI(     749)=PHI(     749)-D01*PHI(     739)
      PHI(     750)=PHI(     750)-D01*PHI(     740)
      PHI(     752)=PHI(     752)-D01*PHI(     740)
      PHI(     753)=PHI(     753)-D01*PHI(     741)
      PHI(     754)=PHI(     754)-D01*PHI(     742)
      PHI(     755)=PHI(     755)-D01*PHI(     743)
      PHI(     757)=PHI(     757)-D01*PHI(     743)
      PHI(     758)=PHI(     758)-D01*PHI(     744)
      PHI(     759)=PHI(     759)-D01*PHI(     745)
      PHI(     761)=PHI(     761)-D01*PHI(     745)
      PHI(     762)=PHI(     762)-D01*PHI(     746)
      PHI(     764)=PHI(     764)-D01*PHI(     746)
      PHI(     767)=PHI(     767)-D01*PHI(     746)
      PHI(     747)=PHI(     747)-D02*PHI(     737)
      PHI(     748)=PHI(     748)-D02*PHI(     738)
      PHI(     749)=PHI(     749)-D02*PHI(     739)
      PHI(     751)=PHI(     751)-D01*PHI(     739)
      PHI(     752)=PHI(     752)-D02*PHI(     740)
      PHI(     753)=PHI(     753)-D02*PHI(     741)
      PHI(     754)=PHI(     754)-D02*PHI(     742)
      PHI(     756)=PHI(     756)-D01*PHI(     742)
      PHI(     757)=PHI(     757)-D02*PHI(     743)
      PHI(     758)=PHI(     758)-D02*PHI(     744)
      PHI(     760)=PHI(     760)-D01*PHI(     744)
      PHI(     761)=PHI(     761)-D02*PHI(     745)
      PHI(     765)=PHI(     765)-D01*PHI(     744)
      PHI(     766)=PHI(     766)-D01*PHI(     745)
      PHI(     767)=PHI(     767)-D02*PHI(     746)
      PHI(     737)=PHI(     737)-D01*PHI(     734)
      PHI(     738)=PHI(     738)-D01*PHI(     735)
      PHI(     740)=PHI(     740)-D01*PHI(     735)
      PHI(     741)=PHI(     741)-D01*PHI(     736)
      PHI(     743)=PHI(     743)-D01*PHI(     736)
      PHI(     746)=PHI(     746)-D01*PHI(     736)
      PHI(     747)=PHI(     747)-D03*PHI(     737)
      PHI(     748)=PHI(     748)-D03*PHI(     738)
      PHI(     750)=PHI(     750)-D01*PHI(     738)
      PHI(     751)=PHI(     751)-D02*PHI(     739)
      PHI(     752)=PHI(     752)-D03*PHI(     740)
      PHI(     753)=PHI(     753)-D03*PHI(     741)
      PHI(     755)=PHI(     755)-D01*PHI(     741)
      PHI(     756)=PHI(     756)-D02*PHI(     742)
      PHI(     757)=PHI(     757)-D03*PHI(     743)
      PHI(     762)=PHI(     762)-D01*PHI(     741)
      PHI(     763)=PHI(     763)-D01*PHI(     742)
      PHI(     764)=PHI(     764)-D01*PHI(     743)
      PHI(     765)=PHI(     765)-D02*PHI(     744)
      PHI(     766)=PHI(     766)-D02*PHI(     745)
      PHI(     767)=PHI(     767)-D03*PHI(     746)
      PHI(     737)=PHI(     737)-D02*PHI(     734)
      PHI(     739)=PHI(     739)-D01*PHI(     734)
      PHI(     740)=PHI(     740)-D02*PHI(     735)
      PHI(     744)=PHI(     744)-D01*PHI(     734)
      PHI(     745)=PHI(     745)-D01*PHI(     735)
      PHI(     746)=PHI(     746)-D02*PHI(     736)
      PHI(     747)=PHI(     747)-D04*PHI(     737)
      PHI(     749)=PHI(     749)-D01*PHI(     737)
      PHI(     750)=PHI(     750)-D02*PHI(     738)
      PHI(     751)=PHI(     751)-D03*PHI(     739)
      PHI(     752)=PHI(     752)-D04*PHI(     740)
      PHI(     758)=PHI(     758)-D01*PHI(     737)
      PHI(     759)=PHI(     759)-D01*PHI(     738)
      PHI(     760)=PHI(     760)-D01*PHI(     739)
      PHI(     761)=PHI(     761)-D01*PHI(     740)
      PHI(     762)=PHI(     762)-D02*PHI(     741)
      PHI(     763)=PHI(     763)-D02*PHI(     742)
      PHI(     764)=PHI(     764)-D02*PHI(     743)
      PHI(     765)=PHI(     765)-D03*PHI(     744)
      PHI(     766)=PHI(     766)-D03*PHI(     745)
      PHI(     767)=PHI(     767)-D04*PHI(     746)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    6)= PHI(     208)+CONF( 1)*PHI(     126)
      WRK1(    7)= PHI(     209)+CONF( 1)*PHI(     127)
      WRK1(    8)= PHI(     210)+CONF( 2)*PHI(     127)
      WRK1(    9)= PHI(     211)+CONF( 1)*PHI(     128)
      WRK1(   10)= PHI(     212)+CONF( 2)*PHI(     128)
      WRK1(   11)= PHI(     213)+CONF( 3)*PHI(     128)
      WRK1(    3)= PHI(     126)+CONF( 1)*PHI(      92)
      WRK1(    4)= PHI(     127)+CONF( 2)*PHI(      92)
      WRK1(    5)= PHI(     128)+CONF( 3)*PHI(      92)
      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 FSDS_BCTE(WRK1,WRK2,LENW,CONF,    1)
      WRK1(    6)= PHI(     194)+CONF( 1)*PHI(     120)
      WRK1(    7)= PHI(     195)+CONF( 1)*PHI(     121)
      WRK1(    8)= PHI(     196)+CONF( 2)*PHI(     121)
      WRK1(    9)= PHI(     197)+CONF( 1)*PHI(     122)
      WRK1(   10)= PHI(     198)+CONF( 2)*PHI(     122)
      WRK1(   11)= PHI(     199)+CONF( 3)*PHI(     122)
      WRK1(    3)= PHI(     120)+CONF( 1)*PHI(      90)
      WRK1(    4)= PHI(     121)+CONF( 2)*PHI(      90)
      WRK1(    5)= PHI(     122)+CONF( 3)*PHI(      90)
      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 FSDS_BCTE(WRK1,WRK2,LENW,CONF,    2)
      WRK1(    6)=-PHI(     390)-CONF( 1)*PHI(     243)
      WRK1(    7)=-PHI(     391)-CONF( 1)*PHI(     244)
      WRK1(    8)=-PHI(     392)-CONF( 2)*PHI(     244)
      WRK1(    9)=-PHI(     394)-CONF( 1)*PHI(     246)
      WRK1(   10)=-PHI(     395)-CONF( 2)*PHI(     246)
      WRK1(   11)=-PHI(     397)-CONF( 3)*PHI(     246)
      WRK1(    3)=-PHI(     243)-CONF( 1)*PHI(     141)
      WRK1(    4)=-PHI(     244)-CONF( 2)*PHI(     141)
      WRK1(    5)=-PHI(     246)-CONF( 3)*PHI(     141)
      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 FSDS_BCTE(WRK1,WRK2,LENW,CONF,    3)
      WRK1(    6)=-PHI(     391)-CONF( 1)*PHI(     244)
      WRK1(    7)=-PHI(     392)-CONF( 1)*PHI(     245)
      WRK1(    8)=-PHI(     393)-CONF( 2)*PHI(     245)
      WRK1(    9)=-PHI(     395)-CONF( 1)*PHI(     247)
      WRK1(   10)=-PHI(     396)-CONF( 2)*PHI(     247)
      WRK1(   11)=-PHI(     398)-CONF( 3)*PHI(     247)
      WRK1(    3)=-PHI(     244)-CONF( 1)*PHI(     142)
      WRK1(    4)=-PHI(     245)-CONF( 2)*PHI(     142)
      WRK1(    5)=-PHI(     247)-CONF( 3)*PHI(     142)
      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 FSDS_BCTE(WRK1,WRK2,LENW,CONF,    4)
      WRK1(    6)=-PHI(     394)-CONF( 1)*PHI(     246)
      WRK1(    7)=-PHI(     395)-CONF( 1)*PHI(     247)
      WRK1(    8)=-PHI(     396)-CONF( 2)*PHI(     247)
      WRK1(    9)=-PHI(     397)-CONF( 1)*PHI(     248)
      WRK1(   10)=-PHI(     398)-CONF( 2)*PHI(     248)
      WRK1(   11)=-PHI(     399)-CONF( 3)*PHI(     248)
      WRK1(    3)=-PHI(     246)-CONF( 1)*PHI(     143)
      WRK1(    4)=-PHI(     247)-CONF( 2)*PHI(     143)
      WRK1(    5)=-PHI(     248)-CONF( 3)*PHI(     143)
      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 FSDS_BCTE(WRK1,WRK2,LENW,CONF,    5)
      WRK1(    6)=-PHI(     364)-CONF( 1)*PHI(     229)
      WRK1(    7)=-PHI(     365)-CONF( 1)*PHI(     230)
      WRK1(    8)=-PHI(     366)-CONF( 2)*PHI(     230)
      WRK1(    9)=-PHI(     368)-CONF( 1)*PHI(     232)
      WRK1(   10)=-PHI(     369)-CONF( 2)*PHI(     232)
      WRK1(   11)=-PHI(     371)-CONF( 3)*PHI(     232)
      WRK1(    3)=-PHI(     229)-CONF( 1)*PHI(     135)
      WRK1(    4)=-PHI(     230)-CONF( 2)*PHI(     135)
      WRK1(    5)=-PHI(     232)-CONF( 3)*PHI(     135)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     102)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     102)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     102)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,    6)
      WRK1(    6)=-PHI(     365)-CONF( 1)*PHI(     230)
      WRK1(    7)=-PHI(     366)-CONF( 1)*PHI(     231)
      WRK1(    8)=-PHI(     367)-CONF( 2)*PHI(     231)
      WRK1(    9)=-PHI(     369)-CONF( 1)*PHI(     233)
      WRK1(   10)=-PHI(     370)-CONF( 2)*PHI(     233)
      WRK1(   11)=-PHI(     372)-CONF( 3)*PHI(     233)
      WRK1(    3)=-PHI(     230)-CONF( 1)*PHI(     136)
      WRK1(    4)=-PHI(     231)-CONF( 2)*PHI(     136)
      WRK1(    5)=-PHI(     233)-CONF( 3)*PHI(     136)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     103)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     103)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     103)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,    7)
      WRK1(    6)=-PHI(     368)-CONF( 1)*PHI(     232)
      WRK1(    7)=-PHI(     369)-CONF( 1)*PHI(     233)
      WRK1(    8)=-PHI(     370)-CONF( 2)*PHI(     233)
      WRK1(    9)=-PHI(     371)-CONF( 1)*PHI(     234)
      WRK1(   10)=-PHI(     372)-CONF( 2)*PHI(     234)
      WRK1(   11)=-PHI(     373)-CONF( 3)*PHI(     234)
      WRK1(    3)=-PHI(     232)-CONF( 1)*PHI(     137)
      WRK1(    4)=-PHI(     233)-CONF( 2)*PHI(     137)
      WRK1(    5)=-PHI(     234)-CONF( 3)*PHI(     137)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     104)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     104)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     104)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,    8)
      WRK1(    6)= PHI(     551)+CONF( 1)*PHI(     429)
      WRK1(    7)= PHI(     552)+CONF( 1)*PHI(     430)
      WRK1(    8)= PHI(     553)+CONF( 2)*PHI(     430)
      WRK1(    9)= PHI(     556)+CONF( 1)*PHI(     433)
      WRK1(   10)= PHI(     557)+CONF( 2)*PHI(     433)
      WRK1(   11)= PHI(     560)+CONF( 3)*PHI(     433)
      WRK1(    3)= PHI(     429)+CONF( 1)*PHI(     264)
      WRK1(    4)= PHI(     430)+CONF( 2)*PHI(     264)
      WRK1(    5)= PHI(     433)+CONF( 3)*PHI(     264)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     166)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     166)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     166)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,    9)
      WRK1(    6)= PHI(     552)+CONF( 1)*PHI(     430)
      WRK1(    7)= PHI(     553)+CONF( 1)*PHI(     431)
      WRK1(    8)= PHI(     554)+CONF( 2)*PHI(     431)
      WRK1(    9)= PHI(     557)+CONF( 1)*PHI(     434)
      WRK1(   10)= PHI(     558)+CONF( 2)*PHI(     434)
      WRK1(   11)= PHI(     561)+CONF( 3)*PHI(     434)
      WRK1(    3)= PHI(     430)+CONF( 1)*PHI(     265)
      WRK1(    4)= PHI(     431)+CONF( 2)*PHI(     265)
      WRK1(    5)= PHI(     434)+CONF( 3)*PHI(     265)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     167)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     167)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     167)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   10)
      WRK1(    6)= PHI(     553)+CONF( 1)*PHI(     431)
      WRK1(    7)= PHI(     554)+CONF( 1)*PHI(     432)
      WRK1(    8)= PHI(     555)+CONF( 2)*PHI(     432)
      WRK1(    9)= PHI(     558)+CONF( 1)*PHI(     435)
      WRK1(   10)= PHI(     559)+CONF( 2)*PHI(     435)
      WRK1(   11)= PHI(     562)+CONF( 3)*PHI(     435)
      WRK1(    3)= PHI(     431)+CONF( 1)*PHI(     266)
      WRK1(    4)= PHI(     432)+CONF( 2)*PHI(     266)
      WRK1(    5)= PHI(     435)+CONF( 3)*PHI(     266)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     168)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     168)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     168)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   11)
      WRK1(    6)= PHI(     556)+CONF( 1)*PHI(     433)
      WRK1(    7)= PHI(     557)+CONF( 1)*PHI(     434)
      WRK1(    8)= PHI(     558)+CONF( 2)*PHI(     434)
      WRK1(    9)= PHI(     560)+CONF( 1)*PHI(     436)
      WRK1(   10)= PHI(     561)+CONF( 2)*PHI(     436)
      WRK1(   11)= PHI(     563)+CONF( 3)*PHI(     436)
      WRK1(    3)= PHI(     433)+CONF( 1)*PHI(     267)
      WRK1(    4)= PHI(     434)+CONF( 2)*PHI(     267)
      WRK1(    5)= PHI(     436)+CONF( 3)*PHI(     267)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     169)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     169)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     169)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   12)
      WRK1(    6)= PHI(     557)+CONF( 1)*PHI(     434)
      WRK1(    7)= PHI(     558)+CONF( 1)*PHI(     435)
      WRK1(    8)= PHI(     559)+CONF( 2)*PHI(     435)
      WRK1(    9)= PHI(     561)+CONF( 1)*PHI(     437)
      WRK1(   10)= PHI(     562)+CONF( 2)*PHI(     437)
      WRK1(   11)= PHI(     564)+CONF( 3)*PHI(     437)
      WRK1(    3)= PHI(     434)+CONF( 1)*PHI(     268)
      WRK1(    4)= PHI(     435)+CONF( 2)*PHI(     268)
      WRK1(    5)= PHI(     437)+CONF( 3)*PHI(     268)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     170)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     170)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     170)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   13)
      WRK1(    6)= PHI(     560)+CONF( 1)*PHI(     436)
      WRK1(    7)= PHI(     561)+CONF( 1)*PHI(     437)
      WRK1(    8)= PHI(     562)+CONF( 2)*PHI(     437)
      WRK1(    9)= PHI(     563)+CONF( 1)*PHI(     438)
      WRK1(   10)= PHI(     564)+CONF( 2)*PHI(     438)
      WRK1(   11)= PHI(     565)+CONF( 3)*PHI(     438)
      WRK1(    3)= PHI(     436)+CONF( 1)*PHI(     269)
      WRK1(    4)= PHI(     437)+CONF( 2)*PHI(     269)
      WRK1(    5)= PHI(     438)+CONF( 3)*PHI(     269)
      WRK1(    6)=WRK1(    6)+CONF( 4)*PHI(     171)
      WRK1(    8)=WRK1(    8)+CONF( 4)*PHI(     171)
      WRK1(   11)=WRK1(   11)+CONF( 4)*PHI(     171)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   14)
      WRK1(    6)=-PHI(     747)-CONF( 1)*PHI(     617)
      WRK1(    7)=-PHI(     748)-CONF( 1)*PHI(     618)
      WRK1(    8)=-PHI(     749)-CONF( 2)*PHI(     618)
      WRK1(    9)=-PHI(     753)-CONF( 1)*PHI(     622)
      WRK1(   10)=-PHI(     754)-CONF( 2)*PHI(     622)
      WRK1(   11)=-PHI(     758)-CONF( 3)*PHI(     622)
      WRK1(    3)=-PHI(     617)-CONF( 1)*PHI(     468)
      WRK1(    4)=-PHI(     618)-CONF( 2)*PHI(     468)
      WRK1(    5)=-PHI(     622)-CONF( 3)*PHI(     468)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     312)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     312)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     312)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   15)
      WRK1(    6)=-PHI(     748)-CONF( 1)*PHI(     618)
      WRK1(    7)=-PHI(     749)-CONF( 1)*PHI(     619)
      WRK1(    8)=-PHI(     750)-CONF( 2)*PHI(     619)
      WRK1(    9)=-PHI(     754)-CONF( 1)*PHI(     623)
      WRK1(   10)=-PHI(     755)-CONF( 2)*PHI(     623)
      WRK1(   11)=-PHI(     759)-CONF( 3)*PHI(     623)
      WRK1(    3)=-PHI(     618)-CONF( 1)*PHI(     469)
      WRK1(    4)=-PHI(     619)-CONF( 2)*PHI(     469)
      WRK1(    5)=-PHI(     623)-CONF( 3)*PHI(     469)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     313)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     313)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     313)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   16)
      WRK1(    6)=-PHI(     749)-CONF( 1)*PHI(     619)
      WRK1(    7)=-PHI(     750)-CONF( 1)*PHI(     620)
      WRK1(    8)=-PHI(     751)-CONF( 2)*PHI(     620)
      WRK1(    9)=-PHI(     755)-CONF( 1)*PHI(     624)
      WRK1(   10)=-PHI(     756)-CONF( 2)*PHI(     624)
      WRK1(   11)=-PHI(     760)-CONF( 3)*PHI(     624)
      WRK1(    3)=-PHI(     619)-CONF( 1)*PHI(     470)
      WRK1(    4)=-PHI(     620)-CONF( 2)*PHI(     470)
      WRK1(    5)=-PHI(     624)-CONF( 3)*PHI(     470)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     314)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     314)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     314)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   17)
      WRK1(    6)=-PHI(     750)-CONF( 1)*PHI(     620)
      WRK1(    7)=-PHI(     751)-CONF( 1)*PHI(     621)
      WRK1(    8)=-PHI(     752)-CONF( 2)*PHI(     621)
      WRK1(    9)=-PHI(     756)-CONF( 1)*PHI(     625)
      WRK1(   10)=-PHI(     757)-CONF( 2)*PHI(     625)
      WRK1(   11)=-PHI(     761)-CONF( 3)*PHI(     625)
      WRK1(    3)=-PHI(     620)-CONF( 1)*PHI(     471)
      WRK1(    4)=-PHI(     621)-CONF( 2)*PHI(     471)
      WRK1(    5)=-PHI(     625)-CONF( 3)*PHI(     471)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     315)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     315)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     315)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   18)
      WRK1(    6)=-PHI(     753)-CONF( 1)*PHI(     622)
      WRK1(    7)=-PHI(     754)-CONF( 1)*PHI(     623)
      WRK1(    8)=-PHI(     755)-CONF( 2)*PHI(     623)
      WRK1(    9)=-PHI(     758)-CONF( 1)*PHI(     626)
      WRK1(   10)=-PHI(     759)-CONF( 2)*PHI(     626)
      WRK1(   11)=-PHI(     762)-CONF( 3)*PHI(     626)
      WRK1(    3)=-PHI(     622)-CONF( 1)*PHI(     472)
      WRK1(    4)=-PHI(     623)-CONF( 2)*PHI(     472)
      WRK1(    5)=-PHI(     626)-CONF( 3)*PHI(     472)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     316)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     316)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     316)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   19)
      WRK1(    6)=-PHI(     754)-CONF( 1)*PHI(     623)
      WRK1(    7)=-PHI(     755)-CONF( 1)*PHI(     624)
      WRK1(    8)=-PHI(     756)-CONF( 2)*PHI(     624)
      WRK1(    9)=-PHI(     759)-CONF( 1)*PHI(     627)
      WRK1(   10)=-PHI(     760)-CONF( 2)*PHI(     627)
      WRK1(   11)=-PHI(     763)-CONF( 3)*PHI(     627)
      WRK1(    3)=-PHI(     623)-CONF( 1)*PHI(     473)
      WRK1(    4)=-PHI(     624)-CONF( 2)*PHI(     473)
      WRK1(    5)=-PHI(     627)-CONF( 3)*PHI(     473)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     317)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     317)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     317)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   20)
      WRK1(    6)=-PHI(     755)-CONF( 1)*PHI(     624)
      WRK1(    7)=-PHI(     756)-CONF( 1)*PHI(     625)
      WRK1(    8)=-PHI(     757)-CONF( 2)*PHI(     625)
      WRK1(    9)=-PHI(     760)-CONF( 1)*PHI(     628)
      WRK1(   10)=-PHI(     761)-CONF( 2)*PHI(     628)
      WRK1(   11)=-PHI(     764)-CONF( 3)*PHI(     628)
      WRK1(    3)=-PHI(     624)-CONF( 1)*PHI(     474)
      WRK1(    4)=-PHI(     625)-CONF( 2)*PHI(     474)
      WRK1(    5)=-PHI(     628)-CONF( 3)*PHI(     474)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     318)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     318)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     318)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   21)
      WRK1(    6)=-PHI(     758)-CONF( 1)*PHI(     626)
      WRK1(    7)=-PHI(     759)-CONF( 1)*PHI(     627)
      WRK1(    8)=-PHI(     760)-CONF( 2)*PHI(     627)
      WRK1(    9)=-PHI(     762)-CONF( 1)*PHI(     629)
      WRK1(   10)=-PHI(     763)-CONF( 2)*PHI(     629)
      WRK1(   11)=-PHI(     765)-CONF( 3)*PHI(     629)
      WRK1(    3)=-PHI(     626)-CONF( 1)*PHI(     475)
      WRK1(    4)=-PHI(     627)-CONF( 2)*PHI(     475)
      WRK1(    5)=-PHI(     629)-CONF( 3)*PHI(     475)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     319)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     319)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     319)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   22)
      WRK1(    6)=-PHI(     759)-CONF( 1)*PHI(     627)
      WRK1(    7)=-PHI(     760)-CONF( 1)*PHI(     628)
      WRK1(    8)=-PHI(     761)-CONF( 2)*PHI(     628)
      WRK1(    9)=-PHI(     763)-CONF( 1)*PHI(     630)
      WRK1(   10)=-PHI(     764)-CONF( 2)*PHI(     630)
      WRK1(   11)=-PHI(     766)-CONF( 3)*PHI(     630)
      WRK1(    3)=-PHI(     627)-CONF( 1)*PHI(     476)
      WRK1(    4)=-PHI(     628)-CONF( 2)*PHI(     476)
      WRK1(    5)=-PHI(     630)-CONF( 3)*PHI(     476)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     320)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     320)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     320)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   23)
      WRK1(    6)=-PHI(     762)-CONF( 1)*PHI(     629)
      WRK1(    7)=-PHI(     763)-CONF( 1)*PHI(     630)
      WRK1(    8)=-PHI(     764)-CONF( 2)*PHI(     630)
      WRK1(    9)=-PHI(     765)-CONF( 1)*PHI(     631)
      WRK1(   10)=-PHI(     766)-CONF( 2)*PHI(     631)
      WRK1(   11)=-PHI(     767)-CONF( 3)*PHI(     631)
      WRK1(    3)=-PHI(     629)-CONF( 1)*PHI(     477)
      WRK1(    4)=-PHI(     630)-CONF( 2)*PHI(     477)
      WRK1(    5)=-PHI(     631)-CONF( 3)*PHI(     477)
      WRK1(    6)=WRK1(    6)-CONF( 4)*PHI(     321)
      WRK1(    8)=WRK1(    8)-CONF( 4)*PHI(     321)
      WRK1(   11)=WRK1(   11)-CONF( 4)*PHI(     321)
      CALL FSDS_BCTE(WRK1,WRK2,LENW,CONF,   24)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     6
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      END DO
      RETURN
      END
C*MODULE INT2F   *DECK FSDS_BCTE
      SUBROUTINE FSDS_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=     299
C  LWK1=       1
C  LWK2=     100
C  LENW=     100
C*MODULE INT2F   *DECK FPSS
      SUBROUTINE FPSS (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(      51)=ZERO
      PHI(      53)=ZERO
      PHI(      54)=ZERO
      PHI(      56)=ZERO
      PHI(      66)=ZERO
      PHI(      67)=ZERO
      PHI(      68)=ZERO
      PHI(      72)=ZERO
      PHI(      73)=ZERO
      PHI(      74)=ZERO
      PHI(      75)=ZERO
      PHI(      76)=ZERO
      PHI(      77)=ZERO
      PHI(      81)=ZERO
      PHI(      82)=ZERO
      PHI(      83)=ZERO
      DO I=     105,     111
      PHI(I)=ZERO
      END DO
      DO I=     112,     118
      PHI(I)=ZERO
      END DO
      DO I=     126,     132
      PHI(I)=ZERO
      END DO
      DO I=     172,     184
      PHI(I)=ZERO
      END DO
      DO I=     198,     210
      PHI(I)=ZERO
      END DO
      DO I=     277,     298
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      49)=ZERO
      PHI(      52)=ZERO
      PHI(      55)=ZERO
      PHI(      63)=ZERO
      PHI(      64)=ZERO
      PHI(      65)=ZERO
      PHI(      69)=ZERO
      PHI(      70)=ZERO
      PHI(      71)=ZERO
      PHI(      78)=ZERO
      PHI(      79)=ZERO
      PHI(      80)=ZERO
      DO I=      98,     104
      PHI(I)=ZERO
      END DO
      DO I=     119,     125
      PHI(I)=ZERO
      END DO
      DO I=     159,     171
      PHI(I)=ZERO
      END DO
      DO I=     185,     197
      PHI(I)=ZERO
      END DO
      DO I=     255,     276
      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(      60)=ZERO
      PHI(      61)=ZERO
      PHI(      62)=ZERO
      DO I=      91,      97
      PHI(I)=ZERO
      END DO
      DO I=     146,     158
      PHI(I)=ZERO
      END DO
      DO I=     233,     254
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      47)=ZERO
      PHI(      57)=ZERO
      PHI(      58)=ZERO
      PHI(      59)=ZERO
      DO I=      84,      90
      PHI(I)=ZERO
      END DO
      DO I=     133,     145
      PHI(I)=ZERO
      END DO
      DO I=     211,     232
      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(      57)=PHI(      57)+FAC*PHI(       2)
      PHI(      58)=PHI(      58)+FAC*PHI(       3)
      PHI(      59)=PHI(      59)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=      84,      90
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      12
      DO I=     133,     145
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      25
      DO I=     211,     232
      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(      60)=PHI(      60)+FAC*PHI(      57)
      PHI(      61)=PHI(      61)+FAC*PHI(      58)
      PHI(      62)=PHI(      62)+FAC*PHI(      59)
      FAC=SFAC( 1)
      J=      84
      DO I=      91,      97
      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
      FAC=SFAC( 1)
      J=     211
      DO I=     233,     254
      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( 3)
      PHI(      49)=PHI(      49)+FAC*PHI(      48)
      FAC=SFAC( 4)
      PHI(      52)=PHI(      52)+FAC*PHI(      48)
      FAC=SFAC( 5)
      PHI(      55)=PHI(      55)+FAC*PHI(      48)
      FAC=SFAC( 3)
      PHI(      63)=PHI(      63)+FAC*PHI(      60)
      PHI(      64)=PHI(      64)+FAC*PHI(      61)
      PHI(      65)=PHI(      65)+FAC*PHI(      62)
      FAC=SFAC( 4)
      PHI(      69)=PHI(      69)+FAC*PHI(      60)
      PHI(      70)=PHI(      70)+FAC*PHI(      61)
      PHI(      71)=PHI(      71)+FAC*PHI(      62)
      FAC=SFAC( 5)
      PHI(      78)=PHI(      78)+FAC*PHI(      60)
      PHI(      79)=PHI(      79)+FAC*PHI(      61)
      PHI(      80)=PHI(      80)+FAC*PHI(      62)
      FAC=SFAC( 4)
      J=      91
      DO I=      98,     104
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=      91
      DO I=     119,     125
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     146
      DO I=     159,     171
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     146
      DO I=     185,     197
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     233
      DO I=     255,     276
      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( 2)
      PHI(      51)=PHI(      51)+FAC*PHI(      49)
      FAC=SFAC( 3)
      PHI(      53)=PHI(      53)+FAC*PHI(      52)
      FAC=SFAC( 4)
      PHI(      54)=PHI(      54)+FAC*PHI(      52)
      FAC=SFAC( 5)
      PHI(      56)=PHI(      56)+FAC*PHI(      55)
      FAC=SFAC( 1)
      PHI(      66)=PHI(      66)+FAC*PHI(      63)
      PHI(      67)=PHI(      67)+FAC*PHI(      64)
      PHI(      68)=PHI(      68)+FAC*PHI(      65)
      FAC=SFAC( 2)
      PHI(      72)=PHI(      72)+FAC*PHI(      69)
      PHI(      73)=PHI(      73)+FAC*PHI(      70)
      PHI(      74)=PHI(      74)+FAC*PHI(      71)
      FAC=SFAC( 3)
      PHI(      75)=PHI(      75)+FAC*PHI(      69)
      PHI(      76)=PHI(      76)+FAC*PHI(      70)
      PHI(      77)=PHI(      77)+FAC*PHI(      71)
      FAC=SFAC( 4)
      PHI(      81)=PHI(      81)+FAC*PHI(      78)
      PHI(      82)=PHI(      82)+FAC*PHI(      79)
      PHI(      83)=PHI(      83)+FAC*PHI(      80)
      FAC=SFAC( 1)
      J=      98
      DO I=     105,     111
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      98
      DO I=     112,     118
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     119
      DO I=     126,     132
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     159
      DO I=     172,     184
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     185
      DO I=     198,     210
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     255
      DO I=     277,     298
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     106)=PHI(     106)-D01*PHI(     105)
      PHI(     108)=PHI(     108)-D01*PHI(     105)
      PHI(     111)=PHI(     111)-D01*PHI(     105)
      PHI(     113)=PHI(     113)-D01*PHI(     112)
      PHI(     115)=PHI(     115)-D01*PHI(     112)
      PHI(     118)=PHI(     118)-D01*PHI(     112)
      PHI(     127)=PHI(     127)-D01*PHI(     126)
      PHI(     129)=PHI(     129)-D01*PHI(     126)
      PHI(     132)=PHI(     132)-D01*PHI(     126)
      PHI(     175)=PHI(     175)-D01*PHI(     172)
      PHI(     176)=PHI(     176)-D01*PHI(     173)
      PHI(     178)=PHI(     178)-D01*PHI(     173)
      PHI(     179)=PHI(     179)-D01*PHI(     174)
      PHI(     181)=PHI(     181)-D01*PHI(     174)
      PHI(     184)=PHI(     184)-D01*PHI(     174)
      PHI(     175)=PHI(     175)-D02*PHI(     172)
      PHI(     177)=PHI(     177)-D01*PHI(     172)
      PHI(     178)=PHI(     178)-D02*PHI(     173)
      PHI(     182)=PHI(     182)-D01*PHI(     172)
      PHI(     183)=PHI(     183)-D01*PHI(     173)
      PHI(     184)=PHI(     184)-D02*PHI(     174)
      PHI(     201)=PHI(     201)-D01*PHI(     198)
      PHI(     202)=PHI(     202)-D01*PHI(     199)
      PHI(     204)=PHI(     204)-D01*PHI(     199)
      PHI(     205)=PHI(     205)-D01*PHI(     200)
      PHI(     207)=PHI(     207)-D01*PHI(     200)
      PHI(     210)=PHI(     210)-D01*PHI(     200)
      PHI(     201)=PHI(     201)-D02*PHI(     198)
      PHI(     203)=PHI(     203)-D01*PHI(     198)
      PHI(     204)=PHI(     204)-D02*PHI(     199)
      PHI(     208)=PHI(     208)-D01*PHI(     198)
      PHI(     209)=PHI(     209)-D01*PHI(     199)
      PHI(     210)=PHI(     210)-D02*PHI(     200)
      PHI(     284)=PHI(     284)-D01*PHI(     278)
      PHI(     285)=PHI(     285)-D01*PHI(     279)
      PHI(     286)=PHI(     286)-D01*PHI(     280)
      PHI(     288)=PHI(     288)-D01*PHI(     280)
      PHI(     289)=PHI(     289)-D01*PHI(     281)
      PHI(     290)=PHI(     290)-D01*PHI(     282)
      PHI(     292)=PHI(     292)-D01*PHI(     282)
      PHI(     293)=PHI(     293)-D01*PHI(     283)
      PHI(     295)=PHI(     295)-D01*PHI(     283)
      PHI(     298)=PHI(     298)-D01*PHI(     283)
      PHI(     284)=PHI(     284)-D02*PHI(     278)
      PHI(     285)=PHI(     285)-D02*PHI(     279)
      PHI(     287)=PHI(     287)-D01*PHI(     279)
      PHI(     288)=PHI(     288)-D02*PHI(     280)
      PHI(     289)=PHI(     289)-D02*PHI(     281)
      PHI(     291)=PHI(     291)-D01*PHI(     281)
      PHI(     292)=PHI(     292)-D02*PHI(     282)
      PHI(     296)=PHI(     296)-D01*PHI(     281)
      PHI(     297)=PHI(     297)-D01*PHI(     282)
      PHI(     298)=PHI(     298)-D02*PHI(     283)
      PHI(     278)=PHI(     278)-D01*PHI(     277)
      PHI(     280)=PHI(     280)-D01*PHI(     277)
      PHI(     283)=PHI(     283)-D01*PHI(     277)
      PHI(     284)=PHI(     284)-D03*PHI(     278)
      PHI(     286)=PHI(     286)-D01*PHI(     278)
      PHI(     287)=PHI(     287)-D02*PHI(     279)
      PHI(     288)=PHI(     288)-D03*PHI(     280)
      PHI(     293)=PHI(     293)-D01*PHI(     278)
      PHI(     294)=PHI(     294)-D01*PHI(     279)
      PHI(     295)=PHI(     295)-D01*PHI(     280)
      PHI(     296)=PHI(     296)-D02*PHI(     281)
      PHI(     297)=PHI(     297)-D02*PHI(     282)
      PHI(     298)=PHI(     298)-D03*PHI(     283)
      WRK2(    1,1)= PHI(      54)
      WRK2(    2,1)= PHI(      51)
      WRK2(    3,1)=-PHI(      75)
      WRK2(    4,1)=-PHI(      76)
      WRK2(    5,1)=-PHI(      77)
      WRK2(    6,1)=-PHI(      66)
      WRK2(    7,1)=-PHI(      67)
      WRK2(    8,1)=-PHI(      68)
      WRK2(    9,1)= PHI(     113)
      WRK2(   10,1)= PHI(     114)
      WRK2(   11,1)= PHI(     115)
      WRK2(   12,1)= PHI(     116)
      WRK2(   13,1)= PHI(     117)
      WRK2(   14,1)= PHI(     118)
      WRK2(   15,1)=-PHI(     175)
      WRK2(   16,1)=-PHI(     176)
      WRK2(   17,1)=-PHI(     177)
      WRK2(   18,1)=-PHI(     178)
      WRK2(   19,1)=-PHI(     179)
      WRK2(   20,1)=-PHI(     180)
      WRK2(   21,1)=-PHI(     181)
      WRK2(   22,1)=-PHI(     182)
      WRK2(   23,1)=-PHI(     183)
      WRK2(   24,1)=-PHI(     184)
      WRK2(   25,1)= PHI(      56)
      WRK2(   26,1)= PHI(      53)
      WRK2(   27,1)= PHI(      50)
      WRK2(   28,1)=-PHI(      81)
      WRK2(   29,1)=-PHI(      82)
      WRK2(   30,1)=-PHI(      83)
      WRK2(   31,1)=-PHI(      72)
      WRK2(   32,1)=-PHI(      73)
      WRK2(   33,1)=-PHI(      74)
      WRK2(   34,1)= PHI(     127)
      WRK2(   35,1)= PHI(     128)
      WRK2(   36,1)= PHI(     129)
      WRK2(   37,1)= PHI(     130)
      WRK2(   38,1)= PHI(     131)
      WRK2(   39,1)= PHI(     132)
      WRK2(   40,1)= PHI(     106)
      WRK2(   41,1)= PHI(     107)
      WRK2(   42,1)= PHI(     108)
      WRK2(   43,1)= PHI(     109)
      WRK2(   44,1)= PHI(     110)
      WRK2(   45,1)= PHI(     111)
      WRK2(   46,1)=-PHI(     201)
      WRK2(   47,1)=-PHI(     202)
      WRK2(   48,1)=-PHI(     203)
      WRK2(   49,1)=-PHI(     204)
      WRK2(   50,1)=-PHI(     205)
      WRK2(   51,1)=-PHI(     206)
      WRK2(   52,1)=-PHI(     207)
      WRK2(   53,1)=-PHI(     208)
      WRK2(   54,1)=-PHI(     209)
      WRK2(   55,1)=-PHI(     210)
      WRK2(   56,1)= PHI(     284)
      WRK2(   57,1)= PHI(     285)
      WRK2(   58,1)= PHI(     286)
      WRK2(   59,1)= PHI(     287)
      WRK2(   60,1)= PHI(     288)
      WRK2(   61,1)= PHI(     289)
      WRK2(   62,1)= PHI(     290)
      WRK2(   63,1)= PHI(     291)
      WRK2(   64,1)= PHI(     292)
      WRK2(   65,1)= PHI(     293)
      WRK2(   66,1)= PHI(     294)
      WRK2(   67,1)= PHI(     295)
      WRK2(   68,1)= PHI(     296)
      WRK2(   69,1)= PHI(     297)
      WRK2(   70,1)= PHI(     298)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 6)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 1)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 6)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 1)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 1)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   55,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 6)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 5)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 1)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 5)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 2)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 5)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 1)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 1)*WRK2(   30,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 2)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 1)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 1)*WRK2(   33,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 2)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   26,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   26,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   26,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 5)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 5)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 2)*WRK2(   53,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 5)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 2)*WRK2(   37,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 2)*WRK2(   28,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 3)*WRK2(   28,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 3)*WRK2(   29,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 2)*WRK2(   31,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 3)*WRK2(   31,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 3)*WRK2(   32,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 2)*WRK2(   50,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   34,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   34,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 3)*WRK2(   35,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 3)*WRK2(   36,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 3)*WRK2(   46,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 3)*WRK2(   47,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   71,I)=WRK2(   56,I)-CONF( 1)*WRK2(   15,I)
      WRK2(   72,I)=WRK2(   57,I)-CONF( 1)*WRK2(   16,I)
      WRK2(   73,I)=WRK2(   58,I)-CONF( 1)*WRK2(   17,I)
      WRK2(   74,I)=WRK2(   59,I)-CONF( 1)*WRK2(   18,I)
      WRK2(   75,I)=WRK2(   61,I)-CONF( 1)*WRK2(   19,I)
      WRK2(   76,I)=WRK2(   62,I)-CONF( 1)*WRK2(   20,I)
      WRK2(   77,I)=WRK2(   63,I)-CONF( 1)*WRK2(   21,I)
      WRK2(   78,I)=WRK2(   65,I)-CONF( 1)*WRK2(   22,I)
      WRK2(   79,I)=WRK2(   66,I)-CONF( 1)*WRK2(   23,I)
      WRK2(   80,I)=WRK2(   68,I)-CONF( 1)*WRK2(   24,I)
      WRK2(   81,I)=WRK2(   57,I)-CONF( 2)*WRK2(   15,I)
      WRK2(   82,I)=WRK2(   58,I)-CONF( 2)*WRK2(   16,I)
      WRK2(   83,I)=WRK2(   59,I)-CONF( 2)*WRK2(   17,I)
      WRK2(   84,I)=WRK2(   60,I)-CONF( 2)*WRK2(   18,I)
      WRK2(   85,I)=WRK2(   62,I)-CONF( 2)*WRK2(   19,I)
      WRK2(   86,I)=WRK2(   63,I)-CONF( 2)*WRK2(   20,I)
      WRK2(   87,I)=WRK2(   64,I)-CONF( 2)*WRK2(   21,I)
      WRK2(   88,I)=WRK2(   66,I)-CONF( 2)*WRK2(   22,I)
      WRK2(   89,I)=WRK2(   67,I)-CONF( 2)*WRK2(   23,I)
      WRK2(   90,I)=WRK2(   69,I)-CONF( 2)*WRK2(   24,I)
      WRK2(   91,I)=WRK2(   61,I)-CONF( 3)*WRK2(   15,I)
      WRK2(   92,I)=WRK2(   62,I)-CONF( 3)*WRK2(   16,I)
      WRK2(   93,I)=WRK2(   63,I)-CONF( 3)*WRK2(   17,I)
      WRK2(   94,I)=WRK2(   64,I)-CONF( 3)*WRK2(   18,I)
      WRK2(   95,I)=WRK2(   65,I)-CONF( 3)*WRK2(   19,I)
      WRK2(   96,I)=WRK2(   66,I)-CONF( 3)*WRK2(   20,I)
      WRK2(   97,I)=WRK2(   67,I)-CONF( 3)*WRK2(   21,I)
      WRK2(   98,I)=WRK2(   68,I)-CONF( 3)*WRK2(   22,I)
      WRK2(   99,I)=WRK2(   69,I)-CONF( 3)*WRK2(   23,I)
      WRK2(  100,I)=WRK2(   70,I)-CONF( 3)*WRK2(   24,I)
      END DO
      RETURN
      END
C  LPHI=     740
C  LWK1=       4
C  LWK2=     300
C  LENW=     100
C*MODULE INT2F   *DECK FPPS
      SUBROUTINE FPPS (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(      85)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      90)=ZERO
      PHI(     100)=ZERO
      PHI(     101)=ZERO
      PHI(     102)=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(     118)=ZERO
      PHI(     119)=ZERO
      PHI(     120)=ZERO
      PHI(     127)=ZERO
      PHI(     128)=ZERO
      PHI(     129)=ZERO
      PHI(     133)=ZERO
      PHI(     134)=ZERO
      PHI(     135)=ZERO
      PHI(     136)=ZERO
      PHI(     137)=ZERO
      PHI(     138)=ZERO
      PHI(     142)=ZERO
      PHI(     143)=ZERO
      PHI(     144)=ZERO
      DO I=     166,     172
      PHI(I)=ZERO
      END DO
      DO I=     180,     186
      PHI(I)=ZERO
      END DO
      DO I=     187,     193
      PHI(I)=ZERO
      END DO
      DO I=     201,     207
      PHI(I)=ZERO
      END DO
      DO I=     222,     228
      PHI(I)=ZERO
      END DO
      DO I=     229,     235
      PHI(I)=ZERO
      END DO
      DO I=     243,     249
      PHI(I)=ZERO
      END DO
      DO I=     289,     301
      PHI(I)=ZERO
      END DO
      DO I=     302,     314
      PHI(I)=ZERO
      END DO
      DO I=     328,     340
      PHI(I)=ZERO
      END DO
      DO I=     367,     379
      PHI(I)=ZERO
      END DO
      DO I=     393,     405
      PHI(I)=ZERO
      END DO
      DO I=     472,     493
      PHI(I)=ZERO
      END DO
      DO I=     516,     537
      PHI(I)=ZERO
      END DO
      DO I=     582,     603
      PHI(I)=ZERO
      END DO
      DO I=     706,     739
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      86)=ZERO
      PHI(      89)=ZERO
      PHI(      97)=ZERO
      PHI(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     106)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     115)=ZERO
      PHI(     116)=ZERO
      PHI(     117)=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
      DO I=     159,     165
      PHI(I)=ZERO
      END DO
      DO I=     173,     179
      PHI(I)=ZERO
      END DO
      DO I=     194,     200
      PHI(I)=ZERO
      END DO
      DO I=     215,     221
      PHI(I)=ZERO
      END DO
      DO I=     236,     242
      PHI(I)=ZERO
      END DO
      DO I=     276,     288
      PHI(I)=ZERO
      END DO
      DO I=     315,     327
      PHI(I)=ZERO
      END DO
      DO I=     354,     366
      PHI(I)=ZERO
      END DO
      DO I=     380,     392
      PHI(I)=ZERO
      END DO
      DO I=     450,     471
      PHI(I)=ZERO
      END DO
      DO I=     494,     515
      PHI(I)=ZERO
      END DO
      DO I=     560,     581
      PHI(I)=ZERO
      END DO
      DO I=     672,     705
      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(      94)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(     121)=ZERO
      PHI(     122)=ZERO
      PHI(     123)=ZERO
      DO I=     152,     158
      PHI(I)=ZERO
      END DO
      DO I=     208,     214
      PHI(I)=ZERO
      END DO
      DO I=     263,     275
      PHI(I)=ZERO
      END DO
      DO I=     341,     353
      PHI(I)=ZERO
      END DO
      DO I=     428,     449
      PHI(I)=ZERO
      END DO
      DO I=     538,     559
      PHI(I)=ZERO
      END DO
      DO I=     638,     671
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      91)=ZERO
      PHI(      92)=ZERO
      PHI(      93)=ZERO
      DO I=     145,     151
      PHI(I)=ZERO
      END DO
      DO I=     250,     262
      PHI(I)=ZERO
      END DO
      DO I=     406,     427
      PHI(I)=ZERO
      END DO
      DO I=     604,     637
      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(      91)=PHI(      91)+FAC*PHI(       2)
      PHI(      92)=PHI(      92)+FAC*PHI(       3)
      PHI(      93)=PHI(      93)+FAC*PHI(       4)
      FAC=SFAC( 2)
      J=       5
      DO I=     145,     151
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      12
      DO I=     250,     262
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      25
      DO I=     406,     427
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=      47
      DO I=     604,     637
      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(      94)=PHI(      94)+FAC*PHI(      91)
      PHI(      95)=PHI(      95)+FAC*PHI(      92)
      PHI(      96)=PHI(      96)+FAC*PHI(      93)
      FAC=SFAC( 2)
      PHI(     121)=PHI(     121)+FAC*PHI(      91)
      PHI(     122)=PHI(     122)+FAC*PHI(      92)
      PHI(     123)=PHI(     123)+FAC*PHI(      93)
      FAC=SFAC( 1)
      J=     145
      DO I=     152,     158
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     145
      DO I=     208,     214
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     250
      DO I=     263,     275
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     250
      DO I=     341,     353
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     406
      DO I=     428,     449
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     406
      DO I=     538,     559
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     604
      DO I=     638,     671
      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( 3)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      86)=PHI(      86)+FAC*PHI(      82)
      FAC=SFAC( 5)
      PHI(      89)=PHI(      89)+FAC*PHI(      82)
      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( 4)
      PHI(     106)=PHI(     106)+FAC*PHI(      94)
      PHI(     107)=PHI(     107)+FAC*PHI(      95)
      PHI(     108)=PHI(     108)+FAC*PHI(      96)
      FAC=SFAC( 5)
      PHI(     115)=PHI(     115)+FAC*PHI(      94)
      PHI(     116)=PHI(     116)+FAC*PHI(      95)
      PHI(     117)=PHI(     117)+FAC*PHI(      96)
      FAC=SFAC( 3)
      PHI(     124)=PHI(     124)+FAC*PHI(     121)
      PHI(     125)=PHI(     125)+FAC*PHI(     122)
      PHI(     126)=PHI(     126)+FAC*PHI(     123)
      FAC=SFAC( 4)
      PHI(     130)=PHI(     130)+FAC*PHI(     121)
      PHI(     131)=PHI(     131)+FAC*PHI(     122)
      PHI(     132)=PHI(     132)+FAC*PHI(     123)
      FAC=SFAC( 5)
      PHI(     139)=PHI(     139)+FAC*PHI(     121)
      PHI(     140)=PHI(     140)+FAC*PHI(     122)
      PHI(     141)=PHI(     141)+FAC*PHI(     123)
      FAC=SFAC( 3)
      J=     152
      DO I=     159,     165
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     152
      DO I=     173,     179
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     152
      DO I=     194,     200
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     208
      DO I=     215,     221
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     208
      DO I=     236,     242
      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( 5)
      J=     263
      DO I=     315,     327
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     341
      DO I=     354,     366
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     341
      DO I=     380,     392
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     428
      DO I=     450,     471
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     428
      DO I=     494,     515
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     538
      DO I=     560,     581
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     638
      DO I=     672,     705
      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( 2)
      PHI(      85)=PHI(      85)+FAC*PHI(      83)
      FAC=SFAC( 3)
      PHI(      87)=PHI(      87)+FAC*PHI(      86)
      FAC=SFAC( 4)
      PHI(      88)=PHI(      88)+FAC*PHI(      86)
      FAC=SFAC( 5)
      PHI(      90)=PHI(      90)+FAC*PHI(      89)
      FAC=SFAC( 1)
      PHI(     100)=PHI(     100)+FAC*PHI(      97)
      PHI(     101)=PHI(     101)+FAC*PHI(      98)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      FAC=SFAC( 2)
      PHI(     103)=PHI(     103)+FAC*PHI(      97)
      PHI(     104)=PHI(     104)+FAC*PHI(      98)
      PHI(     105)=PHI(     105)+FAC*PHI(      99)
      FAC=SFAC( 3)
      PHI(     109)=PHI(     109)+FAC*PHI(     106)
      PHI(     110)=PHI(     110)+FAC*PHI(     107)
      PHI(     111)=PHI(     111)+FAC*PHI(     108)
      FAC=SFAC( 4)
      PHI(     112)=PHI(     112)+FAC*PHI(     106)
      PHI(     113)=PHI(     113)+FAC*PHI(     107)
      PHI(     114)=PHI(     114)+FAC*PHI(     108)
      FAC=SFAC( 5)
      PHI(     118)=PHI(     118)+FAC*PHI(     115)
      PHI(     119)=PHI(     119)+FAC*PHI(     116)
      PHI(     120)=PHI(     120)+FAC*PHI(     117)
      FAC=SFAC( 1)
      PHI(     127)=PHI(     127)+FAC*PHI(     124)
      PHI(     128)=PHI(     128)+FAC*PHI(     125)
      PHI(     129)=PHI(     129)+FAC*PHI(     126)
      FAC=SFAC( 2)
      PHI(     133)=PHI(     133)+FAC*PHI(     130)
      PHI(     134)=PHI(     134)+FAC*PHI(     131)
      PHI(     135)=PHI(     135)+FAC*PHI(     132)
      FAC=SFAC( 3)
      PHI(     136)=PHI(     136)+FAC*PHI(     130)
      PHI(     137)=PHI(     137)+FAC*PHI(     131)
      PHI(     138)=PHI(     138)+FAC*PHI(     132)
      FAC=SFAC( 4)
      PHI(     142)=PHI(     142)+FAC*PHI(     139)
      PHI(     143)=PHI(     143)+FAC*PHI(     140)
      PHI(     144)=PHI(     144)+FAC*PHI(     141)
      FAC=SFAC( 1)
      J=     159
      DO I=     166,     172
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     173
      DO I=     180,     186
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     173
      DO I=     187,     193
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     194
      DO I=     201,     207
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     215
      DO I=     222,     228
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     215
      DO I=     229,     235
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     236
      DO I=     243,     249
      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( 2)
      J=     276
      DO I=     302,     314
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     315
      DO I=     328,     340
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     354
      DO I=     367,     379
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     380
      DO I=     393,     405
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     450
      DO I=     472,     493
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     494
      DO I=     516,     537
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     560
      DO I=     582,     603
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     672
      DO I=     706,     739
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     167)=PHI(     167)-D01*PHI(     166)
      PHI(     169)=PHI(     169)-D01*PHI(     166)
      PHI(     172)=PHI(     172)-D01*PHI(     166)
      PHI(     181)=PHI(     181)-D01*PHI(     180)
      PHI(     183)=PHI(     183)-D01*PHI(     180)
      PHI(     186)=PHI(     186)-D01*PHI(     180)
      PHI(     188)=PHI(     188)-D01*PHI(     187)
      PHI(     190)=PHI(     190)-D01*PHI(     187)
      PHI(     193)=PHI(     193)-D01*PHI(     187)
      PHI(     202)=PHI(     202)-D01*PHI(     201)
      PHI(     204)=PHI(     204)-D01*PHI(     201)
      PHI(     207)=PHI(     207)-D01*PHI(     201)
      PHI(     223)=PHI(     223)-D01*PHI(     222)
      PHI(     225)=PHI(     225)-D01*PHI(     222)
      PHI(     228)=PHI(     228)-D01*PHI(     222)
      PHI(     230)=PHI(     230)-D01*PHI(     229)
      PHI(     232)=PHI(     232)-D01*PHI(     229)
      PHI(     235)=PHI(     235)-D01*PHI(     229)
      PHI(     244)=PHI(     244)-D01*PHI(     243)
      PHI(     246)=PHI(     246)-D01*PHI(     243)
      PHI(     249)=PHI(     249)-D01*PHI(     243)
      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(     305)=PHI(     305)-D01*PHI(     302)
      PHI(     306)=PHI(     306)-D01*PHI(     303)
      PHI(     308)=PHI(     308)-D01*PHI(     303)
      PHI(     309)=PHI(     309)-D01*PHI(     304)
      PHI(     311)=PHI(     311)-D01*PHI(     304)
      PHI(     314)=PHI(     314)-D01*PHI(     304)
      PHI(     305)=PHI(     305)-D02*PHI(     302)
      PHI(     307)=PHI(     307)-D01*PHI(     302)
      PHI(     308)=PHI(     308)-D02*PHI(     303)
      PHI(     312)=PHI(     312)-D01*PHI(     302)
      PHI(     313)=PHI(     313)-D01*PHI(     303)
      PHI(     314)=PHI(     314)-D02*PHI(     304)
      PHI(     331)=PHI(     331)-D01*PHI(     328)
      PHI(     332)=PHI(     332)-D01*PHI(     329)
      PHI(     334)=PHI(     334)-D01*PHI(     329)
      PHI(     335)=PHI(     335)-D01*PHI(     330)
      PHI(     337)=PHI(     337)-D01*PHI(     330)
      PHI(     340)=PHI(     340)-D01*PHI(     330)
      PHI(     331)=PHI(     331)-D02*PHI(     328)
      PHI(     333)=PHI(     333)-D01*PHI(     328)
      PHI(     334)=PHI(     334)-D02*PHI(     329)
      PHI(     338)=PHI(     338)-D01*PHI(     328)
      PHI(     339)=PHI(     339)-D01*PHI(     329)
      PHI(     340)=PHI(     340)-D02*PHI(     330)
      PHI(     370)=PHI(     370)-D01*PHI(     367)
      PHI(     371)=PHI(     371)-D01*PHI(     368)
      PHI(     373)=PHI(     373)-D01*PHI(     368)
      PHI(     374)=PHI(     374)-D01*PHI(     369)
      PHI(     376)=PHI(     376)-D01*PHI(     369)
      PHI(     379)=PHI(     379)-D01*PHI(     369)
      PHI(     370)=PHI(     370)-D02*PHI(     367)
      PHI(     372)=PHI(     372)-D01*PHI(     367)
      PHI(     373)=PHI(     373)-D02*PHI(     368)
      PHI(     377)=PHI(     377)-D01*PHI(     367)
      PHI(     378)=PHI(     378)-D01*PHI(     368)
      PHI(     379)=PHI(     379)-D02*PHI(     369)
      PHI(     396)=PHI(     396)-D01*PHI(     393)
      PHI(     397)=PHI(     397)-D01*PHI(     394)
      PHI(     399)=PHI(     399)-D01*PHI(     394)
      PHI(     400)=PHI(     400)-D01*PHI(     395)
      PHI(     402)=PHI(     402)-D01*PHI(     395)
      PHI(     405)=PHI(     405)-D01*PHI(     395)
      PHI(     396)=PHI(     396)-D02*PHI(     393)
      PHI(     398)=PHI(     398)-D01*PHI(     393)
      PHI(     399)=PHI(     399)-D02*PHI(     394)
      PHI(     403)=PHI(     403)-D01*PHI(     393)
      PHI(     404)=PHI(     404)-D01*PHI(     394)
      PHI(     405)=PHI(     405)-D02*PHI(     395)
      PHI(     479)=PHI(     479)-D01*PHI(     473)
      PHI(     480)=PHI(     480)-D01*PHI(     474)
      PHI(     481)=PHI(     481)-D01*PHI(     475)
      PHI(     483)=PHI(     483)-D01*PHI(     475)
      PHI(     484)=PHI(     484)-D01*PHI(     476)
      PHI(     485)=PHI(     485)-D01*PHI(     477)
      PHI(     487)=PHI(     487)-D01*PHI(     477)
      PHI(     488)=PHI(     488)-D01*PHI(     478)
      PHI(     490)=PHI(     490)-D01*PHI(     478)
      PHI(     493)=PHI(     493)-D01*PHI(     478)
      PHI(     479)=PHI(     479)-D02*PHI(     473)
      PHI(     480)=PHI(     480)-D02*PHI(     474)
      PHI(     482)=PHI(     482)-D01*PHI(     474)
      PHI(     483)=PHI(     483)-D02*PHI(     475)
      PHI(     484)=PHI(     484)-D02*PHI(     476)
      PHI(     486)=PHI(     486)-D01*PHI(     476)
      PHI(     487)=PHI(     487)-D02*PHI(     477)
      PHI(     491)=PHI(     491)-D01*PHI(     476)
      PHI(     492)=PHI(     492)-D01*PHI(     477)
      PHI(     493)=PHI(     493)-D02*PHI(     478)
      PHI(     473)=PHI(     473)-D01*PHI(     472)
      PHI(     475)=PHI(     475)-D01*PHI(     472)
      PHI(     478)=PHI(     478)-D01*PHI(     472)
      PHI(     479)=PHI(     479)-D03*PHI(     473)
      PHI(     481)=PHI(     481)-D01*PHI(     473)
      PHI(     482)=PHI(     482)-D02*PHI(     474)
      PHI(     483)=PHI(     483)-D03*PHI(     475)
      PHI(     488)=PHI(     488)-D01*PHI(     473)
      PHI(     489)=PHI(     489)-D01*PHI(     474)
      PHI(     490)=PHI(     490)-D01*PHI(     475)
      PHI(     491)=PHI(     491)-D02*PHI(     476)
      PHI(     492)=PHI(     492)-D02*PHI(     477)
      PHI(     493)=PHI(     493)-D03*PHI(     478)
      PHI(     523)=PHI(     523)-D01*PHI(     517)
      PHI(     524)=PHI(     524)-D01*PHI(     518)
      PHI(     525)=PHI(     525)-D01*PHI(     519)
      PHI(     527)=PHI(     527)-D01*PHI(     519)
      PHI(     528)=PHI(     528)-D01*PHI(     520)
      PHI(     529)=PHI(     529)-D01*PHI(     521)
      PHI(     531)=PHI(     531)-D01*PHI(     521)
      PHI(     532)=PHI(     532)-D01*PHI(     522)
      PHI(     534)=PHI(     534)-D01*PHI(     522)
      PHI(     537)=PHI(     537)-D01*PHI(     522)
      PHI(     523)=PHI(     523)-D02*PHI(     517)
      PHI(     524)=PHI(     524)-D02*PHI(     518)
      PHI(     526)=PHI(     526)-D01*PHI(     518)
      PHI(     527)=PHI(     527)-D02*PHI(     519)
      PHI(     528)=PHI(     528)-D02*PHI(     520)
      PHI(     530)=PHI(     530)-D01*PHI(     520)
      PHI(     531)=PHI(     531)-D02*PHI(     521)
      PHI(     535)=PHI(     535)-D01*PHI(     520)
      PHI(     536)=PHI(     536)-D01*PHI(     521)
      PHI(     537)=PHI(     537)-D02*PHI(     522)
      PHI(     517)=PHI(     517)-D01*PHI(     516)
      PHI(     519)=PHI(     519)-D01*PHI(     516)
      PHI(     522)=PHI(     522)-D01*PHI(     516)
      PHI(     523)=PHI(     523)-D03*PHI(     517)
      PHI(     525)=PHI(     525)-D01*PHI(     517)
      PHI(     526)=PHI(     526)-D02*PHI(     518)
      PHI(     527)=PHI(     527)-D03*PHI(     519)
      PHI(     532)=PHI(     532)-D01*PHI(     517)
      PHI(     533)=PHI(     533)-D01*PHI(     518)
      PHI(     534)=PHI(     534)-D01*PHI(     519)
      PHI(     535)=PHI(     535)-D02*PHI(     520)
      PHI(     536)=PHI(     536)-D02*PHI(     521)
      PHI(     537)=PHI(     537)-D03*PHI(     522)
      PHI(     589)=PHI(     589)-D01*PHI(     583)
      PHI(     590)=PHI(     590)-D01*PHI(     584)
      PHI(     591)=PHI(     591)-D01*PHI(     585)
      PHI(     593)=PHI(     593)-D01*PHI(     585)
      PHI(     594)=PHI(     594)-D01*PHI(     586)
      PHI(     595)=PHI(     595)-D01*PHI(     587)
      PHI(     597)=PHI(     597)-D01*PHI(     587)
      PHI(     598)=PHI(     598)-D01*PHI(     588)
      PHI(     600)=PHI(     600)-D01*PHI(     588)
      PHI(     603)=PHI(     603)-D01*PHI(     588)
      PHI(     589)=PHI(     589)-D02*PHI(     583)
      PHI(     590)=PHI(     590)-D02*PHI(     584)
      PHI(     592)=PHI(     592)-D01*PHI(     584)
      PHI(     593)=PHI(     593)-D02*PHI(     585)
      PHI(     594)=PHI(     594)-D02*PHI(     586)
      PHI(     596)=PHI(     596)-D01*PHI(     586)
      PHI(     597)=PHI(     597)-D02*PHI(     587)
      PHI(     601)=PHI(     601)-D01*PHI(     586)
      PHI(     602)=PHI(     602)-D01*PHI(     587)
      PHI(     603)=PHI(     603)-D02*PHI(     588)
      PHI(     583)=PHI(     583)-D01*PHI(     582)
      PHI(     585)=PHI(     585)-D01*PHI(     582)
      PHI(     588)=PHI(     588)-D01*PHI(     582)
      PHI(     589)=PHI(     589)-D03*PHI(     583)
      PHI(     591)=PHI(     591)-D01*PHI(     583)
      PHI(     592)=PHI(     592)-D02*PHI(     584)
      PHI(     593)=PHI(     593)-D03*PHI(     585)
      PHI(     598)=PHI(     598)-D01*PHI(     583)
      PHI(     599)=PHI(     599)-D01*PHI(     584)
      PHI(     600)=PHI(     600)-D01*PHI(     585)
      PHI(     601)=PHI(     601)-D02*PHI(     586)
      PHI(     602)=PHI(     602)-D02*PHI(     587)
      PHI(     603)=PHI(     603)-D03*PHI(     588)
      PHI(     719)=PHI(     719)-D01*PHI(     709)
      PHI(     720)=PHI(     720)-D01*PHI(     710)
      PHI(     721)=PHI(     721)-D01*PHI(     711)
      PHI(     722)=PHI(     722)-D01*PHI(     712)
      PHI(     724)=PHI(     724)-D01*PHI(     712)
      PHI(     725)=PHI(     725)-D01*PHI(     713)
      PHI(     726)=PHI(     726)-D01*PHI(     714)
      PHI(     727)=PHI(     727)-D01*PHI(     715)
      PHI(     729)=PHI(     729)-D01*PHI(     715)
      PHI(     730)=PHI(     730)-D01*PHI(     716)
      PHI(     731)=PHI(     731)-D01*PHI(     717)
      PHI(     733)=PHI(     733)-D01*PHI(     717)
      PHI(     734)=PHI(     734)-D01*PHI(     718)
      PHI(     736)=PHI(     736)-D01*PHI(     718)
      PHI(     739)=PHI(     739)-D01*PHI(     718)
      PHI(     719)=PHI(     719)-D02*PHI(     709)
      PHI(     720)=PHI(     720)-D02*PHI(     710)
      PHI(     721)=PHI(     721)-D02*PHI(     711)
      PHI(     723)=PHI(     723)-D01*PHI(     711)
      PHI(     724)=PHI(     724)-D02*PHI(     712)
      PHI(     725)=PHI(     725)-D02*PHI(     713)
      PHI(     726)=PHI(     726)-D02*PHI(     714)
      PHI(     728)=PHI(     728)-D01*PHI(     714)
      PHI(     729)=PHI(     729)-D02*PHI(     715)
      PHI(     730)=PHI(     730)-D02*PHI(     716)
      PHI(     732)=PHI(     732)-D01*PHI(     716)
      PHI(     733)=PHI(     733)-D02*PHI(     717)
      PHI(     737)=PHI(     737)-D01*PHI(     716)
      PHI(     738)=PHI(     738)-D01*PHI(     717)
      PHI(     739)=PHI(     739)-D02*PHI(     718)
      PHI(     709)=PHI(     709)-D01*PHI(     706)
      PHI(     710)=PHI(     710)-D01*PHI(     707)
      PHI(     712)=PHI(     712)-D01*PHI(     707)
      PHI(     713)=PHI(     713)-D01*PHI(     708)
      PHI(     715)=PHI(     715)-D01*PHI(     708)
      PHI(     718)=PHI(     718)-D01*PHI(     708)
      PHI(     719)=PHI(     719)-D03*PHI(     709)
      PHI(     720)=PHI(     720)-D03*PHI(     710)
      PHI(     722)=PHI(     722)-D01*PHI(     710)
      PHI(     723)=PHI(     723)-D02*PHI(     711)
      PHI(     724)=PHI(     724)-D03*PHI(     712)
      PHI(     725)=PHI(     725)-D03*PHI(     713)
      PHI(     727)=PHI(     727)-D01*PHI(     713)
      PHI(     728)=PHI(     728)-D02*PHI(     714)
      PHI(     729)=PHI(     729)-D03*PHI(     715)
      PHI(     734)=PHI(     734)-D01*PHI(     713)
      PHI(     735)=PHI(     735)-D01*PHI(     714)
      PHI(     736)=PHI(     736)-D01*PHI(     715)
      PHI(     737)=PHI(     737)-D02*PHI(     716)
      PHI(     738)=PHI(     738)-D02*PHI(     717)
      PHI(     739)=PHI(     739)-D03*PHI(     718)
      PHI(     709)=PHI(     709)-D02*PHI(     706)
      PHI(     711)=PHI(     711)-D01*PHI(     706)
      PHI(     712)=PHI(     712)-D02*PHI(     707)
      PHI(     716)=PHI(     716)-D01*PHI(     706)
      PHI(     717)=PHI(     717)-D01*PHI(     707)
      PHI(     718)=PHI(     718)-D02*PHI(     708)
      PHI(     719)=PHI(     719)-D04*PHI(     709)
      PHI(     721)=PHI(     721)-D01*PHI(     709)
      PHI(     722)=PHI(     722)-D02*PHI(     710)
      PHI(     723)=PHI(     723)-D03*PHI(     711)
      PHI(     724)=PHI(     724)-D04*PHI(     712)
      PHI(     730)=PHI(     730)-D01*PHI(     709)
      PHI(     731)=PHI(     731)-D01*PHI(     710)
      PHI(     732)=PHI(     732)-D01*PHI(     711)
      PHI(     733)=PHI(     733)-D01*PHI(     712)
      PHI(     734)=PHI(     734)-D02*PHI(     713)
      PHI(     735)=PHI(     735)-D02*PHI(     714)
      PHI(     736)=PHI(     736)-D02*PHI(     715)
      PHI(     737)=PHI(     737)-D03*PHI(     716)
      PHI(     738)=PHI(     738)-D03*PHI(     717)
      PHI(     739)=PHI(     739)-D04*PHI(     718)
      CONF(1)=XB-XA
      CONF(2)=YB-YA
      CONF(3)=ZB-ZA
      WRK1(    2)= PHI(     112)+CONF( 1)*PHI(      88)
      WRK1(    3)= PHI(     113)+CONF( 2)*PHI(      88)
      WRK1(    4)= PHI(     114)+CONF( 3)*PHI(      88)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 1)
      WRK1(    2)= PHI(     103)+CONF( 1)*PHI(      85)
      WRK1(    3)= PHI(     104)+CONF( 2)*PHI(      85)
      WRK1(    4)= PHI(     105)+CONF( 3)*PHI(      85)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 2)
      WRK1(    2)=-PHI(     188)-CONF( 1)*PHI(     136)
      WRK1(    3)=-PHI(     189)-CONF( 2)*PHI(     136)
      WRK1(    4)=-PHI(     191)-CONF( 3)*PHI(     136)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 3)
      WRK1(    2)=-PHI(     189)-CONF( 1)*PHI(     137)
      WRK1(    3)=-PHI(     190)-CONF( 2)*PHI(     137)
      WRK1(    4)=-PHI(     192)-CONF( 3)*PHI(     137)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 4)
      WRK1(    2)=-PHI(     191)-CONF( 1)*PHI(     138)
      WRK1(    3)=-PHI(     192)-CONF( 2)*PHI(     138)
      WRK1(    4)=-PHI(     193)-CONF( 3)*PHI(     138)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 5)
      WRK1(    2)=-PHI(     167)-CONF( 1)*PHI(     127)
      WRK1(    3)=-PHI(     168)-CONF( 2)*PHI(     127)
      WRK1(    4)=-PHI(     170)-CONF( 3)*PHI(     127)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 6)
      WRK1(    2)=-PHI(     168)-CONF( 1)*PHI(     128)
      WRK1(    3)=-PHI(     169)-CONF( 2)*PHI(     128)
      WRK1(    4)=-PHI(     171)-CONF( 3)*PHI(     128)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 7)
      WRK1(    2)=-PHI(     170)-CONF( 1)*PHI(     129)
      WRK1(    3)=-PHI(     171)-CONF( 2)*PHI(     129)
      WRK1(    4)=-PHI(     172)-CONF( 3)*PHI(     129)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 8)
      WRK1(    2)= PHI(     305)+CONF( 1)*PHI(     230)
      WRK1(    3)= PHI(     306)+CONF( 2)*PHI(     230)
      WRK1(    4)= PHI(     309)+CONF( 3)*PHI(     230)
      CALL FPPS_BCTE(WRK1,WRK2,LENW, 9)
      WRK1(    2)= PHI(     306)+CONF( 1)*PHI(     231)
      WRK1(    3)= PHI(     307)+CONF( 2)*PHI(     231)
      WRK1(    4)= PHI(     310)+CONF( 3)*PHI(     231)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,10)
      WRK1(    2)= PHI(     307)+CONF( 1)*PHI(     232)
      WRK1(    3)= PHI(     308)+CONF( 2)*PHI(     232)
      WRK1(    4)= PHI(     311)+CONF( 3)*PHI(     232)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,11)
      WRK1(    2)= PHI(     309)+CONF( 1)*PHI(     233)
      WRK1(    3)= PHI(     310)+CONF( 2)*PHI(     233)
      WRK1(    4)= PHI(     312)+CONF( 3)*PHI(     233)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,12)
      WRK1(    2)= PHI(     310)+CONF( 1)*PHI(     234)
      WRK1(    3)= PHI(     311)+CONF( 2)*PHI(     234)
      WRK1(    4)= PHI(     313)+CONF( 3)*PHI(     234)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,13)
      WRK1(    2)= PHI(     312)+CONF( 1)*PHI(     235)
      WRK1(    3)= PHI(     313)+CONF( 2)*PHI(     235)
      WRK1(    4)= PHI(     314)+CONF( 3)*PHI(     235)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,14)
      WRK1(    2)=-PHI(     479)-CONF( 1)*PHI(     370)
      WRK1(    3)=-PHI(     480)-CONF( 2)*PHI(     370)
      WRK1(    4)=-PHI(     484)-CONF( 3)*PHI(     370)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,15)
      WRK1(    2)=-PHI(     480)-CONF( 1)*PHI(     371)
      WRK1(    3)=-PHI(     481)-CONF( 2)*PHI(     371)
      WRK1(    4)=-PHI(     485)-CONF( 3)*PHI(     371)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,16)
      WRK1(    2)=-PHI(     481)-CONF( 1)*PHI(     372)
      WRK1(    3)=-PHI(     482)-CONF( 2)*PHI(     372)
      WRK1(    4)=-PHI(     486)-CONF( 3)*PHI(     372)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,17)
      WRK1(    2)=-PHI(     482)-CONF( 1)*PHI(     373)
      WRK1(    3)=-PHI(     483)-CONF( 2)*PHI(     373)
      WRK1(    4)=-PHI(     487)-CONF( 3)*PHI(     373)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,18)
      WRK1(    2)=-PHI(     484)-CONF( 1)*PHI(     374)
      WRK1(    3)=-PHI(     485)-CONF( 2)*PHI(     374)
      WRK1(    4)=-PHI(     488)-CONF( 3)*PHI(     374)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,19)
      WRK1(    2)=-PHI(     485)-CONF( 1)*PHI(     375)
      WRK1(    3)=-PHI(     486)-CONF( 2)*PHI(     375)
      WRK1(    4)=-PHI(     489)-CONF( 3)*PHI(     375)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,20)
      WRK1(    2)=-PHI(     486)-CONF( 1)*PHI(     376)
      WRK1(    3)=-PHI(     487)-CONF( 2)*PHI(     376)
      WRK1(    4)=-PHI(     490)-CONF( 3)*PHI(     376)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,21)
      WRK1(    2)=-PHI(     488)-CONF( 1)*PHI(     377)
      WRK1(    3)=-PHI(     489)-CONF( 2)*PHI(     377)
      WRK1(    4)=-PHI(     491)-CONF( 3)*PHI(     377)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,22)
      WRK1(    2)=-PHI(     489)-CONF( 1)*PHI(     378)
      WRK1(    3)=-PHI(     490)-CONF( 2)*PHI(     378)
      WRK1(    4)=-PHI(     492)-CONF( 3)*PHI(     378)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,23)
      WRK1(    2)=-PHI(     491)-CONF( 1)*PHI(     379)
      WRK1(    3)=-PHI(     492)-CONF( 2)*PHI(     379)
      WRK1(    4)=-PHI(     493)-CONF( 3)*PHI(     379)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,24)
      WRK1(    2)= PHI(     118)+CONF( 1)*PHI(      90)
      WRK1(    3)= PHI(     119)+CONF( 2)*PHI(      90)
      WRK1(    4)= PHI(     120)+CONF( 3)*PHI(      90)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,25)
      WRK1(    2)= PHI(     109)+CONF( 1)*PHI(      87)
      WRK1(    3)= PHI(     110)+CONF( 2)*PHI(      87)
      WRK1(    4)= PHI(     111)+CONF( 3)*PHI(      87)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,26)
      WRK1(    2)= PHI(     100)+CONF( 1)*PHI(      84)
      WRK1(    3)= PHI(     101)+CONF( 2)*PHI(      84)
      WRK1(    4)= PHI(     102)+CONF( 3)*PHI(      84)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,27)
      WRK1(    2)=-PHI(     202)-CONF( 1)*PHI(     142)
      WRK1(    3)=-PHI(     203)-CONF( 2)*PHI(     142)
      WRK1(    4)=-PHI(     205)-CONF( 3)*PHI(     142)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,28)
      WRK1(    2)=-PHI(     203)-CONF( 1)*PHI(     143)
      WRK1(    3)=-PHI(     204)-CONF( 2)*PHI(     143)
      WRK1(    4)=-PHI(     206)-CONF( 3)*PHI(     143)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,29)
      WRK1(    2)=-PHI(     205)-CONF( 1)*PHI(     144)
      WRK1(    3)=-PHI(     206)-CONF( 2)*PHI(     144)
      WRK1(    4)=-PHI(     207)-CONF( 3)*PHI(     144)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,30)
      WRK1(    2)=-PHI(     181)-CONF( 1)*PHI(     133)
      WRK1(    3)=-PHI(     182)-CONF( 2)*PHI(     133)
      WRK1(    4)=-PHI(     184)-CONF( 3)*PHI(     133)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,31)
      WRK1(    2)=-PHI(     182)-CONF( 1)*PHI(     134)
      WRK1(    3)=-PHI(     183)-CONF( 2)*PHI(     134)
      WRK1(    4)=-PHI(     185)-CONF( 3)*PHI(     134)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,32)
      WRK1(    2)=-PHI(     184)-CONF( 1)*PHI(     135)
      WRK1(    3)=-PHI(     185)-CONF( 2)*PHI(     135)
      WRK1(    4)=-PHI(     186)-CONF( 3)*PHI(     135)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,33)
      WRK1(    2)= PHI(     331)+CONF( 1)*PHI(     244)
      WRK1(    3)= PHI(     332)+CONF( 2)*PHI(     244)
      WRK1(    4)= PHI(     335)+CONF( 3)*PHI(     244)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,34)
      WRK1(    2)= PHI(     332)+CONF( 1)*PHI(     245)
      WRK1(    3)= PHI(     333)+CONF( 2)*PHI(     245)
      WRK1(    4)= PHI(     336)+CONF( 3)*PHI(     245)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,35)
      WRK1(    2)= PHI(     333)+CONF( 1)*PHI(     246)
      WRK1(    3)= PHI(     334)+CONF( 2)*PHI(     246)
      WRK1(    4)= PHI(     337)+CONF( 3)*PHI(     246)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,36)
      WRK1(    2)= PHI(     335)+CONF( 1)*PHI(     247)
      WRK1(    3)= PHI(     336)+CONF( 2)*PHI(     247)
      WRK1(    4)= PHI(     338)+CONF( 3)*PHI(     247)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,37)
      WRK1(    2)= PHI(     336)+CONF( 1)*PHI(     248)
      WRK1(    3)= PHI(     337)+CONF( 2)*PHI(     248)
      WRK1(    4)= PHI(     339)+CONF( 3)*PHI(     248)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,38)
      WRK1(    2)= PHI(     338)+CONF( 1)*PHI(     249)
      WRK1(    3)= PHI(     339)+CONF( 2)*PHI(     249)
      WRK1(    4)= PHI(     340)+CONF( 3)*PHI(     249)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,39)
      WRK1(    2)= PHI(     292)+CONF( 1)*PHI(     223)
      WRK1(    3)= PHI(     293)+CONF( 2)*PHI(     223)
      WRK1(    4)= PHI(     296)+CONF( 3)*PHI(     223)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,40)
      WRK1(    2)= PHI(     293)+CONF( 1)*PHI(     224)
      WRK1(    3)= PHI(     294)+CONF( 2)*PHI(     224)
      WRK1(    4)= PHI(     297)+CONF( 3)*PHI(     224)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,41)
      WRK1(    2)= PHI(     294)+CONF( 1)*PHI(     225)
      WRK1(    3)= PHI(     295)+CONF( 2)*PHI(     225)
      WRK1(    4)= PHI(     298)+CONF( 3)*PHI(     225)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,42)
      WRK1(    2)= PHI(     296)+CONF( 1)*PHI(     226)
      WRK1(    3)= PHI(     297)+CONF( 2)*PHI(     226)
      WRK1(    4)= PHI(     299)+CONF( 3)*PHI(     226)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,43)
      WRK1(    2)= PHI(     297)+CONF( 1)*PHI(     227)
      WRK1(    3)= PHI(     298)+CONF( 2)*PHI(     227)
      WRK1(    4)= PHI(     300)+CONF( 3)*PHI(     227)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,44)
      WRK1(    2)= PHI(     299)+CONF( 1)*PHI(     228)
      WRK1(    3)= PHI(     300)+CONF( 2)*PHI(     228)
      WRK1(    4)= PHI(     301)+CONF( 3)*PHI(     228)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,45)
      WRK1(    2)=-PHI(     523)-CONF( 1)*PHI(     396)
      WRK1(    3)=-PHI(     524)-CONF( 2)*PHI(     396)
      WRK1(    4)=-PHI(     528)-CONF( 3)*PHI(     396)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,46)
      WRK1(    2)=-PHI(     524)-CONF( 1)*PHI(     397)
      WRK1(    3)=-PHI(     525)-CONF( 2)*PHI(     397)
      WRK1(    4)=-PHI(     529)-CONF( 3)*PHI(     397)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,47)
      WRK1(    2)=-PHI(     525)-CONF( 1)*PHI(     398)
      WRK1(    3)=-PHI(     526)-CONF( 2)*PHI(     398)
      WRK1(    4)=-PHI(     530)-CONF( 3)*PHI(     398)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,48)
      WRK1(    2)=-PHI(     526)-CONF( 1)*PHI(     399)
      WRK1(    3)=-PHI(     527)-CONF( 2)*PHI(     399)
      WRK1(    4)=-PHI(     531)-CONF( 3)*PHI(     399)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,49)
      WRK1(    2)=-PHI(     528)-CONF( 1)*PHI(     400)
      WRK1(    3)=-PHI(     529)-CONF( 2)*PHI(     400)
      WRK1(    4)=-PHI(     532)-CONF( 3)*PHI(     400)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,50)
      WRK1(    2)=-PHI(     529)-CONF( 1)*PHI(     401)
      WRK1(    3)=-PHI(     530)-CONF( 2)*PHI(     401)
      WRK1(    4)=-PHI(     533)-CONF( 3)*PHI(     401)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,51)
      WRK1(    2)=-PHI(     530)-CONF( 1)*PHI(     402)
      WRK1(    3)=-PHI(     531)-CONF( 2)*PHI(     402)
      WRK1(    4)=-PHI(     534)-CONF( 3)*PHI(     402)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,52)
      WRK1(    2)=-PHI(     532)-CONF( 1)*PHI(     403)
      WRK1(    3)=-PHI(     533)-CONF( 2)*PHI(     403)
      WRK1(    4)=-PHI(     535)-CONF( 3)*PHI(     403)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,53)
      WRK1(    2)=-PHI(     533)-CONF( 1)*PHI(     404)
      WRK1(    3)=-PHI(     534)-CONF( 2)*PHI(     404)
      WRK1(    4)=-PHI(     536)-CONF( 3)*PHI(     404)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,54)
      WRK1(    2)=-PHI(     535)-CONF( 1)*PHI(     405)
      WRK1(    3)=-PHI(     536)-CONF( 2)*PHI(     405)
      WRK1(    4)=-PHI(     537)-CONF( 3)*PHI(     405)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,55)
      WRK1(    2)= PHI(     719)+CONF( 1)*PHI(     589)
      WRK1(    3)= PHI(     720)+CONF( 2)*PHI(     589)
      WRK1(    4)= PHI(     725)+CONF( 3)*PHI(     589)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,56)
      WRK1(    2)= PHI(     720)+CONF( 1)*PHI(     590)
      WRK1(    3)= PHI(     721)+CONF( 2)*PHI(     590)
      WRK1(    4)= PHI(     726)+CONF( 3)*PHI(     590)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,57)
      WRK1(    2)= PHI(     721)+CONF( 1)*PHI(     591)
      WRK1(    3)= PHI(     722)+CONF( 2)*PHI(     591)
      WRK1(    4)= PHI(     727)+CONF( 3)*PHI(     591)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,58)
      WRK1(    2)= PHI(     722)+CONF( 1)*PHI(     592)
      WRK1(    3)= PHI(     723)+CONF( 2)*PHI(     592)
      WRK1(    4)= PHI(     728)+CONF( 3)*PHI(     592)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,59)
      WRK1(    2)= PHI(     723)+CONF( 1)*PHI(     593)
      WRK1(    3)= PHI(     724)+CONF( 2)*PHI(     593)
      WRK1(    4)= PHI(     729)+CONF( 3)*PHI(     593)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,60)
      WRK1(    2)= PHI(     725)+CONF( 1)*PHI(     594)
      WRK1(    3)= PHI(     726)+CONF( 2)*PHI(     594)
      WRK1(    4)= PHI(     730)+CONF( 3)*PHI(     594)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,61)
      WRK1(    2)= PHI(     726)+CONF( 1)*PHI(     595)
      WRK1(    3)= PHI(     727)+CONF( 2)*PHI(     595)
      WRK1(    4)= PHI(     731)+CONF( 3)*PHI(     595)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,62)
      WRK1(    2)= PHI(     727)+CONF( 1)*PHI(     596)
      WRK1(    3)= PHI(     728)+CONF( 2)*PHI(     596)
      WRK1(    4)= PHI(     732)+CONF( 3)*PHI(     596)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,63)
      WRK1(    2)= PHI(     728)+CONF( 1)*PHI(     597)
      WRK1(    3)= PHI(     729)+CONF( 2)*PHI(     597)
      WRK1(    4)= PHI(     733)+CONF( 3)*PHI(     597)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,64)
      WRK1(    2)= PHI(     730)+CONF( 1)*PHI(     598)
      WRK1(    3)= PHI(     731)+CONF( 2)*PHI(     598)
      WRK1(    4)= PHI(     734)+CONF( 3)*PHI(     598)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,65)
      WRK1(    2)= PHI(     731)+CONF( 1)*PHI(     599)
      WRK1(    3)= PHI(     732)+CONF( 2)*PHI(     599)
      WRK1(    4)= PHI(     735)+CONF( 3)*PHI(     599)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,66)
      WRK1(    2)= PHI(     732)+CONF( 1)*PHI(     600)
      WRK1(    3)= PHI(     733)+CONF( 2)*PHI(     600)
      WRK1(    4)= PHI(     736)+CONF( 3)*PHI(     600)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,67)
      WRK1(    2)= PHI(     734)+CONF( 1)*PHI(     601)
      WRK1(    3)= PHI(     735)+CONF( 2)*PHI(     601)
      WRK1(    4)= PHI(     737)+CONF( 3)*PHI(     601)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,68)
      WRK1(    2)= PHI(     735)+CONF( 1)*PHI(     602)
      WRK1(    3)= PHI(     736)+CONF( 2)*PHI(     602)
      WRK1(    4)= PHI(     738)+CONF( 3)*PHI(     602)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,69)
      WRK1(    2)= PHI(     737)+CONF( 1)*PHI(     603)
      WRK1(    3)= PHI(     738)+CONF( 2)*PHI(     603)
      WRK1(    4)= PHI(     739)+CONF( 3)*PHI(     603)
      CALL FPPS_BCTE(WRK1,WRK2,LENW,70)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     3
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 6)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 1)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 6)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 1)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 1)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   55,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 6)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 5)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 1)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 5)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 2)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 5)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 1)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 1)*WRK2(   30,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 2)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 1)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 1)*WRK2(   33,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 2)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   26,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   26,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   26,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 5)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 5)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 2)*WRK2(   53,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 5)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 2)*WRK2(   37,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 2)*WRK2(   28,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 3)*WRK2(   28,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 3)*WRK2(   29,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 2)*WRK2(   31,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 3)*WRK2(   31,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 3)*WRK2(   32,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 2)*WRK2(   50,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   34,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   34,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 3)*WRK2(   35,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 3)*WRK2(   36,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 3)*WRK2(   46,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 3)*WRK2(   47,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   71,I)=WRK2(   56,I)-CONF( 1)*WRK2(   15,I)
      WRK2(   72,I)=WRK2(   57,I)-CONF( 1)*WRK2(   16,I)
      WRK2(   73,I)=WRK2(   58,I)-CONF( 1)*WRK2(   17,I)
      WRK2(   74,I)=WRK2(   59,I)-CONF( 1)*WRK2(   18,I)
      WRK2(   75,I)=WRK2(   61,I)-CONF( 1)*WRK2(   19,I)
      WRK2(   76,I)=WRK2(   62,I)-CONF( 1)*WRK2(   20,I)
      WRK2(   77,I)=WRK2(   63,I)-CONF( 1)*WRK2(   21,I)
      WRK2(   78,I)=WRK2(   65,I)-CONF( 1)*WRK2(   22,I)
      WRK2(   79,I)=WRK2(   66,I)-CONF( 1)*WRK2(   23,I)
      WRK2(   80,I)=WRK2(   68,I)-CONF( 1)*WRK2(   24,I)
      WRK2(   81,I)=WRK2(   57,I)-CONF( 2)*WRK2(   15,I)
      WRK2(   82,I)=WRK2(   58,I)-CONF( 2)*WRK2(   16,I)
      WRK2(   83,I)=WRK2(   59,I)-CONF( 2)*WRK2(   17,I)
      WRK2(   84,I)=WRK2(   60,I)-CONF( 2)*WRK2(   18,I)
      WRK2(   85,I)=WRK2(   62,I)-CONF( 2)*WRK2(   19,I)
      WRK2(   86,I)=WRK2(   63,I)-CONF( 2)*WRK2(   20,I)
      WRK2(   87,I)=WRK2(   64,I)-CONF( 2)*WRK2(   21,I)
      WRK2(   88,I)=WRK2(   66,I)-CONF( 2)*WRK2(   22,I)
      WRK2(   89,I)=WRK2(   67,I)-CONF( 2)*WRK2(   23,I)
      WRK2(   90,I)=WRK2(   69,I)-CONF( 2)*WRK2(   24,I)
      WRK2(   91,I)=WRK2(   61,I)-CONF( 3)*WRK2(   15,I)
      WRK2(   92,I)=WRK2(   62,I)-CONF( 3)*WRK2(   16,I)
      WRK2(   93,I)=WRK2(   63,I)-CONF( 3)*WRK2(   17,I)
      WRK2(   94,I)=WRK2(   64,I)-CONF( 3)*WRK2(   18,I)
      WRK2(   95,I)=WRK2(   65,I)-CONF( 3)*WRK2(   19,I)
      WRK2(   96,I)=WRK2(   66,I)-CONF( 3)*WRK2(   20,I)
      WRK2(   97,I)=WRK2(   67,I)-CONF( 3)*WRK2(   21,I)
      WRK2(   98,I)=WRK2(   68,I)-CONF( 3)*WRK2(   22,I)
      WRK2(   99,I)=WRK2(   69,I)-CONF( 3)*WRK2(   23,I)
      WRK2(  100,I)=WRK2(   70,I)-CONF( 3)*WRK2(   24,I)
      END DO
      RETURN
      END
C*MODULE INT2F   *DECK PFFS_BCTE
      SUBROUTINE FPPS_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=     589
C  LWK1=       1
C  LWK2=     285
C  LENW=     285
C*MODULE INT2F   *DECK FDSS
      SUBROUTINE FDSS (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: 5),CXYZ( 56)
      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 (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(      85)=ZERO
      PHI(      87)=ZERO
      PHI(      88)=ZERO
      PHI(      89)=ZERO
      PHI(      91)=ZERO
      PHI(      92)=ZERO
      PHI(      94)=ZERO
      PHI(     104)=ZERO
      PHI(     105)=ZERO
      PHI(     106)=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(     118)=ZERO
      PHI(     122)=ZERO
      PHI(     123)=ZERO
      PHI(     124)=ZERO
      PHI(     125)=ZERO
      PHI(     126)=ZERO
      PHI(     127)=ZERO
      PHI(     131)=ZERO
      PHI(     132)=ZERO
      PHI(     133)=ZERO
      DO I=     155,     161
      PHI(I)=ZERO
      END DO
      DO I=     162,     168
      PHI(I)=ZERO
      END DO
      DO I=     176,     182
      PHI(I)=ZERO
      END DO
      DO I=     183,     189
      PHI(I)=ZERO
      END DO
      DO I=     197,     203
      PHI(I)=ZERO
      END DO
      DO I=     243,     255
      PHI(I)=ZERO
      END DO
      DO I=     269,     281
      PHI(I)=ZERO
      END DO
      DO I=     282,     294
      PHI(I)=ZERO
      END DO
      DO I=     308,     320
      PHI(I)=ZERO
      END DO
      DO I=     387,     408
      PHI(I)=ZERO
      END DO
      DO I=     431,     452
      PHI(I)=ZERO
      END DO
      DO I=     555,     588
      PHI(I)=ZERO
      END DO
      DO LL=1,LPRIM
      PHI(      83)=ZERO
      PHI(      86)=ZERO
      PHI(      90)=ZERO
      PHI(      93)=ZERO
      PHI(     101)=ZERO
      PHI(     102)=ZERO
      PHI(     103)=ZERO
      PHI(     107)=ZERO
      PHI(     108)=ZERO
      PHI(     109)=ZERO
      PHI(     119)=ZERO
      PHI(     120)=ZERO
      PHI(     121)=ZERO
      PHI(     128)=ZERO
      PHI(     129)=ZERO
      PHI(     130)=ZERO
      DO I=     148,     154
      PHI(I)=ZERO
      END DO
      DO I=     169,     175
      PHI(I)=ZERO
      END DO
      DO I=     190,     196
      PHI(I)=ZERO
      END DO
      DO I=     230,     242
      PHI(I)=ZERO
      END DO
      DO I=     256,     268
      PHI(I)=ZERO
      END DO
      DO I=     295,     307
      PHI(I)=ZERO
      END DO
      DO I=     365,     386
      PHI(I)=ZERO
      END DO
      DO I=     409,     430
      PHI(I)=ZERO
      END DO
      DO I=     521,     554
      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(      98)=ZERO
      PHI(      99)=ZERO
      PHI(     100)=ZERO
      DO I=     141,     147
      PHI(I)=ZERO
      END DO
      DO I=     217,     229
      PHI(I)=ZERO
      END DO
      DO I=     343,     364
      PHI(I)=ZERO
      END DO
      DO I=     487,     520
      PHI(I)=ZERO
      END DO
      DO JJ=1,JPRIM
      PHI(      81)=ZERO
      PHI(      95)=ZERO
      PHI(      96)=ZERO
      PHI(      97)=ZERO
      DO I=     134,     140
      PHI(I)=ZERO
      END DO
      DO I=     204,     216
      PHI(I)=ZERO
      END DO
      DO I=     321,     342
      PHI(I)=ZERO
      END DO
      DO I=     453,     486
      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
      FAC=SFAC( 1)
      PHI(      81)=PHI(      81)+FAC*PHI(       1)
      FAC=SFAC( 1)
      PHI(      95)=PHI(      95)+FAC*PHI(       2)
      PHI(      96)=PHI(      96)+FAC*PHI(       3)
      PHI(      97)=PHI(      97)+FAC*PHI(       4)
      FAC=SFAC( 1)
      J=       5
      DO I=     134,     140
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      12
      DO I=     204,     216
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      25
      DO I=     321,     342
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=      47
      DO I=     453,     486
      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(      82)=PHI(      82)+FAC*PHI(      81)
      FAC=SFAC( 1)
      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=     134
      DO I=     141,     147
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     204
      DO I=     217,     229
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     321
      DO I=     343,     364
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     453
      DO I=     487,     520
      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
      SF=SF*FAC
      SFAC( 6)=SF
      FAC=SFAC( 3)
      PHI(      83)=PHI(      83)+FAC*PHI(      82)
      FAC=SFAC( 4)
      PHI(      86)=PHI(      86)+FAC*PHI(      82)
      FAC=SFAC( 5)
      PHI(      90)=PHI(      90)+FAC*PHI(      82)
      FAC=SFAC( 6)
      PHI(      93)=PHI(      93)+FAC*PHI(      82)
      FAC=SFAC( 3)
      PHI(     101)=PHI(     101)+FAC*PHI(      98)
      PHI(     102)=PHI(     102)+FAC*PHI(      99)
      PHI(     103)=PHI(     103)+FAC*PHI(     100)
      FAC=SFAC( 4)
      PHI(     107)=PHI(     107)+FAC*PHI(      98)
      PHI(     108)=PHI(     108)+FAC*PHI(      99)
      PHI(     109)=PHI(     109)+FAC*PHI(     100)
      FAC=SFAC( 5)
      PHI(     119)=PHI(     119)+FAC*PHI(      98)
      PHI(     120)=PHI(     120)+FAC*PHI(      99)
      PHI(     121)=PHI(     121)+FAC*PHI(     100)
      FAC=SFAC( 6)
      PHI(     128)=PHI(     128)+FAC*PHI(      98)
      PHI(     129)=PHI(     129)+FAC*PHI(      99)
      PHI(     130)=PHI(     130)+FAC*PHI(     100)
      FAC=SFAC( 4)
      J=     141
      DO I=     148,     154
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     141
      DO I=     169,     175
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 6)
      J=     141
      DO I=     190,     196
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     217
      DO I=     230,     242
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     217
      DO I=     256,     268
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 6)
      J=     217
      DO I=     295,     307
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 5)
      J=     343
      DO I=     365,     386
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 6)
      J=     343
      DO I=     409,     430
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 6)
      J=     487
      DO I=     521,     554
      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
      SF=SF*FAC
      SFAC( 6)=SF
      FAC=SFAC( 1)
      PHI(      84)=PHI(      84)+FAC*PHI(      83)
      FAC=SFAC( 2)
      PHI(      85)=PHI(      85)+FAC*PHI(      83)
      FAC=SFAC( 2)
      PHI(      87)=PHI(      87)+FAC*PHI(      86)
      FAC=SFAC( 3)
      PHI(      88)=PHI(      88)+FAC*PHI(      86)
      FAC=SFAC( 4)
      PHI(      89)=PHI(      89)+FAC*PHI(      86)
      FAC=SFAC( 4)
      PHI(      91)=PHI(      91)+FAC*PHI(      90)
      FAC=SFAC( 5)
      PHI(      92)=PHI(      92)+FAC*PHI(      90)
      FAC=SFAC( 6)
      PHI(      94)=PHI(      94)+FAC*PHI(      93)
      FAC=SFAC( 1)
      PHI(     104)=PHI(     104)+FAC*PHI(     101)
      PHI(     105)=PHI(     105)+FAC*PHI(     102)
      PHI(     106)=PHI(     106)+FAC*PHI(     103)
      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(     113)=PHI(     113)+FAC*PHI(     107)
      PHI(     114)=PHI(     114)+FAC*PHI(     108)
      PHI(     115)=PHI(     115)+FAC*PHI(     109)
      FAC=SFAC( 3)
      PHI(     116)=PHI(     116)+FAC*PHI(     107)
      PHI(     117)=PHI(     117)+FAC*PHI(     108)
      PHI(     118)=PHI(     118)+FAC*PHI(     109)
      FAC=SFAC( 3)
      PHI(     122)=PHI(     122)+FAC*PHI(     119)
      PHI(     123)=PHI(     123)+FAC*PHI(     120)
      PHI(     124)=PHI(     124)+FAC*PHI(     121)
      FAC=SFAC( 4)
      PHI(     125)=PHI(     125)+FAC*PHI(     119)
      PHI(     126)=PHI(     126)+FAC*PHI(     120)
      PHI(     127)=PHI(     127)+FAC*PHI(     121)
      FAC=SFAC( 5)
      PHI(     131)=PHI(     131)+FAC*PHI(     128)
      PHI(     132)=PHI(     132)+FAC*PHI(     129)
      PHI(     133)=PHI(     133)+FAC*PHI(     130)
      FAC=SFAC( 1)
      J=     148
      DO I=     155,     161
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     148
      DO I=     162,     168
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     169
      DO I=     176,     182
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     169
      DO I=     183,     189
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 4)
      J=     190
      DO I=     197,     203
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     230
      DO I=     243,     255
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     256
      DO I=     269,     281
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 2)
      J=     256
      DO I=     282,     294
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 3)
      J=     295
      DO I=     308,     320
      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
      FAC=SFAC( 2)
      J=     409
      DO I=     431,     452
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      FAC=SFAC( 1)
      J=     521
      DO I=     555,     588
      PHI(I)=PHI(I)+FAC*PHI(J)
      J=J+1
      END DO
      END DO
C  POST-CONTRACTION PHASE
      PHI(     156)=PHI(     156)-D01*PHI(     155)
      PHI(     158)=PHI(     158)-D01*PHI(     155)
      PHI(     161)=PHI(     161)-D01*PHI(     155)
      PHI(     163)=PHI(     163)-D01*PHI(     162)
      PHI(     165)=PHI(     165)-D01*PHI(     162)
      PHI(     168)=PHI(     168)-D01*PHI(     162)
      PHI(     177)=PHI(     177)-D01*PHI(     176)
      PHI(     179)=PHI(     179)-D01*PHI(     176)
      PHI(     182)=PHI(     182)-D01*PHI(     176)
      PHI(     184)=PHI(     184)-D01*PHI(     183)
      PHI(     186)=PHI(     186)-D01*PHI(     183)
      PHI(     189)=PHI(     189)-D01*PHI(     183)
      PHI(     198)=PHI(     198)-D01*PHI(     197)
      PHI(     200)=PHI(     200)-D01*PHI(     197)
      PHI(     203)=PHI(     203)-D01*PHI(     197)
      PHI(     246)=PHI(     246)-D01*PHI(     243)
      PHI(     247)=PHI(     247)-D01*PHI(     244)
      PHI(     249)=PHI(     249)-D01*PHI(     244)
      PHI(     250)=PHI(     250)-D01*PHI(     245)
      PHI(     252)=PHI(     252)-D01*PHI(     245)
      PHI(     255)=PHI(     255)-D01*PHI(     245)
      PHI(     246)=PHI(     246)-D02*PHI(     243)
      PHI(     248)=PHI(     248)-D01*PHI(     243)
      PHI(     249)=PHI(     249)-D02*PHI(     244)
      PHI(     253)=PHI(     253)-D01*PHI(     243)
      PHI(     254)=PHI(     254)-D01*PHI(     244)
      PHI(     255)=PHI(     255)-D02*PHI(     245)
      PHI(     272)=PHI(     272)-D01*PHI(     269)
      PHI(     273)=PHI(     273)-D01*PHI(     270)
      PHI(     275)=PHI(     275)-D01*PHI(     270)
      PHI(     276)=PHI(     276)-D01*PHI(     271)
      PHI(     278)=PHI(     278)-D01*PHI(     271)
      PHI(     281)=PHI(     281)-D01*PHI(     271)
      PHI(     272)=PHI(     272)-D02*PHI(     269)
      PHI(     274)=PHI(     274)-D01*PHI(     269)
      PHI(     275)=PHI(     275)-D02*PHI(     270)
      PHI(     279)=PHI(     279)-D01*PHI(     269)
      PHI(     280)=PHI(     280)-D01*PHI(     270)
      PHI(     281)=PHI(     281)-D02*PHI(     271)
      PHI(     285)=PHI(     285)-D01*PHI(     282)
      PHI(     286)=PHI(     286)-D01*PHI(     283)
      PHI(     288)=PHI(     288)-D01*PHI(     283)
      PHI(     289)=PHI(     289)-D01*PHI(     284)
      PHI(     291)=PHI(     291)-D01*PHI(     284)
      PHI(     294)=PHI(     294)-D01*PHI(     284)
      PHI(     285)=PHI(     285)-D02*PHI(     282)
      PHI(     287)=PHI(     287)-D01*PHI(     282)
      PHI(     288)=PHI(     288)-D02*PHI(     283)
      PHI(     292)=PHI(     292)-D01*PHI(     282)
      PHI(     293)=PHI(     293)-D01*PHI(     283)
      PHI(     294)=PHI(     294)-D02*PHI(     284)
      PHI(     311)=PHI(     311)-D01*PHI(     308)
      PHI(     312)=PHI(     312)-D01*PHI(     309)
      PHI(     314)=PHI(     314)-D01*PHI(     309)
      PHI(     315)=PHI(     315)-D01*PHI(     310)
      PHI(     317)=PHI(     317)-D01*PHI(     310)
      PHI(     320)=PHI(     320)-D01*PHI(     310)
      PHI(     311)=PHI(     311)-D02*PHI(     308)
      PHI(     313)=PHI(     313)-D01*PHI(     308)
      PHI(     314)=PHI(     314)-D02*PHI(     309)
      PHI(     318)=PHI(     318)-D01*PHI(     308)
      PHI(     319)=PHI(     319)-D01*PHI(     309)
      PHI(     320)=PHI(     320)-D02*PHI(     310)
      PHI(     394)=PHI(     394)-D01*PHI(     388)
      PHI(     395)=PHI(     395)-D01*PHI(     389)
      PHI(     396)=PHI(     396)-D01*PHI(     390)
      PHI(     398)=PHI(     398)-D01*PHI(     390)
      PHI(     399)=PHI(     399)-D01*PHI(     391)
      PHI(     400)=PHI(     400)-D01*PHI(     392)
      PHI(     402)=PHI(     402)-D01*PHI(     392)
      PHI(     403)=PHI(     403)-D01*PHI(     393)
      PHI(     405)=PHI(     405)-D01*PHI(     393)
      PHI(     408)=PHI(     408)-D01*PHI(     393)
      PHI(     394)=PHI(     394)-D02*PHI(     388)
      PHI(     395)=PHI(     395)-D02*PHI(     389)
      PHI(     397)=PHI(     397)-D01*PHI(     389)
      PHI(     398)=PHI(     398)-D02*PHI(     390)
      PHI(     399)=PHI(     399)-D02*PHI(     391)
      PHI(     401)=PHI(     401)-D01*PHI(     391)
      PHI(     402)=PHI(     402)-D02*PHI(     392)
      PHI(     406)=PHI(     406)-D01*PHI(     391)
      PHI(     407)=PHI(     407)-D01*PHI(     392)
      PHI(     408)=PHI(     408)-D02*PHI(     393)
      PHI(     388)=PHI(     388)-D01*PHI(     387)
      PHI(     390)=PHI(     390)-D01*PHI(     387)
      PHI(     393)=PHI(     393)-D01*PHI(     387)
      PHI(     394)=PHI(     394)-D03*PHI(     388)
      PHI(     396)=PHI(     396)-D01*PHI(     388)
      PHI(     397)=PHI(     397)-D02*PHI(     389)
      PHI(     398)=PHI(     398)-D03*PHI(     390)
      PHI(     403)=PHI(     403)-D01*PHI(     388)
      PHI(     404)=PHI(     404)-D01*PHI(     389)
      PHI(     405)=PHI(     405)-D01*PHI(     390)
      PHI(     406)=PHI(     406)-D02*PHI(     391)
      PHI(     407)=PHI(     407)-D02*PHI(     392)
      PHI(     408)=PHI(     408)-D03*PHI(     393)
      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)
      PHI(     568)=PHI(     568)-D01*PHI(     558)
      PHI(     569)=PHI(     569)-D01*PHI(     559)
      PHI(     570)=PHI(     570)-D01*PHI(     560)
      PHI(     571)=PHI(     571)-D01*PHI(     561)
      PHI(     573)=PHI(     573)-D01*PHI(     561)
      PHI(     574)=PHI(     574)-D01*PHI(     562)
      PHI(     575)=PHI(     575)-D01*PHI(     563)
      PHI(     576)=PHI(     576)-D01*PHI(     564)
      PHI(     578)=PHI(     578)-D01*PHI(     564)
      PHI(     579)=PHI(     579)-D01*PHI(     565)
      PHI(     580)=PHI(     580)-D01*PHI(     566)
      PHI(     582)=PHI(     582)-D01*PHI(     566)
      PHI(     583)=PHI(     583)-D01*PHI(     567)
      PHI(     585)=PHI(     585)-D01*PHI(     567)
      PHI(     588)=PHI(     588)-D01*PHI(     567)
      PHI(     568)=PHI(     568)-D02*PHI(     558)
      PHI(     569)=PHI(     569)-D02*PHI(     559)
      PHI(     570)=PHI(     570)-D02*PHI(     560)
      PHI(     572)=PHI(     572)-D01*PHI(     560)
      PHI(     573)=PHI(     573)-D02*PHI(     561)
      PHI(     574)=PHI(     574)-D02*PHI(     562)
      PHI(     575)=PHI(     575)-D02*PHI(     563)
      PHI(     577)=PHI(     577)-D01*PHI(     563)
      PHI(     578)=PHI(     578)-D02*PHI(     564)
      PHI(     579)=PHI(     579)-D02*PHI(     565)
      PHI(     581)=PHI(     581)-D01*PHI(     565)
      PHI(     582)=PHI(     582)-D02*PHI(     566)
      PHI(     586)=PHI(     586)-D01*PHI(     565)
      PHI(     587)=PHI(     587)-D01*PHI(     566)
      PHI(     588)=PHI(     588)-D02*PHI(     567)
      PHI(     558)=PHI(     558)-D01*PHI(     555)
      PHI(     559)=PHI(     559)-D01*PHI(     556)
      PHI(     561)=PHI(     561)-D01*PHI(     556)
      PHI(     562)=PHI(     562)-D01*PHI(     557)
      PHI(     564)=PHI(     564)-D01*PHI(     557)
      PHI(     567)=PHI(     567)-D01*PHI(     557)
      PHI(     568)=PHI(     568)-D03*PHI(     558)
      PHI(     569)=PHI(     569)-D03*PHI(     559)
      PHI(     571)=PHI(     571)-D01*PHI(     559)
      PHI(     572)=PHI(     572)-D02*PHI(     560)
      PHI(     573)=PHI(     573)-D03*PHI(     561)
      PHI(     574)=PHI(     574)-D03*PHI(     562)
      PHI(     576)=PHI(     576)-D01*PHI(     562)
      PHI(     577)=PHI(     577)-D02*PHI(     563)
      PHI(     578)=PHI(     578)-D03*PHI(     564)
      PHI(     583)=PHI(     583)-D01*PHI(     562)
      PHI(     584)=PHI(     584)-D01*PHI(     563)
      PHI(     585)=PHI(     585)-D01*PHI(     564)
      PHI(     586)=PHI(     586)-D02*PHI(     565)
      PHI(     587)=PHI(     587)-D02*PHI(     566)
      PHI(     588)=PHI(     588)-D03*PHI(     567)
      PHI(     558)=PHI(     558)-D02*PHI(     555)
      PHI(     560)=PHI(     560)-D01*PHI(     555)
      PHI(     561)=PHI(     561)-D02*PHI(     556)
      PHI(     565)=PHI(     565)-D01*PHI(     555)
      PHI(     566)=PHI(     566)-D01*PHI(     556)
      PHI(     567)=PHI(     567)-D02*PHI(     557)
      PHI(     568)=PHI(     568)-D04*PHI(     558)
      PHI(     570)=PHI(     570)-D01*PHI(     558)
      PHI(     571)=PHI(     571)-D02*PHI(     559)
      PHI(     572)=PHI(     572)-D03*PHI(     560)
      PHI(     573)=PHI(     573)-D04*PHI(     561)
      PHI(     579)=PHI(     579)-D01*PHI(     558)
      PHI(     580)=PHI(     580)-D01*PHI(     559)
      PHI(     581)=PHI(     581)-D01*PHI(     560)
      PHI(     582)=PHI(     582)-D01*PHI(     561)
      PHI(     583)=PHI(     583)-D02*PHI(     562)
      PHI(     584)=PHI(     584)-D02*PHI(     563)
      PHI(     585)=PHI(     585)-D02*PHI(     564)
      PHI(     586)=PHI(     586)-D03*PHI(     565)
      PHI(     587)=PHI(     587)-D03*PHI(     566)
      PHI(     588)=PHI(     588)-D04*PHI(     567)
      WRK2(    1,1)= PHI(      89)
      WRK2(    2,1)= PHI(      85)
      WRK2(    3,1)=-PHI(     116)
      WRK2(    4,1)=-PHI(     117)
      WRK2(    5,1)=-PHI(     118)
      WRK2(    6,1)=-PHI(     104)
      WRK2(    7,1)=-PHI(     105)
      WRK2(    8,1)=-PHI(     106)
      WRK2(    9,1)= PHI(     163)
      WRK2(   10,1)= PHI(     164)
      WRK2(   11,1)= PHI(     165)
      WRK2(   12,1)= PHI(     166)
      WRK2(   13,1)= PHI(     167)
      WRK2(   14,1)= PHI(     168)
      WRK2(   15,1)=-PHI(     246)
      WRK2(   16,1)=-PHI(     247)
      WRK2(   17,1)=-PHI(     248)
      WRK2(   18,1)=-PHI(     249)
      WRK2(   19,1)=-PHI(     250)
      WRK2(   20,1)=-PHI(     251)
      WRK2(   21,1)=-PHI(     252)
      WRK2(   22,1)=-PHI(     253)
      WRK2(   23,1)=-PHI(     254)
      WRK2(   24,1)=-PHI(     255)
      WRK2(   25,1)= PHI(      92)
      WRK2(   26,1)= PHI(      88)
      WRK2(   27,1)= PHI(      84)
      WRK2(   28,1)=-PHI(     125)
      WRK2(   29,1)=-PHI(     126)
      WRK2(   30,1)=-PHI(     127)
      WRK2(   31,1)=-PHI(     113)
      WRK2(   32,1)=-PHI(     114)
      WRK2(   33,1)=-PHI(     115)
      WRK2(   34,1)= PHI(     184)
      WRK2(   35,1)= PHI(     185)
      WRK2(   36,1)= PHI(     186)
      WRK2(   37,1)= PHI(     187)
      WRK2(   38,1)= PHI(     188)
      WRK2(   39,1)= PHI(     189)
      WRK2(   40,1)= PHI(     156)
      WRK2(   41,1)= PHI(     157)
      WRK2(   42,1)= PHI(     158)
      WRK2(   43,1)= PHI(     159)
      WRK2(   44,1)= PHI(     160)
      WRK2(   45,1)= PHI(     161)
      WRK2(   46,1)=-PHI(     285)
      WRK2(   47,1)=-PHI(     286)
      WRK2(   48,1)=-PHI(     287)
      WRK2(   49,1)=-PHI(     288)
      WRK2(   50,1)=-PHI(     289)
      WRK2(   51,1)=-PHI(     290)
      WRK2(   52,1)=-PHI(     291)
      WRK2(   53,1)=-PHI(     292)
      WRK2(   54,1)=-PHI(     293)
      WRK2(   55,1)=-PHI(     294)
      WRK2(   56,1)= PHI(     394)
      WRK2(   57,1)= PHI(     395)
      WRK2(   58,1)= PHI(     396)
      WRK2(   59,1)= PHI(     397)
      WRK2(   60,1)= PHI(     398)
      WRK2(   61,1)= PHI(     399)
      WRK2(   62,1)= PHI(     400)
      WRK2(   63,1)= PHI(     401)
      WRK2(   64,1)= PHI(     402)
      WRK2(   65,1)= PHI(     403)
      WRK2(   66,1)= PHI(     404)
      WRK2(   67,1)= PHI(     405)
      WRK2(   68,1)= PHI(     406)
      WRK2(   69,1)= PHI(     407)
      WRK2(   70,1)= PHI(     408)
      WRK2(   71,1)= PHI(      94)
      WRK2(   72,1)= PHI(      91)
      WRK2(   73,1)= PHI(      87)
      WRK2(   74,1)=-PHI(     131)
      WRK2(   75,1)=-PHI(     132)
      WRK2(   76,1)=-PHI(     133)
      WRK2(   77,1)=-PHI(     122)
      WRK2(   78,1)=-PHI(     123)
      WRK2(   79,1)=-PHI(     124)
      WRK2(   80,1)=-PHI(     110)
      WRK2(   81,1)=-PHI(     111)
      WRK2(   82,1)=-PHI(     112)
      WRK2(   83,1)= PHI(     198)
      WRK2(   84,1)= PHI(     199)
      WRK2(   85,1)= PHI(     200)
      WRK2(   86,1)= PHI(     201)
      WRK2(   87,1)= PHI(     202)
      WRK2(   88,1)= PHI(     203)
      WRK2(   89,1)= PHI(     177)
      WRK2(   90,1)= PHI(     178)
      WRK2(   91,1)= PHI(     179)
      WRK2(   92,1)= PHI(     180)
      WRK2(   93,1)= PHI(     181)
      WRK2(   94,1)= PHI(     182)
      WRK2(   95,1)=-PHI(     311)
      WRK2(   96,1)=-PHI(     312)
      WRK2(   97,1)=-PHI(     313)
      WRK2(   98,1)=-PHI(     314)
      WRK2(   99,1)=-PHI(     315)
      WRK2(  100,1)=-PHI(     316)
      WRK2(  101,1)=-PHI(     317)
      WRK2(  102,1)=-PHI(     318)
      WRK2(  103,1)=-PHI(     319)
      WRK2(  104,1)=-PHI(     320)
      WRK2(  105,1)=-PHI(     272)
      WRK2(  106,1)=-PHI(     273)
      WRK2(  107,1)=-PHI(     274)
      WRK2(  108,1)=-PHI(     275)
      WRK2(  109,1)=-PHI(     276)
      WRK2(  110,1)=-PHI(     277)
      WRK2(  111,1)=-PHI(     278)
      WRK2(  112,1)=-PHI(     279)
      WRK2(  113,1)=-PHI(     280)
      WRK2(  114,1)=-PHI(     281)
      WRK2(  115,1)= PHI(     438)
      WRK2(  116,1)= PHI(     439)
      WRK2(  117,1)= PHI(     440)
      WRK2(  118,1)= PHI(     441)
      WRK2(  119,1)= PHI(     442)
      WRK2(  120,1)= PHI(     443)
      WRK2(  121,1)= PHI(     444)
      WRK2(  122,1)= PHI(     445)
      WRK2(  123,1)= PHI(     446)
      WRK2(  124,1)= PHI(     447)
      WRK2(  125,1)= PHI(     448)
      WRK2(  126,1)= PHI(     449)
      WRK2(  127,1)= PHI(     450)
      WRK2(  128,1)= PHI(     451)
      WRK2(  129,1)= PHI(     452)
      WRK2(  130,1)=-PHI(     568)
      WRK2(  131,1)=-PHI(     569)
      WRK2(  132,1)=-PHI(     570)
      WRK2(  133,1)=-PHI(     571)
      WRK2(  134,1)=-PHI(     572)
      WRK2(  135,1)=-PHI(     573)
      WRK2(  136,1)=-PHI(     574)
      WRK2(  137,1)=-PHI(     575)
      WRK2(  138,1)=-PHI(     576)
      WRK2(  139,1)=-PHI(     577)
      WRK2(  140,1)=-PHI(     578)
      WRK2(  141,1)=-PHI(     579)
      WRK2(  142,1)=-PHI(     580)
      WRK2(  143,1)=-PHI(     581)
      WRK2(  144,1)=-PHI(     582)
      WRK2(  145,1)=-PHI(     583)
      WRK2(  146,1)=-PHI(     584)
      WRK2(  147,1)=-PHI(     585)
      WRK2(  148,1)=-PHI(     586)
      WRK2(  149,1)=-PHI(     587)
      WRK2(  150,1)=-PHI(     588)
      CONF(1)=XD-XC
      CONF(2)=YD-YC
      CONF(3)=ZD-ZC
      DO I=1,     1
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 5)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 1)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 5)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 1)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 4)*WRK2(    8,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 1)*WRK2(   14,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 2)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 5)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 1)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 4)*WRK2(    2,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 1)*WRK2(    5,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 2)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   14,I)=WRK2(   14,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(    2,I)
      WRK2(    7,I)=WRK2(    7,I)+CONF( 2)*WRK2(    2,I)
      WRK2(    8,I)=WRK2(    8,I)+CONF( 3)*WRK2(    2,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 6)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 1)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 6)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 1)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 1)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 1)*WRK2(   55,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 2)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 6)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 5)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 1)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 5)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 1)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 1)*WRK2(   39,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 2)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 5)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 1)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 1)*WRK2(   30,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 2)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 4)*WRK2(   26,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 1)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 1)*WRK2(   33,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 2)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 4)*WRK2(   27,I)
      WRK2(   28,I)=WRK2(   28,I)+CONF( 1)*WRK2(   25,I)
      WRK2(   29,I)=WRK2(   29,I)+CONF( 2)*WRK2(   25,I)
      WRK2(   30,I)=WRK2(   30,I)+CONF( 3)*WRK2(   25,I)
      WRK2(   31,I)=WRK2(   31,I)+CONF( 1)*WRK2(   26,I)
      WRK2(   32,I)=WRK2(   32,I)+CONF( 2)*WRK2(   26,I)
      WRK2(   33,I)=WRK2(   33,I)+CONF( 3)*WRK2(   26,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 1)*WRK2(  115,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 7)*WRK2(  105,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 1)*WRK2(  116,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 6)*WRK2(  106,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 1)*WRK2(  117,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 5)*WRK2(  107,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 1)*WRK2(  118,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 4)*WRK2(  108,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 1)*WRK2(  119,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 2)*WRK2(  119,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 7)*WRK2(  108,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 1)*WRK2(  120,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 6)*WRK2(  109,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 1)*WRK2(  121,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 5)*WRK2(  110,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 1)*WRK2(  122,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 4)*WRK2(  111,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 1)*WRK2(  123,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 2)*WRK2(  123,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 6)*WRK2(  111,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 1)*WRK2(  124,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 5)*WRK2(  112,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 1)*WRK2(  125,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 4)*WRK2(  113,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 1)*WRK2(  126,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 2)*WRK2(  126,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 5)*WRK2(  113,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 1)*WRK2(  127,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 4)*WRK2(  114,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 1)*WRK2(  128,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 2)*WRK2(  128,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 4)*WRK2(  114,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 1)*WRK2(  129,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 2)*WRK2(  129,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 3)*WRK2(  129,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 7)*WRK2(  114,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 1)*WRK2(   95,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 6)*WRK2(   89,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 1)*WRK2(   96,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 5)*WRK2(   90,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 1)*WRK2(   97,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 4)*WRK2(   91,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 1)*WRK2(   98,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 2)*WRK2(   98,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 6)*WRK2(   91,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 1)*WRK2(   99,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 5)*WRK2(   92,I)
      WRK2(  121,I)=WRK2(  121,I)+CONF( 1)*WRK2(  100,I)
      WRK2(  121,I)=WRK2(  121,I)+CONF( 4)*WRK2(   93,I)
      WRK2(  122,I)=WRK2(  122,I)+CONF( 1)*WRK2(  101,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 2)*WRK2(  101,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 5)*WRK2(   93,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 1)*WRK2(  102,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 4)*WRK2(   94,I)
      WRK2(  125,I)=WRK2(  125,I)+CONF( 1)*WRK2(  103,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 2)*WRK2(  103,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 4)*WRK2(   94,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 1)*WRK2(  104,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 2)*WRK2(  104,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 3)*WRK2(  104,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 6)*WRK2(   94,I)
      WRK2(   95,I)=WRK2(   95,I)+CONF( 1)*WRK2(   83,I)
      WRK2(   95,I)=WRK2(   95,I)+CONF( 5)*WRK2(   77,I)
      WRK2(   96,I)=WRK2(   96,I)+CONF( 1)*WRK2(   84,I)
      WRK2(   96,I)=WRK2(   96,I)+CONF( 4)*WRK2(   78,I)
      WRK2(   97,I)=WRK2(   97,I)+CONF( 1)*WRK2(   85,I)
      WRK2(   98,I)=WRK2(   98,I)+CONF( 2)*WRK2(   85,I)
      WRK2(   98,I)=WRK2(   98,I)+CONF( 5)*WRK2(   78,I)
      WRK2(   99,I)=WRK2(   99,I)+CONF( 1)*WRK2(   86,I)
      WRK2(   99,I)=WRK2(   99,I)+CONF( 4)*WRK2(   79,I)
      WRK2(  100,I)=WRK2(  100,I)+CONF( 1)*WRK2(   87,I)
      WRK2(  101,I)=WRK2(  101,I)+CONF( 2)*WRK2(   87,I)
      WRK2(  101,I)=WRK2(  101,I)+CONF( 4)*WRK2(   79,I)
      WRK2(  102,I)=WRK2(  102,I)+CONF( 1)*WRK2(   88,I)
      WRK2(  103,I)=WRK2(  103,I)+CONF( 2)*WRK2(   88,I)
      WRK2(  104,I)=WRK2(  104,I)+CONF( 3)*WRK2(   88,I)
      WRK2(  104,I)=WRK2(  104,I)+CONF( 5)*WRK2(   79,I)
      WRK2(  105,I)=WRK2(  105,I)+CONF( 1)*WRK2(   89,I)
      WRK2(  105,I)=WRK2(  105,I)+CONF( 5)*WRK2(   80,I)
      WRK2(  106,I)=WRK2(  106,I)+CONF( 1)*WRK2(   90,I)
      WRK2(  106,I)=WRK2(  106,I)+CONF( 4)*WRK2(   81,I)
      WRK2(  107,I)=WRK2(  107,I)+CONF( 1)*WRK2(   91,I)
      WRK2(  108,I)=WRK2(  108,I)+CONF( 2)*WRK2(   91,I)
      WRK2(  108,I)=WRK2(  108,I)+CONF( 5)*WRK2(   81,I)
      WRK2(  109,I)=WRK2(  109,I)+CONF( 1)*WRK2(   92,I)
      WRK2(  109,I)=WRK2(  109,I)+CONF( 4)*WRK2(   82,I)
      WRK2(  110,I)=WRK2(  110,I)+CONF( 1)*WRK2(   93,I)
      WRK2(  111,I)=WRK2(  111,I)+CONF( 2)*WRK2(   93,I)
      WRK2(  111,I)=WRK2(  111,I)+CONF( 4)*WRK2(   82,I)
      WRK2(  112,I)=WRK2(  112,I)+CONF( 1)*WRK2(   94,I)
      WRK2(  113,I)=WRK2(  113,I)+CONF( 2)*WRK2(   94,I)
      WRK2(  114,I)=WRK2(  114,I)+CONF( 3)*WRK2(   94,I)
      WRK2(  114,I)=WRK2(  114,I)+CONF( 5)*WRK2(   82,I)
      WRK2(   83,I)=WRK2(   83,I)+CONF( 1)*WRK2(   74,I)
      WRK2(   83,I)=WRK2(   83,I)+CONF( 4)*WRK2(   72,I)
      WRK2(   84,I)=WRK2(   84,I)+CONF( 1)*WRK2(   75,I)
      WRK2(   85,I)=WRK2(   85,I)+CONF( 2)*WRK2(   75,I)
      WRK2(   85,I)=WRK2(   85,I)+CONF( 4)*WRK2(   72,I)
      WRK2(   86,I)=WRK2(   86,I)+CONF( 1)*WRK2(   76,I)
      WRK2(   87,I)=WRK2(   87,I)+CONF( 2)*WRK2(   76,I)
      WRK2(   88,I)=WRK2(   88,I)+CONF( 3)*WRK2(   76,I)
      WRK2(   88,I)=WRK2(   88,I)+CONF( 4)*WRK2(   72,I)
      WRK2(   89,I)=WRK2(   89,I)+CONF( 1)*WRK2(   77,I)
      WRK2(   89,I)=WRK2(   89,I)+CONF( 4)*WRK2(   73,I)
      WRK2(   90,I)=WRK2(   90,I)+CONF( 1)*WRK2(   78,I)
      WRK2(   91,I)=WRK2(   91,I)+CONF( 2)*WRK2(   78,I)
      WRK2(   91,I)=WRK2(   91,I)+CONF( 4)*WRK2(   73,I)
      WRK2(   92,I)=WRK2(   92,I)+CONF( 1)*WRK2(   79,I)
      WRK2(   93,I)=WRK2(   93,I)+CONF( 2)*WRK2(   79,I)
      WRK2(   94,I)=WRK2(   94,I)+CONF( 3)*WRK2(   79,I)
      WRK2(   94,I)=WRK2(   94,I)+CONF( 4)*WRK2(   73,I)
      WRK2(   74,I)=WRK2(   74,I)+CONF( 1)*WRK2(   71,I)
      WRK2(   75,I)=WRK2(   75,I)+CONF( 2)*WRK2(   71,I)
      WRK2(   76,I)=WRK2(   76,I)+CONF( 3)*WRK2(   71,I)
      WRK2(   77,I)=WRK2(   77,I)+CONF( 1)*WRK2(   72,I)
      WRK2(   78,I)=WRK2(   78,I)+CONF( 2)*WRK2(   72,I)
      WRK2(   79,I)=WRK2(   79,I)+CONF( 3)*WRK2(   72,I)
      WRK2(   80,I)=WRK2(   80,I)+CONF( 1)*WRK2(   73,I)
      WRK2(   81,I)=WRK2(   81,I)+CONF( 2)*WRK2(   73,I)
      WRK2(   82,I)=WRK2(   82,I)+CONF( 3)*WRK2(   73,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 1)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 1)*WRK2(   12,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 2)*WRK2(   12,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 2)*WRK2(   13,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 4)*WRK2(    6,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 4)*WRK2(    7,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 4)*WRK2(    8,I)
      WRK2(    9,I)=WRK2(    9,I)+CONF( 1)*WRK2(    3,I)
      WRK2(   10,I)=WRK2(   10,I)+CONF( 2)*WRK2(    3,I)
      WRK2(   11,I)=WRK2(   11,I)+CONF( 2)*WRK2(    4,I)
      WRK2(   12,I)=WRK2(   12,I)+CONF( 3)*WRK2(    3,I)
      WRK2(   13,I)=WRK2(   13,I)+CONF( 3)*WRK2(    4,I)
      WRK2(   14,I)=WRK2(   14,I)+CONF( 3)*WRK2(    5,I)
      WRK2(   15,I)=WRK2(   15,I)+CONF( 1)*WRK2(    9,I)
      WRK2(   16,I)=WRK2(   16,I)+CONF( 2)*WRK2(    9,I)
      WRK2(   17,I)=WRK2(   17,I)+CONF( 2)*WRK2(   10,I)
      WRK2(   18,I)=WRK2(   18,I)+CONF( 2)*WRK2(   11,I)
      WRK2(   19,I)=WRK2(   19,I)+CONF( 3)*WRK2(    9,I)
      WRK2(   20,I)=WRK2(   20,I)+CONF( 3)*WRK2(   10,I)
      WRK2(   21,I)=WRK2(   21,I)+CONF( 3)*WRK2(   11,I)
      WRK2(   22,I)=WRK2(   22,I)+CONF( 3)*WRK2(   12,I)
      WRK2(   23,I)=WRK2(   23,I)+CONF( 3)*WRK2(   13,I)
      WRK2(   24,I)=WRK2(   24,I)+CONF( 3)*WRK2(   14,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 5)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 1)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 5)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 5)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 1)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 1)*WRK2(   53,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 2)*WRK2(   53,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 2)*WRK2(   54,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 5)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 5)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 5)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 1)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 1)*WRK2(   37,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 2)*WRK2(   37,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 2)*WRK2(   38,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 4)*WRK2(   31,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 4)*WRK2(   32,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 4)*WRK2(   33,I)
      WRK2(   34,I)=WRK2(   34,I)+CONF( 1)*WRK2(   28,I)
      WRK2(   35,I)=WRK2(   35,I)+CONF( 2)*WRK2(   28,I)
      WRK2(   36,I)=WRK2(   36,I)+CONF( 2)*WRK2(   29,I)
      WRK2(   37,I)=WRK2(   37,I)+CONF( 3)*WRK2(   28,I)
      WRK2(   38,I)=WRK2(   38,I)+CONF( 3)*WRK2(   29,I)
      WRK2(   39,I)=WRK2(   39,I)+CONF( 3)*WRK2(   30,I)
      WRK2(   40,I)=WRK2(   40,I)+CONF( 1)*WRK2(   31,I)
      WRK2(   41,I)=WRK2(   41,I)+CONF( 2)*WRK2(   31,I)
      WRK2(   42,I)=WRK2(   42,I)+CONF( 2)*WRK2(   32,I)
      WRK2(   43,I)=WRK2(   43,I)+CONF( 3)*WRK2(   31,I)
      WRK2(   44,I)=WRK2(   44,I)+CONF( 3)*WRK2(   32,I)
      WRK2(   45,I)=WRK2(   45,I)+CONF( 3)*WRK2(   33,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 1)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 1)*WRK2(   50,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 2)*WRK2(   50,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 2)*WRK2(   51,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 2)*WRK2(   52,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 4)*WRK2(   40,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 4)*WRK2(   41,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 4)*WRK2(   42,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 4)*WRK2(   43,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 4)*WRK2(   44,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 4)*WRK2(   45,I)
      WRK2(   46,I)=WRK2(   46,I)+CONF( 1)*WRK2(   34,I)
      WRK2(   47,I)=WRK2(   47,I)+CONF( 2)*WRK2(   34,I)
      WRK2(   48,I)=WRK2(   48,I)+CONF( 2)*WRK2(   35,I)
      WRK2(   49,I)=WRK2(   49,I)+CONF( 2)*WRK2(   36,I)
      WRK2(   50,I)=WRK2(   50,I)+CONF( 3)*WRK2(   34,I)
      WRK2(   51,I)=WRK2(   51,I)+CONF( 3)*WRK2(   35,I)
      WRK2(   52,I)=WRK2(   52,I)+CONF( 3)*WRK2(   36,I)
      WRK2(   53,I)=WRK2(   53,I)+CONF( 3)*WRK2(   37,I)
      WRK2(   54,I)=WRK2(   54,I)+CONF( 3)*WRK2(   38,I)
      WRK2(   55,I)=WRK2(   55,I)+CONF( 3)*WRK2(   39,I)
      WRK2(   56,I)=WRK2(   56,I)+CONF( 1)*WRK2(   46,I)
      WRK2(   57,I)=WRK2(   57,I)+CONF( 2)*WRK2(   46,I)
      WRK2(   58,I)=WRK2(   58,I)+CONF( 2)*WRK2(   47,I)
      WRK2(   59,I)=WRK2(   59,I)+CONF( 2)*WRK2(   48,I)
      WRK2(   60,I)=WRK2(   60,I)+CONF( 2)*WRK2(   49,I)
      WRK2(   61,I)=WRK2(   61,I)+CONF( 3)*WRK2(   46,I)
      WRK2(   62,I)=WRK2(   62,I)+CONF( 3)*WRK2(   47,I)
      WRK2(   63,I)=WRK2(   63,I)+CONF( 3)*WRK2(   48,I)
      WRK2(   64,I)=WRK2(   64,I)+CONF( 3)*WRK2(   49,I)
      WRK2(   65,I)=WRK2(   65,I)+CONF( 3)*WRK2(   50,I)
      WRK2(   66,I)=WRK2(   66,I)+CONF( 3)*WRK2(   51,I)
      WRK2(   67,I)=WRK2(   67,I)+CONF( 3)*WRK2(   52,I)
      WRK2(   68,I)=WRK2(   68,I)+CONF( 3)*WRK2(   53,I)
      WRK2(   69,I)=WRK2(   69,I)+CONF( 3)*WRK2(   54,I)
      WRK2(   70,I)=WRK2(   70,I)+CONF( 3)*WRK2(   55,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 1)*WRK2(  115,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 6)*WRK2(  105,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 1)*WRK2(  116,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 5)*WRK2(  106,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 1)*WRK2(  117,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 4)*WRK2(  107,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 1)*WRK2(  118,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 2)*WRK2(  118,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 6)*WRK2(  107,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 2)*WRK2(  119,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 6)*WRK2(  108,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 1)*WRK2(  120,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 5)*WRK2(  109,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 1)*WRK2(  121,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 4)*WRK2(  110,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 1)*WRK2(  122,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 2)*WRK2(  122,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 5)*WRK2(  110,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 2)*WRK2(  123,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 5)*WRK2(  111,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 1)*WRK2(  124,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 4)*WRK2(  112,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 1)*WRK2(  125,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 2)*WRK2(  125,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 4)*WRK2(  112,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 2)*WRK2(  126,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 4)*WRK2(  113,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 1)*WRK2(  127,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 2)*WRK2(  127,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 2)*WRK2(  128,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 3)*WRK2(  127,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 6)*WRK2(  112,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 3)*WRK2(  128,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 6)*WRK2(  113,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 3)*WRK2(  129,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 6)*WRK2(  114,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 1)*WRK2(   95,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 5)*WRK2(   89,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 1)*WRK2(   96,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 4)*WRK2(   90,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 1)*WRK2(   97,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 2)*WRK2(   97,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 5)*WRK2(   90,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 2)*WRK2(   98,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 5)*WRK2(   91,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 1)*WRK2(   99,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 4)*WRK2(   92,I)
      WRK2(  121,I)=WRK2(  121,I)+CONF( 1)*WRK2(  100,I)
      WRK2(  122,I)=WRK2(  122,I)+CONF( 2)*WRK2(  100,I)
      WRK2(  122,I)=WRK2(  122,I)+CONF( 4)*WRK2(   92,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 2)*WRK2(  101,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 4)*WRK2(   93,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 1)*WRK2(  102,I)
      WRK2(  125,I)=WRK2(  125,I)+CONF( 2)*WRK2(  102,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 2)*WRK2(  103,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 3)*WRK2(  102,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 5)*WRK2(   92,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 3)*WRK2(  103,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 5)*WRK2(   93,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 3)*WRK2(  104,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 5)*WRK2(   94,I)
      WRK2(   95,I)=WRK2(   95,I)+CONF( 1)*WRK2(   83,I)
      WRK2(   95,I)=WRK2(   95,I)+CONF( 4)*WRK2(   77,I)
      WRK2(   96,I)=WRK2(   96,I)+CONF( 1)*WRK2(   84,I)
      WRK2(   97,I)=WRK2(   97,I)+CONF( 2)*WRK2(   84,I)
      WRK2(   97,I)=WRK2(   97,I)+CONF( 4)*WRK2(   77,I)
      WRK2(   98,I)=WRK2(   98,I)+CONF( 2)*WRK2(   85,I)
      WRK2(   98,I)=WRK2(   98,I)+CONF( 4)*WRK2(   78,I)
      WRK2(   99,I)=WRK2(   99,I)+CONF( 1)*WRK2(   86,I)
      WRK2(  100,I)=WRK2(  100,I)+CONF( 2)*WRK2(   86,I)
      WRK2(  101,I)=WRK2(  101,I)+CONF( 2)*WRK2(   87,I)
      WRK2(  102,I)=WRK2(  102,I)+CONF( 3)*WRK2(   86,I)
      WRK2(  102,I)=WRK2(  102,I)+CONF( 4)*WRK2(   77,I)
      WRK2(  103,I)=WRK2(  103,I)+CONF( 3)*WRK2(   87,I)
      WRK2(  103,I)=WRK2(  103,I)+CONF( 4)*WRK2(   78,I)
      WRK2(  104,I)=WRK2(  104,I)+CONF( 3)*WRK2(   88,I)
      WRK2(  104,I)=WRK2(  104,I)+CONF( 4)*WRK2(   79,I)
      WRK2(  105,I)=WRK2(  105,I)+CONF( 1)*WRK2(   89,I)
      WRK2(  105,I)=WRK2(  105,I)+CONF( 4)*WRK2(   80,I)
      WRK2(  106,I)=WRK2(  106,I)+CONF( 1)*WRK2(   90,I)
      WRK2(  107,I)=WRK2(  107,I)+CONF( 2)*WRK2(   90,I)
      WRK2(  107,I)=WRK2(  107,I)+CONF( 4)*WRK2(   80,I)
      WRK2(  108,I)=WRK2(  108,I)+CONF( 2)*WRK2(   91,I)
      WRK2(  108,I)=WRK2(  108,I)+CONF( 4)*WRK2(   81,I)
      WRK2(  109,I)=WRK2(  109,I)+CONF( 1)*WRK2(   92,I)
      WRK2(  110,I)=WRK2(  110,I)+CONF( 2)*WRK2(   92,I)
      WRK2(  111,I)=WRK2(  111,I)+CONF( 2)*WRK2(   93,I)
      WRK2(  112,I)=WRK2(  112,I)+CONF( 3)*WRK2(   92,I)
      WRK2(  112,I)=WRK2(  112,I)+CONF( 4)*WRK2(   80,I)
      WRK2(  113,I)=WRK2(  113,I)+CONF( 3)*WRK2(   93,I)
      WRK2(  113,I)=WRK2(  113,I)+CONF( 4)*WRK2(   81,I)
      WRK2(  114,I)=WRK2(  114,I)+CONF( 3)*WRK2(   94,I)
      WRK2(  114,I)=WRK2(  114,I)+CONF( 4)*WRK2(   82,I)
      WRK2(   83,I)=WRK2(   83,I)+CONF( 1)*WRK2(   74,I)
      WRK2(   84,I)=WRK2(   84,I)+CONF( 2)*WRK2(   74,I)
      WRK2(   85,I)=WRK2(   85,I)+CONF( 2)*WRK2(   75,I)
      WRK2(   86,I)=WRK2(   86,I)+CONF( 3)*WRK2(   74,I)
      WRK2(   87,I)=WRK2(   87,I)+CONF( 3)*WRK2(   75,I)
      WRK2(   88,I)=WRK2(   88,I)+CONF( 3)*WRK2(   76,I)
      WRK2(   89,I)=WRK2(   89,I)+CONF( 1)*WRK2(   77,I)
      WRK2(   90,I)=WRK2(   90,I)+CONF( 2)*WRK2(   77,I)
      WRK2(   91,I)=WRK2(   91,I)+CONF( 2)*WRK2(   78,I)
      WRK2(   92,I)=WRK2(   92,I)+CONF( 3)*WRK2(   77,I)
      WRK2(   93,I)=WRK2(   93,I)+CONF( 3)*WRK2(   78,I)
      WRK2(   94,I)=WRK2(   94,I)+CONF( 3)*WRK2(   79,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 1)*WRK2(  115,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 5)*WRK2(  105,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 1)*WRK2(  116,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 4)*WRK2(  106,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 1)*WRK2(  117,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 2)*WRK2(  117,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 5)*WRK2(  106,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 2)*WRK2(  118,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 5)*WRK2(  107,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 2)*WRK2(  119,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 5)*WRK2(  108,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 1)*WRK2(  120,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 4)*WRK2(  109,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 1)*WRK2(  121,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 2)*WRK2(  121,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 4)*WRK2(  109,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 2)*WRK2(  122,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 4)*WRK2(  110,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 2)*WRK2(  123,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 4)*WRK2(  111,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 1)*WRK2(  124,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 2)*WRK2(  124,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 2)*WRK2(  125,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 2)*WRK2(  126,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 3)*WRK2(  124,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 5)*WRK2(  109,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 3)*WRK2(  125,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 5)*WRK2(  110,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 3)*WRK2(  126,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 5)*WRK2(  111,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 3)*WRK2(  127,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 5)*WRK2(  112,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 3)*WRK2(  128,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 5)*WRK2(  113,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 3)*WRK2(  129,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 5)*WRK2(  114,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 1)*WRK2(   95,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 4)*WRK2(   89,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 1)*WRK2(   96,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 2)*WRK2(   96,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 4)*WRK2(   89,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 2)*WRK2(   97,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 4)*WRK2(   90,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 2)*WRK2(   98,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 4)*WRK2(   91,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 1)*WRK2(   99,I)
      WRK2(  121,I)=WRK2(  121,I)+CONF( 2)*WRK2(   99,I)
      WRK2(  122,I)=WRK2(  122,I)+CONF( 2)*WRK2(  100,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 2)*WRK2(  101,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 3)*WRK2(   99,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 4)*WRK2(   89,I)
      WRK2(  125,I)=WRK2(  125,I)+CONF( 3)*WRK2(  100,I)
      WRK2(  125,I)=WRK2(  125,I)+CONF( 4)*WRK2(   90,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 3)*WRK2(  101,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 4)*WRK2(   91,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 3)*WRK2(  102,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 4)*WRK2(   92,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 3)*WRK2(  103,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 4)*WRK2(   93,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 3)*WRK2(  104,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 4)*WRK2(   94,I)
      WRK2(   95,I)=WRK2(   95,I)+CONF( 1)*WRK2(   83,I)
      WRK2(   96,I)=WRK2(   96,I)+CONF( 2)*WRK2(   83,I)
      WRK2(   97,I)=WRK2(   97,I)+CONF( 2)*WRK2(   84,I)
      WRK2(   98,I)=WRK2(   98,I)+CONF( 2)*WRK2(   85,I)
      WRK2(   99,I)=WRK2(   99,I)+CONF( 3)*WRK2(   83,I)
      WRK2(  100,I)=WRK2(  100,I)+CONF( 3)*WRK2(   84,I)
      WRK2(  101,I)=WRK2(  101,I)+CONF( 3)*WRK2(   85,I)
      WRK2(  102,I)=WRK2(  102,I)+CONF( 3)*WRK2(   86,I)
      WRK2(  103,I)=WRK2(  103,I)+CONF( 3)*WRK2(   87,I)
      WRK2(  104,I)=WRK2(  104,I)+CONF( 3)*WRK2(   88,I)
      WRK2(  105,I)=WRK2(  105,I)+CONF( 1)*WRK2(   89,I)
      WRK2(  106,I)=WRK2(  106,I)+CONF( 2)*WRK2(   89,I)
      WRK2(  107,I)=WRK2(  107,I)+CONF( 2)*WRK2(   90,I)
      WRK2(  108,I)=WRK2(  108,I)+CONF( 2)*WRK2(   91,I)
      WRK2(  109,I)=WRK2(  109,I)+CONF( 3)*WRK2(   89,I)
      WRK2(  110,I)=WRK2(  110,I)+CONF( 3)*WRK2(   90,I)
      WRK2(  111,I)=WRK2(  111,I)+CONF( 3)*WRK2(   91,I)
      WRK2(  112,I)=WRK2(  112,I)+CONF( 3)*WRK2(   92,I)
      WRK2(  113,I)=WRK2(  113,I)+CONF( 3)*WRK2(   93,I)
      WRK2(  114,I)=WRK2(  114,I)+CONF( 3)*WRK2(   94,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 1)*WRK2(  115,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 4)*WRK2(  105,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 1)*WRK2(  116,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 2)*WRK2(  116,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 4)*WRK2(  105,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 2)*WRK2(  117,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 4)*WRK2(  106,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 2)*WRK2(  118,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 4)*WRK2(  107,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 2)*WRK2(  119,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 4)*WRK2(  108,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 1)*WRK2(  120,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 2)*WRK2(  120,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 2)*WRK2(  121,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 2)*WRK2(  122,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 2)*WRK2(  123,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 3)*WRK2(  120,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 4)*WRK2(  105,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 3)*WRK2(  121,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 4)*WRK2(  106,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 3)*WRK2(  122,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 4)*WRK2(  107,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 3)*WRK2(  123,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 4)*WRK2(  108,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 3)*WRK2(  124,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 4)*WRK2(  109,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 3)*WRK2(  125,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 4)*WRK2(  110,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 3)*WRK2(  126,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 4)*WRK2(  111,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 3)*WRK2(  127,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 4)*WRK2(  112,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 3)*WRK2(  128,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 4)*WRK2(  113,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 3)*WRK2(  129,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 4)*WRK2(  114,I)
      WRK2(  115,I)=WRK2(  115,I)+CONF( 1)*WRK2(   95,I)
      WRK2(  116,I)=WRK2(  116,I)+CONF( 2)*WRK2(   95,I)
      WRK2(  117,I)=WRK2(  117,I)+CONF( 2)*WRK2(   96,I)
      WRK2(  118,I)=WRK2(  118,I)+CONF( 2)*WRK2(   97,I)
      WRK2(  119,I)=WRK2(  119,I)+CONF( 2)*WRK2(   98,I)
      WRK2(  120,I)=WRK2(  120,I)+CONF( 3)*WRK2(   95,I)
      WRK2(  121,I)=WRK2(  121,I)+CONF( 3)*WRK2(   96,I)
      WRK2(  122,I)=WRK2(  122,I)+CONF( 3)*WRK2(   97,I)
      WRK2(  123,I)=WRK2(  123,I)+CONF( 3)*WRK2(   98,I)
      WRK2(  124,I)=WRK2(  124,I)+CONF( 3)*WRK2(   99,I)
      WRK2(  125,I)=WRK2(  125,I)+CONF( 3)*WRK2(  100,I)
      WRK2(  126,I)=WRK2(  126,I)+CONF( 3)*WRK2(  101,I)
      WRK2(  127,I)=WRK2(  127,I)+CONF( 3)*WRK2(  102,I)
      WRK2(  128,I)=WRK2(  128,I)+CONF( 3)*WRK2(  103,I)
      WRK2(  129,I)=WRK2(  129,I)+CONF( 3)*WRK2(  104,I)
      WRK2(  130,I)=WRK2(  130,I)+CONF( 1)*WRK2(  115,I)
      WRK2(  131,I)=WRK2(  131,I)+CONF( 2)*WRK2(  115,I)
      WRK2(  132,I)=WRK2(  132,I)+CONF( 2)*WRK2(  116,I)
      WRK2(  133,I)=WRK2(  133,I)+CONF( 2)*WRK2(  117,I)
      WRK2(  134,I)=WRK2(  134,I)+CONF( 2)*WRK2(  118,I)
      WRK2(  135,I)=WRK2(  135,I)+CONF( 2)*WRK2(  119,I)
      WRK2(  136,I)=WRK2(  136,I)+CONF( 3)*WRK2(  115,I)
      WRK2(  137,I)=WRK2(  137,I)+CONF( 3)*WRK2(  116,I)
      WRK2(  138,I)=WRK2(  138,I)+CONF( 3)*WRK2(  117,I)
      WRK2(  139,I)=WRK2(  139,I)+CONF( 3)*WRK2(  118,I)
      WRK2(  140,I)=WRK2(  140,I)+CONF( 3)*WRK2(  119,I)
      WRK2(  141,I)=WRK2(  141,I)+CONF( 3)*WRK2(  120,I)
      WRK2(  142,I)=WRK2(  142,I)+CONF( 3)*WRK2(  121,I)
      WRK2(  143,I)=WRK2(  143,I)+CONF( 3)*WRK2(  122,I)
      WRK2(  144,I)=WRK2(  144,I)+CONF( 3)*WRK2(  123,I)
      WRK2(  145,I)=WRK2(  145,I)+CONF( 3)*WRK2(  124,I)
      WRK2(  146,I)=WRK2(  146,I)+CONF( 3)*WRK2(  125,I)
      WRK2(  147,I)=WRK2(  147,I)+CONF( 3)*WRK2(  126,I)
      WRK2(  148,I)=WRK2(  148,I)+CONF( 3)*WRK2(  127,I)
      WRK2(  149,I)=WRK2(  149,I)+CONF( 3)*WRK2(  128,I)
      WRK2(  150,I)=WRK2(  150,I)+CONF( 3)*WRK2(  129,I)
      WRK2(  151,I)=WRK2(   56,I)-CONF( 1)*WRK2(   15,I)
      WRK2(  152,I)=WRK2(   57,I)-CONF( 1)*WRK2(   16,I)
      WRK2(  153,I)=WRK2(   58,I)-CONF( 1)*WRK2(   17,I)
      WRK2(  154,I)=WRK2(   59,I)-CONF( 1)*WRK2(   18,I)
      WRK2(  155,I)=WRK2(   61,I)-CONF( 1)*WRK2(   19,I)
      WRK2(  156,I)=WRK2(   62,I)-CONF( 1)*WRK2(   20,I)
      WRK2(  157,I)=WRK2(   63,I)-CONF( 1)*WRK2(   21,I)
      WRK2(  158,I)=WRK2(   65,I)-CONF( 1)*WRK2(   22,I)
      WRK2(  159,I)=WRK2(   66,I)-CONF( 1)*WRK2(   23,I)
      WRK2(  160,I)=WRK2(   68,I)-CONF( 1)*WRK2(   24,I)
      WRK2(  161,I)=WRK2(  130,I)-CONF( 1)*WRK2(   56,I)
      WRK2(  162,I)=WRK2(  131,I)-CONF( 1)*WRK2(   57,I)
      WRK2(  163,I)=WRK2(  132,I)-CONF( 1)*WRK2(   58,I)
      WRK2(  164,I)=WRK2(  133,I)-CONF( 1)*WRK2(   59,I)
      WRK2(  165,I)=WRK2(  134,I)-CONF( 1)*WRK2(   60,I)
      WRK2(  166,I)=WRK2(  136,I)-CONF( 1)*WRK2(   61,I)
      WRK2(  167,I)=WRK2(  137,I)-CONF( 1)*WRK2(   62,I)
      WRK2(  168,I)=WRK2(  138,I)-CONF( 1)*WRK2(   63,I)
      WRK2(  169,I)=WRK2(  139,I)-CONF( 1)*WRK2(   64,I)
      WRK2(  170,I)=WRK2(  141,I)-CONF( 1)*WRK2(   65,I)
      WRK2(  171,I)=WRK2(  142,I)-CONF( 1)*WRK2(   66,I)
      WRK2(  172,I)=WRK2(  143,I)-CONF( 1)*WRK2(   67,I)
      WRK2(  173,I)=WRK2(  145,I)-CONF( 1)*WRK2(   68,I)
      WRK2(  174,I)=WRK2(  146,I)-CONF( 1)*WRK2(   69,I)
      WRK2(  175,I)=WRK2(  148,I)-CONF( 1)*WRK2(   70,I)
      WRK2(  176,I)=WRK2(   57,I)-CONF( 2)*WRK2(   15,I)
      WRK2(  177,I)=WRK2(   58,I)-CONF( 2)*WRK2(   16,I)
      WRK2(  178,I)=WRK2(   59,I)-CONF( 2)*WRK2(   17,I)
      WRK2(  179,I)=WRK2(   60,I)-CONF( 2)*WRK2(   18,I)
      WRK2(  180,I)=WRK2(   62,I)-CONF( 2)*WRK2(   19,I)
      WRK2(  181,I)=WRK2(   63,I)-CONF( 2)*WRK2(   20,I)
      WRK2(  182,I)=WRK2(   64,I)-CONF( 2)*WRK2(   21,I)
      WRK2(  183,I)=WRK2(   66,I)-CONF( 2)*WRK2(   22,I)
      WRK2(  184,I)=WRK2(   67,I)-CONF( 2)*WRK2(   23,I)
      WRK2(  185,I)=WRK2(   69,I)-CONF( 2)*WRK2(   24,I)
      WRK2(  186,I)=WRK2(  131,I)-CONF( 2)*WRK2(   56,I)
      WRK2(  187,I)=WRK2(  132,I)-CONF( 2)*WRK2(   57,I)
      WRK2(  188,I)=WRK2(  133,I)-CONF( 2)*WRK2(   58,I)
      WRK2(  189,I)=WRK2(  134,I)-CONF( 2)*WRK2(   59,I)
      WRK2(  190,I)=WRK2(  135,I)-CONF( 2)*WRK2(   60,I)
      WRK2(  191,I)=WRK2(  137,I)-CONF( 2)*WRK2(   61,I)
      WRK2(  192,I)=WRK2(  138,I)-CONF( 2)*WRK2(   62,I)
      WRK2(  193,I)=WRK2(  139,I)-CONF( 2)*WRK2(   63,I)
      WRK2(  194,I)=WRK2(  140,I)-CONF( 2)*WRK2(   64,I)
      WRK2(  195,I)=WRK2(  142,I)-CONF( 2)*WRK2(   65,I)
      WRK2(  196,I)=WRK2(  143,I)-CONF( 2)*WRK2(   66,I)
      WRK2(  197,I)=WRK2(  144,I)-CONF( 2)*WRK2(   67,I)
      WRK2(  198,I)=WRK2(  146,I)-CONF( 2)*WRK2(   68,I)
      WRK2(  199,I)=WRK2(  147,I)-CONF( 2)*WRK2(   69,I)
      WRK2(  200,I)=WRK2(  149,I)-CONF( 2)*WRK2(   70,I)
      WRK2(  201,I)=WRK2(   61,I)-CONF( 3)*WRK2(   15,I)
      WRK2(  202,I)=WRK2(   62,I)-CONF( 3)*WRK2(   16,I)
      WRK2(  203,I)=WRK2(   63,I)-CONF( 3)*WRK2(   17,I)
      WRK2(  204,I)=WRK2(   64,I)-CONF( 3)*WRK2(   18,I)
      WRK2(  205,I)=WRK2(   65,I)-CONF( 3)*WRK2(   19,I)
      WRK2(  206,I)=WRK2(   66,I)-CONF( 3)*WRK2(   20,I)
      WRK2(  207,I)=WRK2(   67,I)-CONF( 3)*WRK2(   21,I)
      WRK2(  208,I)=WRK2(   68,I)-CONF( 3)*WRK2(   22,I)
      WRK2(  209,I)=WRK2(   69,I)-CONF( 3)*WRK2(   23,I)
      WRK2(  210,I)=WRK2(   70,I)-CONF( 3)*WRK2(   24,I)
      WRK2(  211,I)=WRK2(  136,I)-CONF( 3)*WRK2(   56,I)
      WRK2(  212,I)=WRK2(  137,I)-CONF( 3)*WRK2(   57,I)
      WRK2(  213,I)=WRK2(  138,I)-CONF( 3)*WRK2(   58,I)
      WRK2(  214,I)=WRK2(  139,I)-CONF( 3)*WRK2(   59,I)
      WRK2(  215,I)=WRK2(  140,I)-CONF( 3)*WRK2(   60,I)
      WRK2(  216,I)=WRK2(  141,I)-CONF( 3)*WRK2(   61,I)
      WRK2(  217,I)=WRK2(  142,I)-CONF( 3)*WRK2(   62,I)
      WRK2(  218,I)=WRK2(  143,I)-CONF( 3)*WRK2(   63,I)
      WRK2(  219,I)=WRK2(  144,I)-CONF( 3)*WRK2(   64,I)
      WRK2(  220,I)=WRK2(  145,I)-CONF( 3)*WRK2(   65,I)
      WRK2(  221,I)=WRK2(  146,I)-CONF( 3)*WRK2(   66,I)
      WRK2(  222,I)=WRK2(  147,I)-CONF( 3)*WRK2(   67,I)
      WRK2(  223,I)=WRK2(  148,I)-CONF( 3)*WRK2(   68,I)
      WRK2(  224,I)=WRK2(  149,I)-CONF( 3)*WRK2(   69,I)
      WRK2(  225,I)=WRK2(  150,I)-CONF( 3)*WRK2(   70,I)
      WRK2(  226,I)=WRK2(  161,I)-CONF( 1)*WRK2(  151,I)
      WRK2(  227,I)=WRK2(  162,I)-CONF( 1)*WRK2(  152,I)
      WRK2(  228,I)=WRK2(  163,I)-CONF( 1)*WRK2(  153,I)
      WRK2(  229,I)=WRK2(  164,I)-CONF( 1)*WRK2(  154,I)
      WRK2(  230,I)=WRK2(  166,I)-CONF( 1)*WRK2(  155,I)
      WRK2(  231,I)=WRK2(  167,I)-CONF( 1)*WRK2(  156,I)
      WRK2(  232,I)=WRK2(  168,I)-CONF( 1)*WRK2(  157,I)
      WRK2(  233,I)=WRK2(  170,I)-CONF( 1)*WRK2(  158,I)
      WRK2(  234,I)=WRK2(  171,I)-CONF( 1)*WRK2(  159,I)
      WRK2(  235,I)=WRK2(  173,I)-CONF( 1)*WRK2(  160,I)
      WRK2(  236,I)=WRK2(  186,I)-CONF( 1)*WRK2(  176,I)
      WRK2(  237,I)=WRK2(  187,I)-CONF( 1)*WRK2(  177,I)
      WRK2(  238,I)=WRK2(  188,I)-CONF( 1)*WRK2(  178,I)
      WRK2(  239,I)=WRK2(  189,I)-CONF( 1)*WRK2(  179,I)
      WRK2(  240,I)=WRK2(  191,I)-CONF( 1)*WRK2(  180,I)
      WRK2(  241,I)=WRK2(  192,I)-CONF( 1)*WRK2(  181,I)
      WRK2(  242,I)=WRK2(  193,I)-CONF( 1)*WRK2(  182,I)
      WRK2(  243,I)=WRK2(  195,I)-CONF( 1)*WRK2(  183,I)
      WRK2(  244,I)=WRK2(  196,I)-CONF( 1)*WRK2(  184,I)
      WRK2(  245,I)=WRK2(  198,I)-CONF( 1)*WRK2(  185,I)
      WRK2(  246,I)=WRK2(  187,I)-CONF( 2)*WRK2(  176,I)
      WRK2(  247,I)=WRK2(  188,I)-CONF( 2)*WRK2(  177,I)
      WRK2(  248,I)=WRK2(  189,I)-CONF( 2)*WRK2(  178,I)
      WRK2(  249,I)=WRK2(  190,I)-CONF( 2)*WRK2(  179,I)
      WRK2(  250,I)=WRK2(  192,I)-CONF( 2)*WRK2(  180,I)
      WRK2(  251,I)=WRK2(  193,I)-CONF( 2)*WRK2(  181,I)
      WRK2(  252,I)=WRK2(  194,I)-CONF( 2)*WRK2(  182,I)
      WRK2(  253,I)=WRK2(  196,I)-CONF( 2)*WRK2(  183,I)
      WRK2(  254,I)=WRK2(  197,I)-CONF( 2)*WRK2(  184,I)
      WRK2(  255,I)=WRK2(  199,I)-CONF( 2)*WRK2(  185,I)
      WRK2(  256,I)=WRK2(  211,I)-CONF( 1)*WRK2(  201,I)
      WRK2(  257,I)=WRK2(  212,I)-CONF( 1)*WRK2(  202,I)
      WRK2(  258,I)=WRK2(  213,I)-CONF( 1)*WRK2(  203,I)
      WRK2(  259,I)=WRK2(  214,I)-CONF( 1)*WRK2(  204,I)
      WRK2(  260,I)=WRK2(  216,I)-CONF( 1)*WRK2(  205,I)
      WRK2(  261,I)=WRK2(  217,I)-CONF( 1)*WRK2(  206,I)
      WRK2(  262,I)=WRK2(  218,I)-CONF( 1)*WRK2(  207,I)
      WRK2(  263,I)=WRK2(  220,I)-CONF( 1)*WRK2(  208,I)
      WRK2(  264,I)=WRK2(  221,I)-CONF( 1)*WRK2(  209,I)
      WRK2(  265,I)=WRK2(  223,I)-CONF( 1)*WRK2(  210,I)
      WRK2(  266,I)=WRK2(  212,I)-CONF( 2)*WRK2(  201,I)
      WRK2(  267,I)=WRK2(  213,I)-CONF( 2)*WRK2(  202,I)
      WRK2(  268,I)=WRK2(  214,I)-CONF( 2)*WRK2(  203,I)
      WRK2(  269,I)=WRK2(  215,I)-CONF( 2)*WRK2(  204,I)
      WRK2(  270,I)=WRK2(  217,I)-CONF( 2)*WRK2(  205,I)
      WRK2(  271,I)=WRK2(  218,I)-CONF( 2)*WRK2(  206,I)
      WRK2(  272,I)=WRK2(  219,I)-CONF( 2)*WRK2(  207,I)
      WRK2(  273,I)=WRK2(  221,I)-CONF( 2)*WRK2(  208,I)
      WRK2(  274,I)=WRK2(  222,I)-CONF( 2)*WRK2(  209,I)
      WRK2(  275,I)=WRK2(  224,I)-CONF( 2)*WRK2(  210,I)
      WRK2(  276,I)=WRK2(  216,I)-CONF( 3)*WRK2(  201,I)
      WRK2(  277,I)=WRK2(  217,I)-CONF( 3)*WRK2(  202,I)
      WRK2(  278,I)=WRK2(  218,I)-CONF( 3)*WRK2(  203,I)
      WRK2(  279,I)=WRK2(  219,I)-CONF( 3)*WRK2(  204,I)
      WRK2(  280,I)=WRK2(  220,I)-CONF( 3)*WRK2(  205,I)
      WRK2(  281,I)=WRK2(  221,I)-CONF( 3)*WRK2(  206,I)
      WRK2(  282,I)=WRK2(  222,I)-CONF( 3)*WRK2(  207,I)
      WRK2(  283,I)=WRK2(  223,I)-CONF( 3)*WRK2(  208,I)
      WRK2(  284,I)=WRK2(  224,I)-CONF( 3)*WRK2(  209,I)
      WRK2(  285,I)=WRK2(  225,I)-CONF( 3)*WRK2(  210,I)
      END DO
      RETURN
      END
