C C $Id: repul.F,v 1.4 1998/07/16 16:40:37 jjv5 Exp arjan $ C C------------------------------------------------------------------------ SUBROUTINE GREPUL(IAI,NORBSI,AI0,AI1,AI2,DI1,DI2,XI,YI,ZI, . IAJ,NORBSJ,AJ0,AJ1,AJ2,DJ1,DJ2,XJ,YJ,ZJ, . RIJ,REPIJ,DXREPIJ,DYREPIJ,DZREPIJ) implicit double precision(a-h,o-z) #include "divcon.dim" #include "divcon.h" #include "constants.h" C C ROUTINE TO CALCULATE REPULSION INTEGRALS FOR A PAIR OF ATOMS I,J. C C INPUT: C C IAI,IAJ = ATOMIC NUMBERS FOR ATOMS I AND J. C C NORBSI, C NORBSJ, = NUMBERS OF ATOMIC ORBITALS CENTERED ON ATOMS I AND J. C C AI0,AI1,AI2, C AJ0,AJ1,AJ2 = MONOPOLE, DIPOLE, AND QUADRUPOLE ADDITIVE TERMS. C C DI1,DI2, C DJ1,DJ2, = DIPOLE AND QUADRUPOLE CHARGE SEPARATIONS. C C XI,YI,ZI, C XJ,YJ,ZJ, = CARTESIAN COORDINATES (ANGSTROMS). C C RIJ = INTERATOMIC DISTANCE (ANGSTROMS). C C C RETURNED: C C REPIJ = 10X10 ARRAY OF REPULSION INTEGRALS ORGANIZED ACCORDING TO: C C S_S S_PX S_PY S_PZ PX_PX PX_PY PX_PZ PY_PY PY_PZ PZ_PZ C S_S ---------------------------------------------------------------- C S_PX | . C S_PY | . C S_PZ | . C PX_PX | . C PX_PY |................(6,4) = (PX(I)*PY(I)|S(J)*PZ(J)) C PX_PZ | C PY_PY | C PY_PZ | C PZ_PZ | C real*8 REPIJ(10,10) real*8 DXREPIJ(10,10),DYREPIJ(10,10),DZREPIJ(10,10) C C LOCAL VARIABLES: C CHARACTER QCODE*6 real*8 REPLOC(22),SQROOT(100),DREPLOC(22) real*8 DXREPLOC(22),DYREPLOC(22),DZREPLOC(22) C C EE = CONVERSION FACTOR FROM ATOMIC UNITS TO eV. C DATA EE /27.210000D0/ DATA EEHALF /13.605000D0/ DATA EE4TH / 6.802500D0/ DATA EE8TH / 3.401250D0/ DATA EE16TH / 1.700625D0/ SAVE EE,EEHALF,EE4TH,EE8TH,EE16TH C DO 20 I=1,10 DO 10 J=1,10 REPIJ(I,J) = 0.0D0 DXREPIJ(I,J) = 0.0D0 DYREPIJ(I,J) = 0.0D0 DZREPIJ(I,J) = 0.0D0 10 CONTINUE 20 CONTINUE C C CONVERT RIJ TO ATOMIC UNITS. C A0 = Bohr2Ang R = RIJ/A0 RSQR = R*R C C ASSIGN SEMIEMPIRICAL "ADDITIVE" TERMS THAT DETERMINE ONE-CENTER C LIMITS FOR TWO-CENTER INTEGRALS. C RI0 = 0.5D0/AI0 RJ0 = 0.5D0/AJ0 IF(NORBSI.GT.1)THEN RI1 = 0.5D0/AI1 RI2 = 0.5D0/AI2 ENDIF IF(NORBSJ.GT.1)THEN RJ1 = 0.5D0/AJ1 RJ2 = 0.5D0/AJ2 ENDIF C C COMPUTE THE NONZERO MULTIPOLE-MULTIPOLE INTERACTIONS FOR A LOCAL C FRAME WITH XI=XJ, YI=YJ, AND ZJ-ZI=R, I.E., C C z C | C | C | C ATOM I |_______ y C /. C / . C x . C . C . C z C | C | C | C ATOM J |_______ y C / C / C x C C C [Q(I),Q(I)]: C A00 = (RI0 + RJ0)**2 SQROOT(1) = DSQRT(RSQR + A00) QQ = EE/SQROOT(1) diffQQ = -EE*R/SQROOT(1)**3 IF(NORBSI.GT.1)THEN C C [DZ(I),Q(J)]: C A10 = (RI1 + RJ0)**2 SQROOT(2) = DSQRT((R+DI1)**2 + A10) SQROOT(3) = DSQRT((R-DI1)**2 + A10) DZQ = EEHALF/SQROOT(2) - EEHALF/SQROOT(3) diffDZQ = -EEHALF*(R+DI1)/SQROOT(2)**3 & + EEHALF*(R-DI1)/SQROOT(3)**3 C C [QZZ(I),Q(J)]: C A20 = (RI2 + RJ0)**2 DI22 = 2.0D0*DI2 SQROOT(4) = DSQRT((R+DI22)**2 + A20) SQROOT(5) = DSQRT((R-DI22)**2 + A20) SQROOT(6) = DSQRT(RSQR + A20) QZZQ = EE4TH/SQROOT(4) + EE4TH/SQROOT(5) - EEHALF/SQROOT(6) diffQZZQ = -EE4TH*(R+DI22)/SQROOT(4)**3 & - EE4TH*(R-DI22)/SQROOT(5)**3 & + EEHALF*R/SQROOT(6)**3 C C [QXX(I),Q(J)] OR (QYY(I),Q(J)]: C DI22SQ = DI22*DI22 SQROOT(7) = DSQRT(RSQR + A20 + DI22SQ) SQROOT(8) = SQROOT(6) QXXQ = EEHALF/SQROOT(7) - EEHALF/SQROOT(8) diffQXXQ = -EEHALF*R/SQROOT(7)**3 & + EEHALF*R/SQROOT(8)**3 C IF(NORBSJ.GT.1)THEN C C [QXZ(I),DX(J)] OR [QYZ(I),DY(J)]: C A21 = (RI2 + RJ1)**2 RP = (R + DI2)**2 RM = (R - DI2)**2 RPA = RP + A21 RMA = RM + A21 DP = (DI2 + DJ1)**2 DM = (DI2 - DJ1)**2 SQROOT(9) = DSQRT(RPA + DM) SQROOT(10) = DSQRT(RMA + DM) SQROOT(11) = DSQRT(RMA + DP) SQROOT(12) = DSQRT(RPA + DP) QXZDX = EE4TH/SQROOT(9) - EE4TH/SQROOT(10) . + EE4TH/SQROOT(11) - EE4TH/SQROOT(12) diffQXZDX = -EE4TH*(R + DI2)/SQROOT(9)**3 & + EE4TH*(R - DI2)/SQROOT(10)**3 & - EE4TH*(R - DI2)/SQROOT(11)**3 & + EE4TH*(R + DI2)/SQROOT(12)**3 C C [QZZ(I),DZ(J)]: C RP = R + DJ1 RPSQR = RP*RP RM = R - DJ1 RMSQR = RM*RM RPP = (RP + DI22)**2 RMM = (RM - DI22)**2 RPM = (RP - DI22)**2 RMP = (RM + DI22)**2 SQROOT(13) = DSQRT(RMM + A21) SQROOT(14) = DSQRT(RPP + A21) SQROOT(15) = DSQRT(RMP + A21) SQROOT(16) = DSQRT(RPM + A21) SQROOT(17) = DSQRT(RMSQR + A21) SQROOT(18) = DSQRT(RPSQR + A21) QZZDZ = EE8TH/SQROOT(13) - EE8TH/SQROOT(14) + EE8TH/SQROOT(15) . - EE8TH/SQROOT(16) - EE4TH/SQROOT(17) + EE4TH/SQROOT(18) diffQZZDZ = -EE8TH*(RM - DI22)/SQROOT(13)**3 & + EE8TH*(RP + DI22)/SQROOT(14)**3 & - EE8TH*(RM + DI22)/SQROOT(15)**3 & + EE8TH*(RP - DI22)/SQROOT(16)**3 & + EE4TH*RM/SQROOT(17)**3 & - EE4TH*RP/SQROOT(18)**3 C C [QXX(I),DZ(J)] OR [QYY(I),DZ(J)]: C DI2A = DI22SQ + A21 SQROOT(19) = DSQRT(RMSQR + DI2A) SQROOT(20) = DSQRT(RPSQR + DI2A) SQROOT(21) = SQROOT(17) SQROOT(22) = SQROOT(18) QXXDZ = EE4TH/SQROOT(19) - EE4TH/SQROOT(20) . - EE4TH/SQROOT(21) + EE4TH/SQROOT(22) diffQXXDZ = -EE4TH*RM/SQROOT(19)**3 & + EE4TH*RP/SQROOT(20)**3 & + EE4TH*RM/SQROOT(21)**3 & - EE4TH*RP/SQROOT(22)**3 ENDIF ENDIF IF(NORBSJ.GT.1)THEN C C [Q(I),DZ(J)]: C IF(IAI.EQ.IAJ)THEN QDZ = -DZQ diffQDZ = -diffDZQ ELSE A01 = (RI0 + RJ1)**2 SQROOT(23) = DSQRT((R+DJ1)**2 + A01) SQROOT(24) = DSQRT((R-DJ1)**2 + A01) QDZ = -EEHALF/SQROOT(23) + EEHALF/SQROOT(24) diffQDZ = EEHALF*(R+DJ1)/SQROOT(23)**3 & - EEHALF*(R-DJ1)/SQROOT(24)**3 ENDIF C C [Q(I),QZZ(J)]: C DJ22 = 2.0D0*DJ2 IF(IAI.EQ.IAJ)THEN QQZZ = QZZQ diffQQZZ = diffQZZQ ELSE A02 = (RI0 + RJ2)**2 SQROOT(25) = DSQRT((R+DJ22)**2 + A02) SQROOT(26) = DSQRT((R-DJ22)**2 + A02) SQROOT(27) = DSQRT(RSQR + A02) QQZZ = EE4TH/SQROOT(25) + EE4TH/SQROOT(26) - EEHALF/SQROOT(27) diffQQZZ = -EE4TH*(R+DJ22)/SQROOT(25)**3 & - EE4TH*(R-DJ22)/SQROOT(26)**3 & + EEHALF*R/SQROOT(27)**3 ENDIF C C [Q(I),QXX(J)]: C DJ22SQ = DJ22*DJ22 IF(IAI.EQ.IAJ)THEN QQXX = QXXQ diffQQXX = diffQXXQ ELSE SQROOT(28) = DSQRT(RSQR + A02 + DJ22SQ) SQROOT(29) = SQROOT(27) QQXX = EEHALF/SQROOT(28) - EEHALF/SQROOT(29) diffQQXX = -EEHALF*R/SQROOT(28)**3 & + EEHALF*R/SQROOT(29)**3 ENDIF IF(NORBSI.GT.1)THEN C C [DX(I),QXZ(J)] OR [DY(I),QYZ(J)]: C IF(IAI.EQ.IAJ)THEN DXQXZ = -QXZDX diffDXQXZ = -diffQXZDX ELSE A12 = (RI1 + RJ2)**2 RP = (R + DJ2)**2 RM = (R - DJ2)**2 RPA = RP + A12 RMA = RM + A12 DP = (DJ2+DI1)**2 DM = (DJ2-DI1)**2 SQROOT(30) = DSQRT(RPA + DM) SQROOT(31) = DSQRT(RMA + DM) SQROOT(32) = DSQRT(RMA + DP) SQROOT(33) = DSQRT(RPA + DP) DXQXZ = -EE4TH/SQROOT(30) + EE4TH/SQROOT(31) . -EE4TH/SQROOT(32) + EE4TH/SQROOT(33) diffDXQXZ = EE4TH*(R + DJ2)/SQROOT(30)**3 & - EE4TH*(R - DJ2)/SQROOT(31)**3 & + EE4TH*(R - DJ2)/SQROOT(32)**3 & - EE4TH*(R + DJ2)/SQROOT(33)**3 ENDIF C C [DZ(I),QZZ(J)]: C IF(IAI.EQ.IAJ)THEN DZQZZ = -QZZDZ diffDZQZZ = -diffQZZDZ ELSE RP = R + DI1 RPSQR = RP*RP RM = R - DI1 RMSQR = RM*RM RPP = (RP + DJ22)**2 RMM = (RM - DJ22)**2 RPM = (RP - DJ22)**2 RMP = (RM + DJ22)**2 SQROOT(34) = DSQRT(RMM + A12) SQROOT(35) = DSQRT(RPP + A12) SQROOT(36) = DSQRT(RMP + A12) SQROOT(37) = DSQRT(RPM + A12) SQROOT(38) = DSQRT(RMSQR + A12) SQROOT(39) = DSQRT(RPSQR + A12) DZQZZ = -EE8TH/SQROOT(34) + EE8TH/SQROOT(35) . -EE8TH/SQROOT(36) + EE8TH/SQROOT(37) . +EE4TH/SQROOT(38) - EE4TH/SQROOT(39) diffDZQZZ = EE8TH*(RM - DJ22)/SQROOT(34)**3 & - EE8TH*(RP + DJ22)/SQROOT(35)**3 & + EE8TH*(RM + DJ22)/SQROOT(36)**3 & - EE8TH*(RP - DJ22)/SQROOT(37)**3 & - EE4TH*RM/SQROOT(38)**3 & + EE4TH*RP/SQROOT(39)**3 ENDIF C C [DZ(I),QXX(J)] OR [DZ(I),QYY(J)]: C IF(IAI.EQ.IAJ)THEN DZQXX = -QXXDZ diffDZQXX = -diffQXXDZ ELSE DJ2A = DJ22SQ + A12 SQROOT(40) = DSQRT(RMSQR + DJ2A) SQROOT(41) = DSQRT(RPSQR + DJ2A) SQROOT(42) = SQROOT(38) SQROOT(43) = SQROOT(39) DZQXX = -EE4TH/SQROOT(40) + EE4TH/SQROOT(41) . +EE4TH/SQROOT(42) - EE4TH/SQROOT(43) diffDZQXX = EE4TH*RM/SQROOT(40)**3 & - EE4TH*RP/SQROOT(41)**3 & - EE4TH*RM/SQROOT(42)**3 & + EE4TH*RP/SQROOT(43)**3 ENDIF C C [DX(I),DX(J)] OR [DY(I),DY(J)]: C A11 = (RI1 + RJ1)**2 RA = RSQR + A11 DIPJ = DI1 + DJ1 DIMJ = DI1 - DJ1 SQROOT(44) = DSQRT(RA + DIMJ*DIMJ) SQROOT(45) = DSQRT(RA + DIPJ*DIPJ) DXDX = EEHALF/SQROOT(44) - EEHALF/SQROOT(45) diffDXDX = -EEHALF*R/SQROOT(44)**3 & + EEHALF*R/SQROOT(45)**3 C C [DZ(I),DZ(J)]: C SQROOT(46) = DSQRT((R+DIMJ)**2 + A11) SQROOT(47) = DSQRT((R+DIPJ)**2 + A11) SQROOT(48) = DSQRT((R-DIPJ)**2 + A11) SQROOT(49) = DSQRT((R-DIMJ)**2 + A11) DZDZ = EE4TH/SQROOT(46) - EE4TH/SQROOT(47) . - EE4TH/SQROOT(48) + EE4TH/SQROOT(49) diffDZDZ = -EE4TH*(R+DIMJ)/SQROOT(46)**3 & + EE4TH*(R+DIPJ)/SQROOT(47)**3 & + EE4TH*(R-DIPJ)/SQROOT(48)**3 & - EE4TH*(R-DIMJ)/SQROOT(49)**3 #ifdef CUTREPUL_IS_ON if (rij.le.cutrepul) then #endif C C [QZZ(I),QZZ(J)]: C A22 = (RI2 + RJ2)**2 RA = RSQR + A22 RPI = R + DI22 RMI = R - DI22 RPJ = R + DJ22 RMJ = R - DJ22 SQROOT(50) = DSQRT((RPI - DJ22)**2 + A22) SQROOT(51) = DSQRT((RPI + DJ22)**2 + A22) SQROOT(52) = DSQRT((RMI - DJ22)**2 + A22) SQROOT(53) = DSQRT((RMI + DJ22)**2 + A22) SQROOT(54) = DSQRT(RPI*RPI + A22) SQROOT(55) = DSQRT(RMI*RMI + A22) SQROOT(56) = DSQRT(RPJ*RPJ + A22) SQROOT(57) = DSQRT(RMJ*RMJ + A22) SQROOT(58) = DSQRT(RA) QZZQZZ = EE16TH/SQROOT(50) + EE16TH/SQROOT(51) . + EE16TH/SQROOT(52) + EE16TH/SQROOT(53) . - EE8TH/SQROOT(54) - EE8TH/SQROOT(55) . - EE8TH/SQROOT(56) - EE8TH/SQROOT(57) . + EE4TH/SQROOT(58) diffQZZQZZ = -EE16TH*(RPI - DJ22)/SQROOT(50)**3 & - EE16TH*(RPI + DJ22)/SQROOT(51)**3 & - EE16TH*(RMI - DJ22)/SQROOT(52)**3 & - EE16TH*(RMI + DJ22)/SQROOT(53)**3 & + EE8TH*RPI/SQROOT(54)**3 & + EE8TH*RMI/SQROOT(55)**3 & + EE8TH*RPJ/SQROOT(56)**3 & + EE8TH*RMJ/SQROOT(57)**3 & - EE4TH*R/SQROOT(58)**3 C C [QXX(I),QXX(J)] OR [QYY(I),QYY(I)]: C SQROOT(59) = DSQRT(RA + (DI22-DJ22)**2) SQROOT(60) = DSQRT(RA + (DI22+DJ22)**2) SQROOT(61) = DSQRT(RA + DI22SQ) SQROOT(62) = DSQRT(RA + DJ22SQ) SQROOT(63) = SQROOT(58) QXXQXX = EE8TH/SQROOT(59) + EE8TH/SQROOT(60) . - EE4TH/SQROOT(61) - EE4TH/SQROOT(62) . + EE4TH/SQROOT(63) diffQXXQXX = -EE8TH*R/SQROOT(59)**3 & - EE8TH*R/SQROOT(60)**3 & + EE4TH*R/SQROOT(61)**3 & + EE4TH*R/SQROOT(62)**3 & - EE4TH*R/SQROOT(63)**3 C C [QZZ(I),QXX(J)] OR [QZZ(I),QYY(I)]: C AJJ2SQ = A22 + DJ22SQ RPISQ = RPI*RPI RMISQ = RMI*RMI SQROOT(64) = DSQRT(RMISQ + AJJ2SQ) SQROOT(65) = DSQRT(RPISQ + AJJ2SQ) SQROOT(66) = SQROOT(55) SQROOT(67) = SQROOT(54) SQROOT(68) = SQROOT(62) SQROOT(69) = SQROOT(58) QZZQXX = EE8TH/SQROOT(64) + EE8TH/SQROOT(65) . - EE8TH/SQROOT(66) - EE8TH/SQROOT(67) . - EE4TH/SQROOT(68) + EE4TH/SQROOT(69) diffQZZQXX = -EE8TH*RMI/SQROOT(64)**3 & - EE8TH*RPI/SQROOT(65)**3 & + EE8TH*RMI/SQROOT(66)**3 & + EE8TH*RPI/SQROOT(67)**3 & + EE4TH*R/SQROOT(68)**3 & - EE4TH*R/SQROOT(69)**3 C C [QXX(I),QZZ(J)] OR [QYY(I),QZZ(J)] C IF(IAI.EQ.IAJ)THEN QXXQZZ = QZZQXX diffQXXQZZ = diffQZZQXX ELSE AII2SQ = A22 + DI22SQ RPJSQ = RPJ*RPJ RMJSQ = RMJ*RMJ SQROOT(70) = DSQRT(RMJSQ + AII2SQ) SQROOT(71) = DSQRT(RPJSQ + AII2SQ) SQROOT(72) = SQROOT(57) SQROOT(73) = SQROOT(56) SQROOT(74) = SQROOT(61) SQROOT(75) = SQROOT(58) QXXQZZ = EE8TH/SQROOT(70) + EE8TH/SQROOT(71) . - EE8TH/SQROOT(72) - EE8TH/SQROOT(73) . - EE4TH/SQROOT(74) + EE4TH/SQROOT(75) diffQXXQZZ = -EE8TH*RMJ/SQROOT(70)**3 & - EE8TH*RPJ/SQROOT(71)**3 & + EE8TH*RMJ/SQROOT(72)**3 & + EE8TH*RPJ/SQROOT(73)**3 & + EE4TH*R/SQROOT(74)**3 & - EE4TH*R/SQROOT(75)**3 ENDIF C C [QXX(I),QYY(J)] OR [QYY(I),QXX(J)]: C SQROOT(76) = DSQRT(RA + DI22SQ + DJ22SQ) SQROOT(77) = SQROOT(61) SQROOT(78) = SQROOT(62) SQROOT(79) = SQROOT(58) QXXQYY = EE4TH/SQROOT(76) - EE4TH/SQROOT(77) . - EE4TH/SQROOT(78) + EE4TH/SQROOT(79) diffQXXQYY = -EE4TH*R/SQROOT(76)**3 & + EE4TH*R/SQROOT(77)**3 & + EE4TH*R/SQROOT(78)**3 & - EE4TH*R/SQROOT(79)**3 C C [QXZ(I),QXZ(J)] OR [QYZ(I),QYZ(J)]: C DIPJ = DI2 + DJ2 DIMJ = DI2 - DJ2 DIPJSQ = DIPJ*DIPJ DIMJSQ = DIMJ*DIMJ RPP = (R+DIPJ)**2 RMP = (R-DIPJ)**2 RPM = (R+DIMJ)**2 RMM = (R-DIMJ)**2 DPSQA = DIPJSQ + A22 DMSQA = DIMJSQ + A22 SQROOT(80) = DSQRT(RPM + DMSQA) SQROOT(81) = DSQRT(RPM + DPSQA) SQROOT(82) = DSQRT(RPP + DMSQA) SQROOT(83) = DSQRT(RPP + DPSQA) SQROOT(84) = DSQRT(RMP + DMSQA) SQROOT(85) = DSQRT(RMP + DPSQA) SQROOT(86) = DSQRT(RMM + DMSQA) SQROOT(87) = DSQRT(RMM + DPSQA) QXZQXZ = EE8TH/SQROOT(80) - EE8TH/SQROOT(81) . - EE8TH/SQROOT(82) + EE8TH/SQROOT(83) . - EE8TH/SQROOT(84) + EE8TH/SQROOT(85) . + EE8TH/SQROOT(86) - EE8TH/SQROOT(87) diffQXZQXZ = -EE8TH*(R+DIMJ)/SQROOT(80)**3 & + EE8TH*(R+DIMJ)/SQROOT(81)**3 & + EE8TH*(R+DIPJ)/SQROOT(82)**3 & - EE8TH*(R+DIPJ)/SQROOT(83)**3 & + EE8TH*(R-DIPJ)/SQROOT(84)**3 & - EE8TH*(R-DIPJ)/SQROOT(85)**3 & - EE8TH*(R-DIMJ)/SQROOT(86)**3 & + EE8TH*(R-DIMJ)/SQROOT(87)**3 C C [QXY(I),QXY(J)] OR [QXX-YY(I),QXX-YY(J)]: C QXYQXY = 0.5D0*(QXXQXX - QXXQYY) diffQXYQXY = 0.5D0*(diffQXXQXX - diffQXXQYY) #ifdef CUTREPUL_IS_ON else qzzqzz = 0.0 qxxqxx = 0.0 qzzqxx = 0.0 qxxqzz = 0.0 qxxqyy = 0.0 qxzqxz = 0.0 qxyqxy = 0.0 diffqzzqzz = 0.0 diffqxxqxx = 0.0 diffqzzqxx = 0.0 diffqxxqzz = 0.0 diffqxxqyy = 0.0 diffqxzqxz = 0.0 diffqxyqxy = 0.0 endif #endif ENDIF ENDIF C C NOW USE THE LOCAL MULTIPOLE-MULTIPOLE INTERACTIONS TO CONSTRUCT C THE 22 NONZERO LOCAL REPULSION INTEGRALS. C C (S S | S S): C REPLOC(1) = QQ DREPLOC(1) = diffQQ IF(NORBSI.GT.1)THEN C C (S PZ | S S): C REPLOC(2) = DZQ DREPLOC(2) = diffDZQ C C (PZ PZ | S S): C REPLOC(3) = QZZQ + QQ DREPLOC(3) = diffQZZQ + diffQQ C C (PX PX | S S) OR (PY PY | S S): C REPLOC(4) = QXXQ + QQ DREPLOC(4) = diffQXXQ + diffQQ ENDIF IF(NORBSJ.GT.1)THEN C C (S S | S PZ): C REPLOC(5) = QDZ DREPLOC(5) = diffQDZ IF(NORBSI.GT.1)THEN C C (S PZ | S PZ): C REPLOC(6) = DZDZ DREPLOC(6) = diffDZDZ C C (S PX | S PX) OR (S PY | S PY): C REPLOC(7) = DXDX DREPLOC(7) = diffDXDX C C (PZ PZ | S PZ): C REPLOC(8) = QZZDZ + QDZ DREPLOC(8) = diffQZZDZ + diffQDZ C C (PX PX | S PZ) OR (PY PY | S PZ): C REPLOC(9) = QXXDZ + QDZ DREPLOC(9) = diffQXXDZ + diffQDZ C C (PX PZ | S PX): C REPLOC(10) = QXZDX DREPLOC(10) = diffQXZDX ENDIF C C (S S | PZ PZ): C REPLOC(11) = QQZZ + QQ DREPLOC(11) = diffQQZZ + diffQQ C C (S S | PX PX) OR (S S | PY PY): C REPLOC(12) = QQXX + QQ DREPLOC(12) = diffQQXX + diffQQ IF(NORBSI.GT.1)THEN C C (S PZ | PZ PZ): C REPLOC(13) = DZQZZ + DZQ DREPLOC(13) = diffDZQZZ + diffDZQ C C (S PZ | PX PX) OR (S PZ | PY PY): C REPLOC(14) = DZQXX + DZQ DREPLOC(14) = diffDZQXX + diffDZQ C C (S PX | PX PZ) OR (S PY | PY PZ): C REPLOC(15) = DXQXZ DREPLOC(15) = diffDXQXZ QQQQZZ = QQ + QQZZ diffQQQQZZ = diffQQ + diffQQZZ C C (PZ PZ | PZ PZ): C REPLOC(16) = QQQQZZ + QZZQ + QZZQZZ DREPLOC(16) = diffQQQQZZ + diffQZZQ + diffQZZQZZ C C (PX PX | PZ PZ) OR (PY PY | PZ PZ): C REPLOC(17) = QQQQZZ + QXXQ + QXXQZZ DREPLOC(17) = diffQQQQZZ + diffQXXQ + diffQXXQZZ QQQQXX = QQ + QQXX diffQQQQXX = diffQQ + diffQQXX C C (PZ PZ | PX PX) OR (PZ PZ | PY PY): C REPLOC(18) = QQQQXX + QZZQ + QZZQXX DREPLOC(18) = diffQQQQXX + diffQZZQ + diffQZZQXX C C (PX PX | PX PX) OR (PY PY | PY PY): C REPLOC(19) = QQQQXX + QXXQ + QXXQXX DREPLOC(19) = diffQQQQXX + diffQXXQ + diffQXXQXX C C (PX PZ | PX PZ) OR (PY PZ | PY PZ): C REPLOC(20) = QXZQXZ DREPLOC(20) = diffQXZQXZ C C (PX PX | PY PY) OR (PY PY | PX PX): C REPLOC(21) = QQQQXX + QXXQ + QXXQYY DREPLOC(21) = diffQQQQXX + diffQXXQ + diffQXXQYY C C (PX PY | PX PY): C REPLOC(22) = QXYQXY DREPLOC(22) = diffQXYQXY ENDIF ENDIF c c D D c -- --> -- c DR Dx c do i=1,22 DXREPLOC(i)=DREPLOC(i)*(XI-XJ)/RIJ/Bohr2Ang DYREPLOC(i)=DREPLOC(i)*(YI-YJ)/RIJ/Bohr2Ang DZREPLOC(i)=DREPLOC(i)*(ZI-ZJ)/RIJ/Bohr2Ang enddo C C ROTATE LOCAL REPULSION INTEGRALS TO MOLECULAR FRAME. C IF(NORBSI.EQ.1.AND.NORBSJ.EQ.1)THEN REPIJ(1,1) = REPLOC(1) DXREPIJ(1,1) = DREPLOC(1)*(XI-XJ)/RIJ/Bohr2Ang DYREPIJ(1,1) = DREPLOC(1)*(YI-YJ)/RIJ/Bohr2Ang DZREPIJ(1,1) = DREPLOC(1)*(ZI-ZJ)/RIJ/Bohr2Ang ELSE CALL GRREP(NORBSI,NORBSJ,XI,YI,ZI,XJ,YJ,ZJ,RIJ,REPLOC,REPIJ, & DXREPIJ,DYREPIJ,DZREPIJ,DXREPLOC,DYREPLOC,DZREPLOC) ENDIF RETURN END C C C SUBROUTINE GRREP(NORBSI,NORBSJ,XI,YI,ZI,XJ,YJ,ZJ,RIJ,REPLOC,REPIJ, & DXREPIJ,DYREPIJ,DZREPIJ,DXREPLOC,DYREPLOC,DZREPLOC) IMPLICIT DOUBLE PRECISION (A-H,O-Z) real*8 REPLOC(22),REPIJ(10,10),DXREPLOC(22),DXREPIJ(10,10) real*8 DYREPLOC(22),DYREPIJ(10,10),DZREPLOC(22),DZREPIJ(10,10) C C ROTATES THE LOCAL FRAME REPULSION INTEGRALS TO THE MOLECULAR FRAME. C real*8 R(3,3),DXR(3,3),DYR(3,3),DZR(3,3) C C GENERATE ROTATION MATRIX. C R(3,1) = (XI-XJ)/RIJ DXR(3,1) = (1/RIJ - (XI-XJ)*(XI-XJ)/RIJ**3) DYR(3,1) = -(XI-XJ)*(YI-YJ)/RIJ**3 DZR(3,1) = -(XI-XJ)*(ZI-ZJ)/RIJ**3 R(3,2) = (YI-YJ)/RIJ DXR(3,2) = -(YI-YJ)*(XI-XJ)/RIJ**3 DYR(3,2) = (1/RIJ - (YI-YJ)*(YI-YJ)/RIJ**3) DZR(3,2) = -(YI-YJ)*(ZI-ZJ)/RIJ**3 R(3,3) = (ZI-ZJ)/RIJ DXR(3,3) = -(ZI-ZJ)*(XI-XJ)/RIJ**3 DYR(3,3) = -(ZI-ZJ)*(YI-YJ)/RIJ**3 DZR(3,3) = (1/RIJ - (ZI-ZJ)*(ZI-ZJ)/RIJ**3) IF(ABS(R(3,3)).GT.0.99999999D0)THEN R(3,1) = 0.0D0 DXR(3,1) = 0.0D0 DYR(3,1) = 0.0D0 DZR(3,1) = 0.0D0 R(3,2) = 0.0D0 DXR(3,2) = 0.0D0 DYR(3,2) = 0.0D0 DZR(3,2) = 0.0D0 R(3,3) = SIGN(1.0D0,R(3,3)) DXR(3,3) = 0.0D0 DYR(3,3) = 0.0D0 DZR(3,3) = 0.0D0 R(1,1) = 1.0D0 DXR(1,1) = 0.0D0 DYR(1,1) = 0.0D0 DZR(1,1) = 0.0D0 R(1,2) = 0.0D0 DXR(1,2) = 0.0D0 DYR(1,2) = 0.0D0 DZR(1,2) = 0.0D0 R(1,3) = 0.0D0 DXR(1,3) = 0.0D0 DYR(1,3) = 0.0D0 DZR(1,3) = 0.0D0 R(2,1) = 0.0D0 DXR(2,1) = 0.0D0 DYR(2,1) = 0.0D0 DZR(2,1) = 0.0D0 R(2,2) = R(3,3) DXR(2,2) = 0.0D0 DYR(2,2) = 0.0D0 DZR(2,2) = 0.0D0 R(2,3) = 0.0D0 DXR(2,3) = 0.0D0 DYR(2,3) = 0.0D0 DZR(2,3) = 0.0D0 ELSE Z12SQR = R(3,1)**2 + R(3,2)**2 DXZ12SQR = 2.0d0*(R(3,1)*DXR(3,1)+R(3,2)*DXR(3,2)) DYZ12SQR = 2.0d0*(R(3,1)*DYR(3,1)+R(3,2)*DYR(3,2)) DZZ12SQR = 2.0d0*(R(3,1)*DZR(3,1)+R(3,2)*DZR(3,2)) Z12 = DSQRT(Z12SQR) DXZ12 = DXZ12SQR/(2.0d0*Z12) DYZ12 = DYZ12SQR/(2.0d0*Z12) DZZ12 = DZZ12SQR/(2.0d0*Z12) R(1,1) = -R(3,2)/Z12 DXR(1,1) = (-DXR(3,2)/Z12 + R(3,2)*DXZ12/Z12SQR) DYR(1,1) = (-DYR(3,2)/Z12 + R(3,2)*DYZ12/Z12SQR) DZR(1,1) = (-DZR(3,2)/Z12 + R(3,2)*DZZ12/Z12SQR) R(1,2) = R(3,1)/Z12 DXR(1,2) = (DXR(3,1)/Z12 - R(3,1)*DXZ12/Z12SQR) DYR(1,2) = (DYR(3,1)/Z12 - R(3,1)*DYZ12/Z12SQR) DZR(1,2) = (DZR(3,1)/Z12 - R(3,1)*DZZ12/Z12SQR) R(1,3) = 0.0D0 DXR(1,3) = 0.0D0 DYR(1,3) = 0.0D0 DZR(1,3) = 0.0D0 IF(ABS(R(3,3)).LT.1.0D-8)THEN R(2,1) = 0.0D0 DXR(2,1) = 0.0D0 DYR(2,1) = 0.0D0 DZR(2,1) = 0.0D0 R(2,2) = 0.0D0 DXR(2,2) = 0.0D0 DYR(2,2) = 0.0D0 DZR(2,2) = 0.0D0 R(2,3) = 1.0D0 DXR(2,3) = 0.0D0 DYR(2,3) = 0.0D0 DZR(2,3) = 0.0D0 ELSE YINV = 1.0D0/(Z12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2)) DXYINV = -(DXZ12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2) & +Z12*0.5d0*(-2.0d0*Z12SQR*DXR(3,3)/R(3,3)**3 & + DXZ12SQR/R(3,3)**2)/DSQRT(1.0D0 + Z12SQR/R(3,3)**2)) & /(Z12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2))**2 DYYINV = -(DYZ12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2) & +Z12*0.5d0*(-2.0d0*Z12SQR*DYR(3,3)/R(3,3)**3 & + DYZ12SQR/R(3,3)**2)/DSQRT(1.0D0 + Z12SQR/R(3,3)**2)) & /(Z12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2))**2 DZYINV = -(DZZ12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2) & +Z12*0.5d0*(-2.0d0*Z12SQR*DZR(3,3)/R(3,3)**3 & + DZZ12SQR/R(3,3)**2)/DSQRT(1.0D0 + Z12SQR/R(3,3)**2)) & /(Z12*DSQRT(1.0D0 + Z12SQR/R(3,3)**2))**2 R(2,1) = R(3,1)*YINV DXR(2,1) = (DXR(3,1)*YINV + R(3,1)*DXYINV) DYR(2,1) = (DYR(3,1)*YINV + R(3,1)*DYYINV) DZR(2,1) = (DZR(3,1)*YINV + R(3,1)*DZYINV) R(2,2) = R(3,2)*YINV DXR(2,2) = (DXR(3,2)*YINV + R(3,2)*DXYINV) DYR(2,2) = (DYR(3,2)*YINV + R(3,2)*DYYINV) DZR(2,2) = (DZR(3,2)*YINV + R(3,2)*DZYINV) R(2,3) = -(Z12SQR/R(3,3))*YINV DXR(2,3) = (-(DXZ12SQR/R(3,3))*YINV & + (Z12SQR*DXR(3,3)/R(3,3)**2)*YINV & - (Z12SQR/R(3,3))*DXYINV) DYR(2,3) = (-(DYZ12SQR/R(3,3))*YINV & + (Z12SQR*DYR(3,3)/R(3,3)**2)*YINV & - (Z12SQR/R(3,3))*DYYINV) DZR(2,3) = (-(DZZ12SQR/R(3,3))*YINV & + (Z12SQR*DZR(3,3)/R(3,3)**2)*YINV & - (Z12SQR/R(3,3))*DZYINV) ENDIF ENDIF R11R11 = R(1,1)*R(1,1) DXR11R11 = DXR(1,1)*R(1,1) + R(1,1)*DXR(1,1) DYR11R11 = DYR(1,1)*R(1,1) + R(1,1)*DYR(1,1) DZR11R11 = DZR(1,1)*R(1,1) + R(1,1)*DZR(1,1) R11R12 = R(1,1)*R(1,2) DXR11R12 = DXR(1,1)*R(1,2) + R(1,1)*DXR(1,2) DYR11R12 = DYR(1,1)*R(1,2) + R(1,1)*DYR(1,2) DZR11R12 = DZR(1,1)*R(1,2) + R(1,1)*DZR(1,2) R11R13 = R(1,1)*R(1,3) DXR11R13 = DXR(1,1)*R(1,3) + R(1,1)*DXR(1,3) DYR11R13 = DYR(1,1)*R(1,3) + R(1,1)*DYR(1,3) DZR11R13 = DZR(1,1)*R(1,3) + R(1,1)*DZR(1,3) R12R12 = R(1,2)*R(1,2) DXR12R12 = DXR(1,2)*R(1,2) + R(1,2)*DXR(1,2) DYR12R12 = DYR(1,2)*R(1,2) + R(1,2)*DYR(1,2) DZR12R12 = DZR(1,2)*R(1,2) + R(1,2)*DZR(1,2) R12R13 = R(1,2)*R(1,3) DXR12R13 = DXR(1,2)*R(1,3) + R(1,2)*DXR(1,3) DYR12R13 = DYR(1,2)*R(1,3) + R(1,2)*DYR(1,3) DZR12R13 = DZR(1,2)*R(1,3) + R(1,2)*DZR(1,3) R13R13 = R(1,3)*R(1,3) DXR13R13 = DXR(1,3)*R(1,3) + R(1,3)*DXR(1,3) DYR13R13 = DYR(1,3)*R(1,3) + R(1,3)*DYR(1,3) DZR13R13 = DZR(1,3)*R(1,3) + R(1,3)*DZR(1,3) R21R21 = R(2,1)*R(2,1) DXR21R21 = DXR(2,1)*R(2,1) + R(2,1)*DXR(2,1) DYR21R21 = DYR(2,1)*R(2,1) + R(2,1)*DYR(2,1) DZR21R21 = DZR(2,1)*R(2,1) + R(2,1)*DZR(2,1) R21R22 = R(2,1)*R(2,2) DXR21R22 = DXR(2,1)*R(2,2) + R(2,1)*DXR(2,2) DYR21R22 = DYR(2,1)*R(2,2) + R(2,1)*DYR(2,2) DZR21R22 = DZR(2,1)*R(2,2) + R(2,1)*DZR(2,2) R21R23 = R(2,1)*R(2,3) DXR21R23 = DXR(2,1)*R(2,3) + R(2,1)*DXR(2,3) DYR21R23 = DYR(2,1)*R(2,3) + R(2,1)*DYR(2,3) DZR21R23 = DZR(2,1)*R(2,3) + R(2,1)*DZR(2,3) R22R22 = R(2,2)*R(2,2) DXR22R22 = DXR(2,2)*R(2,2) + R(2,2)*DXR(2,2) DYR22R22 = DYR(2,2)*R(2,2) + R(2,2)*DYR(2,2) DZR22R22 = DZR(2,2)*R(2,2) + R(2,2)*DZR(2,2) R22R23 = R(2,2)*R(2,3) DXR22R23 = DXR(2,2)*R(2,3) + R(2,2)*DXR(2,3) DYR22R23 = DYR(2,2)*R(2,3) + R(2,2)*DYR(2,3) DZR22R23 = DZR(2,2)*R(2,3) + R(2,2)*DZR(2,3) R23R23 = R(2,3)*R(2,3) DXR23R23 = DXR(2,3)*R(2,3) + R(2,3)*DXR(2,3) DYR23R23 = DYR(2,3)*R(2,3) + R(2,3)*DYR(2,3) DZR23R23 = DZR(2,3)*R(2,3) + R(2,3)*DZR(2,3) R31R31 = R(3,1)*R(3,1) DXR31R31 = DXR(3,1)*R(3,1) + R(3,1)*DXR(3,1) DYR31R31 = DYR(3,1)*R(3,1) + R(3,1)*DYR(3,1) DZR31R31 = DZR(3,1)*R(3,1) + R(3,1)*DZR(3,1) R31R32 = R(3,1)*R(3,2) DXR31R32 = DXR(3,1)*R(3,2) + R(3,1)*DXR(3,2) DYR31R32 = DYR(3,1)*R(3,2) + R(3,1)*DYR(3,2) DZR31R32 = DZR(3,1)*R(3,2) + R(3,1)*DZR(3,2) R31R33 = R(3,1)*R(3,3) DXR31R33 = DXR(3,1)*R(3,3) + R(3,1)*DXR(3,3) DYR31R33 = DYR(3,1)*R(3,3) + R(3,1)*DYR(3,3) DZR31R33 = DZR(3,1)*R(3,3) + R(3,1)*DZR(3,3) R32R32 = R(3,2)*R(3,2) DXR32R32 = DXR(3,2)*R(3,2) + R(3,2)*DXR(3,2) DYR32R32 = DYR(3,2)*R(3,2) + R(3,2)*DYR(3,2) DZR32R32 = DZR(3,2)*R(3,2) + R(3,2)*DZR(3,2) R32R33 = R(3,2)*R(3,3) DXR32R33 = DXR(3,2)*R(3,3) + R(3,2)*DXR(3,3) DYR32R33 = DYR(3,2)*R(3,3) + R(3,2)*DYR(3,3) DZR32R33 = DZR(3,2)*R(3,3) + R(3,2)*DZR(3,3) R33R33 = R(3,3)*R(3,3) DXR33R33 = DXR(3,3)*R(3,3) + R(3,3)*DXR(3,3) DYR33R33 = DYR(3,3)*R(3,3) + R(3,3)*DYR(3,3) DZR33R33 = DZR(3,3)*R(3,3) + R(3,3)*DZR(3,3) IF(NORBSI.GT.1.OR.NORBSJ.GT.1)THEN RADD01 = R11R11+R21R21 DXRADD01 = DXR11R11+DXR21R21 DYRADD01 = DYR11R11+DYR21R21 DZRADD01 = DZR11R11+DZR21R21 RADD02 = R11R12+R21R22 DXRADD02 = DXR11R12+DXR21R22 DYRADD02 = DYR11R12+DYR21R22 DZRADD02 = DZR11R12+DZR21R22 RADD03 = R11R13+R21R23 DXRADD03 = DXR11R13+DXR21R23 DYRADD03 = DYR11R13+DYR21R23 DZRADD03 = DZR11R13+DZR21R23 RADD04 = R12R12+R22R22 DXRADD04 = DXR12R12+DXR22R22 DYRADD04 = DYR12R12+DYR22R22 DZRADD04 = DZR12R12+DZR22R22 RADD05 = R12R13+R22R23 DXRADD05 = DXR12R13+DXR22R23 DYRADD05 = DYR12R13+DYR22R23 DZRADD05 = DZR12R13+DZR22R23 RADD06 = R13R13+R23R23 DXRADD06 = DXR13R13+DXR23R23 DYRADD06 = DYR13R13+DYR23R23 DZRADD06 = DZR13R13+DZR23R23 ENDIF IF(NORBSI.GT.1.AND.NORBSJ.GT.1)THEN R11R21 = R(1,1)*R(2,1)*2.0D0 DXR11R21 = (DXR(1,1)*R(2,1) + R(1,1)*DXR(2,1))*2.0D0 DYR11R21 = (DYR(1,1)*R(2,1) + R(1,1)*DYR(2,1))*2.0D0 DZR11R21 = (DZR(1,1)*R(2,1) + R(1,1)*DZR(2,1))*2.0D0 R11R22 = R(1,1)*R(2,2) DXR11R22 = DXR(1,1)*R(2,2) + R(1,1)*DXR(2,2) DYR11R22 = DYR(1,1)*R(2,2) + R(1,1)*DYR(2,2) DZR11R22 = DZR(1,1)*R(2,2) + R(1,1)*DZR(2,2) R11R23 = R(1,1)*R(2,3) DXR11R23 = DXR(1,1)*R(2,3) + R(1,1)*DXR(2,3) DYR11R23 = DYR(1,1)*R(2,3) + R(1,1)*DYR(2,3) DZR11R23 = DZR(1,1)*R(2,3) + R(1,1)*DZR(2,3) R11R31 = R(1,1)*R(3,1)*2.0D0 DXR11R31 = (DXR(1,1)*R(3,1) + R(1,1)*DXR(3,1))*2.0D0 DYR11R31 = (DYR(1,1)*R(3,1) + R(1,1)*DYR(3,1))*2.0D0 DZR11R31 = (DZR(1,1)*R(3,1) + R(1,1)*DZR(3,1))*2.0D0 R11R32 = R(1,1)*R(3,2) DXR11R32 = DXR(1,1)*R(3,2) + R(1,1)*DXR(3,2) DYR11R32 = DYR(1,1)*R(3,2) + R(1,1)*DYR(3,2) DZR11R32 = DZR(1,1)*R(3,2) + R(1,1)*DZR(3,2) R11R33 = R(1,1)*R(3,3) DXR11R33 = DXR(1,1)*R(3,3) + R(1,1)*DXR(3,3) DYR11R33 = DYR(1,1)*R(3,3) + R(1,1)*DYR(3,3) DZR11R33 = DZR(1,1)*R(3,3) + R(1,1)*DZR(3,3) R12R22 = R(1,2)*R(2,2)*2.0D0 DXR12R22 = (DXR(1,2)*R(2,2) + R(1,2)*DXR(2,2))*2.0D0 DYR12R22 = (DYR(1,2)*R(2,2) + R(1,2)*DYR(2,2))*2.0D0 DZR12R22 = (DZR(1,2)*R(2,2) + R(1,2)*DZR(2,2))*2.0D0 R12R23 = R(1,2)*R(2,3) DXR12R23 = DXR(1,2)*R(2,3) + R(1,2)*DXR(2,3) DYR12R23 = DYR(1,2)*R(2,3) + R(1,2)*DYR(2,3) DZR12R23 = DZR(1,2)*R(2,3) + R(1,2)*DZR(2,3) R12R31 = R(1,2)*R(3,1) DXR12R31 = DXR(1,2)*R(3,1) + R(1,2)*DXR(3,1) DYR12R31 = DYR(1,2)*R(3,1) + R(1,2)*DYR(3,1) DZR12R31 = DZR(1,2)*R(3,1) + R(1,2)*DZR(3,1) R12R32 = R(1,2)*R(3,2)*2.0D0 DXR12R32 = (DXR(1,2)*R(3,2) + R(1,2)*DXR(3,2))*2.0D0 DYR12R32 = (DYR(1,2)*R(3,2) + R(1,2)*DYR(3,2))*2.0D0 DZR12R32 = (DZR(1,2)*R(3,2) + R(1,2)*DZR(3,2))*2.0D0 R12R33 = R(1,2)*R(3,3) DXR12R33 = DXR(1,2)*R(3,3) + R(1,2)*DXR(3,3) DYR12R33 = DYR(1,2)*R(3,3) + R(1,2)*DYR(3,3) DZR12R33 = DZR(1,2)*R(3,3) + R(1,2)*DZR(3,3) R13R23 = R(1,3)*R(2,3)*2.0D0 DXR13R23 = (DXR(1,3)*R(2,3) + R(1,3)*DXR(2,3))*2.0D0 DYR13R23 = (DYR(1,3)*R(2,3) + R(1,3)*DYR(2,3))*2.0D0 DZR13R23 = (DZR(1,3)*R(2,3) + R(1,3)*DZR(2,3))*2.0D0 R13R33 = R(1,3)*R(3,3)*2.0D0 DXR13R33 = (DXR(1,3)*R(3,3) + R(1,3)*DXR(3,3))*2.0D0 DYR13R33 = (DYR(1,3)*R(3,3) + R(1,3)*DYR(3,3))*2.0D0 DZR13R33 = (DZR(1,3)*R(3,3) + R(1,3)*DZR(3,3))*2.0D0 R21R11 = R11R21 DXR21R11 = DXR11R21 DYR21R11 = DYR11R21 DZR21R11 = DZR11R21 R21R12 = R(2,1)*R(1,2) DXR21R12 = DXR(2,1)*R(1,2) + R(2,1)*DXR(1,2) DYR21R12 = DYR(2,1)*R(1,2) + R(2,1)*DYR(1,2) DZR21R12 = DZR(2,1)*R(1,2) + R(2,1)*DZR(1,2) R21R13 = R(2,1)*R(1,3) DXR21R13 = DXR(2,1)*R(1,3) + R(2,1)*DXR(1,3) DYR21R13 = DYR(2,1)*R(1,3) + R(2,1)*DYR(1,3) DZR21R13 = DZR(2,1)*R(1,3) + R(2,1)*DZR(1,3) R21R21 = R(2,1)*R(2,1) DXR21R21 = DXR(2,1)*R(2,1) + R(2,1)*DXR(2,1) DYR21R21 = DYR(2,1)*R(2,1) + R(2,1)*DYR(2,1) DZR21R21 = DZR(2,1)*R(2,1) + R(2,1)*DZR(2,1) R21R31 = R(2,1)*R(3,1)*2.0D0 DXR21R31 = (DXR(2,1)*R(3,1) + R(2,1)*DXR(3,1))*2.0D0 DYR21R31 = (DYR(2,1)*R(3,1) + R(2,1)*DYR(3,1))*2.0D0 DZR21R31 = (DZR(2,1)*R(3,1) + R(2,1)*DZR(3,1))*2.0D0 R21R32 = R(2,1)*R(3,2) DXR21R32 = DXR(2,1)*R(3,2) + R(2,1)*DXR(3,2) DYR21R32 = DYR(2,1)*R(3,2) + R(2,1)*DYR(3,2) DZR21R32 = DZR(2,1)*R(3,2) + R(2,1)*DZR(3,2) R21R33 = R(2,1)*R(3,3) DXR21R33 = DXR(2,1)*R(3,3) + R(2,1)*DXR(3,3) DYR21R33 = DYR(2,1)*R(3,3) + R(2,1)*DYR(3,3) DZR21R33 = DZR(2,1)*R(3,3) + R(2,1)*DZR(3,3) R22R12 = R12R22 DXR22R12 = DXR12R22 DYR22R12 = DYR12R22 DZR22R12 = DZR12R22 R22R13 = R(2,2)*R(1,3) DXR22R13 = DXR(2,2)*R(1,3) + R(2,2)*DXR(1,3) DYR22R13 = DYR(2,2)*R(1,3) + R(2,2)*DYR(1,3) DZR22R13 = DZR(2,2)*R(1,3) + R(2,2)*DZR(1,3) R22R31 = R(2,2)*R(3,1) DXR22R31 = DXR(2,2)*R(3,1) + R(2,2)*DXR(3,1) DYR22R31 = DYR(2,2)*R(3,1) + R(2,2)*DYR(3,1) DZR22R31 = DZR(2,2)*R(3,1) + R(2,2)*DZR(3,1) R22R32 = R(2,2)*R(3,2)*2.0D0 DXR22R32 = (DXR(2,2)*R(3,2) + R(2,2)*DXR(3,2))*2.0D0 DYR22R32 = (DYR(2,2)*R(3,2) + R(2,2)*DYR(3,2))*2.0D0 DZR22R32 = (DZR(2,2)*R(3,2) + R(2,2)*DZR(3,2))*2.0D0 R22R33 = R(2,2)*R(3,3) DXR22R33 = DXR(2,2)*R(3,3) + R(2,2)*DXR(3,3) DYR22R33 = DYR(2,2)*R(3,3) + R(2,2)*DYR(3,3) DZR22R33 = DZR(2,2)*R(3,3) + R(2,2)*DZR(3,3) R23R13 = R13R23 DXR23R13 = DXR13R23 DYR23R13 = DYR13R23 DZR23R13 = DZR13R23 R23R33 = R(2,3)*R(3,3)*2.0D0 DXR23R33 = (DXR(2,3)*R(3,3) + R(2,3)*DXR(3,3))*2.0D0 DYR23R33 = (DYR(2,3)*R(3,3) + R(2,3)*DYR(3,3))*2.0D0 DZR23R33 = (DZR(2,3)*R(3,3) + R(2,3)*DZR(3,3))*2.0D0 R31R11 = R11R31 DXR31R11 = DXR11R31 DYR31R11 = DYR11R31 DZR31R11 = DZR11R31 R31R12 = R(3,1)*R(1,2) DXR31R12 = DXR(3,1)*R(1,2) + R(3,1)*DXR(1,2) DYR31R12 = DYR(3,1)*R(1,2) + R(3,1)*DYR(1,2) DZR31R12 = DZR(3,1)*R(1,2) + R(3,1)*DZR(1,2) R31R13 = R(3,1)*R(1,3) DXR31R13 = DXR(3,1)*R(1,3) + R(3,1)*DXR(1,3) DYR31R13 = DYR(3,1)*R(1,3) + R(3,1)*DYR(1,3) DZR31R13 = DZR(3,1)*R(1,3) + R(3,1)*DZR(1,3) R31R21 = R21R31 DXR31R21 = DXR21R31 DYR31R21 = DYR21R31 DZR31R21 = DZR21R31 R31R22 = R22R31 DXR31R22 = DXR22R31 DYR31R22 = DYR22R31 DZR31R22 = DZR22R31 R31R23 = R(3,1)*R(2,3) DXR31R23 = DXR(3,1)*R(2,3) + R(3,1)*DXR(2,3) DYR31R23 = DYR(3,1)*R(2,3) + R(3,1)*DYR(2,3) DZR31R23 = DZR(3,1)*R(2,3) + R(3,1)*DZR(2,3) R32R12 = R12R32 DXR32R12 = DXR12R32 DYR32R12 = DYR12R32 DZR32R12 = DZR12R32 R32R13 = R(3,2)*R(1,3) DXR32R13 = DXR(3,2)*R(1,3) + R(3,2)*DXR(1,3) DYR32R13 = DYR(3,2)*R(1,3) + R(3,2)*DYR(1,3) DZR32R13 = DZR(3,2)*R(1,3) + R(3,2)*DZR(1,3) R32R22 = R22R32 DXR32R22 = DXR22R32 DYR32R22 = DYR22R32 DZR32R22 = DZR22R32 R32R23 = R(3,2)*R(2,3) DXR32R23 = DXR(3,2)*R(2,3) + R(3,2)*DXR(2,3) DYR32R23 = DYR(3,2)*R(2,3) + R(3,2)*DYR(2,3) DZR32R23 = DZR(3,2)*R(2,3) + R(3,2)*DZR(2,3) R33R13 = R13R33 DXR33R13 = DXR13R33 DYR33R13 = DYR13R33 DZR33R13 = DZR13R33 R33R23 = R23R33 DXR33R23 = DXR23R33 DYR33R23 = DYR23R33 DZR33R23 = DZR23R33 RADD07 = R11R32+R12R31 DXRADD07 = DXR11R32+DXR12R31 DYRADD07 = DYR11R32+DYR12R31 DZRADD07 = DZR11R32+DZR12R31 RADD08 = R21R32+R22R31 DXRADD08 = DXR21R32+DXR22R31 DYRADD08 = DYR21R32+DYR22R31 DZRADD08 = DZR21R32+DZR22R31 RADD09 = R11R33+R31R13 DXRADD09 = DXR11R33+DXR31R13 DYRADD09 = DYR11R33+DYR31R13 DZRADD09 = DZR11R33+DZR31R13 RADD10 = R21R33+R31R23 DXRADD10 = DXR21R33+DXR31R23 DYRADD10 = DYR21R33+DYR31R23 DZRADD10 = DZR21R33+DZR31R23 RADD11 = R11R32+R31R12 DXRADD11 = DXR11R32+DXR31R12 DYRADD11 = DYR11R32+DYR31R12 DZRADD11 = DZR11R32+DZR31R12 RADD12 = R21R32+R31R22 DXRADD12 = DXR21R32+DXR31R22 DYRADD12 = DYR21R32+DYR31R22 DZRADD12 = DZR21R32+DZR31R22 RADD13 = R12R33+R32R13 DXRADD13 = DXR12R33+DXR32R13 DYRADD13 = DYR12R33+DYR32R13 DZRADD13 = DZR12R33+DZR32R13 RADD14 = R22R33+R32R23 DXRADD14 = DXR22R33+DXR32R23 DYRADD14 = DYR22R33+DYR32R23 DZRADD14 = DZR22R33+DZR32R23 RADD15 = R11R23+R21R13 DXRADD15 = DXR11R23+DXR21R13 DYRADD15 = DYR11R23+DYR21R13 DZRADD15 = DZR11R23+DZR21R13 RADD16 = R12R23+R22R13 DXRADD16 = DXR12R23+DXR22R13 DYRADD16 = DYR12R23+DYR22R13 DZRADD16 = DZR12R23+DZR22R13 RADD17 = R11R22+R21R12 DXRADD17 = DXR11R22+DXR21R12 DYRADD17 = DYR11R22+DYR21R12 DZRADD17 = DZR11R22+DZR21R12 ENDIF C C (S S | S S): C REPIJ(1,1) = REPLOC(1) DXREPIJ(1,1) = DXREPLOC(1) DYREPIJ(1,1) = DYREPLOC(1) DZREPIJ(1,1) = DZREPLOC(1) IF(NORBSJ.GT.1)THEN C C (S S | S PX): C REPIJ(1,2) = REPLOC(5)*R(3,1) DXREPIJ(1,2) = DXREPLOC(5)*R(3,1) + REPLOC(5)*DXR(3,1) DYREPIJ(1,2) = DYREPLOC(5)*R(3,1) + REPLOC(5)*DYR(3,1) DZREPIJ(1,2) = DZREPLOC(5)*R(3,1) + REPLOC(5)*DZR(3,1) C C (S S | S PY): C REPIJ(1,3) = REPLOC(5)*R(3,2) DXREPIJ(1,3) = DXREPLOC(5)*R(3,2) + REPLOC(5)*DXR(3,2) DYREPIJ(1,3) = DYREPLOC(5)*R(3,2) + REPLOC(5)*DYR(3,2) DZREPIJ(1,3) = DZREPLOC(5)*R(3,2) + REPLOC(5)*DZR(3,2) C C (S S | S PZ): C REPIJ(1,4) = REPLOC(5)*R(3,3) DXREPIJ(1,4) = DXREPLOC(5)*R(3,3) + REPLOC(5)*DXR(3,3) DYREPIJ(1,4) = DYREPLOC(5)*R(3,3) + REPLOC(5)*DYR(3,3) DZREPIJ(1,4) = DZREPLOC(5)*R(3,3) + REPLOC(5)*DZR(3,3) C C (S S | PX PX): C REPIJ(1,5) = REPLOC(11)*R31R31 . + REPLOC(12)*RADD01 DXREPIJ(1,5) = DXREPLOC(11)*R31R31 + REPLOC(11)*DXR31R31 . + DXREPLOC(12)*RADD01 + REPLOC(12)*DXRADD01 DYREPIJ(1,5) = DYREPLOC(11)*R31R31 + REPLOC(11)*DYR31R31 . + DYREPLOC(12)*RADD01 + REPLOC(12)*DYRADD01 DZREPIJ(1,5) = DZREPLOC(11)*R31R31 + REPLOC(11)*DZR31R31 . + DZREPLOC(12)*RADD01 + REPLOC(12)*DZRADD01 C C (S S | PX PY): C REPIJ(1,6) = REPLOC(11)*R31R32 . + REPLOC(12)*RADD02 DXREPIJ(1,6) = DXREPLOC(11)*R31R32 + REPLOC(11)*DXR31R32 . + DXREPLOC(12)*RADD02 + REPLOC(12)*DXRADD02 DYREPIJ(1,6) = DYREPLOC(11)*R31R32 + REPLOC(11)*DYR31R32 . + DYREPLOC(12)*RADD02 + REPLOC(12)*DYRADD02 DZREPIJ(1,6) = DZREPLOC(11)*R31R32 + REPLOC(11)*DZR31R32 . + DZREPLOC(12)*RADD02 + REPLOC(12)*DZRADD02 C C (S S | PX PZ): C REPIJ(1,7) = REPLOC(11)*R31R33 . + REPLOC(12)*RADD03 DXREPIJ(1,7) = DXREPLOC(11)*R31R33 + REPLOC(11)*DXR31R33 . + DXREPLOC(12)*RADD03 + REPLOC(12)*DXRADD03 DYREPIJ(1,7) = DYREPLOC(11)*R31R33 + REPLOC(11)*DYR31R33 . + DYREPLOC(12)*RADD03 + REPLOC(12)*DYRADD03 DZREPIJ(1,7) = DZREPLOC(11)*R31R33 + REPLOC(11)*DZR31R33 . + DZREPLOC(12)*RADD03 + REPLOC(12)*DZRADD03 C C (S S | PY PY): C REPIJ(1,8) = REPLOC(11)*R32R32 . + REPLOC(12)*RADD04 DXREPIJ(1,8) = DXREPLOC(11)*R32R32 + REPLOC(11)*DXR32R32 . + DXREPLOC(12)*RADD04 + REPLOC(12)*DXRADD04 DYREPIJ(1,8) = DYREPLOC(11)*R32R32 + REPLOC(11)*DYR32R32 . + DYREPLOC(12)*RADD04 + REPLOC(12)*DYRADD04 DZREPIJ(1,8) = DZREPLOC(11)*R32R32 + REPLOC(11)*DZR32R32 . + DZREPLOC(12)*RADD04 + REPLOC(12)*DZRADD04 C C (S S | PY PZ): C REPIJ(1,9) = REPLOC(11)*R32R33 . + REPLOC(12)*RADD05 DXREPIJ(1,9) = DXREPLOC(11)*R32R33 + REPLOC(11)*DXR32R33 . + DXREPLOC(12)*RADD05 + REPLOC(12)*DXRADD05 DYREPIJ(1,9) = DYREPLOC(11)*R32R33 + REPLOC(11)*DYR32R33 . + DYREPLOC(12)*RADD05 + REPLOC(12)*DYRADD05 DZREPIJ(1,9) = DZREPLOC(11)*R32R33 + REPLOC(11)*DZR32R33 . + DZREPLOC(12)*RADD05 + REPLOC(12)*DZRADD05 C C (S S | PZ PZ): C REPIJ(1,10) = REPLOC(11)*R33R33 . + REPLOC(12)*RADD06 DXREPIJ(1,10) = DXREPLOC(11)*R33R33 + REPLOC(11)*DXR33R33 . + DXREPLOC(12)*RADD06 + REPLOC(12)*DXRADD06 DYREPIJ(1,10) = DYREPLOC(11)*R33R33 + REPLOC(11)*DYR33R33 . + DYREPLOC(12)*RADD06 + REPLOC(12)*DYRADD06 DZREPIJ(1,10) = DZREPLOC(11)*R33R33 + REPLOC(11)*DZR33R33 . + DZREPLOC(12)*RADD06 + REPLOC(12)*DZRADD06 ENDIF IF(NORBSI.GT.1)THEN C C (S PX | S S): C REPIJ(2,1) = REPLOC(2)*R(3,1) DXREPIJ(2,1) = DXREPLOC(2)*R(3,1) + REPLOC(2)*DXR(3,1) DYREPIJ(2,1) = DYREPLOC(2)*R(3,1) + REPLOC(2)*DYR(3,1) DZREPIJ(2,1) = DZREPLOC(2)*R(3,1) + REPLOC(2)*DZR(3,1) C C (S PY | S S): C REPIJ(3,1) = REPLOC(2)*R(3,2) DXREPIJ(3,1) = DXREPLOC(2)*R(3,2) + REPLOC(2)*DXR(3,2) DYREPIJ(3,1) = DYREPLOC(2)*R(3,2) + REPLOC(2)*DYR(3,2) DZREPIJ(3,1) = DZREPLOC(2)*R(3,2) + REPLOC(2)*DZR(3,2) C C (S PZ | S S): C REPIJ(4,1) = REPLOC(2)*R(3,3) DXREPIJ(4,1) = DXREPLOC(2)*R(3,3) + REPLOC(2)*DXR(3,3) DYREPIJ(4,1) = DYREPLOC(2)*R(3,3) + REPLOC(2)*DYR(3,3) DZREPIJ(4,1) = DZREPLOC(2)*R(3,3) + REPLOC(2)*DZR(3,3) C C (PX PX | S S): C REPIJ(5,1) = REPLOC(3)*R31R31 . + REPLOC(4)*RADD01 DXREPIJ(5,1) = DXREPLOC(3)*R31R31 + REPLOC(3)*DXR31R31 . + DXREPLOC(4)*RADD01 + REPLOC(4)*DXRADD01 DYREPIJ(5,1) = DYREPLOC(3)*R31R31 + REPLOC(3)*DYR31R31 . + DYREPLOC(4)*RADD01 + REPLOC(4)*DYRADD01 DZREPIJ(5,1) = DZREPLOC(3)*R31R31 + REPLOC(3)*DZR31R31 . + DZREPLOC(4)*RADD01 + REPLOC(4)*DZRADD01 C C (PX PY | S S): C REPIJ(6,1) = REPLOC(3)*R31R32 . + REPLOC(4)*RADD02 DXREPIJ(6,1) = DXREPLOC(3)*R31R32 + REPLOC(3)*DXR31R32 . + DXREPLOC(4)*RADD02 + REPLOC(4)*DXRADD02 DYREPIJ(6,1) = DYREPLOC(3)*R31R32 + REPLOC(3)*DYR31R32 . + DYREPLOC(4)*RADD02 + REPLOC(4)*DYRADD02 DZREPIJ(6,1) = DZREPLOC(3)*R31R32 + REPLOC(3)*DZR31R32 . + DZREPLOC(4)*RADD02 + REPLOC(4)*DZRADD02 C C (PX PZ | S S): C REPIJ(7,1) = REPLOC(3)*R31R33 . + REPLOC(4)*RADD03 DXREPIJ(7,1) = DXREPLOC(3)*R31R33 + REPLOC(3)*DXR31R33 . + DXREPLOC(4)*RADD03 + REPLOC(4)*DXRADD03 DYREPIJ(7,1) = DYREPLOC(3)*R31R33 + REPLOC(3)*DYR31R33 . + DYREPLOC(4)*RADD03 + REPLOC(4)*DYRADD03 DZREPIJ(7,1) = DZREPLOC(3)*R31R33 + REPLOC(3)*DZR31R33 . + DZREPLOC(4)*RADD03 + REPLOC(4)*DZRADD03 C C (PY PY | S S): C REPIJ(8,1) = REPLOC(3)*R32R32 . + REPLOC(4)*RADD04 DXREPIJ(8,1) = DXREPLOC(3)*R32R32 + REPLOC(3)*DXR32R32 . + DXREPLOC(4)*RADD04 + REPLOC(4)*DXRADD04 DYREPIJ(8,1) = DYREPLOC(3)*R32R32 + REPLOC(3)*DYR32R32 . + DYREPLOC(4)*RADD04 + REPLOC(4)*DYRADD04 DZREPIJ(8,1) = DZREPLOC(3)*R32R32 + REPLOC(3)*DZR32R32 . + DZREPLOC(4)*RADD04 + REPLOC(4)*DZRADD04 C C (PY PZ | S S); C REPIJ(9,1) = REPLOC(3)*R32R33 . + REPLOC(4)*RADD05 DXREPIJ(9,1) = DXREPLOC(3)*R32R33 + REPLOC(3)*DXR32R33 . + DXREPLOC(4)*RADD05 + REPLOC(4)*DXRADD05 DYREPIJ(9,1) = DYREPLOC(3)*R32R33 + REPLOC(3)*DYR32R33 . + DYREPLOC(4)*RADD05 + REPLOC(4)*DYRADD05 DZREPIJ(9,1) = DZREPLOC(3)*R32R33 + REPLOC(3)*DZR32R33 . + DZREPLOC(4)*RADD05 + REPLOC(4)*DZRADD05 C C (PZ PZ | S S): C REPIJ(10,1) = REPLOC(3)*R33R33 . + REPLOC(4)*RADD06 DXREPIJ(10,1) = DXREPLOC(3)*R33R33 + REPLOC(3)*DXR33R33 . + DXREPLOC(4)*RADD06 + REPLOC(4)*DXRADD06 DYREPIJ(10,1) = DYREPLOC(3)*R33R33 + REPLOC(3)*DYR33R33 . + DYREPLOC(4)*RADD06 + REPLOC(4)*DYRADD06 DZREPIJ(10,1) = DZREPLOC(3)*R33R33 + REPLOC(3)*DZR33R33 . + DZREPLOC(4)*RADD06 + REPLOC(4)*DZRADD06 ENDIF IF(NORBSI.GT.1.AND.NORBSJ.GT.1)THEN C C (S PX | S PX): C REPIJ(2,2) = REPLOC(6)*R31R31 . + REPLOC(7)*RADD01 DXREPIJ(2,2) = DXREPLOC(6)*R31R31 + REPLOC(6)*DXR31R31 . + DXREPLOC(7)*RADD01 + REPLOC(7)*DXRADD01 DYREPIJ(2,2) = DYREPLOC(6)*R31R31 + REPLOC(6)*DYR31R31 . + DYREPLOC(7)*RADD01 + REPLOC(7)*DYRADD01 DZREPIJ(2,2) = DZREPLOC(6)*R31R31 + REPLOC(6)*DZR31R31 . + DZREPLOC(7)*RADD01 + REPLOC(7)*DZRADD01 C C (S PX | S PY): C REPIJ(2,3) = REPLOC(6)*R31R32 . + REPLOC(7)*RADD02 DXREPIJ(2,3) = DXREPLOC(6)*R31R32 + REPLOC(6)*DXR31R32 . + DXREPLOC(7)*RADD02 + REPLOC(7)*DXRADD02 DYREPIJ(2,3) = DYREPLOC(6)*R31R32 + REPLOC(6)*DYR31R32 . + DYREPLOC(7)*RADD02 + REPLOC(7)*DYRADD02 DZREPIJ(2,3) = DZREPLOC(6)*R31R32 + REPLOC(6)*DZR31R32 . + DZREPLOC(7)*RADD02 + REPLOC(7)*DZRADD02 C C (S PY | S PX): C REPIJ(3,2) = REPIJ(2,3) DXREPIJ(3,2) = DXREPIJ(2,3) DYREPIJ(3,2) = DYREPIJ(2,3) DZREPIJ(3,2) = DZREPIJ(2,3) C C (S PX | S PZ): C REPIJ(2,4) = REPLOC(6)*R31R33 . + REPLOC(7)*RADD03 DXREPIJ(2,4) = DXREPLOC(6)*R31R33 + REPLOC(6)*DXR31R33 . + DXREPLOC(7)*RADD03 + REPLOC(7)*DXRADD03 DYREPIJ(2,4) = DYREPLOC(6)*R31R33 + REPLOC(6)*DYR31R33 . + DYREPLOC(7)*RADD03 + REPLOC(7)*DYRADD03 DZREPIJ(2,4) = DZREPLOC(6)*R31R33 + REPLOC(6)*DZR31R33 . + DZREPLOC(7)*RADD03 + REPLOC(7)*DZRADD03 C C (S PZ | S PX): C REPIJ(4,2) = REPIJ(2,4) DXREPIJ(4,2) = DXREPIJ(2,4) DYREPIJ(4,2) = DYREPIJ(2,4) DZREPIJ(4,2) = DZREPIJ(2,4) C C (S PX | PX PX): C REPIJ(2,5) = REPLOC(13)*R(3,1)*R31R31 . + REPLOC(14)*R(3,1)*RADD01 . + REPLOC(15)*(R(1,1)*R11R31 . + R(2,1)*R21R31) DXREPIJ(2,5) = DXREPLOC(13)*R(3,1)*R31R31 . + REPLOC(13)*DXR(3,1)*R31R31 . + REPLOC(13)*R(3,1)*DXR31R31 . + DXREPLOC(14)*R(3,1)*RADD01 . + REPLOC(14)*DXR(3,1)*RADD01 . + REPLOC(14)*R(3,1)*DXRADD01 . + DXREPLOC(15)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(15)*(DXR(1,1)*R11R31 . + DXR(2,1)*R21R31) . + REPLOC(15)*(R(1,1)*DXR11R31 . + R(2,1)*DXR21R31) DYREPIJ(2,5) = DYREPLOC(13)*R(3,1)*R31R31 . + REPLOC(13)*DYR(3,1)*R31R31 . + REPLOC(13)*R(3,1)*DYR31R31 . + DYREPLOC(14)*R(3,1)*RADD01 . + REPLOC(14)*DYR(3,1)*RADD01 . + REPLOC(14)*R(3,1)*DYRADD01 . + DYREPLOC(15)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(15)*(DYR(1,1)*R11R31 . + DYR(2,1)*R21R31) . + REPLOC(15)*(R(1,1)*DYR11R31 . + R(2,1)*DYR21R31) DZREPIJ(2,5) = DZREPLOC(13)*R(3,1)*R31R31 . + REPLOC(13)*DZR(3,1)*R31R31 . + REPLOC(13)*R(3,1)*DZR31R31 . + DZREPLOC(14)*R(3,1)*RADD01 . + REPLOC(14)*DZR(3,1)*RADD01 . + REPLOC(14)*R(3,1)*DZRADD01 . + DZREPLOC(15)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(15)*(DZR(1,1)*R11R31 . + DZR(2,1)*R21R31) . + REPLOC(15)*(R(1,1)*DZR11R31 . + R(2,1)*DZR21R31) C C (PX PX | S PX): C REPIJ(5,2) = REPLOC(8)*R(3,1)*R31R31 . + REPLOC(9)*R(3,1)*RADD01 . + REPLOC(10)*(R(1,1)*R11R31 . + R(2,1)*R21R31) DXREPIJ(5,2) = DXREPLOC(8)*R(3,1)*R31R31 . + REPLOC(8)*DXR(3,1)*R31R31 . + REPLOC(8)*R(3,1)*DXR31R31 . + DXREPLOC(9)*R(3,1)*RADD01 . + REPLOC(9)*DXR(3,1)*RADD01 . + REPLOC(9)*R(3,1)*DXRADD01 . + DXREPLOC(10)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(10)*(DXR(1,1)*R11R31 . + DXR(2,1)*R21R31) . + REPLOC(10)*(R(1,1)*DXR11R31 . + R(2,1)*DXR21R31) DYREPIJ(5,2) = DYREPLOC(8)*R(3,1)*R31R31 . + REPLOC(8)*DYR(3,1)*R31R31 . + REPLOC(8)*R(3,1)*DYR31R31 . + DYREPLOC(9)*R(3,1)*RADD01 . + REPLOC(9)*DYR(3,1)*RADD01 . + REPLOC(9)*R(3,1)*DYRADD01 . + DYREPLOC(10)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(10)*(DYR(1,1)*R11R31 . + DYR(2,1)*R21R31) . + REPLOC(10)*(R(1,1)*DYR11R31 . + R(2,1)*DYR21R31) DZREPIJ(5,2) = DZREPLOC(8)*R(3,1)*R31R31 . + REPLOC(8)*DZR(3,1)*R31R31 . + REPLOC(8)*R(3,1)*DZR31R31 . + DZREPLOC(9)*R(3,1)*RADD01 . + REPLOC(9)*DZR(3,1)*RADD01 . + REPLOC(9)*R(3,1)*DZRADD01 . + DZREPLOC(10)*(R(1,1)*R11R31 . + R(2,1)*R21R31) . + REPLOC(10)*(DZR(1,1)*R11R31 . + DZR(2,1)*R21R31) . + REPLOC(10)*(R(1,1)*DZR11R31 . + R(2,1)*DZR21R31) C C (S PX | PX PY): C REPIJ(2,6) = REPLOC(13)*R(3,1)*R31R32 . + REPLOC(14)*R(3,1)*RADD02 . + REPLOC(15)*(R(1,1)*RADD07 . + R(2,1)*RADD08) DXREPIJ(2,6) = DXREPLOC(13)*R(3,1)*R31R32 . + REPLOC(13)*DXR(3,1)*R31R32 . + REPLOC(13)*R(3,1)*DXR31R32 . + DXREPLOC(14)*R(3,1)*RADD02 . + REPLOC(14)*DXR(3,1)*RADD02 . + REPLOC(14)*R(3,1)*DXRADD02 . + DXREPLOC(15)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(15)*(DXR(1,1)*RADD07 . + DXR(2,1)*RADD08) . + REPLOC(15)*(R(1,1)*DXRADD07 . + R(2,1)*DXRADD08) DYREPIJ(2,6) = DYREPLOC(13)*R(3,1)*R31R32 . + REPLOC(13)*DYR(3,1)*R31R32 . + REPLOC(13)*R(3,1)*DYR31R32 . + DYREPLOC(14)*R(3,1)*RADD02 . + REPLOC(14)*DYR(3,1)*RADD02 . + REPLOC(14)*R(3,1)*DYRADD02 . + DYREPLOC(15)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(15)*(DYR(1,1)*RADD07 . + DYR(2,1)*RADD08) . + REPLOC(15)*(R(1,1)*DYRADD07 . + R(2,1)*DYRADD08) DZREPIJ(2,6) = DZREPLOC(13)*R(3,1)*R31R32 . + REPLOC(13)*DZR(3,1)*R31R32 . + REPLOC(13)*R(3,1)*DZR31R32 . + DZREPLOC(14)*R(3,1)*RADD02 . + REPLOC(14)*DZR(3,1)*RADD02 . + REPLOC(14)*R(3,1)*DZRADD02 . + DZREPLOC(15)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(15)*(DZR(1,1)*RADD07 . + DZR(2,1)*RADD08) . + REPLOC(15)*(R(1,1)*DZRADD07 . + R(2,1)*DZRADD08) C C (PX PY | S PX): C REPIJ(6,2) = REPLOC(8)*R(3,1)*R31R32 . + REPLOC(9)*R(3,1)*RADD02 . + REPLOC(10)*(R(1,1)*RADD07 . + R(2,1)*RADD08) DXREPIJ(6,2) = DXREPLOC(8)*R(3,1)*R31R32 . + REPLOC(8)*DXR(3,1)*R31R32 . + REPLOC(8)*R(3,1)*DXR31R32 . + DXREPLOC(9)*R(3,1)*RADD02 . + REPLOC(9)*DXR(3,1)*RADD02 . + REPLOC(9)*R(3,1)*DXRADD02 . + DXREPLOC(10)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(10)*(DXR(1,1)*RADD07 . + DXR(2,1)*RADD08) . + REPLOC(10)*(R(1,1)*DXRADD07 . + R(2,1)*DXRADD08) DYREPIJ(6,2) = DYREPLOC(8)*R(3,1)*R31R32 . + REPLOC(8)*DYR(3,1)*R31R32 . + REPLOC(8)*R(3,1)*DYR31R32 . + DYREPLOC(9)*R(3,1)*RADD02 . + REPLOC(9)*DYR(3,1)*RADD02 . + REPLOC(9)*R(3,1)*DYRADD02 . + DYREPLOC(10)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(10)*(DYR(1,1)*RADD07 . + DYR(2,1)*RADD08) . + REPLOC(10)*(R(1,1)*DYRADD07 . + R(2,1)*DYRADD08) DZREPIJ(6,2) = DZREPLOC(8)*R(3,1)*R31R32 . + REPLOC(8)*DZR(3,1)*R31R32 . + REPLOC(8)*R(3,1)*DZR31R32 . + DZREPLOC(9)*R(3,1)*RADD02 . + REPLOC(9)*DZR(3,1)*RADD02 . + REPLOC(9)*R(3,1)*DZRADD02 . + DZREPLOC(10)*(R(1,1)*RADD07 . + R(2,1)*RADD08) . + REPLOC(10)*(DZR(1,1)*RADD07 . + DZR(2,1)*RADD08) . + REPLOC(10)*(R(1,1)*DZRADD07 . + R(2,1)*DZRADD08) C C (S PX | PX PZ): C REPIJ(2,7) = REPLOC(13)*R(3,1)*R31R33 . + REPLOC(14)*R(3,1)*RADD03 . + REPLOC(15)*(R(1,1)*RADD09 . + R(2,1)*RADD10) DXREPIJ(2,7) = DXREPLOC(13)*R(3,1)*R31R33 . + REPLOC(13)*DXR(3,1)*R31R33 . + REPLOC(13)*R(3,1)*DXR31R33 . + DXREPLOC(14)*R(3,1)*RADD03 . + REPLOC(14)*DXR(3,1)*RADD03 . + REPLOC(14)*R(3,1)*DXRADD03 . + DXREPLOC(15)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(15)*(DXR(1,1)*RADD09 . + DXR(2,1)*RADD10) . + REPLOC(15)*(R(1,1)*DXRADD09 . + R(2,1)*DXRADD10) DYREPIJ(2,7) = DYREPLOC(13)*R(3,1)*R31R33 . + REPLOC(13)*DYR(3,1)*R31R33 . + REPLOC(13)*R(3,1)*DYR31R33 . + DYREPLOC(14)*R(3,1)*RADD03 . + REPLOC(14)*DYR(3,1)*RADD03 . + REPLOC(14)*R(3,1)*DYRADD03 . + DYREPLOC(15)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(15)*(DYR(1,1)*RADD09 . + DYR(2,1)*RADD10) . + REPLOC(15)*(R(1,1)*DYRADD09 . + R(2,1)*DYRADD10) DZREPIJ(2,7) = DZREPLOC(13)*R(3,1)*R31R33 . + REPLOC(13)*DZR(3,1)*R31R33 . + REPLOC(13)*R(3,1)*DZR31R33 . + DZREPLOC(14)*R(3,1)*RADD03 . + REPLOC(14)*DZR(3,1)*RADD03 . + REPLOC(14)*R(3,1)*DZRADD03 . + DZREPLOC(15)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(15)*(DZR(1,1)*RADD09 . + DZR(2,1)*RADD10) . + REPLOC(15)*(R(1,1)*DZRADD09 . + R(2,1)*DZRADD10) C C (PX PZ | S PX): C REPIJ(7,2) = REPLOC(8)*R(3,1)*R31R33 . + REPLOC(9)*(R(3,1)*R11R13 . + R(3,1)*R21R23) . + REPLOC(10)*(R(1,1)*RADD09 . + R(2,1)*RADD10) DXREPIJ(7,2) = DXREPLOC(8)*R(3,1)*R31R33 . + REPLOC(8)*DXR(3,1)*R31R33 . + REPLOC(8)*R(3,1)*DXR31R33 . + DXREPLOC(9)*(R(3,1)*R11R13 . + R(3,1)*R21R23) . + REPLOC(9)*(DXR(3,1)*R11R13 . + DXR(3,1)*R21R23) . + REPLOC(9)*(R(3,1)*DXR11R13 . + R(3,1)*DXR21R23) . + DXREPLOC(10)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(10)*(DXR(1,1)*RADD09 . + DXR(2,1)*RADD10) . + REPLOC(10)*(R(1,1)*DXRADD09 . + R(2,1)*DXRADD10) DYREPIJ(7,2) = DYREPLOC(8)*R(3,1)*R31R33 . + REPLOC(8)*DYR(3,1)*R31R33 . + REPLOC(8)*R(3,1)*DYR31R33 . + DYREPLOC(9)*(R(3,1)*R11R13 . + R(3,1)*R21R23) . + REPLOC(9)*(DYR(3,1)*R11R13 . + DYR(3,1)*R21R23) . + REPLOC(9)*(R(3,1)*DYR11R13 . + R(3,1)*DYR21R23) . + DYREPLOC(10)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(10)*(DYR(1,1)*RADD09 . + DYR(2,1)*RADD10) . + REPLOC(10)*(R(1,1)*DYRADD09 . + R(2,1)*DYRADD10) DZREPIJ(7,2) = DZREPLOC(8)*R(3,1)*R31R33 . + REPLOC(8)*DZR(3,1)*R31R33 . + REPLOC(8)*R(3,1)*DZR31R33 . + DZREPLOC(9)*(R(3,1)*R11R13 . + R(3,1)*R21R23) . + REPLOC(9)*(DZR(3,1)*R11R13 . + DZR(3,1)*R21R23) . + REPLOC(9)*(R(3,1)*DZR11R13 . + R(3,1)*DZR21R23) . + DZREPLOC(10)*(R(1,1)*RADD09 . + R(2,1)*RADD10) . + REPLOC(10)*(DZR(1,1)*RADD09 . + DZR(2,1)*RADD10) . + REPLOC(10)*(R(1,1)*DZRADD09 . + R(2,1)*DZRADD10) C C (S PX | PY PY): C REPIJ(2,8) = REPLOC(13)*R(3,1)*R32R32 . + REPLOC(14)*R(3,1)*RADD04 . + REPLOC(15)*(R(1,1)*R12R32 . + R(2,1)*R22R32) DXREPIJ(2,8) = DXREPLOC(13)*R(3,1)*R32R32 . + REPLOC(13)*DXR(3,1)*R32R32 . + REPLOC(13)*R(3,1)*DXR32R32 . + DXREPLOC(14)*R(3,1)*RADD04 . + REPLOC(14)*DXR(3,1)*RADD04 . + REPLOC(14)*R(3,1)*DXRADD04 . + DXREPLOC(15)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(15)*(DXR(1,1)*R12R32 . + DXR(2,1)*R22R32) . + REPLOC(15)*(R(1,1)*DXR12R32 . + R(2,1)*DXR22R32) DYREPIJ(2,8) = DYREPLOC(13)*R(3,1)*R32R32 . + REPLOC(13)*DYR(3,1)*R32R32 . + REPLOC(13)*R(3,1)*DYR32R32 . + DYREPLOC(14)*R(3,1)*RADD04 . + REPLOC(14)*DYR(3,1)*RADD04 . + REPLOC(14)*R(3,1)*DYRADD04 . + DYREPLOC(15)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(15)*(DYR(1,1)*R12R32 . + DYR(2,1)*R22R32) . + REPLOC(15)*(R(1,1)*DYR12R32 . + R(2,1)*DYR22R32) DZREPIJ(2,8) = DZREPLOC(13)*R(3,1)*R32R32 . + REPLOC(13)*DZR(3,1)*R32R32 . + REPLOC(13)*R(3,1)*DZR32R32 . + DZREPLOC(14)*R(3,1)*RADD04 . + REPLOC(14)*DZR(3,1)*RADD04 . + REPLOC(14)*R(3,1)*DZRADD04 . + DZREPLOC(15)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(15)*(DZR(1,1)*R12R32 . + DZR(2,1)*R22R32) . + REPLOC(15)*(R(1,1)*DZR12R32 . + R(2,1)*DZR22R32) C C (PY PY | S PX): C REPIJ(8,2) = REPLOC(8)*R(3,1)*R32R32 . + REPLOC(9)*R(3,1)*RADD04 . + REPLOC(10)*(R(1,1)*R12R32 . + R(2,1)*R22R32) DXREPIJ(8,2) = DXREPLOC(8)*R(3,1)*R32R32 . + REPLOC(8)*DXR(3,1)*R32R32 . + REPLOC(8)*R(3,1)*DXR32R32 . + DXREPLOC(9)*R(3,1)*RADD04 . + REPLOC(9)*DXR(3,1)*RADD04 . + REPLOC(9)*R(3,1)*DXRADD04 . + DXREPLOC(10)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(10)*(DXR(1,1)*R12R32 . + DXR(2,1)*R22R32) . + REPLOC(10)*(R(1,1)*DXR12R32 . + R(2,1)*DXR22R32) DYREPIJ(8,2) = DYREPLOC(8)*R(3,1)*R32R32 . + REPLOC(8)*DYR(3,1)*R32R32 . + REPLOC(8)*R(3,1)*DYR32R32 . + DYREPLOC(9)*R(3,1)*RADD04 . + REPLOC(9)*DYR(3,1)*RADD04 . + REPLOC(9)*R(3,1)*DYRADD04 . + DYREPLOC(10)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(10)*(DYR(1,1)*R12R32 . + DYR(2,1)*R22R32) . + REPLOC(10)*(R(1,1)*DYR12R32 . + R(2,1)*DYR22R32) DZREPIJ(8,2) = DZREPLOC(8)*R(3,1)*R32R32 . + REPLOC(8)*DZR(3,1)*R32R32 . + REPLOC(8)*R(3,1)*DZR32R32 . + DZREPLOC(9)*R(3,1)*RADD04 . + REPLOC(9)*DZR(3,1)*RADD04 . + REPLOC(9)*R(3,1)*DZRADD04 . + DZREPLOC(10)*(R(1,1)*R12R32 . + R(2,1)*R22R32) . + REPLOC(10)*(DZR(1,1)*R12R32 . + DZR(2,1)*R22R32) . + REPLOC(10)*(R(1,1)*DZR12R32 . + R(2,1)*DZR22R32) C C (S PX | PY PZ): C C REPIJ(2,9) = REPLOC(13)*R(3,1)*R32R33 . + REPLOC(14)*R(3,1)*RADD05 . + REPLOC(15)*(R(1,1)*RADD13 . + R(2,1)*RADD14) DXREPIJ(2,9) = DXREPLOC(13)*R(3,1)*R32R33 . + REPLOC(13)*DXR(3,1)*R32R33 . + REPLOC(13)*R(3,1)*DXR32R33 . + DXREPLOC(14)*R(3,1)*RADD05 . + REPLOC(14)*DXR(3,1)*RADD05 . + REPLOC(14)*R(3,1)*DXRADD05 . + DXREPLOC(15)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(15)*(DXR(1,1)*RADD13 . + DXR(2,1)*RADD14) . + REPLOC(15)*(R(1,1)*DXRADD13 . + R(2,1)*DXRADD14) DYREPIJ(2,9) = DYREPLOC(13)*R(3,1)*R32R33 . + REPLOC(13)*DYR(3,1)*R32R33 . + REPLOC(13)*R(3,1)*DYR32R33 . + DYREPLOC(14)*R(3,1)*RADD05 . + REPLOC(14)*DYR(3,1)*RADD05 . + REPLOC(14)*R(3,1)*DYRADD05 . + DYREPLOC(15)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(15)*(DYR(1,1)*RADD13 . + DYR(2,1)*RADD14) . + REPLOC(15)*(R(1,1)*DYRADD13 . + R(2,1)*DYRADD14) DZREPIJ(2,9) = DZREPLOC(13)*R(3,1)*R32R33 . + REPLOC(13)*DZR(3,1)*R32R33 . + REPLOC(13)*R(3,1)*DZR32R33 . + DZREPLOC(14)*R(3,1)*RADD05 . + REPLOC(14)*DZR(3,1)*RADD05 . + REPLOC(14)*R(3,1)*DZRADD05 . + DZREPLOC(15)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(15)*(DZR(1,1)*RADD13 . + DZR(2,1)*RADD14) . + REPLOC(15)*(R(1,1)*DZRADD13 . + R(2,1)*DZRADD14) C C (PY PZ | S PX): C REPIJ(9,2) = REPLOC(8)*R(3,1)*R32R33 . + REPLOC(9)*R(3,1)*RADD05 . + REPLOC(10)*(R(1,1)*RADD13 . + R(2,1)*RADD14) DXREPIJ(9,2) = DXREPLOC(8)*R(3,1)*R32R33 . + REPLOC(8)*DXR(3,1)*R32R33 . + REPLOC(8)*R(3,1)*DXR32R33 . + DXREPLOC(9)*R(3,1)*RADD05 . + REPLOC(9)*DXR(3,1)*RADD05 . + REPLOC(9)*R(3,1)*DXRADD05 . + DXREPLOC(10)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(10)*(DXR(1,1)*RADD13 . + DXR(2,1)*RADD14) . + REPLOC(10)*(R(1,1)*DXRADD13 . + R(2,1)*DXRADD14) DYREPIJ(9,2) = DYREPLOC(8)*R(3,1)*R32R33 . + REPLOC(8)*DYR(3,1)*R32R33 . + REPLOC(8)*R(3,1)*DYR32R33 . + DYREPLOC(9)*R(3,1)*RADD05 . + REPLOC(9)*DYR(3,1)*RADD05 . + REPLOC(9)*R(3,1)*DYRADD05 . + DYREPLOC(10)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(10)*(DYR(1,1)*RADD13 . + DYR(2,1)*RADD14) . + REPLOC(10)*(R(1,1)*DYRADD13 . + R(2,1)*DYRADD14) DZREPIJ(9,2) = DZREPLOC(8)*R(3,1)*R32R33 . + REPLOC(8)*DZR(3,1)*R32R33 . + REPLOC(8)*R(3,1)*DZR32R33 . + DZREPLOC(9)*R(3,1)*RADD05 . + REPLOC(9)*DZR(3,1)*RADD05 . + REPLOC(9)*R(3,1)*DZRADD05 . + DZREPLOC(10)*(R(1,1)*RADD13 . + R(2,1)*RADD14) . + REPLOC(10)*(DZR(1,1)*RADD13 . + DZR(2,1)*RADD14) . + REPLOC(10)*(R(1,1)*DZRADD13 . + R(2,1)*DZRADD14) C C (S PX | PZ PZ): C REPIJ(2,10) = REPLOC(13)*R(3,1)*R33R33 . + REPLOC(14)*R(3,1)*RADD06 . + REPLOC(15)*(R(1,1)*R13R33 . + R(2,1)*R23R33) DXREPIJ(2,10) = DXREPLOC(13)*R(3,1)*R33R33 . + REPLOC(13)*DXR(3,1)*R33R33 . + REPLOC(13)*R(3,1)*DXR33R33 . + DXREPLOC(14)*R(3,1)*RADD06 . + REPLOC(14)*DXR(3,1)*RADD06 . + REPLOC(14)*R(3,1)*DXRADD06 . + DXREPLOC(15)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(15)*(DXR(1,1)*R13R33 . + DXR(2,1)*R23R33) . + REPLOC(15)*(R(1,1)*DXR13R33 . + R(2,1)*DXR23R33) DYREPIJ(2,10) = DYREPLOC(13)*R(3,1)*R33R33 . + REPLOC(13)*DYR(3,1)*R33R33 . + REPLOC(13)*R(3,1)*DYR33R33 . + DYREPLOC(14)*R(3,1)*RADD06 . + REPLOC(14)*DYR(3,1)*RADD06 . + REPLOC(14)*R(3,1)*DYRADD06 . + DYREPLOC(15)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(15)*(DYR(1,1)*R13R33 . + DYR(2,1)*R23R33) . + REPLOC(15)*(R(1,1)*DYR13R33 . + R(2,1)*DYR23R33) DZREPIJ(2,10) = DZREPLOC(13)*R(3,1)*R33R33 . + REPLOC(13)*DZR(3,1)*R33R33 . + REPLOC(13)*R(3,1)*DZR33R33 . + DZREPLOC(14)*R(3,1)*RADD06 . + REPLOC(14)*DZR(3,1)*RADD06 . + REPLOC(14)*R(3,1)*DZRADD06 . + DZREPLOC(15)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(15)*(DZR(1,1)*R13R33 . + DZR(2,1)*R23R33) . + REPLOC(15)*(R(1,1)*DZR13R33 . + R(2,1)*DZR23R33) C C (PZ PZ | S PX): C REPIJ(10,2) = REPLOC(8)*R(3,1)*R33R33 . + REPLOC(9)*R(3,1)*RADD06 . + REPLOC(10)*(R(1,1)*R13R33 . + R(2,1)*R23R33) DXREPIJ(10,2) = DXREPLOC(8)*R(3,1)*R33R33 . + REPLOC(8)*DXR(3,1)*R33R33 . + REPLOC(8)*R(3,1)*DXR33R33 . + DXREPLOC(9)*R(3,1)*RADD06 . + REPLOC(9)*DXR(3,1)*RADD06 . + REPLOC(9)*R(3,1)*DXRADD06 . + DXREPLOC(10)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(10)*(DXR(1,1)*R13R33 . + DXR(2,1)*R23R33) . + REPLOC(10)*(R(1,1)*DXR13R33 . + R(2,1)*DXR23R33) DYREPIJ(10,2) = DYREPLOC(8)*R(3,1)*R33R33 . + REPLOC(8)*DYR(3,1)*R33R33 . + REPLOC(8)*R(3,1)*DYR33R33 . + DYREPLOC(9)*R(3,1)*RADD06 . + REPLOC(9)*DYR(3,1)*RADD06 . + REPLOC(9)*R(3,1)*DYRADD06 . + DYREPLOC(10)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(10)*(DYR(1,1)*R13R33 . + DYR(2,1)*R23R33) . + REPLOC(10)*(R(1,1)*DYR13R33 . + R(2,1)*DYR23R33) DZREPIJ(10,2) = DZREPLOC(8)*R(3,1)*R33R33 . + REPLOC(8)*DZR(3,1)*R33R33 . + REPLOC(8)*R(3,1)*DZR33R33 . + DZREPLOC(9)*R(3,1)*RADD06 . + REPLOC(9)*DZR(3,1)*RADD06 . + REPLOC(9)*R(3,1)*DZRADD06 . + DZREPLOC(10)*(R(1,1)*R13R33 . + R(2,1)*R23R33) . + REPLOC(10)*(DZR(1,1)*R13R33 . + DZR(2,1)*R23R33) . + REPLOC(10)*(R(1,1)*DZR13R33 . + R(2,1)*DZR23R33) C C (S PY | S PY): C REPIJ(3,3) = REPLOC(6)*R32R32 . + REPLOC(7)*RADD04 DXREPIJ(3,3) = DXREPLOC(6)*R32R32 + REPLOC(6)*DXR32R32 . + DXREPLOC(7)*RADD04 + REPLOC(7)*DXRADD04 DYREPIJ(3,3) = DYREPLOC(6)*R32R32 + REPLOC(6)*DYR32R32 . + DYREPLOC(7)*RADD04 + REPLOC(7)*DYRADD04 DZREPIJ(3,3) = DZREPLOC(6)*R32R32 + REPLOC(6)*DZR32R32 . + DZREPLOC(7)*RADD04 + REPLOC(7)*DZRADD04 C C (S PY | S PZ): C REPIJ(3,4) = REPLOC(6)*R32R33 . + REPLOC(7)*RADD05 DXREPIJ(3,4) = DXREPLOC(6)*R32R33 + REPLOC(6)*DXR32R33 . + DXREPLOC(7)*RADD05 + REPLOC(7)*DXRADD05 DYREPIJ(3,4) = DYREPLOC(6)*R32R33 + REPLOC(6)*DYR32R33 . + DYREPLOC(7)*RADD05 + REPLOC(7)*DYRADD05 DZREPIJ(3,4) = DZREPLOC(6)*R32R33 + REPLOC(6)*DZR32R33 . + DZREPLOC(7)*RADD05 + REPLOC(7)*DZRADD05 C C (S PZ | S PY): C REPIJ(4,3) = REPIJ(3,4) DXREPIJ(4,3) = DXREPIJ(3,4) DYREPIJ(4,3) = DYREPIJ(3,4) DZREPIJ(4,3) = DZREPIJ(3,4) C C (S PY | PX PX): C REPIJ(3,5) = REPLOC(13)*R(3,2)*R31R31 . + REPLOC(14)*R(3,2)*RADD01 . + REPLOC(15)*(R(1,2)*R11R31 . + R(2,2)*R21R31) DXREPIJ(3,5) = DXREPLOC(13)*R(3,2)*R31R31 . + REPLOC(13)*DXR(3,2)*R31R31 . + REPLOC(13)*R(3,2)*DXR31R31 . + DXREPLOC(14)*R(3,2)*RADD01 . + REPLOC(14)*DXR(3,2)*RADD01 . + REPLOC(14)*R(3,2)*DXRADD01 . + DXREPLOC(15)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(15)*(DXR(1,2)*R11R31 . + DXR(2,2)*R21R31) . + REPLOC(15)*(R(1,2)*DXR11R31 . + R(2,2)*DXR21R31) DYREPIJ(3,5) = DYREPLOC(13)*R(3,2)*R31R31 . + REPLOC(13)*DYR(3,2)*R31R31 . + REPLOC(13)*R(3,2)*DYR31R31 . + DYREPLOC(14)*R(3,2)*RADD01 . + REPLOC(14)*DYR(3,2)*RADD01 . + REPLOC(14)*R(3,2)*DYRADD01 . + DYREPLOC(15)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(15)*(DYR(1,2)*R11R31 . + DYR(2,2)*R21R31) . + REPLOC(15)*(R(1,2)*DYR11R31 . + R(2,2)*DYR21R31) DZREPIJ(3,5) = DZREPLOC(13)*R(3,2)*R31R31 . + REPLOC(13)*DZR(3,2)*R31R31 . + REPLOC(13)*R(3,2)*DZR31R31 . + DZREPLOC(14)*R(3,2)*RADD01 . + REPLOC(14)*DZR(3,2)*RADD01 . + REPLOC(14)*R(3,2)*DZRADD01 . + DZREPLOC(15)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(15)*(DZR(1,2)*R11R31 . + DZR(2,2)*R21R31) . + REPLOC(15)*(R(1,2)*DZR11R31 . + R(2,2)*DZR21R31) C C (PX PX | S PY): C REPIJ(5,3) = REPLOC(8)*R(3,2)*R31R31 . + REPLOC(9)*R(3,2)*RADD01 . + REPLOC(10)*(R(1,2)*R11R31 . + R(2,2)*R21R31) DXREPIJ(5,3) = DXREPLOC(8)*R(3,2)*R31R31 . + REPLOC(8)*DXR(3,2)*R31R31 . + REPLOC(8)*R(3,2)*DXR31R31 . + DXREPLOC(9)*R(3,2)*RADD01 . + REPLOC(9)*DXR(3,2)*RADD01 . + REPLOC(9)*R(3,2)*DXRADD01 . + DXREPLOC(10)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(10)*(DXR(1,2)*R11R31 . + DXR(2,2)*R21R31) . + REPLOC(10)*(R(1,2)*DXR11R31 . + R(2,2)*DXR21R31) DYREPIJ(5,3) = DYREPLOC(8)*R(3,2)*R31R31 . + REPLOC(8)*DYR(3,2)*R31R31 . + REPLOC(8)*R(3,2)*DYR31R31 . + DYREPLOC(9)*R(3,2)*RADD01 . + REPLOC(9)*DYR(3,2)*RADD01 . + REPLOC(9)*R(3,2)*DYRADD01 . + DYREPLOC(10)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(10)*(DYR(1,2)*R11R31 . + DYR(2,2)*R21R31) . + REPLOC(10)*(R(1,2)*DYR11R31 . + R(2,2)*DYR21R31) DZREPIJ(5,3) = DZREPLOC(8)*R(3,2)*R31R31 . + REPLOC(8)*DZR(3,2)*R31R31 . + REPLOC(8)*R(3,2)*DZR31R31 . + DZREPLOC(9)*R(3,2)*RADD01 . + REPLOC(9)*DZR(3,2)*RADD01 . + REPLOC(9)*R(3,2)*DZRADD01 . + DZREPLOC(10)*(R(1,2)*R11R31 . + R(2,2)*R21R31) . + REPLOC(10)*(DZR(1,2)*R11R31 . + DZR(2,2)*R21R31) . + REPLOC(10)*(R(1,2)*DZR11R31 . + R(2,2)*DZR21R31) C C (S PY | PX PY): C REPIJ(3,6) = REPLOC(13)*R(3,2)*R31R32 . + REPLOC(14)*R(3,2)*RADD02 . + REPLOC(15)*(R(1,2)*RADD11 . + R(2,2)*RADD12) DXREPIJ(3,6) = DXREPLOC(13)*R(3,2)*R31R32 . + REPLOC(13)*DXR(3,2)*R31R32 . + REPLOC(13)*R(3,2)*DXR31R32 . + DXREPLOC(14)*R(3,2)*RADD02 . + REPLOC(14)*DXR(3,2)*RADD02 . + REPLOC(14)*R(3,2)*DXRADD02 . + DXREPLOC(15)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(15)*(DXR(1,2)*RADD11 . + DXR(2,2)*RADD12) . + REPLOC(15)*(R(1,2)*DXRADD11 . + R(2,2)*DXRADD12) DYREPIJ(3,6) = DYREPLOC(13)*R(3,2)*R31R32 . + REPLOC(13)*DYR(3,2)*R31R32 . + REPLOC(13)*R(3,2)*DYR31R32 . + DYREPLOC(14)*R(3,2)*RADD02 . + REPLOC(14)*DYR(3,2)*RADD02 . + REPLOC(14)*R(3,2)*DYRADD02 . + DYREPLOC(15)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(15)*(DYR(1,2)*RADD11 . + DYR(2,2)*RADD12) . + REPLOC(15)*(R(1,2)*DYRADD11 . + R(2,2)*DYRADD12) DZREPIJ(3,6) = DZREPLOC(13)*R(3,2)*R31R32 . + REPLOC(13)*DZR(3,2)*R31R32 . + REPLOC(13)*R(3,2)*DZR31R32 . + DZREPLOC(14)*R(3,2)*RADD02 . + REPLOC(14)*DZR(3,2)*RADD02 . + REPLOC(14)*R(3,2)*DZRADD02 . + DZREPLOC(15)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(15)*(DZR(1,2)*RADD11 . + DZR(2,2)*RADD12) . + REPLOC(15)*(R(1,2)*DZRADD11 . + R(2,2)*DZRADD12) C C (PX PY | S PY): C REPIJ(6,3) = REPLOC(8)*R(3,2)*R31R32 . + REPLOC(9)*R(3,2)*RADD02 . + REPLOC(10)*(R(1,2)*RADD11 . + R(2,2)*RADD12) DXREPIJ(6,3) = DXREPLOC(8)*R(3,2)*R31R32 . + REPLOC(8)*DXR(3,2)*R31R32 . + REPLOC(8)*R(3,2)*DXR31R32 . + DXREPLOC(9)*R(3,2)*RADD02 . + REPLOC(9)*DXR(3,2)*RADD02 . + REPLOC(9)*R(3,2)*DXRADD02 . + DXREPLOC(10)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(10)*(DXR(1,2)*RADD11 . + DXR(2,2)*RADD12) . + REPLOC(10)*(R(1,2)*DXRADD11 . + R(2,2)*DXRADD12) DYREPIJ(6,3) = DYREPLOC(8)*R(3,2)*R31R32 . + REPLOC(8)*DYR(3,2)*R31R32 . + REPLOC(8)*R(3,2)*DYR31R32 . + DYREPLOC(9)*R(3,2)*RADD02 . + REPLOC(9)*DYR(3,2)*RADD02 . + REPLOC(9)*R(3,2)*DYRADD02 . + DYREPLOC(10)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(10)*(DYR(1,2)*RADD11 . + DYR(2,2)*RADD12) . + REPLOC(10)*(R(1,2)*DYRADD11 . + R(2,2)*DYRADD12) DZREPIJ(6,3) = DZREPLOC(8)*R(3,2)*R31R32 . + REPLOC(8)*DZR(3,2)*R31R32 . + REPLOC(8)*R(3,2)*DZR31R32 . + DZREPLOC(9)*R(3,2)*RADD02 . + REPLOC(9)*DZR(3,2)*RADD02 . + REPLOC(9)*R(3,2)*DZRADD02 . + DZREPLOC(10)*(R(1,2)*RADD11 . + R(2,2)*RADD12) . + REPLOC(10)*(DZR(1,2)*RADD11 . + DZR(2,2)*RADD12) . + REPLOC(10)*(R(1,2)*DZRADD11 . + R(2,2)*DZRADD12) C C (S PY | PX PZ): C REPIJ(3,7) = REPLOC(13)*R(3,2)*R31R33 . + REPLOC(14)*R(3,2)*RADD03 . + REPLOC(15)*(R(1,2)*RADD09 . + R(2,2)*RADD10) DXREPIJ(3,7) = DXREPLOC(13)*R(3,2)*R31R33 . + REPLOC(13)*DXR(3,2)*R31R33 . + REPLOC(13)*R(3,2)*DXR31R33 . + DXREPLOC(14)*R(3,2)*RADD03 . + REPLOC(14)*DXR(3,2)*RADD03 . + REPLOC(14)*R(3,2)*DXRADD03 . + DXREPLOC(15)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(15)*(DXR(1,2)*RADD09 . + DXR(2,2)*RADD10) . + REPLOC(15)*(R(1,2)*DXRADD09 . + R(2,2)*DXRADD10) DYREPIJ(3,7) = DYREPLOC(13)*R(3,2)*R31R33 . + REPLOC(13)*DYR(3,2)*R31R33 . + REPLOC(13)*R(3,2)*DYR31R33 . + DYREPLOC(14)*R(3,2)*RADD03 . + REPLOC(14)*DYR(3,2)*RADD03 . + REPLOC(14)*R(3,2)*DYRADD03 . + DYREPLOC(15)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(15)*(DYR(1,2)*RADD09 . + DYR(2,2)*RADD10) . + REPLOC(15)*(R(1,2)*DYRADD09 . + R(2,2)*DYRADD10) DZREPIJ(3,7) = DZREPLOC(13)*R(3,2)*R31R33 . + REPLOC(13)*DZR(3,2)*R31R33 . + REPLOC(13)*R(3,2)*DZR31R33 . + DZREPLOC(14)*R(3,2)*RADD03 . + REPLOC(14)*DZR(3,2)*RADD03 . + REPLOC(14)*R(3,2)*DZRADD03 . + DZREPLOC(15)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(15)*(DZR(1,2)*RADD09 . + DZR(2,2)*RADD10) . + REPLOC(15)*(R(1,2)*DZRADD09 . + R(2,2)*DZRADD10) C C (PX PZ | S PY): C REPIJ(7,3) = REPLOC(8)*R(3,2)*R31R33 . + REPLOC(9)*R(3,2)*RADD03 . + REPLOC(10)*(R(1,2)*RADD09 . + R(2,2)*RADD10) DXREPIJ(7,3) = DXREPLOC(8)*R(3,2)*R31R33 . + REPLOC(8)*DXR(3,2)*R31R33 . + REPLOC(8)*R(3,2)*DXR31R33 . + DXREPLOC(9)*R(3,2)*RADD03 . + REPLOC(9)*DXR(3,2)*RADD03 . + REPLOC(9)*R(3,2)*DXRADD03 . + DXREPLOC(10)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(10)*(DXR(1,2)*RADD09 . + DXR(2,2)*RADD10) . + REPLOC(10)*(R(1,2)*DXRADD09 . + R(2,2)*DXRADD10) DYREPIJ(7,3) = DYREPLOC(8)*R(3,2)*R31R33 . + REPLOC(8)*DYR(3,2)*R31R33 . + REPLOC(8)*R(3,2)*DYR31R33 . + DYREPLOC(9)*R(3,2)*RADD03 . + REPLOC(9)*DYR(3,2)*RADD03 . + REPLOC(9)*R(3,2)*DYRADD03 . + DYREPLOC(10)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(10)*(DYR(1,2)*RADD09 . + DYR(2,2)*RADD10) . + REPLOC(10)*(R(1,2)*DYRADD09 . + R(2,2)*DYRADD10) DZREPIJ(7,3) = DZREPLOC(8)*R(3,2)*R31R33 . + REPLOC(8)*DZR(3,2)*R31R33 . + REPLOC(8)*R(3,2)*DZR31R33 . + DZREPLOC(9)*R(3,2)*RADD03 . + REPLOC(9)*DZR(3,2)*RADD03 . + REPLOC(9)*R(3,2)*DZRADD03 . + DZREPLOC(10)*(R(1,2)*RADD09 . + R(2,2)*RADD10) . + REPLOC(10)*(DZR(1,2)*RADD09 . + DZR(2,2)*RADD10) . + REPLOC(10)*(R(1,2)*DZRADD09 . + R(2,2)*DZRADD10) C C (S PY | PY PY): C REPIJ(3,8) = REPLOC(13)*R(3,2)*R32R32 . + REPLOC(14)*R(3,2)*RADD04 . + REPLOC(15)*(R(1,2)*R12R32 . + R(2,2)*R22R32) DXREPIJ(3,8) = DXREPLOC(13)*R(3,2)*R32R32 . + REPLOC(13)*DXR(3,2)*R32R32 . + REPLOC(13)*R(3,2)*DXR32R32 . + DXREPLOC(14)*R(3,2)*RADD04 . + REPLOC(14)*DXR(3,2)*RADD04 . + REPLOC(14)*R(3,2)*DXRADD04 . + DXREPLOC(15)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(15)*(DXR(1,2)*R12R32 . + DXR(2,2)*R22R32) . + REPLOC(15)*(R(1,2)*DXR12R32 . + R(2,2)*DXR22R32) DYREPIJ(3,8) = DYREPLOC(13)*R(3,2)*R32R32 . + REPLOC(13)*DYR(3,2)*R32R32 . + REPLOC(13)*R(3,2)*DYR32R32 . + DYREPLOC(14)*R(3,2)*RADD04 . + REPLOC(14)*DYR(3,2)*RADD04 . + REPLOC(14)*R(3,2)*DYRADD04 . + DYREPLOC(15)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(15)*(DYR(1,2)*R12R32 . + DYR(2,2)*R22R32) . + REPLOC(15)*(R(1,2)*DYR12R32 . + R(2,2)*DYR22R32) DZREPIJ(3,8) = DZREPLOC(13)*R(3,2)*R32R32 . + REPLOC(13)*DZR(3,2)*R32R32 . + REPLOC(13)*R(3,2)*DZR32R32 . + DZREPLOC(14)*R(3,2)*RADD04 . + REPLOC(14)*DZR(3,2)*RADD04 . + REPLOC(14)*R(3,2)*DZRADD04 . + DZREPLOC(15)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(15)*(DZR(1,2)*R12R32 . + DZR(2,2)*R22R32) . + REPLOC(15)*(R(1,2)*DZR12R32 . + R(2,2)*DZR22R32) C C (PY PY | S PY): C REPIJ(8,3) = REPLOC(8)*R(3,2)*R32R32 . + REPLOC(9)*R(3,2)*RADD04 . + REPLOC(10)*(R(1,2)*R12R32 . + R(2,2)*R22R32) DXREPIJ(8,3) = DXREPLOC(8)*R(3,2)*R32R32 . + REPLOC(8)*DXR(3,2)*R32R32 . + REPLOC(8)*R(3,2)*DXR32R32 . + DXREPLOC(9)*R(3,2)*RADD04 . + REPLOC(9)*DXR(3,2)*RADD04 . + REPLOC(9)*R(3,2)*DXRADD04 . + DXREPLOC(10)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(10)*(DXR(1,2)*R12R32 . + DXR(2,2)*R22R32) . + REPLOC(10)*(R(1,2)*DXR12R32 . + R(2,2)*DXR22R32) DYREPIJ(8,3) = DYREPLOC(8)*R(3,2)*R32R32 . + REPLOC(8)*DYR(3,2)*R32R32 . + REPLOC(8)*R(3,2)*DYR32R32 . + DYREPLOC(9)*R(3,2)*RADD04 . + REPLOC(9)*DYR(3,2)*RADD04 . + REPLOC(9)*R(3,2)*DYRADD04 . + DYREPLOC(10)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(10)*(DYR(1,2)*R12R32 . + DYR(2,2)*R22R32) . + REPLOC(10)*(R(1,2)*DYR12R32 . + R(2,2)*DYR22R32) DZREPIJ(8,3) = DZREPLOC(8)*R(3,2)*R32R32 . + REPLOC(8)*DZR(3,2)*R32R32 . + REPLOC(8)*R(3,2)*DZR32R32 . + DZREPLOC(9)*R(3,2)*RADD04 . + REPLOC(9)*DZR(3,2)*RADD04 . + REPLOC(9)*R(3,2)*DZRADD04 . + DZREPLOC(10)*(R(1,2)*R12R32 . + R(2,2)*R22R32) . + REPLOC(10)*(DZR(1,2)*R12R32 . + DZR(2,2)*R22R32) . + REPLOC(10)*(R(1,2)*DZR12R32 . + R(2,2)*DZR22R32) C C (S PY | PY PZ): C REPIJ(3,9) = REPLOC(13)*R(3,2)*R32R33 . + REPLOC(14)*R(3,2)*RADD05 . + REPLOC(15)*(R(1,2)*RADD13 . + R(2,2)*RADD14) DXREPIJ(3,9) = DXREPLOC(13)*R(3,2)*R32R33 . + REPLOC(13)*DXR(3,2)*R32R33 . + REPLOC(13)*R(3,2)*DXR32R33 . + DXREPLOC(14)*R(3,2)*RADD05 . + REPLOC(14)*DXR(3,2)*RADD05 . + REPLOC(14)*R(3,2)*DXRADD05 . + DXREPLOC(15)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(15)*(DXR(1,2)*RADD13 . + DXR(2,2)*RADD14) . + REPLOC(15)*(R(1,2)*DXRADD13 . + R(2,2)*DXRADD14) DYREPIJ(3,9) = DYREPLOC(13)*R(3,2)*R32R33 . + REPLOC(13)*DYR(3,2)*R32R33 . + REPLOC(13)*R(3,2)*DYR32R33 . + DYREPLOC(14)*R(3,2)*RADD05 . + REPLOC(14)*DYR(3,2)*RADD05 . + REPLOC(14)*R(3,2)*DYRADD05 . + DYREPLOC(15)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(15)*(DYR(1,2)*RADD13 . + DYR(2,2)*RADD14) . + REPLOC(15)*(R(1,2)*DYRADD13 . + R(2,2)*DYRADD14) DZREPIJ(3,9) = DZREPLOC(13)*R(3,2)*R32R33 . + REPLOC(13)*DZR(3,2)*R32R33 . + REPLOC(13)*R(3,2)*DZR32R33 . + DZREPLOC(14)*R(3,2)*RADD05 . + REPLOC(14)*DZR(3,2)*RADD05 . + REPLOC(14)*R(3,2)*DZRADD05 . + DZREPLOC(15)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(15)*(DZR(1,2)*RADD13 . + DZR(2,2)*RADD14) . + REPLOC(15)*(R(1,2)*DZRADD13 . + R(2,2)*DZRADD14) C C (PY PZ | S PY): C REPIJ(9,3) = REPLOC(8)*R(3,2)*R32R33 . + REPLOC(9)*R(3,2)*RADD05 . + REPLOC(10)*(R(1,2)*RADD13 . + R(2,2)*RADD14) DXREPIJ(9,3) = DXREPLOC(8)*R(3,2)*R32R33 . + REPLOC(8)*DXR(3,2)*R32R33 . + REPLOC(8)*R(3,2)*DXR32R33 . + DXREPLOC(9)*R(3,2)*RADD05 . + REPLOC(9)*DXR(3,2)*RADD05 . + REPLOC(9)*R(3,2)*DXRADD05 . + DXREPLOC(10)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(10)*(DXR(1,2)*RADD13 . + DXR(2,2)*RADD14) . + REPLOC(10)*(R(1,2)*DXRADD13 . + R(2,2)*DXRADD14) DYREPIJ(9,3) = DYREPLOC(8)*R(3,2)*R32R33 . + REPLOC(8)*DYR(3,2)*R32R33 . + REPLOC(8)*R(3,2)*DYR32R33 . + DYREPLOC(9)*R(3,2)*RADD05 . + REPLOC(9)*DYR(3,2)*RADD05 . + REPLOC(9)*R(3,2)*DYRADD05 . + DYREPLOC(10)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(10)*(DYR(1,2)*RADD13 . + DYR(2,2)*RADD14) . + REPLOC(10)*(R(1,2)*DYRADD13 . + R(2,2)*DYRADD14) DZREPIJ(9,3) = DZREPLOC(8)*R(3,2)*R32R33 . + REPLOC(8)*DZR(3,2)*R32R33 . + REPLOC(8)*R(3,2)*DZR32R33 . + DZREPLOC(9)*R(3,2)*RADD05 . + REPLOC(9)*DZR(3,2)*RADD05 . + REPLOC(9)*R(3,2)*DZRADD05 . + DZREPLOC(10)*(R(1,2)*RADD13 . + R(2,2)*RADD14) . + REPLOC(10)*(DZR(1,2)*RADD13 . + DZR(2,2)*RADD14) . + REPLOC(10)*(R(1,2)*DZRADD13 . + R(2,2)*DZRADD14) C C (S PY | PZ PZ): C REPIJ(3,10) = REPLOC(13)*R(3,2)*R33R33 . + REPLOC(14)*R(3,2)*RADD06 . + REPLOC(15)*(R(1,2)*R13R33 . + R(2,2)*R23R33) DXREPIJ(3,10) = DXREPLOC(13)*R(3,2)*R33R33 . + REPLOC(13)*DXR(3,2)*R33R33 . + REPLOC(13)*R(3,2)*DXR33R33 . + DXREPLOC(14)*R(3,2)*RADD06 . + REPLOC(14)*DXR(3,2)*RADD06 . + REPLOC(14)*R(3,2)*DXRADD06 . + DXREPLOC(15)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(15)*(DXR(1,2)*R13R33 . + DXR(2,2)*R23R33) . + REPLOC(15)*(R(1,2)*DXR13R33 . + R(2,2)*DXR23R33) DYREPIJ(3,10) = DYREPLOC(13)*R(3,2)*R33R33 . + REPLOC(13)*DYR(3,2)*R33R33 . + REPLOC(13)*R(3,2)*DYR33R33 . + DYREPLOC(14)*R(3,2)*RADD06 . + REPLOC(14)*DYR(3,2)*RADD06 . + REPLOC(14)*R(3,2)*DYRADD06 . + DYREPLOC(15)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(15)*(DYR(1,2)*R13R33 . + DYR(2,2)*R23R33) . + REPLOC(15)*(R(1,2)*DYR13R33 . + R(2,2)*DYR23R33) DZREPIJ(3,10) = DZREPLOC(13)*R(3,2)*R33R33 . + REPLOC(13)*DZR(3,2)*R33R33 . + REPLOC(13)*R(3,2)*DZR33R33 . + DZREPLOC(14)*R(3,2)*RADD06 . + REPLOC(14)*DZR(3,2)*RADD06 . + REPLOC(14)*R(3,2)*DZRADD06 . + DZREPLOC(15)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(15)*(DZR(1,2)*R13R33 . + DZR(2,2)*R23R33) . + REPLOC(15)*(R(1,2)*DZR13R33 . + R(2,2)*DZR23R33) C C (PZ PZ | S PY): C REPIJ(10,3) = REPLOC(8)*R(3,2)*R33R33 . + REPLOC(9)*R(3,2)*RADD06 . + REPLOC(10)*(R(1,2)*R13R33 . + R(2,2)*R23R33) DXREPIJ(10,3) = DXREPLOC(8)*R(3,2)*R33R33 . + REPLOC(8)*DXR(3,2)*R33R33 . + REPLOC(8)*R(3,2)*DXR33R33 . + DXREPLOC(9)*R(3,2)*RADD06 . + REPLOC(9)*DXR(3,2)*RADD06 . + REPLOC(9)*R(3,2)*DXRADD06 . + DXREPLOC(10)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(10)*(DXR(1,2)*R13R33 . + DXR(2,2)*R23R33) . + REPLOC(10)*(R(1,2)*DXR13R33 . + R(2,2)*DXR23R33) DYREPIJ(10,3) = DYREPLOC(8)*R(3,2)*R33R33 . + REPLOC(8)*DYR(3,2)*R33R33 . + REPLOC(8)*R(3,2)*DYR33R33 . + DYREPLOC(9)*R(3,2)*RADD06 . + REPLOC(9)*DYR(3,2)*RADD06 . + REPLOC(9)*R(3,2)*DYRADD06 . + DYREPLOC(10)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(10)*(DYR(1,2)*R13R33 . + DYR(2,2)*R23R33) . + REPLOC(10)*(R(1,2)*DYR13R33 . + R(2,2)*DYR23R33) DZREPIJ(10,3) = DZREPLOC(8)*R(3,2)*R33R33 . + REPLOC(8)*DZR(3,2)*R33R33 . + REPLOC(8)*R(3,2)*DZR33R33 . + DZREPLOC(9)*R(3,2)*RADD06 . + REPLOC(9)*DZR(3,2)*RADD06 . + REPLOC(9)*R(3,2)*DZRADD06 . + DZREPLOC(10)*(R(1,2)*R13R33 . + R(2,2)*R23R33) . + REPLOC(10)*(DZR(1,2)*R13R33 . + DZR(2,2)*R23R33) . + REPLOC(10)*(R(1,2)*DZR13R33 . + R(2,2)*DZR23R33) C C (S PZ | S PZ): C REPIJ(4,4) = REPLOC(6)*R33R33 . + REPLOC(7)*RADD06 DXREPIJ(4,4) = DXREPLOC(6)*R33R33 + REPLOC(6)*DXR33R33 . + DXREPLOC(7)*RADD06 + REPLOC(7)*DXRADD06 DYREPIJ(4,4) = DYREPLOC(6)*R33R33 + REPLOC(6)*DYR33R33 . + DYREPLOC(7)*RADD06 + REPLOC(7)*DYRADD06 DZREPIJ(4,4) = DZREPLOC(6)*R33R33 + REPLOC(6)*DZR33R33 . + DZREPLOC(7)*RADD06 + REPLOC(7)*DZRADD06 C C (S PZ | PX PX): C REPIJ(4,5) = REPLOC(13)*R(3,3)*R31R31 . + REPLOC(14)*R(3,3)*RADD01 . + REPLOC(15)*(R(1,3)*R11R31 . + R(2,3)*R21R31) DXREPIJ(4,5) = DXREPLOC(13)*R(3,3)*R31R31 . + REPLOC(13)*DXR(3,3)*R31R31 . + REPLOC(13)*R(3,3)*DXR31R31 . + DXREPLOC(14)*R(3,3)*RADD01 . + REPLOC(14)*DXR(3,3)*RADD01 . + REPLOC(14)*R(3,3)*DXRADD01 . + DXREPLOC(15)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(15)*(DXR(1,3)*R11R31 . + DXR(2,3)*R21R31) . + REPLOC(15)*(R(1,3)*DXR11R31 . + R(2,3)*DXR21R31) DYREPIJ(4,5) = DYREPLOC(13)*R(3,3)*R31R31 . + REPLOC(13)*DYR(3,3)*R31R31 . + REPLOC(13)*R(3,3)*DYR31R31 . + DYREPLOC(14)*R(3,3)*RADD01 . + REPLOC(14)*DYR(3,3)*RADD01 . + REPLOC(14)*R(3,3)*DYRADD01 . + DYREPLOC(15)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(15)*(DYR(1,3)*R11R31 . + DYR(2,3)*R21R31) . + REPLOC(15)*(R(1,3)*DYR11R31 . + R(2,3)*DYR21R31) DZREPIJ(4,5) = DZREPLOC(13)*R(3,3)*R31R31 . + REPLOC(13)*DZR(3,3)*R31R31 . + REPLOC(13)*R(3,3)*DZR31R31 . + DZREPLOC(14)*R(3,3)*RADD01 . + REPLOC(14)*DZR(3,3)*RADD01 . + REPLOC(14)*R(3,3)*DZRADD01 . + DZREPLOC(15)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(15)*(DZR(1,3)*R11R31 . + DZR(2,3)*R21R31) . + REPLOC(15)*(R(1,3)*DZR11R31 . + R(2,3)*DZR21R31) C C (PX PX | S PZ): C REPIJ(5,4) = REPLOC(8)*R(3,3)*R31R31 . + REPLOC(9)*R(3,3)*RADD01 . + REPLOC(10)*(R(1,3)*R11R31 . + R(2,3)*R21R31) DXREPIJ(5,4) = DXREPLOC(8)*R(3,3)*R31R31 . + REPLOC(8)*DXR(3,3)*R31R31 . + REPLOC(8)*R(3,3)*DXR31R31 . + DXREPLOC(9)*R(3,3)*RADD01 . + REPLOC(9)*DXR(3,3)*RADD01 . + REPLOC(9)*R(3,3)*DXRADD01 . + DXREPLOC(10)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(10)*(DXR(1,3)*R11R31 . + DXR(2,3)*R21R31) . + REPLOC(10)*(R(1,3)*DXR11R31 . + R(2,3)*DXR21R31) DYREPIJ(5,4) = DYREPLOC(8)*R(3,3)*R31R31 . + REPLOC(8)*DYR(3,3)*R31R31 . + REPLOC(8)*R(3,3)*DYR31R31 . + DYREPLOC(9)*R(3,3)*RADD01 . + REPLOC(9)*DYR(3,3)*RADD01 . + REPLOC(9)*R(3,3)*DYRADD01 . + DYREPLOC(10)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(10)*(DYR(1,3)*R11R31 . + DYR(2,3)*R21R31) . + REPLOC(10)*(R(1,3)*DYR11R31 . + R(2,3)*DYR21R31) DZREPIJ(5,4) = DZREPLOC(8)*R(3,3)*R31R31 . + REPLOC(8)*DZR(3,3)*R31R31 . + REPLOC(8)*R(3,3)*DZR31R31 . + DZREPLOC(9)*R(3,3)*RADD01 . + REPLOC(9)*DZR(3,3)*RADD01 . + REPLOC(9)*R(3,3)*DZRADD01 . + DZREPLOC(10)*(R(1,3)*R11R31 . + R(2,3)*R21R31) . + REPLOC(10)*(DZR(1,3)*R11R31 . + DZR(2,3)*R21R31) . + REPLOC(10)*(R(1,3)*DZR11R31 . + R(2,3)*DZR21R31) C C (S PZ | PX PY): C REPIJ(4,6) = REPLOC(13)*R(3,3)*R31R32 . + REPLOC(14)*R(3,3)*RADD02 . + REPLOC(15)*(R(1,3)*RADD11 . + R(2,3)*RADD12) DXREPIJ(4,6) = DXREPLOC(13)*R(3,3)*R31R32 . + REPLOC(13)*DXR(3,3)*R31R32 . + REPLOC(13)*R(3,3)*DXR31R32 . + DXREPLOC(14)*R(3,3)*RADD02 . + REPLOC(14)*DXR(3,3)*RADD02 . + REPLOC(14)*R(3,3)*DXRADD02 . + DXREPLOC(15)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(15)*(DXR(1,3)*RADD11 . + DXR(2,3)*RADD12) . + REPLOC(15)*(R(1,3)*DXRADD11 . + R(2,3)*DXRADD12) DYREPIJ(4,6) = DYREPLOC(13)*R(3,3)*R31R32 . + REPLOC(13)*DYR(3,3)*R31R32 . + REPLOC(13)*R(3,3)*DYR31R32 . + DYREPLOC(14)*R(3,3)*RADD02 . + REPLOC(14)*DYR(3,3)*RADD02 . + REPLOC(14)*R(3,3)*DYRADD02 . + DYREPLOC(15)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(15)*(DYR(1,3)*RADD11 . + DYR(2,3)*RADD12) . + REPLOC(15)*(R(1,3)*DYRADD11 . + R(2,3)*DYRADD12) DZREPIJ(4,6) = DZREPLOC(13)*R(3,3)*R31R32 . + REPLOC(13)*DZR(3,3)*R31R32 . + REPLOC(13)*R(3,3)*DZR31R32 . + DZREPLOC(14)*R(3,3)*RADD02 . + REPLOC(14)*DZR(3,3)*RADD02 . + REPLOC(14)*R(3,3)*DZRADD02 . + DZREPLOC(15)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(15)*(DZR(1,3)*RADD11 . + DZR(2,3)*RADD12) . + REPLOC(15)*(R(1,3)*DZRADD11 . + R(2,3)*DZRADD12) C C (PX PY | S PZ): C REPIJ(6,4) = REPLOC(8)*R(3,3)*R31R32 . + REPLOC(9)*R(3,3)*RADD02 . + REPLOC(10)*(R(1,3)*RADD11 . + R(2,3)*RADD12) DXREPIJ(6,4) = DXREPLOC(8)*R(3,3)*R31R32 . + REPLOC(8)*DXR(3,3)*R31R32 . + REPLOC(8)*R(3,3)*DXR31R32 . + DXREPLOC(9)*R(3,3)*RADD02 . + REPLOC(9)*DXR(3,3)*RADD02 . + REPLOC(9)*R(3,3)*DXRADD02 . + DXREPLOC(10)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(10)*(DXR(1,3)*RADD11 . + DXR(2,3)*RADD12) . + REPLOC(10)*(R(1,3)*DXRADD11 . + R(2,3)*DXRADD12) DYREPIJ(6,4) = DYREPLOC(8)*R(3,3)*R31R32 . + REPLOC(8)*DYR(3,3)*R31R32 . + REPLOC(8)*R(3,3)*DYR31R32 . + DYREPLOC(9)*R(3,3)*RADD02 . + REPLOC(9)*DYR(3,3)*RADD02 . + REPLOC(9)*R(3,3)*DYRADD02 . + DYREPLOC(10)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(10)*(DYR(1,3)*RADD11 . + DYR(2,3)*RADD12) . + REPLOC(10)*(R(1,3)*DYRADD11 . + R(2,3)*DYRADD12) DZREPIJ(6,4) = DZREPLOC(8)*R(3,3)*R31R32 . + REPLOC(8)*DZR(3,3)*R31R32 . + REPLOC(8)*R(3,3)*DZR31R32 . + DZREPLOC(9)*R(3,3)*RADD02 . + REPLOC(9)*DZR(3,3)*RADD02 . + REPLOC(9)*R(3,3)*DZRADD02 . + DZREPLOC(10)*(R(1,3)*RADD11 . + R(2,3)*RADD12) . + REPLOC(10)*(DZR(1,3)*RADD11 . + DZR(2,3)*RADD12) . + REPLOC(10)*(R(1,3)*DZRADD11 . + R(2,3)*DZRADD12) C C (S PZ | PX PZ): C REPIJ(4,7) = REPLOC(13)*R(3,3)*R31R33 . + REPLOC(14)*R(3,3)*RADD03 . + REPLOC(15)*(R(1,3)*RADD09 . + R(2,3)*RADD10) DXREPIJ(4,7) = DXREPLOC(13)*R(3,3)*R31R33 . + REPLOC(13)*DXR(3,3)*R31R33 . + REPLOC(13)*R(3,3)*DXR31R33 . + DXREPLOC(14)*R(3,3)*RADD03 . + REPLOC(14)*DXR(3,3)*RADD03 . + REPLOC(14)*R(3,3)*DXRADD03 . + DXREPLOC(15)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(15)*(DXR(1,3)*RADD09 . + DXR(2,3)*RADD10) . + REPLOC(15)*(R(1,3)*DXRADD09 . + R(2,3)*DXRADD10) DYREPIJ(4,7) = DYREPLOC(13)*R(3,3)*R31R33 . + REPLOC(13)*DYR(3,3)*R31R33 . + REPLOC(13)*R(3,3)*DYR31R33 . + DYREPLOC(14)*R(3,3)*RADD03 . + REPLOC(14)*DYR(3,3)*RADD03 . + REPLOC(14)*R(3,3)*DYRADD03 . + DYREPLOC(15)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(15)*(DYR(1,3)*RADD09 . + DYR(2,3)*RADD10) . + REPLOC(15)*(R(1,3)*DYRADD09 . + R(2,3)*DYRADD10) DZREPIJ(4,7) = DZREPLOC(13)*R(3,3)*R31R33 . + REPLOC(13)*DZR(3,3)*R31R33 . + REPLOC(13)*R(3,3)*DZR31R33 . + DZREPLOC(14)*R(3,3)*RADD03 . + REPLOC(14)*DZR(3,3)*RADD03 . + REPLOC(14)*R(3,3)*DZRADD03 . + DZREPLOC(15)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(15)*(DZR(1,3)*RADD09 . + DZR(2,3)*RADD10) . + REPLOC(15)*(R(1,3)*DZRADD09 . + R(2,3)*DZRADD10) C C (PX PZ | S PZ): C REPIJ(7,4) = REPLOC(8)*R(3,3)*R31R33 . + REPLOC(9)*R(3,3)*RADD03 . + REPLOC(10)*(R(1,3)*RADD09 . + R(2,3)*RADD10) DXREPIJ(7,4) = DXREPLOC(8)*R(3,3)*R31R33 . + REPLOC(8)*DXR(3,3)*R31R33 . + REPLOC(8)*R(3,3)*DXR31R33 . + DXREPLOC(9)*R(3,3)*RADD03 . + REPLOC(9)*DXR(3,3)*RADD03 . + REPLOC(9)*R(3,3)*DXRADD03 . + DXREPLOC(10)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(10)*(DXR(1,3)*RADD09 . + DXR(2,3)*RADD10) . + REPLOC(10)*(R(1,3)*DXRADD09 . + R(2,3)*DXRADD10) DYREPIJ(7,4) = DYREPLOC(8)*R(3,3)*R31R33 . + REPLOC(8)*DYR(3,3)*R31R33 . + REPLOC(8)*R(3,3)*DYR31R33 . + DYREPLOC(9)*R(3,3)*RADD03 . + REPLOC(9)*DYR(3,3)*RADD03 . + REPLOC(9)*R(3,3)*DYRADD03 . + DYREPLOC(10)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(10)*(DYR(1,3)*RADD09 . + DYR(2,3)*RADD10) . + REPLOC(10)*(R(1,3)*DYRADD09 . + R(2,3)*DYRADD10) DZREPIJ(7,4) = DZREPLOC(8)*R(3,3)*R31R33 . + REPLOC(8)*DZR(3,3)*R31R33 . + REPLOC(8)*R(3,3)*DZR31R33 . + DZREPLOC(9)*R(3,3)*RADD03 . + REPLOC(9)*DZR(3,3)*RADD03 . + REPLOC(9)*R(3,3)*DZRADD03 . + DZREPLOC(10)*(R(1,3)*RADD09 . + R(2,3)*RADD10) . + REPLOC(10)*(DZR(1,3)*RADD09 . + DZR(2,3)*RADD10) . + REPLOC(10)*(R(1,3)*DZRADD09 . + R(2,3)*DZRADD10) C C (S PZ | PY PY): C REPIJ(4,8) = REPLOC(13)*R(3,3)*R32R32 . + REPLOC(14)*R(3,3)*RADD04 . + REPLOC(15)*(R(1,3)*R12R32 . + R(2,3)*R22R32) DXREPIJ(4,8) = DXREPLOC(13)*R(3,3)*R32R32 . + REPLOC(13)*DXR(3,3)*R32R32 . + REPLOC(13)*R(3,3)*DXR32R32 . + DXREPLOC(14)*R(3,3)*RADD04 . + REPLOC(14)*DXR(3,3)*RADD04 . + REPLOC(14)*R(3,3)*DXRADD04 . + DXREPLOC(15)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(15)*(DXR(1,3)*R12R32 . + DXR(2,3)*R22R32) . + REPLOC(15)*(R(1,3)*DXR12R32 . + R(2,3)*DXR22R32) DYREPIJ(4,8) = DYREPLOC(13)*R(3,3)*R32R32 . + REPLOC(13)*DYR(3,3)*R32R32 . + REPLOC(13)*R(3,3)*DYR32R32 . + DYREPLOC(14)*R(3,3)*RADD04 . + REPLOC(14)*DYR(3,3)*RADD04 . + REPLOC(14)*R(3,3)*DYRADD04 . + DYREPLOC(15)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(15)*(DYR(1,3)*R12R32 . + DYR(2,3)*R22R32) . + REPLOC(15)*(R(1,3)*DYR12R32 . + R(2,3)*DYR22R32) DZREPIJ(4,8) = DZREPLOC(13)*R(3,3)*R32R32 . + REPLOC(13)*DZR(3,3)*R32R32 . + REPLOC(13)*R(3,3)*DZR32R32 . + DZREPLOC(14)*R(3,3)*RADD04 . + REPLOC(14)*DZR(3,3)*RADD04 . + REPLOC(14)*R(3,3)*DZRADD04 . + DZREPLOC(15)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(15)*(DZR(1,3)*R12R32 . + DZR(2,3)*R22R32) . + REPLOC(15)*(R(1,3)*DZR12R32 . + R(2,3)*DZR22R32) C C (PY PY | S PZ): C REPIJ(8,4) = REPLOC(8)*R(3,3)*R32R32 . + REPLOC(9)*R(3,3)*RADD04 . + REPLOC(10)*(R(1,3)*R12R32 . + R(2,3)*R22R32) DXREPIJ(8,4) = DXREPLOC(8)*R(3,3)*R32R32 . + REPLOC(8)*DXR(3,3)*R32R32 . + REPLOC(8)*R(3,3)*DXR32R32 . + DXREPLOC(9)*R(3,3)*RADD04 . + REPLOC(9)*DXR(3,3)*RADD04 . + REPLOC(9)*R(3,3)*DXRADD04 . + DXREPLOC(10)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(10)*(DXR(1,3)*R12R32 . + DXR(2,3)*R22R32) . + REPLOC(10)*(R(1,3)*DXR12R32 . + R(2,3)*DXR22R32) DYREPIJ(8,4) = DYREPLOC(8)*R(3,3)*R32R32 . + REPLOC(8)*DYR(3,3)*R32R32 . + REPLOC(8)*R(3,3)*DYR32R32 . + DYREPLOC(9)*R(3,3)*RADD04 . + REPLOC(9)*DYR(3,3)*RADD04 . + REPLOC(9)*R(3,3)*DYRADD04 . + DYREPLOC(10)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(10)*(DYR(1,3)*R12R32 . + DYR(2,3)*R22R32) . + REPLOC(10)*(R(1,3)*DYR12R32 . + R(2,3)*DYR22R32) DZREPIJ(8,4) = DZREPLOC(8)*R(3,3)*R32R32 . + REPLOC(8)*DZR(3,3)*R32R32 . + REPLOC(8)*R(3,3)*DZR32R32 . + DZREPLOC(9)*R(3,3)*RADD04 . + REPLOC(9)*DZR(3,3)*RADD04 . + REPLOC(9)*R(3,3)*DZRADD04 . + DZREPLOC(10)*(R(1,3)*R12R32 . + R(2,3)*R22R32) . + REPLOC(10)*(DZR(1,3)*R12R32 . + DZR(2,3)*R22R32) . + REPLOC(10)*(R(1,3)*DZR12R32 . + R(2,3)*DZR22R32) C C (S PZ | PY PZ): C REPIJ(4,9) = REPLOC(13)*R(3,3)*R32R33 . + REPLOC(14)*R(3,3)*RADD05 . + REPLOC(15)*(R(1,3)*RADD13 . + R(2,3)*RADD14) DXREPIJ(4,9) = DXREPLOC(13)*R(3,3)*R32R33 . + REPLOC(13)*DXR(3,3)*R32R33 . + REPLOC(13)*R(3,3)*DXR32R33 . + DXREPLOC(14)*R(3,3)*RADD05 . + REPLOC(14)*DXR(3,3)*RADD05 . + REPLOC(14)*R(3,3)*DXRADD05 . + DXREPLOC(15)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(15)*(DXR(1,3)*RADD13 . + DXR(2,3)*RADD14) . + REPLOC(15)*(R(1,3)*DXRADD13 . + R(2,3)*DXRADD14) DYREPIJ(4,9) = DYREPLOC(13)*R(3,3)*R32R33 . + REPLOC(13)*DYR(3,3)*R32R33 . + REPLOC(13)*R(3,3)*DYR32R33 . + DYREPLOC(14)*R(3,3)*RADD05 . + REPLOC(14)*DYR(3,3)*RADD05 . + REPLOC(14)*R(3,3)*DYRADD05 . + DYREPLOC(15)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(15)*(DYR(1,3)*RADD13 . + DYR(2,3)*RADD14) . + REPLOC(15)*(R(1,3)*DYRADD13 . + R(2,3)*DYRADD14) DZREPIJ(4,9) = DZREPLOC(13)*R(3,3)*R32R33 . + REPLOC(13)*DZR(3,3)*R32R33 . + REPLOC(13)*R(3,3)*DZR32R33 . + DZREPLOC(14)*R(3,3)*RADD05 . + REPLOC(14)*DZR(3,3)*RADD05 . + REPLOC(14)*R(3,3)*DZRADD05 . + DZREPLOC(15)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(15)*(DZR(1,3)*RADD13 . + DZR(2,3)*RADD14) . + REPLOC(15)*(R(1,3)*DZRADD13 . + R(2,3)*DZRADD14) C C (PY PZ | S PZ): C REPIJ(9,4) = REPLOC(8)*R(3,3)*R32R33 . + REPLOC(9)*R(3,3)*RADD05 . + REPLOC(10)*(R(1,3)*RADD13 . + R(2,3)*RADD14) DXREPIJ(9,4) = DXREPLOC(8)*R(3,3)*R32R33 . + REPLOC(8)*DXR(3,3)*R32R33 . + REPLOC(8)*R(3,3)*DXR32R33 . + DXREPLOC(9)*R(3,3)*RADD05 . + REPLOC(9)*DXR(3,3)*RADD05 . + REPLOC(9)*R(3,3)*DXRADD05 . + DXREPLOC(10)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(10)*(DXR(1,3)*RADD13 . + DXR(2,3)*RADD14) . + REPLOC(10)*(R(1,3)*DXRADD13 . + R(2,3)*DXRADD14) DYREPIJ(9,4) = DYREPLOC(8)*R(3,3)*R32R33 . + REPLOC(8)*DYR(3,3)*R32R33 . + REPLOC(8)*R(3,3)*DYR32R33 . + DYREPLOC(9)*R(3,3)*RADD05 . + REPLOC(9)*DYR(3,3)*RADD05 . + REPLOC(9)*R(3,3)*DYRADD05 . + DYREPLOC(10)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(10)*(DYR(1,3)*RADD13 . + DYR(2,3)*RADD14) . + REPLOC(10)*(R(1,3)*DYRADD13 . + R(2,3)*DYRADD14) DZREPIJ(9,4) = DZREPLOC(8)*R(3,3)*R32R33 . + REPLOC(8)*DZR(3,3)*R32R33 . + REPLOC(8)*R(3,3)*DZR32R33 . + DZREPLOC(9)*R(3,3)*RADD05 . + REPLOC(9)*DZR(3,3)*RADD05 . + REPLOC(9)*R(3,3)*DZRADD05 . + DZREPLOC(10)*(R(1,3)*RADD13 . + R(2,3)*RADD14) . + REPLOC(10)*(DZR(1,3)*RADD13 . + DZR(2,3)*RADD14) . + REPLOC(10)*(R(1,3)*DZRADD13 . + R(2,3)*DZRADD14) C C (S PZ | PZ PZ): C REPIJ(4,10) = REPLOC(13)*R(3,3)*R33R33 . + REPLOC(14)*R(3,3)*RADD06 . + REPLOC(15)*(R(1,3)*R13R33 . + R(2,3)*R23R33) DXREPIJ(4,10) = DXREPLOC(13)*R(3,3)*R33R33 . + REPLOC(13)*DXR(3,3)*R33R33 . + REPLOC(13)*R(3,3)*DXR33R33 . + DXREPLOC(14)*R(3,3)*RADD06 . + REPLOC(14)*DXR(3,3)*RADD06 . + REPLOC(14)*R(3,3)*DXRADD06 . + DXREPLOC(15)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(15)*(DXR(1,3)*R13R33 . + DXR(2,3)*R23R33) . + REPLOC(15)*(R(1,3)*DXR13R33 . + R(2,3)*DXR23R33) DYREPIJ(4,10) = DYREPLOC(13)*R(3,3)*R33R33 . + REPLOC(13)*DYR(3,3)*R33R33 . + REPLOC(13)*R(3,3)*DYR33R33 . + DYREPLOC(14)*R(3,3)*RADD06 . + REPLOC(14)*DYR(3,3)*RADD06 . + REPLOC(14)*R(3,3)*DYRADD06 . + DYREPLOC(15)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(15)*(DYR(1,3)*R13R33 . + DYR(2,3)*R23R33) . + REPLOC(15)*(R(1,3)*DYR13R33 . + R(2,3)*DYR23R33) DZREPIJ(4,10) = DZREPLOC(13)*R(3,3)*R33R33 . + REPLOC(13)*DZR(3,3)*R33R33 . + REPLOC(13)*R(3,3)*DZR33R33 . + DZREPLOC(14)*R(3,3)*RADD06 . + REPLOC(14)*DZR(3,3)*RADD06 . + REPLOC(14)*R(3,3)*DZRADD06 . + DZREPLOC(15)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(15)*(DZR(1,3)*R13R33 . + DZR(2,3)*R23R33) . + REPLOC(15)*(R(1,3)*DZR13R33 . + R(2,3)*DZR23R33) C C (PZ PZ | S PZ): C REPIJ(10,4) = REPLOC(8)*R(3,3)*R33R33 . + REPLOC(9)*R(3,3)*RADD06 . + REPLOC(10)*(R(1,3)*R13R33 . + R(2,3)*R23R33) DXREPIJ(10,4) = DXREPLOC(8)*R(3,3)*R33R33 . + REPLOC(8)*DXR(3,3)*R33R33 . + REPLOC(8)*R(3,3)*DXR33R33 . + DXREPLOC(9)*R(3,3)*RADD06 . + REPLOC(9)*DXR(3,3)*RADD06 . + REPLOC(9)*R(3,3)*DXRADD06 . + DXREPLOC(10)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(10)*(DXR(1,3)*R13R33 . + DXR(2,3)*R23R33) . + REPLOC(10)*(R(1,3)*DXR13R33 . + R(2,3)*DXR23R33) DYREPIJ(10,4) = DYREPLOC(8)*R(3,3)*R33R33 . + REPLOC(8)*DYR(3,3)*R33R33 . + REPLOC(8)*R(3,3)*DYR33R33 . + DYREPLOC(9)*R(3,3)*RADD06 . + REPLOC(9)*DYR(3,3)*RADD06 . + REPLOC(9)*R(3,3)*DYRADD06 . + DYREPLOC(10)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(10)*(DYR(1,3)*R13R33 . + DYR(2,3)*R23R33) . + REPLOC(10)*(R(1,3)*DYR13R33 . + R(2,3)*DYR23R33) DZREPIJ(10,4) = DZREPLOC(8)*R(3,3)*R33R33 . + REPLOC(8)*DZR(3,3)*R33R33 . + REPLOC(8)*R(3,3)*DZR33R33 . + DZREPLOC(9)*R(3,3)*RADD06 . + REPLOC(9)*DZR(3,3)*RADD06 . + REPLOC(9)*R(3,3)*DZRADD06 . + DZREPLOC(10)*(R(1,3)*R13R33 . + R(2,3)*R23R33) . + REPLOC(10)*(DZR(1,3)*R13R33 . + DZR(2,3)*R23R33) . + REPLOC(10)*(R(1,3)*DZR13R33 . + R(2,3)*DZR23R33) C C (PX PX | PX PX): C REPIJ(5,5) = REPLOC(16)*R31R31*R31R31 . + REPLOC(17)*RADD01*R31R31 . + REPLOC(18)*RADD01*R31R31 . + REPLOC(19)*(R11R11*R11R11 . + R21R21*R21R21) . + REPLOC(20)*(R11R31*R11R31 . + R21R31*R21R31) . + REPLOC(21)*R11R11*R21R21*2.0D0 . + REPLOC(22)*R11R21*R11R21 DXREPIJ(5,5) = DXREPLOC(16)*R31R31*R31R31 . + REPLOC(16)*DXR31R31*R31R31 . + REPLOC(16)*R31R31*DXR31R31 . + DXREPLOC(17)*RADD01*R31R31 . + REPLOC(17)*DXRADD01*R31R31 . + REPLOC(17)*RADD01*DXR31R31 . + DXREPLOC(18)*RADD01*R31R31 . + REPLOC(18)*DXRADD01*R31R31 . + REPLOC(18)*RADD01*DXR31R31 . + DXREPLOC(19)*(R11R11*R11R11 . + R21R21*R21R21) . + REPLOC(19)*(DXR11R11*R11R11 . + DXR21R21*R21R21) . + REPLOC(19)*(R11R11*DXR11R11 . + R21R21*DXR21R21) DXREPIJ(5,5) = DXREPIJ(5,5) . + DXREPLOC(20)*(R11R31*R11R31 . + R21R31*R21R31) . + REPLOC(20)*(DXR11R31*R11R31 . + DXR21R31*R21R31) . + REPLOC(20)*(R11R31*DXR11R31 . + R21R31*DXR21R31) . + DXREPLOC(21)*R11R11*R21R21*2.0D0 . + REPLOC(21)*DXR11R11*R21R21*2.0D0 . + REPLOC(21)*R11R11*DXR21R21*2.0D0 . + DXREPLOC(22)*R11R21*R11R21 . + REPLOC(22)*DXR11R21*R11R21 . + REPLOC(22)*R11R21*DXR11R21 DYREPIJ(5,5) = DYREPLOC(16)*R31R31*R31R31 . + REPLOC(16)*DYR31R31*R31R31 . + REPLOC(16)*R31R31*DYR31R31 . + DYREPLOC(17)*RADD01*R31R31 . + REPLOC(17)*DYRADD01*R31R31 . + REPLOC(17)*RADD01*DYR31R31 . + DYREPLOC(18)*RADD01*R31R31 . + REPLOC(18)*DYRADD01*R31R31 . + REPLOC(18)*RADD01*DYR31R31 . + DYREPLOC(19)*(R11R11*R11R11 . + R21R21*R21R21) . + REPLOC(19)*(DYR11R11*R11R11 . + DYR21R21*R21R21) . + REPLOC(19)*(R11R11*DYR11R11 . + R21R21*DYR21R21) DYREPIJ(5,5) = DYREPIJ(5,5) . + DYREPLOC(20)*(R11R31*R11R31 . + R21R31*R21R31) . + REPLOC(20)*(DYR11R31*R11R31 . + DYR21R31*R21R31) . + REPLOC(20)*(R11R31*DYR11R31 . + R21R31*DYR21R31) . + DYREPLOC(21)*R11R11*R21R21*2.0D0 . + REPLOC(21)*DYR11R11*R21R21*2.0D0 . + REPLOC(21)*R11R11*DYR21R21*2.0D0 . + DYREPLOC(22)*R11R21*R11R21 . + REPLOC(22)*DYR11R21*R11R21 . + REPLOC(22)*R11R21*DYR11R21 DZREPIJ(5,5) = DZREPLOC(16)*R31R31*R31R31 . + REPLOC(16)*DZR31R31*R31R31 . + REPLOC(16)*R31R31*DZR31R31 . + DZREPLOC(17)*RADD01*R31R31 . + REPLOC(17)*DZRADD01*R31R31 . + REPLOC(17)*RADD01*DZR31R31 . + DZREPLOC(18)*RADD01*R31R31 . + REPLOC(18)*DZRADD01*R31R31 . + REPLOC(18)*RADD01*DZR31R31 . + DZREPLOC(19)*(R11R11*R11R11 . + R21R21*R21R21) . + REPLOC(19)*(DZR11R11*R11R11 . + DZR21R21*R21R21) . + REPLOC(19)*(R11R11*DZR11R11 . + R21R21*DZR21R21) DZREPIJ(5,5) = DZREPIJ(5,5) . + DZREPLOC(20)*(R11R31*R11R31 . + R21R31*R21R31) . + REPLOC(20)*(DZR11R31*R11R31 . + DZR21R31*R21R31) . + REPLOC(20)*(R11R31*DZR11R31 . + R21R31*DZR21R31) . + DZREPLOC(21)*R11R11*R21R21*2.0D0 . + REPLOC(21)*DZR11R11*R21R21*2.0D0 . + REPLOC(21)*R11R11*DZR21R21*2.0D0 . + DZREPLOC(22)*R11R21*R11R21 . + REPLOC(22)*DZR11R21*R11R21 . + REPLOC(22)*R11R21*DZR11R21 C C (PX PX | PX PY): C REPIJ(5,6) = REPLOC(16)*R31R31*R31R32 . + REPLOC(17)*RADD01*R31R32 . + REPLOC(18)*RADD02*R31R31 . + REPLOC(19)*(R11R11*R11R12 . + R21R21*R21R22) . + REPLOC(20)*(R11R31*R11R32 . + R31R11*R31R12 . + R21R31*R21R32 . + R31R21*R31R22) . + REPLOC(21)*(R11R11*R21R22 . + R21R21*R11R12) . + REPLOC(22)*(R11R21*R11R22 . + R21R11*R21R12) DXREPIJ(5,6) = DXREPLOC(16)*R31R31*R31R32 . + REPLOC(16)*DXR31R31*R31R32 . + REPLOC(16)*R31R31*DXR31R32 . + DXREPLOC(17)*RADD01*R31R32 . + REPLOC(17)*DXRADD01*R31R32 . + REPLOC(17)*RADD01*DXR31R32 . + DXREPLOC(18)*RADD02*R31R31 . + REPLOC(18)*DXRADD02*R31R31 . + REPLOC(18)*RADD02*DXR31R31 . + DXREPLOC(19)*(R11R11*R11R12 . + R21R21*R21R22) . + REPLOC(19)*(DXR11R11*R11R12 . + DXR21R21*R21R22) . + REPLOC(19)*(R11R11*DXR11R12 . + R21R21*DXR21R22) DXREPIJ(5,6) = DXREPIJ(5,6) . + DXREPLOC(20)*(R11R31*R11R32 . + R31R11*R31R12 . + R21R31*R21R32 . + R31R21*R31R22) . + REPLOC(20)*(DXR11R31*R11R32 . + DXR31R11*R31R12 . + DXR21R31*R21R32 . + DXR31R21*R31R22) . + REPLOC(20)*(R11R31*DXR11R32 . + R31R11*DXR31R12 . + R21R31*DXR21R32 . + R31R21*DXR31R22) . + DXREPLOC(21)*(R11R11*R21R22 . + R21R21*R11R12) . + REPLOC(21)*(DXR11R11*R21R22 . + DXR21R21*R11R12) . + REPLOC(21)*(R11R11*DXR21R22 . + R21R21*DXR11R12) . + DXREPLOC(22)*(R11R21*R11R22 . + R21R11*R21R12) . + REPLOC(22)*(DXR11R21*R11R22 . + DXR21R11*R21R12) . + REPLOC(22)*(R11R21*DXR11R22 . + R21R11*DXR21R12) DYREPIJ(5,6) = DYREPLOC(16)*R31R31*R31R32 . + REPLOC(16)*DYR31R31*R31R32 . + REPLOC(16)*R31R31*DYR31R32 . + DYREPLOC(17)*RADD01*R31R32 . + REPLOC(17)*DYRADD01*R31R32 . + REPLOC(17)*RADD01*DYR31R32 . + DYREPLOC(18)*RADD02*R31R31 . + REPLOC(18)*DYRADD02*R31R31 . + REPLOC(18)*RADD02*DYR31R31 . + DYREPLOC(19)*(R11R11*R11R12 . + R21R21*R21R22) . + REPLOC(19)*(DYR11R11*R11R12 . + DYR21R21*R21R22) . + REPLOC(19)*(R11R11*DYR11R12 . + R21R21*DYR21R22) DYREPIJ(5,6) = DYREPIJ(5,6) . + DYREPLOC(20)*(R11R31*R11R32 . + R31R11*R31R12 . + R21R31*R21R32 . + R31R21*R31R22) . + REPLOC(20)*(DYR11R31*R11R32 . + DYR31R11*R31R12 . + DYR21R31*R21R32 . + DYR31R21*R31R22) . + REPLOC(20)*(R11R31*DYR11R32 . + R31R11*DYR31R12 . + R21R31*DYR21R32 . + R31R21*DYR31R22) . + DYREPLOC(21)*(R11R11*R21R22 . + R21R21*R11R12) . + REPLOC(21)*(DYR11R11*R21R22 . + DYR21R21*R11R12) . + REPLOC(21)*(R11R11*DYR21R22 . + R21R21*DYR11R12) . + DYREPLOC(22)*(R11R21*R11R22 . + R21R11*R21R12) . + REPLOC(22)*(DYR11R21*R11R22 . + DYR21R11*R21R12) . + REPLOC(22)*(R11R21*DYR11R22 . + R21R11*DYR21R12) DZREPIJ(5,6) = DZREPLOC(16)*R31R31*R31R32 . + REPLOC(16)*DZR31R31*R31R32 . + REPLOC(16)*R31R31*DZR31R32 . + DZREPLOC(17)*RADD01*R31R32 . + REPLOC(17)*DZRADD01*R31R32 . + REPLOC(17)*RADD01*DZR31R32 . + DZREPLOC(18)*RADD02*R31R31 . + REPLOC(18)*DZRADD02*R31R31 . + REPLOC(18)*RADD02*DZR31R31 . + DZREPLOC(19)*(R11R11*R11R12 . + R21R21*R21R22) . + REPLOC(19)*(DZR11R11*R11R12 . + DZR21R21*R21R22) . + REPLOC(19)*(R11R11*DZR11R12 . + R21R21*DZR21R22) . + DZREPLOC(20)*(R11R31*R11R32 . + R31R11*R31R12 . + R21R31*R21R32 . + R31R21*R31R22) DZREPIJ(5,6) =DZREPIJ(5,6) . + REPLOC(20)*(DZR11R31*R11R32 . + DZR31R11*R31R12 . + DZR21R31*R21R32 . + DZR31R21*R31R22) . + REPLOC(20)*(R11R31*DZR11R32 . + R31R11*DZR31R12 . + R21R31*DZR21R32 . + R31R21*DZR31R22) . + DZREPLOC(21)*(R11R11*R21R22 . + R21R21*R11R12) . + REPLOC(21)*(DZR11R11*R21R22 . + DZR21R21*R11R12) . + REPLOC(21)*(R11R11*DZR21R22 . + R21R21*DZR11R12) . + DZREPLOC(22)*(R11R21*R11R22 . + R21R11*R21R12) . + REPLOC(22)*(DZR11R21*R11R22 . + DZR21R11*R21R12) . + REPLOC(22)*(R11R21*DZR11R22 . + R21R11*DZR21R12) . C C (PX PY | PX PX): C REPIJ(6,5) = REPLOC(16)*R31R32*R31R31 . + REPLOC(17)*RADD02*R31R31 . + REPLOC(18)*RADD01*R31R32 . + REPLOC(19)*(R11R12*R11R11 . + R21R22*R21R21) . + REPLOC(20)*(RADD11*R11R31 . + RADD12*R21R31) . + REPLOC(21)*(R11R12*R21R21 . + R21R22*R11R11) . + REPLOC(22)*RADD17*R11R21 DXREPIJ(6,5) = DXREPLOC(16)*R31R32*R31R31 . + REPLOC(16)*DXR31R32*R31R31 . + REPLOC(16)*R31R32*DXR31R31 . + DXREPLOC(17)*RADD02*R31R31 . + REPLOC(17)*DXRADD02*R31R31 . + REPLOC(17)*RADD02*DXR31R31 . + DXREPLOC(18)*RADD01*R31R32 . + REPLOC(18)*DXRADD01*R31R32 . + REPLOC(18)*RADD01*DXR31R32 . + DXREPLOC(19)*(R11R12*R11R11 . + R21R22*R21R21) . + REPLOC(19)*(DXR11R12*R11R11 . + DXR21R22*R21R21) . + REPLOC(19)*(R11R12*DXR11R11 . + R21R22*DXR21R21) . + DXREPLOC(20)*(RADD11*R11R31 . + RADD12*R21R31) . + REPLOC(20)*(DXRADD11*R11R31 . + DXRADD12*R21R31) DXREPIJ(6,5)=DXREPIJ(6,5) . + REPLOC(20)*(RADD11*DXR11R31 . + RADD12*DXR21R31) . + DXREPLOC(21)*(R11R12*R21R21 . + R21R22*R11R11) . + REPLOC(21)*(DXR11R12*R21R21 . + DXR21R22*R11R11) . + REPLOC(21)*(R11R12*DXR21R21 . + R21R22*DXR11R11) . + DXREPLOC(22)*RADD17*R11R21 . + REPLOC(22)*DXRADD17*R11R21 . + REPLOC(22)*RADD17*DXR11R21 DYREPIJ(6,5) = DYREPLOC(16)*R31R32*R31R31 . + REPLOC(16)*DYR31R32*R31R31 . + REPLOC(16)*R31R32*DYR31R31 . + DYREPLOC(17)*RADD02*R31R31 . + REPLOC(17)*DYRADD02*R31R31 . + REPLOC(17)*RADD02*DYR31R31 . + DYREPLOC(18)*RADD01*R31R32 . + REPLOC(18)*DYRADD01*R31R32 . + REPLOC(18)*RADD01*DYR31R32 . + DYREPLOC(19)*(R11R12*R11R11 . + R21R22*R21R21) . + REPLOC(19)*(DYR11R12*R11R11 . + DYR21R22*R21R21) . + REPLOC(19)*(R11R12*DYR11R11 . + R21R22*DYR21R21) . + DYREPLOC(20)*(RADD11*R11R31 . + RADD12*R21R31) . + REPLOC(20)*(DYRADD11*R11R31 . + DYRADD12*R21R31) DYREPIJ(6,5)=DYREPIJ(6,5) . + REPLOC(20)*(RADD11*DYR11R31 . + RADD12*DYR21R31) . + DYREPLOC(21)*(R11R12*R21R21 . + R21R22*R11R11) . + REPLOC(21)*(DYR11R12*R21R21 . + DYR21R22*R11R11) . + REPLOC(21)*(R11R12*DYR21R21 . + R21R22*DYR11R11) . + DYREPLOC(22)*RADD17*R11R21 . + REPLOC(22)*DYRADD17*R11R21 . + REPLOC(22)*RADD17*DYR11R21 DZREPIJ(6,5) = DZREPLOC(16)*R31R32*R31R31 . + REPLOC(16)*DZR31R32*R31R31 . + REPLOC(16)*R31R32*DZR31R31 . + DZREPLOC(17)*RADD02*R31R31 . + REPLOC(17)*DZRADD02*R31R31 . + REPLOC(17)*RADD02*DZR31R31 . + DZREPLOC(18)*RADD01*R31R32 . + REPLOC(18)*DZRADD01*R31R32 . + REPLOC(18)*RADD01*DZR31R32 . + DZREPLOC(19)*(R11R12*R11R11 . + R21R22*R21R21) . + REPLOC(19)*(DZR11R12*R11R11 . + DZR21R22*R21R21) . + REPLOC(19)*(R11R12*DZR11R11 . + R21R22*DZR21R21) . + DZREPLOC(20)*(RADD11*R11R31 . + RADD12*R21R31) . + REPLOC(20)*(DZRADD11*R11R31 . + DZRADD12*R21R31) DZREPIJ(6,5)= DZREPIJ(6,5) . + REPLOC(20)*(RADD11*DZR11R31 . + RADD12*DZR21R31) . + DZREPLOC(21)*(R11R12*R21R21 . + R21R22*R11R11) . + REPLOC(21)*(DZR11R12*R21R21 . + DZR21R22*R11R11) . + REPLOC(21)*(R11R12*DZR21R21 . + R21R22*DZR11R11) . + DZREPLOC(22)*RADD17*R11R21 . + REPLOC(22)*DZRADD17*R11R21 . + REPLOC(22)*RADD17*DZR11R21 C C (PX PX | PX PZ): C REPIJ(5,7) = REPLOC(16)*R31R31*R31R33 . + REPLOC(17)*RADD01*R31R33 . + REPLOC(18)*RADD03*R31R31 . + REPLOC(19)*(R11R11*R11R13 . + R21R21*R21R23) . + REPLOC(20)*(R11R31*R11R33 . + R31R11*R31R13 . + R21R31*R21R33 . + R31R21*R31R23) . + REPLOC(21)*(R11R11*R21R23 . + R21R21*R11R13) . + REPLOC(22)*(R11R21*R11R23 . + R21R11*R21R13) DXREPIJ(5,7) = DXREPLOC(16)*R31R31*R31R33 . + REPLOC(16)*DXR31R31*R31R33 . + REPLOC(16)*R31R31*DXR31R33 . + DXREPLOC(17)*RADD01*R31R33 . + REPLOC(17)*DXRADD01*R31R33 . + REPLOC(17)*RADD01*DXR31R33 . + DXREPLOC(18)*RADD03*R31R31 . + REPLOC(18)*DXRADD03*R31R31 . + REPLOC(18)*RADD03*DXR31R31 . + DXREPLOC(19)*(R11R11*R11R13 . + R21R21*R21R23) . + REPLOC(19)*(DXR11R11*R11R13 . + DXR21R21*R21R23) . + REPLOC(19)*(R11R11*DXR11R13 . + R21R21*DXR21R23) . + DXREPLOC(20)*(R11R31*R11R33 . + R31R11*R31R13 . + R21R31*R21R33 . + R31R21*R31R23) DXREPIJ(5,7)=DXREPIJ(5,7) . + REPLOC(20)*(DXR11R31*R11R33 . + DXR31R11*R31R13 . + DXR21R31*R21R33 . + DXR31R21*R31R23) . + REPLOC(20)*(R11R31*DXR11R33 . + R31R11*DXR31R13 . + R21R31*DXR21R33 . + R31R21*DXR31R23) . + DXREPLOC(21)*(R11R11*R21R23 . + R21R21*R11R13) . + REPLOC(21)*(DXR11R11*R21R23 . + DXR21R21*R11R13) . + REPLOC(21)*(R11R11*DXR21R23 . + R21R21*DXR11R13) . + DXREPLOC(22)*(R11R21*R11R23 . + R21R11*R21R13) . + REPLOC(22)*(DXR11R21*R11R23 . + DXR21R11*R21R13) . + REPLOC(22)*(R11R21*DXR11R23 . + R21R11*DXR21R13) DYREPIJ(5,7) = DYREPLOC(16)*R31R31*R31R33 . + REPLOC(16)*DYR31R31*R31R33 . + REPLOC(16)*R31R31*DYR31R33 . + DYREPLOC(17)*RADD01*R31R33 . + REPLOC(17)*DYRADD01*R31R33 . + REPLOC(17)*RADD01*DYR31R33 . + DYREPLOC(18)*RADD03*R31R31 . + REPLOC(18)*DYRADD03*R31R31 . + REPLOC(18)*RADD03*DYR31R31 . + DYREPLOC(19)*(R11R11*R11R13 . + R21R21*R21R23) . + REPLOC(19)*(DYR11R11*R11R13 . + DYR21R21*R21R23) . + REPLOC(19)*(R11R11*DYR11R13 . + R21R21*DYR21R23) . + DYREPLOC(20)*(R11R31*R11R33 . + R31R11*R31R13 . + R21R31*R21R33 . + R31R21*R31R23) DYREPIJ(5,7)=DYREPIJ(5,7) . + REPLOC(20)*(DYR11R31*R11R33 . + DYR31R11*R31R13 . + DYR21R31*R21R33 . + DYR31R21*R31R23) . + REPLOC(20)*(R11R31*DYR11R33 . + R31R11*DYR31R13 . + R21R31*DYR21R33 . + R31R21*DYR31R23) . + DYREPLOC(21)*(R11R11*R21R23 . + R21R21*R11R13) . + REPLOC(21)*(DYR11R11*R21R23 . + DYR21R21*R11R13) . + REPLOC(21)*(R11R11*DYR21R23 . + R21R21*DYR11R13) . + DYREPLOC(22)*(R11R21*R11R23 . + R21R11*R21R13) . + REPLOC(22)*(DYR11R21*R11R23 . + DYR21R11*R21R13) . + REPLOC(22)*(R11R21*DYR11R23 . + R21R11*DYR21R13) DZREPIJ(5,7) = DZREPLOC(16)*R31R31*R31R33 . + REPLOC(16)*DZR31R31*R31R33 . + REPLOC(16)*R31R31*DZR31R33 . + DZREPLOC(17)*RADD01*R31R33 . + REPLOC(17)*DZRADD01*R31R33 . + REPLOC(17)*RADD01*DZR31R33 . + DZREPLOC(18)*RADD03*R31R31 . + REPLOC(18)*DZRADD03*R31R31 . + REPLOC(18)*RADD03*DZR31R31 . + DZREPLOC(19)*(R11R11*R11R13 . + R21R21*R21R23) . + REPLOC(19)*(DZR11R11*R11R13 . + DZR21R21*R21R23) . + REPLOC(19)*(R11R11*DZR11R13 . + R21R21*DZR21R23) . + DZREPLOC(20)*(R11R31*R11R33 . + R31R11*R31R13 . + R21R31*R21R33 . + R31R21*R31R23) DZREPIJ(5,7)= DZREPIJ(5,7) . + REPLOC(20)*(DZR11R31*R11R33 . + DZR31R11*R31R13 . + DZR21R31*R21R33 . + DZR31R21*R31R23) . + REPLOC(20)*(R11R31*DZR11R33 . + R31R11*DZR31R13 . + R21R31*DZR21R33 . + R31R21*DZR31R23) . + DZREPLOC(21)*(R11R11*R21R23 . + R21R21*R11R13) . + REPLOC(21)*(DZR11R11*R21R23 . + DZR21R21*R11R13) . + REPLOC(21)*(R11R11*DZR21R23 . + R21R21*DZR11R13) . + DZREPLOC(22)*(R11R21*R11R23 . + R21R11*R21R13) . + REPLOC(22)*(DZR11R21*R11R23 . + DZR21R11*R21R13) . + REPLOC(22)*(R11R21*DZR11R23 . + R21R11*DZR21R13) C C (PX PZ | PX PX): C REPIJ(7,5) = REPLOC(16)*R31R33*R31R31 . + REPLOC(17)*RADD03*R31R31 . + REPLOC(18)*RADD01*R31R33 . + REPLOC(19)*(R11R13*R11R11 . + R21R23*R21R21) . + REPLOC(20)*(RADD09*R11R31 . +RADD10*R21R31) . + REPLOC(21)*(R11R13*R21R21 . + R21R23*R11R11) . + REPLOC(22)*RADD15*R11R21 DXREPIJ(7,5) = DXREPLOC(16)*R31R33*R31R31 . + REPLOC(16)*DXR31R33*R31R31 . + REPLOC(16)*R31R33*DXR31R31 . + DXREPLOC(17)*RADD03*R31R31 . + REPLOC(17)*DXRADD03*R31R31 . + REPLOC(17)*RADD03*DXR31R31 . + DXREPLOC(18)*RADD01*R31R33 . + REPLOC(18)*DXRADD01*R31R33 . + REPLOC(18)*RADD01*DXR31R33 . + DXREPLOC(19)*(R11R13*R11R11 . + R21R23*R21R21) . + REPLOC(19)*(DXR11R13*R11R11 . + DXR21R23*R21R21) . + REPLOC(19)*(R11R13*DXR11R11 . + R21R23*DXR21R21) DXREPIJ(7,5)=DXREPIJ(7,5) . + DXREPLOC(20)*(RADD09*R11R31 . +RADD10*R21R31) . + REPLOC(20)*(DXRADD09*R11R31 . +DXRADD10*R21R31) . + REPLOC(20)*(RADD09*DXR11R31 . +RADD10*DXR21R31) . + DXREPLOC(21)*(R11R13*R21R21 . + R21R23*R11R11) . + REPLOC(21)*(DXR11R13*R21R21 . + DXR21R23*R11R11) . + REPLOC(21)*(R11R13*DXR21R21 . + R21R23*DXR11R11) . + DXREPLOC(22)*RADD15*R11R21 . + REPLOC(22)*DXRADD15*R11R21 . + REPLOC(22)*RADD15*DXR11R21 DYREPIJ(7,5) = DYREPLOC(16)*R31R33*R31R31 . + REPLOC(16)*DYR31R33*R31R31 . + REPLOC(16)*R31R33*DYR31R31 . + DYREPLOC(17)*RADD03*R31R31 . + REPLOC(17)*DYRADD03*R31R31 . + REPLOC(17)*RADD03*DYR31R31 . + DYREPLOC(18)*RADD01*R31R33 . + REPLOC(18)*DYRADD01*R31R33 . + REPLOC(18)*RADD01*DYR31R33 . + DYREPLOC(19)*(R11R13*R11R11 . + R21R23*R21R21) . + REPLOC(19)*(DYR11R13*R11R11 . + DYR21R23*R21R21) . + REPLOC(19)*(R11R13*DYR11R11 . + R21R23*DYR21R21) DYREPIJ(7,5)=DYREPIJ(7,5) . + DYREPLOC(20)*(RADD09*R11R31 . +RADD10*R21R31) . + REPLOC(20)*(DYRADD09*R11R31 . +DYRADD10*R21R31) . + REPLOC(20)*(RADD09*DYR11R31 . +RADD10*DYR21R31) . + DYREPLOC(21)*(R11R13*R21R21 . + R21R23*R11R11) . + REPLOC(21)*(DYR11R13*R21R21 . + DYR21R23*R11R11) . + REPLOC(21)*(R11R13*DYR21R21 . + R21R23*DYR11R11) . + DYREPLOC(22)*RADD15*R11R21 . + REPLOC(22)*DYRADD15*R11R21 . + REPLOC(22)*RADD15*DYR11R21 DZREPIJ(7,5) = DZREPLOC(16)*R31R33*R31R31 . + REPLOC(16)*DZR31R33*R31R31 . + REPLOC(16)*R31R33*DZR31R31 . + DZREPLOC(17)*RADD03*R31R31 . + REPLOC(17)*DZRADD03*R31R31 . + REPLOC(17)*RADD03*DZR31R31 . + DZREPLOC(18)*RADD01*R31R33 . + REPLOC(18)*DZRADD01*R31R33 . + REPLOC(18)*RADD01*DZR31R33 . + DZREPLOC(19)*(R11R13*R11R11 . + R21R23*R21R21) . + REPLOC(19)*(DZR11R13*R11R11 . + DZR21R23*R21R21) . + REPLOC(19)*(R11R13*DZR11R11 . + R21R23*DZR21R21) DZREPIJ(7,5)=DZREPIJ(7,5) . + DZREPLOC(20)*(RADD09*R11R31 . +RADD10*R21R31) . + REPLOC(20)*(DZRADD09*R11R31 . +DZRADD10*R21R31) . + REPLOC(20)*(RADD09*DZR11R31 . +RADD10*DZR21R31) . + DZREPLOC(21)*(R11R13*R21R21 . + R21R23*R11R11) . + REPLOC(21)*(DZR11R13*R21R21 . + DZR21R23*R11R11) . + REPLOC(21)*(R11R13*DZR21R21 . + R21R23*DZR11R11) . + DZREPLOC(22)*RADD15*R11R21 . + REPLOC(22)*DZRADD15*R11R21 . + REPLOC(22)*RADD15*DZR11R21 C C (PX PX | PY PY): C REPIJ(5,8) = REPLOC(16)*R31R31*R32R32 . + REPLOC(17)*RADD01*R32R32 . + REPLOC(18)*RADD04*R31R31 . + REPLOC(19)*(R11R11*R12R12 . + R21R21*R22R22) . + REPLOC(20)*(R11R31*R12R32 . + R21R31*R22R32) . + REPLOC(21)*(R11R11*R22R22 . + R21R21*R12R12) . + REPLOC(22)*R11R21*R12R22 DXREPIJ(5,8) = DXREPLOC(16)*R31R31*R32R32 . + REPLOC(16)*DXR31R31*R32R32 . + REPLOC(16)*R31R31*DXR32R32 . + DXREPLOC(17)*RADD01*R32R32 . + REPLOC(17)*DXRADD01*R32R32 . + REPLOC(17)*RADD01*DXR32R32 . + DXREPLOC(18)*RADD04*R31R31 . + REPLOC(18)*DXRADD04*R31R31 . + REPLOC(18)*RADD04*DXR31R31 . + DXREPLOC(19)*(R11R11*R12R12 . + R21R21*R22R22) . + REPLOC(19)*(DXR11R11*R12R12 . + DXR21R21*R22R22) . + REPLOC(19)*(R11R11*DXR12R12 . + R21R21*DXR22R22) DXREPIJ(5,8)=DXREPIJ(5,8) . + DXREPLOC(20)*(R11R31*R12R32 . + R21R31*R22R32) . + REPLOC(20)*(DXR11R31*R12R32 . + DXR21R31*R22R32) . + REPLOC(20)*(R11R31*DXR12R32 . + R21R31*DXR22R32) . + DXREPLOC(21)*(R11R11*R22R22 . + R21R21*R12R12) . + REPLOC(21)*(DXR11R11*R22R22 . + DXR21R21*R12R12) . + REPLOC(21)*(R11R11*DXR22R22 . + R21R21*DXR12R12) . + DXREPLOC(22)*R11R21*R12R22 . + REPLOC(22)*DXR11R21*R12R22 . + REPLOC(22)*R11R21*DXR12R22 DYREPIJ(5,8) = DYREPLOC(16)*R31R31*R32R32 . + REPLOC(16)*DYR31R31*R32R32 . + REPLOC(16)*R31R31*DYR32R32 . + DYREPLOC(17)*RADD01*R32R32 . + REPLOC(17)*DYRADD01*R32R32 . + REPLOC(17)*RADD01*DYR32R32 . + DYREPLOC(18)*RADD04*R31R31 . + REPLOC(18)*DYRADD04*R31R31 . + REPLOC(18)*RADD04*DYR31R31 . + DYREPLOC(19)*(R11R11*R12R12 . + R21R21*R22R22) . + REPLOC(19)*(DYR11R11*R12R12 . + DYR21R21*R22R22) . + REPLOC(19)*(R11R11*DYR12R12 . + R21R21*DYR22R22) DYREPIJ(5,8)=DYREPIJ(5,8) . + DYREPLOC(20)*(R11R31*R12R32 . + R21R31*R22R32) . + REPLOC(20)*(DYR11R31*R12R32 . + DYR21R31*R22R32) . + REPLOC(20)*(R11R31*DYR12R32 . + R21R31*DYR22R32) . + DYREPLOC(21)*(R11R11*R22R22 . + R21R21*R12R12) . + REPLOC(21)*(DYR11R11*R22R22 . + DYR21R21*R12R12) . + REPLOC(21)*(R11R11*DYR22R22 . + R21R21*DYR12R12) . + DYREPLOC(22)*R11R21*R12R22 . + REPLOC(22)*DYR11R21*R12R22 . + REPLOC(22)*R11R21*DYR12R22 DZREPIJ(5,8) = DZREPLOC(16)*R31R31*R32R32 . + REPLOC(16)*DZR31R31*R32R32 . + REPLOC(16)*R31R31*DZR32R32 . + DZREPLOC(17)*RADD01*R32R32 . + REPLOC(17)*DZRADD01*R32R32 . + REPLOC(17)*RADD01*DZR32R32 . + DZREPLOC(18)*RADD04*R31R31 . + REPLOC(18)*DZRADD04*R31R31 . + REPLOC(18)*RADD04*DZR31R31 . + DZREPLOC(19)*(R11R11*R12R12 . + R21R21*R22R22) . + REPLOC(19)*(DZR11R11*R12R12 . + DZR21R21*R22R22) . + REPLOC(19)*(R11R11*DZR12R12 . + R21R21*DZR22R22) DZREPIJ(5,8)=DZREPIJ(5,8) . + DZREPLOC(20)*(R11R31*R12R32 . + R21R31*R22R32) . + REPLOC(20)*(DZR11R31*R12R32 . + DZR21R31*R22R32) . + REPLOC(20)*(R11R31*DZR12R32 . + R21R31*DZR22R32) . + DZREPLOC(21)*(R11R11*R22R22 . + R21R21*R12R12) . + REPLOC(21)*(DZR11R11*R22R22 . + DZR21R21*R12R12) . + REPLOC(21)*(R11R11*DZR22R22 . + R21R21*DZR12R12) . + DZREPLOC(22)*R11R21*R12R22 . + REPLOC(22)*DZR11R21*R12R22 . + REPLOC(22)*R11R21*DZR12R22 C C (PY PY | PX PX): C REPIJ(8,5) = REPLOC(16)*R32R32*R31R31 . + REPLOC(17)*RADD04*R31R31 . + REPLOC(18)*RADD01*R32R32 . + REPLOC(19)*(R12R12*R11R11 . + R22R22*R21R21) . + REPLOC(20)*(R12R32*R11R31 . + R22R32*R21R31) . + REPLOC(21)*(R12R12*R21R21 . + R22R22*R11R11) . + REPLOC(22)*R12R22*R11R21 DXREPIJ(8,5) = DXREPLOC(16)*R32R32*R31R31 . + REPLOC(16)*DXR32R32*R31R31 . + REPLOC(16)*R32R32*DXR31R31 . + DXREPLOC(17)*RADD04*R31R31 . + REPLOC(17)*DXRADD04*R31R31 . + REPLOC(17)*RADD04*DXR31R31 . + DXREPLOC(18)*RADD01*R32R32 . + REPLOC(18)*DXRADD01*R32R32 . + REPLOC(18)*RADD01*DXR32R32 . + DXREPLOC(19)*(R12R12*R11R11 . + R22R22*R21R21) . + REPLOC(19)*(DXR12R12*R11R11 . + DXR22R22*R21R21) . + REPLOC(19)*(R12R12*DXR11R11 . + R22R22*DXR21R21) DXREPIJ(8,5)=DXREPIJ(8,5) . + DXREPLOC(20)*(R12R32*R11R31 . + R22R32*R21R31) . + REPLOC(20)*(DXR12R32*R11R31 . + DXR22R32*R21R31) . + REPLOC(20)*(R12R32*DXR11R31 . + R22R32*DXR21R31) . + DXREPLOC(21)*(R12R12*R21R21 . + R22R22*R11R11) . + REPLOC(21)*(DXR12R12*R21R21 . + DXR22R22*R11R11) . + REPLOC(21)*(R12R12*DXR21R21 . + R22R22*DXR11R11) . + DXREPLOC(22)*R12R22*R11R21 . + REPLOC(22)*DXR12R22*R11R21 . + REPLOC(22)*R12R22*DXR11R21 DYREPIJ(8,5) = DYREPLOC(16)*R32R32*R31R31 . + REPLOC(16)*DYR32R32*R31R31 . + REPLOC(16)*R32R32*DYR31R31 . + DYREPLOC(17)*RADD04*R31R31 . + REPLOC(17)*DYRADD04*R31R31 . + REPLOC(17)*RADD04*DYR31R31 . + DYREPLOC(18)*RADD01*R32R32 . + REPLOC(18)*DYRADD01*R32R32 . + REPLOC(18)*RADD01*DYR32R32 . + DYREPLOC(19)*(R12R12*R11R11 . + R22R22*R21R21) . + REPLOC(19)*(DYR12R12*R11R11 . + DYR22R22*R21R21) . + REPLOC(19)*(R12R12*DYR11R11 . + R22R22*DYR21R21) DYREPIJ(8,5)=DYREPIJ(8,5) . + DYREPLOC(20)*(R12R32*R11R31 . + R22R32*R21R31) . + REPLOC(20)*(DYR12R32*R11R31 . + DYR22R32*R21R31) . + REPLOC(20)*(R12R32*DYR11R31 . + R22R32*DYR21R31) . + DYREPLOC(21)*(R12R12*R21R21 . + R22R22*R11R11) . + REPLOC(21)*(DYR12R12*R21R21 . + DYR22R22*R11R11) . + REPLOC(21)*(R12R12*DYR21R21 . + R22R22*DYR11R11) . + DYREPLOC(22)*R12R22*R11R21 . + REPLOC(22)*DYR12R22*R11R21 . + REPLOC(22)*R12R22*DYR11R21 DZREPIJ(8,5) = DZREPLOC(16)*R32R32*R31R31 . + REPLOC(16)*DZR32R32*R31R31 . + REPLOC(16)*R32R32*DZR31R31 . + DZREPLOC(17)*RADD04*R31R31 . + REPLOC(17)*DZRADD04*R31R31 . + REPLOC(17)*RADD04*DZR31R31 . + DZREPLOC(18)*RADD01*R32R32 . + REPLOC(18)*DZRADD01*R32R32 . + REPLOC(18)*RADD01*DZR32R32 . + DZREPLOC(19)*(R12R12*R11R11 . + R22R22*R21R21) . + REPLOC(19)*(DZR12R12*R11R11 . + DZR22R22*R21R21) . + REPLOC(19)*(R12R12*DZR11R11 . + R22R22*DZR21R21) DZREPIJ(8,5)= DZREPIJ(8,5) . + DZREPLOC(20)*(R12R32*R11R31 . + R22R32*R21R31) . + REPLOC(20)*(DZR12R32*R11R31 . + DZR22R32*R21R31) . + REPLOC(20)*(R12R32*DZR11R31 . + R22R32*DZR21R31) . + DZREPLOC(21)*(R12R12*R21R21 . + R22R22*R11R11) . + REPLOC(21)*(DZR12R12*R21R21 . + DZR22R22*R11R11) . + REPLOC(21)*(R12R12*DZR21R21 . + R22R22*DZR11R11) . + DZREPLOC(22)*R12R22*R11R21 . + REPLOC(22)*DZR12R22*R11R21 . + REPLOC(22)*R12R22*DZR11R21 C C (PX PX | PY PZ): C REPIJ(5,9) = REPLOC(16)*R31R31*R32R33 . + REPLOC(17)*RADD01*R32R33 . + REPLOC(18)*RADD05*R31R31 . + REPLOC(19)*(R11R11*R12R13 . + R21R21*R22R23) . + REPLOC(20)*(R11R31*R12R33 . + R31R11*R32R13 . + R21R31*R22R33 . + R31R21*R32R23) . + REPLOC(21)*(R11R11*R22R23 . + R21R21*R12R13) . + REPLOC(22)*(R11R21*R12R23 . + R21R11*R22R13) DXREPIJ(5,9) = DXREPLOC(16)*R31R31*R32R33 . + REPLOC(16)*DXR31R31*R32R33 . + REPLOC(16)*R31R31*DXR32R33 . + DXREPLOC(17)*RADD01*R32R33 . + REPLOC(17)*DXRADD01*R32R33 . + REPLOC(17)*RADD01*DXR32R33 . + DXREPLOC(18)*RADD05*R31R31 . + REPLOC(18)*DXRADD05*R31R31 . + REPLOC(18)*RADD05*DXR31R31 . + DXREPLOC(19)*(R11R11*R12R13 . + R21R21*R22R23) . + REPLOC(19)*(DXR11R11*R12R13 . + DXR21R21*R22R23) . + REPLOC(19)*(R11R11*DXR12R13 . + R21R21*DXR22R23) . + DXREPLOC(20)*(R11R31*R12R33 . + R31R11*R32R13 . + R21R31*R22R33 . + R31R21*R32R23) DXREPIJ(5,9)=DXREPIJ(5,9) . + REPLOC(20)*(DXR11R31*R12R33 . + DXR31R11*R32R13 . + DXR21R31*R22R33 . + DXR31R21*R32R23) . + REPLOC(20)*(R11R31*DXR12R33 . + R31R11*DXR32R13 . + R21R31*DXR22R33 . + R31R21*DXR32R23) . + DXREPLOC(21)*(R11R11*R22R23 . + R21R21*R12R13) . + REPLOC(21)*(DXR11R11*R22R23 . + DXR21R21*R12R13) . + REPLOC(21)*(R11R11*DXR22R23 . + R21R21*DXR12R13) . + DXREPLOC(22)*(R11R21*R12R23 . + R21R11*R22R13) . + REPLOC(22)*(DXR11R21*R12R23 . + DXR21R11*R22R13) . + REPLOC(22)*(R11R21*DXR12R23 . + R21R11*DXR22R13) DYREPIJ(5,9) = DYREPLOC(16)*R31R31*R32R33 . + REPLOC(16)*DYR31R31*R32R33 . + REPLOC(16)*R31R31*DYR32R33 . + DYREPLOC(17)*RADD01*R32R33 . + REPLOC(17)*DYRADD01*R32R33 . + REPLOC(17)*RADD01*DYR32R33 . + DYREPLOC(18)*RADD05*R31R31 . + REPLOC(18)*DYRADD05*R31R31 . + REPLOC(18)*RADD05*DYR31R31 . + DYREPLOC(19)*(R11R11*R12R13 . + R21R21*R22R23) . + REPLOC(19)*(DYR11R11*R12R13 . + DYR21R21*R22R23) . + REPLOC(19)*(R11R11*DYR12R13 . + R21R21*DYR22R23) . + DYREPLOC(20)*(R11R31*R12R33 . + R31R11*R32R13 . + R21R31*R22R33 . + R31R21*R32R23) DYREPIJ(5,9)=DYREPIJ(5,9) . + REPLOC(20)*(DYR11R31*R12R33 . + DYR31R11*R32R13 . + DYR21R31*R22R33 . + DYR31R21*R32R23) . + REPLOC(20)*(R11R31*DYR12R33 . + R31R11*DYR32R13 . + R21R31*DYR22R33 . + R31R21*DYR32R23) . + DYREPLOC(21)*(R11R11*R22R23 . + R21R21*R12R13) . + REPLOC(21)*(DYR11R11*R22R23 . + DYR21R21*R12R13) . + REPLOC(21)*(R11R11*DYR22R23 . + R21R21*DYR12R13) . + DYREPLOC(22)*(R11R21*R12R23 . + R21R11*R22R13) . + REPLOC(22)*(DYR11R21*R12R23 . + DYR21R11*R22R13) . + REPLOC(22)*(R11R21*DYR12R23 . + R21R11*DYR22R13) DZREPIJ(5,9) = DZREPLOC(16)*R31R31*R32R33 . + REPLOC(16)*DZR31R31*R32R33 . + REPLOC(16)*R31R31*DZR32R33 . + DZREPLOC(17)*RADD01*R32R33 . + REPLOC(17)*DZRADD01*R32R33 . + REPLOC(17)*RADD01*DZR32R33 . + DZREPLOC(18)*RADD05*R31R31 . + REPLOC(18)*DZRADD05*R31R31 . + REPLOC(18)*RADD05*DZR31R31 . + DZREPLOC(19)*(R11R11*R12R13 . + R21R21*R22R23) . + REPLOC(19)*(DZR11R11*R12R13 . + DZR21R21*R22R23) . + REPLOC(19)*(R11R11*DZR12R13 . + R21R21*DZR22R23) . + DZREPLOC(20)*(R11R31*R12R33 . + R31R11*R32R13 . + R21R31*R22R33 . + R31R21*R32R23) DZREPIJ(5,9)=DZREPIJ(5,9) . + REPLOC(20)*(DZR11R31*R12R33 . + DZR31R11*R32R13 . + DZR21R31*R22R33 . + DZR31R21*R32R23) . + REPLOC(20)*(R11R31*DZR12R33 . + R31R11*DZR32R13 . + R21R31*DZR22R33 . + R31R21*DZR32R23) . + DZREPLOC(21)*(R11R11*R22R23 . + R21R21*R12R13) . + REPLOC(21)*(DZR11R11*R22R23 . + DZR21R21*R12R13) . + REPLOC(21)*(R11R11*DZR22R23 . + R21R21*DZR12R13) . + DZREPLOC(22)*(R11R21*R12R23 . + R21R11*R22R13) . + REPLOC(22)*(DZR11R21*R12R23 . + DZR21R11*R22R13) . + REPLOC(22)*(R11R21*DZR12R23 . + R21R11*DZR22R13) C C (PY PZ | PX PX): C REPIJ(9,5) = REPLOC(16)*R32R33*R31R31 . + REPLOC(17)*RADD05*R31R31 . + REPLOC(18)*RADD01*R32R33 . + REPLOC(19)*(R12R13*R11R11 . + R22R23*R21R21) . + REPLOC(20)*(RADD13*R11R31 . + RADD14*R21R31) . + REPLOC(21)*(R12R13*R21R21 . + R22R23*R11R11) . + REPLOC(22)*RADD16*R11R21 DXREPIJ(9,5) = DXREPLOC(16)*R32R33*R31R31 . + REPLOC(16)*DXR32R33*R31R31 . + REPLOC(16)*R32R33*DXR31R31 . + DXREPLOC(17)*RADD05*R31R31 . + REPLOC(17)*DXRADD05*R31R31 . + REPLOC(17)*RADD05*DXR31R31 . + DXREPLOC(18)*RADD01*R32R33 . + REPLOC(18)*DXRADD01*R32R33 . + REPLOC(18)*RADD01*DXR32R33 . + DXREPLOC(19)*(R12R13*R11R11 . + R22R23*R21R21) . + REPLOC(19)*(DXR12R13*R11R11 . + DXR22R23*R21R21) . + REPLOC(19)*(R12R13*DXR11R11 . + R22R23*DXR21R21) DXREPIJ(9,5)=DXREPIJ(9,5) . + DXREPLOC(20)*(RADD13*R11R31 . + RADD14*R21R31) . + REPLOC(20)*(DXRADD13*R11R31 . + DXRADD14*R21R31) . + REPLOC(20)*(RADD13*DXR11R31 . + RADD14*DXR21R31) . + DXREPLOC(21)*(R12R13*R21R21 . + R22R23*R11R11) . + REPLOC(21)*(DXR12R13*R21R21 . + DXR22R23*R11R11) . + REPLOC(21)*(R12R13*DXR21R21 . + R22R23*DXR11R11) . + DXREPLOC(22)*RADD16*R11R21 . + REPLOC(22)*DXRADD16*R11R21 . + REPLOC(22)*RADD16*DXR11R21 DYREPIJ(9,5) = DYREPLOC(16)*R32R33*R31R31 . + REPLOC(16)*DYR32R33*R31R31 . + REPLOC(16)*R32R33*DYR31R31 . + DYREPLOC(17)*RADD05*R31R31 . + REPLOC(17)*DYRADD05*R31R31 . + REPLOC(17)*RADD05*DYR31R31 . + DYREPLOC(18)*RADD01*R32R33 . + REPLOC(18)*DYRADD01*R32R33 . + REPLOC(18)*RADD01*DYR32R33 . + DYREPLOC(19)*(R12R13*R11R11 . + R22R23*R21R21) . + REPLOC(19)*(DYR12R13*R11R11 . + DYR22R23*R21R21) . + REPLOC(19)*(R12R13*DYR11R11 . + R22R23*DYR21R21) DYREPIJ(9,5)=DYREPIJ(9,5) . + DYREPLOC(20)*(RADD13*R11R31 . + RADD14*R21R31) . + REPLOC(20)*(DYRADD13*R11R31 . + DYRADD14*R21R31) . + REPLOC(20)*(RADD13*DYR11R31 . + RADD14*DYR21R31) . + DYREPLOC(21)*(R12R13*R21R21 . + R22R23*R11R11) . + REPLOC(21)*(DYR12R13*R21R21 . + DYR22R23*R11R11) . + REPLOC(21)*(R12R13*DYR21R21 . + R22R23*DYR11R11) . + DYREPLOC(22)*RADD16*R11R21 . + REPLOC(22)*DYRADD16*R11R21 . + REPLOC(22)*RADD16*DYR11R21 DZREPIJ(9,5) = DZREPLOC(16)*R32R33*R31R31 . + REPLOC(16)*DZR32R33*R31R31 . + REPLOC(16)*R32R33*DZR31R31 . + DZREPLOC(17)*RADD05*R31R31 . + REPLOC(17)*DZRADD05*R31R31 . + REPLOC(17)*RADD05*DZR31R31 . + DZREPLOC(18)*RADD01*R32R33 . + REPLOC(18)*DZRADD01*R32R33 . + REPLOC(18)*RADD01*DZR32R33 . + DZREPLOC(19)*(R12R13*R11R11 . + R22R23*R21R21) . + REPLOC(19)*(DZR12R13*R11R11 . + DZR22R23*R21R21) . + REPLOC(19)*(R12R13*DZR11R11 . + R22R23*DZR21R21) DZREPIJ(9,5)=DZREPIJ(9,5) . + DZREPLOC(20)*(RADD13*R11R31 . + RADD14*R21R31) . + REPLOC(20)*(DZRADD13*R11R31 . + DZRADD14*R21R31) . + REPLOC(20)*(RADD13*DZR11R31 . + RADD14*DZR21R31) . + DZREPLOC(21)*(R12R13*R21R21 . + R22R23*R11R11) . + REPLOC(21)*(DZR12R13*R21R21 . + DZR22R23*R11R11) . + REPLOC(21)*(R12R13*DZR21R21 . + R22R23*DZR11R11) . + DZREPLOC(22)*RADD16*R11R21 . + REPLOC(22)*DZRADD16*R11R21 . + REPLOC(22)*RADD16*DZR11R21 C C (PX PX | PZ PZ): C REPIJ(5,10) = REPLOC(16)*R31R31*R33R33 . + REPLOC(17)*RADD01*R33R33 . + REPLOC(18)*RADD06*R31R31 . + REPLOC(19)*(R11R11*R13R13 . + R21R21*R23R23) . + REPLOC(20)*(R11R31*R13R33 . + R21R31*R23R33) . + REPLOC(21)*(R11R11*R23R23 . + R21R21*R13R13) . + REPLOC(22)*R11R21*R13R23 DXREPIJ(5,10) = DXREPLOC(16)*R31R31*R33R33 . + REPLOC(16)*DXR31R31*R33R33 . + REPLOC(16)*R31R31*DXR33R33 . + DXREPLOC(17)*RADD01*R33R33 . + REPLOC(17)*DXRADD01*R33R33 . + REPLOC(17)*RADD01*DXR33R33 . + DXREPLOC(18)*RADD06*R31R31 . + REPLOC(18)*DXRADD06*R31R31 . + REPLOC(18)*RADD06*DXR31R31 . + DXREPLOC(19)*(R11R11*R13R13 . + R21R21*R23R23) . + REPLOC(19)*(DXR11R11*R13R13 . + DXR21R21*R23R23) . + REPLOC(19)*(R11R11*DXR13R13 . + R21R21*DXR23R23) DXREPIJ(5,10)=DXREPIJ(5,10) . + DXREPLOC(20)*(R11R31*R13R33 . + R21R31*R23R33) . + REPLOC(20)*(DXR11R31*R13R33 . + DXR21R31*R23R33) . + REPLOC(20)*(R11R31*DXR13R33 . + R21R31*DXR23R33) . + DXREPLOC(21)*(R11R11*R23R23 . + R21R21*R13R13) . + REPLOC(21)*(DXR11R11*R23R23 . + DXR21R21*R13R13) . + REPLOC(21)*(R11R11*DXR23R23 . + R21R21*DXR13R13) . + DXREPLOC(22)*R11R21*R13R23 . + REPLOC(22)*DXR11R21*R13R23 . + REPLOC(22)*R11R21*DXR13R23 DYREPIJ(5,10) = DYREPLOC(16)*R31R31*R33R33 . + REPLOC(16)*DYR31R31*R33R33 . + REPLOC(16)*R31R31*DYR33R33 . + DYREPLOC(17)*RADD01*R33R33 . + REPLOC(17)*DYRADD01*R33R33 . + REPLOC(17)*RADD01*DYR33R33 . + DYREPLOC(18)*RADD06*R31R31 . + REPLOC(18)*DYRADD06*R31R31 . + REPLOC(18)*RADD06*DYR31R31 . + DYREPLOC(19)*(R11R11*R13R13 . + R21R21*R23R23) . + REPLOC(19)*(DYR11R11*R13R13 . + DYR21R21*R23R23) . + REPLOC(19)*(R11R11*DYR13R13 . + R21R21*DYR23R23) DYREPIJ(5,10)=DYREPIJ(5,10) . + DYREPLOC(20)*(R11R31*R13R33 . + R21R31*R23R33) . + REPLOC(20)*(DYR11R31*R13R33 . + DYR21R31*R23R33) . + REPLOC(20)*(R11R31*DYR13R33 . + R21R31*DYR23R33) . + DYREPLOC(21)*(R11R11*R23R23 . + R21R21*R13R13) . + REPLOC(21)*(DYR11R11*R23R23 . + DYR21R21*R13R13) . + REPLOC(21)*(R11R11*DYR23R23 . + R21R21*DYR13R13) . + DYREPLOC(22)*R11R21*R13R23 . + REPLOC(22)*DYR11R21*R13R23 . + REPLOC(22)*R11R21*DYR13R23 DZREPIJ(5,10) = DZREPLOC(16)*R31R31*R33R33 . + REPLOC(16)*DZR31R31*R33R33 . + REPLOC(16)*R31R31*DZR33R33 . + DZREPLOC(17)*RADD01*R33R33 . + REPLOC(17)*DZRADD01*R33R33 . + REPLOC(17)*RADD01*DZR33R33 . + DZREPLOC(18)*RADD06*R31R31 . + REPLOC(18)*DZRADD06*R31R31 . + REPLOC(18)*RADD06*DZR31R31 . + DZREPLOC(19)*(R11R11*R13R13 . + R21R21*R23R23) . + REPLOC(19)*(DZR11R11*R13R13 . + DZR21R21*R23R23) . + REPLOC(19)*(R11R11*DZR13R13 . + R21R21*DZR23R23) DZREPIJ(5,10)=DZREPIJ(5,10) . + DZREPLOC(20)*(R11R31*R13R33 . + R21R31*R23R33) . + REPLOC(20)*(DZR11R31*R13R33 . + DZR21R31*R23R33) . + REPLOC(20)*(R11R31*DZR13R33 . + R21R31*DZR23R33) . + DZREPLOC(21)*(R11R11*R23R23 . + R21R21*R13R13) . + REPLOC(21)*(DZR11R11*R23R23 . + DZR21R21*R13R13) . + REPLOC(21)*(R11R11*DZR23R23 . + R21R21*DZR13R13) . + DZREPLOC(22)*R11R21*R13R23 . + REPLOC(22)*DZR11R21*R13R23 . + REPLOC(22)*R11R21*DZR13R23 C C (PZ PZ | PX PX): C REPIJ(10,5) = REPLOC(16)*R33R33*R31R31 . + REPLOC(17)*RADD06*R31R31 . + REPLOC(18)*RADD01*R33R33 . + REPLOC(19)*(R13R13*R11R11 . + R23R23*R21R21) . + REPLOC(20)*(R13R33*R11R31 . + R23R33*R21R31) . + REPLOC(21)*(R13R13*R21R21 . + R23R23*R11R11) . + REPLOC(22)*R13R23*R11R21 DXREPIJ(10,5) = DXREPLOC(16)*R33R33*R31R31 . + REPLOC(16)*DXR33R33*R31R31 . + REPLOC(16)*R33R33*DXR31R31 . + DXREPLOC(17)*RADD06*R31R31 . + REPLOC(17)*DXRADD06*R31R31 . + REPLOC(17)*RADD06*DXR31R31 . + DXREPLOC(18)*RADD01*R33R33 . + REPLOC(18)*DXRADD01*R33R33 . + REPLOC(18)*RADD01*DXR33R33 . + DXREPLOC(19)*(R13R13*R11R11 . + R23R23*R21R21) . + REPLOC(19)*(DXR13R13*R11R11 . + DXR23R23*R21R21) . + REPLOC(19)*(R13R13*DXR11R11 . + R23R23*DXR21R21) DXREPIJ(10,5)=DXREPIJ(10,5) . + DXREPLOC(20)*(R13R33*R11R31 . + R23R33*R21R31) . + REPLOC(20)*(DXR13R33*R11R31 . + DXR23R33*R21R31) . + REPLOC(20)*(R13R33*DXR11R31 . + R23R33*DXR21R31) . + DXREPLOC(21)*(R13R13*R21R21 . + R23R23*R11R11) . + REPLOC(21)*(DXR13R13*R21R21 . + DXR23R23*R11R11) . + REPLOC(21)*(R13R13*DXR21R21 . + R23R23*DXR11R11) . + DXREPLOC(22)*R13R23*R11R21 . + REPLOC(22)*DXR13R23*R11R21 . + REPLOC(22)*R13R23*DXR11R21 DYREPIJ(10,5) = DYREPLOC(16)*R33R33*R31R31 . + REPLOC(16)*DYR33R33*R31R31 . + REPLOC(16)*R33R33*DYR31R31 . + DYREPLOC(17)*RADD06*R31R31 . + REPLOC(17)*DYRADD06*R31R31 . + REPLOC(17)*RADD06*DYR31R31 . + DYREPLOC(18)*RADD01*R33R33 . + REPLOC(18)*DYRADD01*R33R33 . + REPLOC(18)*RADD01*DYR33R33 . + DYREPLOC(19)*(R13R13*R11R11 . + R23R23*R21R21) . + REPLOC(19)*(DYR13R13*R11R11 . + DYR23R23*R21R21) . + REPLOC(19)*(R13R13*DYR11R11 . + R23R23*DYR21R21) DYREPIJ(10,5)=DYREPIJ(10,5) . + DYREPLOC(20)*(R13R33*R11R31 . + R23R33*R21R31) . + REPLOC(20)*(DYR13R33*R11R31 . + DYR23R33*R21R31) . + REPLOC(20)*(R13R33*DYR11R31 . + R23R33*DYR21R31) . + DYREPLOC(21)*(R13R13*R21R21 . + R23R23*R11R11) . + REPLOC(21)*(DYR13R13*R21R21 . + DYR23R23*R11R11) . + REPLOC(21)*(R13R13*DYR21R21 . + R23R23*DYR11R11) . + DYREPLOC(22)*R13R23*R11R21 . + REPLOC(22)*DYR13R23*R11R21 . + REPLOC(22)*R13R23*DYR11R21 DZREPIJ(10,5) = DZREPLOC(16)*R33R33*R31R31 . + REPLOC(16)*DZR33R33*R31R31 . + REPLOC(16)*R33R33*DZR31R31 . + DZREPLOC(17)*RADD06*R31R31 . + REPLOC(17)*DZRADD06*R31R31 . + REPLOC(17)*RADD06*DZR31R31 . + DZREPLOC(18)*RADD01*R33R33 . + REPLOC(18)*DZRADD01*R33R33 . + REPLOC(18)*RADD01*DZR33R33 . + DZREPLOC(19)*(R13R13*R11R11 . + R23R23*R21R21) . + REPLOC(19)*(DZR13R13*R11R11 . + DZR23R23*R21R21) . + REPLOC(19)*(R13R13*DZR11R11 . + R23R23*DZR21R21) DZREPIJ(10,5)=DZREPIJ(10,5) . + DZREPLOC(20)*(R13R33*R11R31 . + R23R33*R21R31) . + REPLOC(20)*(DZR13R33*R11R31 . + DZR23R33*R21R31) . + REPLOC(20)*(R13R33*DZR11R31 . + R23R33*DZR21R31) . + DZREPLOC(21)*(R13R13*R21R21 . + R23R23*R11R11) . + REPLOC(21)*(DZR13R13*R21R21 . + DZR23R23*R11R11) . + REPLOC(21)*(R13R13*DZR21R21 . + R23R23*DZR11R11) . + DZREPLOC(22)*R13R23*R11R21 . + REPLOC(22)*DZR13R23*R11R21 . + REPLOC(22)*R13R23*DZR11R21 C C (PX PY | PX PY): C REPIJ(6,6) = REPLOC(16)*R31R32*R31R32 . + REPLOC(17)*RADD02*R31R32 . + REPLOC(18)*RADD02*R31R32 . + REPLOC(19)*(R11R12*R11R12 . + R21R22*R21R22) . + REPLOC(20)*(RADD11**2 . + RADD12**2) . + REPLOC(21)*2.0D0*R11R12*R21R22 . + REPLOC(22)*RADD17**2 DXREPIJ(6,6) = DXREPLOC(16)*R31R32*R31R32 . + REPLOC(16)*DXR31R32*R31R32 . + REPLOC(16)*R31R32*DXR31R32 . + DXREPLOC(17)*RADD02*R31R32 . + REPLOC(17)*DXRADD02*R31R32 . + REPLOC(17)*RADD02*DXR31R32 . + DXREPLOC(18)*RADD02*R31R32 . + REPLOC(18)*DXRADD02*R31R32 . + REPLOC(18)*RADD02*DXR31R32 . + DXREPLOC(19)*(R11R12*R11R12 . + R21R22*R21R22) . + REPLOC(19)*(DXR11R12*R11R12 . + DXR21R22*R21R22) DXREPIJ(6,6)=DXREPIJ(6,6) . + REPLOC(19)*(R11R12*DXR11R12 . + R21R22*DXR21R22) . + DXREPLOC(20)*(RADD11**2 . + RADD12**2) . + REPLOC(20)*2.0d0*(RADD11*DXRADD11 . + RADD12*DXRADD12) . + DXREPLOC(21)*2.0D0*R11R12*R21R22 . + REPLOC(21)*2.0D0*DXR11R12*R21R22 . + REPLOC(21)*2.0D0*R11R12*DXR21R22 . + DXREPLOC(22)*RADD17**2 . + REPLOC(22)*RADD17*DXRADD17*2.0d0 DYREPIJ(6,6) = DYREPLOC(16)*R31R32*R31R32 . + REPLOC(16)*DYR31R32*R31R32 . + REPLOC(16)*R31R32*DYR31R32 . + DYREPLOC(17)*RADD02*R31R32 . + REPLOC(17)*DYRADD02*R31R32 . + REPLOC(17)*RADD02*DYR31R32 . + DYREPLOC(18)*RADD02*R31R32 . + REPLOC(18)*DYRADD02*R31R32 . + REPLOC(18)*RADD02*DYR31R32 . + DYREPLOC(19)*(R11R12*R11R12 . + R21R22*R21R22) . + REPLOC(19)*(DYR11R12*R11R12 . + DYR21R22*R21R22) DYREPIJ(6,6)=DYREPIJ(6,6) . + REPLOC(19)*(R11R12*DYR11R12 . + R21R22*DYR21R22) . + DYREPLOC(20)*(RADD11**2 . + RADD12**2) . + REPLOC(20)*2.0d0*(RADD11*DYRADD11 . + RADD12*DYRADD12) . + DYREPLOC(21)*2.0D0*R11R12*R21R22 . + REPLOC(21)*2.0D0*DYR11R12*R21R22 . + REPLOC(21)*2.0D0*R11R12*DYR21R22 . + DYREPLOC(22)*RADD17**2 . + REPLOC(22)*2.0d0*RADD17*DYRADD17 . DZREPIJ(6,6) = DZREPLOC(16)*R31R32*R31R32 . + REPLOC(16)*DZR31R32*R31R32 . + REPLOC(16)*R31R32*DZR31R32 . + DZREPLOC(17)*RADD02*R31R32 . + REPLOC(17)*DZRADD02*R31R32 . + REPLOC(17)*RADD02*DZR31R32 . + DZREPLOC(18)*RADD02*R31R32 . + REPLOC(18)*DZRADD02*R31R32 . + REPLOC(18)*RADD02*DZR31R32 . + DZREPLOC(19)*(R11R12*R11R12 . + R21R22*R21R22) . + REPLOC(19)*(DZR11R12*R11R12 . + DZR21R22*R21R22) DZREPIJ(6,6)=DZREPIJ(6,6) . + REPLOC(19)*(R11R12*DZR11R12 . + R21R22*DZR21R22) . + DZREPLOC(20)*(RADD11**2 . + RADD12**2) . + REPLOC(20)*2.0d0*(RADD11*DZRADD11 . + RADD12*DZRADD12) . + DZREPLOC(21)*2.0D0*R11R12*R21R22 . + REPLOC(21)*2.0D0*DZR11R12*R21R22 . + REPLOC(21)*2.0D0*R11R12*DZR21R22 . + DZREPLOC(22)*RADD17**2 . + REPLOC(22)*2.0d0*RADD17*DZRADD17 C C (PX PY | PX PZ): C REPIJ(6,7) = REPLOC(16)*R31R32*R31R33 . + REPLOC(17)*RADD02*R31R33 . + REPLOC(18)*R31R32*RADD03 . + REPLOC(19)*(R11R12*R11R13 . + R21R22*R21R23) . + REPLOC(20)*(RADD11*RADD09 . + RADD12*RADD10) . + REPLOC(21)*(R11R12*R21R23 . + R21R22*R11R13) . + REPLOC(22)*RADD17*(R11R23+R21R13) DXREPIJ(6,7) = DXREPLOC(16)*R31R32*R31R33 . + REPLOC(16)*DXR31R32*R31R33 . + REPLOC(16)*R31R32*DXR31R33 . + DXREPLOC(17)*RADD02*R31R33 . + REPLOC(17)*DXRADD02*R31R33 . + REPLOC(17)*RADD02*DXR31R33 . + DXREPLOC(18)*R31R32*RADD03 . + REPLOC(18)*DXR31R32*RADD03 . + REPLOC(18)*R31R32*DXRADD03 . + DXREPLOC(19)*(R11R12*R11R13 . + R21R22*R21R23) . + REPLOC(19)*(DXR11R12*R11R13 . + DXR21R22*R21R23) . + REPLOC(19)*(R11R12*DXR11R13 . + R21R22*DXR21R23) DXREPIJ(6,7)=DXREPIJ(6,7) . + DXREPLOC(20)*(RADD11*RADD09 . + RADD12*RADD10) . + REPLOC(20)*(DXRADD11*RADD09 . + DXRADD12*RADD10) . + REPLOC(20)*(RADD11*DXRADD09 . + RADD12*DXRADD10) . + DXREPLOC(21)*(R11R12*R21R23 . + R21R22*R11R13) . + REPLOC(21)*(DXR11R12*R21R23 . + DXR21R22*R11R13) . + REPLOC(21)*(R11R12*DXR21R23 . + R21R22*DXR11R13) . + DXREPLOC(22)*RADD17*(R11R23+R21R13) . + REPLOC(22)*DXRADD17*(R11R23+R21R13) . + REPLOC(22)*RADD17*(DXR11R23+DXR21R13) DYREPIJ(6,7) = DYREPLOC(16)*R31R32*R31R33 . + REPLOC(16)*DYR31R32*R31R33 . + REPLOC(16)*R31R32*DYR31R33 . + DYREPLOC(17)*RADD02*R31R33 . + REPLOC(17)*DYRADD02*R31R33 . + REPLOC(17)*RADD02*DYR31R33 . + DYREPLOC(18)*R31R32*RADD03 . + REPLOC(18)*DYR31R32*RADD03 . + REPLOC(18)*R31R32*DYRADD03 . + DYREPLOC(19)*(R11R12*R11R13 . + R21R22*R21R23) . + REPLOC(19)*(DYR11R12*R11R13 . + DYR21R22*R21R23) . + REPLOC(19)*(R11R12*DYR11R13 . + R21R22*DYR21R23) DYREPIJ(6,7)=DYREPIJ(6,7) . + DYREPLOC(20)*(RADD11*RADD09 . + RADD12*RADD10) . + REPLOC(20)*(DYRADD11*RADD09 . + DYRADD12*RADD10) . + REPLOC(20)*(RADD11*DYRADD09 . + RADD12*DYRADD10) . + DYREPLOC(21)*(R11R12*R21R23 . + R21R22*R11R13) . + REPLOC(21)*(DYR11R12*R21R23 . + DYR21R22*R11R13) . + REPLOC(21)*(R11R12*DYR21R23 . + R21R22*DYR11R13) . + DYREPLOC(22)*RADD17*(R11R23+R21R13) . + REPLOC(22)*DYRADD17*(R11R23+R21R13) . + REPLOC(22)*RADD17*(DYR11R23+DYR21R13) DZREPIJ(6,7) = DZREPLOC(16)*R31R32*R31R33 . + REPLOC(16)*DZR31R32*R31R33 . + REPLOC(16)*R31R32*DZR31R33 . + DZREPLOC(17)*RADD02*R31R33 . + REPLOC(17)*DZRADD02*R31R33 . + REPLOC(17)*RADD02*DZR31R33 . + DZREPLOC(18)*R31R32*RADD03 . + REPLOC(18)*DZR31R32*RADD03 . + REPLOC(18)*R31R32*DZRADD03 . + DZREPLOC(19)*(R11R12*R11R13 . + R21R22*R21R23) . + REPLOC(19)*(DZR11R12*R11R13 . + DZR21R22*R21R23) . + REPLOC(19)*(R11R12*DZR11R13 . + R21R22*DZR21R23) DZREPIJ(6,7)=DZREPIJ(6,7) . + DZREPLOC(20)*(RADD11*RADD09 . + RADD12*RADD10) . + REPLOC(20)*(DZRADD11*RADD09 . + DZRADD12*RADD10) . + REPLOC(20)*(RADD11*DZRADD09 . + RADD12*DZRADD10) . + DZREPLOC(21)*(R11R12*R21R23 . + R21R22*R11R13) . + REPLOC(21)*(DZR11R12*R21R23 . + DZR21R22*R11R13) . + REPLOC(21)*(R11R12*DZR21R23 . + R21R22*DZR11R13) . + DZREPLOC(22)*RADD17*(R11R23+R21R13) . + REPLOC(22)*DZRADD17*(R11R23+R21R13) . + REPLOC(22)*RADD17*(DZR11R23+DZR21R13) C C (PX PZ | PX PY): C REPIJ(7,6) = REPIJ(6,7) DXREPIJ(7,6) = DXREPIJ(6,7) DYREPIJ(7,6) = DYREPIJ(6,7) DZREPIJ(7,6) = DZREPIJ(6,7) C C (PX PY | PY PY): C REPIJ(6,8) = REPLOC(16)*R31R32*R32R32 . + REPLOC(17)*RADD02*R32R32 . + REPLOC(18)*RADD04*R31R32 . + REPLOC(19)*(R11R12*R12R12 . + R21R22*R22R22) . + REPLOC(20)*(RADD11*R12R32 . + RADD12*R22R32) . + REPLOC(21)*(R11R12*R22R22 . + R21R22*R12R12) . + REPLOC(22)*RADD17*R12R22 DXREPIJ(6,8) = DXREPLOC(16)*R31R32*R32R32 . + REPLOC(16)*DXR31R32*R32R32 . + REPLOC(16)*R31R32*DXR32R32 . + DXREPLOC(17)*RADD02*R32R32 . + REPLOC(17)*DXRADD02*R32R32 . + REPLOC(17)*RADD02*DXR32R32 . + DXREPLOC(18)*RADD04*R31R32 . + REPLOC(18)*DXRADD04*R31R32 . + REPLOC(18)*RADD04*DXR31R32 . + DXREPLOC(19)*(R11R12*R12R12 . + R21R22*R22R22) . + REPLOC(19)*(DXR11R12*R12R12 . + DXR21R22*R22R22) . + REPLOC(19)*(R11R12*DXR12R12 . + R21R22*DXR22R22) DXREPIJ(6,8)=DXREPIJ(6,8) . + DXREPLOC(20)*(RADD11*R12R32 . + RADD12*R22R32) . + REPLOC(20)*(DXRADD11*R12R32 . + DXRADD12*R22R32) . + REPLOC(20)*(RADD11*DXR12R32 . + RADD12*DXR22R32) . + DXREPLOC(21)*(R11R12*R22R22 . + R21R22*R12R12) . + REPLOC(21)*(DXR11R12*R22R22 . + DXR21R22*R12R12) . + REPLOC(21)*(R11R12*DXR22R22 . + R21R22*DXR12R12) . + DXREPLOC(22)*RADD17*R12R22 . + REPLOC(22)*DXRADD17*R12R22 . + REPLOC(22)*RADD17*DXR12R22 DYREPIJ(6,8) = DYREPLOC(16)*R31R32*R32R32 . + REPLOC(16)*DYR31R32*R32R32 . + REPLOC(16)*R31R32*DYR32R32 . + DYREPLOC(17)*RADD02*R32R32 . + REPLOC(17)*DYRADD02*R32R32 . + REPLOC(17)*RADD02*DYR32R32 . + DYREPLOC(18)*RADD04*R31R32 . + REPLOC(18)*DYRADD04*R31R32 . + REPLOC(18)*RADD04*DYR31R32 . + DYREPLOC(19)*(R11R12*R12R12 . + R21R22*R22R22) . + REPLOC(19)*(DYR11R12*R12R12 . + DYR21R22*R22R22) . + REPLOC(19)*(R11R12*DYR12R12 . + R21R22*DYR22R22) DYREPIJ(6,8)=DYREPIJ(6,8) . + DYREPLOC(20)*(RADD11*R12R32 . + RADD12*R22R32) . + REPLOC(20)*(DYRADD11*R12R32 . + DYRADD12*R22R32) . + REPLOC(20)*(RADD11*DYR12R32 . + RADD12*DYR22R32) . + DYREPLOC(21)*(R11R12*R22R22 . + R21R22*R12R12) . + REPLOC(21)*(DYR11R12*R22R22 . + DYR21R22*R12R12) . + REPLOC(21)*(R11R12*DYR22R22 . + R21R22*DYR12R12) . + DYREPLOC(22)*RADD17*R12R22 . + REPLOC(22)*DYRADD17*R12R22 . + REPLOC(22)*RADD17*DYR12R22 DZREPIJ(6,8) = DZREPLOC(16)*R31R32*R32R32 . + REPLOC(16)*DZR31R32*R32R32 . + REPLOC(16)*R31R32*DZR32R32 . + DZREPLOC(17)*RADD02*R32R32 . + REPLOC(17)*DZRADD02*R32R32 . + REPLOC(17)*RADD02*DZR32R32 . + DZREPLOC(18)*RADD04*R31R32 . + REPLOC(18)*DZRADD04*R31R32 . + REPLOC(18)*RADD04*DZR31R32 . + DZREPLOC(19)*(R11R12*R12R12 . + R21R22*R22R22) . + REPLOC(19)*(DZR11R12*R12R12 . + DZR21R22*R22R22) . + REPLOC(19)*(R11R12*DZR12R12 . + R21R22*DZR22R22) DZREPIJ(6,8)=DZREPIJ(6,8) . + DZREPLOC(20)*(RADD11*R12R32 . + RADD12*R22R32) . + REPLOC(20)*(DZRADD11*R12R32 . + DZRADD12*R22R32) . + REPLOC(20)*(RADD11*DZR12R32 . + RADD12*DZR22R32) . + DZREPLOC(21)*(R11R12*R22R22 . + R21R22*R12R12) . + REPLOC(21)*(DZR11R12*R22R22 . + DZR21R22*R12R12) . + REPLOC(21)*(R11R12*DZR22R22 . + R21R22*DZR12R12) . + DZREPLOC(22)*RADD17*R12R22 . + REPLOC(22)*DZRADD17*R12R22 . + REPLOC(22)*RADD17*DZR12R22 C C (PY PY | PX PY): C REPIJ(8,6) = REPLOC(16)*R32R32*R31R32 . + REPLOC(17)*RADD04*R31R32 . + REPLOC(18)*RADD02*R32R32 . + REPLOC(19)*(R12R12*R11R12 . + R22R22*R21R22) . + REPLOC(20)*(R12R32*R11R32 . + R32R12*R31R12 . + R22R32*R21R32 . + R32R22*R31R22) . + REPLOC(21)*(R12R12*R21R22 . + R22R22*R11R12) . + REPLOC(22)*(R12R22*R11R22 . + R22R12*R21R12) DXREPIJ(8,6) = DXREPLOC(16)*R32R32*R31R32 . + REPLOC(16)*DXR32R32*R31R32 . + REPLOC(16)*R32R32*DXR31R32 . + DXREPLOC(17)*RADD04*R31R32 . + REPLOC(17)*DXRADD04*R31R32 . + REPLOC(17)*RADD04*DXR31R32 . + DXREPLOC(18)*RADD02*R32R32 . + REPLOC(18)*DXRADD02*R32R32 . + REPLOC(18)*RADD02*DXR32R32 . + DXREPLOC(19)*(R12R12*R11R12 . + R22R22*R21R22) . + REPLOC(19)*(DXR12R12*R11R12 . + DXR22R22*R21R22) . + REPLOC(19)*(R12R12*DXR11R12 . + R22R22*DXR21R22) . + DXREPLOC(20)*(R12R32*R11R32 . + R32R12*R31R12 . + R22R32*R21R32 . + R32R22*R31R22) DXREPIJ(8,6)=DXREPIJ(8,6) . + REPLOC(20)*(DXR12R32*R11R32 . + DXR32R12*R31R12 . + DXR22R32*R21R32 . + DXR32R22*R31R22) . + REPLOC(20)*(R12R32*DXR11R32 . + R32R12*DXR31R12 . + R22R32*DXR21R32 . + R32R22*DXR31R22) . + DXREPLOC(21)*(R12R12*R21R22 . + R22R22*R11R12) . + REPLOC(21)*(DXR12R12*R21R22 . + DXR22R22*R11R12) . + REPLOC(21)*(R12R12*DXR21R22 . + R22R22*DXR11R12) . + DXREPLOC(22)*(R12R22*R11R22+ R22R12*R21R12) . + REPLOC(22)*(DXR12R22*R11R22+ DXR22R12*R21R12) . + REPLOC(22)*(R12R22*DXR11R22+ R22R12*DXR21R12) DYREPIJ(8,6) = DYREPLOC(16)*R32R32*R31R32 . + REPLOC(16)*DYR32R32*R31R32 . + REPLOC(16)*R32R32*DYR31R32 . + DYREPLOC(17)*RADD04*R31R32 . + REPLOC(17)*DYRADD04*R31R32 . + REPLOC(17)*RADD04*DYR31R32 . + DYREPLOC(18)*RADD02*R32R32 . + REPLOC(18)*DYRADD02*R32R32 . + REPLOC(18)*RADD02*DYR32R32 . + DYREPLOC(19)*(R12R12*R11R12 . + R22R22*R21R22) . + REPLOC(19)*(DYR12R12*R11R12 . + DYR22R22*R21R22) . + REPLOC(19)*(R12R12*DYR11R12 . + R22R22*DYR21R22) . + DYREPLOC(20)*(R12R32*R11R32 . + R32R12*R31R12 . + R22R32*R21R32 . + R32R22*R31R22) DYREPIJ(8,6)=DYREPIJ(8,6) . + REPLOC(20)*(DYR12R32*R11R32 . + DYR32R12*R31R12 . + DYR22R32*R21R32 . + DYR32R22*R31R22) . + REPLOC(20)*(R12R32*DYR11R32 . + R32R12*DYR31R12 . + R22R32*DYR21R32 . + R32R22*DYR31R22) . + DYREPLOC(21)*(R12R12*R21R22 . + R22R22*R11R12) . + REPLOC(21)*(DYR12R12*R21R22 . + DYR22R22*R11R12) . + REPLOC(21)*(R12R12*DYR21R22 . + R22R22*DYR11R12) . + DYREPLOC(22)*(R12R22*R11R22+ R22R12*R21R12) . + REPLOC(22)*(DYR12R22*R11R22+ DYR22R12*R21R12) . + REPLOC(22)*(R12R22*DYR11R22+ R22R12*DYR21R12) DZREPIJ(8,6) = DZREPLOC(16)*R32R32*R31R32 . + REPLOC(16)*DZR32R32*R31R32 . + REPLOC(16)*R32R32*DZR31R32 . + DZREPLOC(17)*RADD04*R31R32 . + REPLOC(17)*DZRADD04*R31R32 . + REPLOC(17)*RADD04*DZR31R32 . + DZREPLOC(18)*RADD02*R32R32 . + REPLOC(18)*DZRADD02*R32R32 . + REPLOC(18)*RADD02*DZR32R32 . + DZREPLOC(19)*(R12R12*R11R12 . + R22R22*R21R22) . + REPLOC(19)*(DZR12R12*R11R12 . + DZR22R22*R21R22) . + REPLOC(19)*(R12R12*DZR11R12 . + R22R22*DZR21R22) . + DZREPLOC(20)*(R12R32*R11R32 . + R32R12*R31R12 . + R22R32*R21R32 . + R32R22*R31R22) DZREPIJ(8,6)= DZREPIJ(8,6) . + REPLOC(20)*(DZR12R32*R11R32 . + DZR32R12*R31R12 . + DZR22R32*R21R32 . + DZR32R22*R31R22) . + REPLOC(20)*(R12R32*DZR11R32 . + R32R12*DZR31R12 . + R22R32*DZR21R32 . + R32R22*DZR31R22) . + DZREPLOC(21)*(R12R12*R21R22 . + R22R22*R11R12) . + REPLOC(21)*(DZR12R12*R21R22 . + DZR22R22*R11R12) . + REPLOC(21)*(R12R12*DZR21R22 . + R22R22*DZR11R12) . + DZREPLOC(22)*(R12R22*R11R22+ R22R12*R21R12) . + REPLOC(22)*(DZR12R22*R11R22+ DZR22R12*R21R12) . + REPLOC(22)*(R12R22*DZR11R22+ R22R12*DZR21R12) C C (PX PY | PY PZ): C REPIJ(6,9) = REPLOC(16)*R31R32*R32R33 . + REPLOC(17)*RADD02*R32R33 . + REPLOC(18)*R31R32*RADD05 . + REPLOC(19)*(R11R12*R12R13 . + R21R22*R22R23) . + REPLOC(20)*(RADD11*RADD13 . + RADD12*RADD14) . + REPLOC(21)*(R11R12*R22R23 . + R21R22*R12R13) . + REPLOC(22)*RADD17*(R12R23+R22R13) DXREPIJ(6,9) = DXREPLOC(16)*R31R32*R32R33 . + REPLOC(16)*DXR31R32*R32R33 . + REPLOC(16)*R31R32*DXR32R33 . + DXREPLOC(17)*RADD02*R32R33 . + REPLOC(17)*DXRADD02*R32R33 . + REPLOC(17)*RADD02*DXR32R33 . + DXREPLOC(18)*R31R32*RADD05 . + REPLOC(18)*DXR31R32*RADD05 . + REPLOC(18)*R31R32*DXRADD05 . + DXREPLOC(19)*(R11R12*R12R13 . + R21R22*R22R23) . + REPLOC(19)*(DXR11R12*R12R13 . + DXR21R22*R22R23) . + REPLOC(19)*(R11R12*DXR12R13 . + R21R22*DXR22R23) DXREPIJ(6,9)=DXREPIJ(6,9) . + DXREPLOC(20)*(RADD11*RADD13 . + RADD12*RADD14) . + REPLOC(20)*(DXRADD11*RADD13 . + DXRADD12*RADD14) . + REPLOC(20)*(RADD11*DXRADD13 . + RADD12*DXRADD14) . + DXREPLOC(21)*(R11R12*R22R23 . + R21R22*R12R13) . + REPLOC(21)*(DXR11R12*R22R23 . + DXR21R22*R12R13) . + REPLOC(21)*(R11R12*DXR22R23 . + R21R22*DXR12R13) . + DXREPLOC(22)*RADD17*(R12R23+R22R13) . + REPLOC(22)*DXRADD17*(R12R23+R22R13) . + REPLOC(22)*RADD17*(DXR12R23+DXR22R13) DYREPIJ(6,9) = DYREPLOC(16)*R31R32*R32R33 . + REPLOC(16)*DYR31R32*R32R33 . + REPLOC(16)*R31R32*DYR32R33 . + DYREPLOC(17)*RADD02*R32R33 . + REPLOC(17)*DYRADD02*R32R33 . + REPLOC(17)*RADD02*DYR32R33 . + DYREPLOC(18)*R31R32*RADD05 . + REPLOC(18)*DYR31R32*RADD05 . + REPLOC(18)*R31R32*DYRADD05 . + DYREPLOC(19)*(R11R12*R12R13 . + R21R22*R22R23) . + REPLOC(19)*(DYR11R12*R12R13 . + DYR21R22*R22R23) . + REPLOC(19)*(R11R12*DYR12R13 . + R21R22*DYR22R23) DYREPIJ(6,9)=DYREPIJ(6,9) . + DYREPLOC(20)*(RADD11*RADD13 . + RADD12*RADD14) . + REPLOC(20)*(DYRADD11*RADD13 . + DYRADD12*RADD14) . + REPLOC(20)*(RADD11*DYRADD13 . + RADD12*DYRADD14) . + DYREPLOC(21)*(R11R12*R22R23 . + R21R22*R12R13) . + REPLOC(21)*(DYR11R12*R22R23 . + DYR21R22*R12R13) . + REPLOC(21)*(R11R12*DYR22R23 . + R21R22*DYR12R13) . + DYREPLOC(22)*RADD17*(R12R23+R22R13) . + REPLOC(22)*DYRADD17*(R12R23+R22R13) . + REPLOC(22)*RADD17*(DYR12R23+DYR22R13) DZREPIJ(6,9) = DZREPLOC(16)*R31R32*R32R33 . + REPLOC(16)*DZR31R32*R32R33 . + REPLOC(16)*R31R32*DZR32R33 . + DZREPLOC(17)*RADD02*R32R33 . + REPLOC(17)*DZRADD02*R32R33 . + REPLOC(17)*RADD02*DZR32R33 . + DZREPLOC(18)*R31R32*RADD05 . + REPLOC(18)*DZR31R32*RADD05 . + REPLOC(18)*R31R32*DZRADD05 . + DZREPLOC(19)*(R11R12*R12R13 . + R21R22*R22R23) . + REPLOC(19)*(DZR11R12*R12R13 . + DZR21R22*R22R23) . + REPLOC(19)*(R11R12*DZR12R13 . + R21R22*DZR22R23) DZREPIJ(6,9)=DZREPIJ(6,9) . + DZREPLOC(20)*(RADD11*RADD13 . + RADD12*RADD14) . + REPLOC(20)*(DZRADD11*RADD13 . + DZRADD12*RADD14) . + REPLOC(20)*(RADD11*DZRADD13 . + RADD12*DZRADD14) . + DZREPLOC(21)*(R11R12*R22R23 . + R21R22*R12R13) . + REPLOC(21)*(DZR11R12*R22R23 . + DZR21R22*R12R13) . + REPLOC(21)*(R11R12*DZR22R23 . + R21R22*DZR12R13) . + DZREPLOC(22)*RADD17*(R12R23+R22R13) . + REPLOC(22)*DZRADD17*(R12R23+R22R13) . + REPLOC(22)*RADD17*(DZR12R23+DZR22R13) C C (PY PZ | PX PY): C REPIJ(9,6) = REPIJ(6,9) DXREPIJ(9,6) = DXREPIJ(6,9) DYREPIJ(9,6) = DYREPIJ(6,9) DZREPIJ(9,6) = DZREPIJ(6,9) C C (PX PY | PZ PZ): C REPIJ(6,10) = REPLOC(16)*R31R32*R33R33 . + REPLOC(17)*RADD02*R33R33 . + REPLOC(18)*RADD06*R31R32 . + REPLOC(19)*(R11R12*R13R13 . + R21R22*R23R23) . + REPLOC(20)*(RADD11*R13R33 . + RADD12*R23R33) . + REPLOC(21)*(R11R12*R23R23 . + R21R22*R13R13) . + REPLOC(22)*RADD17*R13R23 DXREPIJ(6,10) = DXREPLOC(16)*R31R32*R33R33 . + REPLOC(16)*DXR31R32*R33R33 . + REPLOC(16)*R31R32*DXR33R33 . + DXREPLOC(17)*RADD02*R33R33 . + REPLOC(17)*DXRADD02*R33R33 . + REPLOC(17)*RADD02*DXR33R33 . + DXREPLOC(18)*RADD06*R31R32 . + REPLOC(18)*DXRADD06*R31R32 . + REPLOC(18)*RADD06*DXR31R32 . + DXREPLOC(19)*(R11R12*R13R13 . + R21R22*R23R23) . + REPLOC(19)*(DXR11R12*R13R13 . + DXR21R22*R23R23) . + REPLOC(19)*(R11R12*DXR13R13 . + R21R22*DXR23R23) . + DXREPLOC(20)*(RADD11*R13R33 . + RADD12*R23R33) . + REPLOC(20)*(DXRADD11*R13R33 . + DXRADD12*R23R33) . + REPLOC(20)*(RADD11*DXR13R33 . + RADD12*DXR23R33) . + DXREPLOC(21)*(R11R12*R23R23 . + R21R22*R13R13) . + REPLOC(21)*(DXR11R12*R23R23 . + DXR21R22*R13R13) . + REPLOC(21)*(R11R12*DXR23R23 . + R21R22*DXR13R13) . + DXREPLOC(22)*RADD17*R13R23 . + REPLOC(22)*DXRADD17*R13R23 . + REPLOC(22)*RADD17*DXR13R23 DYREPIJ(6,10) = DYREPLOC(16)*R31R32*R33R33 . + REPLOC(16)*DYR31R32*R33R33 . + REPLOC(16)*R31R32*DYR33R33 . + DYREPLOC(17)*RADD02*R33R33 . + REPLOC(17)*DYRADD02*R33R33 . + REPLOC(17)*RADD02*DYR33R33 . + DYREPLOC(18)*RADD06*R31R32 . + REPLOC(18)*DYRADD06*R31R32 . + REPLOC(18)*RADD06*DYR31R32 . + DYREPLOC(19)*(R11R12*R13R13 . + R21R22*R23R23) . + REPLOC(19)*(DYR11R12*R13R13 . + DYR21R22*R23R23) . + REPLOC(19)*(R11R12*DYR13R13 . + R21R22*DYR23R23) . + DYREPLOC(20)*(RADD11*R13R33 . + RADD12*R23R33) . + REPLOC(20)*(DYRADD11*R13R33 . + DYRADD12*R23R33) . + REPLOC(20)*(RADD11*DYR13R33 . + RADD12*DYR23R33) . + DYREPLOC(21)*(R11R12*R23R23 . + R21R22*R13R13) . + REPLOC(21)*(DYR11R12*R23R23 . + DYR21R22*R13R13) . + REPLOC(21)*(R11R12*DYR23R23 . + R21R22*DYR13R13) . + DYREPLOC(22)*RADD17*R13R23 . + REPLOC(22)*DYRADD17*R13R23 . + REPLOC(22)*RADD17*DYR13R23 DZREPIJ(6,10) = DZREPLOC(16)*R31R32*R33R33 . + REPLOC(16)*DZR31R32*R33R33 . + REPLOC(16)*R31R32*DZR33R33 . + DZREPLOC(17)*RADD02*R33R33 . + REPLOC(17)*DZRADD02*R33R33 . + REPLOC(17)*RADD02*DZR33R33 . + DZREPLOC(18)*RADD06*R31R32 . + REPLOC(18)*DZRADD06*R31R32 . + REPLOC(18)*RADD06*DZR31R32 . + DZREPLOC(19)*(R11R12*R13R13 . + R21R22*R23R23) . + REPLOC(19)*(DZR11R12*R13R13 . + DZR21R22*R23R23) . + REPLOC(19)*(R11R12*DZR13R13 . + R21R22*DZR23R23) . + DZREPLOC(20)*(RADD11*R13R33 . + RADD12*R23R33) . + REPLOC(20)*(DZRADD11*R13R33 . + DZRADD12*R23R33) . + REPLOC(20)*(RADD11*DZR13R33 . + RADD12*DZR23R33) . + DZREPLOC(21)*(R11R12*R23R23 . + R21R22*R13R13) . + REPLOC(21)*(DZR11R12*R23R23 . + DZR21R22*R13R13) . + REPLOC(21)*(R11R12*DZR23R23 . + R21R22*DZR13R13) . + DZREPLOC(22)*RADD17*R13R23 . + REPLOC(22)*DZRADD17*R13R23 . + REPLOC(22)*RADD17*DZR13R23 C C (PZ PZ | PX PY): C REPIJ(10,6) = REPLOC(16)*R33R33*R31R32 . + REPLOC(17)*RADD06*R31R32 . + REPLOC(18)*RADD02*R33R33 . + REPLOC(19)*(R13R13*R11R12 . + R23R23*R21R22) . + REPLOC(20)*(R13R33*R11R32 . + R33R13*R31R12 . + R23R33*R21R32 . + R33R23*R31R22) . + REPLOC(21)*(R13R13*R21R22 . + R23R23*R11R12) . + REPLOC(22)*(R13R23*R11R22 . + R23R13*R21R12) DXREPIJ(10,6) = DXREPLOC(16)*R33R33*R31R32 . + REPLOC(16)*DXR33R33*R31R32 . + REPLOC(16)*R33R33*DXR31R32 . + DXREPLOC(17)*RADD06*R31R32 . + REPLOC(17)*DXRADD06*R31R32 . + REPLOC(17)*RADD06*DXR31R32 . + DXREPLOC(18)*RADD02*R33R33 . + REPLOC(18)*DXRADD02*R33R33 . + REPLOC(18)*RADD02*DXR33R33 . + DXREPLOC(19)*(R13R13*R11R12 . + R23R23*R21R22) . + REPLOC(19)*(DXR13R13*R11R12 . + DXR23R23*R21R22) . + REPLOC(19)*(R13R13*DXR11R12 . + R23R23*DXR21R22) DXREPIJ(10,6)= DXREPIJ(10,6) . + DXREPLOC(20)*(R13R33*R11R32 . + R33R13*R31R12 . + R23R33*R21R32 . + R33R23*R31R22) . + REPLOC(20)*(DXR13R33*R11R32 . + DXR33R13*R31R12 . + DXR23R33*R21R32 . + DXR33R23*R31R22) . + REPLOC(20)*(R13R33*DXR11R32 . + R33R13*DXR31R12 . + R23R33*DXR21R32 . + R33R23*DXR31R22) . + DXREPLOC(21)*(R13R13*R21R22 . + R23R23*R11R12) . + REPLOC(21)*(DXR13R13*R21R22 . + DXR23R23*R11R12) . + REPLOC(21)*(R13R13*DXR21R22 . + R23R23*DXR11R12) . + DXREPLOC(22)*(R13R23*R11R22 . + R23R13*R21R12) . + REPLOC(22)*(DXR13R23*R11R22 . + DXR23R13*R21R12) . + REPLOC(22)*(R13R23*DXR11R22 . + R23R13*DXR21R12) DYREPIJ(10,6) = DYREPLOC(16)*R33R33*R31R32 . + REPLOC(16)*DYR33R33*R31R32 . + REPLOC(16)*R33R33*DYR31R32 . + DYREPLOC(17)*RADD06*R31R32 . + REPLOC(17)*DYRADD06*R31R32 . + REPLOC(17)*RADD06*DYR31R32 . + DYREPLOC(18)*RADD02*R33R33 . + REPLOC(18)*DYRADD02*R33R33 . + REPLOC(18)*RADD02*DYR33R33 . + DYREPLOC(19)*(R13R13*R11R12 . + R23R23*R21R22) . + REPLOC(19)*(DYR13R13*R11R12 . + DYR23R23*R21R22) . + REPLOC(19)*(R13R13*DYR11R12 . + R23R23*DYR21R22) DYREPIJ(10,6)=DYREPIJ(10,6) . + DYREPLOC(20)*(R13R33*R11R32 . + R33R13*R31R12 . + R23R33*R21R32 . + R33R23*R31R22) . + REPLOC(20)*(DYR13R33*R11R32 . + DYR33R13*R31R12 . + DYR23R33*R21R32 . + DYR33R23*R31R22) . + REPLOC(20)*(R13R33*DYR11R32 . + R33R13*DYR31R12 . + R23R33*DYR21R32 . + R33R23*DYR31R22) . + DYREPLOC(21)*(R13R13*R21R22 . + R23R23*R11R12) . + REPLOC(21)*(DYR13R13*R21R22 . + DYR23R23*R11R12) . + REPLOC(21)*(R13R13*DYR21R22 . + R23R23*DYR11R12) . + DYREPLOC(22)*(R13R23*R11R22 . + R23R13*R21R12) . + REPLOC(22)*(DYR13R23*R11R22 . + DYR23R13*R21R12) . + REPLOC(22)*(R13R23*DYR11R22 . + R23R13*DYR21R12) DZREPIJ(10,6) = DZREPLOC(16)*R33R33*R31R32 . + REPLOC(16)*DZR33R33*R31R32 . + REPLOC(16)*R33R33*DZR31R32 . + DZREPLOC(17)*RADD06*R31R32 . + REPLOC(17)*DZRADD06*R31R32 . + REPLOC(17)*RADD06*DZR31R32 . + DZREPLOC(18)*RADD02*R33R33 . + REPLOC(18)*DZRADD02*R33R33 . + REPLOC(18)*RADD02*DZR33R33 . + DZREPLOC(19)*(R13R13*R11R12 . + R23R23*R21R22) . + REPLOC(19)*(DZR13R13*R11R12 . + DZR23R23*R21R22) . + REPLOC(19)*(R13R13*DZR11R12 . + R23R23*DZR21R22) DZREPIJ(10,6)=DZREPIJ(10,6) . + DZREPLOC(20)*(R13R33*R11R32 . + R33R13*R31R12 . + R23R33*R21R32 . + R33R23*R31R22) . + REPLOC(20)*(DZR13R33*R11R32 . + DZR33R13*R31R12 . + DZR23R33*R21R32 . + DZR33R23*R31R22) . + REPLOC(20)*(R13R33*DZR11R32 . + R33R13*DZR31R12 . + R23R33*DZR21R32 . + R33R23*DZR31R22) . + DZREPLOC(21)*(R13R13*R21R22 . + R23R23*R11R12) . + REPLOC(21)*(DZR13R13*R21R22 . + DZR23R23*R11R12) . + REPLOC(21)*(R13R13*DZR21R22 . + R23R23*DZR11R12) . + DZREPLOC(22)*(R13R23*R11R22 . + R23R13*R21R12) . + REPLOC(22)*(DZR13R23*R11R22 . + DZR23R13*R21R12) . + REPLOC(22)*(R13R23*DZR11R22 . + R23R13*DZR21R12) C C (PX PZ | PX PZ): C REPIJ(7,7) = REPLOC(16)*R31R33*R31R33 . + REPLOC(17)*RADD03*R31R33 . + REPLOC(18)*RADD03*R31R33 . + REPLOC(19)*(R11R13*R11R13 . + R21R23*R21R23) . + REPLOC(20)*(RADD09**2 . + RADD10**2) . + REPLOC(21)*R11R13*R21R23*2.0D0 . + REPLOC(22)*RADD15**2 DXREPIJ(7,7) = DXREPLOC(16)*R31R33*R31R33 . + REPLOC(16)*DXR31R33*R31R33 . + REPLOC(16)*R31R33*DXR31R33 . + DXREPLOC(17)*RADD03*R31R33 . + REPLOC(17)*DXRADD03*R31R33 . + REPLOC(17)*RADD03*DXR31R33 . + DXREPLOC(18)*RADD03*R31R33 . + REPLOC(18)*DXRADD03*R31R33 . + REPLOC(18)*RADD03*DXR31R33 . + DXREPLOC(19)*(R11R13*R11R13 . + R21R23*R21R23) . + REPLOC(19)*(DXR11R13*R11R13 . + DXR21R23*R21R23) . + REPLOC(19)*(R11R13*DXR11R13 . + R21R23*DXR21R23) . + DXREPLOC(20)*(RADD09**2 . + RADD10**2) . + REPLOC(20)*2.0d0*(RADD09*DXRADD09 . + RADD10*DXRADD10) . + DXREPLOC(21)*R11R13*R21R23*2.0D0 . + REPLOC(21)*DXR11R13*R21R23*2.0D0 . + REPLOC(21)*R11R13*DXR21R23*2.0D0 . + DXREPLOC(22)*RADD15**2 . + REPLOC(22)*RADD15*DXRADD15*2.0d0 DYREPIJ(7,7) = DYREPLOC(16)*R31R33*R31R33 . + REPLOC(16)*DYR31R33*R31R33 . + REPLOC(16)*R31R33*DYR31R33 . + DYREPLOC(17)*RADD03*R31R33 . + REPLOC(17)*DYRADD03*R31R33 . + REPLOC(17)*RADD03*DYR31R33 . + DYREPLOC(18)*RADD03*R31R33 . + REPLOC(18)*DYRADD03*R31R33 . + REPLOC(18)*RADD03*DYR31R33 . + DYREPLOC(19)*(R11R13*R11R13 . + R21R23*R21R23) . + REPLOC(19)*(DYR11R13*R11R13 . + DYR21R23*R21R23) . + REPLOC(19)*(R11R13*DYR11R13 . + R21R23*DYR21R23) . + DYREPLOC(20)*(RADD09**2 . + RADD10**2) . + REPLOC(20)*2.0D0*(RADD09*DYRADD09 . + RADD10*DYRADD10) . + DYREPLOC(21)*R11R13*R21R23*2.0D0 . + REPLOC(21)*DYR11R13*R21R23*2.0D0 . + REPLOC(21)*R11R13*DYR21R23*2.0D0 . + DYREPLOC(22)*RADD15**2 . + REPLOC(22)*RADD15*DYRADD15*2.0D0 DZREPIJ(7,7) = DZREPLOC(16)*R31R33*R31R33 . + REPLOC(16)*DZR31R33*R31R33 . + REPLOC(16)*R31R33*DZR31R33 . + DZREPLOC(17)*RADD03*R31R33 . + REPLOC(17)*DZRADD03*R31R33 . + REPLOC(17)*RADD03*DZR31R33 . + DZREPLOC(18)*RADD03*R31R33 . + REPLOC(18)*DZRADD03*R31R33 . + REPLOC(18)*RADD03*DZR31R33 . + DZREPLOC(19)*(R11R13*R11R13 . + R21R23*R21R23) . + REPLOC(19)*(DZR11R13*R11R13 . + DZR21R23*R21R23) . + REPLOC(19)*(R11R13*DZR11R13 . + R21R23*DZR21R23) . + DZREPLOC(20)*(RADD09**2 . + RADD10**2) . + REPLOC(20)*2.0D0*(RADD09*DZRADD09 . + RADD10*DZRADD10) . + DZREPLOC(21)*R11R13*R21R23*2.0D0 . + REPLOC(21)*DZR11R13*R21R23*2.0D0 . + REPLOC(21)*R11R13*DZR21R23*2.0D0 . + DZREPLOC(22)*RADD15**2 . + REPLOC(22)*RADD15*DZRADD15*2.0D0 C C (PX PZ | PY PY): C REPIJ(7,8) = REPLOC(16)*R31R33*R32R32 . + REPLOC(17)*RADD03*R32R32 . + REPLOC(18)*RADD04*R31R33 . + REPLOC(19)*(R11R13*R12R12 . + R21R23*R22R22) . + REPLOC(20)*(RADD09*R12R32 . + RADD10*R22R32) . + REPLOC(21)*(R11R13*R22R22 . + R21R23*R12R12) . + REPLOC(22)*RADD15*R12R22 DXREPIJ(7,8) = DXREPLOC(16)*R31R33*R32R32 . + REPLOC(16)*DXR31R33*R32R32 . + REPLOC(16)*R31R33*DXR32R32 . + DXREPLOC(17)*RADD03*R32R32 . + REPLOC(17)*DXRADD03*R32R32 . + REPLOC(17)*RADD03*DXR32R32 . + DXREPLOC(18)*RADD04*R31R33 . + REPLOC(18)*DXRADD04*R31R33 . + REPLOC(18)*RADD04*DXR31R33 . + DXREPLOC(19)*(R11R13*R12R12 . + R21R23*R22R22) . + REPLOC(19)*(DXR11R13*R12R12 . + DXR21R23*R22R22) . + REPLOC(19)*(R11R13*DXR12R12 . + R21R23*DXR22R22) DXREPIJ(7,8)= DXREPIJ(7,8) . + DXREPLOC(20)*(RADD09*R12R32 . + RADD10*R22R32) . + REPLOC(20)*(DXRADD09*R12R32 . + DXRADD10*R22R32) . + REPLOC(20)*(RADD09*DXR12R32 . + RADD10*DXR22R32) . + DXREPLOC(21)*(R11R13*R22R22 . + R21R23*R12R12) . + REPLOC(21)*(DXR11R13*R22R22 . + DXR21R23*R12R12) . + REPLOC(21)*(R11R13*DXR22R22 . + R21R23*DXR12R12) . + DXREPLOC(22)*RADD15*R12R22 . + REPLOC(22)*DXRADD15*R12R22 . + REPLOC(22)*RADD15*DXR12R22 DYREPIJ(7,8) = DYREPLOC(16)*R31R33*R32R32 . + REPLOC(16)*DYR31R33*R32R32 . + REPLOC(16)*R31R33*DYR32R32 . + DYREPLOC(17)*RADD03*R32R32 . + REPLOC(17)*DYRADD03*R32R32 . + REPLOC(17)*RADD03*DYR32R32 . + DYREPLOC(18)*RADD04*R31R33 . + REPLOC(18)*DYRADD04*R31R33 . + REPLOC(18)*RADD04*DYR31R33 . + DYREPLOC(19)*(R11R13*R12R12 . + R21R23*R22R22) . + REPLOC(19)*(DYR11R13*R12R12 . + DYR21R23*R22R22) . + REPLOC(19)*(R11R13*DYR12R12 . + R21R23*DYR22R22) DYREPIJ(7,8)=DYREPIJ(7,8) . + DYREPLOC(20)*(RADD09*R12R32 . + RADD10*R22R32) . + REPLOC(20)*(DYRADD09*R12R32 . + DYRADD10*R22R32) . + REPLOC(20)*(RADD09*DYR12R32 . + RADD10*DYR22R32) . + DYREPLOC(21)*(R11R13*R22R22 . + R21R23*R12R12) . + REPLOC(21)*(DYR11R13*R22R22 . + DYR21R23*R12R12) . + REPLOC(21)*(R11R13*DYR22R22 . + R21R23*DYR12R12) . + DYREPLOC(22)*RADD15*R12R22 . + REPLOC(22)*DYRADD15*R12R22 . + REPLOC(22)*RADD15*DYR12R22 DZREPIJ(7,8) = DZREPLOC(16)*R31R33*R32R32 . + REPLOC(16)*DZR31R33*R32R32 . + REPLOC(16)*R31R33*DZR32R32 . + DZREPLOC(17)*RADD03*R32R32 . + REPLOC(17)*DZRADD03*R32R32 . + REPLOC(17)*RADD03*DZR32R32 . + DZREPLOC(18)*RADD04*R31R33 . + REPLOC(18)*DZRADD04*R31R33 . + REPLOC(18)*RADD04*DZR31R33 . + DZREPLOC(19)*(R11R13*R12R12 . + R21R23*R22R22) . + REPLOC(19)*(DZR11R13*R12R12 . + DZR21R23*R22R22) . + REPLOC(19)*(R11R13*DZR12R12 . + R21R23*DZR22R22) DZREPIJ(7,8)=DZREPIJ(7,8) . + DZREPLOC(20)*(RADD09*R12R32 . + RADD10*R22R32) . + REPLOC(20)*(DZRADD09*R12R32 . + DZRADD10*R22R32) . + REPLOC(20)*(RADD09*DZR12R32 . + RADD10*DZR22R32) . + DZREPLOC(21)*(R11R13*R22R22 . + R21R23*R12R12) . + REPLOC(21)*(DZR11R13*R22R22 . + DZR21R23*R12R12) . + REPLOC(21)*(R11R13*DZR22R22 . + R21R23*DZR12R12) . + DZREPLOC(22)*RADD15*R12R22 . + REPLOC(22)*DZRADD15*R12R22 . + REPLOC(22)*RADD15*DZR12R22 C C (PY PY | PX PZ): C REPIJ(8,7) = REPLOC(16)*R32R32*R31R33 . + REPLOC(17)*RADD04*R31R33 . + REPLOC(18)*RADD03*R32R32 . + REPLOC(19)*(R12R12*R11R13 . + R22R22*R21R23) . + REPLOC(20)*(R12R32*R11R33 . + R32R12*R31R13 . + R22R32*R21R33 . + R32R22*R31R23) . + REPLOC(21)*(R12R12*R21R23 . + R22R22*R11R13) . + REPLOC(22)*(R12R22*R11R23 . + R22R12*R21R13) DXREPIJ(8,7) = DXREPLOC(16)*R32R32*R31R33 . + REPLOC(16)*DXR32R32*R31R33 . + REPLOC(16)*R32R32*DXR31R33 . + DXREPLOC(17)*RADD04*R31R33 . + REPLOC(17)*DXRADD04*R31R33 . + REPLOC(17)*RADD04*DXR31R33 . + DXREPLOC(18)*RADD03*R32R32 . + REPLOC(18)*DXRADD03*R32R32 . + REPLOC(18)*RADD03*DXR32R32 . + DXREPLOC(19)*(R12R12*R11R13 . + R22R22*R21R23) . + REPLOC(19)*(DXR12R12*R11R13 . + DXR22R22*R21R23) . + REPLOC(19)*(R12R12*DXR11R13 . + R22R22*DXR21R23) . + DXREPLOC(20)*(R12R32*R11R33 . + R32R12*R31R13 . + R22R32*R21R33 . + R32R22*R31R23) DXREPIJ(8,7)=DXREPIJ(8,7) . + REPLOC(20)*(DXR12R32*R11R33 . + DXR32R12*R31R13 . + DXR22R32*R21R33 . + DXR32R22*R31R23) . + REPLOC(20)*(R12R32*DXR11R33 . + R32R12*DXR31R13 . + R22R32*DXR21R33 . + R32R22*DXR31R23) . + DXREPLOC(21)*(R12R12*R21R23 . + R22R22*R11R13) . + REPLOC(21)*(DXR12R12*R21R23 . + DXR22R22*R11R13) . + REPLOC(21)*(R12R12*DXR21R23 . + R22R22*DXR11R13) . + DXREPLOC(22)*(R12R22*R11R23 . + R22R12*R21R13) . + REPLOC(22)*(DXR12R22*R11R23 . + DXR22R12*R21R13) . + REPLOC(22)*(R12R22*DXR11R23 . + R22R12*DXR21R13) DYREPIJ(8,7) = DYREPLOC(16)*R32R32*R31R33 . + REPLOC(16)*DYR32R32*R31R33 . + REPLOC(16)*R32R32*DYR31R33 . + DYREPLOC(17)*RADD04*R31R33 . + REPLOC(17)*DYRADD04*R31R33 . + REPLOC(17)*RADD04*DYR31R33 . + DYREPLOC(18)*RADD03*R32R32 . + REPLOC(18)*DYRADD03*R32R32 . + REPLOC(18)*RADD03*DYR32R32 . + DYREPLOC(19)*(R12R12*R11R13 . + R22R22*R21R23) . + REPLOC(19)*(DYR12R12*R11R13 . + DYR22R22*R21R23) . + REPLOC(19)*(R12R12*DYR11R13 . + R22R22*DYR21R23) . + DYREPLOC(20)*(R12R32*R11R33 . + R32R12*R31R13 . + R22R32*R21R33 . + R32R22*R31R23) DYREPIJ(8,7)=DYREPIJ(8,7) . + REPLOC(20)*(DYR12R32*R11R33 . + DYR32R12*R31R13 . + DYR22R32*R21R33 . + DYR32R22*R31R23) . + REPLOC(20)*(R12R32*DYR11R33 . + R32R12*DYR31R13 . + R22R32*DYR21R33 . + R32R22*DYR31R23) . + DYREPLOC(21)*(R12R12*R21R23 . + R22R22*R11R13) . + REPLOC(21)*(DYR12R12*R21R23 . + DYR22R22*R11R13) . + REPLOC(21)*(R12R12*DYR21R23 . + R22R22*DYR11R13) . + DYREPLOC(22)*(R12R22*R11R23 . + R22R12*R21R13) . + REPLOC(22)*(DYR12R22*R11R23 . + DYR22R12*R21R13) . + REPLOC(22)*(R12R22*DYR11R23 . + R22R12*DYR21R13) DZREPIJ(8,7) = DZREPLOC(16)*R32R32*R31R33 . + REPLOC(16)*DZR32R32*R31R33 . + REPLOC(16)*R32R32*DZR31R33 . + DZREPLOC(17)*RADD04*R31R33 . + REPLOC(17)*DZRADD04*R31R33 . + REPLOC(17)*RADD04*DZR31R33 . + DZREPLOC(18)*RADD03*R32R32 . + REPLOC(18)*DZRADD03*R32R32 . + REPLOC(18)*RADD03*DZR32R32 . + DZREPLOC(19)*(R12R12*R11R13 . + R22R22*R21R23) . + REPLOC(19)*(DZR12R12*R11R13 . + DZR22R22*R21R23) . + REPLOC(19)*(R12R12*DZR11R13 . + R22R22*DZR21R23) . + DZREPLOC(20)*(R12R32*R11R33 . + R32R12*R31R13 . + R22R32*R21R33 . + R32R22*R31R23) DZREPIJ(8,7)= DZREPIJ(8,7) . + REPLOC(20)*(DZR12R32*R11R33 . + DZR32R12*R31R13 . + DZR22R32*R21R33 . + DZR32R22*R31R23) . + REPLOC(20)*(R12R32*DZR11R33 . + R32R12*DZR31R13 . + R22R32*DZR21R33 . + R32R22*DZR31R23) . + DZREPLOC(21)*(R12R12*R21R23 . + R22R22*R11R13) . + REPLOC(21)*(DZR12R12*R21R23 . + DZR22R22*R11R13) . + REPLOC(21)*(R12R12*DZR21R23 . + R22R22*DZR11R13) . + DZREPLOC(22)*(R12R22*R11R23 . + R22R12*R21R13) . + REPLOC(22)*(DZR12R22*R11R23 . + DZR22R12*R21R13) . + REPLOC(22)*(R12R22*DZR11R23 . + R22R12*DZR21R13) C C (PX PZ | PY PZ): C REPIJ(7,9) = REPLOC(16)*R31R33*R32R33 . + REPLOC(17)*RADD03*R32R33 . + REPLOC(18)*R31R33*RADD05 . + REPLOC(19)*(R11R13*R12R13 . + R21R23*R22R23) . + REPLOC(20)*(RADD09*RADD13 . + RADD10*R22R33 . + RADD10*R32R23) . + REPLOC(21)*(R11R13*R22R23 . + R21R23*R12R13) . + REPLOC(22)*RADD15*RADD16 DXREPIJ(7,9) = DXREPLOC(16)*R31R33*R32R33 . + REPLOC(16)*DXR31R33*R32R33 . + REPLOC(16)*R31R33*DXR32R33 . + DXREPLOC(17)*RADD03*R32R33 . + REPLOC(17)*DXRADD03*R32R33 . + REPLOC(17)*RADD03*DXR32R33 . + DXREPLOC(18)*R31R33*RADD05 . + REPLOC(18)*DXR31R33*RADD05 . + REPLOC(18)*R31R33*DXRADD05 . + DXREPLOC(19)*(R11R13*R12R13 . + R21R23*R22R23) . + REPLOC(19)*(DXR11R13*R12R13 . + DXR21R23*R22R23) . + REPLOC(19)*(R11R13*DXR12R13 . + R21R23*DXR22R23) . + DXREPLOC(20)*(RADD09*RADD13 . + RADD10*R22R33 . + RADD10*R32R23) DXREPIJ(7,9)=DXREPIJ(7,9) . + REPLOC(20)*(DXRADD09*RADD13 . + DXRADD10*R22R33 . + DXRADD10*R32R23) . + REPLOC(20)*(RADD09*DXRADD13 . + RADD10*DXR22R33 . + RADD10*DXR32R23) . + DXREPLOC(21)*(R11R13*R22R23 . + R21R23*R12R13) . + REPLOC(21)*(DXR11R13*R22R23 . + DXR21R23*R12R13) . + REPLOC(21)*(R11R13*DXR22R23 . + R21R23*DXR12R13) . + DXREPLOC(22)*RADD15*RADD16 . + REPLOC(22)*DXRADD15*RADD16 . + REPLOC(22)*RADD15*DXRADD16 DYREPIJ(7,9) = DYREPLOC(16)*R31R33*R32R33 . + REPLOC(16)*DYR31R33*R32R33 . + REPLOC(16)*R31R33*DYR32R33 . + DYREPLOC(17)*RADD03*R32R33 . + REPLOC(17)*DYRADD03*R32R33 . + REPLOC(17)*RADD03*DYR32R33 . + DYREPLOC(18)*R31R33*RADD05 . + REPLOC(18)*DYR31R33*RADD05 . + REPLOC(18)*R31R33*DYRADD05 . + DYREPLOC(19)*(R11R13*R12R13 . + R21R23*R22R23) . + REPLOC(19)*(DYR11R13*R12R13 . + DYR21R23*R22R23) . + REPLOC(19)*(R11R13*DYR12R13 . + R21R23*DYR22R23) . + DYREPLOC(20)*(RADD09*RADD13 . + RADD10*R22R33 . + RADD10*R32R23) DYREPIJ(7,9)=DYREPIJ(7,9) . + REPLOC(20)*(DYRADD09*RADD13 . + DYRADD10*R22R33 . + DYRADD10*R32R23) . + REPLOC(20)*(RADD09*DYRADD13 . + RADD10*DYR22R33 . + RADD10*DYR32R23) . + DYREPLOC(21)*(R11R13*R22R23 . + R21R23*R12R13) . + REPLOC(21)*(DYR11R13*R22R23 . + DYR21R23*R12R13) . + REPLOC(21)*(R11R13*DYR22R23 . + R21R23*DYR12R13) . + DYREPLOC(22)*RADD15*RADD16 . + REPLOC(22)*DYRADD15*RADD16 . + REPLOC(22)*RADD15*DYRADD16 DZREPIJ(7,9) = DZREPLOC(16)*R31R33*R32R33 . + REPLOC(16)*DZR31R33*R32R33 . + REPLOC(16)*R31R33*DZR32R33 . + DZREPLOC(17)*RADD03*R32R33 . + REPLOC(17)*DZRADD03*R32R33 . + REPLOC(17)*RADD03*DZR32R33 . + DZREPLOC(18)*R31R33*RADD05 . + REPLOC(18)*DZR31R33*RADD05 . + REPLOC(18)*R31R33*DZRADD05 . + DZREPLOC(19)*(R11R13*R12R13 . + R21R23*R22R23) . + REPLOC(19)*(DZR11R13*R12R13 . + DZR21R23*R22R23) . + REPLOC(19)*(R11R13*DZR12R13 . + R21R23*DZR22R23) . + DZREPLOC(20)*(RADD09*RADD13 . + RADD10*R22R33 . + RADD10*R32R23) . + REPLOC(20)*(DZRADD09*RADD13 . + DZRADD10*R22R33 . + DZRADD10*R32R23) . + REPLOC(20)*(RADD09*DZRADD13 . + RADD10*DZR22R33 . + RADD10*DZR32R23) . + DZREPLOC(21)*(R11R13*R22R23 . + R21R23*R12R13) . + REPLOC(21)*(DZR11R13*R22R23 . + DZR21R23*R12R13) . + REPLOC(21)*(R11R13*DZR22R23 . + R21R23*DZR12R13) . + DZREPLOC(22)*RADD15*RADD16 . + REPLOC(22)*DZRADD15*RADD16 . + REPLOC(22)*RADD15*DZRADD16 C C (PY PZ | PX PZ): C REPIJ(9,7) = REPIJ(7,9) DXREPIJ(9,7) = DXREPIJ(7,9) DYREPIJ(9,7) = DYREPIJ(7,9) DZREPIJ(9,7) = DZREPIJ(7,9) C C (PX PZ | PZ PZ): C REPIJ(7,10) = REPLOC(16)*R31R33*R33R33 . + REPLOC(17)*RADD03*R33R33 . + REPLOC(18)*RADD06*R31R33 . + REPLOC(19)*(R11R13*R13R13 . + R21R23*R23R23) . + REPLOC(20)*(RADD09*R13R33 . + RADD10*R23R33) . + REPLOC(21)*(R11R13*R23R23 . + R21R23*R13R13) . + REPLOC(22)*RADD15*R13R23 DXREPIJ(7,10) = DXREPLOC(16)*R31R33*R33R33 . + REPLOC(16)*DXR31R33*R33R33 . + REPLOC(16)*R31R33*DXR33R33 . + DXREPLOC(17)*RADD03*R33R33 . + REPLOC(17)*DXRADD03*R33R33 . + REPLOC(17)*RADD03*DXR33R33 . + DXREPLOC(18)*RADD06*R31R33 . + REPLOC(18)*DXRADD06*R31R33 . + REPLOC(18)*RADD06*DXR31R33 . + DXREPLOC(19)*(R11R13*R13R13 . + R21R23*R23R23) . + REPLOC(19)*(DXR11R13*R13R13 . + DXR21R23*R23R23) . + REPLOC(19)*(R11R13*DXR13R13 . + R21R23*DXR23R23) DXREPIJ(7,10)=DXREPIJ(7,10) . + DXREPLOC(20)*(RADD09*R13R33 . + RADD10*R23R33) . + REPLOC(20)*(DXRADD09*R13R33 . + DXRADD10*R23R33) . + REPLOC(20)*(RADD09*DXR13R33 . + RADD10*DXR23R33) . + DXREPLOC(21)*(R11R13*R23R23 . + R21R23*R13R13) . + REPLOC(21)*(DXR11R13*R23R23 . + DXR21R23*R13R13) . + REPLOC(21)*(R11R13*DXR23R23 . + R21R23*DXR13R13) . + DXREPLOC(22)*RADD15*R13R23 . + REPLOC(22)*DXRADD15*R13R23 . + REPLOC(22)*RADD15*DXR13R23 DYREPIJ(7,10) = DYREPLOC(16)*R31R33*R33R33 . + REPLOC(16)*DYR31R33*R33R33 . + REPLOC(16)*R31R33*DYR33R33 . + DYREPLOC(17)*RADD03*R33R33 . + REPLOC(17)*DYRADD03*R33R33 . + REPLOC(17)*RADD03*DYR33R33 . + DYREPLOC(18)*RADD06*R31R33 . + REPLOC(18)*DYRADD06*R31R33 . + REPLOC(18)*RADD06*DYR31R33 . + DYREPLOC(19)*(R11R13*R13R13 . + R21R23*R23R23) . + REPLOC(19)*(DYR11R13*R13R13 . + DYR21R23*R23R23) . + REPLOC(19)*(R11R13*DYR13R13 . + R21R23*DYR23R23) DYREPIJ(7,10)=DYREPIJ(7,10) . + DYREPLOC(20)*(RADD09*R13R33 . + RADD10*R23R33) . + REPLOC(20)*(DYRADD09*R13R33 . + DYRADD10*R23R33) . + REPLOC(20)*(RADD09*DYR13R33 . + RADD10*DYR23R33) . + DYREPLOC(21)*(R11R13*R23R23 . + R21R23*R13R13) . + REPLOC(21)*(DYR11R13*R23R23 . + DYR21R23*R13R13) . + REPLOC(21)*(R11R13*DYR23R23 . + R21R23*DYR13R13) . + DYREPLOC(22)*RADD15*R13R23 . + REPLOC(22)*DYRADD15*R13R23 . + REPLOC(22)*RADD15*DYR13R23 DZREPIJ(7,10) = DZREPLOC(16)*R31R33*R33R33 . + REPLOC(16)*DZR31R33*R33R33 . + REPLOC(16)*R31R33*DZR33R33 . + DZREPLOC(17)*RADD03*R33R33 . + REPLOC(17)*DZRADD03*R33R33 . + REPLOC(17)*RADD03*DZR33R33 . + DZREPLOC(18)*RADD06*R31R33 . + REPLOC(18)*DZRADD06*R31R33 . + REPLOC(18)*RADD06*DZR31R33 . + DZREPLOC(19)*(R11R13*R13R13 . + R21R23*R23R23) . + REPLOC(19)*(DZR11R13*R13R13 . + DZR21R23*R23R23) . + REPLOC(19)*(R11R13*DZR13R13 . + R21R23*DZR23R23) DZREPIJ(7,10)=DZREPIJ(7,10) . + DZREPLOC(20)*(RADD09*R13R33 . + RADD10*R23R33) . + REPLOC(20)*(DZRADD09*R13R33 . + DZRADD10*R23R33) . + REPLOC(20)*(RADD09*DZR13R33 . + RADD10*DZR23R33) . + DZREPLOC(21)*(R11R13*R23R23 . + R21R23*R13R13) . + REPLOC(21)*(DZR11R13*R23R23 . + DZR21R23*R13R13) . + REPLOC(21)*(R11R13*DZR23R23 . + R21R23*DZR13R13) . + DZREPLOC(22)*RADD15*R13R23 . + REPLOC(22)*DZRADD15*R13R23 . + REPLOC(22)*RADD15*DZR13R23 C C (PZ PZ | PX PZ): C REPIJ(10,7) = REPLOC(16)*R33R33*R31R33 . + REPLOC(17)*RADD06*R31R33 . + REPLOC(18)*RADD03*R33R33 . + REPLOC(19)*(R13R13*R11R13 . + R23R23*R21R23) . + REPLOC(20)*(R13R33*R11R33 . + R33R13*R31R13 . + R23R33*R21R33 . + R33R23*R31R23) . + REPLOC(21)*(R13R13*R21R23 . + R23R23*R11R13) . + REPLOC(22)*(R13R23*R11R23 . + R23R13*R21R13) DXREPIJ(10,7) = DXREPLOC(16)*R33R33*R31R33 . + REPLOC(16)*DXR33R33*R31R33 . + REPLOC(16)*R33R33*DXR31R33 . + DXREPLOC(17)*RADD06*R31R33 . + REPLOC(17)*DXRADD06*R31R33 . + REPLOC(17)*RADD06*DXR31R33 . + DXREPLOC(18)*RADD03*R33R33 . + REPLOC(18)*DXRADD03*R33R33 . + REPLOC(18)*RADD03*DXR33R33 . + DXREPLOC(19)*(R13R13*R11R13 . + R23R23*R21R23) . + REPLOC(19)*(DXR13R13*R11R13 . + DXR23R23*R21R23) . + REPLOC(19)*(R13R13*DXR11R13 . + R23R23*DXR21R23) . + DXREPLOC(20)*(R13R33*R11R33 . + R33R13*R31R13 . + R23R33*R21R33 . + R33R23*R31R23) DXREPIJ(10,7)=DXREPIJ(10,7) . + REPLOC(20)*(DXR13R33*R11R33 . + DXR33R13*R31R13 . + DXR23R33*R21R33 . + DXR33R23*R31R23) . + REPLOC(20)*(R13R33*DXR11R33 . + R33R13*DXR31R13 . + R23R33*DXR21R33 . + R33R23*DXR31R23) . + DXREPLOC(21)*(R13R13*R21R23 . + R23R23*R11R13) . + REPLOC(21)*(DXR13R13*R21R23 . + DXR23R23*R11R13) . + REPLOC(21)*(R13R13*DXR21R23 . + R23R23*DXR11R13) . + DXREPLOC(22)*(R13R23*R11R23 . + R23R13*R21R13) . + REPLOC(22)*(DXR13R23*R11R23 . + DXR23R13*R21R13) . + REPLOC(22)*(R13R23*DXR11R23 . + R23R13*DXR21R13) DYREPIJ(10,7) = DYREPLOC(16)*R33R33*R31R33 . + REPLOC(16)*DYR33R33*R31R33 . + REPLOC(16)*R33R33*DYR31R33 . + DYREPLOC(17)*RADD06*R31R33 . + REPLOC(17)*DYRADD06*R31R33 . + REPLOC(17)*RADD06*DYR31R33 . + DYREPLOC(18)*RADD03*R33R33 . + REPLOC(18)*DYRADD03*R33R33 . + REPLOC(18)*RADD03*DYR33R33 . + DYREPLOC(19)*(R13R13*R11R13 . + R23R23*R21R23) . + REPLOC(19)*(DYR13R13*R11R13 . + DYR23R23*R21R23) . + REPLOC(19)*(R13R13*DYR11R13 . + R23R23*DYR21R23) . + DYREPLOC(20)*(R13R33*R11R33 . + R33R13*R31R13 . + R23R33*R21R33 . + R33R23*R31R23) . + REPLOC(20)*(DYR13R33*R11R33 . + DYR33R13*R31R13 . + DYR23R33*R21R33 . + DYR33R23*R31R23) DYREPIJ(10,7)=DYREPIJ(10,7) . + REPLOC(20)*(R13R33*DYR11R33 . + R33R13*DYR31R13 . + R23R33*DYR21R33 . + R33R23*DYR31R23) . + DYREPLOC(21)*(R13R13*R21R23 . + R23R23*R11R13) . + REPLOC(21)*(DYR13R13*R21R23 . + DYR23R23*R11R13) . + REPLOC(21)*(R13R13*DYR21R23 . + R23R23*DYR11R13) . + DYREPLOC(22)*(R13R23*R11R23 . + R23R13*R21R13) . + REPLOC(22)*(DYR13R23*R11R23 . + DYR23R13*R21R13) . + REPLOC(22)*(R13R23*DYR11R23 . + R23R13*DYR21R13) DZREPIJ(10,7) = DZREPLOC(16)*R33R33*R31R33 . + REPLOC(16)*DZR33R33*R31R33 . + REPLOC(16)*R33R33*DZR31R33 . + DZREPLOC(17)*RADD06*R31R33 . + REPLOC(17)*DZRADD06*R31R33 . + REPLOC(17)*RADD06*DZR31R33 . + DZREPLOC(18)*RADD03*R33R33 . + REPLOC(18)*DZRADD03*R33R33 . + REPLOC(18)*RADD03*DZR33R33 . + DZREPLOC(19)*(R13R13*R11R13 . + R23R23*R21R23) . + REPLOC(19)*(DZR13R13*R11R13 . + DZR23R23*R21R23) . + REPLOC(19)*(R13R13*DZR11R13 . + R23R23*DZR21R23) . + DZREPLOC(20)*(R13R33*R11R33 . + R33R13*R31R13 . + R23R33*R21R33 . + R33R23*R31R23) DZREPIJ(10,7)= DZREPIJ(10,7) . + REPLOC(20)*(DZR13R33*R11R33 . + DZR33R13*R31R13 . + DZR23R33*R21R33 . + DZR33R23*R31R23) . + REPLOC(20)*(R13R33*DZR11R33 . + R33R13*DZR31R13 . + R23R33*DZR21R33 . + R33R23*DZR31R23) . + DZREPLOC(21)*(R13R13*R21R23 . + R23R23*R11R13) . + REPLOC(21)*(DZR13R13*R21R23 . + DZR23R23*R11R13) . + REPLOC(21)*(R13R13*DZR21R23 . + R23R23*DZR11R13) . + DZREPLOC(22)*(R13R23*R11R23 . + R23R13*R21R13) . + REPLOC(22)*(DZR13R23*R11R23 . + DZR23R13*R21R13) . + REPLOC(22)*(R13R23*DZR11R23 . + R23R13*DZR21R13) C C (PY PY | PY PY): C REPIJ(8,8) = REPLOC(16)*R32R32*R32R32 . + REPLOC(17)*RADD04*R32R32 . + REPLOC(18)*RADD04*R32R32 . + REPLOC(19)*(R12R12*R12R12 . + R22R22*R22R22) . + REPLOC(20)*(R12R32*R12R32 . + R22R32*R22R32) . + REPLOC(21)*R12R12*R22R22*2.0D0 . + REPLOC(22)*R12R22*R12R22 DXREPIJ(8,8) = DXREPLOC(16)*R32R32*R32R32 . + REPLOC(16)*DXR32R32*R32R32 . + REPLOC(16)*R32R32*DXR32R32 . + DXREPLOC(17)*RADD04*R32R32 . + REPLOC(17)*DXRADD04*R32R32 . + REPLOC(17)*RADD04*DXR32R32 . + DXREPLOC(18)*RADD04*R32R32 . + REPLOC(18)*DXRADD04*R32R32 . + REPLOC(18)*RADD04*DXR32R32 . + DXREPLOC(19)*(R12R12*R12R12 . + R22R22*R22R22) . + REPLOC(19)*(DXR12R12*R12R12 . + DXR22R22*R22R22) . + REPLOC(19)*(R12R12*DXR12R12 . + R22R22*DXR22R22) DXREPIJ(8,8)=DXREPIJ(8,8) . + DXREPLOC(20)*(R12R32*R12R32 . + R22R32*R22R32) . + REPLOC(20)*(DXR12R32*R12R32 . + DXR22R32*R22R32) . + REPLOC(20)*(R12R32*DXR12R32 . + R22R32*DXR22R32) . + DXREPLOC(21)*R12R12*R22R22*2.0D0 . + REPLOC(21)*DXR12R12*R22R22*2.0D0 . + REPLOC(21)*R12R12*DXR22R22*2.0D0 . + DXREPLOC(22)*R12R22*R12R22 . + REPLOC(22)*DXR12R22*R12R22 . + REPLOC(22)*R12R22*DXR12R22 DYREPIJ(8,8) = DYREPLOC(16)*R32R32*R32R32 . + REPLOC(16)*DYR32R32*R32R32 . + REPLOC(16)*R32R32*DYR32R32 . + DYREPLOC(17)*RADD04*R32R32 . + REPLOC(17)*DYRADD04*R32R32 . + REPLOC(17)*RADD04*DYR32R32 . + DYREPLOC(18)*RADD04*R32R32 . + REPLOC(18)*DYRADD04*R32R32 . + REPLOC(18)*RADD04*DYR32R32 . + DYREPLOC(19)*(R12R12*R12R12 . + R22R22*R22R22) . + REPLOC(19)*(DYR12R12*R12R12 . + DYR22R22*R22R22) . + REPLOC(19)*(R12R12*DYR12R12 . + R22R22*DYR22R22) DYREPIJ(8,8)=DYREPIJ(8,8) . + DYREPLOC(20)*(R12R32*R12R32 . + R22R32*R22R32) . + REPLOC(20)*(DYR12R32*R12R32 . + DYR22R32*R22R32) . + REPLOC(20)*(R12R32*DYR12R32 . + R22R32*DYR22R32) . + DYREPLOC(21)*R12R12*R22R22*2.0D0 . + REPLOC(21)*DYR12R12*R22R22*2.0D0 . + REPLOC(21)*R12R12*DYR22R22*2.0D0 . + DYREPLOC(22)*R12R22*R12R22 . + REPLOC(22)*DYR12R22*R12R22 . + REPLOC(22)*R12R22*DYR12R22 DZREPIJ(8,8) = DZREPLOC(16)*R32R32*R32R32 . + REPLOC(16)*DZR32R32*R32R32 . + REPLOC(16)*R32R32*DZR32R32 . + DZREPLOC(17)*RADD04*R32R32 . + REPLOC(17)*DZRADD04*R32R32 . + REPLOC(17)*RADD04*DZR32R32 . + DZREPLOC(18)*RADD04*R32R32 . + REPLOC(18)*DZRADD04*R32R32 . + REPLOC(18)*RADD04*DZR32R32 . + DZREPLOC(19)*(R12R12*R12R12 . + R22R22*R22R22) . + REPLOC(19)*(DZR12R12*R12R12 . + DZR22R22*R22R22) . + REPLOC(19)*(R12R12*DZR12R12 . + R22R22*DZR22R22) DZREPIJ(8,8)=DZREPIJ(8,8) . + DZREPLOC(20)*(R12R32*R12R32 . + R22R32*R22R32) . + REPLOC(20)*(DZR12R32*R12R32 . + DZR22R32*R22R32) . + REPLOC(20)*(R12R32*DZR12R32 . + R22R32*DZR22R32) . + DZREPLOC(21)*R12R12*R22R22*2.0D0 . + REPLOC(21)*DZR12R12*R22R22*2.0D0 . + REPLOC(21)*R12R12*DZR22R22*2.0D0 . + DZREPLOC(22)*R12R22*R12R22 . + REPLOC(22)*DZR12R22*R12R22 . + REPLOC(22)*R12R22*DZR12R22 C C (PY PY | PY PZ): C REPIJ(8,9) = REPLOC(16)*R32R32*R32R33 . + REPLOC(17)*RADD04*R32R33 . + REPLOC(18)*RADD05*R32R32 . + REPLOC(19)*(R12R12*R12R13 . + R22R22*R22R23) . + REPLOC(20)*(R12R32*R12R33 . + R32R12*R32R13 . + R22R32*R22R33 . + R32R22*R32R23) . + REPLOC(21)*(R12R12*R22R23 . + R22R22*R12R13) . + REPLOC(22)*(R12R22*R12R23 . + R22R12*R22R13) DXREPIJ(8,9) = DXREPLOC(16)*R32R32*R32R33 . + REPLOC(16)*DXR32R32*R32R33 . + REPLOC(16)*R32R32*DXR32R33 . + DXREPLOC(17)*RADD04*R32R33 . + REPLOC(17)*DXRADD04*R32R33 . + REPLOC(17)*RADD04*DXR32R33 . + DXREPLOC(18)*RADD05*R32R32 . + REPLOC(18)*DXRADD05*R32R32 . + REPLOC(18)*RADD05*DXR32R32 . + DXREPLOC(19)*(R12R12*R12R13 . + R22R22*R22R23) . + REPLOC(19)*(DXR12R12*R12R13 . + DXR22R22*R22R23) . + REPLOC(19)*(R12R12*DXR12R13 . + R22R22*DXR22R23) . + DXREPLOC(20)*(R12R32*R12R33 . + R32R12*R32R13 . + R22R32*R22R33 . + R32R22*R32R23) DXREPIJ(8,9)=DXREPIJ(8,9) . + REPLOC(20)*(DXR12R32*R12R33 . + DXR32R12*R32R13 . + DXR22R32*R22R33 . + DXR32R22*R32R23) . + REPLOC(20)*(R12R32*DXR12R33 . + R32R12*DXR32R13 . + R22R32*DXR22R33 . + R32R22*DXR32R23) . + DXREPLOC(21)*(R12R12*R22R23 . + R22R22*R12R13) . + REPLOC(21)*(DXR12R12*R22R23 . + DXR22R22*R12R13) . + REPLOC(21)*(R12R12*DXR22R23 . + R22R22*DXR12R13) . + DXREPLOC(22)*(R12R22*R12R23 . + R22R12*R22R13) . + REPLOC(22)*(DXR12R22*R12R23 . + DXR22R12*R22R13) . + REPLOC(22)*(R12R22*DXR12R23 . + R22R12*DXR22R13) DYREPIJ(8,9) = DYREPLOC(16)*R32R32*R32R33 . + REPLOC(16)*DYR32R32*R32R33 . + REPLOC(16)*R32R32*DYR32R33 . + DYREPLOC(17)*RADD04*R32R33 . + REPLOC(17)*DYRADD04*R32R33 . + REPLOC(17)*RADD04*DYR32R33 . + DYREPLOC(18)*RADD05*R32R32 . + REPLOC(18)*DYRADD05*R32R32 . + REPLOC(18)*RADD05*DYR32R32 . + DYREPLOC(19)*(R12R12*R12R13 . + R22R22*R22R23) . + REPLOC(19)*(DYR12R12*R12R13 . + DYR22R22*R22R23) . + REPLOC(19)*(R12R12*DYR12R13 . + R22R22*DYR22R23) . + DYREPLOC(20)*(R12R32*R12R33 . + R32R12*R32R13 . + R22R32*R22R33 . + R32R22*R32R23) DYREPIJ(8,9)=DYREPIJ(8,9) . + REPLOC(20)*(DYR12R32*R12R33 . + DYR32R12*R32R13 . + DYR22R32*R22R33 . + DYR32R22*R32R23) . + REPLOC(20)*(R12R32*DYR12R33 . + R32R12*DYR32R13 . + R22R32*DYR22R33 . + R32R22*DYR32R23) . + DYREPLOC(21)*(R12R12*R22R23 . + R22R22*R12R13) . + REPLOC(21)*(DYR12R12*R22R23 . + DYR22R22*R12R13) . + REPLOC(21)*(R12R12*DYR22R23 . + R22R22*DYR12R13) . + DYREPLOC(22)*(R12R22*R12R23 . + R22R12*R22R13) . + REPLOC(22)*(DYR12R22*R12R23 . + DYR22R12*R22R13) . + REPLOC(22)*(R12R22*DYR12R23 . + R22R12*DYR22R13) DZREPIJ(8,9) = DZREPLOC(16)*R32R32*R32R33 . + REPLOC(16)*DZR32R32*R32R33 . + REPLOC(16)*R32R32*DZR32R33 . + DZREPLOC(17)*RADD04*R32R33 . + REPLOC(17)*DZRADD04*R32R33 . + REPLOC(17)*RADD04*DZR32R33 . + DZREPLOC(18)*RADD05*R32R32 . + REPLOC(18)*DZRADD05*R32R32 . + REPLOC(18)*RADD05*DZR32R32 . + DZREPLOC(19)*(R12R12*R12R13 . + R22R22*R22R23) . + REPLOC(19)*(DZR12R12*R12R13 . + DZR22R22*R22R23) . + REPLOC(19)*(R12R12*DZR12R13 . + R22R22*DZR22R23) . + DZREPLOC(20)*(R12R32*R12R33 . + R32R12*R32R13 . + R22R32*R22R33 . + R32R22*R32R23) DZREPIJ(8,9)=DZREPIJ(8,9) . + REPLOC(20)*(DZR12R32*R12R33 . + DZR32R12*R32R13 . + DZR22R32*R22R33 . + DZR32R22*R32R23) . + REPLOC(20)*(R12R32*DZR12R33 . + R32R12*DZR32R13 . + R22R32*DZR22R33 . + R32R22*DZR32R23) . + DZREPLOC(21)*(R12R12*R22R23 . + R22R22*R12R13) . + REPLOC(21)*(DZR12R12*R22R23 . + DZR22R22*R12R13) . + REPLOC(21)*(R12R12*DZR22R23 . + R22R22*DZR12R13) . + DZREPLOC(22)*(R12R22*R12R23 . + R22R12*R22R13) . + REPLOC(22)*(DZR12R22*R12R23 . + DZR22R12*R22R13) . + REPLOC(22)*(R12R22*DZR12R23 . + R22R12*DZR22R13) C C (PY PZ | PY PY): C REPIJ(9,8) = REPLOC(16)*R32R33*R32R32 . + REPLOC(17)*RADD05*R32R32 . + REPLOC(18)*RADD04*R32R33 . + REPLOC(19)*(R12R13*R12R12 . + R22R23*R22R22) . + REPLOC(20)*(RADD13*R12R32 . + RADD14*R22R32) . + REPLOC(21)*(R12R13*R22R22 . + R22R23*R12R12) . + REPLOC(22)*RADD16*R12R22 DXREPIJ(9,8) = DXREPLOC(16)*R32R33*R32R32 . + REPLOC(16)*DXR32R33*R32R32 . + REPLOC(16)*R32R33*DXR32R32 . + DXREPLOC(17)*RADD05*R32R32 . + REPLOC(17)*DXRADD05*R32R32 . + REPLOC(17)*RADD05*DXR32R32 . + DXREPLOC(18)*RADD04*R32R33 . + REPLOC(18)*DXRADD04*R32R33 . + REPLOC(18)*RADD04*DXR32R33 . + DXREPLOC(19)*(R12R13*R12R12 . + R22R23*R22R22) . + REPLOC(19)*(DXR12R13*R12R12 . + DXR22R23*R22R22) . + REPLOC(19)*(R12R13*DXR12R12 . + R22R23*DXR22R22) DXREPIJ(9,8)=DXREPIJ(9,8) . + DXREPLOC(20)*(RADD13*R12R32 . + RADD14*R22R32) . + REPLOC(20)*(DXRADD13*R12R32 . + DXRADD14*R22R32) . + REPLOC(20)*(RADD13*DXR12R32 . + RADD14*DXR22R32) . + DXREPLOC(21)*(R12R13*R22R22 . + R22R23*R12R12) . + REPLOC(21)*(DXR12R13*R22R22 . + DXR22R23*R12R12) . + REPLOC(21)*(R12R13*DXR22R22 . + R22R23*DXR12R12) . + DXREPLOC(22)*RADD16*R12R22 . + REPLOC(22)*DXRADD16*R12R22 . + REPLOC(22)*RADD16*DXR12R22 DYREPIJ(9,8) = DYREPLOC(16)*R32R33*R32R32 . + REPLOC(16)*DYR32R33*R32R32 . + REPLOC(16)*R32R33*DYR32R32 . + DYREPLOC(17)*RADD05*R32R32 . + REPLOC(17)*DYRADD05*R32R32 . + REPLOC(17)*RADD05*DYR32R32 . + DYREPLOC(18)*RADD04*R32R33 . + REPLOC(18)*DYRADD04*R32R33 . + REPLOC(18)*RADD04*DYR32R33 . + DYREPLOC(19)*(R12R13*R12R12 . + R22R23*R22R22) . + REPLOC(19)*(DYR12R13*R12R12 . + DYR22R23*R22R22) . + REPLOC(19)*(R12R13*DYR12R12 . + R22R23*DYR22R22) DYREPIJ(9,8)=DYREPIJ(9,8) . + DYREPLOC(20)*(RADD13*R12R32 . + RADD14*R22R32) . + REPLOC(20)*(DYRADD13*R12R32 . + DYRADD14*R22R32) . + REPLOC(20)*(RADD13*DYR12R32 . + RADD14*DYR22R32) . + DYREPLOC(21)*(R12R13*R22R22 . + R22R23*R12R12) . + REPLOC(21)*(DYR12R13*R22R22 . + DYR22R23*R12R12) . + REPLOC(21)*(R12R13*DYR22R22 . + R22R23*DYR12R12) . + DYREPLOC(22)*RADD16*R12R22 . + REPLOC(22)*DYRADD16*R12R22 . + REPLOC(22)*RADD16*DYR12R22 DZREPIJ(9,8) = DZREPLOC(16)*R32R33*R32R32 . + REPLOC(16)*DZR32R33*R32R32 . + REPLOC(16)*R32R33*DZR32R32 . + DZREPLOC(17)*RADD05*R32R32 . + REPLOC(17)*DZRADD05*R32R32 . + REPLOC(17)*RADD05*DZR32R32 . + DZREPLOC(18)*RADD04*R32R33 . + REPLOC(18)*DZRADD04*R32R33 . + REPLOC(18)*RADD04*DZR32R33 . + DZREPLOC(19)*(R12R13*R12R12 . + R22R23*R22R22) . + REPLOC(19)*(DZR12R13*R12R12 . + DZR22R23*R22R22) . + REPLOC(19)*(R12R13*DZR12R12 . + R22R23*DZR22R22) DZREPIJ(9,8)=DZREPIJ(9,8) . + DZREPLOC(20)*(RADD13*R12R32 . + RADD14*R22R32) . + REPLOC(20)*(DZRADD13*R12R32 . + DZRADD14*R22R32) . + REPLOC(20)*(RADD13*DZR12R32 . + RADD14*DZR22R32) . + DZREPLOC(21)*(R12R13*R22R22 . + R22R23*R12R12) . + REPLOC(21)*(DZR12R13*R22R22 . + DZR22R23*R12R12) . + REPLOC(21)*(R12R13*DZR22R22 . + R22R23*DZR12R12) . + DZREPLOC(22)*RADD16*R12R22 . + REPLOC(22)*DZRADD16*R12R22 . + REPLOC(22)*RADD16*DZR12R22 C C (PY PY | PZ PZ): C REPIJ(8,10) = REPLOC(16)*R32R32*R33R33 . + REPLOC(17)*RADD04*R33R33 . + REPLOC(18)*RADD06*R32R32 . + REPLOC(19)*(R12R12*R13R13 . + R22R22*R23R23) . + REPLOC(20)*(R12R32*R13R33 . + R22R32*R23R33) . + REPLOC(21)*(R12R12*R23R23 . + R22R22*R13R13) . + REPLOC(22)*R12R22*R13R23 DXREPIJ(8,10) = DXREPLOC(16)*R32R32*R33R33 . + REPLOC(16)*DXR32R32*R33R33 . + REPLOC(16)*R32R32*DXR33R33 . + DXREPLOC(17)*RADD04*R33R33 . + REPLOC(17)*DXRADD04*R33R33 . + REPLOC(17)*RADD04*DXR33R33 . + DXREPLOC(18)*RADD06*R32R32 . + REPLOC(18)*DXRADD06*R32R32 . + REPLOC(18)*RADD06*DXR32R32 . + DXREPLOC(19)*(R12R12*R13R13 . + R22R22*R23R23) . + REPLOC(19)*(DXR12R12*R13R13 . + DXR22R22*R23R23) . + REPLOC(19)*(R12R12*DXR13R13 . + R22R22*DXR23R23) DXREPIJ(8,10)=DXREPIJ(8,10) . + DXREPLOC(20)*(R12R32*R13R33 . + R22R32*R23R33) . + REPLOC(20)*(DXR12R32*R13R33 . + DXR22R32*R23R33) . + REPLOC(20)*(R12R32*DXR13R33 . + R22R32*DXR23R33) . + DXREPLOC(21)*(R12R12*R23R23 . + R22R22*R13R13) . + REPLOC(21)*(DXR12R12*R23R23 . + DXR22R22*R13R13) . + REPLOC(21)*(R12R12*DXR23R23 . + R22R22*DXR13R13) . + DXREPLOC(22)*R12R22*R13R23 . + REPLOC(22)*DXR12R22*R13R23 . + REPLOC(22)*R12R22*DXR13R23 DYREPIJ(8,10) = DYREPLOC(16)*R32R32*R33R33 . + REPLOC(16)*DYR32R32*R33R33 . + REPLOC(16)*R32R32*DYR33R33 . + DYREPLOC(17)*RADD04*R33R33 . + REPLOC(17)*DYRADD04*R33R33 . + REPLOC(17)*RADD04*DYR33R33 . + DYREPLOC(18)*RADD06*R32R32 . + REPLOC(18)*DYRADD06*R32R32 . + REPLOC(18)*RADD06*DYR32R32 . + DYREPLOC(19)*(R12R12*R13R13 . + R22R22*R23R23) . + REPLOC(19)*(DYR12R12*R13R13 . + DYR22R22*R23R23) . + REPLOC(19)*(R12R12*DYR13R13 . + R22R22*DYR23R23) DYREPIJ(8,10)=DYREPIJ(8,10) . + DYREPLOC(20)*(R12R32*R13R33 . + R22R32*R23R33) . + REPLOC(20)*(DYR12R32*R13R33 . + DYR22R32*R23R33) . + REPLOC(20)*(R12R32*DYR13R33 . + R22R32*DYR23R33) . + DYREPLOC(21)*(R12R12*R23R23 . + R22R22*R13R13) . + REPLOC(21)*(DYR12R12*R23R23 . + DYR22R22*R13R13) . + REPLOC(21)*(R12R12*DYR23R23 . + R22R22*DYR13R13) . + DYREPLOC(22)*R12R22*R13R23 . + REPLOC(22)*DYR12R22*R13R23 . + REPLOC(22)*R12R22*DYR13R23 DZREPIJ(8,10) = DZREPLOC(16)*R32R32*R33R33 . + REPLOC(16)*DZR32R32*R33R33 . + REPLOC(16)*R32R32*DZR33R33 . + DZREPLOC(17)*RADD04*R33R33 . + REPLOC(17)*DZRADD04*R33R33 . + REPLOC(17)*RADD04*DZR33R33 . + DZREPLOC(18)*RADD06*R32R32 . + REPLOC(18)*DZRADD06*R32R32 . + REPLOC(18)*RADD06*DZR32R32 . + DZREPLOC(19)*(R12R12*R13R13 . + R22R22*R23R23) . + REPLOC(19)*(DZR12R12*R13R13 . + DZR22R22*R23R23) . + REPLOC(19)*(R12R12*DZR13R13 . + R22R22*DZR23R23) DZREPIJ(8,10)=DZREPIJ(8,10) . + DZREPLOC(20)*(R12R32*R13R33 . + R22R32*R23R33) . + REPLOC(20)*(DZR12R32*R13R33 . + DZR22R32*R23R33) . + REPLOC(20)*(R12R32*DZR13R33 . + R22R32*DZR23R33) . + DZREPLOC(21)*(R12R12*R23R23 . + R22R22*R13R13) . + REPLOC(21)*(DZR12R12*R23R23 . + DZR22R22*R13R13) . + REPLOC(21)*(R12R12*DZR23R23 . + R22R22*DZR13R13) . + DZREPLOC(22)*R12R22*R13R23 . + REPLOC(22)*DZR12R22*R13R23 . + REPLOC(22)*R12R22*DZR13R23 C C (PZ PZ | PY PY): C REPIJ(10,8) = REPLOC(16)*R33R33*R32R32 . + REPLOC(17)*RADD06*R32R32 . + REPLOC(18)*RADD04*R33R33 . + REPLOC(19)*(R13R13*R12R12 . + R23R23*R22R22) . + REPLOC(20)*(R13R33*R12R32 . + R23R33*R22R32) . + REPLOC(21)*(R13R13*R22R22 . + R23R23*R12R12) . + REPLOC(22)*R13R23*R12R22 DXREPIJ(10,8) = DXREPLOC(16)*R33R33*R32R32 . + REPLOC(16)*DXR33R33*R32R32 . + REPLOC(16)*R33R33*DXR32R32 . + DXREPLOC(17)*RADD06*R32R32 . + REPLOC(17)*DXRADD06*R32R32 . + REPLOC(17)*RADD06*DXR32R32 . + DXREPLOC(18)*RADD04*R33R33 . + REPLOC(18)*DXRADD04*R33R33 . + REPLOC(18)*RADD04*DXR33R33 . + DXREPLOC(19)*(R13R13*R12R12 . + R23R23*R22R22) . + REPLOC(19)*(DXR13R13*R12R12 . + DXR23R23*R22R22) . + REPLOC(19)*(R13R13*DXR12R12 . + R23R23*DXR22R22) DXREPIJ(10,8)=DXREPIJ(10,8) . + DXREPLOC(20)*(R13R33*R12R32 . + R23R33*R22R32) . + REPLOC(20)*(DXR13R33*R12R32 . + DXR23R33*R22R32) . + REPLOC(20)*(R13R33*DXR12R32 . + R23R33*DXR22R32) . + DXREPLOC(21)*(R13R13*R22R22 . + R23R23*R12R12) . + REPLOC(21)*(DXR13R13*R22R22 . + DXR23R23*R12R12) . + REPLOC(21)*(R13R13*DXR22R22 . + R23R23*DXR12R12) . + DXREPLOC(22)*R13R23*R12R22 . + REPLOC(22)*DXR13R23*R12R22 . + REPLOC(22)*R13R23*DXR12R22 DYREPIJ(10,8) = DYREPLOC(16)*R33R33*R32R32 . + REPLOC(16)*DYR33R33*R32R32 . + REPLOC(16)*R33R33*DYR32R32 . + DYREPLOC(17)*RADD06*R32R32 . + REPLOC(17)*DYRADD06*R32R32 . + REPLOC(17)*RADD06*DYR32R32 . + DYREPLOC(18)*RADD04*R33R33 . + REPLOC(18)*DYRADD04*R33R33 . + REPLOC(18)*RADD04*DYR33R33 . + DYREPLOC(19)*(R13R13*R12R12 . + R23R23*R22R22) . + REPLOC(19)*(DYR13R13*R12R12 . + DYR23R23*R22R22) . + REPLOC(19)*(R13R13*DYR12R12 . + R23R23*DYR22R22) DYREPIJ(10,8)=DYREPIJ(10,8) . + DYREPLOC(20)*(R13R33*R12R32 . + R23R33*R22R32) . + REPLOC(20)*(DYR13R33*R12R32 . + DYR23R33*R22R32) . + REPLOC(20)*(R13R33*DYR12R32 . + R23R33*DYR22R32) . + DYREPLOC(21)*(R13R13*R22R22 . + R23R23*R12R12) . + REPLOC(21)*(DYR13R13*R22R22 . + DYR23R23*R12R12) . + REPLOC(21)*(R13R13*DYR22R22 . + R23R23*DYR12R12) . + DYREPLOC(22)*R13R23*R12R22 . + REPLOC(22)*DYR13R23*R12R22 . + REPLOC(22)*R13R23*DYR12R22 DZREPIJ(10,8) = DZREPLOC(16)*R33R33*R32R32 . + REPLOC(16)*DZR33R33*R32R32 . + REPLOC(16)*R33R33*DZR32R32 . + DZREPLOC(17)*RADD06*R32R32 . + REPLOC(17)*DZRADD06*R32R32 . + REPLOC(17)*RADD06*DZR32R32 . + DZREPLOC(18)*RADD04*R33R33 . + REPLOC(18)*DZRADD04*R33R33 . + REPLOC(18)*RADD04*DZR33R33 . + DZREPLOC(19)*(R13R13*R12R12 . + R23R23*R22R22) . + REPLOC(19)*(DZR13R13*R12R12 . + DZR23R23*R22R22) . + REPLOC(19)*(R13R13*DZR12R12 . + R23R23*DZR22R22) DZREPIJ(10,8)=DZREPIJ(10,8) . + DZREPLOC(20)*(R13R33*R12R32 . + R23R33*R22R32) . + REPLOC(20)*(DZR13R33*R12R32 . + DZR23R33*R22R32) . + REPLOC(20)*(R13R33*DZR12R32 . + R23R33*DZR22R32) . + DZREPLOC(21)*(R13R13*R22R22 . + R23R23*R12R12) . + REPLOC(21)*(DZR13R13*R22R22 . + DZR23R23*R12R12) . + REPLOC(21)*(R13R13*DZR22R22 . + R23R23*DZR12R12) . + DZREPLOC(22)*R13R23*R12R22 . + REPLOC(22)*DZR13R23*R12R22 . + REPLOC(22)*R13R23*DZR12R22 C C (PY PZ | PY PZ): C REPIJ(9,9) = REPLOC(16)*R32R33*R32R33 . + REPLOC(17)*RADD05*R32R33 . + REPLOC(18)*RADD05*R32R33 . + REPLOC(19)*(R12R13*R12R13 . + R22R23*R22R23) . + REPLOC(20)*(RADD13**2 . + RADD14**2) . + REPLOC(21)*(R12R13*R22R23)*2.0D0 . + REPLOC(22)*RADD16**2 DXREPIJ(9,9) = DXREPLOC(16)*R32R33*R32R33 . + REPLOC(16)*DXR32R33*R32R33 . + REPLOC(16)*R32R33*DXR32R33 . + DXREPLOC(17)*RADD05*R32R33 . + REPLOC(17)*DXRADD05*R32R33 . + REPLOC(17)*RADD05*DXR32R33 . + DXREPLOC(18)*RADD05*R32R33 . + REPLOC(18)*DXRADD05*R32R33 . + REPLOC(18)*RADD05*DXR32R33 . + DXREPLOC(19)*(R12R13*R12R13 . + R22R23*R22R23) . + REPLOC(19)*(DXR12R13*R12R13 . + DXR22R23*R22R23) . + REPLOC(19)*(R12R13*DXR12R13 . + R22R23*DXR22R23) DXREPIJ(9,9)=DXREPIJ(9,9) . + DXREPLOC(20)*(RADD13**2 . + RADD14**2) . + REPLOC(20)*2.0D0*(RADD13*DXRADD13 . + RADD14*DXRADD14) . + DXREPLOC(21)*(R12R13*R22R23)*2.0D0 . + REPLOC(21)*(DXR12R13*R22R23)*2.0D0 . + REPLOC(21)*(R12R13*DXR22R23)*2.0D0 . + DXREPLOC(22)*RADD16**2 . + REPLOC(22)*RADD16*DXRADD16*2.0d0 DYREPIJ(9,9) = DYREPLOC(16)*R32R33*R32R33 . + REPLOC(16)*DYR32R33*R32R33 . + REPLOC(16)*R32R33*DYR32R33 . + DYREPLOC(17)*RADD05*R32R33 . + REPLOC(17)*DYRADD05*R32R33 . + REPLOC(17)*RADD05*DYR32R33 . + DYREPLOC(18)*RADD05*R32R33 . + REPLOC(18)*DYRADD05*R32R33 . + REPLOC(18)*RADD05*DYR32R33 . + DYREPLOC(19)*(R12R13*R12R13 . + R22R23*R22R23) . + REPLOC(19)*(DYR12R13*R12R13 . + DYR22R23*R22R23) . + REPLOC(19)*(R12R13*DYR12R13 . + R22R23*DYR22R23) DYREPIJ(9,9)=DYREPIJ(9,9) . + DYREPLOC(20)*(RADD13**2 . + RADD14**2) . + REPLOC(20)*2.0D0*(RADD13*DYRADD13 . + RADD14*DYRADD14) . + DYREPLOC(21)*(R12R13*R22R23)*2.0D0 . + REPLOC(21)*(DYR12R13*R22R23)*2.0D0 . + REPLOC(21)*(R12R13*DYR22R23)*2.0D0 . + DYREPLOC(22)*RADD16**2 . + REPLOC(22)*RADD16*DYRADD16*2.0D0 DZREPIJ(9,9) = DZREPLOC(16)*R32R33*R32R33 . + REPLOC(16)*DZR32R33*R32R33 . + REPLOC(16)*R32R33*DZR32R33 . + DZREPLOC(17)*RADD05*R32R33 . + REPLOC(17)*DZRADD05*R32R33 . + REPLOC(17)*RADD05*DZR32R33 . + DZREPLOC(18)*RADD05*R32R33 . + REPLOC(18)*DZRADD05*R32R33 . + REPLOC(18)*RADD05*DZR32R33 . + DZREPLOC(19)*(R12R13*R12R13 . + R22R23*R22R23) . + REPLOC(19)*(DZR12R13*R12R13 . + DZR22R23*R22R23) . + REPLOC(19)*(R12R13*DZR12R13 . + R22R23*DZR22R23) DZREPIJ(9,9)=DZREPIJ(9,9) . + DZREPLOC(20)*(RADD13**2 . + RADD14**2) . + REPLOC(20)*2.0D0*(RADD13*DZRADD13 . + RADD14*DZRADD14) . + DZREPLOC(21)*(R12R13*R22R23)*2.0D0 . + REPLOC(21)*(DZR12R13*R22R23)*2.0D0 . + REPLOC(21)*(R12R13*DZR22R23)*2.0D0 . + DZREPLOC(22)*RADD16**2 . + REPLOC(22)*RADD16*DZRADD16*2.0D0 C C (PY PZ | PZ PZ): C REPIJ(9,10) = REPLOC(16)*R32R33*R33R33 . + REPLOC(17)*RADD05*R33R33 . + REPLOC(18)*RADD06*R32R33 . + REPLOC(19)*(R12R13*R13R13 . + R22R23*R23R23) . + REPLOC(20)*(RADD13*R13R33 . + RADD14*R23R33) . + REPLOC(21)*(R12R13*R23R23 . + R22R23*R13R13) . + REPLOC(22)*RADD16*R13R23 DXREPIJ(9,10) = DXREPLOC(16)*R32R33*R33R33 . + REPLOC(16)*DXR32R33*R33R33 . + REPLOC(16)*R32R33*DXR33R33 . + DXREPLOC(17)*RADD05*R33R33 . + REPLOC(17)*DXRADD05*R33R33 . + REPLOC(17)*RADD05*DXR33R33 . + DXREPLOC(18)*RADD06*R32R33 . + REPLOC(18)*DXRADD06*R32R33 . + REPLOC(18)*RADD06*DXR32R33 . + DXREPLOC(19)*(R12R13*R13R13 . + R22R23*R23R23) . + REPLOC(19)*(DXR12R13*R13R13 . + DXR22R23*R23R23) . + REPLOC(19)*(R12R13*DXR13R13 . + R22R23*DXR23R23) DXREPIJ(9,10)=DXREPIJ(9,10) . + DXREPLOC(20)*(RADD13*R13R33 . + RADD14*R23R33) . + REPLOC(20)*(DXRADD13*R13R33 . + DXRADD14*R23R33) . + REPLOC(20)*(RADD13*DXR13R33 . + RADD14*DXR23R33) . + DXREPLOC(21)*(R12R13*R23R23 . + R22R23*R13R13) . + REPLOC(21)*(DXR12R13*R23R23 . + DXR22R23*R13R13) . + REPLOC(21)*(R12R13*DXR23R23 . + R22R23*DXR13R13) . + DXREPLOC(22)*RADD16*R13R23 . + REPLOC(22)*DXRADD16*R13R23 . + REPLOC(22)*RADD16*DXR13R23 DYREPIJ(9,10) = DYREPLOC(16)*R32R33*R33R33 . + REPLOC(16)*DYR32R33*R33R33 . + REPLOC(16)*R32R33*DYR33R33 . + DYREPLOC(17)*RADD05*R33R33 . + REPLOC(17)*DYRADD05*R33R33 . + REPLOC(17)*RADD05*DYR33R33 . + DYREPLOC(18)*RADD06*R32R33 . + REPLOC(18)*DYRADD06*R32R33 . + REPLOC(18)*RADD06*DYR32R33 . + DYREPLOC(19)*(R12R13*R13R13 . + R22R23*R23R23) . + REPLOC(19)*(DYR12R13*R13R13 . + DYR22R23*R23R23) . + REPLOC(19)*(R12R13*DYR13R13 . + R22R23*DYR23R23) DYREPIJ(9,10)=DYREPIJ(9,10) . + DYREPLOC(20)*(RADD13*R13R33 . + RADD14*R23R33) . + REPLOC(20)*(DYRADD13*R13R33 . + DYRADD14*R23R33) . + REPLOC(20)*(RADD13*DYR13R33 . + RADD14*DYR23R33) . + DYREPLOC(21)*(R12R13*R23R23 . + R22R23*R13R13) . + REPLOC(21)*(DYR12R13*R23R23 . + DYR22R23*R13R13) . + REPLOC(21)*(R12R13*DYR23R23 . + R22R23*DYR13R13) . + DYREPLOC(22)*RADD16*R13R23 . + REPLOC(22)*DYRADD16*R13R23 . + REPLOC(22)*RADD16*DYR13R23 DZREPIJ(9,10) = DZREPLOC(16)*R32R33*R33R33 . + REPLOC(16)*DZR32R33*R33R33 . + REPLOC(16)*R32R33*DZR33R33 . + DZREPLOC(17)*RADD05*R33R33 . + REPLOC(17)*DZRADD05*R33R33 . + REPLOC(17)*RADD05*DZR33R33 . + DZREPLOC(18)*RADD06*R32R33 . + REPLOC(18)*DZRADD06*R32R33 . + REPLOC(18)*RADD06*DZR32R33 . + DZREPLOC(19)*(R12R13*R13R13 . + R22R23*R23R23) . + REPLOC(19)*(DZR12R13*R13R13 . + DZR22R23*R23R23) . + REPLOC(19)*(R12R13*DZR13R13 . + R22R23*DZR23R23) DZREPIJ(9,10)=DZREPIJ(9,10) . + DZREPLOC(20)*(RADD13*R13R33 . + RADD14*R23R33) . + REPLOC(20)*(DZRADD13*R13R33 . + DZRADD14*R23R33) . + REPLOC(20)*(RADD13*DZR13R33 . + RADD14*DZR23R33) . + DZREPLOC(21)*(R12R13*R23R23 . + R22R23*R13R13) . + REPLOC(21)*(DZR12R13*R23R23 . + DZR22R23*R13R13) . + REPLOC(21)*(R12R13*DZR23R23 . + R22R23*DZR13R13) . + DZREPLOC(22)*RADD16*R13R23 . + REPLOC(22)*DZRADD16*R13R23 . + REPLOC(22)*RADD16*DZR13R23 C C (PZ PZ | PY PZ): C REPIJ(10,9) = REPLOC(16)*R33R33*R32R33 . + REPLOC(17)*RADD06*R32R33 . + REPLOC(18)*RADD05*R33R33 . + REPLOC(19)*(R13R13*R12R13 . + R23R23*R22R23) . + REPLOC(20)*(R13R33*R12R33 . + R33R13*R32R13 . + R23R33*R22R33 . + R33R23*R32R23) . + REPLOC(21)*(R13R13*R22R23 . + R23R23*R12R13) . + REPLOC(22)*(R13R23*R12R23 . + R23R13*R22R13) DXREPIJ(10,9) = DXREPLOC(16)*R33R33*R32R33 . + REPLOC(16)*DXR33R33*R32R33 . + REPLOC(16)*R33R33*DXR32R33 . + DXREPLOC(17)*RADD06*R32R33 . + REPLOC(17)*DXRADD06*R32R33 . + REPLOC(17)*RADD06*DXR32R33 . + DXREPLOC(18)*RADD05*R33R33 . + REPLOC(18)*DXRADD05*R33R33 . + REPLOC(18)*RADD05*DXR33R33 . + DXREPLOC(19)*(R13R13*R12R13 . + R23R23*R22R23) . + REPLOC(19)*(DXR13R13*R12R13 . + DXR23R23*R22R23) . + REPLOC(19)*(R13R13*DXR12R13 . + R23R23*DXR22R23) DXREPIJ(10,9)=DXREPIJ(10,9) . + DXREPLOC(20)*(R13R33*R12R33 . + R33R13*R32R13 . + R23R33*R22R33 . + R33R23*R32R23) . + REPLOC(20)*(DXR13R33*R12R33 . + DXR33R13*R32R13 . + DXR23R33*R22R33 . + DXR33R23*R32R23) . + REPLOC(20)*(R13R33*DXR12R33 . + R33R13*DXR32R13 . + R23R33*DXR22R33 . + R33R23*DXR32R23) . + DXREPLOC(21)*(R13R13*R22R23 . + R23R23*R12R13) . + REPLOC(21)*(DXR13R13*R22R23 . + DXR23R23*R12R13) . + REPLOC(21)*(R13R13*DXR22R23 . + R23R23*DXR12R13) . + DXREPLOC(22)*(R13R23*R12R23 . + R23R13*R22R13) . + REPLOC(22)*(DXR13R23*R12R23 . + DXR23R13*R22R13) . + REPLOC(22)*(R13R23*DXR12R23 . + R23R13*DXR22R13) DYREPIJ(10,9) = DYREPLOC(16)*R33R33*R32R33 . + REPLOC(16)*DYR33R33*R32R33 . + REPLOC(16)*R33R33*DYR32R33 . + DYREPLOC(17)*RADD06*R32R33 . + REPLOC(17)*DYRADD06*R32R33 . + REPLOC(17)*RADD06*DYR32R33 . + DYREPLOC(18)*RADD05*R33R33 . + REPLOC(18)*DYRADD05*R33R33 . + REPLOC(18)*RADD05*DYR33R33 . + DYREPLOC(19)*(R13R13*R12R13 . + R23R23*R22R23) . + REPLOC(19)*(DYR13R13*R12R13 . + DYR23R23*R22R23) . + REPLOC(19)*(R13R13*DYR12R13 . + R23R23*DYR22R23) DYREPIJ(10,9)=DYREPIJ(10,9) . + DYREPLOC(20)*(R13R33*R12R33 . + R33R13*R32R13 . + R23R33*R22R33 . + R33R23*R32R23) . + REPLOC(20)*(DYR13R33*R12R33 . + DYR33R13*R32R13 . + DYR23R33*R22R33 . + DYR33R23*R32R23) . + REPLOC(20)*(R13R33*DYR12R33 . + R33R13*DYR32R13 . + R23R33*DYR22R33 . + R33R23*DYR32R23) . + DYREPLOC(21)*(R13R13*R22R23 . + R23R23*R12R13) . + REPLOC(21)*(DYR13R13*R22R23 . + DYR23R23*R12R13) . + REPLOC(21)*(R13R13*DYR22R23 . + R23R23*DYR12R13) . + DYREPLOC(22)*(R13R23*R12R23 . + R23R13*R22R13) . + REPLOC(22)*(DYR13R23*R12R23 . + DYR23R13*R22R13) . + REPLOC(22)*(R13R23*DYR12R23 . + R23R13*DYR22R13) DZREPIJ(10,9) = DZREPLOC(16)*R33R33*R32R33 . + REPLOC(16)*DZR33R33*R32R33 . + REPLOC(16)*R33R33*DZR32R33 . + DZREPLOC(17)*RADD06*R32R33 . + REPLOC(17)*DZRADD06*R32R33 . + REPLOC(17)*RADD06*DZR32R33 . + DZREPLOC(18)*RADD05*R33R33 . + REPLOC(18)*DZRADD05*R33R33 . + REPLOC(18)*RADD05*DZR33R33 . + DZREPLOC(19)*(R13R13*R12R13 . + R23R23*R22R23) . + REPLOC(19)*(DZR13R13*R12R13 . + DZR23R23*R22R23) . + REPLOC(19)*(R13R13*DZR12R13 . + R23R23*DZR22R23) DZREPIJ(10,9)=DZREPIJ(10,9) . + DZREPLOC(20)*(R13R33*R12R33 . + R33R13*R32R13 . + R23R33*R22R33 . + R33R23*R32R23) . + REPLOC(20)*(DZR13R33*R12R33 . + DZR33R13*R32R13 . + DZR23R33*R22R33 . + DZR33R23*R32R23) . + REPLOC(20)*(R13R33*DZR12R33 . + R33R13*DZR32R13 . + R23R33*DZR22R33 . + R33R23*DZR32R23) . + DZREPLOC(21)*(R13R13*R22R23 . + R23R23*R12R13) . + REPLOC(21)*(DZR13R13*R22R23 . + DZR23R23*R12R13) . + REPLOC(21)*(R13R13*DZR22R23 . + R23R23*DZR12R13) . + DZREPLOC(22)*(R13R23*R12R23 . + R23R13*R22R13) . + REPLOC(22)*(DZR13R23*R12R23 . + DZR23R13*R22R13) . + REPLOC(22)*(R13R23*DZR12R23 . + R23R13*DZR22R13) C C (PZ PZ | PZ PZ): C REPIJ(10,10) = REPLOC(16)*R33R33*R33R33 . + REPLOC(17)*RADD06*R33R33 . + REPLOC(18)*RADD06*R33R33 . + REPLOC(19)*(R13R13*R13R13 . + R23R23*R23R23) . + REPLOC(20)*(R13R33*R13R33 . + R23R33*R23R33) . + REPLOC(21)*R13R13*R23R23*2.0D0 . + REPLOC(22)*R13R23*R13R23 DXREPIJ(10,10) = DXREPLOC(16)*R33R33*R33R33 . + REPLOC(16)*DXR33R33*R33R33 . + REPLOC(16)*R33R33*DXR33R33 . + DXREPLOC(17)*RADD06*R33R33 . + REPLOC(17)*DXRADD06*R33R33 . + REPLOC(17)*RADD06*DXR33R33 . + DXREPLOC(18)*RADD06*R33R33 . + REPLOC(18)*DXRADD06*R33R33 . + REPLOC(18)*RADD06*DXR33R33 . + DXREPLOC(19)*(R13R13*R13R13 . + R23R23*R23R23) . + REPLOC(19)*(DXR13R13*R13R13 . + DXR23R23*R23R23) . + REPLOC(19)*(R13R13*DXR13R13 . + R23R23*DXR23R23) DXREPIJ(10,10) =DXREPIJ(10,10) . + DXREPLOC(20)*(R13R33*R13R33 . + R23R33*R23R33) . + REPLOC(20)*(DXR13R33*R13R33 . + DXR23R33*R23R33) . + REPLOC(20)*(R13R33*DXR13R33 . + R23R33*DXR23R33) . + DXREPLOC(21)*R13R13*R23R23*2.0D0 . + REPLOC(21)*DXR13R13*R23R23*2.0D0 . + REPLOC(21)*R13R13*DXR23R23*2.0D0 . + DXREPLOC(22)*R13R23*R13R23 . + REPLOC(22)*DXR13R23*R13R23 . + REPLOC(22)*R13R23*DXR13R23 DYREPIJ(10,10) = DYREPLOC(16)*R33R33*R33R33 . + REPLOC(16)*DYR33R33*R33R33 . + REPLOC(16)*R33R33*DYR33R33 . + DYREPLOC(17)*RADD06*R33R33 . + REPLOC(17)*DYRADD06*R33R33 . + REPLOC(17)*RADD06*DYR33R33 . + DYREPLOC(18)*RADD06*R33R33 . + REPLOC(18)*DYRADD06*R33R33 . + REPLOC(18)*RADD06*DYR33R33 . + DYREPLOC(19)*(R13R13*R13R13 . + R23R23*R23R23) . + REPLOC(19)*(DYR13R13*R13R13 . + DYR23R23*R23R23) . + REPLOC(19)*(R13R13*DYR13R13 . + R23R23*DYR23R23) DYREPIJ(10,10) =DYREPIJ(10,10) . + DYREPLOC(20)*(R13R33*R13R33 . + R23R33*R23R33) . + REPLOC(20)*(DYR13R33*R13R33 . + DYR23R33*R23R33) . + REPLOC(20)*(R13R33*DYR13R33 . + R23R33*DYR23R33) . + DYREPLOC(21)*R13R13*R23R23*2.0D0 . + REPLOC(21)*DYR13R13*R23R23*2.0D0 . + REPLOC(21)*R13R13*DYR23R23*2.0D0 . + DYREPLOC(22)*R13R23*R13R23 . + REPLOC(22)*DYR13R23*R13R23 . + REPLOC(22)*R13R23*DYR13R23 DZREPIJ(10,10) = DZREPLOC(16)*R33R33*R33R33 . + REPLOC(16)*DZR33R33*R33R33 . + REPLOC(16)*R33R33*DZR33R33 . + DZREPLOC(17)*RADD06*R33R33 . + REPLOC(17)*DZRADD06*R33R33 . + REPLOC(17)*RADD06*DZR33R33 . + DZREPLOC(18)*RADD06*R33R33 . + REPLOC(18)*DZRADD06*R33R33 . + REPLOC(18)*RADD06*DZR33R33 . + DZREPLOC(19)*(R13R13*R13R13 . + R23R23*R23R23) . + REPLOC(19)*(DZR13R13*R13R13 . + DZR23R23*R23R23) . + REPLOC(19)*(R13R13*DZR13R13 . + R23R23*DZR23R23) DZREPIJ(10,10) =DZREPIJ(10,10) . + DZREPLOC(20)*(R13R33*R13R33 . + R23R33*R23R33) . + REPLOC(20)*(DZR13R33*R13R33 . + DZR23R33*R23R33) . + REPLOC(20)*(R13R33*DZR13R33 . + R23R33*DZR23R33) . + DZREPLOC(21)*R13R13*R23R23*2.0D0 . + REPLOC(21)*DZR13R13*R23R23*2.0D0 . + REPLOC(21)*R13R13*DZR23R23*2.0D0 . + DZREPLOC(22)*R13R23*R13R23 . + REPLOC(22)*DZR13R23*R13R23 . + REPLOC(22)*R13R23*DZR13R23 ENDIF RETURN END