C 10 NOV 04 - KI  - QUADRATURE ROUTINES FOR S,P,D,L ROTATED AXIS CODE
C
C*MODULE INT2S   *DECK MCDV07
      SUBROUTINE MCDV07(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER(TWO=2.0D+00)
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      F(1,1,1,1)= R2(1,1)+R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
      F(2,1,1,1)= R2(2,1)+R0(1)
      F(3,1,1,1)= R2(3,1)+R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
      F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
      F(5,1,1,1)= R2(5,1)+R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
      F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV08
      SUBROUTINE MCDV08(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
         F(1,1,1,1)= R2(1,1)+R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,1,1,1)= R2(2,1)+R0(1)
         F(3,1,1,1)= R2(3,1)+R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
         F(5,1,1,1)= R2(5,1)+R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
         F(1,2,1,1)= R3(1,1)+R2(1,2)*QX*TWO+R2(1,3)*QX
     *              +R1(1,2)*THREE+R1(1,3)*XX+R1(1,4)*XX*TWO
     *              +R0(3)*QX*TWO+R0(4)*QX+R0(5)*XXX
         F(2,2,1,1)= R3(4,1)+R2(2,3)*QX+R1(1,2)+R0(4)*QX
         F(3,2,1,1)= R3(6,1)+R2(5,2)*QZ*TWO+R2(3,3)*QX
     *              +R1(1,2)+R1(1,3)*ZZ+R1(3,4)*XZ*TWO
     *              +R0(4)*QX+R0(5)*XZZ
         F(4,2,1,1)= R3(2,1)+R2(4,2)*QX+R2(4,3)*QX
     *              +R1(2,2)+R1(2,4)*XX
         F(5,2,1,1)= R3(3,1)+R2(5,2)*QX+R2(1,2)*QZ+R2(5,3)*QX
     *              +R1(3,2)+R1(1,3)*XZ+R1(1,4)*XZ+R1(3,4)*XX
     *              +R0(3)*QZ+R0(5)*XXZ
         F(6,2,1,1)= R3(5,1)+R2(4,2)*QZ+R2(6,3)*QX+R1(2,4)*XZ
         F(1,3,1,1)= R3(2,1)+R2(4,2)*QX*TWO+R1(2,2)+R1(2,3)*XX
         F(2,3,1,1)= R3(7,1)+R1(2,2)*THREE
         F(3,3,1,1)= R3(9,1)+R2(6,2)*QZ*TWO+R1(2,2)+R1(2,3)*ZZ
         F(4,3,1,1)= R3(4,1)+R2(2,2)*QX+R1(1,2)+R0(3)*QX
         F(5,3,1,1)= R3(5,1)+R2(4,2)*QZ+R2(6,2)*QX+R1(2,3)*XZ
         F(6,3,1,1)= R3(8,1)+R2(2,2)*QZ+R1(3,2)+R0(3)*QZ
         F(1,4,1,1)= R3(3,1)+R2(5,2)*QX*TWO+R2(1,3)*QZ
     *              +R1(3,2)+R1(3,3)*XX+R1(1,4)*XZ*TWO
     *              +R0(4)*QZ+R0(5)*XXZ
         F(2,4,1,1)= R3(8,1)+R2(2,3)*QZ+R1(3,2)+R0(4)*QZ
         F(3,4,1,1)= R3(10,1)+R2(3,2)*QZ*TWO+R2(3,3)*QZ
     *              +R1(3,2)*THREE+R1(3,3)*ZZ+R1(3,4)*ZZ*TWO
     *              +R0(3)*QZ*TWO+R0(4)*QZ+R0(5)*ZZZ
         F(4,4,1,1)= R3(5,1)+R2(6,2)*QX+R2(4,3)*QZ+R1(2,4)*XZ
         F(5,4,1,1)= R3(6,1)+R2(5,2)*QZ+R2(3,2)*QX+R2(5,3)*QZ
     *              +R1(1,2)+R1(3,3)*XZ+R1(1,4)*ZZ+R1(3,4)*XZ
     *              +R0(3)*QX+R0(5)*XZZ
         F(6,4,1,1)= R3(9,1)+R2(6,2)*QZ+R2(6,3)*QZ
     *              +R1(2,2)+R1(2,4)*ZZ
      RETURN
      END
C*MODULE INT2S   *DECK MCDV09
      SUBROUTINE MCDV09(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
C
         F(1,1,1,1)= R2(1,1)+R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,1,1,1)= R2(2,1)+R0(1)
         F(3,1,1,1)= R2(3,1)+R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
         F(5,1,1,1)= R2(5,1)+R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
         F(1,1,2,1)=-R3(1,1)-R2(1,3)*QX*TWO-R1(1,3)-R1(1,4)*XX
         F(2,1,2,1)=-R3(4,1)-R1(1,3)
         F(3,1,2,1)=-R3(6,1)-R2(5,3)*QZ*TWO-R1(1,3)-R1(1,4)*ZZ
         F(4,1,2,1)=-R3(2,1)-R2(4,3)*QX
         F(5,1,2,1)=-R3(3,1)-R2(5,3)*QX-R2(1,3)*QZ-R1(1,4)*XZ
         F(6,1,2,1)=-R3(5,1)-R2(4,3)*QZ
         F(1,1,3,1)=-R3(2,1)-R2(4,3)*QX*TWO-R1(2,3)-R1(2,4)*XX
         F(2,1,3,1)=-R3(7,1)-R1(2,3)
         F(3,1,3,1)=-R3(9,1)-R2(6,3)*QZ*TWO-R1(2,3)-R1(2,4)*ZZ
         F(4,1,3,1)=-R3(4,1)-R2(2,3)*QX
         F(5,1,3,1)=-R3(5,1)-R2(6,3)*QX-R2(4,3)*QZ-R1(2,4)*XZ
         F(6,1,3,1)=-R3(8,1)-R2(2,3)*QZ
         F(1,1,4,1)=-R3(3,1)+R2(1,2)-R2(5,3)*QX*TWO+R1(1,2)*QX*TWO
     *              -R1(3,3)-R1(3,4)*XX+R0(3)+R0(4)*XX
         F(2,1,4,1)=-R3(8,1)+R2(2,2)-R1(3,3)+R0(3)
         F(3,1,4,1)=-R3(10,1)+R2(3,2)-R2(3,3)*QZ*TWO+R1(3,2)*QZ*TWO
     *              -R1(3,3)-R1(3,4)*ZZ+R0(3)+R0(4)*ZZ
         F(4,1,4,1)=-R3(5,1)+R2(4,2)-R2(6,3)*QX+R1(2,2)*QX
         F(5,1,4,1)=-R3(6,1)+R2(5,2)-R2(3,3)*QX-R2(5,3)*QZ
     *              +R1(1,2)*QZ+R1(3,2)*QX-R1(3,4)*XZ+R0(4)*XZ
         F(6,1,4,1)=-R3(9,1)+R2(6,2)-R2(6,3)*QZ+R1(2,2)*QZ
      RETURN
      END
C*MODULE INT2S   *DECK MCDV10
      SUBROUTINE MCDV10(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
      XXXX= XX*XX
      XXXZ= XX*XZ
      XXZZ= XX*ZZ
      XZZZ= XZ*ZZ
      ZZZZ= ZZ*ZZ
C
         F(1,1,1,1)= R4( 1,1)+R3(1,1)*QX*TWO+R3(1,2)*QX*TWO
     *              +R2(1,1)*SIX+R2(1,2)*XX+R2(1,3)*XX*FOUR+R2(1,4)*XX
     *              +R1(1,1)*QX*SIX+R1(1,2)*QX*SIX+R1(1,3)*XXX*TWO
     *              +R1(1,4)*XXX*TWO+R0(1)*THREE+R0(2)*XX+R0(3)*XX*FOUR
     *              +R0(4)*XX+R0(5)*XXXX
         F(2,1,1,1)= R4( 4,1)+R3(4,2)*QX*TWO+R2(1,1)+R2(2,1)+R2(2,4)*XX
     *              +R1(1,2)*QX*TWO+R0(1)+R0(4)*XX
         F(3,1,1,1)= R4( 6,1)+R3(3,1)*QZ*TWO+R3(6,2)*QX*TWO
     *              +R2(1,1)+R2(3,1)+R2(1,2)*ZZ+R2(5,3)*XZ*FOUR
     *              +R2(3,4)*XX+R1(3,1)*QZ*TWO+R1(1,2)*QX*TWO
     *              +R1(1,3)*XZZ*TWO+R1(3,4)*XXZ*TWO
     *              +R0(1)+R0(2)*ZZ+R0(4)*XX+R0(5)*XXZZ
         F(4,1,1,1)= R4( 2,1)+R3(2,1)*QX+R3(2,2)*QX*TWO+R2(4,1)*THREE
     *              +R2(4,3)*XX*TWO+R2(4,4)*XX+R1(2,1)*QX+R1(2,2)*QX*TWO
     *              +R1(2,4)*XXX
         F(5,1,1,1)= R4( 3,1)+R3(1,1)*QZ+R3(3,1)*QX+R3(3,2)*QX*TWO
     *              +R2(5,1)*THREE+R2(1,2)*XZ+R2(5,3)*XX*TWO
     *            +R2(1,3)*XZ*TWO+R2(5,4)*XX+R1(1,1)*QZ*THREE+R1(3,1)*QX
     *              +R1(3,2)*QX*TWO+R1(1,3)*XXZ*TWO+R1(1,4)*XXZ
     *              +R1(3,4)*XXX+R0(2)*XZ+R0(3)*XZ*TWO+R0(5)*XXXZ
         F(6,1,1,1)= R4( 5,1)+R3(2,1)*QZ+R3(5,2)*QX*TWO+R2(6,1)
     *              +R2(4,3)*XZ*TWO+R2(6,4)*XX+R1(2,1)*QZ+R1(2,4)*XXZ
         F(1,2,1,1)= R4( 4,1)+R3(4,1)*QX*TWO+R2(1,1)+R2(2,1)+R2(2,2)*XX
     *              +R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,2,1,1)= R4(11,1)+R2(2,1)*SIX+R0(1)*THREE
         F(3,2,1,1)= R4(13,1)+R3(8,1)*QZ*TWO+R2(2,1)+R2(3,1)+R2(2,2)*ZZ
     *              +R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,2,1,1)= R4( 7,1)+R3(7,1)*QX+R2(4,1)*THREE+R1(2,1)*QX*THREE
         F(5,2,1,1)= R4( 8,1)+R3(4,1)*QZ+R3(8,1)*QX+R2(5,1)+R2(2,2)*XZ
     *              +R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,2,1,1)= R4(12,1)+R3(7,1)*QZ+R2(6,1)*THREE+R1(2,1)*QZ*THREE
         F(1,3,1,1)= R4( 6,1)+R3(6,1)*QX*TWO+R3(3,2)*QZ*TWO+R2(1,1)
     *              +R2(3,1)+R2(3,2)*XX+R2(5,3)*XZ*FOUR+R2(1,4)*ZZ
     *              +R1(1,1)*QX*TWO+R1(3,2)*QZ*TWO+R1(3,3)*XXZ*TWO
     *              +R1(1,4)*XZZ*TWO+R0(1)+R0(2)*XX+R0(4)*ZZ+R0(5)*XXZZ
         F(2,3,1,1)= R4(13,1)+R3(8,2)*QZ*TWO+R2(2,1)+R2(3,1)+R2(2,4)*ZZ
     *              +R1(3,2)*QZ*TWO+R0(1)+R0(4)*ZZ
         F(3,3,1,1)= R4(15,1)+R3(10,1)*QZ*TWO+R3(10,2)*QZ*TWO
     *              +R2(3,1)*SIX+R2(3,2)*ZZ+R2(3,3)*ZZ*FOUR+R2(3,4)*ZZ
     *              +R1(3,1)*QZ*SIX+R1(3,2)*QZ*SIX+R1(3,3)*ZZZ*TWO
     *              +R1(3,4)*ZZZ*TWO+R0(1)*THREE+R0(2)*ZZ+R0(3)*ZZ*FOUR
     *              +R0(4)*ZZ+R0(5)*ZZZZ
         F(4,3,1,1)= R4( 9,1)+R3(9,1)*QX+R3(5,2)*QZ*TWO+R2(4,1)
     *              +R2(6,3)*XZ*TWO+R2(4,4)*ZZ+R1(2,1)*QX+R1(2,4)*XZZ
         F(5,3,1,1)= R4(10,1)+R3(10,1)*QX+R3(6,1)*QZ+R3(6,2)*QZ*TWO
     *              +R2(5,1)*THREE+R2(3,2)*XZ+R2(3,3)*XZ*TWO
     *              +R2(5,3)*ZZ*TWO+R2(5,4)*ZZ+R1(1,1)*QZ
     *              +R1(3,1)*QX*THREE+R1(1,2)*QZ*TWO+R1(3,3)*XZZ*TWO
     *              +R1(1,4)*ZZZ+R1(3,4)*XZZ+R0(2)*XZ+R0(3)*XZ*TWO
     *              +R0(5)*XZZZ
         F(6,3,1,1)= R4(14,1)+R3(9,1)*QZ+R3(9,2)*QZ*TWO+R2(6,1)*THREE
     *              +R2(6,3)*ZZ*TWO+R2(6,4)*ZZ+R1(2,1)*QZ+R1(2,2)*QZ*TWO
     *              +R1(2,4)*ZZZ
         F(1,4,1,1)= R4( 2,1)+R3(2,1)*QX*TWO+R3(2,2)*QX+R2(4,1)*THREE
     *              +R2(4,2)*XX+R2(4,3)*XX*TWO+R1(2,1)*QX*TWO
     *              +R1(2,2)*QX+R1(2,3)*XXX
         F(2,4,1,1)= R4( 7,1)+R3(7,2)*QX+R2(4,1)*THREE+R1(2,2)*QX*THREE
         F(3,4,1,1)= R4( 9,1)+R3(5,1)*QZ*TWO+R3(9,2)*QX+R2(4,1)
     *              +R2(4,2)*ZZ+R2(6,3)*XZ*TWO+R1(2,2)*QX+R1(2,3)*XZZ
         F(4,4,1,1)= R4( 4,1)+R3(4,1)*QX+R3(4,2)*QX+R2(1,1)+R2(2,1)
     *              +R2(2,3)*XX+R1(1,1)*QX+R1(1,2)*QX+R0(1)+R0(3)*XX
         F(5,4,1,1)= R4( 5,1)+R3(5,1)*QX+R3(2,1)*QZ+R3(5,2)*QX+R2(6,1)
     *              +R2(4,2)*XZ+R2(6,3)*XX+R2(4,3)*XZ+R1(2,1)*QZ
     *              +R1(2,3)*XXZ
         F(6,4,1,1)= R4( 8,1)+R3(4,1)*QZ+R3(8,2)*QX+R2(5,1)+R2(2,3)*XZ
     *              +R1(1,1)*QZ+R1(3,2)*QX+R0(3)*XZ
         F(1,5,1,1)= R4( 3,1)+R3(3,1)*QX*TWO+R3(1,2)*QZ+R3(3,2)*QX
     *              +R2(5,1)*THREE+R2(5,2)*XX+R2(5,3)*XX*TWO
     *              +R2(1,3)*XZ*TWO+R2(1,4)*XZ+R1(3,1)*QX*TWO
     *              +R1(3,2)*QX+R1(1,2)*QZ*THREE+R1(3,3)*XXX+R1(1,3)*XXZ
     *              +R1(1,4)*XXZ*TWO+R0(3)*XZ*TWO+R0(4)*XZ+R0(5)*XXXZ
         F(2,5,1,1)= R4( 8,1)+R3(8,2)*QX+R3(4,2)*QZ+R2(5,1)+R2(2,4)*XZ
     *              +R1(1,2)*QZ+R1(3,2)*QX+R0(4)*XZ
         F(3,5,1,1)= R4(10,1)+R3(6,1)*QZ*TWO+R3(10,2)*QX+R3(6,2)*QZ
     *              +R2(5,1)*THREE+R2(5,2)*ZZ+R2(3,3)*XZ*TWO
     *              +R2(5,3)*ZZ*TWO+R2(3,4)*XZ+R1(1,1)*QZ*TWO
     *              +R1(1,2)*QZ+R1(3,2)*QX*THREE+R1(1,3)*ZZZ+R1(3,3)*XZZ
     *              +R1(3,4)*XZZ*TWO+R0(3)*XZ*TWO+R0(4)*XZ+R0(5)*XZZZ
         F(4,5,1,1)= R4( 5,1)+R3(5,1)*QX+R3(2,2)*QZ+R3(5,2)*QX+R2(6,1)
     *              +R2(4,3)*XZ+R2(6,3)*XX+R2(4,4)*XZ+R1(2,2)*QZ
     *              +R1(2,4)*XXZ
         F(5,5,1,1)= R4( 6,1)+R3(6,1)*QX+R3(3,1)*QZ+R3(6,2)*QX
     *              +R3(3,2)*QZ+R2(1,1)+R2(3,1)+R2(5,2)*XZ+R2(3,3)*XX
     *              +R2(1,3)*ZZ+R2(5,3)*XZ*TWO+R2(5,4)*XZ+R1(1,1)*QX
     *              +R1(3,1)*QZ+R1(1,2)*QX+R1(3,2)*QZ+R1(1,3)*XZZ
     *              +R1(3,3)*XXZ+R1(1,4)*XZZ+R1(3,4)*XXZ+R0(1)
     *              +R0(3)*XX+R0(3)*ZZ+R0(5)*XXZZ
         F(6,5,1,1)= R4( 9,1)+R3(5,1)*QZ+R3(5,2)*QZ+R3(9,2)*QX+R2(4,1)
     *              +R2(4,3)*ZZ+R2(6,3)*XZ+R2(6,4)*XZ+R1(2,2)*QX
     *              +R1(2,4)*XZZ
         F(1,6,1,1)= R4( 5,1)+R3(5,1)*QX*TWO+R3(2,2)*QZ+R2(6,1)
     *              +R2(6,2)*XX+R2(4,3)*XZ*TWO+R1(2,2)*QZ+R1(2,3)*XXZ
         F(2,6,1,1)= R4(12,1)+R3(7,2)*QZ+R2(6,1)*THREE+R1(2,2)*QZ*THREE
         F(3,6,1,1)= R4(14,1)+R3(9,1)*QZ*TWO+R3(9,2)*QZ+R2(6,1)*THREE
     *              +R2(6,2)*ZZ+R2(6,3)*ZZ*TWO+R1(2,1)*QZ*TWO
     *              +R1(2,2)*QZ+R1(2,3)*ZZZ
         F(4,6,1,1)= R4( 8,1)+R3(8,1)*QX+R3(4,2)*QZ+R2(5,1)+R2(2,3)*XZ
     *              +R1(3,1)*QX+R1(1,2)*QZ+R0(3)*XZ
         F(5,6,1,1)= R4( 9,1)+R3(5,1)*QZ+R3(9,1)*QX+R3(5,2)*QZ+R2(4,1)
     *              +R2(6,2)*XZ+R2(4,3)*ZZ+R2(6,3)*XZ+R1(2,1)*QX
     *              +R1(2,3)*XZZ
         F(6,6,1,1)= R4(13,1)+R3(8,1)*QZ+R3(8,2)*QZ+R2(2,1)+R2(3,1)
     *              +R2(2,3)*ZZ+R1(3,1)*QZ+R1(3,2)*QZ+R0(1)+R0(3)*ZZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV11
      SUBROUTINE MCDV11(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
C
         F(1,1,1,1)= R2(1,1)+R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,1,1,1)= R2(2,1)+R0(1)
         F(3,1,1,1)= R2(3,1)+R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
         F(5,1,1,1)= R2(5,1)+R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
         F(1,2,1,1)= R3(1,1)+R2(1,2)*QX*TWO+R2(1,3)*QX+R1(1,2)*THREE
     *              +R1(1,3)*XX+R1(1,4)*XX*TWO+R0(3)*QX*TWO+R0(4)*QX
     *              +R0(5)*XXX
         F(2,2,1,1)= R3(4,1)+R2(2,3)*QX+R1(1,2)+R0(4)*QX
         F(3,2,1,1)= R3(6,1)+R2(5,2)*QZ*TWO+R2(3,3)*QX+R1(1,2)
     *              +R1(1,3)*ZZ+R1(3,4)*XZ*TWO+R0(4)*QX+R0(5)*XZZ
         F(4,2,1,1)= R3(2,1)+R2(4,2)*QX+R2(4,3)*QX+R1(2,2)+R1(2,4)*XX
         F(5,2,1,1)= R3(3,1)+R2(1,2)*QZ+R2(5,2)*QX+R2(5,3)*QX+R1(3,2)
     *              +R1(1,3)*XZ+R1(1,4)*XZ+R1(3,4)*XX+R0(3)*QZ+R0(5)*XXZ
         F(6,2,1,1)= R3(5,1)+R2(4,2)*QZ+R2(6,3)*QX+R1(2,4)*XZ
         F(1,3,1,1)= R3(2,1)+R2(4,2)*QX*TWO+R1(2,2)+R1(2,3)*XX
         F(2,3,1,1)= R3(7,1)+R1(2,2)*THREE
         F(3,3,1,1)= R3(9,1)+R2(6,2)*QZ*TWO+R1(2,2)+R1(2,3)*ZZ
         F(4,3,1,1)= R3(4,1)+R2(2,2)*QX+R1(1,2)+R0(3)*QX
         F(5,3,1,1)= R3(5,1)+R2(4,2)*QZ+R2(6,2)*QX+R1(2,3)*XZ
         F(6,3,1,1)= R3(8,1)+R2(2,2)*QZ+R1(3,2)+R0(3)*QZ
         F(1,4,1,1)= R3(3,1)+R2(5,2)*QX*TWO+R2(1,3)*QZ+R1(3,2)
     *              +R1(3,3)*XX+R1(1,4)*XZ*TWO+R0(4)*QZ+R0(5)*XXZ
         F(2,4,1,1)= R3(8,1)+R2(2,3)*QZ+R1(3,2)+R0(4)*QZ
         F(3,4,1,1)= R3(10,1)+R2(3,2)*QZ*TWO+R2(3,3)*QZ+R1(3,2)*THREE
     *              +R1(3,3)*ZZ+R1(3,4)*ZZ*TWO+R0(3)*QZ*TWO+R0(4)*QZ
     *              +R0(5)*ZZZ
         F(4,4,1,1)= R3(5,1)+R2(6,2)*QX+R2(4,3)*QZ+R1(2,4)*XZ
         F(5,4,1,1)= R3(6,1)+R2(3,2)*QX+R2(5,2)*QZ+R2(5,3)*QZ+R1(1,2)
     *              +R1(3,3)*XZ+R1(1,4)*ZZ+R1(3,4)*XZ+R0(3)*QX+R0(5)*XZZ
         F(6,4,1,1)= R3(9,1)+R2(6,2)*QZ+R2(6,3)*QZ+R1(2,2)+R1(2,4)*ZZ
         F(1,1,2,1)=-R3(1,3)-R2(1,7)*QX*TWO-R1(1,9)-R1(1,10)*XX
         F(2,1,2,1)=-R3(4,3)-R1(1,9)
         F(3,1,2,1)=-R3(6,3)-R2(5,7)*QZ*TWO-R1(1,9)-R1(1,10)*ZZ
         F(4,1,2,1)=-R3(2,3)-R2(4,7)*QX
         F(5,1,2,1)=-R3(3,3)-R2(1,7)*QZ-R2(5,7)*QX-R1(1,10)*XZ
         F(6,1,2,1)=-R3(5,3)-R2(4,7)*QZ
         F(1,2,2,1)=-R4(1,1)-R3(1,4)*QX*TWO-R3(1,5)*QX-R2(1,8)*THREE
     *              -R2(1,9)*XX-R2(1,10)*XX*TWO-R1(1,11)*QX*TWO
     *              -R1(1,12)*QX-R1(1,13)*XXX
         F(2,2,2,1)=-R4(4,1)-R3(4,5)*QX-R2(1,8)-R1(1,12)*QX
         F(3,2,2,1)=-R4(6,1)-R3(3,4)*QZ*TWO-R3(6,5)*QX-R2(1,8)
     *              -R2(1,9)*ZZ-R2(5,10)*XZ*TWO-R1(1,12)*QX-R1(1,13)*XZZ
         F(4,2,2,1)=-R4(2,1)-R3(2,4)*QX-R3(2,5)*QX-R2(4,8)-R2(4,10)*XX
         F(5,2,2,1)=-R4(3,1)-R3(1,4)*QZ-R3(3,4)*QX-R3(3,5)*QX-R2(5,8)
     *              -R2(1,9)*XZ-R2(1,10)*XZ-R2(5,10)*XX-R1(1,11)*QZ
     *              -R1(1,13)*XXZ
         F(6,2,2,1)=-R4(5,1)-R3(2,4)*QZ-R3(5,5)*QX-R2(4,10)*XZ
         F(1,3,2,1)=-R4(2,1)-R3(2,4)*QX*TWO-R2(4,8)-R2(4,9)*XX
         F(2,3,2,1)=-R4(7,1)-R2(4,8)*THREE
         F(3,3,2,1)=-R4(9,1)-R3(5,4)*QZ*TWO-R2(4,8)-R2(4,9)*ZZ
         F(4,3,2,1)=-R4(4,1)-R3(4,4)*QX-R2(1,8)-R1(1,11)*QX
         F(5,3,2,1)=-R4(5,1)-R3(2,4)*QZ-R3(5,4)*QX-R2(4,9)*XZ
         F(6,3,2,1)=-R4(8,1)-R3(4,4)*QZ-R2(5,8)-R1(1,11)*QZ
         F(1,4,2,1)=-R4(3,1)-R3(3,4)*QX*TWO-R3(1,5)*QZ-R2(5,8)
     *              -R2(5,9)*XX-R2(1,10)*XZ*TWO-R1(1,12)*QZ-R1(1,13)*XXZ
         F(2,4,2,1)=-R4(8,1)-R3(4,5)*QZ-R2(5,8)-R1(1,12)*QZ
         F(3,4,2,1)=-R4(10,1)-R3(6,4)*QZ*TWO-R3(6,5)*QZ-R2(5,8)*THREE
     *              -R2(5,9)*ZZ-R2(5,10)*ZZ*TWO-R1(1,11)*QZ*TWO
     *              -R1(1,12)*QZ-R1(1,13)*ZZZ
         F(4,4,2,1)=-R4(5,1)-R3(5,4)*QX-R3(2,5)*QZ-R2(4,10)*XZ
         F(5,4,2,1)=-R4(6,1)-R3(3,4)*QZ-R3(6,4)*QX-R3(3,5)*QZ-R2(1,8)
     *              -R2(5,9)*XZ-R2(1,10)*ZZ-R2(5,10)*XZ-R1(1,11)*QX
     *              -R1(1,13)*XZZ
         F(6,4,2,1)=-R4(9,1)-R3(5,4)*QZ-R3(5,5)*QZ-R2(4,8)-R2(4,10)*ZZ
         F(1,1,3,1)=-R3(2,3)-R2(4,7)*QX*TWO-R1(2,9)-R1(2,10)*XX
         F(2,1,3,1)=-R3(7,3)-R1(2,9)
         F(3,1,3,1)=-R3(9,3)-R2(6,7)*QZ*TWO-R1(2,9)-R1(2,10)*ZZ
         F(4,1,3,1)=-R3(4,3)-R2(2,7)*QX
         F(5,1,3,1)=-R3(5,3)-R2(4,7)*QZ-R2(6,7)*QX-R1(2,10)*XZ
         F(6,1,3,1)=-R3(8,3)-R2(2,7)*QZ
         F(1,2,3,1)=-R4(2,1)-R3(2,4)*QX*TWO-R3(2,5)*QX-R2(4,8)*THREE
     *              -R2(4,9)*XX-R2(4,10)*XX*TWO-R1(2,11)*QX*TWO
     *              -R1(2,12)*QX-R1(2,13)*XXX
         F(2,2,3,1)=-R4(7,1)-R3(7,5)*QX-R2(4,8)-R1(2,12)*QX
         F(3,2,3,1)=-R4(9,1)-R3(5,4)*QZ*TWO-R3(9,5)*QX-R2(4,8)
     *              -R2(4,9)*ZZ-R2(6,10)*XZ*TWO-R1(2,12)*QX-R1(2,13)*XZZ
         F(4,2,3,1)=-R4(4,1)-R3(4,4)*QX-R3(4,5)*QX-R2(2,8)-R2(2,10)*XX
         F(5,2,3,1)=-R4(5,1)-R3(2,4)*QZ-R3(5,4)*QX-R3(5,5)*QX-R2(6,8)
     *              -R2(4,9)*XZ-R2(4,10)*XZ-R2(6,10)*XX-R1(2,11)*QZ
     *              -R1(2,13)*XXZ
         F(6,2,3,1)=-R4(8,1)-R3(4,4)*QZ-R3(8,5)*QX-R2(2,10)*XZ
         F(1,3,3,1)=-R4(4,1)-R3(4,4)*QX*TWO-R2(2,8)-R2(2,9)*XX
         F(2,3,3,1)=-R4(11,1)-R2(2,8)*THREE
         F(3,3,3,1)=-R4(13,1)-R3(8,4)*QZ*TWO-R2(2,8)-R2(2,9)*ZZ
         F(4,3,3,1)=-R4(7,1)-R3(7,4)*QX-R2(4,8)-R1(2,11)*QX
         F(5,3,3,1)=-R4(8,1)-R3(4,4)*QZ-R3(8,4)*QX-R2(2,9)*XZ
         F(6,3,3,1)=-R4(12,1)-R3(7,4)*QZ-R2(6,8)-R1(2,11)*QZ
         F(1,4,3,1)=-R4(5,1)-R3(5,4)*QX*TWO-R3(2,5)*QZ-R2(6,8)
     *              -R2(6,9)*XX-R2(4,10)*XZ*TWO-R1(2,12)*QZ-R1(2,13)*XXZ
         F(2,4,3,1)=-R4(12,1)-R3(7,5)*QZ-R2(6,8)-R1(2,12)*QZ
         F(3,4,3,1)=-R4(14,1)-R3(9,4)*QZ*TWO-R3(9,5)*QZ-R2(6,8)*THREE
     *              -R2(6,9)*ZZ-R2(6,10)*ZZ*TWO-R1(2,11)*QZ*TWO
     *              -R1(2,12)*QZ-R1(2,13)*ZZZ
         F(4,4,3,1)=-R4(8,1)-R3(8,4)*QX-R3(4,5)*QZ-R2(2,10)*XZ
         F(5,4,3,1)=-R4(9,1)-R3(5,4)*QZ-R3(9,4)*QX-R3(5,5)*QZ-R2(4,8)
     *              -R2(6,9)*XZ-R2(4,10)*ZZ-R2(6,10)*XZ-R1(2,11)*QX
     *              -R1(2,13)*XZZ
         F(6,4,3,1)=-R4(13,1)-R3(8,4)*QZ-R3(8,5)*QZ-R2(2,8)-R2(2,10)*ZZ
         F(1,1,4,1)=-R3(3,3)+R2(1,4)-R2(5,7)*QX*TWO+R1(1,5)*QX*TWO
     *              -R1(3,9)-R1(3,10)*XX+R0(6)+R0(7)*XX
         F(2,1,4,1)=-R3(8,3)+R2(2,4)-R1(3,9)+R0(6)
         F(3,1,4,1)=-R3(10,3)+R2(3,4)-R2(3,7)*QZ*TWO+R1(3,5)*QZ*TWO
     *              -R1(3,9)-R1(3,10)*ZZ+R0(6)+R0(7)*ZZ
         F(4,1,4,1)=-R3(5,3)+R2(4,4)-R2(6,7)*QX+R1(2,5)*QX
         F(5,1,4,1)=-R3(6,3)+R2(5,4)-R2(3,7)*QX-R2(5,7)*QZ+R1(1,5)*QZ
     *              +R1(3,5)*QX-R1(3,10)*XZ+R0(7)*XZ
         F(6,1,4,1)=-R3(9,3)+R2(6,4)-R2(6,7)*QZ+R1(2,5)*QZ
         F(1,2,4,1)=-R4(3,1)+R3(1,2)-R3(3,4)*QX*TWO-R3(3,5)*QX
     *              +R2(1,5)*QX*TWO+R2(1,6)*QX-R2(5,8)*THREE-R2(5,9)*XX
     *              -R2(5,10)*XX*TWO+R1(1,6)*THREE+R1(1,7)*XX
     *              +R1(1,8)*XX*TWO-R1(3,11)*QX*TWO-R1(3,12)*QX
     *              -R1(3,13)*XXX+R0(8)*QX*TWO+R0(9)*QX+R0(10)*XXX
         F(2,2,4,1)=-R4(8,1)+R3(4,2)-R3(8,5)*QX+R2(2,6)*QX-R2(5,8)
     *              +R1(1,6)-R1(3,12)*QX+R0(9)*QX
         F(3,2,4,1)=-R4(10,1)+R3(6,2)-R3(6,4)*QZ*TWO-R3(10,5)*QX
     *              +R2(5,5)*QZ*TWO+R2(3,6)*QX-R2(5,8)-R2(5,9)*ZZ
     *              -R2(3,10)*XZ*TWO+R1(1,6)+R1(1,7)*ZZ+R1(3,8)*XZ*TWO
     *              -R1(3,12)*QX-R1(3,13)*XZZ+R0(9)*QX+R0(10)*XZZ
         F(4,2,4,1)=-R4(5,1)+R3(2,2)-R3(5,4)*QX-R3(5,5)*QX+R2(4,5)*QX
     *              +R2(4,6)*QX-R2(6,8)-R2(6,10)*XX+R1(2,6)+R1(2,8)*XX
         F(5,2,4,1)=-R4(6,1)+R3(3,2)-R3(3,4)*QZ-R3(6,4)*QX-R3(6,5)*QX
     *              +R2(1,5)*QZ+R2(5,5)*QX+R2(5,6)*QX-R2(3,8)-R2(5,9)*XZ
     *              -R2(3,10)*XX-R2(5,10)*XZ+R1(3,6)+R1(1,7)*XZ
     *              +R1(1,8)*XZ+R1(3,8)*XX-R1(3,11)*QZ-R1(3,13)*XXZ
     *              +R0(8)*QZ+R0(10)*XXZ
         F(6,2,4,1)=-R4(9,1)+R3(5,2)-R3(5,4)*QZ-R3(9,5)*QX+R2(4,5)*QZ
     *              +R2(6,6)*QX-R2(6,10)*XZ+R1(2,8)*XZ
         F(1,3,4,1)=-R4(5,1)+R3(2,2)-R3(5,4)*QX*TWO+R2(4,5)*QX*TWO
     *              -R2(6,8)-R2(6,9)*XX+R1(2,6)+R1(2,7)*XX
         F(2,3,4,1)=-R4(12,1)+R3(7,2)-R2(6,8)*THREE+R1(2,6)*THREE
         F(3,3,4,1)=-R4(14,1)+R3(9,2)-R3(9,4)*QZ*TWO+R2(6,5)*QZ*TWO
     *              -R2(6,8)-R2(6,9)*ZZ+R1(2,6)+R1(2,7)*ZZ
         F(4,3,4,1)=-R4(8,1)+R3(4,2)-R3(8,4)*QX+R2(2,5)*QX-R2(5,8)
     *              +R1(1,6)-R1(3,11)*QX+R0(8)*QX
         F(5,3,4,1)=-R4(9,1)+R3(5,2)-R3(5,4)*QZ-R3(9,4)*QX+R2(4,5)*QZ
     *              +R2(6,5)*QX-R2(6,9)*XZ+R1(2,7)*XZ
         F(6,3,4,1)=-R4(13,1)+R3(8,2)-R3(8,4)*QZ+R2(2,5)*QZ-R2(3,8)
     *              +R1(3,6)-R1(3,11)*QZ+R0(8)*QZ
         F(1,4,4,1)=-R4(6,1)+R3(3,2)-R3(6,4)*QX*TWO-R3(3,5)*QZ
     *              +R2(5,5)*QX*TWO+R2(1,6)*QZ-R2(3,8)-R2(3,9)*XX
     *              -R2(5,10)*XZ*TWO+R1(3,6)+R1(3,7)*XX+R1(1,8)*XZ*TWO
     *              -R1(3,12)*QZ-R1(3,13)*XXZ+R0(9)*QZ+R0(10)*XXZ
         F(2,4,4,1)=-R4(13,1)+R3(8,2)-R3(8,5)*QZ+R2(2,6)*QZ-R2(3,8)
     *              +R1(3,6)-R1(3,12)*QZ+R0(9)*QZ
         F(3,4,4,1)=-R4(15,1)+R3(10,2)-R3(10,4)*QZ*TWO-R3(10,5)*QZ
     *              +R2(3,5)*QZ*TWO+R2(3,6)*QZ-R2(3,8)*THREE-R2(3,9)*ZZ
     *              -R2(3,10)*ZZ*TWO+R1(3,6)*THREE+R1(3,7)*ZZ
     *              +R1(3,8)*ZZ*TWO-R1(3,11)*QZ*TWO-R1(3,12)*QZ
     *              -R1(3,13)*ZZZ+R0(8)*QZ*TWO+R0(9)*QZ+R0(10)*ZZZ
         F(4,4,4,1)=-R4(9,1)+R3(5,2)-R3(9,4)*QX-R3(5,5)*QZ+R2(6,5)*QX
     *              +R2(4,6)*QZ-R2(6,10)*XZ+R1(2,8)*XZ
         F(5,4,4,1)=-R4(10,1)+R3(6,2)-R3(6,4)*QZ-R3(10,4)*QX-R3(6,5)*QZ
     *              +R2(3,5)*QX+R2(5,5)*QZ+R2(5,6)*QZ-R2(5,8)-R2(3,9)*XZ
     *              -R2(3,10)*XZ-R2(5,10)*ZZ+R1(1,6)+R1(3,7)*XZ
     *              +R1(1,8)*ZZ+R1(3,8)*XZ-R1(3,11)*QX-R1(3,13)*XZZ
     *              +R0(8)*QX+R0(10)*XZZ
         F(6,4,4,1)=-R4(14,1)+R3(9,2)-R3(9,4)*QZ-R3(9,5)*QZ+R2(6,5)*QZ
     *              +R2(6,6)*QZ-R2(6,8)-R2(6,10)*ZZ+R1(2,6)+R1(2,8)*ZZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV12
      SUBROUTINE MCDV12(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, FOUR=4.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
C
         F(1,1,1,1)= R4(1,1)+R3(1,2)*QX*TWO+R2(1,1)+R2(1,4)+R2(1,5)*XX
     *              +R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,1,1,1)= R4(4,1)+R2(2,1)+R2(1,4)+R0(1)
         F(3,1,1,1)= R4(6,1)+R3(3,2)*QZ*TWO+R2(3,1)+R2(1,4)+R2(1,5)*ZZ
     *              +R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,1,1,1)= R4(2,1)+R3(2,2)*QX+R2(4,1)+R1(2,1)*QX
         F(5,1,1,1)= R4(3,1)+R3(1,2)*QZ+R3(3,2)*QX+R2(5,1)+R2(1,5)*XZ
     *              +R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,1,1,1)= R4(5,1)+R3(2,2)*QZ+R2(6,1)+R1(2,1)*QZ
         F(1,1,2,1)= R4(4,1)+R3(4,2)*QX*TWO+R2(1,1)+R2(2,4)+R2(2,5)*XX
     *              +R1(1,1)*QX*TWO+R0(1)+R0(2)*XX
         F(2,1,2,1)= R4(11,1)+R2(2,1)+R2(2,4)+R0(1)
         F(3,1,2,1)= R4(13,1)+R3(8,2)*QZ*TWO+R2(3,1)+R2(2,4)+R2(2,5)*ZZ
     *              +R1(3,1)*QZ*TWO+R0(1)+R0(2)*ZZ
         F(4,1,2,1)= R4(7,1)+R3(7,2)*QX+R2(4,1)+R1(2,1)*QX
         F(5,1,2,1)= R4(8,1)+R3(4,2)*QZ+R3(8,2)*QX+R2(5,1)+R2(2,5)*XZ
     *              +R1(1,1)*QZ+R1(3,1)*QX+R0(2)*XZ
         F(6,1,2,1)= R4(12,1)+R3(7,2)*QZ+R2(6,1)+R1(2,1)*QZ
         F(1,1,3,1)= R4(6,1)-R3(3,1)*TWO+R3(6,2)*QX*TWO+R2(1,1)+R2(1,2)
     *              -R2(5,3)*QX*FOUR+R2(3,4)+R2(3,5)*XX+R1(1,1)*QX*TWO
     *              +R1(1,2)*QX*TWO-R1(3,3)*TWO-R1(3,4)*XX*TWO+R0(1)
     *              +R0(2)*XX+R0(3)+R0(4)*XX
         F(2,1,3,1)= R4(13,1)-R3(8,1)*TWO+R2(2,1)+R2(2,2)+R2(3,4)
     *              -R1(3,3)*TWO+R0(1)+R0(3)
         F(3,1,3,1)= R4(15,1)-R3(10,1)*TWO+R3(10,2)*QZ*TWO+R2(3,1)
     *              +R2(3,2)-R2(3,3)*QZ*FOUR+R2(3,4)+R2(3,5)*ZZ
     *              +R1(3,1)*QZ*TWO+R1(3,2)*QZ*TWO-R1(3,3)*TWO
     *              -R1(3,4)*ZZ*TWO+R0(1)+R0(2)*ZZ+R0(3)+R0(4)*ZZ
         F(4,1,3,1)= R4(9,1)-R3(5,1)*TWO+R3(9,2)*QX+R2(4,1)+R2(4,2)
     *              -R2(6,3)*QX*TWO+R1(2,1)*QX+R1(2,2)*QX
         F(5,1,3,1)= R4(10,1)-R3(6,1)*TWO+R3(6,2)*QZ+R3(10,2)*QX+R2(5,1)
     *              +R2(5,2)-R2(3,3)*QX*TWO-R2(5,3)*QZ*TWO+R2(3,5)*XZ
     *              +R1(1,1)*QZ+R1(3,1)*QX+R1(1,2)*QZ+R1(3,2)*QX
     *              -R1(3,4)*XZ*TWO+R0(2)*XZ+R0(4)*XZ
         F(6,1,3,1)= R4(14,1)-R3(9,1)*TWO+R3(9,2)*QZ+R2(6,1)+R2(6,2)
     *              -R2(6,3)*QZ*TWO+R1(2,1)*QZ+R1(2,2)*QZ
         F(1,1,4,1)= R4(2,1)+R3(2,2)*QX*TWO+R2(4,4)+R2(4,5)*XX
         F(2,1,4,1)= R4(7,1)+R2(4,4)
         F(3,1,4,1)= R4(9,1)+R3(5,2)*QZ*TWO+R2(4,4)+R2(4,5)*ZZ
         F(4,1,4,1)= R4(4,1)+R3(4,2)*QX
         F(5,1,4,1)= R4(5,1)+R3(2,2)*QZ+R3(5,2)*QX+R2(4,5)*XZ
         F(6,1,4,1)= R4(8,1)+R3(4,2)*QZ
         F(1,1,5,1)= R4(3,1)-R3(1,1)+R3(3,2)*QX*TWO-R2(1,3)*QX*TWO
     *              +R2(5,4)+R2(5,5)*XX-R1(1,3)-R1(1,4)*XX
         F(2,1,5,1)= R4(8,1)-R3(4,1)+R2(5,4)-R1(1,3)
         F(3,1,5,1)= R4(10,1)-R3(6,1)+R3(6,2)*QZ*TWO-R2(5,3)*QZ*TWO
     *              +R2(5,4)+R2(5,5)*ZZ-R1(1,3)-R1(1,4)*ZZ
         F(4,1,5,1)= R4(5,1)-R3(2,1)+R3(5,2)*QX-R2(4,3)*QX
         F(5,1,5,1)= R4(6,1)-R3(3,1)+R3(3,2)*QZ+R3(6,2)*QX-R2(1,3)*QZ
     *              -R2(5,3)*QX+R2(5,5)*XZ-R1(1,4)*XZ
         F(6,1,5,1)= R4(9,1)-R3(5,1)+R3(5,2)*QZ-R2(4,3)*QZ
         F(1,1,6,1)= R4(5,1)-R3(2,1)+R3(5,2)*QX*TWO-R2(4,3)*QX*TWO
     *              +R2(6,4)+R2(6,5)*XX-R1(2,3)-R1(2,4)*XX
         F(2,1,6,1)= R4(12,1)-R3(7,1)+R2(6,4)-R1(2,3)
         F(3,1,6,1)= R4(14,1)-R3(9,1)+R3(9,2)*QZ*TWO-R2(6,3)*QZ*TWO
     *              +R2(6,4)+R2(6,5)*ZZ-R1(2,3)-R1(2,4)*ZZ
         F(4,1,6,1)= R4(8,1)-R3(4,1)+R3(8,2)*QX-R2(2,3)*QX
         F(5,1,6,1)= R4(9,1)-R3(5,1)+R3(5,2)*QZ+R3(9,2)*QX-R2(4,3)*QZ
     *              -R2(6,3)*QX+R2(6,5)*XZ-R1(2,4)*XZ
         F(6,1,6,1)= R4(13,1)-R3(8,1)+R3(8,2)*QZ-R2(2,3)*QZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV13
      SUBROUTINE MCDV13(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
C
         F(1,1,1,1)= R2(1,1)+R1(1,1)*QX*TWO+R0(1)+R0(6)*XX
         F(2,1,1,1)= R2(2,1)+R0(1)
         F(3,1,1,1)= R2(3,1)+R1(3,1)*QZ*TWO+R0(1)+R0(6)*ZZ
         F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
         F(5,1,1,1)= R2(5,1)+R1(1,1)*QZ+R1(3,1)*QX+R0(6)*XZ
         F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
         F(1,1,2,1)=-R3(1,2)-R2(1,6)*QX*TWO-R1(1,6)-R1(1,7)*XX
         F(2,1,2,1)=-R3(4,2)-R1(1,6)
         F(3,1,2,1)=-R3(6,2)-R2(5,6)*QZ*TWO-R1(1,6)-R1(1,7)*ZZ
         F(4,1,2,1)=-R3(2,2)-R2(4,6)*QX
         F(5,1,2,1)=-R3(3,2)-R2(1,6)*QZ-R2(5,6)*QX-R1(1,7)*XZ
         F(6,1,2,1)=-R3(5,2)-R2(4,6)*QZ
         F(1,1,3,1)=-R3(2,2)-R2(4,6)*QX*TWO-R1(2,6)-R1(2,7)*XX
         F(2,1,3,1)=-R3(7,2)-R1(2,6)
         F(3,1,3,1)=-R3(9,2)-R2(6,6)*QZ*TWO-R1(2,6)-R1(2,7)*ZZ
         F(4,1,3,1)=-R3(4,2)-R2(2,6)*QX
         F(5,1,3,1)=-R3(5,2)-R2(4,6)*QZ-R2(6,6)*QX-R1(2,7)*XZ
         F(6,1,3,1)=-R3(8,2)-R2(2,6)*QZ
         F(1,1,4,1)=-R3(3,2)+R2(1,2)-R2(5,6)*QX*TWO+R1(1,2)*QX*TWO
     *              -R1(3,6)-R1(3,7)*XX+R0(2)+R0(7)*XX
         F(2,1,4,1)=-R3(8,2)+R2(2,2)-R1(3,6)+R0(2)
         F(3,1,4,1)=-R3(10,2)+R2(3,2)-R2(3,6)*QZ*TWO+R1(3,2)*QZ*TWO
     *              -R1(3,6)-R1(3,7)*ZZ+R0(2)+R0(7)*ZZ
         F(4,1,4,1)=-R3(5,2)+R2(4,2)-R2(6,6)*QX+R1(2,2)*QX
         F(5,1,4,1)=-R3(6,2)+R2(5,2)-R2(3,6)*QX-R2(5,6)*QZ+R1(1,2)*QZ
     *              +R1(3,2)*QX-R1(3,7)*XZ+R0(7)*XZ
         F(6,1,4,1)=-R3(9,2)+R2(6,2)-R2(6,6)*QZ+R1(2,2)*QZ
         F(1,1,1,2)=-R3(1,3)-R2(1,7)*QX*TWO-R1(1,8)-R1(1,9)*XX
         F(2,1,1,2)=-R3(4,3)-R1(1,8)
         F(3,1,1,2)=-R3(6,3)-R2(5,7)*QZ*TWO-R1(1,8)-R1(1,9)*ZZ
         F(4,1,1,2)=-R3(2,3)-R2(4,7)*QX
         F(5,1,1,2)=-R3(3,3)-R2(1,7)*QZ-R2(5,7)*QX-R1(1,9)*XZ
         F(6,1,1,2)=-R3(5,3)-R2(4,7)*QZ
         F(1,1,2,2)= R4(1,1)+R3(1,5)*QX*TWO+R2(1,5)+R2(1,10)+R2(1,11)*XX
     *              +R1(1,5)*QX*TWO+R0(5)+R0(10)*XX
         F(2,1,2,2)= R4(4,1)+R2(2,5)+R2(1,10)+R0(5)
         F(3,1,2,2)= R4(6,1)+R3(3,5)*QZ*TWO+R2(3,5)+R2(1,10)+R2(1,11)*ZZ
     *              +R1(3,5)*QZ*TWO+R0(5)+R0(10)*ZZ
         F(4,1,2,2)= R4(2,1)+R3(2,5)*QX+R2(4,5)+R1(2,5)*QX
         F(5,1,2,2)= R4(3,1)+R3(1,5)*QZ+R3(3,5)*QX+R2(5,5)+R2(1,11)*XZ
     *              +R1(1,5)*QZ+R1(3,5)*QX+R0(10)*XZ
         F(6,1,2,2)= R4(5,1)+R3(2,5)*QZ+R2(6,5)+R1(2,5)*QZ
         F(1,1,3,2)= R4(2,1)+R3(2,5)*QX*TWO+R2(4,10)+R2(4,11)*XX
         F(2,1,3,2)= R4(7,1)+R2(4,10)
         F(3,1,3,2)= R4(9,1)+R3(5,5)*QZ*TWO+R2(4,10)+R2(4,11)*ZZ
         F(4,1,3,2)= R4(4,1)+R3(4,5)*QX
         F(5,1,3,2)= R4(5,1)+R3(2,5)*QZ+R3(5,5)*QX+R2(4,11)*XZ
         F(6,1,3,2)= R4(8,1)+R3(4,5)*QZ
         F(1,1,4,2)= R4(3,1)-R3(1,4)+R3(3,5)*QX*TWO-R2(1,8)*QX*TWO
     *              +R2(5,10)+R2(5,11)*XX-R1(1,10)-R1(1,11)*XX
         F(2,1,4,2)= R4(8,1)-R3(4,4)+R2(5,10)-R1(1,10)
         F(3,1,4,2)= R4(10,1)-R3(6,4)+R3(6,5)*QZ*TWO-R2(5,8)*QZ*TWO
     *              +R2(5,10)+R2(5,11)*ZZ-R1(1,10)-R1(1,11)*ZZ
         F(4,1,4,2)= R4(5,1)-R3(2,4)+R3(5,5)*QX-R2(4,8)*QX
         F(5,1,4,2)= R4(6,1)-R3(3,4)+R3(3,5)*QZ+R3(6,5)*QX-R2(1,8)*QZ
     *              -R2(5,8)*QX+R2(5,11)*XZ-R1(1,11)*XZ
         F(6,1,4,2)= R4(9,1)-R3(5,4)+R3(5,5)*QZ-R2(4,8)*QZ
         F(1,1,1,3)=-R3(2,3)-R2(4,7)*QX*TWO-R1(2,8)-R1(2,9)*XX
         F(2,1,1,3)=-R3(7,3)-R1(2,8)
         F(3,1,1,3)=-R3(9,3)-R2(6,7)*QZ*TWO-R1(2,8)-R1(2,9)*ZZ
         F(4,1,1,3)=-R3(4,3)-R2(2,7)*QX
         F(5,1,1,3)=-R3(5,3)-R2(4,7)*QZ-R2(6,7)*QX-R1(2,9)*XZ
         F(6,1,1,3)=-R3(8,3)-R2(2,7)*QZ
         F(1,1,2,3)= R4(2,1)+R3(2,5)*QX*TWO+R2(4,10)+R2(4,11)*XX
         F(2,1,2,3)= R4(7,1)+R2(4,10)
         F(3,1,2,3)= R4(9,1)+R3(5,5)*QZ*TWO+R2(4,10)+R2(4,11)*ZZ
         F(4,1,2,3)= R4(4,1)+R3(4,5)*QX
         F(5,1,2,3)= R4(5,1)+R3(2,5)*QZ+R3(5,5)*QX+R2(4,11)*XZ
         F(6,1,2,3)= R4(8,1)+R3(4,5)*QZ
         F(1,1,3,3)= R4(4,1)+R3(4,5)*QX*TWO+R2(1,5)+R2(2,10)+R2(2,11)*XX
     *              +R1(1,5)*QX*TWO+R0(5)+R0(10)*XX
         F(2,1,3,3)= R4(11,1)+R2(2,5)+R2(2,10)+R0(5)
         F(3,1,3,3)= R4(13,1)+R3(8,5)*QZ*TWO+R2(3,5)+R2(2,10)
     *              +R2(2,11)*ZZ+R1(3,5)*QZ*TWO+R0(5)+R0(10)*ZZ
         F(4,1,3,3)= R4(7,1)+R3(7,5)*QX+R2(4,5)+R1(2,5)*QX
         F(5,1,3,3)= R4(8,1)+R3(4,5)*QZ+R3(8,5)*QX+R2(5,5)+R2(2,11)*XZ
     *              +R1(1,5)*QZ+R1(3,5)*QX+R0(10)*XZ
         F(6,1,3,3)= R4(12,1)+R3(7,5)*QZ+R2(6,5)+R1(2,5)*QZ
         F(1,1,4,3)= R4(5,1)-R3(2,4)+R3(5,5)*QX*TWO-R2(4,8)*QX*TWO
     *              +R2(6,10)+R2(6,11)*XX-R1(2,10)-R1(2,11)*XX
         F(2,1,4,3)= R4(12,1)-R3(7,4)+R2(6,10)-R1(2,10)
         F(3,1,4,3)= R4(14,1)-R3(9,4)+R3(9,5)*QZ*TWO-R2(6,8)*QZ*TWO
     *              +R2(6,10)+R2(6,11)*ZZ-R1(2,10)-R1(2,11)*ZZ
         F(4,1,4,3)= R4(8,1)-R3(4,4)+R3(8,5)*QX-R2(2,8)*QX
         F(5,1,4,3)= R4(9,1)-R3(5,4)+R3(5,5)*QZ+R3(9,5)*QX-R2(4,8)*QZ
     *              -R2(6,8)*QX+R2(6,11)*XZ-R1(2,11)*XZ
         F(6,1,4,3)= R4(13,1)-R3(8,4)+R3(8,5)*QZ-R2(2,8)*QZ
         F(1,1,1,4)=-R3(3,3)+R2(1,3)-R2(5,7)*QX*TWO+R1(1,3)*QX*TWO
     *              -R1(3,8)-R1(3,9)*XX+R0(3)+R0(8)*XX
         F(2,1,1,4)=-R3(8,3)+R2(2,3)-R1(3,8)+R0(3)
         F(3,1,1,4)=-R3(10,3)+R2(3,3)-R2(3,7)*QZ*TWO+R1(3,3)*QZ*TWO
     *              -R1(3,8)-R1(3,9)*ZZ+R0(3)+R0(8)*ZZ
         F(4,1,1,4)=-R3(5,3)+R2(4,3)-R2(6,7)*QX+R1(2,3)*QX
         F(5,1,1,4)=-R3(6,3)+R2(5,3)-R2(3,7)*QX-R2(5,7)*QZ+R1(1,3)*QZ
     *              +R1(3,3)*QX-R1(3,9)*XZ+R0(8)*XZ
         F(6,1,1,4)=-R3(9,3)+R2(6,3)-R2(6,7)*QZ+R1(2,3)*QZ
         F(1,1,2,4)= R4(3,1)-R3(1,1)+R3(3,5)*QX*TWO-R2(1,9)*QX*TWO
     *              +R2(5,10)+R2(5,11)*XX-R1(1,12)-R1(1,13)*XX
         F(2,1,2,4)= R4(8,1)-R3(4,1)+R2(5,10)-R1(1,12)
         F(3,1,2,4)= R4(10,1)-R3(6,1)+R3(6,5)*QZ*TWO-R2(5,9)*QZ*TWO
     *              +R2(5,10)+R2(5,11)*ZZ-R1(1,12)-R1(1,13)*ZZ
         F(4,1,2,4)= R4(5,1)-R3(2,1)+R3(5,5)*QX-R2(4,9)*QX
         F(5,1,2,4)= R4(6,1)-R3(3,1)+R3(3,5)*QZ+R3(6,5)*QX-R2(1,9)*QZ
     *              -R2(5,9)*QX+R2(5,11)*XZ-R1(1,13)*XZ
         F(6,1,2,4)= R4(9,1)-R3(5,1)+R3(5,5)*QZ-R2(4,9)*QZ
         F(1,1,3,4)= R4(5,1)-R3(2,1)+R3(5,5)*QX*TWO-R2(4,9)*QX*TWO
     *              +R2(6,10)+R2(6,11)*XX-R1(2,12)-R1(2,13)*XX
         F(2,1,3,4)= R4(12,1)-R3(7,1)+R2(6,10)-R1(2,12)
         F(3,1,3,4)= R4(14,1)-R3(9,1)+R3(9,5)*QZ*TWO-R2(6,9)*QZ*TWO
     *              +R2(6,10)+R2(6,11)*ZZ-R1(2,12)-R1(2,13)*ZZ
         F(4,1,3,4)= R4(8,1)-R3(4,1)+R3(8,5)*QX-R2(2,9)*QX
         F(5,1,3,4)= R4(9,1)-R3(5,1)+R3(5,5)*QZ+R3(9,5)*QX-R2(4,9)*QZ
     *              -R2(6,9)*QX+R2(6,11)*XZ-R1(2,13)*XZ
         F(6,1,3,4)= R4(13,1)-R3(8,1)+R3(8,5)*QZ-R2(2,9)*QZ
         F(1,1,4,4)= R4(6,1)-R3(3,1)-R3(3,4)+R3(6,5)*QX*TWO+R2(1,4)
     *              +R2(1,5)-R2(5,8)*QX*TWO-R2(5,9)*QX*TWO+R2(3,10)
     *              +R2(3,11)*XX+R1(1,4)*QX*TWO+R1(1,5)*QX*TWO-R1(3,10)
     *              -R1(3,11)*XX-R1(3,12)-R1(3,13)*XX+R0(4)+R0(5)
     *              +R0(9)*XX+R0(10)*XX
         F(2,1,4,4)= R4(13,1)-R3(8,1)-R3(8,4)+R2(2,4)+R2(2,5)+R2(3,10)
     *              -R1(3,10)-R1(3,12)+R0(4)+R0(5)
         F(3,1,4,4)= R4(15,1)-R3(10,1)-R3(10,4)+R3(10,5)*QZ*TWO+R2(3,4)
     *              +R2(3,5)-R2(3,8)*QZ*TWO-R2(3,9)*QZ*TWO+R2(3,10)
     *              +R2(3,11)*ZZ+R1(3,4)*QZ*TWO+R1(3,5)*QZ*TWO-R1(3,10)
     *              -R1(3,11)*ZZ-R1(3,12)-R1(3,13)*ZZ+R0(4)+R0(5)
     *              +R0(9)*ZZ+R0(10)*ZZ
         F(4,1,4,4)= R4(9,1)-R3(5,1)-R3(5,4)+R3(9,5)*QX+R2(4,4)+R2(4,5)
     *              -R2(6,8)*QX-R2(6,9)*QX+R1(2,4)*QX+R1(2,5)*QX
         F(5,1,4,4)= R4(10,1)-R3(6,1)-R3(6,4)+R3(6,5)*QZ+R3(10,5)*QX
     *              +R2(5,4)+R2(5,5)-R2(3,8)*QX-R2(5,8)*QZ-R2(3,9)*QX
     *              -R2(5,9)*QZ+R2(3,11)*XZ+R1(1,4)*QZ+R1(3,4)*QX
     *              +R1(1,5)*QZ+R1(3,5)*QX-R1(3,11)*XZ-R1(3,13)*XZ
     *              +R0(9)*XZ+R0(10)*XZ
         F(6,1,4,4)= R4(14,1)-R3(9,1)-R3(9,4)+R3(9,5)*QZ+R2(6,4)+R2(6,5)
     *              -R2(6,8)*QZ-R2(6,9)*QZ+R1(2,4)*QZ+R1(2,5)*QZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV14
      SUBROUTINE MCDV14(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
      XXXX= XX*XX
      XXXZ= XX*XZ
      XXZZ= XX*ZZ
      XZZZ= XZ*ZZ
      ZZZZ= ZZ*ZZ
      F(1,1,1,1)= R4(1,1)+R2(1,1)*SIX+R0(1)*THREE+(+R3(1,1)*TWO
     * +R3(1,2)*TWO+R1(1,1)*SIX+R1(1,2)*SIX)*QX+(+R2(1,2)+R2(1,3)*FOUR
     * +R2(1,4)+R0(2)+R0(3)*FOUR+R0(4))*XX+(+R1(1,3)*TWO+R1(1,4)*TWO)
     * *XXX+R0(5)*XXXX
      F(2,1,1,1)= R4(4,1)+R2(1,1)+R2(2,1)+R0(1)+(+R3(4,2)*TWO
     * +R1(1,2)*TWO)*QX+(+R2(2,4)+R0(4))*XX
      F(3,1,1,1)= R4(6,1)+R2(1,1)+R2(3,1)+R0(1)+(+R3(6,2)*TWO
     * +R1(1,2)*TWO)*QX+(+R3(3,1)*TWO+R1(3,1)*TWO)*QZ+(+R2(3,4)+R0(4))
     * *XX+R2(5,3)*FOUR*XZ+(+R2(1,2)+R0(2))*ZZ+R1(3,4)*TWO*XXZ
     * +R1(1,3)*TWO*XZZ+R0(5)*XXZZ
      F(4,1,1,1)= R4(2,1)+R2(4,1)*THREE+(+R3(2,1)+R3(2,2)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QX+(+R2(4,3)*TWO+R2(4,4))*XX+R1(2,4)*XXX
      F(5,1,1,1)= R4(3,1)+R2(5,1)*THREE+(+R3(3,1)+R3(3,2)*TWO+R1(3,1)
     * +R1(3,2)*TWO)*QX+(+R3(1,1)+R1(1,1)*THREE)*QZ+(+R2(5,3)*TWO
     * +R2(5,4))*XX+(+R2(1,2)+R2(1,3)*TWO+R0(2)+R0(3)*TWO)*XZ+R1(3,4)
     * *XXX+(+R1(1,3)*TWO+R1(1,4))*XXZ+R0(5)*XXXZ
      F(6,1,1,1)= R4(5,1)+R2(6,1)+R3(5,2)*TWO*QX+(+R3(2,1)+R1(2,1))*QZ
     * +R2(6,4)*XX+R2(4,3)*TWO*XZ+R1(2,4)*XXZ
      F(1,2,1,1)= R4(4,1)+R2(1,1)+R2(2,1)+R0(1)+(+R3(4,1)*TWO
     * +R1(1,1)*TWO)*QX+(+R2(2,2)+R0(2))*XX
      F(2,2,1,1)= R4(11,1)+R2(2,1)*SIX+R0(1)*THREE
      F(3,2,1,1)= R4(13,1)+R2(2,1)+R2(3,1)+R0(1)+(+R3(8,1)*TWO
     * +R1(3,1)*TWO)*QZ+(+R2(2,2)+R0(2))*ZZ
      F(4,2,1,1)= R4(7,1)+R2(4,1)*THREE+(+R3(7,1)+R1(2,1)*THREE)*QX
      F(5,2,1,1)= R4(8,1)+R2(5,1)+(+R3(8,1)+R1(3,1))*QX+(+R3(4,1)
     * +R1(1,1))*QZ+(+R2(2,2)+R0(2))*XZ
      F(6,2,1,1)= R4(12,1)+R2(6,1)*THREE+(+R3(7,1)+R1(2,1)*THREE)*QZ
      F(1,3,1,1)= R4(6,1)+R2(1,1)+R2(3,1)+R0(1)+(+R3(6,1)*TWO
     * +R1(1,1)*TWO)*QX+(+R3(3,2)*TWO+R1(3,2)*TWO)*QZ+(+R2(3,2)+R0(2))
     * *XX+R2(5,3)*FOUR*XZ+(+R2(1,4)+R0(4))*ZZ+R1(3,3)*TWO*XXZ
     * +R1(1,4)*TWO*XZZ+R0(5)*XXZZ
      F(2,3,1,1)= R4(13,1)+R2(2,1)+R2(3,1)+R0(1)+(+R3(8,2)*TWO
     * +R1(3,2)*TWO)*QZ+(+R2(2,4)+R0(4))*ZZ
      F(3,3,1,1)= R4(15,1)+R2(3,1)*SIX+R0(1)*THREE+(+R3(10,1)*TWO
     * +R3(10,2)*TWO+R1(3,1)*SIX+R1(3,2)*SIX)*QZ+(+R2(3,2)+R2(3,3)*FOUR
     * +R2(3,4)+R0(2)+R0(3)*FOUR+R0(4))*ZZ+(+R1(3,3)*TWO+R1(3,4)*TWO)
     * *ZZZ+R0(5)*ZZZZ
      F(4,3,1,1)= R4(9,1)+R2(4,1)+(+R3(9,1)+R1(2,1))*QX+R3(5,2)*TWO*QZ
     * +R2(6,3)*TWO*XZ+R2(4,4)*ZZ+R1(2,4)*XZZ
      F(5,3,1,1)= R4(10,1)+R2(5,1)*THREE+(+R3(10,1)+R1(3,1)*THREE)*QX+(
     * +R3(6,1)+R3(6,2)*TWO+R1(1,1)+R1(1,2)*TWO)*QZ+(+R2(3,2)
     * +R2(3,3)*TWO+R0(2)+R0(3)*TWO)*XZ+(+R2(5,3)*TWO+R2(5,4))*ZZ+(
     * +R1(3,3)*TWO+R1(3,4))*XZZ+R1(1,4)*ZZZ+R0(5)*XZZZ
      F(6,3,1,1)= R4(14,1)+R2(6,1)*THREE+(+R3(9,1)+R3(9,2)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QZ+(+R2(6,3)*TWO+R2(6,4))*ZZ+R1(2,4)*ZZZ
      F(1,4,1,1)= R4(2,1)+R2(4,1)*THREE+(+R3(2,1)*TWO+R3(2,2)
     * +R1(2,1)*TWO+R1(2,2))*QX+(+R2(4,2)+R2(4,3)*TWO)*XX+R1(2,3)*XXX
      F(2,4,1,1)= R4(7,1)+R2(4,1)*THREE+(+R3(7,2)+R1(2,2)*THREE)*QX
      F(3,4,1,1)= R4(9,1)+R2(4,1)+(+R3(9,2)+R1(2,2))*QX+R3(5,1)*TWO*QZ
     * +R2(6,3)*TWO*XZ+R2(4,2)*ZZ+R1(2,3)*XZZ
      F(4,4,1,1)= R4(4,1)+R2(1,1)+R2(2,1)+R0(1)+(+R3(4,1)+R3(4,2)
     * +R1(1,1)+R1(1,2))*QX+(+R2(2,3)+R0(3))*XX
      F(5,4,1,1)= R4(5,1)+R2(6,1)+(+R3(5,1)+R3(5,2))*QX+(+R3(2,1)
     * +R1(2,1))*QZ+R2(6,3)*XX+(+R2(4,2)+R2(4,3))*XZ+R1(2,3)*XXZ
      F(6,4,1,1)= R4(8,1)+R2(5,1)+(+R3(8,2)+R1(3,2))*QX+(+R3(4,1)
     * +R1(1,1))*QZ+(+R2(2,3)+R0(3))*XZ
      F(1,5,1,1)= R4(3,1)+R2(5,1)*THREE+(+R3(3,1)*TWO+R3(3,2)
     * +R1(3,1)*TWO+R1(3,2))*QX+(+R3(1,2)+R1(1,2)*THREE)*QZ+(+R2(5,2)
     * +R2(5,3)*TWO)*XX+(+R2(1,3)*TWO+R2(1,4)+R0(3)*TWO+R0(4))*XZ
     * +R1(3,3)*XXX+(+R1(1,3)+R1(1,4)*TWO)*XXZ+R0(5)*XXXZ
      F(2,5,1,1)= R4(8,1)+R2(5,1)+(+R3(8,2)+R1(3,2))*QX+(+R3(4,2)
     * +R1(1,2))*QZ+(+R2(2,4)+R0(4))*XZ
      F(3,5,1,1)= R4(10,1)+R2(5,1)*THREE+(+R3(10,2)+R1(3,2)*THREE)*QX+(
     * +R3(6,1)*TWO+R3(6,2)+R1(1,1)*TWO+R1(1,2))*QZ+(+R2(3,3)*TWO
     * +R2(3,4)+R0(3)*TWO+R0(4))*XZ+(+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R1(3,3)
     * +R1(3,4)*TWO)*XZZ+R1(1,3)*ZZZ+R0(5)*XZZZ
      F(4,5,1,1)= R4(5,1)+R2(6,1)+(+R3(5,1)+R3(5,2))*QX+(+R3(2,2)
     * +R1(2,2))*QZ+R2(6,3)*XX+(+R2(4,3)+R2(4,4))*XZ+R1(2,4)*XXZ
      F(5,5,1,1)= R4(6,1)+R2(1,1)+R2(3,1)+R0(1)+(+R3(6,1)+R3(6,2)
     * +R1(1,1)+R1(1,2))*QX+(+R3(3,1)+R3(3,2)+R1(3,1)+R1(3,2))*QZ+(
     * +R2(3,3)+R0(3))*XX+(+R2(5,2)+R2(5,3)*TWO+R2(5,4))*XZ+(+R2(1,3)
     * +R0(3))*ZZ+(+R1(3,3)+R1(3,4))*XXZ+(+R1(1,3)+R1(1,4))*XZZ+R0(5)
     * *XXZZ
      F(6,5,1,1)= R4(9,1)+R2(4,1)+(+R3(9,2)+R1(2,2))*QX+(+R3(5,1)
     * +R3(5,2))*QZ+(+R2(6,3)+R2(6,4))*XZ+R2(4,3)*ZZ+R1(2,4)*XZZ
      F(1,6,1,1)= R4(5,1)+R2(6,1)+R3(5,1)*TWO*QX+(+R3(2,2)+R1(2,2))*QZ
     * +R2(6,2)*XX+R2(4,3)*TWO*XZ+R1(2,3)*XXZ
      F(2,6,1,1)= R4(12,1)+R2(6,1)*THREE+(+R3(7,2)+R1(2,2)*THREE)*QZ
      F(3,6,1,1)= R4(14,1)+R2(6,1)*THREE+(+R3(9,1)*TWO+R3(9,2)
     * +R1(2,1)*TWO+R1(2,2))*QZ+(+R2(6,2)+R2(6,3)*TWO)*ZZ+R1(2,3)*ZZZ
      F(4,6,1,1)= R4(8,1)+R2(5,1)+(+R3(8,1)+R1(3,1))*QX+(+R3(4,2)
     * +R1(1,2))*QZ+(+R2(2,3)+R0(3))*XZ
      F(5,6,1,1)= R4(9,1)+R2(4,1)+(+R3(9,1)+R1(2,1))*QX+(+R3(5,1)
     * +R3(5,2))*QZ+(+R2(6,2)+R2(6,3))*XZ+R2(4,3)*ZZ+R1(2,3)*XZZ
      F(6,6,1,1)= R4(13,1)+R2(2,1)+R2(3,1)+R0(1)+(+R3(8,1)+R3(8,2)
     * +R1(3,1)+R1(3,2))*QZ+(+R2(2,3)+R0(3))*ZZ
      F(1,1,2,1)= -R5(1,1)-R3(1,5)*SIX-R1(1,9)*THREE+(-R4(1,3)*TWO
     * -R4(1,4)*TWO-R2(1,9)*SIX-R2(1,10)*SIX)*QX+(-R3(1,6)-R3(1,7)*FOUR
     * -R3(1,8)-R1(1,10)-R1(1,11)*FOUR-R1(1,12))*XX+(-R2(1,11)*TWO
     * -R2(1,12)*TWO)*XXX-R1(1,13)*XXXX
      F(2,1,2,1)= -R5(4,1)-R3(1,5)-R3(4,5)-R1(1,9)+(-R4(4,4)*TWO
     * -R2(1,10)*TWO)*QX+(-R3(4,8)-R1(1,12))*XX
      F(3,1,2,1)= -R5(6,1)-R3(1,5)-R3(6,5)-R1(1,9)+(-R4(6,4)*TWO
     * -R2(1,10)*TWO)*QX+(-R4(3,3)*TWO-R2(5,9)*TWO)*QZ+(-R3(6,8)
     * -R1(1,12))*XX-R3(3,7)*FOUR*XZ+(-R3(1,6)-R1(1,10))*ZZ-R2(5,12)*TWO
     * *XXZ-R2(1,11)*TWO*XZZ-R1(1,13)*XXZZ
      F(4,1,2,1)= -R5(2,1)-R3(2,5)*THREE+(-R4(2,3)-R4(2,4)*TWO-R2(4,9)
     * -R2(4,10)*TWO)*QX+(-R3(2,7)*TWO-R3(2,8))*XX-R2(4,12)*XXX
      F(5,1,2,1)= -R5(3,1)-R3(3,5)*THREE+(-R4(3,3)-R4(3,4)*TWO-R2(5,9)
     * -R2(5,10)*TWO)*QX+(-R4(1,3)-R2(1,9)*THREE)*QZ+(-R3(3,7)*TWO
     * -R3(3,8))*XX+(-R3(1,6)-R3(1,7)*TWO-R1(1,10)-R1(1,11)*TWO)*XZ
     * -R2(5,12)*XXX+(-R2(1,11)*TWO-R2(1,12))*XXZ-R1(1,13)*XXXZ
      F(6,1,2,1)= -R5(5,1)-R3(5,5)-R4(5,4)*TWO*QX+(-R4(2,3)-R2(4,9))*QZ
     * -R3(5,8)*XX-R3(2,7)*TWO*XZ-R2(4,12)*XXZ
      F(1,2,2,1)= -R5(4,1)-R3(1,5)-R3(4,5)-R1(1,9)+(-R4(4,3)*TWO
     * -R2(1,9)*TWO)*QX+(-R3(4,6)-R1(1,10))*XX
      F(2,2,2,1)= -R5(11,1)-R3(4,5)*SIX-R1(1,9)*THREE
      F(3,2,2,1)= -R5(13,1)-R3(4,5)-R3(6,5)-R1(1,9)+(-R4(8,3)*TWO
     * -R2(5,9)*TWO)*QZ+(-R3(4,6)-R1(1,10))*ZZ
      F(4,2,2,1)= -R5(7,1)-R3(2,5)*THREE+(-R4(7,3)-R2(4,9)*THREE)*QX
      F(5,2,2,1)= -R5(8,1)-R3(3,5)+(-R4(8,3)-R2(5,9))*QX+(-R4(4,3)
     * -R2(1,9))*QZ+(-R3(4,6)-R1(1,10))*XZ
      F(6,2,2,1)= -R5(12,1)-R3(5,5)*THREE+(-R4(7,3)-R2(4,9)*THREE)*QZ
      F(1,3,2,1)= -R5(6,1)-R3(1,5)-R3(6,5)-R1(1,9)+(-R4(6,3)*TWO
     * -R2(1,9)*TWO)*QX+(-R4(3,4)*TWO-R2(5,10)*TWO)*QZ+(-R3(6,6)
     * -R1(1,10))*XX-R3(3,7)*FOUR*XZ+(-R3(1,8)-R1(1,12))*ZZ-R2(5,11)*TWO
     * *XXZ-R2(1,12)*TWO*XZZ-R1(1,13)*XXZZ
      F(2,3,2,1)= -R5(13,1)-R3(4,5)-R3(6,5)-R1(1,9)+(-R4(8,4)*TWO
     * -R2(5,10)*TWO)*QZ+(-R3(4,8)-R1(1,12))*ZZ
      F(3,3,2,1)= -R5(15,1)-R3(6,5)*SIX-R1(1,9)*THREE+(-R4(10,3)*TWO
     * -R4(10,4)*TWO-R2(5,9)*SIX-R2(5,10)*SIX)*QZ+(-R3(6,6)-R3(6,7)*FOUR
     * -R3(6,8)-R1(1,10)-R1(1,11)*FOUR-R1(1,12))*ZZ+(-R2(5,11)*TWO
     * -R2(5,12)*TWO)*ZZZ-R1(1,13)*ZZZZ
      F(4,3,2,1)= -R5(9,1)-R3(2,5)+(-R4(9,3)-R2(4,9))*QX-R4(5,4)*TWO*QZ
     * -R3(5,7)*TWO*XZ-R3(2,8)*ZZ-R2(4,12)*XZZ
      F(5,3,2,1)= -R5(10,1)-R3(3,5)*THREE+(-R4(10,3)-R2(5,9)*THREE)*QX+(
     * -R4(6,3)-R4(6,4)*TWO-R2(1,9)-R2(1,10)*TWO)*QZ+(-R3(6,6)
     * -R3(6,7)*TWO-R1(1,10)-R1(1,11)*TWO)*XZ+(-R3(3,7)*TWO-R3(3,8))*ZZ
     * +(-R2(5,11)*TWO-R2(5,12))*XZZ-R2(1,12)*ZZZ-R1(1,13)*XZZZ
      F(6,3,2,1)= -R5(14,1)-R3(5,5)*THREE+(-R4(9,3)-R4(9,4)*TWO-R2(4,9)
     * -R2(4,10)*TWO)*QZ+(-R3(5,7)*TWO-R3(5,8))*ZZ-R2(4,12)*ZZZ
      F(1,4,2,1)= -R5(2,1)-R3(2,5)*THREE+(-R4(2,3)*TWO-R4(2,4)
     * -R2(4,9)*TWO-R2(4,10))*QX+(-R3(2,6)-R3(2,7)*TWO)*XX-R2(4,11)*XXX
      F(2,4,2,1)= -R5(7,1)-R3(2,5)*THREE+(-R4(7,4)-R2(4,10)*THREE)*QX
      F(3,4,2,1)= -R5(9,1)-R3(2,5)+(-R4(9,4)-R2(4,10))*QX-R4(5,3)*TWO*QZ
     * -R3(5,7)*TWO*XZ-R3(2,6)*ZZ-R2(4,11)*XZZ
      F(4,4,2,1)= -R5(4,1)-R3(1,5)-R3(4,5)-R1(1,9)+(-R4(4,3)-R4(4,4)
     * -R2(1,9)-R2(1,10))*QX+(-R3(4,7)-R1(1,11))*XX
      F(5,4,2,1)= -R5(5,1)-R3(5,5)+(-R4(5,3)-R4(5,4))*QX+(-R4(2,3)
     * -R2(4,9))*QZ-R3(5,7)*XX+(-R3(2,6)-R3(2,7))*XZ-R2(4,11)*XXZ
      F(6,4,2,1)= -R5(8,1)-R3(3,5)+(-R4(8,4)-R2(5,10))*QX+(-R4(4,3)
     * -R2(1,9))*QZ+(-R3(4,7)-R1(1,11))*XZ
      F(1,5,2,1)= -R5(3,1)-R3(3,5)*THREE+(-R4(3,3)*TWO-R4(3,4)
     * -R2(5,9)*TWO-R2(5,10))*QX+(-R4(1,4)-R2(1,10)*THREE)*QZ+(-R3(3,6)
     * -R3(3,7)*TWO)*XX+(-R3(1,7)*TWO-R3(1,8)-R1(1,11)*TWO-R1(1,12))*XZ
     * -R2(5,11)*XXX+(-R2(1,11)-R2(1,12)*TWO)*XXZ-R1(1,13)*XXXZ
      F(2,5,2,1)= -R5(8,1)-R3(3,5)+(-R4(8,4)-R2(5,10))*QX+(-R4(4,4)
     * -R2(1,10))*QZ+(-R3(4,8)-R1(1,12))*XZ
      F(3,5,2,1)= -R5(10,1)-R3(3,5)*THREE+(-R4(10,4)-R2(5,10)*THREE)*QX
     * +(-R4(6,3)*TWO-R4(6,4)-R2(1,9)*TWO-R2(1,10))*QZ+(-R3(6,7)*TWO
     * -R3(6,8)-R1(1,11)*TWO-R1(1,12))*XZ+(-R3(3,6)-R3(3,7)*TWO)*ZZ+(
     * -R2(5,11)-R2(5,12)*TWO)*XZZ-R2(1,11)*ZZZ-R1(1,13)*XZZZ
      F(4,5,2,1)= -R5(5,1)-R3(5,5)+(-R4(5,3)-R4(5,4))*QX+(-R4(2,4)
     * -R2(4,10))*QZ-R3(5,7)*XX+(-R3(2,7)-R3(2,8))*XZ-R2(4,12)*XXZ
      F(5,5,2,1)= -R5(6,1)-R3(1,5)-R3(6,5)-R1(1,9)+(-R4(6,3)-R4(6,4)
     * -R2(1,9)-R2(1,10))*QX+(-R4(3,3)-R4(3,4)-R2(5,9)-R2(5,10))*QZ+(
     * -R3(6,7)-R1(1,11))*XX+(-R3(3,6)-R3(3,7)*TWO-R3(3,8))*XZ+(-R3(1,7)
     * -R1(1,11))*ZZ+(-R2(5,11)-R2(5,12))*XXZ+(-R2(1,11)-R2(1,12))*XZZ
     * -R1(1,13)*XXZZ
      F(6,5,2,1)= -R5(9,1)-R3(2,5)+(-R4(9,4)-R2(4,10))*QX+(-R4(5,3)
     * -R4(5,4))*QZ+(-R3(5,7)-R3(5,8))*XZ-R3(2,7)*ZZ-R2(4,12)*XZZ
      F(1,6,2,1)= -R5(5,1)-R3(5,5)-R4(5,3)*TWO*QX+(-R4(2,4)-R2(4,10))*QZ
     * -R3(5,6)*XX-R3(2,7)*TWO*XZ-R2(4,11)*XXZ
      F(2,6,2,1)= -R5(12,1)-R3(5,5)*THREE+(-R4(7,4)-R2(4,10)*THREE)*QZ
      F(3,6,2,1)= -R5(14,1)-R3(5,5)*THREE+(-R4(9,3)*TWO-R4(9,4)
     * -R2(4,9)*TWO-R2(4,10))*QZ+(-R3(5,6)-R3(5,7)*TWO)*ZZ-R2(4,11)*ZZZ
      F(4,6,2,1)= -R5(8,1)-R3(3,5)+(-R4(8,3)-R2(5,9))*QX+(-R4(4,4)
     * -R2(1,10))*QZ+(-R3(4,7)-R1(1,11))*XZ
      F(5,6,2,1)= -R5(9,1)-R3(2,5)+(-R4(9,3)-R2(4,9))*QX+(-R4(5,3)
     * -R4(5,4))*QZ+(-R3(5,6)-R3(5,7))*XZ-R3(2,7)*ZZ-R2(4,11)*XZZ
      F(6,6,2,1)= -R5(13,1)-R3(4,5)-R3(6,5)-R1(1,9)+(-R4(8,3)-R4(8,4)
     * -R2(5,9)-R2(5,10))*QZ+(-R3(4,7)-R1(1,11))*ZZ
      F(1,1,3,1)= -R5(2,1)-R3(2,5)*SIX-R1(2,9)*THREE+(-R4(2,3)*TWO
     * -R4(2,4)*TWO-R2(4,9)*SIX-R2(4,10)*SIX)*QX+(-R3(2,6)-R3(2,7)*FOUR
     * -R3(2,8)-R1(2,10)-R1(2,11)*FOUR-R1(2,12))*XX+(-R2(4,11)*TWO
     * -R2(4,12)*TWO)*XXX-R1(2,13)*XXXX
      F(2,1,3,1)= -R5(7,1)-R3(2,5)-R3(7,5)-R1(2,9)+(-R4(7,4)*TWO
     * -R2(4,10)*TWO)*QX+(-R3(7,8)-R1(2,12))*XX
      F(3,1,3,1)= -R5(9,1)-R3(2,5)-R3(9,5)-R1(2,9)+(-R4(9,4)*TWO
     * -R2(4,10)*TWO)*QX+(-R4(5,3)*TWO-R2(6,9)*TWO)*QZ+(-R3(9,8)
     * -R1(2,12))*XX-R3(5,7)*FOUR*XZ+(-R3(2,6)-R1(2,10))*ZZ-R2(6,12)*TWO
     * *XXZ-R2(4,11)*TWO*XZZ-R1(2,13)*XXZZ
      F(4,1,3,1)= -R5(4,1)-R3(4,5)*THREE+(-R4(4,3)-R4(4,4)*TWO-R2(2,9)
     * -R2(2,10)*TWO)*QX+(-R3(4,7)*TWO-R3(4,8))*XX-R2(2,12)*XXX
      F(5,1,3,1)= -R5(5,1)-R3(5,5)*THREE+(-R4(5,3)-R4(5,4)*TWO-R2(6,9)
     * -R2(6,10)*TWO)*QX+(-R4(2,3)-R2(4,9)*THREE)*QZ+(-R3(5,7)*TWO
     * -R3(5,8))*XX+(-R3(2,6)-R3(2,7)*TWO-R1(2,10)-R1(2,11)*TWO)*XZ
     * -R2(6,12)*XXX+(-R2(4,11)*TWO-R2(4,12))*XXZ-R1(2,13)*XXXZ
      F(6,1,3,1)= -R5(8,1)-R3(8,5)-R4(8,4)*TWO*QX+(-R4(4,3)-R2(2,9))*QZ
     * -R3(8,8)*XX-R3(4,7)*TWO*XZ-R2(2,12)*XXZ
      F(1,2,3,1)= -R5(7,1)-R3(2,5)-R3(7,5)-R1(2,9)+(-R4(7,3)*TWO
     * -R2(4,9)*TWO)*QX+(-R3(7,6)-R1(2,10))*XX
      F(2,2,3,1)= -R5(16,1)-R3(7,5)*SIX-R1(2,9)*THREE
      F(3,2,3,1)= -R5(18,1)-R3(7,5)-R3(9,5)-R1(2,9)+(-R4(12,3)*TWO
     * -R2(6,9)*TWO)*QZ+(-R3(7,6)-R1(2,10))*ZZ
      F(4,2,3,1)= -R5(11,1)-R3(4,5)*THREE+(-R4(11,3)-R2(2,9)*THREE)*QX
      F(5,2,3,1)= -R5(12,1)-R3(5,5)+(-R4(12,3)-R2(6,9))*QX+(-R4(7,3)
     * -R2(4,9))*QZ+(-R3(7,6)-R1(2,10))*XZ
      F(6,2,3,1)= -R5(17,1)-R3(8,5)*THREE+(-R4(11,3)-R2(2,9)*THREE)*QZ
      F(1,3,3,1)= -R5(9,1)-R3(2,5)-R3(9,5)-R1(2,9)+(-R4(9,3)*TWO
     * -R2(4,9)*TWO)*QX+(-R4(5,4)*TWO-R2(6,10)*TWO)*QZ+(-R3(9,6)
     * -R1(2,10))*XX-R3(5,7)*FOUR*XZ+(-R3(2,8)-R1(2,12))*ZZ-R2(6,11)*TWO
     * *XXZ-R2(4,12)*TWO*XZZ-R1(2,13)*XXZZ
      F(2,3,3,1)= -R5(18,1)-R3(7,5)-R3(9,5)-R1(2,9)+(-R4(12,4)*TWO
     * -R2(6,10)*TWO)*QZ+(-R3(7,8)-R1(2,12))*ZZ
      F(3,3,3,1)= -R5(20,1)-R3(9,5)*SIX-R1(2,9)*THREE+(-R4(14,3)*TWO
     * -R4(14,4)*TWO-R2(6,9)*SIX-R2(6,10)*SIX)*QZ+(-R3(9,6)-R3(9,7)*FOUR
     * -R3(9,8)-R1(2,10)-R1(2,11)*FOUR-R1(2,12))*ZZ+(-R2(6,11)*TWO
     * -R2(6,12)*TWO)*ZZZ-R1(2,13)*ZZZZ
      F(4,3,3,1)= -R5(13,1)-R3(4,5)+(-R4(13,3)-R2(2,9))*QX-R4(8,4)*TWO
     * *QZ-R3(8,7)*TWO*XZ-R3(4,8)*ZZ-R2(2,12)*XZZ
      F(5,3,3,1)= -R5(14,1)-R3(5,5)*THREE+(-R4(14,3)-R2(6,9)*THREE)*QX+(
     * -R4(9,3)-R4(9,4)*TWO-R2(4,9)-R2(4,10)*TWO)*QZ+(-R3(9,6)
     * -R3(9,7)*TWO-R1(2,10)-R1(2,11)*TWO)*XZ+(-R3(5,7)*TWO-R3(5,8))*ZZ
     * +(-R2(6,11)*TWO-R2(6,12))*XZZ-R2(4,12)*ZZZ-R1(2,13)*XZZZ
      F(6,3,3,1)= -R5(19,1)-R3(8,5)*THREE+(-R4(13,3)-R4(13,4)*TWO
     * -R2(2,9)-R2(2,10)*TWO)*QZ+(-R3(8,7)*TWO-R3(8,8))*ZZ-R2(2,12)*ZZZ
      F(1,4,3,1)= -R5(4,1)-R3(4,5)*THREE+(-R4(4,3)*TWO-R4(4,4)
     * -R2(2,9)*TWO-R2(2,10))*QX+(-R3(4,6)-R3(4,7)*TWO)*XX-R2(2,11)*XXX
      F(2,4,3,1)= -R5(11,1)-R3(4,5)*THREE+(-R4(11,4)-R2(2,10)*THREE)*QX
      F(3,4,3,1)= -R5(13,1)-R3(4,5)+(-R4(13,4)-R2(2,10))*QX-R4(8,3)*TWO
     * *QZ-R3(8,7)*TWO*XZ-R3(4,6)*ZZ-R2(2,11)*XZZ
      F(4,4,3,1)= -R5(7,1)-R3(2,5)-R3(7,5)-R1(2,9)+(-R4(7,3)-R4(7,4)
     * -R2(4,9)-R2(4,10))*QX+(-R3(7,7)-R1(2,11))*XX
      F(5,4,3,1)= -R5(8,1)-R3(8,5)+(-R4(8,3)-R4(8,4))*QX+(-R4(4,3)
     * -R2(2,9))*QZ-R3(8,7)*XX+(-R3(4,6)-R3(4,7))*XZ-R2(2,11)*XXZ
      F(6,4,3,1)= -R5(12,1)-R3(5,5)+(-R4(12,4)-R2(6,10))*QX+(-R4(7,3)
     * -R2(4,9))*QZ+(-R3(7,7)-R1(2,11))*XZ
      F(1,5,3,1)= -R5(5,1)-R3(5,5)*THREE+(-R4(5,3)*TWO-R4(5,4)
     * -R2(6,9)*TWO-R2(6,10))*QX+(-R4(2,4)-R2(4,10)*THREE)*QZ+(-R3(5,6)
     * -R3(5,7)*TWO)*XX+(-R3(2,7)*TWO-R3(2,8)-R1(2,11)*TWO-R1(2,12))*XZ
     * -R2(6,11)*XXX+(-R2(4,11)-R2(4,12)*TWO)*XXZ-R1(2,13)*XXXZ
      F(2,5,3,1)= -R5(12,1)-R3(5,5)+(-R4(12,4)-R2(6,10))*QX+(-R4(7,4)
     * -R2(4,10))*QZ+(-R3(7,8)-R1(2,12))*XZ
      F(3,5,3,1)= -R5(14,1)-R3(5,5)*THREE+(-R4(14,4)-R2(6,10)*THREE)*QX
     * +(-R4(9,3)*TWO-R4(9,4)-R2(4,9)*TWO-R2(4,10))*QZ+(-R3(9,7)*TWO
     * -R3(9,8)-R1(2,11)*TWO-R1(2,12))*XZ+(-R3(5,6)-R3(5,7)*TWO)*ZZ+(
     * -R2(6,11)-R2(6,12)*TWO)*XZZ-R2(4,11)*ZZZ-R1(2,13)*XZZZ
      F(4,5,3,1)= -R5(8,1)-R3(8,5)+(-R4(8,3)-R4(8,4))*QX+(-R4(4,4)
     * -R2(2,10))*QZ-R3(8,7)*XX+(-R3(4,7)-R3(4,8))*XZ-R2(2,12)*XXZ
      F(5,5,3,1)= -R5(9,1)-R3(2,5)-R3(9,5)-R1(2,9)+(-R4(9,3)-R4(9,4)
     * -R2(4,9)-R2(4,10))*QX+(-R4(5,3)-R4(5,4)-R2(6,9)-R2(6,10))*QZ+(
     * -R3(9,7)-R1(2,11))*XX+(-R3(5,6)-R3(5,7)*TWO-R3(5,8))*XZ+(-R3(2,7)
     * -R1(2,11))*ZZ+(-R2(6,11)-R2(6,12))*XXZ+(-R2(4,11)-R2(4,12))*XZZ
     * -R1(2,13)*XXZZ
      F(6,5,3,1)= -R5(13,1)-R3(4,5)+(-R4(13,4)-R2(2,10))*QX+(-R4(8,3)
     * -R4(8,4))*QZ+(-R3(8,7)-R3(8,8))*XZ-R3(4,7)*ZZ-R2(2,12)*XZZ
      F(1,6,3,1)= -R5(8,1)-R3(8,5)-R4(8,3)*TWO*QX+(-R4(4,4)-R2(2,10))*QZ
     * -R3(8,6)*XX-R3(4,7)*TWO*XZ-R2(2,11)*XXZ
      F(2,6,3,1)= -R5(17,1)-R3(8,5)*THREE+(-R4(11,4)-R2(2,10)*THREE)*QZ
      F(3,6,3,1)= -R5(19,1)-R3(8,5)*THREE+(-R4(13,3)*TWO-R4(13,4)
     * -R2(2,9)*TWO-R2(2,10))*QZ+(-R3(8,6)-R3(8,7)*TWO)*ZZ-R2(2,11)*ZZZ
      F(4,6,3,1)= -R5(12,1)-R3(5,5)+(-R4(12,3)-R2(6,9))*QX+(-R4(7,4)
     * -R2(4,10))*QZ+(-R3(7,7)-R1(2,11))*XZ
      F(5,6,3,1)= -R5(13,1)-R3(4,5)+(-R4(13,3)-R2(2,9))*QX+(-R4(8,3)
     * -R4(8,4))*QZ+(-R3(8,6)-R3(8,7))*XZ-R3(4,7)*ZZ-R2(2,11)*XZZ
      F(6,6,3,1)= -R5(18,1)-R3(7,5)-R3(9,5)-R1(2,9)+(-R4(12,3)-R4(12,4)
     * -R2(6,9)-R2(6,10))*QZ+(-R3(7,7)-R1(2,11))*ZZ
      F(1,1,4,1)= -R5(3,1)+R4(1,2)-R3(3,5)*SIX+R2(1,5)*SIX-R1(3,9)*THREE
     * +R0(6)*THREE+(-R4(3,3)*TWO-R4(3,4)*TWO+R3(1,3)*TWO+R3(1,4)*TWO
     * -R2(5,9)*SIX-R2(5,10)*SIX+R1(1,5)*SIX+R1(1,6)*SIX)*QX+(-R3(3,6)
     * -R3(3,7)*FOUR-R3(3,8)+R2(1,6)+R2(1,7)*FOUR+R2(1,8)-R1(3,10)
     * -R1(3,11)*FOUR-R1(3,12)+R0(7)+R0(8)*FOUR+R0(9))*XX+(-R2(5,11)*TWO
     * -R2(5,12)*TWO+R1(1,7)*TWO+R1(1,8)*TWO)*XXX+(-R1(3,13)+R0(10))
     * *XXXX
      F(2,1,4,1)= -R5(8,1)+R4(4,2)-R3(3,5)-R3(8,5)+R2(1,5)+R2(2,5)
     * -R1(3,9)+R0(6)+(-R4(8,4)*TWO+R3(4,4)*TWO-R2(5,10)*TWO+R1(1,6)*TWO
     * )*QX+(-R3(8,8)+R2(2,8)-R1(3,12)+R0(9))*XX
      F(3,1,4,1)= -R5(10,1)+R4(6,2)-R3(3,5)-R3(10,5)+R2(1,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(10,4)*TWO+R3(6,4)*TWO-R2(5,10)*TWO
     * +R1(1,6)*TWO)*QX+(-R4(6,3)*TWO+R3(3,3)*TWO-R2(3,9)*TWO
     * +R1(3,5)*TWO)*QZ+(-R3(10,8)+R2(3,8)-R1(3,12)+R0(9))*XX+(
     * -R3(6,7)*FOUR+R2(5,7)*FOUR)*XZ+(-R3(3,6)+R2(1,6)-R1(3,10)+R0(7))
     * *ZZ+(-R2(3,12)*TWO+R1(3,8)*TWO)*XXZ+(-R2(5,11)*TWO+R1(1,7)*TWO)
     * *XZZ+(-R1(3,13)+R0(10))*XXZZ
      F(4,1,4,1)= -R5(5,1)+R4(2,2)-R3(5,5)*THREE+R2(4,5)*THREE+(-R4(5,3)
     * -R4(5,4)*TWO+R3(2,3)+R3(2,4)*TWO-R2(6,9)-R2(6,10)*TWO+R1(2,5)
     * +R1(2,6)*TWO)*QX+(-R3(5,7)*TWO-R3(5,8)+R2(4,7)*TWO+R2(4,8))*XX+(
     * -R2(6,12)+R1(2,8))*XXX
      F(5,1,4,1)= -R5(6,1)+R4(3,2)-R3(6,5)*THREE+R2(5,5)*THREE+(-R4(6,3)
     * -R4(6,4)*TWO+R3(3,3)+R3(3,4)*TWO-R2(3,9)-R2(3,10)*TWO+R1(3,5)
     * +R1(3,6)*TWO)*QX+(-R4(3,3)+R3(1,3)-R2(5,9)*THREE+R1(1,5)*THREE)
     * *QZ+(-R3(6,7)*TWO-R3(6,8)+R2(5,7)*TWO+R2(5,8))*XX+(-R3(3,6)
     * -R3(3,7)*TWO+R2(1,6)+R2(1,7)*TWO-R1(3,10)-R1(3,11)*TWO+R0(7)
     * +R0(8)*TWO)*XZ+(-R2(3,12)+R1(3,8))*XXX+(-R2(5,11)*TWO-R2(5,12)
     * +R1(1,7)*TWO+R1(1,8))*XXZ+(-R1(3,13)+R0(10))*XXXZ
      F(6,1,4,1)= -R5(9,1)+R4(5,2)-R3(9,5)+R2(6,5)+(-R4(9,4)*TWO
     * +R3(5,4)*TWO)*QX+(-R4(5,3)+R3(2,3)-R2(6,9)+R1(2,5))*QZ+(-R3(9,8)
     * +R2(6,8))*XX+(-R3(5,7)*TWO+R2(4,7)*TWO)*XZ+(-R2(6,12)+R1(2,8))
     * *XXZ
      F(1,2,4,1)= -R5(8,1)+R4(4,2)-R3(3,5)-R3(8,5)+R2(1,5)+R2(2,5)
     * -R1(3,9)+R0(6)+(-R4(8,3)*TWO+R3(4,3)*TWO-R2(5,9)*TWO+R1(1,5)*TWO)
     * *QX+(-R3(8,6)+R2(2,6)-R1(3,10)+R0(7))*XX
      F(2,2,4,1)= -R5(17,1)+R4(11,2)-R3(8,5)*SIX+R2(2,5)*SIX
     * -R1(3,9)*THREE+R0(6)*THREE
      F(3,2,4,1)= -R5(19,1)+R4(13,2)-R3(8,5)-R3(10,5)+R2(2,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(13,3)*TWO+R3(8,3)*TWO-R2(3,9)*TWO+R1(3,5)*TWO
     * )*QZ+(-R3(8,6)+R2(2,6)-R1(3,10)+R0(7))*ZZ
      F(4,2,4,1)= -R5(12,1)+R4(7,2)-R3(5,5)*THREE+R2(4,5)*THREE+(
     * -R4(12,3)+R3(7,3)-R2(6,9)*THREE+R1(2,5)*THREE)*QX
      F(5,2,4,1)= -R5(13,1)+R4(8,2)-R3(6,5)+R2(5,5)+(-R4(13,3)+R3(8,3)
     * -R2(3,9)+R1(3,5))*QX+(-R4(8,3)+R3(4,3)-R2(5,9)+R1(1,5))*QZ+(
     * -R3(8,6)+R2(2,6)-R1(3,10)+R0(7))*XZ
      F(6,2,4,1)= -R5(18,1)+R4(12,2)-R3(9,5)*THREE+R2(6,5)*THREE+(
     * -R4(12,3)+R3(7,3)-R2(6,9)*THREE+R1(2,5)*THREE)*QZ
      F(1,3,4,1)= -R5(10,1)+R4(6,2)-R3(3,5)-R3(10,5)+R2(1,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(10,3)*TWO+R3(6,3)*TWO-R2(5,9)*TWO+R1(1,5)*TWO
     * )*QX+(-R4(6,4)*TWO+R3(3,4)*TWO-R2(3,10)*TWO+R1(3,6)*TWO)*QZ+(
     * -R3(10,6)+R2(3,6)-R1(3,10)+R0(7))*XX+(-R3(6,7)*FOUR+R2(5,7)*FOUR)
     * *XZ+(-R3(3,8)+R2(1,8)-R1(3,12)+R0(9))*ZZ+(-R2(3,11)*TWO
     * +R1(3,7)*TWO)*XXZ+(-R2(5,12)*TWO+R1(1,8)*TWO)*XZZ+(-R1(3,13)
     * +R0(10))*XXZZ
      F(2,3,4,1)= -R5(19,1)+R4(13,2)-R3(8,5)-R3(10,5)+R2(2,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(13,4)*TWO+R3(8,4)*TWO-R2(3,10)*TWO
     * +R1(3,6)*TWO)*QZ+(-R3(8,8)+R2(2,8)-R1(3,12)+R0(9))*ZZ
      F(3,3,4,1)= -R5(21,1)+R4(15,2)-R3(10,5)*SIX+R2(3,5)*SIX
     * -R1(3,9)*THREE+R0(6)*THREE+(-R4(15,3)*TWO-R4(15,4)*TWO
     * +R3(10,3)*TWO+R3(10,4)*TWO-R2(3,9)*SIX-R2(3,10)*SIX+R1(3,5)*SIX
     * +R1(3,6)*SIX)*QZ+(-R3(10,6)-R3(10,7)*FOUR-R3(10,8)+R2(3,6)
     * +R2(3,7)*FOUR+R2(3,8)-R1(3,10)-R1(3,11)*FOUR-R1(3,12)+R0(7)
     * +R0(8)*FOUR+R0(9))*ZZ+(-R2(3,11)*TWO-R2(3,12)*TWO+R1(3,7)*TWO
     * +R1(3,8)*TWO)*ZZZ+(-R1(3,13)+R0(10))*ZZZZ
      F(4,3,4,1)= -R5(14,1)+R4(9,2)-R3(5,5)+R2(4,5)+(-R4(14,3)+R3(9,3)
     * -R2(6,9)+R1(2,5))*QX+(-R4(9,4)*TWO+R3(5,4)*TWO)*QZ+(-R3(9,7)*TWO
     * +R2(6,7)*TWO)*XZ+(-R3(5,8)+R2(4,8))*ZZ+(-R2(6,12)+R1(2,8))*XZZ
      F(5,3,4,1)= -R5(15,1)+R4(10,2)-R3(6,5)*THREE+R2(5,5)*THREE+(
     * -R4(15,3)+R3(10,3)-R2(3,9)*THREE+R1(3,5)*THREE)*QX+(-R4(10,3)
     * -R4(10,4)*TWO+R3(6,3)+R3(6,4)*TWO-R2(5,9)-R2(5,10)*TWO+R1(1,5)
     * +R1(1,6)*TWO)*QZ+(-R3(10,6)-R3(10,7)*TWO+R2(3,6)+R2(3,7)*TWO
     * -R1(3,10)-R1(3,11)*TWO+R0(7)+R0(8)*TWO)*XZ+(-R3(6,7)*TWO-R3(6,8)
     * +R2(5,7)*TWO+R2(5,8))*ZZ+(-R2(3,11)*TWO-R2(3,12)+R1(3,7)*TWO
     * +R1(3,8))*XZZ+(-R2(5,12)+R1(1,8))*ZZZ+(-R1(3,13)+R0(10))*XZZZ
      F(6,3,4,1)= -R5(20,1)+R4(14,2)-R3(9,5)*THREE+R2(6,5)*THREE+(
     * -R4(14,3)-R4(14,4)*TWO+R3(9,3)+R3(9,4)*TWO-R2(6,9)-R2(6,10)*TWO
     * +R1(2,5)+R1(2,6)*TWO)*QZ+(-R3(9,7)*TWO-R3(9,8)+R2(6,7)*TWO
     * +R2(6,8))*ZZ+(-R2(6,12)+R1(2,8))*ZZZ
      F(1,4,4,1)= -R5(5,1)+R4(2,2)-R3(5,5)*THREE+R2(4,5)*THREE+(
     * -R4(5,3)*TWO-R4(5,4)+R3(2,3)*TWO+R3(2,4)-R2(6,9)*TWO-R2(6,10)
     * +R1(2,5)*TWO+R1(2,6))*QX+(-R3(5,6)-R3(5,7)*TWO+R2(4,6)
     * +R2(4,7)*TWO)*XX+(-R2(6,11)+R1(2,7))*XXX
      F(2,4,4,1)= -R5(12,1)+R4(7,2)-R3(5,5)*THREE+R2(4,5)*THREE+(
     * -R4(12,4)+R3(7,4)-R2(6,10)*THREE+R1(2,6)*THREE)*QX
      F(3,4,4,1)= -R5(14,1)+R4(9,2)-R3(5,5)+R2(4,5)+(-R4(14,4)+R3(9,4)
     * -R2(6,10)+R1(2,6))*QX+(-R4(9,3)*TWO+R3(5,3)*TWO)*QZ+(-R3(9,7)*TWO
     * +R2(6,7)*TWO)*XZ+(-R3(5,6)+R2(4,6))*ZZ+(-R2(6,11)+R1(2,7))*XZZ
      F(4,4,4,1)= -R5(8,1)+R4(4,2)-R3(3,5)-R3(8,5)+R2(1,5)+R2(2,5)
     * -R1(3,9)+R0(6)+(-R4(8,3)-R4(8,4)+R3(4,3)+R3(4,4)-R2(5,9)-R2(5,10)
     * +R1(1,5)+R1(1,6))*QX+(-R3(8,7)+R2(2,7)-R1(3,11)+R0(8))*XX
      F(5,4,4,1)= -R5(9,1)+R4(5,2)-R3(9,5)+R2(6,5)+(-R4(9,3)-R4(9,4)
     * +R3(5,3)+R3(5,4))*QX+(-R4(5,3)+R3(2,3)-R2(6,9)+R1(2,5))*QZ+(
     * -R3(9,7)+R2(6,7))*XX+(-R3(5,6)-R3(5,7)+R2(4,6)+R2(4,7))*XZ+(
     * -R2(6,11)+R1(2,7))*XXZ
      F(6,4,4,1)= -R5(13,1)+R4(8,2)-R3(6,5)+R2(5,5)+(-R4(13,4)+R3(8,4)
     * -R2(3,10)+R1(3,6))*QX+(-R4(8,3)+R3(4,3)-R2(5,9)+R1(1,5))*QZ+(
     * -R3(8,7)+R2(2,7)-R1(3,11)+R0(8))*XZ
      F(1,5,4,1)= -R5(6,1)+R4(3,2)-R3(6,5)*THREE+R2(5,5)*THREE+(
     * -R4(6,3)*TWO-R4(6,4)+R3(3,3)*TWO+R3(3,4)-R2(3,9)*TWO-R2(3,10)
     * +R1(3,5)*TWO+R1(3,6))*QX+(-R4(3,4)+R3(1,4)-R2(5,10)*THREE
     * +R1(1,6)*THREE)*QZ+(-R3(6,6)-R3(6,7)*TWO+R2(5,6)+R2(5,7)*TWO)*XX
     * +(-R3(3,7)*TWO-R3(3,8)+R2(1,7)*TWO+R2(1,8)-R1(3,11)*TWO-R1(3,12)
     * +R0(8)*TWO+R0(9))*XZ+(-R2(3,11)+R1(3,7))*XXX+(-R2(5,11)
     * -R2(5,12)*TWO+R1(1,7)+R1(1,8)*TWO)*XXZ+(-R1(3,13)+R0(10))*XXXZ
      F(2,5,4,1)= -R5(13,1)+R4(8,2)-R3(6,5)+R2(5,5)+(-R4(13,4)+R3(8,4)
     * -R2(3,10)+R1(3,6))*QX+(-R4(8,4)+R3(4,4)-R2(5,10)+R1(1,6))*QZ+(
     * -R3(8,8)+R2(2,8)-R1(3,12)+R0(9))*XZ
      F(3,5,4,1)= -R5(15,1)+R4(10,2)-R3(6,5)*THREE+R2(5,5)*THREE+(
     * -R4(15,4)+R3(10,4)-R2(3,10)*THREE+R1(3,6)*THREE)*QX+(
     * -R4(10,3)*TWO-R4(10,4)+R3(6,3)*TWO+R3(6,4)-R2(5,9)*TWO-R2(5,10)
     * +R1(1,5)*TWO+R1(1,6))*QZ+(-R3(10,7)*TWO-R3(10,8)+R2(3,7)*TWO
     * +R2(3,8)-R1(3,11)*TWO-R1(3,12)+R0(8)*TWO+R0(9))*XZ+(-R3(6,6)
     * -R3(6,7)*TWO+R2(5,6)+R2(5,7)*TWO)*ZZ+(-R2(3,11)-R2(3,12)*TWO
     * +R1(3,7)+R1(3,8)*TWO)*XZZ+(-R2(5,11)+R1(1,7))*ZZZ+(-R1(3,13)
     * +R0(10))*XZZZ
      F(4,5,4,1)= -R5(9,1)+R4(5,2)-R3(9,5)+R2(6,5)+(-R4(9,3)-R4(9,4)
     * +R3(5,3)+R3(5,4))*QX+(-R4(5,4)+R3(2,4)-R2(6,10)+R1(2,6))*QZ+(
     * -R3(9,7)+R2(6,7))*XX+(-R3(5,7)-R3(5,8)+R2(4,7)+R2(4,8))*XZ+(
     * -R2(6,12)+R1(2,8))*XXZ
      F(5,5,4,1)= -R5(10,1)+R4(6,2)-R3(3,5)-R3(10,5)+R2(1,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(10,3)-R4(10,4)+R3(6,3)+R3(6,4)-R2(5,9)
     * -R2(5,10)+R1(1,5)+R1(1,6))*QX+(-R4(6,3)-R4(6,4)+R3(3,3)+R3(3,4)
     * -R2(3,9)-R2(3,10)+R1(3,5)+R1(3,6))*QZ+(-R3(10,7)+R2(3,7)-R1(3,11)
     * +R0(8))*XX+(-R3(6,6)-R3(6,7)*TWO-R3(6,8)+R2(5,6)+R2(5,7)*TWO
     * +R2(5,8))*XZ+(-R3(3,7)+R2(1,7)-R1(3,11)+R0(8))*ZZ+(-R2(3,11)
     * -R2(3,12)+R1(3,7)+R1(3,8))*XXZ+(-R2(5,11)-R2(5,12)+R1(1,7)
     * +R1(1,8))*XZZ+(-R1(3,13)+R0(10))*XXZZ
      F(6,5,4,1)= -R5(14,1)+R4(9,2)-R3(5,5)+R2(4,5)+(-R4(14,4)+R3(9,4)
     * -R2(6,10)+R1(2,6))*QX+(-R4(9,3)-R4(9,4)+R3(5,3)+R3(5,4))*QZ+(
     * -R3(9,7)-R3(9,8)+R2(6,7)+R2(6,8))*XZ+(-R3(5,7)+R2(4,7))*ZZ+(
     * -R2(6,12)+R1(2,8))*XZZ
      F(1,6,4,1)= -R5(9,1)+R4(5,2)-R3(9,5)+R2(6,5)+(-R4(9,3)*TWO
     * +R3(5,3)*TWO)*QX+(-R4(5,4)+R3(2,4)-R2(6,10)+R1(2,6))*QZ+(-R3(9,6)
     * +R2(6,6))*XX+(-R3(5,7)*TWO+R2(4,7)*TWO)*XZ+(-R2(6,11)+R1(2,7))
     * *XXZ
      F(2,6,4,1)= -R5(18,1)+R4(12,2)-R3(9,5)*THREE+R2(6,5)*THREE+(
     * -R4(12,4)+R3(7,4)-R2(6,10)*THREE+R1(2,6)*THREE)*QZ
      F(3,6,4,1)= -R5(20,1)+R4(14,2)-R3(9,5)*THREE+R2(6,5)*THREE+(
     * -R4(14,3)*TWO-R4(14,4)+R3(9,3)*TWO+R3(9,4)-R2(6,9)*TWO-R2(6,10)
     * +R1(2,5)*TWO+R1(2,6))*QZ+(-R3(9,6)-R3(9,7)*TWO+R2(6,6)
     * +R2(6,7)*TWO)*ZZ+(-R2(6,11)+R1(2,7))*ZZZ
      F(4,6,4,1)= -R5(13,1)+R4(8,2)-R3(6,5)+R2(5,5)+(-R4(13,3)+R3(8,3)
     * -R2(3,9)+R1(3,5))*QX+(-R4(8,4)+R3(4,4)-R2(5,10)+R1(1,6))*QZ+(
     * -R3(8,7)+R2(2,7)-R1(3,11)+R0(8))*XZ
      F(5,6,4,1)= -R5(14,1)+R4(9,2)-R3(5,5)+R2(4,5)+(-R4(14,3)+R3(9,3)
     * -R2(6,9)+R1(2,5))*QX+(-R4(9,3)-R4(9,4)+R3(5,3)+R3(5,4))*QZ+(
     * -R3(9,6)-R3(9,7)+R2(6,6)+R2(6,7))*XZ+(-R3(5,7)+R2(4,7))*ZZ+(
     * -R2(6,11)+R1(2,7))*XZZ
      F(6,6,4,1)= -R5(19,1)+R4(13,2)-R3(8,5)-R3(10,5)+R2(2,5)+R2(3,5)
     * -R1(3,9)+R0(6)+(-R4(13,3)-R4(13,4)+R3(8,3)+R3(8,4)-R2(3,9)
     * -R2(3,10)+R1(3,5)+R1(3,6))*QZ+(-R3(8,7)+R2(2,7)-R1(3,11)+R0(8))
     * *ZZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV15
      SUBROUTINE MCDV15(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
C
      F(1,1,1,1)= R4(1,2)+R2(1,1)+R2(1,11)+R0(1)+(+R3(1,6)*TWO
     * +R1(1,1)*TWO)*QX+(+R2(1,12)+R0(2))*XX
      F(2,1,1,1)= R4(4,2)+R2(2,1)+R2(1,11)+R0(1)
      F(3,1,1,1)= R4(6,2)+R2(3,1)+R2(1,11)+R0(1)+(+R3(3,6)*TWO
     * +R1(3,1)*TWO)*QZ+(+R2(1,12)+R0(2))*ZZ
      F(4,1,1,1)= R4(2,2)+R2(4,1)+(+R3(2,6)+R1(2,1))*QX
      F(5,1,1,1)= R4(3,2)+R2(5,1)+(+R3(3,6)+R1(3,1))*QX+(+R3(1,6)
     * +R1(1,1))*QZ+(+R2(1,12)+R0(2))*XZ
      F(6,1,1,1)= R4(5,2)+R2(6,1)+(+R3(2,6)+R1(2,1))*QZ
      F(1,2,1,1)= R5(1,1)+R3(1,1)+R3(1,7)*THREE+R1(1,2)*THREE+(
     * +R4(1,3)*TWO+R4(1,4)+R2(1,2)*TWO+R2(1,3)+R2(1,13)*TWO+R2(1,14)
     * +R0(3)*TWO+R0(4))*QX+(+R3(1,8)+R3(1,9)*TWO+R1(1,3)+R1(1,4)*TWO)
     * *XX+(+R2(1,15)+R0(5))*XXX
      F(2,2,1,1)= R5(4,1)+R3(4,1)+R3(1,7)+R1(1,2)+(+R4(4,4)+R2(2,3)
     * +R2(1,14)+R0(4))*QX
      F(3,2,1,1)= R5(6,1)+R3(6,1)+R3(1,7)+R1(1,2)+(+R4(6,4)+R2(3,3)
     * +R2(1,14)+R0(4))*QX+(+R4(3,3)*TWO+R2(5,2)*TWO)*QZ+(+R3(3,9)*TWO
     * +R1(3,4)*TWO)*XZ+(+R3(1,8)+R1(1,3))*ZZ+(+R2(1,15)+R0(5))*XZZ
      F(4,2,1,1)= R5(2,1)+R3(2,1)+R3(2,7)+R1(2,2)+(+R4(2,3)+R4(2,4)
     * +R2(4,2)+R2(4,3))*QX+(+R3(2,9)+R1(2,4))*XX
      F(5,2,1,1)= R5(3,1)+R3(3,1)+R3(3,7)+R1(3,2)+(+R4(3,3)+R4(3,4)
     * +R2(5,2)+R2(5,3))*QX+(+R4(1,3)+R2(1,2)+R2(1,13)+R0(3))*QZ+(
     * +R3(3,9)+R1(3,4))*XX+(+R3(1,8)+R3(1,9)+R1(1,3)+R1(1,4))*XZ+(
     * +R2(1,15)+R0(5))*XXZ
      F(6,2,1,1)= R5(5,1)+R3(5,1)+(+R4(5,4)+R2(6,3))*QX+(+R4(2,3)
     * +R2(4,2))*QZ+(+R3(2,9)+R1(2,4))*XZ
      F(1,3,1,1)= R5(2,1)+R3(2,1)+R3(2,7)+R1(2,2)+(+R4(2,3)*TWO
     * +R2(4,2)*TWO)*QX+(+R3(2,8)+R1(2,3))*XX
      F(2,3,1,1)= R5(7,1)+R3(7,1)+R3(2,7)*THREE+R1(2,2)*THREE
      F(3,3,1,1)= R5(9,1)+R3(9,1)+R3(2,7)+R1(2,2)+(+R4(5,3)*TWO
     * +R2(6,2)*TWO)*QZ+(+R3(2,8)+R1(2,3))*ZZ
      F(4,3,1,1)= R5(4,1)+R3(4,1)+R3(1,7)+R1(1,2)+(+R4(4,3)+R2(2,2)
     * +R2(1,13)+R0(3))*QX
      F(5,3,1,1)= R5(5,1)+R3(5,1)+(+R4(5,3)+R2(6,2))*QX+(+R4(2,3)
     * +R2(4,2))*QZ+(+R3(2,8)+R1(2,3))*XZ
      F(6,3,1,1)= R5(8,1)+R3(8,1)+R3(3,7)+R1(3,2)+(+R4(4,3)+R2(2,2)
     * +R2(1,13)+R0(3))*QZ
      F(1,4,1,1)= R5(3,1)+R3(3,1)+R3(3,7)+R1(3,2)+(+R4(3,3)*TWO
     * +R2(5,2)*TWO)*QX+(+R4(1,4)+R2(1,3)+R2(1,14)+R0(4))*QZ+(+R3(3,8)
     * +R1(3,3))*XX+(+R3(1,9)*TWO+R1(1,4)*TWO)*XZ+(+R2(1,15)+R0(5))*XXZ
      F(2,4,1,1)= R5(8,1)+R3(8,1)+R3(3,7)+R1(3,2)+(+R4(4,4)+R2(2,3)
     * +R2(1,14)+R0(4))*QZ
      F(3,4,1,1)= R5(10,1)+R3(10,1)+R3(3,7)*THREE+R1(3,2)*THREE+(
     * +R4(6,3)*TWO+R4(6,4)+R2(3,2)*TWO+R2(3,3)+R2(1,13)*TWO+R2(1,14)
     * +R0(3)*TWO+R0(4))*QZ+(+R3(3,8)+R3(3,9)*TWO+R1(3,3)+R1(3,4)*TWO)
     * *ZZ+(+R2(1,15)+R0(5))*ZZZ
      F(4,4,1,1)= R5(5,1)+R3(5,1)+(+R4(5,3)+R2(6,2))*QX+(+R4(2,4)
     * +R2(4,3))*QZ+(+R3(2,9)+R1(2,4))*XZ
      F(5,4,1,1)= R5(6,1)+R3(6,1)+R3(1,7)+R1(1,2)+(+R4(6,3)+R2(3,2)
     * +R2(1,13)+R0(3))*QX+(+R4(3,3)+R4(3,4)+R2(5,2)+R2(5,3))*QZ+(
     * +R3(3,8)+R3(3,9)+R1(3,3)+R1(3,4))*XZ+(+R3(1,9)+R1(1,4))*ZZ+(
     * +R2(1,15)+R0(5))*XZZ
      F(6,4,1,1)= R5(9,1)+R3(9,1)+R3(2,7)+R1(2,2)+(+R4(5,3)+R4(5,4)
     * +R2(6,2)+R2(6,3))*QZ+(+R3(2,9)+R1(2,4))*ZZ
      F(1,1,2,1)= R4(4,2)+R2(1,1)+R2(2,11)+R0(1)+(+R3(4,6)*TWO
     * +R1(1,1)*TWO)*QX+(+R2(2,12)+R0(2))*XX
      F(2,1,2,1)= R4(11,2)+R2(2,1)+R2(2,11)+R0(1)
      F(3,1,2,1)= R4(13,2)+R2(3,1)+R2(2,11)+R0(1)+(+R3(8,6)*TWO
     * +R1(3,1)*TWO)*QZ+(+R2(2,12)+R0(2))*ZZ
      F(4,1,2,1)= R4(7,2)+R2(4,1)+(+R3(7,6)+R1(2,1))*QX
      F(5,1,2,1)= R4(8,2)+R2(5,1)+(+R3(8,6)+R1(3,1))*QX+(+R3(4,6)
     * +R1(1,1))*QZ+(+R2(2,12)+R0(2))*XZ
      F(6,1,2,1)= R4(12,2)+R2(6,1)+(+R3(7,6)+R1(2,1))*QZ
      F(1,2,2,1)= R5(4,1)+R3(1,1)+R3(4,7)*THREE+R1(1,2)*THREE+(
     * +R4(4,3)*TWO+R4(4,4)+R2(1,2)*TWO+R2(1,3)+R2(2,13)*TWO+R2(2,14)
     * +R0(3)*TWO+R0(4))*QX+(+R3(4,8)+R3(4,9)*TWO+R1(1,3)+R1(1,4)*TWO)
     * *XX+(+R2(2,15)+R0(5))*XXX
      F(2,2,2,1)= R5(11,1)+R3(4,1)+R3(4,7)+R1(1,2)+(+R4(11,4)+R2(2,3)
     * +R2(2,14)+R0(4))*QX
      F(3,2,2,1)= R5(13,1)+R3(6,1)+R3(4,7)+R1(1,2)+(+R4(13,4)+R2(3,3)
     * +R2(2,14)+R0(4))*QX+(+R4(8,3)*TWO+R2(5,2)*TWO)*QZ+(+R3(8,9)*TWO
     * +R1(3,4)*TWO)*XZ+(+R3(4,8)+R1(1,3))*ZZ+(+R2(2,15)+R0(5))*XZZ
      F(4,2,2,1)= R5(7,1)+R3(2,1)+R3(7,7)+R1(2,2)+(+R4(7,3)+R4(7,4)
     * +R2(4,2)+R2(4,3))*QX+(+R3(7,9)+R1(2,4))*XX
      F(5,2,2,1)= R5(8,1)+R3(3,1)+R3(8,7)+R1(3,2)+(+R4(8,3)+R4(8,4)
     * +R2(5,2)+R2(5,3))*QX+(+R4(4,3)+R2(1,2)+R2(2,13)+R0(3))*QZ+(
     * +R3(8,9)+R1(3,4))*XX+(+R3(4,8)+R3(4,9)+R1(1,3)+R1(1,4))*XZ+(
     * +R2(2,15)+R0(5))*XXZ
      F(6,2,2,1)= R5(12,1)+R3(5,1)+(+R4(12,4)+R2(6,3))*QX+(+R4(7,3)
     * +R2(4,2))*QZ+(+R3(7,9)+R1(2,4))*XZ
      F(1,3,2,1)= R5(7,1)+R3(2,1)+R3(7,7)+R1(2,2)+(+R4(7,3)*TWO
     * +R2(4,2)*TWO)*QX+(+R3(7,8)+R1(2,3))*XX
      F(2,3,2,1)= R5(16,1)+R3(7,1)+R3(7,7)*THREE+R1(2,2)*THREE
      F(3,3,2,1)= R5(18,1)+R3(9,1)+R3(7,7)+R1(2,2)+(+R4(12,3)*TWO
     * +R2(6,2)*TWO)*QZ+(+R3(7,8)+R1(2,3))*ZZ
      F(4,3,2,1)= R5(11,1)+R3(4,1)+R3(4,7)+R1(1,2)+(+R4(11,3)+R2(2,2)
     * +R2(2,13)+R0(3))*QX
      F(5,3,2,1)= R5(12,1)+R3(5,1)+(+R4(12,3)+R2(6,2))*QX+(+R4(7,3)
     * +R2(4,2))*QZ+(+R3(7,8)+R1(2,3))*XZ
      F(6,3,2,1)= R5(17,1)+R3(8,1)+R3(8,7)+R1(3,2)+(+R4(11,3)+R2(2,2)
     * +R2(2,13)+R0(3))*QZ
      F(1,4,2,1)= R5(8,1)+R3(3,1)+R3(8,7)+R1(3,2)+(+R4(8,3)*TWO
     * +R2(5,2)*TWO)*QX+(+R4(4,4)+R2(1,3)+R2(2,14)+R0(4))*QZ+(+R3(8,8)
     * +R1(3,3))*XX+(+R3(4,9)*TWO+R1(1,4)*TWO)*XZ+(+R2(2,15)+R0(5))*XXZ
      F(2,4,2,1)= R5(17,1)+R3(8,1)+R3(8,7)+R1(3,2)+(+R4(11,4)+R2(2,3)
     * +R2(2,14)+R0(4))*QZ
      F(3,4,2,1)= R5(19,1)+R3(10,1)+R3(8,7)*THREE+R1(3,2)*THREE+(
     * +R4(13,3)*TWO+R4(13,4)+R2(3,2)*TWO+R2(3,3)+R2(2,13)*TWO+R2(2,14)
     * +R0(3)*TWO+R0(4))*QZ+(+R3(8,8)+R3(8,9)*TWO+R1(3,3)+R1(3,4)*TWO)
     * *ZZ+(+R2(2,15)+R0(5))*ZZZ
      F(4,4,2,1)= R5(12,1)+R3(5,1)+(+R4(12,3)+R2(6,2))*QX+(+R4(7,4)
     * +R2(4,3))*QZ+(+R3(7,9)+R1(2,4))*XZ
      F(5,4,2,1)= R5(13,1)+R3(6,1)+R3(4,7)+R1(1,2)+(+R4(13,3)+R2(3,2)
     * +R2(2,13)+R0(3))*QX+(+R4(8,3)+R4(8,4)+R2(5,2)+R2(5,3))*QZ+(
     * +R3(8,8)+R3(8,9)+R1(3,3)+R1(3,4))*XZ+(+R3(4,9)+R1(1,4))*ZZ+(
     * +R2(2,15)+R0(5))*XZZ
      F(6,4,2,1)= R5(18,1)+R3(9,1)+R3(7,7)+R1(2,2)+(+R4(12,3)+R4(12,4)
     * +R2(6,2)+R2(6,3))*QZ+(+R3(7,9)+R1(2,4))*ZZ
      F(1,1,3,1)= R4(6,2)-R3(3,3)*TWO+R2(1,1)+R2(1,4)+R2(3,11)
     * -R1(3,9)*TWO+R0(1)+R0(6)+(+R3(6,6)*TWO-R2(5,7)*FOUR+R1(1,1)*TWO
     * +R1(1,5)*TWO)*QX+(+R2(3,12)-R1(3,10)*TWO+R0(2)+R0(7))*XX
      F(2,1,3,1)= R4(13,2)-R3(8,3)*TWO+R2(2,1)+R2(2,4)+R2(3,11)
     * -R1(3,9)*TWO+R0(1)+R0(6)
      F(3,1,3,1)= R4(15,2)-R3(10,3)*TWO+R2(3,1)+R2(3,4)+R2(3,11)
     * -R1(3,9)*TWO+R0(1)+R0(6)+(+R3(10,6)*TWO-R2(3,7)*FOUR+R1(3,1)*TWO
     * +R1(3,5)*TWO)*QZ+(+R2(3,12)-R1(3,10)*TWO+R0(2)+R0(7))*ZZ
      F(4,1,3,1)= R4(9,2)-R3(5,3)*TWO+R2(4,1)+R2(4,4)+(+R3(9,6)
     * -R2(6,7)*TWO+R1(2,1)+R1(2,5))*QX
      F(5,1,3,1)= R4(10,2)-R3(6,3)*TWO+R2(5,1)+R2(5,4)+(+R3(10,6)
     * -R2(3,7)*TWO+R1(3,1)+R1(3,5))*QX+(+R3(6,6)-R2(5,7)*TWO+R1(1,1)
     * +R1(1,5))*QZ+(+R2(3,12)-R1(3,10)*TWO+R0(2)+R0(7))*XZ
      F(6,1,3,1)= R4(14,2)-R3(9,3)*TWO+R2(6,1)+R2(6,4)+(+R3(9,6)
     * -R2(6,7)*TWO+R1(2,1)+R1(2,5))*QZ
      F(1,2,3,1)= R5(6,1)-R4(3,1)*TWO+R3(1,1)+R3(1,2)+R3(6,7)*THREE
     * -R2(5,8)*SIX+R1(1,2)*THREE+R1(1,6)*THREE+(+R4(6,3)*TWO+R4(6,4)
     * -R3(3,4)*FOUR-R3(3,5)*TWO+R2(1,2)*TWO+R2(1,3)+R2(1,5)*TWO+R2(1,6)
     * +R2(3,13)*TWO+R2(3,14)-R1(3,11)*FOUR-R1(3,12)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*QX+(+R3(6,8)+R3(6,9)*TWO-R2(5,9)*TWO
     * -R2(5,10)*FOUR+R1(1,3)+R1(1,4)*TWO+R1(1,7)+R1(1,8)*TWO)*XX+(
     * +R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10))*XXX
      F(2,2,3,1)= R5(13,1)-R4(8,1)*TWO+R3(4,1)+R3(4,2)+R3(6,7)
     * -R2(5,8)*TWO+R1(1,2)+R1(1,6)+(+R4(13,4)-R3(8,5)*TWO+R2(2,3)
     * +R2(2,6)+R2(3,14)-R1(3,12)*TWO+R0(4)+R0(9))*QX
      F(3,2,3,1)= R5(15,1)-R4(10,1)*TWO+R3(6,1)+R3(6,2)+R3(6,7)
     * -R2(5,8)*TWO+R1(1,2)+R1(1,6)+(+R4(15,4)-R3(10,5)*TWO+R2(3,3)
     * +R2(3,6)+R2(3,14)-R1(3,12)*TWO+R0(4)+R0(9))*QX+(+R4(10,3)*TWO
     * -R3(6,4)*FOUR+R2(5,2)*TWO+R2(5,5)*TWO)*QZ+(+R3(10,9)*TWO
     * -R2(3,10)*FOUR+R1(3,4)*TWO+R1(3,8)*TWO)*XZ+(+R3(6,8)-R2(5,9)*TWO
     * +R1(1,3)+R1(1,7))*ZZ+(+R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10))*XZZ
      F(4,2,3,1)= R5(9,1)-R4(5,1)*TWO+R3(2,1)+R3(2,2)+R3(9,7)
     * -R2(6,8)*TWO+R1(2,2)+R1(2,6)+(+R4(9,3)+R4(9,4)-R3(5,4)*TWO
     * -R3(5,5)*TWO+R2(4,2)+R2(4,3)+R2(4,5)+R2(4,6))*QX+(+R3(9,9)
     * -R2(6,10)*TWO+R1(2,4)+R1(2,8))*XX
      F(5,2,3,1)= R5(10,1)-R4(6,1)*TWO+R3(3,1)+R3(3,2)+R3(10,7)
     * -R2(3,8)*TWO+R1(3,2)+R1(3,6)+(+R4(10,3)+R4(10,4)-R3(6,4)*TWO
     * -R3(6,5)*TWO+R2(5,2)+R2(5,3)+R2(5,5)+R2(5,6))*QX+(+R4(6,3)
     * -R3(3,4)*TWO+R2(1,2)+R2(1,5)+R2(3,13)-R1(3,11)*TWO+R0(3)+R0(8))
     * *QZ+(+R3(10,9)-R2(3,10)*TWO+R1(3,4)+R1(3,8))*XX+(+R3(6,8)+R3(6,9)
     * -R2(5,9)*TWO-R2(5,10)*TWO+R1(1,3)+R1(1,4)+R1(1,7)+R1(1,8))*XZ+(
     * +R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10))*XXZ
      F(6,2,3,1)= R5(14,1)-R4(9,1)*TWO+R3(5,1)+R3(5,2)+(+R4(14,4)
     * -R3(9,5)*TWO+R2(6,3)+R2(6,6))*QX+(+R4(9,3)-R3(5,4)*TWO+R2(4,2)
     * +R2(4,5))*QZ+(+R3(9,9)-R2(6,10)*TWO+R1(2,4)+R1(2,8))*XZ
      F(1,3,3,1)= R5(9,1)-R4(5,1)*TWO+R3(2,1)+R3(2,2)+R3(9,7)
     * -R2(6,8)*TWO+R1(2,2)+R1(2,6)+(+R4(9,3)*TWO-R3(5,4)*FOUR
     * +R2(4,2)*TWO+R2(4,5)*TWO)*QX+(+R3(9,8)-R2(6,9)*TWO+R1(2,3)
     * +R1(2,7))*XX
      F(2,3,3,1)= R5(18,1)-R4(12,1)*TWO+R3(7,1)+R3(7,2)+R3(9,7)*THREE
     * -R2(6,8)*SIX+R1(2,2)*THREE+R1(2,6)*THREE
      F(3,3,3,1)= R5(20,1)-R4(14,1)*TWO+R3(9,1)+R3(9,2)+R3(9,7)
     * -R2(6,8)*TWO+R1(2,2)+R1(2,6)+(+R4(14,3)*TWO-R3(9,4)*FOUR
     * +R2(6,2)*TWO+R2(6,5)*TWO)*QZ+(+R3(9,8)-R2(6,9)*TWO+R1(2,3)
     * +R1(2,7))*ZZ
      F(4,3,3,1)= R5(13,1)-R4(8,1)*TWO+R3(4,1)+R3(4,2)+R3(6,7)
     * -R2(5,8)*TWO+R1(1,2)+R1(1,6)+(+R4(13,3)-R3(8,4)*TWO+R2(2,2)
     * +R2(2,5)+R2(3,13)-R1(3,11)*TWO+R0(3)+R0(8))*QX
      F(5,3,3,1)= R5(14,1)-R4(9,1)*TWO+R3(5,1)+R3(5,2)+(+R4(14,3)
     * -R3(9,4)*TWO+R2(6,2)+R2(6,5))*QX+(+R4(9,3)-R3(5,4)*TWO+R2(4,2)
     * +R2(4,5))*QZ+(+R3(9,8)-R2(6,9)*TWO+R1(2,3)+R1(2,7))*XZ
      F(6,3,3,1)= R5(19,1)-R4(13,1)*TWO+R3(8,1)+R3(8,2)+R3(10,7)
     * -R2(3,8)*TWO+R1(3,2)+R1(3,6)+(+R4(13,3)-R3(8,4)*TWO+R2(2,2)
     * +R2(2,5)+R2(3,13)-R1(3,11)*TWO+R0(3)+R0(8))*QZ
      F(1,4,3,1)= R5(10,1)-R4(6,1)*TWO+R3(3,1)+R3(3,2)+R3(10,7)
     * -R2(3,8)*TWO+R1(3,2)+R1(3,6)+(+R4(10,3)*TWO-R3(6,4)*FOUR
     * +R2(5,2)*TWO+R2(5,5)*TWO)*QX+(+R4(6,4)-R3(3,5)*TWO+R2(1,3)
     * +R2(1,6)+R2(3,14)-R1(3,12)*TWO+R0(4)+R0(9))*QZ+(+R3(10,8)
     * -R2(3,9)*TWO+R1(3,3)+R1(3,7))*XX+(+R3(6,9)*TWO-R2(5,10)*FOUR
     * +R1(1,4)*TWO+R1(1,8)*TWO)*XZ+(+R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10)
     * )*XXZ
      F(2,4,3,1)= R5(19,1)-R4(13,1)*TWO+R3(8,1)+R3(8,2)+R3(10,7)
     * -R2(3,8)*TWO+R1(3,2)+R1(3,6)+(+R4(13,4)-R3(8,5)*TWO+R2(2,3)
     * +R2(2,6)+R2(3,14)-R1(3,12)*TWO+R0(4)+R0(9))*QZ
      F(3,4,3,1)= R5(21,1)-R4(15,1)*TWO+R3(10,1)+R3(10,2)+R3(10,7)*THREE
     * -R2(3,8)*SIX+R1(3,2)*THREE+R1(3,6)*THREE+(+R4(15,3)*TWO+R4(15,4)
     * -R3(10,4)*FOUR-R3(10,5)*TWO+R2(3,2)*TWO+R2(3,3)+R2(3,5)*TWO
     * +R2(3,6)+R2(3,13)*TWO+R2(3,14)-R1(3,11)*FOUR-R1(3,12)*TWO
     * +R0(3)*TWO+R0(4)+R0(8)*TWO+R0(9))*QZ+(+R3(10,8)+R3(10,9)*TWO
     * -R2(3,9)*TWO-R2(3,10)*FOUR+R1(3,3)+R1(3,4)*TWO+R1(3,7)
     * +R1(3,8)*TWO)*ZZ+(+R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10))*ZZZ
      F(4,4,3,1)= R5(14,1)-R4(9,1)*TWO+R3(5,1)+R3(5,2)+(+R4(14,3)
     * -R3(9,4)*TWO+R2(6,2)+R2(6,5))*QX+(+R4(9,4)-R3(5,5)*TWO+R2(4,3)
     * +R2(4,6))*QZ+(+R3(9,9)-R2(6,10)*TWO+R1(2,4)+R1(2,8))*XZ
      F(5,4,3,1)= R5(15,1)-R4(10,1)*TWO+R3(6,1)+R3(6,2)+R3(6,7)
     * -R2(5,8)*TWO+R1(1,2)+R1(1,6)+(+R4(15,3)-R3(10,4)*TWO+R2(3,2)
     * +R2(3,5)+R2(3,13)-R1(3,11)*TWO+R0(3)+R0(8))*QX+(+R4(10,3)
     * +R4(10,4)-R3(6,4)*TWO-R3(6,5)*TWO+R2(5,2)+R2(5,3)+R2(5,5)+R2(5,6)
     * )*QZ+(+R3(10,8)+R3(10,9)-R2(3,9)*TWO-R2(3,10)*TWO+R1(3,3)+R1(3,4)
     * +R1(3,7)+R1(3,8))*XZ+(+R3(6,9)-R2(5,10)*TWO+R1(1,4)+R1(1,8))*ZZ+(
     * +R2(3,15)-R1(3,13)*TWO+R0(5)+R0(10))*XZZ
      F(6,4,3,1)= R5(20,1)-R4(14,1)*TWO+R3(9,1)+R3(9,2)+R3(9,7)
     * -R2(6,8)*TWO+R1(2,2)+R1(2,6)+(+R4(14,3)+R4(14,4)-R3(9,4)*TWO
     * -R3(9,5)*TWO+R2(6,2)+R2(6,3)+R2(6,5)+R2(6,6))*QZ+(+R3(9,9)
     * -R2(6,10)*TWO+R1(2,4)+R1(2,8))*ZZ
      F(1,1,4,1)= R4(2,2)+R2(4,11)+R3(2,6)*TWO*QX+R2(4,12)*XX
      F(2,1,4,1)= R4(7,2)+R2(4,11)
      F(3,1,4,1)= R4(9,2)+R2(4,11)+R3(5,6)*TWO*QZ+R2(4,12)*ZZ
      F(4,1,4,1)= R4(4,2)+R3(4,6)*QX
      F(5,1,4,1)= R4(5,2)+R3(5,6)*QX+R3(2,6)*QZ+R2(4,12)*XZ
      F(6,1,4,1)= R4(8,2)+R3(4,6)*QZ
      F(1,2,4,1)= R5(2,1)+R3(2,7)*THREE+(+R4(2,3)*TWO+R4(2,4)
     * +R2(4,13)*TWO+R2(4,14))*QX+(+R3(2,8)+R3(2,9)*TWO)*XX+R2(4,15)*XXX
      F(2,2,4,1)= R5(7,1)+R3(2,7)+(+R4(7,4)+R2(4,14))*QX
      F(3,2,4,1)= R5(9,1)+R3(2,7)+(+R4(9,4)+R2(4,14))*QX+R4(5,3)*TWO*QZ
     * +R3(5,9)*TWO*XZ+R3(2,8)*ZZ+R2(4,15)*XZZ
      F(4,2,4,1)= R5(4,1)+R3(4,7)+(+R4(4,3)+R4(4,4))*QX+R3(4,9)*XX
      F(5,2,4,1)= R5(5,1)+R3(5,7)+(+R4(5,3)+R4(5,4))*QX+(+R4(2,3)
     * +R2(4,13))*QZ+R3(5,9)*XX+(+R3(2,8)+R3(2,9))*XZ+R2(4,15)*XXZ
      F(6,2,4,1)= R5(8,1)+R4(8,4)*QX+R4(4,3)*QZ+R3(4,9)*XZ
      F(1,3,4,1)= R5(4,1)+R3(4,7)+R4(4,3)*TWO*QX+R3(4,8)*XX
      F(2,3,4,1)= R5(11,1)+R3(4,7)*THREE
      F(3,3,4,1)= R5(13,1)+R3(4,7)+R4(8,3)*TWO*QZ+R3(4,8)*ZZ
      F(4,3,4,1)= R5(7,1)+R3(2,7)+(+R4(7,3)+R2(4,13))*QX
      F(5,3,4,1)= R5(8,1)+R4(8,3)*QX+R4(4,3)*QZ+R3(4,8)*XZ
      F(6,3,4,1)= R5(12,1)+R3(5,7)+(+R4(7,3)+R2(4,13))*QZ
      F(1,4,4,1)= R5(5,1)+R3(5,7)+R4(5,3)*TWO*QX+(+R4(2,4)+R2(4,14))*QZ
     * +R3(5,8)*XX+R3(2,9)*TWO*XZ+R2(4,15)*XXZ
      F(2,4,4,1)= R5(12,1)+R3(5,7)+(+R4(7,4)+R2(4,14))*QZ
      F(3,4,4,1)= R5(14,1)+R3(5,7)*THREE+(+R4(9,3)*TWO+R4(9,4)
     * +R2(4,13)*TWO+R2(4,14))*QZ+(+R3(5,8)+R3(5,9)*TWO)*ZZ+R2(4,15)*ZZZ
      F(4,4,4,1)= R5(8,1)+R4(8,3)*QX+R4(4,4)*QZ+R3(4,9)*XZ
      F(5,4,4,1)= R5(9,1)+R3(2,7)+(+R4(9,3)+R2(4,13))*QX+(+R4(5,3)
     * +R4(5,4))*QZ+(+R3(5,8)+R3(5,9))*XZ+R3(2,9)*ZZ+R2(4,15)*XZZ
      F(6,4,4,1)= R5(13,1)+R3(4,7)+(+R4(8,3)+R4(8,4))*QZ+R3(4,9)*ZZ
      F(1,1,5,1)= R4(3,2)-R3(1,3)+R2(5,11)-R1(1,9)+(+R3(3,6)*TWO
     * -R2(1,7)*TWO)*QX+(+R2(5,12)-R1(1,10))*XX
      F(2,1,5,1)= R4(8,2)-R3(4,3)+R2(5,11)-R1(1,9)
      F(3,1,5,1)= R4(10,2)-R3(6,3)+R2(5,11)-R1(1,9)+(+R3(6,6)*TWO
     * -R2(5,7)*TWO)*QZ+(+R2(5,12)-R1(1,10))*ZZ
      F(4,1,5,1)= R4(5,2)-R3(2,3)+(+R3(5,6)-R2(4,7))*QX
      F(5,1,5,1)= R4(6,2)-R3(3,3)+(+R3(6,6)-R2(5,7))*QX+(+R3(3,6)
     * -R2(1,7))*QZ+(+R2(5,12)-R1(1,10))*XZ
      F(6,1,5,1)= R4(9,2)-R3(5,3)+(+R3(5,6)-R2(4,7))*QZ
      F(1,2,5,1)= R5(3,1)-R4(1,1)+R3(3,7)*THREE-R2(1,8)*THREE+(
     * +R4(3,3)*TWO+R4(3,4)-R3(1,4)*TWO-R3(1,5)+R2(5,13)*TWO+R2(5,14)
     * -R1(1,11)*TWO-R1(1,12))*QX+(+R3(3,8)+R3(3,9)*TWO-R2(1,9)
     * -R2(1,10)*TWO)*XX+(+R2(5,15)-R1(1,13))*XXX
      F(2,2,5,1)= R5(8,1)-R4(4,1)+R3(3,7)-R2(1,8)+(+R4(8,4)-R3(4,5)
     * +R2(5,14)-R1(1,12))*QX
      F(3,2,5,1)= R5(10,1)-R4(6,1)+R3(3,7)-R2(1,8)+(+R4(10,4)-R3(6,5)
     * +R2(5,14)-R1(1,12))*QX+(+R4(6,3)*TWO-R3(3,4)*TWO)*QZ+(
     * +R3(6,9)*TWO-R2(5,10)*TWO)*XZ+(+R3(3,8)-R2(1,9))*ZZ+(+R2(5,15)
     * -R1(1,13))*XZZ
      F(4,2,5,1)= R5(5,1)-R4(2,1)+R3(5,7)-R2(4,8)+(+R4(5,3)+R4(5,4)
     * -R3(2,4)-R3(2,5))*QX+(+R3(5,9)-R2(4,10))*XX
      F(5,2,5,1)= R5(6,1)-R4(3,1)+R3(6,7)-R2(5,8)+(+R4(6,3)+R4(6,4)
     * -R3(3,4)-R3(3,5))*QX+(+R4(3,3)-R3(1,4)+R2(5,13)-R1(1,11))*QZ+(
     * +R3(6,9)-R2(5,10))*XX+(+R3(3,8)+R3(3,9)-R2(1,9)-R2(1,10))*XZ+(
     * +R2(5,15)-R1(1,13))*XXZ
      F(6,2,5,1)= R5(9,1)-R4(5,1)+(+R4(9,4)-R3(5,5))*QX+(+R4(5,3)
     * -R3(2,4))*QZ+(+R3(5,9)-R2(4,10))*XZ
      F(1,3,5,1)= R5(5,1)-R4(2,1)+R3(5,7)-R2(4,8)+(+R4(5,3)*TWO
     * -R3(2,4)*TWO)*QX+(+R3(5,8)-R2(4,9))*XX
      F(2,3,5,1)= R5(12,1)-R4(7,1)+R3(5,7)*THREE-R2(4,8)*THREE
      F(3,3,5,1)= R5(14,1)-R4(9,1)+R3(5,7)-R2(4,8)+(+R4(9,3)*TWO
     * -R3(5,4)*TWO)*QZ+(+R3(5,8)-R2(4,9))*ZZ
      F(4,3,5,1)= R5(8,1)-R4(4,1)+R3(3,7)-R2(1,8)+(+R4(8,3)-R3(4,4)
     * +R2(5,13)-R1(1,11))*QX
      F(5,3,5,1)= R5(9,1)-R4(5,1)+(+R4(9,3)-R3(5,4))*QX+(+R4(5,3)
     * -R3(2,4))*QZ+(+R3(5,8)-R2(4,9))*XZ
      F(6,3,5,1)= R5(13,1)-R4(8,1)+R3(6,7)-R2(5,8)+(+R4(8,3)-R3(4,4)
     * +R2(5,13)-R1(1,11))*QZ
      F(1,4,5,1)= R5(6,1)-R4(3,1)+R3(6,7)-R2(5,8)+(+R4(6,3)*TWO
     * -R3(3,4)*TWO)*QX+(+R4(3,4)-R3(1,5)+R2(5,14)-R1(1,12))*QZ+(
     * +R3(6,8)-R2(5,9))*XX+(+R3(3,9)*TWO-R2(1,10)*TWO)*XZ+(+R2(5,15)
     * -R1(1,13))*XXZ
      F(2,4,5,1)= R5(13,1)-R4(8,1)+R3(6,7)-R2(5,8)+(+R4(8,4)-R3(4,5)
     * +R2(5,14)-R1(1,12))*QZ
      F(3,4,5,1)= R5(15,1)-R4(10,1)+R3(6,7)*THREE-R2(5,8)*THREE+(
     * +R4(10,3)*TWO+R4(10,4)-R3(6,4)*TWO-R3(6,5)+R2(5,13)*TWO+R2(5,14)
     * -R1(1,11)*TWO-R1(1,12))*QZ+(+R3(6,8)+R3(6,9)*TWO-R2(5,9)
     * -R2(5,10)*TWO)*ZZ+(+R2(5,15)-R1(1,13))*ZZZ
      F(4,4,5,1)= R5(9,1)-R4(5,1)+(+R4(9,3)-R3(5,4))*QX+(+R4(5,4)
     * -R3(2,5))*QZ+(+R3(5,9)-R2(4,10))*XZ
      F(5,4,5,1)= R5(10,1)-R4(6,1)+R3(3,7)-R2(1,8)+(+R4(10,3)-R3(6,4)
     * +R2(5,13)-R1(1,11))*QX+(+R4(6,3)+R4(6,4)-R3(3,4)-R3(3,5))*QZ+(
     * +R3(6,8)+R3(6,9)-R2(5,9)-R2(5,10))*XZ+(+R3(3,9)-R2(1,10))*ZZ+(
     * +R2(5,15)-R1(1,13))*XZZ
      F(6,4,5,1)= R5(14,1)-R4(9,1)+R3(5,7)-R2(4,8)+(+R4(9,3)+R4(9,4)
     * -R3(5,4)-R3(5,5))*QZ+(+R3(5,9)-R2(4,10))*ZZ
      F(1,1,6,1)= R4(5,2)-R3(2,3)+R2(6,11)-R1(2,9)+(+R3(5,6)*TWO
     * -R2(4,7)*TWO)*QX+(+R2(6,12)-R1(2,10))*XX
      F(2,1,6,1)= R4(12,2)-R3(7,3)+R2(6,11)-R1(2,9)
      F(3,1,6,1)= R4(14,2)-R3(9,3)+R2(6,11)-R1(2,9)+(+R3(9,6)*TWO
     * -R2(6,7)*TWO)*QZ+(+R2(6,12)-R1(2,10))*ZZ
      F(4,1,6,1)= R4(8,2)-R3(4,3)+(+R3(8,6)-R2(2,7))*QX
      F(5,1,6,1)= R4(9,2)-R3(5,3)+(+R3(9,6)-R2(6,7))*QX+(+R3(5,6)
     * -R2(4,7))*QZ+(+R2(6,12)-R1(2,10))*XZ
      F(6,1,6,1)= R4(13,2)-R3(8,3)+(+R3(8,6)-R2(2,7))*QZ
      F(1,2,6,1)= R5(5,1)-R4(2,1)+R3(5,7)*THREE-R2(4,8)*THREE+(
     * +R4(5,3)*TWO+R4(5,4)-R3(2,4)*TWO-R3(2,5)+R2(6,13)*TWO+R2(6,14)
     * -R1(2,11)*TWO-R1(2,12))*QX+(+R3(5,8)+R3(5,9)*TWO-R2(4,9)
     * -R2(4,10)*TWO)*XX+(+R2(6,15)-R1(2,13))*XXX
      F(2,2,6,1)= R5(12,1)-R4(7,1)+R3(5,7)-R2(4,8)+(+R4(12,4)-R3(7,5)
     * +R2(6,14)-R1(2,12))*QX
      F(3,2,6,1)= R5(14,1)-R4(9,1)+R3(5,7)-R2(4,8)+(+R4(14,4)-R3(9,5)
     * +R2(6,14)-R1(2,12))*QX+(+R4(9,3)*TWO-R3(5,4)*TWO)*QZ+(
     * +R3(9,9)*TWO-R2(6,10)*TWO)*XZ+(+R3(5,8)-R2(4,9))*ZZ+(+R2(6,15)
     * -R1(2,13))*XZZ
      F(4,2,6,1)= R5(8,1)-R4(4,1)+R3(8,7)-R2(2,8)+(+R4(8,3)+R4(8,4)
     * -R3(4,4)-R3(4,5))*QX+(+R3(8,9)-R2(2,10))*XX
      F(5,2,6,1)= R5(9,1)-R4(5,1)+R3(9,7)-R2(6,8)+(+R4(9,3)+R4(9,4)
     * -R3(5,4)-R3(5,5))*QX+(+R4(5,3)-R3(2,4)+R2(6,13)-R1(2,11))*QZ+(
     * +R3(9,9)-R2(6,10))*XX+(+R3(5,8)+R3(5,9)-R2(4,9)-R2(4,10))*XZ+(
     * +R2(6,15)-R1(2,13))*XXZ
      F(6,2,6,1)= R5(13,1)-R4(8,1)+(+R4(13,4)-R3(8,5))*QX+(+R4(8,3)
     * -R3(4,4))*QZ+(+R3(8,9)-R2(2,10))*XZ
      F(1,3,6,1)= R5(8,1)-R4(4,1)+R3(8,7)-R2(2,8)+(+R4(8,3)*TWO
     * -R3(4,4)*TWO)*QX+(+R3(8,8)-R2(2,9))*XX
      F(2,3,6,1)= R5(17,1)-R4(11,1)+R3(8,7)*THREE-R2(2,8)*THREE
      F(3,3,6,1)= R5(19,1)-R4(13,1)+R3(8,7)-R2(2,8)+(+R4(13,3)*TWO
     * -R3(8,4)*TWO)*QZ+(+R3(8,8)-R2(2,9))*ZZ
      F(4,3,6,1)= R5(12,1)-R4(7,1)+R3(5,7)-R2(4,8)+(+R4(12,3)-R3(7,4)
     * +R2(6,13)-R1(2,11))*QX
      F(5,3,6,1)= R5(13,1)-R4(8,1)+(+R4(13,3)-R3(8,4))*QX+(+R4(8,3)
     * -R3(4,4))*QZ+(+R3(8,8)-R2(2,9))*XZ
      F(6,3,6,1)= R5(18,1)-R4(12,1)+R3(9,7)-R2(6,8)+(+R4(12,3)-R3(7,4)
     * +R2(6,13)-R1(2,11))*QZ
      F(1,4,6,1)= R5(9,1)-R4(5,1)+R3(9,7)-R2(6,8)+(+R4(9,3)*TWO
     * -R3(5,4)*TWO)*QX+(+R4(5,4)-R3(2,5)+R2(6,14)-R1(2,12))*QZ+(
     * +R3(9,8)-R2(6,9))*XX+(+R3(5,9)*TWO-R2(4,10)*TWO)*XZ+(+R2(6,15)
     * -R1(2,13))*XXZ
      F(2,4,6,1)= R5(18,1)-R4(12,1)+R3(9,7)-R2(6,8)+(+R4(12,4)-R3(7,5)
     * +R2(6,14)-R1(2,12))*QZ
      F(3,4,6,1)= R5(20,1)-R4(14,1)+R3(9,7)*THREE-R2(6,8)*THREE+(
     * +R4(14,3)*TWO+R4(14,4)-R3(9,4)*TWO-R3(9,5)+R2(6,13)*TWO+R2(6,14)
     * -R1(2,11)*TWO-R1(2,12))*QZ+(+R3(9,8)+R3(9,9)*TWO-R2(6,9)
     * -R2(6,10)*TWO)*ZZ+(+R2(6,15)-R1(2,13))*ZZZ
      F(4,4,6,1)= R5(13,1)-R4(8,1)+(+R4(13,3)-R3(8,4))*QX+(+R4(8,4)
     * -R3(4,5))*QZ+(+R3(8,9)-R2(2,10))*XZ
      F(5,4,6,1)= R5(14,1)-R4(9,1)+R3(5,7)-R2(4,8)+(+R4(14,3)-R3(9,4)
     * +R2(6,13)-R1(2,11))*QX+(+R4(9,3)+R4(9,4)-R3(5,4)-R3(5,5))*QZ+(
     * +R3(9,8)+R3(9,9)-R2(6,9)-R2(6,10))*XZ+(+R3(5,9)-R2(4,10))*ZZ+(
     * +R2(6,15)-R1(2,13))*XZZ
      F(6,4,6,1)= R5(19,1)-R4(13,1)+R3(8,7)-R2(2,8)+(+R4(13,3)+R4(13,4)
     * -R3(8,4)-R3(8,5))*QZ+(+R3(8,9)-R2(2,10))*ZZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV16
      SUBROUTINE MCDV16(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
C
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
C
      F(1,1,1,1)= R2(1,1)+R0(1)+R1(1,1)*TWO*QX+R0(2)*XX
      F(2,1,1,1)= R2(2,1)+R0(1)
      F(3,1,1,1)= R2(3,1)+R0(1)+R1(3,1)*TWO*QZ+R0(2)*ZZ
      F(4,1,1,1)= R2(4,1)+R1(2,1)*QX
      F(5,1,1,1)= R2(5,1)+R1(3,1)*QX+R1(1,1)*QZ+R0(2)*XZ
      F(6,1,1,1)= R2(6,1)+R1(2,1)*QZ
      F(1,2,1,1)= R3(1,1)+R1(1,2)*THREE+(+R2(1,2)*TWO+R2(1,3)+R0(3)*TWO
     * +R0(4))*QX+(+R1(1,3)+R1(1,4)*TWO)*XX+R0(5)*XXX
      F(2,2,1,1)= R3(4,1)+R1(1,2)+(+R2(2,3)+R0(4))*QX
      F(3,2,1,1)= R3(6,1)+R1(1,2)+(+R2(3,3)+R0(4))*QX+R2(5,2)*TWO*QZ
     * +R1(3,4)*TWO*XZ+R1(1,3)*ZZ+R0(5)*XZZ
      F(4,2,1,1)= R3(2,1)+R1(2,2)+(+R2(4,2)+R2(4,3))*QX+R1(2,4)*XX
      F(5,2,1,1)= R3(3,1)+R1(3,2)+(+R2(5,2)+R2(5,3))*QX+(+R2(1,2)+R0(3))
     * *QZ+R1(3,4)*XX+(+R1(1,3)+R1(1,4))*XZ+R0(5)*XXZ
      F(6,2,1,1)= R3(5,1)+R2(6,3)*QX+R2(4,2)*QZ+R1(2,4)*XZ
      F(1,3,1,1)= R3(2,1)+R1(2,2)+R2(4,2)*TWO*QX+R1(2,3)*XX
      F(2,3,1,1)= R3(7,1)+R1(2,2)*THREE
      F(3,3,1,1)= R3(9,1)+R1(2,2)+R2(6,2)*TWO*QZ+R1(2,3)*ZZ
      F(4,3,1,1)= R3(4,1)+R1(1,2)+(+R2(2,2)+R0(3))*QX
      F(5,3,1,1)= R3(5,1)+R2(6,2)*QX+R2(4,2)*QZ+R1(2,3)*XZ
      F(6,3,1,1)= R3(8,1)+R1(3,2)+(+R2(2,2)+R0(3))*QZ
      F(1,4,1,1)= R3(3,1)+R1(3,2)+R2(5,2)*TWO*QX+(+R2(1,3)+R0(4))*QZ
     * +R1(3,3)*XX+R1(1,4)*TWO*XZ+R0(5)*XXZ
      F(2,4,1,1)= R3(8,1)+R1(3,2)+(+R2(2,3)+R0(4))*QZ
      F(3,4,1,1)= R3(10,1)+R1(3,2)*THREE+(+R2(3,2)*TWO+R2(3,3)+R0(3)*TWO
     * +R0(4))*QZ+(+R1(3,3)+R1(3,4)*TWO)*ZZ+R0(5)*ZZZ
      F(4,4,1,1)= R3(5,1)+R2(6,2)*QX+R2(4,3)*QZ+R1(2,4)*XZ
      F(5,4,1,1)= R3(6,1)+R1(1,2)+(+R2(3,2)+R0(3))*QX+(+R2(5,2)+R2(5,3))
     * *QZ+(+R1(3,3)+R1(3,4))*XZ+R1(1,4)*ZZ+R0(5)*XZZ
      F(6,4,1,1)= R3(9,1)+R1(2,2)+(+R2(6,2)+R2(6,3))*QZ+R1(2,4)*ZZ
      F(1,1,2,1)= -R3(1,9)-R1(1,21)-R2(1,16)*TWO*QX-R1(1,22)*XX
      F(2,1,2,1)= -R3(4,9)-R1(1,21)
      F(3,1,2,1)= -R3(6,9)-R1(1,21)-R2(5,16)*TWO*QZ-R1(1,22)*ZZ
      F(4,1,2,1)= -R3(2,9)-R2(4,16)*QX
      F(5,1,2,1)= -R3(3,9)-R2(5,16)*QX-R2(1,16)*QZ-R1(1,22)*XZ
      F(6,1,2,1)= -R3(5,9)-R2(4,16)*QZ
      F(1,2,2,1)= -R4(1,2)-R2(1,17)*THREE+(-R3(1,10)*TWO-R3(1,11)
     * -R1(1,23)*TWO-R1(1,24))*QX+(-R2(1,18)-R2(1,19)*TWO)*XX-R1(1,25)
     * *XXX
      F(2,2,2,1)= -R4(4,2)-R2(1,17)+(-R3(4,11)-R1(1,24))*QX
      F(3,2,2,1)= -R4(6,2)-R2(1,17)+(-R3(6,11)-R1(1,24))*QX-R3(3,10)*TWO
     * *QZ-R2(5,19)*TWO*XZ-R2(1,18)*ZZ-R1(1,25)*XZZ
      F(4,2,2,1)= -R4(2,2)-R2(4,17)+(-R3(2,10)-R3(2,11))*QX-R2(4,19)*XX
      F(5,2,2,1)= -R4(3,2)-R2(5,17)+(-R3(3,10)-R3(3,11))*QX+(-R3(1,10)
     * -R1(1,23))*QZ-R2(5,19)*XX+(-R2(1,18)-R2(1,19))*XZ-R1(1,25)*XXZ
      F(6,2,2,1)= -R4(5,2)-R3(5,11)*QX-R3(2,10)*QZ-R2(4,19)*XZ
      F(1,3,2,1)= -R4(2,2)-R2(4,17)-R3(2,10)*TWO*QX-R2(4,18)*XX
      F(2,3,2,1)= -R4(7,2)-R2(4,17)*THREE
      F(3,3,2,1)= -R4(9,2)-R2(4,17)-R3(5,10)*TWO*QZ-R2(4,18)*ZZ
      F(4,3,2,1)= -R4(4,2)-R2(1,17)+(-R3(4,10)-R1(1,23))*QX
      F(5,3,2,1)= -R4(5,2)-R3(5,10)*QX-R3(2,10)*QZ-R2(4,18)*XZ
      F(6,3,2,1)= -R4(8,2)-R2(5,17)+(-R3(4,10)-R1(1,23))*QZ
      F(1,4,2,1)= -R4(3,2)-R2(5,17)-R3(3,10)*TWO*QX+(-R3(1,11)-R1(1,24))
     * *QZ-R2(5,18)*XX-R2(1,19)*TWO*XZ-R1(1,25)*XXZ
      F(2,4,2,1)= -R4(8,2)-R2(5,17)+(-R3(4,11)-R1(1,24))*QZ
      F(3,4,2,1)= -R4(10,2)-R2(5,17)*THREE+(-R3(6,10)*TWO-R3(6,11)
     * -R1(1,23)*TWO-R1(1,24))*QZ+(-R2(5,18)-R2(5,19)*TWO)*ZZ-R1(1,25)
     * *ZZZ
      F(4,4,2,1)= -R4(5,2)-R3(5,10)*QX-R3(2,11)*QZ-R2(4,19)*XZ
      F(5,4,2,1)= -R4(6,2)-R2(1,17)+(-R3(6,10)-R1(1,23))*QX+(-R3(3,10)
     * -R3(3,11))*QZ+(-R2(5,18)-R2(5,19))*XZ-R2(1,19)*ZZ-R1(1,25)*XZZ
      F(6,4,2,1)= -R4(9,2)-R2(4,17)+(-R3(5,10)-R3(5,11))*QZ-R2(4,19)*ZZ
      F(1,1,3,1)= -R3(2,9)-R1(2,21)-R2(4,16)*TWO*QX-R1(2,22)*XX
      F(2,1,3,1)= -R3(7,9)-R1(2,21)
      F(3,1,3,1)= -R3(9,9)-R1(2,21)-R2(6,16)*TWO*QZ-R1(2,22)*ZZ
      F(4,1,3,1)= -R3(4,9)-R2(2,16)*QX
      F(5,1,3,1)= -R3(5,9)-R2(6,16)*QX-R2(4,16)*QZ-R1(2,22)*XZ
      F(6,1,3,1)= -R3(8,9)-R2(2,16)*QZ
      F(1,2,3,1)= -R4(2,2)-R2(4,17)*THREE+(-R3(2,10)*TWO-R3(2,11)
     * -R1(2,23)*TWO-R1(2,24))*QX+(-R2(4,18)-R2(4,19)*TWO)*XX-R1(2,25)
     * *XXX
      F(2,2,3,1)= -R4(7,2)-R2(4,17)+(-R3(7,11)-R1(2,24))*QX
      F(3,2,3,1)= -R4(9,2)-R2(4,17)+(-R3(9,11)-R1(2,24))*QX-R3(5,10)*TWO
     * *QZ-R2(6,19)*TWO*XZ-R2(4,18)*ZZ-R1(2,25)*XZZ
      F(4,2,3,1)= -R4(4,2)-R2(2,17)+(-R3(4,10)-R3(4,11))*QX-R2(2,19)*XX
      F(5,2,3,1)= -R4(5,2)-R2(6,17)+(-R3(5,10)-R3(5,11))*QX+(-R3(2,10)
     * -R1(2,23))*QZ-R2(6,19)*XX+(-R2(4,18)-R2(4,19))*XZ-R1(2,25)*XXZ
      F(6,2,3,1)= -R4(8,2)-R3(8,11)*QX-R3(4,10)*QZ-R2(2,19)*XZ
      F(1,3,3,1)= -R4(4,2)-R2(2,17)-R3(4,10)*TWO*QX-R2(2,18)*XX
      F(2,3,3,1)= -R4(11,2)-R2(2,17)*THREE
      F(3,3,3,1)= -R4(13,2)-R2(2,17)-R3(8,10)*TWO*QZ-R2(2,18)*ZZ
      F(4,3,3,1)= -R4(7,2)-R2(4,17)+(-R3(7,10)-R1(2,23))*QX
      F(5,3,3,1)= -R4(8,2)-R3(8,10)*QX-R3(4,10)*QZ-R2(2,18)*XZ
      F(6,3,3,1)= -R4(12,2)-R2(6,17)+(-R3(7,10)-R1(2,23))*QZ
      F(1,4,3,1)= -R4(5,2)-R2(6,17)-R3(5,10)*TWO*QX+(-R3(2,11)-R1(2,24))
     * *QZ-R2(6,18)*XX-R2(4,19)*TWO*XZ-R1(2,25)*XXZ
      F(2,4,3,1)= -R4(12,2)-R2(6,17)+(-R3(7,11)-R1(2,24))*QZ
      F(3,4,3,1)= -R4(14,2)-R2(6,17)*THREE+(-R3(9,10)*TWO-R3(9,11)
     * -R1(2,23)*TWO-R1(2,24))*QZ+(-R2(6,18)-R2(6,19)*TWO)*ZZ-R1(2,25)
     * *ZZZ
      F(4,4,3,1)= -R4(8,2)-R3(8,10)*QX-R3(4,11)*QZ-R2(2,19)*XZ
      F(5,4,3,1)= -R4(9,2)-R2(4,17)+(-R3(9,10)-R1(2,23))*QX+(-R3(5,10)
     * -R3(5,11))*QZ+(-R2(6,18)-R2(6,19))*XZ-R2(4,19)*ZZ-R1(2,25)*XZZ
      F(6,4,3,1)= -R4(13,2)-R2(2,17)+(-R3(8,10)-R3(8,11))*QZ-R2(2,19)*ZZ
      F(1,1,4,1)= -R3(3,9)+R2(1,4)-R1(3,21)+R0(6)+(-R2(5,16)*TWO
     * +R1(1,5)*TWO)*QX+(-R1(3,22)+R0(7))*XX
      F(2,1,4,1)= -R3(8,9)+R2(2,4)-R1(3,21)+R0(6)
      F(3,1,4,1)= -R3(10,9)+R2(3,4)-R1(3,21)+R0(6)+(-R2(3,16)*TWO
     * +R1(3,5)*TWO)*QZ+(-R1(3,22)+R0(7))*ZZ
      F(4,1,4,1)= -R3(5,9)+R2(4,4)+(-R2(6,16)+R1(2,5))*QX
      F(5,1,4,1)= -R3(6,9)+R2(5,4)+(-R2(3,16)+R1(3,5))*QX+(-R2(5,16)
     * +R1(1,5))*QZ+(-R1(3,22)+R0(7))*XZ
      F(6,1,4,1)= -R3(9,9)+R2(6,4)+(-R2(6,16)+R1(2,5))*QZ
      F(1,2,4,1)= -R4(3,2)+R3(1,2)-R2(5,17)*THREE+R1(1,6)*THREE+(
     * -R3(3,10)*TWO-R3(3,11)+R2(1,5)*TWO+R2(1,6)-R1(3,23)*TWO-R1(3,24)
     * +R0(8)*TWO+R0(9))*QX+(-R2(5,18)-R2(5,19)*TWO+R1(1,7)+R1(1,8)*TWO)
     * *XX+(-R1(3,25)+R0(10))*XXX
      F(2,2,4,1)= -R4(8,2)+R3(4,2)-R2(5,17)+R1(1,6)+(-R3(8,11)+R2(2,6)
     * -R1(3,24)+R0(9))*QX
      F(3,2,4,1)= -R4(10,2)+R3(6,2)-R2(5,17)+R1(1,6)+(-R3(10,11)+R2(3,6)
     * -R1(3,24)+R0(9))*QX+(-R3(6,10)*TWO+R2(5,5)*TWO)*QZ+(-R2(3,19)*TWO
     * +R1(3,8)*TWO)*XZ+(-R2(5,18)+R1(1,7))*ZZ+(-R1(3,25)+R0(10))*XZZ
      F(4,2,4,1)= -R4(5,2)+R3(2,2)-R2(6,17)+R1(2,6)+(-R3(5,10)-R3(5,11)
     * +R2(4,5)+R2(4,6))*QX+(-R2(6,19)+R1(2,8))*XX
      F(5,2,4,1)= -R4(6,2)+R3(3,2)-R2(3,17)+R1(3,6)+(-R3(6,10)-R3(6,11)
     * +R2(5,5)+R2(5,6))*QX+(-R3(3,10)+R2(1,5)-R1(3,23)+R0(8))*QZ+(
     * -R2(3,19)+R1(3,8))*XX+(-R2(5,18)-R2(5,19)+R1(1,7)+R1(1,8))*XZ+(
     * -R1(3,25)+R0(10))*XXZ
      F(6,2,4,1)= -R4(9,2)+R3(5,2)+(-R3(9,11)+R2(6,6))*QX+(-R3(5,10)
     * +R2(4,5))*QZ+(-R2(6,19)+R1(2,8))*XZ
      F(1,3,4,1)= -R4(5,2)+R3(2,2)-R2(6,17)+R1(2,6)+(-R3(5,10)*TWO
     * +R2(4,5)*TWO)*QX+(-R2(6,18)+R1(2,7))*XX
      F(2,3,4,1)= -R4(12,2)+R3(7,2)-R2(6,17)*THREE+R1(2,6)*THREE
      F(3,3,4,1)= -R4(14,2)+R3(9,2)-R2(6,17)+R1(2,6)+(-R3(9,10)*TWO
     * +R2(6,5)*TWO)*QZ+(-R2(6,18)+R1(2,7))*ZZ
      F(4,3,4,1)= -R4(8,2)+R3(4,2)-R2(5,17)+R1(1,6)+(-R3(8,10)+R2(2,5)
     * -R1(3,23)+R0(8))*QX
      F(5,3,4,1)= -R4(9,2)+R3(5,2)+(-R3(9,10)+R2(6,5))*QX+(-R3(5,10)
     * +R2(4,5))*QZ+(-R2(6,18)+R1(2,7))*XZ
      F(6,3,4,1)= -R4(13,2)+R3(8,2)-R2(3,17)+R1(3,6)+(-R3(8,10)+R2(2,5)
     * -R1(3,23)+R0(8))*QZ
      F(1,4,4,1)= -R4(6,2)+R3(3,2)-R2(3,17)+R1(3,6)+(-R3(6,10)*TWO
     * +R2(5,5)*TWO)*QX+(-R3(3,11)+R2(1,6)-R1(3,24)+R0(9))*QZ+(-R2(3,18)
     * +R1(3,7))*XX+(-R2(5,19)*TWO+R1(1,8)*TWO)*XZ+(-R1(3,25)+R0(10))
     * *XXZ
      F(2,4,4,1)= -R4(13,2)+R3(8,2)-R2(3,17)+R1(3,6)+(-R3(8,11)+R2(2,6)
     * -R1(3,24)+R0(9))*QZ
      F(3,4,4,1)= -R4(15,2)+R3(10,2)-R2(3,17)*THREE+R1(3,6)*THREE+(
     * -R3(10,10)*TWO-R3(10,11)+R2(3,5)*TWO+R2(3,6)-R1(3,23)*TWO
     * -R1(3,24)+R0(8)*TWO+R0(9))*QZ+(-R2(3,18)-R2(3,19)*TWO+R1(3,7)
     * +R1(3,8)*TWO)*ZZ+(-R1(3,25)+R0(10))*ZZZ
      F(4,4,4,1)= -R4(9,2)+R3(5,2)+(-R3(9,10)+R2(6,5))*QX+(-R3(5,11)
     * +R2(4,6))*QZ+(-R2(6,19)+R1(2,8))*XZ
      F(5,4,4,1)= -R4(10,2)+R3(6,2)-R2(5,17)+R1(1,6)+(-R3(10,10)+R2(3,5)
     * -R1(3,23)+R0(8))*QX+(-R3(6,10)-R3(6,11)+R2(5,5)+R2(5,6))*QZ+(
     * -R2(3,18)-R2(3,19)+R1(3,7)+R1(3,8))*XZ+(-R2(5,19)+R1(1,8))*ZZ+(
     * -R1(3,25)+R0(10))*XZZ
      F(6,4,4,1)= -R4(14,2)+R3(9,2)-R2(6,17)+R1(2,6)+(-R3(9,10)-R3(9,11)
     * +R2(6,5)+R2(6,6))*QZ+(-R2(6,19)+R1(2,8))*ZZ
      F(1,1,1,2)= -R3(1,12)-R1(1,26)-R2(1,20)*TWO*QX-R1(1,27)*XX
      F(2,1,1,2)= -R3(4,12)-R1(1,26)
      F(3,1,1,2)= -R3(6,12)-R1(1,26)-R2(5,20)*TWO*QZ-R1(1,27)*ZZ
      F(4,1,1,2)= -R3(2,12)-R2(4,20)*QX
      F(5,1,1,2)= -R3(3,12)-R2(5,20)*QX-R2(1,20)*QZ-R1(1,27)*XZ
      F(6,1,1,2)= -R3(5,12)-R2(4,20)*QZ
      F(1,2,1,2)= -R4(1,3)-R2(1,21)*THREE+(-R3(1,13)*TWO-R3(1,14)
     * -R1(1,28)*TWO-R1(1,29))*QX+(-R2(1,22)-R2(1,23)*TWO)*XX-R1(1,30)
     * *XXX
      F(2,2,1,2)= -R4(4,3)-R2(1,21)+(-R3(4,14)-R1(1,29))*QX
      F(3,2,1,2)= -R4(6,3)-R2(1,21)+(-R3(6,14)-R1(1,29))*QX-R3(3,13)*TWO
     * *QZ-R2(5,23)*TWO*XZ-R2(1,22)*ZZ-R1(1,30)*XZZ
      F(4,2,1,2)= -R4(2,3)-R2(4,21)+(-R3(2,13)-R3(2,14))*QX-R2(4,23)*XX
      F(5,2,1,2)= -R4(3,3)-R2(5,21)+(-R3(3,13)-R3(3,14))*QX+(-R3(1,13)
     * -R1(1,28))*QZ-R2(5,23)*XX+(-R2(1,22)-R2(1,23))*XZ-R1(1,30)*XXZ
      F(6,2,1,2)= -R4(5,3)-R3(5,14)*QX-R3(2,13)*QZ-R2(4,23)*XZ
      F(1,3,1,2)= -R4(2,3)-R2(4,21)-R3(2,13)*TWO*QX-R2(4,22)*XX
      F(2,3,1,2)= -R4(7,3)-R2(4,21)*THREE
      F(3,3,1,2)= -R4(9,3)-R2(4,21)-R3(5,13)*TWO*QZ-R2(4,22)*ZZ
      F(4,3,1,2)= -R4(4,3)-R2(1,21)+(-R3(4,13)-R1(1,28))*QX
      F(5,3,1,2)= -R4(5,3)-R3(5,13)*QX-R3(2,13)*QZ-R2(4,22)*XZ
      F(6,3,1,2)= -R4(8,3)-R2(5,21)+(-R3(4,13)-R1(1,28))*QZ
      F(1,4,1,2)= -R4(3,3)-R2(5,21)-R3(3,13)*TWO*QX+(-R3(1,14)-R1(1,29))
     * *QZ-R2(5,22)*XX-R2(1,23)*TWO*XZ-R1(1,30)*XXZ
      F(2,4,1,2)= -R4(8,3)-R2(5,21)+(-R3(4,14)-R1(1,29))*QZ
      F(3,4,1,2)= -R4(10,3)-R2(5,21)*THREE+(-R3(6,13)*TWO-R3(6,14)
     * -R1(1,28)*TWO-R1(1,29))*QZ+(-R2(5,22)-R2(5,23)*TWO)*ZZ-R1(1,30)
     * *ZZZ
      F(4,4,1,2)= -R4(5,3)-R3(5,13)*QX-R3(2,14)*QZ-R2(4,23)*XZ
      F(5,4,1,2)= -R4(6,3)-R2(1,21)+(-R3(6,13)-R1(1,28))*QX+(-R3(3,13)
     * -R3(3,14))*QZ+(-R2(5,22)-R2(5,23))*XZ-R2(1,23)*ZZ-R1(1,30)*XZZ
      F(6,4,1,2)= -R4(9,3)-R2(4,21)+(-R3(5,13)-R3(5,14))*QZ-R2(4,23)*ZZ
      F(1,1,2,2)= R4(1,5)+R2(1,13)+R2(1,32)+R0(21)+(+R3(1,18)*TWO
     * +R1(1,17)*TWO)*QX+(+R2(1,33)+R0(22))*XX
      F(2,1,2,2)= R4(4,5)+R2(2,13)+R2(1,32)+R0(21)
      F(3,1,2,2)= R4(6,5)+R2(3,13)+R2(1,32)+R0(21)+(+R3(3,18)*TWO
     * +R1(3,17)*TWO)*QZ+(+R2(1,33)+R0(22))*ZZ
      F(4,1,2,2)= R4(2,5)+R2(4,13)+(+R3(2,18)+R1(2,17))*QX
      F(5,1,2,2)= R4(3,5)+R2(5,13)+(+R3(3,18)+R1(3,17))*QX+(+R3(1,18)
     * +R1(1,17))*QZ+(+R2(1,33)+R0(22))*XZ
      F(6,1,2,2)= R4(5,5)+R2(6,13)+(+R3(2,18)+R1(2,17))*QZ
      F(1,2,2,2)= R5(1,1)+R3(1,5)+R3(1,19)*THREE+R1(1,18)*THREE+(
     * +R4(1,6)*TWO+R4(1,7)+R2(1,14)*TWO+R2(1,15)+R2(1,34)*TWO+R2(1,35)
     * +R0(23)*TWO+R0(24))*QX+(+R3(1,20)+R3(1,21)*TWO+R1(1,19)
     * +R1(1,20)*TWO)*XX+(+R2(1,36)+R0(25))*XXX
      F(2,2,2,2)= R5(4,1)+R3(4,5)+R3(1,19)+R1(1,18)+(+R4(4,7)+R2(2,15)
     * +R2(1,35)+R0(24))*QX
      F(3,2,2,2)= R5(6,1)+R3(6,5)+R3(1,19)+R1(1,18)+(+R4(6,7)+R2(3,15)
     * +R2(1,35)+R0(24))*QX+(+R4(3,6)*TWO+R2(5,14)*TWO)*QZ+(
     * +R3(3,21)*TWO+R1(3,20)*TWO)*XZ+(+R3(1,20)+R1(1,19))*ZZ+(+R2(1,36)
     * +R0(25))*XZZ
      F(4,2,2,2)= R5(2,1)+R3(2,5)+R3(2,19)+R1(2,18)+(+R4(2,6)+R4(2,7)
     * +R2(4,14)+R2(4,15))*QX+(+R3(2,21)+R1(2,20))*XX
      F(5,2,2,2)= R5(3,1)+R3(3,5)+R3(3,19)+R1(3,18)+(+R4(3,6)+R4(3,7)
     * +R2(5,14)+R2(5,15))*QX+(+R4(1,6)+R2(1,14)+R2(1,34)+R0(23))*QZ+(
     * +R3(3,21)+R1(3,20))*XX+(+R3(1,20)+R3(1,21)+R1(1,19)+R1(1,20))*XZ
     * +(+R2(1,36)+R0(25))*XXZ
      F(6,2,2,2)= R5(5,1)+R3(5,5)+(+R4(5,7)+R2(6,15))*QX+(+R4(2,6)
     * +R2(4,14))*QZ+(+R3(2,21)+R1(2,20))*XZ
      F(1,3,2,2)= R5(2,1)+R3(2,5)+R3(2,19)+R1(2,18)+(+R4(2,6)*TWO
     * +R2(4,14)*TWO)*QX+(+R3(2,20)+R1(2,19))*XX
      F(2,3,2,2)= R5(7,1)+R3(7,5)+R3(2,19)*THREE+R1(2,18)*THREE
      F(3,3,2,2)= R5(9,1)+R3(9,5)+R3(2,19)+R1(2,18)+(+R4(5,6)*TWO
     * +R2(6,14)*TWO)*QZ+(+R3(2,20)+R1(2,19))*ZZ
      F(4,3,2,2)= R5(4,1)+R3(4,5)+R3(1,19)+R1(1,18)+(+R4(4,6)+R2(2,14)
     * +R2(1,34)+R0(23))*QX
      F(5,3,2,2)= R5(5,1)+R3(5,5)+(+R4(5,6)+R2(6,14))*QX+(+R4(2,6)
     * +R2(4,14))*QZ+(+R3(2,20)+R1(2,19))*XZ
      F(6,3,2,2)= R5(8,1)+R3(8,5)+R3(3,19)+R1(3,18)+(+R4(4,6)+R2(2,14)
     * +R2(1,34)+R0(23))*QZ
      F(1,4,2,2)= R5(3,1)+R3(3,5)+R3(3,19)+R1(3,18)+(+R4(3,6)*TWO
     * +R2(5,14)*TWO)*QX+(+R4(1,7)+R2(1,15)+R2(1,35)+R0(24))*QZ+(
     * +R3(3,20)+R1(3,19))*XX+(+R3(1,21)*TWO+R1(1,20)*TWO)*XZ+(+R2(1,36)
     * +R0(25))*XXZ
      F(2,4,2,2)= R5(8,1)+R3(8,5)+R3(3,19)+R1(3,18)+(+R4(4,7)+R2(2,15)
     * +R2(1,35)+R0(24))*QZ
      F(3,4,2,2)= R5(10,1)+R3(10,5)+R3(3,19)*THREE+R1(3,18)*THREE+(
     * +R4(6,6)*TWO+R4(6,7)+R2(3,14)*TWO+R2(3,15)+R2(1,34)*TWO+R2(1,35)
     * +R0(23)*TWO+R0(24))*QZ+(+R3(3,20)+R3(3,21)*TWO+R1(3,19)
     * +R1(3,20)*TWO)*ZZ+(+R2(1,36)+R0(25))*ZZZ
      F(4,4,2,2)= R5(5,1)+R3(5,5)+(+R4(5,6)+R2(6,14))*QX+(+R4(2,7)
     * +R2(4,15))*QZ+(+R3(2,21)+R1(2,20))*XZ
      F(5,4,2,2)= R5(6,1)+R3(6,5)+R3(1,19)+R1(1,18)+(+R4(6,6)+R2(3,14)
     * +R2(1,34)+R0(23))*QX+(+R4(3,6)+R4(3,7)+R2(5,14)+R2(5,15))*QZ+(
     * +R3(3,20)+R3(3,21)+R1(3,19)+R1(3,20))*XZ+(+R3(1,21)+R1(1,20))*ZZ
     * +(+R2(1,36)+R0(25))*XZZ
      F(6,4,2,2)= R5(9,1)+R3(9,5)+R3(2,19)+R1(2,18)+(+R4(5,6)+R4(5,7)
     * +R2(6,14)+R2(6,15))*QZ+(+R3(2,21)+R1(2,20))*ZZ
      F(1,1,3,2)= R4(2,5)+R2(4,32)+R3(2,18)*TWO*QX+R2(4,33)*XX
      F(2,1,3,2)= R4(7,5)+R2(4,32)
      F(3,1,3,2)= R4(9,5)+R2(4,32)+R3(5,18)*TWO*QZ+R2(4,33)*ZZ
      F(4,1,3,2)= R4(4,5)+R3(4,18)*QX
      F(5,1,3,2)= R4(5,5)+R3(5,18)*QX+R3(2,18)*QZ+R2(4,33)*XZ
      F(6,1,3,2)= R4(8,5)+R3(4,18)*QZ
      F(1,2,3,2)= R5(2,1)+R3(2,19)*THREE+(+R4(2,6)*TWO+R4(2,7)
     * +R2(4,34)*TWO+R2(4,35))*QX+(+R3(2,20)+R3(2,21)*TWO)*XX+R2(4,36)
     * *XXX
      F(2,2,3,2)= R5(7,1)+R3(2,19)+(+R4(7,7)+R2(4,35))*QX
      F(3,2,3,2)= R5(9,1)+R3(2,19)+(+R4(9,7)+R2(4,35))*QX+R4(5,6)*TWO*QZ
     * +R3(5,21)*TWO*XZ+R3(2,20)*ZZ+R2(4,36)*XZZ
      F(4,2,3,2)= R5(4,1)+R3(4,19)+(+R4(4,6)+R4(4,7))*QX+R3(4,21)*XX
      F(5,2,3,2)= R5(5,1)+R3(5,19)+(+R4(5,6)+R4(5,7))*QX+(+R4(2,6)
     * +R2(4,34))*QZ+R3(5,21)*XX+(+R3(2,20)+R3(2,21))*XZ+R2(4,36)*XXZ
      F(6,2,3,2)= R5(8,1)+R4(8,7)*QX+R4(4,6)*QZ+R3(4,21)*XZ
      F(1,3,3,2)= R5(4,1)+R3(4,19)+R4(4,6)*TWO*QX+R3(4,20)*XX
      F(2,3,3,2)= R5(11,1)+R3(4,19)*THREE
      F(3,3,3,2)= R5(13,1)+R3(4,19)+R4(8,6)*TWO*QZ+R3(4,20)*ZZ
      F(4,3,3,2)= R5(7,1)+R3(2,19)+(+R4(7,6)+R2(4,34))*QX
      F(5,3,3,2)= R5(8,1)+R4(8,6)*QX+R4(4,6)*QZ+R3(4,20)*XZ
      F(6,3,3,2)= R5(12,1)+R3(5,19)+(+R4(7,6)+R2(4,34))*QZ
      F(1,4,3,2)= R5(5,1)+R3(5,19)+R4(5,6)*TWO*QX+(+R4(2,7)+R2(4,35))*QZ
     * +R3(5,20)*XX+R3(2,21)*TWO*XZ+R2(4,36)*XXZ
      F(2,4,3,2)= R5(12,1)+R3(5,19)+(+R4(7,7)+R2(4,35))*QZ
      F(3,4,3,2)= R5(14,1)+R3(5,19)*THREE+(+R4(9,6)*TWO+R4(9,7)
     * +R2(4,34)*TWO+R2(4,35))*QZ+(+R3(5,20)+R3(5,21)*TWO)*ZZ+R2(4,36)
     * *ZZZ
      F(4,4,3,2)= R5(8,1)+R4(8,6)*QX+R4(4,7)*QZ+R3(4,21)*XZ
      F(5,4,3,2)= R5(9,1)+R3(2,19)+(+R4(9,6)+R2(4,34))*QX+(+R4(5,6)
     * +R4(5,7))*QZ+(+R3(5,20)+R3(5,21))*XZ+R3(2,21)*ZZ+R2(4,36)*XZZ
      F(6,4,3,2)= R5(13,1)+R3(4,19)+(+R4(8,6)+R4(8,7))*QZ+R3(4,21)*ZZ
      F(1,1,4,2)= R4(3,5)-R3(1,15)+R2(5,32)-R1(1,31)+(+R3(3,18)*TWO
     * -R2(1,24)*TWO)*QX+(+R2(5,33)-R1(1,32))*XX
      F(2,1,4,2)= R4(8,5)-R3(4,15)+R2(5,32)-R1(1,31)
      F(3,1,4,2)= R4(10,5)-R3(6,15)+R2(5,32)-R1(1,31)+(+R3(6,18)*TWO
     * -R2(5,24)*TWO)*QZ+(+R2(5,33)-R1(1,32))*ZZ
      F(4,1,4,2)= R4(5,5)-R3(2,15)+(+R3(5,18)-R2(4,24))*QX
      F(5,1,4,2)= R4(6,5)-R3(3,15)+(+R3(6,18)-R2(5,24))*QX+(+R3(3,18)
     * -R2(1,24))*QZ+(+R2(5,33)-R1(1,32))*XZ
      F(6,1,4,2)= R4(9,5)-R3(5,15)+(+R3(5,18)-R2(4,24))*QZ
      F(1,2,4,2)= R5(3,1)-R4(1,4)+R3(3,19)*THREE-R2(1,25)*THREE+(
     * +R4(3,6)*TWO+R4(3,7)-R3(1,16)*TWO-R3(1,17)+R2(5,34)*TWO+R2(5,35)
     * -R1(1,33)*TWO-R1(1,34))*QX+(+R3(3,20)+R3(3,21)*TWO-R2(1,26)
     * -R2(1,27)*TWO)*XX+(+R2(5,36)-R1(1,35))*XXX
      F(2,2,4,2)= R5(8,1)-R4(4,4)+R3(3,19)-R2(1,25)+(+R4(8,7)-R3(4,17)
     * +R2(5,35)-R1(1,34))*QX
      F(3,2,4,2)= R5(10,1)-R4(6,4)+R3(3,19)-R2(1,25)+(+R4(10,7)-R3(6,17)
     * +R2(5,35)-R1(1,34))*QX+(+R4(6,6)*TWO-R3(3,16)*TWO)*QZ+(
     * +R3(6,21)*TWO-R2(5,27)*TWO)*XZ+(+R3(3,20)-R2(1,26))*ZZ+(+R2(5,36)
     * -R1(1,35))*XZZ
      F(4,2,4,2)= R5(5,1)-R4(2,4)+R3(5,19)-R2(4,25)+(+R4(5,6)+R4(5,7)
     * -R3(2,16)-R3(2,17))*QX+(+R3(5,21)-R2(4,27))*XX
      F(5,2,4,2)= R5(6,1)-R4(3,4)+R3(6,19)-R2(5,25)+(+R4(6,6)+R4(6,7)
     * -R3(3,16)-R3(3,17))*QX+(+R4(3,6)-R3(1,16)+R2(5,34)-R1(1,33))*QZ+(
     * +R3(6,21)-R2(5,27))*XX+(+R3(3,20)+R3(3,21)-R2(1,26)-R2(1,27))*XZ
     * +(+R2(5,36)-R1(1,35))*XXZ
      F(6,2,4,2)= R5(9,1)-R4(5,4)+(+R4(9,7)-R3(5,17))*QX+(+R4(5,6)
     * -R3(2,16))*QZ+(+R3(5,21)-R2(4,27))*XZ
      F(1,3,4,2)= R5(5,1)-R4(2,4)+R3(5,19)-R2(4,25)+(+R4(5,6)*TWO
     * -R3(2,16)*TWO)*QX+(+R3(5,20)-R2(4,26))*XX
      F(2,3,4,2)= R5(12,1)-R4(7,4)+R3(5,19)*THREE-R2(4,25)*THREE
      F(3,3,4,2)= R5(14,1)-R4(9,4)+R3(5,19)-R2(4,25)+(+R4(9,6)*TWO
     * -R3(5,16)*TWO)*QZ+(+R3(5,20)-R2(4,26))*ZZ
      F(4,3,4,2)= R5(8,1)-R4(4,4)+R3(3,19)-R2(1,25)+(+R4(8,6)-R3(4,16)
     * +R2(5,34)-R1(1,33))*QX
      F(5,3,4,2)= R5(9,1)-R4(5,4)+(+R4(9,6)-R3(5,16))*QX+(+R4(5,6)
     * -R3(2,16))*QZ+(+R3(5,20)-R2(4,26))*XZ
      F(6,3,4,2)= R5(13,1)-R4(8,4)+R3(6,19)-R2(5,25)+(+R4(8,6)-R3(4,16)
     * +R2(5,34)-R1(1,33))*QZ
      F(1,4,4,2)= R5(6,1)-R4(3,4)+R3(6,19)-R2(5,25)+(+R4(6,6)*TWO
     * -R3(3,16)*TWO)*QX+(+R4(3,7)-R3(1,17)+R2(5,35)-R1(1,34))*QZ+(
     * +R3(6,20)-R2(5,26))*XX+(+R3(3,21)*TWO-R2(1,27)*TWO)*XZ+(+R2(5,36)
     * -R1(1,35))*XXZ
      F(2,4,4,2)= R5(13,1)-R4(8,4)+R3(6,19)-R2(5,25)+(+R4(8,7)-R3(4,17)
     * +R2(5,35)-R1(1,34))*QZ
      F(3,4,4,2)= R5(15,1)-R4(10,4)+R3(6,19)*THREE-R2(5,25)*THREE+(
     * +R4(10,6)*TWO+R4(10,7)-R3(6,16)*TWO-R3(6,17)+R2(5,34)*TWO
     * +R2(5,35)-R1(1,33)*TWO-R1(1,34))*QZ+(+R3(6,20)+R3(6,21)*TWO
     * -R2(5,26)-R2(5,27)*TWO)*ZZ+(+R2(5,36)-R1(1,35))*ZZZ
      F(4,4,4,2)= R5(9,1)-R4(5,4)+(+R4(9,6)-R3(5,16))*QX+(+R4(5,7)
     * -R3(2,17))*QZ+(+R3(5,21)-R2(4,27))*XZ
      F(5,4,4,2)= R5(10,1)-R4(6,4)+R3(3,19)-R2(1,25)+(+R4(10,6)-R3(6,16)
     * +R2(5,34)-R1(1,33))*QX+(+R4(6,6)+R4(6,7)-R3(3,16)-R3(3,17))*QZ+(
     * +R3(6,20)+R3(6,21)-R2(5,26)-R2(5,27))*XZ+(+R3(3,21)-R2(1,27))*ZZ
     * +(+R2(5,36)-R1(1,35))*XZZ
      F(6,4,4,2)= R5(14,1)-R4(9,4)+R3(5,19)-R2(4,25)+(+R4(9,6)+R4(9,7)
     * -R3(5,16)-R3(5,17))*QZ+(+R3(5,21)-R2(4,27))*ZZ
      F(1,1,1,3)= -R3(2,12)-R1(2,26)-R2(4,20)*TWO*QX-R1(2,27)*XX
      F(2,1,1,3)= -R3(7,12)-R1(2,26)
      F(3,1,1,3)= -R3(9,12)-R1(2,26)-R2(6,20)*TWO*QZ-R1(2,27)*ZZ
      F(4,1,1,3)= -R3(4,12)-R2(2,20)*QX
      F(5,1,1,3)= -R3(5,12)-R2(6,20)*QX-R2(4,20)*QZ-R1(2,27)*XZ
      F(6,1,1,3)= -R3(8,12)-R2(2,20)*QZ
      F(1,2,1,3)= -R4(2,3)-R2(4,21)*THREE+(-R3(2,13)*TWO-R3(2,14)
     * -R1(2,28)*TWO-R1(2,29))*QX+(-R2(4,22)-R2(4,23)*TWO)*XX-R1(2,30)
     * *XXX
      F(2,2,1,3)= -R4(7,3)-R2(4,21)+(-R3(7,14)-R1(2,29))*QX
      F(3,2,1,3)= -R4(9,3)-R2(4,21)+(-R3(9,14)-R1(2,29))*QX-R3(5,13)*TWO
     * *QZ-R2(6,23)*TWO*XZ-R2(4,22)*ZZ-R1(2,30)*XZZ
      F(4,2,1,3)= -R4(4,3)-R2(2,21)+(-R3(4,13)-R3(4,14))*QX-R2(2,23)*XX
      F(5,2,1,3)= -R4(5,3)-R2(6,21)+(-R3(5,13)-R3(5,14))*QX+(-R3(2,13)
     * -R1(2,28))*QZ-R2(6,23)*XX+(-R2(4,22)-R2(4,23))*XZ-R1(2,30)*XXZ
      F(6,2,1,3)= -R4(8,3)-R3(8,14)*QX-R3(4,13)*QZ-R2(2,23)*XZ
      F(1,3,1,3)= -R4(4,3)-R2(2,21)-R3(4,13)*TWO*QX-R2(2,22)*XX
      F(2,3,1,3)= -R4(11,3)-R2(2,21)*THREE
      F(3,3,1,3)= -R4(13,3)-R2(2,21)-R3(8,13)*TWO*QZ-R2(2,22)*ZZ
      F(4,3,1,3)= -R4(7,3)-R2(4,21)+(-R3(7,13)-R1(2,28))*QX
      F(5,3,1,3)= -R4(8,3)-R3(8,13)*QX-R3(4,13)*QZ-R2(2,22)*XZ
      F(6,3,1,3)= -R4(12,3)-R2(6,21)+(-R3(7,13)-R1(2,28))*QZ
      F(1,4,1,3)= -R4(5,3)-R2(6,21)-R3(5,13)*TWO*QX+(-R3(2,14)-R1(2,29))
     * *QZ-R2(6,22)*XX-R2(4,23)*TWO*XZ-R1(2,30)*XXZ
      F(2,4,1,3)= -R4(12,3)-R2(6,21)+(-R3(7,14)-R1(2,29))*QZ
      F(3,4,1,3)= -R4(14,3)-R2(6,21)*THREE+(-R3(9,13)*TWO-R3(9,14)
     * -R1(2,28)*TWO-R1(2,29))*QZ+(-R2(6,22)-R2(6,23)*TWO)*ZZ-R1(2,30)
     * *ZZZ
      F(4,4,1,3)= -R4(8,3)-R3(8,13)*QX-R3(4,14)*QZ-R2(2,23)*XZ
      F(5,4,1,3)= -R4(9,3)-R2(4,21)+(-R3(9,13)-R1(2,28))*QX+(-R3(5,13)
     * -R3(5,14))*QZ+(-R2(6,22)-R2(6,23))*XZ-R2(4,23)*ZZ-R1(2,30)*XZZ
      F(6,4,1,3)= -R4(13,3)-R2(2,21)+(-R3(8,13)-R3(8,14))*QZ-R2(2,23)*ZZ
      F(1,1,2,3)= R4(2,5)+R2(4,32)+R3(2,18)*TWO*QX+R2(4,33)*XX
      F(2,1,2,3)= R4(7,5)+R2(4,32)
      F(3,1,2,3)= R4(9,5)+R2(4,32)+R3(5,18)*TWO*QZ+R2(4,33)*ZZ
      F(4,1,2,3)= R4(4,5)+R3(4,18)*QX
      F(5,1,2,3)= R4(5,5)+R3(5,18)*QX+R3(2,18)*QZ+R2(4,33)*XZ
      F(6,1,2,3)= R4(8,5)+R3(4,18)*QZ
      F(1,2,2,3)= R5(2,1)+R3(2,19)*THREE+(+R4(2,6)*TWO+R4(2,7)
     * +R2(4,34)*TWO+R2(4,35))*QX+(+R3(2,20)+R3(2,21)*TWO)*XX+R2(4,36)
     * *XXX
      F(2,2,2,3)= R5(7,1)+R3(2,19)+(+R4(7,7)+R2(4,35))*QX
      F(3,2,2,3)= R5(9,1)+R3(2,19)+(+R4(9,7)+R2(4,35))*QX+R4(5,6)*TWO*QZ
     * +R3(5,21)*TWO*XZ+R3(2,20)*ZZ+R2(4,36)*XZZ
      F(4,2,2,3)= R5(4,1)+R3(4,19)+(+R4(4,6)+R4(4,7))*QX+R3(4,21)*XX
      F(5,2,2,3)= R5(5,1)+R3(5,19)+(+R4(5,6)+R4(5,7))*QX+(+R4(2,6)
     * +R2(4,34))*QZ+R3(5,21)*XX+(+R3(2,20)+R3(2,21))*XZ+R2(4,36)*XXZ
      F(6,2,2,3)= R5(8,1)+R4(8,7)*QX+R4(4,6)*QZ+R3(4,21)*XZ
      F(1,3,2,3)= R5(4,1)+R3(4,19)+R4(4,6)*TWO*QX+R3(4,20)*XX
      F(2,3,2,3)= R5(11,1)+R3(4,19)*THREE
      F(3,3,2,3)= R5(13,1)+R3(4,19)+R4(8,6)*TWO*QZ+R3(4,20)*ZZ
      F(4,3,2,3)= R5(7,1)+R3(2,19)+(+R4(7,6)+R2(4,34))*QX
      F(5,3,2,3)= R5(8,1)+R4(8,6)*QX+R4(4,6)*QZ+R3(4,20)*XZ
      F(6,3,2,3)= R5(12,1)+R3(5,19)+(+R4(7,6)+R2(4,34))*QZ
      F(1,4,2,3)= R5(5,1)+R3(5,19)+R4(5,6)*TWO*QX+(+R4(2,7)+R2(4,35))*QZ
     * +R3(5,20)*XX+R3(2,21)*TWO*XZ+R2(4,36)*XXZ
      F(2,4,2,3)= R5(12,1)+R3(5,19)+(+R4(7,7)+R2(4,35))*QZ
      F(3,4,2,3)= R5(14,1)+R3(5,19)*THREE+(+R4(9,6)*TWO+R4(9,7)
     * +R2(4,34)*TWO+R2(4,35))*QZ+(+R3(5,20)+R3(5,21)*TWO)*ZZ+R2(4,36)
     * *ZZZ
      F(4,4,2,3)= R5(8,1)+R4(8,6)*QX+R4(4,7)*QZ+R3(4,21)*XZ
      F(5,4,2,3)= R5(9,1)+R3(2,19)+(+R4(9,6)+R2(4,34))*QX+(+R4(5,6)
     * +R4(5,7))*QZ+(+R3(5,20)+R3(5,21))*XZ+R3(2,21)*ZZ+R2(4,36)*XZZ
      F(6,4,2,3)= R5(13,1)+R3(4,19)+(+R4(8,6)+R4(8,7))*QZ+R3(4,21)*ZZ
      F(1,1,3,3)= R4(4,5)+R2(1,13)+R2(2,32)+R0(21)+(+R3(4,18)*TWO
     * +R1(1,17)*TWO)*QX+(+R2(2,33)+R0(22))*XX
      F(2,1,3,3)= R4(11,5)+R2(2,13)+R2(2,32)+R0(21)
      F(3,1,3,3)= R4(13,5)+R2(3,13)+R2(2,32)+R0(21)+(+R3(8,18)*TWO
     * +R1(3,17)*TWO)*QZ+(+R2(2,33)+R0(22))*ZZ
      F(4,1,3,3)= R4(7,5)+R2(4,13)+(+R3(7,18)+R1(2,17))*QX
      F(5,1,3,3)= R4(8,5)+R2(5,13)+(+R3(8,18)+R1(3,17))*QX+(+R3(4,18)
     * +R1(1,17))*QZ+(+R2(2,33)+R0(22))*XZ
      F(6,1,3,3)= R4(12,5)+R2(6,13)+(+R3(7,18)+R1(2,17))*QZ
      F(1,2,3,3)= R5(4,1)+R3(1,5)+R3(4,19)*THREE+R1(1,18)*THREE+(
     * +R4(4,6)*TWO+R4(4,7)+R2(1,14)*TWO+R2(1,15)+R2(2,34)*TWO+R2(2,35)
     * +R0(23)*TWO+R0(24))*QX+(+R3(4,20)+R3(4,21)*TWO+R1(1,19)
     * +R1(1,20)*TWO)*XX+(+R2(2,36)+R0(25))*XXX
      F(2,2,3,3)= R5(11,1)+R3(4,5)+R3(4,19)+R1(1,18)+(+R4(11,7)+R2(2,15)
     * +R2(2,35)+R0(24))*QX
      F(3,2,3,3)= R5(13,1)+R3(6,5)+R3(4,19)+R1(1,18)+(+R4(13,7)+R2(3,15)
     * +R2(2,35)+R0(24))*QX+(+R4(8,6)*TWO+R2(5,14)*TWO)*QZ+(
     * +R3(8,21)*TWO+R1(3,20)*TWO)*XZ+(+R3(4,20)+R1(1,19))*ZZ+(+R2(2,36)
     * +R0(25))*XZZ
      F(4,2,3,3)= R5(7,1)+R3(2,5)+R3(7,19)+R1(2,18)+(+R4(7,6)+R4(7,7)
     * +R2(4,14)+R2(4,15))*QX+(+R3(7,21)+R1(2,20))*XX
      F(5,2,3,3)= R5(8,1)+R3(3,5)+R3(8,19)+R1(3,18)+(+R4(8,6)+R4(8,7)
     * +R2(5,14)+R2(5,15))*QX+(+R4(4,6)+R2(1,14)+R2(2,34)+R0(23))*QZ+(
     * +R3(8,21)+R1(3,20))*XX+(+R3(4,20)+R3(4,21)+R1(1,19)+R1(1,20))*XZ
     * +(+R2(2,36)+R0(25))*XXZ
      F(6,2,3,3)= R5(12,1)+R3(5,5)+(+R4(12,7)+R2(6,15))*QX+(+R4(7,6)
     * +R2(4,14))*QZ+(+R3(7,21)+R1(2,20))*XZ
      F(1,3,3,3)= R5(7,1)+R3(2,5)+R3(7,19)+R1(2,18)+(+R4(7,6)*TWO
     * +R2(4,14)*TWO)*QX+(+R3(7,20)+R1(2,19))*XX
      F(2,3,3,3)= R5(16,1)+R3(7,5)+R3(7,19)*THREE+R1(2,18)*THREE
      F(3,3,3,3)= R5(18,1)+R3(9,5)+R3(7,19)+R1(2,18)+(+R4(12,6)*TWO
     * +R2(6,14)*TWO)*QZ+(+R3(7,20)+R1(2,19))*ZZ
      F(4,3,3,3)= R5(11,1)+R3(4,5)+R3(4,19)+R1(1,18)+(+R4(11,6)+R2(2,14)
     * +R2(2,34)+R0(23))*QX
      F(5,3,3,3)= R5(12,1)+R3(5,5)+(+R4(12,6)+R2(6,14))*QX+(+R4(7,6)
     * +R2(4,14))*QZ+(+R3(7,20)+R1(2,19))*XZ
      F(6,3,3,3)= R5(17,1)+R3(8,5)+R3(8,19)+R1(3,18)+(+R4(11,6)+R2(2,14)
     * +R2(2,34)+R0(23))*QZ
      F(1,4,3,3)= R5(8,1)+R3(3,5)+R3(8,19)+R1(3,18)+(+R4(8,6)*TWO
     * +R2(5,14)*TWO)*QX+(+R4(4,7)+R2(1,15)+R2(2,35)+R0(24))*QZ+(
     * +R3(8,20)+R1(3,19))*XX+(+R3(4,21)*TWO+R1(1,20)*TWO)*XZ+(+R2(2,36)
     * +R0(25))*XXZ
      F(2,4,3,3)= R5(17,1)+R3(8,5)+R3(8,19)+R1(3,18)+(+R4(11,7)+R2(2,15)
     * +R2(2,35)+R0(24))*QZ
      F(3,4,3,3)= R5(19,1)+R3(10,5)+R3(8,19)*THREE+R1(3,18)*THREE+(
     * +R4(13,6)*TWO+R4(13,7)+R2(3,14)*TWO+R2(3,15)+R2(2,34)*TWO
     * +R2(2,35)+R0(23)*TWO+R0(24))*QZ+(+R3(8,20)+R3(8,21)*TWO+R1(3,19)
     * +R1(3,20)*TWO)*ZZ+(+R2(2,36)+R0(25))*ZZZ
      F(4,4,3,3)= R5(12,1)+R3(5,5)+(+R4(12,6)+R2(6,14))*QX+(+R4(7,7)
     * +R2(4,15))*QZ+(+R3(7,21)+R1(2,20))*XZ
      F(5,4,3,3)= R5(13,1)+R3(6,5)+R3(4,19)+R1(1,18)+(+R4(13,6)+R2(3,14)
     * +R2(2,34)+R0(23))*QX+(+R4(8,6)+R4(8,7)+R2(5,14)+R2(5,15))*QZ+(
     * +R3(8,20)+R3(8,21)+R1(3,19)+R1(3,20))*XZ+(+R3(4,21)+R1(1,20))*ZZ
     * +(+R2(2,36)+R0(25))*XZZ
      F(6,4,3,3)= R5(18,1)+R3(9,5)+R3(7,19)+R1(2,18)+(+R4(12,6)+R4(12,7)
     * +R2(6,14)+R2(6,15))*QZ+(+R3(7,21)+R1(2,20))*ZZ
      F(1,1,4,3)= R4(5,5)-R3(2,15)+R2(6,32)-R1(2,31)+(+R3(5,18)*TWO
     * -R2(4,24)*TWO)*QX+(+R2(6,33)-R1(2,32))*XX
      F(2,1,4,3)= R4(12,5)-R3(7,15)+R2(6,32)-R1(2,31)
      F(3,1,4,3)= R4(14,5)-R3(9,15)+R2(6,32)-R1(2,31)+(+R3(9,18)*TWO
     * -R2(6,24)*TWO)*QZ+(+R2(6,33)-R1(2,32))*ZZ
      F(4,1,4,3)= R4(8,5)-R3(4,15)+(+R3(8,18)-R2(2,24))*QX
      F(5,1,4,3)= R4(9,5)-R3(5,15)+(+R3(9,18)-R2(6,24))*QX+(+R3(5,18)
     * -R2(4,24))*QZ+(+R2(6,33)-R1(2,32))*XZ
      F(6,1,4,3)= R4(13,5)-R3(8,15)+(+R3(8,18)-R2(2,24))*QZ
      F(1,2,4,3)= R5(5,1)-R4(2,4)+R3(5,19)*THREE-R2(4,25)*THREE+(
     * +R4(5,6)*TWO+R4(5,7)-R3(2,16)*TWO-R3(2,17)+R2(6,34)*TWO+R2(6,35)
     * -R1(2,33)*TWO-R1(2,34))*QX+(+R3(5,20)+R3(5,21)*TWO-R2(4,26)
     * -R2(4,27)*TWO)*XX+(+R2(6,36)-R1(2,35))*XXX
      F(2,2,4,3)= R5(12,1)-R4(7,4)+R3(5,19)-R2(4,25)+(+R4(12,7)-R3(7,17)
     * +R2(6,35)-R1(2,34))*QX
      F(3,2,4,3)= R5(14,1)-R4(9,4)+R3(5,19)-R2(4,25)+(+R4(14,7)-R3(9,17)
     * +R2(6,35)-R1(2,34))*QX+(+R4(9,6)*TWO-R3(5,16)*TWO)*QZ+(
     * +R3(9,21)*TWO-R2(6,27)*TWO)*XZ+(+R3(5,20)-R2(4,26))*ZZ+(+R2(6,36)
     * -R1(2,35))*XZZ
      F(4,2,4,3)= R5(8,1)-R4(4,4)+R3(8,19)-R2(2,25)+(+R4(8,6)+R4(8,7)
     * -R3(4,16)-R3(4,17))*QX+(+R3(8,21)-R2(2,27))*XX
      F(5,2,4,3)= R5(9,1)-R4(5,4)+R3(9,19)-R2(6,25)+(+R4(9,6)+R4(9,7)
     * -R3(5,16)-R3(5,17))*QX+(+R4(5,6)-R3(2,16)+R2(6,34)-R1(2,33))*QZ+(
     * +R3(9,21)-R2(6,27))*XX+(+R3(5,20)+R3(5,21)-R2(4,26)-R2(4,27))*XZ
     * +(+R2(6,36)-R1(2,35))*XXZ
      F(6,2,4,3)= R5(13,1)-R4(8,4)+(+R4(13,7)-R3(8,17))*QX+(+R4(8,6)
     * -R3(4,16))*QZ+(+R3(8,21)-R2(2,27))*XZ
      F(1,3,4,3)= R5(8,1)-R4(4,4)+R3(8,19)-R2(2,25)+(+R4(8,6)*TWO
     * -R3(4,16)*TWO)*QX+(+R3(8,20)-R2(2,26))*XX
      F(2,3,4,3)= R5(17,1)-R4(11,4)+R3(8,19)*THREE-R2(2,25)*THREE
      F(3,3,4,3)= R5(19,1)-R4(13,4)+R3(8,19)-R2(2,25)+(+R4(13,6)*TWO
     * -R3(8,16)*TWO)*QZ+(+R3(8,20)-R2(2,26))*ZZ
      F(4,3,4,3)= R5(12,1)-R4(7,4)+R3(5,19)-R2(4,25)+(+R4(12,6)-R3(7,16)
     * +R2(6,34)-R1(2,33))*QX
      F(5,3,4,3)= R5(13,1)-R4(8,4)+(+R4(13,6)-R3(8,16))*QX+(+R4(8,6)
     * -R3(4,16))*QZ+(+R3(8,20)-R2(2,26))*XZ
      F(6,3,4,3)= R5(18,1)-R4(12,4)+R3(9,19)-R2(6,25)+(+R4(12,6)
     * -R3(7,16)+R2(6,34)-R1(2,33))*QZ
      F(1,4,4,3)= R5(9,1)-R4(5,4)+R3(9,19)-R2(6,25)+(+R4(9,6)*TWO
     * -R3(5,16)*TWO)*QX+(+R4(5,7)-R3(2,17)+R2(6,35)-R1(2,34))*QZ+(
     * +R3(9,20)-R2(6,26))*XX+(+R3(5,21)*TWO-R2(4,27)*TWO)*XZ+(+R2(6,36)
     * -R1(2,35))*XXZ
      F(2,4,4,3)= R5(18,1)-R4(12,4)+R3(9,19)-R2(6,25)+(+R4(12,7)
     * -R3(7,17)+R2(6,35)-R1(2,34))*QZ
      F(3,4,4,3)= R5(20,1)-R4(14,4)+R3(9,19)*THREE-R2(6,25)*THREE+(
     * +R4(14,6)*TWO+R4(14,7)-R3(9,16)*TWO-R3(9,17)+R2(6,34)*TWO
     * +R2(6,35)-R1(2,33)*TWO-R1(2,34))*QZ+(+R3(9,20)+R3(9,21)*TWO
     * -R2(6,26)-R2(6,27)*TWO)*ZZ+(+R2(6,36)-R1(2,35))*ZZZ
      F(4,4,4,3)= R5(13,1)-R4(8,4)+(+R4(13,6)-R3(8,16))*QX+(+R4(8,7)
     * -R3(4,17))*QZ+(+R3(8,21)-R2(2,27))*XZ
      F(5,4,4,3)= R5(14,1)-R4(9,4)+R3(5,19)-R2(4,25)+(+R4(14,6)-R3(9,16)
     * +R2(6,34)-R1(2,33))*QX+(+R4(9,6)+R4(9,7)-R3(5,16)-R3(5,17))*QZ+(
     * +R3(9,20)+R3(9,21)-R2(6,26)-R2(6,27))*XZ+(+R3(5,21)-R2(4,27))*ZZ
     * +(+R2(6,36)-R1(2,35))*XZZ
      F(6,4,4,3)= R5(19,1)-R4(13,4)+R3(8,19)-R2(2,25)+(+R4(13,6)
     * +R4(13,7)-R3(8,16)-R3(8,17))*QZ+(+R3(8,21)-R2(2,27))*ZZ
      F(1,1,1,4)= -R3(3,12)+R2(1,7)-R1(3,26)+R0(11)+(-R2(5,20)*TWO
     * +R1(1,9)*TWO)*QX+(-R1(3,27)+R0(12))*XX
      F(2,1,1,4)= -R3(8,12)+R2(2,7)-R1(3,26)+R0(11)
      F(3,1,1,4)= -R3(10,12)+R2(3,7)-R1(3,26)+R0(11)+(-R2(3,20)*TWO
     * +R1(3,9)*TWO)*QZ+(-R1(3,27)+R0(12))*ZZ
      F(4,1,1,4)= -R3(5,12)+R2(4,7)+(-R2(6,20)+R1(2,9))*QX
      F(5,1,1,4)= -R3(6,12)+R2(5,7)+(-R2(3,20)+R1(3,9))*QX+(-R2(5,20)
     * +R1(1,9))*QZ+(-R1(3,27)+R0(12))*XZ
      F(6,1,1,4)= -R3(9,12)+R2(6,7)+(-R2(6,20)+R1(2,9))*QZ
      F(1,2,1,4)= -R4(3,3)+R3(1,3)-R2(5,21)*THREE+R1(1,10)*THREE+(
     * -R3(3,13)*TWO-R3(3,14)+R2(1,8)*TWO+R2(1,9)-R1(3,28)*TWO-R1(3,29)
     * +R0(13)*TWO+R0(14))*QX+(-R2(5,22)-R2(5,23)*TWO+R1(1,11)
     * +R1(1,12)*TWO)*XX+(-R1(3,30)+R0(15))*XXX
      F(2,2,1,4)= -R4(8,3)+R3(4,3)-R2(5,21)+R1(1,10)+(-R3(8,14)+R2(2,9)
     * -R1(3,29)+R0(14))*QX
      F(3,2,1,4)= -R4(10,3)+R3(6,3)-R2(5,21)+R1(1,10)+(-R3(10,14)
     * +R2(3,9)-R1(3,29)+R0(14))*QX+(-R3(6,13)*TWO+R2(5,8)*TWO)*QZ+(
     * -R2(3,23)*TWO+R1(3,12)*TWO)*XZ+(-R2(5,22)+R1(1,11))*ZZ+(-R1(3,30)
     * +R0(15))*XZZ
      F(4,2,1,4)= -R4(5,3)+R3(2,3)-R2(6,21)+R1(2,10)+(-R3(5,13)-R3(5,14)
     * +R2(4,8)+R2(4,9))*QX+(-R2(6,23)+R1(2,12))*XX
      F(5,2,1,4)= -R4(6,3)+R3(3,3)-R2(3,21)+R1(3,10)+(-R3(6,13)-R3(6,14)
     * +R2(5,8)+R2(5,9))*QX+(-R3(3,13)+R2(1,8)-R1(3,28)+R0(13))*QZ+(
     * -R2(3,23)+R1(3,12))*XX+(-R2(5,22)-R2(5,23)+R1(1,11)+R1(1,12))*XZ
     * +(-R1(3,30)+R0(15))*XXZ
      F(6,2,1,4)= -R4(9,3)+R3(5,3)+(-R3(9,14)+R2(6,9))*QX+(-R3(5,13)
     * +R2(4,8))*QZ+(-R2(6,23)+R1(2,12))*XZ
      F(1,3,1,4)= -R4(5,3)+R3(2,3)-R2(6,21)+R1(2,10)+(-R3(5,13)*TWO
     * +R2(4,8)*TWO)*QX+(-R2(6,22)+R1(2,11))*XX
      F(2,3,1,4)= -R4(12,3)+R3(7,3)-R2(6,21)*THREE+R1(2,10)*THREE
      F(3,3,1,4)= -R4(14,3)+R3(9,3)-R2(6,21)+R1(2,10)+(-R3(9,13)*TWO
     * +R2(6,8)*TWO)*QZ+(-R2(6,22)+R1(2,11))*ZZ
      F(4,3,1,4)= -R4(8,3)+R3(4,3)-R2(5,21)+R1(1,10)+(-R3(8,13)+R2(2,8)
     * -R1(3,28)+R0(13))*QX
      F(5,3,1,4)= -R4(9,3)+R3(5,3)+(-R3(9,13)+R2(6,8))*QX+(-R3(5,13)
     * +R2(4,8))*QZ+(-R2(6,22)+R1(2,11))*XZ
      F(6,3,1,4)= -R4(13,3)+R3(8,3)-R2(3,21)+R1(3,10)+(-R3(8,13)+R2(2,8)
     * -R1(3,28)+R0(13))*QZ
      F(1,4,1,4)= -R4(6,3)+R3(3,3)-R2(3,21)+R1(3,10)+(-R3(6,13)*TWO
     * +R2(5,8)*TWO)*QX+(-R3(3,14)+R2(1,9)-R1(3,29)+R0(14))*QZ+(
     * -R2(3,22)+R1(3,11))*XX+(-R2(5,23)*TWO+R1(1,12)*TWO)*XZ+(-R1(3,30)
     * +R0(15))*XXZ
      F(2,4,1,4)= -R4(13,3)+R3(8,3)-R2(3,21)+R1(3,10)+(-R3(8,14)+R2(2,9)
     * -R1(3,29)+R0(14))*QZ
      F(3,4,1,4)= -R4(15,3)+R3(10,3)-R2(3,21)*THREE+R1(3,10)*THREE+(
     * -R3(10,13)*TWO-R3(10,14)+R2(3,8)*TWO+R2(3,9)-R1(3,28)*TWO
     * -R1(3,29)+R0(13)*TWO+R0(14))*QZ+(-R2(3,22)-R2(3,23)*TWO+R1(3,11)
     * +R1(3,12)*TWO)*ZZ+(-R1(3,30)+R0(15))*ZZZ
      F(4,4,1,4)= -R4(9,3)+R3(5,3)+(-R3(9,13)+R2(6,8))*QX+(-R3(5,14)
     * +R2(4,9))*QZ+(-R2(6,23)+R1(2,12))*XZ
      F(5,4,1,4)= -R4(10,3)+R3(6,3)-R2(5,21)+R1(1,10)+(-R3(10,13)
     * +R2(3,8)-R1(3,28)+R0(13))*QX+(-R3(6,13)-R3(6,14)+R2(5,8)+R2(5,9))
     * *QZ+(-R2(3,22)-R2(3,23)+R1(3,11)+R1(3,12))*XZ+(-R2(5,23)+R1(1,12)
     * )*ZZ+(-R1(3,30)+R0(15))*XZZ
      F(6,4,1,4)= -R4(14,3)+R3(9,3)-R2(6,21)+R1(2,10)+(-R3(9,13)
     * -R3(9,14)+R2(6,8)+R2(6,9))*QZ+(-R2(6,23)+R1(2,12))*ZZ
      F(1,1,2,4)= R4(3,5)-R3(1,6)+R2(5,32)-R1(1,36)+(+R3(3,18)*TWO
     * -R2(1,28)*TWO)*QX+(+R2(5,33)-R1(1,37))*XX
      F(2,1,2,4)= R4(8,5)-R3(4,6)+R2(5,32)-R1(1,36)
      F(3,1,2,4)= R4(10,5)-R3(6,6)+R2(5,32)-R1(1,36)+(+R3(6,18)*TWO
     * -R2(5,28)*TWO)*QZ+(+R2(5,33)-R1(1,37))*ZZ
      F(4,1,2,4)= R4(5,5)-R3(2,6)+(+R3(5,18)-R2(4,28))*QX
      F(5,1,2,4)= R4(6,5)-R3(3,6)+(+R3(6,18)-R2(5,28))*QX+(+R3(3,18)
     * -R2(1,28))*QZ+(+R2(5,33)-R1(1,37))*XZ
      F(6,1,2,4)= R4(9,5)-R3(5,6)+(+R3(5,18)-R2(4,28))*QZ
      F(1,2,2,4)= R5(3,1)-R4(1,1)+R3(3,19)*THREE-R2(1,29)*THREE+(
     * +R4(3,6)*TWO+R4(3,7)-R3(1,7)*TWO-R3(1,8)+R2(5,34)*TWO+R2(5,35)
     * -R1(1,38)*TWO-R1(1,39))*QX+(+R3(3,20)+R3(3,21)*TWO-R2(1,30)
     * -R2(1,31)*TWO)*XX+(+R2(5,36)-R1(1,40))*XXX
      F(2,2,2,4)= R5(8,1)-R4(4,1)+R3(3,19)-R2(1,29)+(+R4(8,7)-R3(4,8)
     * +R2(5,35)-R1(1,39))*QX
      F(3,2,2,4)= R5(10,1)-R4(6,1)+R3(3,19)-R2(1,29)+(+R4(10,7)-R3(6,8)
     * +R2(5,35)-R1(1,39))*QX+(+R4(6,6)*TWO-R3(3,7)*TWO)*QZ+(
     * +R3(6,21)*TWO-R2(5,31)*TWO)*XZ+(+R3(3,20)-R2(1,30))*ZZ+(+R2(5,36)
     * -R1(1,40))*XZZ
      F(4,2,2,4)= R5(5,1)-R4(2,1)+R3(5,19)-R2(4,29)+(+R4(5,6)+R4(5,7)
     * -R3(2,7)-R3(2,8))*QX+(+R3(5,21)-R2(4,31))*XX
      F(5,2,2,4)= R5(6,1)-R4(3,1)+R3(6,19)-R2(5,29)+(+R4(6,6)+R4(6,7)
     * -R3(3,7)-R3(3,8))*QX+(+R4(3,6)-R3(1,7)+R2(5,34)-R1(1,38))*QZ+(
     * +R3(6,21)-R2(5,31))*XX+(+R3(3,20)+R3(3,21)-R2(1,30)-R2(1,31))*XZ
     * +(+R2(5,36)-R1(1,40))*XXZ
      F(6,2,2,4)= R5(9,1)-R4(5,1)+(+R4(9,7)-R3(5,8))*QX+(+R4(5,6)
     * -R3(2,7))*QZ+(+R3(5,21)-R2(4,31))*XZ
      F(1,3,2,4)= R5(5,1)-R4(2,1)+R3(5,19)-R2(4,29)+(+R4(5,6)*TWO
     * -R3(2,7)*TWO)*QX+(+R3(5,20)-R2(4,30))*XX
      F(2,3,2,4)= R5(12,1)-R4(7,1)+R3(5,19)*THREE-R2(4,29)*THREE
      F(3,3,2,4)= R5(14,1)-R4(9,1)+R3(5,19)-R2(4,29)+(+R4(9,6)*TWO
     * -R3(5,7)*TWO)*QZ+(+R3(5,20)-R2(4,30))*ZZ
      F(4,3,2,4)= R5(8,1)-R4(4,1)+R3(3,19)-R2(1,29)+(+R4(8,6)-R3(4,7)
     * +R2(5,34)-R1(1,38))*QX
      F(5,3,2,4)= R5(9,1)-R4(5,1)+(+R4(9,6)-R3(5,7))*QX+(+R4(5,6)
     * -R3(2,7))*QZ+(+R3(5,20)-R2(4,30))*XZ
      F(6,3,2,4)= R5(13,1)-R4(8,1)+R3(6,19)-R2(5,29)+(+R4(8,6)-R3(4,7)
     * +R2(5,34)-R1(1,38))*QZ
      F(1,4,2,4)= R5(6,1)-R4(3,1)+R3(6,19)-R2(5,29)+(+R4(6,6)*TWO
     * -R3(3,7)*TWO)*QX+(+R4(3,7)-R3(1,8)+R2(5,35)-R1(1,39))*QZ+(
     * +R3(6,20)-R2(5,30))*XX+(+R3(3,21)*TWO-R2(1,31)*TWO)*XZ+(+R2(5,36)
     * -R1(1,40))*XXZ
      F(2,4,2,4)= R5(13,1)-R4(8,1)+R3(6,19)-R2(5,29)+(+R4(8,7)-R3(4,8)
     * +R2(5,35)-R1(1,39))*QZ
      F(3,4,2,4)= R5(15,1)-R4(10,1)+R3(6,19)*THREE-R2(5,29)*THREE+(
     * +R4(10,6)*TWO+R4(10,7)-R3(6,7)*TWO-R3(6,8)+R2(5,34)*TWO+R2(5,35)
     * -R1(1,38)*TWO-R1(1,39))*QZ+(+R3(6,20)+R3(6,21)*TWO-R2(5,30)
     * -R2(5,31)*TWO)*ZZ+(+R2(5,36)-R1(1,40))*ZZZ
      F(4,4,2,4)= R5(9,1)-R4(5,1)+(+R4(9,6)-R3(5,7))*QX+(+R4(5,7)
     * -R3(2,8))*QZ+(+R3(5,21)-R2(4,31))*XZ
      F(5,4,2,4)= R5(10,1)-R4(6,1)+R3(3,19)-R2(1,29)+(+R4(10,6)-R3(6,7)
     * +R2(5,34)-R1(1,38))*QX+(+R4(6,6)+R4(6,7)-R3(3,7)-R3(3,8))*QZ+(
     * +R3(6,20)+R3(6,21)-R2(5,30)-R2(5,31))*XZ+(+R3(3,21)-R2(1,31))*ZZ
     * +(+R2(5,36)-R1(1,40))*XZZ
      F(6,4,2,4)= R5(14,1)-R4(9,1)+R3(5,19)-R2(4,29)+(+R4(9,6)+R4(9,7)
     * -R3(5,7)-R3(5,8))*QZ+(+R3(5,21)-R2(4,31))*ZZ
      F(1,1,3,4)= R4(5,5)-R3(2,6)+R2(6,32)-R1(2,36)+(+R3(5,18)*TWO
     * -R2(4,28)*TWO)*QX+(+R2(6,33)-R1(2,37))*XX
      F(2,1,3,4)= R4(12,5)-R3(7,6)+R2(6,32)-R1(2,36)
      F(3,1,3,4)= R4(14,5)-R3(9,6)+R2(6,32)-R1(2,36)+(+R3(9,18)*TWO
     * -R2(6,28)*TWO)*QZ+(+R2(6,33)-R1(2,37))*ZZ
      F(4,1,3,4)= R4(8,5)-R3(4,6)+(+R3(8,18)-R2(2,28))*QX
      F(5,1,3,4)= R4(9,5)-R3(5,6)+(+R3(9,18)-R2(6,28))*QX+(+R3(5,18)
     * -R2(4,28))*QZ+(+R2(6,33)-R1(2,37))*XZ
      F(6,1,3,4)= R4(13,5)-R3(8,6)+(+R3(8,18)-R2(2,28))*QZ
      F(1,2,3,4)= R5(5,1)-R4(2,1)+R3(5,19)*THREE-R2(4,29)*THREE+(
     * +R4(5,6)*TWO+R4(5,7)-R3(2,7)*TWO-R3(2,8)+R2(6,34)*TWO+R2(6,35)
     * -R1(2,38)*TWO-R1(2,39))*QX+(+R3(5,20)+R3(5,21)*TWO-R2(4,30)
     * -R2(4,31)*TWO)*XX+(+R2(6,36)-R1(2,40))*XXX
      F(2,2,3,4)= R5(12,1)-R4(7,1)+R3(5,19)-R2(4,29)+(+R4(12,7)-R3(7,8)
     * +R2(6,35)-R1(2,39))*QX
      F(3,2,3,4)= R5(14,1)-R4(9,1)+R3(5,19)-R2(4,29)+(+R4(14,7)-R3(9,8)
     * +R2(6,35)-R1(2,39))*QX+(+R4(9,6)*TWO-R3(5,7)*TWO)*QZ+(
     * +R3(9,21)*TWO-R2(6,31)*TWO)*XZ+(+R3(5,20)-R2(4,30))*ZZ+(+R2(6,36)
     * -R1(2,40))*XZZ
      F(4,2,3,4)= R5(8,1)-R4(4,1)+R3(8,19)-R2(2,29)+(+R4(8,6)+R4(8,7)
     * -R3(4,7)-R3(4,8))*QX+(+R3(8,21)-R2(2,31))*XX
      F(5,2,3,4)= R5(9,1)-R4(5,1)+R3(9,19)-R2(6,29)+(+R4(9,6)+R4(9,7)
     * -R3(5,7)-R3(5,8))*QX+(+R4(5,6)-R3(2,7)+R2(6,34)-R1(2,38))*QZ+(
     * +R3(9,21)-R2(6,31))*XX+(+R3(5,20)+R3(5,21)-R2(4,30)-R2(4,31))*XZ
     * +(+R2(6,36)-R1(2,40))*XXZ
      F(6,2,3,4)= R5(13,1)-R4(8,1)+(+R4(13,7)-R3(8,8))*QX+(+R4(8,6)
     * -R3(4,7))*QZ+(+R3(8,21)-R2(2,31))*XZ
      F(1,3,3,4)= R5(8,1)-R4(4,1)+R3(8,19)-R2(2,29)+(+R4(8,6)*TWO
     * -R3(4,7)*TWO)*QX+(+R3(8,20)-R2(2,30))*XX
      F(2,3,3,4)= R5(17,1)-R4(11,1)+R3(8,19)*THREE-R2(2,29)*THREE
      F(3,3,3,4)= R5(19,1)-R4(13,1)+R3(8,19)-R2(2,29)+(+R4(13,6)*TWO
     * -R3(8,7)*TWO)*QZ+(+R3(8,20)-R2(2,30))*ZZ
      F(4,3,3,4)= R5(12,1)-R4(7,1)+R3(5,19)-R2(4,29)+(+R4(12,6)-R3(7,7)
     * +R2(6,34)-R1(2,38))*QX
      F(5,3,3,4)= R5(13,1)-R4(8,1)+(+R4(13,6)-R3(8,7))*QX+(+R4(8,6)
     * -R3(4,7))*QZ+(+R3(8,20)-R2(2,30))*XZ
      F(6,3,3,4)= R5(18,1)-R4(12,1)+R3(9,19)-R2(6,29)+(+R4(12,6)-R3(7,7)
     * +R2(6,34)-R1(2,38))*QZ
      F(1,4,3,4)= R5(9,1)-R4(5,1)+R3(9,19)-R2(6,29)+(+R4(9,6)*TWO
     * -R3(5,7)*TWO)*QX+(+R4(5,7)-R3(2,8)+R2(6,35)-R1(2,39))*QZ+(
     * +R3(9,20)-R2(6,30))*XX+(+R3(5,21)*TWO-R2(4,31)*TWO)*XZ+(+R2(6,36)
     * -R1(2,40))*XXZ
      F(2,4,3,4)= R5(18,1)-R4(12,1)+R3(9,19)-R2(6,29)+(+R4(12,7)-R3(7,8)
     * +R2(6,35)-R1(2,39))*QZ
      F(3,4,3,4)= R5(20,1)-R4(14,1)+R3(9,19)*THREE-R2(6,29)*THREE+(
     * +R4(14,6)*TWO+R4(14,7)-R3(9,7)*TWO-R3(9,8)+R2(6,34)*TWO+R2(6,35)
     * -R1(2,38)*TWO-R1(2,39))*QZ+(+R3(9,20)+R3(9,21)*TWO-R2(6,30)
     * -R2(6,31)*TWO)*ZZ+(+R2(6,36)-R1(2,40))*ZZZ
      F(4,4,3,4)= R5(13,1)-R4(8,1)+(+R4(13,6)-R3(8,7))*QX+(+R4(8,7)
     * -R3(4,8))*QZ+(+R3(8,21)-R2(2,31))*XZ
      F(5,4,3,4)= R5(14,1)-R4(9,1)+R3(5,19)-R2(4,29)+(+R4(14,6)-R3(9,7)
     * +R2(6,34)-R1(2,38))*QX+(+R4(9,6)+R4(9,7)-R3(5,7)-R3(5,8))*QZ+(
     * +R3(9,20)+R3(9,21)-R2(6,30)-R2(6,31))*XZ+(+R3(5,21)-R2(4,31))*ZZ
     * +(+R2(6,36)-R1(2,40))*XZZ
      F(6,4,3,4)= R5(19,1)-R4(13,1)+R3(8,19)-R2(2,29)+(+R4(13,6)
     * +R4(13,7)-R3(8,7)-R3(8,8))*QZ+(+R3(8,21)-R2(2,31))*ZZ
      F(1,1,4,4)= R4(6,5)-R3(3,6)-R3(3,15)+R2(1,10)+R2(1,13)+R2(3,32)
     * -R1(3,31)-R1(3,36)+R0(16)+R0(21)+(+R3(6,18)*TWO-R2(5,24)*TWO
     * -R2(5,28)*TWO+R1(1,13)*TWO+R1(1,17)*TWO)*QX+(+R2(3,33)-R1(3,32)
     * -R1(3,37)+R0(17)+R0(22))*XX
      F(2,1,4,4)= R4(13,5)-R3(8,6)-R3(8,15)+R2(2,10)+R2(2,13)+R2(3,32)
     * -R1(3,31)-R1(3,36)+R0(16)+R0(21)
      F(3,1,4,4)= R4(15,5)-R3(10,6)-R3(10,15)+R2(3,10)+R2(3,13)+R2(3,32)
     * -R1(3,31)-R1(3,36)+R0(16)+R0(21)+(+R3(10,18)*TWO-R2(3,24)*TWO
     * -R2(3,28)*TWO+R1(3,13)*TWO+R1(3,17)*TWO)*QZ+(+R2(3,33)-R1(3,32)
     * -R1(3,37)+R0(17)+R0(22))*ZZ
      F(4,1,4,4)= R4(9,5)-R3(5,6)-R3(5,15)+R2(4,10)+R2(4,13)+(+R3(9,18)
     * -R2(6,24)-R2(6,28)+R1(2,13)+R1(2,17))*QX
      F(5,1,4,4)= R4(10,5)-R3(6,6)-R3(6,15)+R2(5,10)+R2(5,13)+(
     * +R3(10,18)-R2(3,24)-R2(3,28)+R1(3,13)+R1(3,17))*QX+(+R3(6,18)
     * -R2(5,24)-R2(5,28)+R1(1,13)+R1(1,17))*QZ+(+R2(3,33)-R1(3,32)
     * -R1(3,37)+R0(17)+R0(22))*XZ
      F(6,1,4,4)= R4(14,5)-R3(9,6)-R3(9,15)+R2(6,10)+R2(6,13)+(+R3(9,18)
     * -R2(6,24)-R2(6,28)+R1(2,13)+R1(2,17))*QZ
      F(1,2,4,4)= R5(6,1)-R4(3,1)-R4(3,4)+R3(1,4)+R3(1,5)+R3(6,19)*THREE
     * -R2(5,25)*THREE-R2(5,29)*THREE+R1(1,14)*THREE+R1(1,18)*THREE+(
     * +R4(6,6)*TWO+R4(6,7)-R3(3,7)*TWO-R3(3,8)-R3(3,16)*TWO-R3(3,17)
     * +R2(1,11)*TWO+R2(1,12)+R2(1,14)*TWO+R2(1,15)+R2(3,34)*TWO
     * +R2(3,35)-R1(3,33)*TWO-R1(3,34)-R1(3,38)*TWO-R1(3,39)+R0(18)*TWO
     * +R0(19)+R0(23)*TWO+R0(24))*QX+(+R3(6,20)+R3(6,21)*TWO-R2(5,26)
     * -R2(5,27)*TWO-R2(5,30)-R2(5,31)*TWO+R1(1,15)+R1(1,16)*TWO
     * +R1(1,19)+R1(1,20)*TWO)*XX+(+R2(3,36)-R1(3,35)-R1(3,40)+R0(20)
     * +R0(25))*XXX
      F(2,2,4,4)= R5(13,1)-R4(8,1)-R4(8,4)+R3(4,4)+R3(4,5)+R3(6,19)
     * -R2(5,25)-R2(5,29)+R1(1,14)+R1(1,18)+(+R4(13,7)-R3(8,8)-R3(8,17)
     * +R2(2,12)+R2(2,15)+R2(3,35)-R1(3,34)-R1(3,39)+R0(19)+R0(24))*QX
      F(3,2,4,4)= R5(15,1)-R4(10,1)-R4(10,4)+R3(6,4)+R3(6,5)+R3(6,19)
     * -R2(5,25)-R2(5,29)+R1(1,14)+R1(1,18)+(+R4(15,7)-R3(10,8)
     * -R3(10,17)+R2(3,12)+R2(3,15)+R2(3,35)-R1(3,34)-R1(3,39)+R0(19)
     * +R0(24))*QX+(+R4(10,6)*TWO-R3(6,7)*TWO-R3(6,16)*TWO+R2(5,11)*TWO
     * +R2(5,14)*TWO)*QZ+(+R3(10,21)*TWO-R2(3,27)*TWO-R2(3,31)*TWO
     * +R1(3,16)*TWO+R1(3,20)*TWO)*XZ+(+R3(6,20)-R2(5,26)-R2(5,30)
     * +R1(1,15)+R1(1,19))*ZZ+(+R2(3,36)-R1(3,35)-R1(3,40)+R0(20)+R0(25)
     * )*XZZ
      F(4,2,4,4)= R5(9,1)-R4(5,1)-R4(5,4)+R3(2,4)+R3(2,5)+R3(9,19)
     * -R2(6,25)-R2(6,29)+R1(2,14)+R1(2,18)+(+R4(9,6)+R4(9,7)-R3(5,7)
     * -R3(5,8)-R3(5,16)-R3(5,17)+R2(4,11)+R2(4,12)+R2(4,14)+R2(4,15))
     * *QX+(+R3(9,21)-R2(6,27)-R2(6,31)+R1(2,16)+R1(2,20))*XX
      F(5,2,4,4)= R5(10,1)-R4(6,1)-R4(6,4)+R3(3,4)+R3(3,5)+R3(10,19)
     * -R2(3,25)-R2(3,29)+R1(3,14)+R1(3,18)+(+R4(10,6)+R4(10,7)-R3(6,7)
     * -R3(6,8)-R3(6,16)-R3(6,17)+R2(5,11)+R2(5,12)+R2(5,14)+R2(5,15))
     * *QX+(+R4(6,6)-R3(3,7)-R3(3,16)+R2(1,11)+R2(1,14)+R2(3,34)
     * -R1(3,33)-R1(3,38)+R0(18)+R0(23))*QZ+(+R3(10,21)-R2(3,27)
     * -R2(3,31)+R1(3,16)+R1(3,20))*XX+(+R3(6,20)+R3(6,21)-R2(5,26)
     * -R2(5,27)-R2(5,30)-R2(5,31)+R1(1,15)+R1(1,16)+R1(1,19)+R1(1,20))
     * *XZ+(+R2(3,36)-R1(3,35)-R1(3,40)+R0(20)+R0(25))*XXZ
      F(6,2,4,4)= R5(14,1)-R4(9,1)-R4(9,4)+R3(5,4)+R3(5,5)+(+R4(14,7)
     * -R3(9,8)-R3(9,17)+R2(6,12)+R2(6,15))*QX+(+R4(9,6)-R3(5,7)
     * -R3(5,16)+R2(4,11)+R2(4,14))*QZ+(+R3(9,21)-R2(6,27)-R2(6,31)
     * +R1(2,16)+R1(2,20))*XZ
      F(1,3,4,4)= R5(9,1)-R4(5,1)-R4(5,4)+R3(2,4)+R3(2,5)+R3(9,19)
     * -R2(6,25)-R2(6,29)+R1(2,14)+R1(2,18)+(+R4(9,6)*TWO-R3(5,7)*TWO
     * -R3(5,16)*TWO+R2(4,11)*TWO+R2(4,14)*TWO)*QX+(+R3(9,20)-R2(6,26)
     * -R2(6,30)+R1(2,15)+R1(2,19))*XX
      F(2,3,4,4)= R5(18,1)-R4(12,1)-R4(12,4)+R3(7,4)+R3(7,5)
     * +R3(9,19)*THREE-R2(6,25)*THREE-R2(6,29)*THREE+R1(2,14)*THREE
     * +R1(2,18)*THREE
      F(3,3,4,4)= R5(20,1)-R4(14,1)-R4(14,4)+R3(9,4)+R3(9,5)+R3(9,19)
     * -R2(6,25)-R2(6,29)+R1(2,14)+R1(2,18)+(+R4(14,6)*TWO-R3(9,7)*TWO
     * -R3(9,16)*TWO+R2(6,11)*TWO+R2(6,14)*TWO)*QZ+(+R3(9,20)-R2(6,26)
     * -R2(6,30)+R1(2,15)+R1(2,19))*ZZ
      F(4,3,4,4)= R5(13,1)-R4(8,1)-R4(8,4)+R3(4,4)+R3(4,5)+R3(6,19)
     * -R2(5,25)-R2(5,29)+R1(1,14)+R1(1,18)+(+R4(13,6)-R3(8,7)-R3(8,16)
     * +R2(2,11)+R2(2,14)+R2(3,34)-R1(3,33)-R1(3,38)+R0(18)+R0(23))*QX
      F(5,3,4,4)= R5(14,1)-R4(9,1)-R4(9,4)+R3(5,4)+R3(5,5)+(+R4(14,6)
     * -R3(9,7)-R3(9,16)+R2(6,11)+R2(6,14))*QX+(+R4(9,6)-R3(5,7)
     * -R3(5,16)+R2(4,11)+R2(4,14))*QZ+(+R3(9,20)-R2(6,26)-R2(6,30)
     * +R1(2,15)+R1(2,19))*XZ
      F(6,3,4,4)= R5(19,1)-R4(13,1)-R4(13,4)+R3(8,4)+R3(8,5)+R3(10,19)
     * -R2(3,25)-R2(3,29)+R1(3,14)+R1(3,18)+(+R4(13,6)-R3(8,7)-R3(8,16)
     * +R2(2,11)+R2(2,14)+R2(3,34)-R1(3,33)-R1(3,38)+R0(18)+R0(23))*QZ
      F(1,4,4,4)= R5(10,1)-R4(6,1)-R4(6,4)+R3(3,4)+R3(3,5)+R3(10,19)
     * -R2(3,25)-R2(3,29)+R1(3,14)+R1(3,18)+(+R4(10,6)*TWO-R3(6,7)*TWO
     * -R3(6,16)*TWO+R2(5,11)*TWO+R2(5,14)*TWO)*QX+(+R4(6,7)-R3(3,8)
     * -R3(3,17)+R2(1,12)+R2(1,15)+R2(3,35)-R1(3,34)-R1(3,39)+R0(19)
     * +R0(24))*QZ+(+R3(10,20)-R2(3,26)-R2(3,30)+R1(3,15)+R1(3,19))*XX+(
     * +R3(6,21)*TWO-R2(5,27)*TWO-R2(5,31)*TWO+R1(1,16)*TWO+R1(1,20)*TWO
     * )*XZ+(+R2(3,36)-R1(3,35)-R1(3,40)+R0(20)+R0(25))*XXZ
      F(2,4,4,4)= R5(19,1)-R4(13,1)-R4(13,4)+R3(8,4)+R3(8,5)+R3(10,19)
     * -R2(3,25)-R2(3,29)+R1(3,14)+R1(3,18)+(+R4(13,7)-R3(8,8)-R3(8,17)
     * +R2(2,12)+R2(2,15)+R2(3,35)-R1(3,34)-R1(3,39)+R0(19)+R0(24))*QZ
      F(3,4,4,4)= R5(21,1)-R4(15,1)-R4(15,4)+R3(10,4)+R3(10,5)
     * +R3(10,19)*THREE-R2(3,25)*THREE-R2(3,29)*THREE+R1(3,14)*THREE
     * +R1(3,18)*THREE+(+R4(15,6)*TWO+R4(15,7)-R3(10,7)*TWO-R3(10,8)
     * -R3(10,16)*TWO-R3(10,17)+R2(3,11)*TWO+R2(3,12)+R2(3,14)*TWO
     * +R2(3,15)+R2(3,34)*TWO+R2(3,35)-R1(3,33)*TWO-R1(3,34)
     * -R1(3,38)*TWO-R1(3,39)+R0(18)*TWO+R0(19)+R0(23)*TWO+R0(24))*QZ+(
     * +R3(10,20)+R3(10,21)*TWO-R2(3,26)-R2(3,27)*TWO-R2(3,30)
     * -R2(3,31)*TWO+R1(3,15)+R1(3,16)*TWO+R1(3,19)+R1(3,20)*TWO)*ZZ+(
     * +R2(3,36)-R1(3,35)-R1(3,40)+R0(20)+R0(25))*ZZZ
      F(4,4,4,4)= R5(14,1)-R4(9,1)-R4(9,4)+R3(5,4)+R3(5,5)+(+R4(14,6)
     * -R3(9,7)-R3(9,16)+R2(6,11)+R2(6,14))*QX+(+R4(9,7)-R3(5,8)
     * -R3(5,17)+R2(4,12)+R2(4,15))*QZ+(+R3(9,21)-R2(6,27)-R2(6,31)
     * +R1(2,16)+R1(2,20))*XZ
      F(5,4,4,4)= R5(15,1)-R4(10,1)-R4(10,4)+R3(6,4)+R3(6,5)+R3(6,19)
     * -R2(5,25)-R2(5,29)+R1(1,14)+R1(1,18)+(+R4(15,6)-R3(10,7)
     * -R3(10,16)+R2(3,11)+R2(3,14)+R2(3,34)-R1(3,33)-R1(3,38)+R0(18)
     * +R0(23))*QX+(+R4(10,6)+R4(10,7)-R3(6,7)-R3(6,8)-R3(6,16)-R3(6,17)
     * +R2(5,11)+R2(5,12)+R2(5,14)+R2(5,15))*QZ+(+R3(10,20)+R3(10,21)
     * -R2(3,26)-R2(3,27)-R2(3,30)-R2(3,31)+R1(3,15)+R1(3,16)+R1(3,19)
     * +R1(3,20))*XZ+(+R3(6,21)-R2(5,27)-R2(5,31)+R1(1,16)+R1(1,20))*ZZ
     * +(+R2(3,36)-R1(3,35)-R1(3,40)+R0(20)+R0(25))*XZZ
      F(6,4,4,4)= R5(20,1)-R4(14,1)-R4(14,4)+R3(9,4)+R3(9,5)+R3(9,19)
     * -R2(6,25)-R2(6,29)+R1(2,14)+R1(2,18)+(+R4(14,6)+R4(14,7)-R3(9,7)
     * -R3(9,8)-R3(9,16)-R3(9,17)+R2(6,11)+R2(6,12)+R2(6,14)+R2(6,15))
     * *QZ+(+R3(9,21)-R2(6,27)-R2(6,31)+R1(2,16)+R1(2,20))*ZZ
C
      RETURN
      END
C
C*MODULE INT2S   *DECK MCDV17
      SUBROUTINE MCDV17(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00)
      PARAMETER (EIGHT=8.0D+00, TWELV=1.2D+01)
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
      DIMENSION F(6,6,6,6)
C
      XX= QX*QX
      ZZ= QZ*QZ
      XZ= QX*QZ
      XXX= XX*QX
      XXZ= XX*QZ
      XZZ= ZZ*QX
      ZZZ= ZZ*QZ
      XXXX= XX*XX
      XXXZ= XX*XZ
      XXZZ= XX*ZZ
      XZZZ= XZ*ZZ
      ZZZZ= ZZ*ZZ
      F(1,1,1,1)= R6(1,1)+R4(1,1)+R4(1,5)*SIX+R2(1,1)*SIX+R2(1,13)*THREE
     * +R0(1)*THREE+(+R5(1,2)*TWO+R5(1,3)*TWO+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(1,9)*SIX+R3(1,10)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)*QX+(+R4(1,6)
     * +R4(1,7)*FOUR+R4(1,8)+R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,14)
     * +R2(1,15)*FOUR+R2(1,16)+R0(2)+R0(3)*FOUR+R0(4))*XX+(+R3(1,11)*TWO
     * +R3(1,12)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(+R2(1,17)+R0(5))*XXXX
      F(2,1,1,1)= R6(4,1)+R4(4,1)+R4(1,5)+R4(4,5)+R2(1,1)+R2(2,1)
     * +R2(1,13)+R0(1)+(+R5(4,3)*TWO+R3(4,2)*TWO+R3(1,10)*TWO
     * +R1(1,2)*TWO)*QX+(+R4(4,8)+R2(2,4)+R2(1,16)+R0(4))*XX
      F(3,1,1,1)= R6(6,1)+R4(6,1)+R4(1,5)+R4(6,5)+R2(1,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(6,3)*TWO+R3(6,2)*TWO+R3(1,10)*TWO
     * +R1(1,2)*TWO)*QX+(+R5(3,2)*TWO+R3(3,1)*TWO+R3(3,9)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(6,8)+R2(3,4)+R2(1,16)+R0(4))*XX+(
     * +R4(3,7)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(1,6)+R2(1,2)+R2(1,14)+R0(2))
     * *ZZ+(+R3(3,12)*TWO+R1(3,4)*TWO)*XXZ+(+R3(1,11)*TWO+R1(1,3)*TWO)
     * *XZZ+(+R2(1,17)+R0(5))*XXZZ
      F(4,1,1,1)= R6(2,1)+R4(2,1)+R4(2,5)*THREE+R2(4,1)*THREE+(+R5(2,2)
     * +R5(2,3)*TWO+R3(2,1)+R3(2,2)*TWO+R3(2,9)+R3(2,10)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QX+(+R4(2,7)*TWO+R4(2,8)+R2(4,3)*TWO+R2(4,4))*XX+(
     * +R3(2,12)+R1(2,4))*XXX
      F(5,1,1,1)= R6(3,1)+R4(3,1)+R4(3,5)*THREE+R2(5,1)*THREE+(+R5(3,2)
     * +R5(3,3)*TWO+R3(3,1)+R3(3,2)*TWO+R3(3,9)+R3(3,10)*TWO+R1(3,1)
     * +R1(3,2)*TWO)*QX+(+R5(1,2)+R3(1,1)+R3(1,9)*THREE+R1(1,1)*THREE)
     * *QZ+(+R4(3,7)*TWO+R4(3,8)+R2(5,3)*TWO+R2(5,4))*XX+(+R4(1,6)
     * +R4(1,7)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,14)+R2(1,15)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R3(3,12)+R1(3,4))*XXX+(+R3(1,11)*TWO+R3(1,12)
     * +R1(1,3)*TWO+R1(1,4))*XXZ+(+R2(1,17)+R0(5))*XXXZ
      F(6,1,1,1)= R6(5,1)+R4(5,1)+R4(5,5)+R2(6,1)+(+R5(5,3)*TWO
     * +R3(5,2)*TWO)*QX+(+R5(2,2)+R3(2,1)+R3(2,9)+R1(2,1))*QZ+(+R4(5,8)
     * +R2(6,4))*XX+(+R4(2,7)*TWO+R2(4,3)*TWO)*XZ+(+R3(2,12)+R1(2,4))
     * *XXZ
      F(1,2,1,1)= R6(4,1)+R4(4,1)+R4(1,5)+R4(4,5)+R2(1,1)+R2(2,1)
     * +R2(1,13)+R0(1)+(+R5(4,2)*TWO+R3(4,1)*TWO+R3(1,9)*TWO+R1(1,1)*TWO
     * )*QX+(+R4(4,6)+R2(2,2)+R2(1,14)+R0(2))*XX
      F(2,2,1,1)= R6(11,1)+R4(11,1)+R4(4,5)*SIX+R2(2,1)*SIX
     * +R2(1,13)*THREE+R0(1)*THREE
      F(3,2,1,1)= R6(13,1)+R4(13,1)+R4(4,5)+R4(6,5)+R2(2,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(8,2)*TWO+R3(8,1)*TWO+R3(3,9)*TWO+R1(3,1)*TWO
     * )*QZ+(+R4(4,6)+R2(2,2)+R2(1,14)+R0(2))*ZZ
      F(4,2,1,1)= R6(7,1)+R4(7,1)+R4(2,5)*THREE+R2(4,1)*THREE+(+R5(7,2)
     * +R3(7,1)+R3(2,9)*THREE+R1(2,1)*THREE)*QX
      F(5,2,1,1)= R6(8,1)+R4(8,1)+R4(3,5)+R2(5,1)+(+R5(8,2)+R3(8,1)
     * +R3(3,9)+R1(3,1))*QX+(+R5(4,2)+R3(4,1)+R3(1,9)+R1(1,1))*QZ+(
     * +R4(4,6)+R2(2,2)+R2(1,14)+R0(2))*XZ
      F(6,2,1,1)= R6(12,1)+R4(12,1)+R4(5,5)*THREE+R2(6,1)*THREE+(
     * +R5(7,2)+R3(7,1)+R3(2,9)*THREE+R1(2,1)*THREE)*QZ
      F(1,3,1,1)= R6(6,1)+R4(6,1)+R4(1,5)+R4(6,5)+R2(1,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(6,2)*TWO+R3(6,1)*TWO+R3(1,9)*TWO+R1(1,1)*TWO
     * )*QX+(+R5(3,3)*TWO+R3(3,2)*TWO+R3(3,10)*TWO+R1(3,2)*TWO)*QZ+(
     * +R4(6,6)+R2(3,2)+R2(1,14)+R0(2))*XX+(+R4(3,7)*FOUR+R2(5,3)*FOUR)
     * *XZ+(+R4(1,8)+R2(1,4)+R2(1,16)+R0(4))*ZZ+(+R3(3,11)*TWO
     * +R1(3,3)*TWO)*XXZ+(+R3(1,12)*TWO+R1(1,4)*TWO)*XZZ+(+R2(1,17)
     * +R0(5))*XXZZ
      F(2,3,1,1)= R6(13,1)+R4(13,1)+R4(4,5)+R4(6,5)+R2(2,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(8,3)*TWO+R3(8,2)*TWO+R3(3,10)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(4,8)+R2(2,4)+R2(1,16)+R0(4))*ZZ
      F(3,3,1,1)= R6(15,1)+R4(15,1)+R4(6,5)*SIX+R2(3,1)*SIX
     * +R2(1,13)*THREE+R0(1)*THREE+(+R5(10,2)*TWO+R5(10,3)*TWO
     * +R3(10,1)*TWO+R3(10,2)*TWO+R3(3,9)*SIX+R3(3,10)*SIX+R1(3,1)*SIX
     * +R1(3,2)*SIX)*QZ+(+R4(6,6)+R4(6,7)*FOUR+R4(6,8)+R2(3,2)
     * +R2(3,3)*FOUR+R2(3,4)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R3(3,11)*TWO+R3(3,12)*TWO+R1(3,3)*TWO
     * +R1(3,4)*TWO)*ZZZ+(+R2(1,17)+R0(5))*ZZZZ
      F(4,3,1,1)= R6(9,1)+R4(9,1)+R4(2,5)+R2(4,1)+(+R5(9,2)+R3(9,1)
     * +R3(2,9)+R1(2,1))*QX+(+R5(5,3)*TWO+R3(5,2)*TWO)*QZ+(+R4(5,7)*TWO
     * +R2(6,3)*TWO)*XZ+(+R4(2,8)+R2(4,4))*ZZ+(+R3(2,12)+R1(2,4))*XZZ
      F(5,3,1,1)= R6(10,1)+R4(10,1)+R4(3,5)*THREE+R2(5,1)*THREE+(
     * +R5(10,2)+R3(10,1)+R3(3,9)*THREE+R1(3,1)*THREE)*QX+(+R5(6,2)
     * +R5(6,3)*TWO+R3(6,1)+R3(6,2)*TWO+R3(1,9)+R3(1,10)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R4(6,6)+R4(6,7)*TWO+R2(3,2)+R2(3,3)*TWO
     * +R2(1,14)+R2(1,15)*TWO+R0(2)+R0(3)*TWO)*XZ+(+R4(3,7)*TWO+R4(3,8)
     * +R2(5,3)*TWO+R2(5,4))*ZZ+(+R3(3,11)*TWO+R3(3,12)+R1(3,3)*TWO
     * +R1(3,4))*XZZ+(+R3(1,12)+R1(1,4))*ZZZ+(+R2(1,17)+R0(5))*XZZZ
      F(6,3,1,1)= R6(14,1)+R4(14,1)+R4(5,5)*THREE+R2(6,1)*THREE+(
     * +R5(9,2)+R5(9,3)*TWO+R3(9,1)+R3(9,2)*TWO+R3(2,9)+R3(2,10)*TWO
     * +R1(2,1)+R1(2,2)*TWO)*QZ+(+R4(5,7)*TWO+R4(5,8)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R3(2,12)+R1(2,4))*ZZZ
      F(1,4,1,1)= R6(2,1)+R4(2,1)+R4(2,5)*THREE+R2(4,1)*THREE+(
     * +R5(2,2)*TWO+R5(2,3)+R3(2,1)*TWO+R3(2,2)+R3(2,9)*TWO+R3(2,10)
     * +R1(2,1)*TWO+R1(2,2))*QX+(+R4(2,6)+R4(2,7)*TWO+R2(4,2)
     * +R2(4,3)*TWO)*XX+(+R3(2,11)+R1(2,3))*XXX
      F(2,4,1,1)= R6(7,1)+R4(7,1)+R4(2,5)*THREE+R2(4,1)*THREE+(+R5(7,3)
     * +R3(7,2)+R3(2,10)*THREE+R1(2,2)*THREE)*QX
      F(3,4,1,1)= R6(9,1)+R4(9,1)+R4(2,5)+R2(4,1)+(+R5(9,3)+R3(9,2)
     * +R3(2,10)+R1(2,2))*QX+(+R5(5,2)*TWO+R3(5,1)*TWO)*QZ+(+R4(5,7)*TWO
     * +R2(6,3)*TWO)*XZ+(+R4(2,6)+R2(4,2))*ZZ+(+R3(2,11)+R1(2,3))*XZZ
      F(4,4,1,1)= R6(4,1)+R4(4,1)+R4(1,5)+R4(4,5)+R2(1,1)+R2(2,1)
     * +R2(1,13)+R0(1)+(+R5(4,2)+R5(4,3)+R3(4,1)+R3(4,2)+R3(1,9)
     * +R3(1,10)+R1(1,1)+R1(1,2))*QX+(+R4(4,7)+R2(2,3)+R2(1,15)+R0(3))
     * *XX
      F(5,4,1,1)= R6(5,1)+R4(5,1)+R4(5,5)+R2(6,1)+(+R5(5,2)+R5(5,3)
     * +R3(5,1)+R3(5,2))*QX+(+R5(2,2)+R3(2,1)+R3(2,9)+R1(2,1))*QZ+(
     * +R4(5,7)+R2(6,3))*XX+(+R4(2,6)+R4(2,7)+R2(4,2)+R2(4,3))*XZ+(
     * +R3(2,11)+R1(2,3))*XXZ
      F(6,4,1,1)= R6(8,1)+R4(8,1)+R4(3,5)+R2(5,1)+(+R5(8,3)+R3(8,2)
     * +R3(3,10)+R1(3,2))*QX+(+R5(4,2)+R3(4,1)+R3(1,9)+R1(1,1))*QZ+(
     * +R4(4,7)+R2(2,3)+R2(1,15)+R0(3))*XZ
      F(1,5,1,1)= R6(3,1)+R4(3,1)+R4(3,5)*THREE+R2(5,1)*THREE+(
     * +R5(3,2)*TWO+R5(3,3)+R3(3,1)*TWO+R3(3,2)+R3(3,9)*TWO+R3(3,10)
     * +R1(3,1)*TWO+R1(3,2))*QX+(+R5(1,3)+R3(1,2)+R3(1,10)*THREE
     * +R1(1,2)*THREE)*QZ+(+R4(3,6)+R4(3,7)*TWO+R2(5,2)+R2(5,3)*TWO)*XX
     * +(+R4(1,7)*TWO+R4(1,8)+R2(1,3)*TWO+R2(1,4)+R2(1,15)*TWO+R2(1,16)
     * +R0(3)*TWO+R0(4))*XZ+(+R3(3,11)+R1(3,3))*XXX+(+R3(1,11)
     * +R3(1,12)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(+R2(1,17)+R0(5))*XXXZ
      F(2,5,1,1)= R6(8,1)+R4(8,1)+R4(3,5)+R2(5,1)+(+R5(8,3)+R3(8,2)
     * +R3(3,10)+R1(3,2))*QX+(+R5(4,3)+R3(4,2)+R3(1,10)+R1(1,2))*QZ+(
     * +R4(4,8)+R2(2,4)+R2(1,16)+R0(4))*XZ
      F(3,5,1,1)= R6(10,1)+R4(10,1)+R4(3,5)*THREE+R2(5,1)*THREE+(
     * +R5(10,3)+R3(10,2)+R3(3,10)*THREE+R1(3,2)*THREE)*QX+(+R5(6,2)*TWO
     * +R5(6,3)+R3(6,1)*TWO+R3(6,2)+R3(1,9)*TWO+R3(1,10)+R1(1,1)*TWO
     * +R1(1,2))*QZ+(+R4(6,7)*TWO+R4(6,8)+R2(3,3)*TWO+R2(3,4)
     * +R2(1,15)*TWO+R2(1,16)+R0(3)*TWO+R0(4))*XZ+(+R4(3,6)+R4(3,7)*TWO
     * +R2(5,2)+R2(5,3)*TWO)*ZZ+(+R3(3,11)+R3(3,12)*TWO+R1(3,3)
     * +R1(3,4)*TWO)*XZZ+(+R3(1,11)+R1(1,3))*ZZZ+(+R2(1,17)+R0(5))*XZZZ
      F(4,5,1,1)= R6(5,1)+R4(5,1)+R4(5,5)+R2(6,1)+(+R5(5,2)+R5(5,3)
     * +R3(5,1)+R3(5,2))*QX+(+R5(2,3)+R3(2,2)+R3(2,10)+R1(2,2))*QZ+(
     * +R4(5,7)+R2(6,3))*XX+(+R4(2,7)+R4(2,8)+R2(4,3)+R2(4,4))*XZ+(
     * +R3(2,12)+R1(2,4))*XXZ
      F(5,5,1,1)= R6(6,1)+R4(6,1)+R4(1,5)+R4(6,5)+R2(1,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(6,2)+R5(6,3)+R3(6,1)+R3(6,2)+R3(1,9)
     * +R3(1,10)+R1(1,1)+R1(1,2))*QX+(+R5(3,2)+R5(3,3)+R3(3,1)+R3(3,2)
     * +R3(3,9)+R3(3,10)+R1(3,1)+R1(3,2))*QZ+(+R4(6,7)+R2(3,3)+R2(1,15)
     * +R0(3))*XX+(+R4(3,6)+R4(3,7)*TWO+R4(3,8)+R2(5,2)+R2(5,3)*TWO
     * +R2(5,4))*XZ+(+R4(1,7)+R2(1,3)+R2(1,15)+R0(3))*ZZ+(+R3(3,11)
     * +R3(3,12)+R1(3,3)+R1(3,4))*XXZ+(+R3(1,11)+R3(1,12)+R1(1,3)
     * +R1(1,4))*XZZ+(+R2(1,17)+R0(5))*XXZZ
      F(6,5,1,1)= R6(9,1)+R4(9,1)+R4(2,5)+R2(4,1)+(+R5(9,3)+R3(9,2)
     * +R3(2,10)+R1(2,2))*QX+(+R5(5,2)+R5(5,3)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(5,7)+R4(5,8)+R2(6,3)+R2(6,4))*XZ+(+R4(2,7)+R2(4,3))*ZZ+(
     * +R3(2,12)+R1(2,4))*XZZ
      F(1,6,1,1)= R6(5,1)+R4(5,1)+R4(5,5)+R2(6,1)+(+R5(5,2)*TWO
     * +R3(5,1)*TWO)*QX+(+R5(2,3)+R3(2,2)+R3(2,10)+R1(2,2))*QZ+(+R4(5,6)
     * +R2(6,2))*XX+(+R4(2,7)*TWO+R2(4,3)*TWO)*XZ+(+R3(2,11)+R1(2,3))
     * *XXZ
      F(2,6,1,1)= R6(12,1)+R4(12,1)+R4(5,5)*THREE+R2(6,1)*THREE+(
     * +R5(7,3)+R3(7,2)+R3(2,10)*THREE+R1(2,2)*THREE)*QZ
      F(3,6,1,1)= R6(14,1)+R4(14,1)+R4(5,5)*THREE+R2(6,1)*THREE+(
     * +R5(9,2)*TWO+R5(9,3)+R3(9,1)*TWO+R3(9,2)+R3(2,9)*TWO+R3(2,10)
     * +R1(2,1)*TWO+R1(2,2))*QZ+(+R4(5,6)+R4(5,7)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R3(2,11)+R1(2,3))*ZZZ
      F(4,6,1,1)= R6(8,1)+R4(8,1)+R4(3,5)+R2(5,1)+(+R5(8,2)+R3(8,1)
     * +R3(3,9)+R1(3,1))*QX+(+R5(4,3)+R3(4,2)+R3(1,10)+R1(1,2))*QZ+(
     * +R4(4,7)+R2(2,3)+R2(1,15)+R0(3))*XZ
      F(5,6,1,1)= R6(9,1)+R4(9,1)+R4(2,5)+R2(4,1)+(+R5(9,2)+R3(9,1)
     * +R3(2,9)+R1(2,1))*QX+(+R5(5,2)+R5(5,3)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(5,6)+R4(5,7)+R2(6,2)+R2(6,3))*XZ+(+R4(2,7)+R2(4,3))*ZZ+(
     * +R3(2,11)+R1(2,3))*XZZ
      F(6,6,1,1)= R6(13,1)+R4(13,1)+R4(4,5)+R4(6,5)+R2(2,1)+R2(3,1)
     * +R2(1,13)+R0(1)+(+R5(8,2)+R5(8,3)+R3(8,1)+R3(8,2)+R3(3,9)
     * +R3(3,10)+R1(3,1)+R1(3,2))*QZ+(+R4(4,7)+R2(2,3)+R2(1,15)+R0(3))
     * *ZZ
      F(1,1,2,1)= R6(4,1)+R4(1,1)+R4(4,5)*SIX+R2(1,1)*SIX+R2(2,13)*THREE
     * +R0(1)*THREE+(+R5(4,2)*TWO+R5(4,3)*TWO+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(4,9)*SIX+R3(4,10)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)*QX+(+R4(4,6)
     * +R4(4,7)*FOUR+R4(4,8)+R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(2,14)
     * +R2(2,15)*FOUR+R2(2,16)+R0(2)+R0(3)*FOUR+R0(4))*XX+(+R3(4,11)*TWO
     * +R3(4,12)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(+R2(2,17)+R0(5))*XXXX
      F(2,1,2,1)= R6(11,1)+R4(4,1)+R4(4,5)+R4(11,5)+R2(1,1)+R2(2,1)
     * +R2(2,13)+R0(1)+(+R5(11,3)*TWO+R3(4,2)*TWO+R3(4,10)*TWO
     * +R1(1,2)*TWO)*QX+(+R4(11,8)+R2(2,4)+R2(2,16)+R0(4))*XX
      F(3,1,2,1)= R6(13,1)+R4(6,1)+R4(4,5)+R4(13,5)+R2(1,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(13,3)*TWO+R3(6,2)*TWO+R3(4,10)*TWO
     * +R1(1,2)*TWO)*QX+(+R5(8,2)*TWO+R3(3,1)*TWO+R3(8,9)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(13,8)+R2(3,4)+R2(2,16)+R0(4))*XX+(
     * +R4(8,7)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(4,6)+R2(1,2)+R2(2,14)+R0(2))
     * *ZZ+(+R3(8,12)*TWO+R1(3,4)*TWO)*XXZ+(+R3(4,11)*TWO+R1(1,3)*TWO)
     * *XZZ+(+R2(2,17)+R0(5))*XXZZ
      F(4,1,2,1)= R6(7,1)+R4(2,1)+R4(7,5)*THREE+R2(4,1)*THREE+(+R5(7,2)
     * +R5(7,3)*TWO+R3(2,1)+R3(2,2)*TWO+R3(7,9)+R3(7,10)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QX+(+R4(7,7)*TWO+R4(7,8)+R2(4,3)*TWO+R2(4,4))*XX+(
     * +R3(7,12)+R1(2,4))*XXX
      F(5,1,2,1)= R6(8,1)+R4(3,1)+R4(8,5)*THREE+R2(5,1)*THREE+(+R5(8,2)
     * +R5(8,3)*TWO+R3(3,1)+R3(3,2)*TWO+R3(8,9)+R3(8,10)*TWO+R1(3,1)
     * +R1(3,2)*TWO)*QX+(+R5(4,2)+R3(1,1)+R3(4,9)*THREE+R1(1,1)*THREE)
     * *QZ+(+R4(8,7)*TWO+R4(8,8)+R2(5,3)*TWO+R2(5,4))*XX+(+R4(4,6)
     * +R4(4,7)*TWO+R2(1,2)+R2(1,3)*TWO+R2(2,14)+R2(2,15)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R3(8,12)+R1(3,4))*XXX+(+R3(4,11)*TWO+R3(4,12)
     * +R1(1,3)*TWO+R1(1,4))*XXZ+(+R2(2,17)+R0(5))*XXXZ
      F(6,1,2,1)= R6(12,1)+R4(5,1)+R4(12,5)+R2(6,1)+(+R5(12,3)*TWO
     * +R3(5,2)*TWO)*QX+(+R5(7,2)+R3(2,1)+R3(7,9)+R1(2,1))*QZ+(+R4(12,8)
     * +R2(6,4))*XX+(+R4(7,7)*TWO+R2(4,3)*TWO)*XZ+(+R3(7,12)+R1(2,4))
     * *XXZ
      F(1,2,2,1)= R6(11,1)+R4(4,1)+R4(4,5)+R4(11,5)+R2(1,1)+R2(2,1)
     * +R2(2,13)+R0(1)+(+R5(11,2)*TWO+R3(4,1)*TWO+R3(4,9)*TWO
     * +R1(1,1)*TWO)*QX+(+R4(11,6)+R2(2,2)+R2(2,14)+R0(2))*XX
      F(2,2,2,1)= R6(22,1)+R4(11,1)+R4(11,5)*SIX+R2(2,1)*SIX
     * +R2(2,13)*THREE+R0(1)*THREE
      F(3,2,2,1)= R6(24,1)+R4(13,1)+R4(11,5)+R4(13,5)+R2(2,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(17,2)*TWO+R3(8,1)*TWO+R3(8,9)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(11,6)+R2(2,2)+R2(2,14)+R0(2))*ZZ
      F(4,2,2,1)= R6(16,1)+R4(7,1)+R4(7,5)*THREE+R2(4,1)*THREE+(
     * +R5(16,2)+R3(7,1)+R3(7,9)*THREE+R1(2,1)*THREE)*QX
      F(5,2,2,1)= R6(17,1)+R4(8,1)+R4(8,5)+R2(5,1)+(+R5(17,2)+R3(8,1)
     * +R3(8,9)+R1(3,1))*QX+(+R5(11,2)+R3(4,1)+R3(4,9)+R1(1,1))*QZ+(
     * +R4(11,6)+R2(2,2)+R2(2,14)+R0(2))*XZ
      F(6,2,2,1)= R6(23,1)+R4(12,1)+R4(12,5)*THREE+R2(6,1)*THREE+(
     * +R5(16,2)+R3(7,1)+R3(7,9)*THREE+R1(2,1)*THREE)*QZ
      F(1,3,2,1)= R6(13,1)+R4(6,1)+R4(4,5)+R4(13,5)+R2(1,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(13,2)*TWO+R3(6,1)*TWO+R3(4,9)*TWO
     * +R1(1,1)*TWO)*QX+(+R5(8,3)*TWO+R3(3,2)*TWO+R3(8,10)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(13,6)+R2(3,2)+R2(2,14)+R0(2))*XX+(
     * +R4(8,7)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(4,8)+R2(1,4)+R2(2,16)+R0(4))
     * *ZZ+(+R3(8,11)*TWO+R1(3,3)*TWO)*XXZ+(+R3(4,12)*TWO+R1(1,4)*TWO)
     * *XZZ+(+R2(2,17)+R0(5))*XXZZ
      F(2,3,2,1)= R6(24,1)+R4(13,1)+R4(11,5)+R4(13,5)+R2(2,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(17,3)*TWO+R3(8,2)*TWO+R3(8,10)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(11,8)+R2(2,4)+R2(2,16)+R0(4))*ZZ
      F(3,3,2,1)= R6(26,1)+R4(15,1)+R4(13,5)*SIX+R2(3,1)*SIX
     * +R2(2,13)*THREE+R0(1)*THREE+(+R5(19,2)*TWO+R5(19,3)*TWO
     * +R3(10,1)*TWO+R3(10,2)*TWO+R3(8,9)*SIX+R3(8,10)*SIX+R1(3,1)*SIX
     * +R1(3,2)*SIX)*QZ+(+R4(13,6)+R4(13,7)*FOUR+R4(13,8)+R2(3,2)
     * +R2(3,3)*FOUR+R2(3,4)+R2(2,14)+R2(2,15)*FOUR+R2(2,16)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R3(8,11)*TWO+R3(8,12)*TWO+R1(3,3)*TWO
     * +R1(3,4)*TWO)*ZZZ+(+R2(2,17)+R0(5))*ZZZZ
      F(4,3,2,1)= R6(18,1)+R4(9,1)+R4(7,5)+R2(4,1)+(+R5(18,2)+R3(9,1)
     * +R3(7,9)+R1(2,1))*QX+(+R5(12,3)*TWO+R3(5,2)*TWO)*QZ+(
     * +R4(12,7)*TWO+R2(6,3)*TWO)*XZ+(+R4(7,8)+R2(4,4))*ZZ+(+R3(7,12)
     * +R1(2,4))*XZZ
      F(5,3,2,1)= R6(19,1)+R4(10,1)+R4(8,5)*THREE+R2(5,1)*THREE+(
     * +R5(19,2)+R3(10,1)+R3(8,9)*THREE+R1(3,1)*THREE)*QX+(+R5(13,2)
     * +R5(13,3)*TWO+R3(6,1)+R3(6,2)*TWO+R3(4,9)+R3(4,10)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R4(13,6)+R4(13,7)*TWO+R2(3,2)+R2(3,3)*TWO
     * +R2(2,14)+R2(2,15)*TWO+R0(2)+R0(3)*TWO)*XZ+(+R4(8,7)*TWO+R4(8,8)
     * +R2(5,3)*TWO+R2(5,4))*ZZ+(+R3(8,11)*TWO+R3(8,12)+R1(3,3)*TWO
     * +R1(3,4))*XZZ+(+R3(4,12)+R1(1,4))*ZZZ+(+R2(2,17)+R0(5))*XZZZ
      F(6,3,2,1)= R6(25,1)+R4(14,1)+R4(12,5)*THREE+R2(6,1)*THREE+(
     * +R5(18,2)+R5(18,3)*TWO+R3(9,1)+R3(9,2)*TWO+R3(7,9)+R3(7,10)*TWO
     * +R1(2,1)+R1(2,2)*TWO)*QZ+(+R4(12,7)*TWO+R4(12,8)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R3(7,12)+R1(2,4))*ZZZ
      F(1,4,2,1)= R6(7,1)+R4(2,1)+R4(7,5)*THREE+R2(4,1)*THREE+(
     * +R5(7,2)*TWO+R5(7,3)+R3(2,1)*TWO+R3(2,2)+R3(7,9)*TWO+R3(7,10)
     * +R1(2,1)*TWO+R1(2,2))*QX+(+R4(7,6)+R4(7,7)*TWO+R2(4,2)
     * +R2(4,3)*TWO)*XX+(+R3(7,11)+R1(2,3))*XXX
      F(2,4,2,1)= R6(16,1)+R4(7,1)+R4(7,5)*THREE+R2(4,1)*THREE+(
     * +R5(16,3)+R3(7,2)+R3(7,10)*THREE+R1(2,2)*THREE)*QX
      F(3,4,2,1)= R6(18,1)+R4(9,1)+R4(7,5)+R2(4,1)+(+R5(18,3)+R3(9,2)
     * +R3(7,10)+R1(2,2))*QX+(+R5(12,2)*TWO+R3(5,1)*TWO)*QZ+(
     * +R4(12,7)*TWO+R2(6,3)*TWO)*XZ+(+R4(7,6)+R2(4,2))*ZZ+(+R3(7,11)
     * +R1(2,3))*XZZ
      F(4,4,2,1)= R6(11,1)+R4(4,1)+R4(4,5)+R4(11,5)+R2(1,1)+R2(2,1)
     * +R2(2,13)+R0(1)+(+R5(11,2)+R5(11,3)+R3(4,1)+R3(4,2)+R3(4,9)
     * +R3(4,10)+R1(1,1)+R1(1,2))*QX+(+R4(11,7)+R2(2,3)+R2(2,15)+R0(3))
     * *XX
      F(5,4,2,1)= R6(12,1)+R4(5,1)+R4(12,5)+R2(6,1)+(+R5(12,2)+R5(12,3)
     * +R3(5,1)+R3(5,2))*QX+(+R5(7,2)+R3(2,1)+R3(7,9)+R1(2,1))*QZ+(
     * +R4(12,7)+R2(6,3))*XX+(+R4(7,6)+R4(7,7)+R2(4,2)+R2(4,3))*XZ+(
     * +R3(7,11)+R1(2,3))*XXZ
      F(6,4,2,1)= R6(17,1)+R4(8,1)+R4(8,5)+R2(5,1)+(+R5(17,3)+R3(8,2)
     * +R3(8,10)+R1(3,2))*QX+(+R5(11,2)+R3(4,1)+R3(4,9)+R1(1,1))*QZ+(
     * +R4(11,7)+R2(2,3)+R2(2,15)+R0(3))*XZ
      F(1,5,2,1)= R6(8,1)+R4(3,1)+R4(8,5)*THREE+R2(5,1)*THREE+(
     * +R5(8,2)*TWO+R5(8,3)+R3(3,1)*TWO+R3(3,2)+R3(8,9)*TWO+R3(8,10)
     * +R1(3,1)*TWO+R1(3,2))*QX+(+R5(4,3)+R3(1,2)+R3(4,10)*THREE
     * +R1(1,2)*THREE)*QZ+(+R4(8,6)+R4(8,7)*TWO+R2(5,2)+R2(5,3)*TWO)*XX
     * +(+R4(4,7)*TWO+R4(4,8)+R2(1,3)*TWO+R2(1,4)+R2(2,15)*TWO+R2(2,16)
     * +R0(3)*TWO+R0(4))*XZ+(+R3(8,11)+R1(3,3))*XXX+(+R3(4,11)
     * +R3(4,12)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(+R2(2,17)+R0(5))*XXXZ
      F(2,5,2,1)= R6(17,1)+R4(8,1)+R4(8,5)+R2(5,1)+(+R5(17,3)+R3(8,2)
     * +R3(8,10)+R1(3,2))*QX+(+R5(11,3)+R3(4,2)+R3(4,10)+R1(1,2))*QZ+(
     * +R4(11,8)+R2(2,4)+R2(2,16)+R0(4))*XZ
      F(3,5,2,1)= R6(19,1)+R4(10,1)+R4(8,5)*THREE+R2(5,1)*THREE+(
     * +R5(19,3)+R3(10,2)+R3(8,10)*THREE+R1(3,2)*THREE)*QX+(
     * +R5(13,2)*TWO+R5(13,3)+R3(6,1)*TWO+R3(6,2)+R3(4,9)*TWO+R3(4,10)
     * +R1(1,1)*TWO+R1(1,2))*QZ+(+R4(13,7)*TWO+R4(13,8)+R2(3,3)*TWO
     * +R2(3,4)+R2(2,15)*TWO+R2(2,16)+R0(3)*TWO+R0(4))*XZ+(+R4(8,6)
     * +R4(8,7)*TWO+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R3(8,11)+R3(8,12)*TWO
     * +R1(3,3)+R1(3,4)*TWO)*XZZ+(+R3(4,11)+R1(1,3))*ZZZ+(+R2(2,17)
     * +R0(5))*XZZZ
      F(4,5,2,1)= R6(12,1)+R4(5,1)+R4(12,5)+R2(6,1)+(+R5(12,2)+R5(12,3)
     * +R3(5,1)+R3(5,2))*QX+(+R5(7,3)+R3(2,2)+R3(7,10)+R1(2,2))*QZ+(
     * +R4(12,7)+R2(6,3))*XX+(+R4(7,7)+R4(7,8)+R2(4,3)+R2(4,4))*XZ+(
     * +R3(7,12)+R1(2,4))*XXZ
      F(5,5,2,1)= R6(13,1)+R4(6,1)+R4(4,5)+R4(13,5)+R2(1,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(13,2)+R5(13,3)+R3(6,1)+R3(6,2)+R3(4,9)
     * +R3(4,10)+R1(1,1)+R1(1,2))*QX+(+R5(8,2)+R5(8,3)+R3(3,1)+R3(3,2)
     * +R3(8,9)+R3(8,10)+R1(3,1)+R1(3,2))*QZ+(+R4(13,7)+R2(3,3)+R2(2,15)
     * +R0(3))*XX+(+R4(8,6)+R4(8,7)*TWO+R4(8,8)+R2(5,2)+R2(5,3)*TWO
     * +R2(5,4))*XZ+(+R4(4,7)+R2(1,3)+R2(2,15)+R0(3))*ZZ+(+R3(8,11)
     * +R3(8,12)+R1(3,3)+R1(3,4))*XXZ+(+R3(4,11)+R3(4,12)+R1(1,3)
     * +R1(1,4))*XZZ+(+R2(2,17)+R0(5))*XXZZ
      F(6,5,2,1)= R6(18,1)+R4(9,1)+R4(7,5)+R2(4,1)+(+R5(18,3)+R3(9,2)
     * +R3(7,10)+R1(2,2))*QX+(+R5(12,2)+R5(12,3)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(12,7)+R4(12,8)+R2(6,3)+R2(6,4))*XZ+(+R4(7,7)+R2(4,3))*ZZ+(
     * +R3(7,12)+R1(2,4))*XZZ
      F(1,6,2,1)= R6(12,1)+R4(5,1)+R4(12,5)+R2(6,1)+(+R5(12,2)*TWO
     * +R3(5,1)*TWO)*QX+(+R5(7,3)+R3(2,2)+R3(7,10)+R1(2,2))*QZ+(
     * +R4(12,6)+R2(6,2))*XX+(+R4(7,7)*TWO+R2(4,3)*TWO)*XZ+(+R3(7,11)
     * +R1(2,3))*XXZ
      F(2,6,2,1)= R6(23,1)+R4(12,1)+R4(12,5)*THREE+R2(6,1)*THREE+(
     * +R5(16,3)+R3(7,2)+R3(7,10)*THREE+R1(2,2)*THREE)*QZ
      F(3,6,2,1)= R6(25,1)+R4(14,1)+R4(12,5)*THREE+R2(6,1)*THREE+(
     * +R5(18,2)*TWO+R5(18,3)+R3(9,1)*TWO+R3(9,2)+R3(7,9)*TWO+R3(7,10)
     * +R1(2,1)*TWO+R1(2,2))*QZ+(+R4(12,6)+R4(12,7)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R3(7,11)+R1(2,3))*ZZZ
      F(4,6,2,1)= R6(17,1)+R4(8,1)+R4(8,5)+R2(5,1)+(+R5(17,2)+R3(8,1)
     * +R3(8,9)+R1(3,1))*QX+(+R5(11,3)+R3(4,2)+R3(4,10)+R1(1,2))*QZ+(
     * +R4(11,7)+R2(2,3)+R2(2,15)+R0(3))*XZ
      F(5,6,2,1)= R6(18,1)+R4(9,1)+R4(7,5)+R2(4,1)+(+R5(18,2)+R3(9,1)
     * +R3(7,9)+R1(2,1))*QX+(+R5(12,2)+R5(12,3)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(12,6)+R4(12,7)+R2(6,2)+R2(6,3))*XZ+(+R4(7,7)+R2(4,3))*ZZ+(
     * +R3(7,11)+R1(2,3))*XZZ
      F(6,6,2,1)= R6(24,1)+R4(13,1)+R4(11,5)+R4(13,5)+R2(2,1)+R2(3,1)
     * +R2(2,13)+R0(1)+(+R5(17,2)+R5(17,3)+R3(8,1)+R3(8,2)+R3(8,9)
     * +R3(8,10)+R1(3,1)+R1(3,2))*QZ+(+R4(11,7)+R2(2,3)+R2(2,15)+R0(3))
     * *ZZ
      F(1,1,3,1)= R6(6,1)-R5(3,1)*TWO+R4(1,1)+R4(1,2)+R4(6,5)*SIX
     * -R3(3,5)*TWELV+R2(1,1)*SIX+R2(1,5)*SIX+R2(3,13)*THREE-R1(3,9)*SIX
     * +R0(1)*THREE+R0(6)*THREE+(+R5(6,2)*TWO+R5(6,3)*TWO-R4(3,3)*FOUR
     * -R4(3,4)*FOUR+R3(1,1)*TWO+R3(1,2)*TWO+R3(1,3)*TWO+R3(1,4)*TWO
     * +R3(6,9)*SIX+R3(6,10)*SIX-R2(5,9)*TWELV-R2(5,10)*TWELV
     * +R1(1,1)*SIX+R1(1,2)*SIX+R1(1,5)*SIX+R1(1,6)*SIX)*QX+(+R4(6,6)
     * +R4(6,7)*FOUR+R4(6,8)-R3(3,6)*TWO-R3(3,7)*EIGHT-R3(3,8)*TWO
     * +R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,6)+R2(1,7)*FOUR+R2(1,8)
     * +R2(3,14)+R2(3,15)*FOUR+R2(3,16)-R1(3,10)*TWO-R1(3,11)*EIGHT
     * -R1(3,12)*TWO+R0(2)+R0(3)*FOUR+R0(4)+R0(7)+R0(8)*FOUR+R0(9))*XX+(
     * +R3(6,11)*TWO+R3(6,12)*TWO-R2(5,11)*FOUR-R2(5,12)*FOUR
     * +R1(1,3)*TWO+R1(1,4)*TWO+R1(1,7)*TWO+R1(1,8)*TWO)*XXX+(+R2(3,17)
     * -R1(3,13)*TWO+R0(5)+R0(10))*XXXX
      F(2,1,3,1)= R6(13,1)-R5(8,1)*TWO+R4(4,1)+R4(4,2)+R4(6,5)+R4(13,5)
     * -R3(3,5)*TWO-R3(8,5)*TWO+R2(1,1)+R2(2,1)+R2(1,5)+R2(2,5)+R2(3,13)
     * -R1(3,9)*TWO+R0(1)+R0(6)+(+R5(13,3)*TWO-R4(8,4)*FOUR+R3(4,2)*TWO
     * +R3(4,4)*TWO+R3(6,10)*TWO-R2(5,10)*FOUR+R1(1,2)*TWO+R1(1,6)*TWO)
     * *QX+(+R4(13,8)-R3(8,8)*TWO+R2(2,4)+R2(2,8)+R2(3,16)-R1(3,12)*TWO
     * +R0(4)+R0(9))*XX
      F(3,1,3,1)= R6(15,1)-R5(10,1)*TWO+R4(6,1)+R4(6,2)+R4(6,5)+R4(15,5)
     * -R3(3,5)*TWO-R3(10,5)*TWO+R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)
     * +R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(15,3)*TWO-R4(10,4)*FOUR
     * +R3(6,2)*TWO+R3(6,4)*TWO+R3(6,10)*TWO-R2(5,10)*FOUR+R1(1,2)*TWO
     * +R1(1,6)*TWO)*QX+(+R5(10,2)*TWO-R4(6,3)*FOUR+R3(3,1)*TWO
     * +R3(3,3)*TWO+R3(10,9)*TWO-R2(3,9)*FOUR+R1(3,1)*TWO+R1(3,5)*TWO)
     * *QZ+(+R4(15,8)-R3(10,8)*TWO+R2(3,4)+R2(3,8)+R2(3,16)-R1(3,12)*TWO
     * +R0(4)+R0(9))*XX+(+R4(10,7)*FOUR-R3(6,7)*EIGHT+R2(5,3)*FOUR
     * +R2(5,7)*FOUR)*XZ+(+R4(6,6)-R3(3,6)*TWO+R2(1,2)+R2(1,6)+R2(3,14)
     * -R1(3,10)*TWO+R0(2)+R0(7))*ZZ+(+R3(10,12)*TWO-R2(3,12)*FOUR
     * +R1(3,4)*TWO+R1(3,8)*TWO)*XXZ+(+R3(6,11)*TWO-R2(5,11)*FOUR
     * +R1(1,3)*TWO+R1(1,7)*TWO)*XZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)
     * +R0(10))*XXZZ
      F(4,1,3,1)= R6(9,1)-R5(5,1)*TWO+R4(2,1)+R4(2,2)+R4(9,5)*THREE
     * -R3(5,5)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(9,2)+R5(9,3)*TWO
     * -R4(5,3)*TWO-R4(5,4)*FOUR+R3(2,1)+R3(2,2)*TWO+R3(2,3)+R3(2,4)*TWO
     * +R3(9,9)+R3(9,10)*TWO-R2(6,9)*TWO-R2(6,10)*FOUR+R1(2,1)
     * +R1(2,2)*TWO+R1(2,5)+R1(2,6)*TWO)*QX+(+R4(9,7)*TWO+R4(9,8)
     * -R3(5,7)*FOUR-R3(5,8)*TWO+R2(4,3)*TWO+R2(4,4)+R2(4,7)*TWO+R2(4,8)
     * )*XX+(+R3(9,12)-R2(6,12)*TWO+R1(2,4)+R1(2,8))*XXX
      F(5,1,3,1)= R6(10,1)-R5(6,1)*TWO+R4(3,1)+R4(3,2)+R4(10,5)*THREE
     * -R3(6,5)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(10,2)+R5(10,3)*TWO
     * -R4(6,3)*TWO-R4(6,4)*FOUR+R3(3,1)+R3(3,2)*TWO+R3(3,3)+R3(3,4)*TWO
     * +R3(10,9)+R3(10,10)*TWO-R2(3,9)*TWO-R2(3,10)*FOUR+R1(3,1)
     * +R1(3,2)*TWO+R1(3,5)+R1(3,6)*TWO)*QX+(+R5(6,2)-R4(3,3)*TWO
     * +R3(1,1)+R3(1,3)+R3(6,9)*THREE-R2(5,9)*SIX+R1(1,1)*THREE
     * +R1(1,5)*THREE)*QZ+(+R4(10,7)*TWO+R4(10,8)-R3(6,7)*FOUR
     * -R3(6,8)*TWO+R2(5,3)*TWO+R2(5,4)+R2(5,7)*TWO+R2(5,8))*XX+(
     * +R4(6,6)+R4(6,7)*TWO-R3(3,6)*TWO-R3(3,7)*FOUR+R2(1,2)+R2(1,3)*TWO
     * +R2(1,6)+R2(1,7)*TWO+R2(3,14)+R2(3,15)*TWO-R1(3,10)*TWO
     * -R1(3,11)*FOUR+R0(2)+R0(3)*TWO+R0(7)+R0(8)*TWO)*XZ+(+R3(10,12)
     * -R2(3,12)*TWO+R1(3,4)+R1(3,8))*XXX+(+R3(6,11)*TWO+R3(6,12)
     * -R2(5,11)*FOUR-R2(5,12)*TWO+R1(1,3)*TWO+R1(1,4)+R1(1,7)*TWO
     * +R1(1,8))*XXZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)+R0(10))*XXXZ
      F(6,1,3,1)= R6(14,1)-R5(9,1)*TWO+R4(5,1)+R4(5,2)+R4(14,5)
     * -R3(9,5)*TWO+R2(6,1)+R2(6,5)+(+R5(14,3)*TWO-R4(9,4)*FOUR
     * +R3(5,2)*TWO+R3(5,4)*TWO)*QX+(+R5(9,2)-R4(5,3)*TWO+R3(2,1)
     * +R3(2,3)+R3(9,9)-R2(6,9)*TWO+R1(2,1)+R1(2,5))*QZ+(+R4(14,8)
     * -R3(9,8)*TWO+R2(6,4)+R2(6,8))*XX+(+R4(9,7)*TWO-R3(5,7)*FOUR
     * +R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R3(9,12)-R2(6,12)*TWO+R1(2,4)
     * +R1(2,8))*XXZ
      F(1,2,3,1)= R6(13,1)-R5(8,1)*TWO+R4(4,1)+R4(4,2)+R4(6,5)+R4(13,5)
     * -R3(3,5)*TWO-R3(8,5)*TWO+R2(1,1)+R2(2,1)+R2(1,5)+R2(2,5)+R2(3,13)
     * -R1(3,9)*TWO+R0(1)+R0(6)+(+R5(13,2)*TWO-R4(8,3)*FOUR+R3(4,1)*TWO
     * +R3(4,3)*TWO+R3(6,9)*TWO-R2(5,9)*FOUR+R1(1,1)*TWO+R1(1,5)*TWO)*QX
     * +(+R4(13,6)-R3(8,6)*TWO+R2(2,2)+R2(2,6)+R2(3,14)-R1(3,10)*TWO
     * +R0(2)+R0(7))*XX
      F(2,2,3,1)= R6(24,1)-R5(17,1)*TWO+R4(11,1)+R4(11,2)+R4(13,5)*SIX
     * -R3(8,5)*TWELV+R2(2,1)*SIX+R2(2,5)*SIX+R2(3,13)*THREE-R1(3,9)*SIX
     * +R0(1)*THREE+R0(6)*THREE
      F(3,2,3,1)= R6(26,1)-R5(19,1)*TWO+R4(13,1)+R4(13,2)+R4(13,5)
     * +R4(15,5)-R3(8,5)*TWO-R3(10,5)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(19,2)*TWO
     * -R4(13,3)*FOUR+R3(8,1)*TWO+R3(8,3)*TWO+R3(10,9)*TWO-R2(3,9)*FOUR
     * +R1(3,1)*TWO+R1(3,5)*TWO)*QZ+(+R4(13,6)-R3(8,6)*TWO+R2(2,2)
     * +R2(2,6)+R2(3,14)-R1(3,10)*TWO+R0(2)+R0(7))*ZZ
      F(4,2,3,1)= R6(18,1)-R5(12,1)*TWO+R4(7,1)+R4(7,2)+R4(9,5)*THREE
     * -R3(5,5)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(18,2)-R4(12,3)*TWO
     * +R3(7,1)+R3(7,3)+R3(9,9)*THREE-R2(6,9)*SIX+R1(2,1)*THREE
     * +R1(2,5)*THREE)*QX
      F(5,2,3,1)= R6(19,1)-R5(13,1)*TWO+R4(8,1)+R4(8,2)+R4(10,5)
     * -R3(6,5)*TWO+R2(5,1)+R2(5,5)+(+R5(19,2)-R4(13,3)*TWO+R3(8,1)
     * +R3(8,3)+R3(10,9)-R2(3,9)*TWO+R1(3,1)+R1(3,5))*QX+(+R5(13,2)
     * -R4(8,3)*TWO+R3(4,1)+R3(4,3)+R3(6,9)-R2(5,9)*TWO+R1(1,1)+R1(1,5))
     * *QZ+(+R4(13,6)-R3(8,6)*TWO+R2(2,2)+R2(2,6)+R2(3,14)-R1(3,10)*TWO
     * +R0(2)+R0(7))*XZ
      F(6,2,3,1)= R6(25,1)-R5(18,1)*TWO+R4(12,1)+R4(12,2)+R4(14,5)*THREE
     * -R3(9,5)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(+R5(18,2)-R4(12,3)*TWO
     * +R3(7,1)+R3(7,3)+R3(9,9)*THREE-R2(6,9)*SIX+R1(2,1)*THREE
     * +R1(2,5)*THREE)*QZ
      F(1,3,3,1)= R6(15,1)-R5(10,1)*TWO+R4(6,1)+R4(6,2)+R4(6,5)+R4(15,5)
     * -R3(3,5)*TWO-R3(10,5)*TWO+R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)
     * +R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(15,2)*TWO-R4(10,3)*FOUR
     * +R3(6,1)*TWO+R3(6,3)*TWO+R3(6,9)*TWO-R2(5,9)*FOUR+R1(1,1)*TWO
     * +R1(1,5)*TWO)*QX+(+R5(10,3)*TWO-R4(6,4)*FOUR+R3(3,2)*TWO
     * +R3(3,4)*TWO+R3(10,10)*TWO-R2(3,10)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)
     * *QZ+(+R4(15,6)-R3(10,6)*TWO+R2(3,2)+R2(3,6)+R2(3,14)-R1(3,10)*TWO
     * +R0(2)+R0(7))*XX+(+R4(10,7)*FOUR-R3(6,7)*EIGHT+R2(5,3)*FOUR
     * +R2(5,7)*FOUR)*XZ+(+R4(6,8)-R3(3,8)*TWO+R2(1,4)+R2(1,8)+R2(3,16)
     * -R1(3,12)*TWO+R0(4)+R0(9))*ZZ+(+R3(10,11)*TWO-R2(3,11)*FOUR
     * +R1(3,3)*TWO+R1(3,7)*TWO)*XXZ+(+R3(6,12)*TWO-R2(5,12)*FOUR
     * +R1(1,4)*TWO+R1(1,8)*TWO)*XZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)
     * +R0(10))*XXZZ
      F(2,3,3,1)= R6(26,1)-R5(19,1)*TWO+R4(13,1)+R4(13,2)+R4(13,5)
     * +R4(15,5)-R3(8,5)*TWO-R3(10,5)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(19,3)*TWO
     * -R4(13,4)*FOUR+R3(8,2)*TWO+R3(8,4)*TWO+R3(10,10)*TWO
     * -R2(3,10)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)*QZ+(+R4(13,8)-R3(8,8)*TWO
     * +R2(2,4)+R2(2,8)+R2(3,16)-R1(3,12)*TWO+R0(4)+R0(9))*ZZ
      F(3,3,3,1)= R6(28,1)-R5(21,1)*TWO+R4(15,1)+R4(15,2)+R4(15,5)*SIX
     * -R3(10,5)*TWELV+R2(3,1)*SIX+R2(3,5)*SIX+R2(3,13)*THREE
     * -R1(3,9)*SIX+R0(1)*THREE+R0(6)*THREE+(+R5(21,2)*TWO+R5(21,3)*TWO
     * -R4(15,3)*FOUR-R4(15,4)*FOUR+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,3)*TWO+R3(10,4)*TWO+R3(10,9)*SIX+R3(10,10)*SIX
     * -R2(3,9)*TWELV-R2(3,10)*TWELV+R1(3,1)*SIX+R1(3,2)*SIX+R1(3,5)*SIX
     * +R1(3,6)*SIX)*QZ+(+R4(15,6)+R4(15,7)*FOUR+R4(15,8)-R3(10,6)*TWO
     * -R3(10,7)*EIGHT-R3(10,8)*TWO+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(3,6)
     * +R2(3,7)*FOUR+R2(3,8)+R2(3,14)+R2(3,15)*FOUR+R2(3,16)
     * -R1(3,10)*TWO-R1(3,11)*EIGHT-R1(3,12)*TWO+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(7)+R0(8)*FOUR+R0(9))*ZZ+(+R3(10,11)*TWO+R3(10,12)*TWO
     * -R2(3,11)*FOUR-R2(3,12)*FOUR+R1(3,3)*TWO+R1(3,4)*TWO+R1(3,7)*TWO
     * +R1(3,8)*TWO)*ZZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)+R0(10))*ZZZZ
      F(4,3,3,1)= R6(20,1)-R5(14,1)*TWO+R4(9,1)+R4(9,2)+R4(9,5)
     * -R3(5,5)*TWO+R2(4,1)+R2(4,5)+(+R5(20,2)-R4(14,3)*TWO+R3(9,1)
     * +R3(9,3)+R3(9,9)-R2(6,9)*TWO+R1(2,1)+R1(2,5))*QX+(+R5(14,3)*TWO
     * -R4(9,4)*FOUR+R3(5,2)*TWO+R3(5,4)*TWO)*QZ+(+R4(14,7)*TWO
     * -R3(9,7)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(+R4(9,8)-R3(5,8)*TWO
     * +R2(4,4)+R2(4,8))*ZZ+(+R3(9,12)-R2(6,12)*TWO+R1(2,4)+R1(2,8))*XZZ
      F(5,3,3,1)= R6(21,1)-R5(15,1)*TWO+R4(10,1)+R4(10,2)+R4(10,5)*THREE
     * -R3(6,5)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(21,2)-R4(15,3)*TWO
     * +R3(10,1)+R3(10,3)+R3(10,9)*THREE-R2(3,9)*SIX+R1(3,1)*THREE
     * +R1(3,5)*THREE)*QX+(+R5(15,2)+R5(15,3)*TWO-R4(10,3)*TWO
     * -R4(10,4)*FOUR+R3(6,1)+R3(6,2)*TWO+R3(6,3)+R3(6,4)*TWO+R3(6,9)
     * +R3(6,10)*TWO-R2(5,9)*TWO-R2(5,10)*FOUR+R1(1,1)+R1(1,2)*TWO
     * +R1(1,5)+R1(1,6)*TWO)*QZ+(+R4(15,6)+R4(15,7)*TWO-R3(10,6)*TWO
     * -R3(10,7)*FOUR+R2(3,2)+R2(3,3)*TWO+R2(3,6)+R2(3,7)*TWO+R2(3,14)
     * +R2(3,15)*TWO-R1(3,10)*TWO-R1(3,11)*FOUR+R0(2)+R0(3)*TWO+R0(7)
     * +R0(8)*TWO)*XZ+(+R4(10,7)*TWO+R4(10,8)-R3(6,7)*FOUR-R3(6,8)*TWO
     * +R2(5,3)*TWO+R2(5,4)+R2(5,7)*TWO+R2(5,8))*ZZ+(+R3(10,11)*TWO
     * +R3(10,12)-R2(3,11)*FOUR-R2(3,12)*TWO+R1(3,3)*TWO+R1(3,4)
     * +R1(3,7)*TWO+R1(3,8))*XZZ+(+R3(6,12)-R2(5,12)*TWO+R1(1,4)+R1(1,8)
     * )*ZZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)+R0(10))*XZZZ
      F(6,3,3,1)= R6(27,1)-R5(20,1)*TWO+R4(14,1)+R4(14,2)+R4(14,5)*THREE
     * -R3(9,5)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(+R5(20,2)+R5(20,3)*TWO
     * -R4(14,3)*TWO-R4(14,4)*FOUR+R3(9,1)+R3(9,2)*TWO+R3(9,3)
     * +R3(9,4)*TWO+R3(9,9)+R3(9,10)*TWO-R2(6,9)*TWO-R2(6,10)*FOUR
     * +R1(2,1)+R1(2,2)*TWO+R1(2,5)+R1(2,6)*TWO)*QZ+(+R4(14,7)*TWO
     * +R4(14,8)-R3(9,7)*FOUR-R3(9,8)*TWO+R2(6,3)*TWO+R2(6,4)
     * +R2(6,7)*TWO+R2(6,8))*ZZ+(+R3(9,12)-R2(6,12)*TWO+R1(2,4)+R1(2,8))
     * *ZZZ
      F(1,4,3,1)= R6(9,1)-R5(5,1)*TWO+R4(2,1)+R4(2,2)+R4(9,5)*THREE
     * -R3(5,5)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(9,2)*TWO+R5(9,3)
     * -R4(5,3)*FOUR-R4(5,4)*TWO+R3(2,1)*TWO+R3(2,2)+R3(2,3)*TWO+R3(2,4)
     * +R3(9,9)*TWO+R3(9,10)-R2(6,9)*FOUR-R2(6,10)*TWO+R1(2,1)*TWO
     * +R1(2,2)+R1(2,5)*TWO+R1(2,6))*QX+(+R4(9,6)+R4(9,7)*TWO
     * -R3(5,6)*TWO-R3(5,7)*FOUR+R2(4,2)+R2(4,3)*TWO+R2(4,6)+R2(4,7)*TWO
     * )*XX+(+R3(9,11)-R2(6,11)*TWO+R1(2,3)+R1(2,7))*XXX
      F(2,4,3,1)= R6(18,1)-R5(12,1)*TWO+R4(7,1)+R4(7,2)+R4(9,5)*THREE
     * -R3(5,5)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(18,3)-R4(12,4)*TWO
     * +R3(7,2)+R3(7,4)+R3(9,10)*THREE-R2(6,10)*SIX+R1(2,2)*THREE
     * +R1(2,6)*THREE)*QX
      F(3,4,3,1)= R6(20,1)-R5(14,1)*TWO+R4(9,1)+R4(9,2)+R4(9,5)
     * -R3(5,5)*TWO+R2(4,1)+R2(4,5)+(+R5(20,3)-R4(14,4)*TWO+R3(9,2)
     * +R3(9,4)+R3(9,10)-R2(6,10)*TWO+R1(2,2)+R1(2,6))*QX+(+R5(14,2)*TWO
     * -R4(9,3)*FOUR+R3(5,1)*TWO+R3(5,3)*TWO)*QZ+(+R4(14,7)*TWO
     * -R3(9,7)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(+R4(9,6)-R3(5,6)*TWO
     * +R2(4,2)+R2(4,6))*ZZ+(+R3(9,11)-R2(6,11)*TWO+R1(2,3)+R1(2,7))*XZZ
      F(4,4,3,1)= R6(13,1)-R5(8,1)*TWO+R4(4,1)+R4(4,2)+R4(6,5)+R4(13,5)
     * -R3(3,5)*TWO-R3(8,5)*TWO+R2(1,1)+R2(2,1)+R2(1,5)+R2(2,5)+R2(3,13)
     * -R1(3,9)*TWO+R0(1)+R0(6)+(+R5(13,2)+R5(13,3)-R4(8,3)*TWO
     * -R4(8,4)*TWO+R3(4,1)+R3(4,2)+R3(4,3)+R3(4,4)+R3(6,9)+R3(6,10)
     * -R2(5,9)*TWO-R2(5,10)*TWO+R1(1,1)+R1(1,2)+R1(1,5)+R1(1,6))*QX+(
     * +R4(13,7)-R3(8,7)*TWO+R2(2,3)+R2(2,7)+R2(3,15)-R1(3,11)*TWO+R0(3)
     * +R0(8))*XX
      F(5,4,3,1)= R6(14,1)-R5(9,1)*TWO+R4(5,1)+R4(5,2)+R4(14,5)
     * -R3(9,5)*TWO+R2(6,1)+R2(6,5)+(+R5(14,2)+R5(14,3)-R4(9,3)*TWO
     * -R4(9,4)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R5(9,2)
     * -R4(5,3)*TWO+R3(2,1)+R3(2,3)+R3(9,9)-R2(6,9)*TWO+R1(2,1)+R1(2,5))
     * *QZ+(+R4(14,7)-R3(9,7)*TWO+R2(6,3)+R2(6,7))*XX+(+R4(9,6)+R4(9,7)
     * -R3(5,6)*TWO-R3(5,7)*TWO+R2(4,2)+R2(4,3)+R2(4,6)+R2(4,7))*XZ+(
     * +R3(9,11)-R2(6,11)*TWO+R1(2,3)+R1(2,7))*XXZ
      F(6,4,3,1)= R6(19,1)-R5(13,1)*TWO+R4(8,1)+R4(8,2)+R4(10,5)
     * -R3(6,5)*TWO+R2(5,1)+R2(5,5)+(+R5(19,3)-R4(13,4)*TWO+R3(8,2)
     * +R3(8,4)+R3(10,10)-R2(3,10)*TWO+R1(3,2)+R1(3,6))*QX+(+R5(13,2)
     * -R4(8,3)*TWO+R3(4,1)+R3(4,3)+R3(6,9)-R2(5,9)*TWO+R1(1,1)+R1(1,5))
     * *QZ+(+R4(13,7)-R3(8,7)*TWO+R2(2,3)+R2(2,7)+R2(3,15)-R1(3,11)*TWO
     * +R0(3)+R0(8))*XZ
      F(1,5,3,1)= R6(10,1)-R5(6,1)*TWO+R4(3,1)+R4(3,2)+R4(10,5)*THREE
     * -R3(6,5)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(10,2)*TWO+R5(10,3)
     * -R4(6,3)*FOUR-R4(6,4)*TWO+R3(3,1)*TWO+R3(3,2)+R3(3,3)*TWO+R3(3,4)
     * +R3(10,9)*TWO+R3(10,10)-R2(3,9)*FOUR-R2(3,10)*TWO+R1(3,1)*TWO
     * +R1(3,2)+R1(3,5)*TWO+R1(3,6))*QX+(+R5(6,3)-R4(3,4)*TWO+R3(1,2)
     * +R3(1,4)+R3(6,10)*THREE-R2(5,10)*SIX+R1(1,2)*THREE+R1(1,6)*THREE)
     * *QZ+(+R4(10,6)+R4(10,7)*TWO-R3(6,6)*TWO-R3(6,7)*FOUR+R2(5,2)
     * +R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*XX+(+R4(6,7)*TWO+R4(6,8)
     * -R3(3,7)*FOUR-R3(3,8)*TWO+R2(1,3)*TWO+R2(1,4)+R2(1,7)*TWO+R2(1,8)
     * +R2(3,15)*TWO+R2(3,16)-R1(3,11)*FOUR-R1(3,12)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*XZ+(+R3(10,11)-R2(3,11)*TWO+R1(3,3)+R1(3,7))
     * *XXX+(+R3(6,11)+R3(6,12)*TWO-R2(5,11)*TWO-R2(5,12)*FOUR+R1(1,3)
     * +R1(1,4)*TWO+R1(1,7)+R1(1,8)*TWO)*XXZ+(+R2(3,17)-R1(3,13)*TWO
     * +R0(5)+R0(10))*XXXZ
      F(2,5,3,1)= R6(19,1)-R5(13,1)*TWO+R4(8,1)+R4(8,2)+R4(10,5)
     * -R3(6,5)*TWO+R2(5,1)+R2(5,5)+(+R5(19,3)-R4(13,4)*TWO+R3(8,2)
     * +R3(8,4)+R3(10,10)-R2(3,10)*TWO+R1(3,2)+R1(3,6))*QX+(+R5(13,3)
     * -R4(8,4)*TWO+R3(4,2)+R3(4,4)+R3(6,10)-R2(5,10)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R4(13,8)-R3(8,8)*TWO+R2(2,4)+R2(2,8)+R2(3,16)
     * -R1(3,12)*TWO+R0(4)+R0(9))*XZ
      F(3,5,3,1)= R6(21,1)-R5(15,1)*TWO+R4(10,1)+R4(10,2)+R4(10,5)*THREE
     * -R3(6,5)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(21,3)-R4(15,4)*TWO
     * +R3(10,2)+R3(10,4)+R3(10,10)*THREE-R2(3,10)*SIX+R1(3,2)*THREE
     * +R1(3,6)*THREE)*QX+(+R5(15,2)*TWO+R5(15,3)-R4(10,3)*FOUR
     * -R4(10,4)*TWO+R3(6,1)*TWO+R3(6,2)+R3(6,3)*TWO+R3(6,4)+R3(6,9)*TWO
     * +R3(6,10)-R2(5,9)*FOUR-R2(5,10)*TWO+R1(1,1)*TWO+R1(1,2)
     * +R1(1,5)*TWO+R1(1,6))*QZ+(+R4(15,7)*TWO+R4(15,8)-R3(10,7)*FOUR
     * -R3(10,8)*TWO+R2(3,3)*TWO+R2(3,4)+R2(3,7)*TWO+R2(3,8)
     * +R2(3,15)*TWO+R2(3,16)-R1(3,11)*FOUR-R1(3,12)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*XZ+(+R4(10,6)+R4(10,7)*TWO-R3(6,6)*TWO
     * -R3(6,7)*FOUR+R2(5,2)+R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*ZZ+(
     * +R3(10,11)+R3(10,12)*TWO-R2(3,11)*TWO-R2(3,12)*FOUR+R1(3,3)
     * +R1(3,4)*TWO+R1(3,7)+R1(3,8)*TWO)*XZZ+(+R3(6,11)-R2(5,11)*TWO
     * +R1(1,3)+R1(1,7))*ZZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)+R0(10))*XZZZ
      F(4,5,3,1)= R6(14,1)-R5(9,1)*TWO+R4(5,1)+R4(5,2)+R4(14,5)
     * -R3(9,5)*TWO+R2(6,1)+R2(6,5)+(+R5(14,2)+R5(14,3)-R4(9,3)*TWO
     * -R4(9,4)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R5(9,3)
     * -R4(5,4)*TWO+R3(2,2)+R3(2,4)+R3(9,10)-R2(6,10)*TWO+R1(2,2)
     * +R1(2,6))*QZ+(+R4(14,7)-R3(9,7)*TWO+R2(6,3)+R2(6,7))*XX+(+R4(9,7)
     * +R4(9,8)-R3(5,7)*TWO-R3(5,8)*TWO+R2(4,3)+R2(4,4)+R2(4,7)+R2(4,8))
     * *XZ+(+R3(9,12)-R2(6,12)*TWO+R1(2,4)+R1(2,8))*XXZ
      F(5,5,3,1)= R6(15,1)-R5(10,1)*TWO+R4(6,1)+R4(6,2)+R4(6,5)+R4(15,5)
     * -R3(3,5)*TWO-R3(10,5)*TWO+R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)
     * +R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(15,2)+R5(15,3)
     * -R4(10,3)*TWO-R4(10,4)*TWO+R3(6,1)+R3(6,2)+R3(6,3)+R3(6,4)
     * +R3(6,9)+R3(6,10)-R2(5,9)*TWO-R2(5,10)*TWO+R1(1,1)+R1(1,2)
     * +R1(1,5)+R1(1,6))*QX+(+R5(10,2)+R5(10,3)-R4(6,3)*TWO-R4(6,4)*TWO
     * +R3(3,1)+R3(3,2)+R3(3,3)+R3(3,4)+R3(10,9)+R3(10,10)-R2(3,9)*TWO
     * -R2(3,10)*TWO+R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ+(+R4(15,7)
     * -R3(10,7)*TWO+R2(3,3)+R2(3,7)+R2(3,15)-R1(3,11)*TWO+R0(3)+R0(8))
     * *XX+(+R4(10,6)+R4(10,7)*TWO+R4(10,8)-R3(6,6)*TWO-R3(6,7)*FOUR
     * -R3(6,8)*TWO+R2(5,2)+R2(5,3)*TWO+R2(5,4)+R2(5,6)+R2(5,7)*TWO
     * +R2(5,8))*XZ+(+R4(6,7)-R3(3,7)*TWO+R2(1,3)+R2(1,7)+R2(3,15)
     * -R1(3,11)*TWO+R0(3)+R0(8))*ZZ+(+R3(10,11)+R3(10,12)-R2(3,11)*TWO
     * -R2(3,12)*TWO+R1(3,3)+R1(3,4)+R1(3,7)+R1(3,8))*XXZ+(+R3(6,11)
     * +R3(6,12)-R2(5,11)*TWO-R2(5,12)*TWO+R1(1,3)+R1(1,4)+R1(1,7)
     * +R1(1,8))*XZZ+(+R2(3,17)-R1(3,13)*TWO+R0(5)+R0(10))*XXZZ
      F(6,5,3,1)= R6(20,1)-R5(14,1)*TWO+R4(9,1)+R4(9,2)+R4(9,5)
     * -R3(5,5)*TWO+R2(4,1)+R2(4,5)+(+R5(20,3)-R4(14,4)*TWO+R3(9,2)
     * +R3(9,4)+R3(9,10)-R2(6,10)*TWO+R1(2,2)+R1(2,6))*QX+(+R5(14,2)
     * +R5(14,3)-R4(9,3)*TWO-R4(9,4)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4)
     * )*QZ+(+R4(14,7)+R4(14,8)-R3(9,7)*TWO-R3(9,8)*TWO+R2(6,3)+R2(6,4)
     * +R2(6,7)+R2(6,8))*XZ+(+R4(9,7)-R3(5,7)*TWO+R2(4,3)+R2(4,7))*ZZ+(
     * +R3(9,12)-R2(6,12)*TWO+R1(2,4)+R1(2,8))*XZZ
      F(1,6,3,1)= R6(14,1)-R5(9,1)*TWO+R4(5,1)+R4(5,2)+R4(14,5)
     * -R3(9,5)*TWO+R2(6,1)+R2(6,5)+(+R5(14,2)*TWO-R4(9,3)*FOUR
     * +R3(5,1)*TWO+R3(5,3)*TWO)*QX+(+R5(9,3)-R4(5,4)*TWO+R3(2,2)
     * +R3(2,4)+R3(9,10)-R2(6,10)*TWO+R1(2,2)+R1(2,6))*QZ+(+R4(14,6)
     * -R3(9,6)*TWO+R2(6,2)+R2(6,6))*XX+(+R4(9,7)*TWO-R3(5,7)*FOUR
     * +R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R3(9,11)-R2(6,11)*TWO+R1(2,3)
     * +R1(2,7))*XXZ
      F(2,6,3,1)= R6(25,1)-R5(18,1)*TWO+R4(12,1)+R4(12,2)+R4(14,5)*THREE
     * -R3(9,5)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(+R5(18,3)-R4(12,4)*TWO
     * +R3(7,2)+R3(7,4)+R3(9,10)*THREE-R2(6,10)*SIX+R1(2,2)*THREE
     * +R1(2,6)*THREE)*QZ
      F(3,6,3,1)= R6(27,1)-R5(20,1)*TWO+R4(14,1)+R4(14,2)+R4(14,5)*THREE
     * -R3(9,5)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(+R5(20,2)*TWO+R5(20,3)
     * -R4(14,3)*FOUR-R4(14,4)*TWO+R3(9,1)*TWO+R3(9,2)+R3(9,3)*TWO
     * +R3(9,4)+R3(9,9)*TWO+R3(9,10)-R2(6,9)*FOUR-R2(6,10)*TWO
     * +R1(2,1)*TWO+R1(2,2)+R1(2,5)*TWO+R1(2,6))*QZ+(+R4(14,6)
     * +R4(14,7)*TWO-R3(9,6)*TWO-R3(9,7)*FOUR+R2(6,2)+R2(6,3)*TWO
     * +R2(6,6)+R2(6,7)*TWO)*ZZ+(+R3(9,11)-R2(6,11)*TWO+R1(2,3)+R1(2,7))
     * *ZZZ
      F(4,6,3,1)= R6(19,1)-R5(13,1)*TWO+R4(8,1)+R4(8,2)+R4(10,5)
     * -R3(6,5)*TWO+R2(5,1)+R2(5,5)+(+R5(19,2)-R4(13,3)*TWO+R3(8,1)
     * +R3(8,3)+R3(10,9)-R2(3,9)*TWO+R1(3,1)+R1(3,5))*QX+(+R5(13,3)
     * -R4(8,4)*TWO+R3(4,2)+R3(4,4)+R3(6,10)-R2(5,10)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R4(13,7)-R3(8,7)*TWO+R2(2,3)+R2(2,7)+R2(3,15)
     * -R1(3,11)*TWO+R0(3)+R0(8))*XZ
      F(5,6,3,1)= R6(20,1)-R5(14,1)*TWO+R4(9,1)+R4(9,2)+R4(9,5)
     * -R3(5,5)*TWO+R2(4,1)+R2(4,5)+(+R5(20,2)-R4(14,3)*TWO+R3(9,1)
     * +R3(9,3)+R3(9,9)-R2(6,9)*TWO+R1(2,1)+R1(2,5))*QX+(+R5(14,2)
     * +R5(14,3)-R4(9,3)*TWO-R4(9,4)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4)
     * )*QZ+(+R4(14,6)+R4(14,7)-R3(9,6)*TWO-R3(9,7)*TWO+R2(6,2)+R2(6,3)
     * +R2(6,6)+R2(6,7))*XZ+(+R4(9,7)-R3(5,7)*TWO+R2(4,3)+R2(4,7))*ZZ+(
     * +R3(9,11)-R2(6,11)*TWO+R1(2,3)+R1(2,7))*XZZ
      F(6,6,3,1)= R6(26,1)-R5(19,1)*TWO+R4(13,1)+R4(13,2)+R4(13,5)
     * +R4(15,5)-R3(8,5)*TWO-R3(10,5)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,13)-R1(3,9)*TWO+R0(1)+R0(6)+(+R5(19,2)+R5(19,3)
     * -R4(13,3)*TWO-R4(13,4)*TWO+R3(8,1)+R3(8,2)+R3(8,3)+R3(8,4)
     * +R3(10,9)+R3(10,10)-R2(3,9)*TWO-R2(3,10)*TWO+R1(3,1)+R1(3,2)
     * +R1(3,5)+R1(3,6))*QZ+(+R4(13,7)-R3(8,7)*TWO+R2(2,3)+R2(2,7)
     * +R2(3,15)-R1(3,11)*TWO+R0(3)+R0(8))*ZZ
      F(1,1,4,1)= R6(2,1)+R4(2,5)*SIX+R2(4,13)*THREE+(+R5(2,2)*TWO
     * +R5(2,3)*TWO+R3(2,9)*SIX+R3(2,10)*SIX)*QX+(+R4(2,6)+R4(2,7)*FOUR
     * +R4(2,8)+R2(4,14)+R2(4,15)*FOUR+R2(4,16))*XX+(+R3(2,11)*TWO
     * +R3(2,12)*TWO)*XXX+R2(4,17)*XXXX
      F(2,1,4,1)= R6(7,1)+R4(2,5)+R4(7,5)+R2(4,13)+(+R5(7,3)*TWO
     * +R3(2,10)*TWO)*QX+(+R4(7,8)+R2(4,16))*XX
      F(3,1,4,1)= R6(9,1)+R4(2,5)+R4(9,5)+R2(4,13)+(+R5(9,3)*TWO
     * +R3(2,10)*TWO)*QX+(+R5(5,2)*TWO+R3(5,9)*TWO)*QZ+(+R4(9,8)
     * +R2(4,16))*XX+R4(5,7)*FOUR*XZ+(+R4(2,6)+R2(4,14))*ZZ+R3(5,12)*TWO
     * *XXZ+R3(2,11)*TWO*XZZ+R2(4,17)*XXZZ
      F(4,1,4,1)= R6(4,1)+R4(4,5)*THREE+(+R5(4,2)+R5(4,3)*TWO+R3(4,9)
     * +R3(4,10)*TWO)*QX+(+R4(4,7)*TWO+R4(4,8))*XX+R3(4,12)*XXX
      F(5,1,4,1)= R6(5,1)+R4(5,5)*THREE+(+R5(5,2)+R5(5,3)*TWO+R3(5,9)
     * +R3(5,10)*TWO)*QX+(+R5(2,2)+R3(2,9)*THREE)*QZ+(+R4(5,7)*TWO
     * +R4(5,8))*XX+(+R4(2,6)+R4(2,7)*TWO+R2(4,14)+R2(4,15)*TWO)*XZ
     * +R3(5,12)*XXX+(+R3(2,11)*TWO+R3(2,12))*XXZ+R2(4,17)*XXXZ
      F(6,1,4,1)= R6(8,1)+R4(8,5)+R5(8,3)*TWO*QX+(+R5(4,2)+R3(4,9))*QZ
     * +R4(8,8)*XX+R4(4,7)*TWO*XZ+R3(4,12)*XXZ
      F(1,2,4,1)= R6(7,1)+R4(2,5)+R4(7,5)+R2(4,13)+(+R5(7,2)*TWO
     * +R3(2,9)*TWO)*QX+(+R4(7,6)+R2(4,14))*XX
      F(2,2,4,1)= R6(16,1)+R4(7,5)*SIX+R2(4,13)*THREE
      F(3,2,4,1)= R6(18,1)+R4(7,5)+R4(9,5)+R2(4,13)+(+R5(12,2)*TWO
     * +R3(5,9)*TWO)*QZ+(+R4(7,6)+R2(4,14))*ZZ
      F(4,2,4,1)= R6(11,1)+R4(4,5)*THREE+(+R5(11,2)+R3(4,9)*THREE)*QX
      F(5,2,4,1)= R6(12,1)+R4(5,5)+(+R5(12,2)+R3(5,9))*QX+(+R5(7,2)
     * +R3(2,9))*QZ+(+R4(7,6)+R2(4,14))*XZ
      F(6,2,4,1)= R6(17,1)+R4(8,5)*THREE+(+R5(11,2)+R3(4,9)*THREE)*QZ
      F(1,3,4,1)= R6(9,1)+R4(2,5)+R4(9,5)+R2(4,13)+(+R5(9,2)*TWO
     * +R3(2,9)*TWO)*QX+(+R5(5,3)*TWO+R3(5,10)*TWO)*QZ+(+R4(9,6)
     * +R2(4,14))*XX+R4(5,7)*FOUR*XZ+(+R4(2,8)+R2(4,16))*ZZ+R3(5,11)*TWO
     * *XXZ+R3(2,12)*TWO*XZZ+R2(4,17)*XXZZ
      F(2,3,4,1)= R6(18,1)+R4(7,5)+R4(9,5)+R2(4,13)+(+R5(12,3)*TWO
     * +R3(5,10)*TWO)*QZ+(+R4(7,8)+R2(4,16))*ZZ
      F(3,3,4,1)= R6(20,1)+R4(9,5)*SIX+R2(4,13)*THREE+(+R5(14,2)*TWO
     * +R5(14,3)*TWO+R3(5,9)*SIX+R3(5,10)*SIX)*QZ+(+R4(9,6)+R4(9,7)*FOUR
     * +R4(9,8)+R2(4,14)+R2(4,15)*FOUR+R2(4,16))*ZZ+(+R3(5,11)*TWO
     * +R3(5,12)*TWO)*ZZZ+R2(4,17)*ZZZZ
      F(4,3,4,1)= R6(13,1)+R4(4,5)+(+R5(13,2)+R3(4,9))*QX+R5(8,3)*TWO*QZ
     * +R4(8,7)*TWO*XZ+R4(4,8)*ZZ+R3(4,12)*XZZ
      F(5,3,4,1)= R6(14,1)+R4(5,5)*THREE+(+R5(14,2)+R3(5,9)*THREE)*QX+(
     * +R5(9,2)+R5(9,3)*TWO+R3(2,9)+R3(2,10)*TWO)*QZ+(+R4(9,6)
     * +R4(9,7)*TWO+R2(4,14)+R2(4,15)*TWO)*XZ+(+R4(5,7)*TWO+R4(5,8))*ZZ
     * +(+R3(5,11)*TWO+R3(5,12))*XZZ+R3(2,12)*ZZZ+R2(4,17)*XZZZ
      F(6,3,4,1)= R6(19,1)+R4(8,5)*THREE+(+R5(13,2)+R5(13,3)*TWO+R3(4,9)
     * +R3(4,10)*TWO)*QZ+(+R4(8,7)*TWO+R4(8,8))*ZZ+R3(4,12)*ZZZ
      F(1,4,4,1)= R6(4,1)+R4(4,5)*THREE+(+R5(4,2)*TWO+R5(4,3)
     * +R3(4,9)*TWO+R3(4,10))*QX+(+R4(4,6)+R4(4,7)*TWO)*XX+R3(4,11)*XXX
      F(2,4,4,1)= R6(11,1)+R4(4,5)*THREE+(+R5(11,3)+R3(4,10)*THREE)*QX
      F(3,4,4,1)= R6(13,1)+R4(4,5)+(+R5(13,3)+R3(4,10))*QX+R5(8,2)*TWO
     * *QZ+R4(8,7)*TWO*XZ+R4(4,6)*ZZ+R3(4,11)*XZZ
      F(4,4,4,1)= R6(7,1)+R4(2,5)+R4(7,5)+R2(4,13)+(+R5(7,2)+R5(7,3)
     * +R3(2,9)+R3(2,10))*QX+(+R4(7,7)+R2(4,15))*XX
      F(5,4,4,1)= R6(8,1)+R4(8,5)+(+R5(8,2)+R5(8,3))*QX+(+R5(4,2)
     * +R3(4,9))*QZ+R4(8,7)*XX+(+R4(4,6)+R4(4,7))*XZ+R3(4,11)*XXZ
      F(6,4,4,1)= R6(12,1)+R4(5,5)+(+R5(12,3)+R3(5,10))*QX+(+R5(7,2)
     * +R3(2,9))*QZ+(+R4(7,7)+R2(4,15))*XZ
      F(1,5,4,1)= R6(5,1)+R4(5,5)*THREE+(+R5(5,2)*TWO+R5(5,3)
     * +R3(5,9)*TWO+R3(5,10))*QX+(+R5(2,3)+R3(2,10)*THREE)*QZ+(+R4(5,6)
     * +R4(5,7)*TWO)*XX+(+R4(2,7)*TWO+R4(2,8)+R2(4,15)*TWO+R2(4,16))*XZ
     * +R3(5,11)*XXX+(+R3(2,11)+R3(2,12)*TWO)*XXZ+R2(4,17)*XXXZ
      F(2,5,4,1)= R6(12,1)+R4(5,5)+(+R5(12,3)+R3(5,10))*QX+(+R5(7,3)
     * +R3(2,10))*QZ+(+R4(7,8)+R2(4,16))*XZ
      F(3,5,4,1)= R6(14,1)+R4(5,5)*THREE+(+R5(14,3)+R3(5,10)*THREE)*QX+(
     * +R5(9,2)*TWO+R5(9,3)+R3(2,9)*TWO+R3(2,10))*QZ+(+R4(9,7)*TWO
     * +R4(9,8)+R2(4,15)*TWO+R2(4,16))*XZ+(+R4(5,6)+R4(5,7)*TWO)*ZZ+(
     * +R3(5,11)+R3(5,12)*TWO)*XZZ+R3(2,11)*ZZZ+R2(4,17)*XZZZ
      F(4,5,4,1)= R6(8,1)+R4(8,5)+(+R5(8,2)+R5(8,3))*QX+(+R5(4,3)
     * +R3(4,10))*QZ+R4(8,7)*XX+(+R4(4,7)+R4(4,8))*XZ+R3(4,12)*XXZ
      F(5,5,4,1)= R6(9,1)+R4(2,5)+R4(9,5)+R2(4,13)+(+R5(9,2)+R5(9,3)
     * +R3(2,9)+R3(2,10))*QX+(+R5(5,2)+R5(5,3)+R3(5,9)+R3(5,10))*QZ+(
     * +R4(9,7)+R2(4,15))*XX+(+R4(5,6)+R4(5,7)*TWO+R4(5,8))*XZ+(+R4(2,7)
     * +R2(4,15))*ZZ+(+R3(5,11)+R3(5,12))*XXZ+(+R3(2,11)+R3(2,12))*XZZ
     * +R2(4,17)*XXZZ
      F(6,5,4,1)= R6(13,1)+R4(4,5)+(+R5(13,3)+R3(4,10))*QX+(+R5(8,2)
     * +R5(8,3))*QZ+(+R4(8,7)+R4(8,8))*XZ+R4(4,7)*ZZ+R3(4,12)*XZZ
      F(1,6,4,1)= R6(8,1)+R4(8,5)+R5(8,2)*TWO*QX+(+R5(4,3)+R3(4,10))*QZ
     * +R4(8,6)*XX+R4(4,7)*TWO*XZ+R3(4,11)*XXZ
      F(2,6,4,1)= R6(17,1)+R4(8,5)*THREE+(+R5(11,3)+R3(4,10)*THREE)*QZ
      F(3,6,4,1)= R6(19,1)+R4(8,5)*THREE+(+R5(13,2)*TWO+R5(13,3)
     * +R3(4,9)*TWO+R3(4,10))*QZ+(+R4(8,6)+R4(8,7)*TWO)*ZZ+R3(4,11)*ZZZ
      F(4,6,4,1)= R6(12,1)+R4(5,5)+(+R5(12,2)+R3(5,9))*QX+(+R5(7,3)
     * +R3(2,10))*QZ+(+R4(7,7)+R2(4,15))*XZ
      F(5,6,4,1)= R6(13,1)+R4(4,5)+(+R5(13,2)+R3(4,9))*QX+(+R5(8,2)
     * +R5(8,3))*QZ+(+R4(8,6)+R4(8,7))*XZ+R4(4,7)*ZZ+R3(4,11)*XZZ
      F(6,6,4,1)= R6(18,1)+R4(7,5)+R4(9,5)+R2(4,13)+(+R5(12,2)+R5(12,3)
     * +R3(5,9)+R3(5,10))*QZ+(+R4(7,7)+R2(4,15))*ZZ
      F(1,1,5,1)= R6(3,1)-R5(1,1)+R4(3,5)*SIX-R3(1,5)*SIX+R2(5,13)*THREE
     * -R1(1,9)*THREE+(+R5(3,2)*TWO+R5(3,3)*TWO-R4(1,3)*TWO-R4(1,4)*TWO
     * +R3(3,9)*SIX+R3(3,10)*SIX-R2(1,9)*SIX-R2(1,10)*SIX)*QX+(+R4(3,6)
     * +R4(3,7)*FOUR+R4(3,8)-R3(1,6)-R3(1,7)*FOUR-R3(1,8)+R2(5,14)
     * +R2(5,15)*FOUR+R2(5,16)-R1(1,10)-R1(1,11)*FOUR-R1(1,12))*XX+(
     * +R3(3,11)*TWO+R3(3,12)*TWO-R2(1,11)*TWO-R2(1,12)*TWO)*XXX+(
     * +R2(5,17)-R1(1,13))*XXXX
      F(2,1,5,1)= R6(8,1)-R5(4,1)+R4(3,5)+R4(8,5)-R3(1,5)-R3(4,5)
     * +R2(5,13)-R1(1,9)+(+R5(8,3)*TWO-R4(4,4)*TWO+R3(3,10)*TWO
     * -R2(1,10)*TWO)*QX+(+R4(8,8)-R3(4,8)+R2(5,16)-R1(1,12))*XX
      F(3,1,5,1)= R6(10,1)-R5(6,1)+R4(3,5)+R4(10,5)-R3(1,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(10,3)*TWO-R4(6,4)*TWO+R3(3,10)*TWO
     * -R2(1,10)*TWO)*QX+(+R5(6,2)*TWO-R4(3,3)*TWO+R3(6,9)*TWO
     * -R2(5,9)*TWO)*QZ+(+R4(10,8)-R3(6,8)+R2(5,16)-R1(1,12))*XX+(
     * +R4(6,7)*FOUR-R3(3,7)*FOUR)*XZ+(+R4(3,6)-R3(1,6)+R2(5,14)
     * -R1(1,10))*ZZ+(+R3(6,12)*TWO-R2(5,12)*TWO)*XXZ+(+R3(3,11)*TWO
     * -R2(1,11)*TWO)*XZZ+(+R2(5,17)-R1(1,13))*XXZZ
      F(4,1,5,1)= R6(5,1)-R5(2,1)+R4(5,5)*THREE-R3(2,5)*THREE+(+R5(5,2)
     * +R5(5,3)*TWO-R4(2,3)-R4(2,4)*TWO+R3(5,9)+R3(5,10)*TWO-R2(4,9)
     * -R2(4,10)*TWO)*QX+(+R4(5,7)*TWO+R4(5,8)-R3(2,7)*TWO-R3(2,8))*XX+(
     * +R3(5,12)-R2(4,12))*XXX
      F(5,1,5,1)= R6(6,1)-R5(3,1)+R4(6,5)*THREE-R3(3,5)*THREE+(+R5(6,2)
     * +R5(6,3)*TWO-R4(3,3)-R4(3,4)*TWO+R3(6,9)+R3(6,10)*TWO-R2(5,9)
     * -R2(5,10)*TWO)*QX+(+R5(3,2)-R4(1,3)+R3(3,9)*THREE-R2(1,9)*THREE)
     * *QZ+(+R4(6,7)*TWO+R4(6,8)-R3(3,7)*TWO-R3(3,8))*XX+(+R4(3,6)
     * +R4(3,7)*TWO-R3(1,6)-R3(1,7)*TWO+R2(5,14)+R2(5,15)*TWO-R1(1,10)
     * -R1(1,11)*TWO)*XZ+(+R3(6,12)-R2(5,12))*XXX+(+R3(3,11)*TWO
     * +R3(3,12)-R2(1,11)*TWO-R2(1,12))*XXZ+(+R2(5,17)-R1(1,13))*XXXZ
      F(6,1,5,1)= R6(9,1)-R5(5,1)+R4(9,5)-R3(5,5)+(+R5(9,3)*TWO
     * -R4(5,4)*TWO)*QX+(+R5(5,2)-R4(2,3)+R3(5,9)-R2(4,9))*QZ+(+R4(9,8)
     * -R3(5,8))*XX+(+R4(5,7)*TWO-R3(2,7)*TWO)*XZ+(+R3(5,12)-R2(4,12))
     * *XXZ
      F(1,2,5,1)= R6(8,1)-R5(4,1)+R4(3,5)+R4(8,5)-R3(1,5)-R3(4,5)
     * +R2(5,13)-R1(1,9)+(+R5(8,2)*TWO-R4(4,3)*TWO+R3(3,9)*TWO
     * -R2(1,9)*TWO)*QX+(+R4(8,6)-R3(4,6)+R2(5,14)-R1(1,10))*XX
      F(2,2,5,1)= R6(17,1)-R5(11,1)+R4(8,5)*SIX-R3(4,5)*SIX
     * +R2(5,13)*THREE-R1(1,9)*THREE
      F(3,2,5,1)= R6(19,1)-R5(13,1)+R4(8,5)+R4(10,5)-R3(4,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(13,2)*TWO-R4(8,3)*TWO+R3(6,9)*TWO
     * -R2(5,9)*TWO)*QZ+(+R4(8,6)-R3(4,6)+R2(5,14)-R1(1,10))*ZZ
      F(4,2,5,1)= R6(12,1)-R5(7,1)+R4(5,5)*THREE-R3(2,5)*THREE+(
     * +R5(12,2)-R4(7,3)+R3(5,9)*THREE-R2(4,9)*THREE)*QX
      F(5,2,5,1)= R6(13,1)-R5(8,1)+R4(6,5)-R3(3,5)+(+R5(13,2)-R4(8,3)
     * +R3(6,9)-R2(5,9))*QX+(+R5(8,2)-R4(4,3)+R3(3,9)-R2(1,9))*QZ+(
     * +R4(8,6)-R3(4,6)+R2(5,14)-R1(1,10))*XZ
      F(6,2,5,1)= R6(18,1)-R5(12,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(12,2)-R4(7,3)+R3(5,9)*THREE-R2(4,9)*THREE)*QZ
      F(1,3,5,1)= R6(10,1)-R5(6,1)+R4(3,5)+R4(10,5)-R3(1,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(10,2)*TWO-R4(6,3)*TWO+R3(3,9)*TWO
     * -R2(1,9)*TWO)*QX+(+R5(6,3)*TWO-R4(3,4)*TWO+R3(6,10)*TWO
     * -R2(5,10)*TWO)*QZ+(+R4(10,6)-R3(6,6)+R2(5,14)-R1(1,10))*XX+(
     * +R4(6,7)*FOUR-R3(3,7)*FOUR)*XZ+(+R4(3,8)-R3(1,8)+R2(5,16)
     * -R1(1,12))*ZZ+(+R3(6,11)*TWO-R2(5,11)*TWO)*XXZ+(+R3(3,12)*TWO
     * -R2(1,12)*TWO)*XZZ+(+R2(5,17)-R1(1,13))*XXZZ
      F(2,3,5,1)= R6(19,1)-R5(13,1)+R4(8,5)+R4(10,5)-R3(4,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(13,3)*TWO-R4(8,4)*TWO+R3(6,10)*TWO
     * -R2(5,10)*TWO)*QZ+(+R4(8,8)-R3(4,8)+R2(5,16)-R1(1,12))*ZZ
      F(3,3,5,1)= R6(21,1)-R5(15,1)+R4(10,5)*SIX-R3(6,5)*SIX
     * +R2(5,13)*THREE-R1(1,9)*THREE+(+R5(15,2)*TWO+R5(15,3)*TWO
     * -R4(10,3)*TWO-R4(10,4)*TWO+R3(6,9)*SIX+R3(6,10)*SIX-R2(5,9)*SIX
     * -R2(5,10)*SIX)*QZ+(+R4(10,6)+R4(10,7)*FOUR+R4(10,8)-R3(6,6)
     * -R3(6,7)*FOUR-R3(6,8)+R2(5,14)+R2(5,15)*FOUR+R2(5,16)-R1(1,10)
     * -R1(1,11)*FOUR-R1(1,12))*ZZ+(+R3(6,11)*TWO+R3(6,12)*TWO
     * -R2(5,11)*TWO-R2(5,12)*TWO)*ZZZ+(+R2(5,17)-R1(1,13))*ZZZZ
      F(4,3,5,1)= R6(14,1)-R5(9,1)+R4(5,5)-R3(2,5)+(+R5(14,2)-R4(9,3)
     * +R3(5,9)-R2(4,9))*QX+(+R5(9,3)*TWO-R4(5,4)*TWO)*QZ+(+R4(9,7)*TWO
     * -R3(5,7)*TWO)*XZ+(+R4(5,8)-R3(2,8))*ZZ+(+R3(5,12)-R2(4,12))*XZZ
      F(5,3,5,1)= R6(15,1)-R5(10,1)+R4(6,5)*THREE-R3(3,5)*THREE+(
     * +R5(15,2)-R4(10,3)+R3(6,9)*THREE-R2(5,9)*THREE)*QX+(+R5(10,2)
     * +R5(10,3)*TWO-R4(6,3)-R4(6,4)*TWO+R3(3,9)+R3(3,10)*TWO-R2(1,9)
     * -R2(1,10)*TWO)*QZ+(+R4(10,6)+R4(10,7)*TWO-R3(6,6)-R3(6,7)*TWO
     * +R2(5,14)+R2(5,15)*TWO-R1(1,10)-R1(1,11)*TWO)*XZ+(+R4(6,7)*TWO
     * +R4(6,8)-R3(3,7)*TWO-R3(3,8))*ZZ+(+R3(6,11)*TWO+R3(6,12)
     * -R2(5,11)*TWO-R2(5,12))*XZZ+(+R3(3,12)-R2(1,12))*ZZZ+(+R2(5,17)
     * -R1(1,13))*XZZZ
      F(6,3,5,1)= R6(20,1)-R5(14,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(14,2)+R5(14,3)*TWO-R4(9,3)-R4(9,4)*TWO+R3(5,9)+R3(5,10)*TWO
     * -R2(4,9)-R2(4,10)*TWO)*QZ+(+R4(9,7)*TWO+R4(9,8)-R3(5,7)*TWO
     * -R3(5,8))*ZZ+(+R3(5,12)-R2(4,12))*ZZZ
      F(1,4,5,1)= R6(5,1)-R5(2,1)+R4(5,5)*THREE-R3(2,5)*THREE+(
     * +R5(5,2)*TWO+R5(5,3)-R4(2,3)*TWO-R4(2,4)+R3(5,9)*TWO+R3(5,10)
     * -R2(4,9)*TWO-R2(4,10))*QX+(+R4(5,6)+R4(5,7)*TWO-R3(2,6)
     * -R3(2,7)*TWO)*XX+(+R3(5,11)-R2(4,11))*XXX
      F(2,4,5,1)= R6(12,1)-R5(7,1)+R4(5,5)*THREE-R3(2,5)*THREE+(
     * +R5(12,3)-R4(7,4)+R3(5,10)*THREE-R2(4,10)*THREE)*QX
      F(3,4,5,1)= R6(14,1)-R5(9,1)+R4(5,5)-R3(2,5)+(+R5(14,3)-R4(9,4)
     * +R3(5,10)-R2(4,10))*QX+(+R5(9,2)*TWO-R4(5,3)*TWO)*QZ+(
     * +R4(9,7)*TWO-R3(5,7)*TWO)*XZ+(+R4(5,6)-R3(2,6))*ZZ+(+R3(5,11)
     * -R2(4,11))*XZZ
      F(4,4,5,1)= R6(8,1)-R5(4,1)+R4(3,5)+R4(8,5)-R3(1,5)-R3(4,5)
     * +R2(5,13)-R1(1,9)+(+R5(8,2)+R5(8,3)-R4(4,3)-R4(4,4)+R3(3,9)
     * +R3(3,10)-R2(1,9)-R2(1,10))*QX+(+R4(8,7)-R3(4,7)+R2(5,15)
     * -R1(1,11))*XX
      F(5,4,5,1)= R6(9,1)-R5(5,1)+R4(9,5)-R3(5,5)+(+R5(9,2)+R5(9,3)
     * -R4(5,3)-R4(5,4))*QX+(+R5(5,2)-R4(2,3)+R3(5,9)-R2(4,9))*QZ+(
     * +R4(9,7)-R3(5,7))*XX+(+R4(5,6)+R4(5,7)-R3(2,6)-R3(2,7))*XZ+(
     * +R3(5,11)-R2(4,11))*XXZ
      F(6,4,5,1)= R6(13,1)-R5(8,1)+R4(6,5)-R3(3,5)+(+R5(13,3)-R4(8,4)
     * +R3(6,10)-R2(5,10))*QX+(+R5(8,2)-R4(4,3)+R3(3,9)-R2(1,9))*QZ+(
     * +R4(8,7)-R3(4,7)+R2(5,15)-R1(1,11))*XZ
      F(1,5,5,1)= R6(6,1)-R5(3,1)+R4(6,5)*THREE-R3(3,5)*THREE+(
     * +R5(6,2)*TWO+R5(6,3)-R4(3,3)*TWO-R4(3,4)+R3(6,9)*TWO+R3(6,10)
     * -R2(5,9)*TWO-R2(5,10))*QX+(+R5(3,3)-R4(1,4)+R3(3,10)*THREE
     * -R2(1,10)*THREE)*QZ+(+R4(6,6)+R4(6,7)*TWO-R3(3,6)-R3(3,7)*TWO)*XX
     * +(+R4(3,7)*TWO+R4(3,8)-R3(1,7)*TWO-R3(1,8)+R2(5,15)*TWO+R2(5,16)
     * -R1(1,11)*TWO-R1(1,12))*XZ+(+R3(6,11)-R2(5,11))*XXX+(+R3(3,11)
     * +R3(3,12)*TWO-R2(1,11)-R2(1,12)*TWO)*XXZ+(+R2(5,17)-R1(1,13))
     * *XXXZ
      F(2,5,5,1)= R6(13,1)-R5(8,1)+R4(6,5)-R3(3,5)+(+R5(13,3)-R4(8,4)
     * +R3(6,10)-R2(5,10))*QX+(+R5(8,3)-R4(4,4)+R3(3,10)-R2(1,10))*QZ+(
     * +R4(8,8)-R3(4,8)+R2(5,16)-R1(1,12))*XZ
      F(3,5,5,1)= R6(15,1)-R5(10,1)+R4(6,5)*THREE-R3(3,5)*THREE+(
     * +R5(15,3)-R4(10,4)+R3(6,10)*THREE-R2(5,10)*THREE)*QX+(
     * +R5(10,2)*TWO+R5(10,3)-R4(6,3)*TWO-R4(6,4)+R3(3,9)*TWO+R3(3,10)
     * -R2(1,9)*TWO-R2(1,10))*QZ+(+R4(10,7)*TWO+R4(10,8)-R3(6,7)*TWO
     * -R3(6,8)+R2(5,15)*TWO+R2(5,16)-R1(1,11)*TWO-R1(1,12))*XZ+(
     * +R4(6,6)+R4(6,7)*TWO-R3(3,6)-R3(3,7)*TWO)*ZZ+(+R3(6,11)
     * +R3(6,12)*TWO-R2(5,11)-R2(5,12)*TWO)*XZZ+(+R3(3,11)-R2(1,11))*ZZZ
     * +(+R2(5,17)-R1(1,13))*XZZZ
      F(4,5,5,1)= R6(9,1)-R5(5,1)+R4(9,5)-R3(5,5)+(+R5(9,2)+R5(9,3)
     * -R4(5,3)-R4(5,4))*QX+(+R5(5,3)-R4(2,4)+R3(5,10)-R2(4,10))*QZ+(
     * +R4(9,7)-R3(5,7))*XX+(+R4(5,7)+R4(5,8)-R3(2,7)-R3(2,8))*XZ+(
     * +R3(5,12)-R2(4,12))*XXZ
      F(5,5,5,1)= R6(10,1)-R5(6,1)+R4(3,5)+R4(10,5)-R3(1,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(10,2)+R5(10,3)-R4(6,3)-R4(6,4)+R3(3,9)
     * +R3(3,10)-R2(1,9)-R2(1,10))*QX+(+R5(6,2)+R5(6,3)-R4(3,3)-R4(3,4)
     * +R3(6,9)+R3(6,10)-R2(5,9)-R2(5,10))*QZ+(+R4(10,7)-R3(6,7)
     * +R2(5,15)-R1(1,11))*XX+(+R4(6,6)+R4(6,7)*TWO+R4(6,8)-R3(3,6)
     * -R3(3,7)*TWO-R3(3,8))*XZ+(+R4(3,7)-R3(1,7)+R2(5,15)-R1(1,11))*ZZ
     * +(+R3(6,11)+R3(6,12)-R2(5,11)-R2(5,12))*XXZ+(+R3(3,11)+R3(3,12)
     * -R2(1,11)-R2(1,12))*XZZ+(+R2(5,17)-R1(1,13))*XXZZ
      F(6,5,5,1)= R6(14,1)-R5(9,1)+R4(5,5)-R3(2,5)+(+R5(14,3)-R4(9,4)
     * +R3(5,10)-R2(4,10))*QX+(+R5(9,2)+R5(9,3)-R4(5,3)-R4(5,4))*QZ+(
     * +R4(9,7)+R4(9,8)-R3(5,7)-R3(5,8))*XZ+(+R4(5,7)-R3(2,7))*ZZ+(
     * +R3(5,12)-R2(4,12))*XZZ
      F(1,6,5,1)= R6(9,1)-R5(5,1)+R4(9,5)-R3(5,5)+(+R5(9,2)*TWO
     * -R4(5,3)*TWO)*QX+(+R5(5,3)-R4(2,4)+R3(5,10)-R2(4,10))*QZ+(
     * +R4(9,6)-R3(5,6))*XX+(+R4(5,7)*TWO-R3(2,7)*TWO)*XZ+(+R3(5,11)
     * -R2(4,11))*XXZ
      F(2,6,5,1)= R6(18,1)-R5(12,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(12,3)-R4(7,4)+R3(5,10)*THREE-R2(4,10)*THREE)*QZ
      F(3,6,5,1)= R6(20,1)-R5(14,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(14,2)*TWO+R5(14,3)-R4(9,3)*TWO-R4(9,4)+R3(5,9)*TWO+R3(5,10)
     * -R2(4,9)*TWO-R2(4,10))*QZ+(+R4(9,6)+R4(9,7)*TWO-R3(5,6)
     * -R3(5,7)*TWO)*ZZ+(+R3(5,11)-R2(4,11))*ZZZ
      F(4,6,5,1)= R6(13,1)-R5(8,1)+R4(6,5)-R3(3,5)+(+R5(13,2)-R4(8,3)
     * +R3(6,9)-R2(5,9))*QX+(+R5(8,3)-R4(4,4)+R3(3,10)-R2(1,10))*QZ+(
     * +R4(8,7)-R3(4,7)+R2(5,15)-R1(1,11))*XZ
      F(5,6,5,1)= R6(14,1)-R5(9,1)+R4(5,5)-R3(2,5)+(+R5(14,2)-R4(9,3)
     * +R3(5,9)-R2(4,9))*QX+(+R5(9,2)+R5(9,3)-R4(5,3)-R4(5,4))*QZ+(
     * +R4(9,6)+R4(9,7)-R3(5,6)-R3(5,7))*XZ+(+R4(5,7)-R3(2,7))*ZZ+(
     * +R3(5,11)-R2(4,11))*XZZ
      F(6,6,5,1)= R6(19,1)-R5(13,1)+R4(8,5)+R4(10,5)-R3(4,5)-R3(6,5)
     * +R2(5,13)-R1(1,9)+(+R5(13,2)+R5(13,3)-R4(8,3)-R4(8,4)+R3(6,9)
     * +R3(6,10)-R2(5,9)-R2(5,10))*QZ+(+R4(8,7)-R3(4,7)+R2(5,15)
     * -R1(1,11))*ZZ
      F(1,1,6,1)= R6(5,1)-R5(2,1)+R4(5,5)*SIX-R3(2,5)*SIX+R2(6,13)*THREE
     * -R1(2,9)*THREE+(+R5(5,2)*TWO+R5(5,3)*TWO-R4(2,3)*TWO-R4(2,4)*TWO
     * +R3(5,9)*SIX+R3(5,10)*SIX-R2(4,9)*SIX-R2(4,10)*SIX)*QX+(+R4(5,6)
     * +R4(5,7)*FOUR+R4(5,8)-R3(2,6)-R3(2,7)*FOUR-R3(2,8)+R2(6,14)
     * +R2(6,15)*FOUR+R2(6,16)-R1(2,10)-R1(2,11)*FOUR-R1(2,12))*XX+(
     * +R3(5,11)*TWO+R3(5,12)*TWO-R2(4,11)*TWO-R2(4,12)*TWO)*XXX+(
     * +R2(6,17)-R1(2,13))*XXXX
      F(2,1,6,1)= R6(12,1)-R5(7,1)+R4(5,5)+R4(12,5)-R3(2,5)-R3(7,5)
     * +R2(6,13)-R1(2,9)+(+R5(12,3)*TWO-R4(7,4)*TWO+R3(5,10)*TWO
     * -R2(4,10)*TWO)*QX+(+R4(12,8)-R3(7,8)+R2(6,16)-R1(2,12))*XX
      F(3,1,6,1)= R6(14,1)-R5(9,1)+R4(5,5)+R4(14,5)-R3(2,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(14,3)*TWO-R4(9,4)*TWO+R3(5,10)*TWO
     * -R2(4,10)*TWO)*QX+(+R5(9,2)*TWO-R4(5,3)*TWO+R3(9,9)*TWO
     * -R2(6,9)*TWO)*QZ+(+R4(14,8)-R3(9,8)+R2(6,16)-R1(2,12))*XX+(
     * +R4(9,7)*FOUR-R3(5,7)*FOUR)*XZ+(+R4(5,6)-R3(2,6)+R2(6,14)
     * -R1(2,10))*ZZ+(+R3(9,12)*TWO-R2(6,12)*TWO)*XXZ+(+R3(5,11)*TWO
     * -R2(4,11)*TWO)*XZZ+(+R2(6,17)-R1(2,13))*XXZZ
      F(4,1,6,1)= R6(8,1)-R5(4,1)+R4(8,5)*THREE-R3(4,5)*THREE+(+R5(8,2)
     * +R5(8,3)*TWO-R4(4,3)-R4(4,4)*TWO+R3(8,9)+R3(8,10)*TWO-R2(2,9)
     * -R2(2,10)*TWO)*QX+(+R4(8,7)*TWO+R4(8,8)-R3(4,7)*TWO-R3(4,8))*XX+(
     * +R3(8,12)-R2(2,12))*XXX
      F(5,1,6,1)= R6(9,1)-R5(5,1)+R4(9,5)*THREE-R3(5,5)*THREE+(+R5(9,2)
     * +R5(9,3)*TWO-R4(5,3)-R4(5,4)*TWO+R3(9,9)+R3(9,10)*TWO-R2(6,9)
     * -R2(6,10)*TWO)*QX+(+R5(5,2)-R4(2,3)+R3(5,9)*THREE-R2(4,9)*THREE)
     * *QZ+(+R4(9,7)*TWO+R4(9,8)-R3(5,7)*TWO-R3(5,8))*XX+(+R4(5,6)
     * +R4(5,7)*TWO-R3(2,6)-R3(2,7)*TWO+R2(6,14)+R2(6,15)*TWO-R1(2,10)
     * -R1(2,11)*TWO)*XZ+(+R3(9,12)-R2(6,12))*XXX+(+R3(5,11)*TWO
     * +R3(5,12)-R2(4,11)*TWO-R2(4,12))*XXZ+(+R2(6,17)-R1(2,13))*XXXZ
      F(6,1,6,1)= R6(13,1)-R5(8,1)+R4(13,5)-R3(8,5)+(+R5(13,3)*TWO
     * -R4(8,4)*TWO)*QX+(+R5(8,2)-R4(4,3)+R3(8,9)-R2(2,9))*QZ+(+R4(13,8)
     * -R3(8,8))*XX+(+R4(8,7)*TWO-R3(4,7)*TWO)*XZ+(+R3(8,12)-R2(2,12))
     * *XXZ
      F(1,2,6,1)= R6(12,1)-R5(7,1)+R4(5,5)+R4(12,5)-R3(2,5)-R3(7,5)
     * +R2(6,13)-R1(2,9)+(+R5(12,2)*TWO-R4(7,3)*TWO+R3(5,9)*TWO
     * -R2(4,9)*TWO)*QX+(+R4(12,6)-R3(7,6)+R2(6,14)-R1(2,10))*XX
      F(2,2,6,1)= R6(23,1)-R5(16,1)+R4(12,5)*SIX-R3(7,5)*SIX
     * +R2(6,13)*THREE-R1(2,9)*THREE
      F(3,2,6,1)= R6(25,1)-R5(18,1)+R4(12,5)+R4(14,5)-R3(7,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(18,2)*TWO-R4(12,3)*TWO+R3(9,9)*TWO
     * -R2(6,9)*TWO)*QZ+(+R4(12,6)-R3(7,6)+R2(6,14)-R1(2,10))*ZZ
      F(4,2,6,1)= R6(17,1)-R5(11,1)+R4(8,5)*THREE-R3(4,5)*THREE+(
     * +R5(17,2)-R4(11,3)+R3(8,9)*THREE-R2(2,9)*THREE)*QX
      F(5,2,6,1)= R6(18,1)-R5(12,1)+R4(9,5)-R3(5,5)+(+R5(18,2)-R4(12,3)
     * +R3(9,9)-R2(6,9))*QX+(+R5(12,2)-R4(7,3)+R3(5,9)-R2(4,9))*QZ+(
     * +R4(12,6)-R3(7,6)+R2(6,14)-R1(2,10))*XZ
      F(6,2,6,1)= R6(24,1)-R5(17,1)+R4(13,5)*THREE-R3(8,5)*THREE+(
     * +R5(17,2)-R4(11,3)+R3(8,9)*THREE-R2(2,9)*THREE)*QZ
      F(1,3,6,1)= R6(14,1)-R5(9,1)+R4(5,5)+R4(14,5)-R3(2,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(14,2)*TWO-R4(9,3)*TWO+R3(5,9)*TWO
     * -R2(4,9)*TWO)*QX+(+R5(9,3)*TWO-R4(5,4)*TWO+R3(9,10)*TWO
     * -R2(6,10)*TWO)*QZ+(+R4(14,6)-R3(9,6)+R2(6,14)-R1(2,10))*XX+(
     * +R4(9,7)*FOUR-R3(5,7)*FOUR)*XZ+(+R4(5,8)-R3(2,8)+R2(6,16)
     * -R1(2,12))*ZZ+(+R3(9,11)*TWO-R2(6,11)*TWO)*XXZ+(+R3(5,12)*TWO
     * -R2(4,12)*TWO)*XZZ+(+R2(6,17)-R1(2,13))*XXZZ
      F(2,3,6,1)= R6(25,1)-R5(18,1)+R4(12,5)+R4(14,5)-R3(7,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(18,3)*TWO-R4(12,4)*TWO+R3(9,10)*TWO
     * -R2(6,10)*TWO)*QZ+(+R4(12,8)-R3(7,8)+R2(6,16)-R1(2,12))*ZZ
      F(3,3,6,1)= R6(27,1)-R5(20,1)+R4(14,5)*SIX-R3(9,5)*SIX
     * +R2(6,13)*THREE-R1(2,9)*THREE+(+R5(20,2)*TWO+R5(20,3)*TWO
     * -R4(14,3)*TWO-R4(14,4)*TWO+R3(9,9)*SIX+R3(9,10)*SIX-R2(6,9)*SIX
     * -R2(6,10)*SIX)*QZ+(+R4(14,6)+R4(14,7)*FOUR+R4(14,8)-R3(9,6)
     * -R3(9,7)*FOUR-R3(9,8)+R2(6,14)+R2(6,15)*FOUR+R2(6,16)-R1(2,10)
     * -R1(2,11)*FOUR-R1(2,12))*ZZ+(+R3(9,11)*TWO+R3(9,12)*TWO
     * -R2(6,11)*TWO-R2(6,12)*TWO)*ZZZ+(+R2(6,17)-R1(2,13))*ZZZZ
      F(4,3,6,1)= R6(19,1)-R5(13,1)+R4(8,5)-R3(4,5)+(+R5(19,2)-R4(13,3)
     * +R3(8,9)-R2(2,9))*QX+(+R5(13,3)*TWO-R4(8,4)*TWO)*QZ+(
     * +R4(13,7)*TWO-R3(8,7)*TWO)*XZ+(+R4(8,8)-R3(4,8))*ZZ+(+R3(8,12)
     * -R2(2,12))*XZZ
      F(5,3,6,1)= R6(20,1)-R5(14,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(20,2)-R4(14,3)+R3(9,9)*THREE-R2(6,9)*THREE)*QX+(+R5(14,2)
     * +R5(14,3)*TWO-R4(9,3)-R4(9,4)*TWO+R3(5,9)+R3(5,10)*TWO-R2(4,9)
     * -R2(4,10)*TWO)*QZ+(+R4(14,6)+R4(14,7)*TWO-R3(9,6)-R3(9,7)*TWO
     * +R2(6,14)+R2(6,15)*TWO-R1(2,10)-R1(2,11)*TWO)*XZ+(+R4(9,7)*TWO
     * +R4(9,8)-R3(5,7)*TWO-R3(5,8))*ZZ+(+R3(9,11)*TWO+R3(9,12)
     * -R2(6,11)*TWO-R2(6,12))*XZZ+(+R3(5,12)-R2(4,12))*ZZZ+(+R2(6,17)
     * -R1(2,13))*XZZZ
      F(6,3,6,1)= R6(26,1)-R5(19,1)+R4(13,5)*THREE-R3(8,5)*THREE+(
     * +R5(19,2)+R5(19,3)*TWO-R4(13,3)-R4(13,4)*TWO+R3(8,9)+R3(8,10)*TWO
     * -R2(2,9)-R2(2,10)*TWO)*QZ+(+R4(13,7)*TWO+R4(13,8)-R3(8,7)*TWO
     * -R3(8,8))*ZZ+(+R3(8,12)-R2(2,12))*ZZZ
      F(1,4,6,1)= R6(8,1)-R5(4,1)+R4(8,5)*THREE-R3(4,5)*THREE+(
     * +R5(8,2)*TWO+R5(8,3)-R4(4,3)*TWO-R4(4,4)+R3(8,9)*TWO+R3(8,10)
     * -R2(2,9)*TWO-R2(2,10))*QX+(+R4(8,6)+R4(8,7)*TWO-R3(4,6)
     * -R3(4,7)*TWO)*XX+(+R3(8,11)-R2(2,11))*XXX
      F(2,4,6,1)= R6(17,1)-R5(11,1)+R4(8,5)*THREE-R3(4,5)*THREE+(
     * +R5(17,3)-R4(11,4)+R3(8,10)*THREE-R2(2,10)*THREE)*QX
      F(3,4,6,1)= R6(19,1)-R5(13,1)+R4(8,5)-R3(4,5)+(+R5(19,3)-R4(13,4)
     * +R3(8,10)-R2(2,10))*QX+(+R5(13,2)*TWO-R4(8,3)*TWO)*QZ+(
     * +R4(13,7)*TWO-R3(8,7)*TWO)*XZ+(+R4(8,6)-R3(4,6))*ZZ+(+R3(8,11)
     * -R2(2,11))*XZZ
      F(4,4,6,1)= R6(12,1)-R5(7,1)+R4(5,5)+R4(12,5)-R3(2,5)-R3(7,5)
     * +R2(6,13)-R1(2,9)+(+R5(12,2)+R5(12,3)-R4(7,3)-R4(7,4)+R3(5,9)
     * +R3(5,10)-R2(4,9)-R2(4,10))*QX+(+R4(12,7)-R3(7,7)+R2(6,15)
     * -R1(2,11))*XX
      F(5,4,6,1)= R6(13,1)-R5(8,1)+R4(13,5)-R3(8,5)+(+R5(13,2)+R5(13,3)
     * -R4(8,3)-R4(8,4))*QX+(+R5(8,2)-R4(4,3)+R3(8,9)-R2(2,9))*QZ+(
     * +R4(13,7)-R3(8,7))*XX+(+R4(8,6)+R4(8,7)-R3(4,6)-R3(4,7))*XZ+(
     * +R3(8,11)-R2(2,11))*XXZ
      F(6,4,6,1)= R6(18,1)-R5(12,1)+R4(9,5)-R3(5,5)+(+R5(18,3)-R4(12,4)
     * +R3(9,10)-R2(6,10))*QX+(+R5(12,2)-R4(7,3)+R3(5,9)-R2(4,9))*QZ+(
     * +R4(12,7)-R3(7,7)+R2(6,15)-R1(2,11))*XZ
      F(1,5,6,1)= R6(9,1)-R5(5,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(9,2)*TWO+R5(9,3)-R4(5,3)*TWO-R4(5,4)+R3(9,9)*TWO+R3(9,10)
     * -R2(6,9)*TWO-R2(6,10))*QX+(+R5(5,3)-R4(2,4)+R3(5,10)*THREE
     * -R2(4,10)*THREE)*QZ+(+R4(9,6)+R4(9,7)*TWO-R3(5,6)-R3(5,7)*TWO)*XX
     * +(+R4(5,7)*TWO+R4(5,8)-R3(2,7)*TWO-R3(2,8)+R2(6,15)*TWO+R2(6,16)
     * -R1(2,11)*TWO-R1(2,12))*XZ+(+R3(9,11)-R2(6,11))*XXX+(+R3(5,11)
     * +R3(5,12)*TWO-R2(4,11)-R2(4,12)*TWO)*XXZ+(+R2(6,17)-R1(2,13))
     * *XXXZ
      F(2,5,6,1)= R6(18,1)-R5(12,1)+R4(9,5)-R3(5,5)+(+R5(18,3)-R4(12,4)
     * +R3(9,10)-R2(6,10))*QX+(+R5(12,3)-R4(7,4)+R3(5,10)-R2(4,10))*QZ+(
     * +R4(12,8)-R3(7,8)+R2(6,16)-R1(2,12))*XZ
      F(3,5,6,1)= R6(20,1)-R5(14,1)+R4(9,5)*THREE-R3(5,5)*THREE+(
     * +R5(20,3)-R4(14,4)+R3(9,10)*THREE-R2(6,10)*THREE)*QX+(
     * +R5(14,2)*TWO+R5(14,3)-R4(9,3)*TWO-R4(9,4)+R3(5,9)*TWO+R3(5,10)
     * -R2(4,9)*TWO-R2(4,10))*QZ+(+R4(14,7)*TWO+R4(14,8)-R3(9,7)*TWO
     * -R3(9,8)+R2(6,15)*TWO+R2(6,16)-R1(2,11)*TWO-R1(2,12))*XZ+(
     * +R4(9,6)+R4(9,7)*TWO-R3(5,6)-R3(5,7)*TWO)*ZZ+(+R3(9,11)
     * +R3(9,12)*TWO-R2(6,11)-R2(6,12)*TWO)*XZZ+(+R3(5,11)-R2(4,11))*ZZZ
     * +(+R2(6,17)-R1(2,13))*XZZZ
      F(4,5,6,1)= R6(13,1)-R5(8,1)+R4(13,5)-R3(8,5)+(+R5(13,2)+R5(13,3)
     * -R4(8,3)-R4(8,4))*QX+(+R5(8,3)-R4(4,4)+R3(8,10)-R2(2,10))*QZ+(
     * +R4(13,7)-R3(8,7))*XX+(+R4(8,7)+R4(8,8)-R3(4,7)-R3(4,8))*XZ+(
     * +R3(8,12)-R2(2,12))*XXZ
      F(5,5,6,1)= R6(14,1)-R5(9,1)+R4(5,5)+R4(14,5)-R3(2,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(14,2)+R5(14,3)-R4(9,3)-R4(9,4)+R3(5,9)
     * +R3(5,10)-R2(4,9)-R2(4,10))*QX+(+R5(9,2)+R5(9,3)-R4(5,3)-R4(5,4)
     * +R3(9,9)+R3(9,10)-R2(6,9)-R2(6,10))*QZ+(+R4(14,7)-R3(9,7)
     * +R2(6,15)-R1(2,11))*XX+(+R4(9,6)+R4(9,7)*TWO+R4(9,8)-R3(5,6)
     * -R3(5,7)*TWO-R3(5,8))*XZ+(+R4(5,7)-R3(2,7)+R2(6,15)-R1(2,11))*ZZ
     * +(+R3(9,11)+R3(9,12)-R2(6,11)-R2(6,12))*XXZ+(+R3(5,11)+R3(5,12)
     * -R2(4,11)-R2(4,12))*XZZ+(+R2(6,17)-R1(2,13))*XXZZ
      F(6,5,6,1)= R6(19,1)-R5(13,1)+R4(8,5)-R3(4,5)+(+R5(19,3)-R4(13,4)
     * +R3(8,10)-R2(2,10))*QX+(+R5(13,2)+R5(13,3)-R4(8,3)-R4(8,4))*QZ+(
     * +R4(13,7)+R4(13,8)-R3(8,7)-R3(8,8))*XZ+(+R4(8,7)-R3(4,7))*ZZ+(
     * +R3(8,12)-R2(2,12))*XZZ
      F(1,6,6,1)= R6(13,1)-R5(8,1)+R4(13,5)-R3(8,5)+(+R5(13,2)*TWO
     * -R4(8,3)*TWO)*QX+(+R5(8,3)-R4(4,4)+R3(8,10)-R2(2,10))*QZ+(
     * +R4(13,6)-R3(8,6))*XX+(+R4(8,7)*TWO-R3(4,7)*TWO)*XZ+(+R3(8,11)
     * -R2(2,11))*XXZ
      F(2,6,6,1)= R6(24,1)-R5(17,1)+R4(13,5)*THREE-R3(8,5)*THREE+(
     * +R5(17,3)-R4(11,4)+R3(8,10)*THREE-R2(2,10)*THREE)*QZ
      F(3,6,6,1)= R6(26,1)-R5(19,1)+R4(13,5)*THREE-R3(8,5)*THREE+(
     * +R5(19,2)*TWO+R5(19,3)-R4(13,3)*TWO-R4(13,4)+R3(8,9)*TWO+R3(8,10)
     * -R2(2,9)*TWO-R2(2,10))*QZ+(+R4(13,6)+R4(13,7)*TWO-R3(8,6)
     * -R3(8,7)*TWO)*ZZ+(+R3(8,11)-R2(2,11))*ZZZ
      F(4,6,6,1)= R6(18,1)-R5(12,1)+R4(9,5)-R3(5,5)+(+R5(18,2)-R4(12,3)
     * +R3(9,9)-R2(6,9))*QX+(+R5(12,3)-R4(7,4)+R3(5,10)-R2(4,10))*QZ+(
     * +R4(12,7)-R3(7,7)+R2(6,15)-R1(2,11))*XZ
      F(5,6,6,1)= R6(19,1)-R5(13,1)+R4(8,5)-R3(4,5)+(+R5(19,2)-R4(13,3)
     * +R3(8,9)-R2(2,9))*QX+(+R5(13,2)+R5(13,3)-R4(8,3)-R4(8,4))*QZ+(
     * +R4(13,6)+R4(13,7)-R3(8,6)-R3(8,7))*XZ+(+R4(8,7)-R3(4,7))*ZZ+(
     * +R3(8,11)-R2(2,11))*XZZ
      F(6,6,6,1)= R6(25,1)-R5(18,1)+R4(12,5)+R4(14,5)-R3(7,5)-R3(9,5)
     * +R2(6,13)-R1(2,9)+(+R5(18,2)+R5(18,3)-R4(12,3)-R4(12,4)+R3(9,9)
     * +R3(9,10)-R2(6,9)-R2(6,10))*QZ+(+R4(12,7)-R3(7,7)+R2(6,15)
     * -R1(2,11))*ZZ
C
      RETURN
      END
