C 10 NOV 04 - KI  - QUADRATURE ROUTINES FOR S,P,D,L ROTATED AXIS CODE
C
C*MODULE INT2V   *DECK MCDV21
      SUBROUTINE MCDV21(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
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
C        DIVIDED INTO 20 PARTS TO AVOID STRAIN ON COMPILERS
C
      CALL MCDV21A(F,QX,QZ)
      CALL MCDV21B(F,QX,QZ)
      CALL MCDV21C(F,QX,QZ)
      CALL MCDV21D(F,QX,QZ)
      CALL MCDV21E(F,QX,QZ)
      CALL MCDV21F(F,QX,QZ)
      CALL MCDV21G(F,QX,QZ)
      CALL MCDV21H(F,QX,QZ)
      CALL MCDV21I(F,QX,QZ)
      CALL MCDV21J(F,QX,QZ)
      CALL MCDV21K(F,QX,QZ)
      CALL MCDV21L(F,QX,QZ)
      CALL MCDV21M(F,QX,QZ)
      CALL MCDV21N(F,QX,QZ)
      CALL MCDV21O(F,QX,QZ)
      CALL MCDV21P(F,QX,QZ)
      CALL MCDV21Q(F,QX,QZ)
      CALL MCDV21R(F,QX,QZ)
      CALL MCDV21S(F,QX,QZ)
      CALL MCDV21T(F,QX,QZ)
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21A
      SUBROUTINE MCDV21A(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           EIGHT=8.0D+00, NINE=9.0D+00, TWELV=1.2D+01,
     *           P18=1.8D+01, P24=2.4D+01,P36=3.6D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(1,1,1,1)= R8(1)+R6(1,1)*SIX+R6(1,9)*SIX+R4(1,1)*THREE
     * +R4(1,14)*P36+R4(1,38)*THREE+R2(1,1)*P18+R2(1,37)*P18+R0(1)*NINE
     * +(+R7(1,3)*TWO+R7(1,4)*TWO+R5(1,5)*TWELV+R5(1,6)*TWELV
     * +R5(1,21)*SIX+R5(1,22)*SIX+R3(1,1)*SIX+R3(1,2)*SIX+R3(1,27)*P36
     * +R3(1,28)*P36+R1(1,1)*P18+R1(1,2)*P18)*QX+(+R6(1,10)
     * +R6(1,11)*FOUR+R6(1,12)+R4(1,15)*SIX+R4(1,16)*P24+R4(1,17)*SIX
     * +R4(1,39)+R4(1,40)*FOUR+R4(1,41)+R2(1,2)*THREE+R2(1,3)*TWELV
     * +R2(1,4)*THREE+R2(1,38)*SIX+R2(1,39)*P24+R2(1,40)*SIX+R0(2)*THREE
     * +R0(3)*TWELV+R0(4)*THREE)*XX+(+R5(1,23)*TWO+R5(1,24)*TWO
     * +R3(1,29)*TWELV+R3(1,30)*TWELV+R1(1,3)*SIX+R1(1,4)*SIX)*XXX+(
     * +R4(1,42)+R2(1,41)*SIX+R0(5)*THREE)*XXXX
      F(2,1,1,1)= R8(4)+R6(4,1)*SIX+R6(1,9)+R6(4,9)+R4(4,1)*THREE
     * +R4(1,14)*SIX+R4(4,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(4,4)*TWO+R5(4,6)*TWELV
     * +R5(1,22)*TWO+R3(4,2)*SIX+R3(1,28)*TWELV+R1(1,2)*SIX)*QX+(
     * +R6(4,12)+R4(4,17)*SIX+R4(1,41)+R2(2,4)*THREE+R2(1,40)*SIX
     * +R0(4)*THREE)*XX
      F(3,1,1,1)= R8(6)+R6(6,1)*SIX+R6(1,9)+R6(6,9)+R4(6,1)*THREE
     * +R4(1,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(6,4)*TWO+R5(6,6)*TWELV
     * +R5(1,22)*TWO+R3(6,2)*SIX+R3(1,28)*TWELV+R1(1,2)*SIX)*QX+(
     * +R7(3,3)*TWO+R5(3,5)*TWELV+R5(3,21)*TWO+R3(3,1)*SIX
     * +R3(3,27)*TWELV+R1(3,1)*SIX)*QZ+(+R6(6,12)+R4(6,17)*SIX+R4(1,41)
     * +R2(3,4)*THREE+R2(1,40)*SIX+R0(4)*THREE)*XX+(+R6(3,11)*FOUR
     * +R4(3,16)*P24+R2(5,3)*TWELV)*XZ+(+R6(1,10)+R4(1,15)*SIX+R4(1,39)
     * +R2(1,2)*THREE+R2(1,38)*SIX+R0(2)*THREE)*ZZ+(+R5(3,24)*TWO
     * +R3(3,30)*TWELV+R1(3,4)*SIX)*XXZ+(+R5(1,23)*TWO+R3(1,29)*TWELV
     * +R1(1,3)*SIX)*XZZ+(+R4(1,42)+R2(1,41)*SIX+R0(5)*THREE)*XXZZ
      F(4,1,1,1)= R8(2)+R6(2,1)*SIX+R6(2,9)*THREE+R4(2,1)*THREE
     * +R4(2,14)*P18+R2(4,1)*NINE+(+R7(2,3)+R7(2,4)*TWO+R5(2,5)*SIX
     * +R5(2,6)*TWELV+R5(2,21)+R5(2,22)*TWO+R3(2,1)*THREE+R3(2,2)*SIX
     * +R3(2,27)*SIX+R3(2,28)*TWELV+R1(2,1)*THREE+R1(2,2)*SIX)*QX+(
     * +R6(2,11)*TWO+R6(2,12)+R4(2,16)*TWELV+R4(2,17)*SIX+R2(4,3)*SIX
     * +R2(4,4)*THREE)*XX+(+R5(2,24)+R3(2,30)*SIX+R1(2,4)*THREE)*XXX
      F(5,1,1,1)= R8(3)+R6(3,1)*SIX+R6(3,9)*THREE+R4(3,1)*THREE
     * +R4(3,14)*P18+R2(5,1)*NINE+(+R7(3,3)+R7(3,4)*TWO+R5(3,5)*SIX
     * +R5(3,6)*TWELV+R5(3,21)+R5(3,22)*TWO+R3(3,1)*THREE+R3(3,2)*SIX
     * +R3(3,27)*SIX+R3(3,28)*TWELV+R1(3,1)*THREE+R1(3,2)*SIX)*QX+(
     * +R7(1,3)+R5(1,5)*SIX+R5(1,21)*THREE+R3(1,1)*THREE+R3(1,27)*P18
     * +R1(1,1)*NINE)*QZ+(+R6(3,11)*TWO+R6(3,12)+R4(3,16)*TWELV
     * +R4(3,17)*SIX+R2(5,3)*SIX+R2(5,4)*THREE)*XX+(+R6(1,10)
     * +R6(1,11)*TWO+R4(1,15)*SIX+R4(1,16)*TWELV+R4(1,39)+R4(1,40)*TWO
     * +R2(1,2)*THREE+R2(1,3)*SIX+R2(1,38)*SIX+R2(1,39)*TWELV
     * +R0(2)*THREE+R0(3)*SIX)*XZ+(+R5(3,24)+R3(3,30)*SIX+R1(3,4)*THREE)
     * *XXX+(+R5(1,23)*TWO+R5(1,24)+R3(1,29)*TWELV+R3(1,30)*SIX
     * +R1(1,3)*SIX+R1(1,4)*THREE)*XXZ+(+R4(1,42)+R2(1,41)*SIX
     * +R0(5)*THREE)*XXXZ
      F(6,1,1,1)= R8(5)+R6(5,1)*SIX+R6(5,9)+R4(5,1)*THREE+R4(5,14)*SIX
     * +R2(6,1)*THREE+(+R7(5,4)*TWO+R5(5,6)*TWELV+R3(5,2)*SIX)*QX+(
     * +R7(2,3)+R5(2,5)*SIX+R5(2,21)+R3(2,1)*THREE+R3(2,27)*SIX
     * +R1(2,1)*THREE)*QZ+(+R6(5,12)+R4(5,17)*SIX+R2(6,4)*THREE)*XX+(
     * +R6(2,11)*TWO+R4(2,16)*TWELV+R2(4,3)*SIX)*XZ+(+R5(2,24)
     * +R3(2,30)*SIX+R1(2,4)*THREE)*XXZ
      F(1,2,1,1)= R8(4)+R6(4,1)*SIX+R6(1,9)+R6(4,9)+R4(4,1)*THREE
     * +R4(1,14)*SIX+R4(4,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(4,3)*TWO+R5(4,5)*TWELV
     * +R5(1,21)*TWO+R3(4,1)*SIX+R3(1,27)*TWELV+R1(1,1)*SIX)*QX+(
     * +R6(4,10)+R4(4,15)*SIX+R4(1,39)+R2(2,2)*THREE+R2(1,38)*SIX
     * +R0(2)*THREE)*XX
      F(2,2,1,1)= R8(11)+R6(11,1)*SIX+R6(4,9)*SIX+R4(11,1)*THREE
     * +R4(4,14)*P36+R4(1,38)*THREE+R2(2,1)*P18+R2(1,37)*P18+R0(1)*NINE
      F(3,2,1,1)= R8(13)+R6(13,1)*SIX+R6(4,9)+R6(6,9)+R4(13,1)*THREE
     * +R4(4,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(2,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(8,3)*TWO+R5(8,5)*TWELV
     * +R5(3,21)*TWO+R3(8,1)*SIX+R3(3,27)*TWELV+R1(3,1)*SIX)*QZ+(
     * +R6(4,10)+R4(4,15)*SIX+R4(1,39)+R2(2,2)*THREE+R2(1,38)*SIX
     * +R0(2)*THREE)*ZZ
      F(4,2,1,1)= R8(7)+R6(7,1)*SIX+R6(2,9)*THREE+R4(7,1)*THREE
     * +R4(2,14)*P18+R2(4,1)*NINE+(+R7(7,3)+R5(7,5)*SIX+R5(2,21)*THREE
     * +R3(7,1)*THREE+R3(2,27)*P18+R1(2,1)*NINE)*QX
      F(5,2,1,1)= R8(8)+R6(8,1)*SIX+R6(3,9)+R4(8,1)*THREE+R4(3,14)*SIX
     * +R2(5,1)*THREE+(+R7(8,3)+R5(8,5)*SIX+R5(3,21)+R3(8,1)*THREE
     * +R3(3,27)*SIX+R1(3,1)*THREE)*QX+(+R7(4,3)+R5(4,5)*SIX+R5(1,21)
     * +R3(4,1)*THREE+R3(1,27)*SIX+R1(1,1)*THREE)*QZ+(+R6(4,10)
     * +R4(4,15)*SIX+R4(1,39)+R2(2,2)*THREE+R2(1,38)*SIX+R0(2)*THREE)*XZ
      F(6,2,1,1)= R8(12)+R6(12,1)*SIX+R6(5,9)*THREE+R4(12,1)*THREE
     * +R4(5,14)*P18+R2(6,1)*NINE+(+R7(7,3)+R5(7,5)*SIX+R5(2,21)*THREE
     * +R3(7,1)*THREE+R3(2,27)*P18+R1(2,1)*NINE)*QZ
      F(1,3,1,1)= R8(6)+R6(6,1)*SIX+R6(1,9)+R6(6,9)+R4(6,1)*THREE
     * +R4(1,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(6,3)*TWO+R5(6,5)*TWELV
     * +R5(1,21)*TWO+R3(6,1)*SIX+R3(1,27)*TWELV+R1(1,1)*SIX)*QX+(
     * +R7(3,4)*TWO+R5(3,6)*TWELV+R5(3,22)*TWO+R3(3,2)*SIX
     * +R3(3,28)*TWELV+R1(3,2)*SIX)*QZ+(+R6(6,10)+R4(6,15)*SIX+R4(1,39)
     * +R2(3,2)*THREE+R2(1,38)*SIX+R0(2)*THREE)*XX+(+R6(3,11)*FOUR
     * +R4(3,16)*P24+R2(5,3)*TWELV)*XZ+(+R6(1,12)+R4(1,17)*SIX+R4(1,41)
     * +R2(1,4)*THREE+R2(1,40)*SIX+R0(4)*THREE)*ZZ+(+R5(3,23)*TWO
     * +R3(3,29)*TWELV+R1(3,3)*SIX)*XXZ+(+R5(1,24)*TWO+R3(1,30)*TWELV
     * +R1(1,4)*SIX)*XZZ+(+R4(1,42)+R2(1,41)*SIX+R0(5)*THREE)*XXZZ
      F(2,3,1,1)= R8(13)+R6(13,1)*SIX+R6(4,9)+R6(6,9)+R4(13,1)*THREE
     * +R4(4,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(2,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(8,4)*TWO+R5(8,6)*TWELV
     * +R5(3,22)*TWO+R3(8,2)*SIX+R3(3,28)*TWELV+R1(3,2)*SIX)*QZ+(
     * +R6(4,12)+R4(4,17)*SIX+R4(1,41)+R2(2,4)*THREE+R2(1,40)*SIX
     * +R0(4)*THREE)*ZZ
      F(3,3,1,1)= R8(15)+R6(15,1)*SIX+R6(6,9)*SIX+R4(15,1)*THREE
     * +R4(6,14)*P36+R4(1,38)*THREE+R2(3,1)*P18+R2(1,37)*P18+R0(1)*NINE
     * +(+R7(10,3)*TWO+R7(10,4)*TWO+R5(10,5)*TWELV+R5(10,6)*TWELV
     * +R5(3,21)*SIX+R5(3,22)*SIX+R3(10,1)*SIX+R3(10,2)*SIX+R3(3,27)*P36
     * +R3(3,28)*P36+R1(3,1)*P18+R1(3,2)*P18)*QZ+(+R6(6,10)
     * +R6(6,11)*FOUR+R6(6,12)+R4(6,15)*SIX+R4(6,16)*P24+R4(6,17)*SIX
     * +R4(1,39)+R4(1,40)*FOUR+R4(1,41)+R2(3,2)*THREE+R2(3,3)*TWELV
     * +R2(3,4)*THREE+R2(1,38)*SIX+R2(1,39)*P24+R2(1,40)*SIX+R0(2)*THREE
     * +R0(3)*TWELV+R0(4)*THREE)*ZZ+(+R5(3,23)*TWO+R5(3,24)*TWO
     * +R3(3,29)*TWELV+R3(3,30)*TWELV+R1(3,3)*SIX+R1(3,4)*SIX)*ZZZ+(
     * +R4(1,42)+R2(1,41)*SIX+R0(5)*THREE)*ZZZZ
      F(4,3,1,1)= R8(9)+R6(9,1)*SIX+R6(2,9)+R4(9,1)*THREE+R4(2,14)*SIX
     * +R2(4,1)*THREE+(+R7(9,3)+R5(9,5)*SIX+R5(2,21)+R3(9,1)*THREE
     * +R3(2,27)*SIX+R1(2,1)*THREE)*QX+(+R7(5,4)*TWO+R5(5,6)*TWELV
     * +R3(5,2)*SIX)*QZ+(+R6(5,11)*TWO+R4(5,16)*TWELV+R2(6,3)*SIX)*XZ+(
     * +R6(2,12)+R4(2,17)*SIX+R2(4,4)*THREE)*ZZ+(+R5(2,24)+R3(2,30)*SIX
     * +R1(2,4)*THREE)*XZZ
      F(5,3,1,1)= R8(10)+R6(10,1)*SIX+R6(3,9)*THREE+R4(10,1)*THREE
     * +R4(3,14)*P18+R2(5,1)*NINE+(+R7(10,3)+R5(10,5)*SIX+R5(3,21)*THREE
     * +R3(10,1)*THREE+R3(3,27)*P18+R1(3,1)*NINE)*QX+(+R7(6,3)
     * +R7(6,4)*TWO+R5(6,5)*SIX+R5(6,6)*TWELV+R5(1,21)+R5(1,22)*TWO
     * +R3(6,1)*THREE+R3(6,2)*SIX+R3(1,27)*SIX+R3(1,28)*TWELV
     * +R1(1,1)*THREE+R1(1,2)*SIX)*QZ+(+R6(6,10)+R6(6,11)*TWO
     * +R4(6,15)*SIX+R4(6,16)*TWELV+R4(1,39)+R4(1,40)*TWO+R2(3,2)*THREE
     * +R2(3,3)*SIX+R2(1,38)*SIX+R2(1,39)*TWELV+R0(2)*THREE+R0(3)*SIX)
     * *XZ+(+R6(3,11)*TWO+R6(3,12)+R4(3,16)*TWELV+R4(3,17)*SIX
     * +R2(5,3)*SIX+R2(5,4)*THREE)*ZZ+(+R5(3,23)*TWO+R5(3,24)
     * +R3(3,29)*TWELV+R3(3,30)*SIX+R1(3,3)*SIX+R1(3,4)*THREE)*XZZ+(
     * +R5(1,24)+R3(1,30)*SIX+R1(1,4)*THREE)*ZZZ+(+R4(1,42)+R2(1,41)*SIX
     * +R0(5)*THREE)*XZZZ
      F(6,3,1,1)= R8(14)+R6(14,1)*SIX+R6(5,9)*THREE+R4(14,1)*THREE
     * +R4(5,14)*P18+R2(6,1)*NINE+(+R7(9,3)+R7(9,4)*TWO+R5(9,5)*SIX
     * +R5(9,6)*TWELV+R5(2,21)+R5(2,22)*TWO+R3(9,1)*THREE+R3(9,2)*SIX
     * +R3(2,27)*SIX+R3(2,28)*TWELV+R1(2,1)*THREE+R1(2,2)*SIX)*QZ+(
     * +R6(5,11)*TWO+R6(5,12)+R4(5,16)*TWELV+R4(5,17)*SIX+R2(6,3)*SIX
     * +R2(6,4)*THREE)*ZZ+(+R5(2,24)+R3(2,30)*SIX+R1(2,4)*THREE)*ZZZ
      F(1,4,1,1)= R8(2)+R6(2,1)*SIX+R6(2,9)*THREE+R4(2,1)*THREE
     * +R4(2,14)*P18+R2(4,1)*NINE+(+R7(2,3)*TWO+R7(2,4)+R5(2,5)*TWELV
     * +R5(2,6)*SIX+R5(2,21)*TWO+R5(2,22)+R3(2,1)*SIX+R3(2,2)*THREE
     * +R3(2,27)*TWELV+R3(2,28)*SIX+R1(2,1)*SIX+R1(2,2)*THREE)*QX+(
     * +R6(2,10)+R6(2,11)*TWO+R4(2,15)*SIX+R4(2,16)*TWELV+R2(4,2)*THREE
     * +R2(4,3)*SIX)*XX+(+R5(2,23)+R3(2,29)*SIX+R1(2,3)*THREE)*XXX
      F(2,4,1,1)= R8(7)+R6(7,1)*SIX+R6(2,9)*THREE+R4(7,1)*THREE
     * +R4(2,14)*P18+R2(4,1)*NINE+(+R7(7,4)+R5(7,6)*SIX+R5(2,22)*THREE
     * +R3(7,2)*THREE+R3(2,28)*P18+R1(2,2)*NINE)*QX
      F(3,4,1,1)= R8(9)+R6(9,1)*SIX+R6(2,9)+R4(9,1)*THREE+R4(2,14)*SIX
     * +R2(4,1)*THREE+(+R7(9,4)+R5(9,6)*SIX+R5(2,22)+R3(9,2)*THREE
     * +R3(2,28)*SIX+R1(2,2)*THREE)*QX+(+R7(5,3)*TWO+R5(5,5)*TWELV
     * +R3(5,1)*SIX)*QZ+(+R6(5,11)*TWO+R4(5,16)*TWELV+R2(6,3)*SIX)*XZ+(
     * +R6(2,10)+R4(2,15)*SIX+R2(4,2)*THREE)*ZZ+(+R5(2,23)+R3(2,29)*SIX
     * +R1(2,3)*THREE)*XZZ
      F(4,4,1,1)= R8(4)+R6(4,1)*SIX+R6(1,9)+R6(4,9)+R4(4,1)*THREE
     * +R4(1,14)*SIX+R4(4,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(4,3)+R7(4,4)+R5(4,5)*SIX
     * +R5(4,6)*SIX+R5(1,21)+R5(1,22)+R3(4,1)*THREE+R3(4,2)*THREE
     * +R3(1,27)*SIX+R3(1,28)*SIX+R1(1,1)*THREE+R1(1,2)*THREE)*QX+(
     * +R6(4,11)+R4(4,16)*SIX+R4(1,40)+R2(2,3)*THREE+R2(1,39)*SIX
     * +R0(3)*THREE)*XX
      F(5,4,1,1)= R8(5)+R6(5,1)*SIX+R6(5,9)+R4(5,1)*THREE+R4(5,14)*SIX
     * +R2(6,1)*THREE+(+R7(5,3)+R7(5,4)+R5(5,5)*SIX+R5(5,6)*SIX
     * +R3(5,1)*THREE+R3(5,2)*THREE)*QX+(+R7(2,3)+R5(2,5)*SIX+R5(2,21)
     * +R3(2,1)*THREE+R3(2,27)*SIX+R1(2,1)*THREE)*QZ+(+R6(5,11)
     * +R4(5,16)*SIX+R2(6,3)*THREE)*XX+(+R6(2,10)+R6(2,11)+R4(2,15)*SIX
     * +R4(2,16)*SIX+R2(4,2)*THREE+R2(4,3)*THREE)*XZ+(+R5(2,23)
     * +R3(2,29)*SIX+R1(2,3)*THREE)*XXZ
      F(6,4,1,1)= R8(8)+R6(8,1)*SIX+R6(3,9)+R4(8,1)*THREE+R4(3,14)*SIX
     * +R2(5,1)*THREE+(+R7(8,4)+R5(8,6)*SIX+R5(3,22)+R3(8,2)*THREE
     * +R3(3,28)*SIX+R1(3,2)*THREE)*QX+(+R7(4,3)+R5(4,5)*SIX+R5(1,21)
     * +R3(4,1)*THREE+R3(1,27)*SIX+R1(1,1)*THREE)*QZ+(+R6(4,11)
     * +R4(4,16)*SIX+R4(1,40)+R2(2,3)*THREE+R2(1,39)*SIX+R0(3)*THREE)*XZ
      F(1,5,1,1)= R8(3)+R6(3,1)*SIX+R6(3,9)*THREE+R4(3,1)*THREE
     * +R4(3,14)*P18+R2(5,1)*NINE+(+R7(3,3)*TWO+R7(3,4)+R5(3,5)*TWELV
     * +R5(3,6)*SIX+R5(3,21)*TWO+R5(3,22)+R3(3,1)*SIX+R3(3,2)*THREE
     * +R3(3,27)*TWELV+R3(3,28)*SIX+R1(3,1)*SIX+R1(3,2)*THREE)*QX+(
     * +R7(1,4)+R5(1,6)*SIX+R5(1,22)*THREE+R3(1,2)*THREE+R3(1,28)*P18
     * +R1(1,2)*NINE)*QZ+(+R6(3,10)+R6(3,11)*TWO+R4(3,15)*SIX
     * +R4(3,16)*TWELV+R2(5,2)*THREE+R2(5,3)*SIX)*XX+(+R6(1,11)*TWO
     * +R6(1,12)+R4(1,16)*TWELV+R4(1,17)*SIX+R4(1,40)*TWO+R4(1,41)
     * +R2(1,3)*SIX+R2(1,4)*THREE+R2(1,39)*TWELV+R2(1,40)*SIX+R0(3)*SIX
     * +R0(4)*THREE)*XZ+(+R5(3,23)+R3(3,29)*SIX+R1(3,3)*THREE)*XXX+(
     * +R5(1,23)+R5(1,24)*TWO+R3(1,29)*SIX+R3(1,30)*TWELV+R1(1,3)*THREE
     * +R1(1,4)*SIX)*XXZ+(+R4(1,42)+R2(1,41)*SIX+R0(5)*THREE)*XXXZ
      F(2,5,1,1)= R8(8)+R6(8,1)*SIX+R6(3,9)+R4(8,1)*THREE+R4(3,14)*SIX
     * +R2(5,1)*THREE+(+R7(8,4)+R5(8,6)*SIX+R5(3,22)+R3(8,2)*THREE
     * +R3(3,28)*SIX+R1(3,2)*THREE)*QX+(+R7(4,4)+R5(4,6)*SIX+R5(1,22)
     * +R3(4,2)*THREE+R3(1,28)*SIX+R1(1,2)*THREE)*QZ+(+R6(4,12)
     * +R4(4,17)*SIX+R4(1,41)+R2(2,4)*THREE+R2(1,40)*SIX+R0(4)*THREE)*XZ
      F(3,5,1,1)= R8(10)+R6(10,1)*SIX+R6(3,9)*THREE+R4(10,1)*THREE
     * +R4(3,14)*P18+R2(5,1)*NINE+(+R7(10,4)+R5(10,6)*SIX+R5(3,22)*THREE
     * +R3(10,2)*THREE+R3(3,28)*P18+R1(3,2)*NINE)*QX+(+R7(6,3)*TWO
     * +R7(6,4)+R5(6,5)*TWELV+R5(6,6)*SIX+R5(1,21)*TWO+R5(1,22)
     * +R3(6,1)*SIX+R3(6,2)*THREE+R3(1,27)*TWELV+R3(1,28)*SIX
     * +R1(1,1)*SIX+R1(1,2)*THREE)*QZ+(+R6(6,11)*TWO+R6(6,12)
     * +R4(6,16)*TWELV+R4(6,17)*SIX+R4(1,40)*TWO+R4(1,41)+R2(3,3)*SIX
     * +R2(3,4)*THREE+R2(1,39)*TWELV+R2(1,40)*SIX+R0(3)*SIX+R0(4)*THREE)
     * *XZ+(+R6(3,10)+R6(3,11)*TWO+R4(3,15)*SIX+R4(3,16)*TWELV
     * +R2(5,2)*THREE+R2(5,3)*SIX)*ZZ+(+R5(3,23)+R5(3,24)*TWO
     * +R3(3,29)*SIX+R3(3,30)*TWELV+R1(3,3)*THREE+R1(3,4)*SIX)*XZZ+(
     * +R5(1,23)+R3(1,29)*SIX+R1(1,3)*THREE)*ZZZ+(+R4(1,42)+R2(1,41)*SIX
     * +R0(5)*THREE)*XZZZ
      F(4,5,1,1)= R8(5)+R6(5,1)*SIX+R6(5,9)+R4(5,1)*THREE+R4(5,14)*SIX
     * +R2(6,1)*THREE+(+R7(5,3)+R7(5,4)+R5(5,5)*SIX+R5(5,6)*SIX
     * +R3(5,1)*THREE+R3(5,2)*THREE)*QX+(+R7(2,4)+R5(2,6)*SIX+R5(2,22)
     * +R3(2,2)*THREE+R3(2,28)*SIX+R1(2,2)*THREE)*QZ+(+R6(5,11)
     * +R4(5,16)*SIX+R2(6,3)*THREE)*XX+(+R6(2,11)+R6(2,12)+R4(2,16)*SIX
     * +R4(2,17)*SIX+R2(4,3)*THREE+R2(4,4)*THREE)*XZ+(+R5(2,24)
     * +R3(2,30)*SIX+R1(2,4)*THREE)*XXZ
      F(5,5,1,1)= R8(6)+R6(6,1)*SIX+R6(1,9)+R6(6,9)+R4(6,1)*THREE
     * +R4(1,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(6,3)+R7(6,4)+R5(6,5)*SIX
     * +R5(6,6)*SIX+R5(1,21)+R5(1,22)+R3(6,1)*THREE+R3(6,2)*THREE
     * +R3(1,27)*SIX+R3(1,28)*SIX+R1(1,1)*THREE+R1(1,2)*THREE)*QX+(
     * +R7(3,3)+R7(3,4)+R5(3,5)*SIX+R5(3,6)*SIX+R5(3,21)+R5(3,22)
     * +R3(3,1)*THREE+R3(3,2)*THREE+R3(3,27)*SIX+R3(3,28)*SIX
     * +R1(3,1)*THREE+R1(3,2)*THREE)*QZ+(+R6(6,11)+R4(6,16)*SIX+R4(1,40)
     * +R2(3,3)*THREE+R2(1,39)*SIX+R0(3)*THREE)*XX+(+R6(3,10)
     * +R6(3,11)*TWO+R6(3,12)+R4(3,15)*SIX+R4(3,16)*TWELV+R4(3,17)*SIX
     * +R2(5,2)*THREE+R2(5,3)*SIX+R2(5,4)*THREE)*XZ+(+R6(1,11)
     * +R4(1,16)*SIX+R4(1,40)+R2(1,3)*THREE+R2(1,39)*SIX+R0(3)*THREE)*ZZ
     * +(+R5(3,23)+R5(3,24)+R3(3,29)*SIX+R3(3,30)*SIX+R1(3,3)*THREE
     * +R1(3,4)*THREE)*XXZ+(+R5(1,23)+R5(1,24)+R3(1,29)*SIX+R3(1,30)*SIX
     * +R1(1,3)*THREE+R1(1,4)*THREE)*XZZ+(+R4(1,42)+R2(1,41)*SIX
     * +R0(5)*THREE)*XXZZ
      F(6,5,1,1)= R8(9)+R6(9,1)*SIX+R6(2,9)+R4(9,1)*THREE+R4(2,14)*SIX
     * +R2(4,1)*THREE+(+R7(9,4)+R5(9,6)*SIX+R5(2,22)+R3(9,2)*THREE
     * +R3(2,28)*SIX+R1(2,2)*THREE)*QX+(+R7(5,3)+R7(5,4)+R5(5,5)*SIX
     * +R5(5,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QZ+(+R6(5,11)+R6(5,12)
     * +R4(5,16)*SIX+R4(5,17)*SIX+R2(6,3)*THREE+R2(6,4)*THREE)*XZ+(
     * +R6(2,11)+R4(2,16)*SIX+R2(4,3)*THREE)*ZZ+(+R5(2,24)+R3(2,30)*SIX
     * +R1(2,4)*THREE)*XZZ
      F(1,6,1,1)= R8(5)+R6(5,1)*SIX+R6(5,9)+R4(5,1)*THREE+R4(5,14)*SIX
     * +R2(6,1)*THREE+(+R7(5,3)*TWO+R5(5,5)*TWELV+R3(5,1)*SIX)*QX+(
     * +R7(2,4)+R5(2,6)*SIX+R5(2,22)+R3(2,2)*THREE+R3(2,28)*SIX
     * +R1(2,2)*THREE)*QZ+(+R6(5,10)+R4(5,15)*SIX+R2(6,2)*THREE)*XX+(
     * +R6(2,11)*TWO+R4(2,16)*TWELV+R2(4,3)*SIX)*XZ+(+R5(2,23)
     * +R3(2,29)*SIX+R1(2,3)*THREE)*XXZ
      F(2,6,1,1)= R8(12)+R6(12,1)*SIX+R6(5,9)*THREE+R4(12,1)*THREE
     * +R4(5,14)*P18+R2(6,1)*NINE+(+R7(7,4)+R5(7,6)*SIX+R5(2,22)*THREE
     * +R3(7,2)*THREE+R3(2,28)*P18+R1(2,2)*NINE)*QZ
      F(3,6,1,1)= R8(14)+R6(14,1)*SIX+R6(5,9)*THREE+R4(14,1)*THREE
     * +R4(5,14)*P18+R2(6,1)*NINE+(+R7(9,3)*TWO+R7(9,4)+R5(9,5)*TWELV
     * +R5(9,6)*SIX+R5(2,21)*TWO+R5(2,22)+R3(9,1)*SIX+R3(9,2)*THREE
     * +R3(2,27)*TWELV+R3(2,28)*SIX+R1(2,1)*SIX+R1(2,2)*THREE)*QZ+(
     * +R6(5,10)+R6(5,11)*TWO+R4(5,15)*SIX+R4(5,16)*TWELV+R2(6,2)*THREE
     * +R2(6,3)*SIX)*ZZ+(+R5(2,23)+R3(2,29)*SIX+R1(2,3)*THREE)*ZZZ
      F(4,6,1,1)= R8(8)+R6(8,1)*SIX+R6(3,9)+R4(8,1)*THREE+R4(3,14)*SIX
     * +R2(5,1)*THREE+(+R7(8,3)+R5(8,5)*SIX+R5(3,21)+R3(8,1)*THREE
     * +R3(3,27)*SIX+R1(3,1)*THREE)*QX+(+R7(4,4)+R5(4,6)*SIX+R5(1,22)
     * +R3(4,2)*THREE+R3(1,28)*SIX+R1(1,2)*THREE)*QZ+(+R6(4,11)
     * +R4(4,16)*SIX+R4(1,40)+R2(2,3)*THREE+R2(1,39)*SIX+R0(3)*THREE)*XZ
      F(5,6,1,1)= R8(9)+R6(9,1)*SIX+R6(2,9)+R4(9,1)*THREE+R4(2,14)*SIX
     * +R2(4,1)*THREE+(+R7(9,3)+R5(9,5)*SIX+R5(2,21)+R3(9,1)*THREE
     * +R3(2,27)*SIX+R1(2,1)*THREE)*QX+(+R7(5,3)+R7(5,4)+R5(5,5)*SIX
     * +R5(5,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QZ+(+R6(5,10)+R6(5,11)
     * +R4(5,15)*SIX+R4(5,16)*SIX+R2(6,2)*THREE+R2(6,3)*THREE)*XZ+(
     * +R6(2,11)+R4(2,16)*SIX+R2(4,3)*THREE)*ZZ+(+R5(2,23)+R3(2,29)*SIX
     * +R1(2,3)*THREE)*XZZ
      F(6,6,1,1)= R8(13)+R6(13,1)*SIX+R6(4,9)+R6(6,9)+R4(13,1)*THREE
     * +R4(4,14)*SIX+R4(6,14)*SIX+R4(1,38)+R2(2,1)*THREE+R2(3,1)*THREE
     * +R2(1,37)*SIX+R0(1)*THREE+(+R7(8,3)+R7(8,4)+R5(8,5)*SIX
     * +R5(8,6)*SIX+R5(3,21)+R5(3,22)+R3(8,1)*THREE+R3(8,2)*THREE
     * +R3(3,27)*SIX+R3(3,28)*SIX+R1(3,1)*THREE+R1(3,2)*THREE)*QZ+(
     * +R6(4,11)+R4(4,16)*SIX+R4(1,40)+R2(2,3)*THREE+R2(1,39)*SIX
     * +R0(3)*THREE)*ZZ
      F(1,1,2,1)= R8(4)+R6(1,1)+R6(4,1)+R6(4,9)*SIX+R4(1,1)+R4(1,14)*SIX
     * +R4(4,14)*SIX+R4(4,38)*THREE+R2(1,1)*SIX+R2(1,37)*THREE
     * +R2(2,37)*THREE+R0(1)*THREE+(+R7(4,3)*TWO+R7(4,4)*TWO+R5(1,5)*TWO
     * +R5(4,5)*TWO+R5(1,6)*TWO+R5(4,6)*TWO+R5(4,21)*SIX+R5(4,22)*SIX
     * +R3(1,1)*TWO+R3(1,2)*TWO+R3(1,27)*SIX+R3(4,27)*SIX+R3(1,28)*SIX
     * +R3(4,28)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)*QX+(+R6(4,10)
     * +R6(4,11)*FOUR+R6(4,12)+R4(1,15)+R4(4,15)+R4(1,16)*FOUR
     * +R4(4,16)*FOUR+R4(1,17)+R4(4,17)+R4(4,39)+R4(4,40)*FOUR+R4(4,41)
     * +R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,38)+R2(2,38)+R2(1,39)*FOUR
     * +R2(2,39)*FOUR+R2(1,40)+R2(2,40)+R0(2)+R0(3)*FOUR+R0(4))*XX+(
     * +R5(4,23)*TWO+R5(4,24)*TWO+R3(1,29)*TWO+R3(4,29)*TWO+R3(1,30)*TWO
     * +R3(4,30)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(+R4(4,42)+R2(1,41)
     * +R2(2,41)+R0(5))*XXXX
      F(2,1,2,1)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,4)*TWO+R5(4,6)*TWO+R5(11,6)*TWO
     * +R5(4,22)*TWO+R3(4,2)*TWO+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,2)*TWO)
     * *QX+(+R6(11,12)+R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)
     * +R2(2,40)+R0(4))*XX
      F(3,1,2,1)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,4)*TWO+R5(6,6)*TWO+R5(13,6)*TWO
     * +R5(4,22)*TWO+R3(6,2)*TWO+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,2)*TWO)
     * *QX+(+R7(8,3)*TWO+R5(3,5)*TWO+R5(8,5)*TWO+R5(8,21)*TWO
     * +R3(3,1)*TWO+R3(3,27)*TWO+R3(8,27)*TWO+R1(3,1)*TWO)*QZ+(
     * +R6(13,12)+R4(6,17)+R4(13,17)+R4(4,41)+R2(3,4)+R2(1,40)+R2(2,40)
     * +R0(4))*XX+(+R6(8,11)*FOUR+R4(3,16)*FOUR+R4(8,16)*FOUR
     * +R2(5,3)*FOUR)*XZ+(+R6(4,10)+R4(1,15)+R4(4,15)+R4(4,39)+R2(1,2)
     * +R2(1,38)+R2(2,38)+R0(2))*ZZ+(+R5(8,24)*TWO+R3(3,30)*TWO
     * +R3(8,30)*TWO+R1(3,4)*TWO)*XXZ+(+R5(4,23)*TWO+R3(1,29)*TWO
     * +R3(4,29)*TWO+R1(1,3)*TWO)*XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5)
     * )*XXZZ
      F(4,1,2,1)= R8(7)+R6(2,1)+R6(7,1)+R6(7,9)*THREE+R4(2,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(7,3)
     * +R7(7,4)*TWO+R5(2,5)+R5(7,5)+R5(2,6)*TWO+R5(7,6)*TWO+R5(7,21)
     * +R5(7,22)*TWO+R3(2,1)+R3(2,2)*TWO+R3(2,27)+R3(7,27)+R3(2,28)*TWO
     * +R3(7,28)*TWO+R1(2,1)+R1(2,2)*TWO)*QX+(+R6(7,11)*TWO+R6(7,12)
     * +R4(2,16)*TWO+R4(7,16)*TWO+R4(2,17)+R4(7,17)+R2(4,3)*TWO+R2(4,4))
     * *XX+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XXX
      F(5,1,2,1)= R8(8)+R6(3,1)+R6(8,1)+R6(8,9)*THREE+R4(3,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(8,3)
     * +R7(8,4)*TWO+R5(3,5)+R5(8,5)+R5(3,6)*TWO+R5(8,6)*TWO+R5(8,21)
     * +R5(8,22)*TWO+R3(3,1)+R3(3,2)*TWO+R3(3,27)+R3(8,27)+R3(3,28)*TWO
     * +R3(8,28)*TWO+R1(3,1)+R1(3,2)*TWO)*QX+(+R7(4,3)+R5(1,5)+R5(4,5)
     * +R5(4,21)*THREE+R3(1,1)+R3(1,27)*THREE+R3(4,27)*THREE
     * +R1(1,1)*THREE)*QZ+(+R6(8,11)*TWO+R6(8,12)+R4(3,16)*TWO
     * +R4(8,16)*TWO+R4(3,17)+R4(8,17)+R2(5,3)*TWO+R2(5,4))*XX+(
     * +R6(4,10)+R6(4,11)*TWO+R4(1,15)+R4(4,15)+R4(1,16)*TWO
     * +R4(4,16)*TWO+R4(4,39)+R4(4,40)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,38)
     * +R2(2,38)+R2(1,39)*TWO+R2(2,39)*TWO+R0(2)+R0(3)*TWO)*XZ+(
     * +R5(8,24)+R3(3,30)+R3(8,30)+R1(3,4))*XXX+(+R5(4,23)*TWO+R5(4,24)
     * +R3(1,29)*TWO+R3(4,29)*TWO+R3(1,30)+R3(4,30)+R1(1,3)*TWO+R1(1,4))
     * *XXZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXXZ
      F(6,1,2,1)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,4)*TWO+R5(5,6)*TWO+R5(12,6)*TWO
     * +R3(5,2)*TWO)*QX+(+R7(7,3)+R5(2,5)+R5(7,5)+R5(7,21)+R3(2,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QZ+(+R6(12,12)+R4(5,17)+R4(12,17)
     * +R2(6,4))*XX+(+R6(7,11)*TWO+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,3)*TWO
     * )*XZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XXZ
      F(1,2,2,1)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,3)*TWO+R5(4,5)*TWO+R5(11,5)*TWO
     * +R5(4,21)*TWO+R3(4,1)*TWO+R3(1,27)*TWO+R3(4,27)*TWO+R1(1,1)*TWO)
     * *QX+(+R6(11,10)+R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)
     * +R2(2,38)+R0(2))*XX
      F(2,2,2,1)= R8(22)+R6(11,1)+R6(22,1)+R6(11,9)*SIX+R4(11,1)
     * +R4(4,14)*SIX+R4(11,14)*SIX+R4(4,38)*THREE+R2(2,1)*SIX
     * +R2(1,37)*THREE+R2(2,37)*THREE+R0(1)*THREE
      F(3,2,2,1)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,3)*TWO+R5(8,5)*TWO+R5(17,5)*TWO
     * +R5(8,21)*TWO+R3(8,1)*TWO+R3(3,27)*TWO+R3(8,27)*TWO+R1(3,1)*TWO)
     * *QZ+(+R6(11,10)+R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)
     * +R2(2,38)+R0(2))*ZZ
      F(4,2,2,1)= R8(16)+R6(7,1)+R6(16,1)+R6(7,9)*THREE+R4(7,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(16,3)+R5(7,5)
     * +R5(16,5)+R5(7,21)*THREE+R3(7,1)+R3(2,27)*THREE+R3(7,27)*THREE
     * +R1(2,1)*THREE)*QX
      F(5,2,2,1)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,3)+R5(8,5)+R5(17,5)+R5(8,21)+R3(8,1)
     * +R3(3,27)+R3(8,27)+R1(3,1))*QX+(+R7(11,3)+R5(4,5)+R5(11,5)
     * +R5(4,21)+R3(4,1)+R3(1,27)+R3(4,27)+R1(1,1))*QZ+(+R6(11,10)
     * +R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)+R2(2,38)+R0(2))*XZ
      F(6,2,2,1)= R8(23)+R6(12,1)+R6(23,1)+R6(12,9)*THREE+R4(12,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(16,3)+R5(7,5)
     * +R5(16,5)+R5(7,21)*THREE+R3(7,1)+R3(2,27)*THREE+R3(7,27)*THREE
     * +R1(2,1)*THREE)*QZ
      F(1,3,2,1)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,3)*TWO+R5(6,5)*TWO+R5(13,5)*TWO
     * +R5(4,21)*TWO+R3(6,1)*TWO+R3(1,27)*TWO+R3(4,27)*TWO+R1(1,1)*TWO)
     * *QX+(+R7(8,4)*TWO+R5(3,6)*TWO+R5(8,6)*TWO+R5(8,22)*TWO
     * +R3(3,2)*TWO+R3(3,28)*TWO+R3(8,28)*TWO+R1(3,2)*TWO)*QZ+(
     * +R6(13,10)+R4(6,15)+R4(13,15)+R4(4,39)+R2(3,2)+R2(1,38)+R2(2,38)
     * +R0(2))*XX+(+R6(8,11)*FOUR+R4(3,16)*FOUR+R4(8,16)*FOUR
     * +R2(5,3)*FOUR)*XZ+(+R6(4,12)+R4(1,17)+R4(4,17)+R4(4,41)+R2(1,4)
     * +R2(1,40)+R2(2,40)+R0(4))*ZZ+(+R5(8,23)*TWO+R3(3,29)*TWO
     * +R3(8,29)*TWO+R1(3,3)*TWO)*XXZ+(+R5(4,24)*TWO+R3(1,30)*TWO
     * +R3(4,30)*TWO+R1(1,4)*TWO)*XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5)
     * )*XXZZ
      F(2,3,2,1)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,4)*TWO+R5(8,6)*TWO+R5(17,6)*TWO
     * +R5(8,22)*TWO+R3(8,2)*TWO+R3(3,28)*TWO+R3(8,28)*TWO+R1(3,2)*TWO)
     * *QZ+(+R6(11,12)+R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)
     * +R2(2,40)+R0(4))*ZZ
      F(3,3,2,1)= R8(26)+R6(15,1)+R6(26,1)+R6(13,9)*SIX+R4(15,1)
     * +R4(6,14)*SIX+R4(13,14)*SIX+R4(4,38)*THREE+R2(3,1)*SIX
     * +R2(1,37)*THREE+R2(2,37)*THREE+R0(1)*THREE+(+R7(19,3)*TWO
     * +R7(19,4)*TWO+R5(10,5)*TWO+R5(19,5)*TWO+R5(10,6)*TWO+R5(19,6)*TWO
     * +R5(8,21)*SIX+R5(8,22)*SIX+R3(10,1)*TWO+R3(10,2)*TWO+R3(3,27)*SIX
     * +R3(8,27)*SIX+R3(3,28)*SIX+R3(8,28)*SIX+R1(3,1)*SIX+R1(3,2)*SIX)
     * *QZ+(+R6(13,10)+R6(13,11)*FOUR+R6(13,12)+R4(6,15)+R4(13,15)
     * +R4(6,16)*FOUR+R4(13,16)*FOUR+R4(6,17)+R4(13,17)+R4(4,39)
     * +R4(4,40)*FOUR+R4(4,41)+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(1,38)
     * +R2(2,38)+R2(1,39)*FOUR+R2(2,39)*FOUR+R2(1,40)+R2(2,40)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R5(8,23)*TWO+R5(8,24)*TWO+R3(3,29)*TWO
     * +R3(8,29)*TWO+R3(3,30)*TWO+R3(8,30)*TWO+R1(3,3)*TWO+R1(3,4)*TWO)
     * *ZZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*ZZZZ
      F(4,3,2,1)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,3)+R5(9,5)+R5(18,5)+R5(7,21)+R3(9,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QX+(+R7(12,4)*TWO+R5(5,6)*TWO
     * +R5(12,6)*TWO+R3(5,2)*TWO)*QZ+(+R6(12,11)*TWO+R4(5,16)*TWO
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R6(7,12)+R4(2,17)+R4(7,17)
     * +R2(4,4))*ZZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XZZ
      F(5,3,2,1)= R8(19)+R6(10,1)+R6(19,1)+R6(8,9)*THREE+R4(10,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(19,3)+R5(10,5)
     * +R5(19,5)+R5(8,21)*THREE+R3(10,1)+R3(3,27)*THREE+R3(8,27)*THREE
     * +R1(3,1)*THREE)*QX+(+R7(13,3)+R7(13,4)*TWO+R5(6,5)+R5(13,5)
     * +R5(6,6)*TWO+R5(13,6)*TWO+R5(4,21)+R5(4,22)*TWO+R3(6,1)
     * +R3(6,2)*TWO+R3(1,27)+R3(4,27)+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R6(13,10)+R6(13,11)*TWO+R4(6,15)+R4(13,15)
     * +R4(6,16)*TWO+R4(13,16)*TWO+R4(4,39)+R4(4,40)*TWO+R2(3,2)
     * +R2(3,3)*TWO+R2(1,38)+R2(2,38)+R2(1,39)*TWO+R2(2,39)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R6(8,11)*TWO+R6(8,12)+R4(3,16)*TWO+R4(8,16)*TWO
     * +R4(3,17)+R4(8,17)+R2(5,3)*TWO+R2(5,4))*ZZ+(+R5(8,23)*TWO
     * +R5(8,24)+R3(3,29)*TWO+R3(8,29)*TWO+R3(3,30)+R3(8,30)+R1(3,3)*TWO
     * +R1(3,4))*XZZ+(+R5(4,24)+R3(1,30)+R3(4,30)+R1(1,4))*ZZZ+(
     * +R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XZZZ
      F(6,3,2,1)= R8(25)+R6(14,1)+R6(25,1)+R6(12,9)*THREE+R4(14,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(18,3)
     * +R7(18,4)*TWO+R5(9,5)+R5(18,5)+R5(9,6)*TWO+R5(18,6)*TWO+R5(7,21)
     * +R5(7,22)*TWO+R3(9,1)+R3(9,2)*TWO+R3(2,27)+R3(7,27)+R3(2,28)*TWO
     * +R3(7,28)*TWO+R1(2,1)+R1(2,2)*TWO)*QZ+(+R6(12,11)*TWO+R6(12,12)
     * +R4(5,16)*TWO+R4(12,16)*TWO+R4(5,17)+R4(12,17)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*ZZZ
      F(1,4,2,1)= R8(7)+R6(2,1)+R6(7,1)+R6(7,9)*THREE+R4(2,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(7,3)*TWO
     * +R7(7,4)+R5(2,5)*TWO+R5(7,5)*TWO+R5(2,6)+R5(7,6)+R5(7,21)*TWO
     * +R5(7,22)+R3(2,1)*TWO+R3(2,2)+R3(2,27)*TWO+R3(7,27)*TWO+R3(2,28)
     * +R3(7,28)+R1(2,1)*TWO+R1(2,2))*QX+(+R6(7,10)+R6(7,11)*TWO
     * +R4(2,15)+R4(7,15)+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,2)+R2(4,3)*TWO)
     * *XX+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XXX
      F(2,4,2,1)= R8(16)+R6(7,1)+R6(16,1)+R6(7,9)*THREE+R4(7,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(16,4)+R5(7,6)
     * +R5(16,6)+R5(7,22)*THREE+R3(7,2)+R3(2,28)*THREE+R3(7,28)*THREE
     * +R1(2,2)*THREE)*QX
      F(3,4,2,1)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,4)+R5(9,6)+R5(18,6)+R5(7,22)+R3(9,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QX+(+R7(12,3)*TWO+R5(5,5)*TWO
     * +R5(12,5)*TWO+R3(5,1)*TWO)*QZ+(+R6(12,11)*TWO+R4(5,16)*TWO
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R6(7,10)+R4(2,15)+R4(7,15)
     * +R2(4,2))*ZZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XZZ
      F(4,4,2,1)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,3)+R7(11,4)+R5(4,5)+R5(11,5)
     * +R5(4,6)+R5(11,6)+R5(4,21)+R5(4,22)+R3(4,1)+R3(4,2)+R3(1,27)
     * +R3(4,27)+R3(1,28)+R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XX
      F(5,4,2,1)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)+R7(12,4)+R5(5,5)+R5(12,5)+R5(5,6)
     * +R5(12,6)+R3(5,1)+R3(5,2))*QX+(+R7(7,3)+R5(2,5)+R5(7,5)+R5(7,21)
     * +R3(2,1)+R3(2,27)+R3(7,27)+R1(2,1))*QZ+(+R6(12,11)+R4(5,16)
     * +R4(12,16)+R2(6,3))*XX+(+R6(7,10)+R6(7,11)+R4(2,15)+R4(7,15)
     * +R4(2,16)+R4(7,16)+R2(4,2)+R2(4,3))*XZ+(+R5(7,23)+R3(2,29)
     * +R3(7,29)+R1(2,3))*XXZ
      F(6,4,2,1)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,4)+R5(8,6)+R5(17,6)+R5(8,22)+R3(8,2)
     * +R3(3,28)+R3(8,28)+R1(3,2))*QX+(+R7(11,3)+R5(4,5)+R5(11,5)
     * +R5(4,21)+R3(4,1)+R3(1,27)+R3(4,27)+R1(1,1))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XZ
      F(1,5,2,1)= R8(8)+R6(3,1)+R6(8,1)+R6(8,9)*THREE+R4(3,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(8,3)*TWO
     * +R7(8,4)+R5(3,5)*TWO+R5(8,5)*TWO+R5(3,6)+R5(8,6)+R5(8,21)*TWO
     * +R5(8,22)+R3(3,1)*TWO+R3(3,2)+R3(3,27)*TWO+R3(8,27)*TWO+R3(3,28)
     * +R3(8,28)+R1(3,1)*TWO+R1(3,2))*QX+(+R7(4,4)+R5(1,6)+R5(4,6)
     * +R5(4,22)*THREE+R3(1,2)+R3(1,28)*THREE+R3(4,28)*THREE
     * +R1(1,2)*THREE)*QZ+(+R6(8,10)+R6(8,11)*TWO+R4(3,15)+R4(8,15)
     * +R4(3,16)*TWO+R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)*XX+(+R6(4,11)*TWO
     * +R6(4,12)+R4(1,16)*TWO+R4(4,16)*TWO+R4(1,17)+R4(4,17)
     * +R4(4,40)*TWO+R4(4,41)+R2(1,3)*TWO+R2(1,4)+R2(1,39)*TWO
     * +R2(2,39)*TWO+R2(1,40)+R2(2,40)+R0(3)*TWO+R0(4))*XZ+(+R5(8,23)
     * +R3(3,29)+R3(8,29)+R1(3,3))*XXX+(+R5(4,23)+R5(4,24)*TWO+R3(1,29)
     * +R3(4,29)+R3(1,30)*TWO+R3(4,30)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(
     * +R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXXZ
      F(2,5,2,1)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,4)+R5(8,6)+R5(17,6)+R5(8,22)+R3(8,2)
     * +R3(3,28)+R3(8,28)+R1(3,2))*QX+(+R7(11,4)+R5(4,6)+R5(11,6)
     * +R5(4,22)+R3(4,2)+R3(1,28)+R3(4,28)+R1(1,2))*QZ+(+R6(11,12)
     * +R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)+R2(2,40)+R0(4))*XZ
      F(3,5,2,1)= R8(19)+R6(10,1)+R6(19,1)+R6(8,9)*THREE+R4(10,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(19,4)+R5(10,6)
     * +R5(19,6)+R5(8,22)*THREE+R3(10,2)+R3(3,28)*THREE+R3(8,28)*THREE
     * +R1(3,2)*THREE)*QX+(+R7(13,3)*TWO+R7(13,4)+R5(6,5)*TWO
     * +R5(13,5)*TWO+R5(6,6)+R5(13,6)+R5(4,21)*TWO+R5(4,22)+R3(6,1)*TWO
     * +R3(6,2)+R3(1,27)*TWO+R3(4,27)*TWO+R3(1,28)+R3(4,28)+R1(1,1)*TWO
     * +R1(1,2))*QZ+(+R6(13,11)*TWO+R6(13,12)+R4(6,16)*TWO+R4(13,16)*TWO
     * +R4(6,17)+R4(13,17)+R4(4,40)*TWO+R4(4,41)+R2(3,3)*TWO+R2(3,4)
     * +R2(1,39)*TWO+R2(2,39)*TWO+R2(1,40)+R2(2,40)+R0(3)*TWO+R0(4))*XZ
     * +(+R6(8,10)+R6(8,11)*TWO+R4(3,15)+R4(8,15)+R4(3,16)*TWO
     * +R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R5(8,23)+R5(8,24)*TWO
     * +R3(3,29)+R3(8,29)+R3(3,30)*TWO+R3(8,30)*TWO+R1(3,3)+R1(3,4)*TWO)
     * *XZZ+(+R5(4,23)+R3(1,29)+R3(4,29)+R1(1,3))*ZZZ+(+R4(4,42)
     * +R2(1,41)+R2(2,41)+R0(5))*XZZZ
      F(4,5,2,1)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)+R7(12,4)+R5(5,5)+R5(12,5)+R5(5,6)
     * +R5(12,6)+R3(5,1)+R3(5,2))*QX+(+R7(7,4)+R5(2,6)+R5(7,6)+R5(7,22)
     * +R3(2,2)+R3(2,28)+R3(7,28)+R1(2,2))*QZ+(+R6(12,11)+R4(5,16)
     * +R4(12,16)+R2(6,3))*XX+(+R6(7,11)+R6(7,12)+R4(2,16)+R4(7,16)
     * +R4(2,17)+R4(7,17)+R2(4,3)+R2(4,4))*XZ+(+R5(7,24)+R3(2,30)
     * +R3(7,30)+R1(2,4))*XXZ
      F(5,5,2,1)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,3)+R7(13,4)+R5(6,5)+R5(13,5)
     * +R5(6,6)+R5(13,6)+R5(4,21)+R5(4,22)+R3(6,1)+R3(6,2)+R3(1,27)
     * +R3(4,27)+R3(1,28)+R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R7(8,3)+R7(8,4)
     * +R5(3,5)+R5(8,5)+R5(3,6)+R5(8,6)+R5(8,21)+R5(8,22)+R3(3,1)
     * +R3(3,2)+R3(3,27)+R3(8,27)+R3(3,28)+R3(8,28)+R1(3,1)+R1(3,2))*QZ
     * +(+R6(13,11)+R4(6,16)+R4(13,16)+R4(4,40)+R2(3,3)+R2(1,39)
     * +R2(2,39)+R0(3))*XX+(+R6(8,10)+R6(8,11)*TWO+R6(8,12)+R4(3,15)
     * +R4(8,15)+R4(3,16)*TWO+R4(8,16)*TWO+R4(3,17)+R4(8,17)+R2(5,2)
     * +R2(5,3)*TWO+R2(5,4))*XZ+(+R6(4,11)+R4(1,16)+R4(4,16)+R4(4,40)
     * +R2(1,3)+R2(1,39)+R2(2,39)+R0(3))*ZZ+(+R5(8,23)+R5(8,24)+R3(3,29)
     * +R3(8,29)+R3(3,30)+R3(8,30)+R1(3,3)+R1(3,4))*XXZ+(+R5(4,23)
     * +R5(4,24)+R3(1,29)+R3(4,29)+R3(1,30)+R3(4,30)+R1(1,3)+R1(1,4))
     * *XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXZZ
      F(6,5,2,1)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,4)+R5(9,6)+R5(18,6)+R5(7,22)+R3(9,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QX+(+R7(12,3)+R7(12,4)+R5(5,5)
     * +R5(12,5)+R5(5,6)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(+R6(12,11)
     * +R6(12,12)+R4(5,16)+R4(12,16)+R4(5,17)+R4(12,17)+R2(6,3)+R2(6,4))
     * *XZ+(+R6(7,11)+R4(2,16)+R4(7,16)+R2(4,3))*ZZ+(+R5(7,24)+R3(2,30)
     * +R3(7,30)+R1(2,4))*XZZ
      F(1,6,2,1)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)*TWO+R5(5,5)*TWO+R5(12,5)*TWO
     * +R3(5,1)*TWO)*QX+(+R7(7,4)+R5(2,6)+R5(7,6)+R5(7,22)+R3(2,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QZ+(+R6(12,10)+R4(5,15)+R4(12,15)
     * +R2(6,2))*XX+(+R6(7,11)*TWO+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,3)*TWO
     * )*XZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XXZ
      F(2,6,2,1)= R8(23)+R6(12,1)+R6(23,1)+R6(12,9)*THREE+R4(12,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(16,4)+R5(7,6)
     * +R5(16,6)+R5(7,22)*THREE+R3(7,2)+R3(2,28)*THREE+R3(7,28)*THREE
     * +R1(2,2)*THREE)*QZ
      F(3,6,2,1)= R8(25)+R6(14,1)+R6(25,1)+R6(12,9)*THREE+R4(14,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(18,3)*TWO
     * +R7(18,4)+R5(9,5)*TWO+R5(18,5)*TWO+R5(9,6)+R5(18,6)+R5(7,21)*TWO
     * +R5(7,22)+R3(9,1)*TWO+R3(9,2)+R3(2,27)*TWO+R3(7,27)*TWO+R3(2,28)
     * +R3(7,28)+R1(2,1)*TWO+R1(2,2))*QZ+(+R6(12,10)+R6(12,11)*TWO
     * +R4(5,15)+R4(12,15)+R4(5,16)*TWO+R4(12,16)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*ZZZ
      F(4,6,2,1)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,3)+R5(8,5)+R5(17,5)+R5(8,21)+R3(8,1)
     * +R3(3,27)+R3(8,27)+R1(3,1))*QX+(+R7(11,4)+R5(4,6)+R5(11,6)
     * +R5(4,22)+R3(4,2)+R3(1,28)+R3(4,28)+R1(1,2))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XZ
      F(5,6,2,1)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,3)+R5(9,5)+R5(18,5)+R5(7,21)+R3(9,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QX+(+R7(12,3)+R7(12,4)+R5(5,5)
     * +R5(12,5)+R5(5,6)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(+R6(12,10)
     * +R6(12,11)+R4(5,15)+R4(12,15)+R4(5,16)+R4(12,16)+R2(6,2)+R2(6,3))
     * *XZ+(+R6(7,11)+R4(2,16)+R4(7,16)+R2(4,3))*ZZ+(+R5(7,23)+R3(2,29)
     * +R3(7,29)+R1(2,3))*XZZ
      F(6,6,2,1)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,3)+R7(17,4)+R5(8,5)+R5(17,5)
     * +R5(8,6)+R5(17,6)+R5(8,21)+R5(8,22)+R3(8,1)+R3(8,2)+R3(3,27)
     * +R3(8,27)+R3(3,28)+R3(8,28)+R1(3,1)+R1(3,2))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*ZZ
      F(1,1,3,1)= R8(6)-R7(3,1)*TWO+R6(1,1)+R6(6,1)+R6(1,2)+R6(6,9)*SIX
     * -R5(3,1)*TWO-R5(3,13)*TWELV+R4(1,1)+R4(1,2)+R4(1,14)*SIX
     * +R4(6,14)*SIX+R4(1,18)*SIX+R4(6,38)*THREE-R3(3,11)*TWELV
     * -R3(3,43)*SIX+R2(1,1)*SIX+R2(1,5)*SIX+R2(1,37)*THREE
     * +R2(3,37)*THREE+R2(1,42)*THREE-R1(3,21)*SIX+R0(1)*THREE
     * +R0(6)*THREE+(+R7(6,3)*TWO+R7(6,4)*TWO-R6(3,5)*FOUR-R6(3,6)*FOUR
     * +R5(1,5)*TWO+R5(6,5)*TWO+R5(1,6)*TWO+R5(6,6)*TWO+R5(1,7)*TWO
     * +R5(1,8)*TWO+R5(6,21)*SIX+R5(6,22)*SIX-R4(3,6)*FOUR-R4(3,7)*FOUR
     * -R4(3,30)*TWELV-R4(3,31)*TWELV+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(1,3)*TWO+R3(1,4)*TWO+R3(1,27)*SIX+R3(6,27)*SIX+R3(1,28)*SIX
     * +R3(6,28)*SIX+R3(1,31)*SIX+R3(1,32)*SIX-R2(5,21)*TWELV
     * -R2(5,22)*TWELV+R1(1,1)*SIX+R1(1,2)*SIX+R1(1,5)*SIX+R1(1,6)*SIX)
     * *QX
      F(1,1,3,1)= F(1,1,3,1)
     * +(+R6(6,10)+R6(6,11)*FOUR+R6(6,12)-R5(3,14)*TWO-R5(3,15)*EIGHT
     * -R5(3,16)*TWO+R4(1,15)+R4(6,15)+R4(1,16)*FOUR+R4(6,16)*FOUR
     * +R4(1,17)+R4(6,17)+R4(1,19)+R4(1,20)*FOUR+R4(1,21)+R4(6,39)
     * +R4(6,40)*FOUR+R4(6,41)-R3(3,12)*TWO-R3(3,13)*EIGHT-R3(3,14)*TWO
     * -R3(3,44)*TWO-R3(3,45)*EIGHT-R3(3,46)*TWO+R2(1,2)+R2(1,3)*FOUR
     * +R2(1,4)+R2(1,6)+R2(1,7)*FOUR+R2(1,8)+R2(1,38)+R2(3,38)
     * +R2(1,39)*FOUR+R2(3,39)*FOUR+R2(1,40)+R2(3,40)+R2(1,43)
     * +R2(1,44)*FOUR+R2(1,45)-R1(3,22)*TWO-R1(3,23)*EIGHT-R1(3,24)*TWO
     * +R0(2)+R0(3)*FOUR+R0(4)+R0(7)+R0(8)*FOUR+R0(9))*XX+(+R5(6,23)*TWO
     * +R5(6,24)*TWO-R4(3,32)*FOUR-R4(3,33)*FOUR+R3(1,29)*TWO
     * +R3(6,29)*TWO+R3(1,30)*TWO+R3(6,30)*TWO+R3(1,33)*TWO+R3(1,34)*TWO
     * -R2(5,23)*FOUR-R2(5,24)*FOUR+R1(1,3)*TWO+R1(1,4)*TWO+R1(1,7)*TWO
     * +R1(1,8)*TWO)*XXX+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXXX
      F(2,1,3,1)= R8(13)-R7(8,1)*TWO+R6(4,1)+R6(13,1)+R6(4,2)+R6(6,9)
     * +R6(13,9)-R5(8,1)*TWO-R5(3,13)*TWO-R5(8,13)*TWO+R4(4,1)+R4(4,2)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,18)+R4(4,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(8,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(13,4)*TWO-R6(8,6)*FOUR+R5(4,6)*TWO+R5(13,6)*TWO+R5(4,8)*TWO
     * +R5(6,22)*TWO-R4(8,7)*FOUR-R4(3,31)*FOUR+R3(4,2)*TWO+R3(4,4)*TWO
     * +R3(1,28)*TWO+R3(6,28)*TWO+R3(1,32)*TWO-R2(5,22)*FOUR+R1(1,2)*TWO
     * +R1(1,6)*TWO)*QX+(+R6(13,12)-R5(8,16)*TWO+R4(4,17)+R4(13,17)
     * +R4(4,21)+R4(6,41)-R3(8,14)*TWO-R3(3,46)*TWO+R2(2,4)+R2(2,8)
     * +R2(1,40)+R2(3,40)+R2(1,45)-R1(3,24)*TWO+R0(4)+R0(9))*XX
      F(3,1,3,1)= R8(15)-R7(10,1)*TWO+R6(6,1)+R6(15,1)+R6(6,2)+R6(6,9)
     * +R6(15,9)-R5(10,1)*TWO-R5(3,13)*TWO-R5(10,13)*TWO+R4(6,1)+R4(6,2)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,18)+R4(6,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(15,4)*TWO-R6(10,6)*FOUR+R5(6,6)*TWO+R5(15,6)*TWO+R5(6,8)*TWO
     * +R5(6,22)*TWO-R4(10,7)*FOUR-R4(3,31)*FOUR+R3(6,2)*TWO+R3(6,4)*TWO
     * +R3(1,28)*TWO+R3(6,28)*TWO+R3(1,32)*TWO-R2(5,22)*FOUR+R1(1,2)*TWO
     * +R1(1,6)*TWO)*QX+(+R7(10,3)*TWO-R6(6,5)*FOUR+R5(3,5)*TWO
     * +R5(10,5)*TWO+R5(3,7)*TWO+R5(10,21)*TWO-R4(6,6)*FOUR
     * -R4(6,30)*FOUR+R3(3,1)*TWO+R3(3,3)*TWO+R3(3,27)*TWO+R3(10,27)*TWO
     * +R3(3,31)*TWO-R2(3,21)*FOUR+R1(3,1)*TWO+R1(3,5)*TWO)*QZ
      F(3,1,3,1)= F(3,1,3,1)
     * +(+R6(15,12)-R5(10,16)*TWO+R4(6,17)+R4(15,17)+R4(6,21)+R4(6,41)
     * -R3(10,14)*TWO-R3(3,46)*TWO+R2(3,4)+R2(3,8)+R2(1,40)+R2(3,40)
     * +R2(1,45)-R1(3,24)*TWO+R0(4)+R0(9))*XX+(+R6(10,11)*FOUR
     * -R5(6,15)*EIGHT+R4(3,16)*FOUR+R4(10,16)*FOUR+R4(3,20)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R6(6,10)
     * -R5(3,14)*TWO+R4(1,15)+R4(6,15)+R4(1,19)+R4(6,39)-R3(3,12)*TWO
     * -R3(3,44)*TWO+R2(1,2)+R2(1,6)+R2(1,38)+R2(3,38)+R2(1,43)
     * -R1(3,22)*TWO+R0(2)+R0(7))*ZZ+(+R5(10,24)*TWO-R4(6,33)*FOUR
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,34)*TWO-R2(3,24)*FOUR
     * +R1(3,4)*TWO+R1(3,8)*TWO)*XXZ+(+R5(6,23)*TWO-R4(3,32)*FOUR
     * +R3(1,29)*TWO+R3(6,29)*TWO+R3(1,33)*TWO-R2(5,23)*FOUR+R1(1,3)*TWO
     * +R1(1,7)*TWO)*XZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(4,1,3,1)= R8(9)-R7(5,1)*TWO+R6(2,1)+R6(9,1)+R6(2,2)
     * +R6(9,9)*THREE-R5(5,1)*TWO-R5(5,13)*SIX+R4(2,1)+R4(2,2)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(9,3)+R7(9,4)*TWO-R6(5,5)*TWO
     * -R6(5,6)*FOUR+R5(2,5)+R5(9,5)+R5(2,6)*TWO+R5(9,6)*TWO+R5(2,7)
     * +R5(2,8)*TWO+R5(9,21)+R5(9,22)*TWO-R4(5,6)*TWO-R4(5,7)*FOUR
     * -R4(5,30)*TWO-R4(5,31)*FOUR+R3(2,1)+R3(2,2)*TWO+R3(2,3)
     * +R3(2,4)*TWO+R3(2,27)+R3(9,27)+R3(2,28)*TWO+R3(9,28)*TWO+R3(2,31)
     * +R3(2,32)*TWO-R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)+R1(2,2)*TWO
     * +R1(2,5)+R1(2,6)*TWO)*QX+(+R6(9,11)*TWO+R6(9,12)-R5(5,15)*FOUR
     * -R5(5,16)*TWO+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,17)+R4(9,17)
     * +R4(2,20)*TWO+R4(2,21)-R3(5,13)*FOUR-R3(5,14)*TWO+R2(4,3)*TWO
     * +R2(4,4)+R2(4,7)*TWO+R2(4,8))*XX+(+R5(9,24)-R4(5,33)*TWO+R3(2,30)
     * +R3(9,30)+R3(2,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXX
      F(5,1,3,1)= R8(10)-R7(6,1)*TWO+R6(3,1)+R6(10,1)+R6(3,2)
     * +R6(10,9)*THREE-R5(6,1)*TWO-R5(6,13)*SIX+R4(3,1)+R4(3,2)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(10,3)+R7(10,4)*TWO-R6(6,5)*TWO
     * -R6(6,6)*FOUR+R5(3,5)+R5(10,5)+R5(3,6)*TWO+R5(10,6)*TWO+R5(3,7)
     * +R5(3,8)*TWO+R5(10,21)+R5(10,22)*TWO-R4(6,6)*TWO-R4(6,7)*FOUR
     * -R4(6,30)*TWO-R4(6,31)*FOUR+R3(3,1)+R3(3,2)*TWO+R3(3,3)
     * +R3(3,4)*TWO+R3(3,27)+R3(10,27)+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,31)+R3(3,32)*TWO-R2(3,21)*TWO-R2(3,22)*FOUR+R1(3,1)
     * +R1(3,2)*TWO+R1(3,5)+R1(3,6)*TWO)*QX+(+R7(6,3)-R6(3,5)*TWO
     * +R5(1,5)+R5(6,5)+R5(1,7)+R5(6,21)*THREE-R4(3,6)*TWO-R4(3,30)*SIX
     * +R3(1,1)+R3(1,3)+R3(1,27)*THREE+R3(6,27)*THREE+R3(1,31)*THREE
     * -R2(5,21)*SIX+R1(1,1)*THREE+R1(1,5)*THREE)*QZ
      F(5,1,3,1)= F(5,1,3,1)+(+R6(10,11)*TWO
     * +R6(10,12)-R5(6,15)*FOUR-R5(6,16)*TWO+R4(3,16)*TWO+R4(10,16)*TWO
     * +R4(3,17)+R4(10,17)+R4(3,20)*TWO+R4(3,21)-R3(6,13)*FOUR
     * -R3(6,14)*TWO+R2(5,3)*TWO+R2(5,4)+R2(5,7)*TWO+R2(5,8))*XX+(
     * +R6(6,10)+R6(6,11)*TWO-R5(3,14)*TWO-R5(3,15)*FOUR+R4(1,15)
     * +R4(6,15)+R4(1,16)*TWO+R4(6,16)*TWO+R4(1,19)+R4(1,20)*TWO
     * +R4(6,39)+R4(6,40)*TWO-R3(3,12)*TWO-R3(3,13)*FOUR-R3(3,44)*TWO
     * -R3(3,45)*FOUR+R2(1,2)+R2(1,3)*TWO+R2(1,6)+R2(1,7)*TWO+R2(1,38)
     * +R2(3,38)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,43)+R2(1,44)*TWO
     * -R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO+R0(7)+R0(8)*TWO)*XZ+(
     * +R5(10,24)-R4(6,33)*TWO+R3(3,30)+R3(10,30)+R3(3,34)-R2(3,24)*TWO
     * +R1(3,4)+R1(3,8))*XXX+(+R5(6,23)*TWO+R5(6,24)-R4(3,32)*FOUR
     * -R4(3,33)*TWO+R3(1,29)*TWO+R3(6,29)*TWO+R3(1,30)+R3(6,30)
     * +R3(1,33)*TWO+R3(1,34)-R2(5,23)*FOUR-R2(5,24)*TWO+R1(1,3)*TWO
     * +R1(1,4)+R1(1,7)*TWO+R1(1,8))*XXZ+(+R4(6,42)-R3(3,47)*TWO
     * +R2(1,41)+R2(3,41)+R2(1,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXXZ
      F(6,1,3,1)= R8(14)-R7(9,1)*TWO+R6(5,1)+R6(14,1)+R6(5,2)+R6(14,9)
     * -R5(9,1)*TWO-R5(9,13)*TWO+R4(5,1)+R4(5,2)+R4(5,14)+R4(14,14)
     * +R4(5,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(14,4)*TWO
     * -R6(9,6)*FOUR+R5(5,6)*TWO+R5(14,6)*TWO+R5(5,8)*TWO-R4(9,7)*FOUR
     * +R3(5,2)*TWO+R3(5,4)*TWO)*QX+(+R7(9,3)-R6(5,5)*TWO+R5(2,5)
     * +R5(9,5)+R5(2,7)+R5(9,21)-R4(5,6)*TWO-R4(5,30)*TWO+R3(2,1)
     * +R3(2,3)+R3(2,27)+R3(9,27)+R3(2,31)-R2(6,21)*TWO+R1(2,1)+R1(2,5))
     * *QZ+(+R6(14,12)-R5(9,16)*TWO+R4(5,17)+R4(14,17)+R4(5,21)
     * -R3(9,14)*TWO+R2(6,4)+R2(6,8))*XX+(+R6(9,11)*TWO-R5(5,15)*FOUR
     * +R4(2,16)*TWO+R4(9,16)*TWO+R4(2,20)*TWO-R3(5,13)*FOUR+R2(4,3)*TWO
     * +R2(4,7)*TWO)*XZ+(+R5(9,24)-R4(5,33)*TWO+R3(2,30)+R3(9,30)
     * +R3(2,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXZ
      F(1,2,3,1)= R8(13)-R7(8,1)*TWO+R6(4,1)+R6(13,1)+R6(4,2)+R6(6,9)
     * +R6(13,9)-R5(8,1)*TWO-R5(3,13)*TWO-R5(8,13)*TWO+R4(4,1)+R4(4,2)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,18)+R4(4,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(8,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(13,3)*TWO-R6(8,5)*FOUR+R5(4,5)*TWO+R5(13,5)*TWO+R5(4,7)*TWO
     * +R5(6,21)*TWO-R4(8,6)*FOUR-R4(3,30)*FOUR+R3(4,1)*TWO+R3(4,3)*TWO
     * +R3(1,27)*TWO+R3(6,27)*TWO+R3(1,31)*TWO-R2(5,21)*FOUR+R1(1,1)*TWO
     * +R1(1,5)*TWO)*QX+(+R6(13,10)-R5(8,14)*TWO+R4(4,15)+R4(13,15)
     * +R4(4,19)+R4(6,39)-R3(8,12)*TWO-R3(3,44)*TWO+R2(2,2)+R2(2,6)
     * +R2(1,38)+R2(3,38)+R2(1,43)-R1(3,22)*TWO+R0(2)+R0(7))*XX
      F(2,2,3,1)= R8(24)-R7(17,1)*TWO+R6(11,1)+R6(24,1)+R6(11,2)
     * +R6(13,9)*SIX-R5(17,1)*TWO-R5(8,13)*TWELV+R4(11,1)+R4(11,2)
     * +R4(4,14)*SIX+R4(13,14)*SIX+R4(4,18)*SIX+R4(6,38)*THREE
     * -R3(8,11)*TWELV-R3(3,43)*SIX+R2(2,1)*SIX+R2(2,5)*SIX
     * +R2(1,37)*THREE+R2(3,37)*THREE+R2(1,42)*THREE-R1(3,21)*SIX
     * +R0(1)*THREE+R0(6)*THREE
      F(3,2,3,1)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(26,1)+R6(13,2)
     * +R6(13,9)+R6(15,9)-R5(19,1)*TWO-R5(8,13)*TWO-R5(10,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(6,18)+R4(6,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(19,3)*TWO-R6(13,5)*FOUR
     * +R5(8,5)*TWO+R5(19,5)*TWO+R5(8,7)*TWO+R5(10,21)*TWO-R4(13,6)*FOUR
     * -R4(6,30)*FOUR+R3(8,1)*TWO+R3(8,3)*TWO+R3(3,27)*TWO+R3(10,27)*TWO
     * +R3(3,31)*TWO-R2(3,21)*FOUR+R1(3,1)*TWO+R1(3,5)*TWO)*QZ+(
     * +R6(13,10)-R5(8,14)*TWO+R4(4,15)+R4(13,15)+R4(4,19)+R4(6,39)
     * -R3(8,12)*TWO-R3(3,44)*TWO+R2(2,2)+R2(2,6)+R2(1,38)+R2(3,38)
     * +R2(1,43)-R1(3,22)*TWO+R0(2)+R0(7))*ZZ
      F(4,2,3,1)= R8(18)-R7(12,1)*TWO+R6(7,1)+R6(18,1)+R6(7,2)
     * +R6(9,9)*THREE-R5(12,1)*TWO-R5(5,13)*SIX+R4(7,1)+R4(7,2)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(18,3)-R6(12,5)*TWO+R5(7,5)
     * +R5(18,5)+R5(7,7)+R5(9,21)*THREE-R4(12,6)*TWO-R4(5,30)*SIX
     * +R3(7,1)+R3(7,3)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,31)*THREE
     * -R2(6,21)*SIX+R1(2,1)*THREE+R1(2,5)*THREE)*QX
      F(5,2,3,1)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(19,1)+R6(8,2)+R6(10,9)
     * -R5(13,1)*TWO-R5(6,13)*TWO+R4(8,1)+R4(8,2)+R4(3,14)+R4(10,14)
     * +R4(3,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(19,3)-R6(13,5)*TWO
     * +R5(8,5)+R5(19,5)+R5(8,7)+R5(10,21)-R4(13,6)*TWO-R4(6,30)*TWO
     * +R3(8,1)+R3(8,3)+R3(3,27)+R3(10,27)+R3(3,31)-R2(3,21)*TWO+R1(3,1)
     * +R1(3,5))*QX+(+R7(13,3)-R6(8,5)*TWO+R5(4,5)+R5(13,5)+R5(4,7)
     * +R5(6,21)-R4(8,6)*TWO-R4(3,30)*TWO+R3(4,1)+R3(4,3)+R3(1,27)
     * +R3(6,27)+R3(1,31)-R2(5,21)*TWO+R1(1,1)+R1(1,5))*QZ+(+R6(13,10)
     * -R5(8,14)*TWO+R4(4,15)+R4(13,15)+R4(4,19)+R4(6,39)-R3(8,12)*TWO
     * -R3(3,44)*TWO+R2(2,2)+R2(2,6)+R2(1,38)+R2(3,38)+R2(1,43)
     * -R1(3,22)*TWO+R0(2)+R0(7))*XZ
      F(6,2,3,1)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(25,1)+R6(12,2)
     * +R6(14,9)*THREE-R5(18,1)*TWO-R5(9,13)*SIX+R4(12,1)+R4(12,2)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(18,3)-R6(12,5)*TWO+R5(7,5)
     * +R5(18,5)+R5(7,7)+R5(9,21)*THREE-R4(12,6)*TWO-R4(5,30)*SIX
     * +R3(7,1)+R3(7,3)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,31)*THREE
     * -R2(6,21)*SIX+R1(2,1)*THREE+R1(2,5)*THREE)*QZ
      F(1,3,3,1)= R8(15)-R7(10,1)*TWO+R6(6,1)+R6(15,1)+R6(6,2)+R6(6,9)
     * +R6(15,9)-R5(10,1)*TWO-R5(3,13)*TWO-R5(10,13)*TWO+R4(6,1)+R4(6,2)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,18)+R4(6,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(15,3)*TWO-R6(10,5)*FOUR+R5(6,5)*TWO+R5(15,5)*TWO+R5(6,7)*TWO
     * +R5(6,21)*TWO-R4(10,6)*FOUR-R4(3,30)*FOUR+R3(6,1)*TWO+R3(6,3)*TWO
     * +R3(1,27)*TWO+R3(6,27)*TWO+R3(1,31)*TWO-R2(5,21)*FOUR+R1(1,1)*TWO
     * +R1(1,5)*TWO)*QX+(+R7(10,4)*TWO-R6(6,6)*FOUR+R5(3,6)*TWO
     * +R5(10,6)*TWO+R5(3,8)*TWO+R5(10,22)*TWO-R4(6,7)*FOUR
     * -R4(6,31)*FOUR+R3(3,2)*TWO+R3(3,4)*TWO+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,32)*TWO-R2(3,22)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)*QZ
      F(1,3,3,1)= F(1,3,3,1)
     * +(+R6(15,10)-R5(10,14)*TWO+R4(6,15)+R4(15,15)+R4(6,19)+R4(6,39)
     * -R3(10,12)*TWO-R3(3,44)*TWO+R2(3,2)+R2(3,6)+R2(1,38)+R2(3,38)
     * +R2(1,43)-R1(3,22)*TWO+R0(2)+R0(7))*XX+(+R6(10,11)*FOUR
     * -R5(6,15)*EIGHT+R4(3,16)*FOUR+R4(10,16)*FOUR+R4(3,20)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R6(6,12)
     * -R5(3,16)*TWO+R4(1,17)+R4(6,17)+R4(1,21)+R4(6,41)-R3(3,14)*TWO
     * -R3(3,46)*TWO+R2(1,4)+R2(1,8)+R2(1,40)+R2(3,40)+R2(1,45)
     * -R1(3,24)*TWO+R0(4)+R0(9))*ZZ+(+R5(10,23)*TWO-R4(6,32)*FOUR
     * +R3(3,29)*TWO+R3(10,29)*TWO+R3(3,33)*TWO-R2(3,23)*FOUR
     * +R1(3,3)*TWO+R1(3,7)*TWO)*XXZ+(+R5(6,24)*TWO-R4(3,33)*FOUR
     * +R3(1,30)*TWO+R3(6,30)*TWO+R3(1,34)*TWO-R2(5,24)*FOUR+R1(1,4)*TWO
     * +R1(1,8)*TWO)*XZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(2,3,3,1)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(26,1)+R6(13,2)
     * +R6(13,9)+R6(15,9)-R5(19,1)*TWO-R5(8,13)*TWO-R5(10,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(6,18)+R4(6,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(19,4)*TWO-R6(13,6)*FOUR
     * +R5(8,6)*TWO+R5(19,6)*TWO+R5(8,8)*TWO+R5(10,22)*TWO-R4(13,7)*FOUR
     * -R4(6,31)*FOUR+R3(8,2)*TWO+R3(8,4)*TWO+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,32)*TWO-R2(3,22)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)*QZ+(
     * +R6(13,12)-R5(8,16)*TWO+R4(4,17)+R4(13,17)+R4(4,21)+R4(6,41)
     * -R3(8,14)*TWO-R3(3,46)*TWO+R2(2,4)+R2(2,8)+R2(1,40)+R2(3,40)
     * +R2(1,45)-R1(3,24)*TWO+R0(4)+R0(9))*ZZ
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21B
      SUBROUTINE MCDV21B(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           EIGHT=8.0D+00, NINE=9.0D+00, TWELV=1.2D+01,
     *           P18=1.8D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(3,3,3,1)= R8(28)-R7(21,1)*TWO+R6(15,1)+R6(28,1)+R6(15,2)
     * +R6(15,9)*SIX-R5(21,1)*TWO-R5(10,13)*TWELV+R4(15,1)+R4(15,2)
     * +R4(6,14)*SIX+R4(15,14)*SIX+R4(6,18)*SIX+R4(6,38)*THREE
     * -R3(10,11)*TWELV-R3(3,43)*SIX+R2(3,1)*SIX+R2(3,5)*SIX
     * +R2(1,37)*THREE+R2(3,37)*THREE+R2(1,42)*THREE-R1(3,21)*SIX
     * +R0(1)*THREE+R0(6)*THREE+(+R7(21,3)*TWO+R7(21,4)*TWO
     * -R6(15,5)*FOUR-R6(15,6)*FOUR+R5(10,5)*TWO+R5(21,5)*TWO
     * +R5(10,6)*TWO+R5(21,6)*TWO+R5(10,7)*TWO+R5(10,8)*TWO
     * +R5(10,21)*SIX+R5(10,22)*SIX-R4(15,6)*FOUR-R4(15,7)*FOUR
     * -R4(6,30)*TWELV-R4(6,31)*TWELV+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,3)*TWO+R3(10,4)*TWO+R3(3,27)*SIX+R3(10,27)*SIX
     * +R3(3,28)*SIX+R3(10,28)*SIX+R3(3,31)*SIX+R3(3,32)*SIX
     * -R2(3,21)*TWELV-R2(3,22)*TWELV+R1(3,1)*SIX+R1(3,2)*SIX
     * +R1(3,5)*SIX+R1(3,6)*SIX)*QZ
      F(3,3,3,1)= F(3,3,3,1)+(+R6(15,10)+R6(15,11)*FOUR+R6(15,12)
     * -R5(10,14)*TWO-R5(10,15)*EIGHT-R5(10,16)*TWO+R4(6,15)+R4(15,15)
     * +R4(6,16)*FOUR+R4(15,16)*FOUR+R4(6,17)+R4(15,17)+R4(6,19)
     * +R4(6,20)*FOUR+R4(6,21)+R4(6,39)+R4(6,40)*FOUR+R4(6,41)
     * -R3(10,12)*TWO-R3(10,13)*EIGHT-R3(10,14)*TWO-R3(3,44)*TWO
     * -R3(3,45)*EIGHT-R3(3,46)*TWO+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(3,6)
     * +R2(3,7)*FOUR+R2(3,8)+R2(1,38)+R2(3,38)+R2(1,39)*FOUR
     * +R2(3,39)*FOUR+R2(1,40)+R2(3,40)+R2(1,43)+R2(1,44)*FOUR+R2(1,45)
     * -R1(3,22)*TWO-R1(3,23)*EIGHT-R1(3,24)*TWO+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(7)+R0(8)*FOUR+R0(9))*ZZ+(+R5(10,23)*TWO+R5(10,24)*TWO
     * -R4(6,32)*FOUR-R4(6,33)*FOUR+R3(3,29)*TWO+R3(10,29)*TWO
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,33)*TWO+R3(3,34)*TWO
     * -R2(3,23)*FOUR-R2(3,24)*FOUR+R1(3,3)*TWO+R1(3,4)*TWO+R1(3,7)*TWO
     * +R1(3,8)*TWO)*ZZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,46)-R1(3,25)*TWO+R0(5)+R0(10))*ZZZZ
      F(4,3,3,1)= R8(20)-R7(14,1)*TWO+R6(9,1)+R6(20,1)+R6(9,2)+R6(9,9)
     * -R5(14,1)*TWO-R5(5,13)*TWO+R4(9,1)+R4(9,2)+R4(2,14)+R4(9,14)
     * +R4(2,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(20,3)-R6(14,5)*TWO
     * +R5(9,5)+R5(20,5)+R5(9,7)+R5(9,21)-R4(14,6)*TWO-R4(5,30)*TWO
     * +R3(9,1)+R3(9,3)+R3(2,27)+R3(9,27)+R3(2,31)-R2(6,21)*TWO+R1(2,1)
     * +R1(2,5))*QX+(+R7(14,4)*TWO-R6(9,6)*FOUR+R5(5,6)*TWO+R5(14,6)*TWO
     * +R5(5,8)*TWO-R4(9,7)*FOUR+R3(5,2)*TWO+R3(5,4)*TWO)*QZ+(
     * +R6(14,11)*TWO-R5(9,15)*FOUR+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,20)*TWO-R3(9,13)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(
     * +R6(9,12)-R5(5,16)*TWO+R4(2,17)+R4(9,17)+R4(2,21)-R3(5,14)*TWO
     * +R2(4,4)+R2(4,8))*ZZ+(+R5(9,24)-R4(5,33)*TWO+R3(2,30)+R3(9,30)
     * +R3(2,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XZZ
      F(5,3,3,1)= R8(21)-R7(15,1)*TWO+R6(10,1)+R6(21,1)+R6(10,2)
     * +R6(10,9)*THREE-R5(15,1)*TWO-R5(6,13)*SIX+R4(10,1)+R4(10,2)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(21,3)-R6(15,5)*TWO+R5(10,5)
     * +R5(21,5)+R5(10,7)+R5(10,21)*THREE-R4(15,6)*TWO-R4(6,30)*SIX
     * +R3(10,1)+R3(10,3)+R3(3,27)*THREE+R3(10,27)*THREE+R3(3,31)*THREE
     * -R2(3,21)*SIX+R1(3,1)*THREE+R1(3,5)*THREE)*QX+(+R7(15,3)
     * +R7(15,4)*TWO-R6(10,5)*TWO-R6(10,6)*FOUR+R5(6,5)+R5(15,5)
     * +R5(6,6)*TWO+R5(15,6)*TWO+R5(6,7)+R5(6,8)*TWO+R5(6,21)
     * +R5(6,22)*TWO-R4(10,6)*TWO-R4(10,7)*FOUR-R4(3,30)*TWO
     * -R4(3,31)*FOUR+R3(6,1)+R3(6,2)*TWO+R3(6,3)+R3(6,4)*TWO+R3(1,27)
     * +R3(6,27)+R3(1,28)*TWO+R3(6,28)*TWO+R3(1,31)+R3(1,32)*TWO
     * -R2(5,21)*TWO-R2(5,22)*FOUR+R1(1,1)+R1(1,2)*TWO+R1(1,5)
     * +R1(1,6)*TWO)*QZ
      F(5,3,3,1)= F(5,3,3,1)+(+R6(15,10)+R6(15,11)*TWO-R5(10,14)*TWO
     * -R5(10,15)*FOUR+R4(6,15)+R4(15,15)+R4(6,16)*TWO+R4(15,16)*TWO
     * +R4(6,19)+R4(6,20)*TWO+R4(6,39)+R4(6,40)*TWO-R3(10,12)*TWO
     * -R3(10,13)*FOUR-R3(3,44)*TWO-R3(3,45)*FOUR+R2(3,2)+R2(3,3)*TWO
     * +R2(3,6)+R2(3,7)*TWO+R2(1,38)+R2(3,38)+R2(1,39)*TWO+R2(3,39)*TWO
     * +R2(1,43)+R2(1,44)*TWO-R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO
     * +R0(7)+R0(8)*TWO)*XZ+(+R6(10,11)*TWO+R6(10,12)-R5(6,15)*FOUR
     * -R5(6,16)*TWO+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)+R4(10,17)
     * +R4(3,20)*TWO+R4(3,21)-R3(6,13)*FOUR-R3(6,14)*TWO+R2(5,3)*TWO
     * +R2(5,4)+R2(5,7)*TWO+R2(5,8))*ZZ+(+R5(10,23)*TWO+R5(10,24)
     * -R4(6,32)*FOUR-R4(6,33)*TWO+R3(3,29)*TWO+R3(10,29)*TWO+R3(3,30)
     * +R3(10,30)+R3(3,33)*TWO+R3(3,34)-R2(3,23)*FOUR-R2(3,24)*TWO
     * +R1(3,3)*TWO+R1(3,4)+R1(3,7)*TWO+R1(3,8))*XZZ+(+R5(6,24)
     * -R4(3,33)*TWO+R3(1,30)+R3(6,30)+R3(1,34)-R2(5,24)*TWO+R1(1,4)
     * +R1(1,8))*ZZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)+R2(1,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(6,3,3,1)= R8(27)-R7(20,1)*TWO+R6(14,1)+R6(27,1)+R6(14,2)
     * +R6(14,9)*THREE-R5(20,1)*TWO-R5(9,13)*SIX+R4(14,1)+R4(14,2)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(20,3)+R7(20,4)*TWO-R6(14,5)*TWO
     * -R6(14,6)*FOUR+R5(9,5)+R5(20,5)+R5(9,6)*TWO+R5(20,6)*TWO+R5(9,7)
     * +R5(9,8)*TWO+R5(9,21)+R5(9,22)*TWO-R4(14,6)*TWO-R4(14,7)*FOUR
     * -R4(5,30)*TWO-R4(5,31)*FOUR+R3(9,1)+R3(9,2)*TWO+R3(9,3)
     * +R3(9,4)*TWO+R3(2,27)+R3(9,27)+R3(2,28)*TWO+R3(9,28)*TWO+R3(2,31)
     * +R3(2,32)*TWO-R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)+R1(2,2)*TWO
     * +R1(2,5)+R1(2,6)*TWO)*QZ+(+R6(14,11)*TWO+R6(14,12)-R5(9,15)*FOUR
     * -R5(9,16)*TWO+R4(5,16)*TWO+R4(14,16)*TWO+R4(5,17)+R4(14,17)
     * +R4(5,20)*TWO+R4(5,21)-R3(9,13)*FOUR-R3(9,14)*TWO+R2(6,3)*TWO
     * +R2(6,4)+R2(6,7)*TWO+R2(6,8))*ZZ+(+R5(9,24)-R4(5,33)*TWO+R3(2,30)
     * +R3(9,30)+R3(2,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*ZZZ
      F(1,4,3,1)= R8(9)-R7(5,1)*TWO+R6(2,1)+R6(9,1)+R6(2,2)
     * +R6(9,9)*THREE-R5(5,1)*TWO-R5(5,13)*SIX+R4(2,1)+R4(2,2)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(9,3)*TWO+R7(9,4)-R6(5,5)*FOUR
     * -R6(5,6)*TWO+R5(2,5)*TWO+R5(9,5)*TWO+R5(2,6)+R5(9,6)+R5(2,7)*TWO
     * +R5(2,8)+R5(9,21)*TWO+R5(9,22)-R4(5,6)*FOUR-R4(5,7)*TWO
     * -R4(5,30)*FOUR-R4(5,31)*TWO+R3(2,1)*TWO+R3(2,2)+R3(2,3)*TWO
     * +R3(2,4)+R3(2,27)*TWO+R3(9,27)*TWO+R3(2,28)+R3(9,28)+R3(2,31)*TWO
     * +R3(2,32)-R2(6,21)*FOUR-R2(6,22)*TWO+R1(2,1)*TWO+R1(2,2)
     * +R1(2,5)*TWO+R1(2,6))*QX+(+R6(9,10)+R6(9,11)*TWO-R5(5,14)*TWO
     * -R5(5,15)*FOUR+R4(2,15)+R4(9,15)+R4(2,16)*TWO+R4(9,16)*TWO
     * +R4(2,19)+R4(2,20)*TWO-R3(5,12)*TWO-R3(5,13)*FOUR+R2(4,2)
     * +R2(4,3)*TWO+R2(4,6)+R2(4,7)*TWO)*XX+(+R5(9,23)-R4(5,32)*TWO
     * +R3(2,29)+R3(9,29)+R3(2,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XXX
      F(2,4,3,1)= R8(18)-R7(12,1)*TWO+R6(7,1)+R6(18,1)+R6(7,2)
     * +R6(9,9)*THREE-R5(12,1)*TWO-R5(5,13)*SIX+R4(7,1)+R4(7,2)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(18,4)-R6(12,6)*TWO+R5(7,6)
     * +R5(18,6)+R5(7,8)+R5(9,22)*THREE-R4(12,7)*TWO-R4(5,31)*SIX
     * +R3(7,2)+R3(7,4)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,32)*THREE
     * -R2(6,22)*SIX+R1(2,2)*THREE+R1(2,6)*THREE)*QX
      F(3,4,3,1)= R8(20)-R7(14,1)*TWO+R6(9,1)+R6(20,1)+R6(9,2)+R6(9,9)
     * -R5(14,1)*TWO-R5(5,13)*TWO+R4(9,1)+R4(9,2)+R4(2,14)+R4(9,14)
     * +R4(2,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(20,4)-R6(14,6)*TWO
     * +R5(9,6)+R5(20,6)+R5(9,8)+R5(9,22)-R4(14,7)*TWO-R4(5,31)*TWO
     * +R3(9,2)+R3(9,4)+R3(2,28)+R3(9,28)+R3(2,32)-R2(6,22)*TWO+R1(2,2)
     * +R1(2,6))*QX+(+R7(14,3)*TWO-R6(9,5)*FOUR+R5(5,5)*TWO+R5(14,5)*TWO
     * +R5(5,7)*TWO-R4(9,6)*FOUR+R3(5,1)*TWO+R3(5,3)*TWO)*QZ+(
     * +R6(14,11)*TWO-R5(9,15)*FOUR+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,20)*TWO-R3(9,13)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(
     * +R6(9,10)-R5(5,14)*TWO+R4(2,15)+R4(9,15)+R4(2,19)-R3(5,12)*TWO
     * +R2(4,2)+R2(4,6))*ZZ+(+R5(9,23)-R4(5,32)*TWO+R3(2,29)+R3(9,29)
     * +R3(2,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XZZ
      F(4,4,3,1)= R8(13)-R7(8,1)*TWO+R6(4,1)+R6(13,1)+R6(4,2)+R6(6,9)
     * +R6(13,9)-R5(8,1)*TWO-R5(3,13)*TWO-R5(8,13)*TWO+R4(4,1)+R4(4,2)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,18)+R4(4,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(8,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(13,3)+R7(13,4)-R6(8,5)*TWO-R6(8,6)*TWO+R5(4,5)+R5(13,5)
     * +R5(4,6)+R5(13,6)+R5(4,7)+R5(4,8)+R5(6,21)+R5(6,22)-R4(8,6)*TWO
     * -R4(8,7)*TWO-R4(3,30)*TWO-R4(3,31)*TWO+R3(4,1)+R3(4,2)+R3(4,3)
     * +R3(4,4)+R3(1,27)+R3(6,27)+R3(1,28)+R3(6,28)+R3(1,31)+R3(1,32)
     * -R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)+R1(1,5)+R1(1,6))*QX+(
     * +R6(13,11)-R5(8,15)*TWO+R4(4,16)+R4(13,16)+R4(4,20)+R4(6,40)
     * -R3(8,13)*TWO-R3(3,45)*TWO+R2(2,3)+R2(2,7)+R2(1,39)+R2(3,39)
     * +R2(1,44)-R1(3,23)*TWO+R0(3)+R0(8))*XX
      F(5,4,3,1)= R8(14)-R7(9,1)*TWO+R6(5,1)+R6(14,1)+R6(5,2)+R6(14,9)
     * -R5(9,1)*TWO-R5(9,13)*TWO+R4(5,1)+R4(5,2)+R4(5,14)+R4(14,14)
     * +R4(5,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(14,3)+R7(14,4)
     * -R6(9,5)*TWO-R6(9,6)*TWO+R5(5,5)+R5(14,5)+R5(5,6)+R5(14,6)
     * +R5(5,7)+R5(5,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)+R3(5,2)+R3(5,3)
     * +R3(5,4))*QX+(+R7(9,3)-R6(5,5)*TWO+R5(2,5)+R5(9,5)+R5(2,7)
     * +R5(9,21)-R4(5,6)*TWO-R4(5,30)*TWO+R3(2,1)+R3(2,3)+R3(2,27)
     * +R3(9,27)+R3(2,31)-R2(6,21)*TWO+R1(2,1)+R1(2,5))*QZ+(+R6(14,11)
     * -R5(9,15)*TWO+R4(5,16)+R4(14,16)+R4(5,20)-R3(9,13)*TWO+R2(6,3)
     * +R2(6,7))*XX+(+R6(9,10)+R6(9,11)-R5(5,14)*TWO-R5(5,15)*TWO
     * +R4(2,15)+R4(9,15)+R4(2,16)+R4(9,16)+R4(2,19)+R4(2,20)
     * -R3(5,12)*TWO-R3(5,13)*TWO+R2(4,2)+R2(4,3)+R2(4,6)+R2(4,7))*XZ+(
     * +R5(9,23)-R4(5,32)*TWO+R3(2,29)+R3(9,29)+R3(2,33)-R2(6,23)*TWO
     * +R1(2,3)+R1(2,7))*XXZ
      F(6,4,3,1)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(19,1)+R6(8,2)+R6(10,9)
     * -R5(13,1)*TWO-R5(6,13)*TWO+R4(8,1)+R4(8,2)+R4(3,14)+R4(10,14)
     * +R4(3,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(19,4)-R6(13,6)*TWO
     * +R5(8,6)+R5(19,6)+R5(8,8)+R5(10,22)-R4(13,7)*TWO-R4(6,31)*TWO
     * +R3(8,2)+R3(8,4)+R3(3,28)+R3(10,28)+R3(3,32)-R2(3,22)*TWO+R1(3,2)
     * +R1(3,6))*QX+(+R7(13,3)-R6(8,5)*TWO+R5(4,5)+R5(13,5)+R5(4,7)
     * +R5(6,21)-R4(8,6)*TWO-R4(3,30)*TWO+R3(4,1)+R3(4,3)+R3(1,27)
     * +R3(6,27)+R3(1,31)-R2(5,21)*TWO+R1(1,1)+R1(1,5))*QZ+(+R6(13,11)
     * -R5(8,15)*TWO+R4(4,16)+R4(13,16)+R4(4,20)+R4(6,40)-R3(8,13)*TWO
     * -R3(3,45)*TWO+R2(2,3)+R2(2,7)+R2(1,39)+R2(3,39)+R2(1,44)
     * -R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(1,5,3,1)= R8(10)-R7(6,1)*TWO+R6(3,1)+R6(10,1)+R6(3,2)
     * +R6(10,9)*THREE-R5(6,1)*TWO-R5(6,13)*SIX+R4(3,1)+R4(3,2)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(10,3)*TWO+R7(10,4)-R6(6,5)*FOUR
     * -R6(6,6)*TWO+R5(3,5)*TWO+R5(10,5)*TWO+R5(3,6)+R5(10,6)
     * +R5(3,7)*TWO+R5(3,8)+R5(10,21)*TWO+R5(10,22)-R4(6,6)*FOUR
     * -R4(6,7)*TWO-R4(6,30)*FOUR-R4(6,31)*TWO+R3(3,1)*TWO+R3(3,2)
     * +R3(3,3)*TWO+R3(3,4)+R3(3,27)*TWO+R3(10,27)*TWO+R3(3,28)
     * +R3(10,28)+R3(3,31)*TWO+R3(3,32)-R2(3,21)*FOUR-R2(3,22)*TWO
     * +R1(3,1)*TWO+R1(3,2)+R1(3,5)*TWO+R1(3,6))*QX+(+R7(6,4)
     * -R6(3,6)*TWO+R5(1,6)+R5(6,6)+R5(1,8)+R5(6,22)*THREE-R4(3,7)*TWO
     * -R4(3,31)*SIX+R3(1,2)+R3(1,4)+R3(1,28)*THREE+R3(6,28)*THREE
     * +R3(1,32)*THREE-R2(5,22)*SIX+R1(1,2)*THREE+R1(1,6)*THREE)*QZ
      F(1,5,3,1)= F(1,5,3,1)
     * +(+R6(10,10)+R6(10,11)*TWO-R5(6,14)*TWO-R5(6,15)*FOUR+R4(3,15)
     * +R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,19)+R4(3,20)*TWO
     * -R3(6,12)*TWO-R3(6,13)*FOUR+R2(5,2)+R2(5,3)*TWO+R2(5,6)
     * +R2(5,7)*TWO)*XX+(+R6(6,11)*TWO+R6(6,12)-R5(3,15)*FOUR
     * -R5(3,16)*TWO+R4(1,16)*TWO+R4(6,16)*TWO+R4(1,17)+R4(6,17)
     * +R4(1,20)*TWO+R4(1,21)+R4(6,40)*TWO+R4(6,41)-R3(3,13)*FOUR
     * -R3(3,14)*TWO-R3(3,45)*FOUR-R3(3,46)*TWO+R2(1,3)*TWO+R2(1,4)
     * +R2(1,7)*TWO+R2(1,8)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)+R2(3,40)
     * +R2(1,44)*TWO+R2(1,45)-R1(3,23)*FOUR-R1(3,24)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*XZ+(+R5(10,23)-R4(6,32)*TWO+R3(3,29)+R3(10,29)
     * +R3(3,33)-R2(3,23)*TWO+R1(3,3)+R1(3,7))*XXX+(+R5(6,23)
     * +R5(6,24)*TWO-R4(3,32)*TWO-R4(3,33)*FOUR+R3(1,29)+R3(6,29)
     * +R3(1,30)*TWO+R3(6,30)*TWO+R3(1,33)+R3(1,34)*TWO-R2(5,23)*TWO
     * -R2(5,24)*FOUR+R1(1,3)+R1(1,4)*TWO+R1(1,7)+R1(1,8)*TWO)*XXZ+(
     * +R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)+R2(1,46)-R1(3,25)*TWO
     * +R0(5)+R0(10))*XXXZ
      F(2,5,3,1)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(19,1)+R6(8,2)+R6(10,9)
     * -R5(13,1)*TWO-R5(6,13)*TWO+R4(8,1)+R4(8,2)+R4(3,14)+R4(10,14)
     * +R4(3,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(19,4)-R6(13,6)*TWO
     * +R5(8,6)+R5(19,6)+R5(8,8)+R5(10,22)-R4(13,7)*TWO-R4(6,31)*TWO
     * +R3(8,2)+R3(8,4)+R3(3,28)+R3(10,28)+R3(3,32)-R2(3,22)*TWO+R1(3,2)
     * +R1(3,6))*QX+(+R7(13,4)-R6(8,6)*TWO+R5(4,6)+R5(13,6)+R5(4,8)
     * +R5(6,22)-R4(8,7)*TWO-R4(3,31)*TWO+R3(4,2)+R3(4,4)+R3(1,28)
     * +R3(6,28)+R3(1,32)-R2(5,22)*TWO+R1(1,2)+R1(1,6))*QZ+(+R6(13,12)
     * -R5(8,16)*TWO+R4(4,17)+R4(13,17)+R4(4,21)+R4(6,41)-R3(8,14)*TWO
     * -R3(3,46)*TWO+R2(2,4)+R2(2,8)+R2(1,40)+R2(3,40)+R2(1,45)
     * -R1(3,24)*TWO+R0(4)+R0(9))*XZ
      F(3,5,3,1)= R8(21)-R7(15,1)*TWO+R6(10,1)+R6(21,1)+R6(10,2)
     * +R6(10,9)*THREE-R5(15,1)*TWO-R5(6,13)*SIX+R4(10,1)+R4(10,2)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(21,4)-R6(15,6)*TWO+R5(10,6)
     * +R5(21,6)+R5(10,8)+R5(10,22)*THREE-R4(15,7)*TWO-R4(6,31)*SIX
     * +R3(10,2)+R3(10,4)+R3(3,28)*THREE+R3(10,28)*THREE+R3(3,32)*THREE
     * -R2(3,22)*SIX+R1(3,2)*THREE+R1(3,6)*THREE)*QX+(+R7(15,3)*TWO
     * +R7(15,4)-R6(10,5)*FOUR-R6(10,6)*TWO+R5(6,5)*TWO+R5(15,5)*TWO
     * +R5(6,6)+R5(15,6)+R5(6,7)*TWO+R5(6,8)+R5(6,21)*TWO+R5(6,22)
     * -R4(10,6)*FOUR-R4(10,7)*TWO-R4(3,30)*FOUR-R4(3,31)*TWO
     * +R3(6,1)*TWO+R3(6,2)+R3(6,3)*TWO+R3(6,4)+R3(1,27)*TWO
     * +R3(6,27)*TWO+R3(1,28)+R3(6,28)+R3(1,31)*TWO+R3(1,32)
     * -R2(5,21)*FOUR-R2(5,22)*TWO+R1(1,1)*TWO+R1(1,2)+R1(1,5)*TWO
     * +R1(1,6))*QZ
      F(3,5,3,1)= F(3,5,3,1)+(+R6(15,11)*TWO+R6(15,12)-R5(10,15)*FOUR
     * -R5(10,16)*TWO+R4(6,16)*TWO+R4(15,16)*TWO+R4(6,17)+R4(15,17)
     * +R4(6,20)*TWO+R4(6,21)+R4(6,40)*TWO+R4(6,41)-R3(10,13)*FOUR
     * -R3(10,14)*TWO-R3(3,45)*FOUR-R3(3,46)*TWO+R2(3,3)*TWO+R2(3,4)
     * +R2(3,7)*TWO+R2(3,8)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)+R2(3,40)
     * +R2(1,44)*TWO+R2(1,45)-R1(3,23)*FOUR-R1(3,24)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*XZ+(+R6(10,10)+R6(10,11)*TWO-R5(6,14)*TWO
     * -R5(6,15)*FOUR+R4(3,15)+R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO
     * +R4(3,19)+R4(3,20)*TWO-R3(6,12)*TWO-R3(6,13)*FOUR+R2(5,2)
     * +R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*ZZ+(+R5(10,23)+R5(10,24)*TWO
     * -R4(6,32)*TWO-R4(6,33)*FOUR+R3(3,29)+R3(10,29)+R3(3,30)*TWO
     * +R3(10,30)*TWO+R3(3,33)+R3(3,34)*TWO-R2(3,23)*TWO-R2(3,24)*FOUR
     * +R1(3,3)+R1(3,4)*TWO+R1(3,7)+R1(3,8)*TWO)*XZZ+(+R5(6,23)
     * -R4(3,32)*TWO+R3(1,29)+R3(6,29)+R3(1,33)-R2(5,23)*TWO+R1(1,3)
     * +R1(1,7))*ZZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)+R2(1,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(4,5,3,1)= R8(14)-R7(9,1)*TWO+R6(5,1)+R6(14,1)+R6(5,2)+R6(14,9)
     * -R5(9,1)*TWO-R5(9,13)*TWO+R4(5,1)+R4(5,2)+R4(5,14)+R4(14,14)
     * +R4(5,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(14,3)+R7(14,4)
     * -R6(9,5)*TWO-R6(9,6)*TWO+R5(5,5)+R5(14,5)+R5(5,6)+R5(14,6)
     * +R5(5,7)+R5(5,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)+R3(5,2)+R3(5,3)
     * +R3(5,4))*QX+(+R7(9,4)-R6(5,6)*TWO+R5(2,6)+R5(9,6)+R5(2,8)
     * +R5(9,22)-R4(5,7)*TWO-R4(5,31)*TWO+R3(2,2)+R3(2,4)+R3(2,28)
     * +R3(9,28)+R3(2,32)-R2(6,22)*TWO+R1(2,2)+R1(2,6))*QZ+(+R6(14,11)
     * -R5(9,15)*TWO+R4(5,16)+R4(14,16)+R4(5,20)-R3(9,13)*TWO+R2(6,3)
     * +R2(6,7))*XX+(+R6(9,11)+R6(9,12)-R5(5,15)*TWO-R5(5,16)*TWO
     * +R4(2,16)+R4(9,16)+R4(2,17)+R4(9,17)+R4(2,20)+R4(2,21)
     * -R3(5,13)*TWO-R3(5,14)*TWO+R2(4,3)+R2(4,4)+R2(4,7)+R2(4,8))*XZ+(
     * +R5(9,24)-R4(5,33)*TWO+R3(2,30)+R3(9,30)+R3(2,34)-R2(6,24)*TWO
     * +R1(2,4)+R1(2,8))*XXZ
      F(5,5,3,1)= R8(15)-R7(10,1)*TWO+R6(6,1)+R6(15,1)+R6(6,2)+R6(6,9)
     * +R6(15,9)-R5(10,1)*TWO-R5(3,13)*TWO-R5(10,13)*TWO+R4(6,1)+R4(6,2)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,18)+R4(6,18)+R4(6,38)
     * -R3(3,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)-R1(3,21)*TWO+R0(1)+R0(6)+(
     * +R7(15,3)+R7(15,4)-R6(10,5)*TWO-R6(10,6)*TWO+R5(6,5)+R5(15,5)
     * +R5(6,6)+R5(15,6)+R5(6,7)+R5(6,8)+R5(6,21)+R5(6,22)-R4(10,6)*TWO
     * -R4(10,7)*TWO-R4(3,30)*TWO-R4(3,31)*TWO+R3(6,1)+R3(6,2)+R3(6,3)
     * +R3(6,4)+R3(1,27)+R3(6,27)+R3(1,28)+R3(6,28)+R3(1,31)+R3(1,32)
     * -R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)+R1(1,5)+R1(1,6))*QX+(
     * +R7(10,3)+R7(10,4)-R6(6,5)*TWO-R6(6,6)*TWO+R5(3,5)+R5(10,5)
     * +R5(3,6)+R5(10,6)+R5(3,7)+R5(3,8)+R5(10,21)+R5(10,22)-R4(6,6)*TWO
     * -R4(6,7)*TWO-R4(6,30)*TWO-R4(6,31)*TWO+R3(3,1)+R3(3,2)+R3(3,3)
     * +R3(3,4)+R3(3,27)+R3(10,27)+R3(3,28)+R3(10,28)+R3(3,31)+R3(3,32)
     * -R2(3,21)*TWO-R2(3,22)*TWO+R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ
      F(5,5,3,1)= F(5,5,3,1)
     * +(+R6(15,11)-R5(10,15)*TWO+R4(6,16)+R4(15,16)+R4(6,20)+R4(6,40)
     * -R3(10,13)*TWO-R3(3,45)*TWO+R2(3,3)+R2(3,7)+R2(1,39)+R2(3,39)
     * +R2(1,44)-R1(3,23)*TWO+R0(3)+R0(8))*XX+(+R6(10,10)+R6(10,11)*TWO
     * +R6(10,12)-R5(6,14)*TWO-R5(6,15)*FOUR-R5(6,16)*TWO+R4(3,15)
     * +R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)+R4(10,17)+R4(3,19)
     * +R4(3,20)*TWO+R4(3,21)-R3(6,12)*TWO-R3(6,13)*FOUR-R3(6,14)*TWO
     * +R2(5,2)+R2(5,3)*TWO+R2(5,4)+R2(5,6)+R2(5,7)*TWO+R2(5,8))*XZ+(
     * +R6(6,11)-R5(3,15)*TWO+R4(1,16)+R4(6,16)+R4(1,20)+R4(6,40)
     * -R3(3,13)*TWO-R3(3,45)*TWO+R2(1,3)+R2(1,7)+R2(1,39)+R2(3,39)
     * +R2(1,44)-R1(3,23)*TWO+R0(3)+R0(8))*ZZ+(+R5(10,23)+R5(10,24)
     * -R4(6,32)*TWO-R4(6,33)*TWO+R3(3,29)+R3(10,29)+R3(3,30)+R3(10,30)
     * +R3(3,33)+R3(3,34)-R2(3,23)*TWO-R2(3,24)*TWO+R1(3,3)+R1(3,4)
     * +R1(3,7)+R1(3,8))*XXZ+(+R5(6,23)+R5(6,24)-R4(3,32)*TWO
     * -R4(3,33)*TWO+R3(1,29)+R3(6,29)+R3(1,30)+R3(6,30)+R3(1,33)
     * +R3(1,34)-R2(5,23)*TWO-R2(5,24)*TWO+R1(1,3)+R1(1,4)+R1(1,7)
     * +R1(1,8))*XZZ+(+R4(6,42)-R3(3,47)*TWO+R2(1,41)+R2(3,41)+R2(1,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(6,5,3,1)= R8(20)-R7(14,1)*TWO+R6(9,1)+R6(20,1)+R6(9,2)+R6(9,9)
     * -R5(14,1)*TWO-R5(5,13)*TWO+R4(9,1)+R4(9,2)+R4(2,14)+R4(9,14)
     * +R4(2,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(20,4)-R6(14,6)*TWO
     * +R5(9,6)+R5(20,6)+R5(9,8)+R5(9,22)-R4(14,7)*TWO-R4(5,31)*TWO
     * +R3(9,2)+R3(9,4)+R3(2,28)+R3(9,28)+R3(2,32)-R2(6,22)*TWO+R1(2,2)
     * +R1(2,6))*QX+(+R7(14,3)+R7(14,4)-R6(9,5)*TWO-R6(9,6)*TWO+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,7)+R5(5,8)-R4(9,6)*TWO
     * -R4(9,7)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QZ+(+R6(14,11)
     * +R6(14,12)-R5(9,15)*TWO-R5(9,16)*TWO+R4(5,16)+R4(14,16)+R4(5,17)
     * +R4(14,17)+R4(5,20)+R4(5,21)-R3(9,13)*TWO-R3(9,14)*TWO+R2(6,3)
     * +R2(6,4)+R2(6,7)+R2(6,8))*XZ+(+R6(9,11)-R5(5,15)*TWO+R4(2,16)
     * +R4(9,16)+R4(2,20)-R3(5,13)*TWO+R2(4,3)+R2(4,7))*ZZ+(+R5(9,24)
     * -R4(5,33)*TWO+R3(2,30)+R3(9,30)+R3(2,34)-R2(6,24)*TWO+R1(2,4)
     * +R1(2,8))*XZZ
      F(1,6,3,1)= R8(14)-R7(9,1)*TWO+R6(5,1)+R6(14,1)+R6(5,2)+R6(14,9)
     * -R5(9,1)*TWO-R5(9,13)*TWO+R4(5,1)+R4(5,2)+R4(5,14)+R4(14,14)
     * +R4(5,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(14,3)*TWO
     * -R6(9,5)*FOUR+R5(5,5)*TWO+R5(14,5)*TWO+R5(5,7)*TWO-R4(9,6)*FOUR
     * +R3(5,1)*TWO+R3(5,3)*TWO)*QX+(+R7(9,4)-R6(5,6)*TWO+R5(2,6)
     * +R5(9,6)+R5(2,8)+R5(9,22)-R4(5,7)*TWO-R4(5,31)*TWO+R3(2,2)
     * +R3(2,4)+R3(2,28)+R3(9,28)+R3(2,32)-R2(6,22)*TWO+R1(2,2)+R1(2,6))
     * *QZ+(+R6(14,10)-R5(9,14)*TWO+R4(5,15)+R4(14,15)+R4(5,19)
     * -R3(9,12)*TWO+R2(6,2)+R2(6,6))*XX+(+R6(9,11)*TWO-R5(5,15)*FOUR
     * +R4(2,16)*TWO+R4(9,16)*TWO+R4(2,20)*TWO-R3(5,13)*FOUR+R2(4,3)*TWO
     * +R2(4,7)*TWO)*XZ+(+R5(9,23)-R4(5,32)*TWO+R3(2,29)+R3(9,29)
     * +R3(2,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XXZ
      F(2,6,3,1)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(25,1)+R6(12,2)
     * +R6(14,9)*THREE-R5(18,1)*TWO-R5(9,13)*SIX+R4(12,1)+R4(12,2)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(18,4)-R6(12,6)*TWO+R5(7,6)
     * +R5(18,6)+R5(7,8)+R5(9,22)*THREE-R4(12,7)*TWO-R4(5,31)*SIX
     * +R3(7,2)+R3(7,4)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,32)*THREE
     * -R2(6,22)*SIX+R1(2,2)*THREE+R1(2,6)*THREE)*QZ
      F(3,6,3,1)= R8(27)-R7(20,1)*TWO+R6(14,1)+R6(27,1)+R6(14,2)
     * +R6(14,9)*THREE-R5(20,1)*TWO-R5(9,13)*SIX+R4(14,1)+R4(14,2)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(20,3)*TWO+R7(20,4)
     * -R6(14,5)*FOUR-R6(14,6)*TWO+R5(9,5)*TWO+R5(20,5)*TWO+R5(9,6)
     * +R5(20,6)+R5(9,7)*TWO+R5(9,8)+R5(9,21)*TWO+R5(9,22)-R4(14,6)*FOUR
     * -R4(14,7)*TWO-R4(5,30)*FOUR-R4(5,31)*TWO+R3(9,1)*TWO+R3(9,2)
     * +R3(9,3)*TWO+R3(9,4)+R3(2,27)*TWO+R3(9,27)*TWO+R3(2,28)+R3(9,28)
     * +R3(2,31)*TWO+R3(2,32)-R2(6,21)*FOUR-R2(6,22)*TWO+R1(2,1)*TWO
     * +R1(2,2)+R1(2,5)*TWO+R1(2,6))*QZ+(+R6(14,10)+R6(14,11)*TWO
     * -R5(9,14)*TWO-R5(9,15)*FOUR+R4(5,15)+R4(14,15)+R4(5,16)*TWO
     * +R4(14,16)*TWO+R4(5,19)+R4(5,20)*TWO-R3(9,12)*TWO-R3(9,13)*FOUR
     * +R2(6,2)+R2(6,3)*TWO+R2(6,6)+R2(6,7)*TWO)*ZZ+(+R5(9,23)
     * -R4(5,32)*TWO+R3(2,29)+R3(9,29)+R3(2,33)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*ZZZ
      F(4,6,3,1)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(19,1)+R6(8,2)+R6(10,9)
     * -R5(13,1)*TWO-R5(6,13)*TWO+R4(8,1)+R4(8,2)+R4(3,14)+R4(10,14)
     * +R4(3,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(19,3)-R6(13,5)*TWO
     * +R5(8,5)+R5(19,5)+R5(8,7)+R5(10,21)-R4(13,6)*TWO-R4(6,30)*TWO
     * +R3(8,1)+R3(8,3)+R3(3,27)+R3(10,27)+R3(3,31)-R2(3,21)*TWO+R1(3,1)
     * +R1(3,5))*QX+(+R7(13,4)-R6(8,6)*TWO+R5(4,6)+R5(13,6)+R5(4,8)
     * +R5(6,22)-R4(8,7)*TWO-R4(3,31)*TWO+R3(4,2)+R3(4,4)+R3(1,28)
     * +R3(6,28)+R3(1,32)-R2(5,22)*TWO+R1(1,2)+R1(1,6))*QZ+(+R6(13,11)
     * -R5(8,15)*TWO+R4(4,16)+R4(13,16)+R4(4,20)+R4(6,40)-R3(8,13)*TWO
     * -R3(3,45)*TWO+R2(2,3)+R2(2,7)+R2(1,39)+R2(3,39)+R2(1,44)
     * -R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(5,6,3,1)= R8(20)-R7(14,1)*TWO+R6(9,1)+R6(20,1)+R6(9,2)+R6(9,9)
     * -R5(14,1)*TWO-R5(5,13)*TWO+R4(9,1)+R4(9,2)+R4(2,14)+R4(9,14)
     * +R4(2,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(20,3)-R6(14,5)*TWO
     * +R5(9,5)+R5(20,5)+R5(9,7)+R5(9,21)-R4(14,6)*TWO-R4(5,30)*TWO
     * +R3(9,1)+R3(9,3)+R3(2,27)+R3(9,27)+R3(2,31)-R2(6,21)*TWO+R1(2,1)
     * +R1(2,5))*QX+(+R7(14,3)+R7(14,4)-R6(9,5)*TWO-R6(9,6)*TWO+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,7)+R5(5,8)-R4(9,6)*TWO
     * -R4(9,7)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QZ+(+R6(14,10)
     * +R6(14,11)-R5(9,14)*TWO-R5(9,15)*TWO+R4(5,15)+R4(14,15)+R4(5,16)
     * +R4(14,16)+R4(5,19)+R4(5,20)-R3(9,12)*TWO-R3(9,13)*TWO+R2(6,2)
     * +R2(6,3)+R2(6,6)+R2(6,7))*XZ+(+R6(9,11)-R5(5,15)*TWO+R4(2,16)
     * +R4(9,16)+R4(2,20)-R3(5,13)*TWO+R2(4,3)+R2(4,7))*ZZ+(+R5(9,23)
     * -R4(5,32)*TWO+R3(2,29)+R3(9,29)+R3(2,33)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XZZ
      F(6,6,3,1)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(26,1)+R6(13,2)
     * +R6(13,9)+R6(15,9)-R5(19,1)*TWO-R5(8,13)*TWO-R5(10,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(6,18)+R4(6,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(3,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(1,37)+R2(3,37)+R2(1,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(19,3)+R7(19,4)-R6(13,5)*TWO
     * -R6(13,6)*TWO+R5(8,5)+R5(19,5)+R5(8,6)+R5(19,6)+R5(8,7)+R5(8,8)
     * +R5(10,21)+R5(10,22)-R4(13,6)*TWO-R4(13,7)*TWO-R4(6,30)*TWO
     * -R4(6,31)*TWO+R3(8,1)+R3(8,2)+R3(8,3)+R3(8,4)+R3(3,27)+R3(10,27)
     * +R3(3,28)+R3(10,28)+R3(3,31)+R3(3,32)-R2(3,21)*TWO-R2(3,22)*TWO
     * +R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ+(+R6(13,11)-R5(8,15)*TWO
     * +R4(4,16)+R4(13,16)+R4(4,20)+R4(6,40)-R3(8,13)*TWO-R3(3,45)*TWO
     * +R2(2,3)+R2(2,7)+R2(1,39)+R2(3,39)+R2(1,44)-R1(3,23)*TWO+R0(3)
     * +R0(8))*ZZ
      F(1,1,4,1)= R8(2)+R6(2,1)*THREE+R6(2,9)*SIX+R4(2,14)*P18
     * +R4(2,38)*THREE+R2(4,37)*NINE+(+R7(2,3)*TWO+R7(2,4)*TWO
     * +R5(2,5)*SIX+R5(2,6)*SIX+R5(2,21)*SIX+R5(2,22)*SIX+R3(2,27)*P18
     * +R3(2,28)*P18)*QX+(+R6(2,10)+R6(2,11)*FOUR+R6(2,12)
     * +R4(2,15)*THREE+R4(2,16)*TWELV+R4(2,17)*THREE+R4(2,39)
     * +R4(2,40)*FOUR+R4(2,41)+R2(4,38)*THREE+R2(4,39)*TWELV
     * +R2(4,40)*THREE)*XX+(+R5(2,23)*TWO+R5(2,24)*TWO+R3(2,29)*SIX
     * +R3(2,30)*SIX)*XXX+(+R4(2,42)+R2(4,41)*THREE)*XXXX
      F(2,1,4,1)= R8(7)+R6(7,1)*THREE+R6(2,9)+R6(7,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(7,4)*TWO+R5(7,6)*SIX
     * +R5(2,22)*TWO+R3(2,28)*SIX)*QX+(+R6(7,12)+R4(7,17)*THREE+R4(2,41)
     * +R2(4,40)*THREE)*XX
      F(3,1,4,1)= R8(9)+R6(9,1)*THREE+R6(2,9)+R6(9,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(9,4)*TWO+R5(9,6)*SIX
     * +R5(2,22)*TWO+R3(2,28)*SIX)*QX+(+R7(5,3)*TWO+R5(5,5)*SIX
     * +R5(5,21)*TWO+R3(5,27)*SIX)*QZ+(+R6(9,12)+R4(9,17)*THREE+R4(2,41)
     * +R2(4,40)*THREE)*XX+(+R6(5,11)*FOUR+R4(5,16)*TWELV)*XZ+(+R6(2,10)
     * +R4(2,15)*THREE+R4(2,39)+R2(4,38)*THREE)*ZZ+(+R5(5,24)*TWO
     * +R3(5,30)*SIX)*XXZ+(+R5(2,23)*TWO+R3(2,29)*SIX)*XZZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XXZZ
      F(4,1,4,1)= R8(4)+R6(4,1)*THREE+R6(4,9)*THREE+R4(4,14)*NINE+(
     * +R7(4,3)+R7(4,4)*TWO+R5(4,5)*THREE+R5(4,6)*SIX+R5(4,21)
     * +R5(4,22)*TWO+R3(4,27)*THREE+R3(4,28)*SIX)*QX+(+R6(4,11)*TWO
     * +R6(4,12)+R4(4,16)*SIX+R4(4,17)*THREE)*XX+(+R5(4,24)
     * +R3(4,30)*THREE)*XXX
      F(5,1,4,1)= R8(5)+R6(5,1)*THREE+R6(5,9)*THREE+R4(5,14)*NINE+(
     * +R7(5,3)+R7(5,4)*TWO+R5(5,5)*THREE+R5(5,6)*SIX+R5(5,21)
     * +R5(5,22)*TWO+R3(5,27)*THREE+R3(5,28)*SIX)*QX+(+R7(2,3)
     * +R5(2,5)*THREE+R5(2,21)*THREE+R3(2,27)*NINE)*QZ+(+R6(5,11)*TWO
     * +R6(5,12)+R4(5,16)*SIX+R4(5,17)*THREE)*XX+(+R6(2,10)+R6(2,11)*TWO
     * +R4(2,15)*THREE+R4(2,16)*SIX+R4(2,39)+R4(2,40)*TWO+R2(4,38)*THREE
     * +R2(4,39)*SIX)*XZ+(+R5(5,24)+R3(5,30)*THREE)*XXX+(+R5(2,23)*TWO
     * +R5(2,24)+R3(2,29)*SIX+R3(2,30)*THREE)*XXZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XXXZ
      F(6,1,4,1)= R8(8)+R6(8,1)*THREE+R6(8,9)+R4(8,14)*THREE+(
     * +R7(8,4)*TWO+R5(8,6)*SIX)*QX+(+R7(4,3)+R5(4,5)*THREE+R5(4,21)
     * +R3(4,27)*THREE)*QZ+(+R6(8,12)+R4(8,17)*THREE)*XX+(+R6(4,11)*TWO
     * +R4(4,16)*SIX)*XZ+(+R5(4,24)+R3(4,30)*THREE)*XXZ
      F(1,2,4,1)= R8(7)+R6(7,1)*THREE+R6(2,9)+R6(7,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(7,3)*TWO+R5(7,5)*SIX
     * +R5(2,21)*TWO+R3(2,27)*SIX)*QX+(+R6(7,10)+R4(7,15)*THREE+R4(2,39)
     * +R2(4,38)*THREE)*XX
      F(2,2,4,1)= R8(16)+R6(16,1)*THREE+R6(7,9)*SIX+R4(7,14)*P18
     * +R4(2,38)*THREE+R2(4,37)*NINE
      F(3,2,4,1)= R8(18)+R6(18,1)*THREE+R6(7,9)+R6(9,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(12,3)*TWO
     * +R5(12,5)*SIX+R5(5,21)*TWO+R3(5,27)*SIX)*QZ+(+R6(7,10)
     * +R4(7,15)*THREE+R4(2,39)+R2(4,38)*THREE)*ZZ
      F(4,2,4,1)= R8(11)+R6(11,1)*THREE+R6(4,9)*THREE+R4(4,14)*NINE+(
     * +R7(11,3)+R5(11,5)*THREE+R5(4,21)*THREE+R3(4,27)*NINE)*QX
      F(5,2,4,1)= R8(12)+R6(12,1)*THREE+R6(5,9)+R4(5,14)*THREE+(
     * +R7(12,3)+R5(12,5)*THREE+R5(5,21)+R3(5,27)*THREE)*QX+(+R7(7,3)
     * +R5(7,5)*THREE+R5(2,21)+R3(2,27)*THREE)*QZ+(+R6(7,10)
     * +R4(7,15)*THREE+R4(2,39)+R2(4,38)*THREE)*XZ
      F(6,2,4,1)= R8(17)+R6(17,1)*THREE+R6(8,9)*THREE+R4(8,14)*NINE+(
     * +R7(11,3)+R5(11,5)*THREE+R5(4,21)*THREE+R3(4,27)*NINE)*QZ
      F(1,3,4,1)= R8(9)+R6(9,1)*THREE+R6(2,9)+R6(9,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(9,3)*TWO+R5(9,5)*SIX
     * +R5(2,21)*TWO+R3(2,27)*SIX)*QX+(+R7(5,4)*TWO+R5(5,6)*SIX
     * +R5(5,22)*TWO+R3(5,28)*SIX)*QZ+(+R6(9,10)+R4(9,15)*THREE+R4(2,39)
     * +R2(4,38)*THREE)*XX+(+R6(5,11)*FOUR+R4(5,16)*TWELV)*XZ+(+R6(2,12)
     * +R4(2,17)*THREE+R4(2,41)+R2(4,40)*THREE)*ZZ+(+R5(5,23)*TWO
     * +R3(5,29)*SIX)*XXZ+(+R5(2,24)*TWO+R3(2,30)*SIX)*XZZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XXZZ
      F(2,3,4,1)= R8(18)+R6(18,1)*THREE+R6(7,9)+R6(9,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(12,4)*TWO
     * +R5(12,6)*SIX+R5(5,22)*TWO+R3(5,28)*SIX)*QZ+(+R6(7,12)
     * +R4(7,17)*THREE+R4(2,41)+R2(4,40)*THREE)*ZZ
      F(3,3,4,1)= R8(20)+R6(20,1)*THREE+R6(9,9)*SIX+R4(9,14)*P18
     * +R4(2,38)*THREE+R2(4,37)*NINE+(+R7(14,3)*TWO+R7(14,4)*TWO
     * +R5(14,5)*SIX+R5(14,6)*SIX+R5(5,21)*SIX+R5(5,22)*SIX+R3(5,27)*P18
     * +R3(5,28)*P18)*QZ+(+R6(9,10)+R6(9,11)*FOUR+R6(9,12)
     * +R4(9,15)*THREE+R4(9,16)*TWELV+R4(9,17)*THREE+R4(2,39)
     * +R4(2,40)*FOUR+R4(2,41)+R2(4,38)*THREE+R2(4,39)*TWELV
     * +R2(4,40)*THREE)*ZZ+(+R5(5,23)*TWO+R5(5,24)*TWO+R3(5,29)*SIX
     * +R3(5,30)*SIX)*ZZZ+(+R4(2,42)+R2(4,41)*THREE)*ZZZZ
      F(4,3,4,1)= R8(13)+R6(13,1)*THREE+R6(4,9)+R4(4,14)*THREE+(
     * +R7(13,3)+R5(13,5)*THREE+R5(4,21)+R3(4,27)*THREE)*QX+(
     * +R7(8,4)*TWO+R5(8,6)*SIX)*QZ+(+R6(8,11)*TWO+R4(8,16)*SIX)*XZ+(
     * +R6(4,12)+R4(4,17)*THREE)*ZZ+(+R5(4,24)+R3(4,30)*THREE)*XZZ
      F(5,3,4,1)= R8(14)+R6(14,1)*THREE+R6(5,9)*THREE+R4(5,14)*NINE+(
     * +R7(14,3)+R5(14,5)*THREE+R5(5,21)*THREE+R3(5,27)*NINE)*QX+(
     * +R7(9,3)+R7(9,4)*TWO+R5(9,5)*THREE+R5(9,6)*SIX+R5(2,21)
     * +R5(2,22)*TWO+R3(2,27)*THREE+R3(2,28)*SIX)*QZ+(+R6(9,10)
     * +R6(9,11)*TWO+R4(9,15)*THREE+R4(9,16)*SIX+R4(2,39)+R4(2,40)*TWO
     * +R2(4,38)*THREE+R2(4,39)*SIX)*XZ+(+R6(5,11)*TWO+R6(5,12)
     * +R4(5,16)*SIX+R4(5,17)*THREE)*ZZ+(+R5(5,23)*TWO+R5(5,24)
     * +R3(5,29)*SIX+R3(5,30)*THREE)*XZZ+(+R5(2,24)+R3(2,30)*THREE)*ZZZ
     * +(+R4(2,42)+R2(4,41)*THREE)*XZZZ
      F(6,3,4,1)= R8(19)+R6(19,1)*THREE+R6(8,9)*THREE+R4(8,14)*NINE+(
     * +R7(13,3)+R7(13,4)*TWO+R5(13,5)*THREE+R5(13,6)*SIX+R5(4,21)
     * +R5(4,22)*TWO+R3(4,27)*THREE+R3(4,28)*SIX)*QZ+(+R6(8,11)*TWO
     * +R6(8,12)+R4(8,16)*SIX+R4(8,17)*THREE)*ZZ+(+R5(4,24)
     * +R3(4,30)*THREE)*ZZZ
      F(1,4,4,1)= R8(4)+R6(4,1)*THREE+R6(4,9)*THREE+R4(4,14)*NINE+(
     * +R7(4,3)*TWO+R7(4,4)+R5(4,5)*SIX+R5(4,6)*THREE+R5(4,21)*TWO
     * +R5(4,22)+R3(4,27)*SIX+R3(4,28)*THREE)*QX+(+R6(4,10)+R6(4,11)*TWO
     * +R4(4,15)*THREE+R4(4,16)*SIX)*XX+(+R5(4,23)+R3(4,29)*THREE)*XXX
      F(2,4,4,1)= R8(11)+R6(11,1)*THREE+R6(4,9)*THREE+R4(4,14)*NINE+(
     * +R7(11,4)+R5(11,6)*THREE+R5(4,22)*THREE+R3(4,28)*NINE)*QX
      F(3,4,4,1)= R8(13)+R6(13,1)*THREE+R6(4,9)+R4(4,14)*THREE+(
     * +R7(13,4)+R5(13,6)*THREE+R5(4,22)+R3(4,28)*THREE)*QX+(
     * +R7(8,3)*TWO+R5(8,5)*SIX)*QZ+(+R6(8,11)*TWO+R4(8,16)*SIX)*XZ+(
     * +R6(4,10)+R4(4,15)*THREE)*ZZ+(+R5(4,23)+R3(4,29)*THREE)*XZZ
      F(4,4,4,1)= R8(7)+R6(7,1)*THREE+R6(2,9)+R6(7,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(7,3)+R7(7,4)
     * +R5(7,5)*THREE+R5(7,6)*THREE+R5(2,21)+R5(2,22)+R3(2,27)*THREE
     * +R3(2,28)*THREE)*QX+(+R6(7,11)+R4(7,16)*THREE+R4(2,40)
     * +R2(4,39)*THREE)*XX
      F(5,4,4,1)= R8(8)+R6(8,1)*THREE+R6(8,9)+R4(8,14)*THREE+(+R7(8,3)
     * +R7(8,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QX+(+R7(4,3)+R5(4,5)*THREE
     * +R5(4,21)+R3(4,27)*THREE)*QZ+(+R6(8,11)+R4(8,16)*THREE)*XX+(
     * +R6(4,10)+R6(4,11)+R4(4,15)*THREE+R4(4,16)*THREE)*XZ+(+R5(4,23)
     * +R3(4,29)*THREE)*XXZ
      F(6,4,4,1)= R8(12)+R6(12,1)*THREE+R6(5,9)+R4(5,14)*THREE+(
     * +R7(12,4)+R5(12,6)*THREE+R5(5,22)+R3(5,28)*THREE)*QX+(+R7(7,3)
     * +R5(7,5)*THREE+R5(2,21)+R3(2,27)*THREE)*QZ+(+R6(7,11)
     * +R4(7,16)*THREE+R4(2,40)+R2(4,39)*THREE)*XZ
      F(1,5,4,1)= R8(5)+R6(5,1)*THREE+R6(5,9)*THREE+R4(5,14)*NINE+(
     * +R7(5,3)*TWO+R7(5,4)+R5(5,5)*SIX+R5(5,6)*THREE+R5(5,21)*TWO
     * +R5(5,22)+R3(5,27)*SIX+R3(5,28)*THREE)*QX+(+R7(2,4)+R5(2,6)*THREE
     * +R5(2,22)*THREE+R3(2,28)*NINE)*QZ+(+R6(5,10)+R6(5,11)*TWO
     * +R4(5,15)*THREE+R4(5,16)*SIX)*XX+(+R6(2,11)*TWO+R6(2,12)
     * +R4(2,16)*SIX+R4(2,17)*THREE+R4(2,40)*TWO+R4(2,41)+R2(4,39)*SIX
     * +R2(4,40)*THREE)*XZ+(+R5(5,23)+R3(5,29)*THREE)*XXX+(+R5(2,23)
     * +R5(2,24)*TWO+R3(2,29)*THREE+R3(2,30)*SIX)*XXZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XXXZ
      F(2,5,4,1)= R8(12)+R6(12,1)*THREE+R6(5,9)+R4(5,14)*THREE+(
     * +R7(12,4)+R5(12,6)*THREE+R5(5,22)+R3(5,28)*THREE)*QX+(+R7(7,4)
     * +R5(7,6)*THREE+R5(2,22)+R3(2,28)*THREE)*QZ+(+R6(7,12)
     * +R4(7,17)*THREE+R4(2,41)+R2(4,40)*THREE)*XZ
      F(3,5,4,1)= R8(14)+R6(14,1)*THREE+R6(5,9)*THREE+R4(5,14)*NINE+(
     * +R7(14,4)+R5(14,6)*THREE+R5(5,22)*THREE+R3(5,28)*NINE)*QX+(
     * +R7(9,3)*TWO+R7(9,4)+R5(9,5)*SIX+R5(9,6)*THREE+R5(2,21)*TWO
     * +R5(2,22)+R3(2,27)*SIX+R3(2,28)*THREE)*QZ+(+R6(9,11)*TWO+R6(9,12)
     * +R4(9,16)*SIX+R4(9,17)*THREE+R4(2,40)*TWO+R4(2,41)+R2(4,39)*SIX
     * +R2(4,40)*THREE)*XZ+(+R6(5,10)+R6(5,11)*TWO+R4(5,15)*THREE
     * +R4(5,16)*SIX)*ZZ+(+R5(5,23)+R5(5,24)*TWO+R3(5,29)*THREE
     * +R3(5,30)*SIX)*XZZ+(+R5(2,23)+R3(2,29)*THREE)*ZZZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XZZZ
      F(4,5,4,1)= R8(8)+R6(8,1)*THREE+R6(8,9)+R4(8,14)*THREE+(+R7(8,3)
     * +R7(8,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QX+(+R7(4,4)+R5(4,6)*THREE
     * +R5(4,22)+R3(4,28)*THREE)*QZ+(+R6(8,11)+R4(8,16)*THREE)*XX+(
     * +R6(4,11)+R6(4,12)+R4(4,16)*THREE+R4(4,17)*THREE)*XZ+(+R5(4,24)
     * +R3(4,30)*THREE)*XXZ
      F(5,5,4,1)= R8(9)+R6(9,1)*THREE+R6(2,9)+R6(9,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(9,3)+R7(9,4)
     * +R5(9,5)*THREE+R5(9,6)*THREE+R5(2,21)+R5(2,22)+R3(2,27)*THREE
     * +R3(2,28)*THREE)*QX+(+R7(5,3)+R7(5,4)+R5(5,5)*THREE+R5(5,6)*THREE
     * +R5(5,21)+R5(5,22)+R3(5,27)*THREE+R3(5,28)*THREE)*QZ+(+R6(9,11)
     * +R4(9,16)*THREE+R4(2,40)+R2(4,39)*THREE)*XX+(+R6(5,10)
     * +R6(5,11)*TWO+R6(5,12)+R4(5,15)*THREE+R4(5,16)*SIX+R4(5,17)*THREE
     * )*XZ+(+R6(2,11)+R4(2,16)*THREE+R4(2,40)+R2(4,39)*THREE)*ZZ+(
     * +R5(5,23)+R5(5,24)+R3(5,29)*THREE+R3(5,30)*THREE)*XXZ+(+R5(2,23)
     * +R5(2,24)+R3(2,29)*THREE+R3(2,30)*THREE)*XZZ+(+R4(2,42)
     * +R2(4,41)*THREE)*XXZZ
      F(6,5,4,1)= R8(13)+R6(13,1)*THREE+R6(4,9)+R4(4,14)*THREE+(
     * +R7(13,4)+R5(13,6)*THREE+R5(4,22)+R3(4,28)*THREE)*QX+(+R7(8,3)
     * +R7(8,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QZ+(+R6(8,11)+R6(8,12)
     * +R4(8,16)*THREE+R4(8,17)*THREE)*XZ+(+R6(4,11)+R4(4,16)*THREE)*ZZ
     * +(+R5(4,24)+R3(4,30)*THREE)*XZZ
      F(1,6,4,1)= R8(8)+R6(8,1)*THREE+R6(8,9)+R4(8,14)*THREE+(
     * +R7(8,3)*TWO+R5(8,5)*SIX)*QX+(+R7(4,4)+R5(4,6)*THREE+R5(4,22)
     * +R3(4,28)*THREE)*QZ+(+R6(8,10)+R4(8,15)*THREE)*XX+(+R6(4,11)*TWO
     * +R4(4,16)*SIX)*XZ+(+R5(4,23)+R3(4,29)*THREE)*XXZ
      F(2,6,4,1)= R8(17)+R6(17,1)*THREE+R6(8,9)*THREE+R4(8,14)*NINE+(
     * +R7(11,4)+R5(11,6)*THREE+R5(4,22)*THREE+R3(4,28)*NINE)*QZ
      F(3,6,4,1)= R8(19)+R6(19,1)*THREE+R6(8,9)*THREE+R4(8,14)*NINE+(
     * +R7(13,3)*TWO+R7(13,4)+R5(13,5)*SIX+R5(13,6)*THREE+R5(4,21)*TWO
     * +R5(4,22)+R3(4,27)*SIX+R3(4,28)*THREE)*QZ+(+R6(8,10)+R6(8,11)*TWO
     * +R4(8,15)*THREE+R4(8,16)*SIX)*ZZ+(+R5(4,23)+R3(4,29)*THREE)*ZZZ
      F(4,6,4,1)= R8(12)+R6(12,1)*THREE+R6(5,9)+R4(5,14)*THREE+(
     * +R7(12,3)+R5(12,5)*THREE+R5(5,21)+R3(5,27)*THREE)*QX+(+R7(7,4)
     * +R5(7,6)*THREE+R5(2,22)+R3(2,28)*THREE)*QZ+(+R6(7,11)
     * +R4(7,16)*THREE+R4(2,40)+R2(4,39)*THREE)*XZ
      F(5,6,4,1)= R8(13)+R6(13,1)*THREE+R6(4,9)+R4(4,14)*THREE+(
     * +R7(13,3)+R5(13,5)*THREE+R5(4,21)+R3(4,27)*THREE)*QX+(+R7(8,3)
     * +R7(8,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QZ+(+R6(8,10)+R6(8,11)
     * +R4(8,15)*THREE+R4(8,16)*THREE)*XZ+(+R6(4,11)+R4(4,16)*THREE)*ZZ
     * +(+R5(4,23)+R3(4,29)*THREE)*XZZ
      F(6,6,4,1)= R8(18)+R6(18,1)*THREE+R6(7,9)+R6(9,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(2,38)+R2(4,37)*THREE+(+R7(12,3)+R7(12,4)
     * +R5(12,5)*THREE+R5(12,6)*THREE+R5(5,21)+R5(5,22)+R3(5,27)*THREE
     * +R3(5,28)*THREE)*QZ+(+R6(7,11)+R4(7,16)*THREE+R4(2,40)
     * +R2(4,39)*THREE)*ZZ
      F(1,1,5,1)= R8(3)-R7(1,1)+R6(3,1)*THREE+R6(3,9)*SIX-R5(1,1)*THREE
     * -R5(1,13)*SIX+R4(3,14)*P18+R4(3,38)*THREE-R3(1,11)*P18
     * -R3(1,43)*THREE+R2(5,37)*NINE-R1(1,21)*NINE+(+R7(3,3)*TWO
     * +R7(3,4)*TWO-R6(1,5)*TWO-R6(1,6)*TWO+R5(3,5)*SIX+R5(3,6)*SIX
     * +R5(3,21)*SIX+R5(3,22)*SIX-R4(1,6)*SIX-R4(1,7)*SIX-R4(1,30)*SIX
     * -R4(1,31)*SIX+R3(3,27)*P18+R3(3,28)*P18-R2(1,21)*P18-R2(1,22)*P18
     * )*QX+(+R6(3,10)+R6(3,11)*FOUR+R6(3,12)-R5(1,14)-R5(1,15)*FOUR
     * -R5(1,16)+R4(3,15)*THREE+R4(3,16)*TWELV+R4(3,17)*THREE+R4(3,39)
     * +R4(3,40)*FOUR+R4(3,41)-R3(1,12)*THREE-R3(1,13)*TWELV
     * -R3(1,14)*THREE-R3(1,44)-R3(1,45)*FOUR-R3(1,46)+R2(5,38)*THREE
     * +R2(5,39)*TWELV+R2(5,40)*THREE-R1(1,22)*THREE-R1(1,23)*TWELV
     * -R1(1,24)*THREE)*XX+(+R5(3,23)*TWO+R5(3,24)*TWO-R4(1,32)*TWO
     * -R4(1,33)*TWO+R3(3,29)*SIX+R3(3,30)*SIX-R2(1,23)*SIX-R2(1,24)*SIX
     * )*XXX+(+R4(3,42)-R3(1,47)+R2(5,41)*THREE-R1(1,25)*THREE)*XXXX
      F(2,1,5,1)= R8(8)-R7(4,1)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,1)*THREE-R5(1,13)-R5(4,13)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(4,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(8,4)*TWO-R6(4,6)*TWO+R5(8,6)*SIX
     * +R5(3,22)*TWO-R4(4,7)*SIX-R4(1,31)*TWO+R3(3,28)*SIX-R2(1,22)*SIX)
     * *QX+(+R6(8,12)-R5(4,16)+R4(8,17)*THREE+R4(3,41)-R3(4,14)*THREE
     * -R3(1,46)+R2(5,40)*THREE-R1(1,24)*THREE)*XX
      F(3,1,5,1)= R8(10)-R7(6,1)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,1)*THREE-R5(1,13)-R5(6,13)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(10,4)*TWO-R6(6,6)*TWO+R5(10,6)*SIX
     * +R5(3,22)*TWO-R4(6,7)*SIX-R4(1,31)*TWO+R3(3,28)*SIX-R2(1,22)*SIX)
     * *QX+(+R7(6,3)*TWO-R6(3,5)*TWO+R5(6,5)*SIX+R5(6,21)*TWO
     * -R4(3,6)*SIX-R4(3,30)*TWO+R3(6,27)*SIX-R2(5,21)*SIX)*QZ+(
     * +R6(10,12)-R5(6,16)+R4(10,17)*THREE+R4(3,41)-R3(6,14)*THREE
     * -R3(1,46)+R2(5,40)*THREE-R1(1,24)*THREE)*XX+(+R6(6,11)*FOUR
     * -R5(3,15)*FOUR+R4(6,16)*TWELV-R3(3,13)*TWELV)*XZ+(+R6(3,10)
     * -R5(1,14)+R4(3,15)*THREE+R4(3,39)-R3(1,12)*THREE-R3(1,44)
     * +R2(5,38)*THREE-R1(1,22)*THREE)*ZZ+(+R5(6,24)*TWO-R4(3,33)*TWO
     * +R3(6,30)*SIX-R2(5,24)*SIX)*XXZ+(+R5(3,23)*TWO-R4(1,32)*TWO
     * +R3(3,29)*SIX-R2(1,23)*SIX)*XZZ+(+R4(3,42)-R3(1,47)
     * +R2(5,41)*THREE-R1(1,25)*THREE)*XXZZ
      F(4,1,5,1)= R8(5)-R7(2,1)+R6(5,1)*THREE+R6(5,9)*THREE
     * -R5(2,1)*THREE-R5(2,13)*THREE+R4(5,14)*NINE-R3(2,11)*NINE+(
     * +R7(5,3)+R7(5,4)*TWO-R6(2,5)-R6(2,6)*TWO+R5(5,5)*THREE
     * +R5(5,6)*SIX+R5(5,21)+R5(5,22)*TWO-R4(2,6)*THREE-R4(2,7)*SIX
     * -R4(2,30)-R4(2,31)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,21)*THREE
     * -R2(4,22)*SIX)*QX+(+R6(5,11)*TWO+R6(5,12)-R5(2,15)*TWO-R5(2,16)
     * +R4(5,16)*SIX+R4(5,17)*THREE-R3(2,13)*SIX-R3(2,14)*THREE)*XX+(
     * +R5(5,24)-R4(2,33)+R3(5,30)*THREE-R2(4,24)*THREE)*XXX
      F(5,1,5,1)= R8(6)-R7(3,1)+R6(6,1)*THREE+R6(6,9)*THREE
     * -R5(3,1)*THREE-R5(3,13)*THREE+R4(6,14)*NINE-R3(3,11)*NINE+(
     * +R7(6,3)+R7(6,4)*TWO-R6(3,5)-R6(3,6)*TWO+R5(6,5)*THREE
     * +R5(6,6)*SIX+R5(6,21)+R5(6,22)*TWO-R4(3,6)*THREE-R4(3,7)*SIX
     * -R4(3,30)-R4(3,31)*TWO+R3(6,27)*THREE+R3(6,28)*SIX-R2(5,21)*THREE
     * -R2(5,22)*SIX)*QX+(+R7(3,3)-R6(1,5)+R5(3,5)*THREE+R5(3,21)*THREE
     * -R4(1,6)*THREE-R4(1,30)*THREE+R3(3,27)*NINE-R2(1,21)*NINE)*QZ+(
     * +R6(6,11)*TWO+R6(6,12)-R5(3,15)*TWO-R5(3,16)+R4(6,16)*SIX
     * +R4(6,17)*THREE-R3(3,13)*SIX-R3(3,14)*THREE)*XX+(+R6(3,10)
     * +R6(3,11)*TWO-R5(1,14)-R5(1,15)*TWO+R4(3,15)*THREE+R4(3,16)*SIX
     * +R4(3,39)+R4(3,40)*TWO-R3(1,12)*THREE-R3(1,13)*SIX-R3(1,44)
     * -R3(1,45)*TWO+R2(5,38)*THREE+R2(5,39)*SIX-R1(1,22)*THREE
     * -R1(1,23)*SIX)*XZ+(+R5(6,24)-R4(3,33)+R3(6,30)*THREE
     * -R2(5,24)*THREE)*XXX+(+R5(3,23)*TWO+R5(3,24)-R4(1,32)*TWO
     * -R4(1,33)+R3(3,29)*SIX+R3(3,30)*THREE-R2(1,23)*SIX-R2(1,24)*THREE
     * )*XXZ+(+R4(3,42)-R3(1,47)+R2(5,41)*THREE-R1(1,25)*THREE)*XXXZ
      F(6,1,5,1)= R8(9)-R7(5,1)+R6(9,1)*THREE+R6(9,9)-R5(5,1)*THREE
     * -R5(5,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,4)*TWO-R6(5,6)*TWO
     * +R5(9,6)*SIX-R4(5,7)*SIX)*QX+(+R7(5,3)-R6(2,5)+R5(5,5)*THREE
     * +R5(5,21)-R4(2,6)*THREE-R4(2,30)+R3(5,27)*THREE-R2(4,21)*THREE)
     * *QZ+(+R6(9,12)-R5(5,16)+R4(9,17)*THREE-R3(5,14)*THREE)*XX+(
     * +R6(5,11)*TWO-R5(2,15)*TWO+R4(5,16)*SIX-R3(2,13)*SIX)*XZ+(
     * +R5(5,24)-R4(2,33)+R3(5,30)*THREE-R2(4,24)*THREE)*XXZ
      F(1,2,5,1)= R8(8)-R7(4,1)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,1)*THREE-R5(1,13)-R5(4,13)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(4,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(8,3)*TWO-R6(4,5)*TWO+R5(8,5)*SIX
     * +R5(3,21)*TWO-R4(4,6)*SIX-R4(1,30)*TWO+R3(3,27)*SIX-R2(1,21)*SIX)
     * *QX+(+R6(8,10)-R5(4,14)+R4(8,15)*THREE+R4(3,39)-R3(4,12)*THREE
     * -R3(1,44)+R2(5,38)*THREE-R1(1,22)*THREE)*XX
      F(2,2,5,1)= R8(17)-R7(11,1)+R6(17,1)*THREE+R6(8,9)*SIX
     * -R5(11,1)*THREE-R5(4,13)*SIX+R4(8,14)*P18+R4(3,38)*THREE
     * -R3(4,11)*P18-R3(1,43)*THREE+R2(5,37)*NINE-R1(1,21)*NINE
      F(3,2,5,1)= R8(19)-R7(13,1)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,1)*THREE-R5(4,13)-R5(6,13)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(13,3)*TWO-R6(8,5)*TWO+R5(13,5)*SIX
     * +R5(6,21)*TWO-R4(8,6)*SIX-R4(3,30)*TWO+R3(6,27)*SIX-R2(5,21)*SIX)
     * *QZ+(+R6(8,10)-R5(4,14)+R4(8,15)*THREE+R4(3,39)-R3(4,12)*THREE
     * -R3(1,44)+R2(5,38)*THREE-R1(1,22)*THREE)*ZZ
      F(4,2,5,1)= R8(12)-R7(7,1)+R6(12,1)*THREE+R6(5,9)*THREE
     * -R5(7,1)*THREE-R5(2,13)*THREE+R4(5,14)*NINE-R3(2,11)*NINE+(
     * +R7(12,3)-R6(7,5)+R5(12,5)*THREE+R5(5,21)*THREE-R4(7,6)*THREE
     * -R4(2,30)*THREE+R3(5,27)*NINE-R2(4,21)*NINE)*QX
      F(5,2,5,1)= R8(13)-R7(8,1)+R6(13,1)*THREE+R6(6,9)-R5(8,1)*THREE
     * -R5(3,13)+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,3)-R6(8,5)
     * +R5(13,5)*THREE+R5(6,21)-R4(8,6)*THREE-R4(3,30)+R3(6,27)*THREE
     * -R2(5,21)*THREE)*QX+(+R7(8,3)-R6(4,5)+R5(8,5)*THREE+R5(3,21)
     * -R4(4,6)*THREE-R4(1,30)+R3(3,27)*THREE-R2(1,21)*THREE)*QZ+(
     * +R6(8,10)-R5(4,14)+R4(8,15)*THREE+R4(3,39)-R3(4,12)*THREE
     * -R3(1,44)+R2(5,38)*THREE-R1(1,22)*THREE)*XZ
      F(6,2,5,1)= R8(18)-R7(12,1)+R6(18,1)*THREE+R6(9,9)*THREE
     * -R5(12,1)*THREE-R5(5,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(12,3)-R6(7,5)+R5(12,5)*THREE+R5(5,21)*THREE-R4(7,6)*THREE
     * -R4(2,30)*THREE+R3(5,27)*NINE-R2(4,21)*NINE)*QZ
      F(1,3,5,1)= R8(10)-R7(6,1)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,1)*THREE-R5(1,13)-R5(6,13)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(10,3)*TWO-R6(6,5)*TWO+R5(10,5)*SIX
     * +R5(3,21)*TWO-R4(6,6)*SIX-R4(1,30)*TWO+R3(3,27)*SIX-R2(1,21)*SIX)
     * *QX+(+R7(6,4)*TWO-R6(3,6)*TWO+R5(6,6)*SIX+R5(6,22)*TWO
     * -R4(3,7)*SIX-R4(3,31)*TWO+R3(6,28)*SIX-R2(5,22)*SIX)*QZ+(
     * +R6(10,10)-R5(6,14)+R4(10,15)*THREE+R4(3,39)-R3(6,12)*THREE
     * -R3(1,44)+R2(5,38)*THREE-R1(1,22)*THREE)*XX+(+R6(6,11)*FOUR
     * -R5(3,15)*FOUR+R4(6,16)*TWELV-R3(3,13)*TWELV)*XZ+(+R6(3,12)
     * -R5(1,16)+R4(3,17)*THREE+R4(3,41)-R3(1,14)*THREE-R3(1,46)
     * +R2(5,40)*THREE-R1(1,24)*THREE)*ZZ+(+R5(6,23)*TWO-R4(3,32)*TWO
     * +R3(6,29)*SIX-R2(5,23)*SIX)*XXZ+(+R5(3,24)*TWO-R4(1,33)*TWO
     * +R3(3,30)*SIX-R2(1,24)*SIX)*XZZ+(+R4(3,42)-R3(1,47)
     * +R2(5,41)*THREE-R1(1,25)*THREE)*XXZZ
      F(2,3,5,1)= R8(19)-R7(13,1)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,1)*THREE-R5(4,13)-R5(6,13)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(13,4)*TWO-R6(8,6)*TWO+R5(13,6)*SIX
     * +R5(6,22)*TWO-R4(8,7)*SIX-R4(3,31)*TWO+R3(6,28)*SIX-R2(5,22)*SIX)
     * *QZ+(+R6(8,12)-R5(4,16)+R4(8,17)*THREE+R4(3,41)-R3(4,14)*THREE
     * -R3(1,46)+R2(5,40)*THREE-R1(1,24)*THREE)*ZZ
      F(3,3,5,1)= R8(21)-R7(15,1)+R6(21,1)*THREE+R6(10,9)*SIX
     * -R5(15,1)*THREE-R5(6,13)*SIX+R4(10,14)*P18+R4(3,38)*THREE
     * -R3(6,11)*P18-R3(1,43)*THREE+R2(5,37)*NINE-R1(1,21)*NINE+(
     * +R7(15,3)*TWO+R7(15,4)*TWO-R6(10,5)*TWO-R6(10,6)*TWO+R5(15,5)*SIX
     * +R5(15,6)*SIX+R5(6,21)*SIX+R5(6,22)*SIX-R4(10,6)*SIX-R4(10,7)*SIX
     * -R4(3,30)*SIX-R4(3,31)*SIX+R3(6,27)*P18+R3(6,28)*P18-R2(5,21)*P18
     * -R2(5,22)*P18)*QZ+(+R6(10,10)+R6(10,11)*FOUR+R6(10,12)-R5(6,14)
     * -R5(6,15)*FOUR-R5(6,16)+R4(10,15)*THREE+R4(10,16)*TWELV
     * +R4(10,17)*THREE+R4(3,39)+R4(3,40)*FOUR+R4(3,41)-R3(6,12)*THREE
     * -R3(6,13)*TWELV-R3(6,14)*THREE-R3(1,44)-R3(1,45)*FOUR-R3(1,46)
     * +R2(5,38)*THREE+R2(5,39)*TWELV+R2(5,40)*THREE-R1(1,22)*THREE
     * -R1(1,23)*TWELV-R1(1,24)*THREE)*ZZ+(+R5(6,23)*TWO+R5(6,24)*TWO
     * -R4(3,32)*TWO-R4(3,33)*TWO+R3(6,29)*SIX+R3(6,30)*SIX-R2(5,23)*SIX
     * -R2(5,24)*SIX)*ZZZ+(+R4(3,42)-R3(1,47)+R2(5,41)*THREE
     * -R1(1,25)*THREE)*ZZZZ
      F(4,3,5,1)= R8(14)-R7(9,1)+R6(14,1)*THREE+R6(5,9)-R5(9,1)*THREE
     * -R5(2,13)+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(14,3)-R6(9,5)
     * +R5(14,5)*THREE+R5(5,21)-R4(9,6)*THREE-R4(2,30)+R3(5,27)*THREE
     * -R2(4,21)*THREE)*QX+(+R7(9,4)*TWO-R6(5,6)*TWO+R5(9,6)*SIX
     * -R4(5,7)*SIX)*QZ+(+R6(9,11)*TWO-R5(5,15)*TWO+R4(9,16)*SIX
     * -R3(5,13)*SIX)*XZ+(+R6(5,12)-R5(2,16)+R4(5,17)*THREE
     * -R3(2,14)*THREE)*ZZ+(+R5(5,24)-R4(2,33)+R3(5,30)*THREE
     * -R2(4,24)*THREE)*XZZ
      F(5,3,5,1)= R8(15)-R7(10,1)+R6(15,1)*THREE+R6(6,9)*THREE
     * -R5(10,1)*THREE-R5(3,13)*THREE+R4(6,14)*NINE-R3(3,11)*NINE+(
     * +R7(15,3)-R6(10,5)+R5(15,5)*THREE+R5(6,21)*THREE-R4(10,6)*THREE
     * -R4(3,30)*THREE+R3(6,27)*NINE-R2(5,21)*NINE)*QX+(+R7(10,3)
     * +R7(10,4)*TWO-R6(6,5)-R6(6,6)*TWO+R5(10,5)*THREE+R5(10,6)*SIX
     * +R5(3,21)+R5(3,22)*TWO-R4(6,6)*THREE-R4(6,7)*SIX-R4(1,30)
     * -R4(1,31)*TWO+R3(3,27)*THREE+R3(3,28)*SIX-R2(1,21)*THREE
     * -R2(1,22)*SIX)*QZ+(+R6(10,10)+R6(10,11)*TWO-R5(6,14)-R5(6,15)*TWO
     * +R4(10,15)*THREE+R4(10,16)*SIX+R4(3,39)+R4(3,40)*TWO
     * -R3(6,12)*THREE-R3(6,13)*SIX-R3(1,44)-R3(1,45)*TWO+R2(5,38)*THREE
     * +R2(5,39)*SIX-R1(1,22)*THREE-R1(1,23)*SIX)*XZ+(+R6(6,11)*TWO
     * +R6(6,12)-R5(3,15)*TWO-R5(3,16)+R4(6,16)*SIX+R4(6,17)*THREE
     * -R3(3,13)*SIX-R3(3,14)*THREE)*ZZ+(+R5(6,23)*TWO+R5(6,24)
     * -R4(3,32)*TWO-R4(3,33)+R3(6,29)*SIX+R3(6,30)*THREE-R2(5,23)*SIX
     * -R2(5,24)*THREE)*XZZ+(+R5(3,24)-R4(1,33)+R3(3,30)*THREE
     * -R2(1,24)*THREE)*ZZZ+(+R4(3,42)-R3(1,47)+R2(5,41)*THREE
     * -R1(1,25)*THREE)*XZZZ
      F(6,3,5,1)= R8(20)-R7(14,1)+R6(20,1)*THREE+R6(9,9)*THREE
     * -R5(14,1)*THREE-R5(5,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(14,3)+R7(14,4)*TWO-R6(9,5)-R6(9,6)*TWO+R5(14,5)*THREE
     * +R5(14,6)*SIX+R5(5,21)+R5(5,22)*TWO-R4(9,6)*THREE-R4(9,7)*SIX
     * -R4(2,30)-R4(2,31)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,21)*THREE
     * -R2(4,22)*SIX)*QZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,15)*TWO-R5(5,16)
     * +R4(9,16)*SIX+R4(9,17)*THREE-R3(5,13)*SIX-R3(5,14)*THREE)*ZZ+(
     * +R5(5,24)-R4(2,33)+R3(5,30)*THREE-R2(4,24)*THREE)*ZZZ
      F(1,4,5,1)= R8(5)-R7(2,1)+R6(5,1)*THREE+R6(5,9)*THREE
     * -R5(2,1)*THREE-R5(2,13)*THREE+R4(5,14)*NINE-R3(2,11)*NINE+(
     * +R7(5,3)*TWO+R7(5,4)-R6(2,5)*TWO-R6(2,6)+R5(5,5)*SIX
     * +R5(5,6)*THREE+R5(5,21)*TWO+R5(5,22)-R4(2,6)*SIX-R4(2,7)*THREE
     * -R4(2,30)*TWO-R4(2,31)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,21)*SIX
     * -R2(4,22)*THREE)*QX+(+R6(5,10)+R6(5,11)*TWO-R5(2,14)-R5(2,15)*TWO
     * +R4(5,15)*THREE+R4(5,16)*SIX-R3(2,12)*THREE-R3(2,13)*SIX)*XX+(
     * +R5(5,23)-R4(2,32)+R3(5,29)*THREE-R2(4,23)*THREE)*XXX
      F(2,4,5,1)= R8(12)-R7(7,1)+R6(12,1)*THREE+R6(5,9)*THREE
     * -R5(7,1)*THREE-R5(2,13)*THREE+R4(5,14)*NINE-R3(2,11)*NINE+(
     * +R7(12,4)-R6(7,6)+R5(12,6)*THREE+R5(5,22)*THREE-R4(7,7)*THREE
     * -R4(2,31)*THREE+R3(5,28)*NINE-R2(4,22)*NINE)*QX
      F(3,4,5,1)= R8(14)-R7(9,1)+R6(14,1)*THREE+R6(5,9)-R5(9,1)*THREE
     * -R5(2,13)+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(14,4)-R6(9,6)
     * +R5(14,6)*THREE+R5(5,22)-R4(9,7)*THREE-R4(2,31)+R3(5,28)*THREE
     * -R2(4,22)*THREE)*QX+(+R7(9,3)*TWO-R6(5,5)*TWO+R5(9,5)*SIX
     * -R4(5,6)*SIX)*QZ+(+R6(9,11)*TWO-R5(5,15)*TWO+R4(9,16)*SIX
     * -R3(5,13)*SIX)*XZ+(+R6(5,10)-R5(2,14)+R4(5,15)*THREE
     * -R3(2,12)*THREE)*ZZ+(+R5(5,23)-R4(2,32)+R3(5,29)*THREE
     * -R2(4,23)*THREE)*XZZ
      F(4,4,5,1)= R8(8)-R7(4,1)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,1)*THREE-R5(1,13)-R5(4,13)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(4,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(8,3)+R7(8,4)-R6(4,5)-R6(4,6)+R5(8,5)*THREE
     * +R5(8,6)*THREE+R5(3,21)+R5(3,22)-R4(4,6)*THREE-R4(4,7)*THREE
     * -R4(1,30)-R4(1,31)+R3(3,27)*THREE+R3(3,28)*THREE-R2(1,21)*THREE
     * -R2(1,22)*THREE)*QX+(+R6(8,11)-R5(4,15)+R4(8,16)*THREE+R4(3,40)
     * -R3(4,13)*THREE-R3(1,45)+R2(5,39)*THREE-R1(1,23)*THREE)*XX
      F(5,4,5,1)= R8(9)-R7(5,1)+R6(9,1)*THREE+R6(9,9)-R5(5,1)*THREE
     * -R5(5,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,3)+R7(9,4)-R6(5,5)
     * -R6(5,6)+R5(9,5)*THREE+R5(9,6)*THREE-R4(5,6)*THREE-R4(5,7)*THREE)
     * *QX+(+R7(5,3)-R6(2,5)+R5(5,5)*THREE+R5(5,21)-R4(2,6)*THREE
     * -R4(2,30)+R3(5,27)*THREE-R2(4,21)*THREE)*QZ+(+R6(9,11)-R5(5,15)
     * +R4(9,16)*THREE-R3(5,13)*THREE)*XX+(+R6(5,10)+R6(5,11)-R5(2,14)
     * -R5(2,15)+R4(5,15)*THREE+R4(5,16)*THREE-R3(2,12)*THREE
     * -R3(2,13)*THREE)*XZ+(+R5(5,23)-R4(2,32)+R3(5,29)*THREE
     * -R2(4,23)*THREE)*XXZ
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21C
      SUBROUTINE MCDV21C(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           NINE=9.0D+00, TWELV=1.2D+01,
     *           P18=1.8D+01, P24=2.4D+01,P36=3.6D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(6,4,5,1)= R8(13)-R7(8,1)+R6(13,1)*THREE+R6(6,9)-R5(8,1)*THREE
     * -R5(3,13)+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,4)-R6(8,6)
     * +R5(13,6)*THREE+R5(6,22)-R4(8,7)*THREE-R4(3,31)+R3(6,28)*THREE
     * -R2(5,22)*THREE)*QX+(+R7(8,3)-R6(4,5)+R5(8,5)*THREE+R5(3,21)
     * -R4(4,6)*THREE-R4(1,30)+R3(3,27)*THREE-R2(1,21)*THREE)*QZ+(
     * +R6(8,11)-R5(4,15)+R4(8,16)*THREE+R4(3,40)-R3(4,13)*THREE
     * -R3(1,45)+R2(5,39)*THREE-R1(1,23)*THREE)*XZ
      F(1,5,5,1)= R8(6)-R7(3,1)+R6(6,1)*THREE+R6(6,9)*THREE
     * -R5(3,1)*THREE-R5(3,13)*THREE+R4(6,14)*NINE-R3(3,11)*NINE+(
     * +R7(6,3)*TWO+R7(6,4)-R6(3,5)*TWO-R6(3,6)+R5(6,5)*SIX
     * +R5(6,6)*THREE+R5(6,21)*TWO+R5(6,22)-R4(3,6)*SIX-R4(3,7)*THREE
     * -R4(3,30)*TWO-R4(3,31)+R3(6,27)*SIX+R3(6,28)*THREE-R2(5,21)*SIX
     * -R2(5,22)*THREE)*QX+(+R7(3,4)-R6(1,6)+R5(3,6)*THREE
     * +R5(3,22)*THREE-R4(1,7)*THREE-R4(1,31)*THREE+R3(3,28)*NINE
     * -R2(1,22)*NINE)*QZ+(+R6(6,10)+R6(6,11)*TWO-R5(3,14)-R5(3,15)*TWO
     * +R4(6,15)*THREE+R4(6,16)*SIX-R3(3,12)*THREE-R3(3,13)*SIX)*XX+(
     * +R6(3,11)*TWO+R6(3,12)-R5(1,15)*TWO-R5(1,16)+R4(3,16)*SIX
     * +R4(3,17)*THREE+R4(3,40)*TWO+R4(3,41)-R3(1,13)*SIX-R3(1,14)*THREE
     * -R3(1,45)*TWO-R3(1,46)+R2(5,39)*SIX+R2(5,40)*THREE-R1(1,23)*SIX
     * -R1(1,24)*THREE)*XZ+(+R5(6,23)-R4(3,32)+R3(6,29)*THREE
     * -R2(5,23)*THREE)*XXX+(+R5(3,23)+R5(3,24)*TWO-R4(1,32)
     * -R4(1,33)*TWO+R3(3,29)*THREE+R3(3,30)*SIX-R2(1,23)*THREE
     * -R2(1,24)*SIX)*XXZ+(+R4(3,42)-R3(1,47)+R2(5,41)*THREE
     * -R1(1,25)*THREE)*XXXZ
      F(2,5,5,1)= R8(13)-R7(8,1)+R6(13,1)*THREE+R6(6,9)-R5(8,1)*THREE
     * -R5(3,13)+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,4)-R6(8,6)
     * +R5(13,6)*THREE+R5(6,22)-R4(8,7)*THREE-R4(3,31)+R3(6,28)*THREE
     * -R2(5,22)*THREE)*QX+(+R7(8,4)-R6(4,6)+R5(8,6)*THREE+R5(3,22)
     * -R4(4,7)*THREE-R4(1,31)+R3(3,28)*THREE-R2(1,22)*THREE)*QZ+(
     * +R6(8,12)-R5(4,16)+R4(8,17)*THREE+R4(3,41)-R3(4,14)*THREE
     * -R3(1,46)+R2(5,40)*THREE-R1(1,24)*THREE)*XZ
      F(3,5,5,1)= R8(15)-R7(10,1)+R6(15,1)*THREE+R6(6,9)*THREE
     * -R5(10,1)*THREE-R5(3,13)*THREE+R4(6,14)*NINE-R3(3,11)*NINE+(
     * +R7(15,4)-R6(10,6)+R5(15,6)*THREE+R5(6,22)*THREE-R4(10,7)*THREE
     * -R4(3,31)*THREE+R3(6,28)*NINE-R2(5,22)*NINE)*QX+(+R7(10,3)*TWO
     * +R7(10,4)-R6(6,5)*TWO-R6(6,6)+R5(10,5)*SIX+R5(10,6)*THREE
     * +R5(3,21)*TWO+R5(3,22)-R4(6,6)*SIX-R4(6,7)*THREE-R4(1,30)*TWO
     * -R4(1,31)+R3(3,27)*SIX+R3(3,28)*THREE-R2(1,21)*SIX-R2(1,22)*THREE
     * )*QZ+(+R6(10,11)*TWO+R6(10,12)-R5(6,15)*TWO-R5(6,16)
     * +R4(10,16)*SIX+R4(10,17)*THREE+R4(3,40)*TWO+R4(3,41)-R3(6,13)*SIX
     * -R3(6,14)*THREE-R3(1,45)*TWO-R3(1,46)+R2(5,39)*SIX+R2(5,40)*THREE
     * -R1(1,23)*SIX-R1(1,24)*THREE)*XZ+(+R6(6,10)+R6(6,11)*TWO-R5(3,14)
     * -R5(3,15)*TWO+R4(6,15)*THREE+R4(6,16)*SIX-R3(3,12)*THREE
     * -R3(3,13)*SIX)*ZZ+(+R5(6,23)+R5(6,24)*TWO-R4(3,32)-R4(3,33)*TWO
     * +R3(6,29)*THREE+R3(6,30)*SIX-R2(5,23)*THREE-R2(5,24)*SIX)*XZZ+(
     * +R5(3,23)-R4(1,32)+R3(3,29)*THREE-R2(1,23)*THREE)*ZZZ+(+R4(3,42)
     * -R3(1,47)+R2(5,41)*THREE-R1(1,25)*THREE)*XZZZ
      F(4,5,5,1)= R8(9)-R7(5,1)+R6(9,1)*THREE+R6(9,9)-R5(5,1)*THREE
     * -R5(5,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,3)+R7(9,4)-R6(5,5)
     * -R6(5,6)+R5(9,5)*THREE+R5(9,6)*THREE-R4(5,6)*THREE-R4(5,7)*THREE)
     * *QX+(+R7(5,4)-R6(2,6)+R5(5,6)*THREE+R5(5,22)-R4(2,7)*THREE
     * -R4(2,31)+R3(5,28)*THREE-R2(4,22)*THREE)*QZ+(+R6(9,11)-R5(5,15)
     * +R4(9,16)*THREE-R3(5,13)*THREE)*XX+(+R6(5,11)+R6(5,12)-R5(2,15)
     * -R5(2,16)+R4(5,16)*THREE+R4(5,17)*THREE-R3(2,13)*THREE
     * -R3(2,14)*THREE)*XZ+(+R5(5,24)-R4(2,33)+R3(5,30)*THREE
     * -R2(4,24)*THREE)*XXZ
      F(5,5,5,1)= R8(10)-R7(6,1)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,1)*THREE-R5(1,13)-R5(6,13)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(10,3)+R7(10,4)-R6(6,5)-R6(6,6)
     * +R5(10,5)*THREE+R5(10,6)*THREE+R5(3,21)+R5(3,22)-R4(6,6)*THREE
     * -R4(6,7)*THREE-R4(1,30)-R4(1,31)+R3(3,27)*THREE+R3(3,28)*THREE
     * -R2(1,21)*THREE-R2(1,22)*THREE)*QX+(+R7(6,3)+R7(6,4)-R6(3,5)
     * -R6(3,6)+R5(6,5)*THREE+R5(6,6)*THREE+R5(6,21)+R5(6,22)
     * -R4(3,6)*THREE-R4(3,7)*THREE-R4(3,30)-R4(3,31)+R3(6,27)*THREE
     * +R3(6,28)*THREE-R2(5,21)*THREE-R2(5,22)*THREE)*QZ
      F(5,5,5,1)= F(5,5,5,1)+(+R6(10,11)
     * -R5(6,15)+R4(10,16)*THREE+R4(3,40)-R3(6,13)*THREE-R3(1,45)
     * +R2(5,39)*THREE-R1(1,23)*THREE)*XX+(+R6(6,10)+R6(6,11)*TWO
     * +R6(6,12)-R5(3,14)-R5(3,15)*TWO-R5(3,16)+R4(6,15)*THREE
     * +R4(6,16)*SIX+R4(6,17)*THREE-R3(3,12)*THREE-R3(3,13)*SIX
     * -R3(3,14)*THREE)*XZ+(+R6(3,11)-R5(1,15)+R4(3,16)*THREE+R4(3,40)
     * -R3(1,13)*THREE-R3(1,45)+R2(5,39)*THREE-R1(1,23)*THREE)*ZZ+(
     * +R5(6,23)+R5(6,24)-R4(3,32)-R4(3,33)+R3(6,29)*THREE
     * +R3(6,30)*THREE-R2(5,23)*THREE-R2(5,24)*THREE)*XXZ+(+R5(3,23)
     * +R5(3,24)-R4(1,32)-R4(1,33)+R3(3,29)*THREE+R3(3,30)*THREE
     * -R2(1,23)*THREE-R2(1,24)*THREE)*XZZ+(+R4(3,42)-R3(1,47)
     * +R2(5,41)*THREE-R1(1,25)*THREE)*XXZZ
      F(6,5,5,1)= R8(14)-R7(9,1)+R6(14,1)*THREE+R6(5,9)-R5(9,1)*THREE
     * -R5(2,13)+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(14,4)-R6(9,6)
     * +R5(14,6)*THREE+R5(5,22)-R4(9,7)*THREE-R4(2,31)+R3(5,28)*THREE
     * -R2(4,22)*THREE)*QX+(+R7(9,3)+R7(9,4)-R6(5,5)-R6(5,6)
     * +R5(9,5)*THREE+R5(9,6)*THREE-R4(5,6)*THREE-R4(5,7)*THREE)*QZ+(
     * +R6(9,11)+R6(9,12)-R5(5,15)-R5(5,16)+R4(9,16)*THREE
     * +R4(9,17)*THREE-R3(5,13)*THREE-R3(5,14)*THREE)*XZ+(+R6(5,11)
     * -R5(2,15)+R4(5,16)*THREE-R3(2,13)*THREE)*ZZ+(+R5(5,24)-R4(2,33)
     * +R3(5,30)*THREE-R2(4,24)*THREE)*XZZ
      F(1,6,5,1)= R8(9)-R7(5,1)+R6(9,1)*THREE+R6(9,9)-R5(5,1)*THREE
     * -R5(5,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,3)*TWO-R6(5,5)*TWO
     * +R5(9,5)*SIX-R4(5,6)*SIX)*QX+(+R7(5,4)-R6(2,6)+R5(5,6)*THREE
     * +R5(5,22)-R4(2,7)*THREE-R4(2,31)+R3(5,28)*THREE-R2(4,22)*THREE)
     * *QZ+(+R6(9,10)-R5(5,14)+R4(9,15)*THREE-R3(5,12)*THREE)*XX+(
     * +R6(5,11)*TWO-R5(2,15)*TWO+R4(5,16)*SIX-R3(2,13)*SIX)*XZ+(
     * +R5(5,23)-R4(2,32)+R3(5,29)*THREE-R2(4,23)*THREE)*XXZ
      F(2,6,5,1)= R8(18)-R7(12,1)+R6(18,1)*THREE+R6(9,9)*THREE
     * -R5(12,1)*THREE-R5(5,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(12,4)-R6(7,6)+R5(12,6)*THREE+R5(5,22)*THREE-R4(7,7)*THREE
     * -R4(2,31)*THREE+R3(5,28)*NINE-R2(4,22)*NINE)*QZ
      F(3,6,5,1)= R8(20)-R7(14,1)+R6(20,1)*THREE+R6(9,9)*THREE
     * -R5(14,1)*THREE-R5(5,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(14,3)*TWO+R7(14,4)-R6(9,5)*TWO-R6(9,6)+R5(14,5)*SIX
     * +R5(14,6)*THREE+R5(5,21)*TWO+R5(5,22)-R4(9,6)*SIX-R4(9,7)*THREE
     * -R4(2,30)*TWO-R4(2,31)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,21)*SIX
     * -R2(4,22)*THREE)*QZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,14)-R5(5,15)*TWO
     * +R4(9,15)*THREE+R4(9,16)*SIX-R3(5,12)*THREE-R3(5,13)*SIX)*ZZ+(
     * +R5(5,23)-R4(2,32)+R3(5,29)*THREE-R2(4,23)*THREE)*ZZZ
      F(4,6,5,1)= R8(13)-R7(8,1)+R6(13,1)*THREE+R6(6,9)-R5(8,1)*THREE
     * -R5(3,13)+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,3)-R6(8,5)
     * +R5(13,5)*THREE+R5(6,21)-R4(8,6)*THREE-R4(3,30)+R3(6,27)*THREE
     * -R2(5,21)*THREE)*QX+(+R7(8,4)-R6(4,6)+R5(8,6)*THREE+R5(3,22)
     * -R4(4,7)*THREE-R4(1,31)+R3(3,28)*THREE-R2(1,22)*THREE)*QZ+(
     * +R6(8,11)-R5(4,15)+R4(8,16)*THREE+R4(3,40)-R3(4,13)*THREE
     * -R3(1,45)+R2(5,39)*THREE-R1(1,23)*THREE)*XZ
      F(5,6,5,1)= R8(14)-R7(9,1)+R6(14,1)*THREE+R6(5,9)-R5(9,1)*THREE
     * -R5(2,13)+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(14,3)-R6(9,5)
     * +R5(14,5)*THREE+R5(5,21)-R4(9,6)*THREE-R4(2,30)+R3(5,27)*THREE
     * -R2(4,21)*THREE)*QX+(+R7(9,3)+R7(9,4)-R6(5,5)-R6(5,6)
     * +R5(9,5)*THREE+R5(9,6)*THREE-R4(5,6)*THREE-R4(5,7)*THREE)*QZ+(
     * +R6(9,10)+R6(9,11)-R5(5,14)-R5(5,15)+R4(9,15)*THREE
     * +R4(9,16)*THREE-R3(5,12)*THREE-R3(5,13)*THREE)*XZ+(+R6(5,11)
     * -R5(2,15)+R4(5,16)*THREE-R3(2,13)*THREE)*ZZ+(+R5(5,23)-R4(2,32)
     * +R3(5,29)*THREE-R2(4,23)*THREE)*XZZ
      F(6,6,5,1)= R8(19)-R7(13,1)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,1)*THREE-R5(4,13)-R5(6,13)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,11)*THREE-R3(6,11)*THREE-R3(1,43)+R2(5,37)*THREE
     * -R1(1,21)*THREE+(+R7(13,3)+R7(13,4)-R6(8,5)-R6(8,6)
     * +R5(13,5)*THREE+R5(13,6)*THREE+R5(6,21)+R5(6,22)-R4(8,6)*THREE
     * -R4(8,7)*THREE-R4(3,30)-R4(3,31)+R3(6,27)*THREE+R3(6,28)*THREE
     * -R2(5,21)*THREE-R2(5,22)*THREE)*QZ+(+R6(8,11)-R5(4,15)
     * +R4(8,16)*THREE+R4(3,40)-R3(4,13)*THREE-R3(1,45)+R2(5,39)*THREE
     * -R1(1,23)*THREE)*ZZ
      F(1,1,6,1)= R8(5)-R7(2,1)+R6(5,1)+R6(5,9)*SIX-R5(2,1)-R5(2,13)*SIX
     * +R4(5,14)*SIX+R4(5,38)*THREE-R3(2,11)*SIX-R3(2,43)*THREE
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R7(5,3)*TWO+R7(5,4)*TWO
     * -R6(2,5)*TWO-R6(2,6)*TWO+R5(5,5)*TWO+R5(5,6)*TWO+R5(5,21)*SIX
     * +R5(5,22)*SIX-R4(2,6)*TWO-R4(2,7)*TWO-R4(2,30)*SIX-R4(2,31)*SIX
     * +R3(5,27)*SIX+R3(5,28)*SIX-R2(4,21)*SIX-R2(4,22)*SIX)*QX+(
     * +R6(5,10)+R6(5,11)*FOUR+R6(5,12)-R5(2,14)-R5(2,15)*FOUR-R5(2,16)
     * +R4(5,15)+R4(5,16)*FOUR+R4(5,17)+R4(5,39)+R4(5,40)*FOUR+R4(5,41)
     * -R3(2,12)-R3(2,13)*FOUR-R3(2,14)-R3(2,44)-R3(2,45)*FOUR-R3(2,46)
     * +R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,22)-R1(2,23)*FOUR-R1(2,24))
     * *XX+(+R5(5,23)*TWO+R5(5,24)*TWO-R4(2,32)*TWO-R4(2,33)*TWO
     * +R3(5,29)*TWO+R3(5,30)*TWO-R2(4,23)*TWO-R2(4,24)*TWO)*XXX+(
     * +R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))*XXXX
      F(2,1,6,1)= R8(12)-R7(7,1)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,1)
     * -R5(2,13)-R5(7,13)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,11)-R3(7,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(12,4)*TWO-R6(7,6)*TWO
     * +R5(12,6)*TWO+R5(5,22)*TWO-R4(7,7)*TWO-R4(2,31)*TWO+R3(5,28)*TWO
     * -R2(4,22)*TWO)*QX+(+R6(12,12)-R5(7,16)+R4(12,17)+R4(5,41)
     * -R3(7,14)-R3(2,46)+R2(6,40)-R1(2,24))*XX
      F(3,1,6,1)= R8(14)-R7(9,1)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,1)
     * -R5(2,13)-R5(9,13)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(14,4)*TWO-R6(9,6)*TWO
     * +R5(14,6)*TWO+R5(5,22)*TWO-R4(9,7)*TWO-R4(2,31)*TWO+R3(5,28)*TWO
     * -R2(4,22)*TWO)*QX+(+R7(9,3)*TWO-R6(5,5)*TWO+R5(9,5)*TWO
     * +R5(9,21)*TWO-R4(5,6)*TWO-R4(5,30)*TWO+R3(9,27)*TWO-R2(6,21)*TWO)
     * *QZ+(+R6(14,12)-R5(9,16)+R4(14,17)+R4(5,41)-R3(9,14)-R3(2,46)
     * +R2(6,40)-R1(2,24))*XX+(+R6(9,11)*FOUR-R5(5,15)*FOUR
     * +R4(9,16)*FOUR-R3(5,13)*FOUR)*XZ+(+R6(5,10)-R5(2,14)+R4(5,15)
     * +R4(5,39)-R3(2,12)-R3(2,44)+R2(6,38)-R1(2,22))*ZZ+(+R5(9,24)*TWO
     * -R4(5,33)*TWO+R3(9,30)*TWO-R2(6,24)*TWO)*XXZ+(+R5(5,23)*TWO
     * -R4(2,32)*TWO+R3(5,29)*TWO-R2(4,23)*TWO)*XZZ+(+R4(5,42)-R3(2,47)
     * +R2(6,41)-R1(2,25))*XXZZ
      F(4,1,6,1)= R8(8)-R7(4,1)+R6(8,1)+R6(8,9)*THREE-R5(4,1)
     * -R5(4,13)*THREE+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(8,3)
     * +R7(8,4)*TWO-R6(4,5)-R6(4,6)*TWO+R5(8,5)+R5(8,6)*TWO+R5(8,21)
     * +R5(8,22)*TWO-R4(4,6)-R4(4,7)*TWO-R4(4,30)-R4(4,31)*TWO+R3(8,27)
     * +R3(8,28)*TWO-R2(2,21)-R2(2,22)*TWO)*QX+(+R6(8,11)*TWO+R6(8,12)
     * -R5(4,15)*TWO-R5(4,16)+R4(8,16)*TWO+R4(8,17)-R3(4,13)*TWO
     * -R3(4,14))*XX+(+R5(8,24)-R4(4,33)+R3(8,30)-R2(2,24))*XXX
      F(5,1,6,1)= R8(9)-R7(5,1)+R6(9,1)+R6(9,9)*THREE-R5(5,1)
     * -R5(5,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,3)
     * +R7(9,4)*TWO-R6(5,5)-R6(5,6)*TWO+R5(9,5)+R5(9,6)*TWO+R5(9,21)
     * +R5(9,22)*TWO-R4(5,6)-R4(5,7)*TWO-R4(5,30)-R4(5,31)*TWO+R3(9,27)
     * +R3(9,28)*TWO-R2(6,21)-R2(6,22)*TWO)*QX+(+R7(5,3)-R6(2,5)+R5(5,5)
     * +R5(5,21)*THREE-R4(2,6)-R4(2,30)*THREE+R3(5,27)*THREE
     * -R2(4,21)*THREE)*QZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,15)*TWO-R5(5,16)
     * +R4(9,16)*TWO+R4(9,17)-R3(5,13)*TWO-R3(5,14))*XX+(+R6(5,10)
     * +R6(5,11)*TWO-R5(2,14)-R5(2,15)*TWO+R4(5,15)+R4(5,16)*TWO
     * +R4(5,39)+R4(5,40)*TWO-R3(2,12)-R3(2,13)*TWO-R3(2,44)
     * -R3(2,45)*TWO+R2(6,38)+R2(6,39)*TWO-R1(2,22)-R1(2,23)*TWO)*XZ+(
     * +R5(9,24)-R4(5,33)+R3(9,30)-R2(6,24))*XXX+(+R5(5,23)*TWO+R5(5,24)
     * -R4(2,32)*TWO-R4(2,33)+R3(5,29)*TWO+R3(5,30)-R2(4,23)*TWO
     * -R2(4,24))*XXZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))*XXXZ
      F(6,1,6,1)= R8(13)-R7(8,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(13,14)-R3(8,11)+(+R7(13,4)*TWO-R6(8,6)*TWO+R5(13,6)*TWO
     * -R4(8,7)*TWO)*QX+(+R7(8,3)-R6(4,5)+R5(8,5)+R5(8,21)-R4(4,6)
     * -R4(4,30)+R3(8,27)-R2(2,21))*QZ+(+R6(13,12)-R5(8,16)+R4(13,17)
     * -R3(8,14))*XX+(+R6(8,11)*TWO-R5(4,15)*TWO+R4(8,16)*TWO
     * -R3(4,13)*TWO)*XZ+(+R5(8,24)-R4(4,33)+R3(8,30)-R2(2,24))*XXZ
      F(1,2,6,1)= R8(12)-R7(7,1)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,1)
     * -R5(2,13)-R5(7,13)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,11)-R3(7,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(12,3)*TWO-R6(7,5)*TWO
     * +R5(12,5)*TWO+R5(5,21)*TWO-R4(7,6)*TWO-R4(2,30)*TWO+R3(5,27)*TWO
     * -R2(4,21)*TWO)*QX+(+R6(12,10)-R5(7,14)+R4(12,15)+R4(5,39)
     * -R3(7,12)-R3(2,44)+R2(6,38)-R1(2,22))*XX
      F(2,2,6,1)= R8(23)-R7(16,1)+R6(23,1)+R6(12,9)*SIX-R5(16,1)
     * -R5(7,13)*SIX+R4(12,14)*SIX+R4(5,38)*THREE-R3(7,11)*SIX
     * -R3(2,43)*THREE+R2(6,37)*THREE-R1(2,21)*THREE
      F(3,2,6,1)= R8(25)-R7(18,1)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,1)
     * -R5(7,13)-R5(9,13)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(18,3)*TWO-R6(12,5)*TWO
     * +R5(18,5)*TWO+R5(9,21)*TWO-R4(12,6)*TWO-R4(5,30)*TWO+R3(9,27)*TWO
     * -R2(6,21)*TWO)*QZ+(+R6(12,10)-R5(7,14)+R4(12,15)+R4(5,39)
     * -R3(7,12)-R3(2,44)+R2(6,38)-R1(2,22))*ZZ
      F(4,2,6,1)= R8(17)-R7(11,1)+R6(17,1)+R6(8,9)*THREE-R5(11,1)
     * -R5(4,13)*THREE+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(17,3)-R6(11,5)
     * +R5(17,5)+R5(8,21)*THREE-R4(11,6)-R4(4,30)*THREE+R3(8,27)*THREE
     * -R2(2,21)*THREE)*QX
      F(5,2,6,1)= R8(18)-R7(12,1)+R6(18,1)+R6(9,9)-R5(12,1)-R5(5,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,3)-R6(12,5)+R5(18,5)+R5(9,21)-R4(12,6)
     * -R4(5,30)+R3(9,27)-R2(6,21))*QX+(+R7(12,3)-R6(7,5)+R5(12,5)
     * +R5(5,21)-R4(7,6)-R4(2,30)+R3(5,27)-R2(4,21))*QZ+(+R6(12,10)
     * -R5(7,14)+R4(12,15)+R4(5,39)-R3(7,12)-R3(2,44)+R2(6,38)-R1(2,22))
     * *XZ
      F(6,2,6,1)= R8(24)-R7(17,1)+R6(24,1)+R6(13,9)*THREE-R5(17,1)
     * -R5(8,13)*THREE+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(17,3)
     * -R6(11,5)+R5(17,5)+R5(8,21)*THREE-R4(11,6)-R4(4,30)*THREE
     * +R3(8,27)*THREE-R2(2,21)*THREE)*QZ
      F(1,3,6,1)= R8(14)-R7(9,1)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,1)
     * -R5(2,13)-R5(9,13)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(14,3)*TWO-R6(9,5)*TWO
     * +R5(14,5)*TWO+R5(5,21)*TWO-R4(9,6)*TWO-R4(2,30)*TWO+R3(5,27)*TWO
     * -R2(4,21)*TWO)*QX+(+R7(9,4)*TWO-R6(5,6)*TWO+R5(9,6)*TWO
     * +R5(9,22)*TWO-R4(5,7)*TWO-R4(5,31)*TWO+R3(9,28)*TWO-R2(6,22)*TWO)
     * *QZ+(+R6(14,10)-R5(9,14)+R4(14,15)+R4(5,39)-R3(9,12)-R3(2,44)
     * +R2(6,38)-R1(2,22))*XX+(+R6(9,11)*FOUR-R5(5,15)*FOUR
     * +R4(9,16)*FOUR-R3(5,13)*FOUR)*XZ+(+R6(5,12)-R5(2,16)+R4(5,17)
     * +R4(5,41)-R3(2,14)-R3(2,46)+R2(6,40)-R1(2,24))*ZZ+(+R5(9,23)*TWO
     * -R4(5,32)*TWO+R3(9,29)*TWO-R2(6,23)*TWO)*XXZ+(+R5(5,24)*TWO
     * -R4(2,33)*TWO+R3(5,30)*TWO-R2(4,24)*TWO)*XZZ+(+R4(5,42)-R3(2,47)
     * +R2(6,41)-R1(2,25))*XXZZ
      F(2,3,6,1)= R8(25)-R7(18,1)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,1)
     * -R5(7,13)-R5(9,13)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(18,4)*TWO-R6(12,6)*TWO
     * +R5(18,6)*TWO+R5(9,22)*TWO-R4(12,7)*TWO-R4(5,31)*TWO+R3(9,28)*TWO
     * -R2(6,22)*TWO)*QZ+(+R6(12,12)-R5(7,16)+R4(12,17)+R4(5,41)
     * -R3(7,14)-R3(2,46)+R2(6,40)-R1(2,24))*ZZ
      F(3,3,6,1)= R8(27)-R7(20,1)+R6(27,1)+R6(14,9)*SIX-R5(20,1)
     * -R5(9,13)*SIX+R4(14,14)*SIX+R4(5,38)*THREE-R3(9,11)*SIX
     * -R3(2,43)*THREE+R2(6,37)*THREE-R1(2,21)*THREE+(+R7(20,3)*TWO
     * +R7(20,4)*TWO-R6(14,5)*TWO-R6(14,6)*TWO+R5(20,5)*TWO+R5(20,6)*TWO
     * +R5(9,21)*SIX+R5(9,22)*SIX-R4(14,6)*TWO-R4(14,7)*TWO-R4(5,30)*SIX
     * -R4(5,31)*SIX+R3(9,27)*SIX+R3(9,28)*SIX-R2(6,21)*SIX-R2(6,22)*SIX
     * )*QZ+(+R6(14,10)+R6(14,11)*FOUR+R6(14,12)-R5(9,14)-R5(9,15)*FOUR
     * -R5(9,16)+R4(14,15)+R4(14,16)*FOUR+R4(14,17)+R4(5,39)
     * +R4(5,40)*FOUR+R4(5,41)-R3(9,12)-R3(9,13)*FOUR-R3(9,14)-R3(2,44)
     * -R3(2,45)*FOUR-R3(2,46)+R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,22)
     * -R1(2,23)*FOUR-R1(2,24))*ZZ+(+R5(9,23)*TWO+R5(9,24)*TWO
     * -R4(5,32)*TWO-R4(5,33)*TWO+R3(9,29)*TWO+R3(9,30)*TWO-R2(6,23)*TWO
     * -R2(6,24)*TWO)*ZZZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))*ZZZZ
      F(4,3,6,1)= R8(19)-R7(13,1)+R6(19,1)+R6(8,9)-R5(13,1)-R5(4,13)
     * +R4(8,14)-R3(4,11)+(+R7(19,3)-R6(13,5)+R5(19,5)+R5(8,21)-R4(13,6)
     * -R4(4,30)+R3(8,27)-R2(2,21))*QX+(+R7(13,4)*TWO-R6(8,6)*TWO
     * +R5(13,6)*TWO-R4(8,7)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,15)*TWO
     * +R4(13,16)*TWO-R3(8,13)*TWO)*XZ+(+R6(8,12)-R5(4,16)+R4(8,17)
     * -R3(4,14))*ZZ+(+R5(8,24)-R4(4,33)+R3(8,30)-R2(2,24))*XZZ
      F(5,3,6,1)= R8(20)-R7(14,1)+R6(20,1)+R6(9,9)*THREE-R5(14,1)
     * -R5(5,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(20,3)-R6(14,5)
     * +R5(20,5)+R5(9,21)*THREE-R4(14,6)-R4(5,30)*THREE+R3(9,27)*THREE
     * -R2(6,21)*THREE)*QX+(+R7(14,3)+R7(14,4)*TWO-R6(9,5)-R6(9,6)*TWO
     * +R5(14,5)+R5(14,6)*TWO+R5(5,21)+R5(5,22)*TWO-R4(9,6)-R4(9,7)*TWO
     * -R4(2,30)-R4(2,31)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,21)
     * -R2(4,22)*TWO)*QZ+(+R6(14,10)+R6(14,11)*TWO-R5(9,14)-R5(9,15)*TWO
     * +R4(14,15)+R4(14,16)*TWO+R4(5,39)+R4(5,40)*TWO-R3(9,12)
     * -R3(9,13)*TWO-R3(2,44)-R3(2,45)*TWO+R2(6,38)+R2(6,39)*TWO
     * -R1(2,22)-R1(2,23)*TWO)*XZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,15)*TWO
     * -R5(5,16)+R4(9,16)*TWO+R4(9,17)-R3(5,13)*TWO-R3(5,14))*ZZ+(
     * +R5(9,23)*TWO+R5(9,24)-R4(5,32)*TWO-R4(5,33)+R3(9,29)*TWO
     * +R3(9,30)-R2(6,23)*TWO-R2(6,24))*XZZ+(+R5(5,24)-R4(2,33)+R3(5,30)
     * -R2(4,24))*ZZZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))*XZZZ
      F(6,3,6,1)= R8(26)-R7(19,1)+R6(26,1)+R6(13,9)*THREE-R5(19,1)
     * -R5(8,13)*THREE+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(19,3)
     * +R7(19,4)*TWO-R6(13,5)-R6(13,6)*TWO+R5(19,5)+R5(19,6)*TWO
     * +R5(8,21)+R5(8,22)*TWO-R4(13,6)-R4(13,7)*TWO-R4(4,30)
     * -R4(4,31)*TWO+R3(8,27)+R3(8,28)*TWO-R2(2,21)-R2(2,22)*TWO)*QZ+(
     * +R6(13,11)*TWO+R6(13,12)-R5(8,15)*TWO-R5(8,16)+R4(13,16)*TWO
     * +R4(13,17)-R3(8,13)*TWO-R3(8,14))*ZZ+(+R5(8,24)-R4(4,33)+R3(8,30)
     * -R2(2,24))*ZZZ
      F(1,4,6,1)= R8(8)-R7(4,1)+R6(8,1)+R6(8,9)*THREE-R5(4,1)
     * -R5(4,13)*THREE+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(8,3)*TWO
     * +R7(8,4)-R6(4,5)*TWO-R6(4,6)+R5(8,5)*TWO+R5(8,6)+R5(8,21)*TWO
     * +R5(8,22)-R4(4,6)*TWO-R4(4,7)-R4(4,30)*TWO-R4(4,31)+R3(8,27)*TWO
     * +R3(8,28)-R2(2,21)*TWO-R2(2,22))*QX+(+R6(8,10)+R6(8,11)*TWO
     * -R5(4,14)-R5(4,15)*TWO+R4(8,15)+R4(8,16)*TWO-R3(4,12)
     * -R3(4,13)*TWO)*XX+(+R5(8,23)-R4(4,32)+R3(8,29)-R2(2,23))*XXX
      F(2,4,6,1)= R8(17)-R7(11,1)+R6(17,1)+R6(8,9)*THREE-R5(11,1)
     * -R5(4,13)*THREE+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(17,4)-R6(11,6)
     * +R5(17,6)+R5(8,22)*THREE-R4(11,7)-R4(4,31)*THREE+R3(8,28)*THREE
     * -R2(2,22)*THREE)*QX
      F(3,4,6,1)= R8(19)-R7(13,1)+R6(19,1)+R6(8,9)-R5(13,1)-R5(4,13)
     * +R4(8,14)-R3(4,11)+(+R7(19,4)-R6(13,6)+R5(19,6)+R5(8,22)-R4(13,7)
     * -R4(4,31)+R3(8,28)-R2(2,22))*QX+(+R7(13,3)*TWO-R6(8,5)*TWO
     * +R5(13,5)*TWO-R4(8,6)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,15)*TWO
     * +R4(13,16)*TWO-R3(8,13)*TWO)*XZ+(+R6(8,10)-R5(4,14)+R4(8,15)
     * -R3(4,12))*ZZ+(+R5(8,23)-R4(4,32)+R3(8,29)-R2(2,23))*XZZ
      F(4,4,6,1)= R8(12)-R7(7,1)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,1)
     * -R5(2,13)-R5(7,13)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,11)-R3(7,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(12,3)+R7(12,4)-R6(7,5)-R6(7,6)
     * +R5(12,5)+R5(12,6)+R5(5,21)+R5(5,22)-R4(7,6)-R4(7,7)-R4(2,30)
     * -R4(2,31)+R3(5,27)+R3(5,28)-R2(4,21)-R2(4,22))*QX+(+R6(12,11)
     * -R5(7,15)+R4(12,16)+R4(5,40)-R3(7,13)-R3(2,45)+R2(6,39)-R1(2,23))
     * *XX
      F(5,4,6,1)= R8(13)-R7(8,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(13,14)-R3(8,11)+(+R7(13,3)+R7(13,4)-R6(8,5)-R6(8,6)+R5(13,5)
     * +R5(13,6)-R4(8,6)-R4(8,7))*QX+(+R7(8,3)-R6(4,5)+R5(8,5)+R5(8,21)
     * -R4(4,6)-R4(4,30)+R3(8,27)-R2(2,21))*QZ+(+R6(13,11)-R5(8,15)
     * +R4(13,16)-R3(8,13))*XX+(+R6(8,10)+R6(8,11)-R5(4,14)-R5(4,15)
     * +R4(8,15)+R4(8,16)-R3(4,12)-R3(4,13))*XZ+(+R5(8,23)-R4(4,32)
     * +R3(8,29)-R2(2,23))*XXZ
      F(6,4,6,1)= R8(18)-R7(12,1)+R6(18,1)+R6(9,9)-R5(12,1)-R5(5,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,4)-R6(12,6)+R5(18,6)+R5(9,22)-R4(12,7)
     * -R4(5,31)+R3(9,28)-R2(6,22))*QX+(+R7(12,3)-R6(7,5)+R5(12,5)
     * +R5(5,21)-R4(7,6)-R4(2,30)+R3(5,27)-R2(4,21))*QZ+(+R6(12,11)
     * -R5(7,15)+R4(12,16)+R4(5,40)-R3(7,13)-R3(2,45)+R2(6,39)-R1(2,23))
     * *XZ
      F(1,5,6,1)= R8(9)-R7(5,1)+R6(9,1)+R6(9,9)*THREE-R5(5,1)
     * -R5(5,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(9,3)*TWO
     * +R7(9,4)-R6(5,5)*TWO-R6(5,6)+R5(9,5)*TWO+R5(9,6)+R5(9,21)*TWO
     * +R5(9,22)-R4(5,6)*TWO-R4(5,7)-R4(5,30)*TWO-R4(5,31)+R3(9,27)*TWO
     * +R3(9,28)-R2(6,21)*TWO-R2(6,22))*QX+(+R7(5,4)-R6(2,6)+R5(5,6)
     * +R5(5,22)*THREE-R4(2,7)-R4(2,31)*THREE+R3(5,28)*THREE
     * -R2(4,22)*THREE)*QZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,14)-R5(5,15)*TWO
     * +R4(9,15)+R4(9,16)*TWO-R3(5,12)-R3(5,13)*TWO)*XX+(+R6(5,11)*TWO
     * +R6(5,12)-R5(2,15)*TWO-R5(2,16)+R4(5,16)*TWO+R4(5,17)
     * +R4(5,40)*TWO+R4(5,41)-R3(2,13)*TWO-R3(2,14)-R3(2,45)*TWO
     * -R3(2,46)+R2(6,39)*TWO+R2(6,40)-R1(2,23)*TWO-R1(2,24))*XZ+(
     * +R5(9,23)-R4(5,32)+R3(9,29)-R2(6,23))*XXX+(+R5(5,23)+R5(5,24)*TWO
     * -R4(2,32)-R4(2,33)*TWO+R3(5,29)+R3(5,30)*TWO-R2(4,23)
     * -R2(4,24)*TWO)*XXZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))*XXXZ
      F(2,5,6,1)= R8(18)-R7(12,1)+R6(18,1)+R6(9,9)-R5(12,1)-R5(5,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,4)-R6(12,6)+R5(18,6)+R5(9,22)-R4(12,7)
     * -R4(5,31)+R3(9,28)-R2(6,22))*QX+(+R7(12,4)-R6(7,6)+R5(12,6)
     * +R5(5,22)-R4(7,7)-R4(2,31)+R3(5,28)-R2(4,22))*QZ+(+R6(12,12)
     * -R5(7,16)+R4(12,17)+R4(5,41)-R3(7,14)-R3(2,46)+R2(6,40)-R1(2,24))
     * *XZ
      F(3,5,6,1)= R8(20)-R7(14,1)+R6(20,1)+R6(9,9)*THREE-R5(14,1)
     * -R5(5,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(20,4)-R6(14,6)
     * +R5(20,6)+R5(9,22)*THREE-R4(14,7)-R4(5,31)*THREE+R3(9,28)*THREE
     * -R2(6,22)*THREE)*QX+(+R7(14,3)*TWO+R7(14,4)-R6(9,5)*TWO-R6(9,6)
     * +R5(14,5)*TWO+R5(14,6)+R5(5,21)*TWO+R5(5,22)-R4(9,6)*TWO-R4(9,7)
     * -R4(2,30)*TWO-R4(2,31)+R3(5,27)*TWO+R3(5,28)-R2(4,21)*TWO
     * -R2(4,22))*QZ+(+R6(14,11)*TWO+R6(14,12)-R5(9,15)*TWO-R5(9,16)
     * +R4(14,16)*TWO+R4(14,17)+R4(5,40)*TWO+R4(5,41)-R3(9,13)*TWO
     * -R3(9,14)-R3(2,45)*TWO-R3(2,46)+R2(6,39)*TWO+R2(6,40)
     * -R1(2,23)*TWO-R1(2,24))*XZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,14)
     * -R5(5,15)*TWO+R4(9,15)+R4(9,16)*TWO-R3(5,12)-R3(5,13)*TWO)*ZZ+(
     * +R5(9,23)+R5(9,24)*TWO-R4(5,32)-R4(5,33)*TWO+R3(9,29)
     * +R3(9,30)*TWO-R2(6,23)-R2(6,24)*TWO)*XZZ+(+R5(5,23)-R4(2,32)
     * +R3(5,29)-R2(4,23))*ZZZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))
     * *XZZZ
      F(4,5,6,1)= R8(13)-R7(8,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(13,14)-R3(8,11)+(+R7(13,3)+R7(13,4)-R6(8,5)-R6(8,6)+R5(13,5)
     * +R5(13,6)-R4(8,6)-R4(8,7))*QX+(+R7(8,4)-R6(4,6)+R5(8,6)+R5(8,22)
     * -R4(4,7)-R4(4,31)+R3(8,28)-R2(2,22))*QZ+(+R6(13,11)-R5(8,15)
     * +R4(13,16)-R3(8,13))*XX+(+R6(8,11)+R6(8,12)-R5(4,15)-R5(4,16)
     * +R4(8,16)+R4(8,17)-R3(4,13)-R3(4,14))*XZ+(+R5(8,24)-R4(4,33)
     * +R3(8,30)-R2(2,24))*XXZ
      F(5,5,6,1)= R8(14)-R7(9,1)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,1)
     * -R5(2,13)-R5(9,13)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)
     * +R5(14,5)+R5(14,6)+R5(5,21)+R5(5,22)-R4(9,6)-R4(9,7)-R4(2,30)
     * -R4(2,31)+R3(5,27)+R3(5,28)-R2(4,21)-R2(4,22))*QX+(+R7(9,3)
     * +R7(9,4)-R6(5,5)-R6(5,6)+R5(9,5)+R5(9,6)+R5(9,21)+R5(9,22)
     * -R4(5,6)-R4(5,7)-R4(5,30)-R4(5,31)+R3(9,27)+R3(9,28)-R2(6,21)
     * -R2(6,22))*QZ+(+R6(14,11)-R5(9,15)+R4(14,16)+R4(5,40)-R3(9,13)
     * -R3(2,45)+R2(6,39)-R1(2,23))*XX+(+R6(9,10)+R6(9,11)*TWO+R6(9,12)
     * -R5(5,14)-R5(5,15)*TWO-R5(5,16)+R4(9,15)+R4(9,16)*TWO+R4(9,17)
     * -R3(5,12)-R3(5,13)*TWO-R3(5,14))*XZ+(+R6(5,11)-R5(2,15)+R4(5,16)
     * +R4(5,40)-R3(2,13)-R3(2,45)+R2(6,39)-R1(2,23))*ZZ+(+R5(9,23)
     * +R5(9,24)-R4(5,32)-R4(5,33)+R3(9,29)+R3(9,30)-R2(6,23)-R2(6,24))
     * *XXZ+(+R5(5,23)+R5(5,24)-R4(2,32)-R4(2,33)+R3(5,29)+R3(5,30)
     * -R2(4,23)-R2(4,24))*XZZ+(+R4(5,42)-R3(2,47)+R2(6,41)-R1(2,25))
     * *XXZZ
      F(6,5,6,1)= R8(19)-R7(13,1)+R6(19,1)+R6(8,9)-R5(13,1)-R5(4,13)
     * +R4(8,14)-R3(4,11)+(+R7(19,4)-R6(13,6)+R5(19,6)+R5(8,22)-R4(13,7)
     * -R4(4,31)+R3(8,28)-R2(2,22))*QX+(+R7(13,3)+R7(13,4)-R6(8,5)
     * -R6(8,6)+R5(13,5)+R5(13,6)-R4(8,6)-R4(8,7))*QZ+(+R6(13,11)
     * +R6(13,12)-R5(8,15)-R5(8,16)+R4(13,16)+R4(13,17)-R3(8,13)
     * -R3(8,14))*XZ+(+R6(8,11)-R5(4,15)+R4(8,16)-R3(4,13))*ZZ+(
     * +R5(8,24)-R4(4,33)+R3(8,30)-R2(2,24))*XZZ
      F(1,6,6,1)= R8(13)-R7(8,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(13,14)-R3(8,11)+(+R7(13,3)*TWO-R6(8,5)*TWO+R5(13,5)*TWO
     * -R4(8,6)*TWO)*QX+(+R7(8,4)-R6(4,6)+R5(8,6)+R5(8,22)-R4(4,7)
     * -R4(4,31)+R3(8,28)-R2(2,22))*QZ+(+R6(13,10)-R5(8,14)+R4(13,15)
     * -R3(8,12))*XX+(+R6(8,11)*TWO-R5(4,15)*TWO+R4(8,16)*TWO
     * -R3(4,13)*TWO)*XZ+(+R5(8,23)-R4(4,32)+R3(8,29)-R2(2,23))*XXZ
      F(2,6,6,1)= R8(24)-R7(17,1)+R6(24,1)+R6(13,9)*THREE-R5(17,1)
     * -R5(8,13)*THREE+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(17,4)
     * -R6(11,6)+R5(17,6)+R5(8,22)*THREE-R4(11,7)-R4(4,31)*THREE
     * +R3(8,28)*THREE-R2(2,22)*THREE)*QZ
      F(3,6,6,1)= R8(26)-R7(19,1)+R6(26,1)+R6(13,9)*THREE-R5(19,1)
     * -R5(8,13)*THREE+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(19,3)*TWO
     * +R7(19,4)-R6(13,5)*TWO-R6(13,6)+R5(19,5)*TWO+R5(19,6)
     * +R5(8,21)*TWO+R5(8,22)-R4(13,6)*TWO-R4(13,7)-R4(4,30)*TWO
     * -R4(4,31)+R3(8,27)*TWO+R3(8,28)-R2(2,21)*TWO-R2(2,22))*QZ+(
     * +R6(13,10)+R6(13,11)*TWO-R5(8,14)-R5(8,15)*TWO+R4(13,15)
     * +R4(13,16)*TWO-R3(8,12)-R3(8,13)*TWO)*ZZ+(+R5(8,23)-R4(4,32)
     * +R3(8,29)-R2(2,23))*ZZZ
      F(4,6,6,1)= R8(18)-R7(12,1)+R6(18,1)+R6(9,9)-R5(12,1)-R5(5,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,3)-R6(12,5)+R5(18,5)+R5(9,21)-R4(12,6)
     * -R4(5,30)+R3(9,27)-R2(6,21))*QX+(+R7(12,4)-R6(7,6)+R5(12,6)
     * +R5(5,22)-R4(7,7)-R4(2,31)+R3(5,28)-R2(4,22))*QZ+(+R6(12,11)
     * -R5(7,15)+R4(12,16)+R4(5,40)-R3(7,13)-R3(2,45)+R2(6,39)-R1(2,23))
     * *XZ
      F(5,6,6,1)= R8(19)-R7(13,1)+R6(19,1)+R6(8,9)-R5(13,1)-R5(4,13)
     * +R4(8,14)-R3(4,11)+(+R7(19,3)-R6(13,5)+R5(19,5)+R5(8,21)-R4(13,6)
     * -R4(4,30)+R3(8,27)-R2(2,21))*QX+(+R7(13,3)+R7(13,4)-R6(8,5)
     * -R6(8,6)+R5(13,5)+R5(13,6)-R4(8,6)-R4(8,7))*QZ+(+R6(13,10)
     * +R6(13,11)-R5(8,14)-R5(8,15)+R4(13,15)+R4(13,16)-R3(8,12)
     * -R3(8,13))*XZ+(+R6(8,11)-R5(4,15)+R4(8,16)-R3(4,13))*ZZ+(
     * +R5(8,23)-R4(4,32)+R3(8,29)-R2(2,23))*XZZ
      F(6,6,6,1)= R8(25)-R7(18,1)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,1)
     * -R5(7,13)-R5(9,13)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,11)-R3(9,11)
     * -R3(2,43)+R2(6,37)-R1(2,21)+(+R7(18,3)+R7(18,4)-R6(12,5)-R6(12,6)
     * +R5(18,5)+R5(18,6)+R5(9,21)+R5(9,22)-R4(12,6)-R4(12,7)-R4(5,30)
     * -R4(5,31)+R3(9,27)+R3(9,28)-R2(6,21)-R2(6,22))*QZ+(+R6(12,11)
     * -R5(7,15)+R4(12,16)+R4(5,40)-R3(7,13)-R3(2,45)+R2(6,39)-R1(2,23))
     * *ZZ
      F(1,1,1,2)= R8(4)+R6(1,1)+R6(4,1)+R6(4,9)*SIX+R4(1,1)+R4(1,14)*SIX
     * +R4(4,14)*SIX+R4(4,38)*THREE+R2(1,1)*SIX+R2(1,37)*THREE
     * +R2(2,37)*THREE+R0(1)*THREE+(+R7(4,3)*TWO+R7(4,4)*TWO+R5(1,5)*TWO
     * +R5(4,5)*TWO+R5(1,6)*TWO+R5(4,6)*TWO+R5(4,21)*SIX+R5(4,22)*SIX
     * +R3(1,1)*TWO+R3(1,2)*TWO+R3(1,27)*SIX+R3(4,27)*SIX+R3(1,28)*SIX
     * +R3(4,28)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)*QX+(+R6(4,10)
     * +R6(4,11)*FOUR+R6(4,12)+R4(1,15)+R4(4,15)+R4(1,16)*FOUR
     * +R4(4,16)*FOUR+R4(1,17)+R4(4,17)+R4(4,39)+R4(4,40)*FOUR+R4(4,41)
     * +R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,38)+R2(2,38)+R2(1,39)*FOUR
     * +R2(2,39)*FOUR+R2(1,40)+R2(2,40)+R0(2)+R0(3)*FOUR+R0(4))*XX+(
     * +R5(4,23)*TWO+R5(4,24)*TWO+R3(1,29)*TWO+R3(4,29)*TWO+R3(1,30)*TWO
     * +R3(4,30)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(+R4(4,42)+R2(1,41)
     * +R2(2,41)+R0(5))*XXXX
      F(2,1,1,2)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,4)*TWO+R5(4,6)*TWO+R5(11,6)*TWO
     * +R5(4,22)*TWO+R3(4,2)*TWO+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,2)*TWO)
     * *QX+(+R6(11,12)+R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)
     * +R2(2,40)+R0(4))*XX
      F(3,1,1,2)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,4)*TWO+R5(6,6)*TWO+R5(13,6)*TWO
     * +R5(4,22)*TWO+R3(6,2)*TWO+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,2)*TWO)
     * *QX+(+R7(8,3)*TWO+R5(3,5)*TWO+R5(8,5)*TWO+R5(8,21)*TWO
     * +R3(3,1)*TWO+R3(3,27)*TWO+R3(8,27)*TWO+R1(3,1)*TWO)*QZ+(
     * +R6(13,12)+R4(6,17)+R4(13,17)+R4(4,41)+R2(3,4)+R2(1,40)+R2(2,40)
     * +R0(4))*XX+(+R6(8,11)*FOUR+R4(3,16)*FOUR+R4(8,16)*FOUR
     * +R2(5,3)*FOUR)*XZ+(+R6(4,10)+R4(1,15)+R4(4,15)+R4(4,39)+R2(1,2)
     * +R2(1,38)+R2(2,38)+R0(2))*ZZ+(+R5(8,24)*TWO+R3(3,30)*TWO
     * +R3(8,30)*TWO+R1(3,4)*TWO)*XXZ+(+R5(4,23)*TWO+R3(1,29)*TWO
     * +R3(4,29)*TWO+R1(1,3)*TWO)*XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5)
     * )*XXZZ
      F(4,1,1,2)= R8(7)+R6(2,1)+R6(7,1)+R6(7,9)*THREE+R4(2,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(7,3)
     * +R7(7,4)*TWO+R5(2,5)+R5(7,5)+R5(2,6)*TWO+R5(7,6)*TWO+R5(7,21)
     * +R5(7,22)*TWO+R3(2,1)+R3(2,2)*TWO+R3(2,27)+R3(7,27)+R3(2,28)*TWO
     * +R3(7,28)*TWO+R1(2,1)+R1(2,2)*TWO)*QX+(+R6(7,11)*TWO+R6(7,12)
     * +R4(2,16)*TWO+R4(7,16)*TWO+R4(2,17)+R4(7,17)+R2(4,3)*TWO+R2(4,4))
     * *XX+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XXX
      F(5,1,1,2)= R8(8)+R6(3,1)+R6(8,1)+R6(8,9)*THREE+R4(3,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(8,3)
     * +R7(8,4)*TWO+R5(3,5)+R5(8,5)+R5(3,6)*TWO+R5(8,6)*TWO+R5(8,21)
     * +R5(8,22)*TWO+R3(3,1)+R3(3,2)*TWO+R3(3,27)+R3(8,27)+R3(3,28)*TWO
     * +R3(8,28)*TWO+R1(3,1)+R1(3,2)*TWO)*QX+(+R7(4,3)+R5(1,5)+R5(4,5)
     * +R5(4,21)*THREE+R3(1,1)+R3(1,27)*THREE+R3(4,27)*THREE
     * +R1(1,1)*THREE)*QZ+(+R6(8,11)*TWO+R6(8,12)+R4(3,16)*TWO
     * +R4(8,16)*TWO+R4(3,17)+R4(8,17)+R2(5,3)*TWO+R2(5,4))*XX+(
     * +R6(4,10)+R6(4,11)*TWO+R4(1,15)+R4(4,15)+R4(1,16)*TWO
     * +R4(4,16)*TWO+R4(4,39)+R4(4,40)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,38)
     * +R2(2,38)+R2(1,39)*TWO+R2(2,39)*TWO+R0(2)+R0(3)*TWO)*XZ+(
     * +R5(8,24)+R3(3,30)+R3(8,30)+R1(3,4))*XXX+(+R5(4,23)*TWO+R5(4,24)
     * +R3(1,29)*TWO+R3(4,29)*TWO+R3(1,30)+R3(4,30)+R1(1,3)*TWO+R1(1,4))
     * *XXZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXXZ
      F(6,1,1,2)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,4)*TWO+R5(5,6)*TWO+R5(12,6)*TWO
     * +R3(5,2)*TWO)*QX+(+R7(7,3)+R5(2,5)+R5(7,5)+R5(7,21)+R3(2,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QZ+(+R6(12,12)+R4(5,17)+R4(12,17)
     * +R2(6,4))*XX+(+R6(7,11)*TWO+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,3)*TWO
     * )*XZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XXZ
      F(1,2,1,2)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,3)*TWO+R5(4,5)*TWO+R5(11,5)*TWO
     * +R5(4,21)*TWO+R3(4,1)*TWO+R3(1,27)*TWO+R3(4,27)*TWO+R1(1,1)*TWO)
     * *QX+(+R6(11,10)+R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)
     * +R2(2,38)+R0(2))*XX
      F(2,2,1,2)= R8(22)+R6(11,1)+R6(22,1)+R6(11,9)*SIX+R4(11,1)
     * +R4(4,14)*SIX+R4(11,14)*SIX+R4(4,38)*THREE+R2(2,1)*SIX
     * +R2(1,37)*THREE+R2(2,37)*THREE+R0(1)*THREE
      F(3,2,1,2)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,3)*TWO+R5(8,5)*TWO+R5(17,5)*TWO
     * +R5(8,21)*TWO+R3(8,1)*TWO+R3(3,27)*TWO+R3(8,27)*TWO+R1(3,1)*TWO)
     * *QZ+(+R6(11,10)+R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)
     * +R2(2,38)+R0(2))*ZZ
      F(4,2,1,2)= R8(16)+R6(7,1)+R6(16,1)+R6(7,9)*THREE+R4(7,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(16,3)+R5(7,5)
     * +R5(16,5)+R5(7,21)*THREE+R3(7,1)+R3(2,27)*THREE+R3(7,27)*THREE
     * +R1(2,1)*THREE)*QX
      F(5,2,1,2)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,3)+R5(8,5)+R5(17,5)+R5(8,21)+R3(8,1)
     * +R3(3,27)+R3(8,27)+R1(3,1))*QX+(+R7(11,3)+R5(4,5)+R5(11,5)
     * +R5(4,21)+R3(4,1)+R3(1,27)+R3(4,27)+R1(1,1))*QZ+(+R6(11,10)
     * +R4(4,15)+R4(11,15)+R4(4,39)+R2(2,2)+R2(1,38)+R2(2,38)+R0(2))*XZ
      F(6,2,1,2)= R8(23)+R6(12,1)+R6(23,1)+R6(12,9)*THREE+R4(12,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(16,3)+R5(7,5)
     * +R5(16,5)+R5(7,21)*THREE+R3(7,1)+R3(2,27)*THREE+R3(7,27)*THREE
     * +R1(2,1)*THREE)*QZ
      F(1,3,1,2)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,3)*TWO+R5(6,5)*TWO+R5(13,5)*TWO
     * +R5(4,21)*TWO+R3(6,1)*TWO+R3(1,27)*TWO+R3(4,27)*TWO+R1(1,1)*TWO)
     * *QX+(+R7(8,4)*TWO+R5(3,6)*TWO+R5(8,6)*TWO+R5(8,22)*TWO
     * +R3(3,2)*TWO+R3(3,28)*TWO+R3(8,28)*TWO+R1(3,2)*TWO)*QZ+(
     * +R6(13,10)+R4(6,15)+R4(13,15)+R4(4,39)+R2(3,2)+R2(1,38)+R2(2,38)
     * +R0(2))*XX+(+R6(8,11)*FOUR+R4(3,16)*FOUR+R4(8,16)*FOUR
     * +R2(5,3)*FOUR)*XZ+(+R6(4,12)+R4(1,17)+R4(4,17)+R4(4,41)+R2(1,4)
     * +R2(1,40)+R2(2,40)+R0(4))*ZZ+(+R5(8,23)*TWO+R3(3,29)*TWO
     * +R3(8,29)*TWO+R1(3,3)*TWO)*XXZ+(+R5(4,24)*TWO+R3(1,30)*TWO
     * +R3(4,30)*TWO+R1(1,4)*TWO)*XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5)
     * )*XXZZ
      F(2,3,1,2)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,4)*TWO+R5(8,6)*TWO+R5(17,6)*TWO
     * +R5(8,22)*TWO+R3(8,2)*TWO+R3(3,28)*TWO+R3(8,28)*TWO+R1(3,2)*TWO)
     * *QZ+(+R6(11,12)+R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)
     * +R2(2,40)+R0(4))*ZZ
      F(3,3,1,2)= R8(26)+R6(15,1)+R6(26,1)+R6(13,9)*SIX+R4(15,1)
     * +R4(6,14)*SIX+R4(13,14)*SIX+R4(4,38)*THREE+R2(3,1)*SIX
     * +R2(1,37)*THREE+R2(2,37)*THREE+R0(1)*THREE+(+R7(19,3)*TWO
     * +R7(19,4)*TWO+R5(10,5)*TWO+R5(19,5)*TWO+R5(10,6)*TWO+R5(19,6)*TWO
     * +R5(8,21)*SIX+R5(8,22)*SIX+R3(10,1)*TWO+R3(10,2)*TWO+R3(3,27)*SIX
     * +R3(8,27)*SIX+R3(3,28)*SIX+R3(8,28)*SIX+R1(3,1)*SIX+R1(3,2)*SIX)
     * *QZ+(+R6(13,10)+R6(13,11)*FOUR+R6(13,12)+R4(6,15)+R4(13,15)
     * +R4(6,16)*FOUR+R4(13,16)*FOUR+R4(6,17)+R4(13,17)+R4(4,39)
     * +R4(4,40)*FOUR+R4(4,41)+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(1,38)
     * +R2(2,38)+R2(1,39)*FOUR+R2(2,39)*FOUR+R2(1,40)+R2(2,40)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R5(8,23)*TWO+R5(8,24)*TWO+R3(3,29)*TWO
     * +R3(8,29)*TWO+R3(3,30)*TWO+R3(8,30)*TWO+R1(3,3)*TWO+R1(3,4)*TWO)
     * *ZZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*ZZZZ
      F(4,3,1,2)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,3)+R5(9,5)+R5(18,5)+R5(7,21)+R3(9,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QX+(+R7(12,4)*TWO+R5(5,6)*TWO
     * +R5(12,6)*TWO+R3(5,2)*TWO)*QZ+(+R6(12,11)*TWO+R4(5,16)*TWO
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R6(7,12)+R4(2,17)+R4(7,17)
     * +R2(4,4))*ZZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*XZZ
      F(5,3,1,2)= R8(19)+R6(10,1)+R6(19,1)+R6(8,9)*THREE+R4(10,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(19,3)+R5(10,5)
     * +R5(19,5)+R5(8,21)*THREE+R3(10,1)+R3(3,27)*THREE+R3(8,27)*THREE
     * +R1(3,1)*THREE)*QX+(+R7(13,3)+R7(13,4)*TWO+R5(6,5)+R5(13,5)
     * +R5(6,6)*TWO+R5(13,6)*TWO+R5(4,21)+R5(4,22)*TWO+R3(6,1)
     * +R3(6,2)*TWO+R3(1,27)+R3(4,27)+R3(1,28)*TWO+R3(4,28)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R6(13,10)+R6(13,11)*TWO+R4(6,15)+R4(13,15)
     * +R4(6,16)*TWO+R4(13,16)*TWO+R4(4,39)+R4(4,40)*TWO+R2(3,2)
     * +R2(3,3)*TWO+R2(1,38)+R2(2,38)+R2(1,39)*TWO+R2(2,39)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R6(8,11)*TWO+R6(8,12)+R4(3,16)*TWO+R4(8,16)*TWO
     * +R4(3,17)+R4(8,17)+R2(5,3)*TWO+R2(5,4))*ZZ+(+R5(8,23)*TWO
     * +R5(8,24)+R3(3,29)*TWO+R3(8,29)*TWO+R3(3,30)+R3(8,30)+R1(3,3)*TWO
     * +R1(3,4))*XZZ+(+R5(4,24)+R3(1,30)+R3(4,30)+R1(1,4))*ZZZ+(
     * +R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XZZZ
      F(6,3,1,2)= R8(25)+R6(14,1)+R6(25,1)+R6(12,9)*THREE+R4(14,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(18,3)
     * +R7(18,4)*TWO+R5(9,5)+R5(18,5)+R5(9,6)*TWO+R5(18,6)*TWO+R5(7,21)
     * +R5(7,22)*TWO+R3(9,1)+R3(9,2)*TWO+R3(2,27)+R3(7,27)+R3(2,28)*TWO
     * +R3(7,28)*TWO+R1(2,1)+R1(2,2)*TWO)*QZ+(+R6(12,11)*TWO+R6(12,12)
     * +R4(5,16)*TWO+R4(12,16)*TWO+R4(5,17)+R4(12,17)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R5(7,24)+R3(2,30)+R3(7,30)+R1(2,4))*ZZZ
      F(1,4,1,2)= R8(7)+R6(2,1)+R6(7,1)+R6(7,9)*THREE+R4(2,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(7,3)*TWO
     * +R7(7,4)+R5(2,5)*TWO+R5(7,5)*TWO+R5(2,6)+R5(7,6)+R5(7,21)*TWO
     * +R5(7,22)+R3(2,1)*TWO+R3(2,2)+R3(2,27)*TWO+R3(7,27)*TWO+R3(2,28)
     * +R3(7,28)+R1(2,1)*TWO+R1(2,2))*QX+(+R6(7,10)+R6(7,11)*TWO
     * +R4(2,15)+R4(7,15)+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,2)+R2(4,3)*TWO)
     * *XX+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XXX
      F(2,4,1,2)= R8(16)+R6(7,1)+R6(16,1)+R6(7,9)*THREE+R4(7,1)
     * +R4(2,14)*THREE+R4(7,14)*THREE+R2(4,1)*THREE+(+R7(16,4)+R5(7,6)
     * +R5(16,6)+R5(7,22)*THREE+R3(7,2)+R3(2,28)*THREE+R3(7,28)*THREE
     * +R1(2,2)*THREE)*QX
      F(3,4,1,2)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,4)+R5(9,6)+R5(18,6)+R5(7,22)+R3(9,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QX+(+R7(12,3)*TWO+R5(5,5)*TWO
     * +R5(12,5)*TWO+R3(5,1)*TWO)*QZ+(+R6(12,11)*TWO+R4(5,16)*TWO
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R6(7,10)+R4(2,15)+R4(7,15)
     * +R2(4,2))*ZZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XZZ
      F(4,4,1,2)= R8(11)+R6(4,1)+R6(11,1)+R6(4,9)+R6(11,9)+R4(4,1)
     * +R4(1,14)+R4(4,14)*TWO+R4(11,14)+R4(4,38)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(11,3)+R7(11,4)+R5(4,5)+R5(11,5)
     * +R5(4,6)+R5(11,6)+R5(4,21)+R5(4,22)+R3(4,1)+R3(4,2)+R3(1,27)
     * +R3(4,27)+R3(1,28)+R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XX
      F(5,4,1,2)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)+R7(12,4)+R5(5,5)+R5(12,5)+R5(5,6)
     * +R5(12,6)+R3(5,1)+R3(5,2))*QX+(+R7(7,3)+R5(2,5)+R5(7,5)+R5(7,21)
     * +R3(2,1)+R3(2,27)+R3(7,27)+R1(2,1))*QZ+(+R6(12,11)+R4(5,16)
     * +R4(12,16)+R2(6,3))*XX+(+R6(7,10)+R6(7,11)+R4(2,15)+R4(7,15)
     * +R4(2,16)+R4(7,16)+R2(4,2)+R2(4,3))*XZ+(+R5(7,23)+R3(2,29)
     * +R3(7,29)+R1(2,3))*XXZ
      F(6,4,1,2)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,4)+R5(8,6)+R5(17,6)+R5(8,22)+R3(8,2)
     * +R3(3,28)+R3(8,28)+R1(3,2))*QX+(+R7(11,3)+R5(4,5)+R5(11,5)
     * +R5(4,21)+R3(4,1)+R3(1,27)+R3(4,27)+R1(1,1))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XZ
      F(1,5,1,2)= R8(8)+R6(3,1)+R6(8,1)+R6(8,9)*THREE+R4(3,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(8,3)*TWO
     * +R7(8,4)+R5(3,5)*TWO+R5(8,5)*TWO+R5(3,6)+R5(8,6)+R5(8,21)*TWO
     * +R5(8,22)+R3(3,1)*TWO+R3(3,2)+R3(3,27)*TWO+R3(8,27)*TWO+R3(3,28)
     * +R3(8,28)+R1(3,1)*TWO+R1(3,2))*QX+(+R7(4,4)+R5(1,6)+R5(4,6)
     * +R5(4,22)*THREE+R3(1,2)+R3(1,28)*THREE+R3(4,28)*THREE
     * +R1(1,2)*THREE)*QZ+(+R6(8,10)+R6(8,11)*TWO+R4(3,15)+R4(8,15)
     * +R4(3,16)*TWO+R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)*XX+(+R6(4,11)*TWO
     * +R6(4,12)+R4(1,16)*TWO+R4(4,16)*TWO+R4(1,17)+R4(4,17)
     * +R4(4,40)*TWO+R4(4,41)+R2(1,3)*TWO+R2(1,4)+R2(1,39)*TWO
     * +R2(2,39)*TWO+R2(1,40)+R2(2,40)+R0(3)*TWO+R0(4))*XZ+(+R5(8,23)
     * +R3(3,29)+R3(8,29)+R1(3,3))*XXX+(+R5(4,23)+R5(4,24)*TWO+R3(1,29)
     * +R3(4,29)+R3(1,30)*TWO+R3(4,30)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(
     * +R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXXZ
      F(2,5,1,2)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,4)+R5(8,6)+R5(17,6)+R5(8,22)+R3(8,2)
     * +R3(3,28)+R3(8,28)+R1(3,2))*QX+(+R7(11,4)+R5(4,6)+R5(11,6)
     * +R5(4,22)+R3(4,2)+R3(1,28)+R3(4,28)+R1(1,2))*QZ+(+R6(11,12)
     * +R4(4,17)+R4(11,17)+R4(4,41)+R2(2,4)+R2(1,40)+R2(2,40)+R0(4))*XZ
      F(3,5,1,2)= R8(19)+R6(10,1)+R6(19,1)+R6(8,9)*THREE+R4(10,1)
     * +R4(3,14)*THREE+R4(8,14)*THREE+R2(5,1)*THREE+(+R7(19,4)+R5(10,6)
     * +R5(19,6)+R5(8,22)*THREE+R3(10,2)+R3(3,28)*THREE+R3(8,28)*THREE
     * +R1(3,2)*THREE)*QX+(+R7(13,3)*TWO+R7(13,4)+R5(6,5)*TWO
     * +R5(13,5)*TWO+R5(6,6)+R5(13,6)+R5(4,21)*TWO+R5(4,22)+R3(6,1)*TWO
     * +R3(6,2)+R3(1,27)*TWO+R3(4,27)*TWO+R3(1,28)+R3(4,28)+R1(1,1)*TWO
     * +R1(1,2))*QZ+(+R6(13,11)*TWO+R6(13,12)+R4(6,16)*TWO+R4(13,16)*TWO
     * +R4(6,17)+R4(13,17)+R4(4,40)*TWO+R4(4,41)+R2(3,3)*TWO+R2(3,4)
     * +R2(1,39)*TWO+R2(2,39)*TWO+R2(1,40)+R2(2,40)+R0(3)*TWO+R0(4))*XZ
     * +(+R6(8,10)+R6(8,11)*TWO+R4(3,15)+R4(8,15)+R4(3,16)*TWO
     * +R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R5(8,23)+R5(8,24)*TWO
     * +R3(3,29)+R3(8,29)+R3(3,30)*TWO+R3(8,30)*TWO+R1(3,3)+R1(3,4)*TWO)
     * *XZZ+(+R5(4,23)+R3(1,29)+R3(4,29)+R1(1,3))*ZZZ+(+R4(4,42)
     * +R2(1,41)+R2(2,41)+R0(5))*XZZZ
      F(4,5,1,2)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)+R7(12,4)+R5(5,5)+R5(12,5)+R5(5,6)
     * +R5(12,6)+R3(5,1)+R3(5,2))*QX+(+R7(7,4)+R5(2,6)+R5(7,6)+R5(7,22)
     * +R3(2,2)+R3(2,28)+R3(7,28)+R1(2,2))*QZ+(+R6(12,11)+R4(5,16)
     * +R4(12,16)+R2(6,3))*XX+(+R6(7,11)+R6(7,12)+R4(2,16)+R4(7,16)
     * +R4(2,17)+R4(7,17)+R2(4,3)+R2(4,4))*XZ+(+R5(7,24)+R3(2,30)
     * +R3(7,30)+R1(2,4))*XXZ
      F(5,5,1,2)= R8(13)+R6(6,1)+R6(13,1)+R6(4,9)+R6(13,9)+R4(6,1)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(4,38)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(13,3)+R7(13,4)+R5(6,5)+R5(13,5)
     * +R5(6,6)+R5(13,6)+R5(4,21)+R5(4,22)+R3(6,1)+R3(6,2)+R3(1,27)
     * +R3(4,27)+R3(1,28)+R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R7(8,3)+R7(8,4)
     * +R5(3,5)+R5(8,5)+R5(3,6)+R5(8,6)+R5(8,21)+R5(8,22)+R3(3,1)
     * +R3(3,2)+R3(3,27)+R3(8,27)+R3(3,28)+R3(8,28)+R1(3,1)+R1(3,2))*QZ
     * +(+R6(13,11)+R4(6,16)+R4(13,16)+R4(4,40)+R2(3,3)+R2(1,39)
     * +R2(2,39)+R0(3))*XX+(+R6(8,10)+R6(8,11)*TWO+R6(8,12)+R4(3,15)
     * +R4(8,15)+R4(3,16)*TWO+R4(8,16)*TWO+R4(3,17)+R4(8,17)+R2(5,2)
     * +R2(5,3)*TWO+R2(5,4))*XZ+(+R6(4,11)+R4(1,16)+R4(4,16)+R4(4,40)
     * +R2(1,3)+R2(1,39)+R2(2,39)+R0(3))*ZZ+(+R5(8,23)+R5(8,24)+R3(3,29)
     * +R3(8,29)+R3(3,30)+R3(8,30)+R1(3,3)+R1(3,4))*XXZ+(+R5(4,23)
     * +R5(4,24)+R3(1,29)+R3(4,29)+R3(1,30)+R3(4,30)+R1(1,3)+R1(1,4))
     * *XZZ+(+R4(4,42)+R2(1,41)+R2(2,41)+R0(5))*XXZZ
      F(6,5,1,2)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,4)+R5(9,6)+R5(18,6)+R5(7,22)+R3(9,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QX+(+R7(12,3)+R7(12,4)+R5(5,5)
     * +R5(12,5)+R5(5,6)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(+R6(12,11)
     * +R6(12,12)+R4(5,16)+R4(12,16)+R4(5,17)+R4(12,17)+R2(6,3)+R2(6,4))
     * *XZ+(+R6(7,11)+R4(2,16)+R4(7,16)+R2(4,3))*ZZ+(+R5(7,24)+R3(2,30)
     * +R3(7,30)+R1(2,4))*XZZ
      F(1,6,1,2)= R8(12)+R6(5,1)+R6(12,1)+R6(12,9)+R4(5,1)+R4(5,14)
     * +R4(12,14)+R2(6,1)+(+R7(12,3)*TWO+R5(5,5)*TWO+R5(12,5)*TWO
     * +R3(5,1)*TWO)*QX+(+R7(7,4)+R5(2,6)+R5(7,6)+R5(7,22)+R3(2,2)
     * +R3(2,28)+R3(7,28)+R1(2,2))*QZ+(+R6(12,10)+R4(5,15)+R4(12,15)
     * +R2(6,2))*XX+(+R6(7,11)*TWO+R4(2,16)*TWO+R4(7,16)*TWO+R2(4,3)*TWO
     * )*XZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*XXZ
      F(2,6,1,2)= R8(23)+R6(12,1)+R6(23,1)+R6(12,9)*THREE+R4(12,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(16,4)+R5(7,6)
     * +R5(16,6)+R5(7,22)*THREE+R3(7,2)+R3(2,28)*THREE+R3(7,28)*THREE
     * +R1(2,2)*THREE)*QZ
      F(3,6,1,2)= R8(25)+R6(14,1)+R6(25,1)+R6(12,9)*THREE+R4(14,1)
     * +R4(5,14)*THREE+R4(12,14)*THREE+R2(6,1)*THREE+(+R7(18,3)*TWO
     * +R7(18,4)+R5(9,5)*TWO+R5(18,5)*TWO+R5(9,6)+R5(18,6)+R5(7,21)*TWO
     * +R5(7,22)+R3(9,1)*TWO+R3(9,2)+R3(2,27)*TWO+R3(7,27)*TWO+R3(2,28)
     * +R3(7,28)+R1(2,1)*TWO+R1(2,2))*QZ+(+R6(12,10)+R6(12,11)*TWO
     * +R4(5,15)+R4(12,15)+R4(5,16)*TWO+R4(12,16)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R5(7,23)+R3(2,29)+R3(7,29)+R1(2,3))*ZZZ
      F(4,6,1,2)= R8(17)+R6(8,1)+R6(17,1)+R6(8,9)+R4(8,1)+R4(3,14)
     * +R4(8,14)+R2(5,1)+(+R7(17,3)+R5(8,5)+R5(17,5)+R5(8,21)+R3(8,1)
     * +R3(3,27)+R3(8,27)+R1(3,1))*QX+(+R7(11,4)+R5(4,6)+R5(11,6)
     * +R5(4,22)+R3(4,2)+R3(1,28)+R3(4,28)+R1(1,2))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*XZ
      F(5,6,1,2)= R8(18)+R6(9,1)+R6(18,1)+R6(7,9)+R4(9,1)+R4(2,14)
     * +R4(7,14)+R2(4,1)+(+R7(18,3)+R5(9,5)+R5(18,5)+R5(7,21)+R3(9,1)
     * +R3(2,27)+R3(7,27)+R1(2,1))*QX+(+R7(12,3)+R7(12,4)+R5(5,5)
     * +R5(12,5)+R5(5,6)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(+R6(12,10)
     * +R6(12,11)+R4(5,15)+R4(12,15)+R4(5,16)+R4(12,16)+R2(6,2)+R2(6,3))
     * *XZ+(+R6(7,11)+R4(2,16)+R4(7,16)+R2(4,3))*ZZ+(+R5(7,23)+R3(2,29)
     * +R3(7,29)+R1(2,3))*XZZ
      F(6,6,1,2)= R8(24)+R6(13,1)+R6(24,1)+R6(11,9)+R6(13,9)+R4(13,1)
     * +R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,38)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R2(2,37)+R0(1)+(+R7(17,3)+R7(17,4)+R5(8,5)+R5(17,5)
     * +R5(8,6)+R5(17,6)+R5(8,21)+R5(8,22)+R3(8,1)+R3(8,2)+R3(3,27)
     * +R3(8,27)+R3(3,28)+R3(8,28)+R1(3,1)+R1(3,2))*QZ+(+R6(11,11)
     * +R4(4,16)+R4(11,16)+R4(4,40)+R2(2,3)+R2(1,39)+R2(2,39)+R0(3))*ZZ
      F(1,1,2,2)= R8(11)+R6(4,1)*SIX+R6(11,9)*SIX+R4(1,1)*THREE
     * +R4(4,14)*P36+R4(11,38)*THREE+R2(1,1)*P18+R2(2,37)*P18+R0(1)*NINE
     * +(+R7(11,3)*TWO+R7(11,4)*TWO+R5(4,5)*TWELV+R5(4,6)*TWELV
     * +R5(11,21)*SIX+R5(11,22)*SIX+R3(1,1)*SIX+R3(1,2)*SIX+R3(4,27)*P36
     * +R3(4,28)*P36+R1(1,1)*P18+R1(1,2)*P18)*QX+(+R6(11,10)
     * +R6(11,11)*FOUR+R6(11,12)+R4(4,15)*SIX+R4(4,16)*P24+R4(4,17)*SIX
     * +R4(11,39)+R4(11,40)*FOUR+R4(11,41)+R2(1,2)*THREE+R2(1,3)*TWELV
     * +R2(1,4)*THREE+R2(2,38)*SIX+R2(2,39)*P24+R2(2,40)*SIX+R0(2)*THREE
     * +R0(3)*TWELV+R0(4)*THREE)*XX+(+R5(11,23)*TWO+R5(11,24)*TWO
     * +R3(4,29)*TWELV+R3(4,30)*TWELV+R1(1,3)*SIX+R1(1,4)*SIX)*XXX+(
     * +R4(11,42)+R2(2,41)*SIX+R0(5)*THREE)*XXXX
      F(2,1,2,2)= R8(22)+R6(11,1)*SIX+R6(11,9)+R6(22,9)+R4(4,1)*THREE
     * +R4(4,14)*SIX+R4(11,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(22,4)*TWO+R5(11,6)*TWELV
     * +R5(11,22)*TWO+R3(4,2)*SIX+R3(4,28)*TWELV+R1(1,2)*SIX)*QX+(
     * +R6(22,12)+R4(11,17)*SIX+R4(11,41)+R2(2,4)*THREE+R2(2,40)*SIX
     * +R0(4)*THREE)*XX
      F(3,1,2,2)= R8(24)+R6(13,1)*SIX+R6(11,9)+R6(24,9)+R4(6,1)*THREE
     * +R4(4,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(24,4)*TWO+R5(13,6)*TWELV
     * +R5(11,22)*TWO+R3(6,2)*SIX+R3(4,28)*TWELV+R1(1,2)*SIX)*QX+(
     * +R7(17,3)*TWO+R5(8,5)*TWELV+R5(17,21)*TWO+R3(3,1)*SIX
     * +R3(8,27)*TWELV+R1(3,1)*SIX)*QZ+(+R6(24,12)+R4(13,17)*SIX
     * +R4(11,41)+R2(3,4)*THREE+R2(2,40)*SIX+R0(4)*THREE)*XX+(
     * +R6(17,11)*FOUR+R4(8,16)*P24+R2(5,3)*TWELV)*XZ+(+R6(11,10)
     * +R4(4,15)*SIX+R4(11,39)+R2(1,2)*THREE+R2(2,38)*SIX+R0(2)*THREE)
     * *ZZ+(+R5(17,24)*TWO+R3(8,30)*TWELV+R1(3,4)*SIX)*XXZ+(
     * +R5(11,23)*TWO+R3(4,29)*TWELV+R1(1,3)*SIX)*XZZ+(+R4(11,42)
     * +R2(2,41)*SIX+R0(5)*THREE)*XXZZ
      F(4,1,2,2)= R8(16)+R6(7,1)*SIX+R6(16,9)*THREE+R4(2,1)*THREE
     * +R4(7,14)*P18+R2(4,1)*NINE+(+R7(16,3)+R7(16,4)*TWO+R5(7,5)*SIX
     * +R5(7,6)*TWELV+R5(16,21)+R5(16,22)*TWO+R3(2,1)*THREE+R3(2,2)*SIX
     * +R3(7,27)*SIX+R3(7,28)*TWELV+R1(2,1)*THREE+R1(2,2)*SIX)*QX+(
     * +R6(16,11)*TWO+R6(16,12)+R4(7,16)*TWELV+R4(7,17)*SIX+R2(4,3)*SIX
     * +R2(4,4)*THREE)*XX+(+R5(16,24)+R3(7,30)*SIX+R1(2,4)*THREE)*XXX
      F(5,1,2,2)= R8(17)+R6(8,1)*SIX+R6(17,9)*THREE+R4(3,1)*THREE
     * +R4(8,14)*P18+R2(5,1)*NINE+(+R7(17,3)+R7(17,4)*TWO+R5(8,5)*SIX
     * +R5(8,6)*TWELV+R5(17,21)+R5(17,22)*TWO+R3(3,1)*THREE+R3(3,2)*SIX
     * +R3(8,27)*SIX+R3(8,28)*TWELV+R1(3,1)*THREE+R1(3,2)*SIX)*QX+(
     * +R7(11,3)+R5(4,5)*SIX+R5(11,21)*THREE+R3(1,1)*THREE+R3(4,27)*P18
     * +R1(1,1)*NINE)*QZ+(+R6(17,11)*TWO+R6(17,12)+R4(8,16)*TWELV
     * +R4(8,17)*SIX+R2(5,3)*SIX+R2(5,4)*THREE)*XX+(+R6(11,10)
     * +R6(11,11)*TWO+R4(4,15)*SIX+R4(4,16)*TWELV+R4(11,39)
     * +R4(11,40)*TWO+R2(1,2)*THREE+R2(1,3)*SIX+R2(2,38)*SIX
     * +R2(2,39)*TWELV+R0(2)*THREE+R0(3)*SIX)*XZ+(+R5(17,24)
     * +R3(8,30)*SIX+R1(3,4)*THREE)*XXX+(+R5(11,23)*TWO+R5(11,24)
     * +R3(4,29)*TWELV+R3(4,30)*SIX+R1(1,3)*SIX+R1(1,4)*THREE)*XXZ+(
     * +R4(11,42)+R2(2,41)*SIX+R0(5)*THREE)*XXXZ
      F(6,1,2,2)= R8(23)+R6(12,1)*SIX+R6(23,9)+R4(5,1)*THREE
     * +R4(12,14)*SIX+R2(6,1)*THREE+(+R7(23,4)*TWO+R5(12,6)*TWELV
     * +R3(5,2)*SIX)*QX+(+R7(16,3)+R5(7,5)*SIX+R5(16,21)+R3(2,1)*THREE
     * +R3(7,27)*SIX+R1(2,1)*THREE)*QZ+(+R6(23,12)+R4(12,17)*SIX
     * +R2(6,4)*THREE)*XX+(+R6(16,11)*TWO+R4(7,16)*TWELV+R2(4,3)*SIX)*XZ
     * +(+R5(16,24)+R3(7,30)*SIX+R1(2,4)*THREE)*XXZ
      F(1,2,2,2)= R8(22)+R6(11,1)*SIX+R6(11,9)+R6(22,9)+R4(4,1)*THREE
     * +R4(4,14)*SIX+R4(11,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(22,3)*TWO+R5(11,5)*TWELV
     * +R5(11,21)*TWO+R3(4,1)*SIX+R3(4,27)*TWELV+R1(1,1)*SIX)*QX+(
     * +R6(22,10)+R4(11,15)*SIX+R4(11,39)+R2(2,2)*THREE+R2(2,38)*SIX
     * +R0(2)*THREE)*XX
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21D
      SUBROUTINE MCDV21D(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           EIGHT=8.0D+00, NINE=9.0D+00, TWELV=1.2D+01,
     *           P18=1.8D+01, P24=2.4D+01,P36=3.6D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(2,2,2,2)= R8(37)+R6(22,1)*SIX+R6(22,9)*SIX+R4(11,1)*THREE
     * +R4(11,14)*P36+R4(11,38)*THREE+R2(2,1)*P18+R2(2,37)*P18
     * +R0(1)*NINE
      F(3,2,2,2)= R8(39)+R6(24,1)*SIX+R6(22,9)+R6(24,9)+R4(13,1)*THREE
     * +R4(11,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(2,1)*THREE
     * +R2(3,1)*THREE+R2(2,37)*SIX+R0(1)*THREE+(+R7(30,3)*TWO
     * +R5(17,5)*TWELV+R5(17,21)*TWO+R3(8,1)*SIX+R3(8,27)*TWELV
     * +R1(3,1)*SIX)*QZ+(+R6(22,10)+R4(11,15)*SIX+R4(11,39)
     * +R2(2,2)*THREE+R2(2,38)*SIX+R0(2)*THREE)*ZZ
      F(4,2,2,2)= R8(29)+R6(16,1)*SIX+R6(16,9)*THREE+R4(7,1)*THREE
     * +R4(7,14)*P18+R2(4,1)*NINE+(+R7(29,3)+R5(16,5)*SIX
     * +R5(16,21)*THREE+R3(7,1)*THREE+R3(7,27)*P18+R1(2,1)*NINE)*QX
      F(5,2,2,2)= R8(30)+R6(17,1)*SIX+R6(17,9)+R4(8,1)*THREE
     * +R4(8,14)*SIX+R2(5,1)*THREE+(+R7(30,3)+R5(17,5)*SIX+R5(17,21)
     * +R3(8,1)*THREE+R3(8,27)*SIX+R1(3,1)*THREE)*QX+(+R7(22,3)
     * +R5(11,5)*SIX+R5(11,21)+R3(4,1)*THREE+R3(4,27)*SIX+R1(1,1)*THREE)
     * *QZ+(+R6(22,10)+R4(11,15)*SIX+R4(11,39)+R2(2,2)*THREE
     * +R2(2,38)*SIX+R0(2)*THREE)*XZ
      F(6,2,2,2)= R8(38)+R6(23,1)*SIX+R6(23,9)*THREE+R4(12,1)*THREE
     * +R4(12,14)*P18+R2(6,1)*NINE+(+R7(29,3)+R5(16,5)*SIX
     * +R5(16,21)*THREE+R3(7,1)*THREE+R3(7,27)*P18+R1(2,1)*NINE)*QZ
      F(1,3,2,2)= R8(24)+R6(13,1)*SIX+R6(11,9)+R6(24,9)+R4(6,1)*THREE
     * +R4(4,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(24,3)*TWO+R5(13,5)*TWELV
     * +R5(11,21)*TWO+R3(6,1)*SIX+R3(4,27)*TWELV+R1(1,1)*SIX)*QX+(
     * +R7(17,4)*TWO+R5(8,6)*TWELV+R5(17,22)*TWO+R3(3,2)*SIX
     * +R3(8,28)*TWELV+R1(3,2)*SIX)*QZ+(+R6(24,10)+R4(13,15)*SIX
     * +R4(11,39)+R2(3,2)*THREE+R2(2,38)*SIX+R0(2)*THREE)*XX+(
     * +R6(17,11)*FOUR+R4(8,16)*P24+R2(5,3)*TWELV)*XZ+(+R6(11,12)
     * +R4(4,17)*SIX+R4(11,41)+R2(1,4)*THREE+R2(2,40)*SIX+R0(4)*THREE)
     * *ZZ+(+R5(17,23)*TWO+R3(8,29)*TWELV+R1(3,3)*SIX)*XXZ+(
     * +R5(11,24)*TWO+R3(4,30)*TWELV+R1(1,4)*SIX)*XZZ+(+R4(11,42)
     * +R2(2,41)*SIX+R0(5)*THREE)*XXZZ
      F(2,3,2,2)= R8(39)+R6(24,1)*SIX+R6(22,9)+R6(24,9)+R4(13,1)*THREE
     * +R4(11,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(2,1)*THREE
     * +R2(3,1)*THREE+R2(2,37)*SIX+R0(1)*THREE+(+R7(30,4)*TWO
     * +R5(17,6)*TWELV+R5(17,22)*TWO+R3(8,2)*SIX+R3(8,28)*TWELV
     * +R1(3,2)*SIX)*QZ+(+R6(22,12)+R4(11,17)*SIX+R4(11,41)
     * +R2(2,4)*THREE+R2(2,40)*SIX+R0(4)*THREE)*ZZ
      F(3,3,2,2)= R8(41)+R6(26,1)*SIX+R6(24,9)*SIX+R4(15,1)*THREE
     * +R4(13,14)*P36+R4(11,38)*THREE+R2(3,1)*P18+R2(2,37)*P18
     * +R0(1)*NINE+(+R7(32,3)*TWO+R7(32,4)*TWO+R5(19,5)*TWELV
     * +R5(19,6)*TWELV+R5(17,21)*SIX+R5(17,22)*SIX+R3(10,1)*SIX
     * +R3(10,2)*SIX+R3(8,27)*P36+R3(8,28)*P36+R1(3,1)*P18+R1(3,2)*P18)
     * *QZ+(+R6(24,10)+R6(24,11)*FOUR+R6(24,12)+R4(13,15)*SIX
     * +R4(13,16)*P24+R4(13,17)*SIX+R4(11,39)+R4(11,40)*FOUR+R4(11,41)
     * +R2(3,2)*THREE+R2(3,3)*TWELV+R2(3,4)*THREE+R2(2,38)*SIX
     * +R2(2,39)*P24+R2(2,40)*SIX+R0(2)*THREE+R0(3)*TWELV+R0(4)*THREE)
     * *ZZ+(+R5(17,23)*TWO+R5(17,24)*TWO+R3(8,29)*TWELV+R3(8,30)*TWELV
     * +R1(3,3)*SIX+R1(3,4)*SIX)*ZZZ+(+R4(11,42)+R2(2,41)*SIX
     * +R0(5)*THREE)*ZZZZ
      F(4,3,2,2)= R8(31)+R6(18,1)*SIX+R6(16,9)+R4(9,1)*THREE
     * +R4(7,14)*SIX+R2(4,1)*THREE+(+R7(31,3)+R5(18,5)*SIX+R5(16,21)
     * +R3(9,1)*THREE+R3(7,27)*SIX+R1(2,1)*THREE)*QX+(+R7(23,4)*TWO
     * +R5(12,6)*TWELV+R3(5,2)*SIX)*QZ+(+R6(23,11)*TWO+R4(12,16)*TWELV
     * +R2(6,3)*SIX)*XZ+(+R6(16,12)+R4(7,17)*SIX+R2(4,4)*THREE)*ZZ+(
     * +R5(16,24)+R3(7,30)*SIX+R1(2,4)*THREE)*XZZ
      F(5,3,2,2)= R8(32)+R6(19,1)*SIX+R6(17,9)*THREE+R4(10,1)*THREE
     * +R4(8,14)*P18+R2(5,1)*NINE+(+R7(32,3)+R5(19,5)*SIX
     * +R5(17,21)*THREE+R3(10,1)*THREE+R3(8,27)*P18+R1(3,1)*NINE)*QX+(
     * +R7(24,3)+R7(24,4)*TWO+R5(13,5)*SIX+R5(13,6)*TWELV+R5(11,21)
     * +R5(11,22)*TWO+R3(6,1)*THREE+R3(6,2)*SIX+R3(4,27)*SIX
     * +R3(4,28)*TWELV+R1(1,1)*THREE+R1(1,2)*SIX)*QZ+(+R6(24,10)
     * +R6(24,11)*TWO+R4(13,15)*SIX+R4(13,16)*TWELV+R4(11,39)
     * +R4(11,40)*TWO+R2(3,2)*THREE+R2(3,3)*SIX+R2(2,38)*SIX
     * +R2(2,39)*TWELV+R0(2)*THREE+R0(3)*SIX)*XZ+(+R6(17,11)*TWO
     * +R6(17,12)+R4(8,16)*TWELV+R4(8,17)*SIX+R2(5,3)*SIX+R2(5,4)*THREE)
     * *ZZ+(+R5(17,23)*TWO+R5(17,24)+R3(8,29)*TWELV+R3(8,30)*SIX
     * +R1(3,3)*SIX+R1(3,4)*THREE)*XZZ+(+R5(11,24)+R3(4,30)*SIX
     * +R1(1,4)*THREE)*ZZZ+(+R4(11,42)+R2(2,41)*SIX+R0(5)*THREE)*XZZZ
      F(6,3,2,2)= R8(40)+R6(25,1)*SIX+R6(23,9)*THREE+R4(14,1)*THREE
     * +R4(12,14)*P18+R2(6,1)*NINE+(+R7(31,3)+R7(31,4)*TWO+R5(18,5)*SIX
     * +R5(18,6)*TWELV+R5(16,21)+R5(16,22)*TWO+R3(9,1)*THREE+R3(9,2)*SIX
     * +R3(7,27)*SIX+R3(7,28)*TWELV+R1(2,1)*THREE+R1(2,2)*SIX)*QZ+(
     * +R6(23,11)*TWO+R6(23,12)+R4(12,16)*TWELV+R4(12,17)*SIX
     * +R2(6,3)*SIX+R2(6,4)*THREE)*ZZ+(+R5(16,24)+R3(7,30)*SIX
     * +R1(2,4)*THREE)*ZZZ
      F(1,4,2,2)= R8(16)+R6(7,1)*SIX+R6(16,9)*THREE+R4(2,1)*THREE
     * +R4(7,14)*P18+R2(4,1)*NINE+(+R7(16,3)*TWO+R7(16,4)+R5(7,5)*TWELV
     * +R5(7,6)*SIX+R5(16,21)*TWO+R5(16,22)+R3(2,1)*SIX+R3(2,2)*THREE
     * +R3(7,27)*TWELV+R3(7,28)*SIX+R1(2,1)*SIX+R1(2,2)*THREE)*QX+(
     * +R6(16,10)+R6(16,11)*TWO+R4(7,15)*SIX+R4(7,16)*TWELV
     * +R2(4,2)*THREE+R2(4,3)*SIX)*XX+(+R5(16,23)+R3(7,29)*SIX
     * +R1(2,3)*THREE)*XXX
      F(2,4,2,2)= R8(29)+R6(16,1)*SIX+R6(16,9)*THREE+R4(7,1)*THREE
     * +R4(7,14)*P18+R2(4,1)*NINE+(+R7(29,4)+R5(16,6)*SIX
     * +R5(16,22)*THREE+R3(7,2)*THREE+R3(7,28)*P18+R1(2,2)*NINE)*QX
      F(3,4,2,2)= R8(31)+R6(18,1)*SIX+R6(16,9)+R4(9,1)*THREE
     * +R4(7,14)*SIX+R2(4,1)*THREE+(+R7(31,4)+R5(18,6)*SIX+R5(16,22)
     * +R3(9,2)*THREE+R3(7,28)*SIX+R1(2,2)*THREE)*QX+(+R7(23,3)*TWO
     * +R5(12,5)*TWELV+R3(5,1)*SIX)*QZ+(+R6(23,11)*TWO+R4(12,16)*TWELV
     * +R2(6,3)*SIX)*XZ+(+R6(16,10)+R4(7,15)*SIX+R2(4,2)*THREE)*ZZ+(
     * +R5(16,23)+R3(7,29)*SIX+R1(2,3)*THREE)*XZZ
      F(4,4,2,2)= R8(22)+R6(11,1)*SIX+R6(11,9)+R6(22,9)+R4(4,1)*THREE
     * +R4(4,14)*SIX+R4(11,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(2,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(22,3)+R7(22,4)+R5(11,5)*SIX
     * +R5(11,6)*SIX+R5(11,21)+R5(11,22)+R3(4,1)*THREE+R3(4,2)*THREE
     * +R3(4,27)*SIX+R3(4,28)*SIX+R1(1,1)*THREE+R1(1,2)*THREE)*QX+(
     * +R6(22,11)+R4(11,16)*SIX+R4(11,40)+R2(2,3)*THREE+R2(2,39)*SIX
     * +R0(3)*THREE)*XX
      F(5,4,2,2)= R8(23)+R6(12,1)*SIX+R6(23,9)+R4(5,1)*THREE
     * +R4(12,14)*SIX+R2(6,1)*THREE+(+R7(23,3)+R7(23,4)+R5(12,5)*SIX
     * +R5(12,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QX+(+R7(16,3)
     * +R5(7,5)*SIX+R5(16,21)+R3(2,1)*THREE+R3(7,27)*SIX+R1(2,1)*THREE)
     * *QZ+(+R6(23,11)+R4(12,16)*SIX+R2(6,3)*THREE)*XX+(+R6(16,10)
     * +R6(16,11)+R4(7,15)*SIX+R4(7,16)*SIX+R2(4,2)*THREE+R2(4,3)*THREE)
     * *XZ+(+R5(16,23)+R3(7,29)*SIX+R1(2,3)*THREE)*XXZ
      F(6,4,2,2)= R8(30)+R6(17,1)*SIX+R6(17,9)+R4(8,1)*THREE
     * +R4(8,14)*SIX+R2(5,1)*THREE+(+R7(30,4)+R5(17,6)*SIX+R5(17,22)
     * +R3(8,2)*THREE+R3(8,28)*SIX+R1(3,2)*THREE)*QX+(+R7(22,3)
     * +R5(11,5)*SIX+R5(11,21)+R3(4,1)*THREE+R3(4,27)*SIX+R1(1,1)*THREE)
     * *QZ+(+R6(22,11)+R4(11,16)*SIX+R4(11,40)+R2(2,3)*THREE
     * +R2(2,39)*SIX+R0(3)*THREE)*XZ
      F(1,5,2,2)= R8(17)+R6(8,1)*SIX+R6(17,9)*THREE+R4(3,1)*THREE
     * +R4(8,14)*P18+R2(5,1)*NINE+(+R7(17,3)*TWO+R7(17,4)+R5(8,5)*TWELV
     * +R5(8,6)*SIX+R5(17,21)*TWO+R5(17,22)+R3(3,1)*SIX+R3(3,2)*THREE
     * +R3(8,27)*TWELV+R3(8,28)*SIX+R1(3,1)*SIX+R1(3,2)*THREE)*QX+(
     * +R7(11,4)+R5(4,6)*SIX+R5(11,22)*THREE+R3(1,2)*THREE+R3(4,28)*P18
     * +R1(1,2)*NINE)*QZ+(+R6(17,10)+R6(17,11)*TWO+R4(8,15)*SIX
     * +R4(8,16)*TWELV+R2(5,2)*THREE+R2(5,3)*SIX)*XX+(+R6(11,11)*TWO
     * +R6(11,12)+R4(4,16)*TWELV+R4(4,17)*SIX+R4(11,40)*TWO+R4(11,41)
     * +R2(1,3)*SIX+R2(1,4)*THREE+R2(2,39)*TWELV+R2(2,40)*SIX+R0(3)*SIX
     * +R0(4)*THREE)*XZ+(+R5(17,23)+R3(8,29)*SIX+R1(3,3)*THREE)*XXX+(
     * +R5(11,23)+R5(11,24)*TWO+R3(4,29)*SIX+R3(4,30)*TWELV
     * +R1(1,3)*THREE+R1(1,4)*SIX)*XXZ+(+R4(11,42)+R2(2,41)*SIX
     * +R0(5)*THREE)*XXXZ
      F(2,5,2,2)= R8(30)+R6(17,1)*SIX+R6(17,9)+R4(8,1)*THREE
     * +R4(8,14)*SIX+R2(5,1)*THREE+(+R7(30,4)+R5(17,6)*SIX+R5(17,22)
     * +R3(8,2)*THREE+R3(8,28)*SIX+R1(3,2)*THREE)*QX+(+R7(22,4)
     * +R5(11,6)*SIX+R5(11,22)+R3(4,2)*THREE+R3(4,28)*SIX+R1(1,2)*THREE)
     * *QZ+(+R6(22,12)+R4(11,17)*SIX+R4(11,41)+R2(2,4)*THREE
     * +R2(2,40)*SIX+R0(4)*THREE)*XZ
      F(3,5,2,2)= R8(32)+R6(19,1)*SIX+R6(17,9)*THREE+R4(10,1)*THREE
     * +R4(8,14)*P18+R2(5,1)*NINE+(+R7(32,4)+R5(19,6)*SIX
     * +R5(17,22)*THREE+R3(10,2)*THREE+R3(8,28)*P18+R1(3,2)*NINE)*QX+(
     * +R7(24,3)*TWO+R7(24,4)+R5(13,5)*TWELV+R5(13,6)*SIX+R5(11,21)*TWO
     * +R5(11,22)+R3(6,1)*SIX+R3(6,2)*THREE+R3(4,27)*TWELV+R3(4,28)*SIX
     * +R1(1,1)*SIX+R1(1,2)*THREE)*QZ+(+R6(24,11)*TWO+R6(24,12)
     * +R4(13,16)*TWELV+R4(13,17)*SIX+R4(11,40)*TWO+R4(11,41)
     * +R2(3,3)*SIX+R2(3,4)*THREE+R2(2,39)*TWELV+R2(2,40)*SIX+R0(3)*SIX
     * +R0(4)*THREE)*XZ+(+R6(17,10)+R6(17,11)*TWO+R4(8,15)*SIX
     * +R4(8,16)*TWELV+R2(5,2)*THREE+R2(5,3)*SIX)*ZZ+(+R5(17,23)
     * +R5(17,24)*TWO+R3(8,29)*SIX+R3(8,30)*TWELV+R1(3,3)*THREE
     * +R1(3,4)*SIX)*XZZ+(+R5(11,23)+R3(4,29)*SIX+R1(1,3)*THREE)*ZZZ+(
     * +R4(11,42)+R2(2,41)*SIX+R0(5)*THREE)*XZZZ
      F(4,5,2,2)= R8(23)+R6(12,1)*SIX+R6(23,9)+R4(5,1)*THREE
     * +R4(12,14)*SIX+R2(6,1)*THREE+(+R7(23,3)+R7(23,4)+R5(12,5)*SIX
     * +R5(12,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QX+(+R7(16,4)
     * +R5(7,6)*SIX+R5(16,22)+R3(2,2)*THREE+R3(7,28)*SIX+R1(2,2)*THREE)
     * *QZ+(+R6(23,11)+R4(12,16)*SIX+R2(6,3)*THREE)*XX+(+R6(16,11)
     * +R6(16,12)+R4(7,16)*SIX+R4(7,17)*SIX+R2(4,3)*THREE+R2(4,4)*THREE)
     * *XZ+(+R5(16,24)+R3(7,30)*SIX+R1(2,4)*THREE)*XXZ
      F(5,5,2,2)= R8(24)+R6(13,1)*SIX+R6(11,9)+R6(24,9)+R4(6,1)*THREE
     * +R4(4,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(1,1)*THREE+R2(3,1)*THREE
     * +R2(2,37)*SIX+R0(1)*THREE+(+R7(24,3)+R7(24,4)+R5(13,5)*SIX
     * +R5(13,6)*SIX+R5(11,21)+R5(11,22)+R3(6,1)*THREE+R3(6,2)*THREE
     * +R3(4,27)*SIX+R3(4,28)*SIX+R1(1,1)*THREE+R1(1,2)*THREE)*QX+(
     * +R7(17,3)+R7(17,4)+R5(8,5)*SIX+R5(8,6)*SIX+R5(17,21)+R5(17,22)
     * +R3(3,1)*THREE+R3(3,2)*THREE+R3(8,27)*SIX+R3(8,28)*SIX
     * +R1(3,1)*THREE+R1(3,2)*THREE)*QZ+(+R6(24,11)+R4(13,16)*SIX
     * +R4(11,40)+R2(3,3)*THREE+R2(2,39)*SIX+R0(3)*THREE)*XX+(+R6(17,10)
     * +R6(17,11)*TWO+R6(17,12)+R4(8,15)*SIX+R4(8,16)*TWELV+R4(8,17)*SIX
     * +R2(5,2)*THREE+R2(5,3)*SIX+R2(5,4)*THREE)*XZ+(+R6(11,11)
     * +R4(4,16)*SIX+R4(11,40)+R2(1,3)*THREE+R2(2,39)*SIX+R0(3)*THREE)
     * *ZZ+(+R5(17,23)+R5(17,24)+R3(8,29)*SIX+R3(8,30)*SIX+R1(3,3)*THREE
     * +R1(3,4)*THREE)*XXZ+(+R5(11,23)+R5(11,24)+R3(4,29)*SIX
     * +R3(4,30)*SIX+R1(1,3)*THREE+R1(1,4)*THREE)*XZZ+(+R4(11,42)
     * +R2(2,41)*SIX+R0(5)*THREE)*XXZZ
      F(6,5,2,2)= R8(31)+R6(18,1)*SIX+R6(16,9)+R4(9,1)*THREE
     * +R4(7,14)*SIX+R2(4,1)*THREE+(+R7(31,4)+R5(18,6)*SIX+R5(16,22)
     * +R3(9,2)*THREE+R3(7,28)*SIX+R1(2,2)*THREE)*QX+(+R7(23,3)+R7(23,4)
     * +R5(12,5)*SIX+R5(12,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QZ+(
     * +R6(23,11)+R6(23,12)+R4(12,16)*SIX+R4(12,17)*SIX+R2(6,3)*THREE
     * +R2(6,4)*THREE)*XZ+(+R6(16,11)+R4(7,16)*SIX+R2(4,3)*THREE)*ZZ+(
     * +R5(16,24)+R3(7,30)*SIX+R1(2,4)*THREE)*XZZ
      F(1,6,2,2)= R8(23)+R6(12,1)*SIX+R6(23,9)+R4(5,1)*THREE
     * +R4(12,14)*SIX+R2(6,1)*THREE+(+R7(23,3)*TWO+R5(12,5)*TWELV
     * +R3(5,1)*SIX)*QX+(+R7(16,4)+R5(7,6)*SIX+R5(16,22)+R3(2,2)*THREE
     * +R3(7,28)*SIX+R1(2,2)*THREE)*QZ+(+R6(23,10)+R4(12,15)*SIX
     * +R2(6,2)*THREE)*XX+(+R6(16,11)*TWO+R4(7,16)*TWELV+R2(4,3)*SIX)*XZ
     * +(+R5(16,23)+R3(7,29)*SIX+R1(2,3)*THREE)*XXZ
      F(2,6,2,2)= R8(38)+R6(23,1)*SIX+R6(23,9)*THREE+R4(12,1)*THREE
     * +R4(12,14)*P18+R2(6,1)*NINE+(+R7(29,4)+R5(16,6)*SIX
     * +R5(16,22)*THREE+R3(7,2)*THREE+R3(7,28)*P18+R1(2,2)*NINE)*QZ
      F(3,6,2,2)= R8(40)+R6(25,1)*SIX+R6(23,9)*THREE+R4(14,1)*THREE
     * +R4(12,14)*P18+R2(6,1)*NINE+(+R7(31,3)*TWO+R7(31,4)
     * +R5(18,5)*TWELV+R5(18,6)*SIX+R5(16,21)*TWO+R5(16,22)+R3(9,1)*SIX
     * +R3(9,2)*THREE+R3(7,27)*TWELV+R3(7,28)*SIX+R1(2,1)*SIX
     * +R1(2,2)*THREE)*QZ+(+R6(23,10)+R6(23,11)*TWO+R4(12,15)*SIX
     * +R4(12,16)*TWELV+R2(6,2)*THREE+R2(6,3)*SIX)*ZZ+(+R5(16,23)
     * +R3(7,29)*SIX+R1(2,3)*THREE)*ZZZ
      F(4,6,2,2)= R8(30)+R6(17,1)*SIX+R6(17,9)+R4(8,1)*THREE
     * +R4(8,14)*SIX+R2(5,1)*THREE+(+R7(30,3)+R5(17,5)*SIX+R5(17,21)
     * +R3(8,1)*THREE+R3(8,27)*SIX+R1(3,1)*THREE)*QX+(+R7(22,4)
     * +R5(11,6)*SIX+R5(11,22)+R3(4,2)*THREE+R3(4,28)*SIX+R1(1,2)*THREE)
     * *QZ+(+R6(22,11)+R4(11,16)*SIX+R4(11,40)+R2(2,3)*THREE
     * +R2(2,39)*SIX+R0(3)*THREE)*XZ
      F(5,6,2,2)= R8(31)+R6(18,1)*SIX+R6(16,9)+R4(9,1)*THREE
     * +R4(7,14)*SIX+R2(4,1)*THREE+(+R7(31,3)+R5(18,5)*SIX+R5(16,21)
     * +R3(9,1)*THREE+R3(7,27)*SIX+R1(2,1)*THREE)*QX+(+R7(23,3)+R7(23,4)
     * +R5(12,5)*SIX+R5(12,6)*SIX+R3(5,1)*THREE+R3(5,2)*THREE)*QZ+(
     * +R6(23,10)+R6(23,11)+R4(12,15)*SIX+R4(12,16)*SIX+R2(6,2)*THREE
     * +R2(6,3)*THREE)*XZ+(+R6(16,11)+R4(7,16)*SIX+R2(4,3)*THREE)*ZZ+(
     * +R5(16,23)+R3(7,29)*SIX+R1(2,3)*THREE)*XZZ
      F(6,6,2,2)= R8(39)+R6(24,1)*SIX+R6(22,9)+R6(24,9)+R4(13,1)*THREE
     * +R4(11,14)*SIX+R4(13,14)*SIX+R4(11,38)+R2(2,1)*THREE
     * +R2(3,1)*THREE+R2(2,37)*SIX+R0(1)*THREE+(+R7(30,3)+R7(30,4)
     * +R5(17,5)*SIX+R5(17,6)*SIX+R5(17,21)+R5(17,22)+R3(8,1)*THREE
     * +R3(8,2)*THREE+R3(8,27)*SIX+R3(8,28)*SIX+R1(3,1)*THREE
     * +R1(3,2)*THREE)*QZ+(+R6(22,11)+R4(11,16)*SIX+R4(11,40)
     * +R2(2,3)*THREE+R2(2,39)*SIX+R0(3)*THREE)*ZZ
      F(1,1,3,2)= R8(13)-R7(8,1)*TWO+R6(4,1)+R6(6,1)+R6(4,2)
     * +R6(13,9)*SIX-R5(3,1)*TWO-R5(8,13)*TWELV+R4(1,1)+R4(1,2)
     * +R4(4,14)*SIX+R4(6,14)*SIX+R4(4,18)*SIX+R4(13,38)*THREE
     * -R3(3,11)*TWELV-R3(8,43)*SIX+R2(1,1)*SIX+R2(1,5)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,42)*THREE-R1(3,21)*SIX
     * +R0(1)*THREE+R0(6)*THREE+(+R7(13,3)*TWO+R7(13,4)*TWO-R6(8,5)*FOUR
     * -R6(8,6)*FOUR+R5(4,5)*TWO+R5(6,5)*TWO+R5(4,6)*TWO+R5(6,6)*TWO
     * +R5(4,7)*TWO+R5(4,8)*TWO+R5(13,21)*SIX+R5(13,22)*SIX-R4(3,6)*FOUR
     * -R4(3,7)*FOUR-R4(8,30)*TWELV-R4(8,31)*TWELV+R3(1,1)*TWO
     * +R3(1,2)*TWO+R3(1,3)*TWO+R3(1,4)*TWO+R3(4,27)*SIX+R3(6,27)*SIX
     * +R3(4,28)*SIX+R3(6,28)*SIX+R3(4,31)*SIX+R3(4,32)*SIX
     * -R2(5,21)*TWELV-R2(5,22)*TWELV+R1(1,1)*SIX+R1(1,2)*SIX
     * +R1(1,5)*SIX+R1(1,6)*SIX)*QX
      F(1,1,3,2)= F(1,1,3,2)+(+R6(13,10)+R6(13,11)*FOUR+R6(13,12)
     * -R5(8,14)*TWO-R5(8,15)*EIGHT-R5(8,16)*TWO+R4(4,15)+R4(6,15)
     * +R4(4,16)*FOUR+R4(6,16)*FOUR+R4(4,17)+R4(6,17)+R4(4,19)
     * +R4(4,20)*FOUR+R4(4,21)+R4(13,39)+R4(13,40)*FOUR+R4(13,41)
     * -R3(3,12)*TWO-R3(3,13)*EIGHT-R3(3,14)*TWO-R3(8,44)*TWO
     * -R3(8,45)*EIGHT-R3(8,46)*TWO+R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,6)
     * +R2(1,7)*FOUR+R2(1,8)+R2(2,38)+R2(3,38)+R2(2,39)*FOUR
     * +R2(3,39)*FOUR+R2(2,40)+R2(3,40)+R2(2,43)+R2(2,44)*FOUR+R2(2,45)
     * -R1(3,22)*TWO-R1(3,23)*EIGHT-R1(3,24)*TWO+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(7)+R0(8)*FOUR+R0(9))*XX+(+R5(13,23)*TWO+R5(13,24)*TWO
     * -R4(8,32)*FOUR-R4(8,33)*FOUR+R3(4,29)*TWO+R3(6,29)*TWO
     * +R3(4,30)*TWO+R3(6,30)*TWO+R3(4,33)*TWO+R3(4,34)*TWO
     * -R2(5,23)*FOUR-R2(5,24)*FOUR+R1(1,3)*TWO+R1(1,4)*TWO+R1(1,7)*TWO
     * +R1(1,8)*TWO)*XXX+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXXX
      F(2,1,3,2)= R8(24)-R7(17,1)*TWO+R6(11,1)+R6(13,1)+R6(11,2)
     * +R6(13,9)+R6(24,9)-R5(8,1)*TWO-R5(8,13)*TWO-R5(17,13)*TWO+R4(4,1)
     * +R4(4,2)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,18)+R4(11,18)
     * +R4(13,38)-R3(3,11)*TWO-R3(8,11)*TWO-R3(8,43)*TWO+R2(1,1)+R2(2,1)
     * +R2(1,5)+R2(2,5)+R2(2,37)+R2(3,37)+R2(2,42)-R1(3,21)*TWO+R0(1)
     * +R0(6)+(+R7(24,4)*TWO-R6(17,6)*FOUR+R5(11,6)*TWO+R5(13,6)*TWO
     * +R5(11,8)*TWO+R5(13,22)*TWO-R4(8,7)*FOUR-R4(8,31)*FOUR
     * +R3(4,2)*TWO+R3(4,4)*TWO+R3(4,28)*TWO+R3(6,28)*TWO+R3(4,32)*TWO
     * -R2(5,22)*FOUR+R1(1,2)*TWO+R1(1,6)*TWO)*QX+(+R6(24,12)
     * -R5(17,16)*TWO+R4(11,17)+R4(13,17)+R4(11,21)+R4(13,41)
     * -R3(8,14)*TWO-R3(8,46)*TWO+R2(2,4)+R2(2,8)+R2(2,40)+R2(3,40)
     * +R2(2,45)-R1(3,24)*TWO+R0(4)+R0(9))*XX
      F(3,1,3,2)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(15,1)+R6(13,2)
     * +R6(13,9)+R6(26,9)-R5(10,1)*TWO-R5(8,13)*TWO-R5(19,13)*TWO
     * +R4(6,1)+R4(6,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(13,18)+R4(13,38)-R3(3,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(26,4)*TWO-R6(19,6)*FOUR
     * +R5(13,6)*TWO+R5(15,6)*TWO+R5(13,8)*TWO+R5(13,22)*TWO
     * -R4(10,7)*FOUR-R4(8,31)*FOUR+R3(6,2)*TWO+R3(6,4)*TWO+R3(4,28)*TWO
     * +R3(6,28)*TWO+R3(4,32)*TWO-R2(5,22)*FOUR+R1(1,2)*TWO+R1(1,6)*TWO)
     * *QX+(+R7(19,3)*TWO-R6(13,5)*FOUR+R5(8,5)*TWO+R5(10,5)*TWO
     * +R5(8,7)*TWO+R5(19,21)*TWO-R4(6,6)*FOUR-R4(13,30)*FOUR
     * +R3(3,1)*TWO+R3(3,3)*TWO+R3(8,27)*TWO+R3(10,27)*TWO+R3(8,31)*TWO
     * -R2(3,21)*FOUR+R1(3,1)*TWO+R1(3,5)*TWO)*QZ
      F(3,1,3,2)= F(3,1,3,2)+(+R6(26,12)
     * -R5(19,16)*TWO+R4(13,17)+R4(15,17)+R4(13,21)+R4(13,41)
     * -R3(10,14)*TWO-R3(8,46)*TWO+R2(3,4)+R2(3,8)+R2(2,40)+R2(3,40)
     * +R2(2,45)-R1(3,24)*TWO+R0(4)+R0(9))*XX+(+R6(19,11)*FOUR
     * -R5(13,15)*EIGHT+R4(8,16)*FOUR+R4(10,16)*FOUR+R4(8,20)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R6(13,10)
     * -R5(8,14)*TWO+R4(4,15)+R4(6,15)+R4(4,19)+R4(13,39)-R3(3,12)*TWO
     * -R3(8,44)*TWO+R2(1,2)+R2(1,6)+R2(2,38)+R2(3,38)+R2(2,43)
     * -R1(3,22)*TWO+R0(2)+R0(7))*ZZ+(+R5(19,24)*TWO-R4(13,33)*FOUR
     * +R3(8,30)*TWO+R3(10,30)*TWO+R3(8,34)*TWO-R2(3,24)*FOUR
     * +R1(3,4)*TWO+R1(3,8)*TWO)*XXZ+(+R5(13,23)*TWO-R4(8,32)*FOUR
     * +R3(4,29)*TWO+R3(6,29)*TWO+R3(4,33)*TWO-R2(5,23)*FOUR+R1(1,3)*TWO
     * +R1(1,7)*TWO)*XZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(4,1,3,2)= R8(18)-R7(12,1)*TWO+R6(7,1)+R6(9,1)+R6(7,2)
     * +R6(18,9)*THREE-R5(5,1)*TWO-R5(12,13)*SIX+R4(2,1)+R4(2,2)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(18,3)+R7(18,4)*TWO-R6(12,5)*TWO
     * -R6(12,6)*FOUR+R5(7,5)+R5(9,5)+R5(7,6)*TWO+R5(9,6)*TWO+R5(7,7)
     * +R5(7,8)*TWO+R5(18,21)+R5(18,22)*TWO-R4(5,6)*TWO-R4(5,7)*FOUR
     * -R4(12,30)*TWO-R4(12,31)*FOUR+R3(2,1)+R3(2,2)*TWO+R3(2,3)
     * +R3(2,4)*TWO+R3(7,27)+R3(9,27)+R3(7,28)*TWO+R3(9,28)*TWO+R3(7,31)
     * +R3(7,32)*TWO-R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)+R1(2,2)*TWO
     * +R1(2,5)+R1(2,6)*TWO)*QX+(+R6(18,11)*TWO+R6(18,12)-R5(12,15)*FOUR
     * -R5(12,16)*TWO+R4(7,16)*TWO+R4(9,16)*TWO+R4(7,17)+R4(9,17)
     * +R4(7,20)*TWO+R4(7,21)-R3(5,13)*FOUR-R3(5,14)*TWO+R2(4,3)*TWO
     * +R2(4,4)+R2(4,7)*TWO+R2(4,8))*XX+(+R5(18,24)-R4(12,33)*TWO
     * +R3(7,30)+R3(9,30)+R3(7,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXX
      F(5,1,3,2)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(10,1)+R6(8,2)
     * +R6(19,9)*THREE-R5(6,1)*TWO-R5(13,13)*SIX+R4(3,1)+R4(3,2)
     * +R4(8,14)*THREE+R4(10,14)*THREE+R4(8,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(19,3)+R7(19,4)*TWO-R6(13,5)*TWO
     * -R6(13,6)*FOUR+R5(8,5)+R5(10,5)+R5(8,6)*TWO+R5(10,6)*TWO+R5(8,7)
     * +R5(8,8)*TWO+R5(19,21)+R5(19,22)*TWO-R4(6,6)*TWO-R4(6,7)*FOUR
     * -R4(13,30)*TWO-R4(13,31)*FOUR+R3(3,1)+R3(3,2)*TWO+R3(3,3)
     * +R3(3,4)*TWO+R3(8,27)+R3(10,27)+R3(8,28)*TWO+R3(10,28)*TWO
     * +R3(8,31)+R3(8,32)*TWO-R2(3,21)*TWO-R2(3,22)*FOUR+R1(3,1)
     * +R1(3,2)*TWO+R1(3,5)+R1(3,6)*TWO)*QX+(+R7(13,3)-R6(8,5)*TWO
     * +R5(4,5)+R5(6,5)+R5(4,7)+R5(13,21)*THREE-R4(3,6)*TWO-R4(8,30)*SIX
     * +R3(1,1)+R3(1,3)+R3(4,27)*THREE+R3(6,27)*THREE+R3(4,31)*THREE
     * -R2(5,21)*SIX+R1(1,1)*THREE+R1(1,5)*THREE)*QZ+(+R6(19,11)*TWO
     * +R6(19,12)-R5(13,15)*FOUR-R5(13,16)*TWO+R4(8,16)*TWO
     * +R4(10,16)*TWO+R4(8,17)+R4(10,17)+R4(8,20)*TWO+R4(8,21)
     * -R3(6,13)*FOUR-R3(6,14)*TWO+R2(5,3)*TWO+R2(5,4)+R2(5,7)*TWO
     * +R2(5,8))*XX
      F(5,1,3,2)= F(5,1,3,2)
     * +(+R6(13,10)+R6(13,11)*TWO-R5(8,14)*TWO-R5(8,15)*FOUR
     * +R4(4,15)+R4(6,15)+R4(4,16)*TWO+R4(6,16)*TWO+R4(4,19)
     * +R4(4,20)*TWO+R4(13,39)+R4(13,40)*TWO-R3(3,12)*TWO-R3(3,13)*FOUR
     * -R3(8,44)*TWO-R3(8,45)*FOUR+R2(1,2)+R2(1,3)*TWO+R2(1,6)
     * +R2(1,7)*TWO+R2(2,38)+R2(3,38)+R2(2,39)*TWO+R2(3,39)*TWO+R2(2,43)
     * +R2(2,44)*TWO-R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO+R0(7)
     * +R0(8)*TWO)*XZ+(+R5(19,24)-R4(13,33)*TWO+R3(8,30)+R3(10,30)
     * +R3(8,34)-R2(3,24)*TWO+R1(3,4)+R1(3,8))*XXX+(+R5(13,23)*TWO
     * +R5(13,24)-R4(8,32)*FOUR-R4(8,33)*TWO+R3(4,29)*TWO+R3(6,29)*TWO
     * +R3(4,30)+R3(6,30)+R3(4,33)*TWO+R3(4,34)-R2(5,23)*FOUR
     * -R2(5,24)*TWO+R1(1,3)*TWO+R1(1,4)+R1(1,7)*TWO+R1(1,8))*XXZ+(
     * +R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)+R2(2,46)-R1(3,25)*TWO
     * +R0(5)+R0(10))*XXXZ
      F(6,1,3,2)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(14,1)+R6(12,2)
     * +R6(25,9)-R5(9,1)*TWO-R5(18,13)*TWO+R4(5,1)+R4(5,2)+R4(12,14)
     * +R4(14,14)+R4(12,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(25,4)*TWO
     * -R6(18,6)*FOUR+R5(12,6)*TWO+R5(14,6)*TWO+R5(12,8)*TWO
     * -R4(9,7)*FOUR+R3(5,2)*TWO+R3(5,4)*TWO)*QX+(+R7(18,3)-R6(12,5)*TWO
     * +R5(7,5)+R5(9,5)+R5(7,7)+R5(18,21)-R4(5,6)*TWO-R4(12,30)*TWO
     * +R3(2,1)+R3(2,3)+R3(7,27)+R3(9,27)+R3(7,31)-R2(6,21)*TWO+R1(2,1)
     * +R1(2,5))*QZ+(+R6(25,12)-R5(18,16)*TWO+R4(12,17)+R4(14,17)
     * +R4(12,21)-R3(9,14)*TWO+R2(6,4)+R2(6,8))*XX+(+R6(18,11)*TWO
     * -R5(12,15)*FOUR+R4(7,16)*TWO+R4(9,16)*TWO+R4(7,20)*TWO
     * -R3(5,13)*FOUR+R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R5(18,24)
     * -R4(12,33)*TWO+R3(7,30)+R3(9,30)+R3(7,34)-R2(6,24)*TWO+R1(2,4)
     * +R1(2,8))*XXZ
      F(1,2,3,2)= R8(24)-R7(17,1)*TWO+R6(11,1)+R6(13,1)+R6(11,2)
     * +R6(13,9)+R6(24,9)-R5(8,1)*TWO-R5(8,13)*TWO-R5(17,13)*TWO+R4(4,1)
     * +R4(4,2)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,18)+R4(11,18)
     * +R4(13,38)-R3(3,11)*TWO-R3(8,11)*TWO-R3(8,43)*TWO+R2(1,1)+R2(2,1)
     * +R2(1,5)+R2(2,5)+R2(2,37)+R2(3,37)+R2(2,42)-R1(3,21)*TWO+R0(1)
     * +R0(6)+(+R7(24,3)*TWO-R6(17,5)*FOUR+R5(11,5)*TWO+R5(13,5)*TWO
     * +R5(11,7)*TWO+R5(13,21)*TWO-R4(8,6)*FOUR-R4(8,30)*FOUR
     * +R3(4,1)*TWO+R3(4,3)*TWO+R3(4,27)*TWO+R3(6,27)*TWO+R3(4,31)*TWO
     * -R2(5,21)*FOUR+R1(1,1)*TWO+R1(1,5)*TWO)*QX+(+R6(24,10)
     * -R5(17,14)*TWO+R4(11,15)+R4(13,15)+R4(11,19)+R4(13,39)
     * -R3(8,12)*TWO-R3(8,44)*TWO+R2(2,2)+R2(2,6)+R2(2,38)+R2(3,38)
     * +R2(2,43)-R1(3,22)*TWO+R0(2)+R0(7))*XX
      F(2,2,3,2)= R8(39)-R7(30,1)*TWO+R6(22,1)+R6(24,1)+R6(22,2)
     * +R6(24,9)*SIX-R5(17,1)*TWO-R5(17,13)*TWELV+R4(11,1)+R4(11,2)
     * +R4(11,14)*SIX+R4(13,14)*SIX+R4(11,18)*SIX+R4(13,38)*THREE
     * -R3(8,11)*TWELV-R3(8,43)*SIX+R2(2,1)*SIX+R2(2,5)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,42)*THREE-R1(3,21)*SIX
     * +R0(1)*THREE+R0(6)*THREE
      F(3,2,3,2)= R8(41)-R7(32,1)*TWO+R6(24,1)+R6(26,1)+R6(24,2)
     * +R6(24,9)+R6(26,9)-R5(19,1)*TWO-R5(17,13)*TWO-R5(19,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(11,14)+R4(13,14)*TWO+R4(15,14)+R4(11,18)
     * +R4(13,18)+R4(13,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(32,3)*TWO-R6(24,5)*FOUR
     * +R5(17,5)*TWO+R5(19,5)*TWO+R5(17,7)*TWO+R5(19,21)*TWO
     * -R4(13,6)*FOUR-R4(13,30)*FOUR+R3(8,1)*TWO+R3(8,3)*TWO
     * +R3(8,27)*TWO+R3(10,27)*TWO+R3(8,31)*TWO-R2(3,21)*FOUR
     * +R1(3,1)*TWO+R1(3,5)*TWO)*QZ+(+R6(24,10)-R5(17,14)*TWO+R4(11,15)
     * +R4(13,15)+R4(11,19)+R4(13,39)-R3(8,12)*TWO-R3(8,44)*TWO+R2(2,2)
     * +R2(2,6)+R2(2,38)+R2(3,38)+R2(2,43)-R1(3,22)*TWO+R0(2)+R0(7))*ZZ
      F(4,2,3,2)= R8(31)-R7(23,1)*TWO+R6(16,1)+R6(18,1)+R6(16,2)
     * +R6(18,9)*THREE-R5(12,1)*TWO-R5(12,13)*SIX+R4(7,1)+R4(7,2)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(31,3)-R6(23,5)*TWO+R5(16,5)
     * +R5(18,5)+R5(16,7)+R5(18,21)*THREE-R4(12,6)*TWO-R4(12,30)*SIX
     * +R3(7,1)+R3(7,3)+R3(7,27)*THREE+R3(9,27)*THREE+R3(7,31)*THREE
     * -R2(6,21)*SIX+R1(2,1)*THREE+R1(2,5)*THREE)*QX
      F(5,2,3,2)= R8(32)-R7(24,1)*TWO+R6(17,1)+R6(19,1)+R6(17,2)
     * +R6(19,9)-R5(13,1)*TWO-R5(13,13)*TWO+R4(8,1)+R4(8,2)+R4(8,14)
     * +R4(10,14)+R4(8,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(32,3)
     * -R6(24,5)*TWO+R5(17,5)+R5(19,5)+R5(17,7)+R5(19,21)-R4(13,6)*TWO
     * -R4(13,30)*TWO+R3(8,1)+R3(8,3)+R3(8,27)+R3(10,27)+R3(8,31)
     * -R2(3,21)*TWO+R1(3,1)+R1(3,5))*QX+(+R7(24,3)-R6(17,5)*TWO
     * +R5(11,5)+R5(13,5)+R5(11,7)+R5(13,21)-R4(8,6)*TWO-R4(8,30)*TWO
     * +R3(4,1)+R3(4,3)+R3(4,27)+R3(6,27)+R3(4,31)-R2(5,21)*TWO+R1(1,1)
     * +R1(1,5))*QZ+(+R6(24,10)-R5(17,14)*TWO+R4(11,15)+R4(13,15)
     * +R4(11,19)+R4(13,39)-R3(8,12)*TWO-R3(8,44)*TWO+R2(2,2)+R2(2,6)
     * +R2(2,38)+R2(3,38)+R2(2,43)-R1(3,22)*TWO+R0(2)+R0(7))*XZ
      F(6,2,3,2)= R8(40)-R7(31,1)*TWO+R6(23,1)+R6(25,1)+R6(23,2)
     * +R6(25,9)*THREE-R5(18,1)*TWO-R5(18,13)*SIX+R4(12,1)+R4(12,2)
     * +R4(12,14)*THREE+R4(14,14)*THREE+R4(12,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(31,3)-R6(23,5)*TWO+R5(16,5)
     * +R5(18,5)+R5(16,7)+R5(18,21)*THREE-R4(12,6)*TWO-R4(12,30)*SIX
     * +R3(7,1)+R3(7,3)+R3(7,27)*THREE+R3(9,27)*THREE+R3(7,31)*THREE
     * -R2(6,21)*SIX+R1(2,1)*THREE+R1(2,5)*THREE)*QZ
      F(1,3,3,2)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(15,1)+R6(13,2)
     * +R6(13,9)+R6(26,9)-R5(10,1)*TWO-R5(8,13)*TWO-R5(19,13)*TWO
     * +R4(6,1)+R4(6,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(13,18)+R4(13,38)-R3(3,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(26,3)*TWO-R6(19,5)*FOUR
     * +R5(13,5)*TWO+R5(15,5)*TWO+R5(13,7)*TWO+R5(13,21)*TWO
     * -R4(10,6)*FOUR-R4(8,30)*FOUR+R3(6,1)*TWO+R3(6,3)*TWO+R3(4,27)*TWO
     * +R3(6,27)*TWO+R3(4,31)*TWO-R2(5,21)*FOUR+R1(1,1)*TWO+R1(1,5)*TWO)
     * *QX+(+R7(19,4)*TWO-R6(13,6)*FOUR+R5(8,6)*TWO+R5(10,6)*TWO
     * +R5(8,8)*TWO+R5(19,22)*TWO-R4(6,7)*FOUR-R4(13,31)*FOUR
     * +R3(3,2)*TWO+R3(3,4)*TWO+R3(8,28)*TWO+R3(10,28)*TWO+R3(8,32)*TWO
     * -R2(3,22)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)*QZ
      F(1,3,3,2)= F(1,3,3,2)+(+R6(26,10)
     * -R5(19,14)*TWO+R4(13,15)+R4(15,15)+R4(13,19)+R4(13,39)
     * -R3(10,12)*TWO-R3(8,44)*TWO+R2(3,2)+R2(3,6)+R2(2,38)+R2(3,38)
     * +R2(2,43)-R1(3,22)*TWO+R0(2)+R0(7))*XX+(+R6(19,11)*FOUR
     * -R5(13,15)*EIGHT+R4(8,16)*FOUR+R4(10,16)*FOUR+R4(8,20)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R6(13,12)
     * -R5(8,16)*TWO+R4(4,17)+R4(6,17)+R4(4,21)+R4(13,41)-R3(3,14)*TWO
     * -R3(8,46)*TWO+R2(1,4)+R2(1,8)+R2(2,40)+R2(3,40)+R2(2,45)
     * -R1(3,24)*TWO+R0(4)+R0(9))*ZZ+(+R5(19,23)*TWO-R4(13,32)*FOUR
     * +R3(8,29)*TWO+R3(10,29)*TWO+R3(8,33)*TWO-R2(3,23)*FOUR
     * +R1(3,3)*TWO+R1(3,7)*TWO)*XXZ+(+R5(13,24)*TWO-R4(8,33)*FOUR
     * +R3(4,30)*TWO+R3(6,30)*TWO+R3(4,34)*TWO-R2(5,24)*FOUR+R1(1,4)*TWO
     * +R1(1,8)*TWO)*XZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(2,3,3,2)= R8(41)-R7(32,1)*TWO+R6(24,1)+R6(26,1)+R6(24,2)
     * +R6(24,9)+R6(26,9)-R5(19,1)*TWO-R5(17,13)*TWO-R5(19,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(11,14)+R4(13,14)*TWO+R4(15,14)+R4(11,18)
     * +R4(13,18)+R4(13,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(32,4)*TWO-R6(24,6)*FOUR
     * +R5(17,6)*TWO+R5(19,6)*TWO+R5(17,8)*TWO+R5(19,22)*TWO
     * -R4(13,7)*FOUR-R4(13,31)*FOUR+R3(8,2)*TWO+R3(8,4)*TWO
     * +R3(8,28)*TWO+R3(10,28)*TWO+R3(8,32)*TWO-R2(3,22)*FOUR
     * +R1(3,2)*TWO+R1(3,6)*TWO)*QZ+(+R6(24,12)-R5(17,16)*TWO+R4(11,17)
     * +R4(13,17)+R4(11,21)+R4(13,41)-R3(8,14)*TWO-R3(8,46)*TWO+R2(2,4)
     * +R2(2,8)+R2(2,40)+R2(3,40)+R2(2,45)-R1(3,24)*TWO+R0(4)+R0(9))*ZZ
      F(3,3,3,2)= R8(43)-R7(34,1)*TWO+R6(26,1)+R6(28,1)+R6(26,2)
     * +R6(26,9)*SIX-R5(21,1)*TWO-R5(19,13)*TWELV+R4(15,1)+R4(15,2)
     * +R4(13,14)*SIX+R4(15,14)*SIX+R4(13,18)*SIX+R4(13,38)*THREE
     * -R3(10,11)*TWELV-R3(8,43)*SIX+R2(3,1)*SIX+R2(3,5)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,42)*THREE-R1(3,21)*SIX
     * +R0(1)*THREE+R0(6)*THREE+(+R7(34,3)*TWO+R7(34,4)*TWO
     * -R6(26,5)*FOUR-R6(26,6)*FOUR+R5(19,5)*TWO+R5(21,5)*TWO
     * +R5(19,6)*TWO+R5(21,6)*TWO+R5(19,7)*TWO+R5(19,8)*TWO
     * +R5(19,21)*SIX+R5(19,22)*SIX-R4(15,6)*FOUR-R4(15,7)*FOUR
     * -R4(13,30)*TWELV-R4(13,31)*TWELV+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,3)*TWO+R3(10,4)*TWO+R3(8,27)*SIX+R3(10,27)*SIX
     * +R3(8,28)*SIX+R3(10,28)*SIX+R3(8,31)*SIX+R3(8,32)*SIX
     * -R2(3,21)*TWELV-R2(3,22)*TWELV+R1(3,1)*SIX+R1(3,2)*SIX
     * +R1(3,5)*SIX+R1(3,6)*SIX)*QZ
      F(3,3,3,2)= F(3,3,3,2)+(+R6(26,10)+R6(26,11)*FOUR+R6(26,12)
     * -R5(19,14)*TWO-R5(19,15)*EIGHT-R5(19,16)*TWO+R4(13,15)+R4(15,15)
     * +R4(13,16)*FOUR+R4(15,16)*FOUR+R4(13,17)+R4(15,17)+R4(13,19)
     * +R4(13,20)*FOUR+R4(13,21)+R4(13,39)+R4(13,40)*FOUR+R4(13,41)
     * -R3(10,12)*TWO-R3(10,13)*EIGHT-R3(10,14)*TWO-R3(8,44)*TWO
     * -R3(8,45)*EIGHT-R3(8,46)*TWO+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(3,6)
     * +R2(3,7)*FOUR+R2(3,8)+R2(2,38)+R2(3,38)+R2(2,39)*FOUR
     * +R2(3,39)*FOUR+R2(2,40)+R2(3,40)+R2(2,43)+R2(2,44)*FOUR+R2(2,45)
     * -R1(3,22)*TWO-R1(3,23)*EIGHT-R1(3,24)*TWO+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(7)+R0(8)*FOUR+R0(9))*ZZ+(+R5(19,23)*TWO+R5(19,24)*TWO
     * -R4(13,32)*FOUR-R4(13,33)*FOUR+R3(8,29)*TWO+R3(10,29)*TWO
     * +R3(8,30)*TWO+R3(10,30)*TWO+R3(8,33)*TWO+R3(8,34)*TWO
     * -R2(3,23)*FOUR-R2(3,24)*FOUR+R1(3,3)*TWO+R1(3,4)*TWO+R1(3,7)*TWO
     * +R1(3,8)*TWO)*ZZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,46)-R1(3,25)*TWO+R0(5)+R0(10))*ZZZZ
      F(4,3,3,2)= R8(33)-R7(25,1)*TWO+R6(18,1)+R6(20,1)+R6(18,2)
     * +R6(18,9)-R5(14,1)*TWO-R5(12,13)*TWO+R4(9,1)+R4(9,2)+R4(7,14)
     * +R4(9,14)+R4(7,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(33,3)
     * -R6(25,5)*TWO+R5(18,5)+R5(20,5)+R5(18,7)+R5(18,21)-R4(14,6)*TWO
     * -R4(12,30)*TWO+R3(9,1)+R3(9,3)+R3(7,27)+R3(9,27)+R3(7,31)
     * -R2(6,21)*TWO+R1(2,1)+R1(2,5))*QX+(+R7(25,4)*TWO-R6(18,6)*FOUR
     * +R5(12,6)*TWO+R5(14,6)*TWO+R5(12,8)*TWO-R4(9,7)*FOUR+R3(5,2)*TWO
     * +R3(5,4)*TWO)*QZ+(+R6(25,11)*TWO-R5(18,15)*FOUR+R4(12,16)*TWO
     * +R4(14,16)*TWO+R4(12,20)*TWO-R3(9,13)*FOUR+R2(6,3)*TWO
     * +R2(6,7)*TWO)*XZ+(+R6(18,12)-R5(12,16)*TWO+R4(7,17)+R4(9,17)
     * +R4(7,21)-R3(5,14)*TWO+R2(4,4)+R2(4,8))*ZZ+(+R5(18,24)
     * -R4(12,33)*TWO+R3(7,30)+R3(9,30)+R3(7,34)-R2(6,24)*TWO+R1(2,4)
     * +R1(2,8))*XZZ
      F(5,3,3,2)= R8(34)-R7(26,1)*TWO+R6(19,1)+R6(21,1)+R6(19,2)
     * +R6(19,9)*THREE-R5(15,1)*TWO-R5(13,13)*SIX+R4(10,1)+R4(10,2)
     * +R4(8,14)*THREE+R4(10,14)*THREE+R4(8,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(34,3)-R6(26,5)*TWO+R5(19,5)
     * +R5(21,5)+R5(19,7)+R5(19,21)*THREE-R4(15,6)*TWO-R4(13,30)*SIX
     * +R3(10,1)+R3(10,3)+R3(8,27)*THREE+R3(10,27)*THREE+R3(8,31)*THREE
     * -R2(3,21)*SIX+R1(3,1)*THREE+R1(3,5)*THREE)*QX+(+R7(26,3)
     * +R7(26,4)*TWO-R6(19,5)*TWO-R6(19,6)*FOUR+R5(13,5)+R5(15,5)
     * +R5(13,6)*TWO+R5(15,6)*TWO+R5(13,7)+R5(13,8)*TWO+R5(13,21)
     * +R5(13,22)*TWO-R4(10,6)*TWO-R4(10,7)*FOUR-R4(8,30)*TWO
     * -R4(8,31)*FOUR+R3(6,1)+R3(6,2)*TWO+R3(6,3)+R3(6,4)*TWO+R3(4,27)
     * +R3(6,27)+R3(4,28)*TWO+R3(6,28)*TWO+R3(4,31)+R3(4,32)*TWO
     * -R2(5,21)*TWO-R2(5,22)*FOUR+R1(1,1)+R1(1,2)*TWO+R1(1,5)
     * +R1(1,6)*TWO)*QZ
      F(5,3,3,2)= F(5,3,3,2)+(+R6(26,10)+R6(26,11)*TWO-R5(19,14)*TWO
     * -R5(19,15)*FOUR+R4(13,15)+R4(15,15)+R4(13,16)*TWO+R4(15,16)*TWO
     * +R4(13,19)+R4(13,20)*TWO+R4(13,39)+R4(13,40)*TWO-R3(10,12)*TWO
     * -R3(10,13)*FOUR-R3(8,44)*TWO-R3(8,45)*FOUR+R2(3,2)+R2(3,3)*TWO
     * +R2(3,6)+R2(3,7)*TWO+R2(2,38)+R2(3,38)+R2(2,39)*TWO+R2(3,39)*TWO
     * +R2(2,43)+R2(2,44)*TWO-R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO
     * +R0(7)+R0(8)*TWO)*XZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*FOUR
     * -R5(13,16)*TWO+R4(8,16)*TWO+R4(10,16)*TWO+R4(8,17)+R4(10,17)
     * +R4(8,20)*TWO+R4(8,21)-R3(6,13)*FOUR-R3(6,14)*TWO+R2(5,3)*TWO
     * +R2(5,4)+R2(5,7)*TWO+R2(5,8))*ZZ+(+R5(19,23)*TWO+R5(19,24)
     * -R4(13,32)*FOUR-R4(13,33)*TWO+R3(8,29)*TWO+R3(10,29)*TWO+R3(8,30)
     * +R3(10,30)+R3(8,33)*TWO+R3(8,34)-R2(3,23)*FOUR-R2(3,24)*TWO
     * +R1(3,3)*TWO+R1(3,4)+R1(3,7)*TWO+R1(3,8))*XZZ+(+R5(13,24)
     * -R4(8,33)*TWO+R3(4,30)+R3(6,30)+R3(4,34)-R2(5,24)*TWO+R1(1,4)
     * +R1(1,8))*ZZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)+R2(2,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(6,3,3,2)= R8(42)-R7(33,1)*TWO+R6(25,1)+R6(27,1)+R6(25,2)
     * +R6(25,9)*THREE-R5(20,1)*TWO-R5(18,13)*SIX+R4(14,1)+R4(14,2)
     * +R4(12,14)*THREE+R4(14,14)*THREE+R4(12,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(33,3)+R7(33,4)*TWO-R6(25,5)*TWO
     * -R6(25,6)*FOUR+R5(18,5)+R5(20,5)+R5(18,6)*TWO+R5(20,6)*TWO
     * +R5(18,7)+R5(18,8)*TWO+R5(18,21)+R5(18,22)*TWO-R4(14,6)*TWO
     * -R4(14,7)*FOUR-R4(12,30)*TWO-R4(12,31)*FOUR+R3(9,1)+R3(9,2)*TWO
     * +R3(9,3)+R3(9,4)*TWO+R3(7,27)+R3(9,27)+R3(7,28)*TWO+R3(9,28)*TWO
     * +R3(7,31)+R3(7,32)*TWO-R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)
     * +R1(2,2)*TWO+R1(2,5)+R1(2,6)*TWO)*QZ+(+R6(25,11)*TWO+R6(25,12)
     * -R5(18,15)*FOUR-R5(18,16)*TWO+R4(12,16)*TWO+R4(14,16)*TWO
     * +R4(12,17)+R4(14,17)+R4(12,20)*TWO+R4(12,21)-R3(9,13)*FOUR
     * -R3(9,14)*TWO+R2(6,3)*TWO+R2(6,4)+R2(6,7)*TWO+R2(6,8))*ZZ+(
     * +R5(18,24)-R4(12,33)*TWO+R3(7,30)+R3(9,30)+R3(7,34)-R2(6,24)*TWO
     * +R1(2,4)+R1(2,8))*ZZZ
      F(1,4,3,2)= R8(18)-R7(12,1)*TWO+R6(7,1)+R6(9,1)+R6(7,2)
     * +R6(18,9)*THREE-R5(5,1)*TWO-R5(12,13)*SIX+R4(2,1)+R4(2,2)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(18,3)*TWO+R7(18,4)
     * -R6(12,5)*FOUR-R6(12,6)*TWO+R5(7,5)*TWO+R5(9,5)*TWO+R5(7,6)
     * +R5(9,6)+R5(7,7)*TWO+R5(7,8)+R5(18,21)*TWO+R5(18,22)-R4(5,6)*FOUR
     * -R4(5,7)*TWO-R4(12,30)*FOUR-R4(12,31)*TWO+R3(2,1)*TWO+R3(2,2)
     * +R3(2,3)*TWO+R3(2,4)+R3(7,27)*TWO+R3(9,27)*TWO+R3(7,28)+R3(9,28)
     * +R3(7,31)*TWO+R3(7,32)-R2(6,21)*FOUR-R2(6,22)*TWO+R1(2,1)*TWO
     * +R1(2,2)+R1(2,5)*TWO+R1(2,6))*QX+(+R6(18,10)+R6(18,11)*TWO
     * -R5(12,14)*TWO-R5(12,15)*FOUR+R4(7,15)+R4(9,15)+R4(7,16)*TWO
     * +R4(9,16)*TWO+R4(7,19)+R4(7,20)*TWO-R3(5,12)*TWO-R3(5,13)*FOUR
     * +R2(4,2)+R2(4,3)*TWO+R2(4,6)+R2(4,7)*TWO)*XX+(+R5(18,23)
     * -R4(12,32)*TWO+R3(7,29)+R3(9,29)+R3(7,33)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XXX
      F(2,4,3,2)= R8(31)-R7(23,1)*TWO+R6(16,1)+R6(18,1)+R6(16,2)
     * +R6(18,9)*THREE-R5(12,1)*TWO-R5(12,13)*SIX+R4(7,1)+R4(7,2)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,18)*THREE-R3(5,11)*SIX
     * +R2(4,1)*THREE+R2(4,5)*THREE+(+R7(31,4)-R6(23,6)*TWO+R5(16,6)
     * +R5(18,6)+R5(16,8)+R5(18,22)*THREE-R4(12,7)*TWO-R4(12,31)*SIX
     * +R3(7,2)+R3(7,4)+R3(7,28)*THREE+R3(9,28)*THREE+R3(7,32)*THREE
     * -R2(6,22)*SIX+R1(2,2)*THREE+R1(2,6)*THREE)*QX
      F(3,4,3,2)= R8(33)-R7(25,1)*TWO+R6(18,1)+R6(20,1)+R6(18,2)
     * +R6(18,9)-R5(14,1)*TWO-R5(12,13)*TWO+R4(9,1)+R4(9,2)+R4(7,14)
     * +R4(9,14)+R4(7,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(33,4)
     * -R6(25,6)*TWO+R5(18,6)+R5(20,6)+R5(18,8)+R5(18,22)-R4(14,7)*TWO
     * -R4(12,31)*TWO+R3(9,2)+R3(9,4)+R3(7,28)+R3(9,28)+R3(7,32)
     * -R2(6,22)*TWO+R1(2,2)+R1(2,6))*QX+(+R7(25,3)*TWO-R6(18,5)*FOUR
     * +R5(12,5)*TWO+R5(14,5)*TWO+R5(12,7)*TWO-R4(9,6)*FOUR+R3(5,1)*TWO
     * +R3(5,3)*TWO)*QZ+(+R6(25,11)*TWO-R5(18,15)*FOUR+R4(12,16)*TWO
     * +R4(14,16)*TWO+R4(12,20)*TWO-R3(9,13)*FOUR+R2(6,3)*TWO
     * +R2(6,7)*TWO)*XZ+(+R6(18,10)-R5(12,14)*TWO+R4(7,15)+R4(9,15)
     * +R4(7,19)-R3(5,12)*TWO+R2(4,2)+R2(4,6))*ZZ+(+R5(18,23)
     * -R4(12,32)*TWO+R3(7,29)+R3(9,29)+R3(7,33)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XZZ
      F(4,4,3,2)= R8(24)-R7(17,1)*TWO+R6(11,1)+R6(13,1)+R6(11,2)
     * +R6(13,9)+R6(24,9)-R5(8,1)*TWO-R5(8,13)*TWO-R5(17,13)*TWO+R4(4,1)
     * +R4(4,2)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,18)+R4(11,18)
     * +R4(13,38)-R3(3,11)*TWO-R3(8,11)*TWO-R3(8,43)*TWO+R2(1,1)+R2(2,1)
     * +R2(1,5)+R2(2,5)+R2(2,37)+R2(3,37)+R2(2,42)-R1(3,21)*TWO+R0(1)
     * +R0(6)+(+R7(24,3)+R7(24,4)-R6(17,5)*TWO-R6(17,6)*TWO+R5(11,5)
     * +R5(13,5)+R5(11,6)+R5(13,6)+R5(11,7)+R5(11,8)+R5(13,21)+R5(13,22)
     * -R4(8,6)*TWO-R4(8,7)*TWO-R4(8,30)*TWO-R4(8,31)*TWO+R3(4,1)
     * +R3(4,2)+R3(4,3)+R3(4,4)+R3(4,27)+R3(6,27)+R3(4,28)+R3(6,28)
     * +R3(4,31)+R3(4,32)-R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)
     * +R1(1,5)+R1(1,6))*QX+(+R6(24,11)-R5(17,15)*TWO+R4(11,16)
     * +R4(13,16)+R4(11,20)+R4(13,40)-R3(8,13)*TWO-R3(8,45)*TWO+R2(2,3)
     * +R2(2,7)+R2(2,39)+R2(3,39)+R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*XX
      F(5,4,3,2)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(14,1)+R6(12,2)
     * +R6(25,9)-R5(9,1)*TWO-R5(18,13)*TWO+R4(5,1)+R4(5,2)+R4(12,14)
     * +R4(14,14)+R4(12,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(25,3)
     * +R7(25,4)-R6(18,5)*TWO-R6(18,6)*TWO+R5(12,5)+R5(14,5)+R5(12,6)
     * +R5(14,6)+R5(12,7)+R5(12,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)
     * +R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R7(18,3)-R6(12,5)*TWO+R5(7,5)
     * +R5(9,5)+R5(7,7)+R5(18,21)-R4(5,6)*TWO-R4(12,30)*TWO+R3(2,1)
     * +R3(2,3)+R3(7,27)+R3(9,27)+R3(7,31)-R2(6,21)*TWO+R1(2,1)+R1(2,5))
     * *QZ+(+R6(25,11)-R5(18,15)*TWO+R4(12,16)+R4(14,16)+R4(12,20)
     * -R3(9,13)*TWO+R2(6,3)+R2(6,7))*XX+(+R6(18,10)+R6(18,11)
     * -R5(12,14)*TWO-R5(12,15)*TWO+R4(7,15)+R4(9,15)+R4(7,16)+R4(9,16)
     * +R4(7,19)+R4(7,20)-R3(5,12)*TWO-R3(5,13)*TWO+R2(4,2)+R2(4,3)
     * +R2(4,6)+R2(4,7))*XZ+(+R5(18,23)-R4(12,32)*TWO+R3(7,29)+R3(9,29)
     * +R3(7,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XXZ
      F(6,4,3,2)= R8(32)-R7(24,1)*TWO+R6(17,1)+R6(19,1)+R6(17,2)
     * +R6(19,9)-R5(13,1)*TWO-R5(13,13)*TWO+R4(8,1)+R4(8,2)+R4(8,14)
     * +R4(10,14)+R4(8,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(32,4)
     * -R6(24,6)*TWO+R5(17,6)+R5(19,6)+R5(17,8)+R5(19,22)-R4(13,7)*TWO
     * -R4(13,31)*TWO+R3(8,2)+R3(8,4)+R3(8,28)+R3(10,28)+R3(8,32)
     * -R2(3,22)*TWO+R1(3,2)+R1(3,6))*QX+(+R7(24,3)-R6(17,5)*TWO
     * +R5(11,5)+R5(13,5)+R5(11,7)+R5(13,21)-R4(8,6)*TWO-R4(8,30)*TWO
     * +R3(4,1)+R3(4,3)+R3(4,27)+R3(6,27)+R3(4,31)-R2(5,21)*TWO+R1(1,1)
     * +R1(1,5))*QZ+(+R6(24,11)-R5(17,15)*TWO+R4(11,16)+R4(13,16)
     * +R4(11,20)+R4(13,40)-R3(8,13)*TWO-R3(8,45)*TWO+R2(2,3)+R2(2,7)
     * +R2(2,39)+R2(3,39)+R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(1,5,3,2)= R8(19)-R7(13,1)*TWO+R6(8,1)+R6(10,1)+R6(8,2)
     * +R6(19,9)*THREE-R5(6,1)*TWO-R5(13,13)*SIX+R4(3,1)+R4(3,2)
     * +R4(8,14)*THREE+R4(10,14)*THREE+R4(8,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(19,3)*TWO+R7(19,4)
     * -R6(13,5)*FOUR-R6(13,6)*TWO+R5(8,5)*TWO+R5(10,5)*TWO+R5(8,6)
     * +R5(10,6)+R5(8,7)*TWO+R5(8,8)+R5(19,21)*TWO+R5(19,22)
     * -R4(6,6)*FOUR-R4(6,7)*TWO-R4(13,30)*FOUR-R4(13,31)*TWO
     * +R3(3,1)*TWO+R3(3,2)+R3(3,3)*TWO+R3(3,4)+R3(8,27)*TWO
     * +R3(10,27)*TWO+R3(8,28)+R3(10,28)+R3(8,31)*TWO+R3(8,32)
     * -R2(3,21)*FOUR-R2(3,22)*TWO+R1(3,1)*TWO+R1(3,2)+R1(3,5)*TWO
     * +R1(3,6))*QX+(+R7(13,4)-R6(8,6)*TWO+R5(4,6)+R5(6,6)+R5(4,8)
     * +R5(13,22)*THREE-R4(3,7)*TWO-R4(8,31)*SIX+R3(1,2)+R3(1,4)
     * +R3(4,28)*THREE+R3(6,28)*THREE+R3(4,32)*THREE-R2(5,22)*SIX
     * +R1(1,2)*THREE+R1(1,6)*THREE)*QZ
      F(1,5,3,2)= F(1,5,3,2)+(+R6(19,10)+R6(19,11)*TWO
     * -R5(13,14)*TWO-R5(13,15)*FOUR+R4(8,15)+R4(10,15)+R4(8,16)*TWO
     * +R4(10,16)*TWO+R4(8,19)+R4(8,20)*TWO-R3(6,12)*TWO-R3(6,13)*FOUR
     * +R2(5,2)+R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*XX+(+R6(13,11)*TWO
     * +R6(13,12)-R5(8,15)*FOUR-R5(8,16)*TWO+R4(4,16)*TWO+R4(6,16)*TWO
     * +R4(4,17)+R4(6,17)+R4(4,20)*TWO+R4(4,21)+R4(13,40)*TWO+R4(13,41)
     * -R3(3,13)*FOUR-R3(3,14)*TWO-R3(8,45)*FOUR-R3(8,46)*TWO
     * +R2(1,3)*TWO+R2(1,4)+R2(1,7)*TWO+R2(1,8)+R2(2,39)*TWO
     * +R2(3,39)*TWO+R2(2,40)+R2(3,40)+R2(2,44)*TWO+R2(2,45)
     * -R1(3,23)*FOUR-R1(3,24)*TWO+R0(3)*TWO+R0(4)+R0(8)*TWO+R0(9))*XZ+(
     * +R5(19,23)-R4(13,32)*TWO+R3(8,29)+R3(10,29)+R3(8,33)-R2(3,23)*TWO
     * +R1(3,3)+R1(3,7))*XXX+(+R5(13,23)+R5(13,24)*TWO-R4(8,32)*TWO
     * -R4(8,33)*FOUR+R3(4,29)+R3(6,29)+R3(4,30)*TWO+R3(6,30)*TWO
     * +R3(4,33)+R3(4,34)*TWO-R2(5,23)*TWO-R2(5,24)*FOUR+R1(1,3)
     * +R1(1,4)*TWO+R1(1,7)+R1(1,8)*TWO)*XXZ+(+R4(13,42)-R3(8,47)*TWO
     * +R2(2,41)+R2(3,41)+R2(2,46)-R1(3,25)*TWO+R0(5)+R0(10))*XXXZ
      F(2,5,3,2)= R8(32)-R7(24,1)*TWO+R6(17,1)+R6(19,1)+R6(17,2)
     * +R6(19,9)-R5(13,1)*TWO-R5(13,13)*TWO+R4(8,1)+R4(8,2)+R4(8,14)
     * +R4(10,14)+R4(8,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(32,4)
     * -R6(24,6)*TWO+R5(17,6)+R5(19,6)+R5(17,8)+R5(19,22)-R4(13,7)*TWO
     * -R4(13,31)*TWO+R3(8,2)+R3(8,4)+R3(8,28)+R3(10,28)+R3(8,32)
     * -R2(3,22)*TWO+R1(3,2)+R1(3,6))*QX+(+R7(24,4)-R6(17,6)*TWO
     * +R5(11,6)+R5(13,6)+R5(11,8)+R5(13,22)-R4(8,7)*TWO-R4(8,31)*TWO
     * +R3(4,2)+R3(4,4)+R3(4,28)+R3(6,28)+R3(4,32)-R2(5,22)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R6(24,12)-R5(17,16)*TWO+R4(11,17)+R4(13,17)
     * +R4(11,21)+R4(13,41)-R3(8,14)*TWO-R3(8,46)*TWO+R2(2,4)+R2(2,8)
     * +R2(2,40)+R2(3,40)+R2(2,45)-R1(3,24)*TWO+R0(4)+R0(9))*XZ
      F(3,5,3,2)= R8(34)-R7(26,1)*TWO+R6(19,1)+R6(21,1)+R6(19,2)
     * +R6(19,9)*THREE-R5(15,1)*TWO-R5(13,13)*SIX+R4(10,1)+R4(10,2)
     * +R4(8,14)*THREE+R4(10,14)*THREE+R4(8,18)*THREE-R3(6,11)*SIX
     * +R2(5,1)*THREE+R2(5,5)*THREE+(+R7(34,4)-R6(26,6)*TWO+R5(19,6)
     * +R5(21,6)+R5(19,8)+R5(19,22)*THREE-R4(15,7)*TWO-R4(13,31)*SIX
     * +R3(10,2)+R3(10,4)+R3(8,28)*THREE+R3(10,28)*THREE+R3(8,32)*THREE
     * -R2(3,22)*SIX+R1(3,2)*THREE+R1(3,6)*THREE)*QX+(+R7(26,3)*TWO
     * +R7(26,4)-R6(19,5)*FOUR-R6(19,6)*TWO+R5(13,5)*TWO+R5(15,5)*TWO
     * +R5(13,6)+R5(15,6)+R5(13,7)*TWO+R5(13,8)+R5(13,21)*TWO+R5(13,22)
     * -R4(10,6)*FOUR-R4(10,7)*TWO-R4(8,30)*FOUR-R4(8,31)*TWO
     * +R3(6,1)*TWO+R3(6,2)+R3(6,3)*TWO+R3(6,4)+R3(4,27)*TWO
     * +R3(6,27)*TWO+R3(4,28)+R3(6,28)+R3(4,31)*TWO+R3(4,32)
     * -R2(5,21)*FOUR-R2(5,22)*TWO+R1(1,1)*TWO+R1(1,2)+R1(1,5)*TWO
     * +R1(1,6))*QZ
      F(3,5,3,2)= F(3,5,3,2)+(+R6(26,11)*TWO+R6(26,12)-R5(19,15)*FOUR
     * -R5(19,16)*TWO+R4(13,16)*TWO+R4(15,16)*TWO+R4(13,17)+R4(15,17)
     * +R4(13,20)*TWO+R4(13,21)+R4(13,40)*TWO+R4(13,41)-R3(10,13)*FOUR
     * -R3(10,14)*TWO-R3(8,45)*FOUR-R3(8,46)*TWO+R2(3,3)*TWO+R2(3,4)
     * +R2(3,7)*TWO+R2(3,8)+R2(2,39)*TWO+R2(3,39)*TWO+R2(2,40)+R2(3,40)
     * +R2(2,44)*TWO+R2(2,45)-R1(3,23)*FOUR-R1(3,24)*TWO+R0(3)*TWO+R0(4)
     * +R0(8)*TWO+R0(9))*XZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)*TWO
     * -R5(13,15)*FOUR+R4(8,15)+R4(10,15)+R4(8,16)*TWO+R4(10,16)*TWO
     * +R4(8,19)+R4(8,20)*TWO-R3(6,12)*TWO-R3(6,13)*FOUR+R2(5,2)
     * +R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*ZZ+(+R5(19,23)+R5(19,24)*TWO
     * -R4(13,32)*TWO-R4(13,33)*FOUR+R3(8,29)+R3(10,29)+R3(8,30)*TWO
     * +R3(10,30)*TWO+R3(8,33)+R3(8,34)*TWO-R2(3,23)*TWO-R2(3,24)*FOUR
     * +R1(3,3)+R1(3,4)*TWO+R1(3,7)+R1(3,8)*TWO)*XZZ+(+R5(13,23)
     * -R4(8,32)*TWO+R3(4,29)+R3(6,29)+R3(4,33)-R2(5,23)*TWO+R1(1,3)
     * +R1(1,7))*ZZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)+R2(2,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(4,5,3,2)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(14,1)+R6(12,2)
     * +R6(25,9)-R5(9,1)*TWO-R5(18,13)*TWO+R4(5,1)+R4(5,2)+R4(12,14)
     * +R4(14,14)+R4(12,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(25,3)
     * +R7(25,4)-R6(18,5)*TWO-R6(18,6)*TWO+R5(12,5)+R5(14,5)+R5(12,6)
     * +R5(14,6)+R5(12,7)+R5(12,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)
     * +R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R7(18,4)-R6(12,6)*TWO+R5(7,6)
     * +R5(9,6)+R5(7,8)+R5(18,22)-R4(5,7)*TWO-R4(12,31)*TWO+R3(2,2)
     * +R3(2,4)+R3(7,28)+R3(9,28)+R3(7,32)-R2(6,22)*TWO+R1(2,2)+R1(2,6))
     * *QZ+(+R6(25,11)-R5(18,15)*TWO+R4(12,16)+R4(14,16)+R4(12,20)
     * -R3(9,13)*TWO+R2(6,3)+R2(6,7))*XX+(+R6(18,11)+R6(18,12)
     * -R5(12,15)*TWO-R5(12,16)*TWO+R4(7,16)+R4(9,16)+R4(7,17)+R4(9,17)
     * +R4(7,20)+R4(7,21)-R3(5,13)*TWO-R3(5,14)*TWO+R2(4,3)+R2(4,4)
     * +R2(4,7)+R2(4,8))*XZ+(+R5(18,24)-R4(12,33)*TWO+R3(7,30)+R3(9,30)
     * +R3(7,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXZ
      F(5,5,3,2)= R8(26)-R7(19,1)*TWO+R6(13,1)+R6(15,1)+R6(13,2)
     * +R6(13,9)+R6(26,9)-R5(10,1)*TWO-R5(8,13)*TWO-R5(19,13)*TWO
     * +R4(6,1)+R4(6,2)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,18)
     * +R4(13,18)+R4(13,38)-R3(3,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(1,1)+R2(3,1)+R2(1,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(26,3)+R7(26,4)-R6(19,5)*TWO
     * -R6(19,6)*TWO+R5(13,5)+R5(15,5)+R5(13,6)+R5(15,6)+R5(13,7)
     * +R5(13,8)+R5(13,21)+R5(13,22)-R4(10,6)*TWO-R4(10,7)*TWO
     * -R4(8,30)*TWO-R4(8,31)*TWO+R3(6,1)+R3(6,2)+R3(6,3)+R3(6,4)
     * +R3(4,27)+R3(6,27)+R3(4,28)+R3(6,28)+R3(4,31)+R3(4,32)
     * -R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)+R1(1,5)+R1(1,6))*QX+(
     * +R7(19,3)+R7(19,4)-R6(13,5)*TWO-R6(13,6)*TWO+R5(8,5)+R5(10,5)
     * +R5(8,6)+R5(10,6)+R5(8,7)+R5(8,8)+R5(19,21)+R5(19,22)-R4(6,6)*TWO
     * -R4(6,7)*TWO-R4(13,30)*TWO-R4(13,31)*TWO+R3(3,1)+R3(3,2)+R3(3,3)
     * +R3(3,4)+R3(8,27)+R3(10,27)+R3(8,28)+R3(10,28)+R3(8,31)+R3(8,32)
     * -R2(3,21)*TWO-R2(3,22)*TWO+R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ
      F(5,5,3,2)= F(5,5,3,2)+(
     * +R6(26,11)-R5(19,15)*TWO+R4(13,16)+R4(15,16)+R4(13,20)+R4(13,40)
     * -R3(10,13)*TWO-R3(8,45)*TWO+R2(3,3)+R2(3,7)+R2(2,39)+R2(3,39)
     * +R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*XX+(+R6(19,10)+R6(19,11)*TWO
     * +R6(19,12)-R5(13,14)*TWO-R5(13,15)*FOUR-R5(13,16)*TWO+R4(8,15)
     * +R4(10,15)+R4(8,16)*TWO+R4(10,16)*TWO+R4(8,17)+R4(10,17)+R4(8,19)
     * +R4(8,20)*TWO+R4(8,21)-R3(6,12)*TWO-R3(6,13)*FOUR-R3(6,14)*TWO
     * +R2(5,2)+R2(5,3)*TWO+R2(5,4)+R2(5,6)+R2(5,7)*TWO+R2(5,8))*XZ+(
     * +R6(13,11)-R5(8,15)*TWO+R4(4,16)+R4(6,16)+R4(4,20)+R4(13,40)
     * -R3(3,13)*TWO-R3(8,45)*TWO+R2(1,3)+R2(1,7)+R2(2,39)+R2(3,39)
     * +R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*ZZ+(+R5(19,23)+R5(19,24)
     * -R4(13,32)*TWO-R4(13,33)*TWO+R3(8,29)+R3(10,29)+R3(8,30)
     * +R3(10,30)+R3(8,33)+R3(8,34)-R2(3,23)*TWO-R2(3,24)*TWO+R1(3,3)
     * +R1(3,4)+R1(3,7)+R1(3,8))*XXZ+(+R5(13,23)+R5(13,24)-R4(8,32)*TWO
     * -R4(8,33)*TWO+R3(4,29)+R3(6,29)+R3(4,30)+R3(6,30)+R3(4,33)
     * +R3(4,34)-R2(5,23)*TWO-R2(5,24)*TWO+R1(1,3)+R1(1,4)+R1(1,7)
     * +R1(1,8))*XZZ+(+R4(13,42)-R3(8,47)*TWO+R2(2,41)+R2(3,41)+R2(2,46)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(6,5,3,2)= R8(33)-R7(25,1)*TWO+R6(18,1)+R6(20,1)+R6(18,2)
     * +R6(18,9)-R5(14,1)*TWO-R5(12,13)*TWO+R4(9,1)+R4(9,2)+R4(7,14)
     * +R4(9,14)+R4(7,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(33,4)
     * -R6(25,6)*TWO+R5(18,6)+R5(20,6)+R5(18,8)+R5(18,22)-R4(14,7)*TWO
     * -R4(12,31)*TWO+R3(9,2)+R3(9,4)+R3(7,28)+R3(9,28)+R3(7,32)
     * -R2(6,22)*TWO+R1(2,2)+R1(2,6))*QX+(+R7(25,3)+R7(25,4)
     * -R6(18,5)*TWO-R6(18,6)*TWO+R5(12,5)+R5(14,5)+R5(12,6)+R5(14,6)
     * +R5(12,7)+R5(12,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)+R3(5,2)
     * +R3(5,3)+R3(5,4))*QZ+(+R6(25,11)+R6(25,12)-R5(18,15)*TWO
     * -R5(18,16)*TWO+R4(12,16)+R4(14,16)+R4(12,17)+R4(14,17)+R4(12,20)
     * +R4(12,21)-R3(9,13)*TWO-R3(9,14)*TWO+R2(6,3)+R2(6,4)+R2(6,7)
     * +R2(6,8))*XZ+(+R6(18,11)-R5(12,15)*TWO+R4(7,16)+R4(9,16)+R4(7,20)
     * -R3(5,13)*TWO+R2(4,3)+R2(4,7))*ZZ+(+R5(18,24)-R4(12,33)*TWO
     * +R3(7,30)+R3(9,30)+R3(7,34)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XZZ
      F(1,6,3,2)= R8(25)-R7(18,1)*TWO+R6(12,1)+R6(14,1)+R6(12,2)
     * +R6(25,9)-R5(9,1)*TWO-R5(18,13)*TWO+R4(5,1)+R4(5,2)+R4(12,14)
     * +R4(14,14)+R4(12,18)-R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R7(25,3)*TWO
     * -R6(18,5)*FOUR+R5(12,5)*TWO+R5(14,5)*TWO+R5(12,7)*TWO
     * -R4(9,6)*FOUR+R3(5,1)*TWO+R3(5,3)*TWO)*QX+(+R7(18,4)-R6(12,6)*TWO
     * +R5(7,6)+R5(9,6)+R5(7,8)+R5(18,22)-R4(5,7)*TWO-R4(12,31)*TWO
     * +R3(2,2)+R3(2,4)+R3(7,28)+R3(9,28)+R3(7,32)-R2(6,22)*TWO+R1(2,2)
     * +R1(2,6))*QZ+(+R6(25,10)-R5(18,14)*TWO+R4(12,15)+R4(14,15)
     * +R4(12,19)-R3(9,12)*TWO+R2(6,2)+R2(6,6))*XX+(+R6(18,11)*TWO
     * -R5(12,15)*FOUR+R4(7,16)*TWO+R4(9,16)*TWO+R4(7,20)*TWO
     * -R3(5,13)*FOUR+R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R5(18,23)
     * -R4(12,32)*TWO+R3(7,29)+R3(9,29)+R3(7,33)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XXZ
      F(2,6,3,2)= R8(40)-R7(31,1)*TWO+R6(23,1)+R6(25,1)+R6(23,2)
     * +R6(25,9)*THREE-R5(18,1)*TWO-R5(18,13)*SIX+R4(12,1)+R4(12,2)
     * +R4(12,14)*THREE+R4(14,14)*THREE+R4(12,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(31,4)-R6(23,6)*TWO+R5(16,6)
     * +R5(18,6)+R5(16,8)+R5(18,22)*THREE-R4(12,7)*TWO-R4(12,31)*SIX
     * +R3(7,2)+R3(7,4)+R3(7,28)*THREE+R3(9,28)*THREE+R3(7,32)*THREE
     * -R2(6,22)*SIX+R1(2,2)*THREE+R1(2,6)*THREE)*QZ
      F(3,6,3,2)= R8(42)-R7(33,1)*TWO+R6(25,1)+R6(27,1)+R6(25,2)
     * +R6(25,9)*THREE-R5(20,1)*TWO-R5(18,13)*SIX+R4(14,1)+R4(14,2)
     * +R4(12,14)*THREE+R4(14,14)*THREE+R4(12,18)*THREE-R3(9,11)*SIX
     * +R2(6,1)*THREE+R2(6,5)*THREE+(+R7(33,3)*TWO+R7(33,4)
     * -R6(25,5)*FOUR-R6(25,6)*TWO+R5(18,5)*TWO+R5(20,5)*TWO+R5(18,6)
     * +R5(20,6)+R5(18,7)*TWO+R5(18,8)+R5(18,21)*TWO+R5(18,22)
     * -R4(14,6)*FOUR-R4(14,7)*TWO-R4(12,30)*FOUR-R4(12,31)*TWO
     * +R3(9,1)*TWO+R3(9,2)+R3(9,3)*TWO+R3(9,4)+R3(7,27)*TWO
     * +R3(9,27)*TWO+R3(7,28)+R3(9,28)+R3(7,31)*TWO+R3(7,32)
     * -R2(6,21)*FOUR-R2(6,22)*TWO+R1(2,1)*TWO+R1(2,2)+R1(2,5)*TWO
     * +R1(2,6))*QZ+(+R6(25,10)+R6(25,11)*TWO-R5(18,14)*TWO
     * -R5(18,15)*FOUR+R4(12,15)+R4(14,15)+R4(12,16)*TWO+R4(14,16)*TWO
     * +R4(12,19)+R4(12,20)*TWO-R3(9,12)*TWO-R3(9,13)*FOUR+R2(6,2)
     * +R2(6,3)*TWO+R2(6,6)+R2(6,7)*TWO)*ZZ+(+R5(18,23)-R4(12,32)*TWO
     * +R3(7,29)+R3(9,29)+R3(7,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*ZZZ
      F(4,6,3,2)= R8(32)-R7(24,1)*TWO+R6(17,1)+R6(19,1)+R6(17,2)
     * +R6(19,9)-R5(13,1)*TWO-R5(13,13)*TWO+R4(8,1)+R4(8,2)+R4(8,14)
     * +R4(10,14)+R4(8,18)-R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R7(32,3)
     * -R6(24,5)*TWO+R5(17,5)+R5(19,5)+R5(17,7)+R5(19,21)-R4(13,6)*TWO
     * -R4(13,30)*TWO+R3(8,1)+R3(8,3)+R3(8,27)+R3(10,27)+R3(8,31)
     * -R2(3,21)*TWO+R1(3,1)+R1(3,5))*QX+(+R7(24,4)-R6(17,6)*TWO
     * +R5(11,6)+R5(13,6)+R5(11,8)+R5(13,22)-R4(8,7)*TWO-R4(8,31)*TWO
     * +R3(4,2)+R3(4,4)+R3(4,28)+R3(6,28)+R3(4,32)-R2(5,22)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R6(24,11)-R5(17,15)*TWO+R4(11,16)+R4(13,16)
     * +R4(11,20)+R4(13,40)-R3(8,13)*TWO-R3(8,45)*TWO+R2(2,3)+R2(2,7)
     * +R2(2,39)+R2(3,39)+R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(5,6,3,2)= R8(33)-R7(25,1)*TWO+R6(18,1)+R6(20,1)+R6(18,2)
     * +R6(18,9)-R5(14,1)*TWO-R5(12,13)*TWO+R4(9,1)+R4(9,2)+R4(7,14)
     * +R4(9,14)+R4(7,18)-R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R7(33,3)
     * -R6(25,5)*TWO+R5(18,5)+R5(20,5)+R5(18,7)+R5(18,21)-R4(14,6)*TWO
     * -R4(12,30)*TWO+R3(9,1)+R3(9,3)+R3(7,27)+R3(9,27)+R3(7,31)
     * -R2(6,21)*TWO+R1(2,1)+R1(2,5))*QX+(+R7(25,3)+R7(25,4)
     * -R6(18,5)*TWO-R6(18,6)*TWO+R5(12,5)+R5(14,5)+R5(12,6)+R5(14,6)
     * +R5(12,7)+R5(12,8)-R4(9,6)*TWO-R4(9,7)*TWO+R3(5,1)+R3(5,2)
     * +R3(5,3)+R3(5,4))*QZ+(+R6(25,10)+R6(25,11)-R5(18,14)*TWO
     * -R5(18,15)*TWO+R4(12,15)+R4(14,15)+R4(12,16)+R4(14,16)+R4(12,19)
     * +R4(12,20)-R3(9,12)*TWO-R3(9,13)*TWO+R2(6,2)+R2(6,3)+R2(6,6)
     * +R2(6,7))*XZ+(+R6(18,11)-R5(12,15)*TWO+R4(7,16)+R4(9,16)+R4(7,20)
     * -R3(5,13)*TWO+R2(4,3)+R2(4,7))*ZZ+(+R5(18,23)-R4(12,32)*TWO
     * +R3(7,29)+R3(9,29)+R3(7,33)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XZZ
      F(6,6,3,2)= R8(41)-R7(32,1)*TWO+R6(24,1)+R6(26,1)+R6(24,2)
     * +R6(24,9)+R6(26,9)-R5(19,1)*TWO-R5(17,13)*TWO-R5(19,13)*TWO
     * +R4(13,1)+R4(13,2)+R4(11,14)+R4(13,14)*TWO+R4(15,14)+R4(11,18)
     * +R4(13,18)+R4(13,38)-R3(8,11)*TWO-R3(10,11)*TWO-R3(8,43)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,5)+R2(3,5)+R2(2,37)+R2(3,37)+R2(2,42)
     * -R1(3,21)*TWO+R0(1)+R0(6)+(+R7(32,3)+R7(32,4)-R6(24,5)*TWO
     * -R6(24,6)*TWO+R5(17,5)+R5(19,5)+R5(17,6)+R5(19,6)+R5(17,7)
     * +R5(17,8)+R5(19,21)+R5(19,22)-R4(13,6)*TWO-R4(13,7)*TWO
     * -R4(13,30)*TWO-R4(13,31)*TWO+R3(8,1)+R3(8,2)+R3(8,3)+R3(8,4)
     * +R3(8,27)+R3(10,27)+R3(8,28)+R3(10,28)+R3(8,31)+R3(8,32)
     * -R2(3,21)*TWO-R2(3,22)*TWO+R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ+(
     * +R6(24,11)-R5(17,15)*TWO+R4(11,16)+R4(13,16)+R4(11,20)+R4(13,40)
     * -R3(8,13)*TWO-R3(8,45)*TWO+R2(2,3)+R2(2,7)+R2(2,39)+R2(3,39)
     * +R2(2,44)-R1(3,23)*TWO+R0(3)+R0(8))*ZZ
      F(1,1,4,2)= R8(7)+R6(2,1)*THREE+R6(7,9)*SIX+R4(2,14)*P18
     * +R4(7,38)*THREE+R2(4,37)*NINE+(+R7(7,3)*TWO+R7(7,4)*TWO
     * +R5(2,5)*SIX+R5(2,6)*SIX+R5(7,21)*SIX+R5(7,22)*SIX+R3(2,27)*P18
     * +R3(2,28)*P18)*QX+(+R6(7,10)+R6(7,11)*FOUR+R6(7,12)
     * +R4(2,15)*THREE+R4(2,16)*TWELV+R4(2,17)*THREE+R4(7,39)
     * +R4(7,40)*FOUR+R4(7,41)+R2(4,38)*THREE+R2(4,39)*TWELV
     * +R2(4,40)*THREE)*XX+(+R5(7,23)*TWO+R5(7,24)*TWO+R3(2,29)*SIX
     * +R3(2,30)*SIX)*XXX+(+R4(7,42)+R2(4,41)*THREE)*XXXX
      F(2,1,4,2)= R8(16)+R6(7,1)*THREE+R6(7,9)+R6(16,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(16,4)*TWO
     * +R5(7,6)*SIX+R5(7,22)*TWO+R3(2,28)*SIX)*QX+(+R6(16,12)
     * +R4(7,17)*THREE+R4(7,41)+R2(4,40)*THREE)*XX
      F(3,1,4,2)= R8(18)+R6(9,1)*THREE+R6(7,9)+R6(18,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(18,4)*TWO
     * +R5(9,6)*SIX+R5(7,22)*TWO+R3(2,28)*SIX)*QX+(+R7(12,3)*TWO
     * +R5(5,5)*SIX+R5(12,21)*TWO+R3(5,27)*SIX)*QZ+(+R6(18,12)
     * +R4(9,17)*THREE+R4(7,41)+R2(4,40)*THREE)*XX+(+R6(12,11)*FOUR
     * +R4(5,16)*TWELV)*XZ+(+R6(7,10)+R4(2,15)*THREE+R4(7,39)
     * +R2(4,38)*THREE)*ZZ+(+R5(12,24)*TWO+R3(5,30)*SIX)*XXZ+(
     * +R5(7,23)*TWO+R3(2,29)*SIX)*XZZ+(+R4(7,42)+R2(4,41)*THREE)*XXZZ
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21E
      SUBROUTINE MCDV21E(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           NINE=9.0D+00, TWELV=1.2D+01, P18=1.8D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(4,1,4,2)= R8(11)+R6(4,1)*THREE+R6(11,9)*THREE+R4(4,14)*NINE+(
     * +R7(11,3)+R7(11,4)*TWO+R5(4,5)*THREE+R5(4,6)*SIX+R5(11,21)
     * +R5(11,22)*TWO+R3(4,27)*THREE+R3(4,28)*SIX)*QX+(+R6(11,11)*TWO
     * +R6(11,12)+R4(4,16)*SIX+R4(4,17)*THREE)*XX+(+R5(11,24)
     * +R3(4,30)*THREE)*XXX
      F(5,1,4,2)= R8(12)+R6(5,1)*THREE+R6(12,9)*THREE+R4(5,14)*NINE+(
     * +R7(12,3)+R7(12,4)*TWO+R5(5,5)*THREE+R5(5,6)*SIX+R5(12,21)
     * +R5(12,22)*TWO+R3(5,27)*THREE+R3(5,28)*SIX)*QX+(+R7(7,3)
     * +R5(2,5)*THREE+R5(7,21)*THREE+R3(2,27)*NINE)*QZ+(+R6(12,11)*TWO
     * +R6(12,12)+R4(5,16)*SIX+R4(5,17)*THREE)*XX+(+R6(7,10)
     * +R6(7,11)*TWO+R4(2,15)*THREE+R4(2,16)*SIX+R4(7,39)+R4(7,40)*TWO
     * +R2(4,38)*THREE+R2(4,39)*SIX)*XZ+(+R5(12,24)+R3(5,30)*THREE)*XXX
     * +(+R5(7,23)*TWO+R5(7,24)+R3(2,29)*SIX+R3(2,30)*THREE)*XXZ+(
     * +R4(7,42)+R2(4,41)*THREE)*XXXZ
      F(6,1,4,2)= R8(17)+R6(8,1)*THREE+R6(17,9)+R4(8,14)*THREE+(
     * +R7(17,4)*TWO+R5(8,6)*SIX)*QX+(+R7(11,3)+R5(4,5)*THREE+R5(11,21)
     * +R3(4,27)*THREE)*QZ+(+R6(17,12)+R4(8,17)*THREE)*XX+(
     * +R6(11,11)*TWO+R4(4,16)*SIX)*XZ+(+R5(11,24)+R3(4,30)*THREE)*XXZ
      F(1,2,4,2)= R8(16)+R6(7,1)*THREE+R6(7,9)+R6(16,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(16,3)*TWO
     * +R5(7,5)*SIX+R5(7,21)*TWO+R3(2,27)*SIX)*QX+(+R6(16,10)
     * +R4(7,15)*THREE+R4(7,39)+R2(4,38)*THREE)*XX
      F(2,2,4,2)= R8(29)+R6(16,1)*THREE+R6(16,9)*SIX+R4(7,14)*P18
     * +R4(7,38)*THREE+R2(4,37)*NINE
      F(3,2,4,2)= R8(31)+R6(18,1)*THREE+R6(16,9)+R6(18,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(23,3)*TWO
     * +R5(12,5)*SIX+R5(12,21)*TWO+R3(5,27)*SIX)*QZ+(+R6(16,10)
     * +R4(7,15)*THREE+R4(7,39)+R2(4,38)*THREE)*ZZ
      F(4,2,4,2)= R8(22)+R6(11,1)*THREE+R6(11,9)*THREE+R4(4,14)*NINE+(
     * +R7(22,3)+R5(11,5)*THREE+R5(11,21)*THREE+R3(4,27)*NINE)*QX
      F(5,2,4,2)= R8(23)+R6(12,1)*THREE+R6(12,9)+R4(5,14)*THREE+(
     * +R7(23,3)+R5(12,5)*THREE+R5(12,21)+R3(5,27)*THREE)*QX+(+R7(16,3)
     * +R5(7,5)*THREE+R5(7,21)+R3(2,27)*THREE)*QZ+(+R6(16,10)
     * +R4(7,15)*THREE+R4(7,39)+R2(4,38)*THREE)*XZ
      F(6,2,4,2)= R8(30)+R6(17,1)*THREE+R6(17,9)*THREE+R4(8,14)*NINE+(
     * +R7(22,3)+R5(11,5)*THREE+R5(11,21)*THREE+R3(4,27)*NINE)*QZ
      F(1,3,4,2)= R8(18)+R6(9,1)*THREE+R6(7,9)+R6(18,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(18,3)*TWO
     * +R5(9,5)*SIX+R5(7,21)*TWO+R3(2,27)*SIX)*QX+(+R7(12,4)*TWO
     * +R5(5,6)*SIX+R5(12,22)*TWO+R3(5,28)*SIX)*QZ+(+R6(18,10)
     * +R4(9,15)*THREE+R4(7,39)+R2(4,38)*THREE)*XX+(+R6(12,11)*FOUR
     * +R4(5,16)*TWELV)*XZ+(+R6(7,12)+R4(2,17)*THREE+R4(7,41)
     * +R2(4,40)*THREE)*ZZ+(+R5(12,23)*TWO+R3(5,29)*SIX)*XXZ+(
     * +R5(7,24)*TWO+R3(2,30)*SIX)*XZZ+(+R4(7,42)+R2(4,41)*THREE)*XXZZ
      F(2,3,4,2)= R8(31)+R6(18,1)*THREE+R6(16,9)+R6(18,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(23,4)*TWO
     * +R5(12,6)*SIX+R5(12,22)*TWO+R3(5,28)*SIX)*QZ+(+R6(16,12)
     * +R4(7,17)*THREE+R4(7,41)+R2(4,40)*THREE)*ZZ
      F(3,3,4,2)= R8(33)+R6(20,1)*THREE+R6(18,9)*SIX+R4(9,14)*P18
     * +R4(7,38)*THREE+R2(4,37)*NINE+(+R7(25,3)*TWO+R7(25,4)*TWO
     * +R5(14,5)*SIX+R5(14,6)*SIX+R5(12,21)*SIX+R5(12,22)*SIX
     * +R3(5,27)*P18+R3(5,28)*P18)*QZ+(+R6(18,10)+R6(18,11)*FOUR
     * +R6(18,12)+R4(9,15)*THREE+R4(9,16)*TWELV+R4(9,17)*THREE+R4(7,39)
     * +R4(7,40)*FOUR+R4(7,41)+R2(4,38)*THREE+R2(4,39)*TWELV
     * +R2(4,40)*THREE)*ZZ+(+R5(12,23)*TWO+R5(12,24)*TWO+R3(5,29)*SIX
     * +R3(5,30)*SIX)*ZZZ+(+R4(7,42)+R2(4,41)*THREE)*ZZZZ
      F(4,3,4,2)= R8(24)+R6(13,1)*THREE+R6(11,9)+R4(4,14)*THREE+(
     * +R7(24,3)+R5(13,5)*THREE+R5(11,21)+R3(4,27)*THREE)*QX+(
     * +R7(17,4)*TWO+R5(8,6)*SIX)*QZ+(+R6(17,11)*TWO+R4(8,16)*SIX)*XZ+(
     * +R6(11,12)+R4(4,17)*THREE)*ZZ+(+R5(11,24)+R3(4,30)*THREE)*XZZ
      F(5,3,4,2)= R8(25)+R6(14,1)*THREE+R6(12,9)*THREE+R4(5,14)*NINE+(
     * +R7(25,3)+R5(14,5)*THREE+R5(12,21)*THREE+R3(5,27)*NINE)*QX+(
     * +R7(18,3)+R7(18,4)*TWO+R5(9,5)*THREE+R5(9,6)*SIX+R5(7,21)
     * +R5(7,22)*TWO+R3(2,27)*THREE+R3(2,28)*SIX)*QZ+(+R6(18,10)
     * +R6(18,11)*TWO+R4(9,15)*THREE+R4(9,16)*SIX+R4(7,39)+R4(7,40)*TWO
     * +R2(4,38)*THREE+R2(4,39)*SIX)*XZ+(+R6(12,11)*TWO+R6(12,12)
     * +R4(5,16)*SIX+R4(5,17)*THREE)*ZZ+(+R5(12,23)*TWO+R5(12,24)
     * +R3(5,29)*SIX+R3(5,30)*THREE)*XZZ+(+R5(7,24)+R3(2,30)*THREE)*ZZZ
     * +(+R4(7,42)+R2(4,41)*THREE)*XZZZ
      F(6,3,4,2)= R8(32)+R6(19,1)*THREE+R6(17,9)*THREE+R4(8,14)*NINE+(
     * +R7(24,3)+R7(24,4)*TWO+R5(13,5)*THREE+R5(13,6)*SIX+R5(11,21)
     * +R5(11,22)*TWO+R3(4,27)*THREE+R3(4,28)*SIX)*QZ+(+R6(17,11)*TWO
     * +R6(17,12)+R4(8,16)*SIX+R4(8,17)*THREE)*ZZ+(+R5(11,24)
     * +R3(4,30)*THREE)*ZZZ
      F(1,4,4,2)= R8(11)+R6(4,1)*THREE+R6(11,9)*THREE+R4(4,14)*NINE+(
     * +R7(11,3)*TWO+R7(11,4)+R5(4,5)*SIX+R5(4,6)*THREE+R5(11,21)*TWO
     * +R5(11,22)+R3(4,27)*SIX+R3(4,28)*THREE)*QX+(+R6(11,10)
     * +R6(11,11)*TWO+R4(4,15)*THREE+R4(4,16)*SIX)*XX+(+R5(11,23)
     * +R3(4,29)*THREE)*XXX
      F(2,4,4,2)= R8(22)+R6(11,1)*THREE+R6(11,9)*THREE+R4(4,14)*NINE+(
     * +R7(22,4)+R5(11,6)*THREE+R5(11,22)*THREE+R3(4,28)*NINE)*QX
      F(3,4,4,2)= R8(24)+R6(13,1)*THREE+R6(11,9)+R4(4,14)*THREE+(
     * +R7(24,4)+R5(13,6)*THREE+R5(11,22)+R3(4,28)*THREE)*QX+(
     * +R7(17,3)*TWO+R5(8,5)*SIX)*QZ+(+R6(17,11)*TWO+R4(8,16)*SIX)*XZ+(
     * +R6(11,10)+R4(4,15)*THREE)*ZZ+(+R5(11,23)+R3(4,29)*THREE)*XZZ
      F(4,4,4,2)= R8(16)+R6(7,1)*THREE+R6(7,9)+R6(16,9)+R4(2,14)*THREE
     * +R4(7,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(16,3)+R7(16,4)
     * +R5(7,5)*THREE+R5(7,6)*THREE+R5(7,21)+R5(7,22)+R3(2,27)*THREE
     * +R3(2,28)*THREE)*QX+(+R6(16,11)+R4(7,16)*THREE+R4(7,40)
     * +R2(4,39)*THREE)*XX
      F(5,4,4,2)= R8(17)+R6(8,1)*THREE+R6(17,9)+R4(8,14)*THREE+(
     * +R7(17,3)+R7(17,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QX+(+R7(11,3)
     * +R5(4,5)*THREE+R5(11,21)+R3(4,27)*THREE)*QZ+(+R6(17,11)
     * +R4(8,16)*THREE)*XX+(+R6(11,10)+R6(11,11)+R4(4,15)*THREE
     * +R4(4,16)*THREE)*XZ+(+R5(11,23)+R3(4,29)*THREE)*XXZ
      F(6,4,4,2)= R8(23)+R6(12,1)*THREE+R6(12,9)+R4(5,14)*THREE+(
     * +R7(23,4)+R5(12,6)*THREE+R5(12,22)+R3(5,28)*THREE)*QX+(+R7(16,3)
     * +R5(7,5)*THREE+R5(7,21)+R3(2,27)*THREE)*QZ+(+R6(16,11)
     * +R4(7,16)*THREE+R4(7,40)+R2(4,39)*THREE)*XZ
      F(1,5,4,2)= R8(12)+R6(5,1)*THREE+R6(12,9)*THREE+R4(5,14)*NINE+(
     * +R7(12,3)*TWO+R7(12,4)+R5(5,5)*SIX+R5(5,6)*THREE+R5(12,21)*TWO
     * +R5(12,22)+R3(5,27)*SIX+R3(5,28)*THREE)*QX+(+R7(7,4)
     * +R5(2,6)*THREE+R5(7,22)*THREE+R3(2,28)*NINE)*QZ+(+R6(12,10)
     * +R6(12,11)*TWO+R4(5,15)*THREE+R4(5,16)*SIX)*XX+(+R6(7,11)*TWO
     * +R6(7,12)+R4(2,16)*SIX+R4(2,17)*THREE+R4(7,40)*TWO+R4(7,41)
     * +R2(4,39)*SIX+R2(4,40)*THREE)*XZ+(+R5(12,23)+R3(5,29)*THREE)*XXX
     * +(+R5(7,23)+R5(7,24)*TWO+R3(2,29)*THREE+R3(2,30)*SIX)*XXZ+(
     * +R4(7,42)+R2(4,41)*THREE)*XXXZ
      F(2,5,4,2)= R8(23)+R6(12,1)*THREE+R6(12,9)+R4(5,14)*THREE+(
     * +R7(23,4)+R5(12,6)*THREE+R5(12,22)+R3(5,28)*THREE)*QX+(+R7(16,4)
     * +R5(7,6)*THREE+R5(7,22)+R3(2,28)*THREE)*QZ+(+R6(16,12)
     * +R4(7,17)*THREE+R4(7,41)+R2(4,40)*THREE)*XZ
      F(3,5,4,2)= R8(25)+R6(14,1)*THREE+R6(12,9)*THREE+R4(5,14)*NINE+(
     * +R7(25,4)+R5(14,6)*THREE+R5(12,22)*THREE+R3(5,28)*NINE)*QX+(
     * +R7(18,3)*TWO+R7(18,4)+R5(9,5)*SIX+R5(9,6)*THREE+R5(7,21)*TWO
     * +R5(7,22)+R3(2,27)*SIX+R3(2,28)*THREE)*QZ+(+R6(18,11)*TWO
     * +R6(18,12)+R4(9,16)*SIX+R4(9,17)*THREE+R4(7,40)*TWO+R4(7,41)
     * +R2(4,39)*SIX+R2(4,40)*THREE)*XZ+(+R6(12,10)+R6(12,11)*TWO
     * +R4(5,15)*THREE+R4(5,16)*SIX)*ZZ+(+R5(12,23)+R5(12,24)*TWO
     * +R3(5,29)*THREE+R3(5,30)*SIX)*XZZ+(+R5(7,23)+R3(2,29)*THREE)*ZZZ
     * +(+R4(7,42)+R2(4,41)*THREE)*XZZZ
      F(4,5,4,2)= R8(17)+R6(8,1)*THREE+R6(17,9)+R4(8,14)*THREE+(
     * +R7(17,3)+R7(17,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QX+(+R7(11,4)
     * +R5(4,6)*THREE+R5(11,22)+R3(4,28)*THREE)*QZ+(+R6(17,11)
     * +R4(8,16)*THREE)*XX+(+R6(11,11)+R6(11,12)+R4(4,16)*THREE
     * +R4(4,17)*THREE)*XZ+(+R5(11,24)+R3(4,30)*THREE)*XXZ
      F(5,5,4,2)= R8(18)+R6(9,1)*THREE+R6(7,9)+R6(18,9)+R4(2,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(18,3)+R7(18,4)
     * +R5(9,5)*THREE+R5(9,6)*THREE+R5(7,21)+R5(7,22)+R3(2,27)*THREE
     * +R3(2,28)*THREE)*QX+(+R7(12,3)+R7(12,4)+R5(5,5)*THREE
     * +R5(5,6)*THREE+R5(12,21)+R5(12,22)+R3(5,27)*THREE+R3(5,28)*THREE)
     * *QZ+(+R6(18,11)+R4(9,16)*THREE+R4(7,40)+R2(4,39)*THREE)*XX+(
     * +R6(12,10)+R6(12,11)*TWO+R6(12,12)+R4(5,15)*THREE+R4(5,16)*SIX
     * +R4(5,17)*THREE)*XZ+(+R6(7,11)+R4(2,16)*THREE+R4(7,40)
     * +R2(4,39)*THREE)*ZZ+(+R5(12,23)+R5(12,24)+R3(5,29)*THREE
     * +R3(5,30)*THREE)*XXZ+(+R5(7,23)+R5(7,24)+R3(2,29)*THREE
     * +R3(2,30)*THREE)*XZZ+(+R4(7,42)+R2(4,41)*THREE)*XXZZ
      F(6,5,4,2)= R8(24)+R6(13,1)*THREE+R6(11,9)+R4(4,14)*THREE+(
     * +R7(24,4)+R5(13,6)*THREE+R5(11,22)+R3(4,28)*THREE)*QX+(+R7(17,3)
     * +R7(17,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QZ+(+R6(17,11)+R6(17,12)
     * +R4(8,16)*THREE+R4(8,17)*THREE)*XZ+(+R6(11,11)+R4(4,16)*THREE)*ZZ
     * +(+R5(11,24)+R3(4,30)*THREE)*XZZ
      F(1,6,4,2)= R8(17)+R6(8,1)*THREE+R6(17,9)+R4(8,14)*THREE+(
     * +R7(17,3)*TWO+R5(8,5)*SIX)*QX+(+R7(11,4)+R5(4,6)*THREE+R5(11,22)
     * +R3(4,28)*THREE)*QZ+(+R6(17,10)+R4(8,15)*THREE)*XX+(
     * +R6(11,11)*TWO+R4(4,16)*SIX)*XZ+(+R5(11,23)+R3(4,29)*THREE)*XXZ
      F(2,6,4,2)= R8(30)+R6(17,1)*THREE+R6(17,9)*THREE+R4(8,14)*NINE+(
     * +R7(22,4)+R5(11,6)*THREE+R5(11,22)*THREE+R3(4,28)*NINE)*QZ
      F(3,6,4,2)= R8(32)+R6(19,1)*THREE+R6(17,9)*THREE+R4(8,14)*NINE+(
     * +R7(24,3)*TWO+R7(24,4)+R5(13,5)*SIX+R5(13,6)*THREE+R5(11,21)*TWO
     * +R5(11,22)+R3(4,27)*SIX+R3(4,28)*THREE)*QZ+(+R6(17,10)
     * +R6(17,11)*TWO+R4(8,15)*THREE+R4(8,16)*SIX)*ZZ+(+R5(11,23)
     * +R3(4,29)*THREE)*ZZZ
      F(4,6,4,2)= R8(23)+R6(12,1)*THREE+R6(12,9)+R4(5,14)*THREE+(
     * +R7(23,3)+R5(12,5)*THREE+R5(12,21)+R3(5,27)*THREE)*QX+(+R7(16,4)
     * +R5(7,6)*THREE+R5(7,22)+R3(2,28)*THREE)*QZ+(+R6(16,11)
     * +R4(7,16)*THREE+R4(7,40)+R2(4,39)*THREE)*XZ
      F(5,6,4,2)= R8(24)+R6(13,1)*THREE+R6(11,9)+R4(4,14)*THREE+(
     * +R7(24,3)+R5(13,5)*THREE+R5(11,21)+R3(4,27)*THREE)*QX+(+R7(17,3)
     * +R7(17,4)+R5(8,5)*THREE+R5(8,6)*THREE)*QZ+(+R6(17,10)+R6(17,11)
     * +R4(8,15)*THREE+R4(8,16)*THREE)*XZ+(+R6(11,11)+R4(4,16)*THREE)*ZZ
     * +(+R5(11,23)+R3(4,29)*THREE)*XZZ
      F(6,6,4,2)= R8(31)+R6(18,1)*THREE+R6(16,9)+R6(18,9)+R4(7,14)*THREE
     * +R4(9,14)*THREE+R4(7,38)+R2(4,37)*THREE+(+R7(23,3)+R7(23,4)
     * +R5(12,5)*THREE+R5(12,6)*THREE+R5(12,21)+R5(12,22)+R3(5,27)*THREE
     * +R3(5,28)*THREE)*QZ+(+R6(16,11)+R4(7,16)*THREE+R4(7,40)
     * +R2(4,39)*THREE)*ZZ
      F(1,1,5,2)= R8(8)-R7(4,1)+R6(3,1)+R6(8,9)*SIX-R5(1,1)-R5(4,13)*SIX
     * +R4(3,14)*SIX+R4(8,38)*THREE-R3(1,11)*SIX-R3(4,43)*THREE
     * +R2(5,37)*THREE-R1(1,21)*THREE+(+R7(8,3)*TWO+R7(8,4)*TWO
     * -R6(4,5)*TWO-R6(4,6)*TWO+R5(3,5)*TWO+R5(3,6)*TWO+R5(8,21)*SIX
     * +R5(8,22)*SIX-R4(1,6)*TWO-R4(1,7)*TWO-R4(4,30)*SIX-R4(4,31)*SIX
     * +R3(3,27)*SIX+R3(3,28)*SIX-R2(1,21)*SIX-R2(1,22)*SIX)*QX+(
     * +R6(8,10)+R6(8,11)*FOUR+R6(8,12)-R5(4,14)-R5(4,15)*FOUR-R5(4,16)
     * +R4(3,15)+R4(3,16)*FOUR+R4(3,17)+R4(8,39)+R4(8,40)*FOUR+R4(8,41)
     * -R3(1,12)-R3(1,13)*FOUR-R3(1,14)-R3(4,44)-R3(4,45)*FOUR-R3(4,46)
     * +R2(5,38)+R2(5,39)*FOUR+R2(5,40)-R1(1,22)-R1(1,23)*FOUR-R1(1,24))
     * *XX+(+R5(8,23)*TWO+R5(8,24)*TWO-R4(4,32)*TWO-R4(4,33)*TWO
     * +R3(3,29)*TWO+R3(3,30)*TWO-R2(1,23)*TWO-R2(1,24)*TWO)*XXX+(
     * +R4(8,42)-R3(4,47)+R2(5,41)-R1(1,25))*XXXX
      F(2,1,5,2)= R8(17)-R7(11,1)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,1)
     * -R5(4,13)-R5(11,13)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,11)-R3(4,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(17,4)*TWO-R6(11,6)*TWO
     * +R5(8,6)*TWO+R5(8,22)*TWO-R4(4,7)*TWO-R4(4,31)*TWO+R3(3,28)*TWO
     * -R2(1,22)*TWO)*QX+(+R6(17,12)-R5(11,16)+R4(8,17)+R4(8,41)
     * -R3(4,14)-R3(4,46)+R2(5,40)-R1(1,24))*XX
      F(3,1,5,2)= R8(19)-R7(13,1)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,1)
     * -R5(4,13)-R5(13,13)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,11)-R3(6,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(19,4)*TWO-R6(13,6)*TWO
     * +R5(10,6)*TWO+R5(8,22)*TWO-R4(6,7)*TWO-R4(4,31)*TWO+R3(3,28)*TWO
     * -R2(1,22)*TWO)*QX+(+R7(13,3)*TWO-R6(8,5)*TWO+R5(6,5)*TWO
     * +R5(13,21)*TWO-R4(3,6)*TWO-R4(8,30)*TWO+R3(6,27)*TWO-R2(5,21)*TWO
     * )*QZ+(+R6(19,12)-R5(13,16)+R4(10,17)+R4(8,41)-R3(6,14)-R3(4,46)
     * +R2(5,40)-R1(1,24))*XX+(+R6(13,11)*FOUR-R5(8,15)*FOUR
     * +R4(6,16)*FOUR-R3(3,13)*FOUR)*XZ+(+R6(8,10)-R5(4,14)+R4(3,15)
     * +R4(8,39)-R3(1,12)-R3(4,44)+R2(5,38)-R1(1,22))*ZZ+(+R5(13,24)*TWO
     * -R4(8,33)*TWO+R3(6,30)*TWO-R2(5,24)*TWO)*XXZ+(+R5(8,23)*TWO
     * -R4(4,32)*TWO+R3(3,29)*TWO-R2(1,23)*TWO)*XZZ+(+R4(8,42)-R3(4,47)
     * +R2(5,41)-R1(1,25))*XXZZ
      F(4,1,5,2)= R8(12)-R7(7,1)+R6(5,1)+R6(12,9)*THREE-R5(2,1)
     * -R5(7,13)*THREE+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(12,3)
     * +R7(12,4)*TWO-R6(7,5)-R6(7,6)*TWO+R5(5,5)+R5(5,6)*TWO+R5(12,21)
     * +R5(12,22)*TWO-R4(2,6)-R4(2,7)*TWO-R4(7,30)-R4(7,31)*TWO+R3(5,27)
     * +R3(5,28)*TWO-R2(4,21)-R2(4,22)*TWO)*QX+(+R6(12,11)*TWO+R6(12,12)
     * -R5(7,15)*TWO-R5(7,16)+R4(5,16)*TWO+R4(5,17)-R3(2,13)*TWO
     * -R3(2,14))*XX+(+R5(12,24)-R4(7,33)+R3(5,30)-R2(4,24))*XXX
      F(5,1,5,2)= R8(13)-R7(8,1)+R6(6,1)+R6(13,9)*THREE-R5(3,1)
     * -R5(8,13)*THREE+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,3)
     * +R7(13,4)*TWO-R6(8,5)-R6(8,6)*TWO+R5(6,5)+R5(6,6)*TWO+R5(13,21)
     * +R5(13,22)*TWO-R4(3,6)-R4(3,7)*TWO-R4(8,30)-R4(8,31)*TWO+R3(6,27)
     * +R3(6,28)*TWO-R2(5,21)-R2(5,22)*TWO)*QX+(+R7(8,3)-R6(4,5)+R5(3,5)
     * +R5(8,21)*THREE-R4(1,6)-R4(4,30)*THREE+R3(3,27)*THREE
     * -R2(1,21)*THREE)*QZ+(+R6(13,11)*TWO+R6(13,12)-R5(8,15)*TWO
     * -R5(8,16)+R4(6,16)*TWO+R4(6,17)-R3(3,13)*TWO-R3(3,14))*XX+(
     * +R6(8,10)+R6(8,11)*TWO-R5(4,14)-R5(4,15)*TWO+R4(3,15)
     * +R4(3,16)*TWO+R4(8,39)+R4(8,40)*TWO-R3(1,12)-R3(1,13)*TWO
     * -R3(4,44)-R3(4,45)*TWO+R2(5,38)+R2(5,39)*TWO-R1(1,22)
     * -R1(1,23)*TWO)*XZ+(+R5(13,24)-R4(8,33)+R3(6,30)-R2(5,24))*XXX+(
     * +R5(8,23)*TWO+R5(8,24)-R4(4,32)*TWO-R4(4,33)+R3(3,29)*TWO
     * +R3(3,30)-R2(1,23)*TWO-R2(1,24))*XXZ+(+R4(8,42)-R3(4,47)+R2(5,41)
     * -R1(1,25))*XXXZ
      F(6,1,5,2)= R8(18)-R7(12,1)+R6(9,1)+R6(18,9)-R5(5,1)-R5(12,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,4)*TWO-R6(12,6)*TWO+R5(9,6)*TWO
     * -R4(5,7)*TWO)*QX+(+R7(12,3)-R6(7,5)+R5(5,5)+R5(12,21)-R4(2,6)
     * -R4(7,30)+R3(5,27)-R2(4,21))*QZ+(+R6(18,12)-R5(12,16)+R4(9,17)
     * -R3(5,14))*XX+(+R6(12,11)*TWO-R5(7,15)*TWO+R4(5,16)*TWO
     * -R3(2,13)*TWO)*XZ+(+R5(12,24)-R4(7,33)+R3(5,30)-R2(4,24))*XXZ
      F(1,2,5,2)= R8(17)-R7(11,1)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,1)
     * -R5(4,13)-R5(11,13)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,11)-R3(4,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(17,3)*TWO-R6(11,5)*TWO
     * +R5(8,5)*TWO+R5(8,21)*TWO-R4(4,6)*TWO-R4(4,30)*TWO+R3(3,27)*TWO
     * -R2(1,21)*TWO)*QX+(+R6(17,10)-R5(11,14)+R4(8,15)+R4(8,39)
     * -R3(4,12)-R3(4,44)+R2(5,38)-R1(1,22))*XX
      F(2,2,5,2)= R8(30)-R7(22,1)+R6(17,1)+R6(17,9)*SIX-R5(11,1)
     * -R5(11,13)*SIX+R4(8,14)*SIX+R4(8,38)*THREE-R3(4,11)*SIX
     * -R3(4,43)*THREE+R2(5,37)*THREE-R1(1,21)*THREE
      F(3,2,5,2)= R8(32)-R7(24,1)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,1)
     * -R5(11,13)-R5(13,13)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,11)
     * -R3(6,11)-R3(4,43)+R2(5,37)-R1(1,21)+(+R7(24,3)*TWO-R6(17,5)*TWO
     * +R5(13,5)*TWO+R5(13,21)*TWO-R4(8,6)*TWO-R4(8,30)*TWO+R3(6,27)*TWO
     * -R2(5,21)*TWO)*QZ+(+R6(17,10)-R5(11,14)+R4(8,15)+R4(8,39)
     * -R3(4,12)-R3(4,44)+R2(5,38)-R1(1,22))*ZZ
      F(4,2,5,2)= R8(23)-R7(16,1)+R6(12,1)+R6(12,9)*THREE-R5(7,1)
     * -R5(7,13)*THREE+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(23,3)-R6(16,5)
     * +R5(12,5)+R5(12,21)*THREE-R4(7,6)-R4(7,30)*THREE+R3(5,27)*THREE
     * -R2(4,21)*THREE)*QX
      F(5,2,5,2)= R8(24)-R7(17,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(6,14)-R3(3,11)+(+R7(24,3)-R6(17,5)+R5(13,5)+R5(13,21)-R4(8,6)
     * -R4(8,30)+R3(6,27)-R2(5,21))*QX+(+R7(17,3)-R6(11,5)+R5(8,5)
     * +R5(8,21)-R4(4,6)-R4(4,30)+R3(3,27)-R2(1,21))*QZ+(+R6(17,10)
     * -R5(11,14)+R4(8,15)+R4(8,39)-R3(4,12)-R3(4,44)+R2(5,38)-R1(1,22))
     * *XZ
      F(6,2,5,2)= R8(31)-R7(23,1)+R6(18,1)+R6(18,9)*THREE-R5(12,1)
     * -R5(12,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(23,3)
     * -R6(16,5)+R5(12,5)+R5(12,21)*THREE-R4(7,6)-R4(7,30)*THREE
     * +R3(5,27)*THREE-R2(4,21)*THREE)*QZ
      F(1,3,5,2)= R8(19)-R7(13,1)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,1)
     * -R5(4,13)-R5(13,13)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,11)-R3(6,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(19,3)*TWO-R6(13,5)*TWO
     * +R5(10,5)*TWO+R5(8,21)*TWO-R4(6,6)*TWO-R4(4,30)*TWO+R3(3,27)*TWO
     * -R2(1,21)*TWO)*QX+(+R7(13,4)*TWO-R6(8,6)*TWO+R5(6,6)*TWO
     * +R5(13,22)*TWO-R4(3,7)*TWO-R4(8,31)*TWO+R3(6,28)*TWO-R2(5,22)*TWO
     * )*QZ+(+R6(19,10)-R5(13,14)+R4(10,15)+R4(8,39)-R3(6,12)-R3(4,44)
     * +R2(5,38)-R1(1,22))*XX+(+R6(13,11)*FOUR-R5(8,15)*FOUR
     * +R4(6,16)*FOUR-R3(3,13)*FOUR)*XZ+(+R6(8,12)-R5(4,16)+R4(3,17)
     * +R4(8,41)-R3(1,14)-R3(4,46)+R2(5,40)-R1(1,24))*ZZ+(+R5(13,23)*TWO
     * -R4(8,32)*TWO+R3(6,29)*TWO-R2(5,23)*TWO)*XXZ+(+R5(8,24)*TWO
     * -R4(4,33)*TWO+R3(3,30)*TWO-R2(1,24)*TWO)*XZZ+(+R4(8,42)-R3(4,47)
     * +R2(5,41)-R1(1,25))*XXZZ
      F(2,3,5,2)= R8(32)-R7(24,1)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,1)
     * -R5(11,13)-R5(13,13)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,11)
     * -R3(6,11)-R3(4,43)+R2(5,37)-R1(1,21)+(+R7(24,4)*TWO-R6(17,6)*TWO
     * +R5(13,6)*TWO+R5(13,22)*TWO-R4(8,7)*TWO-R4(8,31)*TWO+R3(6,28)*TWO
     * -R2(5,22)*TWO)*QZ+(+R6(17,12)-R5(11,16)+R4(8,17)+R4(8,41)
     * -R3(4,14)-R3(4,46)+R2(5,40)-R1(1,24))*ZZ
      F(3,3,5,2)= R8(34)-R7(26,1)+R6(21,1)+R6(19,9)*SIX-R5(15,1)
     * -R5(13,13)*SIX+R4(10,14)*SIX+R4(8,38)*THREE-R3(6,11)*SIX
     * -R3(4,43)*THREE+R2(5,37)*THREE-R1(1,21)*THREE+(+R7(26,3)*TWO
     * +R7(26,4)*TWO-R6(19,5)*TWO-R6(19,6)*TWO+R5(15,5)*TWO+R5(15,6)*TWO
     * +R5(13,21)*SIX+R5(13,22)*SIX-R4(10,6)*TWO-R4(10,7)*TWO
     * -R4(8,30)*SIX-R4(8,31)*SIX+R3(6,27)*SIX+R3(6,28)*SIX-R2(5,21)*SIX
     * -R2(5,22)*SIX)*QZ+(+R6(19,10)+R6(19,11)*FOUR+R6(19,12)-R5(13,14)
     * -R5(13,15)*FOUR-R5(13,16)+R4(10,15)+R4(10,16)*FOUR+R4(10,17)
     * +R4(8,39)+R4(8,40)*FOUR+R4(8,41)-R3(6,12)-R3(6,13)*FOUR-R3(6,14)
     * -R3(4,44)-R3(4,45)*FOUR-R3(4,46)+R2(5,38)+R2(5,39)*FOUR+R2(5,40)
     * -R1(1,22)-R1(1,23)*FOUR-R1(1,24))*ZZ+(+R5(13,23)*TWO
     * +R5(13,24)*TWO-R4(8,32)*TWO-R4(8,33)*TWO+R3(6,29)*TWO
     * +R3(6,30)*TWO-R2(5,23)*TWO-R2(5,24)*TWO)*ZZZ+(+R4(8,42)-R3(4,47)
     * +R2(5,41)-R1(1,25))*ZZZZ
      F(4,3,5,2)= R8(25)-R7(18,1)+R6(14,1)+R6(12,9)-R5(9,1)-R5(7,13)
     * +R4(5,14)-R3(2,11)+(+R7(25,3)-R6(18,5)+R5(14,5)+R5(12,21)-R4(9,6)
     * -R4(7,30)+R3(5,27)-R2(4,21))*QX+(+R7(18,4)*TWO-R6(12,6)*TWO
     * +R5(9,6)*TWO-R4(5,7)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,15)*TWO
     * +R4(9,16)*TWO-R3(5,13)*TWO)*XZ+(+R6(12,12)-R5(7,16)+R4(5,17)
     * -R3(2,14))*ZZ+(+R5(12,24)-R4(7,33)+R3(5,30)-R2(4,24))*XZZ
      F(5,3,5,2)= R8(26)-R7(19,1)+R6(15,1)+R6(13,9)*THREE-R5(10,1)
     * -R5(8,13)*THREE+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(26,3)-R6(19,5)
     * +R5(15,5)+R5(13,21)*THREE-R4(10,6)-R4(8,30)*THREE+R3(6,27)*THREE
     * -R2(5,21)*THREE)*QX+(+R7(19,3)+R7(19,4)*TWO-R6(13,5)-R6(13,6)*TWO
     * +R5(10,5)+R5(10,6)*TWO+R5(8,21)+R5(8,22)*TWO-R4(6,6)-R4(6,7)*TWO
     * -R4(4,30)-R4(4,31)*TWO+R3(3,27)+R3(3,28)*TWO-R2(1,21)
     * -R2(1,22)*TWO)*QZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)
     * -R5(13,15)*TWO+R4(10,15)+R4(10,16)*TWO+R4(8,39)+R4(8,40)*TWO
     * -R3(6,12)-R3(6,13)*TWO-R3(4,44)-R3(4,45)*TWO+R2(5,38)
     * +R2(5,39)*TWO-R1(1,22)-R1(1,23)*TWO)*XZ+(+R6(13,11)*TWO+R6(13,12)
     * -R5(8,15)*TWO-R5(8,16)+R4(6,16)*TWO+R4(6,17)-R3(3,13)*TWO
     * -R3(3,14))*ZZ+(+R5(13,23)*TWO+R5(13,24)-R4(8,32)*TWO-R4(8,33)
     * +R3(6,29)*TWO+R3(6,30)-R2(5,23)*TWO-R2(5,24))*XZZ+(+R5(8,24)
     * -R4(4,33)+R3(3,30)-R2(1,24))*ZZZ+(+R4(8,42)-R3(4,47)+R2(5,41)
     * -R1(1,25))*XZZZ
      F(6,3,5,2)= R8(33)-R7(25,1)+R6(20,1)+R6(18,9)*THREE-R5(14,1)
     * -R5(12,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(25,3)
     * +R7(25,4)*TWO-R6(18,5)-R6(18,6)*TWO+R5(14,5)+R5(14,6)*TWO
     * +R5(12,21)+R5(12,22)*TWO-R4(9,6)-R4(9,7)*TWO-R4(7,30)
     * -R4(7,31)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,21)-R2(4,22)*TWO)*QZ+(
     * +R6(18,11)*TWO+R6(18,12)-R5(12,15)*TWO-R5(12,16)+R4(9,16)*TWO
     * +R4(9,17)-R3(5,13)*TWO-R3(5,14))*ZZ+(+R5(12,24)-R4(7,33)+R3(5,30)
     * -R2(4,24))*ZZZ
      F(1,4,5,2)= R8(12)-R7(7,1)+R6(5,1)+R6(12,9)*THREE-R5(2,1)
     * -R5(7,13)*THREE+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(12,3)*TWO
     * +R7(12,4)-R6(7,5)*TWO-R6(7,6)+R5(5,5)*TWO+R5(5,6)+R5(12,21)*TWO
     * +R5(12,22)-R4(2,6)*TWO-R4(2,7)-R4(7,30)*TWO-R4(7,31)+R3(5,27)*TWO
     * +R3(5,28)-R2(4,21)*TWO-R2(4,22))*QX+(+R6(12,10)+R6(12,11)*TWO
     * -R5(7,14)-R5(7,15)*TWO+R4(5,15)+R4(5,16)*TWO-R3(2,12)
     * -R3(2,13)*TWO)*XX+(+R5(12,23)-R4(7,32)+R3(5,29)-R2(4,23))*XXX
      F(2,4,5,2)= R8(23)-R7(16,1)+R6(12,1)+R6(12,9)*THREE-R5(7,1)
     * -R5(7,13)*THREE+R4(5,14)*THREE-R3(2,11)*THREE+(+R7(23,4)-R6(16,6)
     * +R5(12,6)+R5(12,22)*THREE-R4(7,7)-R4(7,31)*THREE+R3(5,28)*THREE
     * -R2(4,22)*THREE)*QX
      F(3,4,5,2)= R8(25)-R7(18,1)+R6(14,1)+R6(12,9)-R5(9,1)-R5(7,13)
     * +R4(5,14)-R3(2,11)+(+R7(25,4)-R6(18,6)+R5(14,6)+R5(12,22)-R4(9,7)
     * -R4(7,31)+R3(5,28)-R2(4,22))*QX+(+R7(18,3)*TWO-R6(12,5)*TWO
     * +R5(9,5)*TWO-R4(5,6)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,15)*TWO
     * +R4(9,16)*TWO-R3(5,13)*TWO)*XZ+(+R6(12,10)-R5(7,14)+R4(5,15)
     * -R3(2,12))*ZZ+(+R5(12,23)-R4(7,32)+R3(5,29)-R2(4,23))*XZZ
      F(4,4,5,2)= R8(17)-R7(11,1)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,1)
     * -R5(4,13)-R5(11,13)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,11)-R3(4,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(17,3)+R7(17,4)-R6(11,5)-R6(11,6)
     * +R5(8,5)+R5(8,6)+R5(8,21)+R5(8,22)-R4(4,6)-R4(4,7)-R4(4,30)
     * -R4(4,31)+R3(3,27)+R3(3,28)-R2(1,21)-R2(1,22))*QX+(+R6(17,11)
     * -R5(11,15)+R4(8,16)+R4(8,40)-R3(4,13)-R3(4,45)+R2(5,39)-R1(1,23))
     * *XX
      F(5,4,5,2)= R8(18)-R7(12,1)+R6(9,1)+R6(18,9)-R5(5,1)-R5(12,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,3)+R7(18,4)-R6(12,5)-R6(12,6)+R5(9,5)
     * +R5(9,6)-R4(5,6)-R4(5,7))*QX+(+R7(12,3)-R6(7,5)+R5(5,5)+R5(12,21)
     * -R4(2,6)-R4(7,30)+R3(5,27)-R2(4,21))*QZ+(+R6(18,11)-R5(12,15)
     * +R4(9,16)-R3(5,13))*XX+(+R6(12,10)+R6(12,11)-R5(7,14)-R5(7,15)
     * +R4(5,15)+R4(5,16)-R3(2,12)-R3(2,13))*XZ+(+R5(12,23)-R4(7,32)
     * +R3(5,29)-R2(4,23))*XXZ
      F(6,4,5,2)= R8(24)-R7(17,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(6,14)-R3(3,11)+(+R7(24,4)-R6(17,6)+R5(13,6)+R5(13,22)-R4(8,7)
     * -R4(8,31)+R3(6,28)-R2(5,22))*QX+(+R7(17,3)-R6(11,5)+R5(8,5)
     * +R5(8,21)-R4(4,6)-R4(4,30)+R3(3,27)-R2(1,21))*QZ+(+R6(17,11)
     * -R5(11,15)+R4(8,16)+R4(8,40)-R3(4,13)-R3(4,45)+R2(5,39)-R1(1,23))
     * *XZ
      F(1,5,5,2)= R8(13)-R7(8,1)+R6(6,1)+R6(13,9)*THREE-R5(3,1)
     * -R5(8,13)*THREE+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(13,3)*TWO
     * +R7(13,4)-R6(8,5)*TWO-R6(8,6)+R5(6,5)*TWO+R5(6,6)+R5(13,21)*TWO
     * +R5(13,22)-R4(3,6)*TWO-R4(3,7)-R4(8,30)*TWO-R4(8,31)+R3(6,27)*TWO
     * +R3(6,28)-R2(5,21)*TWO-R2(5,22))*QX+(+R7(8,4)-R6(4,6)+R5(3,6)
     * +R5(8,22)*THREE-R4(1,7)-R4(4,31)*THREE+R3(3,28)*THREE
     * -R2(1,22)*THREE)*QZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,14)
     * -R5(8,15)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,12)-R3(3,13)*TWO)*XX+(
     * +R6(8,11)*TWO+R6(8,12)-R5(4,15)*TWO-R5(4,16)+R4(3,16)*TWO
     * +R4(3,17)+R4(8,40)*TWO+R4(8,41)-R3(1,13)*TWO-R3(1,14)
     * -R3(4,45)*TWO-R3(4,46)+R2(5,39)*TWO+R2(5,40)-R1(1,23)*TWO
     * -R1(1,24))*XZ+(+R5(13,23)-R4(8,32)+R3(6,29)-R2(5,23))*XXX+(
     * +R5(8,23)+R5(8,24)*TWO-R4(4,32)-R4(4,33)*TWO+R3(3,29)
     * +R3(3,30)*TWO-R2(1,23)-R2(1,24)*TWO)*XXZ+(+R4(8,42)-R3(4,47)
     * +R2(5,41)-R1(1,25))*XXXZ
      F(2,5,5,2)= R8(24)-R7(17,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(6,14)-R3(3,11)+(+R7(24,4)-R6(17,6)+R5(13,6)+R5(13,22)-R4(8,7)
     * -R4(8,31)+R3(6,28)-R2(5,22))*QX+(+R7(17,4)-R6(11,6)+R5(8,6)
     * +R5(8,22)-R4(4,7)-R4(4,31)+R3(3,28)-R2(1,22))*QZ+(+R6(17,12)
     * -R5(11,16)+R4(8,17)+R4(8,41)-R3(4,14)-R3(4,46)+R2(5,40)-R1(1,24))
     * *XZ
      F(3,5,5,2)= R8(26)-R7(19,1)+R6(15,1)+R6(13,9)*THREE-R5(10,1)
     * -R5(8,13)*THREE+R4(6,14)*THREE-R3(3,11)*THREE+(+R7(26,4)-R6(19,6)
     * +R5(15,6)+R5(13,22)*THREE-R4(10,7)-R4(8,31)*THREE+R3(6,28)*THREE
     * -R2(5,22)*THREE)*QX+(+R7(19,3)*TWO+R7(19,4)-R6(13,5)*TWO-R6(13,6)
     * +R5(10,5)*TWO+R5(10,6)+R5(8,21)*TWO+R5(8,22)-R4(6,6)*TWO-R4(6,7)
     * -R4(4,30)*TWO-R4(4,31)+R3(3,27)*TWO+R3(3,28)-R2(1,21)*TWO
     * -R2(1,22))*QZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*TWO-R5(13,16)
     * +R4(10,16)*TWO+R4(10,17)+R4(8,40)*TWO+R4(8,41)-R3(6,13)*TWO
     * -R3(6,14)-R3(4,45)*TWO-R3(4,46)+R2(5,39)*TWO+R2(5,40)
     * -R1(1,23)*TWO-R1(1,24))*XZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,14)
     * -R5(8,15)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,12)-R3(3,13)*TWO)*ZZ+(
     * +R5(13,23)+R5(13,24)*TWO-R4(8,32)-R4(8,33)*TWO+R3(6,29)
     * +R3(6,30)*TWO-R2(5,23)-R2(5,24)*TWO)*XZZ+(+R5(8,23)-R4(4,32)
     * +R3(3,29)-R2(1,23))*ZZZ+(+R4(8,42)-R3(4,47)+R2(5,41)-R1(1,25))
     * *XZZZ
      F(4,5,5,2)= R8(18)-R7(12,1)+R6(9,1)+R6(18,9)-R5(5,1)-R5(12,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,3)+R7(18,4)-R6(12,5)-R6(12,6)+R5(9,5)
     * +R5(9,6)-R4(5,6)-R4(5,7))*QX+(+R7(12,4)-R6(7,6)+R5(5,6)+R5(12,22)
     * -R4(2,7)-R4(7,31)+R3(5,28)-R2(4,22))*QZ+(+R6(18,11)-R5(12,15)
     * +R4(9,16)-R3(5,13))*XX+(+R6(12,11)+R6(12,12)-R5(7,15)-R5(7,16)
     * +R4(5,16)+R4(5,17)-R3(2,13)-R3(2,14))*XZ+(+R5(12,24)-R4(7,33)
     * +R3(5,30)-R2(4,24))*XXZ
      F(5,5,5,2)= R8(19)-R7(13,1)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,1)
     * -R5(4,13)-R5(13,13)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,11)-R3(6,11)
     * -R3(4,43)+R2(5,37)-R1(1,21)+(+R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)
     * +R5(10,5)+R5(10,6)+R5(8,21)+R5(8,22)-R4(6,6)-R4(6,7)-R4(4,30)
     * -R4(4,31)+R3(3,27)+R3(3,28)-R2(1,21)-R2(1,22))*QX+(+R7(13,3)
     * +R7(13,4)-R6(8,5)-R6(8,6)+R5(6,5)+R5(6,6)+R5(13,21)+R5(13,22)
     * -R4(3,6)-R4(3,7)-R4(8,30)-R4(8,31)+R3(6,27)+R3(6,28)-R2(5,21)
     * -R2(5,22))*QZ+(+R6(19,11)-R5(13,15)+R4(10,16)+R4(8,40)-R3(6,13)
     * -R3(4,45)+R2(5,39)-R1(1,23))*XX+(+R6(13,10)+R6(13,11)*TWO
     * +R6(13,12)-R5(8,14)-R5(8,15)*TWO-R5(8,16)+R4(6,15)+R4(6,16)*TWO
     * +R4(6,17)-R3(3,12)-R3(3,13)*TWO-R3(3,14))*XZ+(+R6(8,11)-R5(4,15)
     * +R4(3,16)+R4(8,40)-R3(1,13)-R3(4,45)+R2(5,39)-R1(1,23))*ZZ+(
     * +R5(13,23)+R5(13,24)-R4(8,32)-R4(8,33)+R3(6,29)+R3(6,30)-R2(5,23)
     * -R2(5,24))*XXZ+(+R5(8,23)+R5(8,24)-R4(4,32)-R4(4,33)+R3(3,29)
     * +R3(3,30)-R2(1,23)-R2(1,24))*XZZ+(+R4(8,42)-R3(4,47)+R2(5,41)
     * -R1(1,25))*XXZZ
      F(6,5,5,2)= R8(25)-R7(18,1)+R6(14,1)+R6(12,9)-R5(9,1)-R5(7,13)
     * +R4(5,14)-R3(2,11)+(+R7(25,4)-R6(18,6)+R5(14,6)+R5(12,22)-R4(9,7)
     * -R4(7,31)+R3(5,28)-R2(4,22))*QX+(+R7(18,3)+R7(18,4)-R6(12,5)
     * -R6(12,6)+R5(9,5)+R5(9,6)-R4(5,6)-R4(5,7))*QZ+(+R6(18,11)
     * +R6(18,12)-R5(12,15)-R5(12,16)+R4(9,16)+R4(9,17)-R3(5,13)
     * -R3(5,14))*XZ+(+R6(12,11)-R5(7,15)+R4(5,16)-R3(2,13))*ZZ+(
     * +R5(12,24)-R4(7,33)+R3(5,30)-R2(4,24))*XZZ
      F(1,6,5,2)= R8(18)-R7(12,1)+R6(9,1)+R6(18,9)-R5(5,1)-R5(12,13)
     * +R4(9,14)-R3(5,11)+(+R7(18,3)*TWO-R6(12,5)*TWO+R5(9,5)*TWO
     * -R4(5,6)*TWO)*QX+(+R7(12,4)-R6(7,6)+R5(5,6)+R5(12,22)-R4(2,7)
     * -R4(7,31)+R3(5,28)-R2(4,22))*QZ+(+R6(18,10)-R5(12,14)+R4(9,15)
     * -R3(5,12))*XX+(+R6(12,11)*TWO-R5(7,15)*TWO+R4(5,16)*TWO
     * -R3(2,13)*TWO)*XZ+(+R5(12,23)-R4(7,32)+R3(5,29)-R2(4,23))*XXZ
      F(2,6,5,2)= R8(31)-R7(23,1)+R6(18,1)+R6(18,9)*THREE-R5(12,1)
     * -R5(12,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(23,4)
     * -R6(16,6)+R5(12,6)+R5(12,22)*THREE-R4(7,7)-R4(7,31)*THREE
     * +R3(5,28)*THREE-R2(4,22)*THREE)*QZ
      F(3,6,5,2)= R8(33)-R7(25,1)+R6(20,1)+R6(18,9)*THREE-R5(14,1)
     * -R5(12,13)*THREE+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(25,3)*TWO
     * +R7(25,4)-R6(18,5)*TWO-R6(18,6)+R5(14,5)*TWO+R5(14,6)
     * +R5(12,21)*TWO+R5(12,22)-R4(9,6)*TWO-R4(9,7)-R4(7,30)*TWO
     * -R4(7,31)+R3(5,27)*TWO+R3(5,28)-R2(4,21)*TWO-R2(4,22))*QZ+(
     * +R6(18,10)+R6(18,11)*TWO-R5(12,14)-R5(12,15)*TWO+R4(9,15)
     * +R4(9,16)*TWO-R3(5,12)-R3(5,13)*TWO)*ZZ+(+R5(12,23)-R4(7,32)
     * +R3(5,29)-R2(4,23))*ZZZ
      F(4,6,5,2)= R8(24)-R7(17,1)+R6(13,1)+R6(13,9)-R5(8,1)-R5(8,13)
     * +R4(6,14)-R3(3,11)+(+R7(24,3)-R6(17,5)+R5(13,5)+R5(13,21)-R4(8,6)
     * -R4(8,30)+R3(6,27)-R2(5,21))*QX+(+R7(17,4)-R6(11,6)+R5(8,6)
     * +R5(8,22)-R4(4,7)-R4(4,31)+R3(3,28)-R2(1,22))*QZ+(+R6(17,11)
     * -R5(11,15)+R4(8,16)+R4(8,40)-R3(4,13)-R3(4,45)+R2(5,39)-R1(1,23))
     * *XZ
      F(5,6,5,2)= R8(25)-R7(18,1)+R6(14,1)+R6(12,9)-R5(9,1)-R5(7,13)
     * +R4(5,14)-R3(2,11)+(+R7(25,3)-R6(18,5)+R5(14,5)+R5(12,21)-R4(9,6)
     * -R4(7,30)+R3(5,27)-R2(4,21))*QX+(+R7(18,3)+R7(18,4)-R6(12,5)
     * -R6(12,6)+R5(9,5)+R5(9,6)-R4(5,6)-R4(5,7))*QZ+(+R6(18,10)
     * +R6(18,11)-R5(12,14)-R5(12,15)+R4(9,15)+R4(9,16)-R3(5,12)
     * -R3(5,13))*XZ+(+R6(12,11)-R5(7,15)+R4(5,16)-R3(2,13))*ZZ+(
     * +R5(12,23)-R4(7,32)+R3(5,29)-R2(4,23))*XZZ
      F(6,6,5,2)= R8(32)-R7(24,1)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,1)
     * -R5(11,13)-R5(13,13)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,11)
     * -R3(6,11)-R3(4,43)+R2(5,37)-R1(1,21)+(+R7(24,3)+R7(24,4)-R6(17,5)
     * -R6(17,6)+R5(13,5)+R5(13,6)+R5(13,21)+R5(13,22)-R4(8,6)-R4(8,7)
     * -R4(8,30)-R4(8,31)+R3(6,27)+R3(6,28)-R2(5,21)-R2(5,22))*QZ+(
     * +R6(17,11)-R5(11,15)+R4(8,16)+R4(8,40)-R3(4,13)-R3(4,45)+R2(5,39)
     * -R1(1,23))*ZZ
      F(1,1,6,2)= R8(12)-R7(7,1)+R6(5,1)*THREE+R6(12,9)*SIX
     * -R5(2,1)*THREE-R5(7,13)*SIX+R4(5,14)*P18+R4(12,38)*THREE
     * -R3(2,11)*P18-R3(7,43)*THREE+R2(6,37)*NINE-R1(2,21)*NINE+(
     * +R7(12,3)*TWO+R7(12,4)*TWO-R6(7,5)*TWO-R6(7,6)*TWO+R5(5,5)*SIX
     * +R5(5,6)*SIX+R5(12,21)*SIX+R5(12,22)*SIX-R4(2,6)*SIX-R4(2,7)*SIX
     * -R4(7,30)*SIX-R4(7,31)*SIX+R3(5,27)*P18+R3(5,28)*P18-R2(4,21)*P18
     * -R2(4,22)*P18)*QX+(+R6(12,10)+R6(12,11)*FOUR+R6(12,12)-R5(7,14)
     * -R5(7,15)*FOUR-R5(7,16)+R4(5,15)*THREE+R4(5,16)*TWELV
     * +R4(5,17)*THREE+R4(12,39)+R4(12,40)*FOUR+R4(12,41)-R3(2,12)*THREE
     * -R3(2,13)*TWELV-R3(2,14)*THREE-R3(7,44)-R3(7,45)*FOUR-R3(7,46)
     * +R2(6,38)*THREE+R2(6,39)*TWELV+R2(6,40)*THREE-R1(2,22)*THREE
     * -R1(2,23)*TWELV-R1(2,24)*THREE)*XX+(+R5(12,23)*TWO+R5(12,24)*TWO
     * -R4(7,32)*TWO-R4(7,33)*TWO+R3(5,29)*SIX+R3(5,30)*SIX-R2(4,23)*SIX
     * -R2(4,24)*SIX)*XXX+(+R4(12,42)-R3(7,47)+R2(6,41)*THREE
     * -R1(2,25)*THREE)*XXXX
      F(2,1,6,2)= R8(23)-R7(16,1)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,1)*THREE-R5(7,13)-R5(16,13)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(7,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(23,4)*TWO-R6(16,6)*TWO+R5(12,6)*SIX
     * +R5(12,22)*TWO-R4(7,7)*SIX-R4(7,31)*TWO+R3(5,28)*SIX-R2(4,22)*SIX
     * )*QX+(+R6(23,12)-R5(16,16)+R4(12,17)*THREE+R4(12,41)
     * -R3(7,14)*THREE-R3(7,46)+R2(6,40)*THREE-R1(2,24)*THREE)*XX
      F(3,1,6,2)= R8(25)-R7(18,1)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,1)*THREE-R5(7,13)-R5(18,13)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(9,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(25,4)*TWO-R6(18,6)*TWO+R5(14,6)*SIX
     * +R5(12,22)*TWO-R4(9,7)*SIX-R4(7,31)*TWO+R3(5,28)*SIX-R2(4,22)*SIX
     * )*QX+(+R7(18,3)*TWO-R6(12,5)*TWO+R5(9,5)*SIX+R5(18,21)*TWO
     * -R4(5,6)*SIX-R4(12,30)*TWO+R3(9,27)*SIX-R2(6,21)*SIX)*QZ+(
     * +R6(25,12)-R5(18,16)+R4(14,17)*THREE+R4(12,41)-R3(9,14)*THREE
     * -R3(7,46)+R2(6,40)*THREE-R1(2,24)*THREE)*XX+(+R6(18,11)*FOUR
     * -R5(12,15)*FOUR+R4(9,16)*TWELV-R3(5,13)*TWELV)*XZ+(+R6(12,10)
     * -R5(7,14)+R4(5,15)*THREE+R4(12,39)-R3(2,12)*THREE-R3(7,44)
     * +R2(6,38)*THREE-R1(2,22)*THREE)*ZZ+(+R5(18,24)*TWO-R4(12,33)*TWO
     * +R3(9,30)*SIX-R2(6,24)*SIX)*XXZ+(+R5(12,23)*TWO-R4(7,32)*TWO
     * +R3(5,29)*SIX-R2(4,23)*SIX)*XZZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XXZZ
      F(4,1,6,2)= R8(17)-R7(11,1)+R6(8,1)*THREE+R6(17,9)*THREE
     * -R5(4,1)*THREE-R5(11,13)*THREE+R4(8,14)*NINE-R3(4,11)*NINE+(
     * +R7(17,3)+R7(17,4)*TWO-R6(11,5)-R6(11,6)*TWO+R5(8,5)*THREE
     * +R5(8,6)*SIX+R5(17,21)+R5(17,22)*TWO-R4(4,6)*THREE-R4(4,7)*SIX
     * -R4(11,30)-R4(11,31)*TWO+R3(8,27)*THREE+R3(8,28)*SIX
     * -R2(2,21)*THREE-R2(2,22)*SIX)*QX+(+R6(17,11)*TWO+R6(17,12)
     * -R5(11,15)*TWO-R5(11,16)+R4(8,16)*SIX+R4(8,17)*THREE-R3(4,13)*SIX
     * -R3(4,14)*THREE)*XX+(+R5(17,24)-R4(11,33)+R3(8,30)*THREE
     * -R2(2,24)*THREE)*XXX
      F(5,1,6,2)= R8(18)-R7(12,1)+R6(9,1)*THREE+R6(18,9)*THREE
     * -R5(5,1)*THREE-R5(12,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(18,3)+R7(18,4)*TWO-R6(12,5)-R6(12,6)*TWO+R5(9,5)*THREE
     * +R5(9,6)*SIX+R5(18,21)+R5(18,22)*TWO-R4(5,6)*THREE-R4(5,7)*SIX
     * -R4(12,30)-R4(12,31)*TWO+R3(9,27)*THREE+R3(9,28)*SIX
     * -R2(6,21)*THREE-R2(6,22)*SIX)*QX+(+R7(12,3)-R6(7,5)+R5(5,5)*THREE
     * +R5(12,21)*THREE-R4(2,6)*THREE-R4(7,30)*THREE+R3(5,27)*NINE
     * -R2(4,21)*NINE)*QZ+(+R6(18,11)*TWO+R6(18,12)-R5(12,15)*TWO
     * -R5(12,16)+R4(9,16)*SIX+R4(9,17)*THREE-R3(5,13)*SIX
     * -R3(5,14)*THREE)*XX+(+R6(12,10)+R6(12,11)*TWO-R5(7,14)
     * -R5(7,15)*TWO+R4(5,15)*THREE+R4(5,16)*SIX+R4(12,39)+R4(12,40)*TWO
     * -R3(2,12)*THREE-R3(2,13)*SIX-R3(7,44)-R3(7,45)*TWO+R2(6,38)*THREE
     * +R2(6,39)*SIX-R1(2,22)*THREE-R1(2,23)*SIX)*XZ+(+R5(18,24)
     * -R4(12,33)+R3(9,30)*THREE-R2(6,24)*THREE)*XXX+(+R5(12,23)*TWO
     * +R5(12,24)-R4(7,32)*TWO-R4(7,33)+R3(5,29)*SIX+R3(5,30)*THREE
     * -R2(4,23)*SIX-R2(4,24)*THREE)*XXZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XXXZ
      F(6,1,6,2)= R8(24)-R7(17,1)+R6(13,1)*THREE+R6(24,9)-R5(8,1)*THREE
     * -R5(17,13)+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(24,4)*TWO
     * -R6(17,6)*TWO+R5(13,6)*SIX-R4(8,7)*SIX)*QX+(+R7(17,3)-R6(11,5)
     * +R5(8,5)*THREE+R5(17,21)-R4(4,6)*THREE-R4(11,30)+R3(8,27)*THREE
     * -R2(2,21)*THREE)*QZ+(+R6(24,12)-R5(17,16)+R4(13,17)*THREE
     * -R3(8,14)*THREE)*XX+(+R6(17,11)*TWO-R5(11,15)*TWO+R4(8,16)*SIX
     * -R3(4,13)*SIX)*XZ+(+R5(17,24)-R4(11,33)+R3(8,30)*THREE
     * -R2(2,24)*THREE)*XXZ
      F(1,2,6,2)= R8(23)-R7(16,1)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,1)*THREE-R5(7,13)-R5(16,13)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(7,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(23,3)*TWO-R6(16,5)*TWO+R5(12,5)*SIX
     * +R5(12,21)*TWO-R4(7,6)*SIX-R4(7,30)*TWO+R3(5,27)*SIX-R2(4,21)*SIX
     * )*QX+(+R6(23,10)-R5(16,14)+R4(12,15)*THREE+R4(12,39)
     * -R3(7,12)*THREE-R3(7,44)+R2(6,38)*THREE-R1(2,22)*THREE)*XX
      F(2,2,6,2)= R8(38)-R7(29,1)+R6(23,1)*THREE+R6(23,9)*SIX
     * -R5(16,1)*THREE-R5(16,13)*SIX+R4(12,14)*P18+R4(12,38)*THREE
     * -R3(7,11)*P18-R3(7,43)*THREE+R2(6,37)*NINE-R1(2,21)*NINE
      F(3,2,6,2)= R8(40)-R7(31,1)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,1)*THREE-R5(16,13)-R5(18,13)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,11)*THREE-R3(9,11)*THREE-R3(7,43)
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R7(31,3)*TWO-R6(23,5)*TWO
     * +R5(18,5)*SIX+R5(18,21)*TWO-R4(12,6)*SIX-R4(12,30)*TWO
     * +R3(9,27)*SIX-R2(6,21)*SIX)*QZ+(+R6(23,10)-R5(16,14)
     * +R4(12,15)*THREE+R4(12,39)-R3(7,12)*THREE-R3(7,44)+R2(6,38)*THREE
     * -R1(2,22)*THREE)*ZZ
      F(4,2,6,2)= R8(30)-R7(22,1)+R6(17,1)*THREE+R6(17,9)*THREE
     * -R5(11,1)*THREE-R5(11,13)*THREE+R4(8,14)*NINE-R3(4,11)*NINE+(
     * +R7(30,3)-R6(22,5)+R5(17,5)*THREE+R5(17,21)*THREE-R4(11,6)*THREE
     * -R4(11,30)*THREE+R3(8,27)*NINE-R2(2,21)*NINE)*QX
      F(5,2,6,2)= R8(31)-R7(23,1)+R6(18,1)*THREE+R6(18,9)-R5(12,1)*THREE
     * -R5(12,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(31,3)-R6(23,5)
     * +R5(18,5)*THREE+R5(18,21)-R4(12,6)*THREE-R4(12,30)+R3(9,27)*THREE
     * -R2(6,21)*THREE)*QX+(+R7(23,3)-R6(16,5)+R5(12,5)*THREE+R5(12,21)
     * -R4(7,6)*THREE-R4(7,30)+R3(5,27)*THREE-R2(4,21)*THREE)*QZ+(
     * +R6(23,10)-R5(16,14)+R4(12,15)*THREE+R4(12,39)-R3(7,12)*THREE
     * -R3(7,44)+R2(6,38)*THREE-R1(2,22)*THREE)*XZ
      F(6,2,6,2)= R8(39)-R7(30,1)+R6(24,1)*THREE+R6(24,9)*THREE
     * -R5(17,1)*THREE-R5(17,13)*THREE+R4(13,14)*NINE-R3(8,11)*NINE+(
     * +R7(30,3)-R6(22,5)+R5(17,5)*THREE+R5(17,21)*THREE-R4(11,6)*THREE
     * -R4(11,30)*THREE+R3(8,27)*NINE-R2(2,21)*NINE)*QZ
      F(1,3,6,2)= R8(25)-R7(18,1)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,1)*THREE-R5(7,13)-R5(18,13)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(9,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(25,3)*TWO-R6(18,5)*TWO+R5(14,5)*SIX
     * +R5(12,21)*TWO-R4(9,6)*SIX-R4(7,30)*TWO+R3(5,27)*SIX-R2(4,21)*SIX
     * )*QX+(+R7(18,4)*TWO-R6(12,6)*TWO+R5(9,6)*SIX+R5(18,22)*TWO
     * -R4(5,7)*SIX-R4(12,31)*TWO+R3(9,28)*SIX-R2(6,22)*SIX)*QZ+(
     * +R6(25,10)-R5(18,14)+R4(14,15)*THREE+R4(12,39)-R3(9,12)*THREE
     * -R3(7,44)+R2(6,38)*THREE-R1(2,22)*THREE)*XX+(+R6(18,11)*FOUR
     * -R5(12,15)*FOUR+R4(9,16)*TWELV-R3(5,13)*TWELV)*XZ+(+R6(12,12)
     * -R5(7,16)+R4(5,17)*THREE+R4(12,41)-R3(2,14)*THREE-R3(7,46)
     * +R2(6,40)*THREE-R1(2,24)*THREE)*ZZ+(+R5(18,23)*TWO-R4(12,32)*TWO
     * +R3(9,29)*SIX-R2(6,23)*SIX)*XXZ+(+R5(12,24)*TWO-R4(7,33)*TWO
     * +R3(5,30)*SIX-R2(4,24)*SIX)*XZZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XXZZ
      F(2,3,6,2)= R8(40)-R7(31,1)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,1)*THREE-R5(16,13)-R5(18,13)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,11)*THREE-R3(9,11)*THREE-R3(7,43)
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R7(31,4)*TWO-R6(23,6)*TWO
     * +R5(18,6)*SIX+R5(18,22)*TWO-R4(12,7)*SIX-R4(12,31)*TWO
     * +R3(9,28)*SIX-R2(6,22)*SIX)*QZ+(+R6(23,12)-R5(16,16)
     * +R4(12,17)*THREE+R4(12,41)-R3(7,14)*THREE-R3(7,46)+R2(6,40)*THREE
     * -R1(2,24)*THREE)*ZZ
      F(3,3,6,2)= R8(42)-R7(33,1)+R6(27,1)*THREE+R6(25,9)*SIX
     * -R5(20,1)*THREE-R5(18,13)*SIX+R4(14,14)*P18+R4(12,38)*THREE
     * -R3(9,11)*P18-R3(7,43)*THREE+R2(6,37)*NINE-R1(2,21)*NINE+(
     * +R7(33,3)*TWO+R7(33,4)*TWO-R6(25,5)*TWO-R6(25,6)*TWO+R5(20,5)*SIX
     * +R5(20,6)*SIX+R5(18,21)*SIX+R5(18,22)*SIX-R4(14,6)*SIX
     * -R4(14,7)*SIX-R4(12,30)*SIX-R4(12,31)*SIX+R3(9,27)*P18
     * +R3(9,28)*P18-R2(6,21)*P18-R2(6,22)*P18)*QZ+(+R6(25,10)
     * +R6(25,11)*FOUR+R6(25,12)-R5(18,14)-R5(18,15)*FOUR-R5(18,16)
     * +R4(14,15)*THREE+R4(14,16)*TWELV+R4(14,17)*THREE+R4(12,39)
     * +R4(12,40)*FOUR+R4(12,41)-R3(9,12)*THREE-R3(9,13)*TWELV
     * -R3(9,14)*THREE-R3(7,44)-R3(7,45)*FOUR-R3(7,46)+R2(6,38)*THREE
     * +R2(6,39)*TWELV+R2(6,40)*THREE-R1(2,22)*THREE-R1(2,23)*TWELV
     * -R1(2,24)*THREE)*ZZ+(+R5(18,23)*TWO+R5(18,24)*TWO-R4(12,32)*TWO
     * -R4(12,33)*TWO+R3(9,29)*SIX+R3(9,30)*SIX-R2(6,23)*SIX
     * -R2(6,24)*SIX)*ZZZ+(+R4(12,42)-R3(7,47)+R2(6,41)*THREE
     * -R1(2,25)*THREE)*ZZZZ
      F(4,3,6,2)= R8(32)-R7(24,1)+R6(19,1)*THREE+R6(17,9)-R5(13,1)*THREE
     * -R5(11,13)+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(32,3)-R6(24,5)
     * +R5(19,5)*THREE+R5(17,21)-R4(13,6)*THREE-R4(11,30)+R3(8,27)*THREE
     * -R2(2,21)*THREE)*QX+(+R7(24,4)*TWO-R6(17,6)*TWO+R5(13,6)*SIX
     * -R4(8,7)*SIX)*QZ+(+R6(24,11)*TWO-R5(17,15)*TWO+R4(13,16)*SIX
     * -R3(8,13)*SIX)*XZ+(+R6(17,12)-R5(11,16)+R4(8,17)*THREE
     * -R3(4,14)*THREE)*ZZ+(+R5(17,24)-R4(11,33)+R3(8,30)*THREE
     * -R2(2,24)*THREE)*XZZ
      F(5,3,6,2)= R8(33)-R7(25,1)+R6(20,1)*THREE+R6(18,9)*THREE
     * -R5(14,1)*THREE-R5(12,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(33,3)-R6(25,5)+R5(20,5)*THREE+R5(18,21)*THREE-R4(14,6)*THREE
     * -R4(12,30)*THREE+R3(9,27)*NINE-R2(6,21)*NINE)*QX+(+R7(25,3)
     * +R7(25,4)*TWO-R6(18,5)-R6(18,6)*TWO+R5(14,5)*THREE+R5(14,6)*SIX
     * +R5(12,21)+R5(12,22)*TWO-R4(9,6)*THREE-R4(9,7)*SIX-R4(7,30)
     * -R4(7,31)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,21)*THREE
     * -R2(4,22)*SIX)*QZ+(+R6(25,10)+R6(25,11)*TWO-R5(18,14)
     * -R5(18,15)*TWO+R4(14,15)*THREE+R4(14,16)*SIX+R4(12,39)
     * +R4(12,40)*TWO-R3(9,12)*THREE-R3(9,13)*SIX-R3(7,44)-R3(7,45)*TWO
     * +R2(6,38)*THREE+R2(6,39)*SIX-R1(2,22)*THREE-R1(2,23)*SIX)*XZ+(
     * +R6(18,11)*TWO+R6(18,12)-R5(12,15)*TWO-R5(12,16)+R4(9,16)*SIX
     * +R4(9,17)*THREE-R3(5,13)*SIX-R3(5,14)*THREE)*ZZ+(+R5(18,23)*TWO
     * +R5(18,24)-R4(12,32)*TWO-R4(12,33)+R3(9,29)*SIX+R3(9,30)*THREE
     * -R2(6,23)*SIX-R2(6,24)*THREE)*XZZ+(+R5(12,24)-R4(7,33)
     * +R3(5,30)*THREE-R2(4,24)*THREE)*ZZZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XZZZ
      F(6,3,6,2)= R8(41)-R7(32,1)+R6(26,1)*THREE+R6(24,9)*THREE
     * -R5(19,1)*THREE-R5(17,13)*THREE+R4(13,14)*NINE-R3(8,11)*NINE+(
     * +R7(32,3)+R7(32,4)*TWO-R6(24,5)-R6(24,6)*TWO+R5(19,5)*THREE
     * +R5(19,6)*SIX+R5(17,21)+R5(17,22)*TWO-R4(13,6)*THREE-R4(13,7)*SIX
     * -R4(11,30)-R4(11,31)*TWO+R3(8,27)*THREE+R3(8,28)*SIX
     * -R2(2,21)*THREE-R2(2,22)*SIX)*QZ+(+R6(24,11)*TWO+R6(24,12)
     * -R5(17,15)*TWO-R5(17,16)+R4(13,16)*SIX+R4(13,17)*THREE
     * -R3(8,13)*SIX-R3(8,14)*THREE)*ZZ+(+R5(17,24)-R4(11,33)
     * +R3(8,30)*THREE-R2(2,24)*THREE)*ZZZ
      F(1,4,6,2)= R8(17)-R7(11,1)+R6(8,1)*THREE+R6(17,9)*THREE
     * -R5(4,1)*THREE-R5(11,13)*THREE+R4(8,14)*NINE-R3(4,11)*NINE+(
     * +R7(17,3)*TWO+R7(17,4)-R6(11,5)*TWO-R6(11,6)+R5(8,5)*SIX
     * +R5(8,6)*THREE+R5(17,21)*TWO+R5(17,22)-R4(4,6)*SIX-R4(4,7)*THREE
     * -R4(11,30)*TWO-R4(11,31)+R3(8,27)*SIX+R3(8,28)*THREE-R2(2,21)*SIX
     * -R2(2,22)*THREE)*QX+(+R6(17,10)+R6(17,11)*TWO-R5(11,14)
     * -R5(11,15)*TWO+R4(8,15)*THREE+R4(8,16)*SIX-R3(4,12)*THREE
     * -R3(4,13)*SIX)*XX+(+R5(17,23)-R4(11,32)+R3(8,29)*THREE
     * -R2(2,23)*THREE)*XXX
      F(2,4,6,2)= R8(30)-R7(22,1)+R6(17,1)*THREE+R6(17,9)*THREE
     * -R5(11,1)*THREE-R5(11,13)*THREE+R4(8,14)*NINE-R3(4,11)*NINE+(
     * +R7(30,4)-R6(22,6)+R5(17,6)*THREE+R5(17,22)*THREE-R4(11,7)*THREE
     * -R4(11,31)*THREE+R3(8,28)*NINE-R2(2,22)*NINE)*QX
      F(3,4,6,2)= R8(32)-R7(24,1)+R6(19,1)*THREE+R6(17,9)-R5(13,1)*THREE
     * -R5(11,13)+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(32,4)-R6(24,6)
     * +R5(19,6)*THREE+R5(17,22)-R4(13,7)*THREE-R4(11,31)+R3(8,28)*THREE
     * -R2(2,22)*THREE)*QX+(+R7(24,3)*TWO-R6(17,5)*TWO+R5(13,5)*SIX
     * -R4(8,6)*SIX)*QZ+(+R6(24,11)*TWO-R5(17,15)*TWO+R4(13,16)*SIX
     * -R3(8,13)*SIX)*XZ+(+R6(17,10)-R5(11,14)+R4(8,15)*THREE
     * -R3(4,12)*THREE)*ZZ+(+R5(17,23)-R4(11,32)+R3(8,29)*THREE
     * -R2(2,23)*THREE)*XZZ
      F(4,4,6,2)= R8(23)-R7(16,1)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,1)*THREE-R5(7,13)-R5(16,13)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(7,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(23,3)+R7(23,4)-R6(16,5)-R6(16,6)
     * +R5(12,5)*THREE+R5(12,6)*THREE+R5(12,21)+R5(12,22)-R4(7,6)*THREE
     * -R4(7,7)*THREE-R4(7,30)-R4(7,31)+R3(5,27)*THREE+R3(5,28)*THREE
     * -R2(4,21)*THREE-R2(4,22)*THREE)*QX+(+R6(23,11)-R5(16,15)
     * +R4(12,16)*THREE+R4(12,40)-R3(7,13)*THREE-R3(7,45)+R2(6,39)*THREE
     * -R1(2,23)*THREE)*XX
      F(5,4,6,2)= R8(24)-R7(17,1)+R6(13,1)*THREE+R6(24,9)-R5(8,1)*THREE
     * -R5(17,13)+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(24,3)+R7(24,4)
     * -R6(17,5)-R6(17,6)+R5(13,5)*THREE+R5(13,6)*THREE-R4(8,6)*THREE
     * -R4(8,7)*THREE)*QX+(+R7(17,3)-R6(11,5)+R5(8,5)*THREE+R5(17,21)
     * -R4(4,6)*THREE-R4(11,30)+R3(8,27)*THREE-R2(2,21)*THREE)*QZ+(
     * +R6(24,11)-R5(17,15)+R4(13,16)*THREE-R3(8,13)*THREE)*XX+(
     * +R6(17,10)+R6(17,11)-R5(11,14)-R5(11,15)+R4(8,15)*THREE
     * +R4(8,16)*THREE-R3(4,12)*THREE-R3(4,13)*THREE)*XZ+(+R5(17,23)
     * -R4(11,32)+R3(8,29)*THREE-R2(2,23)*THREE)*XXZ
      F(6,4,6,2)= R8(31)-R7(23,1)+R6(18,1)*THREE+R6(18,9)-R5(12,1)*THREE
     * -R5(12,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(31,4)-R6(23,6)
     * +R5(18,6)*THREE+R5(18,22)-R4(12,7)*THREE-R4(12,31)+R3(9,28)*THREE
     * -R2(6,22)*THREE)*QX+(+R7(23,3)-R6(16,5)+R5(12,5)*THREE+R5(12,21)
     * -R4(7,6)*THREE-R4(7,30)+R3(5,27)*THREE-R2(4,21)*THREE)*QZ+(
     * +R6(23,11)-R5(16,15)+R4(12,16)*THREE+R4(12,40)-R3(7,13)*THREE
     * -R3(7,45)+R2(6,39)*THREE-R1(2,23)*THREE)*XZ
      F(1,5,6,2)= R8(18)-R7(12,1)+R6(9,1)*THREE+R6(18,9)*THREE
     * -R5(5,1)*THREE-R5(12,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(18,3)*TWO+R7(18,4)-R6(12,5)*TWO-R6(12,6)+R5(9,5)*SIX
     * +R5(9,6)*THREE+R5(18,21)*TWO+R5(18,22)-R4(5,6)*SIX-R4(5,7)*THREE
     * -R4(12,30)*TWO-R4(12,31)+R3(9,27)*SIX+R3(9,28)*THREE-R2(6,21)*SIX
     * -R2(6,22)*THREE)*QX+(+R7(12,4)-R6(7,6)+R5(5,6)*THREE
     * +R5(12,22)*THREE-R4(2,7)*THREE-R4(7,31)*THREE+R3(5,28)*NINE
     * -R2(4,22)*NINE)*QZ+(+R6(18,10)+R6(18,11)*TWO-R5(12,14)
     * -R5(12,15)*TWO+R4(9,15)*THREE+R4(9,16)*SIX-R3(5,12)*THREE
     * -R3(5,13)*SIX)*XX+(+R6(12,11)*TWO+R6(12,12)-R5(7,15)*TWO-R5(7,16)
     * +R4(5,16)*SIX+R4(5,17)*THREE+R4(12,40)*TWO+R4(12,41)-R3(2,13)*SIX
     * -R3(2,14)*THREE-R3(7,45)*TWO-R3(7,46)+R2(6,39)*SIX+R2(6,40)*THREE
     * -R1(2,23)*SIX-R1(2,24)*THREE)*XZ+(+R5(18,23)-R4(12,32)
     * +R3(9,29)*THREE-R2(6,23)*THREE)*XXX+(+R5(12,23)+R5(12,24)*TWO
     * -R4(7,32)-R4(7,33)*TWO+R3(5,29)*THREE+R3(5,30)*SIX-R2(4,23)*THREE
     * -R2(4,24)*SIX)*XXZ+(+R4(12,42)-R3(7,47)+R2(6,41)*THREE
     * -R1(2,25)*THREE)*XXXZ
      F(2,5,6,2)= R8(31)-R7(23,1)+R6(18,1)*THREE+R6(18,9)-R5(12,1)*THREE
     * -R5(12,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(31,4)-R6(23,6)
     * +R5(18,6)*THREE+R5(18,22)-R4(12,7)*THREE-R4(12,31)+R3(9,28)*THREE
     * -R2(6,22)*THREE)*QX+(+R7(23,4)-R6(16,6)+R5(12,6)*THREE+R5(12,22)
     * -R4(7,7)*THREE-R4(7,31)+R3(5,28)*THREE-R2(4,22)*THREE)*QZ+(
     * +R6(23,12)-R5(16,16)+R4(12,17)*THREE+R4(12,41)-R3(7,14)*THREE
     * -R3(7,46)+R2(6,40)*THREE-R1(2,24)*THREE)*XZ
      F(3,5,6,2)= R8(33)-R7(25,1)+R6(20,1)*THREE+R6(18,9)*THREE
     * -R5(14,1)*THREE-R5(12,13)*THREE+R4(9,14)*NINE-R3(5,11)*NINE+(
     * +R7(33,4)-R6(25,6)+R5(20,6)*THREE+R5(18,22)*THREE-R4(14,7)*THREE
     * -R4(12,31)*THREE+R3(9,28)*NINE-R2(6,22)*NINE)*QX+(+R7(25,3)*TWO
     * +R7(25,4)-R6(18,5)*TWO-R6(18,6)+R5(14,5)*SIX+R5(14,6)*THREE
     * +R5(12,21)*TWO+R5(12,22)-R4(9,6)*SIX-R4(9,7)*THREE-R4(7,30)*TWO
     * -R4(7,31)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,21)*SIX-R2(4,22)*THREE
     * )*QZ+(+R6(25,11)*TWO+R6(25,12)-R5(18,15)*TWO-R5(18,16)
     * +R4(14,16)*SIX+R4(14,17)*THREE+R4(12,40)*TWO+R4(12,41)
     * -R3(9,13)*SIX-R3(9,14)*THREE-R3(7,45)*TWO-R3(7,46)+R2(6,39)*SIX
     * +R2(6,40)*THREE-R1(2,23)*SIX-R1(2,24)*THREE)*XZ+(+R6(18,10)
     * +R6(18,11)*TWO-R5(12,14)-R5(12,15)*TWO+R4(9,15)*THREE
     * +R4(9,16)*SIX-R3(5,12)*THREE-R3(5,13)*SIX)*ZZ+(+R5(18,23)
     * +R5(18,24)*TWO-R4(12,32)-R4(12,33)*TWO+R3(9,29)*THREE
     * +R3(9,30)*SIX-R2(6,23)*THREE-R2(6,24)*SIX)*XZZ+(+R5(12,23)
     * -R4(7,32)+R3(5,29)*THREE-R2(4,23)*THREE)*ZZZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XZZZ
      F(4,5,6,2)= R8(24)-R7(17,1)+R6(13,1)*THREE+R6(24,9)-R5(8,1)*THREE
     * -R5(17,13)+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(24,3)+R7(24,4)
     * -R6(17,5)-R6(17,6)+R5(13,5)*THREE+R5(13,6)*THREE-R4(8,6)*THREE
     * -R4(8,7)*THREE)*QX+(+R7(17,4)-R6(11,6)+R5(8,6)*THREE+R5(17,22)
     * -R4(4,7)*THREE-R4(11,31)+R3(8,28)*THREE-R2(2,22)*THREE)*QZ+(
     * +R6(24,11)-R5(17,15)+R4(13,16)*THREE-R3(8,13)*THREE)*XX+(
     * +R6(17,11)+R6(17,12)-R5(11,15)-R5(11,16)+R4(8,16)*THREE
     * +R4(8,17)*THREE-R3(4,13)*THREE-R3(4,14)*THREE)*XZ+(+R5(17,24)
     * -R4(11,33)+R3(8,30)*THREE-R2(2,24)*THREE)*XXZ
      F(5,5,6,2)= R8(25)-R7(18,1)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,1)*THREE-R5(7,13)-R5(18,13)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,11)*THREE-R3(9,11)*THREE-R3(7,43)+R2(6,37)*THREE
     * -R1(2,21)*THREE+(+R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)
     * +R5(14,5)*THREE+R5(14,6)*THREE+R5(12,21)+R5(12,22)-R4(9,6)*THREE
     * -R4(9,7)*THREE-R4(7,30)-R4(7,31)+R3(5,27)*THREE+R3(5,28)*THREE
     * -R2(4,21)*THREE-R2(4,22)*THREE)*QX+(+R7(18,3)+R7(18,4)-R6(12,5)
     * -R6(12,6)+R5(9,5)*THREE+R5(9,6)*THREE+R5(18,21)+R5(18,22)
     * -R4(5,6)*THREE-R4(5,7)*THREE-R4(12,30)-R4(12,31)+R3(9,27)*THREE
     * +R3(9,28)*THREE-R2(6,21)*THREE-R2(6,22)*THREE)*QZ+(+R6(25,11)
     * -R5(18,15)+R4(14,16)*THREE+R4(12,40)-R3(9,13)*THREE-R3(7,45)
     * +R2(6,39)*THREE-R1(2,23)*THREE)*XX
      F(5,5,6,2)= F(5,5,6,2)+(+R6(18,10)+R6(18,11)*TWO
     * +R6(18,12)-R5(12,14)-R5(12,15)*TWO-R5(12,16)+R4(9,15)*THREE
     * +R4(9,16)*SIX+R4(9,17)*THREE-R3(5,12)*THREE-R3(5,13)*SIX
     * -R3(5,14)*THREE)*XZ+(+R6(12,11)-R5(7,15)+R4(5,16)*THREE+R4(12,40)
     * -R3(2,13)*THREE-R3(7,45)+R2(6,39)*THREE-R1(2,23)*THREE)*ZZ+(
     * +R5(18,23)+R5(18,24)-R4(12,32)-R4(12,33)+R3(9,29)*THREE
     * +R3(9,30)*THREE-R2(6,23)*THREE-R2(6,24)*THREE)*XXZ+(+R5(12,23)
     * +R5(12,24)-R4(7,32)-R4(7,33)+R3(5,29)*THREE+R3(5,30)*THREE
     * -R2(4,23)*THREE-R2(4,24)*THREE)*XZZ+(+R4(12,42)-R3(7,47)
     * +R2(6,41)*THREE-R1(2,25)*THREE)*XXZZ
      F(6,5,6,2)= R8(32)-R7(24,1)+R6(19,1)*THREE+R6(17,9)-R5(13,1)*THREE
     * -R5(11,13)+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(32,4)-R6(24,6)
     * +R5(19,6)*THREE+R5(17,22)-R4(13,7)*THREE-R4(11,31)+R3(8,28)*THREE
     * -R2(2,22)*THREE)*QX+(+R7(24,3)+R7(24,4)-R6(17,5)-R6(17,6)
     * +R5(13,5)*THREE+R5(13,6)*THREE-R4(8,6)*THREE-R4(8,7)*THREE)*QZ+(
     * +R6(24,11)+R6(24,12)-R5(17,15)-R5(17,16)+R4(13,16)*THREE
     * +R4(13,17)*THREE-R3(8,13)*THREE-R3(8,14)*THREE)*XZ+(+R6(17,11)
     * -R5(11,15)+R4(8,16)*THREE-R3(4,13)*THREE)*ZZ+(+R5(17,24)
     * -R4(11,33)+R3(8,30)*THREE-R2(2,24)*THREE)*XZZ
      F(1,6,6,2)= R8(24)-R7(17,1)+R6(13,1)*THREE+R6(24,9)-R5(8,1)*THREE
     * -R5(17,13)+R4(13,14)*THREE-R3(8,11)*THREE+(+R7(24,3)*TWO
     * -R6(17,5)*TWO+R5(13,5)*SIX-R4(8,6)*SIX)*QX+(+R7(17,4)-R6(11,6)
     * +R5(8,6)*THREE+R5(17,22)-R4(4,7)*THREE-R4(11,31)+R3(8,28)*THREE
     * -R2(2,22)*THREE)*QZ+(+R6(24,10)-R5(17,14)+R4(13,15)*THREE
     * -R3(8,12)*THREE)*XX+(+R6(17,11)*TWO-R5(11,15)*TWO+R4(8,16)*SIX
     * -R3(4,13)*SIX)*XZ+(+R5(17,23)-R4(11,32)+R3(8,29)*THREE
     * -R2(2,23)*THREE)*XXZ
      F(2,6,6,2)= R8(39)-R7(30,1)+R6(24,1)*THREE+R6(24,9)*THREE
     * -R5(17,1)*THREE-R5(17,13)*THREE+R4(13,14)*NINE-R3(8,11)*NINE+(
     * +R7(30,4)-R6(22,6)+R5(17,6)*THREE+R5(17,22)*THREE-R4(11,7)*THREE
     * -R4(11,31)*THREE+R3(8,28)*NINE-R2(2,22)*NINE)*QZ
      F(3,6,6,2)= R8(41)-R7(32,1)+R6(26,1)*THREE+R6(24,9)*THREE
     * -R5(19,1)*THREE-R5(17,13)*THREE+R4(13,14)*NINE-R3(8,11)*NINE+(
     * +R7(32,3)*TWO+R7(32,4)-R6(24,5)*TWO-R6(24,6)+R5(19,5)*SIX
     * +R5(19,6)*THREE+R5(17,21)*TWO+R5(17,22)-R4(13,6)*SIX
     * -R4(13,7)*THREE-R4(11,30)*TWO-R4(11,31)+R3(8,27)*SIX
     * +R3(8,28)*THREE-R2(2,21)*SIX-R2(2,22)*THREE)*QZ+(+R6(24,10)
     * +R6(24,11)*TWO-R5(17,14)-R5(17,15)*TWO+R4(13,15)*THREE
     * +R4(13,16)*SIX-R3(8,12)*THREE-R3(8,13)*SIX)*ZZ+(+R5(17,23)
     * -R4(11,32)+R3(8,29)*THREE-R2(2,23)*THREE)*ZZZ
      F(4,6,6,2)= R8(31)-R7(23,1)+R6(18,1)*THREE+R6(18,9)-R5(12,1)*THREE
     * -R5(12,13)+R4(9,14)*THREE-R3(5,11)*THREE+(+R7(31,3)-R6(23,5)
     * +R5(18,5)*THREE+R5(18,21)-R4(12,6)*THREE-R4(12,30)+R3(9,27)*THREE
     * -R2(6,21)*THREE)*QX+(+R7(23,4)-R6(16,6)+R5(12,6)*THREE+R5(12,22)
     * -R4(7,7)*THREE-R4(7,31)+R3(5,28)*THREE-R2(4,22)*THREE)*QZ+(
     * +R6(23,11)-R5(16,15)+R4(12,16)*THREE+R4(12,40)-R3(7,13)*THREE
     * -R3(7,45)+R2(6,39)*THREE-R1(2,23)*THREE)*XZ
      F(5,6,6,2)= R8(32)-R7(24,1)+R6(19,1)*THREE+R6(17,9)-R5(13,1)*THREE
     * -R5(11,13)+R4(8,14)*THREE-R3(4,11)*THREE+(+R7(32,3)-R6(24,5)
     * +R5(19,5)*THREE+R5(17,21)-R4(13,6)*THREE-R4(11,30)+R3(8,27)*THREE
     * -R2(2,21)*THREE)*QX+(+R7(24,3)+R7(24,4)-R6(17,5)-R6(17,6)
     * +R5(13,5)*THREE+R5(13,6)*THREE-R4(8,6)*THREE-R4(8,7)*THREE)*QZ+(
     * +R6(24,10)+R6(24,11)-R5(17,14)-R5(17,15)+R4(13,15)*THREE
     * +R4(13,16)*THREE-R3(8,12)*THREE-R3(8,13)*THREE)*XZ+(+R6(17,11)
     * -R5(11,15)+R4(8,16)*THREE-R3(4,13)*THREE)*ZZ+(+R5(17,23)
     * -R4(11,32)+R3(8,29)*THREE-R2(2,23)*THREE)*XZZ
      F(6,6,6,2)= R8(40)-R7(31,1)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,1)*THREE-R5(16,13)-R5(18,13)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,11)*THREE-R3(9,11)*THREE-R3(7,43)
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R7(31,3)+R7(31,4)-R6(23,5)
     * -R6(23,6)+R5(18,5)*THREE+R5(18,6)*THREE+R5(18,21)+R5(18,22)
     * -R4(12,6)*THREE-R4(12,7)*THREE-R4(12,30)-R4(12,31)+R3(9,27)*THREE
     * +R3(9,28)*THREE-R2(6,21)*THREE-R2(6,22)*THREE)*QZ+(+R6(23,11)
     * -R5(16,15)+R4(12,16)*THREE+R4(12,40)-R3(7,13)*THREE-R3(7,45)
     * +R2(6,39)*THREE-R1(2,23)*THREE)*ZZ
      F(1,1,1,3)= R8(6)-R7(3,2)*TWO+R6(1,1)+R6(6,1)+R6(1,4)+R6(6,9)*SIX
     * -R5(3,2)*TWO-R5(3,17)*TWELV+R4(1,1)+R4(1,4)+R4(1,14)*SIX
     * +R4(6,14)*SIX+R4(1,26)*SIX+R4(6,38)*THREE-R3(3,15)*TWELV
     * -R3(3,48)*SIX+R2(1,1)*SIX+R2(1,13)*SIX+R2(1,37)*THREE
     * +R2(3,37)*THREE+R2(1,52)*THREE-R1(3,26)*SIX+R0(1)*THREE
     * +R0(16)*THREE+(+R7(6,3)*TWO+R7(6,4)*TWO-R6(3,7)*FOUR-R6(3,8)*FOUR
     * +R5(1,5)*TWO+R5(6,5)*TWO+R5(1,6)*TWO+R5(6,6)*TWO+R5(1,11)*TWO
     * +R5(1,12)*TWO+R5(6,21)*SIX+R5(6,22)*SIX-R4(3,8)*FOUR-R4(3,9)*FOUR
     * -R4(3,34)*TWELV-R4(3,35)*TWELV+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(1,7)*TWO+R3(1,8)*TWO+R3(1,27)*SIX+R3(6,27)*SIX+R3(1,28)*SIX
     * +R3(6,28)*SIX+R3(1,39)*SIX+R3(1,40)*SIX-R2(5,25)*TWELV
     * -R2(5,26)*TWELV+R1(1,1)*SIX+R1(1,2)*SIX+R1(1,13)*SIX+R1(1,14)*SIX
     * )*QX
      RETURN
      END
C
C*MODULE INT2V   *DECK MCDV21F
      SUBROUTINE MCDV21F(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,
     *           EIGHT=8.0D+00, TWELV=1.2D+01)
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)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(1,1,1,3)= F(1,1,1,3)
     * +(+R6(6,10)+R6(6,11)*FOUR+R6(6,12)-R5(3,18)*TWO
     * -R5(3,19)*EIGHT-R5(3,20)*TWO+R4(1,15)+R4(6,15)+R4(1,16)*FOUR
     * +R4(6,16)*FOUR+R4(1,17)+R4(6,17)+R4(1,27)+R4(1,28)*FOUR+R4(1,29)
     * +R4(6,39)+R4(6,40)*FOUR+R4(6,41)-R3(3,16)*TWO-R3(3,17)*EIGHT
     * -R3(3,18)*TWO-R3(3,49)*TWO-R3(3,50)*EIGHT-R3(3,51)*TWO+R2(1,2)
     * +R2(1,3)*FOUR+R2(1,4)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)+R2(1,38)
     * +R2(3,38)+R2(1,39)*FOUR+R2(3,39)*FOUR+R2(1,40)+R2(3,40)+R2(1,53)
     * +R2(1,54)*FOUR+R2(1,55)-R1(3,27)*TWO-R1(3,28)*EIGHT-R1(3,29)*TWO
     * +R0(2)+R0(3)*FOUR+R0(4)+R0(17)+R0(18)*FOUR+R0(19))*XX+(
     * +R5(6,23)*TWO+R5(6,24)*TWO-R4(3,36)*FOUR-R4(3,37)*FOUR
     * +R3(1,29)*TWO+R3(6,29)*TWO+R3(1,30)*TWO+R3(6,30)*TWO+R3(1,41)*TWO
     * +R3(1,42)*TWO-R2(5,27)*FOUR-R2(5,28)*FOUR+R1(1,3)*TWO+R1(1,4)*TWO
     * +R1(1,15)*TWO+R1(1,16)*TWO)*XXX+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)
     * +R2(3,41)+R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXXX
      F(2,1,1,3)= R8(13)-R7(8,2)*TWO+R6(4,1)+R6(13,1)+R6(4,4)+R6(6,9)
     * +R6(13,9)-R5(8,2)*TWO-R5(3,17)*TWO-R5(8,17)*TWO+R4(4,1)+R4(4,4)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,26)+R4(4,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(8,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(2,1)+R2(1,13)
     * +R2(2,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(13,4)*TWO-R6(8,8)*FOUR+R5(4,6)*TWO+R5(13,6)*TWO+R5(4,12)*TWO
     * +R5(6,22)*TWO-R4(8,9)*FOUR-R4(3,35)*FOUR+R3(4,2)*TWO+R3(4,8)*TWO
     * +R3(1,28)*TWO+R3(6,28)*TWO+R3(1,40)*TWO-R2(5,26)*FOUR+R1(1,2)*TWO
     * +R1(1,14)*TWO)*QX+(+R6(13,12)-R5(8,20)*TWO+R4(4,17)+R4(13,17)
     * +R4(4,29)+R4(6,41)-R3(8,18)*TWO-R3(3,51)*TWO+R2(2,4)+R2(2,16)
     * +R2(1,40)+R2(3,40)+R2(1,55)-R1(3,29)*TWO+R0(4)+R0(19))*XX
      F(3,1,1,3)= R8(15)-R7(10,2)*TWO+R6(6,1)+R6(15,1)+R6(6,4)+R6(6,9)
     * +R6(15,9)-R5(10,2)*TWO-R5(3,17)*TWO-R5(10,17)*TWO+R4(6,1)+R4(6,4)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,26)+R4(6,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(3,1)+R2(1,13)
     * +R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(15,4)*TWO-R6(10,8)*FOUR+R5(6,6)*TWO+R5(15,6)*TWO+R5(6,12)*TWO
     * +R5(6,22)*TWO-R4(10,9)*FOUR-R4(3,35)*FOUR+R3(6,2)*TWO+R3(6,8)*TWO
     * +R3(1,28)*TWO+R3(6,28)*TWO+R3(1,40)*TWO-R2(5,26)*FOUR+R1(1,2)*TWO
     * +R1(1,14)*TWO)*QX+(+R7(10,3)*TWO-R6(6,7)*FOUR+R5(3,5)*TWO
     * +R5(10,5)*TWO+R5(3,11)*TWO+R5(10,21)*TWO-R4(6,8)*FOUR
     * -R4(6,34)*FOUR+R3(3,1)*TWO+R3(3,7)*TWO+R3(3,27)*TWO+R3(10,27)*TWO
     * +R3(3,39)*TWO-R2(3,25)*FOUR+R1(3,1)*TWO+R1(3,13)*TWO)*QZ
      F(3,1,1,3)= F(3,1,1,3)
     * +(+R6(15,12)-R5(10,20)*TWO+R4(6,17)+R4(15,17)+R4(6,29)+R4(6,41)
     * -R3(10,18)*TWO-R3(3,51)*TWO+R2(3,4)+R2(3,16)+R2(1,40)+R2(3,40)
     * +R2(1,55)-R1(3,29)*TWO+R0(4)+R0(19))*XX+(+R6(10,11)*FOUR
     * -R5(6,19)*EIGHT+R4(3,16)*FOUR+R4(10,16)*FOUR+R4(3,28)*FOUR
     * -R3(6,17)*EIGHT+R2(5,3)*FOUR+R2(5,15)*FOUR)*XZ+(+R6(6,10)
     * -R5(3,18)*TWO+R4(1,15)+R4(6,15)+R4(1,27)+R4(6,39)-R3(3,16)*TWO
     * -R3(3,49)*TWO+R2(1,2)+R2(1,14)+R2(1,38)+R2(3,38)+R2(1,53)
     * -R1(3,27)*TWO+R0(2)+R0(17))*ZZ+(+R5(10,24)*TWO-R4(6,37)*FOUR
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,42)*TWO-R2(3,28)*FOUR
     * +R1(3,4)*TWO+R1(3,16)*TWO)*XXZ+(+R5(6,23)*TWO-R4(3,36)*FOUR
     * +R3(1,29)*TWO+R3(6,29)*TWO+R3(1,41)*TWO-R2(5,27)*FOUR+R1(1,3)*TWO
     * +R1(1,15)*TWO)*XZZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXZZ
      F(4,1,1,3)= R8(9)-R7(5,2)*TWO+R6(2,1)+R6(9,1)+R6(2,4)
     * +R6(9,9)*THREE-R5(5,2)*TWO-R5(5,17)*SIX+R4(2,1)+R4(2,4)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(9,3)+R7(9,4)*TWO-R6(5,7)*TWO
     * -R6(5,8)*FOUR+R5(2,5)+R5(9,5)+R5(2,6)*TWO+R5(9,6)*TWO+R5(2,11)
     * +R5(2,12)*TWO+R5(9,21)+R5(9,22)*TWO-R4(5,8)*TWO-R4(5,9)*FOUR
     * -R4(5,34)*TWO-R4(5,35)*FOUR+R3(2,1)+R3(2,2)*TWO+R3(2,7)
     * +R3(2,8)*TWO+R3(2,27)+R3(9,27)+R3(2,28)*TWO+R3(9,28)*TWO+R3(2,39)
     * +R3(2,40)*TWO-R2(6,25)*TWO-R2(6,26)*FOUR+R1(2,1)+R1(2,2)*TWO
     * +R1(2,13)+R1(2,14)*TWO)*QX+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*FOUR
     * -R5(5,20)*TWO+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,17)+R4(9,17)
     * +R4(2,28)*TWO+R4(2,29)-R3(5,17)*FOUR-R3(5,18)*TWO+R2(4,3)*TWO
     * +R2(4,4)+R2(4,15)*TWO+R2(4,16))*XX+(+R5(9,24)-R4(5,37)*TWO
     * +R3(2,30)+R3(9,30)+R3(2,42)-R2(6,28)*TWO+R1(2,4)+R1(2,16))*XXX
      F(5,1,1,3)= R8(10)-R7(6,2)*TWO+R6(3,1)+R6(10,1)+R6(3,4)
     * +R6(10,9)*THREE-R5(6,2)*TWO-R5(6,17)*SIX+R4(3,1)+R4(3,4)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,26)*THREE-R3(6,15)*SIX
     * +R2(5,1)*THREE+R2(5,13)*THREE+(+R7(10,3)+R7(10,4)*TWO-R6(6,7)*TWO
     * -R6(6,8)*FOUR+R5(3,5)+R5(10,5)+R5(3,6)*TWO+R5(10,6)*TWO+R5(3,11)
     * +R5(3,12)*TWO+R5(10,21)+R5(10,22)*TWO-R4(6,8)*TWO-R4(6,9)*FOUR
     * -R4(6,34)*TWO-R4(6,35)*FOUR+R3(3,1)+R3(3,2)*TWO+R3(3,7)
     * +R3(3,8)*TWO+R3(3,27)+R3(10,27)+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,39)+R3(3,40)*TWO-R2(3,25)*TWO-R2(3,26)*FOUR+R1(3,1)
     * +R1(3,2)*TWO+R1(3,13)+R1(3,14)*TWO)*QX+(+R7(6,3)-R6(3,7)*TWO
     * +R5(1,5)+R5(6,5)+R5(1,11)+R5(6,21)*THREE-R4(3,8)*TWO-R4(3,34)*SIX
     * +R3(1,1)+R3(1,7)+R3(1,27)*THREE+R3(6,27)*THREE+R3(1,39)*THREE
     * -R2(5,25)*SIX+R1(1,1)*THREE+R1(1,13)*THREE)*QZ
      F(5,1,1,3)= F(5,1,1,3)+(+R6(10,11)*TWO
     * +R6(10,12)-R5(6,19)*FOUR-R5(6,20)*TWO+R4(3,16)*TWO+R4(10,16)*TWO
     * +R4(3,17)+R4(10,17)+R4(3,28)*TWO+R4(3,29)-R3(6,17)*FOUR
     * -R3(6,18)*TWO+R2(5,3)*TWO+R2(5,4)+R2(5,15)*TWO+R2(5,16))*XX+(
     * +R6(6,10)+R6(6,11)*TWO-R5(3,18)*TWO-R5(3,19)*FOUR+R4(1,15)
     * +R4(6,15)+R4(1,16)*TWO+R4(6,16)*TWO+R4(1,27)+R4(1,28)*TWO
     * +R4(6,39)+R4(6,40)*TWO-R3(3,16)*TWO-R3(3,17)*FOUR-R3(3,49)*TWO
     * -R3(3,50)*FOUR+R2(1,2)+R2(1,3)*TWO+R2(1,14)+R2(1,15)*TWO+R2(1,38)
     * +R2(3,38)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,53)+R2(1,54)*TWO
     * -R1(3,27)*TWO-R1(3,28)*FOUR+R0(2)+R0(3)*TWO+R0(17)+R0(18)*TWO)*XZ
     * +(+R5(10,24)-R4(6,37)*TWO+R3(3,30)+R3(10,30)+R3(3,42)
     * -R2(3,28)*TWO+R1(3,4)+R1(3,16))*XXX+(+R5(6,23)*TWO+R5(6,24)
     * -R4(3,36)*FOUR-R4(3,37)*TWO+R3(1,29)*TWO+R3(6,29)*TWO+R3(1,30)
     * +R3(6,30)+R3(1,41)*TWO+R3(1,42)-R2(5,27)*FOUR-R2(5,28)*TWO
     * +R1(1,3)*TWO+R1(1,4)+R1(1,15)*TWO+R1(1,16))*XXZ+(+R4(6,42)
     * -R3(3,52)*TWO+R2(1,41)+R2(3,41)+R2(1,56)-R1(3,30)*TWO+R0(5)
     * +R0(20))*XXXZ
      F(6,1,1,3)= R8(14)-R7(9,2)*TWO+R6(5,1)+R6(14,1)+R6(5,4)+R6(14,9)
     * -R5(9,2)*TWO-R5(9,17)*TWO+R4(5,1)+R4(5,4)+R4(5,14)+R4(14,14)
     * +R4(5,26)-R3(9,15)*TWO+R2(6,1)+R2(6,13)+(+R7(14,4)*TWO
     * -R6(9,8)*FOUR+R5(5,6)*TWO+R5(14,6)*TWO+R5(5,12)*TWO-R4(9,9)*FOUR
     * +R3(5,2)*TWO+R3(5,8)*TWO)*QX+(+R7(9,3)-R6(5,7)*TWO+R5(2,5)
     * +R5(9,5)+R5(2,11)+R5(9,21)-R4(5,8)*TWO-R4(5,34)*TWO+R3(2,1)
     * +R3(2,7)+R3(2,27)+R3(9,27)+R3(2,39)-R2(6,25)*TWO+R1(2,1)+R1(2,13)
     * )*QZ+(+R6(14,12)-R5(9,20)*TWO+R4(5,17)+R4(14,17)+R4(5,29)
     * -R3(9,18)*TWO+R2(6,4)+R2(6,16))*XX+(+R6(9,11)*TWO-R5(5,19)*FOUR
     * +R4(2,16)*TWO+R4(9,16)*TWO+R4(2,28)*TWO-R3(5,17)*FOUR+R2(4,3)*TWO
     * +R2(4,15)*TWO)*XZ+(+R5(9,24)-R4(5,37)*TWO+R3(2,30)+R3(9,30)
     * +R3(2,42)-R2(6,28)*TWO+R1(2,4)+R1(2,16))*XXZ
      F(1,2,1,3)= R8(13)-R7(8,2)*TWO+R6(4,1)+R6(13,1)+R6(4,4)+R6(6,9)
     * +R6(13,9)-R5(8,2)*TWO-R5(3,17)*TWO-R5(8,17)*TWO+R4(4,1)+R4(4,4)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,26)+R4(4,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(8,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(2,1)+R2(1,13)
     * +R2(2,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(13,3)*TWO-R6(8,7)*FOUR+R5(4,5)*TWO+R5(13,5)*TWO+R5(4,11)*TWO
     * +R5(6,21)*TWO-R4(8,8)*FOUR-R4(3,34)*FOUR+R3(4,1)*TWO+R3(4,7)*TWO
     * +R3(1,27)*TWO+R3(6,27)*TWO+R3(1,39)*TWO-R2(5,25)*FOUR+R1(1,1)*TWO
     * +R1(1,13)*TWO)*QX+(+R6(13,10)-R5(8,18)*TWO+R4(4,15)+R4(13,15)
     * +R4(4,27)+R4(6,39)-R3(8,16)*TWO-R3(3,49)*TWO+R2(2,2)+R2(2,14)
     * +R2(1,38)+R2(3,38)+R2(1,53)-R1(3,27)*TWO+R0(2)+R0(17))*XX
      F(2,2,1,3)= R8(24)-R7(17,2)*TWO+R6(11,1)+R6(24,1)+R6(11,4)
     * +R6(13,9)*SIX-R5(17,2)*TWO-R5(8,17)*TWELV+R4(11,1)+R4(11,4)
     * +R4(4,14)*SIX+R4(13,14)*SIX+R4(4,26)*SIX+R4(6,38)*THREE
     * -R3(8,15)*TWELV-R3(3,48)*SIX+R2(2,1)*SIX+R2(2,13)*SIX
     * +R2(1,37)*THREE+R2(3,37)*THREE+R2(1,52)*THREE-R1(3,26)*SIX
     * +R0(1)*THREE+R0(16)*THREE
      F(3,2,1,3)= R8(26)-R7(19,2)*TWO+R6(13,1)+R6(26,1)+R6(13,4)
     * +R6(13,9)+R6(15,9)-R5(19,2)*TWO-R5(8,17)*TWO-R5(10,17)*TWO
     * +R4(13,1)+R4(13,4)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,26)
     * +R4(6,26)+R4(6,38)-R3(8,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,13)+R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(19,3)*TWO-R6(13,7)*FOUR
     * +R5(8,5)*TWO+R5(19,5)*TWO+R5(8,11)*TWO+R5(10,21)*TWO
     * -R4(13,8)*FOUR-R4(6,34)*FOUR+R3(8,1)*TWO+R3(8,7)*TWO+R3(3,27)*TWO
     * +R3(10,27)*TWO+R3(3,39)*TWO-R2(3,25)*FOUR+R1(3,1)*TWO
     * +R1(3,13)*TWO)*QZ+(+R6(13,10)-R5(8,18)*TWO+R4(4,15)+R4(13,15)
     * +R4(4,27)+R4(6,39)-R3(8,16)*TWO-R3(3,49)*TWO+R2(2,2)+R2(2,14)
     * +R2(1,38)+R2(3,38)+R2(1,53)-R1(3,27)*TWO+R0(2)+R0(17))*ZZ
      F(4,2,1,3)= R8(18)-R7(12,2)*TWO+R6(7,1)+R6(18,1)+R6(7,4)
     * +R6(9,9)*THREE-R5(12,2)*TWO-R5(5,17)*SIX+R4(7,1)+R4(7,4)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(18,3)-R6(12,7)*TWO+R5(7,5)
     * +R5(18,5)+R5(7,11)+R5(9,21)*THREE-R4(12,8)*TWO-R4(5,34)*SIX
     * +R3(7,1)+R3(7,7)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,39)*THREE
     * -R2(6,25)*SIX+R1(2,1)*THREE+R1(2,13)*THREE)*QX
      F(5,2,1,3)= R8(19)-R7(13,2)*TWO+R6(8,1)+R6(19,1)+R6(8,4)+R6(10,9)
     * -R5(13,2)*TWO-R5(6,17)*TWO+R4(8,1)+R4(8,4)+R4(3,14)+R4(10,14)
     * +R4(3,26)-R3(6,15)*TWO+R2(5,1)+R2(5,13)+(+R7(19,3)-R6(13,7)*TWO
     * +R5(8,5)+R5(19,5)+R5(8,11)+R5(10,21)-R4(13,8)*TWO-R4(6,34)*TWO
     * +R3(8,1)+R3(8,7)+R3(3,27)+R3(10,27)+R3(3,39)-R2(3,25)*TWO+R1(3,1)
     * +R1(3,13))*QX+(+R7(13,3)-R6(8,7)*TWO+R5(4,5)+R5(13,5)+R5(4,11)
     * +R5(6,21)-R4(8,8)*TWO-R4(3,34)*TWO+R3(4,1)+R3(4,7)+R3(1,27)
     * +R3(6,27)+R3(1,39)-R2(5,25)*TWO+R1(1,1)+R1(1,13))*QZ+(+R6(13,10)
     * -R5(8,18)*TWO+R4(4,15)+R4(13,15)+R4(4,27)+R4(6,39)-R3(8,16)*TWO
     * -R3(3,49)*TWO+R2(2,2)+R2(2,14)+R2(1,38)+R2(3,38)+R2(1,53)
     * -R1(3,27)*TWO+R0(2)+R0(17))*XZ
      F(6,2,1,3)= R8(25)-R7(18,2)*TWO+R6(12,1)+R6(25,1)+R6(12,4)
     * +R6(14,9)*THREE-R5(18,2)*TWO-R5(9,17)*SIX+R4(12,1)+R4(12,4)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,26)*THREE-R3(9,15)*SIX
     * +R2(6,1)*THREE+R2(6,13)*THREE+(+R7(18,3)-R6(12,7)*TWO+R5(7,5)
     * +R5(18,5)+R5(7,11)+R5(9,21)*THREE-R4(12,8)*TWO-R4(5,34)*SIX
     * +R3(7,1)+R3(7,7)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,39)*THREE
     * -R2(6,25)*SIX+R1(2,1)*THREE+R1(2,13)*THREE)*QZ
      F(1,3,1,3)= R8(15)-R7(10,2)*TWO+R6(6,1)+R6(15,1)+R6(6,4)+R6(6,9)
     * +R6(15,9)-R5(10,2)*TWO-R5(3,17)*TWO-R5(10,17)*TWO+R4(6,1)+R4(6,4)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,26)+R4(6,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(3,1)+R2(1,13)
     * +R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(15,3)*TWO-R6(10,7)*FOUR+R5(6,5)*TWO+R5(15,5)*TWO+R5(6,11)*TWO
     * +R5(6,21)*TWO-R4(10,8)*FOUR-R4(3,34)*FOUR+R3(6,1)*TWO+R3(6,7)*TWO
     * +R3(1,27)*TWO+R3(6,27)*TWO+R3(1,39)*TWO-R2(5,25)*FOUR+R1(1,1)*TWO
     * +R1(1,13)*TWO)*QX+(+R7(10,4)*TWO-R6(6,8)*FOUR+R5(3,6)*TWO
     * +R5(10,6)*TWO+R5(3,12)*TWO+R5(10,22)*TWO-R4(6,9)*FOUR
     * -R4(6,35)*FOUR+R3(3,2)*TWO+R3(3,8)*TWO+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,40)*TWO-R2(3,26)*FOUR+R1(3,2)*TWO+R1(3,14)*TWO)*QZ
      F(1,3,1,3)= F(1,3,1,3)
     * +(+R6(15,10)-R5(10,18)*TWO+R4(6,15)+R4(15,15)+R4(6,27)+R4(6,39)
     * -R3(10,16)*TWO-R3(3,49)*TWO+R2(3,2)+R2(3,14)+R2(1,38)+R2(3,38)
     * +R2(1,53)-R1(3,27)*TWO+R0(2)+R0(17))*XX+(+R6(10,11)*FOUR
     * -R5(6,19)*EIGHT+R4(3,16)*FOUR+R4(10,16)*FOUR+R4(3,28)*FOUR
     * -R3(6,17)*EIGHT+R2(5,3)*FOUR+R2(5,15)*FOUR)*XZ+(+R6(6,12)
     * -R5(3,20)*TWO+R4(1,17)+R4(6,17)+R4(1,29)+R4(6,41)-R3(3,18)*TWO
     * -R3(3,51)*TWO+R2(1,4)+R2(1,16)+R2(1,40)+R2(3,40)+R2(1,55)
     * -R1(3,29)*TWO+R0(4)+R0(19))*ZZ+(+R5(10,23)*TWO-R4(6,36)*FOUR
     * +R3(3,29)*TWO+R3(10,29)*TWO+R3(3,41)*TWO-R2(3,27)*FOUR
     * +R1(3,3)*TWO+R1(3,15)*TWO)*XXZ+(+R5(6,24)*TWO-R4(3,37)*FOUR
     * +R3(1,30)*TWO+R3(6,30)*TWO+R3(1,42)*TWO-R2(5,28)*FOUR+R1(1,4)*TWO
     * +R1(1,16)*TWO)*XZZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXZZ
      F(2,3,1,3)= R8(26)-R7(19,2)*TWO+R6(13,1)+R6(26,1)+R6(13,4)
     * +R6(13,9)+R6(15,9)-R5(19,2)*TWO-R5(8,17)*TWO-R5(10,17)*TWO
     * +R4(13,1)+R4(13,4)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,26)
     * +R4(6,26)+R4(6,38)-R3(8,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,13)+R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(19,4)*TWO-R6(13,8)*FOUR
     * +R5(8,6)*TWO+R5(19,6)*TWO+R5(8,12)*TWO+R5(10,22)*TWO
     * -R4(13,9)*FOUR-R4(6,35)*FOUR+R3(8,2)*TWO+R3(8,8)*TWO+R3(3,28)*TWO
     * +R3(10,28)*TWO+R3(3,40)*TWO-R2(3,26)*FOUR+R1(3,2)*TWO
     * +R1(3,14)*TWO)*QZ+(+R6(13,12)-R5(8,20)*TWO+R4(4,17)+R4(13,17)
     * +R4(4,29)+R4(6,41)-R3(8,18)*TWO-R3(3,51)*TWO+R2(2,4)+R2(2,16)
     * +R2(1,40)+R2(3,40)+R2(1,55)-R1(3,29)*TWO+R0(4)+R0(19))*ZZ
      F(3,3,1,3)= R8(28)-R7(21,2)*TWO+R6(15,1)+R6(28,1)+R6(15,4)
     * +R6(15,9)*SIX-R5(21,2)*TWO-R5(10,17)*TWELV+R4(15,1)+R4(15,4)
     * +R4(6,14)*SIX+R4(15,14)*SIX+R4(6,26)*SIX+R4(6,38)*THREE
     * -R3(10,15)*TWELV-R3(3,48)*SIX+R2(3,1)*SIX+R2(3,13)*SIX
     * +R2(1,37)*THREE+R2(3,37)*THREE+R2(1,52)*THREE-R1(3,26)*SIX
     * +R0(1)*THREE+R0(16)*THREE+(+R7(21,3)*TWO+R7(21,4)*TWO
     * -R6(15,7)*FOUR-R6(15,8)*FOUR+R5(10,5)*TWO+R5(21,5)*TWO
     * +R5(10,6)*TWO+R5(21,6)*TWO+R5(10,11)*TWO+R5(10,12)*TWO
     * +R5(10,21)*SIX+R5(10,22)*SIX-R4(15,8)*FOUR-R4(15,9)*FOUR
     * -R4(6,34)*TWELV-R4(6,35)*TWELV+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,7)*TWO+R3(10,8)*TWO+R3(3,27)*SIX+R3(10,27)*SIX
     * +R3(3,28)*SIX+R3(10,28)*SIX+R3(3,39)*SIX+R3(3,40)*SIX
     * -R2(3,25)*TWELV-R2(3,26)*TWELV+R1(3,1)*SIX+R1(3,2)*SIX
     * +R1(3,13)*SIX+R1(3,14)*SIX)*QZ
      F(3,3,1,3)= F(3,3,1,3)+(+R6(15,10)+R6(15,11)*FOUR
     * +R6(15,12)-R5(10,18)*TWO-R5(10,19)*EIGHT-R5(10,20)*TWO+R4(6,15)
     * +R4(15,15)+R4(6,16)*FOUR+R4(15,16)*FOUR+R4(6,17)+R4(15,17)
     * +R4(6,27)+R4(6,28)*FOUR+R4(6,29)+R4(6,39)+R4(6,40)*FOUR+R4(6,41)
     * -R3(10,16)*TWO-R3(10,17)*EIGHT-R3(10,18)*TWO-R3(3,49)*TWO
     * -R3(3,50)*EIGHT-R3(3,51)*TWO+R2(3,2)+R2(3,3)*FOUR+R2(3,4)
     * +R2(3,14)+R2(3,15)*FOUR+R2(3,16)+R2(1,38)+R2(3,38)+R2(1,39)*FOUR
     * +R2(3,39)*FOUR+R2(1,40)+R2(3,40)+R2(1,53)+R2(1,54)*FOUR+R2(1,55)
     * -R1(3,27)*TWO-R1(3,28)*EIGHT-R1(3,29)*TWO+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(17)+R0(18)*FOUR+R0(19))*ZZ+(+R5(10,23)*TWO+R5(10,24)*TWO
     * -R4(6,36)*FOUR-R4(6,37)*FOUR+R3(3,29)*TWO+R3(10,29)*TWO
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,41)*TWO+R3(3,42)*TWO
     * -R2(3,27)*FOUR-R2(3,28)*FOUR+R1(3,3)*TWO+R1(3,4)*TWO+R1(3,15)*TWO
     * +R1(3,16)*TWO)*ZZZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*ZZZZ
      F(4,3,1,3)= R8(20)-R7(14,2)*TWO+R6(9,1)+R6(20,1)+R6(9,4)+R6(9,9)
     * -R5(14,2)*TWO-R5(5,17)*TWO+R4(9,1)+R4(9,4)+R4(2,14)+R4(9,14)
     * +R4(2,26)-R3(5,15)*TWO+R2(4,1)+R2(4,13)+(+R7(20,3)-R6(14,7)*TWO
     * +R5(9,5)+R5(20,5)+R5(9,11)+R5(9,21)-R4(14,8)*TWO-R4(5,34)*TWO
     * +R3(9,1)+R3(9,7)+R3(2,27)+R3(9,27)+R3(2,39)-R2(6,25)*TWO+R1(2,1)
     * +R1(2,13))*QX+(+R7(14,4)*TWO-R6(9,8)*FOUR+R5(5,6)*TWO
     * +R5(14,6)*TWO+R5(5,12)*TWO-R4(9,9)*FOUR+R3(5,2)*TWO+R3(5,8)*TWO)
     * *QZ+(+R6(14,11)*TWO-R5(9,19)*FOUR+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,28)*TWO-R3(9,17)*FOUR+R2(6,3)*TWO+R2(6,15)*TWO)*XZ+(
     * +R6(9,12)-R5(5,20)*TWO+R4(2,17)+R4(9,17)+R4(2,29)-R3(5,18)*TWO
     * +R2(4,4)+R2(4,16))*ZZ+(+R5(9,24)-R4(5,37)*TWO+R3(2,30)+R3(9,30)
     * +R3(2,42)-R2(6,28)*TWO+R1(2,4)+R1(2,16))*XZZ
      F(5,3,1,3)= R8(21)-R7(15,2)*TWO+R6(10,1)+R6(21,1)+R6(10,4)
     * +R6(10,9)*THREE-R5(15,2)*TWO-R5(6,17)*SIX+R4(10,1)+R4(10,4)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,26)*THREE-R3(6,15)*SIX
     * +R2(5,1)*THREE+R2(5,13)*THREE+(+R7(21,3)-R6(15,7)*TWO+R5(10,5)
     * +R5(21,5)+R5(10,11)+R5(10,21)*THREE-R4(15,8)*TWO-R4(6,34)*SIX
     * +R3(10,1)+R3(10,7)+R3(3,27)*THREE+R3(10,27)*THREE+R3(3,39)*THREE
     * -R2(3,25)*SIX+R1(3,1)*THREE+R1(3,13)*THREE)*QX+(+R7(15,3)
     * +R7(15,4)*TWO-R6(10,7)*TWO-R6(10,8)*FOUR+R5(6,5)+R5(15,5)
     * +R5(6,6)*TWO+R5(15,6)*TWO+R5(6,11)+R5(6,12)*TWO+R5(6,21)
     * +R5(6,22)*TWO-R4(10,8)*TWO-R4(10,9)*FOUR-R4(3,34)*TWO
     * -R4(3,35)*FOUR+R3(6,1)+R3(6,2)*TWO+R3(6,7)+R3(6,8)*TWO+R3(1,27)
     * +R3(6,27)+R3(1,28)*TWO+R3(6,28)*TWO+R3(1,39)+R3(1,40)*TWO
     * -R2(5,25)*TWO-R2(5,26)*FOUR+R1(1,1)+R1(1,2)*TWO+R1(1,13)
     * +R1(1,14)*TWO)*QZ
      F(5,3,1,3)= F(5,3,1,3)+(+R6(15,10)+R6(15,11)*TWO-R5(10,18)*TWO
     * -R5(10,19)*FOUR+R4(6,15)+R4(15,15)+R4(6,16)*TWO+R4(15,16)*TWO
     * +R4(6,27)+R4(6,28)*TWO+R4(6,39)+R4(6,40)*TWO-R3(10,16)*TWO
     * -R3(10,17)*FOUR-R3(3,49)*TWO-R3(3,50)*FOUR+R2(3,2)+R2(3,3)*TWO
     * +R2(3,14)+R2(3,15)*TWO+R2(1,38)+R2(3,38)+R2(1,39)*TWO
     * +R2(3,39)*TWO+R2(1,53)+R2(1,54)*TWO-R1(3,27)*TWO-R1(3,28)*FOUR
     * +R0(2)+R0(3)*TWO+R0(17)+R0(18)*TWO)*XZ+(+R6(10,11)*TWO+R6(10,12)
     * -R5(6,19)*FOUR-R5(6,20)*TWO+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)
     * +R4(10,17)+R4(3,28)*TWO+R4(3,29)-R3(6,17)*FOUR-R3(6,18)*TWO
     * +R2(5,3)*TWO+R2(5,4)+R2(5,15)*TWO+R2(5,16))*ZZ+(+R5(10,23)*TWO
     * +R5(10,24)-R4(6,36)*FOUR-R4(6,37)*TWO+R3(3,29)*TWO+R3(10,29)*TWO
     * +R3(3,30)+R3(10,30)+R3(3,41)*TWO+R3(3,42)-R2(3,27)*FOUR
     * -R2(3,28)*TWO+R1(3,3)*TWO+R1(3,4)+R1(3,15)*TWO+R1(3,16))*XZZ+(
     * +R5(6,24)-R4(3,37)*TWO+R3(1,30)+R3(6,30)+R3(1,42)-R2(5,28)*TWO
     * +R1(1,4)+R1(1,16))*ZZZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XZZZ
      F(6,3,1,3)= R8(27)-R7(20,2)*TWO+R6(14,1)+R6(27,1)+R6(14,4)
     * +R6(14,9)*THREE-R5(20,2)*TWO-R5(9,17)*SIX+R4(14,1)+R4(14,4)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,26)*THREE-R3(9,15)*SIX
     * +R2(6,1)*THREE+R2(6,13)*THREE+(+R7(20,3)+R7(20,4)*TWO
     * -R6(14,7)*TWO-R6(14,8)*FOUR+R5(9,5)+R5(20,5)+R5(9,6)*TWO
     * +R5(20,6)*TWO+R5(9,11)+R5(9,12)*TWO+R5(9,21)+R5(9,22)*TWO
     * -R4(14,8)*TWO-R4(14,9)*FOUR-R4(5,34)*TWO-R4(5,35)*FOUR+R3(9,1)
     * +R3(9,2)*TWO+R3(9,7)+R3(9,8)*TWO+R3(2,27)+R3(9,27)+R3(2,28)*TWO
     * +R3(9,28)*TWO+R3(2,39)+R3(2,40)*TWO-R2(6,25)*TWO-R2(6,26)*FOUR
     * +R1(2,1)+R1(2,2)*TWO+R1(2,13)+R1(2,14)*TWO)*QZ+(+R6(14,11)*TWO
     * +R6(14,12)-R5(9,19)*FOUR-R5(9,20)*TWO+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,17)+R4(14,17)+R4(5,28)*TWO+R4(5,29)-R3(9,17)*FOUR
     * -R3(9,18)*TWO+R2(6,3)*TWO+R2(6,4)+R2(6,15)*TWO+R2(6,16))*ZZ+(
     * +R5(9,24)-R4(5,37)*TWO+R3(2,30)+R3(9,30)+R3(2,42)-R2(6,28)*TWO
     * +R1(2,4)+R1(2,16))*ZZZ
      F(1,4,1,3)= R8(9)-R7(5,2)*TWO+R6(2,1)+R6(9,1)+R6(2,4)
     * +R6(9,9)*THREE-R5(5,2)*TWO-R5(5,17)*SIX+R4(2,1)+R4(2,4)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(9,3)*TWO+R7(9,4)-R6(5,7)*FOUR
     * -R6(5,8)*TWO+R5(2,5)*TWO+R5(9,5)*TWO+R5(2,6)+R5(9,6)+R5(2,11)*TWO
     * +R5(2,12)+R5(9,21)*TWO+R5(9,22)-R4(5,8)*FOUR-R4(5,9)*TWO
     * -R4(5,34)*FOUR-R4(5,35)*TWO+R3(2,1)*TWO+R3(2,2)+R3(2,7)*TWO
     * +R3(2,8)+R3(2,27)*TWO+R3(9,27)*TWO+R3(2,28)+R3(9,28)+R3(2,39)*TWO
     * +R3(2,40)-R2(6,25)*FOUR-R2(6,26)*TWO+R1(2,1)*TWO+R1(2,2)
     * +R1(2,13)*TWO+R1(2,14))*QX+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)*TWO
     * -R5(5,19)*FOUR+R4(2,15)+R4(9,15)+R4(2,16)*TWO+R4(9,16)*TWO
     * +R4(2,27)+R4(2,28)*TWO-R3(5,16)*TWO-R3(5,17)*FOUR+R2(4,2)
     * +R2(4,3)*TWO+R2(4,14)+R2(4,15)*TWO)*XX+(+R5(9,23)-R4(5,36)*TWO
     * +R3(2,29)+R3(9,29)+R3(2,41)-R2(6,27)*TWO+R1(2,3)+R1(2,15))*XXX
      F(2,4,1,3)= R8(18)-R7(12,2)*TWO+R6(7,1)+R6(18,1)+R6(7,4)
     * +R6(9,9)*THREE-R5(12,2)*TWO-R5(5,17)*SIX+R4(7,1)+R4(7,4)
     * +R4(2,14)*THREE+R4(9,14)*THREE+R4(2,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(18,4)-R6(12,8)*TWO+R5(7,6)
     * +R5(18,6)+R5(7,12)+R5(9,22)*THREE-R4(12,9)*TWO-R4(5,35)*SIX
     * +R3(7,2)+R3(7,8)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,40)*THREE
     * -R2(6,26)*SIX+R1(2,2)*THREE+R1(2,14)*THREE)*QX
      F(3,4,1,3)= R8(20)-R7(14,2)*TWO+R6(9,1)+R6(20,1)+R6(9,4)+R6(9,9)
     * -R5(14,2)*TWO-R5(5,17)*TWO+R4(9,1)+R4(9,4)+R4(2,14)+R4(9,14)
     * +R4(2,26)-R3(5,15)*TWO+R2(4,1)+R2(4,13)+(+R7(20,4)-R6(14,8)*TWO
     * +R5(9,6)+R5(20,6)+R5(9,12)+R5(9,22)-R4(14,9)*TWO-R4(5,35)*TWO
     * +R3(9,2)+R3(9,8)+R3(2,28)+R3(9,28)+R3(2,40)-R2(6,26)*TWO+R1(2,2)
     * +R1(2,14))*QX+(+R7(14,3)*TWO-R6(9,7)*FOUR+R5(5,5)*TWO
     * +R5(14,5)*TWO+R5(5,11)*TWO-R4(9,8)*FOUR+R3(5,1)*TWO+R3(5,7)*TWO)
     * *QZ+(+R6(14,11)*TWO-R5(9,19)*FOUR+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,28)*TWO-R3(9,17)*FOUR+R2(6,3)*TWO+R2(6,15)*TWO)*XZ+(
     * +R6(9,10)-R5(5,18)*TWO+R4(2,15)+R4(9,15)+R4(2,27)-R3(5,16)*TWO
     * +R2(4,2)+R2(4,14))*ZZ+(+R5(9,23)-R4(5,36)*TWO+R3(2,29)+R3(9,29)
     * +R3(2,41)-R2(6,27)*TWO+R1(2,3)+R1(2,15))*XZZ
      F(4,4,1,3)= R8(13)-R7(8,2)*TWO+R6(4,1)+R6(13,1)+R6(4,4)+R6(6,9)
     * +R6(13,9)-R5(8,2)*TWO-R5(3,17)*TWO-R5(8,17)*TWO+R4(4,1)+R4(4,4)
     * +R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)+R4(1,26)+R4(4,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(8,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(2,1)+R2(1,13)
     * +R2(2,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(13,3)+R7(13,4)-R6(8,7)*TWO-R6(8,8)*TWO+R5(4,5)+R5(13,5)
     * +R5(4,6)+R5(13,6)+R5(4,11)+R5(4,12)+R5(6,21)+R5(6,22)-R4(8,8)*TWO
     * -R4(8,9)*TWO-R4(3,34)*TWO-R4(3,35)*TWO+R3(4,1)+R3(4,2)+R3(4,7)
     * +R3(4,8)+R3(1,27)+R3(6,27)+R3(1,28)+R3(6,28)+R3(1,39)+R3(1,40)
     * -R2(5,25)*TWO-R2(5,26)*TWO+R1(1,1)+R1(1,2)+R1(1,13)+R1(1,14))*QX
     * +(+R6(13,11)-R5(8,19)*TWO+R4(4,16)+R4(13,16)+R4(4,28)+R4(6,40)
     * -R3(8,17)*TWO-R3(3,50)*TWO+R2(2,3)+R2(2,15)+R2(1,39)+R2(3,39)
     * +R2(1,54)-R1(3,28)*TWO+R0(3)+R0(18))*XX
      F(5,4,1,3)= R8(14)-R7(9,2)*TWO+R6(5,1)+R6(14,1)+R6(5,4)+R6(14,9)
     * -R5(9,2)*TWO-R5(9,17)*TWO+R4(5,1)+R4(5,4)+R4(5,14)+R4(14,14)
     * +R4(5,26)-R3(9,15)*TWO+R2(6,1)+R2(6,13)+(+R7(14,3)+R7(14,4)
     * -R6(9,7)*TWO-R6(9,8)*TWO+R5(5,5)+R5(14,5)+R5(5,6)+R5(14,6)
     * +R5(5,11)+R5(5,12)-R4(9,8)*TWO-R4(9,9)*TWO+R3(5,1)+R3(5,2)
     * +R3(5,7)+R3(5,8))*QX+(+R7(9,3)-R6(5,7)*TWO+R5(2,5)+R5(9,5)
     * +R5(2,11)+R5(9,21)-R4(5,8)*TWO-R4(5,34)*TWO+R3(2,1)+R3(2,7)
     * +R3(2,27)+R3(9,27)+R3(2,39)-R2(6,25)*TWO+R1(2,1)+R1(2,13))*QZ+(
     * +R6(14,11)-R5(9,19)*TWO+R4(5,16)+R4(14,16)+R4(5,28)-R3(9,17)*TWO
     * +R2(6,3)+R2(6,15))*XX+(+R6(9,10)+R6(9,11)-R5(5,18)*TWO
     * -R5(5,19)*TWO+R4(2,15)+R4(9,15)+R4(2,16)+R4(9,16)+R4(2,27)
     * +R4(2,28)-R3(5,16)*TWO-R3(5,17)*TWO+R2(4,2)+R2(4,3)+R2(4,14)
     * +R2(4,15))*XZ+(+R5(9,23)-R4(5,36)*TWO+R3(2,29)+R3(9,29)+R3(2,41)
     * -R2(6,27)*TWO+R1(2,3)+R1(2,15))*XXZ
      F(6,4,1,3)= R8(19)-R7(13,2)*TWO+R6(8,1)+R6(19,1)+R6(8,4)+R6(10,9)
     * -R5(13,2)*TWO-R5(6,17)*TWO+R4(8,1)+R4(8,4)+R4(3,14)+R4(10,14)
     * +R4(3,26)-R3(6,15)*TWO+R2(5,1)+R2(5,13)+(+R7(19,4)-R6(13,8)*TWO
     * +R5(8,6)+R5(19,6)+R5(8,12)+R5(10,22)-R4(13,9)*TWO-R4(6,35)*TWO
     * +R3(8,2)+R3(8,8)+R3(3,28)+R3(10,28)+R3(3,40)-R2(3,26)*TWO+R1(3,2)
     * +R1(3,14))*QX+(+R7(13,3)-R6(8,7)*TWO+R5(4,5)+R5(13,5)+R5(4,11)
     * +R5(6,21)-R4(8,8)*TWO-R4(3,34)*TWO+R3(4,1)+R3(4,7)+R3(1,27)
     * +R3(6,27)+R3(1,39)-R2(5,25)*TWO+R1(1,1)+R1(1,13))*QZ+(+R6(13,11)
     * -R5(8,19)*TWO+R4(4,16)+R4(13,16)+R4(4,28)+R4(6,40)-R3(8,17)*TWO
     * -R3(3,50)*TWO+R2(2,3)+R2(2,15)+R2(1,39)+R2(3,39)+R2(1,54)
     * -R1(3,28)*TWO+R0(3)+R0(18))*XZ
      F(1,5,1,3)= R8(10)-R7(6,2)*TWO+R6(3,1)+R6(10,1)+R6(3,4)
     * +R6(10,9)*THREE-R5(6,2)*TWO-R5(6,17)*SIX+R4(3,1)+R4(3,4)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,26)*THREE-R3(6,15)*SIX
     * +R2(5,1)*THREE+R2(5,13)*THREE+(+R7(10,3)*TWO+R7(10,4)
     * -R6(6,7)*FOUR-R6(6,8)*TWO+R5(3,5)*TWO+R5(10,5)*TWO+R5(3,6)
     * +R5(10,6)+R5(3,11)*TWO+R5(3,12)+R5(10,21)*TWO+R5(10,22)
     * -R4(6,8)*FOUR-R4(6,9)*TWO-R4(6,34)*FOUR-R4(6,35)*TWO+R3(3,1)*TWO
     * +R3(3,2)+R3(3,7)*TWO+R3(3,8)+R3(3,27)*TWO+R3(10,27)*TWO+R3(3,28)
     * +R3(10,28)+R3(3,39)*TWO+R3(3,40)-R2(3,25)*FOUR-R2(3,26)*TWO
     * +R1(3,1)*TWO+R1(3,2)+R1(3,13)*TWO+R1(3,14))*QX+(+R7(6,4)
     * -R6(3,8)*TWO+R5(1,6)+R5(6,6)+R5(1,12)+R5(6,22)*THREE-R4(3,9)*TWO
     * -R4(3,35)*SIX+R3(1,2)+R3(1,8)+R3(1,28)*THREE+R3(6,28)*THREE
     * +R3(1,40)*THREE-R2(5,26)*SIX+R1(1,2)*THREE+R1(1,14)*THREE)*QZ+(
     * +R6(10,10)+R6(10,11)*TWO-R5(6,18)*TWO-R5(6,19)*FOUR+R4(3,15)
     * +R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,27)+R4(3,28)*TWO
     * -R3(6,16)*TWO-R3(6,17)*FOUR+R2(5,2)+R2(5,3)*TWO+R2(5,14)
     * +R2(5,15)*TWO)*XX
      F(1,5,1,3)= F(1,5,1,3)+(+R6(6,11)*TWO+R6(6,12)-R5(3,19)*FOUR
     * -R5(3,20)*TWO+R4(1,16)*TWO+R4(6,16)*TWO+R4(1,17)+R4(6,17)
     * +R4(1,28)*TWO+R4(1,29)+R4(6,40)*TWO+R4(6,41)-R3(3,17)*FOUR
     * -R3(3,18)*TWO-R3(3,50)*FOUR-R3(3,51)*TWO+R2(1,3)*TWO+R2(1,4)
     * +R2(1,15)*TWO+R2(1,16)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)
     * +R2(3,40)+R2(1,54)*TWO+R2(1,55)-R1(3,28)*FOUR-R1(3,29)*TWO
     * +R0(3)*TWO+R0(4)+R0(18)*TWO+R0(19))*XZ+(+R5(10,23)-R4(6,36)*TWO
     * +R3(3,29)+R3(10,29)+R3(3,41)-R2(3,27)*TWO+R1(3,3)+R1(3,15))*XXX+(
     * +R5(6,23)+R5(6,24)*TWO-R4(3,36)*TWO-R4(3,37)*FOUR+R3(1,29)
     * +R3(6,29)+R3(1,30)*TWO+R3(6,30)*TWO+R3(1,41)+R3(1,42)*TWO
     * -R2(5,27)*TWO-R2(5,28)*FOUR+R1(1,3)+R1(1,4)*TWO+R1(1,15)
     * +R1(1,16)*TWO)*XXZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXXZ
      F(2,5,1,3)= R8(19)-R7(13,2)*TWO+R6(8,1)+R6(19,1)+R6(8,4)+R6(10,9)
     * -R5(13,2)*TWO-R5(6,17)*TWO+R4(8,1)+R4(8,4)+R4(3,14)+R4(10,14)
     * +R4(3,26)-R3(6,15)*TWO+R2(5,1)+R2(5,13)+(+R7(19,4)-R6(13,8)*TWO
     * +R5(8,6)+R5(19,6)+R5(8,12)+R5(10,22)-R4(13,9)*TWO-R4(6,35)*TWO
     * +R3(8,2)+R3(8,8)+R3(3,28)+R3(10,28)+R3(3,40)-R2(3,26)*TWO+R1(3,2)
     * +R1(3,14))*QX+(+R7(13,4)-R6(8,8)*TWO+R5(4,6)+R5(13,6)+R5(4,12)
     * +R5(6,22)-R4(8,9)*TWO-R4(3,35)*TWO+R3(4,2)+R3(4,8)+R3(1,28)
     * +R3(6,28)+R3(1,40)-R2(5,26)*TWO+R1(1,2)+R1(1,14))*QZ+(+R6(13,12)
     * -R5(8,20)*TWO+R4(4,17)+R4(13,17)+R4(4,29)+R4(6,41)-R3(8,18)*TWO
     * -R3(3,51)*TWO+R2(2,4)+R2(2,16)+R2(1,40)+R2(3,40)+R2(1,55)
     * -R1(3,29)*TWO+R0(4)+R0(19))*XZ
      F(3,5,1,3)= R8(21)-R7(15,2)*TWO+R6(10,1)+R6(21,1)+R6(10,4)
     * +R6(10,9)*THREE-R5(15,2)*TWO-R5(6,17)*SIX+R4(10,1)+R4(10,4)
     * +R4(3,14)*THREE+R4(10,14)*THREE+R4(3,26)*THREE-R3(6,15)*SIX
     * +R2(5,1)*THREE+R2(5,13)*THREE+(+R7(21,4)-R6(15,8)*TWO+R5(10,6)
     * +R5(21,6)+R5(10,12)+R5(10,22)*THREE-R4(15,9)*TWO-R4(6,35)*SIX
     * +R3(10,2)+R3(10,8)+R3(3,28)*THREE+R3(10,28)*THREE+R3(3,40)*THREE
     * -R2(3,26)*SIX+R1(3,2)*THREE+R1(3,14)*THREE)*QX+(+R7(15,3)*TWO
     * +R7(15,4)-R6(10,7)*FOUR-R6(10,8)*TWO+R5(6,5)*TWO+R5(15,5)*TWO
     * +R5(6,6)+R5(15,6)+R5(6,11)*TWO+R5(6,12)+R5(6,21)*TWO+R5(6,22)
     * -R4(10,8)*FOUR-R4(10,9)*TWO-R4(3,34)*FOUR-R4(3,35)*TWO
     * +R3(6,1)*TWO+R3(6,2)+R3(6,7)*TWO+R3(6,8)+R3(1,27)*TWO
     * +R3(6,27)*TWO+R3(1,28)+R3(6,28)+R3(1,39)*TWO+R3(1,40)
     * -R2(5,25)*FOUR-R2(5,26)*TWO+R1(1,1)*TWO+R1(1,2)+R1(1,13)*TWO
     * +R1(1,14))*QZ
      F(3,5,1,3)= F(3,5,1,3)+(+R6(15,11)*TWO+R6(15,12)-R5(10,19)*FOUR
     * -R5(10,20)*TWO+R4(6,16)*TWO+R4(15,16)*TWO+R4(6,17)+R4(15,17)
     * +R4(6,28)*TWO+R4(6,29)+R4(6,40)*TWO+R4(6,41)-R3(10,17)*FOUR
     * -R3(10,18)*TWO-R3(3,50)*FOUR-R3(3,51)*TWO+R2(3,3)*TWO+R2(3,4)
     * +R2(3,15)*TWO+R2(3,16)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)
     * +R2(3,40)+R2(1,54)*TWO+R2(1,55)-R1(3,28)*FOUR-R1(3,29)*TWO
     * +R0(3)*TWO+R0(4)+R0(18)*TWO+R0(19))*XZ+(+R6(10,10)+R6(10,11)*TWO
     * -R5(6,18)*TWO-R5(6,19)*FOUR+R4(3,15)+R4(10,15)+R4(3,16)*TWO
     * +R4(10,16)*TWO+R4(3,27)+R4(3,28)*TWO-R3(6,16)*TWO-R3(6,17)*FOUR
     * +R2(5,2)+R2(5,3)*TWO+R2(5,14)+R2(5,15)*TWO)*ZZ+(+R5(10,23)
     * +R5(10,24)*TWO-R4(6,36)*TWO-R4(6,37)*FOUR+R3(3,29)+R3(10,29)
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,41)+R3(3,42)*TWO-R2(3,27)*TWO
     * -R2(3,28)*FOUR+R1(3,3)+R1(3,4)*TWO+R1(3,15)+R1(3,16)*TWO)*XZZ+(
     * +R5(6,23)-R4(3,36)*TWO+R3(1,29)+R3(6,29)+R3(1,41)-R2(5,27)*TWO
     * +R1(1,3)+R1(1,15))*ZZZ+(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)
     * +R2(1,56)-R1(3,30)*TWO+R0(5)+R0(20))*XZZZ
      F(4,5,1,3)= R8(14)-R7(9,2)*TWO+R6(5,1)+R6(14,1)+R6(5,4)+R6(14,9)
     * -R5(9,2)*TWO-R5(9,17)*TWO+R4(5,1)+R4(5,4)+R4(5,14)+R4(14,14)
     * +R4(5,26)-R3(9,15)*TWO+R2(6,1)+R2(6,13)+(+R7(14,3)+R7(14,4)
     * -R6(9,7)*TWO-R6(9,8)*TWO+R5(5,5)+R5(14,5)+R5(5,6)+R5(14,6)
     * +R5(5,11)+R5(5,12)-R4(9,8)*TWO-R4(9,9)*TWO+R3(5,1)+R3(5,2)
     * +R3(5,7)+R3(5,8))*QX+(+R7(9,4)-R6(5,8)*TWO+R5(2,6)+R5(9,6)
     * +R5(2,12)+R5(9,22)-R4(5,9)*TWO-R4(5,35)*TWO+R3(2,2)+R3(2,8)
     * +R3(2,28)+R3(9,28)+R3(2,40)-R2(6,26)*TWO+R1(2,2)+R1(2,14))*QZ+(
     * +R6(14,11)-R5(9,19)*TWO+R4(5,16)+R4(14,16)+R4(5,28)-R3(9,17)*TWO
     * +R2(6,3)+R2(6,15))*XX+(+R6(9,11)+R6(9,12)-R5(5,19)*TWO
     * -R5(5,20)*TWO+R4(2,16)+R4(9,16)+R4(2,17)+R4(9,17)+R4(2,28)
     * +R4(2,29)-R3(5,17)*TWO-R3(5,18)*TWO+R2(4,3)+R2(4,4)+R2(4,15)
     * +R2(4,16))*XZ+(+R5(9,24)-R4(5,37)*TWO+R3(2,30)+R3(9,30)+R3(2,42)
     * -R2(6,28)*TWO+R1(2,4)+R1(2,16))*XXZ
      F(5,5,1,3)= R8(15)-R7(10,2)*TWO+R6(6,1)+R6(15,1)+R6(6,4)+R6(6,9)
     * +R6(15,9)-R5(10,2)*TWO-R5(3,17)*TWO-R5(10,17)*TWO+R4(6,1)+R4(6,4)
     * +R4(1,14)+R4(6,14)*TWO+R4(15,14)+R4(1,26)+R4(6,26)+R4(6,38)
     * -R3(3,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO+R2(1,1)+R2(3,1)+R2(1,13)
     * +R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)-R1(3,26)*TWO+R0(1)+R0(16)+(
     * +R7(15,3)+R7(15,4)-R6(10,7)*TWO-R6(10,8)*TWO+R5(6,5)+R5(15,5)
     * +R5(6,6)+R5(15,6)+R5(6,11)+R5(6,12)+R5(6,21)+R5(6,22)
     * -R4(10,8)*TWO-R4(10,9)*TWO-R4(3,34)*TWO-R4(3,35)*TWO+R3(6,1)
     * +R3(6,2)+R3(6,7)+R3(6,8)+R3(1,27)+R3(6,27)+R3(1,28)+R3(6,28)
     * +R3(1,39)+R3(1,40)-R2(5,25)*TWO-R2(5,26)*TWO+R1(1,1)+R1(1,2)
     * +R1(1,13)+R1(1,14))*QX+(+R7(10,3)+R7(10,4)-R6(6,7)*TWO
     * -R6(6,8)*TWO+R5(3,5)+R5(10,5)+R5(3,6)+R5(10,6)+R5(3,11)+R5(3,12)
     * +R5(10,21)+R5(10,22)-R4(6,8)*TWO-R4(6,9)*TWO-R4(6,34)*TWO
     * -R4(6,35)*TWO+R3(3,1)+R3(3,2)+R3(3,7)+R3(3,8)+R3(3,27)+R3(10,27)
     * +R3(3,28)+R3(10,28)+R3(3,39)+R3(3,40)-R2(3,25)*TWO-R2(3,26)*TWO
     * +R1(3,1)+R1(3,2)+R1(3,13)+R1(3,14))*QZ
      F(5,5,1,3)= F(5,5,1,3)+(+R6(15,11)-R5(10,19)*TWO
     * +R4(6,16)+R4(15,16)+R4(6,28)+R4(6,40)-R3(10,17)*TWO-R3(3,50)*TWO
     * +R2(3,3)+R2(3,15)+R2(1,39)+R2(3,39)+R2(1,54)-R1(3,28)*TWO+R0(3)
     * +R0(18))*XX+(+R6(10,10)+R6(10,11)*TWO+R6(10,12)-R5(6,18)*TWO
     * -R5(6,19)*FOUR-R5(6,20)*TWO+R4(3,15)+R4(10,15)+R4(3,16)*TWO
     * +R4(10,16)*TWO+R4(3,17)+R4(10,17)+R4(3,27)+R4(3,28)*TWO+R4(3,29)
     * -R3(6,16)*TWO-R3(6,17)*FOUR-R3(6,18)*TWO+R2(5,2)+R2(5,3)*TWO
     * +R2(5,4)+R2(5,14)+R2(5,15)*TWO+R2(5,16))*XZ+(+R6(6,11)
     * -R5(3,19)*TWO+R4(1,16)+R4(6,16)+R4(1,28)+R4(6,40)-R3(3,17)*TWO
     * -R3(3,50)*TWO+R2(1,3)+R2(1,15)+R2(1,39)+R2(3,39)+R2(1,54)
     * -R1(3,28)*TWO+R0(3)+R0(18))*ZZ+(+R5(10,23)+R5(10,24)-R4(6,36)*TWO
     * -R4(6,37)*TWO+R3(3,29)+R3(10,29)+R3(3,30)+R3(10,30)+R3(3,41)
     * +R3(3,42)-R2(3,27)*TWO-R2(3,28)*TWO+R1(3,3)+R1(3,4)+R1(3,15)
     * +R1(3,16))*XXZ+(+R5(6,23)+R5(6,24)-R4(3,36)*TWO-R4(3,37)*TWO
     * +R3(1,29)+R3(6,29)+R3(1,30)+R3(6,30)+R3(1,41)+R3(1,42)
     * -R2(5,27)*TWO-R2(5,28)*TWO+R1(1,3)+R1(1,4)+R1(1,15)+R1(1,16))*XZZ
     * +(+R4(6,42)-R3(3,52)*TWO+R2(1,41)+R2(3,41)+R2(1,56)-R1(3,30)*TWO
     * +R0(5)+R0(20))*XXZZ
      F(6,5,1,3)= R8(20)-R7(14,2)*TWO+R6(9,1)+R6(20,1)+R6(9,4)+R6(9,9)
     * -R5(14,2)*TWO-R5(5,17)*TWO+R4(9,1)+R4(9,4)+R4(2,14)+R4(9,14)
     * +R4(2,26)-R3(5,15)*TWO+R2(4,1)+R2(4,13)+(+R7(20,4)-R6(14,8)*TWO
     * +R5(9,6)+R5(20,6)+R5(9,12)+R5(9,22)-R4(14,9)*TWO-R4(5,35)*TWO
     * +R3(9,2)+R3(9,8)+R3(2,28)+R3(9,28)+R3(2,40)-R2(6,26)*TWO+R1(2,2)
     * +R1(2,14))*QX+(+R7(14,3)+R7(14,4)-R6(9,7)*TWO-R6(9,8)*TWO+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,11)+R5(5,12)-R4(9,8)*TWO
     * -R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,7)+R3(5,8))*QZ+(+R6(14,11)
     * +R6(14,12)-R5(9,19)*TWO-R5(9,20)*TWO+R4(5,16)+R4(14,16)+R4(5,17)
     * +R4(14,17)+R4(5,28)+R4(5,29)-R3(9,17)*TWO-R3(9,18)*TWO+R2(6,3)
     * +R2(6,4)+R2(6,15)+R2(6,16))*XZ+(+R6(9,11)-R5(5,19)*TWO+R4(2,16)
     * +R4(9,16)+R4(2,28)-R3(5,17)*TWO+R2(4,3)+R2(4,15))*ZZ+(+R5(9,24)
     * -R4(5,37)*TWO+R3(2,30)+R3(9,30)+R3(2,42)-R2(6,28)*TWO+R1(2,4)
     * +R1(2,16))*XZZ
      F(1,6,1,3)= R8(14)-R7(9,2)*TWO+R6(5,1)+R6(14,1)+R6(5,4)+R6(14,9)
     * -R5(9,2)*TWO-R5(9,17)*TWO+R4(5,1)+R4(5,4)+R4(5,14)+R4(14,14)
     * +R4(5,26)-R3(9,15)*TWO+R2(6,1)+R2(6,13)+(+R7(14,3)*TWO
     * -R6(9,7)*FOUR+R5(5,5)*TWO+R5(14,5)*TWO+R5(5,11)*TWO-R4(9,8)*FOUR
     * +R3(5,1)*TWO+R3(5,7)*TWO)*QX+(+R7(9,4)-R6(5,8)*TWO+R5(2,6)
     * +R5(9,6)+R5(2,12)+R5(9,22)-R4(5,9)*TWO-R4(5,35)*TWO+R3(2,2)
     * +R3(2,8)+R3(2,28)+R3(9,28)+R3(2,40)-R2(6,26)*TWO+R1(2,2)+R1(2,14)
     * )*QZ+(+R6(14,10)-R5(9,18)*TWO+R4(5,15)+R4(14,15)+R4(5,27)
     * -R3(9,16)*TWO+R2(6,2)+R2(6,14))*XX+(+R6(9,11)*TWO-R5(5,19)*FOUR
     * +R4(2,16)*TWO+R4(9,16)*TWO+R4(2,28)*TWO-R3(5,17)*FOUR+R2(4,3)*TWO
     * +R2(4,15)*TWO)*XZ+(+R5(9,23)-R4(5,36)*TWO+R3(2,29)+R3(9,29)
     * +R3(2,41)-R2(6,27)*TWO+R1(2,3)+R1(2,15))*XXZ
      F(2,6,1,3)= R8(25)-R7(18,2)*TWO+R6(12,1)+R6(25,1)+R6(12,4)
     * +R6(14,9)*THREE-R5(18,2)*TWO-R5(9,17)*SIX+R4(12,1)+R4(12,4)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,26)*THREE-R3(9,15)*SIX
     * +R2(6,1)*THREE+R2(6,13)*THREE+(+R7(18,4)-R6(12,8)*TWO+R5(7,6)
     * +R5(18,6)+R5(7,12)+R5(9,22)*THREE-R4(12,9)*TWO-R4(5,35)*SIX
     * +R3(7,2)+R3(7,8)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,40)*THREE
     * -R2(6,26)*SIX+R1(2,2)*THREE+R1(2,14)*THREE)*QZ
      F(3,6,1,3)= R8(27)-R7(20,2)*TWO+R6(14,1)+R6(27,1)+R6(14,4)
     * +R6(14,9)*THREE-R5(20,2)*TWO-R5(9,17)*SIX+R4(14,1)+R4(14,4)
     * +R4(5,14)*THREE+R4(14,14)*THREE+R4(5,26)*THREE-R3(9,15)*SIX
     * +R2(6,1)*THREE+R2(6,13)*THREE+(+R7(20,3)*TWO+R7(20,4)
     * -R6(14,7)*FOUR-R6(14,8)*TWO+R5(9,5)*TWO+R5(20,5)*TWO+R5(9,6)
     * +R5(20,6)+R5(9,11)*TWO+R5(9,12)+R5(9,21)*TWO+R5(9,22)
     * -R4(14,8)*FOUR-R4(14,9)*TWO-R4(5,34)*FOUR-R4(5,35)*TWO
     * +R3(9,1)*TWO+R3(9,2)+R3(9,7)*TWO+R3(9,8)+R3(2,27)*TWO
     * +R3(9,27)*TWO+R3(2,28)+R3(9,28)+R3(2,39)*TWO+R3(2,40)
     * -R2(6,25)*FOUR-R2(6,26)*TWO+R1(2,1)*TWO+R1(2,2)+R1(2,13)*TWO
     * +R1(2,14))*QZ+(+R6(14,10)+R6(14,11)*TWO-R5(9,18)*TWO
     * -R5(9,19)*FOUR+R4(5,15)+R4(14,15)+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,27)+R4(5,28)*TWO-R3(9,16)*TWO-R3(9,17)*FOUR+R2(6,2)
     * +R2(6,3)*TWO+R2(6,14)+R2(6,15)*TWO)*ZZ+(+R5(9,23)-R4(5,36)*TWO
     * +R3(2,29)+R3(9,29)+R3(2,41)-R2(6,27)*TWO+R1(2,3)+R1(2,15))*ZZZ
      F(4,6,1,3)= R8(19)-R7(13,2)*TWO+R6(8,1)+R6(19,1)+R6(8,4)+R6(10,9)
     * -R5(13,2)*TWO-R5(6,17)*TWO+R4(8,1)+R4(8,4)+R4(3,14)+R4(10,14)
     * +R4(3,26)-R3(6,15)*TWO+R2(5,1)+R2(5,13)+(+R7(19,3)-R6(13,7)*TWO
     * +R5(8,5)+R5(19,5)+R5(8,11)+R5(10,21)-R4(13,8)*TWO-R4(6,34)*TWO
     * +R3(8,1)+R3(8,7)+R3(3,27)+R3(10,27)+R3(3,39)-R2(3,25)*TWO+R1(3,1)
     * +R1(3,13))*QX+(+R7(13,4)-R6(8,8)*TWO+R5(4,6)+R5(13,6)+R5(4,12)
     * +R5(6,22)-R4(8,9)*TWO-R4(3,35)*TWO+R3(4,2)+R3(4,8)+R3(1,28)
     * +R3(6,28)+R3(1,40)-R2(5,26)*TWO+R1(1,2)+R1(1,14))*QZ+(+R6(13,11)
     * -R5(8,19)*TWO+R4(4,16)+R4(13,16)+R4(4,28)+R4(6,40)-R3(8,17)*TWO
     * -R3(3,50)*TWO+R2(2,3)+R2(2,15)+R2(1,39)+R2(3,39)+R2(1,54)
     * -R1(3,28)*TWO+R0(3)+R0(18))*XZ
      F(5,6,1,3)= R8(20)-R7(14,2)*TWO+R6(9,1)+R6(20,1)+R6(9,4)+R6(9,9)
     * -R5(14,2)*TWO-R5(5,17)*TWO+R4(9,1)+R4(9,4)+R4(2,14)+R4(9,14)
     * +R4(2,26)-R3(5,15)*TWO+R2(4,1)+R2(4,13)+(+R7(20,3)-R6(14,7)*TWO
     * +R5(9,5)+R5(20,5)+R5(9,11)+R5(9,21)-R4(14,8)*TWO-R4(5,34)*TWO
     * +R3(9,1)+R3(9,7)+R3(2,27)+R3(9,27)+R3(2,39)-R2(6,25)*TWO+R1(2,1)
     * +R1(2,13))*QX+(+R7(14,3)+R7(14,4)-R6(9,7)*TWO-R6(9,8)*TWO+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,11)+R5(5,12)-R4(9,8)*TWO
     * -R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,7)+R3(5,8))*QZ+(+R6(14,10)
     * +R6(14,11)-R5(9,18)*TWO-R5(9,19)*TWO+R4(5,15)+R4(14,15)+R4(5,16)
     * +R4(14,16)+R4(5,27)+R4(5,28)-R3(9,16)*TWO-R3(9,17)*TWO+R2(6,2)
     * +R2(6,3)+R2(6,14)+R2(6,15))*XZ+(+R6(9,11)-R5(5,19)*TWO+R4(2,16)
     * +R4(9,16)+R4(2,28)-R3(5,17)*TWO+R2(4,3)+R2(4,15))*ZZ+(+R5(9,23)
     * -R4(5,36)*TWO+R3(2,29)+R3(9,29)+R3(2,41)-R2(6,27)*TWO+R1(2,3)
     * +R1(2,15))*XZZ
      F(6,6,1,3)= R8(26)-R7(19,2)*TWO+R6(13,1)+R6(26,1)+R6(13,4)
     * +R6(13,9)+R6(15,9)-R5(19,2)*TWO-R5(8,17)*TWO-R5(10,17)*TWO
     * +R4(13,1)+R4(13,4)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,26)
     * +R4(6,26)+R4(6,38)-R3(8,15)*TWO-R3(10,15)*TWO-R3(3,48)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,13)+R2(3,13)+R2(1,37)+R2(3,37)+R2(1,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(19,3)+R7(19,4)-R6(13,7)*TWO
     * -R6(13,8)*TWO+R5(8,5)+R5(19,5)+R5(8,6)+R5(19,6)+R5(8,11)+R5(8,12)
     * +R5(10,21)+R5(10,22)-R4(13,8)*TWO-R4(13,9)*TWO-R4(6,34)*TWO
     * -R4(6,35)*TWO+R3(8,1)+R3(8,2)+R3(8,7)+R3(8,8)+R3(3,27)+R3(10,27)
     * +R3(3,28)+R3(10,28)+R3(3,39)+R3(3,40)-R2(3,25)*TWO-R2(3,26)*TWO
     * +R1(3,1)+R1(3,2)+R1(3,13)+R1(3,14))*QZ+(+R6(13,11)-R5(8,19)*TWO
     * +R4(4,16)+R4(13,16)+R4(4,28)+R4(6,40)-R3(8,17)*TWO-R3(3,50)*TWO
     * +R2(2,3)+R2(2,15)+R2(1,39)+R2(3,39)+R2(1,54)-R1(3,28)*TWO+R0(3)
     * +R0(18))*ZZ
      F(1,1,2,3)= R8(13)-R7(8,2)*TWO+R6(4,1)+R6(6,1)+R6(4,4)
     * +R6(13,9)*SIX-R5(3,2)*TWO-R5(8,17)*TWELV+R4(1,1)+R4(1,4)
     * +R4(4,14)*SIX+R4(6,14)*SIX+R4(4,26)*SIX+R4(13,38)*THREE
     * -R3(3,15)*TWELV-R3(8,48)*SIX+R2(1,1)*SIX+R2(1,13)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,52)*THREE-R1(3,26)*SIX
     * +R0(1)*THREE+R0(16)*THREE+(+R7(13,3)*TWO+R7(13,4)*TWO
     * -R6(8,7)*FOUR-R6(8,8)*FOUR+R5(4,5)*TWO+R5(6,5)*TWO+R5(4,6)*TWO
     * +R5(6,6)*TWO+R5(4,11)*TWO+R5(4,12)*TWO+R5(13,21)*SIX
     * +R5(13,22)*SIX-R4(3,8)*FOUR-R4(3,9)*FOUR-R4(8,34)*TWELV
     * -R4(8,35)*TWELV+R3(1,1)*TWO+R3(1,2)*TWO+R3(1,7)*TWO+R3(1,8)*TWO
     * +R3(4,27)*SIX+R3(6,27)*SIX+R3(4,28)*SIX+R3(6,28)*SIX+R3(4,39)*SIX
     * +R3(4,40)*SIX-R2(5,25)*TWELV-R2(5,26)*TWELV+R1(1,1)*SIX
     * +R1(1,2)*SIX+R1(1,13)*SIX+R1(1,14)*SIX)*QX
      F(1,1,2,3)= F(1,1,2,3)+(+R6(13,10)
     * +R6(13,11)*FOUR+R6(13,12)-R5(8,18)*TWO-R5(8,19)*EIGHT
     * -R5(8,20)*TWO+R4(4,15)+R4(6,15)+R4(4,16)*FOUR+R4(6,16)*FOUR
     * +R4(4,17)+R4(6,17)+R4(4,27)+R4(4,28)*FOUR+R4(4,29)+R4(13,39)
     * +R4(13,40)*FOUR+R4(13,41)-R3(3,16)*TWO-R3(3,17)*EIGHT
     * -R3(3,18)*TWO-R3(8,49)*TWO-R3(8,50)*EIGHT-R3(8,51)*TWO+R2(1,2)
     * +R2(1,3)*FOUR+R2(1,4)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)+R2(2,38)
     * +R2(3,38)+R2(2,39)*FOUR+R2(3,39)*FOUR+R2(2,40)+R2(3,40)+R2(2,53)
     * +R2(2,54)*FOUR+R2(2,55)-R1(3,27)*TWO-R1(3,28)*EIGHT-R1(3,29)*TWO
     * +R0(2)+R0(3)*FOUR+R0(4)+R0(17)+R0(18)*FOUR+R0(19))*XX+(
     * +R5(13,23)*TWO+R5(13,24)*TWO-R4(8,36)*FOUR-R4(8,37)*FOUR
     * +R3(4,29)*TWO+R3(6,29)*TWO+R3(4,30)*TWO+R3(6,30)*TWO+R3(4,41)*TWO
     * +R3(4,42)*TWO-R2(5,27)*FOUR-R2(5,28)*FOUR+R1(1,3)*TWO+R1(1,4)*TWO
     * +R1(1,15)*TWO+R1(1,16)*TWO)*XXX+(+R4(13,42)-R3(8,52)*TWO+R2(2,41)
     * +R2(3,41)+R2(2,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXXX
      F(2,1,2,3)= R8(24)-R7(17,2)*TWO+R6(11,1)+R6(13,1)+R6(11,4)
     * +R6(13,9)+R6(24,9)-R5(8,2)*TWO-R5(8,17)*TWO-R5(17,17)*TWO+R4(4,1)
     * +R4(4,4)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,26)+R4(11,26)
     * +R4(13,38)-R3(3,15)*TWO-R3(8,15)*TWO-R3(8,48)*TWO+R2(1,1)+R2(2,1)
     * +R2(1,13)+R2(2,13)+R2(2,37)+R2(3,37)+R2(2,52)-R1(3,26)*TWO+R0(1)
     * +R0(16)+(+R7(24,4)*TWO-R6(17,8)*FOUR+R5(11,6)*TWO+R5(13,6)*TWO
     * +R5(11,12)*TWO+R5(13,22)*TWO-R4(8,9)*FOUR-R4(8,35)*FOUR
     * +R3(4,2)*TWO+R3(4,8)*TWO+R3(4,28)*TWO+R3(6,28)*TWO+R3(4,40)*TWO
     * -R2(5,26)*FOUR+R1(1,2)*TWO+R1(1,14)*TWO)*QX+(+R6(24,12)
     * -R5(17,20)*TWO+R4(11,17)+R4(13,17)+R4(11,29)+R4(13,41)
     * -R3(8,18)*TWO-R3(8,51)*TWO+R2(2,4)+R2(2,16)+R2(2,40)+R2(3,40)
     * +R2(2,55)-R1(3,29)*TWO+R0(4)+R0(19))*XX
      F(3,1,2,3)= R8(26)-R7(19,2)*TWO+R6(13,1)+R6(15,1)+R6(13,4)
     * +R6(13,9)+R6(26,9)-R5(10,2)*TWO-R5(8,17)*TWO-R5(19,17)*TWO
     * +R4(6,1)+R4(6,4)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,26)
     * +R4(13,26)+R4(13,38)-R3(3,15)*TWO-R3(10,15)*TWO-R3(8,48)*TWO
     * +R2(1,1)+R2(3,1)+R2(1,13)+R2(3,13)+R2(2,37)+R2(3,37)+R2(2,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(26,4)*TWO-R6(19,8)*FOUR
     * +R5(13,6)*TWO+R5(15,6)*TWO+R5(13,12)*TWO+R5(13,22)*TWO
     * -R4(10,9)*FOUR-R4(8,35)*FOUR+R3(6,2)*TWO+R3(6,8)*TWO+R3(4,28)*TWO
     * +R3(6,28)*TWO+R3(4,40)*TWO-R2(5,26)*FOUR+R1(1,2)*TWO+R1(1,14)*TWO
     * )*QX+(+R7(19,3)*TWO-R6(13,7)*FOUR+R5(8,5)*TWO+R5(10,5)*TWO
     * +R5(8,11)*TWO+R5(19,21)*TWO-R4(6,8)*FOUR-R4(13,34)*FOUR
     * +R3(3,1)*TWO+R3(3,7)*TWO+R3(8,27)*TWO+R3(10,27)*TWO+R3(8,39)*TWO
     * -R2(3,25)*FOUR+R1(3,1)*TWO+R1(3,13)*TWO)*QZ
      F(3,1,2,3)= F(3,1,2,3)+(+R6(26,12)
     * -R5(19,20)*TWO+R4(13,17)+R4(15,17)+R4(13,29)+R4(13,41)
     * -R3(10,18)*TWO-R3(8,51)*TWO+R2(3,4)+R2(3,16)+R2(2,40)+R2(3,40)
     * +R2(2,55)-R1(3,29)*TWO+R0(4)+R0(19))*XX+(+R6(19,11)*FOUR
     * -R5(13,19)*EIGHT+R4(8,16)*FOUR+R4(10,16)*FOUR+R4(8,28)*FOUR
     * -R3(6,17)*EIGHT+R2(5,3)*FOUR+R2(5,15)*FOUR)*XZ+(+R6(13,10)
     * -R5(8,18)*TWO+R4(4,15)+R4(6,15)+R4(4,27)+R4(13,39)-R3(3,16)*TWO
     * -R3(8,49)*TWO+R2(1,2)+R2(1,14)+R2(2,38)+R2(3,38)+R2(2,53)
     * -R1(3,27)*TWO+R0(2)+R0(17))*ZZ+(+R5(19,24)*TWO-R4(13,37)*FOUR
     * +R3(8,30)*TWO+R3(10,30)*TWO+R3(8,42)*TWO-R2(3,28)*FOUR
     * +R1(3,4)*TWO+R1(3,16)*TWO)*XXZ+(+R5(13,23)*TWO-R4(8,36)*FOUR
     * +R3(4,29)*TWO+R3(6,29)*TWO+R3(4,41)*TWO-R2(5,27)*FOUR+R1(1,3)*TWO
     * +R1(1,15)*TWO)*XZZ+(+R4(13,42)-R3(8,52)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXZZ
      F(4,1,2,3)= R8(18)-R7(12,2)*TWO+R6(7,1)+R6(9,1)+R6(7,4)
     * +R6(18,9)*THREE-R5(5,2)*TWO-R5(12,17)*SIX+R4(2,1)+R4(2,4)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(18,3)+R7(18,4)*TWO
     * -R6(12,7)*TWO-R6(12,8)*FOUR+R5(7,5)+R5(9,5)+R5(7,6)*TWO
     * +R5(9,6)*TWO+R5(7,11)+R5(7,12)*TWO+R5(18,21)+R5(18,22)*TWO
     * -R4(5,8)*TWO-R4(5,9)*FOUR-R4(12,34)*TWO-R4(12,35)*FOUR+R3(2,1)
     * +R3(2,2)*TWO+R3(2,7)+R3(2,8)*TWO+R3(7,27)+R3(9,27)+R3(7,28)*TWO
     * +R3(9,28)*TWO+R3(7,39)+R3(7,40)*TWO-R2(6,25)*TWO-R2(6,26)*FOUR
     * +R1(2,1)+R1(2,2)*TWO+R1(2,13)+R1(2,14)*TWO)*QX+(+R6(18,11)*TWO
     * +R6(18,12)-R5(12,19)*FOUR-R5(12,20)*TWO+R4(7,16)*TWO+R4(9,16)*TWO
     * +R4(7,17)+R4(9,17)+R4(7,28)*TWO+R4(7,29)-R3(5,17)*FOUR
     * -R3(5,18)*TWO+R2(4,3)*TWO+R2(4,4)+R2(4,15)*TWO+R2(4,16))*XX+(
     * +R5(18,24)-R4(12,37)*TWO+R3(7,30)+R3(9,30)+R3(7,42)-R2(6,28)*TWO
     * +R1(2,4)+R1(2,16))*XXX
      F(5,1,2,3)= R8(19)-R7(13,2)*TWO+R6(8,1)+R6(10,1)+R6(8,4)
     * +R6(19,9)*THREE-R5(6,2)*TWO-R5(13,17)*SIX+R4(3,1)+R4(3,4)
     * +R4(8,14)*THREE+R4(10,14)*THREE+R4(8,26)*THREE-R3(6,15)*SIX
     * +R2(5,1)*THREE+R2(5,13)*THREE+(+R7(19,3)+R7(19,4)*TWO
     * -R6(13,7)*TWO-R6(13,8)*FOUR+R5(8,5)+R5(10,5)+R5(8,6)*TWO
     * +R5(10,6)*TWO+R5(8,11)+R5(8,12)*TWO+R5(19,21)+R5(19,22)*TWO
     * -R4(6,8)*TWO-R4(6,9)*FOUR-R4(13,34)*TWO-R4(13,35)*FOUR+R3(3,1)
     * +R3(3,2)*TWO+R3(3,7)+R3(3,8)*TWO+R3(8,27)+R3(10,27)+R3(8,28)*TWO
     * +R3(10,28)*TWO+R3(8,39)+R3(8,40)*TWO-R2(3,25)*TWO-R2(3,26)*FOUR
     * +R1(3,1)+R1(3,2)*TWO+R1(3,13)+R1(3,14)*TWO)*QX+(+R7(13,3)
     * -R6(8,7)*TWO+R5(4,5)+R5(6,5)+R5(4,11)+R5(13,21)*THREE-R4(3,8)*TWO
     * -R4(8,34)*SIX+R3(1,1)+R3(1,7)+R3(4,27)*THREE+R3(6,27)*THREE
     * +R3(4,39)*THREE-R2(5,25)*SIX+R1(1,1)*THREE+R1(1,13)*THREE)*QZ
      F(5,1,2,3)= F(5,1,2,3)
     * +(+R6(19,11)*TWO+R6(19,12)-R5(13,19)*FOUR-R5(13,20)*TWO
     * +R4(8,16)*TWO+R4(10,16)*TWO+R4(8,17)+R4(10,17)+R4(8,28)*TWO
     * +R4(8,29)-R3(6,17)*FOUR-R3(6,18)*TWO+R2(5,3)*TWO+R2(5,4)
     * +R2(5,15)*TWO+R2(5,16))*XX+(+R6(13,10)+R6(13,11)*TWO-R5(8,18)*TWO
     * -R5(8,19)*FOUR+R4(4,15)+R4(6,15)+R4(4,16)*TWO+R4(6,16)*TWO
     * +R4(4,27)+R4(4,28)*TWO+R4(13,39)+R4(13,40)*TWO-R3(3,16)*TWO
     * -R3(3,17)*FOUR-R3(8,49)*TWO-R3(8,50)*FOUR+R2(1,2)+R2(1,3)*TWO
     * +R2(1,14)+R2(1,15)*TWO+R2(2,38)+R2(3,38)+R2(2,39)*TWO
     * +R2(3,39)*TWO+R2(2,53)+R2(2,54)*TWO-R1(3,27)*TWO-R1(3,28)*FOUR
     * +R0(2)+R0(3)*TWO+R0(17)+R0(18)*TWO)*XZ+(+R5(19,24)-R4(13,37)*TWO
     * +R3(8,30)+R3(10,30)+R3(8,42)-R2(3,28)*TWO+R1(3,4)+R1(3,16))*XXX+(
     * +R5(13,23)*TWO+R5(13,24)-R4(8,36)*FOUR-R4(8,37)*TWO+R3(4,29)*TWO
     * +R3(6,29)*TWO+R3(4,30)+R3(6,30)+R3(4,41)*TWO+R3(4,42)
     * -R2(5,27)*FOUR-R2(5,28)*TWO+R1(1,3)*TWO+R1(1,4)+R1(1,15)*TWO
     * +R1(1,16))*XXZ+(+R4(13,42)-R3(8,52)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXXZ
      F(6,1,2,3)= R8(25)-R7(18,2)*TWO+R6(12,1)+R6(14,1)+R6(12,4)
     * +R6(25,9)-R5(9,2)*TWO-R5(18,17)*TWO+R4(5,1)+R4(5,4)+R4(12,14)
     * +R4(14,14)+R4(12,26)-R3(9,15)*TWO+R2(6,1)+R2(6,13)+(+R7(25,4)*TWO
     * -R6(18,8)*FOUR+R5(12,6)*TWO+R5(14,6)*TWO+R5(12,12)*TWO
     * -R4(9,9)*FOUR+R3(5,2)*TWO+R3(5,8)*TWO)*QX+(+R7(18,3)-R6(12,7)*TWO
     * +R5(7,5)+R5(9,5)+R5(7,11)+R5(18,21)-R4(5,8)*TWO-R4(12,34)*TWO
     * +R3(2,1)+R3(2,7)+R3(7,27)+R3(9,27)+R3(7,39)-R2(6,25)*TWO+R1(2,1)
     * +R1(2,13))*QZ+(+R6(25,12)-R5(18,20)*TWO+R4(12,17)+R4(14,17)
     * +R4(12,29)-R3(9,18)*TWO+R2(6,4)+R2(6,16))*XX+(+R6(18,11)*TWO
     * -R5(12,19)*FOUR+R4(7,16)*TWO+R4(9,16)*TWO+R4(7,28)*TWO
     * -R3(5,17)*FOUR+R2(4,3)*TWO+R2(4,15)*TWO)*XZ+(+R5(18,24)
     * -R4(12,37)*TWO+R3(7,30)+R3(9,30)+R3(7,42)-R2(6,28)*TWO+R1(2,4)
     * +R1(2,16))*XXZ
      F(1,2,2,3)= R8(24)-R7(17,2)*TWO+R6(11,1)+R6(13,1)+R6(11,4)
     * +R6(13,9)+R6(24,9)-R5(8,2)*TWO-R5(8,17)*TWO-R5(17,17)*TWO+R4(4,1)
     * +R4(4,4)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)+R4(4,26)+R4(11,26)
     * +R4(13,38)-R3(3,15)*TWO-R3(8,15)*TWO-R3(8,48)*TWO+R2(1,1)+R2(2,1)
     * +R2(1,13)+R2(2,13)+R2(2,37)+R2(3,37)+R2(2,52)-R1(3,26)*TWO+R0(1)
     * +R0(16)+(+R7(24,3)*TWO-R6(17,7)*FOUR+R5(11,5)*TWO+R5(13,5)*TWO
     * +R5(11,11)*TWO+R5(13,21)*TWO-R4(8,8)*FOUR-R4(8,34)*FOUR
     * +R3(4,1)*TWO+R3(4,7)*TWO+R3(4,27)*TWO+R3(6,27)*TWO+R3(4,39)*TWO
     * -R2(5,25)*FOUR+R1(1,1)*TWO+R1(1,13)*TWO)*QX+(+R6(24,10)
     * -R5(17,18)*TWO+R4(11,15)+R4(13,15)+R4(11,27)+R4(13,39)
     * -R3(8,16)*TWO-R3(8,49)*TWO+R2(2,2)+R2(2,14)+R2(2,38)+R2(3,38)
     * +R2(2,53)-R1(3,27)*TWO+R0(2)+R0(17))*XX
      F(2,2,2,3)= R8(39)-R7(30,2)*TWO+R6(22,1)+R6(24,1)+R6(22,4)
     * +R6(24,9)*SIX-R5(17,2)*TWO-R5(17,17)*TWELV+R4(11,1)+R4(11,4)
     * +R4(11,14)*SIX+R4(13,14)*SIX+R4(11,26)*SIX+R4(13,38)*THREE
     * -R3(8,15)*TWELV-R3(8,48)*SIX+R2(2,1)*SIX+R2(2,13)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,52)*THREE-R1(3,26)*SIX
     * +R0(1)*THREE+R0(16)*THREE
      F(3,2,2,3)= R8(41)-R7(32,2)*TWO+R6(24,1)+R6(26,1)+R6(24,4)
     * +R6(24,9)+R6(26,9)-R5(19,2)*TWO-R5(17,17)*TWO-R5(19,17)*TWO
     * +R4(13,1)+R4(13,4)+R4(11,14)+R4(13,14)*TWO+R4(15,14)+R4(11,26)
     * +R4(13,26)+R4(13,38)-R3(8,15)*TWO-R3(10,15)*TWO-R3(8,48)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,13)+R2(3,13)+R2(2,37)+R2(3,37)+R2(2,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(32,3)*TWO-R6(24,7)*FOUR
     * +R5(17,5)*TWO+R5(19,5)*TWO+R5(17,11)*TWO+R5(19,21)*TWO
     * -R4(13,8)*FOUR-R4(13,34)*FOUR+R3(8,1)*TWO+R3(8,7)*TWO
     * +R3(8,27)*TWO+R3(10,27)*TWO+R3(8,39)*TWO-R2(3,25)*FOUR
     * +R1(3,1)*TWO+R1(3,13)*TWO)*QZ+(+R6(24,10)-R5(17,18)*TWO+R4(11,15)
     * +R4(13,15)+R4(11,27)+R4(13,39)-R3(8,16)*TWO-R3(8,49)*TWO+R2(2,2)
     * +R2(2,14)+R2(2,38)+R2(3,38)+R2(2,53)-R1(3,27)*TWO+R0(2)+R0(17))
     * *ZZ
      F(4,2,2,3)= R8(31)-R7(23,2)*TWO+R6(16,1)+R6(18,1)+R6(16,4)
     * +R6(18,9)*THREE-R5(12,2)*TWO-R5(12,17)*SIX+R4(7,1)+R4(7,4)
     * +R4(7,14)*THREE+R4(9,14)*THREE+R4(7,26)*THREE-R3(5,15)*SIX
     * +R2(4,1)*THREE+R2(4,13)*THREE+(+R7(31,3)-R6(23,7)*TWO+R5(16,5)
     * +R5(18,5)+R5(16,11)+R5(18,21)*THREE-R4(12,8)*TWO-R4(12,34)*SIX
     * +R3(7,1)+R3(7,7)+R3(7,27)*THREE+R3(9,27)*THREE+R3(7,39)*THREE
     * -R2(6,25)*SIX+R1(2,1)*THREE+R1(2,13)*THREE)*QX
      F(5,2,2,3)= R8(32)-R7(24,2)*TWO+R6(17,1)+R6(19,1)+R6(17,4)
     * +R6(19,9)-R5(13,2)*TWO-R5(13,17)*TWO+R4(8,1)+R4(8,4)+R4(8,14)
     * +R4(10,14)+R4(8,26)-R3(6,15)*TWO+R2(5,1)+R2(5,13)+(+R7(32,3)
     * -R6(24,7)*TWO+R5(17,5)+R5(19,5)+R5(17,11)+R5(19,21)-R4(13,8)*TWO
     * -R4(13,34)*TWO+R3(8,1)+R3(8,7)+R3(8,27)+R3(10,27)+R3(8,39)
     * -R2(3,25)*TWO+R1(3,1)+R1(3,13))*QX+(+R7(24,3)-R6(17,7)*TWO
     * +R5(11,5)+R5(13,5)+R5(11,11)+R5(13,21)-R4(8,8)*TWO-R4(8,34)*TWO
     * +R3(4,1)+R3(4,7)+R3(4,27)+R3(6,27)+R3(4,39)-R2(5,25)*TWO+R1(1,1)
     * +R1(1,13))*QZ+(+R6(24,10)-R5(17,18)*TWO+R4(11,15)+R4(13,15)
     * +R4(11,27)+R4(13,39)-R3(8,16)*TWO-R3(8,49)*TWO+R2(2,2)+R2(2,14)
     * +R2(2,38)+R2(3,38)+R2(2,53)-R1(3,27)*TWO+R0(2)+R0(17))*XZ
      F(6,2,2,3)= R8(40)-R7(31,2)*TWO+R6(23,1)+R6(25,1)+R6(23,4)
     * +R6(25,9)*THREE-R5(18,2)*TWO-R5(18,17)*SIX+R4(12,1)+R4(12,4)
     * +R4(12,14)*THREE+R4(14,14)*THREE+R4(12,26)*THREE-R3(9,15)*SIX
     * +R2(6,1)*THREE+R2(6,13)*THREE+(+R7(31,3)-R6(23,7)*TWO+R5(16,5)
     * +R5(18,5)+R5(16,11)+R5(18,21)*THREE-R4(12,8)*TWO-R4(12,34)*SIX
     * +R3(7,1)+R3(7,7)+R3(7,27)*THREE+R3(9,27)*THREE+R3(7,39)*THREE
     * -R2(6,25)*SIX+R1(2,1)*THREE+R1(2,13)*THREE)*QZ
      F(1,3,2,3)= R8(26)-R7(19,2)*TWO+R6(13,1)+R6(15,1)+R6(13,4)
     * +R6(13,9)+R6(26,9)-R5(10,2)*TWO-R5(8,17)*TWO-R5(19,17)*TWO
     * +R4(6,1)+R4(6,4)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)+R4(4,26)
     * +R4(13,26)+R4(13,38)-R3(3,15)*TWO-R3(10,15)*TWO-R3(8,48)*TWO
     * +R2(1,1)+R2(3,1)+R2(1,13)+R2(3,13)+R2(2,37)+R2(3,37)+R2(2,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(26,3)*TWO-R6(19,7)*FOUR
     * +R5(13,5)*TWO+R5(15,5)*TWO+R5(13,11)*TWO+R5(13,21)*TWO
     * -R4(10,8)*FOUR-R4(8,34)*FOUR+R3(6,1)*TWO+R3(6,7)*TWO+R3(4,27)*TWO
     * +R3(6,27)*TWO+R3(4,39)*TWO-R2(5,25)*FOUR+R1(1,1)*TWO+R1(1,13)*TWO
     * )*QX+(+R7(19,4)*TWO-R6(13,8)*FOUR+R5(8,6)*TWO+R5(10,6)*TWO
     * +R5(8,12)*TWO+R5(19,22)*TWO-R4(6,9)*FOUR-R4(13,35)*FOUR
     * +R3(3,2)*TWO+R3(3,8)*TWO+R3(8,28)*TWO+R3(10,28)*TWO+R3(8,40)*TWO
     * -R2(3,26)*FOUR+R1(3,2)*TWO+R1(3,14)*TWO)*QZ
      F(1,3,2,3)= F(1,3,2,3)+(+R6(26,10)
     * -R5(19,18)*TWO+R4(13,15)+R4(15,15)+R4(13,27)+R4(13,39)
     * -R3(10,16)*TWO-R3(8,49)*TWO+R2(3,2)+R2(3,14)+R2(2,38)+R2(3,38)
     * +R2(2,53)-R1(3,27)*TWO+R0(2)+R0(17))*XX+(+R6(19,11)*FOUR
     * -R5(13,19)*EIGHT+R4(8,16)*FOUR+R4(10,16)*FOUR+R4(8,28)*FOUR
     * -R3(6,17)*EIGHT+R2(5,3)*FOUR+R2(5,15)*FOUR)*XZ+(+R6(13,12)
     * -R5(8,20)*TWO+R4(4,17)+R4(6,17)+R4(4,29)+R4(13,41)-R3(3,18)*TWO
     * -R3(8,51)*TWO+R2(1,4)+R2(1,16)+R2(2,40)+R2(3,40)+R2(2,55)
     * -R1(3,29)*TWO+R0(4)+R0(19))*ZZ+(+R5(19,23)*TWO-R4(13,36)*FOUR
     * +R3(8,29)*TWO+R3(10,29)*TWO+R3(8,41)*TWO-R2(3,27)*FOUR
     * +R1(3,3)*TWO+R1(3,15)*TWO)*XXZ+(+R5(13,24)*TWO-R4(8,37)*FOUR
     * +R3(4,30)*TWO+R3(6,30)*TWO+R3(4,42)*TWO-R2(5,28)*FOUR+R1(1,4)*TWO
     * +R1(1,16)*TWO)*XZZ+(+R4(13,42)-R3(8,52)*TWO+R2(2,41)+R2(3,41)
     * +R2(2,56)-R1(3,30)*TWO+R0(5)+R0(20))*XXZZ
      F(2,3,2,3)= R8(41)-R7(32,2)*TWO+R6(24,1)+R6(26,1)+R6(24,4)
     * +R6(24,9)+R6(26,9)-R5(19,2)*TWO-R5(17,17)*TWO-R5(19,17)*TWO
     * +R4(13,1)+R4(13,4)+R4(11,14)+R4(13,14)*TWO+R4(15,14)+R4(11,26)
     * +R4(13,26)+R4(13,38)-R3(8,15)*TWO-R3(10,15)*TWO-R3(8,48)*TWO
     * +R2(2,1)+R2(3,1)+R2(2,13)+R2(3,13)+R2(2,37)+R2(3,37)+R2(2,52)
     * -R1(3,26)*TWO+R0(1)+R0(16)+(+R7(32,4)*TWO-R6(24,8)*FOUR
     * +R5(17,6)*TWO+R5(19,6)*TWO+R5(17,12)*TWO+R5(19,22)*TWO
     * -R4(13,9)*FOUR-R4(13,35)*FOUR+R3(8,2)*TWO+R3(8,8)*TWO
     * +R3(8,28)*TWO+R3(10,28)*TWO+R3(8,40)*TWO-R2(3,26)*FOUR
     * +R1(3,2)*TWO+R1(3,14)*TWO)*QZ+(+R6(24,12)-R5(17,20)*TWO+R4(11,17)
     * +R4(13,17)+R4(11,29)+R4(13,41)-R3(8,18)*TWO-R3(8,51)*TWO+R2(2,4)
     * +R2(2,16)+R2(2,40)+R2(3,40)+R2(2,55)-R1(3,29)*TWO+R0(4)+R0(19))
     * *ZZ
      F(3,3,2,3)= R8(43)-R7(34,2)*TWO+R6(26,1)+R6(28,1)+R6(26,4)
     * +R6(26,9)*SIX-R5(21,2)*TWO-R5(19,17)*TWELV+R4(15,1)+R4(15,4)
     * +R4(13,14)*SIX+R4(15,14)*SIX+R4(13,26)*SIX+R4(13,38)*THREE
     * -R3(10,15)*TWELV-R3(8,48)*SIX+R2(3,1)*SIX+R2(3,13)*SIX
     * +R2(2,37)*THREE+R2(3,37)*THREE+R2(2,52)*THREE-R1(3,26)*SIX
     * +R0(1)*THREE+R0(16)*THREE+(+R7(34,3)*TWO+R7(34,4)*TWO
     * -R6(26,7)*FOUR-R6(26,8)*FOUR+R5(19,5)*TWO+R5(21,5)*TWO
     * +R5(19,6)*TWO+R5(21,6)*TWO+R5(19,11)*TWO+R5(19,12)*TWO
     * +R5(19,21)*SIX+R5(19,22)*SIX-R4(15,8)*FOUR-R4(15,9)*FOUR
     * -R4(13,34)*TWELV-R4(13,35)*TWELV+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,7)*TWO+R3(10,8)*TWO+R3(8,27)*SIX+R3(10,27)*SIX
     * +R3(8,28)*SIX+R3(10,28)*SIX+R3(8,39)*SIX+R3(8,40)*SIX
     * -R2(3,25)*TWELV-R2(3,26)*TWELV+R1(3,1)*SIX+R1(3,2)*SIX
     * +R1(3,13)*SIX+R1(3,14)*SIX)*QZ
      F(3,3,2,3)= F(3,3,2,3)+(+R6(26,10)+R6(26,11)*FOUR
     * +R6(26,12)-R5(19,18)*TWO-R5(19,19)*EIGHT-R5(19,20)*TWO+R4(13,15)
     * +R4(15,15)+R4(13,16)*FOUR+R4(15,16)*FOUR+R4(13,17)+R4(15,17)
     * +R4(13,27)+R4(13,28)*FOUR+R4(13,29)+R4(13,39)+R4(13,40)*FOUR
     * +R4(13,41)-R3(10,16)*TWO-R3(10,17)*EIGHT-R3(10,18)*TWO
     * -R3(8,49)*TWO-R3(8,50)*EIGHT-R3(8,51)*TWO+R2(3,2)+R2(3,3)*FOUR
     * +R2(3,4)+R2(3,14)+R2(3,15)*FOUR+R2(3,16)+R2(2,38)+R2(3,38)
     * +R2(2,39)*FOUR+R2(3,39)*FOUR+R2(2,40)+R2(3,40)+R2(2,53)
     * +R2(2,54)*FOUR+R2(2,55)-R1(3,27)*TWO-R1(3,28)*EIGHT-R1(3,29)*TWO
     * +R0(2)+R0(3)*FOUR+R0(4)+R0(17)+R0(18)*FOUR+R0(19))*ZZ+(
     * +R5(19,23)*TWO+R5(19,24)*TWO-R4(13,36)*FOUR-R4(13,37)*FOUR
     * +R3(8,29)*TWO+R3(10,29)*TWO+R3(8,30)*TWO+R3(10,30)*TWO
     * +R3(8,41)*TWO+R3(8,42)*TWO-R2(3,27)*FOUR-R2(3,28)*FOUR
     * +R1(3,3)*TWO+R1(3,4)*TWO+R1(3,15)*TWO+R1(3,16)*TWO)*ZZZ+(
     * +R4(13,42)-R3(8,52)*TWO+R2(2,41)+R2(3,41)+R2(2,56)-R1(3,30)*TWO
     * +R0(5)+R0(20))*ZZZZ
      F(4,3,2,3)= R8(33)-R7(25,2)*TWO+R6(18,1)+R6(20,1)+R6(18,4)
     * +R6(18,9)-R5(14,2)*TWO-R5(12,17)*TWO+R4(9,1)+R4(9,4)+R4(7,14)
     * +R4(9,14)+R4(7,26)-R3(5,15)*TWO+R2(4,1)+R2(4,13)+(+R7(33,3)
     * -R6(25,7)*TWO+R5(18,5)+R5(20,5)+R5(18,11)+R5(18,21)-R4(14,8)*TWO
     * -R4(12,34)*TWO+R3(9,1)+R3(9,7)+R3(7,27)+R3(9,27)+R3(7,39)
     * -R2(6,25)*TWO+R1(2,1)+R1(2,13))*QX+(+R7(25,4)*TWO-R6(18,8)*FOUR
     * +R5(12,6)*TWO+R5(14,6)*TWO+R5(12,12)*TWO-R4(9,9)*FOUR+R3(5,2)*TWO
     * +R3(5,8)*TWO)*QZ+(+R6(25,11)*TWO-R5(18,19)*FOUR+R4(12,16)*TWO
     * +R4(14,16)*TWO+R4(12,28)*TWO-R3(9,17)*FOUR+R2(6,3)*TWO
     * +R2(6,15)*TWO)*XZ+(+R6(18,12)-R5(12,20)*TWO+R4(7,17)+R4(9,17)
     * +R4(7,29)-R3(5,18)*TWO+R2(4,4)+R2(4,16))*ZZ+(+R5(18,24)
     * -R4(12,37)*TWO+R3(7,30)+R3(9,30)+R3(7,42)-R2(6,28)*TWO+R1(2,4)
     * +R1(2,16))*XZZ
      RETURN
      END
