C 10 NOV 04 - KI  - QUADRATURE ROUTINES FOR S,P,D,L ROTATED AXIS CODE
C
C*MODULE INT2U   *DECK MCDV20
      SUBROUTINE MCDV20(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
      XZ= QX*QZ
      ZZ= QZ*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 SEVEN PARTS TO REDUCE STRAIN ON COMPILERS
C
      CALL MCDV20A(F,QX,QZ)
      CALL MCDV20B(F,QX,QZ)
      CALL MCDV20C(F,QX,QZ)
      CALL MCDV20D(F,QX,QZ)
      CALL MCDV20E(F,QX,QZ)
      CALL MCDV20F(F,QX,QZ)
      CALL MCDV20G(F,QX,QZ)
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20A
      SUBROUTINE MCDV20A(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(1,1,1,1)= R6(1,2)+R4(1,1)+R4(1,14)*SIX+R2(1,1)*SIX
     * +R2(1,37)*THREE+R0(1)*THREE+(+R5(1,5)*TWO+R5(1,6)*TWO+R3(1,1)*TWO
     * +R3(1,2)*TWO+R3(1,27)*SIX+R3(1,28)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)
     * *QX+(+R4(1,15)+R4(1,16)*FOUR+R4(1,17)+R2(1,2)+R2(1,3)*FOUR
     * +R2(1,4)+R2(1,38)+R2(1,39)*FOUR+R2(1,40)+R0(2)+R0(3)*FOUR+R0(4))
     * *XX+(+R3(1,29)*TWO+R3(1,30)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(
     * +R2(1,41)+R0(5))*XXXX
      F(2,1,1,1)= R6(4,2)+R4(4,1)+R4(1,14)+R4(4,14)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R0(1)+(+R5(4,6)*TWO+R3(4,2)*TWO+R3(1,28)*TWO
     * +R1(1,2)*TWO)*QX+(+R4(4,17)+R2(2,4)+R2(1,40)+R0(4))*XX
      F(3,1,1,1)= R6(6,2)+R4(6,1)+R4(1,14)+R4(6,14)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(6,6)*TWO+R3(6,2)*TWO+R3(1,28)*TWO
     * +R1(1,2)*TWO)*QX+(+R5(3,5)*TWO+R3(3,1)*TWO+R3(3,27)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(6,17)+R2(3,4)+R2(1,40)+R0(4))*XX+(
     * +R4(3,16)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(1,15)+R2(1,2)+R2(1,38)+R0(2)
     * )*ZZ+(+R3(3,30)*TWO+R1(3,4)*TWO)*XXZ+(+R3(1,29)*TWO+R1(1,3)*TWO)
     * *XZZ+(+R2(1,41)+R0(5))*XXZZ
      F(4,1,1,1)= R6(2,2)+R4(2,1)+R4(2,14)*THREE+R2(4,1)*THREE+(+R5(2,5)
     * +R5(2,6)*TWO+R3(2,1)+R3(2,2)*TWO+R3(2,27)+R3(2,28)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QX+(+R4(2,16)*TWO+R4(2,17)+R2(4,3)*TWO+R2(4,4))*XX
     * +(+R3(2,30)+R1(2,4))*XXX
      F(5,1,1,1)= R6(3,2)+R4(3,1)+R4(3,14)*THREE+R2(5,1)*THREE+(+R5(3,5)
     * +R5(3,6)*TWO+R3(3,1)+R3(3,2)*TWO+R3(3,27)+R3(3,28)*TWO+R1(3,1)
     * +R1(3,2)*TWO)*QX+(+R5(1,5)+R3(1,1)+R3(1,27)*THREE+R1(1,1)*THREE)
     * *QZ+(+R4(3,16)*TWO+R4(3,17)+R2(5,3)*TWO+R2(5,4))*XX+(+R4(1,15)
     * +R4(1,16)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,38)+R2(1,39)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R3(3,30)+R1(3,4))*XXX+(+R3(1,29)*TWO+R3(1,30)
     * +R1(1,3)*TWO+R1(1,4))*XXZ+(+R2(1,41)+R0(5))*XXXZ
      F(6,1,1,1)= R6(5,2)+R4(5,1)+R4(5,14)+R2(6,1)+(+R5(5,6)*TWO
     * +R3(5,2)*TWO)*QX+(+R5(2,5)+R3(2,1)+R3(2,27)+R1(2,1))*QZ+(
     * +R4(5,17)+R2(6,4))*XX+(+R4(2,16)*TWO+R2(4,3)*TWO)*XZ+(+R3(2,30)
     * +R1(2,4))*XXZ
      F(1,2,1,1)= R6(4,2)+R4(4,1)+R4(1,14)+R4(4,14)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R0(1)+(+R5(4,5)*TWO+R3(4,1)*TWO+R3(1,27)*TWO
     * +R1(1,1)*TWO)*QX+(+R4(4,15)+R2(2,2)+R2(1,38)+R0(2))*XX
      F(2,2,1,1)= R6(11,2)+R4(11,1)+R4(4,14)*SIX+R2(2,1)*SIX
     * +R2(1,37)*THREE+R0(1)*THREE
      F(3,2,1,1)= R6(13,2)+R4(13,1)+R4(4,14)+R4(6,14)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(8,5)*TWO+R3(8,1)*TWO+R3(3,27)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(4,15)+R2(2,2)+R2(1,38)+R0(2))*ZZ
      F(4,2,1,1)= R6(7,2)+R4(7,1)+R4(2,14)*THREE+R2(4,1)*THREE+(+R5(7,5)
     * +R3(7,1)+R3(2,27)*THREE+R1(2,1)*THREE)*QX
      F(5,2,1,1)= R6(8,2)+R4(8,1)+R4(3,14)+R2(5,1)+(+R5(8,5)+R3(8,1)
     * +R3(3,27)+R1(3,1))*QX+(+R5(4,5)+R3(4,1)+R3(1,27)+R1(1,1))*QZ+(
     * +R4(4,15)+R2(2,2)+R2(1,38)+R0(2))*XZ
      F(6,2,1,1)= R6(12,2)+R4(12,1)+R4(5,14)*THREE+R2(6,1)*THREE+(
     * +R5(7,5)+R3(7,1)+R3(2,27)*THREE+R1(2,1)*THREE)*QZ
      F(1,3,1,1)= R6(6,2)+R4(6,1)+R4(1,14)+R4(6,14)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(6,5)*TWO+R3(6,1)*TWO+R3(1,27)*TWO
     * +R1(1,1)*TWO)*QX+(+R5(3,6)*TWO+R3(3,2)*TWO+R3(3,28)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(6,15)+R2(3,2)+R2(1,38)+R0(2))*XX+(
     * +R4(3,16)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(1,17)+R2(1,4)+R2(1,40)+R0(4)
     * )*ZZ+(+R3(3,29)*TWO+R1(3,3)*TWO)*XXZ+(+R3(1,30)*TWO+R1(1,4)*TWO)
     * *XZZ+(+R2(1,41)+R0(5))*XXZZ
      F(2,3,1,1)= R6(13,2)+R4(13,1)+R4(4,14)+R4(6,14)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(8,6)*TWO+R3(8,2)*TWO+R3(3,28)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(4,17)+R2(2,4)+R2(1,40)+R0(4))*ZZ
      F(3,3,1,1)= R6(15,2)+R4(15,1)+R4(6,14)*SIX+R2(3,1)*SIX
     * +R2(1,37)*THREE+R0(1)*THREE+(+R5(10,5)*TWO+R5(10,6)*TWO
     * +R3(10,1)*TWO+R3(10,2)*TWO+R3(3,27)*SIX+R3(3,28)*SIX+R1(3,1)*SIX
     * +R1(3,2)*SIX)*QZ+(+R4(6,15)+R4(6,16)*FOUR+R4(6,17)+R2(3,2)
     * +R2(3,3)*FOUR+R2(3,4)+R2(1,38)+R2(1,39)*FOUR+R2(1,40)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R3(3,29)*TWO+R3(3,30)*TWO+R1(3,3)*TWO
     * +R1(3,4)*TWO)*ZZZ+(+R2(1,41)+R0(5))*ZZZZ
      F(4,3,1,1)= R6(9,2)+R4(9,1)+R4(2,14)+R2(4,1)+(+R5(9,5)+R3(9,1)
     * +R3(2,27)+R1(2,1))*QX+(+R5(5,6)*TWO+R3(5,2)*TWO)*QZ+(
     * +R4(5,16)*TWO+R2(6,3)*TWO)*XZ+(+R4(2,17)+R2(4,4))*ZZ+(+R3(2,30)
     * +R1(2,4))*XZZ
      F(5,3,1,1)= R6(10,2)+R4(10,1)+R4(3,14)*THREE+R2(5,1)*THREE+(
     * +R5(10,5)+R3(10,1)+R3(3,27)*THREE+R1(3,1)*THREE)*QX+(+R5(6,5)
     * +R5(6,6)*TWO+R3(6,1)+R3(6,2)*TWO+R3(1,27)+R3(1,28)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R4(6,15)+R4(6,16)*TWO+R2(3,2)+R2(3,3)*TWO
     * +R2(1,38)+R2(1,39)*TWO+R0(2)+R0(3)*TWO)*XZ+(+R4(3,16)*TWO
     * +R4(3,17)+R2(5,3)*TWO+R2(5,4))*ZZ+(+R3(3,29)*TWO+R3(3,30)
     * +R1(3,3)*TWO+R1(3,4))*XZZ+(+R3(1,30)+R1(1,4))*ZZZ+(+R2(1,41)
     * +R0(5))*XZZZ
      F(6,3,1,1)= R6(14,2)+R4(14,1)+R4(5,14)*THREE+R2(6,1)*THREE+(
     * +R5(9,5)+R5(9,6)*TWO+R3(9,1)+R3(9,2)*TWO+R3(2,27)+R3(2,28)*TWO
     * +R1(2,1)+R1(2,2)*TWO)*QZ+(+R4(5,16)*TWO+R4(5,17)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R3(2,30)+R1(2,4))*ZZZ
      F(1,4,1,1)= R6(2,2)+R4(2,1)+R4(2,14)*THREE+R2(4,1)*THREE+(
     * +R5(2,5)*TWO+R5(2,6)+R3(2,1)*TWO+R3(2,2)+R3(2,27)*TWO+R3(2,28)
     * +R1(2,1)*TWO+R1(2,2))*QX+(+R4(2,15)+R4(2,16)*TWO+R2(4,2)
     * +R2(4,3)*TWO)*XX+(+R3(2,29)+R1(2,3))*XXX
      F(2,4,1,1)= R6(7,2)+R4(7,1)+R4(2,14)*THREE+R2(4,1)*THREE+(+R5(7,6)
     * +R3(7,2)+R3(2,28)*THREE+R1(2,2)*THREE)*QX
      F(3,4,1,1)= R6(9,2)+R4(9,1)+R4(2,14)+R2(4,1)+(+R5(9,6)+R3(9,2)
     * +R3(2,28)+R1(2,2))*QX+(+R5(5,5)*TWO+R3(5,1)*TWO)*QZ+(
     * +R4(5,16)*TWO+R2(6,3)*TWO)*XZ+(+R4(2,15)+R2(4,2))*ZZ+(+R3(2,29)
     * +R1(2,3))*XZZ
      F(4,4,1,1)= R6(4,2)+R4(4,1)+R4(1,14)+R4(4,14)+R2(1,1)+R2(2,1)
     * +R2(1,37)+R0(1)+(+R5(4,5)+R5(4,6)+R3(4,1)+R3(4,2)+R3(1,27)
     * +R3(1,28)+R1(1,1)+R1(1,2))*QX+(+R4(4,16)+R2(2,3)+R2(1,39)+R0(3))
     * *XX
      F(5,4,1,1)= R6(5,2)+R4(5,1)+R4(5,14)+R2(6,1)+(+R5(5,5)+R5(5,6)
     * +R3(5,1)+R3(5,2))*QX+(+R5(2,5)+R3(2,1)+R3(2,27)+R1(2,1))*QZ+(
     * +R4(5,16)+R2(6,3))*XX+(+R4(2,15)+R4(2,16)+R2(4,2)+R2(4,3))*XZ+(
     * +R3(2,29)+R1(2,3))*XXZ
      F(6,4,1,1)= R6(8,2)+R4(8,1)+R4(3,14)+R2(5,1)+(+R5(8,6)+R3(8,2)
     * +R3(3,28)+R1(3,2))*QX+(+R5(4,5)+R3(4,1)+R3(1,27)+R1(1,1))*QZ+(
     * +R4(4,16)+R2(2,3)+R2(1,39)+R0(3))*XZ
      F(1,5,1,1)= R6(3,2)+R4(3,1)+R4(3,14)*THREE+R2(5,1)*THREE+(
     * +R5(3,5)*TWO+R5(3,6)+R3(3,1)*TWO+R3(3,2)+R3(3,27)*TWO+R3(3,28)
     * +R1(3,1)*TWO+R1(3,2))*QX+(+R5(1,6)+R3(1,2)+R3(1,28)*THREE
     * +R1(1,2)*THREE)*QZ+(+R4(3,15)+R4(3,16)*TWO+R2(5,2)+R2(5,3)*TWO)
     * *XX+(+R4(1,16)*TWO+R4(1,17)+R2(1,3)*TWO+R2(1,4)+R2(1,39)*TWO
     * +R2(1,40)+R0(3)*TWO+R0(4))*XZ+(+R3(3,29)+R1(3,3))*XXX+(+R3(1,29)
     * +R3(1,30)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(+R2(1,41)+R0(5))*XXXZ
      F(2,5,1,1)= R6(8,2)+R4(8,1)+R4(3,14)+R2(5,1)+(+R5(8,6)+R3(8,2)
     * +R3(3,28)+R1(3,2))*QX+(+R5(4,6)+R3(4,2)+R3(1,28)+R1(1,2))*QZ+(
     * +R4(4,17)+R2(2,4)+R2(1,40)+R0(4))*XZ
      F(3,5,1,1)= R6(10,2)+R4(10,1)+R4(3,14)*THREE+R2(5,1)*THREE+(
     * +R5(10,6)+R3(10,2)+R3(3,28)*THREE+R1(3,2)*THREE)*QX+(+R5(6,5)*TWO
     * +R5(6,6)+R3(6,1)*TWO+R3(6,2)+R3(1,27)*TWO+R3(1,28)+R1(1,1)*TWO
     * +R1(1,2))*QZ+(+R4(6,16)*TWO+R4(6,17)+R2(3,3)*TWO+R2(3,4)
     * +R2(1,39)*TWO+R2(1,40)+R0(3)*TWO+R0(4))*XZ+(+R4(3,15)
     * +R4(3,16)*TWO+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R3(3,29)+R3(3,30)*TWO
     * +R1(3,3)+R1(3,4)*TWO)*XZZ+(+R3(1,29)+R1(1,3))*ZZZ+(+R2(1,41)
     * +R0(5))*XZZZ
      F(4,5,1,1)= R6(5,2)+R4(5,1)+R4(5,14)+R2(6,1)+(+R5(5,5)+R5(5,6)
     * +R3(5,1)+R3(5,2))*QX+(+R5(2,6)+R3(2,2)+R3(2,28)+R1(2,2))*QZ+(
     * +R4(5,16)+R2(6,3))*XX+(+R4(2,16)+R4(2,17)+R2(4,3)+R2(4,4))*XZ+(
     * +R3(2,30)+R1(2,4))*XXZ
      F(5,5,1,1)= R6(6,2)+R4(6,1)+R4(1,14)+R4(6,14)+R2(1,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(6,5)+R5(6,6)+R3(6,1)+R3(6,2)+R3(1,27)
     * +R3(1,28)+R1(1,1)+R1(1,2))*QX+(+R5(3,5)+R5(3,6)+R3(3,1)+R3(3,2)
     * +R3(3,27)+R3(3,28)+R1(3,1)+R1(3,2))*QZ+(+R4(6,16)+R2(3,3)
     * +R2(1,39)+R0(3))*XX+(+R4(3,15)+R4(3,16)*TWO+R4(3,17)+R2(5,2)
     * +R2(5,3)*TWO+R2(5,4))*XZ+(+R4(1,16)+R2(1,3)+R2(1,39)+R0(3))*ZZ+(
     * +R3(3,29)+R3(3,30)+R1(3,3)+R1(3,4))*XXZ+(+R3(1,29)+R3(1,30)
     * +R1(1,3)+R1(1,4))*XZZ+(+R2(1,41)+R0(5))*XXZZ
      F(6,5,1,1)= R6(9,2)+R4(9,1)+R4(2,14)+R2(4,1)+(+R5(9,6)+R3(9,2)
     * +R3(2,28)+R1(2,2))*QX+(+R5(5,5)+R5(5,6)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(5,16)+R4(5,17)+R2(6,3)+R2(6,4))*XZ+(+R4(2,16)+R2(4,3))*ZZ+(
     * +R3(2,30)+R1(2,4))*XZZ
      F(1,6,1,1)= R6(5,2)+R4(5,1)+R4(5,14)+R2(6,1)+(+R5(5,5)*TWO
     * +R3(5,1)*TWO)*QX+(+R5(2,6)+R3(2,2)+R3(2,28)+R1(2,2))*QZ+(
     * +R4(5,15)+R2(6,2))*XX+(+R4(2,16)*TWO+R2(4,3)*TWO)*XZ+(+R3(2,29)
     * +R1(2,3))*XXZ
      F(2,6,1,1)= R6(12,2)+R4(12,1)+R4(5,14)*THREE+R2(6,1)*THREE+(
     * +R5(7,6)+R3(7,2)+R3(2,28)*THREE+R1(2,2)*THREE)*QZ
      F(3,6,1,1)= R6(14,2)+R4(14,1)+R4(5,14)*THREE+R2(6,1)*THREE+(
     * +R5(9,5)*TWO+R5(9,6)+R3(9,1)*TWO+R3(9,2)+R3(2,27)*TWO+R3(2,28)
     * +R1(2,1)*TWO+R1(2,2))*QZ+(+R4(5,15)+R4(5,16)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R3(2,29)+R1(2,3))*ZZZ
      F(4,6,1,1)= R6(8,2)+R4(8,1)+R4(3,14)+R2(5,1)+(+R5(8,5)+R3(8,1)
     * +R3(3,27)+R1(3,1))*QX+(+R5(4,6)+R3(4,2)+R3(1,28)+R1(1,2))*QZ+(
     * +R4(4,16)+R2(2,3)+R2(1,39)+R0(3))*XZ
      F(5,6,1,1)= R6(9,2)+R4(9,1)+R4(2,14)+R2(4,1)+(+R5(9,5)+R3(9,1)
     * +R3(2,27)+R1(2,1))*QX+(+R5(5,5)+R5(5,6)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(5,15)+R4(5,16)+R2(6,2)+R2(6,3))*XZ+(+R4(2,16)+R2(4,3))*ZZ+(
     * +R3(2,29)+R1(2,3))*XZZ
      F(6,6,1,1)= R6(13,2)+R4(13,1)+R4(4,14)+R4(6,14)+R2(2,1)+R2(3,1)
     * +R2(1,37)+R0(1)+(+R5(8,5)+R5(8,6)+R3(8,1)+R3(8,2)+R3(3,27)
     * +R3(3,28)+R1(3,1)+R1(3,2))*QZ+(+R4(4,16)+R2(2,3)+R2(1,39)+R0(3))
     * *ZZ
      F(1,1,2,1)= R6(4,2)+R4(1,1)+R4(4,14)*SIX+R2(1,1)*SIX
     * +R2(2,37)*THREE+R0(1)*THREE+(+R5(4,5)*TWO+R5(4,6)*TWO+R3(1,1)*TWO
     * +R3(1,2)*TWO+R3(4,27)*SIX+R3(4,28)*SIX+R1(1,1)*SIX+R1(1,2)*SIX)
     * *QX+(+R4(4,15)+R4(4,16)*FOUR+R4(4,17)+R2(1,2)+R2(1,3)*FOUR
     * +R2(1,4)+R2(2,38)+R2(2,39)*FOUR+R2(2,40)+R0(2)+R0(3)*FOUR+R0(4))
     * *XX+(+R3(4,29)*TWO+R3(4,30)*TWO+R1(1,3)*TWO+R1(1,4)*TWO)*XXX+(
     * +R2(2,41)+R0(5))*XXXX
      F(2,1,2,1)= R6(11,2)+R4(4,1)+R4(4,14)+R4(11,14)+R2(1,1)+R2(2,1)
     * +R2(2,37)+R0(1)+(+R5(11,6)*TWO+R3(4,2)*TWO+R3(4,28)*TWO
     * +R1(1,2)*TWO)*QX+(+R4(11,17)+R2(2,4)+R2(2,40)+R0(4))*XX
      F(3,1,2,1)= R6(13,2)+R4(6,1)+R4(4,14)+R4(13,14)+R2(1,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(13,6)*TWO+R3(6,2)*TWO+R3(4,28)*TWO
     * +R1(1,2)*TWO)*QX+(+R5(8,5)*TWO+R3(3,1)*TWO+R3(8,27)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(13,17)+R2(3,4)+R2(2,40)+R0(4))*XX+(
     * +R4(8,16)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(4,15)+R2(1,2)+R2(2,38)+R0(2)
     * )*ZZ+(+R3(8,30)*TWO+R1(3,4)*TWO)*XXZ+(+R3(4,29)*TWO+R1(1,3)*TWO)
     * *XZZ+(+R2(2,41)+R0(5))*XXZZ
      F(4,1,2,1)= R6(7,2)+R4(2,1)+R4(7,14)*THREE+R2(4,1)*THREE+(+R5(7,5)
     * +R5(7,6)*TWO+R3(2,1)+R3(2,2)*TWO+R3(7,27)+R3(7,28)*TWO+R1(2,1)
     * +R1(2,2)*TWO)*QX+(+R4(7,16)*TWO+R4(7,17)+R2(4,3)*TWO+R2(4,4))*XX
     * +(+R3(7,30)+R1(2,4))*XXX
      F(5,1,2,1)= R6(8,2)+R4(3,1)+R4(8,14)*THREE+R2(5,1)*THREE+(+R5(8,5)
     * +R5(8,6)*TWO+R3(3,1)+R3(3,2)*TWO+R3(8,27)+R3(8,28)*TWO+R1(3,1)
     * +R1(3,2)*TWO)*QX+(+R5(4,5)+R3(1,1)+R3(4,27)*THREE+R1(1,1)*THREE)
     * *QZ+(+R4(8,16)*TWO+R4(8,17)+R2(5,3)*TWO+R2(5,4))*XX+(+R4(4,15)
     * +R4(4,16)*TWO+R2(1,2)+R2(1,3)*TWO+R2(2,38)+R2(2,39)*TWO+R0(2)
     * +R0(3)*TWO)*XZ+(+R3(8,30)+R1(3,4))*XXX+(+R3(4,29)*TWO+R3(4,30)
     * +R1(1,3)*TWO+R1(1,4))*XXZ+(+R2(2,41)+R0(5))*XXXZ
      F(6,1,2,1)= R6(12,2)+R4(5,1)+R4(12,14)+R2(6,1)+(+R5(12,6)*TWO
     * +R3(5,2)*TWO)*QX+(+R5(7,5)+R3(2,1)+R3(7,27)+R1(2,1))*QZ+(
     * +R4(12,17)+R2(6,4))*XX+(+R4(7,16)*TWO+R2(4,3)*TWO)*XZ+(+R3(7,30)
     * +R1(2,4))*XXZ
      F(1,2,2,1)= R6(11,2)+R4(4,1)+R4(4,14)+R4(11,14)+R2(1,1)+R2(2,1)
     * +R2(2,37)+R0(1)+(+R5(11,5)*TWO+R3(4,1)*TWO+R3(4,27)*TWO
     * +R1(1,1)*TWO)*QX+(+R4(11,15)+R2(2,2)+R2(2,38)+R0(2))*XX
      F(2,2,2,1)= R6(22,2)+R4(11,1)+R4(11,14)*SIX+R2(2,1)*SIX
     * +R2(2,37)*THREE+R0(1)*THREE
      F(3,2,2,1)= R6(24,2)+R4(13,1)+R4(11,14)+R4(13,14)+R2(2,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(17,5)*TWO+R3(8,1)*TWO+R3(8,27)*TWO
     * +R1(3,1)*TWO)*QZ+(+R4(11,15)+R2(2,2)+R2(2,38)+R0(2))*ZZ
      F(4,2,2,1)= R6(16,2)+R4(7,1)+R4(7,14)*THREE+R2(4,1)*THREE+(
     * +R5(16,5)+R3(7,1)+R3(7,27)*THREE+R1(2,1)*THREE)*QX
      F(5,2,2,1)= R6(17,2)+R4(8,1)+R4(8,14)+R2(5,1)+(+R5(17,5)+R3(8,1)
     * +R3(8,27)+R1(3,1))*QX+(+R5(11,5)+R3(4,1)+R3(4,27)+R1(1,1))*QZ+(
     * +R4(11,15)+R2(2,2)+R2(2,38)+R0(2))*XZ
      F(6,2,2,1)= R6(23,2)+R4(12,1)+R4(12,14)*THREE+R2(6,1)*THREE+(
     * +R5(16,5)+R3(7,1)+R3(7,27)*THREE+R1(2,1)*THREE)*QZ
      F(1,3,2,1)= R6(13,2)+R4(6,1)+R4(4,14)+R4(13,14)+R2(1,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(13,5)*TWO+R3(6,1)*TWO+R3(4,27)*TWO
     * +R1(1,1)*TWO)*QX+(+R5(8,6)*TWO+R3(3,2)*TWO+R3(8,28)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(13,15)+R2(3,2)+R2(2,38)+R0(2))*XX+(
     * +R4(8,16)*FOUR+R2(5,3)*FOUR)*XZ+(+R4(4,17)+R2(1,4)+R2(2,40)+R0(4)
     * )*ZZ+(+R3(8,29)*TWO+R1(3,3)*TWO)*XXZ+(+R3(4,30)*TWO+R1(1,4)*TWO)
     * *XZZ+(+R2(2,41)+R0(5))*XXZZ
      F(2,3,2,1)= R6(24,2)+R4(13,1)+R4(11,14)+R4(13,14)+R2(2,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(17,6)*TWO+R3(8,2)*TWO+R3(8,28)*TWO
     * +R1(3,2)*TWO)*QZ+(+R4(11,17)+R2(2,4)+R2(2,40)+R0(4))*ZZ
      F(3,3,2,1)= R6(26,2)+R4(15,1)+R4(13,14)*SIX+R2(3,1)*SIX
     * +R2(2,37)*THREE+R0(1)*THREE+(+R5(19,5)*TWO+R5(19,6)*TWO
     * +R3(10,1)*TWO+R3(10,2)*TWO+R3(8,27)*SIX+R3(8,28)*SIX+R1(3,1)*SIX
     * +R1(3,2)*SIX)*QZ+(+R4(13,15)+R4(13,16)*FOUR+R4(13,17)+R2(3,2)
     * +R2(3,3)*FOUR+R2(3,4)+R2(2,38)+R2(2,39)*FOUR+R2(2,40)+R0(2)
     * +R0(3)*FOUR+R0(4))*ZZ+(+R3(8,29)*TWO+R3(8,30)*TWO+R1(3,3)*TWO
     * +R1(3,4)*TWO)*ZZZ+(+R2(2,41)+R0(5))*ZZZZ
      F(4,3,2,1)= R6(18,2)+R4(9,1)+R4(7,14)+R2(4,1)+(+R5(18,5)+R3(9,1)
     * +R3(7,27)+R1(2,1))*QX+(+R5(12,6)*TWO+R3(5,2)*TWO)*QZ+(
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R4(7,17)+R2(4,4))*ZZ+(+R3(7,30)
     * +R1(2,4))*XZZ
      F(5,3,2,1)= R6(19,2)+R4(10,1)+R4(8,14)*THREE+R2(5,1)*THREE+(
     * +R5(19,5)+R3(10,1)+R3(8,27)*THREE+R1(3,1)*THREE)*QX+(+R5(13,5)
     * +R5(13,6)*TWO+R3(6,1)+R3(6,2)*TWO+R3(4,27)+R3(4,28)*TWO+R1(1,1)
     * +R1(1,2)*TWO)*QZ+(+R4(13,15)+R4(13,16)*TWO+R2(3,2)+R2(3,3)*TWO
     * +R2(2,38)+R2(2,39)*TWO+R0(2)+R0(3)*TWO)*XZ+(+R4(8,16)*TWO
     * +R4(8,17)+R2(5,3)*TWO+R2(5,4))*ZZ+(+R3(8,29)*TWO+R3(8,30)
     * +R1(3,3)*TWO+R1(3,4))*XZZ+(+R3(4,30)+R1(1,4))*ZZZ+(+R2(2,41)
     * +R0(5))*XZZZ
      F(6,3,2,1)= R6(25,2)+R4(14,1)+R4(12,14)*THREE+R2(6,1)*THREE+(
     * +R5(18,5)+R5(18,6)*TWO+R3(9,1)+R3(9,2)*TWO+R3(7,27)+R3(7,28)*TWO
     * +R1(2,1)+R1(2,2)*TWO)*QZ+(+R4(12,16)*TWO+R4(12,17)+R2(6,3)*TWO
     * +R2(6,4))*ZZ+(+R3(7,30)+R1(2,4))*ZZZ
      F(1,4,2,1)= R6(7,2)+R4(2,1)+R4(7,14)*THREE+R2(4,1)*THREE+(
     * +R5(7,5)*TWO+R5(7,6)+R3(2,1)*TWO+R3(2,2)+R3(7,27)*TWO+R3(7,28)
     * +R1(2,1)*TWO+R1(2,2))*QX+(+R4(7,15)+R4(7,16)*TWO+R2(4,2)
     * +R2(4,3)*TWO)*XX+(+R3(7,29)+R1(2,3))*XXX
      F(2,4,2,1)= R6(16,2)+R4(7,1)+R4(7,14)*THREE+R2(4,1)*THREE+(
     * +R5(16,6)+R3(7,2)+R3(7,28)*THREE+R1(2,2)*THREE)*QX
      F(3,4,2,1)= R6(18,2)+R4(9,1)+R4(7,14)+R2(4,1)+(+R5(18,6)+R3(9,2)
     * +R3(7,28)+R1(2,2))*QX+(+R5(12,5)*TWO+R3(5,1)*TWO)*QZ+(
     * +R4(12,16)*TWO+R2(6,3)*TWO)*XZ+(+R4(7,15)+R2(4,2))*ZZ+(+R3(7,29)
     * +R1(2,3))*XZZ
      F(4,4,2,1)= R6(11,2)+R4(4,1)+R4(4,14)+R4(11,14)+R2(1,1)+R2(2,1)
     * +R2(2,37)+R0(1)+(+R5(11,5)+R5(11,6)+R3(4,1)+R3(4,2)+R3(4,27)
     * +R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R4(11,16)+R2(2,3)+R2(2,39)+R0(3))
     * *XX
      F(5,4,2,1)= R6(12,2)+R4(5,1)+R4(12,14)+R2(6,1)+(+R5(12,5)+R5(12,6)
     * +R3(5,1)+R3(5,2))*QX+(+R5(7,5)+R3(2,1)+R3(7,27)+R1(2,1))*QZ+(
     * +R4(12,16)+R2(6,3))*XX+(+R4(7,15)+R4(7,16)+R2(4,2)+R2(4,3))*XZ+(
     * +R3(7,29)+R1(2,3))*XXZ
      F(6,4,2,1)= R6(17,2)+R4(8,1)+R4(8,14)+R2(5,1)+(+R5(17,6)+R3(8,2)
     * +R3(8,28)+R1(3,2))*QX+(+R5(11,5)+R3(4,1)+R3(4,27)+R1(1,1))*QZ+(
     * +R4(11,16)+R2(2,3)+R2(2,39)+R0(3))*XZ
      F(1,5,2,1)= R6(8,2)+R4(3,1)+R4(8,14)*THREE+R2(5,1)*THREE+(
     * +R5(8,5)*TWO+R5(8,6)+R3(3,1)*TWO+R3(3,2)+R3(8,27)*TWO+R3(8,28)
     * +R1(3,1)*TWO+R1(3,2))*QX+(+R5(4,6)+R3(1,2)+R3(4,28)*THREE
     * +R1(1,2)*THREE)*QZ+(+R4(8,15)+R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)
     * *XX+(+R4(4,16)*TWO+R4(4,17)+R2(1,3)*TWO+R2(1,4)+R2(2,39)*TWO
     * +R2(2,40)+R0(3)*TWO+R0(4))*XZ+(+R3(8,29)+R1(3,3))*XXX+(+R3(4,29)
     * +R3(4,30)*TWO+R1(1,3)+R1(1,4)*TWO)*XXZ+(+R2(2,41)+R0(5))*XXXZ
      F(2,5,2,1)= R6(17,2)+R4(8,1)+R4(8,14)+R2(5,1)+(+R5(17,6)+R3(8,2)
     * +R3(8,28)+R1(3,2))*QX+(+R5(11,6)+R3(4,2)+R3(4,28)+R1(1,2))*QZ+(
     * +R4(11,17)+R2(2,4)+R2(2,40)+R0(4))*XZ
      F(3,5,2,1)= R6(19,2)+R4(10,1)+R4(8,14)*THREE+R2(5,1)*THREE+(
     * +R5(19,6)+R3(10,2)+R3(8,28)*THREE+R1(3,2)*THREE)*QX+(
     * +R5(13,5)*TWO+R5(13,6)+R3(6,1)*TWO+R3(6,2)+R3(4,27)*TWO+R3(4,28)
     * +R1(1,1)*TWO+R1(1,2))*QZ+(+R4(13,16)*TWO+R4(13,17)+R2(3,3)*TWO
     * +R2(3,4)+R2(2,39)*TWO+R2(2,40)+R0(3)*TWO+R0(4))*XZ+(+R4(8,15)
     * +R4(8,16)*TWO+R2(5,2)+R2(5,3)*TWO)*ZZ+(+R3(8,29)+R3(8,30)*TWO
     * +R1(3,3)+R1(3,4)*TWO)*XZZ+(+R3(4,29)+R1(1,3))*ZZZ+(+R2(2,41)
     * +R0(5))*XZZZ
      F(4,5,2,1)= R6(12,2)+R4(5,1)+R4(12,14)+R2(6,1)+(+R5(12,5)+R5(12,6)
     * +R3(5,1)+R3(5,2))*QX+(+R5(7,6)+R3(2,2)+R3(7,28)+R1(2,2))*QZ+(
     * +R4(12,16)+R2(6,3))*XX+(+R4(7,16)+R4(7,17)+R2(4,3)+R2(4,4))*XZ+(
     * +R3(7,30)+R1(2,4))*XXZ
      F(5,5,2,1)= R6(13,2)+R4(6,1)+R4(4,14)+R4(13,14)+R2(1,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(13,5)+R5(13,6)+R3(6,1)+R3(6,2)+R3(4,27)
     * +R3(4,28)+R1(1,1)+R1(1,2))*QX+(+R5(8,5)+R5(8,6)+R3(3,1)+R3(3,2)
     * +R3(8,27)+R3(8,28)+R1(3,1)+R1(3,2))*QZ+(+R4(13,16)+R2(3,3)
     * +R2(2,39)+R0(3))*XX+(+R4(8,15)+R4(8,16)*TWO+R4(8,17)+R2(5,2)
     * +R2(5,3)*TWO+R2(5,4))*XZ+(+R4(4,16)+R2(1,3)+R2(2,39)+R0(3))*ZZ+(
     * +R3(8,29)+R3(8,30)+R1(3,3)+R1(3,4))*XXZ+(+R3(4,29)+R3(4,30)
     * +R1(1,3)+R1(1,4))*XZZ+(+R2(2,41)+R0(5))*XXZZ
      F(6,5,2,1)= R6(18,2)+R4(9,1)+R4(7,14)+R2(4,1)+(+R5(18,6)+R3(9,2)
     * +R3(7,28)+R1(2,2))*QX+(+R5(12,5)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(12,16)+R4(12,17)+R2(6,3)+R2(6,4))*XZ+(+R4(7,16)+R2(4,3))*ZZ+(
     * +R3(7,30)+R1(2,4))*XZZ
      F(1,6,2,1)= R6(12,2)+R4(5,1)+R4(12,14)+R2(6,1)+(+R5(12,5)*TWO
     * +R3(5,1)*TWO)*QX+(+R5(7,6)+R3(2,2)+R3(7,28)+R1(2,2))*QZ+(
     * +R4(12,15)+R2(6,2))*XX+(+R4(7,16)*TWO+R2(4,3)*TWO)*XZ+(+R3(7,29)
     * +R1(2,3))*XXZ
      F(2,6,2,1)= R6(23,2)+R4(12,1)+R4(12,14)*THREE+R2(6,1)*THREE+(
     * +R5(16,6)+R3(7,2)+R3(7,28)*THREE+R1(2,2)*THREE)*QZ
      F(3,6,2,1)= R6(25,2)+R4(14,1)+R4(12,14)*THREE+R2(6,1)*THREE+(
     * +R5(18,5)*TWO+R5(18,6)+R3(9,1)*TWO+R3(9,2)+R3(7,27)*TWO+R3(7,28)
     * +R1(2,1)*TWO+R1(2,2))*QZ+(+R4(12,15)+R4(12,16)*TWO+R2(6,2)
     * +R2(6,3)*TWO)*ZZ+(+R3(7,29)+R1(2,3))*ZZZ
      F(4,6,2,1)= R6(17,2)+R4(8,1)+R4(8,14)+R2(5,1)+(+R5(17,5)+R3(8,1)
     * +R3(8,27)+R1(3,1))*QX+(+R5(11,6)+R3(4,2)+R3(4,28)+R1(1,2))*QZ+(
     * +R4(11,16)+R2(2,3)+R2(2,39)+R0(3))*XZ
      F(5,6,2,1)= R6(18,2)+R4(9,1)+R4(7,14)+R2(4,1)+(+R5(18,5)+R3(9,1)
     * +R3(7,27)+R1(2,1))*QX+(+R5(12,5)+R5(12,6)+R3(5,1)+R3(5,2))*QZ+(
     * +R4(12,15)+R4(12,16)+R2(6,2)+R2(6,3))*XZ+(+R4(7,16)+R2(4,3))*ZZ+(
     * +R3(7,29)+R1(2,3))*XZZ
      F(6,6,2,1)= R6(24,2)+R4(13,1)+R4(11,14)+R4(13,14)+R2(2,1)+R2(3,1)
     * +R2(2,37)+R0(1)+(+R5(17,5)+R5(17,6)+R3(8,1)+R3(8,2)+R3(8,27)
     * +R3(8,28)+R1(3,1)+R1(3,2))*QZ+(+R4(11,16)+R2(2,3)+R2(2,39)+R0(3))
     * *ZZ
      F(1,1,3,1)= R6(6,2)-R5(3,2)*TWO+R4(1,1)+R4(1,2)+R4(6,14)*SIX
     * -R3(3,11)*TWELV+R2(1,1)*SIX+R2(1,5)*SIX+R2(3,37)*THREE
     * -R1(3,21)*SIX+R0(1)*THREE+R0(6)*THREE+(+R5(6,5)*TWO+R5(6,6)*TWO
     * -R4(3,8)*FOUR-R4(3,9)*FOUR+R3(1,1)*TWO+R3(1,2)*TWO+R3(1,3)*TWO
     * +R3(1,4)*TWO+R3(6,27)*SIX+R3(6,28)*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+(+R4(6,15)+R4(6,16)*FOUR+R4(6,17)-R3(3,12)*TWO-R3(3,13)*EIGHT
     * -R3(3,14)*TWO+R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,6)+R2(1,7)*FOUR
     * +R2(1,8)+R2(3,38)+R2(3,39)*FOUR+R2(3,40)-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+(+R3(6,29)*TWO+R3(6,30)*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+(+R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XXXX
      F(2,1,3,1)= R6(13,2)-R5(8,2)*TWO+R4(4,1)+R4(4,2)+R4(6,14)
     * +R4(13,14)-R3(3,11)*TWO-R3(8,11)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(13,6)*TWO
     * -R4(8,9)*FOUR+R3(4,2)*TWO+R3(4,4)*TWO+R3(6,28)*TWO-R2(5,22)*FOUR
     * +R1(1,2)*TWO+R1(1,6)*TWO)*QX+(+R4(13,17)-R3(8,14)*TWO+R2(2,4)
     * +R2(2,8)+R2(3,40)-R1(3,24)*TWO+R0(4)+R0(9))*XX
      F(3,1,3,1)= R6(15,2)-R5(10,2)*TWO+R4(6,1)+R4(6,2)+R4(6,14)
     * +R4(15,14)-R3(3,11)*TWO-R3(10,11)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(15,6)*TWO
     * -R4(10,9)*FOUR+R3(6,2)*TWO+R3(6,4)*TWO+R3(6,28)*TWO-R2(5,22)*FOUR
     * +R1(1,2)*TWO+R1(1,6)*TWO)*QX+(+R5(10,5)*TWO-R4(6,8)*FOUR
     * +R3(3,1)*TWO+R3(3,3)*TWO+R3(10,27)*TWO-R2(3,21)*FOUR+R1(3,1)*TWO
     * +R1(3,5)*TWO)*QZ+(+R4(15,17)-R3(10,14)*TWO+R2(3,4)+R2(3,8)
     * +R2(3,40)-R1(3,24)*TWO+R0(4)+R0(9))*XX+(+R4(10,16)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R4(6,15)
     * -R3(3,12)*TWO+R2(1,2)+R2(1,6)+R2(3,38)-R1(3,22)*TWO+R0(2)+R0(7))
     * *ZZ+(+R3(10,30)*TWO-R2(3,24)*FOUR+R1(3,4)*TWO+R1(3,8)*TWO)*XXZ+(
     * +R3(6,29)*TWO-R2(5,23)*FOUR+R1(1,3)*TWO+R1(1,7)*TWO)*XZZ+(
     * +R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(4,1,3,1)= R6(9,2)-R5(5,2)*TWO+R4(2,1)+R4(2,2)+R4(9,14)*THREE
     * -R3(5,11)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(9,5)+R5(9,6)*TWO
     * -R4(5,8)*TWO-R4(5,9)*FOUR+R3(2,1)+R3(2,2)*TWO+R3(2,3)+R3(2,4)*TWO
     * +R3(9,27)+R3(9,28)*TWO-R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)
     * +R1(2,2)*TWO+R1(2,5)+R1(2,6)*TWO)*QX+(+R4(9,16)*TWO+R4(9,17)
     * -R3(5,13)*FOUR-R3(5,14)*TWO+R2(4,3)*TWO+R2(4,4)+R2(4,7)*TWO
     * +R2(4,8))*XX+(+R3(9,30)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXX
      F(5,1,3,1)= R6(10,2)-R5(6,2)*TWO+R4(3,1)+R4(3,2)+R4(10,14)*THREE
     * -R3(6,11)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(10,5)+R5(10,6)*TWO
     * -R4(6,8)*TWO-R4(6,9)*FOUR+R3(3,1)+R3(3,2)*TWO+R3(3,3)+R3(3,4)*TWO
     * +R3(10,27)+R3(10,28)*TWO-R2(3,21)*TWO-R2(3,22)*FOUR+R1(3,1)
     * +R1(3,2)*TWO+R1(3,5)+R1(3,6)*TWO)*QX+(+R5(6,5)-R4(3,8)*TWO
     * +R3(1,1)+R3(1,3)+R3(6,27)*THREE-R2(5,21)*SIX+R1(1,1)*THREE
     * +R1(1,5)*THREE)*QZ+(+R4(10,16)*TWO+R4(10,17)-R3(6,13)*FOUR
     * -R3(6,14)*TWO+R2(5,3)*TWO+R2(5,4)+R2(5,7)*TWO+R2(5,8))*XX+(
     * +R4(6,15)+R4(6,16)*TWO-R3(3,12)*TWO-R3(3,13)*FOUR+R2(1,2)
     * +R2(1,3)*TWO+R2(1,6)+R2(1,7)*TWO+R2(3,38)+R2(3,39)*TWO
     * -R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO+R0(7)+R0(8)*TWO)*XZ+(
     * +R3(10,30)-R2(3,24)*TWO+R1(3,4)+R1(3,8))*XXX+(+R3(6,29)*TWO
     * +R3(6,30)-R2(5,23)*FOUR-R2(5,24)*TWO+R1(1,3)*TWO+R1(1,4)
     * +R1(1,7)*TWO+R1(1,8))*XXZ+(+R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))
     * *XXXZ
      F(6,1,3,1)= R6(14,2)-R5(9,2)*TWO+R4(5,1)+R4(5,2)+R4(14,14)
     * -R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R5(14,6)*TWO-R4(9,9)*FOUR
     * +R3(5,2)*TWO+R3(5,4)*TWO)*QX+(+R5(9,5)-R4(5,8)*TWO+R3(2,1)
     * +R3(2,3)+R3(9,27)-R2(6,21)*TWO+R1(2,1)+R1(2,5))*QZ+(+R4(14,17)
     * -R3(9,14)*TWO+R2(6,4)+R2(6,8))*XX+(+R4(9,16)*TWO-R3(5,13)*FOUR
     * +R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R3(9,30)-R2(6,24)*TWO+R1(2,4)
     * +R1(2,8))*XXZ
      F(1,2,3,1)= R6(13,2)-R5(8,2)*TWO+R4(4,1)+R4(4,2)+R4(6,14)
     * +R4(13,14)-R3(3,11)*TWO-R3(8,11)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(13,5)*TWO
     * -R4(8,8)*FOUR+R3(4,1)*TWO+R3(4,3)*TWO+R3(6,27)*TWO-R2(5,21)*FOUR
     * +R1(1,1)*TWO+R1(1,5)*TWO)*QX+(+R4(13,15)-R3(8,12)*TWO+R2(2,2)
     * +R2(2,6)+R2(3,38)-R1(3,22)*TWO+R0(2)+R0(7))*XX
      F(2,2,3,1)= R6(24,2)-R5(17,2)*TWO+R4(11,1)+R4(11,2)+R4(13,14)*SIX
     * -R3(8,11)*TWELV+R2(2,1)*SIX+R2(2,5)*SIX+R2(3,37)*THREE
     * -R1(3,21)*SIX+R0(1)*THREE+R0(6)*THREE
      F(3,2,3,1)= R6(26,2)-R5(19,2)*TWO+R4(13,1)+R4(13,2)+R4(13,14)
     * +R4(15,14)-R3(8,11)*TWO-R3(10,11)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(19,5)*TWO
     * -R4(13,8)*FOUR+R3(8,1)*TWO+R3(8,3)*TWO+R3(10,27)*TWO
     * -R2(3,21)*FOUR+R1(3,1)*TWO+R1(3,5)*TWO)*QZ+(+R4(13,15)
     * -R3(8,12)*TWO+R2(2,2)+R2(2,6)+R2(3,38)-R1(3,22)*TWO+R0(2)+R0(7))
     * *ZZ
      F(4,2,3,1)= R6(18,2)-R5(12,2)*TWO+R4(7,1)+R4(7,2)+R4(9,14)*THREE
     * -R3(5,11)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(18,5)-R4(12,8)*TWO
     * +R3(7,1)+R3(7,3)+R3(9,27)*THREE-R2(6,21)*SIX+R1(2,1)*THREE
     * +R1(2,5)*THREE)*QX
      F(5,2,3,1)= R6(19,2)-R5(13,2)*TWO+R4(8,1)+R4(8,2)+R4(10,14)
     * -R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R5(19,5)-R4(13,8)*TWO+R3(8,1)
     * +R3(8,3)+R3(10,27)-R2(3,21)*TWO+R1(3,1)+R1(3,5))*QX+(+R5(13,5)
     * -R4(8,8)*TWO+R3(4,1)+R3(4,3)+R3(6,27)-R2(5,21)*TWO+R1(1,1)
     * +R1(1,5))*QZ+(+R4(13,15)-R3(8,12)*TWO+R2(2,2)+R2(2,6)+R2(3,38)
     * -R1(3,22)*TWO+R0(2)+R0(7))*XZ
      F(6,2,3,1)= R6(25,2)-R5(18,2)*TWO+R4(12,1)+R4(12,2)
     * +R4(14,14)*THREE-R3(9,11)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(
     * +R5(18,5)-R4(12,8)*TWO+R3(7,1)+R3(7,3)+R3(9,27)*THREE
     * -R2(6,21)*SIX+R1(2,1)*THREE+R1(2,5)*THREE)*QZ
      F(1,3,3,1)= R6(15,2)-R5(10,2)*TWO+R4(6,1)+R4(6,2)+R4(6,14)
     * +R4(15,14)-R3(3,11)*TWO-R3(10,11)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(15,5)*TWO
     * -R4(10,8)*FOUR+R3(6,1)*TWO+R3(6,3)*TWO+R3(6,27)*TWO-R2(5,21)*FOUR
     * +R1(1,1)*TWO+R1(1,5)*TWO)*QX+(+R5(10,6)*TWO-R4(6,9)*FOUR
     * +R3(3,2)*TWO+R3(3,4)*TWO+R3(10,28)*TWO-R2(3,22)*FOUR+R1(3,2)*TWO
     * +R1(3,6)*TWO)*QZ+(+R4(15,15)-R3(10,12)*TWO+R2(3,2)+R2(3,6)
     * +R2(3,38)-R1(3,22)*TWO+R0(2)+R0(7))*XX+(+R4(10,16)*FOUR
     * -R3(6,13)*EIGHT+R2(5,3)*FOUR+R2(5,7)*FOUR)*XZ+(+R4(6,17)
     * -R3(3,14)*TWO+R2(1,4)+R2(1,8)+R2(3,40)-R1(3,24)*TWO+R0(4)+R0(9))
     * *ZZ+(+R3(10,29)*TWO-R2(3,23)*FOUR+R1(3,3)*TWO+R1(3,7)*TWO)*XXZ+(
     * +R3(6,30)*TWO-R2(5,24)*FOUR+R1(1,4)*TWO+R1(1,8)*TWO)*XZZ+(
     * +R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(2,3,3,1)= R6(26,2)-R5(19,2)*TWO+R4(13,1)+R4(13,2)+R4(13,14)
     * +R4(15,14)-R3(8,11)*TWO-R3(10,11)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(19,6)*TWO
     * -R4(13,9)*FOUR+R3(8,2)*TWO+R3(8,4)*TWO+R3(10,28)*TWO
     * -R2(3,22)*FOUR+R1(3,2)*TWO+R1(3,6)*TWO)*QZ+(+R4(13,17)
     * -R3(8,14)*TWO+R2(2,4)+R2(2,8)+R2(3,40)-R1(3,24)*TWO+R0(4)+R0(9))
     * *ZZ
      F(3,3,3,1)= R6(28,2)-R5(21,2)*TWO+R4(15,1)+R4(15,2)+R4(15,14)*SIX
     * -R3(10,11)*TWELV+R2(3,1)*SIX+R2(3,5)*SIX+R2(3,37)*THREE
     * -R1(3,21)*SIX+R0(1)*THREE+R0(6)*THREE+(+R5(21,5)*TWO+R5(21,6)*TWO
     * -R4(15,8)*FOUR-R4(15,9)*FOUR+R3(10,1)*TWO+R3(10,2)*TWO
     * +R3(10,3)*TWO+R3(10,4)*TWO+R3(10,27)*SIX+R3(10,28)*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+(+R4(15,15)+R4(15,16)*FOUR+R4(15,17)
     * -R3(10,12)*TWO-R3(10,13)*EIGHT-R3(10,14)*TWO+R2(3,2)+R2(3,3)*FOUR
     * +R2(3,4)+R2(3,6)+R2(3,7)*FOUR+R2(3,8)+R2(3,38)+R2(3,39)*FOUR
     * +R2(3,40)-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+(+R3(10,29)*TWO
     * +R3(10,30)*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+(+R2(3,41)-R1(3,25)*TWO
     * +R0(5)+R0(10))*ZZZZ
      F(4,3,3,1)= R6(20,2)-R5(14,2)*TWO+R4(9,1)+R4(9,2)+R4(9,14)
     * -R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R5(20,5)-R4(14,8)*TWO+R3(9,1)
     * +R3(9,3)+R3(9,27)-R2(6,21)*TWO+R1(2,1)+R1(2,5))*QX+(+R5(14,6)*TWO
     * -R4(9,9)*FOUR+R3(5,2)*TWO+R3(5,4)*TWO)*QZ+(+R4(14,16)*TWO
     * -R3(9,13)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(+R4(9,17)
     * -R3(5,14)*TWO+R2(4,4)+R2(4,8))*ZZ+(+R3(9,30)-R2(6,24)*TWO+R1(2,4)
     * +R1(2,8))*XZZ
      F(5,3,3,1)= R6(21,2)-R5(15,2)*TWO+R4(10,1)+R4(10,2)
     * +R4(10,14)*THREE-R3(6,11)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(
     * +R5(21,5)-R4(15,8)*TWO+R3(10,1)+R3(10,3)+R3(10,27)*THREE
     * -R2(3,21)*SIX+R1(3,1)*THREE+R1(3,5)*THREE)*QX+(+R5(15,5)
     * +R5(15,6)*TWO-R4(10,8)*TWO-R4(10,9)*FOUR+R3(6,1)+R3(6,2)*TWO
     * +R3(6,3)+R3(6,4)*TWO+R3(6,27)+R3(6,28)*TWO-R2(5,21)*TWO
     * -R2(5,22)*FOUR+R1(1,1)+R1(1,2)*TWO+R1(1,5)+R1(1,6)*TWO)*QZ+(
     * +R4(15,15)+R4(15,16)*TWO-R3(10,12)*TWO-R3(10,13)*FOUR+R2(3,2)
     * +R2(3,3)*TWO+R2(3,6)+R2(3,7)*TWO+R2(3,38)+R2(3,39)*TWO
     * -R1(3,22)*TWO-R1(3,23)*FOUR+R0(2)+R0(3)*TWO+R0(7)+R0(8)*TWO)*XZ+(
     * +R4(10,16)*TWO+R4(10,17)-R3(6,13)*FOUR-R3(6,14)*TWO+R2(5,3)*TWO
     * +R2(5,4)+R2(5,7)*TWO+R2(5,8))*ZZ+(+R3(10,29)*TWO+R3(10,30)
     * -R2(3,23)*FOUR-R2(3,24)*TWO+R1(3,3)*TWO+R1(3,4)+R1(3,7)*TWO
     * +R1(3,8))*XZZ+(+R3(6,30)-R2(5,24)*TWO+R1(1,4)+R1(1,8))*ZZZ+(
     * +R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(6,3,3,1)= R6(27,2)-R5(20,2)*TWO+R4(14,1)+R4(14,2)
     * +R4(14,14)*THREE-R3(9,11)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(
     * +R5(20,5)+R5(20,6)*TWO-R4(14,8)*TWO-R4(14,9)*FOUR+R3(9,1)
     * +R3(9,2)*TWO+R3(9,3)+R3(9,4)*TWO+R3(9,27)+R3(9,28)*TWO
     * -R2(6,21)*TWO-R2(6,22)*FOUR+R1(2,1)+R1(2,2)*TWO+R1(2,5)
     * +R1(2,6)*TWO)*QZ+(+R4(14,16)*TWO+R4(14,17)-R3(9,13)*FOUR
     * -R3(9,14)*TWO+R2(6,3)*TWO+R2(6,4)+R2(6,7)*TWO+R2(6,8))*ZZ+(
     * +R3(9,30)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*ZZZ
      F(1,4,3,1)= R6(9,2)-R5(5,2)*TWO+R4(2,1)+R4(2,2)+R4(9,14)*THREE
     * -R3(5,11)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(9,5)*TWO+R5(9,6)
     * -R4(5,8)*FOUR-R4(5,9)*TWO+R3(2,1)*TWO+R3(2,2)+R3(2,3)*TWO+R3(2,4)
     * +R3(9,27)*TWO+R3(9,28)-R2(6,21)*FOUR-R2(6,22)*TWO+R1(2,1)*TWO
     * +R1(2,2)+R1(2,5)*TWO+R1(2,6))*QX+(+R4(9,15)+R4(9,16)*TWO
     * -R3(5,12)*TWO-R3(5,13)*FOUR+R2(4,2)+R2(4,3)*TWO+R2(4,6)
     * +R2(4,7)*TWO)*XX+(+R3(9,29)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XXX
      F(2,4,3,1)= R6(18,2)-R5(12,2)*TWO+R4(7,1)+R4(7,2)+R4(9,14)*THREE
     * -R3(5,11)*SIX+R2(4,1)*THREE+R2(4,5)*THREE+(+R5(18,6)-R4(12,9)*TWO
     * +R3(7,2)+R3(7,4)+R3(9,28)*THREE-R2(6,22)*SIX+R1(2,2)*THREE
     * +R1(2,6)*THREE)*QX
      F(3,4,3,1)= R6(20,2)-R5(14,2)*TWO+R4(9,1)+R4(9,2)+R4(9,14)
     * -R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R5(20,6)-R4(14,9)*TWO+R3(9,2)
     * +R3(9,4)+R3(9,28)-R2(6,22)*TWO+R1(2,2)+R1(2,6))*QX+(+R5(14,5)*TWO
     * -R4(9,8)*FOUR+R3(5,1)*TWO+R3(5,3)*TWO)*QZ+(+R4(14,16)*TWO
     * -R3(9,13)*FOUR+R2(6,3)*TWO+R2(6,7)*TWO)*XZ+(+R4(9,15)
     * -R3(5,12)*TWO+R2(4,2)+R2(4,6))*ZZ+(+R3(9,29)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XZZ
      F(4,4,3,1)= R6(13,2)-R5(8,2)*TWO+R4(4,1)+R4(4,2)+R4(6,14)
     * +R4(13,14)-R3(3,11)*TWO-R3(8,11)*TWO+R2(1,1)+R2(2,1)+R2(1,5)
     * +R2(2,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(13,5)+R5(13,6)
     * -R4(8,8)*TWO-R4(8,9)*TWO+R3(4,1)+R3(4,2)+R3(4,3)+R3(4,4)+R3(6,27)
     * +R3(6,28)-R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)+R1(1,5)
     * +R1(1,6))*QX+(+R4(13,16)-R3(8,13)*TWO+R2(2,3)+R2(2,7)+R2(3,39)
     * -R1(3,23)*TWO+R0(3)+R0(8))*XX
      F(5,4,3,1)= R6(14,2)-R5(9,2)*TWO+R4(5,1)+R4(5,2)+R4(14,14)
     * -R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R5(14,5)+R5(14,6)-R4(9,8)*TWO
     * -R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R5(9,5)
     * -R4(5,8)*TWO+R3(2,1)+R3(2,3)+R3(9,27)-R2(6,21)*TWO+R1(2,1)
     * +R1(2,5))*QZ+(+R4(14,16)-R3(9,13)*TWO+R2(6,3)+R2(6,7))*XX+(
     * +R4(9,15)+R4(9,16)-R3(5,12)*TWO-R3(5,13)*TWO+R2(4,2)+R2(4,3)
     * +R2(4,6)+R2(4,7))*XZ+(+R3(9,29)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XXZ
      F(6,4,3,1)= R6(19,2)-R5(13,2)*TWO+R4(8,1)+R4(8,2)+R4(10,14)
     * -R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R5(19,6)-R4(13,9)*TWO+R3(8,2)
     * +R3(8,4)+R3(10,28)-R2(3,22)*TWO+R1(3,2)+R1(3,6))*QX+(+R5(13,5)
     * -R4(8,8)*TWO+R3(4,1)+R3(4,3)+R3(6,27)-R2(5,21)*TWO+R1(1,1)
     * +R1(1,5))*QZ+(+R4(13,16)-R3(8,13)*TWO+R2(2,3)+R2(2,7)+R2(3,39)
     * -R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(1,5,3,1)= R6(10,2)-R5(6,2)*TWO+R4(3,1)+R4(3,2)+R4(10,14)*THREE
     * -R3(6,11)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(+R5(10,5)*TWO+R5(10,6)
     * -R4(6,8)*FOUR-R4(6,9)*TWO+R3(3,1)*TWO+R3(3,2)+R3(3,3)*TWO+R3(3,4)
     * +R3(10,27)*TWO+R3(10,28)-R2(3,21)*FOUR-R2(3,22)*TWO+R1(3,1)*TWO
     * +R1(3,2)+R1(3,5)*TWO+R1(3,6))*QX+(+R5(6,6)-R4(3,9)*TWO+R3(1,2)
     * +R3(1,4)+R3(6,28)*THREE-R2(5,22)*SIX+R1(1,2)*THREE+R1(1,6)*THREE)
     * *QZ+(+R4(10,15)+R4(10,16)*TWO-R3(6,12)*TWO-R3(6,13)*FOUR+R2(5,2)
     * +R2(5,3)*TWO+R2(5,6)+R2(5,7)*TWO)*XX+(+R4(6,16)*TWO+R4(6,17)
     * -R3(3,13)*FOUR-R3(3,14)*TWO+R2(1,3)*TWO+R2(1,4)+R2(1,7)*TWO
     * +R2(1,8)+R2(3,39)*TWO+R2(3,40)-R1(3,23)*FOUR-R1(3,24)*TWO
     * +R0(3)*TWO+R0(4)+R0(8)*TWO+R0(9))*XZ+(+R3(10,29)-R2(3,23)*TWO
     * +R1(3,3)+R1(3,7))*XXX+(+R3(6,29)+R3(6,30)*TWO-R2(5,23)*TWO
     * -R2(5,24)*FOUR+R1(1,3)+R1(1,4)*TWO+R1(1,7)+R1(1,8)*TWO)*XXZ+(
     * +R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XXXZ
      F(2,5,3,1)= R6(19,2)-R5(13,2)*TWO+R4(8,1)+R4(8,2)+R4(10,14)
     * -R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R5(19,6)-R4(13,9)*TWO+R3(8,2)
     * +R3(8,4)+R3(10,28)-R2(3,22)*TWO+R1(3,2)+R1(3,6))*QX+(+R5(13,6)
     * -R4(8,9)*TWO+R3(4,2)+R3(4,4)+R3(6,28)-R2(5,22)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R4(13,17)-R3(8,14)*TWO+R2(2,4)+R2(2,8)+R2(3,40)
     * -R1(3,24)*TWO+R0(4)+R0(9))*XZ
      F(3,5,3,1)= R6(21,2)-R5(15,2)*TWO+R4(10,1)+R4(10,2)
     * +R4(10,14)*THREE-R3(6,11)*SIX+R2(5,1)*THREE+R2(5,5)*THREE+(
     * +R5(21,6)-R4(15,9)*TWO+R3(10,2)+R3(10,4)+R3(10,28)*THREE
     * -R2(3,22)*SIX+R1(3,2)*THREE+R1(3,6)*THREE)*QX+(+R5(15,5)*TWO
     * +R5(15,6)-R4(10,8)*FOUR-R4(10,9)*TWO+R3(6,1)*TWO+R3(6,2)
     * +R3(6,3)*TWO+R3(6,4)+R3(6,27)*TWO+R3(6,28)-R2(5,21)*FOUR
     * -R2(5,22)*TWO+R1(1,1)*TWO+R1(1,2)+R1(1,5)*TWO+R1(1,6))*QZ+(
     * +R4(15,16)*TWO+R4(15,17)-R3(10,13)*FOUR-R3(10,14)*TWO+R2(3,3)*TWO
     * +R2(3,4)+R2(3,7)*TWO+R2(3,8)+R2(3,39)*TWO+R2(3,40)-R1(3,23)*FOUR
     * -R1(3,24)*TWO+R0(3)*TWO+R0(4)+R0(8)*TWO+R0(9))*XZ+(+R4(10,15)
     * +R4(10,16)*TWO-R3(6,12)*TWO-R3(6,13)*FOUR+R2(5,2)+R2(5,3)*TWO
     * +R2(5,6)+R2(5,7)*TWO)*ZZ+(+R3(10,29)+R3(10,30)*TWO-R2(3,23)*TWO
     * -R2(3,24)*FOUR+R1(3,3)+R1(3,4)*TWO+R1(3,7)+R1(3,8)*TWO)*XZZ+(
     * +R3(6,29)-R2(5,23)*TWO+R1(1,3)+R1(1,7))*ZZZ+(+R2(3,41)
     * -R1(3,25)*TWO+R0(5)+R0(10))*XZZZ
      F(4,5,3,1)= R6(14,2)-R5(9,2)*TWO+R4(5,1)+R4(5,2)+R4(14,14)
     * -R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R5(14,5)+R5(14,6)-R4(9,8)*TWO
     * -R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4))*QX+(+R5(9,6)
     * -R4(5,9)*TWO+R3(2,2)+R3(2,4)+R3(9,28)-R2(6,22)*TWO+R1(2,2)
     * +R1(2,6))*QZ+(+R4(14,16)-R3(9,13)*TWO+R2(6,3)+R2(6,7))*XX+(
     * +R4(9,16)+R4(9,17)-R3(5,13)*TWO-R3(5,14)*TWO+R2(4,3)+R2(4,4)
     * +R2(4,7)+R2(4,8))*XZ+(+R3(9,30)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XXZ
      F(5,5,3,1)= R6(15,2)-R5(10,2)*TWO+R4(6,1)+R4(6,2)+R4(6,14)
     * +R4(15,14)-R3(3,11)*TWO-R3(10,11)*TWO+R2(1,1)+R2(3,1)+R2(1,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(15,5)+R5(15,6)
     * -R4(10,8)*TWO-R4(10,9)*TWO+R3(6,1)+R3(6,2)+R3(6,3)+R3(6,4)
     * +R3(6,27)+R3(6,28)-R2(5,21)*TWO-R2(5,22)*TWO+R1(1,1)+R1(1,2)
     * +R1(1,5)+R1(1,6))*QX+(+R5(10,5)+R5(10,6)-R4(6,8)*TWO-R4(6,9)*TWO
     * +R3(3,1)+R3(3,2)+R3(3,3)+R3(3,4)+R3(10,27)+R3(10,28)-R2(3,21)*TWO
     * -R2(3,22)*TWO+R1(3,1)+R1(3,2)+R1(3,5)+R1(3,6))*QZ+(+R4(15,16)
     * -R3(10,13)*TWO+R2(3,3)+R2(3,7)+R2(3,39)-R1(3,23)*TWO+R0(3)+R0(8))
     * *XX+(+R4(10,15)+R4(10,16)*TWO+R4(10,17)-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+(+R4(6,16)-R3(3,13)*TWO+R2(1,3)+R2(1,7)
     * +R2(3,39)-R1(3,23)*TWO+R0(3)+R0(8))*ZZ+(+R3(10,29)+R3(10,30)
     * -R2(3,23)*TWO-R2(3,24)*TWO+R1(3,3)+R1(3,4)+R1(3,7)+R1(3,8))*XXZ+(
     * +R3(6,29)+R3(6,30)-R2(5,23)*TWO-R2(5,24)*TWO+R1(1,3)+R1(1,4)
     * +R1(1,7)+R1(1,8))*XZZ+(+R2(3,41)-R1(3,25)*TWO+R0(5)+R0(10))*XXZZ
      F(6,5,3,1)= R6(20,2)-R5(14,2)*TWO+R4(9,1)+R4(9,2)+R4(9,14)
     * -R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R5(20,6)-R4(14,9)*TWO+R3(9,2)
     * +R3(9,4)+R3(9,28)-R2(6,22)*TWO+R1(2,2)+R1(2,6))*QX+(+R5(14,5)
     * +R5(14,6)-R4(9,8)*TWO-R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4)
     * )*QZ+(+R4(14,16)+R4(14,17)-R3(9,13)*TWO-R3(9,14)*TWO+R2(6,3)
     * +R2(6,4)+R2(6,7)+R2(6,8))*XZ+(+R4(9,16)-R3(5,13)*TWO+R2(4,3)
     * +R2(4,7))*ZZ+(+R3(9,30)-R2(6,24)*TWO+R1(2,4)+R1(2,8))*XZZ
      F(1,6,3,1)= R6(14,2)-R5(9,2)*TWO+R4(5,1)+R4(5,2)+R4(14,14)
     * -R3(9,11)*TWO+R2(6,1)+R2(6,5)+(+R5(14,5)*TWO-R4(9,8)*FOUR
     * +R3(5,1)*TWO+R3(5,3)*TWO)*QX+(+R5(9,6)-R4(5,9)*TWO+R3(2,2)
     * +R3(2,4)+R3(9,28)-R2(6,22)*TWO+R1(2,2)+R1(2,6))*QZ+(+R4(14,15)
     * -R3(9,12)*TWO+R2(6,2)+R2(6,6))*XX+(+R4(9,16)*TWO-R3(5,13)*FOUR
     * +R2(4,3)*TWO+R2(4,7)*TWO)*XZ+(+R3(9,29)-R2(6,23)*TWO+R1(2,3)
     * +R1(2,7))*XXZ
      F(2,6,3,1)= R6(25,2)-R5(18,2)*TWO+R4(12,1)+R4(12,2)
     * +R4(14,14)*THREE-R3(9,11)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(
     * +R5(18,6)-R4(12,9)*TWO+R3(7,2)+R3(7,4)+R3(9,28)*THREE
     * -R2(6,22)*SIX+R1(2,2)*THREE+R1(2,6)*THREE)*QZ
      F(3,6,3,1)= R6(27,2)-R5(20,2)*TWO+R4(14,1)+R4(14,2)
     * +R4(14,14)*THREE-R3(9,11)*SIX+R2(6,1)*THREE+R2(6,5)*THREE+(
     * +R5(20,5)*TWO+R5(20,6)-R4(14,8)*FOUR-R4(14,9)*TWO+R3(9,1)*TWO
     * +R3(9,2)+R3(9,3)*TWO+R3(9,4)+R3(9,27)*TWO+R3(9,28)-R2(6,21)*FOUR
     * -R2(6,22)*TWO+R1(2,1)*TWO+R1(2,2)+R1(2,5)*TWO+R1(2,6))*QZ+(
     * +R4(14,15)+R4(14,16)*TWO-R3(9,12)*TWO-R3(9,13)*FOUR+R2(6,2)
     * +R2(6,3)*TWO+R2(6,6)+R2(6,7)*TWO)*ZZ+(+R3(9,29)-R2(6,23)*TWO
     * +R1(2,3)+R1(2,7))*ZZZ
      F(4,6,3,1)= R6(19,2)-R5(13,2)*TWO+R4(8,1)+R4(8,2)+R4(10,14)
     * -R3(6,11)*TWO+R2(5,1)+R2(5,5)+(+R5(19,5)-R4(13,8)*TWO+R3(8,1)
     * +R3(8,3)+R3(10,27)-R2(3,21)*TWO+R1(3,1)+R1(3,5))*QX+(+R5(13,6)
     * -R4(8,9)*TWO+R3(4,2)+R3(4,4)+R3(6,28)-R2(5,22)*TWO+R1(1,2)
     * +R1(1,6))*QZ+(+R4(13,16)-R3(8,13)*TWO+R2(2,3)+R2(2,7)+R2(3,39)
     * -R1(3,23)*TWO+R0(3)+R0(8))*XZ
      F(5,6,3,1)= R6(20,2)-R5(14,2)*TWO+R4(9,1)+R4(9,2)+R4(9,14)
     * -R3(5,11)*TWO+R2(4,1)+R2(4,5)+(+R5(20,5)-R4(14,8)*TWO+R3(9,1)
     * +R3(9,3)+R3(9,27)-R2(6,21)*TWO+R1(2,1)+R1(2,5))*QX+(+R5(14,5)
     * +R5(14,6)-R4(9,8)*TWO-R4(9,9)*TWO+R3(5,1)+R3(5,2)+R3(5,3)+R3(5,4)
     * )*QZ+(+R4(14,15)+R4(14,16)-R3(9,12)*TWO-R3(9,13)*TWO+R2(6,2)
     * +R2(6,3)+R2(6,6)+R2(6,7))*XZ+(+R4(9,16)-R3(5,13)*TWO+R2(4,3)
     * +R2(4,7))*ZZ+(+R3(9,29)-R2(6,23)*TWO+R1(2,3)+R1(2,7))*XZZ
      F(6,6,3,1)= R6(26,2)-R5(19,2)*TWO+R4(13,1)+R4(13,2)+R4(13,14)
     * +R4(15,14)-R3(8,11)*TWO-R3(10,11)*TWO+R2(2,1)+R2(3,1)+R2(2,5)
     * +R2(3,5)+R2(3,37)-R1(3,21)*TWO+R0(1)+R0(6)+(+R5(19,5)+R5(19,6)
     * -R4(13,8)*TWO-R4(13,9)*TWO+R3(8,1)+R3(8,2)+R3(8,3)+R3(8,4)
     * +R3(10,27)+R3(10,28)-R2(3,21)*TWO-R2(3,22)*TWO+R1(3,1)+R1(3,2)
     * +R1(3,5)+R1(3,6))*QZ+(+R4(13,16)-R3(8,13)*TWO+R2(2,3)+R2(2,7)
     * +R2(3,39)-R1(3,23)*TWO+R0(3)+R0(8))*ZZ
      F(1,1,4,1)= R6(2,2)+R4(2,14)*SIX+R2(4,37)*THREE+(+R5(2,5)*TWO
     * +R5(2,6)*TWO+R3(2,27)*SIX+R3(2,28)*SIX)*QX+(+R4(2,15)
     * +R4(2,16)*FOUR+R4(2,17)+R2(4,38)+R2(4,39)*FOUR+R2(4,40))*XX+(
     * +R3(2,29)*TWO+R3(2,30)*TWO)*XXX+R2(4,41)*XXXX
      F(2,1,4,1)= R6(7,2)+R4(2,14)+R4(7,14)+R2(4,37)+(+R5(7,6)*TWO
     * +R3(2,28)*TWO)*QX+(+R4(7,17)+R2(4,40))*XX
      F(3,1,4,1)= R6(9,2)+R4(2,14)+R4(9,14)+R2(4,37)+(+R5(9,6)*TWO
     * +R3(2,28)*TWO)*QX+(+R5(5,5)*TWO+R3(5,27)*TWO)*QZ+(+R4(9,17)
     * +R2(4,40))*XX+R4(5,16)*FOUR*XZ+(+R4(2,15)+R2(4,38))*ZZ
     * +R3(5,30)*TWO*XXZ+R3(2,29)*TWO*XZZ+R2(4,41)*XXZZ
      F(4,1,4,1)= R6(4,2)+R4(4,14)*THREE+(+R5(4,5)+R5(4,6)*TWO+R3(4,27)
     * +R3(4,28)*TWO)*QX+(+R4(4,16)*TWO+R4(4,17))*XX+R3(4,30)*XXX
      F(5,1,4,1)= R6(5,2)+R4(5,14)*THREE+(+R5(5,5)+R5(5,6)*TWO+R3(5,27)
     * +R3(5,28)*TWO)*QX+(+R5(2,5)+R3(2,27)*THREE)*QZ+(+R4(5,16)*TWO
     * +R4(5,17))*XX+(+R4(2,15)+R4(2,16)*TWO+R2(4,38)+R2(4,39)*TWO)*XZ
     * +R3(5,30)*XXX+(+R3(2,29)*TWO+R3(2,30))*XXZ+R2(4,41)*XXXZ
      F(6,1,4,1)= R6(8,2)+R4(8,14)+R5(8,6)*TWO*QX+(+R5(4,5)+R3(4,27))*QZ
     * +R4(8,17)*XX+R4(4,16)*TWO*XZ+R3(4,30)*XXZ
      F(1,2,4,1)= R6(7,2)+R4(2,14)+R4(7,14)+R2(4,37)+(+R5(7,5)*TWO
     * +R3(2,27)*TWO)*QX+(+R4(7,15)+R2(4,38))*XX
      F(2,2,4,1)= R6(16,2)+R4(7,14)*SIX+R2(4,37)*THREE
      F(3,2,4,1)= R6(18,2)+R4(7,14)+R4(9,14)+R2(4,37)+(+R5(12,5)*TWO
     * +R3(5,27)*TWO)*QZ+(+R4(7,15)+R2(4,38))*ZZ
      F(4,2,4,1)= R6(11,2)+R4(4,14)*THREE+(+R5(11,5)+R3(4,27)*THREE)*QX
      F(5,2,4,1)= R6(12,2)+R4(5,14)+(+R5(12,5)+R3(5,27))*QX+(+R5(7,5)
     * +R3(2,27))*QZ+(+R4(7,15)+R2(4,38))*XZ
      F(6,2,4,1)= R6(17,2)+R4(8,14)*THREE+(+R5(11,5)+R3(4,27)*THREE)*QZ
      F(1,3,4,1)= R6(9,2)+R4(2,14)+R4(9,14)+R2(4,37)+(+R5(9,5)*TWO
     * +R3(2,27)*TWO)*QX+(+R5(5,6)*TWO+R3(5,28)*TWO)*QZ+(+R4(9,15)
     * +R2(4,38))*XX+R4(5,16)*FOUR*XZ+(+R4(2,17)+R2(4,40))*ZZ
     * +R3(5,29)*TWO*XXZ+R3(2,30)*TWO*XZZ+R2(4,41)*XXZZ
      F(2,3,4,1)= R6(18,2)+R4(7,14)+R4(9,14)+R2(4,37)+(+R5(12,6)*TWO
     * +R3(5,28)*TWO)*QZ+(+R4(7,17)+R2(4,40))*ZZ
      F(3,3,4,1)= R6(20,2)+R4(9,14)*SIX+R2(4,37)*THREE+(+R5(14,5)*TWO
     * +R5(14,6)*TWO+R3(5,27)*SIX+R3(5,28)*SIX)*QZ+(+R4(9,15)
     * +R4(9,16)*FOUR+R4(9,17)+R2(4,38)+R2(4,39)*FOUR+R2(4,40))*ZZ+(
     * +R3(5,29)*TWO+R3(5,30)*TWO)*ZZZ+R2(4,41)*ZZZZ
      F(4,3,4,1)= R6(13,2)+R4(4,14)+(+R5(13,5)+R3(4,27))*QX+R5(8,6)*TWO
     * *QZ+R4(8,16)*TWO*XZ+R4(4,17)*ZZ+R3(4,30)*XZZ
      F(5,3,4,1)= R6(14,2)+R4(5,14)*THREE+(+R5(14,5)+R3(5,27)*THREE)*QX
     * +(+R5(9,5)+R5(9,6)*TWO+R3(2,27)+R3(2,28)*TWO)*QZ+(+R4(9,15)
     * +R4(9,16)*TWO+R2(4,38)+R2(4,39)*TWO)*XZ+(+R4(5,16)*TWO+R4(5,17))
     * *ZZ+(+R3(5,29)*TWO+R3(5,30))*XZZ+R3(2,30)*ZZZ+R2(4,41)*XZZZ
      F(6,3,4,1)= R6(19,2)+R4(8,14)*THREE+(+R5(13,5)+R5(13,6)*TWO
     * +R3(4,27)+R3(4,28)*TWO)*QZ+(+R4(8,16)*TWO+R4(8,17))*ZZ+R3(4,30)
     * *ZZZ
      F(1,4,4,1)= R6(4,2)+R4(4,14)*THREE+(+R5(4,5)*TWO+R5(4,6)
     * +R3(4,27)*TWO+R3(4,28))*QX+(+R4(4,15)+R4(4,16)*TWO)*XX+R3(4,29)
     * *XXX
      F(2,4,4,1)= R6(11,2)+R4(4,14)*THREE+(+R5(11,6)+R3(4,28)*THREE)*QX
      F(3,4,4,1)= R6(13,2)+R4(4,14)+(+R5(13,6)+R3(4,28))*QX+R5(8,5)*TWO
     * *QZ+R4(8,16)*TWO*XZ+R4(4,15)*ZZ+R3(4,29)*XZZ
      F(4,4,4,1)= R6(7,2)+R4(2,14)+R4(7,14)+R2(4,37)+(+R5(7,5)+R5(7,6)
     * +R3(2,27)+R3(2,28))*QX+(+R4(7,16)+R2(4,39))*XX
      F(5,4,4,1)= R6(8,2)+R4(8,14)+(+R5(8,5)+R5(8,6))*QX+(+R5(4,5)
     * +R3(4,27))*QZ+R4(8,16)*XX+(+R4(4,15)+R4(4,16))*XZ+R3(4,29)*XXZ
      F(6,4,4,1)= R6(12,2)+R4(5,14)+(+R5(12,6)+R3(5,28))*QX+(+R5(7,5)
     * +R3(2,27))*QZ+(+R4(7,16)+R2(4,39))*XZ
      F(1,5,4,1)= R6(5,2)+R4(5,14)*THREE+(+R5(5,5)*TWO+R5(5,6)
     * +R3(5,27)*TWO+R3(5,28))*QX+(+R5(2,6)+R3(2,28)*THREE)*QZ+(
     * +R4(5,15)+R4(5,16)*TWO)*XX+(+R4(2,16)*TWO+R4(2,17)+R2(4,39)*TWO
     * +R2(4,40))*XZ+R3(5,29)*XXX+(+R3(2,29)+R3(2,30)*TWO)*XXZ+R2(4,41)
     * *XXXZ
      F(2,5,4,1)= R6(12,2)+R4(5,14)+(+R5(12,6)+R3(5,28))*QX+(+R5(7,6)
     * +R3(2,28))*QZ+(+R4(7,17)+R2(4,40))*XZ
      F(3,5,4,1)= R6(14,2)+R4(5,14)*THREE+(+R5(14,6)+R3(5,28)*THREE)*QX
     * +(+R5(9,5)*TWO+R5(9,6)+R3(2,27)*TWO+R3(2,28))*QZ+(+R4(9,16)*TWO
     * +R4(9,17)+R2(4,39)*TWO+R2(4,40))*XZ+(+R4(5,15)+R4(5,16)*TWO)*ZZ+(
     * +R3(5,29)+R3(5,30)*TWO)*XZZ+R3(2,29)*ZZZ+R2(4,41)*XZZZ
      F(4,5,4,1)= R6(8,2)+R4(8,14)+(+R5(8,5)+R5(8,6))*QX+(+R5(4,6)
     * +R3(4,28))*QZ+R4(8,16)*XX+(+R4(4,16)+R4(4,17))*XZ+R3(4,30)*XXZ
      F(5,5,4,1)= R6(9,2)+R4(2,14)+R4(9,14)+R2(4,37)+(+R5(9,5)+R5(9,6)
     * +R3(2,27)+R3(2,28))*QX+(+R5(5,5)+R5(5,6)+R3(5,27)+R3(5,28))*QZ+(
     * +R4(9,16)+R2(4,39))*XX+(+R4(5,15)+R4(5,16)*TWO+R4(5,17))*XZ+(
     * +R4(2,16)+R2(4,39))*ZZ+(+R3(5,29)+R3(5,30))*XXZ+(+R3(2,29)
     * +R3(2,30))*XZZ+R2(4,41)*XXZZ
      F(6,5,4,1)= R6(13,2)+R4(4,14)+(+R5(13,6)+R3(4,28))*QX+(+R5(8,5)
     * +R5(8,6))*QZ+(+R4(8,16)+R4(8,17))*XZ+R4(4,16)*ZZ+R3(4,30)*XZZ
      F(1,6,4,1)= R6(8,2)+R4(8,14)+R5(8,5)*TWO*QX+(+R5(4,6)+R3(4,28))*QZ
     * +R4(8,15)*XX+R4(4,16)*TWO*XZ+R3(4,29)*XXZ
      F(2,6,4,1)= R6(17,2)+R4(8,14)*THREE+(+R5(11,6)+R3(4,28)*THREE)*QZ
      F(3,6,4,1)= R6(19,2)+R4(8,14)*THREE+(+R5(13,5)*TWO+R5(13,6)
     * +R3(4,27)*TWO+R3(4,28))*QZ+(+R4(8,15)+R4(8,16)*TWO)*ZZ+R3(4,29)
     * *ZZZ
      F(4,6,4,1)= R6(12,2)+R4(5,14)+(+R5(12,5)+R3(5,27))*QX+(+R5(7,6)
     * +R3(2,28))*QZ+(+R4(7,16)+R2(4,39))*XZ
      F(5,6,4,1)= R6(13,2)+R4(4,14)+(+R5(13,5)+R3(4,27))*QX+(+R5(8,5)
     * +R5(8,6))*QZ+(+R4(8,15)+R4(8,16))*XZ+R4(4,16)*ZZ+R3(4,29)*XZZ
      F(6,6,4,1)= R6(18,2)+R4(7,14)+R4(9,14)+R2(4,37)+(+R5(12,5)
     * +R5(12,6)+R3(5,27)+R3(5,28))*QZ+(+R4(7,16)+R2(4,39))*ZZ
      F(1,1,5,1)= R6(3,2)-R5(1,2)+R4(3,14)*SIX-R3(1,11)*SIX
     * +R2(5,37)*THREE-R1(1,21)*THREE+(+R5(3,5)*TWO+R5(3,6)*TWO
     * -R4(1,8)*TWO-R4(1,9)*TWO+R3(3,27)*SIX+R3(3,28)*SIX-R2(1,21)*SIX
     * -R2(1,22)*SIX)*QX+(+R4(3,15)+R4(3,16)*FOUR+R4(3,17)-R3(1,12)
     * -R3(1,13)*FOUR-R3(1,14)+R2(5,38)+R2(5,39)*FOUR+R2(5,40)-R1(1,22)
     * -R1(1,23)*FOUR-R1(1,24))*XX+(+R3(3,29)*TWO+R3(3,30)*TWO
     * -R2(1,23)*TWO-R2(1,24)*TWO)*XXX+(+R2(5,41)-R1(1,25))*XXXX
      F(2,1,5,1)= R6(8,2)-R5(4,2)+R4(3,14)+R4(8,14)-R3(1,11)-R3(4,11)
     * +R2(5,37)-R1(1,21)+(+R5(8,6)*TWO-R4(4,9)*TWO+R3(3,28)*TWO
     * -R2(1,22)*TWO)*QX+(+R4(8,17)-R3(4,14)+R2(5,40)-R1(1,24))*XX
      F(3,1,5,1)= R6(10,2)-R5(6,2)+R4(3,14)+R4(10,14)-R3(1,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(10,6)*TWO-R4(6,9)*TWO+R3(3,28)*TWO
     * -R2(1,22)*TWO)*QX+(+R5(6,5)*TWO-R4(3,8)*TWO+R3(6,27)*TWO
     * -R2(5,21)*TWO)*QZ+(+R4(10,17)-R3(6,14)+R2(5,40)-R1(1,24))*XX+(
     * +R4(6,16)*FOUR-R3(3,13)*FOUR)*XZ+(+R4(3,15)-R3(1,12)+R2(5,38)
     * -R1(1,22))*ZZ+(+R3(6,30)*TWO-R2(5,24)*TWO)*XXZ+(+R3(3,29)*TWO
     * -R2(1,23)*TWO)*XZZ+(+R2(5,41)-R1(1,25))*XXZZ
      F(4,1,5,1)= R6(5,2)-R5(2,2)+R4(5,14)*THREE-R3(2,11)*THREE+(
     * +R5(5,5)+R5(5,6)*TWO-R4(2,8)-R4(2,9)*TWO+R3(5,27)+R3(5,28)*TWO
     * -R2(4,21)-R2(4,22)*TWO)*QX+(+R4(5,16)*TWO+R4(5,17)-R3(2,13)*TWO
     * -R3(2,14))*XX+(+R3(5,30)-R2(4,24))*XXX
      F(5,1,5,1)= R6(6,2)-R5(3,2)+R4(6,14)*THREE-R3(3,11)*THREE+(
     * +R5(6,5)+R5(6,6)*TWO-R4(3,8)-R4(3,9)*TWO+R3(6,27)+R3(6,28)*TWO
     * -R2(5,21)-R2(5,22)*TWO)*QX+(+R5(3,5)-R4(1,8)+R3(3,27)*THREE
     * -R2(1,21)*THREE)*QZ+(+R4(6,16)*TWO+R4(6,17)-R3(3,13)*TWO-R3(3,14)
     * )*XX+(+R4(3,15)+R4(3,16)*TWO-R3(1,12)-R3(1,13)*TWO+R2(5,38)
     * +R2(5,39)*TWO-R1(1,22)-R1(1,23)*TWO)*XZ+(+R3(6,30)-R2(5,24))*XXX
     * +(+R3(3,29)*TWO+R3(3,30)-R2(1,23)*TWO-R2(1,24))*XXZ+(+R2(5,41)
     * -R1(1,25))*XXXZ
      F(6,1,5,1)= R6(9,2)-R5(5,2)+R4(9,14)-R3(5,11)+(+R5(9,6)*TWO
     * -R4(5,9)*TWO)*QX+(+R5(5,5)-R4(2,8)+R3(5,27)-R2(4,21))*QZ+(
     * +R4(9,17)-R3(5,14))*XX+(+R4(5,16)*TWO-R3(2,13)*TWO)*XZ+(+R3(5,30)
     * -R2(4,24))*XXZ
      F(1,2,5,1)= R6(8,2)-R5(4,2)+R4(3,14)+R4(8,14)-R3(1,11)-R3(4,11)
     * +R2(5,37)-R1(1,21)+(+R5(8,5)*TWO-R4(4,8)*TWO+R3(3,27)*TWO
     * -R2(1,21)*TWO)*QX+(+R4(8,15)-R3(4,12)+R2(5,38)-R1(1,22))*XX
      F(2,2,5,1)= R6(17,2)-R5(11,2)+R4(8,14)*SIX-R3(4,11)*SIX
     * +R2(5,37)*THREE-R1(1,21)*THREE
      F(3,2,5,1)= R6(19,2)-R5(13,2)+R4(8,14)+R4(10,14)-R3(4,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(13,5)*TWO-R4(8,8)*TWO+R3(6,27)*TWO
     * -R2(5,21)*TWO)*QZ+(+R4(8,15)-R3(4,12)+R2(5,38)-R1(1,22))*ZZ
      F(4,2,5,1)= R6(12,2)-R5(7,2)+R4(5,14)*THREE-R3(2,11)*THREE+(
     * +R5(12,5)-R4(7,8)+R3(5,27)*THREE-R2(4,21)*THREE)*QX
      F(5,2,5,1)= R6(13,2)-R5(8,2)+R4(6,14)-R3(3,11)+(+R5(13,5)-R4(8,8)
     * +R3(6,27)-R2(5,21))*QX+(+R5(8,5)-R4(4,8)+R3(3,27)-R2(1,21))*QZ+(
     * +R4(8,15)-R3(4,12)+R2(5,38)-R1(1,22))*XZ
      F(6,2,5,1)= R6(18,2)-R5(12,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(12,5)-R4(7,8)+R3(5,27)*THREE-R2(4,21)*THREE)*QZ
      F(1,3,5,1)= R6(10,2)-R5(6,2)+R4(3,14)+R4(10,14)-R3(1,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(10,5)*TWO-R4(6,8)*TWO+R3(3,27)*TWO
     * -R2(1,21)*TWO)*QX+(+R5(6,6)*TWO-R4(3,9)*TWO+R3(6,28)*TWO
     * -R2(5,22)*TWO)*QZ+(+R4(10,15)-R3(6,12)+R2(5,38)-R1(1,22))*XX+(
     * +R4(6,16)*FOUR-R3(3,13)*FOUR)*XZ+(+R4(3,17)-R3(1,14)+R2(5,40)
     * -R1(1,24))*ZZ+(+R3(6,29)*TWO-R2(5,23)*TWO)*XXZ+(+R3(3,30)*TWO
     * -R2(1,24)*TWO)*XZZ+(+R2(5,41)-R1(1,25))*XXZZ
      F(2,3,5,1)= R6(19,2)-R5(13,2)+R4(8,14)+R4(10,14)-R3(4,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(13,6)*TWO-R4(8,9)*TWO+R3(6,28)*TWO
     * -R2(5,22)*TWO)*QZ+(+R4(8,17)-R3(4,14)+R2(5,40)-R1(1,24))*ZZ
      F(3,3,5,1)= R6(21,2)-R5(15,2)+R4(10,14)*SIX-R3(6,11)*SIX
     * +R2(5,37)*THREE-R1(1,21)*THREE+(+R5(15,5)*TWO+R5(15,6)*TWO
     * -R4(10,8)*TWO-R4(10,9)*TWO+R3(6,27)*SIX+R3(6,28)*SIX-R2(5,21)*SIX
     * -R2(5,22)*SIX)*QZ+(+R4(10,15)+R4(10,16)*FOUR+R4(10,17)-R3(6,12)
     * -R3(6,13)*FOUR-R3(6,14)+R2(5,38)+R2(5,39)*FOUR+R2(5,40)-R1(1,22)
     * -R1(1,23)*FOUR-R1(1,24))*ZZ+(+R3(6,29)*TWO+R3(6,30)*TWO
     * -R2(5,23)*TWO-R2(5,24)*TWO)*ZZZ+(+R2(5,41)-R1(1,25))*ZZZZ
      F(4,3,5,1)= R6(14,2)-R5(9,2)+R4(5,14)-R3(2,11)+(+R5(14,5)-R4(9,8)
     * +R3(5,27)-R2(4,21))*QX+(+R5(9,6)*TWO-R4(5,9)*TWO)*QZ+(
     * +R4(9,16)*TWO-R3(5,13)*TWO)*XZ+(+R4(5,17)-R3(2,14))*ZZ+(+R3(5,30)
     * -R2(4,24))*XZZ
      F(5,3,5,1)= R6(15,2)-R5(10,2)+R4(6,14)*THREE-R3(3,11)*THREE+(
     * +R5(15,5)-R4(10,8)+R3(6,27)*THREE-R2(5,21)*THREE)*QX+(+R5(10,5)
     * +R5(10,6)*TWO-R4(6,8)-R4(6,9)*TWO+R3(3,27)+R3(3,28)*TWO-R2(1,21)
     * -R2(1,22)*TWO)*QZ+(+R4(10,15)+R4(10,16)*TWO-R3(6,12)-R3(6,13)*TWO
     * +R2(5,38)+R2(5,39)*TWO-R1(1,22)-R1(1,23)*TWO)*XZ+(+R4(6,16)*TWO
     * +R4(6,17)-R3(3,13)*TWO-R3(3,14))*ZZ+(+R3(6,29)*TWO+R3(6,30)
     * -R2(5,23)*TWO-R2(5,24))*XZZ+(+R3(3,30)-R2(1,24))*ZZZ+(+R2(5,41)
     * -R1(1,25))*XZZZ
      F(6,3,5,1)= R6(20,2)-R5(14,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(14,5)+R5(14,6)*TWO-R4(9,8)-R4(9,9)*TWO+R3(5,27)+R3(5,28)*TWO
     * -R2(4,21)-R2(4,22)*TWO)*QZ+(+R4(9,16)*TWO+R4(9,17)-R3(5,13)*TWO
     * -R3(5,14))*ZZ+(+R3(5,30)-R2(4,24))*ZZZ
      F(1,4,5,1)= R6(5,2)-R5(2,2)+R4(5,14)*THREE-R3(2,11)*THREE+(
     * +R5(5,5)*TWO+R5(5,6)-R4(2,8)*TWO-R4(2,9)+R3(5,27)*TWO+R3(5,28)
     * -R2(4,21)*TWO-R2(4,22))*QX+(+R4(5,15)+R4(5,16)*TWO-R3(2,12)
     * -R3(2,13)*TWO)*XX+(+R3(5,29)-R2(4,23))*XXX
      F(2,4,5,1)= R6(12,2)-R5(7,2)+R4(5,14)*THREE-R3(2,11)*THREE+(
     * +R5(12,6)-R4(7,9)+R3(5,28)*THREE-R2(4,22)*THREE)*QX
      F(3,4,5,1)= R6(14,2)-R5(9,2)+R4(5,14)-R3(2,11)+(+R5(14,6)-R4(9,9)
     * +R3(5,28)-R2(4,22))*QX+(+R5(9,5)*TWO-R4(5,8)*TWO)*QZ+(
     * +R4(9,16)*TWO-R3(5,13)*TWO)*XZ+(+R4(5,15)-R3(2,12))*ZZ+(+R3(5,29)
     * -R2(4,23))*XZZ
      F(4,4,5,1)= R6(8,2)-R5(4,2)+R4(3,14)+R4(8,14)-R3(1,11)-R3(4,11)
     * +R2(5,37)-R1(1,21)+(+R5(8,5)+R5(8,6)-R4(4,8)-R4(4,9)+R3(3,27)
     * +R3(3,28)-R2(1,21)-R2(1,22))*QX+(+R4(8,16)-R3(4,13)+R2(5,39)
     * -R1(1,23))*XX
      F(5,4,5,1)= R6(9,2)-R5(5,2)+R4(9,14)-R3(5,11)+(+R5(9,5)+R5(9,6)
     * -R4(5,8)-R4(5,9))*QX+(+R5(5,5)-R4(2,8)+R3(5,27)-R2(4,21))*QZ+(
     * +R4(9,16)-R3(5,13))*XX+(+R4(5,15)+R4(5,16)-R3(2,12)-R3(2,13))*XZ
     * +(+R3(5,29)-R2(4,23))*XXZ
      F(6,4,5,1)= R6(13,2)-R5(8,2)+R4(6,14)-R3(3,11)+(+R5(13,6)-R4(8,9)
     * +R3(6,28)-R2(5,22))*QX+(+R5(8,5)-R4(4,8)+R3(3,27)-R2(1,21))*QZ+(
     * +R4(8,16)-R3(4,13)+R2(5,39)-R1(1,23))*XZ
      F(1,5,5,1)= R6(6,2)-R5(3,2)+R4(6,14)*THREE-R3(3,11)*THREE+(
     * +R5(6,5)*TWO+R5(6,6)-R4(3,8)*TWO-R4(3,9)+R3(6,27)*TWO+R3(6,28)
     * -R2(5,21)*TWO-R2(5,22))*QX+(+R5(3,6)-R4(1,9)+R3(3,28)*THREE
     * -R2(1,22)*THREE)*QZ+(+R4(6,15)+R4(6,16)*TWO-R3(3,12)-R3(3,13)*TWO
     * )*XX+(+R4(3,16)*TWO+R4(3,17)-R3(1,13)*TWO-R3(1,14)+R2(5,39)*TWO
     * +R2(5,40)-R1(1,23)*TWO-R1(1,24))*XZ+(+R3(6,29)-R2(5,23))*XXX+(
     * +R3(3,29)+R3(3,30)*TWO-R2(1,23)-R2(1,24)*TWO)*XXZ+(+R2(5,41)
     * -R1(1,25))*XXXZ
      F(2,5,5,1)= R6(13,2)-R5(8,2)+R4(6,14)-R3(3,11)+(+R5(13,6)-R4(8,9)
     * +R3(6,28)-R2(5,22))*QX+(+R5(8,6)-R4(4,9)+R3(3,28)-R2(1,22))*QZ+(
     * +R4(8,17)-R3(4,14)+R2(5,40)-R1(1,24))*XZ
      F(3,5,5,1)= R6(15,2)-R5(10,2)+R4(6,14)*THREE-R3(3,11)*THREE+(
     * +R5(15,6)-R4(10,9)+R3(6,28)*THREE-R2(5,22)*THREE)*QX+(
     * +R5(10,5)*TWO+R5(10,6)-R4(6,8)*TWO-R4(6,9)+R3(3,27)*TWO+R3(3,28)
     * -R2(1,21)*TWO-R2(1,22))*QZ+(+R4(10,16)*TWO+R4(10,17)-R3(6,13)*TWO
     * -R3(6,14)+R2(5,39)*TWO+R2(5,40)-R1(1,23)*TWO-R1(1,24))*XZ+(
     * +R4(6,15)+R4(6,16)*TWO-R3(3,12)-R3(3,13)*TWO)*ZZ+(+R3(6,29)
     * +R3(6,30)*TWO-R2(5,23)-R2(5,24)*TWO)*XZZ+(+R3(3,29)-R2(1,23))*ZZZ
     * +(+R2(5,41)-R1(1,25))*XZZZ
      F(4,5,5,1)= R6(9,2)-R5(5,2)+R4(9,14)-R3(5,11)+(+R5(9,5)+R5(9,6)
     * -R4(5,8)-R4(5,9))*QX+(+R5(5,6)-R4(2,9)+R3(5,28)-R2(4,22))*QZ+(
     * +R4(9,16)-R3(5,13))*XX+(+R4(5,16)+R4(5,17)-R3(2,13)-R3(2,14))*XZ
     * +(+R3(5,30)-R2(4,24))*XXZ
      F(5,5,5,1)= R6(10,2)-R5(6,2)+R4(3,14)+R4(10,14)-R3(1,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(10,5)+R5(10,6)-R4(6,8)-R4(6,9)+R3(3,27)
     * +R3(3,28)-R2(1,21)-R2(1,22))*QX+(+R5(6,5)+R5(6,6)-R4(3,8)-R4(3,9)
     * +R3(6,27)+R3(6,28)-R2(5,21)-R2(5,22))*QZ+(+R4(10,16)-R3(6,13)
     * +R2(5,39)-R1(1,23))*XX+(+R4(6,15)+R4(6,16)*TWO+R4(6,17)-R3(3,12)
     * -R3(3,13)*TWO-R3(3,14))*XZ+(+R4(3,16)-R3(1,13)+R2(5,39)-R1(1,23))
     * *ZZ+(+R3(6,29)+R3(6,30)-R2(5,23)-R2(5,24))*XXZ+(+R3(3,29)
     * +R3(3,30)-R2(1,23)-R2(1,24))*XZZ+(+R2(5,41)-R1(1,25))*XXZZ
      F(6,5,5,1)= R6(14,2)-R5(9,2)+R4(5,14)-R3(2,11)+(+R5(14,6)-R4(9,9)
     * +R3(5,28)-R2(4,22))*QX+(+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(
     * +R4(9,16)+R4(9,17)-R3(5,13)-R3(5,14))*XZ+(+R4(5,16)-R3(2,13))*ZZ
     * +(+R3(5,30)-R2(4,24))*XZZ
      F(1,6,5,1)= R6(9,2)-R5(5,2)+R4(9,14)-R3(5,11)+(+R5(9,5)*TWO
     * -R4(5,8)*TWO)*QX+(+R5(5,6)-R4(2,9)+R3(5,28)-R2(4,22))*QZ+(
     * +R4(9,15)-R3(5,12))*XX+(+R4(5,16)*TWO-R3(2,13)*TWO)*XZ+(+R3(5,29)
     * -R2(4,23))*XXZ
      F(2,6,5,1)= R6(18,2)-R5(12,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(12,6)-R4(7,9)+R3(5,28)*THREE-R2(4,22)*THREE)*QZ
      F(3,6,5,1)= R6(20,2)-R5(14,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(14,5)*TWO+R5(14,6)-R4(9,8)*TWO-R4(9,9)+R3(5,27)*TWO+R3(5,28)
     * -R2(4,21)*TWO-R2(4,22))*QZ+(+R4(9,15)+R4(9,16)*TWO-R3(5,12)
     * -R3(5,13)*TWO)*ZZ+(+R3(5,29)-R2(4,23))*ZZZ
      F(4,6,5,1)= R6(13,2)-R5(8,2)+R4(6,14)-R3(3,11)+(+R5(13,5)-R4(8,8)
     * +R3(6,27)-R2(5,21))*QX+(+R5(8,6)-R4(4,9)+R3(3,28)-R2(1,22))*QZ+(
     * +R4(8,16)-R3(4,13)+R2(5,39)-R1(1,23))*XZ
      F(5,6,5,1)= R6(14,2)-R5(9,2)+R4(5,14)-R3(2,11)+(+R5(14,5)-R4(9,8)
     * +R3(5,27)-R2(4,21))*QX+(+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(
     * +R4(9,15)+R4(9,16)-R3(5,12)-R3(5,13))*XZ+(+R4(5,16)-R3(2,13))*ZZ
     * +(+R3(5,29)-R2(4,23))*XZZ
      F(6,6,5,1)= R6(19,2)-R5(13,2)+R4(8,14)+R4(10,14)-R3(4,11)-R3(6,11)
     * +R2(5,37)-R1(1,21)+(+R5(13,5)+R5(13,6)-R4(8,8)-R4(8,9)+R3(6,27)
     * +R3(6,28)-R2(5,21)-R2(5,22))*QZ+(+R4(8,16)-R3(4,13)+R2(5,39)
     * -R1(1,23))*ZZ
      F(1,1,6,1)= R6(5,2)-R5(2,2)+R4(5,14)*SIX-R3(2,11)*SIX
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R5(5,5)*TWO+R5(5,6)*TWO
     * -R4(2,8)*TWO-R4(2,9)*TWO+R3(5,27)*SIX+R3(5,28)*SIX-R2(4,21)*SIX
     * -R2(4,22)*SIX)*QX+(+R4(5,15)+R4(5,16)*FOUR+R4(5,17)-R3(2,12)
     * -R3(2,13)*FOUR-R3(2,14)+R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,22)
     * -R1(2,23)*FOUR-R1(2,24))*XX+(+R3(5,29)*TWO+R3(5,30)*TWO
     * -R2(4,23)*TWO-R2(4,24)*TWO)*XXX+(+R2(6,41)-R1(2,25))*XXXX
      F(2,1,6,1)= R6(12,2)-R5(7,2)+R4(5,14)+R4(12,14)-R3(2,11)-R3(7,11)
     * +R2(6,37)-R1(2,21)+(+R5(12,6)*TWO-R4(7,9)*TWO+R3(5,28)*TWO
     * -R2(4,22)*TWO)*QX+(+R4(12,17)-R3(7,14)+R2(6,40)-R1(2,24))*XX
      F(3,1,6,1)= R6(14,2)-R5(9,2)+R4(5,14)+R4(14,14)-R3(2,11)-R3(9,11)
     * +R2(6,37)-R1(2,21)+(+R5(14,6)*TWO-R4(9,9)*TWO+R3(5,28)*TWO
     * -R2(4,22)*TWO)*QX+(+R5(9,5)*TWO-R4(5,8)*TWO+R3(9,27)*TWO
     * -R2(6,21)*TWO)*QZ+(+R4(14,17)-R3(9,14)+R2(6,40)-R1(2,24))*XX+(
     * +R4(9,16)*FOUR-R3(5,13)*FOUR)*XZ+(+R4(5,15)-R3(2,12)+R2(6,38)
     * -R1(2,22))*ZZ+(+R3(9,30)*TWO-R2(6,24)*TWO)*XXZ+(+R3(5,29)*TWO
     * -R2(4,23)*TWO)*XZZ+(+R2(6,41)-R1(2,25))*XXZZ
      F(4,1,6,1)= R6(8,2)-R5(4,2)+R4(8,14)*THREE-R3(4,11)*THREE+(
     * +R5(8,5)+R5(8,6)*TWO-R4(4,8)-R4(4,9)*TWO+R3(8,27)+R3(8,28)*TWO
     * -R2(2,21)-R2(2,22)*TWO)*QX+(+R4(8,16)*TWO+R4(8,17)-R3(4,13)*TWO
     * -R3(4,14))*XX+(+R3(8,30)-R2(2,24))*XXX
      F(5,1,6,1)= R6(9,2)-R5(5,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(9,5)+R5(9,6)*TWO-R4(5,8)-R4(5,9)*TWO+R3(9,27)+R3(9,28)*TWO
     * -R2(6,21)-R2(6,22)*TWO)*QX+(+R5(5,5)-R4(2,8)+R3(5,27)*THREE
     * -R2(4,21)*THREE)*QZ+(+R4(9,16)*TWO+R4(9,17)-R3(5,13)*TWO-R3(5,14)
     * )*XX+(+R4(5,15)+R4(5,16)*TWO-R3(2,12)-R3(2,13)*TWO+R2(6,38)
     * +R2(6,39)*TWO-R1(2,22)-R1(2,23)*TWO)*XZ+(+R3(9,30)-R2(6,24))*XXX
     * +(+R3(5,29)*TWO+R3(5,30)-R2(4,23)*TWO-R2(4,24))*XXZ+(+R2(6,41)
     * -R1(2,25))*XXXZ
      F(6,1,6,1)= R6(13,2)-R5(8,2)+R4(13,14)-R3(8,11)+(+R5(13,6)*TWO
     * -R4(8,9)*TWO)*QX+(+R5(8,5)-R4(4,8)+R3(8,27)-R2(2,21))*QZ+(
     * +R4(13,17)-R3(8,14))*XX+(+R4(8,16)*TWO-R3(4,13)*TWO)*XZ+(
     * +R3(8,30)-R2(2,24))*XXZ
      F(1,2,6,1)= R6(12,2)-R5(7,2)+R4(5,14)+R4(12,14)-R3(2,11)-R3(7,11)
     * +R2(6,37)-R1(2,21)+(+R5(12,5)*TWO-R4(7,8)*TWO+R3(5,27)*TWO
     * -R2(4,21)*TWO)*QX+(+R4(12,15)-R3(7,12)+R2(6,38)-R1(2,22))*XX
      F(2,2,6,1)= R6(23,2)-R5(16,2)+R4(12,14)*SIX-R3(7,11)*SIX
     * +R2(6,37)*THREE-R1(2,21)*THREE
      F(3,2,6,1)= R6(25,2)-R5(18,2)+R4(12,14)+R4(14,14)-R3(7,11)
     * -R3(9,11)+R2(6,37)-R1(2,21)+(+R5(18,5)*TWO-R4(12,8)*TWO
     * +R3(9,27)*TWO-R2(6,21)*TWO)*QZ+(+R4(12,15)-R3(7,12)+R2(6,38)
     * -R1(2,22))*ZZ
      F(4,2,6,1)= R6(17,2)-R5(11,2)+R4(8,14)*THREE-R3(4,11)*THREE+(
     * +R5(17,5)-R4(11,8)+R3(8,27)*THREE-R2(2,21)*THREE)*QX
      F(5,2,6,1)= R6(18,2)-R5(12,2)+R4(9,14)-R3(5,11)+(+R5(18,5)
     * -R4(12,8)+R3(9,27)-R2(6,21))*QX+(+R5(12,5)-R4(7,8)+R3(5,27)
     * -R2(4,21))*QZ+(+R4(12,15)-R3(7,12)+R2(6,38)-R1(2,22))*XZ
      F(6,2,6,1)= R6(24,2)-R5(17,2)+R4(13,14)*THREE-R3(8,11)*THREE+(
     * +R5(17,5)-R4(11,8)+R3(8,27)*THREE-R2(2,21)*THREE)*QZ
      F(1,3,6,1)= R6(14,2)-R5(9,2)+R4(5,14)+R4(14,14)-R3(2,11)-R3(9,11)
     * +R2(6,37)-R1(2,21)+(+R5(14,5)*TWO-R4(9,8)*TWO+R3(5,27)*TWO
     * -R2(4,21)*TWO)*QX+(+R5(9,6)*TWO-R4(5,9)*TWO+R3(9,28)*TWO
     * -R2(6,22)*TWO)*QZ+(+R4(14,15)-R3(9,12)+R2(6,38)-R1(2,22))*XX+(
     * +R4(9,16)*FOUR-R3(5,13)*FOUR)*XZ+(+R4(5,17)-R3(2,14)+R2(6,40)
     * -R1(2,24))*ZZ+(+R3(9,29)*TWO-R2(6,23)*TWO)*XXZ+(+R3(5,30)*TWO
     * -R2(4,24)*TWO)*XZZ+(+R2(6,41)-R1(2,25))*XXZZ
      F(2,3,6,1)= R6(25,2)-R5(18,2)+R4(12,14)+R4(14,14)-R3(7,11)
     * -R3(9,11)+R2(6,37)-R1(2,21)+(+R5(18,6)*TWO-R4(12,9)*TWO
     * +R3(9,28)*TWO-R2(6,22)*TWO)*QZ+(+R4(12,17)-R3(7,14)+R2(6,40)
     * -R1(2,24))*ZZ
      F(3,3,6,1)= R6(27,2)-R5(20,2)+R4(14,14)*SIX-R3(9,11)*SIX
     * +R2(6,37)*THREE-R1(2,21)*THREE+(+R5(20,5)*TWO+R5(20,6)*TWO
     * -R4(14,8)*TWO-R4(14,9)*TWO+R3(9,27)*SIX+R3(9,28)*SIX-R2(6,21)*SIX
     * -R2(6,22)*SIX)*QZ+(+R4(14,15)+R4(14,16)*FOUR+R4(14,17)-R3(9,12)
     * -R3(9,13)*FOUR-R3(9,14)+R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,22)
     * -R1(2,23)*FOUR-R1(2,24))*ZZ+(+R3(9,29)*TWO+R3(9,30)*TWO
     * -R2(6,23)*TWO-R2(6,24)*TWO)*ZZZ+(+R2(6,41)-R1(2,25))*ZZZZ
      F(4,3,6,1)= R6(19,2)-R5(13,2)+R4(8,14)-R3(4,11)+(+R5(19,5)
     * -R4(13,8)+R3(8,27)-R2(2,21))*QX+(+R5(13,6)*TWO-R4(8,9)*TWO)*QZ+(
     * +R4(13,16)*TWO-R3(8,13)*TWO)*XZ+(+R4(8,17)-R3(4,14))*ZZ+(
     * +R3(8,30)-R2(2,24))*XZZ
      F(5,3,6,1)= R6(20,2)-R5(14,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(20,5)-R4(14,8)+R3(9,27)*THREE-R2(6,21)*THREE)*QX+(+R5(14,5)
     * +R5(14,6)*TWO-R4(9,8)-R4(9,9)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,21)
     * -R2(4,22)*TWO)*QZ+(+R4(14,15)+R4(14,16)*TWO-R3(9,12)-R3(9,13)*TWO
     * +R2(6,38)+R2(6,39)*TWO-R1(2,22)-R1(2,23)*TWO)*XZ+(+R4(9,16)*TWO
     * +R4(9,17)-R3(5,13)*TWO-R3(5,14))*ZZ+(+R3(9,29)*TWO+R3(9,30)
     * -R2(6,23)*TWO-R2(6,24))*XZZ+(+R3(5,30)-R2(4,24))*ZZZ+(+R2(6,41)
     * -R1(2,25))*XZZZ
      F(6,3,6,1)= R6(26,2)-R5(19,2)+R4(13,14)*THREE-R3(8,11)*THREE+(
     * +R5(19,5)+R5(19,6)*TWO-R4(13,8)-R4(13,9)*TWO+R3(8,27)
     * +R3(8,28)*TWO-R2(2,21)-R2(2,22)*TWO)*QZ+(+R4(13,16)*TWO+R4(13,17)
     * -R3(8,13)*TWO-R3(8,14))*ZZ+(+R3(8,30)-R2(2,24))*ZZZ
      F(1,4,6,1)= R6(8,2)-R5(4,2)+R4(8,14)*THREE-R3(4,11)*THREE+(
     * +R5(8,5)*TWO+R5(8,6)-R4(4,8)*TWO-R4(4,9)+R3(8,27)*TWO+R3(8,28)
     * -R2(2,21)*TWO-R2(2,22))*QX+(+R4(8,15)+R4(8,16)*TWO-R3(4,12)
     * -R3(4,13)*TWO)*XX+(+R3(8,29)-R2(2,23))*XXX
      F(2,4,6,1)= R6(17,2)-R5(11,2)+R4(8,14)*THREE-R3(4,11)*THREE+(
     * +R5(17,6)-R4(11,9)+R3(8,28)*THREE-R2(2,22)*THREE)*QX
      F(3,4,6,1)= R6(19,2)-R5(13,2)+R4(8,14)-R3(4,11)+(+R5(19,6)
     * -R4(13,9)+R3(8,28)-R2(2,22))*QX+(+R5(13,5)*TWO-R4(8,8)*TWO)*QZ+(
     * +R4(13,16)*TWO-R3(8,13)*TWO)*XZ+(+R4(8,15)-R3(4,12))*ZZ+(
     * +R3(8,29)-R2(2,23))*XZZ
      F(4,4,6,1)= R6(12,2)-R5(7,2)+R4(5,14)+R4(12,14)-R3(2,11)-R3(7,11)
     * +R2(6,37)-R1(2,21)+(+R5(12,5)+R5(12,6)-R4(7,8)-R4(7,9)+R3(5,27)
     * +R3(5,28)-R2(4,21)-R2(4,22))*QX+(+R4(12,16)-R3(7,13)+R2(6,39)
     * -R1(2,23))*XX
      F(5,4,6,1)= R6(13,2)-R5(8,2)+R4(13,14)-R3(8,11)+(+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R5(8,5)-R4(4,8)+R3(8,27)-R2(2,21)
     * )*QZ+(+R4(13,16)-R3(8,13))*XX+(+R4(8,15)+R4(8,16)-R3(4,12)
     * -R3(4,13))*XZ+(+R3(8,29)-R2(2,23))*XXZ
      F(6,4,6,1)= R6(18,2)-R5(12,2)+R4(9,14)-R3(5,11)+(+R5(18,6)
     * -R4(12,9)+R3(9,28)-R2(6,22))*QX+(+R5(12,5)-R4(7,8)+R3(5,27)
     * -R2(4,21))*QZ+(+R4(12,16)-R3(7,13)+R2(6,39)-R1(2,23))*XZ
      F(1,5,6,1)= R6(9,2)-R5(5,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(9,5)*TWO+R5(9,6)-R4(5,8)*TWO-R4(5,9)+R3(9,27)*TWO+R3(9,28)
     * -R2(6,21)*TWO-R2(6,22))*QX+(+R5(5,6)-R4(2,9)+R3(5,28)*THREE
     * -R2(4,22)*THREE)*QZ+(+R4(9,15)+R4(9,16)*TWO-R3(5,12)-R3(5,13)*TWO
     * )*XX+(+R4(5,16)*TWO+R4(5,17)-R3(2,13)*TWO-R3(2,14)+R2(6,39)*TWO
     * +R2(6,40)-R1(2,23)*TWO-R1(2,24))*XZ+(+R3(9,29)-R2(6,23))*XXX+(
     * +R3(5,29)+R3(5,30)*TWO-R2(4,23)-R2(4,24)*TWO)*XXZ+(+R2(6,41)
     * -R1(2,25))*XXXZ
      F(2,5,6,1)= R6(18,2)-R5(12,2)+R4(9,14)-R3(5,11)+(+R5(18,6)
     * -R4(12,9)+R3(9,28)-R2(6,22))*QX+(+R5(12,6)-R4(7,9)+R3(5,28)
     * -R2(4,22))*QZ+(+R4(12,17)-R3(7,14)+R2(6,40)-R1(2,24))*XZ
      F(3,5,6,1)= R6(20,2)-R5(14,2)+R4(9,14)*THREE-R3(5,11)*THREE+(
     * +R5(20,6)-R4(14,9)+R3(9,28)*THREE-R2(6,22)*THREE)*QX+(
     * +R5(14,5)*TWO+R5(14,6)-R4(9,8)*TWO-R4(9,9)+R3(5,27)*TWO+R3(5,28)
     * -R2(4,21)*TWO-R2(4,22))*QZ+(+R4(14,16)*TWO+R4(14,17)-R3(9,13)*TWO
     * -R3(9,14)+R2(6,39)*TWO+R2(6,40)-R1(2,23)*TWO-R1(2,24))*XZ+(
     * +R4(9,15)+R4(9,16)*TWO-R3(5,12)-R3(5,13)*TWO)*ZZ+(+R3(9,29)
     * +R3(9,30)*TWO-R2(6,23)-R2(6,24)*TWO)*XZZ+(+R3(5,29)-R2(4,23))*ZZZ
     * +(+R2(6,41)-R1(2,25))*XZZZ
      F(4,5,6,1)= R6(13,2)-R5(8,2)+R4(13,14)-R3(8,11)+(+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R5(8,6)-R4(4,9)+R3(8,28)-R2(2,22)
     * )*QZ+(+R4(13,16)-R3(8,13))*XX+(+R4(8,16)+R4(8,17)-R3(4,13)
     * -R3(4,14))*XZ+(+R3(8,30)-R2(2,24))*XXZ
      F(5,5,6,1)= R6(14,2)-R5(9,2)+R4(5,14)+R4(14,14)-R3(2,11)-R3(9,11)
     * +R2(6,37)-R1(2,21)+(+R5(14,5)+R5(14,6)-R4(9,8)-R4(9,9)+R3(5,27)
     * +R3(5,28)-R2(4,21)-R2(4,22))*QX+(+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9)
     * +R3(9,27)+R3(9,28)-R2(6,21)-R2(6,22))*QZ+(+R4(14,16)-R3(9,13)
     * +R2(6,39)-R1(2,23))*XX+(+R4(9,15)+R4(9,16)*TWO+R4(9,17)-R3(5,12)
     * -R3(5,13)*TWO-R3(5,14))*XZ+(+R4(5,16)-R3(2,13)+R2(6,39)-R1(2,23))
     * *ZZ+(+R3(9,29)+R3(9,30)-R2(6,23)-R2(6,24))*XXZ+(+R3(5,29)
     * +R3(5,30)-R2(4,23)-R2(4,24))*XZZ+(+R2(6,41)-R1(2,25))*XXZZ
      F(6,5,6,1)= R6(19,2)-R5(13,2)+R4(8,14)-R3(4,11)+(+R5(19,6)
     * -R4(13,9)+R3(8,28)-R2(2,22))*QX+(+R5(13,5)+R5(13,6)-R4(8,8)
     * -R4(8,9))*QZ+(+R4(13,16)+R4(13,17)-R3(8,13)-R3(8,14))*XZ+(
     * +R4(8,16)-R3(4,13))*ZZ+(+R3(8,30)-R2(2,24))*XZZ
      F(1,6,6,1)= R6(13,2)-R5(8,2)+R4(13,14)-R3(8,11)+(+R5(13,5)*TWO
     * -R4(8,8)*TWO)*QX+(+R5(8,6)-R4(4,9)+R3(8,28)-R2(2,22))*QZ+(
     * +R4(13,15)-R3(8,12))*XX+(+R4(8,16)*TWO-R3(4,13)*TWO)*XZ+(
     * +R3(8,29)-R2(2,23))*XXZ
      F(2,6,6,1)= R6(24,2)-R5(17,2)+R4(13,14)*THREE-R3(8,11)*THREE+(
     * +R5(17,6)-R4(11,9)+R3(8,28)*THREE-R2(2,22)*THREE)*QZ
      F(3,6,6,1)= R6(26,2)-R5(19,2)+R4(13,14)*THREE-R3(8,11)*THREE+(
     * +R5(19,5)*TWO+R5(19,6)-R4(13,8)*TWO-R4(13,9)+R3(8,27)*TWO
     * +R3(8,28)-R2(2,21)*TWO-R2(2,22))*QZ+(+R4(13,15)+R4(13,16)*TWO
     * -R3(8,12)-R3(8,13)*TWO)*ZZ+(+R3(8,29)-R2(2,23))*ZZZ
      F(4,6,6,1)= R6(18,2)-R5(12,2)+R4(9,14)-R3(5,11)+(+R5(18,5)
     * -R4(12,8)+R3(9,27)-R2(6,21))*QX+(+R5(12,6)-R4(7,9)+R3(5,28)
     * -R2(4,22))*QZ+(+R4(12,16)-R3(7,13)+R2(6,39)-R1(2,23))*XZ
      F(5,6,6,1)= R6(19,2)-R5(13,2)+R4(8,14)-R3(4,11)+(+R5(19,5)
     * -R4(13,8)+R3(8,27)-R2(2,21))*QX+(+R5(13,5)+R5(13,6)-R4(8,8)
     * -R4(8,9))*QZ+(+R4(13,15)+R4(13,16)-R3(8,12)-R3(8,13))*XZ+(
     * +R4(8,16)-R3(4,13))*ZZ+(+R3(8,29)-R2(2,23))*XZZ
      F(6,6,6,1)= R6(25,2)-R5(18,2)+R4(12,14)+R4(14,14)-R3(7,11)
     * -R3(9,11)+R2(6,37)-R1(2,21)+(+R5(18,5)+R5(18,6)-R4(12,8)-R4(12,9)
     * +R3(9,27)+R3(9,28)-R2(6,21)-R2(6,22))*QZ+(+R4(12,16)-R3(7,13)
     * +R2(6,39)-R1(2,23))*ZZ
      F(1,1,1,2)= -R7(1,1)-R5(1,4)*THREE-R5(1,11)*SIX-R3(1,19)*P18
     * -R3(1,39)*THREE-R1(1,31)*NINE+(-R6(1,4)*TWO-R6(1,5)*TWO
     * -R4(1,12)*SIX-R4(1,13)*SIX-R4(1,26)*SIX-R4(1,27)*SIX-R2(1,29)*P18
     * -R2(1,30)*P18)*QX+(-R5(1,12)-R5(1,13)*FOUR-R5(1,14)
     * -R3(1,20)*THREE-R3(1,21)*TWELV-R3(1,22)*THREE-R3(1,40)
     * -R3(1,41)*FOUR-R3(1,42)-R1(1,32)*THREE-R1(1,33)*TWELV
     * -R1(1,34)*THREE)*XX+(-R4(1,28)*TWO-R4(1,29)*TWO-R2(1,31)*SIX
     * -R2(1,32)*SIX)*XXX+(-R3(1,43)-R1(1,35)*THREE)*XXXX
      F(2,1,1,2)= -R7(4,1)-R5(4,4)*THREE-R5(1,11)-R5(4,11)
     * -R3(1,19)*THREE-R3(4,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(4,5)*TWO-R4(4,13)*SIX-R4(1,27)*TWO-R2(1,30)*SIX)*QX+(
     * -R5(4,14)-R3(4,22)*THREE-R3(1,42)-R1(1,34)*THREE)*XX
      F(3,1,1,2)= -R7(6,1)-R5(6,4)*THREE-R5(1,11)-R5(6,11)
     * -R3(1,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(6,5)*TWO-R4(6,13)*SIX-R4(1,27)*TWO-R2(1,30)*SIX)*QX+(
     * -R6(3,4)*TWO-R4(3,12)*SIX-R4(3,26)*TWO-R2(5,29)*SIX)*QZ+(
     * -R5(6,14)-R3(6,22)*THREE-R3(1,42)-R1(1,34)*THREE)*XX+(
     * -R5(3,13)*FOUR-R3(3,21)*TWELV)*XZ+(-R5(1,12)-R3(1,20)*THREE
     * -R3(1,40)-R1(1,32)*THREE)*ZZ+(-R4(3,29)*TWO-R2(5,32)*SIX)*XXZ+(
     * -R4(1,28)*TWO-R2(1,31)*SIX)*XZZ+(-R3(1,43)-R1(1,35)*THREE)*XXZZ
      F(4,1,1,2)= -R7(2,1)-R5(2,4)*THREE-R5(2,11)*THREE-R3(2,19)*NINE+(
     * -R6(2,4)-R6(2,5)*TWO-R4(2,12)*THREE-R4(2,13)*SIX-R4(2,26)
     * -R4(2,27)*TWO-R2(4,29)*THREE-R2(4,30)*SIX)*QX+(-R5(2,13)*TWO
     * -R5(2,14)-R3(2,21)*SIX-R3(2,22)*THREE)*XX+(-R4(2,29)
     * -R2(4,32)*THREE)*XXX
      F(5,1,1,2)= -R7(3,1)-R5(3,4)*THREE-R5(3,11)*THREE-R3(3,19)*NINE+(
     * -R6(3,4)-R6(3,5)*TWO-R4(3,12)*THREE-R4(3,13)*SIX-R4(3,26)
     * -R4(3,27)*TWO-R2(5,29)*THREE-R2(5,30)*SIX)*QX+(-R6(1,4)
     * -R4(1,12)*THREE-R4(1,26)*THREE-R2(1,29)*NINE)*QZ+(-R5(3,13)*TWO
     * -R5(3,14)-R3(3,21)*SIX-R3(3,22)*THREE)*XX+(-R5(1,12)-R5(1,13)*TWO
     * -R3(1,20)*THREE-R3(1,21)*SIX-R3(1,40)-R3(1,41)*TWO-R1(1,32)*THREE
     * -R1(1,33)*SIX)*XZ+(-R4(3,29)-R2(5,32)*THREE)*XXX+(-R4(1,28)*TWO
     * -R4(1,29)-R2(1,31)*SIX-R2(1,32)*THREE)*XXZ+(-R3(1,43)
     * -R1(1,35)*THREE)*XXXZ
      F(6,1,1,2)= -R7(5,1)-R5(5,4)*THREE-R5(5,11)-R3(5,19)*THREE+(
     * -R6(5,5)*TWO-R4(5,13)*SIX)*QX+(-R6(2,4)-R4(2,12)*THREE-R4(2,26)
     * -R2(4,29)*THREE)*QZ+(-R5(5,14)-R3(5,22)*THREE)*XX+(-R5(2,13)*TWO
     * -R3(2,21)*SIX)*XZ+(-R4(2,29)-R2(4,32)*THREE)*XXZ
      F(1,2,1,2)= -R7(4,1)-R5(4,4)*THREE-R5(1,11)-R5(4,11)
     * -R3(1,19)*THREE-R3(4,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(4,4)*TWO-R4(4,12)*SIX-R4(1,26)*TWO-R2(1,29)*SIX)*QX+(
     * -R5(4,12)-R3(4,20)*THREE-R3(1,40)-R1(1,32)*THREE)*XX
      F(2,2,1,2)= -R7(11,1)-R5(11,4)*THREE-R5(4,11)*SIX-R3(4,19)*P18
     * -R3(1,39)*THREE-R1(1,31)*NINE
      F(3,2,1,2)= -R7(13,1)-R5(13,4)*THREE-R5(4,11)-R5(6,11)
     * -R3(4,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(8,4)*TWO-R4(8,12)*SIX-R4(3,26)*TWO-R2(5,29)*SIX)*QZ+(
     * -R5(4,12)-R3(4,20)*THREE-R3(1,40)-R1(1,32)*THREE)*ZZ
      F(4,2,1,2)= -R7(7,1)-R5(7,4)*THREE-R5(2,11)*THREE-R3(2,19)*NINE+(
     * -R6(7,4)-R4(7,12)*THREE-R4(2,26)*THREE-R2(4,29)*NINE)*QX
      F(5,2,1,2)= -R7(8,1)-R5(8,4)*THREE-R5(3,11)-R3(3,19)*THREE+(
     * -R6(8,4)-R4(8,12)*THREE-R4(3,26)-R2(5,29)*THREE)*QX+(-R6(4,4)
     * -R4(4,12)*THREE-R4(1,26)-R2(1,29)*THREE)*QZ+(-R5(4,12)
     * -R3(4,20)*THREE-R3(1,40)-R1(1,32)*THREE)*XZ
      F(6,2,1,2)= -R7(12,1)-R5(12,4)*THREE-R5(5,11)*THREE-R3(5,19)*NINE
     * +(-R6(7,4)-R4(7,12)*THREE-R4(2,26)*THREE-R2(4,29)*NINE)*QZ
      F(1,3,1,2)= -R7(6,1)-R5(6,4)*THREE-R5(1,11)-R5(6,11)
     * -R3(1,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(6,4)*TWO-R4(6,12)*SIX-R4(1,26)*TWO-R2(1,29)*SIX)*QX+(
     * -R6(3,5)*TWO-R4(3,13)*SIX-R4(3,27)*TWO-R2(5,30)*SIX)*QZ+(
     * -R5(6,12)-R3(6,20)*THREE-R3(1,40)-R1(1,32)*THREE)*XX+(
     * -R5(3,13)*FOUR-R3(3,21)*TWELV)*XZ+(-R5(1,14)-R3(1,22)*THREE
     * -R3(1,42)-R1(1,34)*THREE)*ZZ+(-R4(3,28)*TWO-R2(5,31)*SIX)*XXZ+(
     * -R4(1,29)*TWO-R2(1,32)*SIX)*XZZ+(-R3(1,43)-R1(1,35)*THREE)*XXZZ
      F(2,3,1,2)= -R7(13,1)-R5(13,4)*THREE-R5(4,11)-R5(6,11)
     * -R3(4,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(
     * -R6(8,5)*TWO-R4(8,13)*SIX-R4(3,27)*TWO-R2(5,30)*SIX)*QZ+(
     * -R5(4,14)-R3(4,22)*THREE-R3(1,42)-R1(1,34)*THREE)*ZZ
      F(3,3,1,2)= -R7(15,1)-R5(15,4)*THREE-R5(6,11)*SIX-R3(6,19)*P18
     * -R3(1,39)*THREE-R1(1,31)*NINE+(-R6(10,4)*TWO-R6(10,5)*TWO
     * -R4(10,12)*SIX-R4(10,13)*SIX-R4(3,26)*SIX-R4(3,27)*SIX
     * -R2(5,29)*P18-R2(5,30)*P18)*QZ+(-R5(6,12)-R5(6,13)*FOUR-R5(6,14)
     * -R3(6,20)*THREE-R3(6,21)*TWELV-R3(6,22)*THREE-R3(1,40)
     * -R3(1,41)*FOUR-R3(1,42)-R1(1,32)*THREE-R1(1,33)*TWELV
     * -R1(1,34)*THREE)*ZZ+(-R4(3,28)*TWO-R4(3,29)*TWO-R2(5,31)*SIX
     * -R2(5,32)*SIX)*ZZZ+(-R3(1,43)-R1(1,35)*THREE)*ZZZZ
      F(4,3,1,2)= -R7(9,1)-R5(9,4)*THREE-R5(2,11)-R3(2,19)*THREE+(
     * -R6(9,4)-R4(9,12)*THREE-R4(2,26)-R2(4,29)*THREE)*QX+(-R6(5,5)*TWO
     * -R4(5,13)*SIX)*QZ+(-R5(5,13)*TWO-R3(5,21)*SIX)*XZ+(-R5(2,14)
     * -R3(2,22)*THREE)*ZZ+(-R4(2,29)-R2(4,32)*THREE)*XZZ
      F(5,3,1,2)= -R7(10,1)-R5(10,4)*THREE-R5(3,11)*THREE-R3(3,19)*NINE
     * +(-R6(10,4)-R4(10,12)*THREE-R4(3,26)*THREE-R2(5,29)*NINE)*QX+(
     * -R6(6,4)-R6(6,5)*TWO-R4(6,12)*THREE-R4(6,13)*SIX-R4(1,26)
     * -R4(1,27)*TWO-R2(1,29)*THREE-R2(1,30)*SIX)*QZ+(-R5(6,12)
     * -R5(6,13)*TWO-R3(6,20)*THREE-R3(6,21)*SIX-R3(1,40)-R3(1,41)*TWO
     * -R1(1,32)*THREE-R1(1,33)*SIX)*XZ+(-R5(3,13)*TWO-R5(3,14)
     * -R3(3,21)*SIX-R3(3,22)*THREE)*ZZ+(-R4(3,28)*TWO-R4(3,29)
     * -R2(5,31)*SIX-R2(5,32)*THREE)*XZZ+(-R4(1,29)-R2(1,32)*THREE)*ZZZ
     * +(-R3(1,43)-R1(1,35)*THREE)*XZZZ
      F(6,3,1,2)= -R7(14,1)-R5(14,4)*THREE-R5(5,11)*THREE-R3(5,19)*NINE
     * +(-R6(9,4)-R6(9,5)*TWO-R4(9,12)*THREE-R4(9,13)*SIX-R4(2,26)
     * -R4(2,27)*TWO-R2(4,29)*THREE-R2(4,30)*SIX)*QZ+(-R5(5,13)*TWO
     * -R5(5,14)-R3(5,21)*SIX-R3(5,22)*THREE)*ZZ+(-R4(2,29)
     * -R2(4,32)*THREE)*ZZZ
      F(1,4,1,2)= -R7(2,1)-R5(2,4)*THREE-R5(2,11)*THREE-R3(2,19)*NINE+(
     * -R6(2,4)*TWO-R6(2,5)-R4(2,12)*SIX-R4(2,13)*THREE-R4(2,26)*TWO
     * -R4(2,27)-R2(4,29)*SIX-R2(4,30)*THREE)*QX+(-R5(2,12)-R5(2,13)*TWO
     * -R3(2,20)*THREE-R3(2,21)*SIX)*XX+(-R4(2,28)-R2(4,31)*THREE)*XXX
      F(2,4,1,2)= -R7(7,1)-R5(7,4)*THREE-R5(2,11)*THREE-R3(2,19)*NINE+(
     * -R6(7,5)-R4(7,13)*THREE-R4(2,27)*THREE-R2(4,30)*NINE)*QX
      F(3,4,1,2)= -R7(9,1)-R5(9,4)*THREE-R5(2,11)-R3(2,19)*THREE+(
     * -R6(9,5)-R4(9,13)*THREE-R4(2,27)-R2(4,30)*THREE)*QX+(-R6(5,4)*TWO
     * -R4(5,12)*SIX)*QZ+(-R5(5,13)*TWO-R3(5,21)*SIX)*XZ+(-R5(2,12)
     * -R3(2,20)*THREE)*ZZ+(-R4(2,28)-R2(4,31)*THREE)*XZZ
      F(4,4,1,2)= -R7(4,1)-R5(4,4)*THREE-R5(1,11)-R5(4,11)
     * -R3(1,19)*THREE-R3(4,19)*THREE-R3(1,39)-R1(1,31)*THREE+(-R6(4,4)
     * -R6(4,5)-R4(4,12)*THREE-R4(4,13)*THREE-R4(1,26)-R4(1,27)
     * -R2(1,29)*THREE-R2(1,30)*THREE)*QX+(-R5(4,13)-R3(4,21)*THREE
     * -R3(1,41)-R1(1,33)*THREE)*XX
      F(5,4,1,2)= -R7(5,1)-R5(5,4)*THREE-R5(5,11)-R3(5,19)*THREE+(
     * -R6(5,4)-R6(5,5)-R4(5,12)*THREE-R4(5,13)*THREE)*QX+(-R6(2,4)
     * -R4(2,12)*THREE-R4(2,26)-R2(4,29)*THREE)*QZ+(-R5(5,13)
     * -R3(5,21)*THREE)*XX+(-R5(2,12)-R5(2,13)-R3(2,20)*THREE
     * -R3(2,21)*THREE)*XZ+(-R4(2,28)-R2(4,31)*THREE)*XXZ
      F(6,4,1,2)= -R7(8,1)-R5(8,4)*THREE-R5(3,11)-R3(3,19)*THREE+(
     * -R6(8,5)-R4(8,13)*THREE-R4(3,27)-R2(5,30)*THREE)*QX+(-R6(4,4)
     * -R4(4,12)*THREE-R4(1,26)-R2(1,29)*THREE)*QZ+(-R5(4,13)
     * -R3(4,21)*THREE-R3(1,41)-R1(1,33)*THREE)*XZ
      F(1,5,1,2)= -R7(3,1)-R5(3,4)*THREE-R5(3,11)*THREE-R3(3,19)*NINE+(
     * -R6(3,4)*TWO-R6(3,5)-R4(3,12)*SIX-R4(3,13)*THREE-R4(3,26)*TWO
     * -R4(3,27)-R2(5,29)*SIX-R2(5,30)*THREE)*QX+(-R6(1,5)
     * -R4(1,13)*THREE-R4(1,27)*THREE-R2(1,30)*NINE)*QZ+(-R5(3,12)
     * -R5(3,13)*TWO-R3(3,20)*THREE-R3(3,21)*SIX)*XX+(-R5(1,13)*TWO
     * -R5(1,14)-R3(1,21)*SIX-R3(1,22)*THREE-R3(1,41)*TWO-R3(1,42)
     * -R1(1,33)*SIX-R1(1,34)*THREE)*XZ+(-R4(3,28)-R2(5,31)*THREE)*XXX+(
     * -R4(1,28)-R4(1,29)*TWO-R2(1,31)*THREE-R2(1,32)*SIX)*XXZ+(
     * -R3(1,43)-R1(1,35)*THREE)*XXXZ
      F(2,5,1,2)= -R7(8,1)-R5(8,4)*THREE-R5(3,11)-R3(3,19)*THREE+(
     * -R6(8,5)-R4(8,13)*THREE-R4(3,27)-R2(5,30)*THREE)*QX+(-R6(4,5)
     * -R4(4,13)*THREE-R4(1,27)-R2(1,30)*THREE)*QZ+(-R5(4,14)
     * -R3(4,22)*THREE-R3(1,42)-R1(1,34)*THREE)*XZ
      F(3,5,1,2)= -R7(10,1)-R5(10,4)*THREE-R5(3,11)*THREE-R3(3,19)*NINE
     * +(-R6(10,5)-R4(10,13)*THREE-R4(3,27)*THREE-R2(5,30)*NINE)*QX+(
     * -R6(6,4)*TWO-R6(6,5)-R4(6,12)*SIX-R4(6,13)*THREE-R4(1,26)*TWO
     * -R4(1,27)-R2(1,29)*SIX-R2(1,30)*THREE)*QZ+(-R5(6,13)*TWO-R5(6,14)
     * -R3(6,21)*SIX-R3(6,22)*THREE-R3(1,41)*TWO-R3(1,42)-R1(1,33)*SIX
     * -R1(1,34)*THREE)*XZ+(-R5(3,12)-R5(3,13)*TWO-R3(3,20)*THREE
     * -R3(3,21)*SIX)*ZZ+(-R4(3,28)-R4(3,29)*TWO-R2(5,31)*THREE
     * -R2(5,32)*SIX)*XZZ+(-R4(1,28)-R2(1,31)*THREE)*ZZZ+(-R3(1,43)
     * -R1(1,35)*THREE)*XZZZ
      F(4,5,1,2)= -R7(5,1)-R5(5,4)*THREE-R5(5,11)-R3(5,19)*THREE+(
     * -R6(5,4)-R6(5,5)-R4(5,12)*THREE-R4(5,13)*THREE)*QX+(-R6(2,5)
     * -R4(2,13)*THREE-R4(2,27)-R2(4,30)*THREE)*QZ+(-R5(5,13)
     * -R3(5,21)*THREE)*XX+(-R5(2,13)-R5(2,14)-R3(2,21)*THREE
     * -R3(2,22)*THREE)*XZ+(-R4(2,29)-R2(4,32)*THREE)*XXZ
      F(5,5,1,2)= -R7(6,1)-R5(6,4)*THREE-R5(1,11)-R5(6,11)
     * -R3(1,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(-R6(6,4)
     * -R6(6,5)-R4(6,12)*THREE-R4(6,13)*THREE-R4(1,26)-R4(1,27)
     * -R2(1,29)*THREE-R2(1,30)*THREE)*QX+(-R6(3,4)-R6(3,5)
     * -R4(3,12)*THREE-R4(3,13)*THREE-R4(3,26)-R4(3,27)-R2(5,29)*THREE
     * -R2(5,30)*THREE)*QZ+(-R5(6,13)-R3(6,21)*THREE-R3(1,41)
     * -R1(1,33)*THREE)*XX+(-R5(3,12)-R5(3,13)*TWO-R5(3,14)
     * -R3(3,20)*THREE-R3(3,21)*SIX-R3(3,22)*THREE)*XZ+(-R5(1,13)
     * -R3(1,21)*THREE-R3(1,41)-R1(1,33)*THREE)*ZZ+(-R4(3,28)-R4(3,29)
     * -R2(5,31)*THREE-R2(5,32)*THREE)*XXZ+(-R4(1,28)-R4(1,29)
     * -R2(1,31)*THREE-R2(1,32)*THREE)*XZZ+(-R3(1,43)-R1(1,35)*THREE)
     * *XXZZ
      F(6,5,1,2)= -R7(9,1)-R5(9,4)*THREE-R5(2,11)-R3(2,19)*THREE+(
     * -R6(9,5)-R4(9,13)*THREE-R4(2,27)-R2(4,30)*THREE)*QX+(-R6(5,4)
     * -R6(5,5)-R4(5,12)*THREE-R4(5,13)*THREE)*QZ+(-R5(5,13)-R5(5,14)
     * -R3(5,21)*THREE-R3(5,22)*THREE)*XZ+(-R5(2,13)-R3(2,21)*THREE)*ZZ
     * +(-R4(2,29)-R2(4,32)*THREE)*XZZ
      F(1,6,1,2)= -R7(5,1)-R5(5,4)*THREE-R5(5,11)-R3(5,19)*THREE+(
     * -R6(5,4)*TWO-R4(5,12)*SIX)*QX+(-R6(2,5)-R4(2,13)*THREE-R4(2,27)
     * -R2(4,30)*THREE)*QZ+(-R5(5,12)-R3(5,20)*THREE)*XX+(-R5(2,13)*TWO
     * -R3(2,21)*SIX)*XZ+(-R4(2,28)-R2(4,31)*THREE)*XXZ
      F(2,6,1,2)= -R7(12,1)-R5(12,4)*THREE-R5(5,11)*THREE-R3(5,19)*NINE
     * +(-R6(7,5)-R4(7,13)*THREE-R4(2,27)*THREE-R2(4,30)*NINE)*QZ
      F(3,6,1,2)= -R7(14,1)-R5(14,4)*THREE-R5(5,11)*THREE-R3(5,19)*NINE
     * +(-R6(9,4)*TWO-R6(9,5)-R4(9,12)*SIX-R4(9,13)*THREE-R4(2,26)*TWO
     * -R4(2,27)-R2(4,29)*SIX-R2(4,30)*THREE)*QZ+(-R5(5,12)-R5(5,13)*TWO
     * -R3(5,20)*THREE-R3(5,21)*SIX)*ZZ+(-R4(2,28)-R2(4,31)*THREE)*ZZZ
      F(4,6,1,2)= -R7(8,1)-R5(8,4)*THREE-R5(3,11)-R3(3,19)*THREE+(
     * -R6(8,4)-R4(8,12)*THREE-R4(3,26)-R2(5,29)*THREE)*QX+(-R6(4,5)
     * -R4(4,13)*THREE-R4(1,27)-R2(1,30)*THREE)*QZ+(-R5(4,13)
     * -R3(4,21)*THREE-R3(1,41)-R1(1,33)*THREE)*XZ
      F(5,6,1,2)= -R7(9,1)-R5(9,4)*THREE-R5(2,11)-R3(2,19)*THREE+(
     * -R6(9,4)-R4(9,12)*THREE-R4(2,26)-R2(4,29)*THREE)*QX+(-R6(5,4)
     * -R6(5,5)-R4(5,12)*THREE-R4(5,13)*THREE)*QZ+(-R5(5,12)-R5(5,13)
     * -R3(5,20)*THREE-R3(5,21)*THREE)*XZ+(-R5(2,13)-R3(2,21)*THREE)*ZZ
     * +(-R4(2,28)-R2(4,31)*THREE)*XZZ
      F(6,6,1,2)= -R7(13,1)-R5(13,4)*THREE-R5(4,11)-R5(6,11)
     * -R3(4,19)*THREE-R3(6,19)*THREE-R3(1,39)-R1(1,31)*THREE+(-R6(8,4)
     * -R6(8,5)-R4(8,12)*THREE-R4(8,13)*THREE-R4(3,26)-R4(3,27)
     * -R2(5,29)*THREE-R2(5,30)*THREE)*QZ+(-R5(4,13)-R3(4,21)*THREE
     * -R3(1,41)-R1(1,33)*THREE)*ZZ
      F(1,1,2,2)= -R7(4,1)-R5(1,4)-R5(4,11)*SIX-R3(1,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE+(-R6(4,4)*TWO-R6(4,5)*TWO
     * -R4(1,12)*TWO-R4(1,13)*TWO-R4(4,26)*SIX-R4(4,27)*SIX-R2(1,29)*SIX
     * -R2(1,30)*SIX)*QX+(-R5(4,12)-R5(4,13)*FOUR-R5(4,14)-R3(1,20)
     * -R3(1,21)*FOUR-R3(1,22)-R3(4,40)-R3(4,41)*FOUR-R3(4,42)-R1(1,32)
     * -R1(1,33)*FOUR-R1(1,34))*XX+(-R4(4,28)*TWO-R4(4,29)*TWO
     * -R2(1,31)*TWO-R2(1,32)*TWO)*XXX+(-R3(4,43)-R1(1,35))*XXXX
      F(2,1,2,2)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,5)*TWO-R4(4,13)*TWO-R4(4,27)*TWO
     * -R2(1,30)*TWO)*QX+(-R5(11,14)-R3(4,22)-R3(4,42)-R1(1,34))*XX
      F(3,1,2,2)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,5)*TWO-R4(6,13)*TWO-R4(4,27)*TWO
     * -R2(1,30)*TWO)*QX+(-R6(8,4)*TWO-R4(3,12)*TWO-R4(8,26)*TWO
     * -R2(5,29)*TWO)*QZ+(-R5(13,14)-R3(6,22)-R3(4,42)-R1(1,34))*XX+(
     * -R5(8,13)*FOUR-R3(3,21)*FOUR)*XZ+(-R5(4,12)-R3(1,20)-R3(4,40)
     * -R1(1,32))*ZZ+(-R4(8,29)*TWO-R2(5,32)*TWO)*XXZ+(-R4(4,28)*TWO
     * -R2(1,31)*TWO)*XZZ+(-R3(4,43)-R1(1,35))*XXZZ
      F(4,1,2,2)= -R7(7,1)-R5(2,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(7,4)-R6(7,5)*TWO-R4(2,12)-R4(2,13)*TWO-R4(7,26)-R4(7,27)*TWO
     * -R2(4,29)-R2(4,30)*TWO)*QX+(-R5(7,13)*TWO-R5(7,14)-R3(2,21)*TWO
     * -R3(2,22))*XX+(-R4(7,29)-R2(4,32))*XXX
      F(5,1,2,2)= -R7(8,1)-R5(3,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(8,4)-R6(8,5)*TWO-R4(3,12)-R4(3,13)*TWO-R4(8,26)-R4(8,27)*TWO
     * -R2(5,29)-R2(5,30)*TWO)*QX+(-R6(4,4)-R4(1,12)-R4(4,26)*THREE
     * -R2(1,29)*THREE)*QZ+(-R5(8,13)*TWO-R5(8,14)-R3(3,21)*TWO-R3(3,22)
     * )*XX+(-R5(4,12)-R5(4,13)*TWO-R3(1,20)-R3(1,21)*TWO-R3(4,40)
     * -R3(4,41)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ+(-R4(8,29)-R2(5,32))*XXX
     * +(-R4(4,28)*TWO-R4(4,29)-R2(1,31)*TWO-R2(1,32))*XXZ+(-R3(4,43)
     * -R1(1,35))*XXXZ
      F(6,1,2,2)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,5)*TWO
     * -R4(5,13)*TWO)*QX+(-R6(7,4)-R4(2,12)-R4(7,26)-R2(4,29))*QZ+(
     * -R5(12,14)-R3(5,22))*XX+(-R5(7,13)*TWO-R3(2,21)*TWO)*XZ+(
     * -R4(7,29)-R2(4,32))*XXZ
      F(1,2,2,2)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,4)*TWO-R4(4,12)*TWO-R4(4,26)*TWO
     * -R2(1,29)*TWO)*QX+(-R5(11,12)-R3(4,20)-R3(4,40)-R1(1,32))*XX
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20B
      SUBROUTINE MCDV20B(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(2,2,2,2)= -R7(22,1)-R5(11,4)-R5(11,11)*SIX-R3(4,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE
      F(3,2,2,2)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,4)*TWO-R4(8,12)*TWO
     * -R4(8,26)*TWO-R2(5,29)*TWO)*QZ+(-R5(11,12)-R3(4,20)-R3(4,40)
     * -R1(1,32))*ZZ
      F(4,2,2,2)= -R7(16,1)-R5(7,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(16,4)-R4(7,12)-R4(7,26)*THREE-R2(4,29)*THREE)*QX
      F(5,2,2,2)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,4)
     * -R4(8,12)-R4(8,26)-R2(5,29))*QX+(-R6(11,4)-R4(4,12)-R4(4,26)
     * -R2(1,29))*QZ+(-R5(11,12)-R3(4,20)-R3(4,40)-R1(1,32))*XZ
      F(6,2,2,2)= -R7(23,1)-R5(12,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(16,4)-R4(7,12)-R4(7,26)*THREE-R2(4,29)*THREE)*QZ
      F(1,3,2,2)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,4)*TWO-R4(6,12)*TWO-R4(4,26)*TWO
     * -R2(1,29)*TWO)*QX+(-R6(8,5)*TWO-R4(3,13)*TWO-R4(8,27)*TWO
     * -R2(5,30)*TWO)*QZ+(-R5(13,12)-R3(6,20)-R3(4,40)-R1(1,32))*XX+(
     * -R5(8,13)*FOUR-R3(3,21)*FOUR)*XZ+(-R5(4,14)-R3(1,22)-R3(4,42)
     * -R1(1,34))*ZZ+(-R4(8,28)*TWO-R2(5,31)*TWO)*XXZ+(-R4(4,29)*TWO
     * -R2(1,32)*TWO)*XZZ+(-R3(4,43)-R1(1,35))*XXZZ
      F(2,3,2,2)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,5)*TWO-R4(8,13)*TWO
     * -R4(8,27)*TWO-R2(5,30)*TWO)*QZ+(-R5(11,14)-R3(4,22)-R3(4,42)
     * -R1(1,34))*ZZ
      F(3,3,2,2)= -R7(26,1)-R5(15,4)-R5(13,11)*SIX-R3(6,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE+(-R6(19,4)*TWO-R6(19,5)*TWO
     * -R4(10,12)*TWO-R4(10,13)*TWO-R4(8,26)*SIX-R4(8,27)*SIX
     * -R2(5,29)*SIX-R2(5,30)*SIX)*QZ+(-R5(13,12)-R5(13,13)*FOUR
     * -R5(13,14)-R3(6,20)-R3(6,21)*FOUR-R3(6,22)-R3(4,40)-R3(4,41)*FOUR
     * -R3(4,42)-R1(1,32)-R1(1,33)*FOUR-R1(1,34))*ZZ+(-R4(8,28)*TWO
     * -R4(8,29)*TWO-R2(5,31)*TWO-R2(5,32)*TWO)*ZZZ+(-R3(4,43)-R1(1,35))
     * *ZZZZ
      F(4,3,2,2)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,4)
     * -R4(9,12)-R4(7,26)-R2(4,29))*QX+(-R6(12,5)*TWO-R4(5,13)*TWO)*QZ+(
     * -R5(12,13)*TWO-R3(5,21)*TWO)*XZ+(-R5(7,14)-R3(2,22))*ZZ+(
     * -R4(7,29)-R2(4,32))*XZZ
      F(5,3,2,2)= -R7(19,1)-R5(10,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(19,4)-R4(10,12)-R4(8,26)*THREE-R2(5,29)*THREE)*QX+(-R6(13,4)
     * -R6(13,5)*TWO-R4(6,12)-R4(6,13)*TWO-R4(4,26)-R4(4,27)*TWO
     * -R2(1,29)-R2(1,30)*TWO)*QZ+(-R5(13,12)-R5(13,13)*TWO-R3(6,20)
     * -R3(6,21)*TWO-R3(4,40)-R3(4,41)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ+(
     * -R5(8,13)*TWO-R5(8,14)-R3(3,21)*TWO-R3(3,22))*ZZ+(-R4(8,28)*TWO
     * -R4(8,29)-R2(5,31)*TWO-R2(5,32))*XZZ+(-R4(4,29)-R2(1,32))*ZZZ+(
     * -R3(4,43)-R1(1,35))*XZZZ
      F(6,3,2,2)= -R7(25,1)-R5(14,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(18,4)-R6(18,5)*TWO-R4(9,12)-R4(9,13)*TWO-R4(7,26)
     * -R4(7,27)*TWO-R2(4,29)-R2(4,30)*TWO)*QZ+(-R5(12,13)*TWO-R5(12,14)
     * -R3(5,21)*TWO-R3(5,22))*ZZ+(-R4(7,29)-R2(4,32))*ZZZ
      F(1,4,2,2)= -R7(7,1)-R5(2,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(7,4)*TWO-R6(7,5)-R4(2,12)*TWO-R4(2,13)-R4(7,26)*TWO-R4(7,27)
     * -R2(4,29)*TWO-R2(4,30))*QX+(-R5(7,12)-R5(7,13)*TWO-R3(2,20)
     * -R3(2,21)*TWO)*XX+(-R4(7,28)-R2(4,31))*XXX
      F(2,4,2,2)= -R7(16,1)-R5(7,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(16,5)-R4(7,13)-R4(7,27)*THREE-R2(4,30)*THREE)*QX
      F(3,4,2,2)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,5)
     * -R4(9,13)-R4(7,27)-R2(4,30))*QX+(-R6(12,4)*TWO-R4(5,12)*TWO)*QZ+(
     * -R5(12,13)*TWO-R3(5,21)*TWO)*XZ+(-R5(7,12)-R3(2,20))*ZZ+(
     * -R4(7,28)-R2(4,31))*XZZ
      F(4,4,2,2)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,4)-R6(11,5)-R4(4,12)-R4(4,13)-R4(4,26)
     * -R4(4,27)-R2(1,29)-R2(1,30))*QX+(-R5(11,13)-R3(4,21)-R3(4,41)
     * -R1(1,33))*XX
      F(5,4,2,2)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)
     * -R6(12,5)-R4(5,12)-R4(5,13))*QX+(-R6(7,4)-R4(2,12)-R4(7,26)
     * -R2(4,29))*QZ+(-R5(12,13)-R3(5,21))*XX+(-R5(7,12)-R5(7,13)
     * -R3(2,20)-R3(2,21))*XZ+(-R4(7,28)-R2(4,31))*XXZ
      F(6,4,2,2)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,5)
     * -R4(8,13)-R4(8,27)-R2(5,30))*QX+(-R6(11,4)-R4(4,12)-R4(4,26)
     * -R2(1,29))*QZ+(-R5(11,13)-R3(4,21)-R3(4,41)-R1(1,33))*XZ
      F(1,5,2,2)= -R7(8,1)-R5(3,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(8,4)*TWO-R6(8,5)-R4(3,12)*TWO-R4(3,13)-R4(8,26)*TWO-R4(8,27)
     * -R2(5,29)*TWO-R2(5,30))*QX+(-R6(4,5)-R4(1,13)-R4(4,27)*THREE
     * -R2(1,30)*THREE)*QZ+(-R5(8,12)-R5(8,13)*TWO-R3(3,20)-R3(3,21)*TWO
     * )*XX+(-R5(4,13)*TWO-R5(4,14)-R3(1,21)*TWO-R3(1,22)-R3(4,41)*TWO
     * -R3(4,42)-R1(1,33)*TWO-R1(1,34))*XZ+(-R4(8,28)-R2(5,31))*XXX+(
     * -R4(4,28)-R4(4,29)*TWO-R2(1,31)-R2(1,32)*TWO)*XXZ+(-R3(4,43)
     * -R1(1,35))*XXXZ
      F(2,5,2,2)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,5)
     * -R4(8,13)-R4(8,27)-R2(5,30))*QX+(-R6(11,5)-R4(4,13)-R4(4,27)
     * -R2(1,30))*QZ+(-R5(11,14)-R3(4,22)-R3(4,42)-R1(1,34))*XZ
      F(3,5,2,2)= -R7(19,1)-R5(10,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(19,5)-R4(10,13)-R4(8,27)*THREE-R2(5,30)*THREE)*QX+(
     * -R6(13,4)*TWO-R6(13,5)-R4(6,12)*TWO-R4(6,13)-R4(4,26)*TWO
     * -R4(4,27)-R2(1,29)*TWO-R2(1,30))*QZ+(-R5(13,13)*TWO-R5(13,14)
     * -R3(6,21)*TWO-R3(6,22)-R3(4,41)*TWO-R3(4,42)-R1(1,33)*TWO
     * -R1(1,34))*XZ+(-R5(8,12)-R5(8,13)*TWO-R3(3,20)-R3(3,21)*TWO)*ZZ+(
     * -R4(8,28)-R4(8,29)*TWO-R2(5,31)-R2(5,32)*TWO)*XZZ+(-R4(4,28)
     * -R2(1,31))*ZZZ+(-R3(4,43)-R1(1,35))*XZZZ
      F(4,5,2,2)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)
     * -R6(12,5)-R4(5,12)-R4(5,13))*QX+(-R6(7,5)-R4(2,13)-R4(7,27)
     * -R2(4,30))*QZ+(-R5(12,13)-R3(5,21))*XX+(-R5(7,13)-R5(7,14)
     * -R3(2,21)-R3(2,22))*XZ+(-R4(7,29)-R2(4,32))*XXZ
      F(5,5,2,2)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,4)-R6(13,5)-R4(6,12)-R4(6,13)-R4(4,26)
     * -R4(4,27)-R2(1,29)-R2(1,30))*QX+(-R6(8,4)-R6(8,5)-R4(3,12)
     * -R4(3,13)-R4(8,26)-R4(8,27)-R2(5,29)-R2(5,30))*QZ+(-R5(13,13)
     * -R3(6,21)-R3(4,41)-R1(1,33))*XX+(-R5(8,12)-R5(8,13)*TWO-R5(8,14)
     * -R3(3,20)-R3(3,21)*TWO-R3(3,22))*XZ+(-R5(4,13)-R3(1,21)-R3(4,41)
     * -R1(1,33))*ZZ+(-R4(8,28)-R4(8,29)-R2(5,31)-R2(5,32))*XXZ+(
     * -R4(4,28)-R4(4,29)-R2(1,31)-R2(1,32))*XZZ+(-R3(4,43)-R1(1,35))
     * *XXZZ
      F(6,5,2,2)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,5)
     * -R4(9,13)-R4(7,27)-R2(4,30))*QX+(-R6(12,4)-R6(12,5)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(12,13)-R5(12,14)-R3(5,21)-R3(5,22))*XZ+(
     * -R5(7,13)-R3(2,21))*ZZ+(-R4(7,29)-R2(4,32))*XZZ
      F(1,6,2,2)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)*TWO
     * -R4(5,12)*TWO)*QX+(-R6(7,5)-R4(2,13)-R4(7,27)-R2(4,30))*QZ+(
     * -R5(12,12)-R3(5,20))*XX+(-R5(7,13)*TWO-R3(2,21)*TWO)*XZ+(
     * -R4(7,28)-R2(4,31))*XXZ
      F(2,6,2,2)= -R7(23,1)-R5(12,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(16,5)-R4(7,13)-R4(7,27)*THREE-R2(4,30)*THREE)*QZ
      F(3,6,2,2)= -R7(25,1)-R5(14,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(18,4)*TWO-R6(18,5)-R4(9,12)*TWO-R4(9,13)-R4(7,26)*TWO
     * -R4(7,27)-R2(4,29)*TWO-R2(4,30))*QZ+(-R5(12,12)-R5(12,13)*TWO
     * -R3(5,20)-R3(5,21)*TWO)*ZZ+(-R4(7,28)-R2(4,31))*ZZZ
      F(4,6,2,2)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,4)
     * -R4(8,12)-R4(8,26)-R2(5,29))*QX+(-R6(11,5)-R4(4,13)-R4(4,27)
     * -R2(1,30))*QZ+(-R5(11,13)-R3(4,21)-R3(4,41)-R1(1,33))*XZ
      F(5,6,2,2)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,4)
     * -R4(9,12)-R4(7,26)-R2(4,29))*QX+(-R6(12,4)-R6(12,5)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(12,12)-R5(12,13)-R3(5,20)-R3(5,21))*XZ+(
     * -R5(7,13)-R3(2,21))*ZZ+(-R4(7,28)-R2(4,31))*XZZ
      F(6,6,2,2)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,4)-R6(17,5)-R4(8,12)-R4(8,13)
     * -R4(8,26)-R4(8,27)-R2(5,29)-R2(5,30))*QZ+(-R5(11,13)-R3(4,21)
     * -R3(4,41)-R1(1,33))*ZZ
      F(1,1,3,2)= -R7(6,1)+R6(3,3)*TWO-R5(1,3)-R5(1,4)-R5(6,11)*SIX
     * +R4(3,18)*TWELV-R3(1,15)*SIX-R3(1,19)*SIX-R3(6,39)*THREE
     * +R2(5,42)*SIX-R1(1,26)*THREE-R1(1,31)*THREE+(-R6(6,4)*TWO
     * -R6(6,5)*TWO+R5(3,7)*FOUR+R5(3,8)*FOUR-R4(1,10)*TWO-R4(1,11)*TWO
     * -R4(1,12)*TWO-R4(1,13)*TWO-R4(6,26)*SIX-R4(6,27)*SIX
     * +R3(3,31)*TWELV+R3(3,32)*TWELV-R2(1,25)*SIX-R2(1,26)*SIX
     * -R2(1,29)*SIX-R2(1,30)*SIX)*QX+(-R5(6,12)-R5(6,13)*FOUR-R5(6,14)
     * +R4(3,19)*TWO+R4(3,20)*EIGHT+R4(3,21)*TWO-R3(1,16)-R3(1,17)*FOUR
     * -R3(1,18)-R3(1,20)-R3(1,21)*FOUR-R3(1,22)-R3(6,40)-R3(6,41)*FOUR
     * -R3(6,42)+R2(5,43)*TWO+R2(5,44)*EIGHT+R2(5,45)*TWO-R1(1,27)
     * -R1(1,28)*FOUR-R1(1,29)-R1(1,32)-R1(1,33)*FOUR-R1(1,34))*XX+(
     * -R4(6,28)*TWO-R4(6,29)*TWO+R3(3,33)*FOUR+R3(3,34)*FOUR
     * -R2(1,27)*TWO-R2(1,28)*TWO-R2(1,31)*TWO-R2(1,32)*TWO)*XXX+(
     * -R3(6,43)+R2(5,46)*TWO-R1(1,30)-R1(1,35))*XXXX
      F(2,1,3,2)= -R7(13,1)+R6(8,3)*TWO-R5(4,3)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)*TWO+R4(8,18)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(13,5)*TWO
     * +R5(8,8)*FOUR-R4(4,11)*TWO-R4(4,13)*TWO-R4(6,27)*TWO
     * +R3(3,32)*FOUR-R2(1,26)*TWO-R2(1,30)*TWO)*QX+(-R5(13,14)
     * +R4(8,21)*TWO-R3(4,18)-R3(4,22)-R3(6,42)+R2(5,45)*TWO-R1(1,29)
     * -R1(1,34))*XX
      F(3,1,3,2)= -R7(15,1)+R6(10,3)*TWO-R5(6,3)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)*TWO+R4(10,18)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(15,5)*TWO
     * +R5(10,8)*FOUR-R4(6,11)*TWO-R4(6,13)*TWO-R4(6,27)*TWO
     * +R3(3,32)*FOUR-R2(1,26)*TWO-R2(1,30)*TWO)*QX+(-R6(10,4)*TWO
     * +R5(6,7)*FOUR-R4(3,10)*TWO-R4(3,12)*TWO-R4(10,26)*TWO
     * +R3(6,31)*FOUR-R2(5,25)*TWO-R2(5,29)*TWO)*QZ+(-R5(15,14)
     * +R4(10,21)*TWO-R3(6,18)-R3(6,22)-R3(6,42)+R2(5,45)*TWO-R1(1,29)
     * -R1(1,34))*XX+(-R5(10,13)*FOUR+R4(6,20)*EIGHT-R3(3,17)*FOUR
     * -R3(3,21)*FOUR)*XZ+(-R5(6,12)+R4(3,19)*TWO-R3(1,16)-R3(1,20)
     * -R3(6,40)+R2(5,43)*TWO-R1(1,27)-R1(1,32))*ZZ+(-R4(10,29)*TWO
     * +R3(6,34)*FOUR-R2(5,28)*TWO-R2(5,32)*TWO)*XXZ+(-R4(6,28)*TWO
     * +R3(3,33)*FOUR-R2(1,27)*TWO-R2(1,31)*TWO)*XZZ+(-R3(6,43)
     * +R2(5,46)*TWO-R1(1,30)-R1(1,35))*XXZZ
      F(4,1,3,2)= -R7(9,1)+R6(5,3)*TWO-R5(2,3)-R5(2,4)-R5(9,11)*THREE
     * +R4(5,18)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(-R6(9,4)-R6(9,5)*TWO
     * +R5(5,7)*TWO+R5(5,8)*FOUR-R4(2,10)-R4(2,11)*TWO-R4(2,12)
     * -R4(2,13)*TWO-R4(9,26)-R4(9,27)*TWO+R3(5,31)*TWO+R3(5,32)*FOUR
     * -R2(4,25)-R2(4,26)*TWO-R2(4,29)-R2(4,30)*TWO)*QX+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,20)*FOUR+R4(5,21)*TWO-R3(2,17)*TWO-R3(2,18)
     * -R3(2,21)*TWO-R3(2,22))*XX+(-R4(9,29)+R3(5,34)*TWO-R2(4,28)
     * -R2(4,32))*XXX
      F(5,1,3,2)= -R7(10,1)+R6(6,3)*TWO-R5(3,3)-R5(3,4)-R5(10,11)*THREE
     * +R4(6,18)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(-R6(10,4)
     * -R6(10,5)*TWO+R5(6,7)*TWO+R5(6,8)*FOUR-R4(3,10)-R4(3,11)*TWO
     * -R4(3,12)-R4(3,13)*TWO-R4(10,26)-R4(10,27)*TWO+R3(6,31)*TWO
     * +R3(6,32)*FOUR-R2(5,25)-R2(5,26)*TWO-R2(5,29)-R2(5,30)*TWO)*QX+(
     * -R6(6,4)+R5(3,7)*TWO-R4(1,10)-R4(1,12)-R4(6,26)*THREE
     * +R3(3,31)*SIX-R2(1,25)*THREE-R2(1,29)*THREE)*QZ+(-R5(10,13)*TWO
     * -R5(10,14)+R4(6,20)*FOUR+R4(6,21)*TWO-R3(3,17)*TWO-R3(3,18)
     * -R3(3,21)*TWO-R3(3,22))*XX+(-R5(6,12)-R5(6,13)*TWO+R4(3,19)*TWO
     * +R4(3,20)*FOUR-R3(1,16)-R3(1,17)*TWO-R3(1,20)-R3(1,21)*TWO
     * -R3(6,40)-R3(6,41)*TWO+R2(5,43)*TWO+R2(5,44)*FOUR-R1(1,27)
     * -R1(1,28)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ+(-R4(10,29)+R3(6,34)*TWO
     * -R2(5,28)-R2(5,32))*XXX+(-R4(6,28)*TWO-R4(6,29)+R3(3,33)*FOUR
     * +R3(3,34)*TWO-R2(1,27)*TWO-R2(1,28)-R2(1,31)*TWO-R2(1,32))*XXZ+(
     * -R3(6,43)+R2(5,46)*TWO-R1(1,30)-R1(1,35))*XXXZ
      F(6,1,3,2)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(14,5)*TWO+R5(9,8)*FOUR
     * -R4(5,11)*TWO-R4(5,13)*TWO)*QX+(-R6(9,4)+R5(5,7)*TWO-R4(2,10)
     * -R4(2,12)-R4(9,26)+R3(5,31)*TWO-R2(4,25)-R2(4,29))*QZ+(-R5(14,14)
     * +R4(9,21)*TWO-R3(5,18)-R3(5,22))*XX+(-R5(9,13)*TWO+R4(5,20)*FOUR
     * -R3(2,17)*TWO-R3(2,21)*TWO)*XZ+(-R4(9,29)+R3(5,34)*TWO-R2(4,28)
     * -R2(4,32))*XXZ
      F(1,2,3,2)= -R7(13,1)+R6(8,3)*TWO-R5(4,3)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)*TWO+R4(8,18)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(13,4)*TWO
     * +R5(8,7)*FOUR-R4(4,10)*TWO-R4(4,12)*TWO-R4(6,26)*TWO
     * +R3(3,31)*FOUR-R2(1,25)*TWO-R2(1,29)*TWO)*QX+(-R5(13,12)
     * +R4(8,19)*TWO-R3(4,16)-R3(4,20)-R3(6,40)+R2(5,43)*TWO-R1(1,27)
     * -R1(1,32))*XX
      F(2,2,3,2)= -R7(24,1)+R6(17,3)*TWO-R5(11,3)-R5(11,4)-R5(13,11)*SIX
     * +R4(8,18)*TWELV-R3(4,15)*SIX-R3(4,19)*SIX-R3(6,39)*THREE
     * +R2(5,42)*SIX-R1(1,26)*THREE-R1(1,31)*THREE
      F(3,2,3,2)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * -R5(15,11)+R4(8,18)*TWO+R4(10,18)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(19,4)*TWO
     * +R5(13,7)*FOUR-R4(8,10)*TWO-R4(8,12)*TWO-R4(10,26)*TWO
     * +R3(6,31)*FOUR-R2(5,25)*TWO-R2(5,29)*TWO)*QZ+(-R5(13,12)
     * +R4(8,19)*TWO-R3(4,16)-R3(4,20)-R3(6,40)+R2(5,43)*TWO-R1(1,27)
     * -R1(1,32))*ZZ
      F(4,2,3,2)= -R7(18,1)+R6(12,3)*TWO-R5(7,3)-R5(7,4)-R5(9,11)*THREE
     * +R4(5,18)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(-R6(18,4)
     * +R5(12,7)*TWO-R4(7,10)-R4(7,12)-R4(9,26)*THREE+R3(5,31)*SIX
     * -R2(4,25)*THREE-R2(4,29)*THREE)*QX
      F(5,2,3,2)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(10,11)
     * +R4(6,18)*TWO-R3(3,15)-R3(3,19)+(-R6(19,4)+R5(13,7)*TWO-R4(8,10)
     * -R4(8,12)-R4(10,26)+R3(6,31)*TWO-R2(5,25)-R2(5,29))*QX+(-R6(13,4)
     * +R5(8,7)*TWO-R4(4,10)-R4(4,12)-R4(6,26)+R3(3,31)*TWO-R2(1,25)
     * -R2(1,29))*QZ+(-R5(13,12)+R4(8,19)*TWO-R3(4,16)-R3(4,20)-R3(6,40)
     * +R2(5,43)*TWO-R1(1,27)-R1(1,32))*XZ
      F(6,2,3,2)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(18,4)+R5(12,7)*TWO-R4(7,10)-R4(7,12)-R4(9,26)*THREE
     * +R3(5,31)*SIX-R2(4,25)*THREE-R2(4,29)*THREE)*QZ
      F(1,3,3,2)= -R7(15,1)+R6(10,3)*TWO-R5(6,3)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)*TWO+R4(10,18)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(15,4)*TWO
     * +R5(10,7)*FOUR-R4(6,10)*TWO-R4(6,12)*TWO-R4(6,26)*TWO
     * +R3(3,31)*FOUR-R2(1,25)*TWO-R2(1,29)*TWO)*QX+(-R6(10,5)*TWO
     * +R5(6,8)*FOUR-R4(3,11)*TWO-R4(3,13)*TWO-R4(10,27)*TWO
     * +R3(6,32)*FOUR-R2(5,26)*TWO-R2(5,30)*TWO)*QZ+(-R5(15,12)
     * +R4(10,19)*TWO-R3(6,16)-R3(6,20)-R3(6,40)+R2(5,43)*TWO-R1(1,27)
     * -R1(1,32))*XX+(-R5(10,13)*FOUR+R4(6,20)*EIGHT-R3(3,17)*FOUR
     * -R3(3,21)*FOUR)*XZ+(-R5(6,14)+R4(3,21)*TWO-R3(1,18)-R3(1,22)
     * -R3(6,42)+R2(5,45)*TWO-R1(1,29)-R1(1,34))*ZZ+(-R4(10,28)*TWO
     * +R3(6,33)*FOUR-R2(5,27)*TWO-R2(5,31)*TWO)*XXZ+(-R4(6,29)*TWO
     * +R3(3,34)*FOUR-R2(1,28)*TWO-R2(1,32)*TWO)*XZZ+(-R3(6,43)
     * +R2(5,46)*TWO-R1(1,30)-R1(1,35))*XXZZ
      F(2,3,3,2)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * -R5(15,11)+R4(8,18)*TWO+R4(10,18)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(19,5)*TWO
     * +R5(13,8)*FOUR-R4(8,11)*TWO-R4(8,13)*TWO-R4(10,27)*TWO
     * +R3(6,32)*FOUR-R2(5,26)*TWO-R2(5,30)*TWO)*QZ+(-R5(13,14)
     * +R4(8,21)*TWO-R3(4,18)-R3(4,22)-R3(6,42)+R2(5,45)*TWO-R1(1,29)
     * -R1(1,34))*ZZ
      F(3,3,3,2)= -R7(28,1)+R6(21,3)*TWO-R5(15,3)-R5(15,4)-R5(15,11)*SIX
     * +R4(10,18)*TWELV-R3(6,15)*SIX-R3(6,19)*SIX-R3(6,39)*THREE
     * +R2(5,42)*SIX-R1(1,26)*THREE-R1(1,31)*THREE+(-R6(21,4)*TWO
     * -R6(21,5)*TWO+R5(15,7)*FOUR+R5(15,8)*FOUR-R4(10,10)*TWO
     * -R4(10,11)*TWO-R4(10,12)*TWO-R4(10,13)*TWO-R4(10,26)*SIX
     * -R4(10,27)*SIX+R3(6,31)*TWELV+R3(6,32)*TWELV-R2(5,25)*SIX
     * -R2(5,26)*SIX-R2(5,29)*SIX-R2(5,30)*SIX)*QZ+(-R5(15,12)
     * -R5(15,13)*FOUR-R5(15,14)+R4(10,19)*TWO+R4(10,20)*EIGHT
     * +R4(10,21)*TWO-R3(6,16)-R3(6,17)*FOUR-R3(6,18)-R3(6,20)
     * -R3(6,21)*FOUR-R3(6,22)-R3(6,40)-R3(6,41)*FOUR-R3(6,42)
     * +R2(5,43)*TWO+R2(5,44)*EIGHT+R2(5,45)*TWO-R1(1,27)-R1(1,28)*FOUR
     * -R1(1,29)-R1(1,32)-R1(1,33)*FOUR-R1(1,34))*ZZ+(-R4(10,28)*TWO
     * -R4(10,29)*TWO+R3(6,33)*FOUR+R3(6,34)*FOUR-R2(5,27)*TWO
     * -R2(5,28)*TWO-R2(5,31)*TWO-R2(5,32)*TWO)*ZZZ+(-R3(6,43)
     * +R2(5,46)*TWO-R1(1,30)-R1(1,35))*ZZZZ
      F(4,3,3,2)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * +R4(5,18)*TWO-R3(2,15)-R3(2,19)+(-R6(20,4)+R5(14,7)*TWO-R4(9,10)
     * -R4(9,12)-R4(9,26)+R3(5,31)*TWO-R2(4,25)-R2(4,29))*QX+(
     * -R6(14,5)*TWO+R5(9,8)*FOUR-R4(5,11)*TWO-R4(5,13)*TWO)*QZ+(
     * -R5(14,13)*TWO+R4(9,20)*FOUR-R3(5,17)*TWO-R3(5,21)*TWO)*XZ+(
     * -R5(9,14)+R4(5,21)*TWO-R3(2,18)-R3(2,22))*ZZ+(-R4(9,29)
     * +R3(5,34)*TWO-R2(4,28)-R2(4,32))*XZZ
      F(5,3,3,2)= -R7(21,1)+R6(15,3)*TWO-R5(10,3)-R5(10,4)
     * -R5(10,11)*THREE+R4(6,18)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * -R6(21,4)+R5(15,7)*TWO-R4(10,10)-R4(10,12)-R4(10,26)*THREE
     * +R3(6,31)*SIX-R2(5,25)*THREE-R2(5,29)*THREE)*QX+(-R6(15,4)
     * -R6(15,5)*TWO+R5(10,7)*TWO+R5(10,8)*FOUR-R4(6,10)-R4(6,11)*TWO
     * -R4(6,12)-R4(6,13)*TWO-R4(6,26)-R4(6,27)*TWO+R3(3,31)*TWO
     * +R3(3,32)*FOUR-R2(1,25)-R2(1,26)*TWO-R2(1,29)-R2(1,30)*TWO)*QZ+(
     * -R5(15,12)-R5(15,13)*TWO+R4(10,19)*TWO+R4(10,20)*FOUR-R3(6,16)
     * -R3(6,17)*TWO-R3(6,20)-R3(6,21)*TWO-R3(6,40)-R3(6,41)*TWO
     * +R2(5,43)*TWO+R2(5,44)*FOUR-R1(1,27)-R1(1,28)*TWO-R1(1,32)
     * -R1(1,33)*TWO)*XZ+(-R5(10,13)*TWO-R5(10,14)+R4(6,20)*FOUR
     * +R4(6,21)*TWO-R3(3,17)*TWO-R3(3,18)-R3(3,21)*TWO-R3(3,22))*ZZ+(
     * -R4(10,28)*TWO-R4(10,29)+R3(6,33)*FOUR+R3(6,34)*TWO-R2(5,27)*TWO
     * -R2(5,28)-R2(5,31)*TWO-R2(5,32))*XZZ+(-R4(6,29)+R3(3,34)*TWO
     * -R2(1,28)-R2(1,32))*ZZZ+(-R3(6,43)+R2(5,46)*TWO-R1(1,30)-R1(1,35)
     * )*XZZZ
      F(6,3,3,2)= -R7(27,1)+R6(20,3)*TWO-R5(14,3)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(20,4)-R6(20,5)*TWO+R5(14,7)*TWO+R5(14,8)*FOUR-R4(9,10)
     * -R4(9,11)*TWO-R4(9,12)-R4(9,13)*TWO-R4(9,26)-R4(9,27)*TWO
     * +R3(5,31)*TWO+R3(5,32)*FOUR-R2(4,25)-R2(4,26)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QZ+(-R5(14,13)*TWO-R5(14,14)+R4(9,20)*FOUR
     * +R4(9,21)*TWO-R3(5,17)*TWO-R3(5,18)-R3(5,21)*TWO-R3(5,22))*ZZ+(
     * -R4(9,29)+R3(5,34)*TWO-R2(4,28)-R2(4,32))*ZZZ
      F(1,4,3,2)= -R7(9,1)+R6(5,3)*TWO-R5(2,3)-R5(2,4)-R5(9,11)*THREE
     * +R4(5,18)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(-R6(9,4)*TWO-R6(9,5)
     * +R5(5,7)*FOUR+R5(5,8)*TWO-R4(2,10)*TWO-R4(2,11)-R4(2,12)*TWO
     * -R4(2,13)-R4(9,26)*TWO-R4(9,27)+R3(5,31)*FOUR+R3(5,32)*TWO
     * -R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO-R2(4,30))*QX+(-R5(9,12)
     * -R5(9,13)*TWO+R4(5,19)*TWO+R4(5,20)*FOUR-R3(2,16)-R3(2,17)*TWO
     * -R3(2,20)-R3(2,21)*TWO)*XX+(-R4(9,28)+R3(5,33)*TWO-R2(4,27)
     * -R2(4,31))*XXX
      F(2,4,3,2)= -R7(18,1)+R6(12,3)*TWO-R5(7,3)-R5(7,4)-R5(9,11)*THREE
     * +R4(5,18)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(-R6(18,5)
     * +R5(12,8)*TWO-R4(7,11)-R4(7,13)-R4(9,27)*THREE+R3(5,32)*SIX
     * -R2(4,26)*THREE-R2(4,30)*THREE)*QX
      F(3,4,3,2)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * +R4(5,18)*TWO-R3(2,15)-R3(2,19)+(-R6(20,5)+R5(14,8)*TWO-R4(9,11)
     * -R4(9,13)-R4(9,27)+R3(5,32)*TWO-R2(4,26)-R2(4,30))*QX+(
     * -R6(14,4)*TWO+R5(9,7)*FOUR-R4(5,10)*TWO-R4(5,12)*TWO)*QZ+(
     * -R5(14,13)*TWO+R4(9,20)*FOUR-R3(5,17)*TWO-R3(5,21)*TWO)*XZ+(
     * -R5(9,12)+R4(5,19)*TWO-R3(2,16)-R3(2,20))*ZZ+(-R4(9,28)
     * +R3(5,33)*TWO-R2(4,27)-R2(4,31))*XZZ
      F(4,4,3,2)= -R7(13,1)+R6(8,3)*TWO-R5(4,3)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)*TWO+R4(8,18)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(13,4)
     * -R6(13,5)+R5(8,7)*TWO+R5(8,8)*TWO-R4(4,10)-R4(4,11)-R4(4,12)
     * -R4(4,13)-R4(6,26)-R4(6,27)+R3(3,31)*TWO+R3(3,32)*TWO-R2(1,25)
     * -R2(1,26)-R2(1,29)-R2(1,30))*QX+(-R5(13,13)+R4(8,20)*TWO-R3(4,17)
     * -R3(4,21)-R3(6,41)+R2(5,44)*TWO-R1(1,28)-R1(1,33))*XX
      F(5,4,3,2)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(14,4)-R6(14,5)+R5(9,7)*TWO
     * +R5(9,8)*TWO-R4(5,10)-R4(5,11)-R4(5,12)-R4(5,13))*QX+(-R6(9,4)
     * +R5(5,7)*TWO-R4(2,10)-R4(2,12)-R4(9,26)+R3(5,31)*TWO-R2(4,25)
     * -R2(4,29))*QZ+(-R5(14,13)+R4(9,20)*TWO-R3(5,17)-R3(5,21))*XX+(
     * -R5(9,12)-R5(9,13)+R4(5,19)*TWO+R4(5,20)*TWO-R3(2,16)-R3(2,17)
     * -R3(2,20)-R3(2,21))*XZ+(-R4(9,28)+R3(5,33)*TWO-R2(4,27)-R2(4,31))
     * *XXZ
      F(6,4,3,2)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(10,11)
     * +R4(6,18)*TWO-R3(3,15)-R3(3,19)+(-R6(19,5)+R5(13,8)*TWO-R4(8,11)
     * -R4(8,13)-R4(10,27)+R3(6,32)*TWO-R2(5,26)-R2(5,30))*QX+(-R6(13,4)
     * +R5(8,7)*TWO-R4(4,10)-R4(4,12)-R4(6,26)+R3(3,31)*TWO-R2(1,25)
     * -R2(1,29))*QZ+(-R5(13,13)+R4(8,20)*TWO-R3(4,17)-R3(4,21)-R3(6,41)
     * +R2(5,44)*TWO-R1(1,28)-R1(1,33))*XZ
      F(1,5,3,2)= -R7(10,1)+R6(6,3)*TWO-R5(3,3)-R5(3,4)-R5(10,11)*THREE
     * +R4(6,18)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(-R6(10,4)*TWO
     * -R6(10,5)+R5(6,7)*FOUR+R5(6,8)*TWO-R4(3,10)*TWO-R4(3,11)
     * -R4(3,12)*TWO-R4(3,13)-R4(10,26)*TWO-R4(10,27)+R3(6,31)*FOUR
     * +R3(6,32)*TWO-R2(5,25)*TWO-R2(5,26)-R2(5,29)*TWO-R2(5,30))*QX+(
     * -R6(6,5)+R5(3,8)*TWO-R4(1,11)-R4(1,13)-R4(6,27)*THREE
     * +R3(3,32)*SIX-R2(1,26)*THREE-R2(1,30)*THREE)*QZ+(-R5(10,12)
     * -R5(10,13)*TWO+R4(6,19)*TWO+R4(6,20)*FOUR-R3(3,16)-R3(3,17)*TWO
     * -R3(3,20)-R3(3,21)*TWO)*XX+(-R5(6,13)*TWO-R5(6,14)+R4(3,20)*FOUR
     * +R4(3,21)*TWO-R3(1,17)*TWO-R3(1,18)-R3(1,21)*TWO-R3(1,22)
     * -R3(6,41)*TWO-R3(6,42)+R2(5,44)*FOUR+R2(5,45)*TWO-R1(1,28)*TWO
     * -R1(1,29)-R1(1,33)*TWO-R1(1,34))*XZ+(-R4(10,28)+R3(6,33)*TWO
     * -R2(5,27)-R2(5,31))*XXX+(-R4(6,28)-R4(6,29)*TWO+R3(3,33)*TWO
     * +R3(3,34)*FOUR-R2(1,27)-R2(1,28)*TWO-R2(1,31)-R2(1,32)*TWO)*XXZ+(
     * -R3(6,43)+R2(5,46)*TWO-R1(1,30)-R1(1,35))*XXXZ
      F(2,5,3,2)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(10,11)
     * +R4(6,18)*TWO-R3(3,15)-R3(3,19)+(-R6(19,5)+R5(13,8)*TWO-R4(8,11)
     * -R4(8,13)-R4(10,27)+R3(6,32)*TWO-R2(5,26)-R2(5,30))*QX+(-R6(13,5)
     * +R5(8,8)*TWO-R4(4,11)-R4(4,13)-R4(6,27)+R3(3,32)*TWO-R2(1,26)
     * -R2(1,30))*QZ+(-R5(13,14)+R4(8,21)*TWO-R3(4,18)-R3(4,22)-R3(6,42)
     * +R2(5,45)*TWO-R1(1,29)-R1(1,34))*XZ
      F(3,5,3,2)= -R7(21,1)+R6(15,3)*TWO-R5(10,3)-R5(10,4)
     * -R5(10,11)*THREE+R4(6,18)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * -R6(21,5)+R5(15,8)*TWO-R4(10,11)-R4(10,13)-R4(10,27)*THREE
     * +R3(6,32)*SIX-R2(5,26)*THREE-R2(5,30)*THREE)*QX+(-R6(15,4)*TWO
     * -R6(15,5)+R5(10,7)*FOUR+R5(10,8)*TWO-R4(6,10)*TWO-R4(6,11)
     * -R4(6,12)*TWO-R4(6,13)-R4(6,26)*TWO-R4(6,27)+R3(3,31)*FOUR
     * +R3(3,32)*TWO-R2(1,25)*TWO-R2(1,26)-R2(1,29)*TWO-R2(1,30))*QZ+(
     * -R5(15,13)*TWO-R5(15,14)+R4(10,20)*FOUR+R4(10,21)*TWO
     * -R3(6,17)*TWO-R3(6,18)-R3(6,21)*TWO-R3(6,22)-R3(6,41)*TWO
     * -R3(6,42)+R2(5,44)*FOUR+R2(5,45)*TWO-R1(1,28)*TWO-R1(1,29)
     * -R1(1,33)*TWO-R1(1,34))*XZ+(-R5(10,12)-R5(10,13)*TWO+R4(6,19)*TWO
     * +R4(6,20)*FOUR-R3(3,16)-R3(3,17)*TWO-R3(3,20)-R3(3,21)*TWO)*ZZ+(
     * -R4(10,28)-R4(10,29)*TWO+R3(6,33)*TWO+R3(6,34)*FOUR-R2(5,27)
     * -R2(5,28)*TWO-R2(5,31)-R2(5,32)*TWO)*XZZ+(-R4(6,28)+R3(3,33)*TWO
     * -R2(1,27)-R2(1,31))*ZZZ+(-R3(6,43)+R2(5,46)*TWO-R1(1,30)-R1(1,35)
     * )*XZZZ
      F(4,5,3,2)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(14,4)-R6(14,5)+R5(9,7)*TWO
     * +R5(9,8)*TWO-R4(5,10)-R4(5,11)-R4(5,12)-R4(5,13))*QX+(-R6(9,5)
     * +R5(5,8)*TWO-R4(2,11)-R4(2,13)-R4(9,27)+R3(5,32)*TWO-R2(4,26)
     * -R2(4,30))*QZ+(-R5(14,13)+R4(9,20)*TWO-R3(5,17)-R3(5,21))*XX+(
     * -R5(9,13)-R5(9,14)+R4(5,20)*TWO+R4(5,21)*TWO-R3(2,17)-R3(2,18)
     * -R3(2,21)-R3(2,22))*XZ+(-R4(9,29)+R3(5,34)*TWO-R2(4,28)-R2(4,32))
     * *XXZ
      F(5,5,3,2)= -R7(15,1)+R6(10,3)*TWO-R5(6,3)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)*TWO+R4(10,18)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(15,4)
     * -R6(15,5)+R5(10,7)*TWO+R5(10,8)*TWO-R4(6,10)-R4(6,11)-R4(6,12)
     * -R4(6,13)-R4(6,26)-R4(6,27)+R3(3,31)*TWO+R3(3,32)*TWO-R2(1,25)
     * -R2(1,26)-R2(1,29)-R2(1,30))*QX+(-R6(10,4)-R6(10,5)+R5(6,7)*TWO
     * +R5(6,8)*TWO-R4(3,10)-R4(3,11)-R4(3,12)-R4(3,13)-R4(10,26)
     * -R4(10,27)+R3(6,31)*TWO+R3(6,32)*TWO-R2(5,25)-R2(5,26)-R2(5,29)
     * -R2(5,30))*QZ+(-R5(15,13)+R4(10,20)*TWO-R3(6,17)-R3(6,21)
     * -R3(6,41)+R2(5,44)*TWO-R1(1,28)-R1(1,33))*XX+(-R5(10,12)
     * -R5(10,13)*TWO-R5(10,14)+R4(6,19)*TWO+R4(6,20)*FOUR+R4(6,21)*TWO
     * -R3(3,16)-R3(3,17)*TWO-R3(3,18)-R3(3,20)-R3(3,21)*TWO-R3(3,22))
     * *XZ+(-R5(6,13)+R4(3,20)*TWO-R3(1,17)-R3(1,21)-R3(6,41)
     * +R2(5,44)*TWO-R1(1,28)-R1(1,33))*ZZ+(-R4(10,28)-R4(10,29)
     * +R3(6,33)*TWO+R3(6,34)*TWO-R2(5,27)-R2(5,28)-R2(5,31)-R2(5,32))
     * *XXZ+(-R4(6,28)-R4(6,29)+R3(3,33)*TWO+R3(3,34)*TWO-R2(1,27)
     * -R2(1,28)-R2(1,31)-R2(1,32))*XZZ+(-R3(6,43)+R2(5,46)*TWO-R1(1,30)
     * -R1(1,35))*XXZZ
      F(6,5,3,2)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * +R4(5,18)*TWO-R3(2,15)-R3(2,19)+(-R6(20,5)+R5(14,8)*TWO-R4(9,11)
     * -R4(9,13)-R4(9,27)+R3(5,32)*TWO-R2(4,26)-R2(4,30))*QX+(-R6(14,4)
     * -R6(14,5)+R5(9,7)*TWO+R5(9,8)*TWO-R4(5,10)-R4(5,11)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(14,13)-R5(14,14)+R4(9,20)*TWO+R4(9,21)*TWO
     * -R3(5,17)-R3(5,18)-R3(5,21)-R3(5,22))*XZ+(-R5(9,13)+R4(5,20)*TWO
     * -R3(2,17)-R3(2,21))*ZZ+(-R4(9,29)+R3(5,34)*TWO-R2(4,28)-R2(4,32))
     * *XZZ
      F(1,6,3,2)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(14,4)*TWO+R5(9,7)*FOUR
     * -R4(5,10)*TWO-R4(5,12)*TWO)*QX+(-R6(9,5)+R5(5,8)*TWO-R4(2,11)
     * -R4(2,13)-R4(9,27)+R3(5,32)*TWO-R2(4,26)-R2(4,30))*QZ+(-R5(14,12)
     * +R4(9,19)*TWO-R3(5,16)-R3(5,20))*XX+(-R5(9,13)*TWO+R4(5,20)*FOUR
     * -R3(2,17)*TWO-R3(2,21)*TWO)*XZ+(-R4(9,28)+R3(5,33)*TWO-R2(4,27)
     * -R2(4,31))*XXZ
      F(2,6,3,2)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(18,5)+R5(12,8)*TWO-R4(7,11)-R4(7,13)-R4(9,27)*THREE
     * +R3(5,32)*SIX-R2(4,26)*THREE-R2(4,30)*THREE)*QZ
      F(3,6,3,2)= -R7(27,1)+R6(20,3)*TWO-R5(14,3)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(20,4)*TWO-R6(20,5)+R5(14,7)*FOUR+R5(14,8)*TWO-R4(9,10)*TWO
     * -R4(9,11)-R4(9,12)*TWO-R4(9,13)-R4(9,26)*TWO-R4(9,27)
     * +R3(5,31)*FOUR+R3(5,32)*TWO-R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO
     * -R2(4,30))*QZ+(-R5(14,12)-R5(14,13)*TWO+R4(9,19)*TWO
     * +R4(9,20)*FOUR-R3(5,16)-R3(5,17)*TWO-R3(5,20)-R3(5,21)*TWO)*ZZ+(
     * -R4(9,28)+R3(5,33)*TWO-R2(4,27)-R2(4,31))*ZZZ
      F(4,6,3,2)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(10,11)
     * +R4(6,18)*TWO-R3(3,15)-R3(3,19)+(-R6(19,4)+R5(13,7)*TWO-R4(8,10)
     * -R4(8,12)-R4(10,26)+R3(6,31)*TWO-R2(5,25)-R2(5,29))*QX+(-R6(13,5)
     * +R5(8,8)*TWO-R4(4,11)-R4(4,13)-R4(6,27)+R3(3,32)*TWO-R2(1,26)
     * -R2(1,30))*QZ+(-R5(13,13)+R4(8,20)*TWO-R3(4,17)-R3(4,21)-R3(6,41)
     * +R2(5,44)*TWO-R1(1,28)-R1(1,33))*XZ
      F(5,6,3,2)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * +R4(5,18)*TWO-R3(2,15)-R3(2,19)+(-R6(20,4)+R5(14,7)*TWO-R4(9,10)
     * -R4(9,12)-R4(9,26)+R3(5,31)*TWO-R2(4,25)-R2(4,29))*QX+(-R6(14,4)
     * -R6(14,5)+R5(9,7)*TWO+R5(9,8)*TWO-R4(5,10)-R4(5,11)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(14,12)-R5(14,13)+R4(9,19)*TWO+R4(9,20)*TWO
     * -R3(5,16)-R3(5,17)-R3(5,20)-R3(5,21))*XZ+(-R5(9,13)+R4(5,20)*TWO
     * -R3(2,17)-R3(2,21))*ZZ+(-R4(9,28)+R3(5,33)*TWO-R2(4,27)-R2(4,31))
     * *XZZ
      F(6,6,3,2)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * -R5(15,11)+R4(8,18)*TWO+R4(10,18)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,39)+R2(5,42)*TWO-R1(1,26)-R1(1,31)+(-R6(19,4)
     * -R6(19,5)+R5(13,7)*TWO+R5(13,8)*TWO-R4(8,10)-R4(8,11)-R4(8,12)
     * -R4(8,13)-R4(10,26)-R4(10,27)+R3(6,31)*TWO+R3(6,32)*TWO-R2(5,25)
     * -R2(5,26)-R2(5,29)-R2(5,30))*QZ+(-R5(13,13)+R4(8,20)*TWO-R3(4,17)
     * -R3(4,21)-R3(6,41)+R2(5,44)*TWO-R1(1,28)-R1(1,33))*ZZ
      F(1,1,4,2)= -R7(2,1)-R5(2,4)-R5(2,11)*SIX-R3(2,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE+(-R6(2,4)*TWO-R6(2,5)*TWO
     * -R4(2,12)*TWO-R4(2,13)*TWO-R4(2,26)*SIX-R4(2,27)*SIX-R2(4,29)*SIX
     * -R2(4,30)*SIX)*QX+(-R5(2,12)-R5(2,13)*FOUR-R5(2,14)-R3(2,20)
     * -R3(2,21)*FOUR-R3(2,22)-R3(2,40)-R3(2,41)*FOUR-R3(2,42)-R1(2,32)
     * -R1(2,33)*FOUR-R1(2,34))*XX+(-R4(2,28)*TWO-R4(2,29)*TWO
     * -R2(4,31)*TWO-R2(4,32)*TWO)*XXX+(-R3(2,43)-R1(2,35))*XXXX
      F(2,1,4,2)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,5)*TWO-R4(7,13)*TWO-R4(2,27)*TWO
     * -R2(4,30)*TWO)*QX+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*XX
      F(3,1,4,2)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,5)*TWO-R4(9,13)*TWO-R4(2,27)*TWO
     * -R2(4,30)*TWO)*QX+(-R6(5,4)*TWO-R4(5,12)*TWO-R4(5,26)*TWO
     * -R2(6,29)*TWO)*QZ+(-R5(9,14)-R3(9,22)-R3(2,42)-R1(2,34))*XX+(
     * -R5(5,13)*FOUR-R3(5,21)*FOUR)*XZ+(-R5(2,12)-R3(2,20)-R3(2,40)
     * -R1(2,32))*ZZ+(-R4(5,29)*TWO-R2(6,32)*TWO)*XXZ+(-R4(2,28)*TWO
     * -R2(4,31)*TWO)*XZZ+(-R3(2,43)-R1(2,35))*XXZZ
      F(4,1,4,2)= -R7(4,1)-R5(4,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(4,4)-R6(4,5)*TWO-R4(4,12)-R4(4,13)*TWO-R4(4,26)-R4(4,27)*TWO
     * -R2(2,29)-R2(2,30)*TWO)*QX+(-R5(4,13)*TWO-R5(4,14)-R3(4,21)*TWO
     * -R3(4,22))*XX+(-R4(4,29)-R2(2,32))*XXX
      F(5,1,4,2)= -R7(5,1)-R5(5,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(5,4)-R6(5,5)*TWO-R4(5,12)-R4(5,13)*TWO-R4(5,26)-R4(5,27)*TWO
     * -R2(6,29)-R2(6,30)*TWO)*QX+(-R6(2,4)-R4(2,12)-R4(2,26)*THREE
     * -R2(4,29)*THREE)*QZ+(-R5(5,13)*TWO-R5(5,14)-R3(5,21)*TWO-R3(5,22)
     * )*XX+(-R5(2,12)-R5(2,13)*TWO-R3(2,20)-R3(2,21)*TWO-R3(2,40)
     * -R3(2,41)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(-R4(5,29)-R2(6,32))*XXX
     * +(-R4(2,28)*TWO-R4(2,29)-R2(4,31)*TWO-R2(4,32))*XXZ+(-R3(2,43)
     * -R1(2,35))*XXXZ
      F(6,1,4,2)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,5)*TWO
     * -R4(8,13)*TWO)*QX+(-R6(4,4)-R4(4,12)-R4(4,26)-R2(2,29))*QZ+(
     * -R5(8,14)-R3(8,22))*XX+(-R5(4,13)*TWO-R3(4,21)*TWO)*XZ+(-R4(4,29)
     * -R2(2,32))*XXZ
      F(1,2,4,2)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,4)*TWO-R4(7,12)*TWO-R4(2,26)*TWO
     * -R2(4,29)*TWO)*QX+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*XX
      F(2,2,4,2)= -R7(16,1)-R5(16,4)-R5(7,11)*SIX-R3(7,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE
      F(3,2,4,2)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,4)*TWO-R4(12,12)*TWO-R4(5,26)*TWO
     * -R2(6,29)*TWO)*QZ+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*ZZ
      F(4,2,4,2)= -R7(11,1)-R5(11,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(11,4)-R4(11,12)-R4(4,26)*THREE-R2(2,29)*THREE)*QX
      F(5,2,4,2)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,4)
     * -R4(12,12)-R4(5,26)-R2(6,29))*QX+(-R6(7,4)-R4(7,12)-R4(2,26)
     * -R2(4,29))*QZ+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*XZ
      F(6,2,4,2)= -R7(17,1)-R5(17,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(11,4)-R4(11,12)-R4(4,26)*THREE-R2(2,29)*THREE)*QZ
      F(1,3,4,2)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,4)*TWO-R4(9,12)*TWO-R4(2,26)*TWO
     * -R2(4,29)*TWO)*QX+(-R6(5,5)*TWO-R4(5,13)*TWO-R4(5,27)*TWO
     * -R2(6,30)*TWO)*QZ+(-R5(9,12)-R3(9,20)-R3(2,40)-R1(2,32))*XX+(
     * -R5(5,13)*FOUR-R3(5,21)*FOUR)*XZ+(-R5(2,14)-R3(2,22)-R3(2,42)
     * -R1(2,34))*ZZ+(-R4(5,28)*TWO-R2(6,31)*TWO)*XXZ+(-R4(2,29)*TWO
     * -R2(4,32)*TWO)*XZZ+(-R3(2,43)-R1(2,35))*XXZZ
      F(2,3,4,2)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,5)*TWO-R4(12,13)*TWO-R4(5,27)*TWO
     * -R2(6,30)*TWO)*QZ+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*ZZ
      F(3,3,4,2)= -R7(20,1)-R5(20,4)-R5(9,11)*SIX-R3(9,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE+(-R6(14,4)*TWO-R6(14,5)*TWO
     * -R4(14,12)*TWO-R4(14,13)*TWO-R4(5,26)*SIX-R4(5,27)*SIX
     * -R2(6,29)*SIX-R2(6,30)*SIX)*QZ+(-R5(9,12)-R5(9,13)*FOUR-R5(9,14)
     * -R3(9,20)-R3(9,21)*FOUR-R3(9,22)-R3(2,40)-R3(2,41)*FOUR-R3(2,42)
     * -R1(2,32)-R1(2,33)*FOUR-R1(2,34))*ZZ+(-R4(5,28)*TWO-R4(5,29)*TWO
     * -R2(6,31)*TWO-R2(6,32)*TWO)*ZZZ+(-R3(2,43)-R1(2,35))*ZZZZ
      F(4,3,4,2)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,4)
     * -R4(13,12)-R4(4,26)-R2(2,29))*QX+(-R6(8,5)*TWO-R4(8,13)*TWO)*QZ+(
     * -R5(8,13)*TWO-R3(8,21)*TWO)*XZ+(-R5(4,14)-R3(4,22))*ZZ+(-R4(4,29)
     * -R2(2,32))*XZZ
      F(5,3,4,2)= -R7(14,1)-R5(14,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(14,4)-R4(14,12)-R4(5,26)*THREE-R2(6,29)*THREE)*QX+(-R6(9,4)
     * -R6(9,5)*TWO-R4(9,12)-R4(9,13)*TWO-R4(2,26)-R4(2,27)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QZ+(-R5(9,12)-R5(9,13)*TWO-R3(9,20)-R3(9,21)*TWO
     * -R3(2,40)-R3(2,41)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(-R5(5,13)*TWO
     * -R5(5,14)-R3(5,21)*TWO-R3(5,22))*ZZ+(-R4(5,28)*TWO-R4(5,29)
     * -R2(6,31)*TWO-R2(6,32))*XZZ+(-R4(2,29)-R2(4,32))*ZZZ+(-R3(2,43)
     * -R1(2,35))*XZZZ
      F(6,3,4,2)= -R7(19,1)-R5(19,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(13,4)-R6(13,5)*TWO-R4(13,12)-R4(13,13)*TWO-R4(4,26)
     * -R4(4,27)*TWO-R2(2,29)-R2(2,30)*TWO)*QZ+(-R5(8,13)*TWO-R5(8,14)
     * -R3(8,21)*TWO-R3(8,22))*ZZ+(-R4(4,29)-R2(2,32))*ZZZ
      F(1,4,4,2)= -R7(4,1)-R5(4,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(4,4)*TWO-R6(4,5)-R4(4,12)*TWO-R4(4,13)-R4(4,26)*TWO-R4(4,27)
     * -R2(2,29)*TWO-R2(2,30))*QX+(-R5(4,12)-R5(4,13)*TWO-R3(4,20)
     * -R3(4,21)*TWO)*XX+(-R4(4,28)-R2(2,31))*XXX
      F(2,4,4,2)= -R7(11,1)-R5(11,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(11,5)-R4(11,13)-R4(4,27)*THREE-R2(2,30)*THREE)*QX
      F(3,4,4,2)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,5)
     * -R4(13,13)-R4(4,27)-R2(2,30))*QX+(-R6(8,4)*TWO-R4(8,12)*TWO)*QZ+(
     * -R5(8,13)*TWO-R3(8,21)*TWO)*XZ+(-R5(4,12)-R3(4,20))*ZZ+(-R4(4,28)
     * -R2(2,31))*XZZ
      F(4,4,4,2)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,4)-R6(7,5)-R4(7,12)-R4(7,13)-R4(2,26)
     * -R4(2,27)-R2(4,29)-R2(4,30))*QX+(-R5(7,13)-R3(7,21)-R3(2,41)
     * -R1(2,33))*XX
      F(5,4,4,2)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)-R6(8,5)
     * -R4(8,12)-R4(8,13))*QX+(-R6(4,4)-R4(4,12)-R4(4,26)-R2(2,29))*QZ+(
     * -R5(8,13)-R3(8,21))*XX+(-R5(4,12)-R5(4,13)-R3(4,20)-R3(4,21))*XZ
     * +(-R4(4,28)-R2(2,31))*XXZ
      F(6,4,4,2)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,5)
     * -R4(12,13)-R4(5,27)-R2(6,30))*QX+(-R6(7,4)-R4(7,12)-R4(2,26)
     * -R2(4,29))*QZ+(-R5(7,13)-R3(7,21)-R3(2,41)-R1(2,33))*XZ
      F(1,5,4,2)= -R7(5,1)-R5(5,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(5,4)*TWO-R6(5,5)-R4(5,12)*TWO-R4(5,13)-R4(5,26)*TWO-R4(5,27)
     * -R2(6,29)*TWO-R2(6,30))*QX+(-R6(2,5)-R4(2,13)-R4(2,27)*THREE
     * -R2(4,30)*THREE)*QZ+(-R5(5,12)-R5(5,13)*TWO-R3(5,20)-R3(5,21)*TWO
     * )*XX+(-R5(2,13)*TWO-R5(2,14)-R3(2,21)*TWO-R3(2,22)-R3(2,41)*TWO
     * -R3(2,42)-R1(2,33)*TWO-R1(2,34))*XZ+(-R4(5,28)-R2(6,31))*XXX+(
     * -R4(2,28)-R4(2,29)*TWO-R2(4,31)-R2(4,32)*TWO)*XXZ+(-R3(2,43)
     * -R1(2,35))*XXXZ
      F(2,5,4,2)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,5)
     * -R4(12,13)-R4(5,27)-R2(6,30))*QX+(-R6(7,5)-R4(7,13)-R4(2,27)
     * -R2(4,30))*QZ+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*XZ
      F(3,5,4,2)= -R7(14,1)-R5(14,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(14,5)-R4(14,13)-R4(5,27)*THREE-R2(6,30)*THREE)*QX+(
     * -R6(9,4)*TWO-R6(9,5)-R4(9,12)*TWO-R4(9,13)-R4(2,26)*TWO-R4(2,27)
     * -R2(4,29)*TWO-R2(4,30))*QZ+(-R5(9,13)*TWO-R5(9,14)-R3(9,21)*TWO
     * -R3(9,22)-R3(2,41)*TWO-R3(2,42)-R1(2,33)*TWO-R1(2,34))*XZ+(
     * -R5(5,12)-R5(5,13)*TWO-R3(5,20)-R3(5,21)*TWO)*ZZ+(-R4(5,28)
     * -R4(5,29)*TWO-R2(6,31)-R2(6,32)*TWO)*XZZ+(-R4(2,28)-R2(4,31))*ZZZ
     * +(-R3(2,43)-R1(2,35))*XZZZ
      F(4,5,4,2)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)-R6(8,5)
     * -R4(8,12)-R4(8,13))*QX+(-R6(4,5)-R4(4,13)-R4(4,27)-R2(2,30))*QZ+(
     * -R5(8,13)-R3(8,21))*XX+(-R5(4,13)-R5(4,14)-R3(4,21)-R3(4,22))*XZ
     * +(-R4(4,29)-R2(2,32))*XXZ
      F(5,5,4,2)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,4)-R6(9,5)-R4(9,12)-R4(9,13)-R4(2,26)
     * -R4(2,27)-R2(4,29)-R2(4,30))*QX+(-R6(5,4)-R6(5,5)-R4(5,12)
     * -R4(5,13)-R4(5,26)-R4(5,27)-R2(6,29)-R2(6,30))*QZ+(-R5(9,13)
     * -R3(9,21)-R3(2,41)-R1(2,33))*XX+(-R5(5,12)-R5(5,13)*TWO-R5(5,14)
     * -R3(5,20)-R3(5,21)*TWO-R3(5,22))*XZ+(-R5(2,13)-R3(2,21)-R3(2,41)
     * -R1(2,33))*ZZ+(-R4(5,28)-R4(5,29)-R2(6,31)-R2(6,32))*XXZ+(
     * -R4(2,28)-R4(2,29)-R2(4,31)-R2(4,32))*XZZ+(-R3(2,43)-R1(2,35))
     * *XXZZ
      F(6,5,4,2)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,5)
     * -R4(13,13)-R4(4,27)-R2(2,30))*QX+(-R6(8,4)-R6(8,5)-R4(8,12)
     * -R4(8,13))*QZ+(-R5(8,13)-R5(8,14)-R3(8,21)-R3(8,22))*XZ+(
     * -R5(4,13)-R3(4,21))*ZZ+(-R4(4,29)-R2(2,32))*XZZ
      F(1,6,4,2)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)*TWO
     * -R4(8,12)*TWO)*QX+(-R6(4,5)-R4(4,13)-R4(4,27)-R2(2,30))*QZ+(
     * -R5(8,12)-R3(8,20))*XX+(-R5(4,13)*TWO-R3(4,21)*TWO)*XZ+(-R4(4,28)
     * -R2(2,31))*XXZ
      F(2,6,4,2)= -R7(17,1)-R5(17,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(11,5)-R4(11,13)-R4(4,27)*THREE-R2(2,30)*THREE)*QZ
      F(3,6,4,2)= -R7(19,1)-R5(19,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(13,4)*TWO-R6(13,5)-R4(13,12)*TWO-R4(13,13)-R4(4,26)*TWO
     * -R4(4,27)-R2(2,29)*TWO-R2(2,30))*QZ+(-R5(8,12)-R5(8,13)*TWO
     * -R3(8,20)-R3(8,21)*TWO)*ZZ+(-R4(4,28)-R2(2,31))*ZZZ
      F(4,6,4,2)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,4)
     * -R4(12,12)-R4(5,26)-R2(6,29))*QX+(-R6(7,5)-R4(7,13)-R4(2,27)
     * -R2(4,30))*QZ+(-R5(7,13)-R3(7,21)-R3(2,41)-R1(2,33))*XZ
      F(5,6,4,2)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,4)
     * -R4(13,12)-R4(4,26)-R2(2,29))*QX+(-R6(8,4)-R6(8,5)-R4(8,12)
     * -R4(8,13))*QZ+(-R5(8,12)-R5(8,13)-R3(8,20)-R3(8,21))*XZ+(
     * -R5(4,13)-R3(4,21))*ZZ+(-R4(4,28)-R2(2,31))*XZZ
      F(6,6,4,2)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,4)-R6(12,5)-R4(12,12)-R4(12,13)
     * -R4(5,26)-R4(5,27)-R2(6,29)-R2(6,30))*QZ+(-R5(7,13)-R3(7,21)
     * -R3(2,41)-R1(2,33))*ZZ
      F(1,1,5,2)= -R7(3,1)+R6(1,3)-R5(3,4)-R5(3,11)*SIX+R4(1,5)
     * +R4(1,18)*SIX-R3(3,19)*SIX-R3(3,39)*THREE+R2(1,17)*SIX
     * +R2(1,42)*THREE-R1(3,31)*THREE+R0(21)*THREE+(-R6(3,4)*TWO
     * -R6(3,5)*TWO+R5(1,7)*TWO+R5(1,8)*TWO-R4(3,12)*TWO-R4(3,13)*TWO
     * -R4(3,26)*SIX-R4(3,27)*SIX+R3(1,9)*TWO+R3(1,10)*TWO+R3(1,31)*SIX
     * +R3(1,32)*SIX-R2(5,29)*SIX-R2(5,30)*SIX+R1(1,17)*SIX+R1(1,18)*SIX
     * )*QX+(-R5(3,12)-R5(3,13)*FOUR-R5(3,14)+R4(1,19)+R4(1,20)*FOUR
     * +R4(1,21)-R3(3,20)-R3(3,21)*FOUR-R3(3,22)-R3(3,40)-R3(3,41)*FOUR
     * -R3(3,42)+R2(1,18)+R2(1,19)*FOUR+R2(1,20)+R2(1,43)+R2(1,44)*FOUR
     * +R2(1,45)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(22)+R0(23)*FOUR
     * +R0(24))*XX+(-R4(3,28)*TWO-R4(3,29)*TWO+R3(1,33)*TWO+R3(1,34)*TWO
     * -R2(5,31)*TWO-R2(5,32)*TWO+R1(1,19)*TWO+R1(1,20)*TWO)*XXX+(
     * -R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XXXX
      F(2,1,5,2)= -R7(8,1)+R6(4,3)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,5)
     * +R4(1,18)+R4(4,18)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,17)+R2(2,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(8,5)*TWO+R5(4,8)*TWO-R4(8,13)*TWO
     * -R4(3,27)*TWO+R3(4,10)*TWO+R3(1,32)*TWO-R2(5,30)*TWO+R1(1,18)*TWO
     * )*QX+(-R5(8,14)+R4(4,21)-R3(8,22)-R3(3,42)+R2(2,20)+R2(1,45)
     * -R1(3,34)+R0(24))*XX
      F(3,1,5,2)= -R7(10,1)+R6(6,3)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,5)
     * +R4(1,18)+R4(6,18)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,17)+R2(3,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(10,5)*TWO+R5(6,8)*TWO
     * -R4(10,13)*TWO-R4(3,27)*TWO+R3(6,10)*TWO+R3(1,32)*TWO
     * -R2(5,30)*TWO+R1(1,18)*TWO)*QX+(-R6(6,4)*TWO+R5(3,7)*TWO
     * -R4(6,12)*TWO-R4(6,26)*TWO+R3(3,9)*TWO+R3(3,31)*TWO-R2(3,29)*TWO
     * +R1(3,17)*TWO)*QZ+(-R5(10,14)+R4(6,21)-R3(10,22)-R3(3,42)
     * +R2(3,20)+R2(1,45)-R1(3,34)+R0(24))*XX+(-R5(6,13)*FOUR
     * +R4(3,20)*FOUR-R3(6,21)*FOUR+R2(5,19)*FOUR)*XZ+(-R5(3,12)
     * +R4(1,19)-R3(3,20)-R3(3,40)+R2(1,18)+R2(1,43)-R1(3,32)+R0(22))*ZZ
     * +(-R4(6,29)*TWO+R3(3,34)*TWO-R2(3,32)*TWO+R1(3,20)*TWO)*XXZ+(
     * -R4(3,28)*TWO+R3(1,33)*TWO-R2(5,31)*TWO+R1(1,19)*TWO)*XZZ+(
     * -R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XXZZ
      F(4,1,5,2)= -R7(5,1)+R6(2,3)-R5(5,4)-R5(5,11)*THREE+R4(2,5)
     * +R4(2,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(5,4)
     * -R6(5,5)*TWO+R5(2,7)+R5(2,8)*TWO-R4(5,12)-R4(5,13)*TWO-R4(5,26)
     * -R4(5,27)*TWO+R3(2,9)+R3(2,10)*TWO+R3(2,31)+R3(2,32)*TWO-R2(6,29)
     * -R2(6,30)*TWO+R1(2,17)+R1(2,18)*TWO)*QX+(-R5(5,13)*TWO-R5(5,14)
     * +R4(2,20)*TWO+R4(2,21)-R3(5,21)*TWO-R3(5,22)+R2(4,19)*TWO
     * +R2(4,20))*XX+(-R4(5,29)+R3(2,34)-R2(6,32)+R1(2,20))*XXX
      F(5,1,5,2)= -R7(6,1)+R6(3,3)-R5(6,4)-R5(6,11)*THREE+R4(3,5)
     * +R4(3,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(6,4)
     * -R6(6,5)*TWO+R5(3,7)+R5(3,8)*TWO-R4(6,12)-R4(6,13)*TWO-R4(6,26)
     * -R4(6,27)*TWO+R3(3,9)+R3(3,10)*TWO+R3(3,31)+R3(3,32)*TWO-R2(3,29)
     * -R2(3,30)*TWO+R1(3,17)+R1(3,18)*TWO)*QX+(-R6(3,4)+R5(1,7)
     * -R4(3,12)-R4(3,26)*THREE+R3(1,9)+R3(1,31)*THREE-R2(5,29)*THREE
     * +R1(1,17)*THREE)*QZ+(-R5(6,13)*TWO-R5(6,14)+R4(3,20)*TWO+R4(3,21)
     * -R3(6,21)*TWO-R3(6,22)+R2(5,19)*TWO+R2(5,20))*XX+(-R5(3,12)
     * -R5(3,13)*TWO+R4(1,19)+R4(1,20)*TWO-R3(3,20)-R3(3,21)*TWO
     * -R3(3,40)-R3(3,41)*TWO+R2(1,18)+R2(1,19)*TWO+R2(1,43)
     * +R2(1,44)*TWO-R1(3,32)-R1(3,33)*TWO+R0(22)+R0(23)*TWO)*XZ+(
     * -R4(6,29)+R3(3,34)-R2(3,32)+R1(3,20))*XXX+(-R4(3,28)*TWO-R4(3,29)
     * +R3(1,33)*TWO+R3(1,34)-R2(5,31)*TWO-R2(5,32)+R1(1,19)*TWO
     * +R1(1,20))*XXZ+(-R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XXXZ
      F(6,1,5,2)= -R7(9,1)+R6(5,3)-R5(9,4)-R5(9,11)+R4(5,5)+R4(5,18)
     * -R3(9,19)+R2(6,17)+(-R6(9,5)*TWO+R5(5,8)*TWO-R4(9,13)*TWO
     * +R3(5,10)*TWO)*QX+(-R6(5,4)+R5(2,7)-R4(5,12)-R4(5,26)+R3(2,9)
     * +R3(2,31)-R2(6,29)+R1(2,17))*QZ+(-R5(9,14)+R4(5,21)-R3(9,22)
     * +R2(6,20))*XX+(-R5(5,13)*TWO+R4(2,20)*TWO-R3(5,21)*TWO
     * +R2(4,19)*TWO)*XZ+(-R4(5,29)+R3(2,34)-R2(6,32)+R1(2,20))*XXZ
      F(1,2,5,2)= -R7(8,1)+R6(4,3)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,5)
     * +R4(1,18)+R4(4,18)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,17)+R2(2,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(8,4)*TWO+R5(4,7)*TWO-R4(8,12)*TWO
     * -R4(3,26)*TWO+R3(4,9)*TWO+R3(1,31)*TWO-R2(5,29)*TWO+R1(1,17)*TWO)
     * *QX+(-R5(8,12)+R4(4,19)-R3(8,20)-R3(3,40)+R2(2,18)+R2(1,43)
     * -R1(3,32)+R0(22))*XX
      F(2,2,5,2)= -R7(17,1)+R6(11,3)-R5(17,4)-R5(8,11)*SIX+R4(11,5)
     * +R4(4,18)*SIX-R3(8,19)*SIX-R3(3,39)*THREE+R2(2,17)*SIX
     * +R2(1,42)*THREE-R1(3,31)*THREE+R0(21)*THREE
      F(3,2,5,2)= -R7(19,1)+R6(13,3)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,5)+R4(4,18)+R4(6,18)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,17)
     * +R2(3,17)+R2(1,42)-R1(3,31)+R0(21)+(-R6(13,4)*TWO+R5(8,7)*TWO
     * -R4(13,12)*TWO-R4(6,26)*TWO+R3(8,9)*TWO+R3(3,31)*TWO-R2(3,29)*TWO
     * +R1(3,17)*TWO)*QZ+(-R5(8,12)+R4(4,19)-R3(8,20)-R3(3,40)+R2(2,18)
     * +R2(1,43)-R1(3,32)+R0(22))*ZZ
      F(4,2,5,2)= -R7(12,1)+R6(7,3)-R5(12,4)-R5(5,11)*THREE+R4(7,5)
     * +R4(2,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(12,4)+R5(7,7)
     * -R4(12,12)-R4(5,26)*THREE+R3(7,9)+R3(2,31)*THREE-R2(6,29)*THREE
     * +R1(2,17)*THREE)*QX
      F(5,2,5,2)= -R7(13,1)+R6(8,3)-R5(13,4)-R5(6,11)+R4(8,5)+R4(3,18)
     * -R3(6,19)+R2(5,17)+(-R6(13,4)+R5(8,7)-R4(13,12)-R4(6,26)+R3(8,9)
     * +R3(3,31)-R2(3,29)+R1(3,17))*QX+(-R6(8,4)+R5(4,7)-R4(8,12)
     * -R4(3,26)+R3(4,9)+R3(1,31)-R2(5,29)+R1(1,17))*QZ+(-R5(8,12)
     * +R4(4,19)-R3(8,20)-R3(3,40)+R2(2,18)+R2(1,43)-R1(3,32)+R0(22))*XZ
      F(6,2,5,2)= -R7(18,1)+R6(12,3)-R5(18,4)-R5(9,11)*THREE+R4(12,5)
     * +R4(5,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(12,4)+R5(7,7)
     * -R4(12,12)-R4(5,26)*THREE+R3(7,9)+R3(2,31)*THREE-R2(6,29)*THREE
     * +R1(2,17)*THREE)*QZ
      F(1,3,5,2)= -R7(10,1)+R6(6,3)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,5)
     * +R4(1,18)+R4(6,18)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,17)+R2(3,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(10,4)*TWO+R5(6,7)*TWO
     * -R4(10,12)*TWO-R4(3,26)*TWO+R3(6,9)*TWO+R3(1,31)*TWO-R2(5,29)*TWO
     * +R1(1,17)*TWO)*QX+(-R6(6,5)*TWO+R5(3,8)*TWO-R4(6,13)*TWO
     * -R4(6,27)*TWO+R3(3,10)*TWO+R3(3,32)*TWO-R2(3,30)*TWO+R1(3,18)*TWO
     * )*QZ+(-R5(10,12)+R4(6,19)-R3(10,20)-R3(3,40)+R2(3,18)+R2(1,43)
     * -R1(3,32)+R0(22))*XX+(-R5(6,13)*FOUR+R4(3,20)*FOUR-R3(6,21)*FOUR
     * +R2(5,19)*FOUR)*XZ+(-R5(3,14)+R4(1,21)-R3(3,22)-R3(3,42)+R2(1,20)
     * +R2(1,45)-R1(3,34)+R0(24))*ZZ+(-R4(6,28)*TWO+R3(3,33)*TWO
     * -R2(3,31)*TWO+R1(3,19)*TWO)*XXZ+(-R4(3,29)*TWO+R3(1,34)*TWO
     * -R2(5,32)*TWO+R1(1,20)*TWO)*XZZ+(-R3(3,43)+R2(1,46)-R1(3,35)
     * +R0(25))*XXZZ
      F(2,3,5,2)= -R7(19,1)+R6(13,3)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,5)+R4(4,18)+R4(6,18)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,17)
     * +R2(3,17)+R2(1,42)-R1(3,31)+R0(21)+(-R6(13,5)*TWO+R5(8,8)*TWO
     * -R4(13,13)*TWO-R4(6,27)*TWO+R3(8,10)*TWO+R3(3,32)*TWO
     * -R2(3,30)*TWO+R1(3,18)*TWO)*QZ+(-R5(8,14)+R4(4,21)-R3(8,22)
     * -R3(3,42)+R2(2,20)+R2(1,45)-R1(3,34)+R0(24))*ZZ
      F(3,3,5,2)= -R7(21,1)+R6(15,3)-R5(21,4)-R5(10,11)*SIX+R4(15,5)
     * +R4(6,18)*SIX-R3(10,19)*SIX-R3(3,39)*THREE+R2(3,17)*SIX
     * +R2(1,42)*THREE-R1(3,31)*THREE+R0(21)*THREE+(-R6(15,4)*TWO
     * -R6(15,5)*TWO+R5(10,7)*TWO+R5(10,8)*TWO-R4(15,12)*TWO
     * -R4(15,13)*TWO-R4(6,26)*SIX-R4(6,27)*SIX+R3(10,9)*TWO
     * +R3(10,10)*TWO+R3(3,31)*SIX+R3(3,32)*SIX-R2(3,29)*SIX
     * -R2(3,30)*SIX+R1(3,17)*SIX+R1(3,18)*SIX)*QZ+(-R5(10,12)
     * -R5(10,13)*FOUR-R5(10,14)+R4(6,19)+R4(6,20)*FOUR+R4(6,21)
     * -R3(10,20)-R3(10,21)*FOUR-R3(10,22)-R3(3,40)-R3(3,41)*FOUR
     * -R3(3,42)+R2(3,18)+R2(3,19)*FOUR+R2(3,20)+R2(1,43)+R2(1,44)*FOUR
     * +R2(1,45)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(22)+R0(23)*FOUR
     * +R0(24))*ZZ+(-R4(6,28)*TWO-R4(6,29)*TWO+R3(3,33)*TWO+R3(3,34)*TWO
     * -R2(3,31)*TWO-R2(3,32)*TWO+R1(3,19)*TWO+R1(3,20)*TWO)*ZZZ+(
     * -R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*ZZZZ
      F(4,3,5,2)= -R7(14,1)+R6(9,3)-R5(14,4)-R5(5,11)+R4(9,5)+R4(2,18)
     * -R3(5,19)+R2(4,17)+(-R6(14,4)+R5(9,7)-R4(14,12)-R4(5,26)+R3(9,9)
     * +R3(2,31)-R2(6,29)+R1(2,17))*QX+(-R6(9,5)*TWO+R5(5,8)*TWO
     * -R4(9,13)*TWO+R3(5,10)*TWO)*QZ+(-R5(9,13)*TWO+R4(5,20)*TWO
     * -R3(9,21)*TWO+R2(6,19)*TWO)*XZ+(-R5(5,14)+R4(2,21)-R3(5,22)
     * +R2(4,20))*ZZ+(-R4(5,29)+R3(2,34)-R2(6,32)+R1(2,20))*XZZ
      F(5,3,5,2)= -R7(15,1)+R6(10,3)-R5(15,4)-R5(6,11)*THREE+R4(10,5)
     * +R4(3,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(15,4)+R5(10,7)
     * -R4(15,12)-R4(6,26)*THREE+R3(10,9)+R3(3,31)*THREE-R2(3,29)*THREE
     * +R1(3,17)*THREE)*QX+(-R6(10,4)-R6(10,5)*TWO+R5(6,7)+R5(6,8)*TWO
     * -R4(10,12)-R4(10,13)*TWO-R4(3,26)-R4(3,27)*TWO+R3(6,9)
     * +R3(6,10)*TWO+R3(1,31)+R3(1,32)*TWO-R2(5,29)-R2(5,30)*TWO
     * +R1(1,17)+R1(1,18)*TWO)*QZ+(-R5(10,12)-R5(10,13)*TWO+R4(6,19)
     * +R4(6,20)*TWO-R3(10,20)-R3(10,21)*TWO-R3(3,40)-R3(3,41)*TWO
     * +R2(3,18)+R2(3,19)*TWO+R2(1,43)+R2(1,44)*TWO-R1(3,32)
     * -R1(3,33)*TWO+R0(22)+R0(23)*TWO)*XZ+(-R5(6,13)*TWO-R5(6,14)
     * +R4(3,20)*TWO+R4(3,21)-R3(6,21)*TWO-R3(6,22)+R2(5,19)*TWO
     * +R2(5,20))*ZZ+(-R4(6,28)*TWO-R4(6,29)+R3(3,33)*TWO+R3(3,34)
     * -R2(3,31)*TWO-R2(3,32)+R1(3,19)*TWO+R1(3,20))*XZZ+(-R4(3,29)
     * +R3(1,34)-R2(5,32)+R1(1,20))*ZZZ+(-R3(3,43)+R2(1,46)-R1(3,35)
     * +R0(25))*XZZZ
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20C
      SUBROUTINE MCDV20C(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(6,3,5,2)= -R7(20,1)+R6(14,3)-R5(20,4)-R5(9,11)*THREE+R4(14,5)
     * +R4(5,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,7)+R5(9,8)*TWO-R4(14,12)-R4(14,13)*TWO
     * -R4(5,26)-R4(5,27)*TWO+R3(9,9)+R3(9,10)*TWO+R3(2,31)+R3(2,32)*TWO
     * -R2(6,29)-R2(6,30)*TWO+R1(2,17)+R1(2,18)*TWO)*QZ+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,20)*TWO+R4(5,21)-R3(9,21)*TWO-R3(9,22)
     * +R2(6,19)*TWO+R2(6,20))*ZZ+(-R4(5,29)+R3(2,34)-R2(6,32)+R1(2,20))
     * *ZZZ
      F(1,4,5,2)= -R7(5,1)+R6(2,3)-R5(5,4)-R5(5,11)*THREE+R4(2,5)
     * +R4(2,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(5,4)*TWO
     * -R6(5,5)+R5(2,7)*TWO+R5(2,8)-R4(5,12)*TWO-R4(5,13)-R4(5,26)*TWO
     * -R4(5,27)+R3(2,9)*TWO+R3(2,10)+R3(2,31)*TWO+R3(2,32)-R2(6,29)*TWO
     * -R2(6,30)+R1(2,17)*TWO+R1(2,18))*QX+(-R5(5,12)-R5(5,13)*TWO
     * +R4(2,19)+R4(2,20)*TWO-R3(5,20)-R3(5,21)*TWO+R2(4,18)
     * +R2(4,19)*TWO)*XX+(-R4(5,28)+R3(2,33)-R2(6,31)+R1(2,19))*XXX
      F(2,4,5,2)= -R7(12,1)+R6(7,3)-R5(12,4)-R5(5,11)*THREE+R4(7,5)
     * +R4(2,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(12,5)+R5(7,8)
     * -R4(12,13)-R4(5,27)*THREE+R3(7,10)+R3(2,32)*THREE-R2(6,30)*THREE
     * +R1(2,18)*THREE)*QX
      F(3,4,5,2)= -R7(14,1)+R6(9,3)-R5(14,4)-R5(5,11)+R4(9,5)+R4(2,18)
     * -R3(5,19)+R2(4,17)+(-R6(14,5)+R5(9,8)-R4(14,13)-R4(5,27)+R3(9,10)
     * +R3(2,32)-R2(6,30)+R1(2,18))*QX+(-R6(9,4)*TWO+R5(5,7)*TWO
     * -R4(9,12)*TWO+R3(5,9)*TWO)*QZ+(-R5(9,13)*TWO+R4(5,20)*TWO
     * -R3(9,21)*TWO+R2(6,19)*TWO)*XZ+(-R5(5,12)+R4(2,19)-R3(5,20)
     * +R2(4,18))*ZZ+(-R4(5,28)+R3(2,33)-R2(6,31)+R1(2,19))*XZZ
      F(4,4,5,2)= -R7(8,1)+R6(4,3)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,5)
     * +R4(1,18)+R4(4,18)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,17)+R2(2,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(8,4)-R6(8,5)+R5(4,7)+R5(4,8)
     * -R4(8,12)-R4(8,13)-R4(3,26)-R4(3,27)+R3(4,9)+R3(4,10)+R3(1,31)
     * +R3(1,32)-R2(5,29)-R2(5,30)+R1(1,17)+R1(1,18))*QX+(-R5(8,13)
     * +R4(4,20)-R3(8,21)-R3(3,41)+R2(2,19)+R2(1,44)-R1(3,33)+R0(23))*XX
      F(5,4,5,2)= -R7(9,1)+R6(5,3)-R5(9,4)-R5(9,11)+R4(5,5)+R4(5,18)
     * -R3(9,19)+R2(6,17)+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)-R4(9,12)
     * -R4(9,13)+R3(5,9)+R3(5,10))*QX+(-R6(5,4)+R5(2,7)-R4(5,12)
     * -R4(5,26)+R3(2,9)+R3(2,31)-R2(6,29)+R1(2,17))*QZ+(-R5(9,13)
     * +R4(5,20)-R3(9,21)+R2(6,19))*XX+(-R5(5,12)-R5(5,13)+R4(2,19)
     * +R4(2,20)-R3(5,20)-R3(5,21)+R2(4,18)+R2(4,19))*XZ+(-R4(5,28)
     * +R3(2,33)-R2(6,31)+R1(2,19))*XXZ
      F(6,4,5,2)= -R7(13,1)+R6(8,3)-R5(13,4)-R5(6,11)+R4(8,5)+R4(3,18)
     * -R3(6,19)+R2(5,17)+(-R6(13,5)+R5(8,8)-R4(13,13)-R4(6,27)+R3(8,10)
     * +R3(3,32)-R2(3,30)+R1(3,18))*QX+(-R6(8,4)+R5(4,7)-R4(8,12)
     * -R4(3,26)+R3(4,9)+R3(1,31)-R2(5,29)+R1(1,17))*QZ+(-R5(8,13)
     * +R4(4,20)-R3(8,21)-R3(3,41)+R2(2,19)+R2(1,44)-R1(3,33)+R0(23))*XZ
      F(1,5,5,2)= -R7(6,1)+R6(3,3)-R5(6,4)-R5(6,11)*THREE+R4(3,5)
     * +R4(3,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(6,4)*TWO
     * -R6(6,5)+R5(3,7)*TWO+R5(3,8)-R4(6,12)*TWO-R4(6,13)-R4(6,26)*TWO
     * -R4(6,27)+R3(3,9)*TWO+R3(3,10)+R3(3,31)*TWO+R3(3,32)-R2(3,29)*TWO
     * -R2(3,30)+R1(3,17)*TWO+R1(3,18))*QX+(-R6(3,5)+R5(1,8)-R4(3,13)
     * -R4(3,27)*THREE+R3(1,10)+R3(1,32)*THREE-R2(5,30)*THREE
     * +R1(1,18)*THREE)*QZ+(-R5(6,12)-R5(6,13)*TWO+R4(3,19)+R4(3,20)*TWO
     * -R3(6,20)-R3(6,21)*TWO+R2(5,18)+R2(5,19)*TWO)*XX+(-R5(3,13)*TWO
     * -R5(3,14)+R4(1,20)*TWO+R4(1,21)-R3(3,21)*TWO-R3(3,22)
     * -R3(3,41)*TWO-R3(3,42)+R2(1,19)*TWO+R2(1,20)+R2(1,44)*TWO
     * +R2(1,45)-R1(3,33)*TWO-R1(3,34)+R0(23)*TWO+R0(24))*XZ+(-R4(6,28)
     * +R3(3,33)-R2(3,31)+R1(3,19))*XXX+(-R4(3,28)-R4(3,29)*TWO+R3(1,33)
     * +R3(1,34)*TWO-R2(5,31)-R2(5,32)*TWO+R1(1,19)+R1(1,20)*TWO)*XXZ+(
     * -R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XXXZ
      F(2,5,5,2)= -R7(13,1)+R6(8,3)-R5(13,4)-R5(6,11)+R4(8,5)+R4(3,18)
     * -R3(6,19)+R2(5,17)+(-R6(13,5)+R5(8,8)-R4(13,13)-R4(6,27)+R3(8,10)
     * +R3(3,32)-R2(3,30)+R1(3,18))*QX+(-R6(8,5)+R5(4,8)-R4(8,13)
     * -R4(3,27)+R3(4,10)+R3(1,32)-R2(5,30)+R1(1,18))*QZ+(-R5(8,14)
     * +R4(4,21)-R3(8,22)-R3(3,42)+R2(2,20)+R2(1,45)-R1(3,34)+R0(24))*XZ
      F(3,5,5,2)= -R7(15,1)+R6(10,3)-R5(15,4)-R5(6,11)*THREE+R4(10,5)
     * +R4(3,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(15,5)+R5(10,8)
     * -R4(15,13)-R4(6,27)*THREE+R3(10,10)+R3(3,32)*THREE-R2(3,30)*THREE
     * +R1(3,18)*THREE)*QX+(-R6(10,4)*TWO-R6(10,5)+R5(6,7)*TWO+R5(6,8)
     * -R4(10,12)*TWO-R4(10,13)-R4(3,26)*TWO-R4(3,27)+R3(6,9)*TWO
     * +R3(6,10)+R3(1,31)*TWO+R3(1,32)-R2(5,29)*TWO-R2(5,30)
     * +R1(1,17)*TWO+R1(1,18))*QZ+(-R5(10,13)*TWO-R5(10,14)+R4(6,20)*TWO
     * +R4(6,21)-R3(10,21)*TWO-R3(10,22)-R3(3,41)*TWO-R3(3,42)
     * +R2(3,19)*TWO+R2(3,20)+R2(1,44)*TWO+R2(1,45)-R1(3,33)*TWO
     * -R1(3,34)+R0(23)*TWO+R0(24))*XZ+(-R5(6,12)-R5(6,13)*TWO+R4(3,19)
     * +R4(3,20)*TWO-R3(6,20)-R3(6,21)*TWO+R2(5,18)+R2(5,19)*TWO)*ZZ+(
     * -R4(6,28)-R4(6,29)*TWO+R3(3,33)+R3(3,34)*TWO-R2(3,31)
     * -R2(3,32)*TWO+R1(3,19)+R1(3,20)*TWO)*XZZ+(-R4(3,28)+R3(1,33)
     * -R2(5,31)+R1(1,19))*ZZZ+(-R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XZZZ
      F(4,5,5,2)= -R7(9,1)+R6(5,3)-R5(9,4)-R5(9,11)+R4(5,5)+R4(5,18)
     * -R3(9,19)+R2(6,17)+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)-R4(9,12)
     * -R4(9,13)+R3(5,9)+R3(5,10))*QX+(-R6(5,5)+R5(2,8)-R4(5,13)
     * -R4(5,27)+R3(2,10)+R3(2,32)-R2(6,30)+R1(2,18))*QZ+(-R5(9,13)
     * +R4(5,20)-R3(9,21)+R2(6,19))*XX+(-R5(5,13)-R5(5,14)+R4(2,20)
     * +R4(2,21)-R3(5,21)-R3(5,22)+R2(4,19)+R2(4,20))*XZ+(-R4(5,29)
     * +R3(2,34)-R2(6,32)+R1(2,20))*XXZ
      F(5,5,5,2)= -R7(10,1)+R6(6,3)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,5)
     * +R4(1,18)+R4(6,18)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,17)+R2(3,17)
     * +R2(1,42)-R1(3,31)+R0(21)+(-R6(10,4)-R6(10,5)+R5(6,7)+R5(6,8)
     * -R4(10,12)-R4(10,13)-R4(3,26)-R4(3,27)+R3(6,9)+R3(6,10)+R3(1,31)
     * +R3(1,32)-R2(5,29)-R2(5,30)+R1(1,17)+R1(1,18))*QX+(-R6(6,4)
     * -R6(6,5)+R5(3,7)+R5(3,8)-R4(6,12)-R4(6,13)-R4(6,26)-R4(6,27)
     * +R3(3,9)+R3(3,10)+R3(3,31)+R3(3,32)-R2(3,29)-R2(3,30)+R1(3,17)
     * +R1(3,18))*QZ+(-R5(10,13)+R4(6,20)-R3(10,21)-R3(3,41)+R2(3,19)
     * +R2(1,44)-R1(3,33)+R0(23))*XX+(-R5(6,12)-R5(6,13)*TWO-R5(6,14)
     * +R4(3,19)+R4(3,20)*TWO+R4(3,21)-R3(6,20)-R3(6,21)*TWO-R3(6,22)
     * +R2(5,18)+R2(5,19)*TWO+R2(5,20))*XZ+(-R5(3,13)+R4(1,20)-R3(3,21)
     * -R3(3,41)+R2(1,19)+R2(1,44)-R1(3,33)+R0(23))*ZZ+(-R4(6,28)
     * -R4(6,29)+R3(3,33)+R3(3,34)-R2(3,31)-R2(3,32)+R1(3,19)+R1(3,20))
     * *XXZ+(-R4(3,28)-R4(3,29)+R3(1,33)+R3(1,34)-R2(5,31)-R2(5,32)
     * +R1(1,19)+R1(1,20))*XZZ+(-R3(3,43)+R2(1,46)-R1(3,35)+R0(25))*XXZZ
      F(6,5,5,2)= -R7(14,1)+R6(9,3)-R5(14,4)-R5(5,11)+R4(9,5)+R4(2,18)
     * -R3(5,19)+R2(4,17)+(-R6(14,5)+R5(9,8)-R4(14,13)-R4(5,27)+R3(9,10)
     * +R3(2,32)-R2(6,30)+R1(2,18))*QX+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)
     * -R4(9,12)-R4(9,13)+R3(5,9)+R3(5,10))*QZ+(-R5(9,13)-R5(9,14)
     * +R4(5,20)+R4(5,21)-R3(9,21)-R3(9,22)+R2(6,19)+R2(6,20))*XZ+(
     * -R5(5,13)+R4(2,20)-R3(5,21)+R2(4,19))*ZZ+(-R4(5,29)+R3(2,34)
     * -R2(6,32)+R1(2,20))*XZZ
      F(1,6,5,2)= -R7(9,1)+R6(5,3)-R5(9,4)-R5(9,11)+R4(5,5)+R4(5,18)
     * -R3(9,19)+R2(6,17)+(-R6(9,4)*TWO+R5(5,7)*TWO-R4(9,12)*TWO
     * +R3(5,9)*TWO)*QX+(-R6(5,5)+R5(2,8)-R4(5,13)-R4(5,27)+R3(2,10)
     * +R3(2,32)-R2(6,30)+R1(2,18))*QZ+(-R5(9,12)+R4(5,19)-R3(9,20)
     * +R2(6,18))*XX+(-R5(5,13)*TWO+R4(2,20)*TWO-R3(5,21)*TWO
     * +R2(4,19)*TWO)*XZ+(-R4(5,28)+R3(2,33)-R2(6,31)+R1(2,19))*XXZ
      F(2,6,5,2)= -R7(18,1)+R6(12,3)-R5(18,4)-R5(9,11)*THREE+R4(12,5)
     * +R4(5,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(12,5)+R5(7,8)
     * -R4(12,13)-R4(5,27)*THREE+R3(7,10)+R3(2,32)*THREE-R2(6,30)*THREE
     * +R1(2,18)*THREE)*QZ
      F(3,6,5,2)= -R7(20,1)+R6(14,3)-R5(20,4)-R5(9,11)*THREE+R4(14,5)
     * +R4(5,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(14,4)*TWO
     * -R6(14,5)+R5(9,7)*TWO+R5(9,8)-R4(14,12)*TWO-R4(14,13)
     * -R4(5,26)*TWO-R4(5,27)+R3(9,9)*TWO+R3(9,10)+R3(2,31)*TWO+R3(2,32)
     * -R2(6,29)*TWO-R2(6,30)+R1(2,17)*TWO+R1(2,18))*QZ+(-R5(9,12)
     * -R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO-R3(9,20)-R3(9,21)*TWO
     * +R2(6,18)+R2(6,19)*TWO)*ZZ+(-R4(5,28)+R3(2,33)-R2(6,31)+R1(2,19))
     * *ZZZ
      F(4,6,5,2)= -R7(13,1)+R6(8,3)-R5(13,4)-R5(6,11)+R4(8,5)+R4(3,18)
     * -R3(6,19)+R2(5,17)+(-R6(13,4)+R5(8,7)-R4(13,12)-R4(6,26)+R3(8,9)
     * +R3(3,31)-R2(3,29)+R1(3,17))*QX+(-R6(8,5)+R5(4,8)-R4(8,13)
     * -R4(3,27)+R3(4,10)+R3(1,32)-R2(5,30)+R1(1,18))*QZ+(-R5(8,13)
     * +R4(4,20)-R3(8,21)-R3(3,41)+R2(2,19)+R2(1,44)-R1(3,33)+R0(23))*XZ
      F(5,6,5,2)= -R7(14,1)+R6(9,3)-R5(14,4)-R5(5,11)+R4(9,5)+R4(2,18)
     * -R3(5,19)+R2(4,17)+(-R6(14,4)+R5(9,7)-R4(14,12)-R4(5,26)+R3(9,9)
     * +R3(2,31)-R2(6,29)+R1(2,17))*QX+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)
     * -R4(9,12)-R4(9,13)+R3(5,9)+R3(5,10))*QZ+(-R5(9,12)-R5(9,13)
     * +R4(5,19)+R4(5,20)-R3(9,20)-R3(9,21)+R2(6,18)+R2(6,19))*XZ+(
     * -R5(5,13)+R4(2,20)-R3(5,21)+R2(4,19))*ZZ+(-R4(5,28)+R3(2,33)
     * -R2(6,31)+R1(2,19))*XZZ
      F(6,6,5,2)= -R7(19,1)+R6(13,3)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,5)+R4(4,18)+R4(6,18)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,17)
     * +R2(3,17)+R2(1,42)-R1(3,31)+R0(21)+(-R6(13,4)-R6(13,5)+R5(8,7)
     * +R5(8,8)-R4(13,12)-R4(13,13)-R4(6,26)-R4(6,27)+R3(8,9)+R3(8,10)
     * +R3(3,31)+R3(3,32)-R2(3,29)-R2(3,30)+R1(3,17)+R1(3,18))*QZ+(
     * -R5(8,13)+R4(4,20)-R3(8,21)-R3(3,41)+R2(2,19)+R2(1,44)-R1(3,33)
     * +R0(23))*ZZ
      F(1,1,6,2)= -R7(5,1)+R6(2,3)-R5(5,11)*SIX+R4(2,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE+(-R6(5,4)*TWO-R6(5,5)*TWO
     * +R5(2,7)*TWO+R5(2,8)*TWO-R4(5,26)*SIX-R4(5,27)*SIX+R3(2,31)*SIX
     * +R3(2,32)*SIX)*QX+(-R5(5,12)-R5(5,13)*FOUR-R5(5,14)+R4(2,19)
     * +R4(2,20)*FOUR+R4(2,21)-R3(5,40)-R3(5,41)*FOUR-R3(5,42)+R2(4,43)
     * +R2(4,44)*FOUR+R2(4,45))*XX+(-R4(5,28)*TWO-R4(5,29)*TWO
     * +R3(2,33)*TWO+R3(2,34)*TWO)*XXX+(-R3(5,43)+R2(4,46))*XXXX
      F(2,1,6,2)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,5)*TWO+R5(7,8)*TWO-R4(5,27)*TWO
     * +R3(2,32)*TWO)*QX+(-R5(12,14)+R4(7,21)-R3(5,42)+R2(4,45))*XX
      F(3,1,6,2)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,5)*TWO+R5(9,8)*TWO-R4(5,27)*TWO
     * +R3(2,32)*TWO)*QX+(-R6(9,4)*TWO+R5(5,7)*TWO-R4(9,26)*TWO
     * +R3(5,31)*TWO)*QZ+(-R5(14,14)+R4(9,21)-R3(5,42)+R2(4,45))*XX+(
     * -R5(9,13)*FOUR+R4(5,20)*FOUR)*XZ+(-R5(5,12)+R4(2,19)-R3(5,40)
     * +R2(4,43))*ZZ+(-R4(9,29)*TWO+R3(5,34)*TWO)*XXZ+(-R4(5,28)*TWO
     * +R3(2,33)*TWO)*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(4,1,6,2)= -R7(8,1)+R6(4,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(8,4)-R6(8,5)*TWO+R5(4,7)+R5(4,8)*TWO-R4(8,26)-R4(8,27)*TWO
     * +R3(4,31)+R3(4,32)*TWO)*QX+(-R5(8,13)*TWO-R5(8,14)+R4(4,20)*TWO
     * +R4(4,21))*XX+(-R4(8,29)+R3(4,34))*XXX
      F(5,1,6,2)= -R7(9,1)+R6(5,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(9,4)-R6(9,5)*TWO+R5(5,7)+R5(5,8)*TWO-R4(9,26)-R4(9,27)*TWO
     * +R3(5,31)+R3(5,32)*TWO)*QX+(-R6(5,4)+R5(2,7)-R4(5,26)*THREE
     * +R3(2,31)*THREE)*QZ+(-R5(9,13)*TWO-R5(9,14)+R4(5,20)*TWO+R4(5,21)
     * )*XX+(-R5(5,12)-R5(5,13)*TWO+R4(2,19)+R4(2,20)*TWO-R3(5,40)
     * -R3(5,41)*TWO+R2(4,43)+R2(4,44)*TWO)*XZ+(-R4(9,29)+R3(5,34))*XXX
     * +(-R4(5,28)*TWO-R4(5,29)+R3(2,33)*TWO+R3(2,34))*XXZ+(-R3(5,43)
     * +R2(4,46))*XXXZ
      F(6,1,6,2)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,5)*TWO
     * +R5(8,8)*TWO)*QX+(-R6(8,4)+R5(4,7)-R4(8,26)+R3(4,31))*QZ+(
     * -R5(13,14)+R4(8,21))*XX+(-R5(8,13)*TWO+R4(4,20)*TWO)*XZ+(
     * -R4(8,29)+R3(4,34))*XXZ
      F(1,2,6,2)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,4)*TWO+R5(7,7)*TWO-R4(5,26)*TWO
     * +R3(2,31)*TWO)*QX+(-R5(12,12)+R4(7,19)-R3(5,40)+R2(4,43))*XX
      F(2,2,6,2)= -R7(23,1)+R6(16,3)-R5(12,11)*SIX+R4(7,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE
      F(3,2,6,2)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,4)*TWO+R5(12,7)*TWO
     * -R4(9,26)*TWO+R3(5,31)*TWO)*QZ+(-R5(12,12)+R4(7,19)-R3(5,40)
     * +R2(4,43))*ZZ
      F(4,2,6,2)= -R7(17,1)+R6(11,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(17,4)+R5(11,7)-R4(8,26)*THREE+R3(4,31)*THREE)*QX
      F(5,2,6,2)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,4)
     * +R5(12,7)-R4(9,26)+R3(5,31))*QX+(-R6(12,4)+R5(7,7)-R4(5,26)
     * +R3(2,31))*QZ+(-R5(12,12)+R4(7,19)-R3(5,40)+R2(4,43))*XZ
      F(6,2,6,2)= -R7(24,1)+R6(17,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(17,4)+R5(11,7)-R4(8,26)*THREE+R3(4,31)*THREE)*QZ
      F(1,3,6,2)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,4)*TWO+R5(9,7)*TWO-R4(5,26)*TWO
     * +R3(2,31)*TWO)*QX+(-R6(9,5)*TWO+R5(5,8)*TWO-R4(9,27)*TWO
     * +R3(5,32)*TWO)*QZ+(-R5(14,12)+R4(9,19)-R3(5,40)+R2(4,43))*XX+(
     * -R5(9,13)*FOUR+R4(5,20)*FOUR)*XZ+(-R5(5,14)+R4(2,21)-R3(5,42)
     * +R2(4,45))*ZZ+(-R4(9,28)*TWO+R3(5,33)*TWO)*XXZ+(-R4(5,29)*TWO
     * +R3(2,34)*TWO)*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(2,3,6,2)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,5)*TWO+R5(12,8)*TWO
     * -R4(9,27)*TWO+R3(5,32)*TWO)*QZ+(-R5(12,14)+R4(7,21)-R3(5,42)
     * +R2(4,45))*ZZ
      F(3,3,6,2)= -R7(27,1)+R6(20,3)-R5(14,11)*SIX+R4(9,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE+(-R6(20,4)*TWO-R6(20,5)*TWO
     * +R5(14,7)*TWO+R5(14,8)*TWO-R4(9,26)*SIX-R4(9,27)*SIX+R3(5,31)*SIX
     * +R3(5,32)*SIX)*QZ+(-R5(14,12)-R5(14,13)*FOUR-R5(14,14)+R4(9,19)
     * +R4(9,20)*FOUR+R4(9,21)-R3(5,40)-R3(5,41)*FOUR-R3(5,42)+R2(4,43)
     * +R2(4,44)*FOUR+R2(4,45))*ZZ+(-R4(9,28)*TWO-R4(9,29)*TWO
     * +R3(5,33)*TWO+R3(5,34)*TWO)*ZZZ+(-R3(5,43)+R2(4,46))*ZZZZ
      F(4,3,6,2)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,4)
     * +R5(13,7)-R4(8,26)+R3(4,31))*QX+(-R6(13,5)*TWO+R5(8,8)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,20)*TWO)*XZ+(-R5(8,14)+R4(4,21))*ZZ+(
     * -R4(8,29)+R3(4,34))*XZZ
      F(5,3,6,2)= -R7(20,1)+R6(14,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(20,4)+R5(14,7)-R4(9,26)*THREE+R3(5,31)*THREE)*QX+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,7)+R5(9,8)*TWO-R4(5,26)-R4(5,27)*TWO+R3(2,31)
     * +R3(2,32)*TWO)*QZ+(-R5(14,12)-R5(14,13)*TWO+R4(9,19)+R4(9,20)*TWO
     * -R3(5,40)-R3(5,41)*TWO+R2(4,43)+R2(4,44)*TWO)*XZ+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,20)*TWO+R4(5,21))*ZZ+(-R4(9,28)*TWO-R4(9,29)
     * +R3(5,33)*TWO+R3(5,34))*XZZ+(-R4(5,29)+R3(2,34))*ZZZ+(-R3(5,43)
     * +R2(4,46))*XZZZ
      F(6,3,6,2)= -R7(26,1)+R6(19,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(19,4)-R6(19,5)*TWO+R5(13,7)+R5(13,8)*TWO-R4(8,26)
     * -R4(8,27)*TWO+R3(4,31)+R3(4,32)*TWO)*QZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,20)*TWO+R4(8,21))*ZZ+(-R4(8,29)+R3(4,34))*ZZZ
      F(1,4,6,2)= -R7(8,1)+R6(4,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(8,4)*TWO-R6(8,5)+R5(4,7)*TWO+R5(4,8)-R4(8,26)*TWO-R4(8,27)
     * +R3(4,31)*TWO+R3(4,32))*QX+(-R5(8,12)-R5(8,13)*TWO+R4(4,19)
     * +R4(4,20)*TWO)*XX+(-R4(8,28)+R3(4,33))*XXX
      F(2,4,6,2)= -R7(17,1)+R6(11,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(17,5)+R5(11,8)-R4(8,27)*THREE+R3(4,32)*THREE)*QX
      F(3,4,6,2)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,5)
     * +R5(13,8)-R4(8,27)+R3(4,32))*QX+(-R6(13,4)*TWO+R5(8,7)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,20)*TWO)*XZ+(-R5(8,12)+R4(4,19))*ZZ+(
     * -R4(8,28)+R3(4,33))*XZZ
      F(4,4,6,2)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,4)-R6(12,5)+R5(7,7)+R5(7,8)-R4(5,26)
     * -R4(5,27)+R3(2,31)+R3(2,32))*QX+(-R5(12,13)+R4(7,20)-R3(5,41)
     * +R2(4,44))*XX
      F(5,4,6,2)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)
     * -R6(13,5)+R5(8,7)+R5(8,8))*QX+(-R6(8,4)+R5(4,7)-R4(8,26)+R3(4,31)
     * )*QZ+(-R5(13,13)+R4(8,20))*XX+(-R5(8,12)-R5(8,13)+R4(4,19)
     * +R4(4,20))*XZ+(-R4(8,28)+R3(4,33))*XXZ
      F(6,4,6,2)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,5)
     * +R5(12,8)-R4(9,27)+R3(5,32))*QX+(-R6(12,4)+R5(7,7)-R4(5,26)
     * +R3(2,31))*QZ+(-R5(12,13)+R4(7,20)-R3(5,41)+R2(4,44))*XZ
      F(1,5,6,2)= -R7(9,1)+R6(5,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(9,4)*TWO-R6(9,5)+R5(5,7)*TWO+R5(5,8)-R4(9,26)*TWO-R4(9,27)
     * +R3(5,31)*TWO+R3(5,32))*QX+(-R6(5,5)+R5(2,8)-R4(5,27)*THREE
     * +R3(2,32)*THREE)*QZ+(-R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO
     * )*XX+(-R5(5,13)*TWO-R5(5,14)+R4(2,20)*TWO+R4(2,21)-R3(5,41)*TWO
     * -R3(5,42)+R2(4,44)*TWO+R2(4,45))*XZ+(-R4(9,28)+R3(5,33))*XXX+(
     * -R4(5,28)-R4(5,29)*TWO+R3(2,33)+R3(2,34)*TWO)*XXZ+(-R3(5,43)
     * +R2(4,46))*XXXZ
      F(2,5,6,2)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,5)
     * +R5(12,8)-R4(9,27)+R3(5,32))*QX+(-R6(12,5)+R5(7,8)-R4(5,27)
     * +R3(2,32))*QZ+(-R5(12,14)+R4(7,21)-R3(5,42)+R2(4,45))*XZ
      F(3,5,6,2)= -R7(20,1)+R6(14,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(20,5)+R5(14,8)-R4(9,27)*THREE+R3(5,32)*THREE)*QX+(
     * -R6(14,4)*TWO-R6(14,5)+R5(9,7)*TWO+R5(9,8)-R4(5,26)*TWO-R4(5,27)
     * +R3(2,31)*TWO+R3(2,32))*QZ+(-R5(14,13)*TWO-R5(14,14)+R4(9,20)*TWO
     * +R4(9,21)-R3(5,41)*TWO-R3(5,42)+R2(4,44)*TWO+R2(4,45))*XZ+(
     * -R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO)*ZZ+(-R4(9,28)
     * -R4(9,29)*TWO+R3(5,33)+R3(5,34)*TWO)*XZZ+(-R4(5,28)+R3(2,33))*ZZZ
     * +(-R3(5,43)+R2(4,46))*XZZZ
      F(4,5,6,2)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)
     * -R6(13,5)+R5(8,7)+R5(8,8))*QX+(-R6(8,5)+R5(4,8)-R4(8,27)+R3(4,32)
     * )*QZ+(-R5(13,13)+R4(8,20))*XX+(-R5(8,13)-R5(8,14)+R4(4,20)
     * +R4(4,21))*XZ+(-R4(8,29)+R3(4,34))*XXZ
      F(5,5,6,2)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,4)-R6(14,5)+R5(9,7)+R5(9,8)-R4(5,26)
     * -R4(5,27)+R3(2,31)+R3(2,32))*QX+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)
     * -R4(9,26)-R4(9,27)+R3(5,31)+R3(5,32))*QZ+(-R5(14,13)+R4(9,20)
     * -R3(5,41)+R2(4,44))*XX+(-R5(9,12)-R5(9,13)*TWO-R5(9,14)+R4(5,19)
     * +R4(5,20)*TWO+R4(5,21))*XZ+(-R5(5,13)+R4(2,20)-R3(5,41)+R2(4,44))
     * *ZZ+(-R4(9,28)-R4(9,29)+R3(5,33)+R3(5,34))*XXZ+(-R4(5,28)
     * -R4(5,29)+R3(2,33)+R3(2,34))*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(6,5,6,2)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,5)
     * +R5(13,8)-R4(8,27)+R3(4,32))*QX+(-R6(13,4)-R6(13,5)+R5(8,7)
     * +R5(8,8))*QZ+(-R5(13,13)-R5(13,14)+R4(8,20)+R4(8,21))*XZ+(
     * -R5(8,13)+R4(4,20))*ZZ+(-R4(8,29)+R3(4,34))*XZZ
      F(1,6,6,2)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)*TWO
     * +R5(8,7)*TWO)*QX+(-R6(8,5)+R5(4,8)-R4(8,27)+R3(4,32))*QZ+(
     * -R5(13,12)+R4(8,19))*XX+(-R5(8,13)*TWO+R4(4,20)*TWO)*XZ+(
     * -R4(8,28)+R3(4,33))*XXZ
      F(2,6,6,2)= -R7(24,1)+R6(17,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(17,5)+R5(11,8)-R4(8,27)*THREE+R3(4,32)*THREE)*QZ
      F(3,6,6,2)= -R7(26,1)+R6(19,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(19,4)*TWO-R6(19,5)+R5(13,7)*TWO+R5(13,8)-R4(8,26)*TWO
     * -R4(8,27)+R3(4,31)*TWO+R3(4,32))*QZ+(-R5(13,12)-R5(13,13)*TWO
     * +R4(8,19)+R4(8,20)*TWO)*ZZ+(-R4(8,28)+R3(4,33))*ZZZ
      F(4,6,6,2)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,4)
     * +R5(12,7)-R4(9,26)+R3(5,31))*QX+(-R6(12,5)+R5(7,8)-R4(5,27)
     * +R3(2,32))*QZ+(-R5(12,13)+R4(7,20)-R3(5,41)+R2(4,44))*XZ
      F(5,6,6,2)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,4)
     * +R5(13,7)-R4(8,26)+R3(4,31))*QX+(-R6(13,4)-R6(13,5)+R5(8,7)
     * +R5(8,8))*QZ+(-R5(13,12)-R5(13,13)+R4(8,19)+R4(8,20))*XZ+(
     * -R5(8,13)+R4(4,20))*ZZ+(-R4(8,28)+R3(4,33))*XZZ
      F(6,6,6,2)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,4)-R6(18,5)+R5(12,7)+R5(12,8)
     * -R4(9,26)-R4(9,27)+R3(5,31)+R3(5,32))*QZ+(-R5(12,13)+R4(7,20)
     * -R3(5,41)+R2(4,44))*ZZ
      F(1,1,1,3)= -R7(2,1)-R5(2,4)-R5(2,11)*SIX-R3(2,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE+(-R6(2,4)*TWO-R6(2,5)*TWO
     * -R4(2,12)*TWO-R4(2,13)*TWO-R4(2,26)*SIX-R4(2,27)*SIX-R2(4,29)*SIX
     * -R2(4,30)*SIX)*QX+(-R5(2,12)-R5(2,13)*FOUR-R5(2,14)-R3(2,20)
     * -R3(2,21)*FOUR-R3(2,22)-R3(2,40)-R3(2,41)*FOUR-R3(2,42)-R1(2,32)
     * -R1(2,33)*FOUR-R1(2,34))*XX+(-R4(2,28)*TWO-R4(2,29)*TWO
     * -R2(4,31)*TWO-R2(4,32)*TWO)*XXX+(-R3(2,43)-R1(2,35))*XXXX
      F(2,1,1,3)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,5)*TWO-R4(7,13)*TWO-R4(2,27)*TWO
     * -R2(4,30)*TWO)*QX+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*XX
      F(3,1,1,3)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,5)*TWO-R4(9,13)*TWO-R4(2,27)*TWO
     * -R2(4,30)*TWO)*QX+(-R6(5,4)*TWO-R4(5,12)*TWO-R4(5,26)*TWO
     * -R2(6,29)*TWO)*QZ+(-R5(9,14)-R3(9,22)-R3(2,42)-R1(2,34))*XX+(
     * -R5(5,13)*FOUR-R3(5,21)*FOUR)*XZ+(-R5(2,12)-R3(2,20)-R3(2,40)
     * -R1(2,32))*ZZ+(-R4(5,29)*TWO-R2(6,32)*TWO)*XXZ+(-R4(2,28)*TWO
     * -R2(4,31)*TWO)*XZZ+(-R3(2,43)-R1(2,35))*XXZZ
      F(4,1,1,3)= -R7(4,1)-R5(4,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(4,4)-R6(4,5)*TWO-R4(4,12)-R4(4,13)*TWO-R4(4,26)-R4(4,27)*TWO
     * -R2(2,29)-R2(2,30)*TWO)*QX+(-R5(4,13)*TWO-R5(4,14)-R3(4,21)*TWO
     * -R3(4,22))*XX+(-R4(4,29)-R2(2,32))*XXX
      F(5,1,1,3)= -R7(5,1)-R5(5,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(5,4)-R6(5,5)*TWO-R4(5,12)-R4(5,13)*TWO-R4(5,26)-R4(5,27)*TWO
     * -R2(6,29)-R2(6,30)*TWO)*QX+(-R6(2,4)-R4(2,12)-R4(2,26)*THREE
     * -R2(4,29)*THREE)*QZ+(-R5(5,13)*TWO-R5(5,14)-R3(5,21)*TWO-R3(5,22)
     * )*XX+(-R5(2,12)-R5(2,13)*TWO-R3(2,20)-R3(2,21)*TWO-R3(2,40)
     * -R3(2,41)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(-R4(5,29)-R2(6,32))*XXX
     * +(-R4(2,28)*TWO-R4(2,29)-R2(4,31)*TWO-R2(4,32))*XXZ+(-R3(2,43)
     * -R1(2,35))*XXXZ
      F(6,1,1,3)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,5)*TWO
     * -R4(8,13)*TWO)*QX+(-R6(4,4)-R4(4,12)-R4(4,26)-R2(2,29))*QZ+(
     * -R5(8,14)-R3(8,22))*XX+(-R5(4,13)*TWO-R3(4,21)*TWO)*XZ+(-R4(4,29)
     * -R2(2,32))*XXZ
      F(1,2,1,3)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,4)*TWO-R4(7,12)*TWO-R4(2,26)*TWO
     * -R2(4,29)*TWO)*QX+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*XX
      F(2,2,1,3)= -R7(16,1)-R5(16,4)-R5(7,11)*SIX-R3(7,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE
      F(3,2,1,3)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,4)*TWO-R4(12,12)*TWO-R4(5,26)*TWO
     * -R2(6,29)*TWO)*QZ+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*ZZ
      F(4,2,1,3)= -R7(11,1)-R5(11,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(11,4)-R4(11,12)-R4(4,26)*THREE-R2(2,29)*THREE)*QX
      F(5,2,1,3)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,4)
     * -R4(12,12)-R4(5,26)-R2(6,29))*QX+(-R6(7,4)-R4(7,12)-R4(2,26)
     * -R2(4,29))*QZ+(-R5(7,12)-R3(7,20)-R3(2,40)-R1(2,32))*XZ
      F(6,2,1,3)= -R7(17,1)-R5(17,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(11,4)-R4(11,12)-R4(4,26)*THREE-R2(2,29)*THREE)*QZ
      F(1,3,1,3)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,4)*TWO-R4(9,12)*TWO-R4(2,26)*TWO
     * -R2(4,29)*TWO)*QX+(-R6(5,5)*TWO-R4(5,13)*TWO-R4(5,27)*TWO
     * -R2(6,30)*TWO)*QZ+(-R5(9,12)-R3(9,20)-R3(2,40)-R1(2,32))*XX+(
     * -R5(5,13)*FOUR-R3(5,21)*FOUR)*XZ+(-R5(2,14)-R3(2,22)-R3(2,42)
     * -R1(2,34))*ZZ+(-R4(5,28)*TWO-R2(6,31)*TWO)*XXZ+(-R4(2,29)*TWO
     * -R2(4,32)*TWO)*XZZ+(-R3(2,43)-R1(2,35))*XXZZ
      F(2,3,1,3)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,5)*TWO-R4(12,13)*TWO-R4(5,27)*TWO
     * -R2(6,30)*TWO)*QZ+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*ZZ
      F(3,3,1,3)= -R7(20,1)-R5(20,4)-R5(9,11)*SIX-R3(9,19)*SIX
     * -R3(2,39)*THREE-R1(2,31)*THREE+(-R6(14,4)*TWO-R6(14,5)*TWO
     * -R4(14,12)*TWO-R4(14,13)*TWO-R4(5,26)*SIX-R4(5,27)*SIX
     * -R2(6,29)*SIX-R2(6,30)*SIX)*QZ+(-R5(9,12)-R5(9,13)*FOUR-R5(9,14)
     * -R3(9,20)-R3(9,21)*FOUR-R3(9,22)-R3(2,40)-R3(2,41)*FOUR-R3(2,42)
     * -R1(2,32)-R1(2,33)*FOUR-R1(2,34))*ZZ+(-R4(5,28)*TWO-R4(5,29)*TWO
     * -R2(6,31)*TWO-R2(6,32)*TWO)*ZZZ+(-R3(2,43)-R1(2,35))*ZZZZ
      F(4,3,1,3)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,4)
     * -R4(13,12)-R4(4,26)-R2(2,29))*QX+(-R6(8,5)*TWO-R4(8,13)*TWO)*QZ+(
     * -R5(8,13)*TWO-R3(8,21)*TWO)*XZ+(-R5(4,14)-R3(4,22))*ZZ+(-R4(4,29)
     * -R2(2,32))*XZZ
      F(5,3,1,3)= -R7(14,1)-R5(14,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(14,4)-R4(14,12)-R4(5,26)*THREE-R2(6,29)*THREE)*QX+(-R6(9,4)
     * -R6(9,5)*TWO-R4(9,12)-R4(9,13)*TWO-R4(2,26)-R4(2,27)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QZ+(-R5(9,12)-R5(9,13)*TWO-R3(9,20)-R3(9,21)*TWO
     * -R3(2,40)-R3(2,41)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(-R5(5,13)*TWO
     * -R5(5,14)-R3(5,21)*TWO-R3(5,22))*ZZ+(-R4(5,28)*TWO-R4(5,29)
     * -R2(6,31)*TWO-R2(6,32))*XZZ+(-R4(2,29)-R2(4,32))*ZZZ+(-R3(2,43)
     * -R1(2,35))*XZZZ
      F(6,3,1,3)= -R7(19,1)-R5(19,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(13,4)-R6(13,5)*TWO-R4(13,12)-R4(13,13)*TWO-R4(4,26)
     * -R4(4,27)*TWO-R2(2,29)-R2(2,30)*TWO)*QZ+(-R5(8,13)*TWO-R5(8,14)
     * -R3(8,21)*TWO-R3(8,22))*ZZ+(-R4(4,29)-R2(2,32))*ZZZ
      F(1,4,1,3)= -R7(4,1)-R5(4,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(4,4)*TWO-R6(4,5)-R4(4,12)*TWO-R4(4,13)-R4(4,26)*TWO-R4(4,27)
     * -R2(2,29)*TWO-R2(2,30))*QX+(-R5(4,12)-R5(4,13)*TWO-R3(4,20)
     * -R3(4,21)*TWO)*XX+(-R4(4,28)-R2(2,31))*XXX
      F(2,4,1,3)= -R7(11,1)-R5(11,4)-R5(4,11)*THREE-R3(4,19)*THREE+(
     * -R6(11,5)-R4(11,13)-R4(4,27)*THREE-R2(2,30)*THREE)*QX
      F(3,4,1,3)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,5)
     * -R4(13,13)-R4(4,27)-R2(2,30))*QX+(-R6(8,4)*TWO-R4(8,12)*TWO)*QZ+(
     * -R5(8,13)*TWO-R3(8,21)*TWO)*XZ+(-R5(4,12)-R3(4,20))*ZZ+(-R4(4,28)
     * -R2(2,31))*XZZ
      F(4,4,1,3)= -R7(7,1)-R5(7,4)-R5(2,11)-R5(7,11)-R3(2,19)-R3(7,19)
     * -R3(2,39)-R1(2,31)+(-R6(7,4)-R6(7,5)-R4(7,12)-R4(7,13)-R4(2,26)
     * -R4(2,27)-R2(4,29)-R2(4,30))*QX+(-R5(7,13)-R3(7,21)-R3(2,41)
     * -R1(2,33))*XX
      F(5,4,1,3)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)-R6(8,5)
     * -R4(8,12)-R4(8,13))*QX+(-R6(4,4)-R4(4,12)-R4(4,26)-R2(2,29))*QZ+(
     * -R5(8,13)-R3(8,21))*XX+(-R5(4,12)-R5(4,13)-R3(4,20)-R3(4,21))*XZ
     * +(-R4(4,28)-R2(2,31))*XXZ
      F(6,4,1,3)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,5)
     * -R4(12,13)-R4(5,27)-R2(6,30))*QX+(-R6(7,4)-R4(7,12)-R4(2,26)
     * -R2(4,29))*QZ+(-R5(7,13)-R3(7,21)-R3(2,41)-R1(2,33))*XZ
      F(1,5,1,3)= -R7(5,1)-R5(5,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(5,4)*TWO-R6(5,5)-R4(5,12)*TWO-R4(5,13)-R4(5,26)*TWO-R4(5,27)
     * -R2(6,29)*TWO-R2(6,30))*QX+(-R6(2,5)-R4(2,13)-R4(2,27)*THREE
     * -R2(4,30)*THREE)*QZ+(-R5(5,12)-R5(5,13)*TWO-R3(5,20)-R3(5,21)*TWO
     * )*XX+(-R5(2,13)*TWO-R5(2,14)-R3(2,21)*TWO-R3(2,22)-R3(2,41)*TWO
     * -R3(2,42)-R1(2,33)*TWO-R1(2,34))*XZ+(-R4(5,28)-R2(6,31))*XXX+(
     * -R4(2,28)-R4(2,29)*TWO-R2(4,31)-R2(4,32)*TWO)*XXZ+(-R3(2,43)
     * -R1(2,35))*XXXZ
      F(2,5,1,3)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,5)
     * -R4(12,13)-R4(5,27)-R2(6,30))*QX+(-R6(7,5)-R4(7,13)-R4(2,27)
     * -R2(4,30))*QZ+(-R5(7,14)-R3(7,22)-R3(2,42)-R1(2,34))*XZ
      F(3,5,1,3)= -R7(14,1)-R5(14,4)-R5(5,11)*THREE-R3(5,19)*THREE+(
     * -R6(14,5)-R4(14,13)-R4(5,27)*THREE-R2(6,30)*THREE)*QX+(
     * -R6(9,4)*TWO-R6(9,5)-R4(9,12)*TWO-R4(9,13)-R4(2,26)*TWO-R4(2,27)
     * -R2(4,29)*TWO-R2(4,30))*QZ+(-R5(9,13)*TWO-R5(9,14)-R3(9,21)*TWO
     * -R3(9,22)-R3(2,41)*TWO-R3(2,42)-R1(2,33)*TWO-R1(2,34))*XZ+(
     * -R5(5,12)-R5(5,13)*TWO-R3(5,20)-R3(5,21)*TWO)*ZZ+(-R4(5,28)
     * -R4(5,29)*TWO-R2(6,31)-R2(6,32)*TWO)*XZZ+(-R4(2,28)-R2(4,31))*ZZZ
     * +(-R3(2,43)-R1(2,35))*XZZZ
      F(4,5,1,3)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)-R6(8,5)
     * -R4(8,12)-R4(8,13))*QX+(-R6(4,5)-R4(4,13)-R4(4,27)-R2(2,30))*QZ+(
     * -R5(8,13)-R3(8,21))*XX+(-R5(4,13)-R5(4,14)-R3(4,21)-R3(4,22))*XZ
     * +(-R4(4,29)-R2(2,32))*XXZ
      F(5,5,1,3)= -R7(9,1)-R5(9,4)-R5(2,11)-R5(9,11)-R3(2,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(9,4)-R6(9,5)-R4(9,12)-R4(9,13)-R4(2,26)
     * -R4(2,27)-R2(4,29)-R2(4,30))*QX+(-R6(5,4)-R6(5,5)-R4(5,12)
     * -R4(5,13)-R4(5,26)-R4(5,27)-R2(6,29)-R2(6,30))*QZ+(-R5(9,13)
     * -R3(9,21)-R3(2,41)-R1(2,33))*XX+(-R5(5,12)-R5(5,13)*TWO-R5(5,14)
     * -R3(5,20)-R3(5,21)*TWO-R3(5,22))*XZ+(-R5(2,13)-R3(2,21)-R3(2,41)
     * -R1(2,33))*ZZ+(-R4(5,28)-R4(5,29)-R2(6,31)-R2(6,32))*XXZ+(
     * -R4(2,28)-R4(2,29)-R2(4,31)-R2(4,32))*XZZ+(-R3(2,43)-R1(2,35))
     * *XXZZ
      F(6,5,1,3)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,5)
     * -R4(13,13)-R4(4,27)-R2(2,30))*QX+(-R6(8,4)-R6(8,5)-R4(8,12)
     * -R4(8,13))*QZ+(-R5(8,13)-R5(8,14)-R3(8,21)-R3(8,22))*XZ+(
     * -R5(4,13)-R3(4,21))*ZZ+(-R4(4,29)-R2(2,32))*XZZ
      F(1,6,1,3)= -R7(8,1)-R5(8,4)-R5(8,11)-R3(8,19)+(-R6(8,4)*TWO
     * -R4(8,12)*TWO)*QX+(-R6(4,5)-R4(4,13)-R4(4,27)-R2(2,30))*QZ+(
     * -R5(8,12)-R3(8,20))*XX+(-R5(4,13)*TWO-R3(4,21)*TWO)*XZ+(-R4(4,28)
     * -R2(2,31))*XXZ
      F(2,6,1,3)= -R7(17,1)-R5(17,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(11,5)-R4(11,13)-R4(4,27)*THREE-R2(2,30)*THREE)*QZ
      F(3,6,1,3)= -R7(19,1)-R5(19,4)-R5(8,11)*THREE-R3(8,19)*THREE+(
     * -R6(13,4)*TWO-R6(13,5)-R4(13,12)*TWO-R4(13,13)-R4(4,26)*TWO
     * -R4(4,27)-R2(2,29)*TWO-R2(2,30))*QZ+(-R5(8,12)-R5(8,13)*TWO
     * -R3(8,20)-R3(8,21)*TWO)*ZZ+(-R4(4,28)-R2(2,31))*ZZZ
      F(4,6,1,3)= -R7(12,1)-R5(12,4)-R5(5,11)-R3(5,19)+(-R6(12,4)
     * -R4(12,12)-R4(5,26)-R2(6,29))*QX+(-R6(7,5)-R4(7,13)-R4(2,27)
     * -R2(4,30))*QZ+(-R5(7,13)-R3(7,21)-R3(2,41)-R1(2,33))*XZ
      F(5,6,1,3)= -R7(13,1)-R5(13,4)-R5(4,11)-R3(4,19)+(-R6(13,4)
     * -R4(13,12)-R4(4,26)-R2(2,29))*QX+(-R6(8,4)-R6(8,5)-R4(8,12)
     * -R4(8,13))*QZ+(-R5(8,12)-R5(8,13)-R3(8,20)-R3(8,21))*XZ+(
     * -R5(4,13)-R3(4,21))*ZZ+(-R4(4,28)-R2(2,31))*XZZ
      F(6,6,1,3)= -R7(18,1)-R5(18,4)-R5(7,11)-R5(9,11)-R3(7,19)-R3(9,19)
     * -R3(2,39)-R1(2,31)+(-R6(12,4)-R6(12,5)-R4(12,12)-R4(12,13)
     * -R4(5,26)-R4(5,27)-R2(6,29)-R2(6,30))*QZ+(-R5(7,13)-R3(7,21)
     * -R3(2,41)-R1(2,33))*ZZ
      F(1,1,2,3)= -R7(7,1)-R5(2,4)*THREE-R5(7,11)*SIX-R3(2,19)*P18
     * -R3(7,39)*THREE-R1(2,31)*NINE+(-R6(7,4)*TWO-R6(7,5)*TWO
     * -R4(2,12)*SIX-R4(2,13)*SIX-R4(7,26)*SIX-R4(7,27)*SIX-R2(4,29)*P18
     * -R2(4,30)*P18)*QX+(-R5(7,12)-R5(7,13)*FOUR-R5(7,14)
     * -R3(2,20)*THREE-R3(2,21)*TWELV-R3(2,22)*THREE-R3(7,40)
     * -R3(7,41)*FOUR-R3(7,42)-R1(2,32)*THREE-R1(2,33)*TWELV
     * -R1(2,34)*THREE)*XX+(-R4(7,28)*TWO-R4(7,29)*TWO-R2(4,31)*SIX
     * -R2(4,32)*SIX)*XXX+(-R3(7,43)-R1(2,35)*THREE)*XXXX
      F(2,1,2,3)= -R7(16,1)-R5(7,4)*THREE-R5(7,11)-R5(16,11)
     * -R3(2,19)*THREE-R3(7,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(16,5)*TWO-R4(7,13)*SIX-R4(7,27)*TWO-R2(4,30)*SIX)*QX+(
     * -R5(16,14)-R3(7,22)*THREE-R3(7,42)-R1(2,34)*THREE)*XX
      F(3,1,2,3)= -R7(18,1)-R5(9,4)*THREE-R5(7,11)-R5(18,11)
     * -R3(2,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(18,5)*TWO-R4(9,13)*SIX-R4(7,27)*TWO-R2(4,30)*SIX)*QX+(
     * -R6(12,4)*TWO-R4(5,12)*SIX-R4(12,26)*TWO-R2(6,29)*SIX)*QZ+(
     * -R5(18,14)-R3(9,22)*THREE-R3(7,42)-R1(2,34)*THREE)*XX+(
     * -R5(12,13)*FOUR-R3(5,21)*TWELV)*XZ+(-R5(7,12)-R3(2,20)*THREE
     * -R3(7,40)-R1(2,32)*THREE)*ZZ+(-R4(12,29)*TWO-R2(6,32)*SIX)*XXZ+(
     * -R4(7,28)*TWO-R2(4,31)*SIX)*XZZ+(-R3(7,43)-R1(2,35)*THREE)*XXZZ
      F(4,1,2,3)= -R7(11,1)-R5(4,4)*THREE-R5(11,11)*THREE-R3(4,19)*NINE
     * +(-R6(11,4)-R6(11,5)*TWO-R4(4,12)*THREE-R4(4,13)*SIX-R4(11,26)
     * -R4(11,27)*TWO-R2(2,29)*THREE-R2(2,30)*SIX)*QX+(-R5(11,13)*TWO
     * -R5(11,14)-R3(4,21)*SIX-R3(4,22)*THREE)*XX+(-R4(11,29)
     * -R2(2,32)*THREE)*XXX
      F(5,1,2,3)= -R7(12,1)-R5(5,4)*THREE-R5(12,11)*THREE-R3(5,19)*NINE
     * +(-R6(12,4)-R6(12,5)*TWO-R4(5,12)*THREE-R4(5,13)*SIX-R4(12,26)
     * -R4(12,27)*TWO-R2(6,29)*THREE-R2(6,30)*SIX)*QX+(-R6(7,4)
     * -R4(2,12)*THREE-R4(7,26)*THREE-R2(4,29)*NINE)*QZ+(-R5(12,13)*TWO
     * -R5(12,14)-R3(5,21)*SIX-R3(5,22)*THREE)*XX+(-R5(7,12)
     * -R5(7,13)*TWO-R3(2,20)*THREE-R3(2,21)*SIX-R3(7,40)-R3(7,41)*TWO
     * -R1(2,32)*THREE-R1(2,33)*SIX)*XZ+(-R4(12,29)-R2(6,32)*THREE)*XXX
     * +(-R4(7,28)*TWO-R4(7,29)-R2(4,31)*SIX-R2(4,32)*THREE)*XXZ+(
     * -R3(7,43)-R1(2,35)*THREE)*XXXZ
      F(6,1,2,3)= -R7(17,1)-R5(8,4)*THREE-R5(17,11)-R3(8,19)*THREE+(
     * -R6(17,5)*TWO-R4(8,13)*SIX)*QX+(-R6(11,4)-R4(4,12)*THREE
     * -R4(11,26)-R2(2,29)*THREE)*QZ+(-R5(17,14)-R3(8,22)*THREE)*XX+(
     * -R5(11,13)*TWO-R3(4,21)*SIX)*XZ+(-R4(11,29)-R2(2,32)*THREE)*XXZ
      F(1,2,2,3)= -R7(16,1)-R5(7,4)*THREE-R5(7,11)-R5(16,11)
     * -R3(2,19)*THREE-R3(7,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(16,4)*TWO-R4(7,12)*SIX-R4(7,26)*TWO-R2(4,29)*SIX)*QX+(
     * -R5(16,12)-R3(7,20)*THREE-R3(7,40)-R1(2,32)*THREE)*XX
      F(2,2,2,3)= -R7(29,1)-R5(16,4)*THREE-R5(16,11)*SIX-R3(7,19)*P18
     * -R3(7,39)*THREE-R1(2,31)*NINE
      F(3,2,2,3)= -R7(31,1)-R5(18,4)*THREE-R5(16,11)-R5(18,11)
     * -R3(7,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(23,4)*TWO-R4(12,12)*SIX-R4(12,26)*TWO-R2(6,29)*SIX)*QZ+(
     * -R5(16,12)-R3(7,20)*THREE-R3(7,40)-R1(2,32)*THREE)*ZZ
      F(4,2,2,3)= -R7(22,1)-R5(11,4)*THREE-R5(11,11)*THREE-R3(4,19)*NINE
     * +(-R6(22,4)-R4(11,12)*THREE-R4(11,26)*THREE-R2(2,29)*NINE)*QX
      F(5,2,2,3)= -R7(23,1)-R5(12,4)*THREE-R5(12,11)-R3(5,19)*THREE+(
     * -R6(23,4)-R4(12,12)*THREE-R4(12,26)-R2(6,29)*THREE)*QX+(-R6(16,4)
     * -R4(7,12)*THREE-R4(7,26)-R2(4,29)*THREE)*QZ+(-R5(16,12)
     * -R3(7,20)*THREE-R3(7,40)-R1(2,32)*THREE)*XZ
      F(6,2,2,3)= -R7(30,1)-R5(17,4)*THREE-R5(17,11)*THREE-R3(8,19)*NINE
     * +(-R6(22,4)-R4(11,12)*THREE-R4(11,26)*THREE-R2(2,29)*NINE)*QZ
      F(1,3,2,3)= -R7(18,1)-R5(9,4)*THREE-R5(7,11)-R5(18,11)
     * -R3(2,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(18,4)*TWO-R4(9,12)*SIX-R4(7,26)*TWO-R2(4,29)*SIX)*QX+(
     * -R6(12,5)*TWO-R4(5,13)*SIX-R4(12,27)*TWO-R2(6,30)*SIX)*QZ+(
     * -R5(18,12)-R3(9,20)*THREE-R3(7,40)-R1(2,32)*THREE)*XX+(
     * -R5(12,13)*FOUR-R3(5,21)*TWELV)*XZ+(-R5(7,14)-R3(2,22)*THREE
     * -R3(7,42)-R1(2,34)*THREE)*ZZ+(-R4(12,28)*TWO-R2(6,31)*SIX)*XXZ+(
     * -R4(7,29)*TWO-R2(4,32)*SIX)*XZZ+(-R3(7,43)-R1(2,35)*THREE)*XXZZ
      F(2,3,2,3)= -R7(31,1)-R5(18,4)*THREE-R5(16,11)-R5(18,11)
     * -R3(7,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(
     * -R6(23,5)*TWO-R4(12,13)*SIX-R4(12,27)*TWO-R2(6,30)*SIX)*QZ+(
     * -R5(16,14)-R3(7,22)*THREE-R3(7,42)-R1(2,34)*THREE)*ZZ
      F(3,3,2,3)= -R7(33,1)-R5(20,4)*THREE-R5(18,11)*SIX-R3(9,19)*P18
     * -R3(7,39)*THREE-R1(2,31)*NINE+(-R6(25,4)*TWO-R6(25,5)*TWO
     * -R4(14,12)*SIX-R4(14,13)*SIX-R4(12,26)*SIX-R4(12,27)*SIX
     * -R2(6,29)*P18-R2(6,30)*P18)*QZ+(-R5(18,12)-R5(18,13)*FOUR
     * -R5(18,14)-R3(9,20)*THREE-R3(9,21)*TWELV-R3(9,22)*THREE-R3(7,40)
     * -R3(7,41)*FOUR-R3(7,42)-R1(2,32)*THREE-R1(2,33)*TWELV
     * -R1(2,34)*THREE)*ZZ+(-R4(12,28)*TWO-R4(12,29)*TWO-R2(6,31)*SIX
     * -R2(6,32)*SIX)*ZZZ+(-R3(7,43)-R1(2,35)*THREE)*ZZZZ
      F(4,3,2,3)= -R7(24,1)-R5(13,4)*THREE-R5(11,11)-R3(4,19)*THREE+(
     * -R6(24,4)-R4(13,12)*THREE-R4(11,26)-R2(2,29)*THREE)*QX+(
     * -R6(17,5)*TWO-R4(8,13)*SIX)*QZ+(-R5(17,13)*TWO-R3(8,21)*SIX)*XZ+(
     * -R5(11,14)-R3(4,22)*THREE)*ZZ+(-R4(11,29)-R2(2,32)*THREE)*XZZ
      F(5,3,2,3)= -R7(25,1)-R5(14,4)*THREE-R5(12,11)*THREE-R3(5,19)*NINE
     * +(-R6(25,4)-R4(14,12)*THREE-R4(12,26)*THREE-R2(6,29)*NINE)*QX+(
     * -R6(18,4)-R6(18,5)*TWO-R4(9,12)*THREE-R4(9,13)*SIX-R4(7,26)
     * -R4(7,27)*TWO-R2(4,29)*THREE-R2(4,30)*SIX)*QZ+(-R5(18,12)
     * -R5(18,13)*TWO-R3(9,20)*THREE-R3(9,21)*SIX-R3(7,40)-R3(7,41)*TWO
     * -R1(2,32)*THREE-R1(2,33)*SIX)*XZ+(-R5(12,13)*TWO-R5(12,14)
     * -R3(5,21)*SIX-R3(5,22)*THREE)*ZZ+(-R4(12,28)*TWO-R4(12,29)
     * -R2(6,31)*SIX-R2(6,32)*THREE)*XZZ+(-R4(7,29)-R2(4,32)*THREE)*ZZZ
     * +(-R3(7,43)-R1(2,35)*THREE)*XZZZ
      F(6,3,2,3)= -R7(32,1)-R5(19,4)*THREE-R5(17,11)*THREE-R3(8,19)*NINE
     * +(-R6(24,4)-R6(24,5)*TWO-R4(13,12)*THREE-R4(13,13)*SIX-R4(11,26)
     * -R4(11,27)*TWO-R2(2,29)*THREE-R2(2,30)*SIX)*QZ+(-R5(17,13)*TWO
     * -R5(17,14)-R3(8,21)*SIX-R3(8,22)*THREE)*ZZ+(-R4(11,29)
     * -R2(2,32)*THREE)*ZZZ
      F(1,4,2,3)= -R7(11,1)-R5(4,4)*THREE-R5(11,11)*THREE-R3(4,19)*NINE
     * +(-R6(11,4)*TWO-R6(11,5)-R4(4,12)*SIX-R4(4,13)*THREE
     * -R4(11,26)*TWO-R4(11,27)-R2(2,29)*SIX-R2(2,30)*THREE)*QX+(
     * -R5(11,12)-R5(11,13)*TWO-R3(4,20)*THREE-R3(4,21)*SIX)*XX+(
     * -R4(11,28)-R2(2,31)*THREE)*XXX
      F(2,4,2,3)= -R7(22,1)-R5(11,4)*THREE-R5(11,11)*THREE-R3(4,19)*NINE
     * +(-R6(22,5)-R4(11,13)*THREE-R4(11,27)*THREE-R2(2,30)*NINE)*QX
      F(3,4,2,3)= -R7(24,1)-R5(13,4)*THREE-R5(11,11)-R3(4,19)*THREE+(
     * -R6(24,5)-R4(13,13)*THREE-R4(11,27)-R2(2,30)*THREE)*QX+(
     * -R6(17,4)*TWO-R4(8,12)*SIX)*QZ+(-R5(17,13)*TWO-R3(8,21)*SIX)*XZ+(
     * -R5(11,12)-R3(4,20)*THREE)*ZZ+(-R4(11,28)-R2(2,31)*THREE)*XZZ
      F(4,4,2,3)= -R7(16,1)-R5(7,4)*THREE-R5(7,11)-R5(16,11)
     * -R3(2,19)*THREE-R3(7,19)*THREE-R3(7,39)-R1(2,31)*THREE+(-R6(16,4)
     * -R6(16,5)-R4(7,12)*THREE-R4(7,13)*THREE-R4(7,26)-R4(7,27)
     * -R2(4,29)*THREE-R2(4,30)*THREE)*QX+(-R5(16,13)-R3(7,21)*THREE
     * -R3(7,41)-R1(2,33)*THREE)*XX
      F(5,4,2,3)= -R7(17,1)-R5(8,4)*THREE-R5(17,11)-R3(8,19)*THREE+(
     * -R6(17,4)-R6(17,5)-R4(8,12)*THREE-R4(8,13)*THREE)*QX+(-R6(11,4)
     * -R4(4,12)*THREE-R4(11,26)-R2(2,29)*THREE)*QZ+(-R5(17,13)
     * -R3(8,21)*THREE)*XX+(-R5(11,12)-R5(11,13)-R3(4,20)*THREE
     * -R3(4,21)*THREE)*XZ+(-R4(11,28)-R2(2,31)*THREE)*XXZ
      F(6,4,2,3)= -R7(23,1)-R5(12,4)*THREE-R5(12,11)-R3(5,19)*THREE+(
     * -R6(23,5)-R4(12,13)*THREE-R4(12,27)-R2(6,30)*THREE)*QX+(-R6(16,4)
     * -R4(7,12)*THREE-R4(7,26)-R2(4,29)*THREE)*QZ+(-R5(16,13)
     * -R3(7,21)*THREE-R3(7,41)-R1(2,33)*THREE)*XZ
      F(1,5,2,3)= -R7(12,1)-R5(5,4)*THREE-R5(12,11)*THREE-R3(5,19)*NINE
     * +(-R6(12,4)*TWO-R6(12,5)-R4(5,12)*SIX-R4(5,13)*THREE
     * -R4(12,26)*TWO-R4(12,27)-R2(6,29)*SIX-R2(6,30)*THREE)*QX+(
     * -R6(7,5)-R4(2,13)*THREE-R4(7,27)*THREE-R2(4,30)*NINE)*QZ+(
     * -R5(12,12)-R5(12,13)*TWO-R3(5,20)*THREE-R3(5,21)*SIX)*XX+(
     * -R5(7,13)*TWO-R5(7,14)-R3(2,21)*SIX-R3(2,22)*THREE-R3(7,41)*TWO
     * -R3(7,42)-R1(2,33)*SIX-R1(2,34)*THREE)*XZ+(-R4(12,28)
     * -R2(6,31)*THREE)*XXX+(-R4(7,28)-R4(7,29)*TWO-R2(4,31)*THREE
     * -R2(4,32)*SIX)*XXZ+(-R3(7,43)-R1(2,35)*THREE)*XXXZ
      F(2,5,2,3)= -R7(23,1)-R5(12,4)*THREE-R5(12,11)-R3(5,19)*THREE+(
     * -R6(23,5)-R4(12,13)*THREE-R4(12,27)-R2(6,30)*THREE)*QX+(-R6(16,5)
     * -R4(7,13)*THREE-R4(7,27)-R2(4,30)*THREE)*QZ+(-R5(16,14)
     * -R3(7,22)*THREE-R3(7,42)-R1(2,34)*THREE)*XZ
      F(3,5,2,3)= -R7(25,1)-R5(14,4)*THREE-R5(12,11)*THREE-R3(5,19)*NINE
     * +(-R6(25,5)-R4(14,13)*THREE-R4(12,27)*THREE-R2(6,30)*NINE)*QX+(
     * -R6(18,4)*TWO-R6(18,5)-R4(9,12)*SIX-R4(9,13)*THREE-R4(7,26)*TWO
     * -R4(7,27)-R2(4,29)*SIX-R2(4,30)*THREE)*QZ+(-R5(18,13)*TWO
     * -R5(18,14)-R3(9,21)*SIX-R3(9,22)*THREE-R3(7,41)*TWO-R3(7,42)
     * -R1(2,33)*SIX-R1(2,34)*THREE)*XZ+(-R5(12,12)-R5(12,13)*TWO
     * -R3(5,20)*THREE-R3(5,21)*SIX)*ZZ+(-R4(12,28)-R4(12,29)*TWO
     * -R2(6,31)*THREE-R2(6,32)*SIX)*XZZ+(-R4(7,28)-R2(4,31)*THREE)*ZZZ
     * +(-R3(7,43)-R1(2,35)*THREE)*XZZZ
      F(4,5,2,3)= -R7(17,1)-R5(8,4)*THREE-R5(17,11)-R3(8,19)*THREE+(
     * -R6(17,4)-R6(17,5)-R4(8,12)*THREE-R4(8,13)*THREE)*QX+(-R6(11,5)
     * -R4(4,13)*THREE-R4(11,27)-R2(2,30)*THREE)*QZ+(-R5(17,13)
     * -R3(8,21)*THREE)*XX+(-R5(11,13)-R5(11,14)-R3(4,21)*THREE
     * -R3(4,22)*THREE)*XZ+(-R4(11,29)-R2(2,32)*THREE)*XXZ
      F(5,5,2,3)= -R7(18,1)-R5(9,4)*THREE-R5(7,11)-R5(18,11)
     * -R3(2,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(-R6(18,4)
     * -R6(18,5)-R4(9,12)*THREE-R4(9,13)*THREE-R4(7,26)-R4(7,27)
     * -R2(4,29)*THREE-R2(4,30)*THREE)*QX+(-R6(12,4)-R6(12,5)
     * -R4(5,12)*THREE-R4(5,13)*THREE-R4(12,26)-R4(12,27)-R2(6,29)*THREE
     * -R2(6,30)*THREE)*QZ+(-R5(18,13)-R3(9,21)*THREE-R3(7,41)
     * -R1(2,33)*THREE)*XX+(-R5(12,12)-R5(12,13)*TWO-R5(12,14)
     * -R3(5,20)*THREE-R3(5,21)*SIX-R3(5,22)*THREE)*XZ+(-R5(7,13)
     * -R3(2,21)*THREE-R3(7,41)-R1(2,33)*THREE)*ZZ+(-R4(12,28)-R4(12,29)
     * -R2(6,31)*THREE-R2(6,32)*THREE)*XXZ+(-R4(7,28)-R4(7,29)
     * -R2(4,31)*THREE-R2(4,32)*THREE)*XZZ+(-R3(7,43)-R1(2,35)*THREE)
     * *XXZZ
      F(6,5,2,3)= -R7(24,1)-R5(13,4)*THREE-R5(11,11)-R3(4,19)*THREE+(
     * -R6(24,5)-R4(13,13)*THREE-R4(11,27)-R2(2,30)*THREE)*QX+(-R6(17,4)
     * -R6(17,5)-R4(8,12)*THREE-R4(8,13)*THREE)*QZ+(-R5(17,13)-R5(17,14)
     * -R3(8,21)*THREE-R3(8,22)*THREE)*XZ+(-R5(11,13)-R3(4,21)*THREE)*ZZ
     * +(-R4(11,29)-R2(2,32)*THREE)*XZZ
      F(1,6,2,3)= -R7(17,1)-R5(8,4)*THREE-R5(17,11)-R3(8,19)*THREE+(
     * -R6(17,4)*TWO-R4(8,12)*SIX)*QX+(-R6(11,5)-R4(4,13)*THREE
     * -R4(11,27)-R2(2,30)*THREE)*QZ+(-R5(17,12)-R3(8,20)*THREE)*XX+(
     * -R5(11,13)*TWO-R3(4,21)*SIX)*XZ+(-R4(11,28)-R2(2,31)*THREE)*XXZ
      F(2,6,2,3)= -R7(30,1)-R5(17,4)*THREE-R5(17,11)*THREE-R3(8,19)*NINE
     * +(-R6(22,5)-R4(11,13)*THREE-R4(11,27)*THREE-R2(2,30)*NINE)*QZ
      F(3,6,2,3)= -R7(32,1)-R5(19,4)*THREE-R5(17,11)*THREE-R3(8,19)*NINE
     * +(-R6(24,4)*TWO-R6(24,5)-R4(13,12)*SIX-R4(13,13)*THREE
     * -R4(11,26)*TWO-R4(11,27)-R2(2,29)*SIX-R2(2,30)*THREE)*QZ+(
     * -R5(17,12)-R5(17,13)*TWO-R3(8,20)*THREE-R3(8,21)*SIX)*ZZ+(
     * -R4(11,28)-R2(2,31)*THREE)*ZZZ
      F(4,6,2,3)= -R7(23,1)-R5(12,4)*THREE-R5(12,11)-R3(5,19)*THREE+(
     * -R6(23,4)-R4(12,12)*THREE-R4(12,26)-R2(6,29)*THREE)*QX+(-R6(16,5)
     * -R4(7,13)*THREE-R4(7,27)-R2(4,30)*THREE)*QZ+(-R5(16,13)
     * -R3(7,21)*THREE-R3(7,41)-R1(2,33)*THREE)*XZ
      F(5,6,2,3)= -R7(24,1)-R5(13,4)*THREE-R5(11,11)-R3(4,19)*THREE+(
     * -R6(24,4)-R4(13,12)*THREE-R4(11,26)-R2(2,29)*THREE)*QX+(-R6(17,4)
     * -R6(17,5)-R4(8,12)*THREE-R4(8,13)*THREE)*QZ+(-R5(17,12)-R5(17,13)
     * -R3(8,20)*THREE-R3(8,21)*THREE)*XZ+(-R5(11,13)-R3(4,21)*THREE)*ZZ
     * +(-R4(11,28)-R2(2,31)*THREE)*XZZ
      F(6,6,2,3)= -R7(31,1)-R5(18,4)*THREE-R5(16,11)-R5(18,11)
     * -R3(7,19)*THREE-R3(9,19)*THREE-R3(7,39)-R1(2,31)*THREE+(-R6(23,4)
     * -R6(23,5)-R4(12,12)*THREE-R4(12,13)*THREE-R4(12,26)-R4(12,27)
     * -R2(6,29)*THREE-R2(6,30)*THREE)*QZ+(-R5(16,13)-R3(7,21)*THREE
     * -R3(7,41)-R1(2,33)*THREE)*ZZ
      F(1,1,3,3)= -R7(9,1)+R6(5,3)*TWO-R5(2,3)-R5(2,4)-R5(9,11)*SIX
     * +R4(5,18)*TWELV-R3(2,15)*SIX-R3(2,19)*SIX-R3(9,39)*THREE
     * +R2(6,42)*SIX-R1(2,26)*THREE-R1(2,31)*THREE+(-R6(9,4)*TWO
     * -R6(9,5)*TWO+R5(5,7)*FOUR+R5(5,8)*FOUR-R4(2,10)*TWO-R4(2,11)*TWO
     * -R4(2,12)*TWO-R4(2,13)*TWO-R4(9,26)*SIX-R4(9,27)*SIX
     * +R3(5,31)*TWELV+R3(5,32)*TWELV-R2(4,25)*SIX-R2(4,26)*SIX
     * -R2(4,29)*SIX-R2(4,30)*SIX)*QX+(-R5(9,12)-R5(9,13)*FOUR-R5(9,14)
     * +R4(5,19)*TWO+R4(5,20)*EIGHT+R4(5,21)*TWO-R3(2,16)-R3(2,17)*FOUR
     * -R3(2,18)-R3(2,20)-R3(2,21)*FOUR-R3(2,22)-R3(9,40)-R3(9,41)*FOUR
     * -R3(9,42)+R2(6,43)*TWO+R2(6,44)*EIGHT+R2(6,45)*TWO-R1(2,27)
     * -R1(2,28)*FOUR-R1(2,29)-R1(2,32)-R1(2,33)*FOUR-R1(2,34))*XX+(
     * -R4(9,28)*TWO-R4(9,29)*TWO+R3(5,33)*FOUR+R3(5,34)*FOUR
     * -R2(4,27)*TWO-R2(4,28)*TWO-R2(4,31)*TWO-R2(4,32)*TWO)*XXX+(
     * -R3(9,43)+R2(6,46)*TWO-R1(2,30)-R1(2,35))*XXXX
      F(2,1,3,3)= -R7(18,1)+R6(12,3)*TWO-R5(7,3)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)*TWO+R4(12,18)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(18,5)*TWO
     * +R5(12,8)*FOUR-R4(7,11)*TWO-R4(7,13)*TWO-R4(9,27)*TWO
     * +R3(5,32)*FOUR-R2(4,26)*TWO-R2(4,30)*TWO)*QX+(-R5(18,14)
     * +R4(12,21)*TWO-R3(7,18)-R3(7,22)-R3(9,42)+R2(6,45)*TWO-R1(2,29)
     * -R1(2,34))*XX
      F(3,1,3,3)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)*TWO+R4(14,18)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(20,5)*TWO
     * +R5(14,8)*FOUR-R4(9,11)*TWO-R4(9,13)*TWO-R4(9,27)*TWO
     * +R3(5,32)*FOUR-R2(4,26)*TWO-R2(4,30)*TWO)*QX+(-R6(14,4)*TWO
     * +R5(9,7)*FOUR-R4(5,10)*TWO-R4(5,12)*TWO-R4(14,26)*TWO
     * +R3(9,31)*FOUR-R2(6,25)*TWO-R2(6,29)*TWO)*QZ+(-R5(20,14)
     * +R4(14,21)*TWO-R3(9,18)-R3(9,22)-R3(9,42)+R2(6,45)*TWO-R1(2,29)
     * -R1(2,34))*XX+(-R5(14,13)*FOUR+R4(9,20)*EIGHT-R3(5,17)*FOUR
     * -R3(5,21)*FOUR)*XZ+(-R5(9,12)+R4(5,19)*TWO-R3(2,16)-R3(2,20)
     * -R3(9,40)+R2(6,43)*TWO-R1(2,27)-R1(2,32))*ZZ+(-R4(14,29)*TWO
     * +R3(9,34)*FOUR-R2(6,28)*TWO-R2(6,32)*TWO)*XXZ+(-R4(9,28)*TWO
     * +R3(5,33)*FOUR-R2(4,27)*TWO-R2(4,31)*TWO)*XZZ+(-R3(9,43)
     * +R2(6,46)*TWO-R1(2,30)-R1(2,35))*XXZZ
      F(4,1,3,3)= -R7(13,1)+R6(8,3)*TWO-R5(4,3)-R5(4,4)-R5(13,11)*THREE
     * +R4(8,18)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(-R6(13,4)
     * -R6(13,5)*TWO+R5(8,7)*TWO+R5(8,8)*FOUR-R4(4,10)-R4(4,11)*TWO
     * -R4(4,12)-R4(4,13)*TWO-R4(13,26)-R4(13,27)*TWO+R3(8,31)*TWO
     * +R3(8,32)*FOUR-R2(2,25)-R2(2,26)*TWO-R2(2,29)-R2(2,30)*TWO)*QX+(
     * -R5(13,13)*TWO-R5(13,14)+R4(8,20)*FOUR+R4(8,21)*TWO-R3(4,17)*TWO
     * -R3(4,18)-R3(4,21)*TWO-R3(4,22))*XX+(-R4(13,29)+R3(8,34)*TWO
     * -R2(2,28)-R2(2,32))*XXX
      F(5,1,3,3)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)*THREE
     * +R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,7)*TWO+R5(9,8)*FOUR-R4(5,10)-R4(5,11)*TWO
     * -R4(5,12)-R4(5,13)*TWO-R4(14,26)-R4(14,27)*TWO+R3(9,31)*TWO
     * +R3(9,32)*FOUR-R2(6,25)-R2(6,26)*TWO-R2(6,29)-R2(6,30)*TWO)*QX+(
     * -R6(9,4)+R5(5,7)*TWO-R4(2,10)-R4(2,12)-R4(9,26)*THREE
     * +R3(5,31)*SIX-R2(4,25)*THREE-R2(4,29)*THREE)*QZ+(-R5(14,13)*TWO
     * -R5(14,14)+R4(9,20)*FOUR+R4(9,21)*TWO-R3(5,17)*TWO-R3(5,18)
     * -R3(5,21)*TWO-R3(5,22))*XX+(-R5(9,12)-R5(9,13)*TWO+R4(5,19)*TWO
     * +R4(5,20)*FOUR-R3(2,16)-R3(2,17)*TWO-R3(2,20)-R3(2,21)*TWO
     * -R3(9,40)-R3(9,41)*TWO+R2(6,43)*TWO+R2(6,44)*FOUR-R1(2,27)
     * -R1(2,28)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(-R4(14,29)+R3(9,34)*TWO
     * -R2(6,28)-R2(6,32))*XXX+(-R4(9,28)*TWO-R4(9,29)+R3(5,33)*FOUR
     * +R3(5,34)*TWO-R2(4,27)*TWO-R2(4,28)-R2(4,31)*TWO-R2(4,32))*XXZ+(
     * -R3(9,43)+R2(6,46)*TWO-R1(2,30)-R1(2,35))*XXXZ
      F(6,1,3,3)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(19,11)
     * +R4(13,18)*TWO-R3(8,15)-R3(8,19)+(-R6(19,5)*TWO+R5(13,8)*FOUR
     * -R4(8,11)*TWO-R4(8,13)*TWO)*QX+(-R6(13,4)+R5(8,7)*TWO-R4(4,10)
     * -R4(4,12)-R4(13,26)+R3(8,31)*TWO-R2(2,25)-R2(2,29))*QZ+(
     * -R5(19,14)+R4(13,21)*TWO-R3(8,18)-R3(8,22))*XX+(-R5(13,13)*TWO
     * +R4(8,20)*FOUR-R3(4,17)*TWO-R3(4,21)*TWO)*XZ+(-R4(13,29)
     * +R3(8,34)*TWO-R2(2,28)-R2(2,32))*XXZ
      F(1,2,3,3)= -R7(18,1)+R6(12,3)*TWO-R5(7,3)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)*TWO+R4(12,18)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(18,4)*TWO
     * +R5(12,7)*FOUR-R4(7,10)*TWO-R4(7,12)*TWO-R4(9,26)*TWO
     * +R3(5,31)*FOUR-R2(4,25)*TWO-R2(4,29)*TWO)*QX+(-R5(18,12)
     * +R4(12,19)*TWO-R3(7,16)-R3(7,20)-R3(9,40)+R2(6,43)*TWO-R1(2,27)
     * -R1(2,32))*XX
      F(2,2,3,3)= -R7(31,1)+R6(23,3)*TWO-R5(16,3)-R5(16,4)-R5(18,11)*SIX
     * +R4(12,18)*TWELV-R3(7,15)*SIX-R3(7,19)*SIX-R3(9,39)*THREE
     * +R2(6,42)*SIX-R1(2,26)*THREE-R1(2,31)*THREE
      F(3,2,3,3)= -R7(33,1)+R6(25,3)*TWO-R5(18,3)-R5(18,4)-R5(18,11)
     * -R5(20,11)+R4(12,18)*TWO+R4(14,18)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(25,4)*TWO
     * +R5(18,7)*FOUR-R4(12,10)*TWO-R4(12,12)*TWO-R4(14,26)*TWO
     * +R3(9,31)*FOUR-R2(6,25)*TWO-R2(6,29)*TWO)*QZ+(-R5(18,12)
     * +R4(12,19)*TWO-R3(7,16)-R3(7,20)-R3(9,40)+R2(6,43)*TWO-R1(2,27)
     * -R1(2,32))*ZZ
      F(4,2,3,3)= -R7(24,1)+R6(17,3)*TWO-R5(11,3)-R5(11,4)
     * -R5(13,11)*THREE+R4(8,18)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * -R6(24,4)+R5(17,7)*TWO-R4(11,10)-R4(11,12)-R4(13,26)*THREE
     * +R3(8,31)*SIX-R2(2,25)*THREE-R2(2,29)*THREE)*QX
      F(5,2,3,3)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(25,4)+R5(18,7)*TWO-R4(12,10)
     * -R4(12,12)-R4(14,26)+R3(9,31)*TWO-R2(6,25)-R2(6,29))*QX+(
     * -R6(18,4)+R5(12,7)*TWO-R4(7,10)-R4(7,12)-R4(9,26)+R3(5,31)*TWO
     * -R2(4,25)-R2(4,29))*QZ+(-R5(18,12)+R4(12,19)*TWO-R3(7,16)
     * -R3(7,20)-R3(9,40)+R2(6,43)*TWO-R1(2,27)-R1(2,32))*XZ
      F(6,2,3,3)= -R7(32,1)+R6(24,3)*TWO-R5(17,3)-R5(17,4)
     * -R5(19,11)*THREE+R4(13,18)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * -R6(24,4)+R5(17,7)*TWO-R4(11,10)-R4(11,12)-R4(13,26)*THREE
     * +R3(8,31)*SIX-R2(2,25)*THREE-R2(2,29)*THREE)*QZ
      F(1,3,3,3)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)*TWO+R4(14,18)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(20,4)*TWO
     * +R5(14,7)*FOUR-R4(9,10)*TWO-R4(9,12)*TWO-R4(9,26)*TWO
     * +R3(5,31)*FOUR-R2(4,25)*TWO-R2(4,29)*TWO)*QX+(-R6(14,5)*TWO
     * +R5(9,8)*FOUR-R4(5,11)*TWO-R4(5,13)*TWO-R4(14,27)*TWO
     * +R3(9,32)*FOUR-R2(6,26)*TWO-R2(6,30)*TWO)*QZ+(-R5(20,12)
     * +R4(14,19)*TWO-R3(9,16)-R3(9,20)-R3(9,40)+R2(6,43)*TWO-R1(2,27)
     * -R1(2,32))*XX+(-R5(14,13)*FOUR+R4(9,20)*EIGHT-R3(5,17)*FOUR
     * -R3(5,21)*FOUR)*XZ+(-R5(9,14)+R4(5,21)*TWO-R3(2,18)-R3(2,22)
     * -R3(9,42)+R2(6,45)*TWO-R1(2,29)-R1(2,34))*ZZ+(-R4(14,28)*TWO
     * +R3(9,33)*FOUR-R2(6,27)*TWO-R2(6,31)*TWO)*XXZ+(-R4(9,29)*TWO
     * +R3(5,34)*FOUR-R2(4,28)*TWO-R2(4,32)*TWO)*XZZ+(-R3(9,43)
     * +R2(6,46)*TWO-R1(2,30)-R1(2,35))*XXZZ
      F(2,3,3,3)= -R7(33,1)+R6(25,3)*TWO-R5(18,3)-R5(18,4)-R5(18,11)
     * -R5(20,11)+R4(12,18)*TWO+R4(14,18)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(25,5)*TWO
     * +R5(18,8)*FOUR-R4(12,11)*TWO-R4(12,13)*TWO-R4(14,27)*TWO
     * +R3(9,32)*FOUR-R2(6,26)*TWO-R2(6,30)*TWO)*QZ+(-R5(18,14)
     * +R4(12,21)*TWO-R3(7,18)-R3(7,22)-R3(9,42)+R2(6,45)*TWO-R1(2,29)
     * -R1(2,34))*ZZ
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20D
      SUBROUTINE MCDV20D(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(3,3,3,3)= -R7(35,1)+R6(27,3)*TWO-R5(20,3)-R5(20,4)-R5(20,11)*SIX
     * +R4(14,18)*TWELV-R3(9,15)*SIX-R3(9,19)*SIX-R3(9,39)*THREE
     * +R2(6,42)*SIX-R1(2,26)*THREE-R1(2,31)*THREE+(-R6(27,4)*TWO
     * -R6(27,5)*TWO+R5(20,7)*FOUR+R5(20,8)*FOUR-R4(14,10)*TWO
     * -R4(14,11)*TWO-R4(14,12)*TWO-R4(14,13)*TWO-R4(14,26)*SIX
     * -R4(14,27)*SIX+R3(9,31)*TWELV+R3(9,32)*TWELV-R2(6,25)*SIX
     * -R2(6,26)*SIX-R2(6,29)*SIX-R2(6,30)*SIX)*QZ+(-R5(20,12)
     * -R5(20,13)*FOUR-R5(20,14)+R4(14,19)*TWO+R4(14,20)*EIGHT
     * +R4(14,21)*TWO-R3(9,16)-R3(9,17)*FOUR-R3(9,18)-R3(9,20)
     * -R3(9,21)*FOUR-R3(9,22)-R3(9,40)-R3(9,41)*FOUR-R3(9,42)
     * +R2(6,43)*TWO+R2(6,44)*EIGHT+R2(6,45)*TWO-R1(2,27)-R1(2,28)*FOUR
     * -R1(2,29)-R1(2,32)-R1(2,33)*FOUR-R1(2,34))*ZZ+(-R4(14,28)*TWO
     * -R4(14,29)*TWO+R3(9,33)*FOUR+R3(9,34)*FOUR-R2(6,27)*TWO
     * -R2(6,28)*TWO-R2(6,31)*TWO-R2(6,32)*TWO)*ZZZ+(-R3(9,43)
     * +R2(6,46)*TWO-R1(2,30)-R1(2,35))*ZZZZ
      F(4,3,3,3)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * +R4(8,18)*TWO-R3(4,15)-R3(4,19)+(-R6(26,4)+R5(19,7)*TWO-R4(13,10)
     * -R4(13,12)-R4(13,26)+R3(8,31)*TWO-R2(2,25)-R2(2,29))*QX+(
     * -R6(19,5)*TWO+R5(13,8)*FOUR-R4(8,11)*TWO-R4(8,13)*TWO)*QZ+(
     * -R5(19,13)*TWO+R4(13,20)*FOUR-R3(8,17)*TWO-R3(8,21)*TWO)*XZ+(
     * -R5(13,14)+R4(8,21)*TWO-R3(4,18)-R3(4,22))*ZZ+(-R4(13,29)
     * +R3(8,34)*TWO-R2(2,28)-R2(2,32))*XZZ
      F(5,3,3,3)= -R7(27,1)+R6(20,3)*TWO-R5(14,3)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(27,4)+R5(20,7)*TWO-R4(14,10)-R4(14,12)-R4(14,26)*THREE
     * +R3(9,31)*SIX-R2(6,25)*THREE-R2(6,29)*THREE)*QX+(-R6(20,4)
     * -R6(20,5)*TWO+R5(14,7)*TWO+R5(14,8)*FOUR-R4(9,10)-R4(9,11)*TWO
     * -R4(9,12)-R4(9,13)*TWO-R4(9,26)-R4(9,27)*TWO+R3(5,31)*TWO
     * +R3(5,32)*FOUR-R2(4,25)-R2(4,26)*TWO-R2(4,29)-R2(4,30)*TWO)*QZ+(
     * -R5(20,12)-R5(20,13)*TWO+R4(14,19)*TWO+R4(14,20)*FOUR-R3(9,16)
     * -R3(9,17)*TWO-R3(9,20)-R3(9,21)*TWO-R3(9,40)-R3(9,41)*TWO
     * +R2(6,43)*TWO+R2(6,44)*FOUR-R1(2,27)-R1(2,28)*TWO-R1(2,32)
     * -R1(2,33)*TWO)*XZ+(-R5(14,13)*TWO-R5(14,14)+R4(9,20)*FOUR
     * +R4(9,21)*TWO-R3(5,17)*TWO-R3(5,18)-R3(5,21)*TWO-R3(5,22))*ZZ+(
     * -R4(14,28)*TWO-R4(14,29)+R3(9,33)*FOUR+R3(9,34)*TWO-R2(6,27)*TWO
     * -R2(6,28)-R2(6,31)*TWO-R2(6,32))*XZZ+(-R4(9,29)+R3(5,34)*TWO
     * -R2(4,28)-R2(4,32))*ZZZ+(-R3(9,43)+R2(6,46)*TWO-R1(2,30)-R1(2,35)
     * )*XZZZ
      F(6,3,3,3)= -R7(34,1)+R6(26,3)*TWO-R5(19,3)-R5(19,4)
     * -R5(19,11)*THREE+R4(13,18)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * -R6(26,4)-R6(26,5)*TWO+R5(19,7)*TWO+R5(19,8)*FOUR-R4(13,10)
     * -R4(13,11)*TWO-R4(13,12)-R4(13,13)*TWO-R4(13,26)-R4(13,27)*TWO
     * +R3(8,31)*TWO+R3(8,32)*FOUR-R2(2,25)-R2(2,26)*TWO-R2(2,29)
     * -R2(2,30)*TWO)*QZ+(-R5(19,13)*TWO-R5(19,14)+R4(13,20)*FOUR
     * +R4(13,21)*TWO-R3(8,17)*TWO-R3(8,18)-R3(8,21)*TWO-R3(8,22))*ZZ+(
     * -R4(13,29)+R3(8,34)*TWO-R2(2,28)-R2(2,32))*ZZZ
      F(1,4,3,3)= -R7(13,1)+R6(8,3)*TWO-R5(4,3)-R5(4,4)-R5(13,11)*THREE
     * +R4(8,18)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(-R6(13,4)*TWO
     * -R6(13,5)+R5(8,7)*FOUR+R5(8,8)*TWO-R4(4,10)*TWO-R4(4,11)
     * -R4(4,12)*TWO-R4(4,13)-R4(13,26)*TWO-R4(13,27)+R3(8,31)*FOUR
     * +R3(8,32)*TWO-R2(2,25)*TWO-R2(2,26)-R2(2,29)*TWO-R2(2,30))*QX+(
     * -R5(13,12)-R5(13,13)*TWO+R4(8,19)*TWO+R4(8,20)*FOUR-R3(4,16)
     * -R3(4,17)*TWO-R3(4,20)-R3(4,21)*TWO)*XX+(-R4(13,28)+R3(8,33)*TWO
     * -R2(2,27)-R2(2,31))*XXX
      F(2,4,3,3)= -R7(24,1)+R6(17,3)*TWO-R5(11,3)-R5(11,4)
     * -R5(13,11)*THREE+R4(8,18)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * -R6(24,5)+R5(17,8)*TWO-R4(11,11)-R4(11,13)-R4(13,27)*THREE
     * +R3(8,32)*SIX-R2(2,26)*THREE-R2(2,30)*THREE)*QX
      F(3,4,3,3)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * +R4(8,18)*TWO-R3(4,15)-R3(4,19)+(-R6(26,5)+R5(19,8)*TWO-R4(13,11)
     * -R4(13,13)-R4(13,27)+R3(8,32)*TWO-R2(2,26)-R2(2,30))*QX+(
     * -R6(19,4)*TWO+R5(13,7)*FOUR-R4(8,10)*TWO-R4(8,12)*TWO)*QZ+(
     * -R5(19,13)*TWO+R4(13,20)*FOUR-R3(8,17)*TWO-R3(8,21)*TWO)*XZ+(
     * -R5(13,12)+R4(8,19)*TWO-R3(4,16)-R3(4,20))*ZZ+(-R4(13,28)
     * +R3(8,33)*TWO-R2(2,27)-R2(2,31))*XZZ
      F(4,4,3,3)= -R7(18,1)+R6(12,3)*TWO-R5(7,3)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)*TWO+R4(12,18)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(18,4)
     * -R6(18,5)+R5(12,7)*TWO+R5(12,8)*TWO-R4(7,10)-R4(7,11)-R4(7,12)
     * -R4(7,13)-R4(9,26)-R4(9,27)+R3(5,31)*TWO+R3(5,32)*TWO-R2(4,25)
     * -R2(4,26)-R2(4,29)-R2(4,30))*QX+(-R5(18,13)+R4(12,20)*TWO
     * -R3(7,17)-R3(7,21)-R3(9,41)+R2(6,44)*TWO-R1(2,28)-R1(2,33))*XX
      F(5,4,3,3)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(19,11)
     * +R4(13,18)*TWO-R3(8,15)-R3(8,19)+(-R6(19,4)-R6(19,5)+R5(13,7)*TWO
     * +R5(13,8)*TWO-R4(8,10)-R4(8,11)-R4(8,12)-R4(8,13))*QX+(-R6(13,4)
     * +R5(8,7)*TWO-R4(4,10)-R4(4,12)-R4(13,26)+R3(8,31)*TWO-R2(2,25)
     * -R2(2,29))*QZ+(-R5(19,13)+R4(13,20)*TWO-R3(8,17)-R3(8,21))*XX+(
     * -R5(13,12)-R5(13,13)+R4(8,19)*TWO+R4(8,20)*TWO-R3(4,16)-R3(4,17)
     * -R3(4,20)-R3(4,21))*XZ+(-R4(13,28)+R3(8,33)*TWO-R2(2,27)-R2(2,31)
     * )*XXZ
      F(6,4,3,3)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(25,5)+R5(18,8)*TWO-R4(12,11)
     * -R4(12,13)-R4(14,27)+R3(9,32)*TWO-R2(6,26)-R2(6,30))*QX+(
     * -R6(18,4)+R5(12,7)*TWO-R4(7,10)-R4(7,12)-R4(9,26)+R3(5,31)*TWO
     * -R2(4,25)-R2(4,29))*QZ+(-R5(18,13)+R4(12,20)*TWO-R3(7,17)
     * -R3(7,21)-R3(9,41)+R2(6,44)*TWO-R1(2,28)-R1(2,33))*XZ
      F(1,5,3,3)= -R7(14,1)+R6(9,3)*TWO-R5(5,3)-R5(5,4)-R5(14,11)*THREE
     * +R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(-R6(14,4)*TWO
     * -R6(14,5)+R5(9,7)*FOUR+R5(9,8)*TWO-R4(5,10)*TWO-R4(5,11)
     * -R4(5,12)*TWO-R4(5,13)-R4(14,26)*TWO-R4(14,27)+R3(9,31)*FOUR
     * +R3(9,32)*TWO-R2(6,25)*TWO-R2(6,26)-R2(6,29)*TWO-R2(6,30))*QX+(
     * -R6(9,5)+R5(5,8)*TWO-R4(2,11)-R4(2,13)-R4(9,27)*THREE
     * +R3(5,32)*SIX-R2(4,26)*THREE-R2(4,30)*THREE)*QZ+(-R5(14,12)
     * -R5(14,13)*TWO+R4(9,19)*TWO+R4(9,20)*FOUR-R3(5,16)-R3(5,17)*TWO
     * -R3(5,20)-R3(5,21)*TWO)*XX+(-R5(9,13)*TWO-R5(9,14)+R4(5,20)*FOUR
     * +R4(5,21)*TWO-R3(2,17)*TWO-R3(2,18)-R3(2,21)*TWO-R3(2,22)
     * -R3(9,41)*TWO-R3(9,42)+R2(6,44)*FOUR+R2(6,45)*TWO-R1(2,28)*TWO
     * -R1(2,29)-R1(2,33)*TWO-R1(2,34))*XZ+(-R4(14,28)+R3(9,33)*TWO
     * -R2(6,27)-R2(6,31))*XXX+(-R4(9,28)-R4(9,29)*TWO+R3(5,33)*TWO
     * +R3(5,34)*FOUR-R2(4,27)-R2(4,28)*TWO-R2(4,31)-R2(4,32)*TWO)*XXZ+(
     * -R3(9,43)+R2(6,46)*TWO-R1(2,30)-R1(2,35))*XXXZ
      F(2,5,3,3)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(25,5)+R5(18,8)*TWO-R4(12,11)
     * -R4(12,13)-R4(14,27)+R3(9,32)*TWO-R2(6,26)-R2(6,30))*QX+(
     * -R6(18,5)+R5(12,8)*TWO-R4(7,11)-R4(7,13)-R4(9,27)+R3(5,32)*TWO
     * -R2(4,26)-R2(4,30))*QZ+(-R5(18,14)+R4(12,21)*TWO-R3(7,18)
     * -R3(7,22)-R3(9,42)+R2(6,45)*TWO-R1(2,29)-R1(2,34))*XZ
      F(3,5,3,3)= -R7(27,1)+R6(20,3)*TWO-R5(14,3)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * -R6(27,5)+R5(20,8)*TWO-R4(14,11)-R4(14,13)-R4(14,27)*THREE
     * +R3(9,32)*SIX-R2(6,26)*THREE-R2(6,30)*THREE)*QX+(-R6(20,4)*TWO
     * -R6(20,5)+R5(14,7)*FOUR+R5(14,8)*TWO-R4(9,10)*TWO-R4(9,11)
     * -R4(9,12)*TWO-R4(9,13)-R4(9,26)*TWO-R4(9,27)+R3(5,31)*FOUR
     * +R3(5,32)*TWO-R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO-R2(4,30))*QZ+(
     * -R5(20,13)*TWO-R5(20,14)+R4(14,20)*FOUR+R4(14,21)*TWO
     * -R3(9,17)*TWO-R3(9,18)-R3(9,21)*TWO-R3(9,22)-R3(9,41)*TWO
     * -R3(9,42)+R2(6,44)*FOUR+R2(6,45)*TWO-R1(2,28)*TWO-R1(2,29)
     * -R1(2,33)*TWO-R1(2,34))*XZ+(-R5(14,12)-R5(14,13)*TWO+R4(9,19)*TWO
     * +R4(9,20)*FOUR-R3(5,16)-R3(5,17)*TWO-R3(5,20)-R3(5,21)*TWO)*ZZ+(
     * -R4(14,28)-R4(14,29)*TWO+R3(9,33)*TWO+R3(9,34)*FOUR-R2(6,27)
     * -R2(6,28)*TWO-R2(6,31)-R2(6,32)*TWO)*XZZ+(-R4(9,28)+R3(5,33)*TWO
     * -R2(4,27)-R2(4,31))*ZZZ+(-R3(9,43)+R2(6,46)*TWO-R1(2,30)-R1(2,35)
     * )*XZZZ
      F(4,5,3,3)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(19,11)
     * +R4(13,18)*TWO-R3(8,15)-R3(8,19)+(-R6(19,4)-R6(19,5)+R5(13,7)*TWO
     * +R5(13,8)*TWO-R4(8,10)-R4(8,11)-R4(8,12)-R4(8,13))*QX+(-R6(13,5)
     * +R5(8,8)*TWO-R4(4,11)-R4(4,13)-R4(13,27)+R3(8,32)*TWO-R2(2,26)
     * -R2(2,30))*QZ+(-R5(19,13)+R4(13,20)*TWO-R3(8,17)-R3(8,21))*XX+(
     * -R5(13,13)-R5(13,14)+R4(8,20)*TWO+R4(8,21)*TWO-R3(4,17)-R3(4,18)
     * -R3(4,21)-R3(4,22))*XZ+(-R4(13,29)+R3(8,34)*TWO-R2(2,28)-R2(2,32)
     * )*XXZ
      F(5,5,3,3)= -R7(20,1)+R6(14,3)*TWO-R5(9,3)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)*TWO+R4(14,18)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(20,4)
     * -R6(20,5)+R5(14,7)*TWO+R5(14,8)*TWO-R4(9,10)-R4(9,11)-R4(9,12)
     * -R4(9,13)-R4(9,26)-R4(9,27)+R3(5,31)*TWO+R3(5,32)*TWO-R2(4,25)
     * -R2(4,26)-R2(4,29)-R2(4,30))*QX+(-R6(14,4)-R6(14,5)+R5(9,7)*TWO
     * +R5(9,8)*TWO-R4(5,10)-R4(5,11)-R4(5,12)-R4(5,13)-R4(14,26)
     * -R4(14,27)+R3(9,31)*TWO+R3(9,32)*TWO-R2(6,25)-R2(6,26)-R2(6,29)
     * -R2(6,30))*QZ+(-R5(20,13)+R4(14,20)*TWO-R3(9,17)-R3(9,21)
     * -R3(9,41)+R2(6,44)*TWO-R1(2,28)-R1(2,33))*XX+(-R5(14,12)
     * -R5(14,13)*TWO-R5(14,14)+R4(9,19)*TWO+R4(9,20)*FOUR+R4(9,21)*TWO
     * -R3(5,16)-R3(5,17)*TWO-R3(5,18)-R3(5,20)-R3(5,21)*TWO-R3(5,22))
     * *XZ+(-R5(9,13)+R4(5,20)*TWO-R3(2,17)-R3(2,21)-R3(9,41)
     * +R2(6,44)*TWO-R1(2,28)-R1(2,33))*ZZ+(-R4(14,28)-R4(14,29)
     * +R3(9,33)*TWO+R3(9,34)*TWO-R2(6,27)-R2(6,28)-R2(6,31)-R2(6,32))
     * *XXZ+(-R4(9,28)-R4(9,29)+R3(5,33)*TWO+R3(5,34)*TWO-R2(4,27)
     * -R2(4,28)-R2(4,31)-R2(4,32))*XZZ+(-R3(9,43)+R2(6,46)*TWO-R1(2,30)
     * -R1(2,35))*XXZZ
      F(6,5,3,3)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * +R4(8,18)*TWO-R3(4,15)-R3(4,19)+(-R6(26,5)+R5(19,8)*TWO-R4(13,11)
     * -R4(13,13)-R4(13,27)+R3(8,32)*TWO-R2(2,26)-R2(2,30))*QX+(
     * -R6(19,4)-R6(19,5)+R5(13,7)*TWO+R5(13,8)*TWO-R4(8,10)-R4(8,11)
     * -R4(8,12)-R4(8,13))*QZ+(-R5(19,13)-R5(19,14)+R4(13,20)*TWO
     * +R4(13,21)*TWO-R3(8,17)-R3(8,18)-R3(8,21)-R3(8,22))*XZ+(
     * -R5(13,13)+R4(8,20)*TWO-R3(4,17)-R3(4,21))*ZZ+(-R4(13,29)
     * +R3(8,34)*TWO-R2(2,28)-R2(2,32))*XZZ
      F(1,6,3,3)= -R7(19,1)+R6(13,3)*TWO-R5(8,3)-R5(8,4)-R5(19,11)
     * +R4(13,18)*TWO-R3(8,15)-R3(8,19)+(-R6(19,4)*TWO+R5(13,7)*FOUR
     * -R4(8,10)*TWO-R4(8,12)*TWO)*QX+(-R6(13,5)+R5(8,8)*TWO-R4(4,11)
     * -R4(4,13)-R4(13,27)+R3(8,32)*TWO-R2(2,26)-R2(2,30))*QZ+(
     * -R5(19,12)+R4(13,19)*TWO-R3(8,16)-R3(8,20))*XX+(-R5(13,13)*TWO
     * +R4(8,20)*FOUR-R3(4,17)*TWO-R3(4,21)*TWO)*XZ+(-R4(13,28)
     * +R3(8,33)*TWO-R2(2,27)-R2(2,31))*XXZ
      F(2,6,3,3)= -R7(32,1)+R6(24,3)*TWO-R5(17,3)-R5(17,4)
     * -R5(19,11)*THREE+R4(13,18)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * -R6(24,5)+R5(17,8)*TWO-R4(11,11)-R4(11,13)-R4(13,27)*THREE
     * +R3(8,32)*SIX-R2(2,26)*THREE-R2(2,30)*THREE)*QZ
      F(3,6,3,3)= -R7(34,1)+R6(26,3)*TWO-R5(19,3)-R5(19,4)
     * -R5(19,11)*THREE+R4(13,18)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * -R6(26,4)*TWO-R6(26,5)+R5(19,7)*FOUR+R5(19,8)*TWO-R4(13,10)*TWO
     * -R4(13,11)-R4(13,12)*TWO-R4(13,13)-R4(13,26)*TWO-R4(13,27)
     * +R3(8,31)*FOUR+R3(8,32)*TWO-R2(2,25)*TWO-R2(2,26)-R2(2,29)*TWO
     * -R2(2,30))*QZ+(-R5(19,12)-R5(19,13)*TWO+R4(13,19)*TWO
     * +R4(13,20)*FOUR-R3(8,16)-R3(8,17)*TWO-R3(8,20)-R3(8,21)*TWO)*ZZ+(
     * -R4(13,28)+R3(8,33)*TWO-R2(2,27)-R2(2,31))*ZZZ
      F(4,6,3,3)= -R7(25,1)+R6(18,3)*TWO-R5(12,3)-R5(12,4)-R5(14,11)
     * +R4(9,18)*TWO-R3(5,15)-R3(5,19)+(-R6(25,4)+R5(18,7)*TWO-R4(12,10)
     * -R4(12,12)-R4(14,26)+R3(9,31)*TWO-R2(6,25)-R2(6,29))*QX+(
     * -R6(18,5)+R5(12,8)*TWO-R4(7,11)-R4(7,13)-R4(9,27)+R3(5,32)*TWO
     * -R2(4,26)-R2(4,30))*QZ+(-R5(18,13)+R4(12,20)*TWO-R3(7,17)
     * -R3(7,21)-R3(9,41)+R2(6,44)*TWO-R1(2,28)-R1(2,33))*XZ
      F(5,6,3,3)= -R7(26,1)+R6(19,3)*TWO-R5(13,3)-R5(13,4)-R5(13,11)
     * +R4(8,18)*TWO-R3(4,15)-R3(4,19)+(-R6(26,4)+R5(19,7)*TWO-R4(13,10)
     * -R4(13,12)-R4(13,26)+R3(8,31)*TWO-R2(2,25)-R2(2,29))*QX+(
     * -R6(19,4)-R6(19,5)+R5(13,7)*TWO+R5(13,8)*TWO-R4(8,10)-R4(8,11)
     * -R4(8,12)-R4(8,13))*QZ+(-R5(19,12)-R5(19,13)+R4(13,19)*TWO
     * +R4(13,20)*TWO-R3(8,16)-R3(8,17)-R3(8,20)-R3(8,21))*XZ+(
     * -R5(13,13)+R4(8,20)*TWO-R3(4,17)-R3(4,21))*ZZ+(-R4(13,28)
     * +R3(8,33)*TWO-R2(2,27)-R2(2,31))*XZZ
      F(6,6,3,3)= -R7(33,1)+R6(25,3)*TWO-R5(18,3)-R5(18,4)-R5(18,11)
     * -R5(20,11)+R4(12,18)*TWO+R4(14,18)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,39)+R2(6,42)*TWO-R1(2,26)-R1(2,31)+(-R6(25,4)
     * -R6(25,5)+R5(18,7)*TWO+R5(18,8)*TWO-R4(12,10)-R4(12,11)-R4(12,12)
     * -R4(12,13)-R4(14,26)-R4(14,27)+R3(9,31)*TWO+R3(9,32)*TWO-R2(6,25)
     * -R2(6,26)-R2(6,29)-R2(6,30))*QZ+(-R5(18,13)+R4(12,20)*TWO
     * -R3(7,17)-R3(7,21)-R3(9,41)+R2(6,44)*TWO-R1(2,28)-R1(2,33))*ZZ
      F(1,1,4,3)= -R7(4,1)-R5(1,4)-R5(4,11)*SIX-R3(1,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE+(-R6(4,4)*TWO-R6(4,5)*TWO
     * -R4(1,12)*TWO-R4(1,13)*TWO-R4(4,26)*SIX-R4(4,27)*SIX-R2(1,29)*SIX
     * -R2(1,30)*SIX)*QX+(-R5(4,12)-R5(4,13)*FOUR-R5(4,14)-R3(1,20)
     * -R3(1,21)*FOUR-R3(1,22)-R3(4,40)-R3(4,41)*FOUR-R3(4,42)-R1(1,32)
     * -R1(1,33)*FOUR-R1(1,34))*XX+(-R4(4,28)*TWO-R4(4,29)*TWO
     * -R2(1,31)*TWO-R2(1,32)*TWO)*XXX+(-R3(4,43)-R1(1,35))*XXXX
      F(2,1,4,3)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,5)*TWO-R4(4,13)*TWO-R4(4,27)*TWO
     * -R2(1,30)*TWO)*QX+(-R5(11,14)-R3(4,22)-R3(4,42)-R1(1,34))*XX
      F(3,1,4,3)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,5)*TWO-R4(6,13)*TWO-R4(4,27)*TWO
     * -R2(1,30)*TWO)*QX+(-R6(8,4)*TWO-R4(3,12)*TWO-R4(8,26)*TWO
     * -R2(5,29)*TWO)*QZ+(-R5(13,14)-R3(6,22)-R3(4,42)-R1(1,34))*XX+(
     * -R5(8,13)*FOUR-R3(3,21)*FOUR)*XZ+(-R5(4,12)-R3(1,20)-R3(4,40)
     * -R1(1,32))*ZZ+(-R4(8,29)*TWO-R2(5,32)*TWO)*XXZ+(-R4(4,28)*TWO
     * -R2(1,31)*TWO)*XZZ+(-R3(4,43)-R1(1,35))*XXZZ
      F(4,1,4,3)= -R7(7,1)-R5(2,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(7,4)-R6(7,5)*TWO-R4(2,12)-R4(2,13)*TWO-R4(7,26)-R4(7,27)*TWO
     * -R2(4,29)-R2(4,30)*TWO)*QX+(-R5(7,13)*TWO-R5(7,14)-R3(2,21)*TWO
     * -R3(2,22))*XX+(-R4(7,29)-R2(4,32))*XXX
      F(5,1,4,3)= -R7(8,1)-R5(3,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(8,4)-R6(8,5)*TWO-R4(3,12)-R4(3,13)*TWO-R4(8,26)-R4(8,27)*TWO
     * -R2(5,29)-R2(5,30)*TWO)*QX+(-R6(4,4)-R4(1,12)-R4(4,26)*THREE
     * -R2(1,29)*THREE)*QZ+(-R5(8,13)*TWO-R5(8,14)-R3(3,21)*TWO-R3(3,22)
     * )*XX+(-R5(4,12)-R5(4,13)*TWO-R3(1,20)-R3(1,21)*TWO-R3(4,40)
     * -R3(4,41)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ+(-R4(8,29)-R2(5,32))*XXX
     * +(-R4(4,28)*TWO-R4(4,29)-R2(1,31)*TWO-R2(1,32))*XXZ+(-R3(4,43)
     * -R1(1,35))*XXXZ
      F(6,1,4,3)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,5)*TWO
     * -R4(5,13)*TWO)*QX+(-R6(7,4)-R4(2,12)-R4(7,26)-R2(4,29))*QZ+(
     * -R5(12,14)-R3(5,22))*XX+(-R5(7,13)*TWO-R3(2,21)*TWO)*XZ+(
     * -R4(7,29)-R2(4,32))*XXZ
      F(1,2,4,3)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,4)*TWO-R4(4,12)*TWO-R4(4,26)*TWO
     * -R2(1,29)*TWO)*QX+(-R5(11,12)-R3(4,20)-R3(4,40)-R1(1,32))*XX
      F(2,2,4,3)= -R7(22,1)-R5(11,4)-R5(11,11)*SIX-R3(4,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE
      F(3,2,4,3)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,4)*TWO-R4(8,12)*TWO
     * -R4(8,26)*TWO-R2(5,29)*TWO)*QZ+(-R5(11,12)-R3(4,20)-R3(4,40)
     * -R1(1,32))*ZZ
      F(4,2,4,3)= -R7(16,1)-R5(7,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(16,4)-R4(7,12)-R4(7,26)*THREE-R2(4,29)*THREE)*QX
      F(5,2,4,3)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,4)
     * -R4(8,12)-R4(8,26)-R2(5,29))*QX+(-R6(11,4)-R4(4,12)-R4(4,26)
     * -R2(1,29))*QZ+(-R5(11,12)-R3(4,20)-R3(4,40)-R1(1,32))*XZ
      F(6,2,4,3)= -R7(23,1)-R5(12,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(16,4)-R4(7,12)-R4(7,26)*THREE-R2(4,29)*THREE)*QZ
      F(1,3,4,3)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,4)*TWO-R4(6,12)*TWO-R4(4,26)*TWO
     * -R2(1,29)*TWO)*QX+(-R6(8,5)*TWO-R4(3,13)*TWO-R4(8,27)*TWO
     * -R2(5,30)*TWO)*QZ+(-R5(13,12)-R3(6,20)-R3(4,40)-R1(1,32))*XX+(
     * -R5(8,13)*FOUR-R3(3,21)*FOUR)*XZ+(-R5(4,14)-R3(1,22)-R3(4,42)
     * -R1(1,34))*ZZ+(-R4(8,28)*TWO-R2(5,31)*TWO)*XXZ+(-R4(4,29)*TWO
     * -R2(1,32)*TWO)*XZZ+(-R3(4,43)-R1(1,35))*XXZZ
      F(2,3,4,3)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,5)*TWO-R4(8,13)*TWO
     * -R4(8,27)*TWO-R2(5,30)*TWO)*QZ+(-R5(11,14)-R3(4,22)-R3(4,42)
     * -R1(1,34))*ZZ
      F(3,3,4,3)= -R7(26,1)-R5(15,4)-R5(13,11)*SIX-R3(6,19)*SIX
     * -R3(4,39)*THREE-R1(1,31)*THREE+(-R6(19,4)*TWO-R6(19,5)*TWO
     * -R4(10,12)*TWO-R4(10,13)*TWO-R4(8,26)*SIX-R4(8,27)*SIX
     * -R2(5,29)*SIX-R2(5,30)*SIX)*QZ+(-R5(13,12)-R5(13,13)*FOUR
     * -R5(13,14)-R3(6,20)-R3(6,21)*FOUR-R3(6,22)-R3(4,40)-R3(4,41)*FOUR
     * -R3(4,42)-R1(1,32)-R1(1,33)*FOUR-R1(1,34))*ZZ+(-R4(8,28)*TWO
     * -R4(8,29)*TWO-R2(5,31)*TWO-R2(5,32)*TWO)*ZZZ+(-R3(4,43)-R1(1,35))
     * *ZZZZ
      F(4,3,4,3)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,4)
     * -R4(9,12)-R4(7,26)-R2(4,29))*QX+(-R6(12,5)*TWO-R4(5,13)*TWO)*QZ+(
     * -R5(12,13)*TWO-R3(5,21)*TWO)*XZ+(-R5(7,14)-R3(2,22))*ZZ+(
     * -R4(7,29)-R2(4,32))*XZZ
      F(5,3,4,3)= -R7(19,1)-R5(10,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(19,4)-R4(10,12)-R4(8,26)*THREE-R2(5,29)*THREE)*QX+(-R6(13,4)
     * -R6(13,5)*TWO-R4(6,12)-R4(6,13)*TWO-R4(4,26)-R4(4,27)*TWO
     * -R2(1,29)-R2(1,30)*TWO)*QZ+(-R5(13,12)-R5(13,13)*TWO-R3(6,20)
     * -R3(6,21)*TWO-R3(4,40)-R3(4,41)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ+(
     * -R5(8,13)*TWO-R5(8,14)-R3(3,21)*TWO-R3(3,22))*ZZ+(-R4(8,28)*TWO
     * -R4(8,29)-R2(5,31)*TWO-R2(5,32))*XZZ+(-R4(4,29)-R2(1,32))*ZZZ+(
     * -R3(4,43)-R1(1,35))*XZZZ
      F(6,3,4,3)= -R7(25,1)-R5(14,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(18,4)-R6(18,5)*TWO-R4(9,12)-R4(9,13)*TWO-R4(7,26)
     * -R4(7,27)*TWO-R2(4,29)-R2(4,30)*TWO)*QZ+(-R5(12,13)*TWO-R5(12,14)
     * -R3(5,21)*TWO-R3(5,22))*ZZ+(-R4(7,29)-R2(4,32))*ZZZ
      F(1,4,4,3)= -R7(7,1)-R5(2,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(7,4)*TWO-R6(7,5)-R4(2,12)*TWO-R4(2,13)-R4(7,26)*TWO-R4(7,27)
     * -R2(4,29)*TWO-R2(4,30))*QX+(-R5(7,12)-R5(7,13)*TWO-R3(2,20)
     * -R3(2,21)*TWO)*XX+(-R4(7,28)-R2(4,31))*XXX
      F(2,4,4,3)= -R7(16,1)-R5(7,4)-R5(7,11)*THREE-R3(2,19)*THREE+(
     * -R6(16,5)-R4(7,13)-R4(7,27)*THREE-R2(4,30)*THREE)*QX
      F(3,4,4,3)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,5)
     * -R4(9,13)-R4(7,27)-R2(4,30))*QX+(-R6(12,4)*TWO-R4(5,12)*TWO)*QZ+(
     * -R5(12,13)*TWO-R3(5,21)*TWO)*XZ+(-R5(7,12)-R3(2,20))*ZZ+(
     * -R4(7,28)-R2(4,31))*XZZ
      F(4,4,4,3)= -R7(11,1)-R5(4,4)-R5(4,11)-R5(11,11)-R3(1,19)-R3(4,19)
     * -R3(4,39)-R1(1,31)+(-R6(11,4)-R6(11,5)-R4(4,12)-R4(4,13)-R4(4,26)
     * -R4(4,27)-R2(1,29)-R2(1,30))*QX+(-R5(11,13)-R3(4,21)-R3(4,41)
     * -R1(1,33))*XX
      F(5,4,4,3)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)
     * -R6(12,5)-R4(5,12)-R4(5,13))*QX+(-R6(7,4)-R4(2,12)-R4(7,26)
     * -R2(4,29))*QZ+(-R5(12,13)-R3(5,21))*XX+(-R5(7,12)-R5(7,13)
     * -R3(2,20)-R3(2,21))*XZ+(-R4(7,28)-R2(4,31))*XXZ
      F(6,4,4,3)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,5)
     * -R4(8,13)-R4(8,27)-R2(5,30))*QX+(-R6(11,4)-R4(4,12)-R4(4,26)
     * -R2(1,29))*QZ+(-R5(11,13)-R3(4,21)-R3(4,41)-R1(1,33))*XZ
      F(1,5,4,3)= -R7(8,1)-R5(3,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(8,4)*TWO-R6(8,5)-R4(3,12)*TWO-R4(3,13)-R4(8,26)*TWO-R4(8,27)
     * -R2(5,29)*TWO-R2(5,30))*QX+(-R6(4,5)-R4(1,13)-R4(4,27)*THREE
     * -R2(1,30)*THREE)*QZ+(-R5(8,12)-R5(8,13)*TWO-R3(3,20)-R3(3,21)*TWO
     * )*XX+(-R5(4,13)*TWO-R5(4,14)-R3(1,21)*TWO-R3(1,22)-R3(4,41)*TWO
     * -R3(4,42)-R1(1,33)*TWO-R1(1,34))*XZ+(-R4(8,28)-R2(5,31))*XXX+(
     * -R4(4,28)-R4(4,29)*TWO-R2(1,31)-R2(1,32)*TWO)*XXZ+(-R3(4,43)
     * -R1(1,35))*XXXZ
      F(2,5,4,3)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,5)
     * -R4(8,13)-R4(8,27)-R2(5,30))*QX+(-R6(11,5)-R4(4,13)-R4(4,27)
     * -R2(1,30))*QZ+(-R5(11,14)-R3(4,22)-R3(4,42)-R1(1,34))*XZ
      F(3,5,4,3)= -R7(19,1)-R5(10,4)-R5(8,11)*THREE-R3(3,19)*THREE+(
     * -R6(19,5)-R4(10,13)-R4(8,27)*THREE-R2(5,30)*THREE)*QX+(
     * -R6(13,4)*TWO-R6(13,5)-R4(6,12)*TWO-R4(6,13)-R4(4,26)*TWO
     * -R4(4,27)-R2(1,29)*TWO-R2(1,30))*QZ+(-R5(13,13)*TWO-R5(13,14)
     * -R3(6,21)*TWO-R3(6,22)-R3(4,41)*TWO-R3(4,42)-R1(1,33)*TWO
     * -R1(1,34))*XZ+(-R5(8,12)-R5(8,13)*TWO-R3(3,20)-R3(3,21)*TWO)*ZZ+(
     * -R4(8,28)-R4(8,29)*TWO-R2(5,31)-R2(5,32)*TWO)*XZZ+(-R4(4,28)
     * -R2(1,31))*ZZZ+(-R3(4,43)-R1(1,35))*XZZZ
      F(4,5,4,3)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)
     * -R6(12,5)-R4(5,12)-R4(5,13))*QX+(-R6(7,5)-R4(2,13)-R4(7,27)
     * -R2(4,30))*QZ+(-R5(12,13)-R3(5,21))*XX+(-R5(7,13)-R5(7,14)
     * -R3(2,21)-R3(2,22))*XZ+(-R4(7,29)-R2(4,32))*XXZ
      F(5,5,4,3)= -R7(13,1)-R5(6,4)-R5(4,11)-R5(13,11)-R3(1,19)-R3(6,19)
     * -R3(4,39)-R1(1,31)+(-R6(13,4)-R6(13,5)-R4(6,12)-R4(6,13)-R4(4,26)
     * -R4(4,27)-R2(1,29)-R2(1,30))*QX+(-R6(8,4)-R6(8,5)-R4(3,12)
     * -R4(3,13)-R4(8,26)-R4(8,27)-R2(5,29)-R2(5,30))*QZ+(-R5(13,13)
     * -R3(6,21)-R3(4,41)-R1(1,33))*XX+(-R5(8,12)-R5(8,13)*TWO-R5(8,14)
     * -R3(3,20)-R3(3,21)*TWO-R3(3,22))*XZ+(-R5(4,13)-R3(1,21)-R3(4,41)
     * -R1(1,33))*ZZ+(-R4(8,28)-R4(8,29)-R2(5,31)-R2(5,32))*XXZ+(
     * -R4(4,28)-R4(4,29)-R2(1,31)-R2(1,32))*XZZ+(-R3(4,43)-R1(1,35))
     * *XXZZ
      F(6,5,4,3)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,5)
     * -R4(9,13)-R4(7,27)-R2(4,30))*QX+(-R6(12,4)-R6(12,5)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(12,13)-R5(12,14)-R3(5,21)-R3(5,22))*XZ+(
     * -R5(7,13)-R3(2,21))*ZZ+(-R4(7,29)-R2(4,32))*XZZ
      F(1,6,4,3)= -R7(12,1)-R5(5,4)-R5(12,11)-R3(5,19)+(-R6(12,4)*TWO
     * -R4(5,12)*TWO)*QX+(-R6(7,5)-R4(2,13)-R4(7,27)-R2(4,30))*QZ+(
     * -R5(12,12)-R3(5,20))*XX+(-R5(7,13)*TWO-R3(2,21)*TWO)*XZ+(
     * -R4(7,28)-R2(4,31))*XXZ
      F(2,6,4,3)= -R7(23,1)-R5(12,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(16,5)-R4(7,13)-R4(7,27)*THREE-R2(4,30)*THREE)*QZ
      F(3,6,4,3)= -R7(25,1)-R5(14,4)-R5(12,11)*THREE-R3(5,19)*THREE+(
     * -R6(18,4)*TWO-R6(18,5)-R4(9,12)*TWO-R4(9,13)-R4(7,26)*TWO
     * -R4(7,27)-R2(4,29)*TWO-R2(4,30))*QZ+(-R5(12,12)-R5(12,13)*TWO
     * -R3(5,20)-R3(5,21)*TWO)*ZZ+(-R4(7,28)-R2(4,31))*ZZZ
      F(4,6,4,3)= -R7(17,1)-R5(8,4)-R5(8,11)-R3(3,19)+(-R6(17,4)
     * -R4(8,12)-R4(8,26)-R2(5,29))*QX+(-R6(11,5)-R4(4,13)-R4(4,27)
     * -R2(1,30))*QZ+(-R5(11,13)-R3(4,21)-R3(4,41)-R1(1,33))*XZ
      F(5,6,4,3)= -R7(18,1)-R5(9,4)-R5(7,11)-R3(2,19)+(-R6(18,4)
     * -R4(9,12)-R4(7,26)-R2(4,29))*QX+(-R6(12,4)-R6(12,5)-R4(5,12)
     * -R4(5,13))*QZ+(-R5(12,12)-R5(12,13)-R3(5,20)-R3(5,21))*XZ+(
     * -R5(7,13)-R3(2,21))*ZZ+(-R4(7,28)-R2(4,31))*XZZ
      F(6,6,4,3)= -R7(24,1)-R5(13,4)-R5(11,11)-R5(13,11)-R3(4,19)
     * -R3(6,19)-R3(4,39)-R1(1,31)+(-R6(17,4)-R6(17,5)-R4(8,12)-R4(8,13)
     * -R4(8,26)-R4(8,27)-R2(5,29)-R2(5,30))*QZ+(-R5(11,13)-R3(4,21)
     * -R3(4,41)-R1(1,33))*ZZ
      F(1,1,5,3)= -R7(5,1)+R6(2,3)-R5(5,11)*SIX+R4(2,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE+(-R6(5,4)*TWO-R6(5,5)*TWO
     * +R5(2,7)*TWO+R5(2,8)*TWO-R4(5,26)*SIX-R4(5,27)*SIX+R3(2,31)*SIX
     * +R3(2,32)*SIX)*QX+(-R5(5,12)-R5(5,13)*FOUR-R5(5,14)+R4(2,19)
     * +R4(2,20)*FOUR+R4(2,21)-R3(5,40)-R3(5,41)*FOUR-R3(5,42)+R2(4,43)
     * +R2(4,44)*FOUR+R2(4,45))*XX+(-R4(5,28)*TWO-R4(5,29)*TWO
     * +R3(2,33)*TWO+R3(2,34)*TWO)*XXX+(-R3(5,43)+R2(4,46))*XXXX
      F(2,1,5,3)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,5)*TWO+R5(7,8)*TWO-R4(5,27)*TWO
     * +R3(2,32)*TWO)*QX+(-R5(12,14)+R4(7,21)-R3(5,42)+R2(4,45))*XX
      F(3,1,5,3)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,5)*TWO+R5(9,8)*TWO-R4(5,27)*TWO
     * +R3(2,32)*TWO)*QX+(-R6(9,4)*TWO+R5(5,7)*TWO-R4(9,26)*TWO
     * +R3(5,31)*TWO)*QZ+(-R5(14,14)+R4(9,21)-R3(5,42)+R2(4,45))*XX+(
     * -R5(9,13)*FOUR+R4(5,20)*FOUR)*XZ+(-R5(5,12)+R4(2,19)-R3(5,40)
     * +R2(4,43))*ZZ+(-R4(9,29)*TWO+R3(5,34)*TWO)*XXZ+(-R4(5,28)*TWO
     * +R3(2,33)*TWO)*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(4,1,5,3)= -R7(8,1)+R6(4,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(8,4)-R6(8,5)*TWO+R5(4,7)+R5(4,8)*TWO-R4(8,26)-R4(8,27)*TWO
     * +R3(4,31)+R3(4,32)*TWO)*QX+(-R5(8,13)*TWO-R5(8,14)+R4(4,20)*TWO
     * +R4(4,21))*XX+(-R4(8,29)+R3(4,34))*XXX
      F(5,1,5,3)= -R7(9,1)+R6(5,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(9,4)-R6(9,5)*TWO+R5(5,7)+R5(5,8)*TWO-R4(9,26)-R4(9,27)*TWO
     * +R3(5,31)+R3(5,32)*TWO)*QX+(-R6(5,4)+R5(2,7)-R4(5,26)*THREE
     * +R3(2,31)*THREE)*QZ+(-R5(9,13)*TWO-R5(9,14)+R4(5,20)*TWO+R4(5,21)
     * )*XX+(-R5(5,12)-R5(5,13)*TWO+R4(2,19)+R4(2,20)*TWO-R3(5,40)
     * -R3(5,41)*TWO+R2(4,43)+R2(4,44)*TWO)*XZ+(-R4(9,29)+R3(5,34))*XXX
     * +(-R4(5,28)*TWO-R4(5,29)+R3(2,33)*TWO+R3(2,34))*XXZ+(-R3(5,43)
     * +R2(4,46))*XXXZ
      F(6,1,5,3)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,5)*TWO
     * +R5(8,8)*TWO)*QX+(-R6(8,4)+R5(4,7)-R4(8,26)+R3(4,31))*QZ+(
     * -R5(13,14)+R4(8,21))*XX+(-R5(8,13)*TWO+R4(4,20)*TWO)*XZ+(
     * -R4(8,29)+R3(4,34))*XXZ
      F(1,2,5,3)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,4)*TWO+R5(7,7)*TWO-R4(5,26)*TWO
     * +R3(2,31)*TWO)*QX+(-R5(12,12)+R4(7,19)-R3(5,40)+R2(4,43))*XX
      F(2,2,5,3)= -R7(23,1)+R6(16,3)-R5(12,11)*SIX+R4(7,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE
      F(3,2,5,3)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,4)*TWO+R5(12,7)*TWO
     * -R4(9,26)*TWO+R3(5,31)*TWO)*QZ+(-R5(12,12)+R4(7,19)-R3(5,40)
     * +R2(4,43))*ZZ
      F(4,2,5,3)= -R7(17,1)+R6(11,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(17,4)+R5(11,7)-R4(8,26)*THREE+R3(4,31)*THREE)*QX
      F(5,2,5,3)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,4)
     * +R5(12,7)-R4(9,26)+R3(5,31))*QX+(-R6(12,4)+R5(7,7)-R4(5,26)
     * +R3(2,31))*QZ+(-R5(12,12)+R4(7,19)-R3(5,40)+R2(4,43))*XZ
      F(6,2,5,3)= -R7(24,1)+R6(17,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(17,4)+R5(11,7)-R4(8,26)*THREE+R3(4,31)*THREE)*QZ
      F(1,3,5,3)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,4)*TWO+R5(9,7)*TWO-R4(5,26)*TWO
     * +R3(2,31)*TWO)*QX+(-R6(9,5)*TWO+R5(5,8)*TWO-R4(9,27)*TWO
     * +R3(5,32)*TWO)*QZ+(-R5(14,12)+R4(9,19)-R3(5,40)+R2(4,43))*XX+(
     * -R5(9,13)*FOUR+R4(5,20)*FOUR)*XZ+(-R5(5,14)+R4(2,21)-R3(5,42)
     * +R2(4,45))*ZZ+(-R4(9,28)*TWO+R3(5,33)*TWO)*XXZ+(-R4(5,29)*TWO
     * +R3(2,34)*TWO)*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(2,3,5,3)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,5)*TWO+R5(12,8)*TWO
     * -R4(9,27)*TWO+R3(5,32)*TWO)*QZ+(-R5(12,14)+R4(7,21)-R3(5,42)
     * +R2(4,45))*ZZ
      F(3,3,5,3)= -R7(27,1)+R6(20,3)-R5(14,11)*SIX+R4(9,18)*SIX
     * -R3(5,39)*THREE+R2(4,42)*THREE+(-R6(20,4)*TWO-R6(20,5)*TWO
     * +R5(14,7)*TWO+R5(14,8)*TWO-R4(9,26)*SIX-R4(9,27)*SIX+R3(5,31)*SIX
     * +R3(5,32)*SIX)*QZ+(-R5(14,12)-R5(14,13)*FOUR-R5(14,14)+R4(9,19)
     * +R4(9,20)*FOUR+R4(9,21)-R3(5,40)-R3(5,41)*FOUR-R3(5,42)+R2(4,43)
     * +R2(4,44)*FOUR+R2(4,45))*ZZ+(-R4(9,28)*TWO-R4(9,29)*TWO
     * +R3(5,33)*TWO+R3(5,34)*TWO)*ZZZ+(-R3(5,43)+R2(4,46))*ZZZZ
      F(4,3,5,3)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,4)
     * +R5(13,7)-R4(8,26)+R3(4,31))*QX+(-R6(13,5)*TWO+R5(8,8)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,20)*TWO)*XZ+(-R5(8,14)+R4(4,21))*ZZ+(
     * -R4(8,29)+R3(4,34))*XZZ
      F(5,3,5,3)= -R7(20,1)+R6(14,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(20,4)+R5(14,7)-R4(9,26)*THREE+R3(5,31)*THREE)*QX+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,7)+R5(9,8)*TWO-R4(5,26)-R4(5,27)*TWO+R3(2,31)
     * +R3(2,32)*TWO)*QZ+(-R5(14,12)-R5(14,13)*TWO+R4(9,19)+R4(9,20)*TWO
     * -R3(5,40)-R3(5,41)*TWO+R2(4,43)+R2(4,44)*TWO)*XZ+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,20)*TWO+R4(5,21))*ZZ+(-R4(9,28)*TWO-R4(9,29)
     * +R3(5,33)*TWO+R3(5,34))*XZZ+(-R4(5,29)+R3(2,34))*ZZZ+(-R3(5,43)
     * +R2(4,46))*XZZZ
      F(6,3,5,3)= -R7(26,1)+R6(19,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(19,4)-R6(19,5)*TWO+R5(13,7)+R5(13,8)*TWO-R4(8,26)
     * -R4(8,27)*TWO+R3(4,31)+R3(4,32)*TWO)*QZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,20)*TWO+R4(8,21))*ZZ+(-R4(8,29)+R3(4,34))*ZZZ
      F(1,4,5,3)= -R7(8,1)+R6(4,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(8,4)*TWO-R6(8,5)+R5(4,7)*TWO+R5(4,8)-R4(8,26)*TWO-R4(8,27)
     * +R3(4,31)*TWO+R3(4,32))*QX+(-R5(8,12)-R5(8,13)*TWO+R4(4,19)
     * +R4(4,20)*TWO)*XX+(-R4(8,28)+R3(4,33))*XXX
      F(2,4,5,3)= -R7(17,1)+R6(11,3)-R5(8,11)*THREE+R4(4,18)*THREE+(
     * -R6(17,5)+R5(11,8)-R4(8,27)*THREE+R3(4,32)*THREE)*QX
      F(3,4,5,3)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,5)
     * +R5(13,8)-R4(8,27)+R3(4,32))*QX+(-R6(13,4)*TWO+R5(8,7)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,20)*TWO)*XZ+(-R5(8,12)+R4(4,19))*ZZ+(
     * -R4(8,28)+R3(4,33))*XZZ
      F(4,4,5,3)= -R7(12,1)+R6(7,3)-R5(5,11)-R5(12,11)+R4(2,18)+R4(7,18)
     * -R3(5,39)+R2(4,42)+(-R6(12,4)-R6(12,5)+R5(7,7)+R5(7,8)-R4(5,26)
     * -R4(5,27)+R3(2,31)+R3(2,32))*QX+(-R5(12,13)+R4(7,20)-R3(5,41)
     * +R2(4,44))*XX
      F(5,4,5,3)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)
     * -R6(13,5)+R5(8,7)+R5(8,8))*QX+(-R6(8,4)+R5(4,7)-R4(8,26)+R3(4,31)
     * )*QZ+(-R5(13,13)+R4(8,20))*XX+(-R5(8,12)-R5(8,13)+R4(4,19)
     * +R4(4,20))*XZ+(-R4(8,28)+R3(4,33))*XXZ
      F(6,4,5,3)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,5)
     * +R5(12,8)-R4(9,27)+R3(5,32))*QX+(-R6(12,4)+R5(7,7)-R4(5,26)
     * +R3(2,31))*QZ+(-R5(12,13)+R4(7,20)-R3(5,41)+R2(4,44))*XZ
      F(1,5,5,3)= -R7(9,1)+R6(5,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(9,4)*TWO-R6(9,5)+R5(5,7)*TWO+R5(5,8)-R4(9,26)*TWO-R4(9,27)
     * +R3(5,31)*TWO+R3(5,32))*QX+(-R6(5,5)+R5(2,8)-R4(5,27)*THREE
     * +R3(2,32)*THREE)*QZ+(-R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO
     * )*XX+(-R5(5,13)*TWO-R5(5,14)+R4(2,20)*TWO+R4(2,21)-R3(5,41)*TWO
     * -R3(5,42)+R2(4,44)*TWO+R2(4,45))*XZ+(-R4(9,28)+R3(5,33))*XXX+(
     * -R4(5,28)-R4(5,29)*TWO+R3(2,33)+R3(2,34)*TWO)*XXZ+(-R3(5,43)
     * +R2(4,46))*XXXZ
      F(2,5,5,3)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,5)
     * +R5(12,8)-R4(9,27)+R3(5,32))*QX+(-R6(12,5)+R5(7,8)-R4(5,27)
     * +R3(2,32))*QZ+(-R5(12,14)+R4(7,21)-R3(5,42)+R2(4,45))*XZ
      F(3,5,5,3)= -R7(20,1)+R6(14,3)-R5(9,11)*THREE+R4(5,18)*THREE+(
     * -R6(20,5)+R5(14,8)-R4(9,27)*THREE+R3(5,32)*THREE)*QX+(
     * -R6(14,4)*TWO-R6(14,5)+R5(9,7)*TWO+R5(9,8)-R4(5,26)*TWO-R4(5,27)
     * +R3(2,31)*TWO+R3(2,32))*QZ+(-R5(14,13)*TWO-R5(14,14)+R4(9,20)*TWO
     * +R4(9,21)-R3(5,41)*TWO-R3(5,42)+R2(4,44)*TWO+R2(4,45))*XZ+(
     * -R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO)*ZZ+(-R4(9,28)
     * -R4(9,29)*TWO+R3(5,33)+R3(5,34)*TWO)*XZZ+(-R4(5,28)+R3(2,33))*ZZZ
     * +(-R3(5,43)+R2(4,46))*XZZZ
      F(4,5,5,3)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)
     * -R6(13,5)+R5(8,7)+R5(8,8))*QX+(-R6(8,5)+R5(4,8)-R4(8,27)+R3(4,32)
     * )*QZ+(-R5(13,13)+R4(8,20))*XX+(-R5(8,13)-R5(8,14)+R4(4,20)
     * +R4(4,21))*XZ+(-R4(8,29)+R3(4,34))*XXZ
      F(5,5,5,3)= -R7(14,1)+R6(9,3)-R5(5,11)-R5(14,11)+R4(2,18)+R4(9,18)
     * -R3(5,39)+R2(4,42)+(-R6(14,4)-R6(14,5)+R5(9,7)+R5(9,8)-R4(5,26)
     * -R4(5,27)+R3(2,31)+R3(2,32))*QX+(-R6(9,4)-R6(9,5)+R5(5,7)+R5(5,8)
     * -R4(9,26)-R4(9,27)+R3(5,31)+R3(5,32))*QZ+(-R5(14,13)+R4(9,20)
     * -R3(5,41)+R2(4,44))*XX+(-R5(9,12)-R5(9,13)*TWO-R5(9,14)+R4(5,19)
     * +R4(5,20)*TWO+R4(5,21))*XZ+(-R5(5,13)+R4(2,20)-R3(5,41)+R2(4,44))
     * *ZZ+(-R4(9,28)-R4(9,29)+R3(5,33)+R3(5,34))*XXZ+(-R4(5,28)
     * -R4(5,29)+R3(2,33)+R3(2,34))*XZZ+(-R3(5,43)+R2(4,46))*XXZZ
      F(6,5,5,3)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,5)
     * +R5(13,8)-R4(8,27)+R3(4,32))*QX+(-R6(13,4)-R6(13,5)+R5(8,7)
     * +R5(8,8))*QZ+(-R5(13,13)-R5(13,14)+R4(8,20)+R4(8,21))*XZ+(
     * -R5(8,13)+R4(4,20))*ZZ+(-R4(8,29)+R3(4,34))*XZZ
      F(1,6,5,3)= -R7(13,1)+R6(8,3)-R5(13,11)+R4(8,18)+(-R6(13,4)*TWO
     * +R5(8,7)*TWO)*QX+(-R6(8,5)+R5(4,8)-R4(8,27)+R3(4,32))*QZ+(
     * -R5(13,12)+R4(8,19))*XX+(-R5(8,13)*TWO+R4(4,20)*TWO)*XZ+(
     * -R4(8,28)+R3(4,33))*XXZ
      F(2,6,5,3)= -R7(24,1)+R6(17,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(17,5)+R5(11,8)-R4(8,27)*THREE+R3(4,32)*THREE)*QZ
      F(3,6,5,3)= -R7(26,1)+R6(19,3)-R5(13,11)*THREE+R4(8,18)*THREE+(
     * -R6(19,4)*TWO-R6(19,5)+R5(13,7)*TWO+R5(13,8)-R4(8,26)*TWO
     * -R4(8,27)+R3(4,31)*TWO+R3(4,32))*QZ+(-R5(13,12)-R5(13,13)*TWO
     * +R4(8,19)+R4(8,20)*TWO)*ZZ+(-R4(8,28)+R3(4,33))*ZZZ
      F(4,6,5,3)= -R7(18,1)+R6(12,3)-R5(9,11)+R4(5,18)+(-R6(18,4)
     * +R5(12,7)-R4(9,26)+R3(5,31))*QX+(-R6(12,5)+R5(7,8)-R4(5,27)
     * +R3(2,32))*QZ+(-R5(12,13)+R4(7,20)-R3(5,41)+R2(4,44))*XZ
      F(5,6,5,3)= -R7(19,1)+R6(13,3)-R5(8,11)+R4(4,18)+(-R6(19,4)
     * +R5(13,7)-R4(8,26)+R3(4,31))*QX+(-R6(13,4)-R6(13,5)+R5(8,7)
     * +R5(8,8))*QZ+(-R5(13,12)-R5(13,13)+R4(8,19)+R4(8,20))*XZ+(
     * -R5(8,13)+R4(4,20))*ZZ+(-R4(8,28)+R3(4,33))*XZZ
      F(6,6,5,3)= -R7(25,1)+R6(18,3)-R5(12,11)-R5(14,11)+R4(7,18)
     * +R4(9,18)-R3(5,39)+R2(4,42)+(-R6(18,4)-R6(18,5)+R5(12,7)+R5(12,8)
     * -R4(9,26)-R4(9,27)+R3(5,31)+R3(5,32))*QZ+(-R5(12,13)+R4(7,20)
     * -R3(5,41)+R2(4,44))*ZZ
      F(1,1,6,3)= -R7(8,1)+R6(4,3)-R5(3,4)-R5(8,11)*SIX+R4(1,5)
     * +R4(4,18)*SIX-R3(3,19)*SIX-R3(8,39)*THREE+R2(1,17)*SIX
     * +R2(2,42)*THREE-R1(3,31)*THREE+R0(21)*THREE+(-R6(8,4)*TWO
     * -R6(8,5)*TWO+R5(4,7)*TWO+R5(4,8)*TWO-R4(3,12)*TWO-R4(3,13)*TWO
     * -R4(8,26)*SIX-R4(8,27)*SIX+R3(1,9)*TWO+R3(1,10)*TWO+R3(4,31)*SIX
     * +R3(4,32)*SIX-R2(5,29)*SIX-R2(5,30)*SIX+R1(1,17)*SIX+R1(1,18)*SIX
     * )*QX+(-R5(8,12)-R5(8,13)*FOUR-R5(8,14)+R4(4,19)+R4(4,20)*FOUR
     * +R4(4,21)-R3(3,20)-R3(3,21)*FOUR-R3(3,22)-R3(8,40)-R3(8,41)*FOUR
     * -R3(8,42)+R2(1,18)+R2(1,19)*FOUR+R2(1,20)+R2(2,43)+R2(2,44)*FOUR
     * +R2(2,45)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(22)+R0(23)*FOUR
     * +R0(24))*XX+(-R4(8,28)*TWO-R4(8,29)*TWO+R3(4,33)*TWO+R3(4,34)*TWO
     * -R2(5,31)*TWO-R2(5,32)*TWO+R1(1,19)*TWO+R1(1,20)*TWO)*XXX+(
     * -R3(8,43)+R2(2,46)-R1(3,35)+R0(25))*XXXX
      F(2,1,6,3)= -R7(17,1)+R6(11,3)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,5)
     * +R4(4,18)+R4(11,18)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,17)+R2(2,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(17,5)*TWO+R5(11,8)*TWO
     * -R4(8,13)*TWO-R4(8,27)*TWO+R3(4,10)*TWO+R3(4,32)*TWO-R2(5,30)*TWO
     * +R1(1,18)*TWO)*QX+(-R5(17,14)+R4(11,21)-R3(8,22)-R3(8,42)
     * +R2(2,20)+R2(2,45)-R1(3,34)+R0(24))*XX
      F(3,1,6,3)= -R7(19,1)+R6(13,3)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,5)
     * +R4(4,18)+R4(13,18)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,17)+R2(3,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(19,5)*TWO+R5(13,8)*TWO
     * -R4(10,13)*TWO-R4(8,27)*TWO+R3(6,10)*TWO+R3(4,32)*TWO
     * -R2(5,30)*TWO+R1(1,18)*TWO)*QX+(-R6(13,4)*TWO+R5(8,7)*TWO
     * -R4(6,12)*TWO-R4(13,26)*TWO+R3(3,9)*TWO+R3(8,31)*TWO-R2(3,29)*TWO
     * +R1(3,17)*TWO)*QZ+(-R5(19,14)+R4(13,21)-R3(10,22)-R3(8,42)
     * +R2(3,20)+R2(2,45)-R1(3,34)+R0(24))*XX+(-R5(13,13)*FOUR
     * +R4(8,20)*FOUR-R3(6,21)*FOUR+R2(5,19)*FOUR)*XZ+(-R5(8,12)
     * +R4(4,19)-R3(3,20)-R3(8,40)+R2(1,18)+R2(2,43)-R1(3,32)+R0(22))*ZZ
     * +(-R4(13,29)*TWO+R3(8,34)*TWO-R2(3,32)*TWO+R1(3,20)*TWO)*XXZ+(
     * -R4(8,28)*TWO+R3(4,33)*TWO-R2(5,31)*TWO+R1(1,19)*TWO)*XZZ+(
     * -R3(8,43)+R2(2,46)-R1(3,35)+R0(25))*XXZZ
      F(4,1,6,3)= -R7(12,1)+R6(7,3)-R5(5,4)-R5(12,11)*THREE+R4(2,5)
     * +R4(7,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(12,4)
     * -R6(12,5)*TWO+R5(7,7)+R5(7,8)*TWO-R4(5,12)-R4(5,13)*TWO-R4(12,26)
     * -R4(12,27)*TWO+R3(2,9)+R3(2,10)*TWO+R3(7,31)+R3(7,32)*TWO
     * -R2(6,29)-R2(6,30)*TWO+R1(2,17)+R1(2,18)*TWO)*QX+(-R5(12,13)*TWO
     * -R5(12,14)+R4(7,20)*TWO+R4(7,21)-R3(5,21)*TWO-R3(5,22)
     * +R2(4,19)*TWO+R2(4,20))*XX+(-R4(12,29)+R3(7,34)-R2(6,32)+R1(2,20)
     * )*XXX
      F(5,1,6,3)= -R7(13,1)+R6(8,3)-R5(6,4)-R5(13,11)*THREE+R4(3,5)
     * +R4(8,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(13,4)
     * -R6(13,5)*TWO+R5(8,7)+R5(8,8)*TWO-R4(6,12)-R4(6,13)*TWO-R4(13,26)
     * -R4(13,27)*TWO+R3(3,9)+R3(3,10)*TWO+R3(8,31)+R3(8,32)*TWO
     * -R2(3,29)-R2(3,30)*TWO+R1(3,17)+R1(3,18)*TWO)*QX+(-R6(8,4)
     * +R5(4,7)-R4(3,12)-R4(8,26)*THREE+R3(1,9)+R3(4,31)*THREE
     * -R2(5,29)*THREE+R1(1,17)*THREE)*QZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,20)*TWO+R4(8,21)-R3(6,21)*TWO-R3(6,22)+R2(5,19)*TWO
     * +R2(5,20))*XX+(-R5(8,12)-R5(8,13)*TWO+R4(4,19)+R4(4,20)*TWO
     * -R3(3,20)-R3(3,21)*TWO-R3(8,40)-R3(8,41)*TWO+R2(1,18)
     * +R2(1,19)*TWO+R2(2,43)+R2(2,44)*TWO-R1(3,32)-R1(3,33)*TWO+R0(22)
     * +R0(23)*TWO)*XZ+(-R4(13,29)+R3(8,34)-R2(3,32)+R1(3,20))*XXX+(
     * -R4(8,28)*TWO-R4(8,29)+R3(4,33)*TWO+R3(4,34)-R2(5,31)*TWO
     * -R2(5,32)+R1(1,19)*TWO+R1(1,20))*XXZ+(-R3(8,43)+R2(2,46)-R1(3,35)
     * +R0(25))*XXXZ
      F(6,1,6,3)= -R7(18,1)+R6(12,3)-R5(9,4)-R5(18,11)+R4(5,5)+R4(12,18)
     * -R3(9,19)+R2(6,17)+(-R6(18,5)*TWO+R5(12,8)*TWO-R4(9,13)*TWO
     * +R3(5,10)*TWO)*QX+(-R6(12,4)+R5(7,7)-R4(5,12)-R4(12,26)+R3(2,9)
     * +R3(7,31)-R2(6,29)+R1(2,17))*QZ+(-R5(18,14)+R4(12,21)-R3(9,22)
     * +R2(6,20))*XX+(-R5(12,13)*TWO+R4(7,20)*TWO-R3(5,21)*TWO
     * +R2(4,19)*TWO)*XZ+(-R4(12,29)+R3(7,34)-R2(6,32)+R1(2,20))*XXZ
      F(1,2,6,3)= -R7(17,1)+R6(11,3)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,5)
     * +R4(4,18)+R4(11,18)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,17)+R2(2,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(17,4)*TWO+R5(11,7)*TWO
     * -R4(8,12)*TWO-R4(8,26)*TWO+R3(4,9)*TWO+R3(4,31)*TWO-R2(5,29)*TWO
     * +R1(1,17)*TWO)*QX+(-R5(17,12)+R4(11,19)-R3(8,20)-R3(8,40)
     * +R2(2,18)+R2(2,43)-R1(3,32)+R0(22))*XX
      F(2,2,6,3)= -R7(30,1)+R6(22,3)-R5(17,4)-R5(17,11)*SIX+R4(11,5)
     * +R4(11,18)*SIX-R3(8,19)*SIX-R3(8,39)*THREE+R2(2,17)*SIX
     * +R2(2,42)*THREE-R1(3,31)*THREE+R0(21)*THREE
      F(3,2,6,3)= -R7(32,1)+R6(24,3)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,5)+R4(11,18)+R4(13,18)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,17)+R2(3,17)+R2(2,42)-R1(3,31)+R0(21)+(-R6(24,4)*TWO
     * +R5(17,7)*TWO-R4(13,12)*TWO-R4(13,26)*TWO+R3(8,9)*TWO
     * +R3(8,31)*TWO-R2(3,29)*TWO+R1(3,17)*TWO)*QZ+(-R5(17,12)+R4(11,19)
     * -R3(8,20)-R3(8,40)+R2(2,18)+R2(2,43)-R1(3,32)+R0(22))*ZZ
      F(4,2,6,3)= -R7(23,1)+R6(16,3)-R5(12,4)-R5(12,11)*THREE+R4(7,5)
     * +R4(7,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(23,4)+R5(16,7)
     * -R4(12,12)-R4(12,26)*THREE+R3(7,9)+R3(7,31)*THREE-R2(6,29)*THREE
     * +R1(2,17)*THREE)*QX
      F(5,2,6,3)= -R7(24,1)+R6(17,3)-R5(13,4)-R5(13,11)+R4(8,5)+R4(8,18)
     * -R3(6,19)+R2(5,17)+(-R6(24,4)+R5(17,7)-R4(13,12)-R4(13,26)
     * +R3(8,9)+R3(8,31)-R2(3,29)+R1(3,17))*QX+(-R6(17,4)+R5(11,7)
     * -R4(8,12)-R4(8,26)+R3(4,9)+R3(4,31)-R2(5,29)+R1(1,17))*QZ+(
     * -R5(17,12)+R4(11,19)-R3(8,20)-R3(8,40)+R2(2,18)+R2(2,43)-R1(3,32)
     * +R0(22))*XZ
      F(6,2,6,3)= -R7(31,1)+R6(23,3)-R5(18,4)-R5(18,11)*THREE+R4(12,5)
     * +R4(12,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(23,4)
     * +R5(16,7)-R4(12,12)-R4(12,26)*THREE+R3(7,9)+R3(7,31)*THREE
     * -R2(6,29)*THREE+R1(2,17)*THREE)*QZ
      F(1,3,6,3)= -R7(19,1)+R6(13,3)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,5)
     * +R4(4,18)+R4(13,18)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,17)+R2(3,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(19,4)*TWO+R5(13,7)*TWO
     * -R4(10,12)*TWO-R4(8,26)*TWO+R3(6,9)*TWO+R3(4,31)*TWO-R2(5,29)*TWO
     * +R1(1,17)*TWO)*QX+(-R6(13,5)*TWO+R5(8,8)*TWO-R4(6,13)*TWO
     * -R4(13,27)*TWO+R3(3,10)*TWO+R3(8,32)*TWO-R2(3,30)*TWO
     * +R1(3,18)*TWO)*QZ+(-R5(19,12)+R4(13,19)-R3(10,20)-R3(8,40)
     * +R2(3,18)+R2(2,43)-R1(3,32)+R0(22))*XX+(-R5(13,13)*FOUR
     * +R4(8,20)*FOUR-R3(6,21)*FOUR+R2(5,19)*FOUR)*XZ+(-R5(8,14)
     * +R4(4,21)-R3(3,22)-R3(8,42)+R2(1,20)+R2(2,45)-R1(3,34)+R0(24))*ZZ
     * +(-R4(13,28)*TWO+R3(8,33)*TWO-R2(3,31)*TWO+R1(3,19)*TWO)*XXZ+(
     * -R4(8,29)*TWO+R3(4,34)*TWO-R2(5,32)*TWO+R1(1,20)*TWO)*XZZ+(
     * -R3(8,43)+R2(2,46)-R1(3,35)+R0(25))*XXZZ
      F(2,3,6,3)= -R7(32,1)+R6(24,3)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,5)+R4(11,18)+R4(13,18)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,17)+R2(3,17)+R2(2,42)-R1(3,31)+R0(21)+(-R6(24,5)*TWO
     * +R5(17,8)*TWO-R4(13,13)*TWO-R4(13,27)*TWO+R3(8,10)*TWO
     * +R3(8,32)*TWO-R2(3,30)*TWO+R1(3,18)*TWO)*QZ+(-R5(17,14)+R4(11,21)
     * -R3(8,22)-R3(8,42)+R2(2,20)+R2(2,45)-R1(3,34)+R0(24))*ZZ
      F(3,3,6,3)= -R7(34,1)+R6(26,3)-R5(21,4)-R5(19,11)*SIX+R4(15,5)
     * +R4(13,18)*SIX-R3(10,19)*SIX-R3(8,39)*THREE+R2(3,17)*SIX
     * +R2(2,42)*THREE-R1(3,31)*THREE+R0(21)*THREE+(-R6(26,4)*TWO
     * -R6(26,5)*TWO+R5(19,7)*TWO+R5(19,8)*TWO-R4(15,12)*TWO
     * -R4(15,13)*TWO-R4(13,26)*SIX-R4(13,27)*SIX+R3(10,9)*TWO
     * +R3(10,10)*TWO+R3(8,31)*SIX+R3(8,32)*SIX-R2(3,29)*SIX
     * -R2(3,30)*SIX+R1(3,17)*SIX+R1(3,18)*SIX)*QZ+(-R5(19,12)
     * -R5(19,13)*FOUR-R5(19,14)+R4(13,19)+R4(13,20)*FOUR+R4(13,21)
     * -R3(10,20)-R3(10,21)*FOUR-R3(10,22)-R3(8,40)-R3(8,41)*FOUR
     * -R3(8,42)+R2(3,18)+R2(3,19)*FOUR+R2(3,20)+R2(2,43)+R2(2,44)*FOUR
     * +R2(2,45)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(22)+R0(23)*FOUR
     * +R0(24))*ZZ+(-R4(13,28)*TWO-R4(13,29)*TWO+R3(8,33)*TWO
     * +R3(8,34)*TWO-R2(3,31)*TWO-R2(3,32)*TWO+R1(3,19)*TWO+R1(3,20)*TWO
     * )*ZZZ+(-R3(8,43)+R2(2,46)-R1(3,35)+R0(25))*ZZZZ
      F(4,3,6,3)= -R7(25,1)+R6(18,3)-R5(14,4)-R5(12,11)+R4(9,5)+R4(7,18)
     * -R3(5,19)+R2(4,17)+(-R6(25,4)+R5(18,7)-R4(14,12)-R4(12,26)
     * +R3(9,9)+R3(7,31)-R2(6,29)+R1(2,17))*QX+(-R6(18,5)*TWO
     * +R5(12,8)*TWO-R4(9,13)*TWO+R3(5,10)*TWO)*QZ+(-R5(18,13)*TWO
     * +R4(12,20)*TWO-R3(9,21)*TWO+R2(6,19)*TWO)*XZ+(-R5(12,14)+R4(7,21)
     * -R3(5,22)+R2(4,20))*ZZ+(-R4(12,29)+R3(7,34)-R2(6,32)+R1(2,20))
     * *XZZ
      F(5,3,6,3)= -R7(26,1)+R6(19,3)-R5(15,4)-R5(13,11)*THREE+R4(10,5)
     * +R4(8,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(26,4)+R5(19,7)
     * -R4(15,12)-R4(13,26)*THREE+R3(10,9)+R3(8,31)*THREE-R2(3,29)*THREE
     * +R1(3,17)*THREE)*QX+(-R6(19,4)-R6(19,5)*TWO+R5(13,7)+R5(13,8)*TWO
     * -R4(10,12)-R4(10,13)*TWO-R4(8,26)-R4(8,27)*TWO+R3(6,9)
     * +R3(6,10)*TWO+R3(4,31)+R3(4,32)*TWO-R2(5,29)-R2(5,30)*TWO
     * +R1(1,17)+R1(1,18)*TWO)*QZ+(-R5(19,12)-R5(19,13)*TWO+R4(13,19)
     * +R4(13,20)*TWO-R3(10,20)-R3(10,21)*TWO-R3(8,40)-R3(8,41)*TWO
     * +R2(3,18)+R2(3,19)*TWO+R2(2,43)+R2(2,44)*TWO-R1(3,32)
     * -R1(3,33)*TWO+R0(22)+R0(23)*TWO)*XZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,20)*TWO+R4(8,21)-R3(6,21)*TWO-R3(6,22)+R2(5,19)*TWO
     * +R2(5,20))*ZZ+(-R4(13,28)*TWO-R4(13,29)+R3(8,33)*TWO+R3(8,34)
     * -R2(3,31)*TWO-R2(3,32)+R1(3,19)*TWO+R1(3,20))*XZZ+(-R4(8,29)
     * +R3(4,34)-R2(5,32)+R1(1,20))*ZZZ+(-R3(8,43)+R2(2,46)-R1(3,35)
     * +R0(25))*XZZZ
      F(6,3,6,3)= -R7(33,1)+R6(25,3)-R5(20,4)-R5(18,11)*THREE+R4(14,5)
     * +R4(12,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(25,4)
     * -R6(25,5)*TWO+R5(18,7)+R5(18,8)*TWO-R4(14,12)-R4(14,13)*TWO
     * -R4(12,26)-R4(12,27)*TWO+R3(9,9)+R3(9,10)*TWO+R3(7,31)
     * +R3(7,32)*TWO-R2(6,29)-R2(6,30)*TWO+R1(2,17)+R1(2,18)*TWO)*QZ+(
     * -R5(18,13)*TWO-R5(18,14)+R4(12,20)*TWO+R4(12,21)-R3(9,21)*TWO
     * -R3(9,22)+R2(6,19)*TWO+R2(6,20))*ZZ+(-R4(12,29)+R3(7,34)-R2(6,32)
     * +R1(2,20))*ZZZ
      F(1,4,6,3)= -R7(12,1)+R6(7,3)-R5(5,4)-R5(12,11)*THREE+R4(2,5)
     * +R4(7,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(12,4)*TWO
     * -R6(12,5)+R5(7,7)*TWO+R5(7,8)-R4(5,12)*TWO-R4(5,13)-R4(12,26)*TWO
     * -R4(12,27)+R3(2,9)*TWO+R3(2,10)+R3(7,31)*TWO+R3(7,32)
     * -R2(6,29)*TWO-R2(6,30)+R1(2,17)*TWO+R1(2,18))*QX+(-R5(12,12)
     * -R5(12,13)*TWO+R4(7,19)+R4(7,20)*TWO-R3(5,20)-R3(5,21)*TWO
     * +R2(4,18)+R2(4,19)*TWO)*XX+(-R4(12,28)+R3(7,33)-R2(6,31)+R1(2,19)
     * )*XXX
      F(2,4,6,3)= -R7(23,1)+R6(16,3)-R5(12,4)-R5(12,11)*THREE+R4(7,5)
     * +R4(7,18)*THREE-R3(5,19)*THREE+R2(4,17)*THREE+(-R6(23,5)+R5(16,8)
     * -R4(12,13)-R4(12,27)*THREE+R3(7,10)+R3(7,32)*THREE-R2(6,30)*THREE
     * +R1(2,18)*THREE)*QX
      F(3,4,6,3)= -R7(25,1)+R6(18,3)-R5(14,4)-R5(12,11)+R4(9,5)+R4(7,18)
     * -R3(5,19)+R2(4,17)+(-R6(25,5)+R5(18,8)-R4(14,13)-R4(12,27)
     * +R3(9,10)+R3(7,32)-R2(6,30)+R1(2,18))*QX+(-R6(18,4)*TWO
     * +R5(12,7)*TWO-R4(9,12)*TWO+R3(5,9)*TWO)*QZ+(-R5(18,13)*TWO
     * +R4(12,20)*TWO-R3(9,21)*TWO+R2(6,19)*TWO)*XZ+(-R5(12,12)+R4(7,19)
     * -R3(5,20)+R2(4,18))*ZZ+(-R4(12,28)+R3(7,33)-R2(6,31)+R1(2,19))
     * *XZZ
      F(4,4,6,3)= -R7(17,1)+R6(11,3)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,5)
     * +R4(4,18)+R4(11,18)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,17)+R2(2,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(17,4)-R6(17,5)+R5(11,7)+R5(11,8)
     * -R4(8,12)-R4(8,13)-R4(8,26)-R4(8,27)+R3(4,9)+R3(4,10)+R3(4,31)
     * +R3(4,32)-R2(5,29)-R2(5,30)+R1(1,17)+R1(1,18))*QX+(-R5(17,13)
     * +R4(11,20)-R3(8,21)-R3(8,41)+R2(2,19)+R2(2,44)-R1(3,33)+R0(23))
     * *XX
      F(5,4,6,3)= -R7(18,1)+R6(12,3)-R5(9,4)-R5(18,11)+R4(5,5)+R4(12,18)
     * -R3(9,19)+R2(6,17)+(-R6(18,4)-R6(18,5)+R5(12,7)+R5(12,8)-R4(9,12)
     * -R4(9,13)+R3(5,9)+R3(5,10))*QX+(-R6(12,4)+R5(7,7)-R4(5,12)
     * -R4(12,26)+R3(2,9)+R3(7,31)-R2(6,29)+R1(2,17))*QZ+(-R5(18,13)
     * +R4(12,20)-R3(9,21)+R2(6,19))*XX+(-R5(12,12)-R5(12,13)+R4(7,19)
     * +R4(7,20)-R3(5,20)-R3(5,21)+R2(4,18)+R2(4,19))*XZ+(-R4(12,28)
     * +R3(7,33)-R2(6,31)+R1(2,19))*XXZ
      F(6,4,6,3)= -R7(24,1)+R6(17,3)-R5(13,4)-R5(13,11)+R4(8,5)+R4(8,18)
     * -R3(6,19)+R2(5,17)+(-R6(24,5)+R5(17,8)-R4(13,13)-R4(13,27)
     * +R3(8,10)+R3(8,32)-R2(3,30)+R1(3,18))*QX+(-R6(17,4)+R5(11,7)
     * -R4(8,12)-R4(8,26)+R3(4,9)+R3(4,31)-R2(5,29)+R1(1,17))*QZ+(
     * -R5(17,13)+R4(11,20)-R3(8,21)-R3(8,41)+R2(2,19)+R2(2,44)-R1(3,33)
     * +R0(23))*XZ
      F(1,5,6,3)= -R7(13,1)+R6(8,3)-R5(6,4)-R5(13,11)*THREE+R4(3,5)
     * +R4(8,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(13,4)*TWO
     * -R6(13,5)+R5(8,7)*TWO+R5(8,8)-R4(6,12)*TWO-R4(6,13)-R4(13,26)*TWO
     * -R4(13,27)+R3(3,9)*TWO+R3(3,10)+R3(8,31)*TWO+R3(8,32)
     * -R2(3,29)*TWO-R2(3,30)+R1(3,17)*TWO+R1(3,18))*QX+(-R6(8,5)
     * +R5(4,8)-R4(3,13)-R4(8,27)*THREE+R3(1,10)+R3(4,32)*THREE
     * -R2(5,30)*THREE+R1(1,18)*THREE)*QZ+(-R5(13,12)-R5(13,13)*TWO
     * +R4(8,19)+R4(8,20)*TWO-R3(6,20)-R3(6,21)*TWO+R2(5,18)
     * +R2(5,19)*TWO)*XX+(-R5(8,13)*TWO-R5(8,14)+R4(4,20)*TWO+R4(4,21)
     * -R3(3,21)*TWO-R3(3,22)-R3(8,41)*TWO-R3(8,42)+R2(1,19)*TWO
     * +R2(1,20)+R2(2,44)*TWO+R2(2,45)-R1(3,33)*TWO-R1(3,34)+R0(23)*TWO
     * +R0(24))*XZ+(-R4(13,28)+R3(8,33)-R2(3,31)+R1(3,19))*XXX+(
     * -R4(8,28)-R4(8,29)*TWO+R3(4,33)+R3(4,34)*TWO-R2(5,31)
     * -R2(5,32)*TWO+R1(1,19)+R1(1,20)*TWO)*XXZ+(-R3(8,43)+R2(2,46)
     * -R1(3,35)+R0(25))*XXXZ
      F(2,5,6,3)= -R7(24,1)+R6(17,3)-R5(13,4)-R5(13,11)+R4(8,5)+R4(8,18)
     * -R3(6,19)+R2(5,17)+(-R6(24,5)+R5(17,8)-R4(13,13)-R4(13,27)
     * +R3(8,10)+R3(8,32)-R2(3,30)+R1(3,18))*QX+(-R6(17,5)+R5(11,8)
     * -R4(8,13)-R4(8,27)+R3(4,10)+R3(4,32)-R2(5,30)+R1(1,18))*QZ+(
     * -R5(17,14)+R4(11,21)-R3(8,22)-R3(8,42)+R2(2,20)+R2(2,45)-R1(3,34)
     * +R0(24))*XZ
      F(3,5,6,3)= -R7(26,1)+R6(19,3)-R5(15,4)-R5(13,11)*THREE+R4(10,5)
     * +R4(8,18)*THREE-R3(6,19)*THREE+R2(5,17)*THREE+(-R6(26,5)+R5(19,8)
     * -R4(15,13)-R4(13,27)*THREE+R3(10,10)+R3(8,32)*THREE
     * -R2(3,30)*THREE+R1(3,18)*THREE)*QX+(-R6(19,4)*TWO-R6(19,5)
     * +R5(13,7)*TWO+R5(13,8)-R4(10,12)*TWO-R4(10,13)-R4(8,26)*TWO
     * -R4(8,27)+R3(6,9)*TWO+R3(6,10)+R3(4,31)*TWO+R3(4,32)-R2(5,29)*TWO
     * -R2(5,30)+R1(1,17)*TWO+R1(1,18))*QZ+(-R5(19,13)*TWO-R5(19,14)
     * +R4(13,20)*TWO+R4(13,21)-R3(10,21)*TWO-R3(10,22)-R3(8,41)*TWO
     * -R3(8,42)+R2(3,19)*TWO+R2(3,20)+R2(2,44)*TWO+R2(2,45)
     * -R1(3,33)*TWO-R1(3,34)+R0(23)*TWO+R0(24))*XZ+(-R5(13,12)
     * -R5(13,13)*TWO+R4(8,19)+R4(8,20)*TWO-R3(6,20)-R3(6,21)*TWO
     * +R2(5,18)+R2(5,19)*TWO)*ZZ+(-R4(13,28)-R4(13,29)*TWO+R3(8,33)
     * +R3(8,34)*TWO-R2(3,31)-R2(3,32)*TWO+R1(3,19)+R1(3,20)*TWO)*XZZ+(
     * -R4(8,28)+R3(4,33)-R2(5,31)+R1(1,19))*ZZZ+(-R3(8,43)+R2(2,46)
     * -R1(3,35)+R0(25))*XZZZ
      F(4,5,6,3)= -R7(18,1)+R6(12,3)-R5(9,4)-R5(18,11)+R4(5,5)+R4(12,18)
     * -R3(9,19)+R2(6,17)+(-R6(18,4)-R6(18,5)+R5(12,7)+R5(12,8)-R4(9,12)
     * -R4(9,13)+R3(5,9)+R3(5,10))*QX+(-R6(12,5)+R5(7,8)-R4(5,13)
     * -R4(12,27)+R3(2,10)+R3(7,32)-R2(6,30)+R1(2,18))*QZ+(-R5(18,13)
     * +R4(12,20)-R3(9,21)+R2(6,19))*XX+(-R5(12,13)-R5(12,14)+R4(7,20)
     * +R4(7,21)-R3(5,21)-R3(5,22)+R2(4,19)+R2(4,20))*XZ+(-R4(12,29)
     * +R3(7,34)-R2(6,32)+R1(2,20))*XXZ
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20E
      SUBROUTINE MCDV20E(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(5,5,6,3)= -R7(19,1)+R6(13,3)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,5)
     * +R4(4,18)+R4(13,18)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,17)+R2(3,17)
     * +R2(2,42)-R1(3,31)+R0(21)+(-R6(19,4)-R6(19,5)+R5(13,7)+R5(13,8)
     * -R4(10,12)-R4(10,13)-R4(8,26)-R4(8,27)+R3(6,9)+R3(6,10)+R3(4,31)
     * +R3(4,32)-R2(5,29)-R2(5,30)+R1(1,17)+R1(1,18))*QX+(-R6(13,4)
     * -R6(13,5)+R5(8,7)+R5(8,8)-R4(6,12)-R4(6,13)-R4(13,26)-R4(13,27)
     * +R3(3,9)+R3(3,10)+R3(8,31)+R3(8,32)-R2(3,29)-R2(3,30)+R1(3,17)
     * +R1(3,18))*QZ+(-R5(19,13)+R4(13,20)-R3(10,21)-R3(8,41)+R2(3,19)
     * +R2(2,44)-R1(3,33)+R0(23))*XX+(-R5(13,12)-R5(13,13)*TWO-R5(13,14)
     * +R4(8,19)+R4(8,20)*TWO+R4(8,21)-R3(6,20)-R3(6,21)*TWO-R3(6,22)
     * +R2(5,18)+R2(5,19)*TWO+R2(5,20))*XZ+(-R5(8,13)+R4(4,20)-R3(3,21)
     * -R3(8,41)+R2(1,19)+R2(2,44)-R1(3,33)+R0(23))*ZZ+(-R4(13,28)
     * -R4(13,29)+R3(8,33)+R3(8,34)-R2(3,31)-R2(3,32)+R1(3,19)+R1(3,20))
     * *XXZ+(-R4(8,28)-R4(8,29)+R3(4,33)+R3(4,34)-R2(5,31)-R2(5,32)
     * +R1(1,19)+R1(1,20))*XZZ+(-R3(8,43)+R2(2,46)-R1(3,35)+R0(25))*XXZZ
      F(6,5,6,3)= -R7(25,1)+R6(18,3)-R5(14,4)-R5(12,11)+R4(9,5)+R4(7,18)
     * -R3(5,19)+R2(4,17)+(-R6(25,5)+R5(18,8)-R4(14,13)-R4(12,27)
     * +R3(9,10)+R3(7,32)-R2(6,30)+R1(2,18))*QX+(-R6(18,4)-R6(18,5)
     * +R5(12,7)+R5(12,8)-R4(9,12)-R4(9,13)+R3(5,9)+R3(5,10))*QZ+(
     * -R5(18,13)-R5(18,14)+R4(12,20)+R4(12,21)-R3(9,21)-R3(9,22)
     * +R2(6,19)+R2(6,20))*XZ+(-R5(12,13)+R4(7,20)-R3(5,21)+R2(4,19))*ZZ
     * +(-R4(12,29)+R3(7,34)-R2(6,32)+R1(2,20))*XZZ
      F(1,6,6,3)= -R7(18,1)+R6(12,3)-R5(9,4)-R5(18,11)+R4(5,5)+R4(12,18)
     * -R3(9,19)+R2(6,17)+(-R6(18,4)*TWO+R5(12,7)*TWO-R4(9,12)*TWO
     * +R3(5,9)*TWO)*QX+(-R6(12,5)+R5(7,8)-R4(5,13)-R4(12,27)+R3(2,10)
     * +R3(7,32)-R2(6,30)+R1(2,18))*QZ+(-R5(18,12)+R4(12,19)-R3(9,20)
     * +R2(6,18))*XX+(-R5(12,13)*TWO+R4(7,20)*TWO-R3(5,21)*TWO
     * +R2(4,19)*TWO)*XZ+(-R4(12,28)+R3(7,33)-R2(6,31)+R1(2,19))*XXZ
      F(2,6,6,3)= -R7(31,1)+R6(23,3)-R5(18,4)-R5(18,11)*THREE+R4(12,5)
     * +R4(12,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(23,5)
     * +R5(16,8)-R4(12,13)-R4(12,27)*THREE+R3(7,10)+R3(7,32)*THREE
     * -R2(6,30)*THREE+R1(2,18)*THREE)*QZ
      F(3,6,6,3)= -R7(33,1)+R6(25,3)-R5(20,4)-R5(18,11)*THREE+R4(14,5)
     * +R4(12,18)*THREE-R3(9,19)*THREE+R2(6,17)*THREE+(-R6(25,4)*TWO
     * -R6(25,5)+R5(18,7)*TWO+R5(18,8)-R4(14,12)*TWO-R4(14,13)
     * -R4(12,26)*TWO-R4(12,27)+R3(9,9)*TWO+R3(9,10)+R3(7,31)*TWO
     * +R3(7,32)-R2(6,29)*TWO-R2(6,30)+R1(2,17)*TWO+R1(2,18))*QZ+(
     * -R5(18,12)-R5(18,13)*TWO+R4(12,19)+R4(12,20)*TWO-R3(9,20)
     * -R3(9,21)*TWO+R2(6,18)+R2(6,19)*TWO)*ZZ+(-R4(12,28)+R3(7,33)
     * -R2(6,31)+R1(2,19))*ZZZ
      F(4,6,6,3)= -R7(24,1)+R6(17,3)-R5(13,4)-R5(13,11)+R4(8,5)+R4(8,18)
     * -R3(6,19)+R2(5,17)+(-R6(24,4)+R5(17,7)-R4(13,12)-R4(13,26)
     * +R3(8,9)+R3(8,31)-R2(3,29)+R1(3,17))*QX+(-R6(17,5)+R5(11,8)
     * -R4(8,13)-R4(8,27)+R3(4,10)+R3(4,32)-R2(5,30)+R1(1,18))*QZ+(
     * -R5(17,13)+R4(11,20)-R3(8,21)-R3(8,41)+R2(2,19)+R2(2,44)-R1(3,33)
     * +R0(23))*XZ
      F(5,6,6,3)= -R7(25,1)+R6(18,3)-R5(14,4)-R5(12,11)+R4(9,5)+R4(7,18)
     * -R3(5,19)+R2(4,17)+(-R6(25,4)+R5(18,7)-R4(14,12)-R4(12,26)
     * +R3(9,9)+R3(7,31)-R2(6,29)+R1(2,17))*QX+(-R6(18,4)-R6(18,5)
     * +R5(12,7)+R5(12,8)-R4(9,12)-R4(9,13)+R3(5,9)+R3(5,10))*QZ+(
     * -R5(18,12)-R5(18,13)+R4(12,19)+R4(12,20)-R3(9,20)-R3(9,21)
     * +R2(6,18)+R2(6,19))*XZ+(-R5(12,13)+R4(7,20)-R3(5,21)+R2(4,19))*ZZ
     * +(-R4(12,28)+R3(7,33)-R2(6,31)+R1(2,19))*XZZ
      F(6,6,6,3)= -R7(32,1)+R6(24,3)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,5)+R4(11,18)+R4(13,18)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,17)+R2(3,17)+R2(2,42)-R1(3,31)+R0(21)+(-R6(24,4)-R6(24,5)
     * +R5(17,7)+R5(17,8)-R4(13,12)-R4(13,13)-R4(13,26)-R4(13,27)
     * +R3(8,9)+R3(8,10)+R3(8,31)+R3(8,32)-R2(3,29)-R2(3,30)+R1(3,17)
     * +R1(3,18))*QZ+(-R5(17,13)+R4(11,20)-R3(8,21)-R3(8,41)+R2(2,19)
     * +R2(2,44)-R1(3,33)+R0(23))*ZZ
      F(1,1,1,4)= -R7(3,1)+R6(1,1)-R5(3,4)-R5(3,11)*SIX+R4(1,4)
     * +R4(1,22)*SIX-R3(3,19)*SIX-R3(3,39)*THREE+R2(1,13)*SIX
     * +R2(1,47)*THREE-R1(3,31)*THREE+R0(16)*THREE+(-R6(3,4)*TWO
     * -R6(3,5)*TWO+R5(1,9)*TWO+R5(1,10)*TWO-R4(3,12)*TWO-R4(3,13)*TWO
     * -R4(3,26)*SIX-R4(3,27)*SIX+R3(1,7)*TWO+R3(1,8)*TWO+R3(1,35)*SIX
     * +R3(1,36)*SIX-R2(5,29)*SIX-R2(5,30)*SIX+R1(1,13)*SIX+R1(1,14)*SIX
     * )*QX+(-R5(3,12)-R5(3,13)*FOUR-R5(3,14)+R4(1,23)+R4(1,24)*FOUR
     * +R4(1,25)-R3(3,20)-R3(3,21)*FOUR-R3(3,22)-R3(3,40)-R3(3,41)*FOUR
     * -R3(3,42)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)+R2(1,48)+R2(1,49)*FOUR
     * +R2(1,50)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(17)+R0(18)*FOUR
     * +R0(19))*XX+(-R4(3,28)*TWO-R4(3,29)*TWO+R3(1,37)*TWO+R3(1,38)*TWO
     * -R2(5,31)*TWO-R2(5,32)*TWO+R1(1,15)*TWO+R1(1,16)*TWO)*XXX+(
     * -R3(3,43)+R2(1,51)-R1(3,35)+R0(20))*XXXX
      F(2,1,1,4)= -R7(8,1)+R6(4,1)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,4)
     * +R4(1,22)+R4(4,22)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,13)+R2(2,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(8,5)*TWO+R5(4,10)*TWO-R4(8,13)*TWO
     * -R4(3,27)*TWO+R3(4,8)*TWO+R3(1,36)*TWO-R2(5,30)*TWO+R1(1,14)*TWO)
     * *QX+(-R5(8,14)+R4(4,25)-R3(8,22)-R3(3,42)+R2(2,16)+R2(1,50)
     * -R1(3,34)+R0(19))*XX
      F(3,1,1,4)= -R7(10,1)+R6(6,1)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,4)
     * +R4(1,22)+R4(6,22)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,13)+R2(3,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(10,5)*TWO+R5(6,10)*TWO
     * -R4(10,13)*TWO-R4(3,27)*TWO+R3(6,8)*TWO+R3(1,36)*TWO-R2(5,30)*TWO
     * +R1(1,14)*TWO)*QX+(-R6(6,4)*TWO+R5(3,9)*TWO-R4(6,12)*TWO
     * -R4(6,26)*TWO+R3(3,7)*TWO+R3(3,35)*TWO-R2(3,29)*TWO+R1(3,13)*TWO)
     * *QZ+(-R5(10,14)+R4(6,25)-R3(10,22)-R3(3,42)+R2(3,16)+R2(1,50)
     * -R1(3,34)+R0(19))*XX+(-R5(6,13)*FOUR+R4(3,24)*FOUR-R3(6,21)*FOUR
     * +R2(5,15)*FOUR)*XZ+(-R5(3,12)+R4(1,23)-R3(3,20)-R3(3,40)+R2(1,14)
     * +R2(1,48)-R1(3,32)+R0(17))*ZZ+(-R4(6,29)*TWO+R3(3,38)*TWO
     * -R2(3,32)*TWO+R1(3,16)*TWO)*XXZ+(-R4(3,28)*TWO+R3(1,37)*TWO
     * -R2(5,31)*TWO+R1(1,15)*TWO)*XZZ+(-R3(3,43)+R2(1,51)-R1(3,35)
     * +R0(20))*XXZZ
      F(4,1,1,4)= -R7(5,1)+R6(2,1)-R5(5,4)-R5(5,11)*THREE+R4(2,4)
     * +R4(2,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(5,4)
     * -R6(5,5)*TWO+R5(2,9)+R5(2,10)*TWO-R4(5,12)-R4(5,13)*TWO-R4(5,26)
     * -R4(5,27)*TWO+R3(2,7)+R3(2,8)*TWO+R3(2,35)+R3(2,36)*TWO-R2(6,29)
     * -R2(6,30)*TWO+R1(2,13)+R1(2,14)*TWO)*QX+(-R5(5,13)*TWO-R5(5,14)
     * +R4(2,24)*TWO+R4(2,25)-R3(5,21)*TWO-R3(5,22)+R2(4,15)*TWO
     * +R2(4,16))*XX+(-R4(5,29)+R3(2,38)-R2(6,32)+R1(2,16))*XXX
      F(5,1,1,4)= -R7(6,1)+R6(3,1)-R5(6,4)-R5(6,11)*THREE+R4(3,4)
     * +R4(3,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(6,4)
     * -R6(6,5)*TWO+R5(3,9)+R5(3,10)*TWO-R4(6,12)-R4(6,13)*TWO-R4(6,26)
     * -R4(6,27)*TWO+R3(3,7)+R3(3,8)*TWO+R3(3,35)+R3(3,36)*TWO-R2(3,29)
     * -R2(3,30)*TWO+R1(3,13)+R1(3,14)*TWO)*QX+(-R6(3,4)+R5(1,9)
     * -R4(3,12)-R4(3,26)*THREE+R3(1,7)+R3(1,35)*THREE-R2(5,29)*THREE
     * +R1(1,13)*THREE)*QZ+(-R5(6,13)*TWO-R5(6,14)+R4(3,24)*TWO+R4(3,25)
     * -R3(6,21)*TWO-R3(6,22)+R2(5,15)*TWO+R2(5,16))*XX+(-R5(3,12)
     * -R5(3,13)*TWO+R4(1,23)+R4(1,24)*TWO-R3(3,20)-R3(3,21)*TWO
     * -R3(3,40)-R3(3,41)*TWO+R2(1,14)+R2(1,15)*TWO+R2(1,48)
     * +R2(1,49)*TWO-R1(3,32)-R1(3,33)*TWO+R0(17)+R0(18)*TWO)*XZ+(
     * -R4(6,29)+R3(3,38)-R2(3,32)+R1(3,16))*XXX+(-R4(3,28)*TWO-R4(3,29)
     * +R3(1,37)*TWO+R3(1,38)-R2(5,31)*TWO-R2(5,32)+R1(1,15)*TWO
     * +R1(1,16))*XXZ+(-R3(3,43)+R2(1,51)-R1(3,35)+R0(20))*XXXZ
      F(6,1,1,4)= -R7(9,1)+R6(5,1)-R5(9,4)-R5(9,11)+R4(5,4)+R4(5,22)
     * -R3(9,19)+R2(6,13)+(-R6(9,5)*TWO+R5(5,10)*TWO-R4(9,13)*TWO
     * +R3(5,8)*TWO)*QX+(-R6(5,4)+R5(2,9)-R4(5,12)-R4(5,26)+R3(2,7)
     * +R3(2,35)-R2(6,29)+R1(2,13))*QZ+(-R5(9,14)+R4(5,25)-R3(9,22)
     * +R2(6,16))*XX+(-R5(5,13)*TWO+R4(2,24)*TWO-R3(5,21)*TWO
     * +R2(4,15)*TWO)*XZ+(-R4(5,29)+R3(2,38)-R2(6,32)+R1(2,16))*XXZ
      F(1,2,1,4)= -R7(8,1)+R6(4,1)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,4)
     * +R4(1,22)+R4(4,22)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,13)+R2(2,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(8,4)*TWO+R5(4,9)*TWO-R4(8,12)*TWO
     * -R4(3,26)*TWO+R3(4,7)*TWO+R3(1,35)*TWO-R2(5,29)*TWO+R1(1,13)*TWO)
     * *QX+(-R5(8,12)+R4(4,23)-R3(8,20)-R3(3,40)+R2(2,14)+R2(1,48)
     * -R1(3,32)+R0(17))*XX
      F(2,2,1,4)= -R7(17,1)+R6(11,1)-R5(17,4)-R5(8,11)*SIX+R4(11,4)
     * +R4(4,22)*SIX-R3(8,19)*SIX-R3(3,39)*THREE+R2(2,13)*SIX
     * +R2(1,47)*THREE-R1(3,31)*THREE+R0(16)*THREE
      F(3,2,1,4)= -R7(19,1)+R6(13,1)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,4)+R4(4,22)+R4(6,22)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,13)
     * +R2(3,13)+R2(1,47)-R1(3,31)+R0(16)+(-R6(13,4)*TWO+R5(8,9)*TWO
     * -R4(13,12)*TWO-R4(6,26)*TWO+R3(8,7)*TWO+R3(3,35)*TWO-R2(3,29)*TWO
     * +R1(3,13)*TWO)*QZ+(-R5(8,12)+R4(4,23)-R3(8,20)-R3(3,40)+R2(2,14)
     * +R2(1,48)-R1(3,32)+R0(17))*ZZ
      F(4,2,1,4)= -R7(12,1)+R6(7,1)-R5(12,4)-R5(5,11)*THREE+R4(7,4)
     * +R4(2,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(12,4)+R5(7,9)
     * -R4(12,12)-R4(5,26)*THREE+R3(7,7)+R3(2,35)*THREE-R2(6,29)*THREE
     * +R1(2,13)*THREE)*QX
      F(5,2,1,4)= -R7(13,1)+R6(8,1)-R5(13,4)-R5(6,11)+R4(8,4)+R4(3,22)
     * -R3(6,19)+R2(5,13)+(-R6(13,4)+R5(8,9)-R4(13,12)-R4(6,26)+R3(8,7)
     * +R3(3,35)-R2(3,29)+R1(3,13))*QX+(-R6(8,4)+R5(4,9)-R4(8,12)
     * -R4(3,26)+R3(4,7)+R3(1,35)-R2(5,29)+R1(1,13))*QZ+(-R5(8,12)
     * +R4(4,23)-R3(8,20)-R3(3,40)+R2(2,14)+R2(1,48)-R1(3,32)+R0(17))*XZ
      F(6,2,1,4)= -R7(18,1)+R6(12,1)-R5(18,4)-R5(9,11)*THREE+R4(12,4)
     * +R4(5,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(12,4)+R5(7,9)
     * -R4(12,12)-R4(5,26)*THREE+R3(7,7)+R3(2,35)*THREE-R2(6,29)*THREE
     * +R1(2,13)*THREE)*QZ
      F(1,3,1,4)= -R7(10,1)+R6(6,1)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,4)
     * +R4(1,22)+R4(6,22)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,13)+R2(3,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(10,4)*TWO+R5(6,9)*TWO
     * -R4(10,12)*TWO-R4(3,26)*TWO+R3(6,7)*TWO+R3(1,35)*TWO-R2(5,29)*TWO
     * +R1(1,13)*TWO)*QX+(-R6(6,5)*TWO+R5(3,10)*TWO-R4(6,13)*TWO
     * -R4(6,27)*TWO+R3(3,8)*TWO+R3(3,36)*TWO-R2(3,30)*TWO+R1(3,14)*TWO)
     * *QZ+(-R5(10,12)+R4(6,23)-R3(10,20)-R3(3,40)+R2(3,14)+R2(1,48)
     * -R1(3,32)+R0(17))*XX+(-R5(6,13)*FOUR+R4(3,24)*FOUR-R3(6,21)*FOUR
     * +R2(5,15)*FOUR)*XZ+(-R5(3,14)+R4(1,25)-R3(3,22)-R3(3,42)+R2(1,16)
     * +R2(1,50)-R1(3,34)+R0(19))*ZZ+(-R4(6,28)*TWO+R3(3,37)*TWO
     * -R2(3,31)*TWO+R1(3,15)*TWO)*XXZ+(-R4(3,29)*TWO+R3(1,38)*TWO
     * -R2(5,32)*TWO+R1(1,16)*TWO)*XZZ+(-R3(3,43)+R2(1,51)-R1(3,35)
     * +R0(20))*XXZZ
      F(2,3,1,4)= -R7(19,1)+R6(13,1)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,4)+R4(4,22)+R4(6,22)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,13)
     * +R2(3,13)+R2(1,47)-R1(3,31)+R0(16)+(-R6(13,5)*TWO+R5(8,10)*TWO
     * -R4(13,13)*TWO-R4(6,27)*TWO+R3(8,8)*TWO+R3(3,36)*TWO-R2(3,30)*TWO
     * +R1(3,14)*TWO)*QZ+(-R5(8,14)+R4(4,25)-R3(8,22)-R3(3,42)+R2(2,16)
     * +R2(1,50)-R1(3,34)+R0(19))*ZZ
      F(3,3,1,4)= -R7(21,1)+R6(15,1)-R5(21,4)-R5(10,11)*SIX+R4(15,4)
     * +R4(6,22)*SIX-R3(10,19)*SIX-R3(3,39)*THREE+R2(3,13)*SIX
     * +R2(1,47)*THREE-R1(3,31)*THREE+R0(16)*THREE+(-R6(15,4)*TWO
     * -R6(15,5)*TWO+R5(10,9)*TWO+R5(10,10)*TWO-R4(15,12)*TWO
     * -R4(15,13)*TWO-R4(6,26)*SIX-R4(6,27)*SIX+R3(10,7)*TWO
     * +R3(10,8)*TWO+R3(3,35)*SIX+R3(3,36)*SIX-R2(3,29)*SIX-R2(3,30)*SIX
     * +R1(3,13)*SIX+R1(3,14)*SIX)*QZ+(-R5(10,12)-R5(10,13)*FOUR
     * -R5(10,14)+R4(6,23)+R4(6,24)*FOUR+R4(6,25)-R3(10,20)
     * -R3(10,21)*FOUR-R3(10,22)-R3(3,40)-R3(3,41)*FOUR-R3(3,42)
     * +R2(3,14)+R2(3,15)*FOUR+R2(3,16)+R2(1,48)+R2(1,49)*FOUR+R2(1,50)
     * -R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(17)+R0(18)*FOUR+R0(19))*ZZ+(
     * -R4(6,28)*TWO-R4(6,29)*TWO+R3(3,37)*TWO+R3(3,38)*TWO-R2(3,31)*TWO
     * -R2(3,32)*TWO+R1(3,15)*TWO+R1(3,16)*TWO)*ZZZ+(-R3(3,43)+R2(1,51)
     * -R1(3,35)+R0(20))*ZZZZ
      F(4,3,1,4)= -R7(14,1)+R6(9,1)-R5(14,4)-R5(5,11)+R4(9,4)+R4(2,22)
     * -R3(5,19)+R2(4,13)+(-R6(14,4)+R5(9,9)-R4(14,12)-R4(5,26)+R3(9,7)
     * +R3(2,35)-R2(6,29)+R1(2,13))*QX+(-R6(9,5)*TWO+R5(5,10)*TWO
     * -R4(9,13)*TWO+R3(5,8)*TWO)*QZ+(-R5(9,13)*TWO+R4(5,24)*TWO
     * -R3(9,21)*TWO+R2(6,15)*TWO)*XZ+(-R5(5,14)+R4(2,25)-R3(5,22)
     * +R2(4,16))*ZZ+(-R4(5,29)+R3(2,38)-R2(6,32)+R1(2,16))*XZZ
      F(5,3,1,4)= -R7(15,1)+R6(10,1)-R5(15,4)-R5(6,11)*THREE+R4(10,4)
     * +R4(3,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(15,4)+R5(10,9)
     * -R4(15,12)-R4(6,26)*THREE+R3(10,7)+R3(3,35)*THREE-R2(3,29)*THREE
     * +R1(3,13)*THREE)*QX+(-R6(10,4)-R6(10,5)*TWO+R5(6,9)+R5(6,10)*TWO
     * -R4(10,12)-R4(10,13)*TWO-R4(3,26)-R4(3,27)*TWO+R3(6,7)
     * +R3(6,8)*TWO+R3(1,35)+R3(1,36)*TWO-R2(5,29)-R2(5,30)*TWO+R1(1,13)
     * +R1(1,14)*TWO)*QZ+(-R5(10,12)-R5(10,13)*TWO+R4(6,23)+R4(6,24)*TWO
     * -R3(10,20)-R3(10,21)*TWO-R3(3,40)-R3(3,41)*TWO+R2(3,14)
     * +R2(3,15)*TWO+R2(1,48)+R2(1,49)*TWO-R1(3,32)-R1(3,33)*TWO+R0(17)
     * +R0(18)*TWO)*XZ+(-R5(6,13)*TWO-R5(6,14)+R4(3,24)*TWO+R4(3,25)
     * -R3(6,21)*TWO-R3(6,22)+R2(5,15)*TWO+R2(5,16))*ZZ+(-R4(6,28)*TWO
     * -R4(6,29)+R3(3,37)*TWO+R3(3,38)-R2(3,31)*TWO-R2(3,32)
     * +R1(3,15)*TWO+R1(3,16))*XZZ+(-R4(3,29)+R3(1,38)-R2(5,32)+R1(1,16)
     * )*ZZZ+(-R3(3,43)+R2(1,51)-R1(3,35)+R0(20))*XZZZ
      F(6,3,1,4)= -R7(20,1)+R6(14,1)-R5(20,4)-R5(9,11)*THREE+R4(14,4)
     * +R4(5,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,9)+R5(9,10)*TWO-R4(14,12)-R4(14,13)*TWO
     * -R4(5,26)-R4(5,27)*TWO+R3(9,7)+R3(9,8)*TWO+R3(2,35)+R3(2,36)*TWO
     * -R2(6,29)-R2(6,30)*TWO+R1(2,13)+R1(2,14)*TWO)*QZ+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,24)*TWO+R4(5,25)-R3(9,21)*TWO-R3(9,22)
     * +R2(6,15)*TWO+R2(6,16))*ZZ+(-R4(5,29)+R3(2,38)-R2(6,32)+R1(2,16))
     * *ZZZ
      F(1,4,1,4)= -R7(5,1)+R6(2,1)-R5(5,4)-R5(5,11)*THREE+R4(2,4)
     * +R4(2,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(5,4)*TWO
     * -R6(5,5)+R5(2,9)*TWO+R5(2,10)-R4(5,12)*TWO-R4(5,13)-R4(5,26)*TWO
     * -R4(5,27)+R3(2,7)*TWO+R3(2,8)+R3(2,35)*TWO+R3(2,36)-R2(6,29)*TWO
     * -R2(6,30)+R1(2,13)*TWO+R1(2,14))*QX+(-R5(5,12)-R5(5,13)*TWO
     * +R4(2,23)+R4(2,24)*TWO-R3(5,20)-R3(5,21)*TWO+R2(4,14)
     * +R2(4,15)*TWO)*XX+(-R4(5,28)+R3(2,37)-R2(6,31)+R1(2,15))*XXX
      F(2,4,1,4)= -R7(12,1)+R6(7,1)-R5(12,4)-R5(5,11)*THREE+R4(7,4)
     * +R4(2,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(12,5)+R5(7,10)
     * -R4(12,13)-R4(5,27)*THREE+R3(7,8)+R3(2,36)*THREE-R2(6,30)*THREE
     * +R1(2,14)*THREE)*QX
      F(3,4,1,4)= -R7(14,1)+R6(9,1)-R5(14,4)-R5(5,11)+R4(9,4)+R4(2,22)
     * -R3(5,19)+R2(4,13)+(-R6(14,5)+R5(9,10)-R4(14,13)-R4(5,27)+R3(9,8)
     * +R3(2,36)-R2(6,30)+R1(2,14))*QX+(-R6(9,4)*TWO+R5(5,9)*TWO
     * -R4(9,12)*TWO+R3(5,7)*TWO)*QZ+(-R5(9,13)*TWO+R4(5,24)*TWO
     * -R3(9,21)*TWO+R2(6,15)*TWO)*XZ+(-R5(5,12)+R4(2,23)-R3(5,20)
     * +R2(4,14))*ZZ+(-R4(5,28)+R3(2,37)-R2(6,31)+R1(2,15))*XZZ
      F(4,4,1,4)= -R7(8,1)+R6(4,1)-R5(8,4)-R5(3,11)-R5(8,11)+R4(4,4)
     * +R4(1,22)+R4(4,22)-R3(3,19)-R3(8,19)-R3(3,39)+R2(1,13)+R2(2,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(8,4)-R6(8,5)+R5(4,9)+R5(4,10)
     * -R4(8,12)-R4(8,13)-R4(3,26)-R4(3,27)+R3(4,7)+R3(4,8)+R3(1,35)
     * +R3(1,36)-R2(5,29)-R2(5,30)+R1(1,13)+R1(1,14))*QX+(-R5(8,13)
     * +R4(4,24)-R3(8,21)-R3(3,41)+R2(2,15)+R2(1,49)-R1(3,33)+R0(18))*XX
      F(5,4,1,4)= -R7(9,1)+R6(5,1)-R5(9,4)-R5(9,11)+R4(5,4)+R4(5,22)
     * -R3(9,19)+R2(6,13)+(-R6(9,4)-R6(9,5)+R5(5,9)+R5(5,10)-R4(9,12)
     * -R4(9,13)+R3(5,7)+R3(5,8))*QX+(-R6(5,4)+R5(2,9)-R4(5,12)-R4(5,26)
     * +R3(2,7)+R3(2,35)-R2(6,29)+R1(2,13))*QZ+(-R5(9,13)+R4(5,24)
     * -R3(9,21)+R2(6,15))*XX+(-R5(5,12)-R5(5,13)+R4(2,23)+R4(2,24)
     * -R3(5,20)-R3(5,21)+R2(4,14)+R2(4,15))*XZ+(-R4(5,28)+R3(2,37)
     * -R2(6,31)+R1(2,15))*XXZ
      F(6,4,1,4)= -R7(13,1)+R6(8,1)-R5(13,4)-R5(6,11)+R4(8,4)+R4(3,22)
     * -R3(6,19)+R2(5,13)+(-R6(13,5)+R5(8,10)-R4(13,13)-R4(6,27)+R3(8,8)
     * +R3(3,36)-R2(3,30)+R1(3,14))*QX+(-R6(8,4)+R5(4,9)-R4(8,12)
     * -R4(3,26)+R3(4,7)+R3(1,35)-R2(5,29)+R1(1,13))*QZ+(-R5(8,13)
     * +R4(4,24)-R3(8,21)-R3(3,41)+R2(2,15)+R2(1,49)-R1(3,33)+R0(18))*XZ
      F(1,5,1,4)= -R7(6,1)+R6(3,1)-R5(6,4)-R5(6,11)*THREE+R4(3,4)
     * +R4(3,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(6,4)*TWO
     * -R6(6,5)+R5(3,9)*TWO+R5(3,10)-R4(6,12)*TWO-R4(6,13)-R4(6,26)*TWO
     * -R4(6,27)+R3(3,7)*TWO+R3(3,8)+R3(3,35)*TWO+R3(3,36)-R2(3,29)*TWO
     * -R2(3,30)+R1(3,13)*TWO+R1(3,14))*QX+(-R6(3,5)+R5(1,10)-R4(3,13)
     * -R4(3,27)*THREE+R3(1,8)+R3(1,36)*THREE-R2(5,30)*THREE
     * +R1(1,14)*THREE)*QZ+(-R5(6,12)-R5(6,13)*TWO+R4(3,23)+R4(3,24)*TWO
     * -R3(6,20)-R3(6,21)*TWO+R2(5,14)+R2(5,15)*TWO)*XX+(-R5(3,13)*TWO
     * -R5(3,14)+R4(1,24)*TWO+R4(1,25)-R3(3,21)*TWO-R3(3,22)
     * -R3(3,41)*TWO-R3(3,42)+R2(1,15)*TWO+R2(1,16)+R2(1,49)*TWO
     * +R2(1,50)-R1(3,33)*TWO-R1(3,34)+R0(18)*TWO+R0(19))*XZ+(-R4(6,28)
     * +R3(3,37)-R2(3,31)+R1(3,15))*XXX+(-R4(3,28)-R4(3,29)*TWO+R3(1,37)
     * +R3(1,38)*TWO-R2(5,31)-R2(5,32)*TWO+R1(1,15)+R1(1,16)*TWO)*XXZ+(
     * -R3(3,43)+R2(1,51)-R1(3,35)+R0(20))*XXXZ
      F(2,5,1,4)= -R7(13,1)+R6(8,1)-R5(13,4)-R5(6,11)+R4(8,4)+R4(3,22)
     * -R3(6,19)+R2(5,13)+(-R6(13,5)+R5(8,10)-R4(13,13)-R4(6,27)+R3(8,8)
     * +R3(3,36)-R2(3,30)+R1(3,14))*QX+(-R6(8,5)+R5(4,10)-R4(8,13)
     * -R4(3,27)+R3(4,8)+R3(1,36)-R2(5,30)+R1(1,14))*QZ+(-R5(8,14)
     * +R4(4,25)-R3(8,22)-R3(3,42)+R2(2,16)+R2(1,50)-R1(3,34)+R0(19))*XZ
      F(3,5,1,4)= -R7(15,1)+R6(10,1)-R5(15,4)-R5(6,11)*THREE+R4(10,4)
     * +R4(3,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(15,5)
     * +R5(10,10)-R4(15,13)-R4(6,27)*THREE+R3(10,8)+R3(3,36)*THREE
     * -R2(3,30)*THREE+R1(3,14)*THREE)*QX+(-R6(10,4)*TWO-R6(10,5)
     * +R5(6,9)*TWO+R5(6,10)-R4(10,12)*TWO-R4(10,13)-R4(3,26)*TWO
     * -R4(3,27)+R3(6,7)*TWO+R3(6,8)+R3(1,35)*TWO+R3(1,36)-R2(5,29)*TWO
     * -R2(5,30)+R1(1,13)*TWO+R1(1,14))*QZ+(-R5(10,13)*TWO-R5(10,14)
     * +R4(6,24)*TWO+R4(6,25)-R3(10,21)*TWO-R3(10,22)-R3(3,41)*TWO
     * -R3(3,42)+R2(3,15)*TWO+R2(3,16)+R2(1,49)*TWO+R2(1,50)
     * -R1(3,33)*TWO-R1(3,34)+R0(18)*TWO+R0(19))*XZ+(-R5(6,12)
     * -R5(6,13)*TWO+R4(3,23)+R4(3,24)*TWO-R3(6,20)-R3(6,21)*TWO
     * +R2(5,14)+R2(5,15)*TWO)*ZZ+(-R4(6,28)-R4(6,29)*TWO+R3(3,37)
     * +R3(3,38)*TWO-R2(3,31)-R2(3,32)*TWO+R1(3,15)+R1(3,16)*TWO)*XZZ+(
     * -R4(3,28)+R3(1,37)-R2(5,31)+R1(1,15))*ZZZ+(-R3(3,43)+R2(1,51)
     * -R1(3,35)+R0(20))*XZZZ
      F(4,5,1,4)= -R7(9,1)+R6(5,1)-R5(9,4)-R5(9,11)+R4(5,4)+R4(5,22)
     * -R3(9,19)+R2(6,13)+(-R6(9,4)-R6(9,5)+R5(5,9)+R5(5,10)-R4(9,12)
     * -R4(9,13)+R3(5,7)+R3(5,8))*QX+(-R6(5,5)+R5(2,10)-R4(5,13)
     * -R4(5,27)+R3(2,8)+R3(2,36)-R2(6,30)+R1(2,14))*QZ+(-R5(9,13)
     * +R4(5,24)-R3(9,21)+R2(6,15))*XX+(-R5(5,13)-R5(5,14)+R4(2,24)
     * +R4(2,25)-R3(5,21)-R3(5,22)+R2(4,15)+R2(4,16))*XZ+(-R4(5,29)
     * +R3(2,38)-R2(6,32)+R1(2,16))*XXZ
      F(5,5,1,4)= -R7(10,1)+R6(6,1)-R5(10,4)-R5(3,11)-R5(10,11)+R4(6,4)
     * +R4(1,22)+R4(6,22)-R3(3,19)-R3(10,19)-R3(3,39)+R2(1,13)+R2(3,13)
     * +R2(1,47)-R1(3,31)+R0(16)+(-R6(10,4)-R6(10,5)+R5(6,9)+R5(6,10)
     * -R4(10,12)-R4(10,13)-R4(3,26)-R4(3,27)+R3(6,7)+R3(6,8)+R3(1,35)
     * +R3(1,36)-R2(5,29)-R2(5,30)+R1(1,13)+R1(1,14))*QX+(-R6(6,4)
     * -R6(6,5)+R5(3,9)+R5(3,10)-R4(6,12)-R4(6,13)-R4(6,26)-R4(6,27)
     * +R3(3,7)+R3(3,8)+R3(3,35)+R3(3,36)-R2(3,29)-R2(3,30)+R1(3,13)
     * +R1(3,14))*QZ+(-R5(10,13)+R4(6,24)-R3(10,21)-R3(3,41)+R2(3,15)
     * +R2(1,49)-R1(3,33)+R0(18))*XX+(-R5(6,12)-R5(6,13)*TWO-R5(6,14)
     * +R4(3,23)+R4(3,24)*TWO+R4(3,25)-R3(6,20)-R3(6,21)*TWO-R3(6,22)
     * +R2(5,14)+R2(5,15)*TWO+R2(5,16))*XZ+(-R5(3,13)+R4(1,24)-R3(3,21)
     * -R3(3,41)+R2(1,15)+R2(1,49)-R1(3,33)+R0(18))*ZZ+(-R4(6,28)
     * -R4(6,29)+R3(3,37)+R3(3,38)-R2(3,31)-R2(3,32)+R1(3,15)+R1(3,16))
     * *XXZ+(-R4(3,28)-R4(3,29)+R3(1,37)+R3(1,38)-R2(5,31)-R2(5,32)
     * +R1(1,15)+R1(1,16))*XZZ+(-R3(3,43)+R2(1,51)-R1(3,35)+R0(20))*XXZZ
      F(6,5,1,4)= -R7(14,1)+R6(9,1)-R5(14,4)-R5(5,11)+R4(9,4)+R4(2,22)
     * -R3(5,19)+R2(4,13)+(-R6(14,5)+R5(9,10)-R4(14,13)-R4(5,27)+R3(9,8)
     * +R3(2,36)-R2(6,30)+R1(2,14))*QX+(-R6(9,4)-R6(9,5)+R5(5,9)
     * +R5(5,10)-R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QZ+(-R5(9,13)
     * -R5(9,14)+R4(5,24)+R4(5,25)-R3(9,21)-R3(9,22)+R2(6,15)+R2(6,16))
     * *XZ+(-R5(5,13)+R4(2,24)-R3(5,21)+R2(4,15))*ZZ+(-R4(5,29)+R3(2,38)
     * -R2(6,32)+R1(2,16))*XZZ
      F(1,6,1,4)= -R7(9,1)+R6(5,1)-R5(9,4)-R5(9,11)+R4(5,4)+R4(5,22)
     * -R3(9,19)+R2(6,13)+(-R6(9,4)*TWO+R5(5,9)*TWO-R4(9,12)*TWO
     * +R3(5,7)*TWO)*QX+(-R6(5,5)+R5(2,10)-R4(5,13)-R4(5,27)+R3(2,8)
     * +R3(2,36)-R2(6,30)+R1(2,14))*QZ+(-R5(9,12)+R4(5,23)-R3(9,20)
     * +R2(6,14))*XX+(-R5(5,13)*TWO+R4(2,24)*TWO-R3(5,21)*TWO
     * +R2(4,15)*TWO)*XZ+(-R4(5,28)+R3(2,37)-R2(6,31)+R1(2,15))*XXZ
      F(2,6,1,4)= -R7(18,1)+R6(12,1)-R5(18,4)-R5(9,11)*THREE+R4(12,4)
     * +R4(5,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(12,5)+R5(7,10)
     * -R4(12,13)-R4(5,27)*THREE+R3(7,8)+R3(2,36)*THREE-R2(6,30)*THREE
     * +R1(2,14)*THREE)*QZ
      F(3,6,1,4)= -R7(20,1)+R6(14,1)-R5(20,4)-R5(9,11)*THREE+R4(14,4)
     * +R4(5,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(14,4)*TWO
     * -R6(14,5)+R5(9,9)*TWO+R5(9,10)-R4(14,12)*TWO-R4(14,13)
     * -R4(5,26)*TWO-R4(5,27)+R3(9,7)*TWO+R3(9,8)+R3(2,35)*TWO+R3(2,36)
     * -R2(6,29)*TWO-R2(6,30)+R1(2,13)*TWO+R1(2,14))*QZ+(-R5(9,12)
     * -R5(9,13)*TWO+R4(5,23)+R4(5,24)*TWO-R3(9,20)-R3(9,21)*TWO
     * +R2(6,14)+R2(6,15)*TWO)*ZZ+(-R4(5,28)+R3(2,37)-R2(6,31)+R1(2,15))
     * *ZZZ
      F(4,6,1,4)= -R7(13,1)+R6(8,1)-R5(13,4)-R5(6,11)+R4(8,4)+R4(3,22)
     * -R3(6,19)+R2(5,13)+(-R6(13,4)+R5(8,9)-R4(13,12)-R4(6,26)+R3(8,7)
     * +R3(3,35)-R2(3,29)+R1(3,13))*QX+(-R6(8,5)+R5(4,10)-R4(8,13)
     * -R4(3,27)+R3(4,8)+R3(1,36)-R2(5,30)+R1(1,14))*QZ+(-R5(8,13)
     * +R4(4,24)-R3(8,21)-R3(3,41)+R2(2,15)+R2(1,49)-R1(3,33)+R0(18))*XZ
      F(5,6,1,4)= -R7(14,1)+R6(9,1)-R5(14,4)-R5(5,11)+R4(9,4)+R4(2,22)
     * -R3(5,19)+R2(4,13)+(-R6(14,4)+R5(9,9)-R4(14,12)-R4(5,26)+R3(9,7)
     * +R3(2,35)-R2(6,29)+R1(2,13))*QX+(-R6(9,4)-R6(9,5)+R5(5,9)
     * +R5(5,10)-R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QZ+(-R5(9,12)
     * -R5(9,13)+R4(5,23)+R4(5,24)-R3(9,20)-R3(9,21)+R2(6,14)+R2(6,15))
     * *XZ+(-R5(5,13)+R4(2,24)-R3(5,21)+R2(4,15))*ZZ+(-R4(5,28)+R3(2,37)
     * -R2(6,31)+R1(2,15))*XZZ
      F(6,6,1,4)= -R7(19,1)+R6(13,1)-R5(19,4)-R5(8,11)-R5(10,11)
     * +R4(13,4)+R4(4,22)+R4(6,22)-R3(8,19)-R3(10,19)-R3(3,39)+R2(2,13)
     * +R2(3,13)+R2(1,47)-R1(3,31)+R0(16)+(-R6(13,4)-R6(13,5)+R5(8,9)
     * +R5(8,10)-R4(13,12)-R4(13,13)-R4(6,26)-R4(6,27)+R3(8,7)+R3(8,8)
     * +R3(3,35)+R3(3,36)-R2(3,29)-R2(3,30)+R1(3,13)+R1(3,14))*QZ+(
     * -R5(8,13)+R4(4,24)-R3(8,21)-R3(3,41)+R2(2,15)+R2(1,49)-R1(3,33)
     * +R0(18))*ZZ
      F(1,1,2,4)= -R7(8,1)+R6(4,1)-R5(3,4)-R5(8,11)*SIX+R4(1,4)
     * +R4(4,22)*SIX-R3(3,19)*SIX-R3(8,39)*THREE+R2(1,13)*SIX
     * +R2(2,47)*THREE-R1(3,31)*THREE+R0(16)*THREE+(-R6(8,4)*TWO
     * -R6(8,5)*TWO+R5(4,9)*TWO+R5(4,10)*TWO-R4(3,12)*TWO-R4(3,13)*TWO
     * -R4(8,26)*SIX-R4(8,27)*SIX+R3(1,7)*TWO+R3(1,8)*TWO+R3(4,35)*SIX
     * +R3(4,36)*SIX-R2(5,29)*SIX-R2(5,30)*SIX+R1(1,13)*SIX+R1(1,14)*SIX
     * )*QX+(-R5(8,12)-R5(8,13)*FOUR-R5(8,14)+R4(4,23)+R4(4,24)*FOUR
     * +R4(4,25)-R3(3,20)-R3(3,21)*FOUR-R3(3,22)-R3(8,40)-R3(8,41)*FOUR
     * -R3(8,42)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)+R2(2,48)+R2(2,49)*FOUR
     * +R2(2,50)-R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(17)+R0(18)*FOUR
     * +R0(19))*XX+(-R4(8,28)*TWO-R4(8,29)*TWO+R3(4,37)*TWO+R3(4,38)*TWO
     * -R2(5,31)*TWO-R2(5,32)*TWO+R1(1,15)*TWO+R1(1,16)*TWO)*XXX+(
     * -R3(8,43)+R2(2,51)-R1(3,35)+R0(20))*XXXX
      F(2,1,2,4)= -R7(17,1)+R6(11,1)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,4)
     * +R4(4,22)+R4(11,22)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,13)+R2(2,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(17,5)*TWO+R5(11,10)*TWO
     * -R4(8,13)*TWO-R4(8,27)*TWO+R3(4,8)*TWO+R3(4,36)*TWO-R2(5,30)*TWO
     * +R1(1,14)*TWO)*QX+(-R5(17,14)+R4(11,25)-R3(8,22)-R3(8,42)
     * +R2(2,16)+R2(2,50)-R1(3,34)+R0(19))*XX
      F(3,1,2,4)= -R7(19,1)+R6(13,1)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,4)
     * +R4(4,22)+R4(13,22)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,13)+R2(3,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(19,5)*TWO+R5(13,10)*TWO
     * -R4(10,13)*TWO-R4(8,27)*TWO+R3(6,8)*TWO+R3(4,36)*TWO-R2(5,30)*TWO
     * +R1(1,14)*TWO)*QX+(-R6(13,4)*TWO+R5(8,9)*TWO-R4(6,12)*TWO
     * -R4(13,26)*TWO+R3(3,7)*TWO+R3(8,35)*TWO-R2(3,29)*TWO+R1(3,13)*TWO
     * )*QZ+(-R5(19,14)+R4(13,25)-R3(10,22)-R3(8,42)+R2(3,16)+R2(2,50)
     * -R1(3,34)+R0(19))*XX+(-R5(13,13)*FOUR+R4(8,24)*FOUR-R3(6,21)*FOUR
     * +R2(5,15)*FOUR)*XZ+(-R5(8,12)+R4(4,23)-R3(3,20)-R3(8,40)+R2(1,14)
     * +R2(2,48)-R1(3,32)+R0(17))*ZZ+(-R4(13,29)*TWO+R3(8,38)*TWO
     * -R2(3,32)*TWO+R1(3,16)*TWO)*XXZ+(-R4(8,28)*TWO+R3(4,37)*TWO
     * -R2(5,31)*TWO+R1(1,15)*TWO)*XZZ+(-R3(8,43)+R2(2,51)-R1(3,35)
     * +R0(20))*XXZZ
      F(4,1,2,4)= -R7(12,1)+R6(7,1)-R5(5,4)-R5(12,11)*THREE+R4(2,4)
     * +R4(7,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(12,4)
     * -R6(12,5)*TWO+R5(7,9)+R5(7,10)*TWO-R4(5,12)-R4(5,13)*TWO
     * -R4(12,26)-R4(12,27)*TWO+R3(2,7)+R3(2,8)*TWO+R3(7,35)
     * +R3(7,36)*TWO-R2(6,29)-R2(6,30)*TWO+R1(2,13)+R1(2,14)*TWO)*QX+(
     * -R5(12,13)*TWO-R5(12,14)+R4(7,24)*TWO+R4(7,25)-R3(5,21)*TWO
     * -R3(5,22)+R2(4,15)*TWO+R2(4,16))*XX+(-R4(12,29)+R3(7,38)-R2(6,32)
     * +R1(2,16))*XXX
      F(5,1,2,4)= -R7(13,1)+R6(8,1)-R5(6,4)-R5(13,11)*THREE+R4(3,4)
     * +R4(8,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(13,4)
     * -R6(13,5)*TWO+R5(8,9)+R5(8,10)*TWO-R4(6,12)-R4(6,13)*TWO
     * -R4(13,26)-R4(13,27)*TWO+R3(3,7)+R3(3,8)*TWO+R3(8,35)
     * +R3(8,36)*TWO-R2(3,29)-R2(3,30)*TWO+R1(3,13)+R1(3,14)*TWO)*QX+(
     * -R6(8,4)+R5(4,9)-R4(3,12)-R4(8,26)*THREE+R3(1,7)+R3(4,35)*THREE
     * -R2(5,29)*THREE+R1(1,13)*THREE)*QZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,24)*TWO+R4(8,25)-R3(6,21)*TWO-R3(6,22)+R2(5,15)*TWO
     * +R2(5,16))*XX+(-R5(8,12)-R5(8,13)*TWO+R4(4,23)+R4(4,24)*TWO
     * -R3(3,20)-R3(3,21)*TWO-R3(8,40)-R3(8,41)*TWO+R2(1,14)
     * +R2(1,15)*TWO+R2(2,48)+R2(2,49)*TWO-R1(3,32)-R1(3,33)*TWO+R0(17)
     * +R0(18)*TWO)*XZ+(-R4(13,29)+R3(8,38)-R2(3,32)+R1(3,16))*XXX+(
     * -R4(8,28)*TWO-R4(8,29)+R3(4,37)*TWO+R3(4,38)-R2(5,31)*TWO
     * -R2(5,32)+R1(1,15)*TWO+R1(1,16))*XXZ+(-R3(8,43)+R2(2,51)-R1(3,35)
     * +R0(20))*XXXZ
      F(6,1,2,4)= -R7(18,1)+R6(12,1)-R5(9,4)-R5(18,11)+R4(5,4)+R4(12,22)
     * -R3(9,19)+R2(6,13)+(-R6(18,5)*TWO+R5(12,10)*TWO-R4(9,13)*TWO
     * +R3(5,8)*TWO)*QX+(-R6(12,4)+R5(7,9)-R4(5,12)-R4(12,26)+R3(2,7)
     * +R3(7,35)-R2(6,29)+R1(2,13))*QZ+(-R5(18,14)+R4(12,25)-R3(9,22)
     * +R2(6,16))*XX+(-R5(12,13)*TWO+R4(7,24)*TWO-R3(5,21)*TWO
     * +R2(4,15)*TWO)*XZ+(-R4(12,29)+R3(7,38)-R2(6,32)+R1(2,16))*XXZ
      F(1,2,2,4)= -R7(17,1)+R6(11,1)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,4)
     * +R4(4,22)+R4(11,22)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,13)+R2(2,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(17,4)*TWO+R5(11,9)*TWO
     * -R4(8,12)*TWO-R4(8,26)*TWO+R3(4,7)*TWO+R3(4,35)*TWO-R2(5,29)*TWO
     * +R1(1,13)*TWO)*QX+(-R5(17,12)+R4(11,23)-R3(8,20)-R3(8,40)
     * +R2(2,14)+R2(2,48)-R1(3,32)+R0(17))*XX
      F(2,2,2,4)= -R7(30,1)+R6(22,1)-R5(17,4)-R5(17,11)*SIX+R4(11,4)
     * +R4(11,22)*SIX-R3(8,19)*SIX-R3(8,39)*THREE+R2(2,13)*SIX
     * +R2(2,47)*THREE-R1(3,31)*THREE+R0(16)*THREE
      F(3,2,2,4)= -R7(32,1)+R6(24,1)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,4)+R4(11,22)+R4(13,22)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,13)+R2(3,13)+R2(2,47)-R1(3,31)+R0(16)+(-R6(24,4)*TWO
     * +R5(17,9)*TWO-R4(13,12)*TWO-R4(13,26)*TWO+R3(8,7)*TWO
     * +R3(8,35)*TWO-R2(3,29)*TWO+R1(3,13)*TWO)*QZ+(-R5(17,12)+R4(11,23)
     * -R3(8,20)-R3(8,40)+R2(2,14)+R2(2,48)-R1(3,32)+R0(17))*ZZ
      F(4,2,2,4)= -R7(23,1)+R6(16,1)-R5(12,4)-R5(12,11)*THREE+R4(7,4)
     * +R4(7,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(23,4)+R5(16,9)
     * -R4(12,12)-R4(12,26)*THREE+R3(7,7)+R3(7,35)*THREE-R2(6,29)*THREE
     * +R1(2,13)*THREE)*QX
      F(5,2,2,4)= -R7(24,1)+R6(17,1)-R5(13,4)-R5(13,11)+R4(8,4)+R4(8,22)
     * -R3(6,19)+R2(5,13)+(-R6(24,4)+R5(17,9)-R4(13,12)-R4(13,26)
     * +R3(8,7)+R3(8,35)-R2(3,29)+R1(3,13))*QX+(-R6(17,4)+R5(11,9)
     * -R4(8,12)-R4(8,26)+R3(4,7)+R3(4,35)-R2(5,29)+R1(1,13))*QZ+(
     * -R5(17,12)+R4(11,23)-R3(8,20)-R3(8,40)+R2(2,14)+R2(2,48)-R1(3,32)
     * +R0(17))*XZ
      F(6,2,2,4)= -R7(31,1)+R6(23,1)-R5(18,4)-R5(18,11)*THREE+R4(12,4)
     * +R4(12,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(23,4)
     * +R5(16,9)-R4(12,12)-R4(12,26)*THREE+R3(7,7)+R3(7,35)*THREE
     * -R2(6,29)*THREE+R1(2,13)*THREE)*QZ
      F(1,3,2,4)= -R7(19,1)+R6(13,1)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,4)
     * +R4(4,22)+R4(13,22)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,13)+R2(3,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(19,4)*TWO+R5(13,9)*TWO
     * -R4(10,12)*TWO-R4(8,26)*TWO+R3(6,7)*TWO+R3(4,35)*TWO-R2(5,29)*TWO
     * +R1(1,13)*TWO)*QX+(-R6(13,5)*TWO+R5(8,10)*TWO-R4(6,13)*TWO
     * -R4(13,27)*TWO+R3(3,8)*TWO+R3(8,36)*TWO-R2(3,30)*TWO+R1(3,14)*TWO
     * )*QZ+(-R5(19,12)+R4(13,23)-R3(10,20)-R3(8,40)+R2(3,14)+R2(2,48)
     * -R1(3,32)+R0(17))*XX+(-R5(13,13)*FOUR+R4(8,24)*FOUR-R3(6,21)*FOUR
     * +R2(5,15)*FOUR)*XZ+(-R5(8,14)+R4(4,25)-R3(3,22)-R3(8,42)+R2(1,16)
     * +R2(2,50)-R1(3,34)+R0(19))*ZZ+(-R4(13,28)*TWO+R3(8,37)*TWO
     * -R2(3,31)*TWO+R1(3,15)*TWO)*XXZ+(-R4(8,29)*TWO+R3(4,38)*TWO
     * -R2(5,32)*TWO+R1(1,16)*TWO)*XZZ+(-R3(8,43)+R2(2,51)-R1(3,35)
     * +R0(20))*XXZZ
      F(2,3,2,4)= -R7(32,1)+R6(24,1)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,4)+R4(11,22)+R4(13,22)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,13)+R2(3,13)+R2(2,47)-R1(3,31)+R0(16)+(-R6(24,5)*TWO
     * +R5(17,10)*TWO-R4(13,13)*TWO-R4(13,27)*TWO+R3(8,8)*TWO
     * +R3(8,36)*TWO-R2(3,30)*TWO+R1(3,14)*TWO)*QZ+(-R5(17,14)+R4(11,25)
     * -R3(8,22)-R3(8,42)+R2(2,16)+R2(2,50)-R1(3,34)+R0(19))*ZZ
      F(3,3,2,4)= -R7(34,1)+R6(26,1)-R5(21,4)-R5(19,11)*SIX+R4(15,4)
     * +R4(13,22)*SIX-R3(10,19)*SIX-R3(8,39)*THREE+R2(3,13)*SIX
     * +R2(2,47)*THREE-R1(3,31)*THREE+R0(16)*THREE+(-R6(26,4)*TWO
     * -R6(26,5)*TWO+R5(19,9)*TWO+R5(19,10)*TWO-R4(15,12)*TWO
     * -R4(15,13)*TWO-R4(13,26)*SIX-R4(13,27)*SIX+R3(10,7)*TWO
     * +R3(10,8)*TWO+R3(8,35)*SIX+R3(8,36)*SIX-R2(3,29)*SIX-R2(3,30)*SIX
     * +R1(3,13)*SIX+R1(3,14)*SIX)*QZ+(-R5(19,12)-R5(19,13)*FOUR
     * -R5(19,14)+R4(13,23)+R4(13,24)*FOUR+R4(13,25)-R3(10,20)
     * -R3(10,21)*FOUR-R3(10,22)-R3(8,40)-R3(8,41)*FOUR-R3(8,42)
     * +R2(3,14)+R2(3,15)*FOUR+R2(3,16)+R2(2,48)+R2(2,49)*FOUR+R2(2,50)
     * -R1(3,32)-R1(3,33)*FOUR-R1(3,34)+R0(17)+R0(18)*FOUR+R0(19))*ZZ+(
     * -R4(13,28)*TWO-R4(13,29)*TWO+R3(8,37)*TWO+R3(8,38)*TWO
     * -R2(3,31)*TWO-R2(3,32)*TWO+R1(3,15)*TWO+R1(3,16)*TWO)*ZZZ+(
     * -R3(8,43)+R2(2,51)-R1(3,35)+R0(20))*ZZZZ
      F(4,3,2,4)= -R7(25,1)+R6(18,1)-R5(14,4)-R5(12,11)+R4(9,4)+R4(7,22)
     * -R3(5,19)+R2(4,13)+(-R6(25,4)+R5(18,9)-R4(14,12)-R4(12,26)
     * +R3(9,7)+R3(7,35)-R2(6,29)+R1(2,13))*QX+(-R6(18,5)*TWO
     * +R5(12,10)*TWO-R4(9,13)*TWO+R3(5,8)*TWO)*QZ+(-R5(18,13)*TWO
     * +R4(12,24)*TWO-R3(9,21)*TWO+R2(6,15)*TWO)*XZ+(-R5(12,14)+R4(7,25)
     * -R3(5,22)+R2(4,16))*ZZ+(-R4(12,29)+R3(7,38)-R2(6,32)+R1(2,16))
     * *XZZ
      F(5,3,2,4)= -R7(26,1)+R6(19,1)-R5(15,4)-R5(13,11)*THREE+R4(10,4)
     * +R4(8,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(26,4)+R5(19,9)
     * -R4(15,12)-R4(13,26)*THREE+R3(10,7)+R3(8,35)*THREE-R2(3,29)*THREE
     * +R1(3,13)*THREE)*QX+(-R6(19,4)-R6(19,5)*TWO+R5(13,9)
     * +R5(13,10)*TWO-R4(10,12)-R4(10,13)*TWO-R4(8,26)-R4(8,27)*TWO
     * +R3(6,7)+R3(6,8)*TWO+R3(4,35)+R3(4,36)*TWO-R2(5,29)-R2(5,30)*TWO
     * +R1(1,13)+R1(1,14)*TWO)*QZ+(-R5(19,12)-R5(19,13)*TWO+R4(13,23)
     * +R4(13,24)*TWO-R3(10,20)-R3(10,21)*TWO-R3(8,40)-R3(8,41)*TWO
     * +R2(3,14)+R2(3,15)*TWO+R2(2,48)+R2(2,49)*TWO-R1(3,32)
     * -R1(3,33)*TWO+R0(17)+R0(18)*TWO)*XZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,24)*TWO+R4(8,25)-R3(6,21)*TWO-R3(6,22)+R2(5,15)*TWO
     * +R2(5,16))*ZZ+(-R4(13,28)*TWO-R4(13,29)+R3(8,37)*TWO+R3(8,38)
     * -R2(3,31)*TWO-R2(3,32)+R1(3,15)*TWO+R1(3,16))*XZZ+(-R4(8,29)
     * +R3(4,38)-R2(5,32)+R1(1,16))*ZZZ+(-R3(8,43)+R2(2,51)-R1(3,35)
     * +R0(20))*XZZZ
      F(6,3,2,4)= -R7(33,1)+R6(25,1)-R5(20,4)-R5(18,11)*THREE+R4(14,4)
     * +R4(12,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(25,4)
     * -R6(25,5)*TWO+R5(18,9)+R5(18,10)*TWO-R4(14,12)-R4(14,13)*TWO
     * -R4(12,26)-R4(12,27)*TWO+R3(9,7)+R3(9,8)*TWO+R3(7,35)
     * +R3(7,36)*TWO-R2(6,29)-R2(6,30)*TWO+R1(2,13)+R1(2,14)*TWO)*QZ+(
     * -R5(18,13)*TWO-R5(18,14)+R4(12,24)*TWO+R4(12,25)-R3(9,21)*TWO
     * -R3(9,22)+R2(6,15)*TWO+R2(6,16))*ZZ+(-R4(12,29)+R3(7,38)-R2(6,32)
     * +R1(2,16))*ZZZ
      F(1,4,2,4)= -R7(12,1)+R6(7,1)-R5(5,4)-R5(12,11)*THREE+R4(2,4)
     * +R4(7,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(12,4)*TWO
     * -R6(12,5)+R5(7,9)*TWO+R5(7,10)-R4(5,12)*TWO-R4(5,13)
     * -R4(12,26)*TWO-R4(12,27)+R3(2,7)*TWO+R3(2,8)+R3(7,35)*TWO
     * +R3(7,36)-R2(6,29)*TWO-R2(6,30)+R1(2,13)*TWO+R1(2,14))*QX+(
     * -R5(12,12)-R5(12,13)*TWO+R4(7,23)+R4(7,24)*TWO-R3(5,20)
     * -R3(5,21)*TWO+R2(4,14)+R2(4,15)*TWO)*XX+(-R4(12,28)+R3(7,37)
     * -R2(6,31)+R1(2,15))*XXX
      F(2,4,2,4)= -R7(23,1)+R6(16,1)-R5(12,4)-R5(12,11)*THREE+R4(7,4)
     * +R4(7,22)*THREE-R3(5,19)*THREE+R2(4,13)*THREE+(-R6(23,5)
     * +R5(16,10)-R4(12,13)-R4(12,27)*THREE+R3(7,8)+R3(7,36)*THREE
     * -R2(6,30)*THREE+R1(2,14)*THREE)*QX
      F(3,4,2,4)= -R7(25,1)+R6(18,1)-R5(14,4)-R5(12,11)+R4(9,4)+R4(7,22)
     * -R3(5,19)+R2(4,13)+(-R6(25,5)+R5(18,10)-R4(14,13)-R4(12,27)
     * +R3(9,8)+R3(7,36)-R2(6,30)+R1(2,14))*QX+(-R6(18,4)*TWO
     * +R5(12,9)*TWO-R4(9,12)*TWO+R3(5,7)*TWO)*QZ+(-R5(18,13)*TWO
     * +R4(12,24)*TWO-R3(9,21)*TWO+R2(6,15)*TWO)*XZ+(-R5(12,12)+R4(7,23)
     * -R3(5,20)+R2(4,14))*ZZ+(-R4(12,28)+R3(7,37)-R2(6,31)+R1(2,15))
     * *XZZ
      F(4,4,2,4)= -R7(17,1)+R6(11,1)-R5(8,4)-R5(8,11)-R5(17,11)+R4(4,4)
     * +R4(4,22)+R4(11,22)-R3(3,19)-R3(8,19)-R3(8,39)+R2(1,13)+R2(2,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(17,4)-R6(17,5)+R5(11,9)+R5(11,10)
     * -R4(8,12)-R4(8,13)-R4(8,26)-R4(8,27)+R3(4,7)+R3(4,8)+R3(4,35)
     * +R3(4,36)-R2(5,29)-R2(5,30)+R1(1,13)+R1(1,14))*QX+(-R5(17,13)
     * +R4(11,24)-R3(8,21)-R3(8,41)+R2(2,15)+R2(2,49)-R1(3,33)+R0(18))
     * *XX
      F(5,4,2,4)= -R7(18,1)+R6(12,1)-R5(9,4)-R5(18,11)+R4(5,4)+R4(12,22)
     * -R3(9,19)+R2(6,13)+(-R6(18,4)-R6(18,5)+R5(12,9)+R5(12,10)
     * -R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QX+(-R6(12,4)+R5(7,9)
     * -R4(5,12)-R4(12,26)+R3(2,7)+R3(7,35)-R2(6,29)+R1(2,13))*QZ+(
     * -R5(18,13)+R4(12,24)-R3(9,21)+R2(6,15))*XX+(-R5(12,12)-R5(12,13)
     * +R4(7,23)+R4(7,24)-R3(5,20)-R3(5,21)+R2(4,14)+R2(4,15))*XZ+(
     * -R4(12,28)+R3(7,37)-R2(6,31)+R1(2,15))*XXZ
      F(6,4,2,4)= -R7(24,1)+R6(17,1)-R5(13,4)-R5(13,11)+R4(8,4)+R4(8,22)
     * -R3(6,19)+R2(5,13)+(-R6(24,5)+R5(17,10)-R4(13,13)-R4(13,27)
     * +R3(8,8)+R3(8,36)-R2(3,30)+R1(3,14))*QX+(-R6(17,4)+R5(11,9)
     * -R4(8,12)-R4(8,26)+R3(4,7)+R3(4,35)-R2(5,29)+R1(1,13))*QZ+(
     * -R5(17,13)+R4(11,24)-R3(8,21)-R3(8,41)+R2(2,15)+R2(2,49)-R1(3,33)
     * +R0(18))*XZ
      F(1,5,2,4)= -R7(13,1)+R6(8,1)-R5(6,4)-R5(13,11)*THREE+R4(3,4)
     * +R4(8,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(13,4)*TWO
     * -R6(13,5)+R5(8,9)*TWO+R5(8,10)-R4(6,12)*TWO-R4(6,13)
     * -R4(13,26)*TWO-R4(13,27)+R3(3,7)*TWO+R3(3,8)+R3(8,35)*TWO
     * +R3(8,36)-R2(3,29)*TWO-R2(3,30)+R1(3,13)*TWO+R1(3,14))*QX+(
     * -R6(8,5)+R5(4,10)-R4(3,13)-R4(8,27)*THREE+R3(1,8)+R3(4,36)*THREE
     * -R2(5,30)*THREE+R1(1,14)*THREE)*QZ+(-R5(13,12)-R5(13,13)*TWO
     * +R4(8,23)+R4(8,24)*TWO-R3(6,20)-R3(6,21)*TWO+R2(5,14)
     * +R2(5,15)*TWO)*XX+(-R5(8,13)*TWO-R5(8,14)+R4(4,24)*TWO+R4(4,25)
     * -R3(3,21)*TWO-R3(3,22)-R3(8,41)*TWO-R3(8,42)+R2(1,15)*TWO
     * +R2(1,16)+R2(2,49)*TWO+R2(2,50)-R1(3,33)*TWO-R1(3,34)+R0(18)*TWO
     * +R0(19))*XZ+(-R4(13,28)+R3(8,37)-R2(3,31)+R1(3,15))*XXX+(
     * -R4(8,28)-R4(8,29)*TWO+R3(4,37)+R3(4,38)*TWO-R2(5,31)
     * -R2(5,32)*TWO+R1(1,15)+R1(1,16)*TWO)*XXZ+(-R3(8,43)+R2(2,51)
     * -R1(3,35)+R0(20))*XXXZ
      F(2,5,2,4)= -R7(24,1)+R6(17,1)-R5(13,4)-R5(13,11)+R4(8,4)+R4(8,22)
     * -R3(6,19)+R2(5,13)+(-R6(24,5)+R5(17,10)-R4(13,13)-R4(13,27)
     * +R3(8,8)+R3(8,36)-R2(3,30)+R1(3,14))*QX+(-R6(17,5)+R5(11,10)
     * -R4(8,13)-R4(8,27)+R3(4,8)+R3(4,36)-R2(5,30)+R1(1,14))*QZ+(
     * -R5(17,14)+R4(11,25)-R3(8,22)-R3(8,42)+R2(2,16)+R2(2,50)-R1(3,34)
     * +R0(19))*XZ
      F(3,5,2,4)= -R7(26,1)+R6(19,1)-R5(15,4)-R5(13,11)*THREE+R4(10,4)
     * +R4(8,22)*THREE-R3(6,19)*THREE+R2(5,13)*THREE+(-R6(26,5)
     * +R5(19,10)-R4(15,13)-R4(13,27)*THREE+R3(10,8)+R3(8,36)*THREE
     * -R2(3,30)*THREE+R1(3,14)*THREE)*QX+(-R6(19,4)*TWO-R6(19,5)
     * +R5(13,9)*TWO+R5(13,10)-R4(10,12)*TWO-R4(10,13)-R4(8,26)*TWO
     * -R4(8,27)+R3(6,7)*TWO+R3(6,8)+R3(4,35)*TWO+R3(4,36)-R2(5,29)*TWO
     * -R2(5,30)+R1(1,13)*TWO+R1(1,14))*QZ+(-R5(19,13)*TWO-R5(19,14)
     * +R4(13,24)*TWO+R4(13,25)-R3(10,21)*TWO-R3(10,22)-R3(8,41)*TWO
     * -R3(8,42)+R2(3,15)*TWO+R2(3,16)+R2(2,49)*TWO+R2(2,50)
     * -R1(3,33)*TWO-R1(3,34)+R0(18)*TWO+R0(19))*XZ+(-R5(13,12)
     * -R5(13,13)*TWO+R4(8,23)+R4(8,24)*TWO-R3(6,20)-R3(6,21)*TWO
     * +R2(5,14)+R2(5,15)*TWO)*ZZ+(-R4(13,28)-R4(13,29)*TWO+R3(8,37)
     * +R3(8,38)*TWO-R2(3,31)-R2(3,32)*TWO+R1(3,15)+R1(3,16)*TWO)*XZZ+(
     * -R4(8,28)+R3(4,37)-R2(5,31)+R1(1,15))*ZZZ+(-R3(8,43)+R2(2,51)
     * -R1(3,35)+R0(20))*XZZZ
      F(4,5,2,4)= -R7(18,1)+R6(12,1)-R5(9,4)-R5(18,11)+R4(5,4)+R4(12,22)
     * -R3(9,19)+R2(6,13)+(-R6(18,4)-R6(18,5)+R5(12,9)+R5(12,10)
     * -R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QX+(-R6(12,5)+R5(7,10)
     * -R4(5,13)-R4(12,27)+R3(2,8)+R3(7,36)-R2(6,30)+R1(2,14))*QZ+(
     * -R5(18,13)+R4(12,24)-R3(9,21)+R2(6,15))*XX+(-R5(12,13)-R5(12,14)
     * +R4(7,24)+R4(7,25)-R3(5,21)-R3(5,22)+R2(4,15)+R2(4,16))*XZ+(
     * -R4(12,29)+R3(7,38)-R2(6,32)+R1(2,16))*XXZ
      F(5,5,2,4)= -R7(19,1)+R6(13,1)-R5(10,4)-R5(8,11)-R5(19,11)+R4(6,4)
     * +R4(4,22)+R4(13,22)-R3(3,19)-R3(10,19)-R3(8,39)+R2(1,13)+R2(3,13)
     * +R2(2,47)-R1(3,31)+R0(16)+(-R6(19,4)-R6(19,5)+R5(13,9)+R5(13,10)
     * -R4(10,12)-R4(10,13)-R4(8,26)-R4(8,27)+R3(6,7)+R3(6,8)+R3(4,35)
     * +R3(4,36)-R2(5,29)-R2(5,30)+R1(1,13)+R1(1,14))*QX+(-R6(13,4)
     * -R6(13,5)+R5(8,9)+R5(8,10)-R4(6,12)-R4(6,13)-R4(13,26)-R4(13,27)
     * +R3(3,7)+R3(3,8)+R3(8,35)+R3(8,36)-R2(3,29)-R2(3,30)+R1(3,13)
     * +R1(3,14))*QZ+(-R5(19,13)+R4(13,24)-R3(10,21)-R3(8,41)+R2(3,15)
     * +R2(2,49)-R1(3,33)+R0(18))*XX+(-R5(13,12)-R5(13,13)*TWO-R5(13,14)
     * +R4(8,23)+R4(8,24)*TWO+R4(8,25)-R3(6,20)-R3(6,21)*TWO-R3(6,22)
     * +R2(5,14)+R2(5,15)*TWO+R2(5,16))*XZ+(-R5(8,13)+R4(4,24)-R3(3,21)
     * -R3(8,41)+R2(1,15)+R2(2,49)-R1(3,33)+R0(18))*ZZ+(-R4(13,28)
     * -R4(13,29)+R3(8,37)+R3(8,38)-R2(3,31)-R2(3,32)+R1(3,15)+R1(3,16))
     * *XXZ+(-R4(8,28)-R4(8,29)+R3(4,37)+R3(4,38)-R2(5,31)-R2(5,32)
     * +R1(1,15)+R1(1,16))*XZZ+(-R3(8,43)+R2(2,51)-R1(3,35)+R0(20))*XXZZ
      F(6,5,2,4)= -R7(25,1)+R6(18,1)-R5(14,4)-R5(12,11)+R4(9,4)+R4(7,22)
     * -R3(5,19)+R2(4,13)+(-R6(25,5)+R5(18,10)-R4(14,13)-R4(12,27)
     * +R3(9,8)+R3(7,36)-R2(6,30)+R1(2,14))*QX+(-R6(18,4)-R6(18,5)
     * +R5(12,9)+R5(12,10)-R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QZ+(
     * -R5(18,13)-R5(18,14)+R4(12,24)+R4(12,25)-R3(9,21)-R3(9,22)
     * +R2(6,15)+R2(6,16))*XZ+(-R5(12,13)+R4(7,24)-R3(5,21)+R2(4,15))*ZZ
     * +(-R4(12,29)+R3(7,38)-R2(6,32)+R1(2,16))*XZZ
      F(1,6,2,4)= -R7(18,1)+R6(12,1)-R5(9,4)-R5(18,11)+R4(5,4)+R4(12,22)
     * -R3(9,19)+R2(6,13)+(-R6(18,4)*TWO+R5(12,9)*TWO-R4(9,12)*TWO
     * +R3(5,7)*TWO)*QX+(-R6(12,5)+R5(7,10)-R4(5,13)-R4(12,27)+R3(2,8)
     * +R3(7,36)-R2(6,30)+R1(2,14))*QZ+(-R5(18,12)+R4(12,23)-R3(9,20)
     * +R2(6,14))*XX+(-R5(12,13)*TWO+R4(7,24)*TWO-R3(5,21)*TWO
     * +R2(4,15)*TWO)*XZ+(-R4(12,28)+R3(7,37)-R2(6,31)+R1(2,15))*XXZ
      F(2,6,2,4)= -R7(31,1)+R6(23,1)-R5(18,4)-R5(18,11)*THREE+R4(12,4)
     * +R4(12,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(23,5)
     * +R5(16,10)-R4(12,13)-R4(12,27)*THREE+R3(7,8)+R3(7,36)*THREE
     * -R2(6,30)*THREE+R1(2,14)*THREE)*QZ
      F(3,6,2,4)= -R7(33,1)+R6(25,1)-R5(20,4)-R5(18,11)*THREE+R4(14,4)
     * +R4(12,22)*THREE-R3(9,19)*THREE+R2(6,13)*THREE+(-R6(25,4)*TWO
     * -R6(25,5)+R5(18,9)*TWO+R5(18,10)-R4(14,12)*TWO-R4(14,13)
     * -R4(12,26)*TWO-R4(12,27)+R3(9,7)*TWO+R3(9,8)+R3(7,35)*TWO
     * +R3(7,36)-R2(6,29)*TWO-R2(6,30)+R1(2,13)*TWO+R1(2,14))*QZ+(
     * -R5(18,12)-R5(18,13)*TWO+R4(12,23)+R4(12,24)*TWO-R3(9,20)
     * -R3(9,21)*TWO+R2(6,14)+R2(6,15)*TWO)*ZZ+(-R4(12,28)+R3(7,37)
     * -R2(6,31)+R1(2,15))*ZZZ
      F(4,6,2,4)= -R7(24,1)+R6(17,1)-R5(13,4)-R5(13,11)+R4(8,4)+R4(8,22)
     * -R3(6,19)+R2(5,13)+(-R6(24,4)+R5(17,9)-R4(13,12)-R4(13,26)
     * +R3(8,7)+R3(8,35)-R2(3,29)+R1(3,13))*QX+(-R6(17,5)+R5(11,10)
     * -R4(8,13)-R4(8,27)+R3(4,8)+R3(4,36)-R2(5,30)+R1(1,14))*QZ+(
     * -R5(17,13)+R4(11,24)-R3(8,21)-R3(8,41)+R2(2,15)+R2(2,49)-R1(3,33)
     * +R0(18))*XZ
      F(5,6,2,4)= -R7(25,1)+R6(18,1)-R5(14,4)-R5(12,11)+R4(9,4)+R4(7,22)
     * -R3(5,19)+R2(4,13)+(-R6(25,4)+R5(18,9)-R4(14,12)-R4(12,26)
     * +R3(9,7)+R3(7,35)-R2(6,29)+R1(2,13))*QX+(-R6(18,4)-R6(18,5)
     * +R5(12,9)+R5(12,10)-R4(9,12)-R4(9,13)+R3(5,7)+R3(5,8))*QZ+(
     * -R5(18,12)-R5(18,13)+R4(12,23)+R4(12,24)-R3(9,20)-R3(9,21)
     * +R2(6,14)+R2(6,15))*XZ+(-R5(12,13)+R4(7,24)-R3(5,21)+R2(4,15))*ZZ
     * +(-R4(12,28)+R3(7,37)-R2(6,31)+R1(2,15))*XZZ
      F(6,6,2,4)= -R7(32,1)+R6(24,1)-R5(19,4)-R5(17,11)-R5(19,11)
     * +R4(13,4)+R4(11,22)+R4(13,22)-R3(8,19)-R3(10,19)-R3(8,39)
     * +R2(2,13)+R2(3,13)+R2(2,47)-R1(3,31)+R0(16)+(-R6(24,4)-R6(24,5)
     * +R5(17,9)+R5(17,10)-R4(13,12)-R4(13,13)-R4(13,26)-R4(13,27)
     * +R3(8,7)+R3(8,8)+R3(8,35)+R3(8,36)-R2(3,29)-R2(3,30)+R1(3,13)
     * +R1(3,14))*QZ+(-R5(17,13)+R4(11,24)-R3(8,21)-R3(8,41)+R2(2,15)
     * +R2(2,49)-R1(3,33)+R0(18))*ZZ
      F(1,1,3,4)= -R7(10,1)+R6(6,1)+R6(6,3)*TWO-R5(3,1)*TWO-R5(3,3)
     * -R5(3,4)*THREE-R5(10,11)*SIX+R4(1,3)+R4(1,4)+R4(1,5)*TWO
     * +R4(6,18)*TWELV+R4(6,22)*SIX-R3(3,15)*SIX-R3(3,19)*P18
     * -R3(3,23)*TWELV-R3(10,39)*THREE+R2(1,9)*SIX+R2(1,13)*SIX
     * +R2(1,17)*TWELV+R2(3,42)*SIX+R2(3,47)*THREE-R1(3,26)*THREE
     * -R1(3,31)*NINE-R1(3,36)*SIX+R0(11)*THREE+R0(16)*THREE+R0(21)*SIX
     * +(-R6(10,4)*TWO-R6(10,5)*TWO+R5(6,7)*FOUR+R5(6,8)*FOUR
     * +R5(6,9)*TWO+R5(6,10)*TWO-R4(3,6)*FOUR-R4(3,7)*FOUR-R4(3,10)*TWO
     * -R4(3,11)*TWO-R4(3,12)*SIX-R4(3,13)*SIX-R4(10,26)*SIX
     * -R4(10,27)*SIX+R3(1,5)*TWO+R3(1,6)*TWO+R3(1,7)*TWO+R3(1,8)*TWO
     * +R3(1,9)*FOUR+R3(1,10)*FOUR+R3(6,31)*TWELV+R3(6,32)*TWELV
     * +R3(6,35)*SIX+R3(6,36)*SIX-R2(5,25)*SIX-R2(5,26)*SIX-R2(5,29)*P18
     * -R2(5,30)*P18-R2(5,33)*TWELV-R2(5,34)*TWELV+R1(1,9)*SIX
     * +R1(1,10)*SIX+R1(1,13)*SIX+R1(1,14)*SIX+R1(1,17)*TWELV
     * +R1(1,18)*TWELV)*QX
       F(1,1,3,4)= F(1,1,3,4)
     * +(-R5(10,12)-R5(10,13)*FOUR-R5(10,14)
     * +R4(6,19)*TWO+R4(6,20)*EIGHT+R4(6,21)*TWO+R4(6,23)+R4(6,24)*FOUR
     * +R4(6,25)-R3(3,16)-R3(3,17)*FOUR-R3(3,18)-R3(3,20)*THREE
     * -R3(3,21)*TWELV-R3(3,22)*THREE-R3(3,24)*TWO-R3(3,25)*EIGHT
     * -R3(3,26)*TWO-R3(10,40)-R3(10,41)*FOUR-R3(10,42)+R2(1,10)
     * +R2(1,11)*FOUR+R2(1,12)+R2(1,14)+R2(1,15)*FOUR+R2(1,16)
     * +R2(1,18)*TWO+R2(1,19)*EIGHT+R2(1,20)*TWO+R2(3,43)*TWO
     * +R2(3,44)*EIGHT+R2(3,45)*TWO+R2(3,48)+R2(3,49)*FOUR+R2(3,50)
     * -R1(3,27)-R1(3,28)*FOUR-R1(3,29)-R1(3,32)*THREE-R1(3,33)*TWELV
     * -R1(3,34)*THREE-R1(3,37)*TWO-R1(3,38)*EIGHT-R1(3,39)*TWO+R0(12)
     * +R0(13)*FOUR+R0(14)+R0(17)+R0(18)*FOUR+R0(19)+R0(22)*TWO
     * +R0(23)*EIGHT+R0(24)*TWO)*XX+(-R4(10,28)*TWO-R4(10,29)*TWO
     * +R3(6,33)*FOUR+R3(6,34)*FOUR+R3(6,37)*TWO+R3(6,38)*TWO
     * -R2(5,27)*TWO-R2(5,28)*TWO-R2(5,31)*SIX-R2(5,32)*SIX
     * -R2(5,35)*FOUR-R2(5,36)*FOUR+R1(1,11)*TWO+R1(1,12)*TWO
     * +R1(1,15)*TWO+R1(1,16)*TWO+R1(1,19)*FOUR+R1(1,20)*FOUR)*XXX+(
     * -R3(10,43)+R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE
     * -R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)*XXXX
      F(2,1,3,4)= -R7(19,1)+R6(13,1)+R6(13,3)*TWO-R5(8,1)*TWO-R5(8,3)
     * -R5(8,4)*THREE-R5(10,11)-R5(19,11)+R4(4,3)+R4(4,4)+R4(4,5)*TWO
     * +R4(6,18)*TWO+R4(13,18)*TWO+R4(6,22)+R4(13,22)-R3(3,15)-R3(8,15)
     * -R3(3,19)*THREE-R3(8,19)*THREE-R3(3,23)*TWO-R3(8,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(2,9)+R2(1,13)+R2(2,13)+R2(1,17)*TWO
     * +R2(2,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(19,5)*TWO
     * +R5(13,8)*FOUR+R5(13,10)*TWO-R4(8,7)*FOUR-R4(8,11)*TWO
     * -R4(8,13)*SIX-R4(10,27)*TWO+R3(4,6)*TWO+R3(4,8)*TWO+R3(4,10)*FOUR
     * +R3(6,32)*FOUR+R3(6,36)*TWO-R2(5,26)*TWO-R2(5,30)*SIX
     * -R2(5,34)*FOUR+R1(1,10)*TWO+R1(1,14)*TWO+R1(1,18)*FOUR)*QX+(
     * -R5(19,14)+R4(13,21)*TWO+R4(13,25)-R3(8,18)-R3(8,22)*THREE
     * -R3(8,26)*TWO-R3(10,42)+R2(2,12)+R2(2,16)+R2(2,20)*TWO
     * +R2(3,45)*TWO+R2(3,50)-R1(3,29)-R1(3,34)*THREE-R1(3,39)*TWO
     * +R0(14)+R0(19)+R0(24)*TWO)*XX
      F(3,1,3,4)= -R7(21,1)+R6(15,1)+R6(15,3)*TWO-R5(10,1)*TWO-R5(10,3)
     * -R5(10,4)*THREE-R5(10,11)-R5(21,11)+R4(6,3)+R4(6,4)+R4(6,5)*TWO
     * +R4(6,18)*TWO+R4(15,18)*TWO+R4(6,22)+R4(15,22)-R3(3,15)-R3(10,15)
     * -R3(3,19)*THREE-R3(10,19)*THREE-R3(3,23)*TWO-R3(10,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(3,9)+R2(1,13)+R2(3,13)+R2(1,17)*TWO
     * +R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(21,5)*TWO
     * +R5(15,8)*FOUR+R5(15,10)*TWO-R4(10,7)*FOUR-R4(10,11)*TWO
     * -R4(10,13)*SIX-R4(10,27)*TWO+R3(6,6)*TWO+R3(6,8)*TWO
     * +R3(6,10)*FOUR+R3(6,32)*FOUR+R3(6,36)*TWO-R2(5,26)*TWO
     * -R2(5,30)*SIX-R2(5,34)*FOUR+R1(1,10)*TWO+R1(1,14)*TWO
     * +R1(1,18)*FOUR)*QX+(-R6(15,4)*TWO+R5(10,7)*FOUR+R5(10,9)*TWO
     * -R4(6,6)*FOUR-R4(6,10)*TWO-R4(6,12)*SIX-R4(15,26)*TWO+R3(3,5)*TWO
     * +R3(3,7)*TWO+R3(3,9)*FOUR+R3(10,31)*FOUR+R3(10,35)*TWO
     * -R2(3,25)*TWO-R2(3,29)*SIX-R2(3,33)*FOUR+R1(3,9)*TWO+R1(3,13)*TWO
     * +R1(3,17)*FOUR)*QZ
       F(3,1,3,4)= F(3,1,3,4)
     * +(-R5(21,14)+R4(15,21)*TWO+R4(15,25)-R3(10,18)
     * -R3(10,22)*THREE-R3(10,26)*TWO-R3(10,42)+R2(3,12)+R2(3,16)
     * +R2(3,20)*TWO+R2(3,45)*TWO+R2(3,50)-R1(3,29)-R1(3,34)*THREE
     * -R1(3,39)*TWO+R0(14)+R0(19)+R0(24)*TWO)*XX+(-R5(15,13)*FOUR
     * +R4(10,20)*EIGHT+R4(10,24)*FOUR-R3(6,17)*FOUR-R3(6,21)*TWELV
     * -R3(6,25)*EIGHT+R2(5,11)*FOUR+R2(5,15)*FOUR+R2(5,19)*EIGHT)*XZ+(
     * -R5(10,12)+R4(6,19)*TWO+R4(6,23)-R3(3,16)-R3(3,20)*THREE
     * -R3(3,24)*TWO-R3(10,40)+R2(1,10)+R2(1,14)+R2(1,18)*TWO
     * +R2(3,43)*TWO+R2(3,48)-R1(3,27)-R1(3,32)*THREE-R1(3,37)*TWO
     * +R0(12)+R0(17)+R0(22)*TWO)*ZZ+(-R4(15,29)*TWO+R3(10,34)*FOUR
     * +R3(10,38)*TWO-R2(3,28)*TWO-R2(3,32)*SIX-R2(3,36)*FOUR
     * +R1(3,12)*TWO+R1(3,16)*TWO+R1(3,20)*FOUR)*XXZ+(-R4(10,28)*TWO
     * +R3(6,33)*FOUR+R3(6,37)*TWO-R2(5,27)*TWO-R2(5,31)*SIX
     * -R2(5,35)*FOUR+R1(1,11)*TWO+R1(1,15)*TWO+R1(1,19)*FOUR)*XZZ+(
     * -R3(10,43)+R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE
     * -R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)*XXZZ
      F(4,1,3,4)= -R7(14,1)+R6(9,1)+R6(9,3)*TWO-R5(5,1)*TWO-R5(5,3)
     * -R5(5,4)*THREE-R5(14,11)*THREE+R4(2,3)+R4(2,4)+R4(2,5)*TWO
     * +R4(9,18)*SIX+R4(9,22)*THREE-R3(5,15)*THREE-R3(5,19)*NINE
     * -R3(5,23)*SIX+R2(4,9)*THREE+R2(4,13)*THREE+R2(4,17)*SIX+(
     * -R6(14,4)-R6(14,5)*TWO+R5(9,7)*TWO+R5(9,8)*FOUR+R5(9,9)
     * +R5(9,10)*TWO-R4(5,6)*TWO-R4(5,7)*FOUR-R4(5,10)-R4(5,11)*TWO
     * -R4(5,12)*THREE-R4(5,13)*SIX-R4(14,26)-R4(14,27)*TWO+R3(2,5)
     * +R3(2,6)*TWO+R3(2,7)+R3(2,8)*TWO+R3(2,9)*TWO+R3(2,10)*FOUR
     * +R3(9,31)*TWO+R3(9,32)*FOUR+R3(9,35)+R3(9,36)*TWO-R2(6,25)
     * -R2(6,26)*TWO-R2(6,29)*THREE-R2(6,30)*SIX-R2(6,33)*TWO
     * -R2(6,34)*FOUR+R1(2,9)+R1(2,10)*TWO+R1(2,13)+R1(2,14)*TWO
     * +R1(2,17)*TWO+R1(2,18)*FOUR)*QX+(-R5(14,13)*TWO-R5(14,14)
     * +R4(9,20)*FOUR+R4(9,21)*TWO+R4(9,24)*TWO+R4(9,25)-R3(5,17)*TWO
     * -R3(5,18)-R3(5,21)*SIX-R3(5,22)*THREE-R3(5,25)*FOUR-R3(5,26)*TWO
     * +R2(4,11)*TWO+R2(4,12)+R2(4,15)*TWO+R2(4,16)+R2(4,19)*FOUR
     * +R2(4,20)*TWO)*XX+(-R4(14,29)+R3(9,34)*TWO+R3(9,38)-R2(6,28)
     * -R2(6,32)*THREE-R2(6,36)*TWO+R1(2,12)+R1(2,16)+R1(2,20)*TWO)*XXX
      F(5,1,3,4)= -R7(15,1)+R6(10,1)+R6(10,3)*TWO-R5(6,1)*TWO-R5(6,3)
     * -R5(6,4)*THREE-R5(15,11)*THREE+R4(3,3)+R4(3,4)+R4(3,5)*TWO
     * +R4(10,18)*SIX+R4(10,22)*THREE-R3(6,15)*THREE-R3(6,19)*NINE
     * -R3(6,23)*SIX+R2(5,9)*THREE+R2(5,13)*THREE+R2(5,17)*SIX+(
     * -R6(15,4)-R6(15,5)*TWO+R5(10,7)*TWO+R5(10,8)*FOUR+R5(10,9)
     * +R5(10,10)*TWO-R4(6,6)*TWO-R4(6,7)*FOUR-R4(6,10)-R4(6,11)*TWO
     * -R4(6,12)*THREE-R4(6,13)*SIX-R4(15,26)-R4(15,27)*TWO+R3(3,5)
     * +R3(3,6)*TWO+R3(3,7)+R3(3,8)*TWO+R3(3,9)*TWO+R3(3,10)*FOUR
     * +R3(10,31)*TWO+R3(10,32)*FOUR+R3(10,35)+R3(10,36)*TWO-R2(3,25)
     * -R2(3,26)*TWO-R2(3,29)*THREE-R2(3,30)*SIX-R2(3,33)*TWO
     * -R2(3,34)*FOUR+R1(3,9)+R1(3,10)*TWO+R1(3,13)+R1(3,14)*TWO
     * +R1(3,17)*TWO+R1(3,18)*FOUR)*QX+(-R6(10,4)+R5(6,7)*TWO+R5(6,9)
     * -R4(3,6)*TWO-R4(3,10)-R4(3,12)*THREE-R4(10,26)*THREE+R3(1,5)
     * +R3(1,7)+R3(1,9)*TWO+R3(6,31)*SIX+R3(6,35)*THREE-R2(5,25)*THREE
     * -R2(5,29)*NINE-R2(5,33)*SIX+R1(1,9)*THREE+R1(1,13)*THREE
     * +R1(1,17)*SIX)*QZ
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20F
      SUBROUTINE MCDV20F(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(5,1,3,4)= F(5,1,3,4)
     * +(-R5(15,13)*TWO-R5(15,14)+R4(10,20)*FOUR
     * +R4(10,21)*TWO+R4(10,24)*TWO+R4(10,25)-R3(6,17)*TWO-R3(6,18)
     * -R3(6,21)*SIX-R3(6,22)*THREE-R3(6,25)*FOUR-R3(6,26)*TWO
     * +R2(5,11)*TWO+R2(5,12)+R2(5,15)*TWO+R2(5,16)+R2(5,19)*FOUR
     * +R2(5,20)*TWO)*XX+(-R5(10,12)-R5(10,13)*TWO+R4(6,19)*TWO
     * +R4(6,20)*FOUR+R4(6,23)+R4(6,24)*TWO-R3(3,16)-R3(3,17)*TWO
     * -R3(3,20)*THREE-R3(3,21)*SIX-R3(3,24)*TWO-R3(3,25)*FOUR-R3(10,40)
     * -R3(10,41)*TWO+R2(1,10)+R2(1,11)*TWO+R2(1,14)+R2(1,15)*TWO
     * +R2(1,18)*TWO+R2(1,19)*FOUR+R2(3,43)*TWO+R2(3,44)*FOUR+R2(3,48)
     * +R2(3,49)*TWO-R1(3,27)-R1(3,28)*TWO-R1(3,32)*THREE-R1(3,33)*SIX
     * -R1(3,37)*TWO-R1(3,38)*FOUR+R0(12)+R0(13)*TWO+R0(17)+R0(18)*TWO
     * +R0(22)*TWO+R0(23)*FOUR)*XZ
      F(5,1,3,4)= F(5,1,3,4)
     * +(-R4(15,29)+R3(10,34)*TWO+R3(10,38)
     * -R2(3,28)-R2(3,32)*THREE-R2(3,36)*TWO+R1(3,12)+R1(3,16)
     * +R1(3,20)*TWO)*XXX+(-R4(10,28)*TWO-R4(10,29)+R3(6,33)*FOUR
     * +R3(6,34)*TWO+R3(6,37)*TWO+R3(6,38)-R2(5,27)*TWO-R2(5,28)
     * -R2(5,31)*SIX-R2(5,32)*THREE-R2(5,35)*FOUR-R2(5,36)*TWO
     * +R1(1,11)*TWO+R1(1,12)+R1(1,15)*TWO+R1(1,16)+R1(1,19)*FOUR
     * +R1(1,20)*TWO)*XXZ+(-R3(10,43)+R2(3,46)*TWO+R2(3,51)-R1(3,30)
     * -R1(3,35)*THREE-R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)*XXXZ
      F(6,1,3,4)= -R7(20,1)+R6(14,1)+R6(14,3)*TWO-R5(9,1)*TWO-R5(9,3)
     * -R5(9,4)*THREE-R5(20,11)+R4(5,3)+R4(5,4)+R4(5,5)*TWO
     * +R4(14,18)*TWO+R4(14,22)-R3(9,15)-R3(9,19)*THREE-R3(9,23)*TWO
     * +R2(6,9)+R2(6,13)+R2(6,17)*TWO+(-R6(20,5)*TWO+R5(14,8)*FOUR
     * +R5(14,10)*TWO-R4(9,7)*FOUR-R4(9,11)*TWO-R4(9,13)*SIX+R3(5,6)*TWO
     * +R3(5,8)*TWO+R3(5,10)*FOUR)*QX+(-R6(14,4)+R5(9,7)*TWO+R5(9,9)
     * -R4(5,6)*TWO-R4(5,10)-R4(5,12)*THREE-R4(14,26)+R3(2,5)+R3(2,7)
     * +R3(2,9)*TWO+R3(9,31)*TWO+R3(9,35)-R2(6,25)-R2(6,29)*THREE
     * -R2(6,33)*TWO+R1(2,9)+R1(2,13)+R1(2,17)*TWO)*QZ+(-R5(20,14)
     * +R4(14,21)*TWO+R4(14,25)-R3(9,18)-R3(9,22)*THREE-R3(9,26)*TWO
     * +R2(6,12)+R2(6,16)+R2(6,20)*TWO)*XX+(-R5(14,13)*TWO+R4(9,20)*FOUR
     * +R4(9,24)*TWO-R3(5,17)*TWO-R3(5,21)*SIX-R3(5,25)*FOUR
     * +R2(4,11)*TWO+R2(4,15)*TWO+R2(4,19)*FOUR)*XZ+(-R4(14,29)
     * +R3(9,34)*TWO+R3(9,38)-R2(6,28)-R2(6,32)*THREE-R2(6,36)*TWO
     * +R1(2,12)+R1(2,16)+R1(2,20)*TWO)*XXZ
      F(1,2,3,4)= -R7(19,1)+R6(13,1)+R6(13,3)*TWO-R5(8,1)*TWO-R5(8,3)
     * -R5(8,4)*THREE-R5(10,11)-R5(19,11)+R4(4,3)+R4(4,4)+R4(4,5)*TWO
     * +R4(6,18)*TWO+R4(13,18)*TWO+R4(6,22)+R4(13,22)-R3(3,15)-R3(8,15)
     * -R3(3,19)*THREE-R3(8,19)*THREE-R3(3,23)*TWO-R3(8,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(2,9)+R2(1,13)+R2(2,13)+R2(1,17)*TWO
     * +R2(2,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(19,4)*TWO
     * +R5(13,7)*FOUR+R5(13,9)*TWO-R4(8,6)*FOUR-R4(8,10)*TWO
     * -R4(8,12)*SIX-R4(10,26)*TWO+R3(4,5)*TWO+R3(4,7)*TWO+R3(4,9)*FOUR
     * +R3(6,31)*FOUR+R3(6,35)*TWO-R2(5,25)*TWO-R2(5,29)*SIX
     * -R2(5,33)*FOUR+R1(1,9)*TWO+R1(1,13)*TWO+R1(1,17)*FOUR)*QX+(
     * -R5(19,12)+R4(13,19)*TWO+R4(13,23)-R3(8,16)-R3(8,20)*THREE
     * -R3(8,24)*TWO-R3(10,40)+R2(2,10)+R2(2,14)+R2(2,18)*TWO
     * +R2(3,43)*TWO+R2(3,48)-R1(3,27)-R1(3,32)*THREE-R1(3,37)*TWO
     * +R0(12)+R0(17)+R0(22)*TWO)*XX
      F(2,2,3,4)= -R7(32,1)+R6(24,1)+R6(24,3)*TWO-R5(17,1)*TWO-R5(17,3)
     * -R5(17,4)*THREE-R5(19,11)*SIX+R4(11,3)+R4(11,4)+R4(11,5)*TWO
     * +R4(13,18)*TWELV+R4(13,22)*SIX-R3(8,15)*SIX-R3(8,19)*P18
     * -R3(8,23)*TWELV-R3(10,39)*THREE+R2(2,9)*SIX+R2(2,13)*SIX
     * +R2(2,17)*TWELV+R2(3,42)*SIX+R2(3,47)*THREE-R1(3,26)*THREE
     * -R1(3,31)*NINE-R1(3,36)*SIX+R0(11)*THREE+R0(16)*THREE+R0(21)*SIX
      F(3,2,3,4)= -R7(34,1)+R6(26,1)+R6(26,3)*TWO-R5(19,1)*TWO-R5(19,3)
     * -R5(19,4)*THREE-R5(19,11)-R5(21,11)+R4(13,3)+R4(13,4)
     * +R4(13,5)*TWO+R4(13,18)*TWO+R4(15,18)*TWO+R4(13,22)+R4(15,22)
     * -R3(8,15)-R3(10,15)-R3(8,19)*THREE-R3(10,19)*THREE-R3(8,23)*TWO
     * -R3(10,23)*TWO-R3(10,39)+R2(2,9)+R2(3,9)+R2(2,13)+R2(3,13)
     * +R2(2,17)*TWO+R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)
     * -R1(3,31)*THREE-R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(
     * -R6(26,4)*TWO+R5(19,7)*FOUR+R5(19,9)*TWO-R4(13,6)*FOUR
     * -R4(13,10)*TWO-R4(13,12)*SIX-R4(15,26)*TWO+R3(8,5)*TWO
     * +R3(8,7)*TWO+R3(8,9)*FOUR+R3(10,31)*FOUR+R3(10,35)*TWO
     * -R2(3,25)*TWO-R2(3,29)*SIX-R2(3,33)*FOUR+R1(3,9)*TWO+R1(3,13)*TWO
     * +R1(3,17)*FOUR)*QZ+(-R5(19,12)+R4(13,19)*TWO+R4(13,23)-R3(8,16)
     * -R3(8,20)*THREE-R3(8,24)*TWO-R3(10,40)+R2(2,10)+R2(2,14)
     * +R2(2,18)*TWO+R2(3,43)*TWO+R2(3,48)-R1(3,27)-R1(3,32)*THREE
     * -R1(3,37)*TWO+R0(12)+R0(17)+R0(22)*TWO)*ZZ
      F(4,2,3,4)= -R7(25,1)+R6(18,1)+R6(18,3)*TWO-R5(12,1)*TWO-R5(12,3)
     * -R5(12,4)*THREE-R5(14,11)*THREE+R4(7,3)+R4(7,4)+R4(7,5)*TWO
     * +R4(9,18)*SIX+R4(9,22)*THREE-R3(5,15)*THREE-R3(5,19)*NINE
     * -R3(5,23)*SIX+R2(4,9)*THREE+R2(4,13)*THREE+R2(4,17)*SIX+(
     * -R6(25,4)+R5(18,7)*TWO+R5(18,9)-R4(12,6)*TWO-R4(12,10)
     * -R4(12,12)*THREE-R4(14,26)*THREE+R3(7,5)+R3(7,7)+R3(7,9)*TWO
     * +R3(9,31)*SIX+R3(9,35)*THREE-R2(6,25)*THREE-R2(6,29)*NINE
     * -R2(6,33)*SIX+R1(2,9)*THREE+R1(2,13)*THREE+R1(2,17)*SIX)*QX
      F(5,2,3,4)= -R7(26,1)+R6(19,1)+R6(19,3)*TWO-R5(13,1)*TWO-R5(13,3)
     * -R5(13,4)*THREE-R5(15,11)+R4(8,3)+R4(8,4)+R4(8,5)*TWO
     * +R4(10,18)*TWO+R4(10,22)-R3(6,15)-R3(6,19)*THREE-R3(6,23)*TWO
     * +R2(5,9)+R2(5,13)+R2(5,17)*TWO+(-R6(26,4)+R5(19,7)*TWO+R5(19,9)
     * -R4(13,6)*TWO-R4(13,10)-R4(13,12)*THREE-R4(15,26)+R3(8,5)+R3(8,7)
     * +R3(8,9)*TWO+R3(10,31)*TWO+R3(10,35)-R2(3,25)-R2(3,29)*THREE
     * -R2(3,33)*TWO+R1(3,9)+R1(3,13)+R1(3,17)*TWO)*QX+(-R6(19,4)
     * +R5(13,7)*TWO+R5(13,9)-R4(8,6)*TWO-R4(8,10)-R4(8,12)*THREE
     * -R4(10,26)+R3(4,5)+R3(4,7)+R3(4,9)*TWO+R3(6,31)*TWO+R3(6,35)
     * -R2(5,25)-R2(5,29)*THREE-R2(5,33)*TWO+R1(1,9)+R1(1,13)
     * +R1(1,17)*TWO)*QZ+(-R5(19,12)+R4(13,19)*TWO+R4(13,23)-R3(8,16)
     * -R3(8,20)*THREE-R3(8,24)*TWO-R3(10,40)+R2(2,10)+R2(2,14)
     * +R2(2,18)*TWO+R2(3,43)*TWO+R2(3,48)-R1(3,27)-R1(3,32)*THREE
     * -R1(3,37)*TWO+R0(12)+R0(17)+R0(22)*TWO)*XZ
      F(6,2,3,4)= -R7(33,1)+R6(25,1)+R6(25,3)*TWO-R5(18,1)*TWO-R5(18,3)
     * -R5(18,4)*THREE-R5(20,11)*THREE+R4(12,3)+R4(12,4)+R4(12,5)*TWO
     * +R4(14,18)*SIX+R4(14,22)*THREE-R3(9,15)*THREE-R3(9,19)*NINE
     * -R3(9,23)*SIX+R2(6,9)*THREE+R2(6,13)*THREE+R2(6,17)*SIX+(
     * -R6(25,4)+R5(18,7)*TWO+R5(18,9)-R4(12,6)*TWO-R4(12,10)
     * -R4(12,12)*THREE-R4(14,26)*THREE+R3(7,5)+R3(7,7)+R3(7,9)*TWO
     * +R3(9,31)*SIX+R3(9,35)*THREE-R2(6,25)*THREE-R2(6,29)*NINE
     * -R2(6,33)*SIX+R1(2,9)*THREE+R1(2,13)*THREE+R1(2,17)*SIX)*QZ
      F(1,3,3,4)= -R7(21,1)+R6(15,1)+R6(15,3)*TWO-R5(10,1)*TWO-R5(10,3)
     * -R5(10,4)*THREE-R5(10,11)-R5(21,11)+R4(6,3)+R4(6,4)+R4(6,5)*TWO
     * +R4(6,18)*TWO+R4(15,18)*TWO+R4(6,22)+R4(15,22)-R3(3,15)-R3(10,15)
     * -R3(3,19)*THREE-R3(10,19)*THREE-R3(3,23)*TWO-R3(10,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(3,9)+R2(1,13)+R2(3,13)+R2(1,17)*TWO
     * +R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(21,4)*TWO
     * +R5(15,7)*FOUR+R5(15,9)*TWO-R4(10,6)*FOUR-R4(10,10)*TWO
     * -R4(10,12)*SIX-R4(10,26)*TWO+R3(6,5)*TWO+R3(6,7)*TWO+R3(6,9)*FOUR
     * +R3(6,31)*FOUR+R3(6,35)*TWO-R2(5,25)*TWO-R2(5,29)*SIX
     * -R2(5,33)*FOUR+R1(1,9)*TWO+R1(1,13)*TWO+R1(1,17)*FOUR)*QX+(
     * -R6(15,5)*TWO+R5(10,8)*FOUR+R5(10,10)*TWO-R4(6,7)*FOUR
     * -R4(6,11)*TWO-R4(6,13)*SIX-R4(15,27)*TWO+R3(3,6)*TWO+R3(3,8)*TWO
     * +R3(3,10)*FOUR+R3(10,32)*FOUR+R3(10,36)*TWO-R2(3,26)*TWO
     * -R2(3,30)*SIX-R2(3,34)*FOUR+R1(3,10)*TWO+R1(3,14)*TWO
     * +R1(3,18)*FOUR)*QZ
      F(1,3,3,4)= F(1,3,3,4)
     * +(-R5(21,12)+R4(15,19)*TWO+R4(15,23)-R3(10,16)
     * -R3(10,20)*THREE-R3(10,24)*TWO-R3(10,40)+R2(3,10)+R2(3,14)
     * +R2(3,18)*TWO+R2(3,43)*TWO+R2(3,48)-R1(3,27)-R1(3,32)*THREE
     * -R1(3,37)*TWO+R0(12)+R0(17)+R0(22)*TWO)*XX+(-R5(15,13)*FOUR
     * +R4(10,20)*EIGHT+R4(10,24)*FOUR-R3(6,17)*FOUR-R3(6,21)*TWELV
     * -R3(6,25)*EIGHT+R2(5,11)*FOUR+R2(5,15)*FOUR+R2(5,19)*EIGHT)*XZ+(
     * -R5(10,14)+R4(6,21)*TWO+R4(6,25)-R3(3,18)-R3(3,22)*THREE
     * -R3(3,26)*TWO-R3(10,42)+R2(1,12)+R2(1,16)+R2(1,20)*TWO
     * +R2(3,45)*TWO+R2(3,50)-R1(3,29)-R1(3,34)*THREE-R1(3,39)*TWO
     * +R0(14)+R0(19)+R0(24)*TWO)*ZZ+(-R4(15,28)*TWO+R3(10,33)*FOUR
     * +R3(10,37)*TWO-R2(3,27)*TWO-R2(3,31)*SIX-R2(3,35)*FOUR
     * +R1(3,11)*TWO+R1(3,15)*TWO+R1(3,19)*FOUR)*XXZ+(-R4(10,29)*TWO
     * +R3(6,34)*FOUR+R3(6,38)*TWO-R2(5,28)*TWO-R2(5,32)*SIX
     * -R2(5,36)*FOUR+R1(1,12)*TWO+R1(1,16)*TWO+R1(1,20)*FOUR)*XZZ+(
     * -R3(10,43)+R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE
     * -R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)*XXZZ
      F(2,3,3,4)= -R7(34,1)+R6(26,1)+R6(26,3)*TWO-R5(19,1)*TWO-R5(19,3)
     * -R5(19,4)*THREE-R5(19,11)-R5(21,11)+R4(13,3)+R4(13,4)
     * +R4(13,5)*TWO+R4(13,18)*TWO+R4(15,18)*TWO+R4(13,22)+R4(15,22)
     * -R3(8,15)-R3(10,15)-R3(8,19)*THREE-R3(10,19)*THREE-R3(8,23)*TWO
     * -R3(10,23)*TWO-R3(10,39)+R2(2,9)+R2(3,9)+R2(2,13)+R2(3,13)
     * +R2(2,17)*TWO+R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)
     * -R1(3,31)*THREE-R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(
     * -R6(26,5)*TWO+R5(19,8)*FOUR+R5(19,10)*TWO-R4(13,7)*FOUR
     * -R4(13,11)*TWO-R4(13,13)*SIX-R4(15,27)*TWO+R3(8,6)*TWO
     * +R3(8,8)*TWO+R3(8,10)*FOUR+R3(10,32)*FOUR+R3(10,36)*TWO
     * -R2(3,26)*TWO-R2(3,30)*SIX-R2(3,34)*FOUR+R1(3,10)*TWO
     * +R1(3,14)*TWO+R1(3,18)*FOUR)*QZ+(-R5(19,14)+R4(13,21)*TWO
     * +R4(13,25)-R3(8,18)-R3(8,22)*THREE-R3(8,26)*TWO-R3(10,42)
     * +R2(2,12)+R2(2,16)+R2(2,20)*TWO+R2(3,45)*TWO+R2(3,50)-R1(3,29)
     * -R1(3,34)*THREE-R1(3,39)*TWO+R0(14)+R0(19)+R0(24)*TWO)*ZZ
      F(3,3,3,4)= -R7(36,1)+R6(28,1)+R6(28,3)*TWO-R5(21,1)*TWO-R5(21,3)
     * -R5(21,4)*THREE-R5(21,11)*SIX+R4(15,3)+R4(15,4)+R4(15,5)*TWO
     * +R4(15,18)*TWELV+R4(15,22)*SIX-R3(10,15)*SIX-R3(10,19)*P18
     * -R3(10,23)*TWELV-R3(10,39)*THREE+R2(3,9)*SIX+R2(3,13)*SIX
     * +R2(3,17)*TWELV+R2(3,42)*SIX+R2(3,47)*THREE-R1(3,26)*THREE
     * -R1(3,31)*NINE-R1(3,36)*SIX+R0(11)*THREE+R0(16)*THREE+R0(21)*SIX
     * +(-R6(28,4)*TWO-R6(28,5)*TWO+R5(21,7)*FOUR+R5(21,8)*FOUR
     * +R5(21,9)*TWO+R5(21,10)*TWO-R4(15,6)*FOUR-R4(15,7)*FOUR
     * -R4(15,10)*TWO-R4(15,11)*TWO-R4(15,12)*SIX-R4(15,13)*SIX
     * -R4(15,26)*SIX-R4(15,27)*SIX+R3(10,5)*TWO+R3(10,6)*TWO
     * +R3(10,7)*TWO+R3(10,8)*TWO+R3(10,9)*FOUR+R3(10,10)*FOUR
     * +R3(10,31)*TWELV+R3(10,32)*TWELV+R3(10,35)*SIX+R3(10,36)*SIX
     * -R2(3,25)*SIX-R2(3,26)*SIX-R2(3,29)*P18-R2(3,30)*P18
     * -R2(3,33)*TWELV-R2(3,34)*TWELV+R1(3,9)*SIX+R1(3,10)*SIX
     * +R1(3,13)*SIX+R1(3,14)*SIX+R1(3,17)*TWELV+R1(3,18)*TWELV)*QZ
      F(3,3,3,4)= F(3,3,3,4)+(
     * -R5(21,12)-R5(21,13)*FOUR-R5(21,14)+R4(15,19)*TWO+R4(15,20)*EIGHT
     * +R4(15,21)*TWO+R4(15,23)+R4(15,24)*FOUR+R4(15,25)-R3(10,16)
     * -R3(10,17)*FOUR-R3(10,18)-R3(10,20)*THREE-R3(10,21)*TWELV
     * -R3(10,22)*THREE-R3(10,24)*TWO-R3(10,25)*EIGHT-R3(10,26)*TWO
     * -R3(10,40)-R3(10,41)*FOUR-R3(10,42)+R2(3,10)+R2(3,11)*FOUR
     * +R2(3,12)+R2(3,14)+R2(3,15)*FOUR+R2(3,16)+R2(3,18)*TWO
     * +R2(3,19)*EIGHT+R2(3,20)*TWO+R2(3,43)*TWO+R2(3,44)*EIGHT
     * +R2(3,45)*TWO+R2(3,48)+R2(3,49)*FOUR+R2(3,50)-R1(3,27)
     * -R1(3,28)*FOUR-R1(3,29)-R1(3,32)*THREE-R1(3,33)*TWELV
     * -R1(3,34)*THREE-R1(3,37)*TWO-R1(3,38)*EIGHT-R1(3,39)*TWO+R0(12)
     * +R0(13)*FOUR+R0(14)+R0(17)+R0(18)*FOUR+R0(19)+R0(22)*TWO
     * +R0(23)*EIGHT+R0(24)*TWO)*ZZ+(-R4(15,28)*TWO-R4(15,29)*TWO
     * +R3(10,33)*FOUR+R3(10,34)*FOUR+R3(10,37)*TWO+R3(10,38)*TWO
     * -R2(3,27)*TWO-R2(3,28)*TWO-R2(3,31)*SIX-R2(3,32)*SIX
     * -R2(3,35)*FOUR-R2(3,36)*FOUR+R1(3,11)*TWO+R1(3,12)*TWO
     * +R1(3,15)*TWO+R1(3,16)*TWO+R1(3,19)*FOUR+R1(3,20)*FOUR)*ZZZ+(
     * -R3(10,43)+R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE
     * -R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)*ZZZZ
      F(4,3,3,4)= -R7(27,1)+R6(20,1)+R6(20,3)*TWO-R5(14,1)*TWO-R5(14,3)
     * -R5(14,4)*THREE-R5(14,11)+R4(9,3)+R4(9,4)+R4(9,5)*TWO
     * +R4(9,18)*TWO+R4(9,22)-R3(5,15)-R3(5,19)*THREE-R3(5,23)*TWO
     * +R2(4,9)+R2(4,13)+R2(4,17)*TWO+(-R6(27,4)+R5(20,7)*TWO+R5(20,9)
     * -R4(14,6)*TWO-R4(14,10)-R4(14,12)*THREE-R4(14,26)+R3(9,5)+R3(9,7)
     * +R3(9,9)*TWO+R3(9,31)*TWO+R3(9,35)-R2(6,25)-R2(6,29)*THREE
     * -R2(6,33)*TWO+R1(2,9)+R1(2,13)+R1(2,17)*TWO)*QX+(-R6(20,5)*TWO
     * +R5(14,8)*FOUR+R5(14,10)*TWO-R4(9,7)*FOUR-R4(9,11)*TWO
     * -R4(9,13)*SIX+R3(5,6)*TWO+R3(5,8)*TWO+R3(5,10)*FOUR)*QZ+(
     * -R5(20,13)*TWO+R4(14,20)*FOUR+R4(14,24)*TWO-R3(9,17)*TWO
     * -R3(9,21)*SIX-R3(9,25)*FOUR+R2(6,11)*TWO+R2(6,15)*TWO
     * +R2(6,19)*FOUR)*XZ+(-R5(14,14)+R4(9,21)*TWO+R4(9,25)-R3(5,18)
     * -R3(5,22)*THREE-R3(5,26)*TWO+R2(4,12)+R2(4,16)+R2(4,20)*TWO)*ZZ+(
     * -R4(14,29)+R3(9,34)*TWO+R3(9,38)-R2(6,28)-R2(6,32)*THREE
     * -R2(6,36)*TWO+R1(2,12)+R1(2,16)+R1(2,20)*TWO)*XZZ
      F(5,3,3,4)= -R7(28,1)+R6(21,1)+R6(21,3)*TWO-R5(15,1)*TWO-R5(15,3)
     * -R5(15,4)*THREE-R5(15,11)*THREE+R4(10,3)+R4(10,4)+R4(10,5)*TWO
     * +R4(10,18)*SIX+R4(10,22)*THREE-R3(6,15)*THREE-R3(6,19)*NINE
     * -R3(6,23)*SIX+R2(5,9)*THREE+R2(5,13)*THREE+R2(5,17)*SIX+(
     * -R6(28,4)+R5(21,7)*TWO+R5(21,9)-R4(15,6)*TWO-R4(15,10)
     * -R4(15,12)*THREE-R4(15,26)*THREE+R3(10,5)+R3(10,7)+R3(10,9)*TWO
     * +R3(10,31)*SIX+R3(10,35)*THREE-R2(3,25)*THREE-R2(3,29)*NINE
     * -R2(3,33)*SIX+R1(3,9)*THREE+R1(3,13)*THREE+R1(3,17)*SIX)*QX+(
     * -R6(21,4)-R6(21,5)*TWO+R5(15,7)*TWO+R5(15,8)*FOUR+R5(15,9)
     * +R5(15,10)*TWO-R4(10,6)*TWO-R4(10,7)*FOUR-R4(10,10)-R4(10,11)*TWO
     * -R4(10,12)*THREE-R4(10,13)*SIX-R4(10,26)-R4(10,27)*TWO+R3(6,5)
     * +R3(6,6)*TWO+R3(6,7)+R3(6,8)*TWO+R3(6,9)*TWO+R3(6,10)*FOUR
     * +R3(6,31)*TWO+R3(6,32)*FOUR+R3(6,35)+R3(6,36)*TWO-R2(5,25)
     * -R2(5,26)*TWO-R2(5,29)*THREE-R2(5,30)*SIX-R2(5,33)*TWO
     * -R2(5,34)*FOUR+R1(1,9)+R1(1,10)*TWO+R1(1,13)+R1(1,14)*TWO
     * +R1(1,17)*TWO+R1(1,18)*FOUR)*QZ
      F(5,3,3,4)= F(5,3,3,4)+(-R5(21,12)-R5(21,13)*TWO
     * +R4(15,19)*TWO+R4(15,20)*FOUR+R4(15,23)+R4(15,24)*TWO-R3(10,16)
     * -R3(10,17)*TWO-R3(10,20)*THREE-R3(10,21)*SIX-R3(10,24)*TWO
     * -R3(10,25)*FOUR-R3(10,40)-R3(10,41)*TWO+R2(3,10)+R2(3,11)*TWO
     * +R2(3,14)+R2(3,15)*TWO+R2(3,18)*TWO+R2(3,19)*FOUR+R2(3,43)*TWO
     * +R2(3,44)*FOUR+R2(3,48)+R2(3,49)*TWO-R1(3,27)-R1(3,28)*TWO
     * -R1(3,32)*THREE-R1(3,33)*SIX-R1(3,37)*TWO-R1(3,38)*FOUR+R0(12)
     * +R0(13)*TWO+R0(17)+R0(18)*TWO+R0(22)*TWO+R0(23)*FOUR)*XZ+(
     * -R5(15,13)*TWO-R5(15,14)+R4(10,20)*FOUR+R4(10,21)*TWO
     * +R4(10,24)*TWO+R4(10,25)-R3(6,17)*TWO-R3(6,18)-R3(6,21)*SIX
     * -R3(6,22)*THREE-R3(6,25)*FOUR-R3(6,26)*TWO+R2(5,11)*TWO+R2(5,12)
     * +R2(5,15)*TWO+R2(5,16)+R2(5,19)*FOUR+R2(5,20)*TWO)*ZZ
      F(5,3,3,4)= F(5,3,3,4)+(
     * -R4(15,28)*TWO-R4(15,29)+R3(10,33)*FOUR+R3(10,34)*TWO
     * +R3(10,37)*TWO+R3(10,38)-R2(3,27)*TWO-R2(3,28)-R2(3,31)*SIX
     * -R2(3,32)*THREE-R2(3,35)*FOUR-R2(3,36)*TWO+R1(3,11)*TWO+R1(3,12)
     * +R1(3,15)*TWO+R1(3,16)+R1(3,19)*FOUR+R1(3,20)*TWO)*XZZ+(
     * -R4(10,29)+R3(6,34)*TWO+R3(6,38)-R2(5,28)-R2(5,32)*THREE
     * -R2(5,36)*TWO+R1(1,12)+R1(1,16)+R1(1,20)*TWO)*ZZZ+(-R3(10,43)
     * +R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE-R1(3,40)*TWO
     * +R0(15)+R0(20)+R0(25)*TWO)*XZZZ
      F(6,3,3,4)= -R7(35,1)+R6(27,1)+R6(27,3)*TWO-R5(20,1)*TWO-R5(20,3)
     * -R5(20,4)*THREE-R5(20,11)*THREE+R4(14,3)+R4(14,4)+R4(14,5)*TWO
     * +R4(14,18)*SIX+R4(14,22)*THREE-R3(9,15)*THREE-R3(9,19)*NINE
     * -R3(9,23)*SIX+R2(6,9)*THREE+R2(6,13)*THREE+R2(6,17)*SIX+(
     * -R6(27,4)-R6(27,5)*TWO+R5(20,7)*TWO+R5(20,8)*FOUR+R5(20,9)
     * +R5(20,10)*TWO-R4(14,6)*TWO-R4(14,7)*FOUR-R4(14,10)-R4(14,11)*TWO
     * -R4(14,12)*THREE-R4(14,13)*SIX-R4(14,26)-R4(14,27)*TWO+R3(9,5)
     * +R3(9,6)*TWO+R3(9,7)+R3(9,8)*TWO+R3(9,9)*TWO+R3(9,10)*FOUR
     * +R3(9,31)*TWO+R3(9,32)*FOUR+R3(9,35)+R3(9,36)*TWO-R2(6,25)
     * -R2(6,26)*TWO-R2(6,29)*THREE-R2(6,30)*SIX-R2(6,33)*TWO
     * -R2(6,34)*FOUR+R1(2,9)+R1(2,10)*TWO+R1(2,13)+R1(2,14)*TWO
     * +R1(2,17)*TWO+R1(2,18)*FOUR)*QZ+(-R5(20,13)*TWO-R5(20,14)
     * +R4(14,20)*FOUR+R4(14,21)*TWO+R4(14,24)*TWO+R4(14,25)
     * -R3(9,17)*TWO-R3(9,18)-R3(9,21)*SIX-R3(9,22)*THREE-R3(9,25)*FOUR
     * -R3(9,26)*TWO+R2(6,11)*TWO+R2(6,12)+R2(6,15)*TWO+R2(6,16)
     * +R2(6,19)*FOUR+R2(6,20)*TWO)*ZZ+(-R4(14,29)+R3(9,34)*TWO+R3(9,38)
     * -R2(6,28)-R2(6,32)*THREE-R2(6,36)*TWO+R1(2,12)+R1(2,16)
     * +R1(2,20)*TWO)*ZZZ
      F(1,4,3,4)= -R7(14,1)+R6(9,1)+R6(9,3)*TWO-R5(5,1)*TWO-R5(5,3)
     * -R5(5,4)*THREE-R5(14,11)*THREE+R4(2,3)+R4(2,4)+R4(2,5)*TWO
     * +R4(9,18)*SIX+R4(9,22)*THREE-R3(5,15)*THREE-R3(5,19)*NINE
     * -R3(5,23)*SIX+R2(4,9)*THREE+R2(4,13)*THREE+R2(4,17)*SIX+(
     * -R6(14,4)*TWO-R6(14,5)+R5(9,7)*FOUR+R5(9,8)*TWO+R5(9,9)*TWO
     * +R5(9,10)-R4(5,6)*FOUR-R4(5,7)*TWO-R4(5,10)*TWO-R4(5,11)
     * -R4(5,12)*SIX-R4(5,13)*THREE-R4(14,26)*TWO-R4(14,27)+R3(2,5)*TWO
     * +R3(2,6)+R3(2,7)*TWO+R3(2,8)+R3(2,9)*FOUR+R3(2,10)*TWO
     * +R3(9,31)*FOUR+R3(9,32)*TWO+R3(9,35)*TWO+R3(9,36)-R2(6,25)*TWO
     * -R2(6,26)-R2(6,29)*SIX-R2(6,30)*THREE-R2(6,33)*FOUR-R2(6,34)*TWO
     * +R1(2,9)*TWO+R1(2,10)+R1(2,13)*TWO+R1(2,14)+R1(2,17)*FOUR
     * +R1(2,18)*TWO)*QX+(-R5(14,12)-R5(14,13)*TWO+R4(9,19)*TWO
     * +R4(9,20)*FOUR+R4(9,23)+R4(9,24)*TWO-R3(5,16)-R3(5,17)*TWO
     * -R3(5,20)*THREE-R3(5,21)*SIX-R3(5,24)*TWO-R3(5,25)*FOUR+R2(4,10)
     * +R2(4,11)*TWO+R2(4,14)+R2(4,15)*TWO+R2(4,18)*TWO+R2(4,19)*FOUR)
     * *XX+(-R4(14,28)+R3(9,33)*TWO+R3(9,37)-R2(6,27)-R2(6,31)*THREE
     * -R2(6,35)*TWO+R1(2,11)+R1(2,15)+R1(2,19)*TWO)*XXX
      F(2,4,3,4)= -R7(25,1)+R6(18,1)+R6(18,3)*TWO-R5(12,1)*TWO-R5(12,3)
     * -R5(12,4)*THREE-R5(14,11)*THREE+R4(7,3)+R4(7,4)+R4(7,5)*TWO
     * +R4(9,18)*SIX+R4(9,22)*THREE-R3(5,15)*THREE-R3(5,19)*NINE
     * -R3(5,23)*SIX+R2(4,9)*THREE+R2(4,13)*THREE+R2(4,17)*SIX+(
     * -R6(25,5)+R5(18,8)*TWO+R5(18,10)-R4(12,7)*TWO-R4(12,11)
     * -R4(12,13)*THREE-R4(14,27)*THREE+R3(7,6)+R3(7,8)+R3(7,10)*TWO
     * +R3(9,32)*SIX+R3(9,36)*THREE-R2(6,26)*THREE-R2(6,30)*NINE
     * -R2(6,34)*SIX+R1(2,10)*THREE+R1(2,14)*THREE+R1(2,18)*SIX)*QX
      F(3,4,3,4)= -R7(27,1)+R6(20,1)+R6(20,3)*TWO-R5(14,1)*TWO-R5(14,3)
     * -R5(14,4)*THREE-R5(14,11)+R4(9,3)+R4(9,4)+R4(9,5)*TWO
     * +R4(9,18)*TWO+R4(9,22)-R3(5,15)-R3(5,19)*THREE-R3(5,23)*TWO
     * +R2(4,9)+R2(4,13)+R2(4,17)*TWO+(-R6(27,5)+R5(20,8)*TWO+R5(20,10)
     * -R4(14,7)*TWO-R4(14,11)-R4(14,13)*THREE-R4(14,27)+R3(9,6)+R3(9,8)
     * +R3(9,10)*TWO+R3(9,32)*TWO+R3(9,36)-R2(6,26)-R2(6,30)*THREE
     * -R2(6,34)*TWO+R1(2,10)+R1(2,14)+R1(2,18)*TWO)*QX+(-R6(20,4)*TWO
     * +R5(14,7)*FOUR+R5(14,9)*TWO-R4(9,6)*FOUR-R4(9,10)*TWO
     * -R4(9,12)*SIX+R3(5,5)*TWO+R3(5,7)*TWO+R3(5,9)*FOUR)*QZ+(
     * -R5(20,13)*TWO+R4(14,20)*FOUR+R4(14,24)*TWO-R3(9,17)*TWO
     * -R3(9,21)*SIX-R3(9,25)*FOUR+R2(6,11)*TWO+R2(6,15)*TWO
     * +R2(6,19)*FOUR)*XZ+(-R5(14,12)+R4(9,19)*TWO+R4(9,23)-R3(5,16)
     * -R3(5,20)*THREE-R3(5,24)*TWO+R2(4,10)+R2(4,14)+R2(4,18)*TWO)*ZZ+(
     * -R4(14,28)+R3(9,33)*TWO+R3(9,37)-R2(6,27)-R2(6,31)*THREE
     * -R2(6,35)*TWO+R1(2,11)+R1(2,15)+R1(2,19)*TWO)*XZZ
      F(4,4,3,4)= -R7(19,1)+R6(13,1)+R6(13,3)*TWO-R5(8,1)*TWO-R5(8,3)
     * -R5(8,4)*THREE-R5(10,11)-R5(19,11)+R4(4,3)+R4(4,4)+R4(4,5)*TWO
     * +R4(6,18)*TWO+R4(13,18)*TWO+R4(6,22)+R4(13,22)-R3(3,15)-R3(8,15)
     * -R3(3,19)*THREE-R3(8,19)*THREE-R3(3,23)*TWO-R3(8,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(2,9)+R2(1,13)+R2(2,13)+R2(1,17)*TWO
     * +R2(2,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(19,4)-R6(19,5)
     * +R5(13,7)*TWO+R5(13,8)*TWO+R5(13,9)+R5(13,10)-R4(8,6)*TWO
     * -R4(8,7)*TWO-R4(8,10)-R4(8,11)-R4(8,12)*THREE-R4(8,13)*THREE
     * -R4(10,26)-R4(10,27)+R3(4,5)+R3(4,6)+R3(4,7)+R3(4,8)+R3(4,9)*TWO
     * +R3(4,10)*TWO+R3(6,31)*TWO+R3(6,32)*TWO+R3(6,35)+R3(6,36)
     * -R2(5,25)-R2(5,26)-R2(5,29)*THREE-R2(5,30)*THREE-R2(5,33)*TWO
     * -R2(5,34)*TWO+R1(1,9)+R1(1,10)+R1(1,13)+R1(1,14)+R1(1,17)*TWO
     * +R1(1,18)*TWO)*QX+(-R5(19,13)+R4(13,20)*TWO+R4(13,24)-R3(8,17)
     * -R3(8,21)*THREE-R3(8,25)*TWO-R3(10,41)+R2(2,11)+R2(2,15)
     * +R2(2,19)*TWO+R2(3,44)*TWO+R2(3,49)-R1(3,28)-R1(3,33)*THREE
     * -R1(3,38)*TWO+R0(13)+R0(18)+R0(23)*TWO)*XX
      F(5,4,3,4)= -R7(20,1)+R6(14,1)+R6(14,3)*TWO-R5(9,1)*TWO-R5(9,3)
     * -R5(9,4)*THREE-R5(20,11)+R4(5,3)+R4(5,4)+R4(5,5)*TWO
     * +R4(14,18)*TWO+R4(14,22)-R3(9,15)-R3(9,19)*THREE-R3(9,23)*TWO
     * +R2(6,9)+R2(6,13)+R2(6,17)*TWO+(-R6(20,4)-R6(20,5)+R5(14,7)*TWO
     * +R5(14,8)*TWO+R5(14,9)+R5(14,10)-R4(9,6)*TWO-R4(9,7)*TWO-R4(9,10)
     * -R4(9,11)-R4(9,12)*THREE-R4(9,13)*THREE+R3(5,5)+R3(5,6)+R3(5,7)
     * +R3(5,8)+R3(5,9)*TWO+R3(5,10)*TWO)*QX+(-R6(14,4)+R5(9,7)*TWO
     * +R5(9,9)-R4(5,6)*TWO-R4(5,10)-R4(5,12)*THREE-R4(14,26)+R3(2,5)
     * +R3(2,7)+R3(2,9)*TWO+R3(9,31)*TWO+R3(9,35)-R2(6,25)
     * -R2(6,29)*THREE-R2(6,33)*TWO+R1(2,9)+R1(2,13)+R1(2,17)*TWO)*QZ+(
     * -R5(20,13)+R4(14,20)*TWO+R4(14,24)-R3(9,17)-R3(9,21)*THREE
     * -R3(9,25)*TWO+R2(6,11)+R2(6,15)+R2(6,19)*TWO)*XX+(-R5(14,12)
     * -R5(14,13)+R4(9,19)*TWO+R4(9,20)*TWO+R4(9,23)+R4(9,24)-R3(5,16)
     * -R3(5,17)-R3(5,20)*THREE-R3(5,21)*THREE-R3(5,24)*TWO-R3(5,25)*TWO
     * +R2(4,10)+R2(4,11)+R2(4,14)+R2(4,15)+R2(4,18)*TWO+R2(4,19)*TWO)
     * *XZ+(-R4(14,28)+R3(9,33)*TWO+R3(9,37)-R2(6,27)-R2(6,31)*THREE
     * -R2(6,35)*TWO+R1(2,11)+R1(2,15)+R1(2,19)*TWO)*XXZ
      F(6,4,3,4)= -R7(26,1)+R6(19,1)+R6(19,3)*TWO-R5(13,1)*TWO-R5(13,3)
     * -R5(13,4)*THREE-R5(15,11)+R4(8,3)+R4(8,4)+R4(8,5)*TWO
     * +R4(10,18)*TWO+R4(10,22)-R3(6,15)-R3(6,19)*THREE-R3(6,23)*TWO
     * +R2(5,9)+R2(5,13)+R2(5,17)*TWO+(-R6(26,5)+R5(19,8)*TWO+R5(19,10)
     * -R4(13,7)*TWO-R4(13,11)-R4(13,13)*THREE-R4(15,27)+R3(8,6)+R3(8,8)
     * +R3(8,10)*TWO+R3(10,32)*TWO+R3(10,36)-R2(3,26)-R2(3,30)*THREE
     * -R2(3,34)*TWO+R1(3,10)+R1(3,14)+R1(3,18)*TWO)*QX+(-R6(19,4)
     * +R5(13,7)*TWO+R5(13,9)-R4(8,6)*TWO-R4(8,10)-R4(8,12)*THREE
     * -R4(10,26)+R3(4,5)+R3(4,7)+R3(4,9)*TWO+R3(6,31)*TWO+R3(6,35)
     * -R2(5,25)-R2(5,29)*THREE-R2(5,33)*TWO+R1(1,9)+R1(1,13)
     * +R1(1,17)*TWO)*QZ+(-R5(19,13)+R4(13,20)*TWO+R4(13,24)-R3(8,17)
     * -R3(8,21)*THREE-R3(8,25)*TWO-R3(10,41)+R2(2,11)+R2(2,15)
     * +R2(2,19)*TWO+R2(3,44)*TWO+R2(3,49)-R1(3,28)-R1(3,33)*THREE
     * -R1(3,38)*TWO+R0(13)+R0(18)+R0(23)*TWO)*XZ
      F(1,5,3,4)= -R7(15,1)+R6(10,1)+R6(10,3)*TWO-R5(6,1)*TWO-R5(6,3)
     * -R5(6,4)*THREE-R5(15,11)*THREE+R4(3,3)+R4(3,4)+R4(3,5)*TWO
     * +R4(10,18)*SIX+R4(10,22)*THREE-R3(6,15)*THREE-R3(6,19)*NINE
     * -R3(6,23)*SIX+R2(5,9)*THREE+R2(5,13)*THREE+R2(5,17)*SIX+(
     * -R6(15,4)*TWO-R6(15,5)+R5(10,7)*FOUR+R5(10,8)*TWO+R5(10,9)*TWO
     * +R5(10,10)-R4(6,6)*FOUR-R4(6,7)*TWO-R4(6,10)*TWO-R4(6,11)
     * -R4(6,12)*SIX-R4(6,13)*THREE-R4(15,26)*TWO-R4(15,27)+R3(3,5)*TWO
     * +R3(3,6)+R3(3,7)*TWO+R3(3,8)+R3(3,9)*FOUR+R3(3,10)*TWO
     * +R3(10,31)*FOUR+R3(10,32)*TWO+R3(10,35)*TWO+R3(10,36)
     * -R2(3,25)*TWO-R2(3,26)-R2(3,29)*SIX-R2(3,30)*THREE-R2(3,33)*FOUR
     * -R2(3,34)*TWO+R1(3,9)*TWO+R1(3,10)+R1(3,13)*TWO+R1(3,14)
     * +R1(3,17)*FOUR+R1(3,18)*TWO)*QX+(-R6(10,5)+R5(6,8)*TWO+R5(6,10)
     * -R4(3,7)*TWO-R4(3,11)-R4(3,13)*THREE-R4(10,27)*THREE+R3(1,6)
     * +R3(1,8)+R3(1,10)*TWO+R3(6,32)*SIX+R3(6,36)*THREE-R2(5,26)*THREE
     * -R2(5,30)*NINE-R2(5,34)*SIX+R1(1,10)*THREE+R1(1,14)*THREE
     * +R1(1,18)*SIX)*QZ
      F(1,5,3,4)= F(1,5,3,4)
     * +(-R5(15,12)-R5(15,13)*TWO+R4(10,19)*TWO
     * +R4(10,20)*FOUR+R4(10,23)+R4(10,24)*TWO-R3(6,16)-R3(6,17)*TWO
     * -R3(6,20)*THREE-R3(6,21)*SIX-R3(6,24)*TWO-R3(6,25)*FOUR+R2(5,10)
     * +R2(5,11)*TWO+R2(5,14)+R2(5,15)*TWO+R2(5,18)*TWO+R2(5,19)*FOUR)
     * *XX+(-R5(10,13)*TWO-R5(10,14)+R4(6,20)*FOUR+R4(6,21)*TWO
     * +R4(6,24)*TWO+R4(6,25)-R3(3,17)*TWO-R3(3,18)-R3(3,21)*SIX
     * -R3(3,22)*THREE-R3(3,25)*FOUR-R3(3,26)*TWO-R3(10,41)*TWO
     * -R3(10,42)+R2(1,11)*TWO+R2(1,12)+R2(1,15)*TWO+R2(1,16)
     * +R2(1,19)*FOUR+R2(1,20)*TWO+R2(3,44)*FOUR+R2(3,45)*TWO
     * +R2(3,49)*TWO+R2(3,50)-R1(3,28)*TWO-R1(3,29)-R1(3,33)*SIX
     * -R1(3,34)*THREE-R1(3,38)*FOUR-R1(3,39)*TWO+R0(13)*TWO+R0(14)
     * +R0(18)*TWO+R0(19)+R0(23)*FOUR+R0(24)*TWO)*XZ
      F(1,5,3,4)= F(1,5,3,4)+(-R4(15,28)
     * +R3(10,33)*TWO+R3(10,37)-R2(3,27)-R2(3,31)*THREE-R2(3,35)*TWO
     * +R1(3,11)+R1(3,15)+R1(3,19)*TWO)*XXX+(-R4(10,28)-R4(10,29)*TWO
     * +R3(6,33)*TWO+R3(6,34)*FOUR+R3(6,37)+R3(6,38)*TWO-R2(5,27)
     * -R2(5,28)*TWO-R2(5,31)*THREE-R2(5,32)*SIX-R2(5,35)*TWO
     * -R2(5,36)*FOUR+R1(1,11)+R1(1,12)*TWO+R1(1,15)+R1(1,16)*TWO
     * +R1(1,19)*TWO+R1(1,20)*FOUR)*XXZ+(-R3(10,43)+R2(3,46)*TWO
     * +R2(3,51)-R1(3,30)-R1(3,35)*THREE-R1(3,40)*TWO+R0(15)+R0(20)
     * +R0(25)*TWO)*XXXZ
      F(2,5,3,4)= -R7(26,1)+R6(19,1)+R6(19,3)*TWO-R5(13,1)*TWO-R5(13,3)
     * -R5(13,4)*THREE-R5(15,11)+R4(8,3)+R4(8,4)+R4(8,5)*TWO
     * +R4(10,18)*TWO+R4(10,22)-R3(6,15)-R3(6,19)*THREE-R3(6,23)*TWO
     * +R2(5,9)+R2(5,13)+R2(5,17)*TWO+(-R6(26,5)+R5(19,8)*TWO+R5(19,10)
     * -R4(13,7)*TWO-R4(13,11)-R4(13,13)*THREE-R4(15,27)+R3(8,6)+R3(8,8)
     * +R3(8,10)*TWO+R3(10,32)*TWO+R3(10,36)-R2(3,26)-R2(3,30)*THREE
     * -R2(3,34)*TWO+R1(3,10)+R1(3,14)+R1(3,18)*TWO)*QX+(-R6(19,5)
     * +R5(13,8)*TWO+R5(13,10)-R4(8,7)*TWO-R4(8,11)-R4(8,13)*THREE
     * -R4(10,27)+R3(4,6)+R3(4,8)+R3(4,10)*TWO+R3(6,32)*TWO+R3(6,36)
     * -R2(5,26)-R2(5,30)*THREE-R2(5,34)*TWO+R1(1,10)+R1(1,14)
     * +R1(1,18)*TWO)*QZ+(-R5(19,14)+R4(13,21)*TWO+R4(13,25)-R3(8,18)
     * -R3(8,22)*THREE-R3(8,26)*TWO-R3(10,42)+R2(2,12)+R2(2,16)
     * +R2(2,20)*TWO+R2(3,45)*TWO+R2(3,50)-R1(3,29)-R1(3,34)*THREE
     * -R1(3,39)*TWO+R0(14)+R0(19)+R0(24)*TWO)*XZ
      F(3,5,3,4)= -R7(28,1)+R6(21,1)+R6(21,3)*TWO-R5(15,1)*TWO-R5(15,3)
     * -R5(15,4)*THREE-R5(15,11)*THREE+R4(10,3)+R4(10,4)+R4(10,5)*TWO
     * +R4(10,18)*SIX+R4(10,22)*THREE-R3(6,15)*THREE-R3(6,19)*NINE
     * -R3(6,23)*SIX+R2(5,9)*THREE+R2(5,13)*THREE+R2(5,17)*SIX+(
     * -R6(28,5)+R5(21,8)*TWO+R5(21,10)-R4(15,7)*TWO-R4(15,11)
     * -R4(15,13)*THREE-R4(15,27)*THREE+R3(10,6)+R3(10,8)+R3(10,10)*TWO
     * +R3(10,32)*SIX+R3(10,36)*THREE-R2(3,26)*THREE-R2(3,30)*NINE
     * -R2(3,34)*SIX+R1(3,10)*THREE+R1(3,14)*THREE+R1(3,18)*SIX)*QX+(
     * -R6(21,4)*TWO-R6(21,5)+R5(15,7)*FOUR+R5(15,8)*TWO+R5(15,9)*TWO
     * +R5(15,10)-R4(10,6)*FOUR-R4(10,7)*TWO-R4(10,10)*TWO-R4(10,11)
     * -R4(10,12)*SIX-R4(10,13)*THREE-R4(10,26)*TWO-R4(10,27)
     * +R3(6,5)*TWO+R3(6,6)+R3(6,7)*TWO+R3(6,8)+R3(6,9)*FOUR
     * +R3(6,10)*TWO+R3(6,31)*FOUR+R3(6,32)*TWO+R3(6,35)*TWO+R3(6,36)
     * -R2(5,25)*TWO-R2(5,26)-R2(5,29)*SIX-R2(5,30)*THREE-R2(5,33)*FOUR
     * -R2(5,34)*TWO+R1(1,9)*TWO+R1(1,10)+R1(1,13)*TWO+R1(1,14)
     * +R1(1,17)*FOUR+R1(1,18)*TWO)*QZ
      F(3,5,3,4)= F(3,5,3,4)+(-R5(21,13)*TWO-R5(21,14)
     * +R4(15,20)*FOUR+R4(15,21)*TWO+R4(15,24)*TWO+R4(15,25)
     * -R3(10,17)*TWO-R3(10,18)-R3(10,21)*SIX-R3(10,22)*THREE
     * -R3(10,25)*FOUR-R3(10,26)*TWO-R3(10,41)*TWO-R3(10,42)
     * +R2(3,11)*TWO+R2(3,12)+R2(3,15)*TWO+R2(3,16)+R2(3,19)*FOUR
     * +R2(3,20)*TWO+R2(3,44)*FOUR+R2(3,45)*TWO+R2(3,49)*TWO+R2(3,50)
     * -R1(3,28)*TWO-R1(3,29)-R1(3,33)*SIX-R1(3,34)*THREE-R1(3,38)*FOUR
     * -R1(3,39)*TWO+R0(13)*TWO+R0(14)+R0(18)*TWO+R0(19)+R0(23)*FOUR
     * +R0(24)*TWO)*XZ+(-R5(15,12)-R5(15,13)*TWO+R4(10,19)*TWO
     * +R4(10,20)*FOUR+R4(10,23)+R4(10,24)*TWO-R3(6,16)-R3(6,17)*TWO
     * -R3(6,20)*THREE-R3(6,21)*SIX-R3(6,24)*TWO-R3(6,25)*FOUR+R2(5,10)
     * +R2(5,11)*TWO+R2(5,14)+R2(5,15)*TWO+R2(5,18)*TWO+R2(5,19)*FOUR)
     * *ZZ
      F(3,5,3,4)= F(3,5,3,4)
     * +(-R4(15,28)-R4(15,29)*TWO+R3(10,33)*TWO+R3(10,34)*FOUR
     * +R3(10,37)+R3(10,38)*TWO-R2(3,27)-R2(3,28)*TWO-R2(3,31)*THREE
     * -R2(3,32)*SIX-R2(3,35)*TWO-R2(3,36)*FOUR+R1(3,11)+R1(3,12)*TWO
     * +R1(3,15)+R1(3,16)*TWO+R1(3,19)*TWO+R1(3,20)*FOUR)*XZZ+(
     * -R4(10,28)+R3(6,33)*TWO+R3(6,37)-R2(5,27)-R2(5,31)*THREE
     * -R2(5,35)*TWO+R1(1,11)+R1(1,15)+R1(1,19)*TWO)*ZZZ+(-R3(10,43)
     * +R2(3,46)*TWO+R2(3,51)-R1(3,30)-R1(3,35)*THREE-R1(3,40)*TWO
     * +R0(15)+R0(20)+R0(25)*TWO)*XZZZ
      F(4,5,3,4)= -R7(20,1)+R6(14,1)+R6(14,3)*TWO-R5(9,1)*TWO-R5(9,3)
     * -R5(9,4)*THREE-R5(20,11)+R4(5,3)+R4(5,4)+R4(5,5)*TWO
     * +R4(14,18)*TWO+R4(14,22)-R3(9,15)-R3(9,19)*THREE-R3(9,23)*TWO
     * +R2(6,9)+R2(6,13)+R2(6,17)*TWO+(-R6(20,4)-R6(20,5)+R5(14,7)*TWO
     * +R5(14,8)*TWO+R5(14,9)+R5(14,10)-R4(9,6)*TWO-R4(9,7)*TWO-R4(9,10)
     * -R4(9,11)-R4(9,12)*THREE-R4(9,13)*THREE+R3(5,5)+R3(5,6)+R3(5,7)
     * +R3(5,8)+R3(5,9)*TWO+R3(5,10)*TWO)*QX+(-R6(14,5)+R5(9,8)*TWO
     * +R5(9,10)-R4(5,7)*TWO-R4(5,11)-R4(5,13)*THREE-R4(14,27)+R3(2,6)
     * +R3(2,8)+R3(2,10)*TWO+R3(9,32)*TWO+R3(9,36)-R2(6,26)
     * -R2(6,30)*THREE-R2(6,34)*TWO+R1(2,10)+R1(2,14)+R1(2,18)*TWO)*QZ+(
     * -R5(20,13)+R4(14,20)*TWO+R4(14,24)-R3(9,17)-R3(9,21)*THREE
     * -R3(9,25)*TWO+R2(6,11)+R2(6,15)+R2(6,19)*TWO)*XX+(-R5(14,13)
     * -R5(14,14)+R4(9,20)*TWO+R4(9,21)*TWO+R4(9,24)+R4(9,25)-R3(5,17)
     * -R3(5,18)-R3(5,21)*THREE-R3(5,22)*THREE-R3(5,25)*TWO-R3(5,26)*TWO
     * +R2(4,11)+R2(4,12)+R2(4,15)+R2(4,16)+R2(4,19)*TWO+R2(4,20)*TWO)
     * *XZ+(-R4(14,29)+R3(9,34)*TWO+R3(9,38)-R2(6,28)-R2(6,32)*THREE
     * -R2(6,36)*TWO+R1(2,12)+R1(2,16)+R1(2,20)*TWO)*XXZ
      F(5,5,3,4)= -R7(21,1)+R6(15,1)+R6(15,3)*TWO-R5(10,1)*TWO-R5(10,3)
     * -R5(10,4)*THREE-R5(10,11)-R5(21,11)+R4(6,3)+R4(6,4)+R4(6,5)*TWO
     * +R4(6,18)*TWO+R4(15,18)*TWO+R4(6,22)+R4(15,22)-R3(3,15)-R3(10,15)
     * -R3(3,19)*THREE-R3(10,19)*THREE-R3(3,23)*TWO-R3(10,23)*TWO
     * -R3(10,39)+R2(1,9)+R2(3,9)+R2(1,13)+R2(3,13)+R2(1,17)*TWO
     * +R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)-R1(3,31)*THREE
     * -R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(21,4)-R6(21,5)
     * +R5(15,7)*TWO+R5(15,8)*TWO+R5(15,9)+R5(15,10)-R4(10,6)*TWO
     * -R4(10,7)*TWO-R4(10,10)-R4(10,11)-R4(10,12)*THREE-R4(10,13)*THREE
     * -R4(10,26)-R4(10,27)+R3(6,5)+R3(6,6)+R3(6,7)+R3(6,8)+R3(6,9)*TWO
     * +R3(6,10)*TWO+R3(6,31)*TWO+R3(6,32)*TWO+R3(6,35)+R3(6,36)
     * -R2(5,25)-R2(5,26)-R2(5,29)*THREE-R2(5,30)*THREE-R2(5,33)*TWO
     * -R2(5,34)*TWO+R1(1,9)+R1(1,10)+R1(1,13)+R1(1,14)+R1(1,17)*TWO
     * +R1(1,18)*TWO)*QX
      F(5,5,3,4)= F(5,5,3,4)
     * +(-R6(15,4)-R6(15,5)+R5(10,7)*TWO+R5(10,8)*TWO
     * +R5(10,9)+R5(10,10)-R4(6,6)*TWO-R4(6,7)*TWO-R4(6,10)-R4(6,11)
     * -R4(6,12)*THREE-R4(6,13)*THREE-R4(15,26)-R4(15,27)+R3(3,5)
     * +R3(3,6)+R3(3,7)+R3(3,8)+R3(3,9)*TWO+R3(3,10)*TWO+R3(10,31)*TWO
     * +R3(10,32)*TWO+R3(10,35)+R3(10,36)-R2(3,25)-R2(3,26)
     * -R2(3,29)*THREE-R2(3,30)*THREE-R2(3,33)*TWO-R2(3,34)*TWO+R1(3,9)
     * +R1(3,10)+R1(3,13)+R1(3,14)+R1(3,17)*TWO+R1(3,18)*TWO)*QZ+(
     * -R5(21,13)+R4(15,20)*TWO+R4(15,24)-R3(10,17)-R3(10,21)*THREE
     * -R3(10,25)*TWO-R3(10,41)+R2(3,11)+R2(3,15)+R2(3,19)*TWO
     * +R2(3,44)*TWO+R2(3,49)-R1(3,28)-R1(3,33)*THREE-R1(3,38)*TWO
     * +R0(13)+R0(18)+R0(23)*TWO)*XX+(-R5(15,12)-R5(15,13)*TWO-R5(15,14)
     * +R4(10,19)*TWO+R4(10,20)*FOUR+R4(10,21)*TWO+R4(10,23)
     * +R4(10,24)*TWO+R4(10,25)-R3(6,16)-R3(6,17)*TWO-R3(6,18)
     * -R3(6,20)*THREE-R3(6,21)*SIX-R3(6,22)*THREE-R3(6,24)*TWO
     * -R3(6,25)*FOUR-R3(6,26)*TWO+R2(5,10)+R2(5,11)*TWO+R2(5,12)
     * +R2(5,14)+R2(5,15)*TWO+R2(5,16)+R2(5,18)*TWO+R2(5,19)*FOUR
     * +R2(5,20)*TWO)*XZ
      F(5,5,3,4)= F(5,5,3,4)
     * +(-R5(10,13)+R4(6,20)*TWO+R4(6,24)-R3(3,17)
     * -R3(3,21)*THREE-R3(3,25)*TWO-R3(10,41)+R2(1,11)+R2(1,15)
     * +R2(1,19)*TWO+R2(3,44)*TWO+R2(3,49)-R1(3,28)-R1(3,33)*THREE
     * -R1(3,38)*TWO+R0(13)+R0(18)+R0(23)*TWO)*ZZ+(-R4(15,28)-R4(15,29)
     * +R3(10,33)*TWO+R3(10,34)*TWO+R3(10,37)+R3(10,38)-R2(3,27)
     * -R2(3,28)-R2(3,31)*THREE-R2(3,32)*THREE-R2(3,35)*TWO-R2(3,36)*TWO
     * +R1(3,11)+R1(3,12)+R1(3,15)+R1(3,16)+R1(3,19)*TWO+R1(3,20)*TWO)
     * *XXZ+(-R4(10,28)-R4(10,29)+R3(6,33)*TWO+R3(6,34)*TWO+R3(6,37)
     * +R3(6,38)-R2(5,27)-R2(5,28)-R2(5,31)*THREE-R2(5,32)*THREE
     * -R2(5,35)*TWO-R2(5,36)*TWO+R1(1,11)+R1(1,12)+R1(1,15)+R1(1,16)
     * +R1(1,19)*TWO+R1(1,20)*TWO)*XZZ+(-R3(10,43)+R2(3,46)*TWO+R2(3,51)
     * -R1(3,30)-R1(3,35)*THREE-R1(3,40)*TWO+R0(15)+R0(20)+R0(25)*TWO)
     * *XXZZ
      F(6,5,3,4)= -R7(27,1)+R6(20,1)+R6(20,3)*TWO-R5(14,1)*TWO-R5(14,3)
     * -R5(14,4)*THREE-R5(14,11)+R4(9,3)+R4(9,4)+R4(9,5)*TWO
     * +R4(9,18)*TWO+R4(9,22)-R3(5,15)-R3(5,19)*THREE-R3(5,23)*TWO
     * +R2(4,9)+R2(4,13)+R2(4,17)*TWO+(-R6(27,5)+R5(20,8)*TWO+R5(20,10)
     * -R4(14,7)*TWO-R4(14,11)-R4(14,13)*THREE-R4(14,27)+R3(9,6)+R3(9,8)
     * +R3(9,10)*TWO+R3(9,32)*TWO+R3(9,36)-R2(6,26)-R2(6,30)*THREE
     * -R2(6,34)*TWO+R1(2,10)+R1(2,14)+R1(2,18)*TWO)*QX+(-R6(20,4)
     * -R6(20,5)+R5(14,7)*TWO+R5(14,8)*TWO+R5(14,9)+R5(14,10)
     * -R4(9,6)*TWO-R4(9,7)*TWO-R4(9,10)-R4(9,11)-R4(9,12)*THREE
     * -R4(9,13)*THREE+R3(5,5)+R3(5,6)+R3(5,7)+R3(5,8)+R3(5,9)*TWO
     * +R3(5,10)*TWO)*QZ+(-R5(20,13)-R5(20,14)+R4(14,20)*TWO
     * +R4(14,21)*TWO+R4(14,24)+R4(14,25)-R3(9,17)-R3(9,18)
     * -R3(9,21)*THREE-R3(9,22)*THREE-R3(9,25)*TWO-R3(9,26)*TWO+R2(6,11)
     * +R2(6,12)+R2(6,15)+R2(6,16)+R2(6,19)*TWO+R2(6,20)*TWO)*XZ+(
     * -R5(14,13)+R4(9,20)*TWO+R4(9,24)-R3(5,17)-R3(5,21)*THREE
     * -R3(5,25)*TWO+R2(4,11)+R2(4,15)+R2(4,19)*TWO)*ZZ+(-R4(14,29)
     * +R3(9,34)*TWO+R3(9,38)-R2(6,28)-R2(6,32)*THREE-R2(6,36)*TWO
     * +R1(2,12)+R1(2,16)+R1(2,20)*TWO)*XZZ
      F(1,6,3,4)= -R7(20,1)+R6(14,1)+R6(14,3)*TWO-R5(9,1)*TWO-R5(9,3)
     * -R5(9,4)*THREE-R5(20,11)+R4(5,3)+R4(5,4)+R4(5,5)*TWO
     * +R4(14,18)*TWO+R4(14,22)-R3(9,15)-R3(9,19)*THREE-R3(9,23)*TWO
     * +R2(6,9)+R2(6,13)+R2(6,17)*TWO+(-R6(20,4)*TWO+R5(14,7)*FOUR
     * +R5(14,9)*TWO-R4(9,6)*FOUR-R4(9,10)*TWO-R4(9,12)*SIX+R3(5,5)*TWO
     * +R3(5,7)*TWO+R3(5,9)*FOUR)*QX+(-R6(14,5)+R5(9,8)*TWO+R5(9,10)
     * -R4(5,7)*TWO-R4(5,11)-R4(5,13)*THREE-R4(14,27)+R3(2,6)+R3(2,8)
     * +R3(2,10)*TWO+R3(9,32)*TWO+R3(9,36)-R2(6,26)-R2(6,30)*THREE
     * -R2(6,34)*TWO+R1(2,10)+R1(2,14)+R1(2,18)*TWO)*QZ+(-R5(20,12)
     * +R4(14,19)*TWO+R4(14,23)-R3(9,16)-R3(9,20)*THREE-R3(9,24)*TWO
     * +R2(6,10)+R2(6,14)+R2(6,18)*TWO)*XX+(-R5(14,13)*TWO+R4(9,20)*FOUR
     * +R4(9,24)*TWO-R3(5,17)*TWO-R3(5,21)*SIX-R3(5,25)*FOUR
     * +R2(4,11)*TWO+R2(4,15)*TWO+R2(4,19)*FOUR)*XZ+(-R4(14,28)
     * +R3(9,33)*TWO+R3(9,37)-R2(6,27)-R2(6,31)*THREE-R2(6,35)*TWO
     * +R1(2,11)+R1(2,15)+R1(2,19)*TWO)*XXZ
      F(2,6,3,4)= -R7(33,1)+R6(25,1)+R6(25,3)*TWO-R5(18,1)*TWO-R5(18,3)
     * -R5(18,4)*THREE-R5(20,11)*THREE+R4(12,3)+R4(12,4)+R4(12,5)*TWO
     * +R4(14,18)*SIX+R4(14,22)*THREE-R3(9,15)*THREE-R3(9,19)*NINE
     * -R3(9,23)*SIX+R2(6,9)*THREE+R2(6,13)*THREE+R2(6,17)*SIX+(
     * -R6(25,5)+R5(18,8)*TWO+R5(18,10)-R4(12,7)*TWO-R4(12,11)
     * -R4(12,13)*THREE-R4(14,27)*THREE+R3(7,6)+R3(7,8)+R3(7,10)*TWO
     * +R3(9,32)*SIX+R3(9,36)*THREE-R2(6,26)*THREE-R2(6,30)*NINE
     * -R2(6,34)*SIX+R1(2,10)*THREE+R1(2,14)*THREE+R1(2,18)*SIX)*QZ
      F(3,6,3,4)= -R7(35,1)+R6(27,1)+R6(27,3)*TWO-R5(20,1)*TWO-R5(20,3)
     * -R5(20,4)*THREE-R5(20,11)*THREE+R4(14,3)+R4(14,4)+R4(14,5)*TWO
     * +R4(14,18)*SIX+R4(14,22)*THREE-R3(9,15)*THREE-R3(9,19)*NINE
     * -R3(9,23)*SIX+R2(6,9)*THREE+R2(6,13)*THREE+R2(6,17)*SIX+(
     * -R6(27,4)*TWO-R6(27,5)+R5(20,7)*FOUR+R5(20,8)*TWO+R5(20,9)*TWO
     * +R5(20,10)-R4(14,6)*FOUR-R4(14,7)*TWO-R4(14,10)*TWO-R4(14,11)
     * -R4(14,12)*SIX-R4(14,13)*THREE-R4(14,26)*TWO-R4(14,27)
     * +R3(9,5)*TWO+R3(9,6)+R3(9,7)*TWO+R3(9,8)+R3(9,9)*FOUR
     * +R3(9,10)*TWO+R3(9,31)*FOUR+R3(9,32)*TWO+R3(9,35)*TWO+R3(9,36)
     * -R2(6,25)*TWO-R2(6,26)-R2(6,29)*SIX-R2(6,30)*THREE-R2(6,33)*FOUR
     * -R2(6,34)*TWO+R1(2,9)*TWO+R1(2,10)+R1(2,13)*TWO+R1(2,14)
     * +R1(2,17)*FOUR+R1(2,18)*TWO)*QZ+(-R5(20,12)-R5(20,13)*TWO
     * +R4(14,19)*TWO+R4(14,20)*FOUR+R4(14,23)+R4(14,24)*TWO-R3(9,16)
     * -R3(9,17)*TWO-R3(9,20)*THREE-R3(9,21)*SIX-R3(9,24)*TWO
     * -R3(9,25)*FOUR+R2(6,10)+R2(6,11)*TWO+R2(6,14)+R2(6,15)*TWO
     * +R2(6,18)*TWO+R2(6,19)*FOUR)*ZZ+(-R4(14,28)+R3(9,33)*TWO+R3(9,37)
     * -R2(6,27)-R2(6,31)*THREE-R2(6,35)*TWO+R1(2,11)+R1(2,15)
     * +R1(2,19)*TWO)*ZZZ
      F(4,6,3,4)= -R7(26,1)+R6(19,1)+R6(19,3)*TWO-R5(13,1)*TWO-R5(13,3)
     * -R5(13,4)*THREE-R5(15,11)+R4(8,3)+R4(8,4)+R4(8,5)*TWO
     * +R4(10,18)*TWO+R4(10,22)-R3(6,15)-R3(6,19)*THREE-R3(6,23)*TWO
     * +R2(5,9)+R2(5,13)+R2(5,17)*TWO+(-R6(26,4)+R5(19,7)*TWO+R5(19,9)
     * -R4(13,6)*TWO-R4(13,10)-R4(13,12)*THREE-R4(15,26)+R3(8,5)+R3(8,7)
     * +R3(8,9)*TWO+R3(10,31)*TWO+R3(10,35)-R2(3,25)-R2(3,29)*THREE
     * -R2(3,33)*TWO+R1(3,9)+R1(3,13)+R1(3,17)*TWO)*QX+(-R6(19,5)
     * +R5(13,8)*TWO+R5(13,10)-R4(8,7)*TWO-R4(8,11)-R4(8,13)*THREE
     * -R4(10,27)+R3(4,6)+R3(4,8)+R3(4,10)*TWO+R3(6,32)*TWO+R3(6,36)
     * -R2(5,26)-R2(5,30)*THREE-R2(5,34)*TWO+R1(1,10)+R1(1,14)
     * +R1(1,18)*TWO)*QZ+(-R5(19,13)+R4(13,20)*TWO+R4(13,24)-R3(8,17)
     * -R3(8,21)*THREE-R3(8,25)*TWO-R3(10,41)+R2(2,11)+R2(2,15)
     * +R2(2,19)*TWO+R2(3,44)*TWO+R2(3,49)-R1(3,28)-R1(3,33)*THREE
     * -R1(3,38)*TWO+R0(13)+R0(18)+R0(23)*TWO)*XZ
      F(5,6,3,4)= -R7(27,1)+R6(20,1)+R6(20,3)*TWO-R5(14,1)*TWO-R5(14,3)
     * -R5(14,4)*THREE-R5(14,11)+R4(9,3)+R4(9,4)+R4(9,5)*TWO
     * +R4(9,18)*TWO+R4(9,22)-R3(5,15)-R3(5,19)*THREE-R3(5,23)*TWO
     * +R2(4,9)+R2(4,13)+R2(4,17)*TWO+(-R6(27,4)+R5(20,7)*TWO+R5(20,9)
     * -R4(14,6)*TWO-R4(14,10)-R4(14,12)*THREE-R4(14,26)+R3(9,5)+R3(9,7)
     * +R3(9,9)*TWO+R3(9,31)*TWO+R3(9,35)-R2(6,25)-R2(6,29)*THREE
     * -R2(6,33)*TWO+R1(2,9)+R1(2,13)+R1(2,17)*TWO)*QX+(-R6(20,4)
     * -R6(20,5)+R5(14,7)*TWO+R5(14,8)*TWO+R5(14,9)+R5(14,10)
     * -R4(9,6)*TWO-R4(9,7)*TWO-R4(9,10)-R4(9,11)-R4(9,12)*THREE
     * -R4(9,13)*THREE+R3(5,5)+R3(5,6)+R3(5,7)+R3(5,8)+R3(5,9)*TWO
     * +R3(5,10)*TWO)*QZ+(-R5(20,12)-R5(20,13)+R4(14,19)*TWO
     * +R4(14,20)*TWO+R4(14,23)+R4(14,24)-R3(9,16)-R3(9,17)
     * -R3(9,20)*THREE-R3(9,21)*THREE-R3(9,24)*TWO-R3(9,25)*TWO+R2(6,10)
     * +R2(6,11)+R2(6,14)+R2(6,15)+R2(6,18)*TWO+R2(6,19)*TWO)*XZ+(
     * -R5(14,13)+R4(9,20)*TWO+R4(9,24)-R3(5,17)-R3(5,21)*THREE
     * -R3(5,25)*TWO+R2(4,11)+R2(4,15)+R2(4,19)*TWO)*ZZ+(-R4(14,28)
     * +R3(9,33)*TWO+R3(9,37)-R2(6,27)-R2(6,31)*THREE-R2(6,35)*TWO
     * +R1(2,11)+R1(2,15)+R1(2,19)*TWO)*XZZ
      F(6,6,3,4)= -R7(34,1)+R6(26,1)+R6(26,3)*TWO-R5(19,1)*TWO-R5(19,3)
     * -R5(19,4)*THREE-R5(19,11)-R5(21,11)+R4(13,3)+R4(13,4)
     * +R4(13,5)*TWO+R4(13,18)*TWO+R4(15,18)*TWO+R4(13,22)+R4(15,22)
     * -R3(8,15)-R3(10,15)-R3(8,19)*THREE-R3(10,19)*THREE-R3(8,23)*TWO
     * -R3(10,23)*TWO-R3(10,39)+R2(2,9)+R2(3,9)+R2(2,13)+R2(3,13)
     * +R2(2,17)*TWO+R2(3,17)*TWO+R2(3,42)*TWO+R2(3,47)-R1(3,26)
     * -R1(3,31)*THREE-R1(3,36)*TWO+R0(11)+R0(16)+R0(21)*TWO+(-R6(26,4)
     * -R6(26,5)+R5(19,7)*TWO+R5(19,8)*TWO+R5(19,9)+R5(19,10)
     * -R4(13,6)*TWO-R4(13,7)*TWO-R4(13,10)-R4(13,11)-R4(13,12)*THREE
     * -R4(13,13)*THREE-R4(15,26)-R4(15,27)+R3(8,5)+R3(8,6)+R3(8,7)
     * +R3(8,8)+R3(8,9)*TWO+R3(8,10)*TWO+R3(10,31)*TWO+R3(10,32)*TWO
     * +R3(10,35)+R3(10,36)-R2(3,25)-R2(3,26)-R2(3,29)*THREE
     * -R2(3,30)*THREE-R2(3,33)*TWO-R2(3,34)*TWO+R1(3,9)+R1(3,10)
     * +R1(3,13)+R1(3,14)+R1(3,17)*TWO+R1(3,18)*TWO)*QZ+(-R5(19,13)
     * +R4(13,20)*TWO+R4(13,24)-R3(8,17)-R3(8,21)*THREE-R3(8,25)*TWO
     * -R3(10,41)+R2(2,11)+R2(2,15)+R2(2,19)*TWO+R2(3,44)*TWO+R2(3,49)
     * -R1(3,28)-R1(3,33)*THREE-R1(3,38)*TWO+R0(13)+R0(18)+R0(23)*TWO)
     * *ZZ
      F(1,1,4,4)= -R7(5,1)+R6(2,1)-R5(5,11)*SIX+R4(2,22)*SIX
     * -R3(5,39)*THREE+R2(4,47)*THREE+(-R6(5,4)*TWO-R6(5,5)*TWO
     * +R5(2,9)*TWO+R5(2,10)*TWO-R4(5,26)*SIX-R4(5,27)*SIX+R3(2,35)*SIX
     * +R3(2,36)*SIX)*QX+(-R5(5,12)-R5(5,13)*FOUR-R5(5,14)+R4(2,23)
     * +R4(2,24)*FOUR+R4(2,25)-R3(5,40)-R3(5,41)*FOUR-R3(5,42)+R2(4,48)
     * +R2(4,49)*FOUR+R2(4,50))*XX+(-R4(5,28)*TWO-R4(5,29)*TWO
     * +R3(2,37)*TWO+R3(2,38)*TWO)*XXX+(-R3(5,43)+R2(4,51))*XXXX
      F(2,1,4,4)= -R7(12,1)+R6(7,1)-R5(5,11)-R5(12,11)+R4(2,22)+R4(7,22)
     * -R3(5,39)+R2(4,47)+(-R6(12,5)*TWO+R5(7,10)*TWO-R4(5,27)*TWO
     * +R3(2,36)*TWO)*QX+(-R5(12,14)+R4(7,25)-R3(5,42)+R2(4,50))*XX
      F(3,1,4,4)= -R7(14,1)+R6(9,1)-R5(5,11)-R5(14,11)+R4(2,22)+R4(9,22)
     * -R3(5,39)+R2(4,47)+(-R6(14,5)*TWO+R5(9,10)*TWO-R4(5,27)*TWO
     * +R3(2,36)*TWO)*QX+(-R6(9,4)*TWO+R5(5,9)*TWO-R4(9,26)*TWO
     * +R3(5,35)*TWO)*QZ+(-R5(14,14)+R4(9,25)-R3(5,42)+R2(4,50))*XX+(
     * -R5(9,13)*FOUR+R4(5,24)*FOUR)*XZ+(-R5(5,12)+R4(2,23)-R3(5,40)
     * +R2(4,48))*ZZ+(-R4(9,29)*TWO+R3(5,38)*TWO)*XXZ+(-R4(5,28)*TWO
     * +R3(2,37)*TWO)*XZZ+(-R3(5,43)+R2(4,51))*XXZZ
      F(4,1,4,4)= -R7(8,1)+R6(4,1)-R5(8,11)*THREE+R4(4,22)*THREE+(
     * -R6(8,4)-R6(8,5)*TWO+R5(4,9)+R5(4,10)*TWO-R4(8,26)-R4(8,27)*TWO
     * +R3(4,35)+R3(4,36)*TWO)*QX+(-R5(8,13)*TWO-R5(8,14)+R4(4,24)*TWO
     * +R4(4,25))*XX+(-R4(8,29)+R3(4,38))*XXX
      F(5,1,4,4)= -R7(9,1)+R6(5,1)-R5(9,11)*THREE+R4(5,22)*THREE+(
     * -R6(9,4)-R6(9,5)*TWO+R5(5,9)+R5(5,10)*TWO-R4(9,26)-R4(9,27)*TWO
     * +R3(5,35)+R3(5,36)*TWO)*QX+(-R6(5,4)+R5(2,9)-R4(5,26)*THREE
     * +R3(2,35)*THREE)*QZ+(-R5(9,13)*TWO-R5(9,14)+R4(5,24)*TWO+R4(5,25)
     * )*XX+(-R5(5,12)-R5(5,13)*TWO+R4(2,23)+R4(2,24)*TWO-R3(5,40)
     * -R3(5,41)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(-R4(9,29)+R3(5,38))*XXX
     * +(-R4(5,28)*TWO-R4(5,29)+R3(2,37)*TWO+R3(2,38))*XXZ+(-R3(5,43)
     * +R2(4,51))*XXXZ
      F(6,1,4,4)= -R7(13,1)+R6(8,1)-R5(13,11)+R4(8,22)+(-R6(13,5)*TWO
     * +R5(8,10)*TWO)*QX+(-R6(8,4)+R5(4,9)-R4(8,26)+R3(4,35))*QZ+(
     * -R5(13,14)+R4(8,25))*XX+(-R5(8,13)*TWO+R4(4,24)*TWO)*XZ+(
     * -R4(8,29)+R3(4,38))*XXZ
      F(1,2,4,4)= -R7(12,1)+R6(7,1)-R5(5,11)-R5(12,11)+R4(2,22)+R4(7,22)
     * -R3(5,39)+R2(4,47)+(-R6(12,4)*TWO+R5(7,9)*TWO-R4(5,26)*TWO
     * +R3(2,35)*TWO)*QX+(-R5(12,12)+R4(7,23)-R3(5,40)+R2(4,48))*XX
      F(2,2,4,4)= -R7(23,1)+R6(16,1)-R5(12,11)*SIX+R4(7,22)*SIX
     * -R3(5,39)*THREE+R2(4,47)*THREE
      F(3,2,4,4)= -R7(25,1)+R6(18,1)-R5(12,11)-R5(14,11)+R4(7,22)
     * +R4(9,22)-R3(5,39)+R2(4,47)+(-R6(18,4)*TWO+R5(12,9)*TWO
     * -R4(9,26)*TWO+R3(5,35)*TWO)*QZ+(-R5(12,12)+R4(7,23)-R3(5,40)
     * +R2(4,48))*ZZ
      F(4,2,4,4)= -R7(17,1)+R6(11,1)-R5(8,11)*THREE+R4(4,22)*THREE+(
     * -R6(17,4)+R5(11,9)-R4(8,26)*THREE+R3(4,35)*THREE)*QX
      F(5,2,4,4)= -R7(18,1)+R6(12,1)-R5(9,11)+R4(5,22)+(-R6(18,4)
     * +R5(12,9)-R4(9,26)+R3(5,35))*QX+(-R6(12,4)+R5(7,9)-R4(5,26)
     * +R3(2,35))*QZ+(-R5(12,12)+R4(7,23)-R3(5,40)+R2(4,48))*XZ
      F(6,2,4,4)= -R7(24,1)+R6(17,1)-R5(13,11)*THREE+R4(8,22)*THREE+(
     * -R6(17,4)+R5(11,9)-R4(8,26)*THREE+R3(4,35)*THREE)*QZ
      F(1,3,4,4)= -R7(14,1)+R6(9,1)-R5(5,11)-R5(14,11)+R4(2,22)+R4(9,22)
     * -R3(5,39)+R2(4,47)+(-R6(14,4)*TWO+R5(9,9)*TWO-R4(5,26)*TWO
     * +R3(2,35)*TWO)*QX+(-R6(9,5)*TWO+R5(5,10)*TWO-R4(9,27)*TWO
     * +R3(5,36)*TWO)*QZ+(-R5(14,12)+R4(9,23)-R3(5,40)+R2(4,48))*XX+(
     * -R5(9,13)*FOUR+R4(5,24)*FOUR)*XZ+(-R5(5,14)+R4(2,25)-R3(5,42)
     * +R2(4,50))*ZZ+(-R4(9,28)*TWO+R3(5,37)*TWO)*XXZ+(-R4(5,29)*TWO
     * +R3(2,38)*TWO)*XZZ+(-R3(5,43)+R2(4,51))*XXZZ
      F(2,3,4,4)= -R7(25,1)+R6(18,1)-R5(12,11)-R5(14,11)+R4(7,22)
     * +R4(9,22)-R3(5,39)+R2(4,47)+(-R6(18,5)*TWO+R5(12,10)*TWO
     * -R4(9,27)*TWO+R3(5,36)*TWO)*QZ+(-R5(12,14)+R4(7,25)-R3(5,42)
     * +R2(4,50))*ZZ
      F(3,3,4,4)= -R7(27,1)+R6(20,1)-R5(14,11)*SIX+R4(9,22)*SIX
     * -R3(5,39)*THREE+R2(4,47)*THREE+(-R6(20,4)*TWO-R6(20,5)*TWO
     * +R5(14,9)*TWO+R5(14,10)*TWO-R4(9,26)*SIX-R4(9,27)*SIX
     * +R3(5,35)*SIX+R3(5,36)*SIX)*QZ+(-R5(14,12)-R5(14,13)*FOUR
     * -R5(14,14)+R4(9,23)+R4(9,24)*FOUR+R4(9,25)-R3(5,40)-R3(5,41)*FOUR
     * -R3(5,42)+R2(4,48)+R2(4,49)*FOUR+R2(4,50))*ZZ+(-R4(9,28)*TWO
     * -R4(9,29)*TWO+R3(5,37)*TWO+R3(5,38)*TWO)*ZZZ+(-R3(5,43)+R2(4,51))
     * *ZZZZ
      F(4,3,4,4)= -R7(19,1)+R6(13,1)-R5(8,11)+R4(4,22)+(-R6(19,4)
     * +R5(13,9)-R4(8,26)+R3(4,35))*QX+(-R6(13,5)*TWO+R5(8,10)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,24)*TWO)*XZ+(-R5(8,14)+R4(4,25))*ZZ+(
     * -R4(8,29)+R3(4,38))*XZZ
      F(5,3,4,4)= -R7(20,1)+R6(14,1)-R5(9,11)*THREE+R4(5,22)*THREE+(
     * -R6(20,4)+R5(14,9)-R4(9,26)*THREE+R3(5,35)*THREE)*QX+(-R6(14,4)
     * -R6(14,5)*TWO+R5(9,9)+R5(9,10)*TWO-R4(5,26)-R4(5,27)*TWO+R3(2,35)
     * +R3(2,36)*TWO)*QZ+(-R5(14,12)-R5(14,13)*TWO+R4(9,23)+R4(9,24)*TWO
     * -R3(5,40)-R3(5,41)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,24)*TWO+R4(5,25))*ZZ+(-R4(9,28)*TWO-R4(9,29)
     * +R3(5,37)*TWO+R3(5,38))*XZZ+(-R4(5,29)+R3(2,38))*ZZZ+(-R3(5,43)
     * +R2(4,51))*XZZZ
      F(6,3,4,4)= -R7(26,1)+R6(19,1)-R5(13,11)*THREE+R4(8,22)*THREE+(
     * -R6(19,4)-R6(19,5)*TWO+R5(13,9)+R5(13,10)*TWO-R4(8,26)
     * -R4(8,27)*TWO+R3(4,35)+R3(4,36)*TWO)*QZ+(-R5(13,13)*TWO-R5(13,14)
     * +R4(8,24)*TWO+R4(8,25))*ZZ+(-R4(8,29)+R3(4,38))*ZZZ
      F(1,4,4,4)= -R7(8,1)+R6(4,1)-R5(8,11)*THREE+R4(4,22)*THREE+(
     * -R6(8,4)*TWO-R6(8,5)+R5(4,9)*TWO+R5(4,10)-R4(8,26)*TWO-R4(8,27)
     * +R3(4,35)*TWO+R3(4,36))*QX+(-R5(8,12)-R5(8,13)*TWO+R4(4,23)
     * +R4(4,24)*TWO)*XX+(-R4(8,28)+R3(4,37))*XXX
      F(2,4,4,4)= -R7(17,1)+R6(11,1)-R5(8,11)*THREE+R4(4,22)*THREE+(
     * -R6(17,5)+R5(11,10)-R4(8,27)*THREE+R3(4,36)*THREE)*QX
      F(3,4,4,4)= -R7(19,1)+R6(13,1)-R5(8,11)+R4(4,22)+(-R6(19,5)
     * +R5(13,10)-R4(8,27)+R3(4,36))*QX+(-R6(13,4)*TWO+R5(8,9)*TWO)*QZ+(
     * -R5(13,13)*TWO+R4(8,24)*TWO)*XZ+(-R5(8,12)+R4(4,23))*ZZ+(
     * -R4(8,28)+R3(4,37))*XZZ
      RETURN
      END
C
C*MODULE INT2U   *DECK MCDV20G
      SUBROUTINE MCDV20G(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(4,4,4,4)= -R7(12,1)+R6(7,1)-R5(5,11)-R5(12,11)+R4(2,22)+R4(7,22)
     * -R3(5,39)+R2(4,47)+(-R6(12,4)-R6(12,5)+R5(7,9)+R5(7,10)-R4(5,26)
     * -R4(5,27)+R3(2,35)+R3(2,36))*QX+(-R5(12,13)+R4(7,24)-R3(5,41)
     * +R2(4,49))*XX
      F(5,4,4,4)= -R7(13,1)+R6(8,1)-R5(13,11)+R4(8,22)+(-R6(13,4)
     * -R6(13,5)+R5(8,9)+R5(8,10))*QX+(-R6(8,4)+R5(4,9)-R4(8,26)
     * +R3(4,35))*QZ+(-R5(13,13)+R4(8,24))*XX+(-R5(8,12)-R5(8,13)
     * +R4(4,23)+R4(4,24))*XZ+(-R4(8,28)+R3(4,37))*XXZ
      F(6,4,4,4)= -R7(18,1)+R6(12,1)-R5(9,11)+R4(5,22)+(-R6(18,5)
     * +R5(12,10)-R4(9,27)+R3(5,36))*QX+(-R6(12,4)+R5(7,9)-R4(5,26)
     * +R3(2,35))*QZ+(-R5(12,13)+R4(7,24)-R3(5,41)+R2(4,49))*XZ
      F(1,5,4,4)= -R7(9,1)+R6(5,1)-R5(9,11)*THREE+R4(5,22)*THREE+(
     * -R6(9,4)*TWO-R6(9,5)+R5(5,9)*TWO+R5(5,10)-R4(9,26)*TWO-R4(9,27)
     * +R3(5,35)*TWO+R3(5,36))*QX+(-R6(5,5)+R5(2,10)-R4(5,27)*THREE
     * +R3(2,36)*THREE)*QZ+(-R5(9,12)-R5(9,13)*TWO+R4(5,23)+R4(5,24)*TWO
     * )*XX+(-R5(5,13)*TWO-R5(5,14)+R4(2,24)*TWO+R4(2,25)-R3(5,41)*TWO
     * -R3(5,42)+R2(4,49)*TWO+R2(4,50))*XZ+(-R4(9,28)+R3(5,37))*XXX+(
     * -R4(5,28)-R4(5,29)*TWO+R3(2,37)+R3(2,38)*TWO)*XXZ+(-R3(5,43)
     * +R2(4,51))*XXXZ
      F(2,5,4,4)= -R7(18,1)+R6(12,1)-R5(9,11)+R4(5,22)+(-R6(18,5)
     * +R5(12,10)-R4(9,27)+R3(5,36))*QX+(-R6(12,5)+R5(7,10)-R4(5,27)
     * +R3(2,36))*QZ+(-R5(12,14)+R4(7,25)-R3(5,42)+R2(4,50))*XZ
      F(3,5,4,4)= -R7(20,1)+R6(14,1)-R5(9,11)*THREE+R4(5,22)*THREE+(
     * -R6(20,5)+R5(14,10)-R4(9,27)*THREE+R3(5,36)*THREE)*QX+(
     * -R6(14,4)*TWO-R6(14,5)+R5(9,9)*TWO+R5(9,10)-R4(5,26)*TWO-R4(5,27)
     * +R3(2,35)*TWO+R3(2,36))*QZ+(-R5(14,13)*TWO-R5(14,14)+R4(9,24)*TWO
     * +R4(9,25)-R3(5,41)*TWO-R3(5,42)+R2(4,49)*TWO+R2(4,50))*XZ+(
     * -R5(9,12)-R5(9,13)*TWO+R4(5,23)+R4(5,24)*TWO)*ZZ+(-R4(9,28)
     * -R4(9,29)*TWO+R3(5,37)+R3(5,38)*TWO)*XZZ+(-R4(5,28)+R3(2,37))*ZZZ
     * +(-R3(5,43)+R2(4,51))*XZZZ
      F(4,5,4,4)= -R7(13,1)+R6(8,1)-R5(13,11)+R4(8,22)+(-R6(13,4)
     * -R6(13,5)+R5(8,9)+R5(8,10))*QX+(-R6(8,5)+R5(4,10)-R4(8,27)
     * +R3(4,36))*QZ+(-R5(13,13)+R4(8,24))*XX+(-R5(8,13)-R5(8,14)
     * +R4(4,24)+R4(4,25))*XZ+(-R4(8,29)+R3(4,38))*XXZ
      F(5,5,4,4)= -R7(14,1)+R6(9,1)-R5(5,11)-R5(14,11)+R4(2,22)+R4(9,22)
     * -R3(5,39)+R2(4,47)+(-R6(14,4)-R6(14,5)+R5(9,9)+R5(9,10)-R4(5,26)
     * -R4(5,27)+R3(2,35)+R3(2,36))*QX+(-R6(9,4)-R6(9,5)+R5(5,9)
     * +R5(5,10)-R4(9,26)-R4(9,27)+R3(5,35)+R3(5,36))*QZ+(-R5(14,13)
     * +R4(9,24)-R3(5,41)+R2(4,49))*XX+(-R5(9,12)-R5(9,13)*TWO-R5(9,14)
     * +R4(5,23)+R4(5,24)*TWO+R4(5,25))*XZ+(-R5(5,13)+R4(2,24)-R3(5,41)
     * +R2(4,49))*ZZ+(-R4(9,28)-R4(9,29)+R3(5,37)+R3(5,38))*XXZ+(
     * -R4(5,28)-R4(5,29)+R3(2,37)+R3(2,38))*XZZ+(-R3(5,43)+R2(4,51))
     * *XXZZ
      F(6,5,4,4)= -R7(19,1)+R6(13,1)-R5(8,11)+R4(4,22)+(-R6(19,5)
     * +R5(13,10)-R4(8,27)+R3(4,36))*QX+(-R6(13,4)-R6(13,5)+R5(8,9)
     * +R5(8,10))*QZ+(-R5(13,13)-R5(13,14)+R4(8,24)+R4(8,25))*XZ+(
     * -R5(8,13)+R4(4,24))*ZZ+(-R4(8,29)+R3(4,38))*XZZ
      F(1,6,4,4)= -R7(13,1)+R6(8,1)-R5(13,11)+R4(8,22)+(-R6(13,4)*TWO
     * +R5(8,9)*TWO)*QX+(-R6(8,5)+R5(4,10)-R4(8,27)+R3(4,36))*QZ+(
     * -R5(13,12)+R4(8,23))*XX+(-R5(8,13)*TWO+R4(4,24)*TWO)*XZ+(
     * -R4(8,28)+R3(4,37))*XXZ
      F(2,6,4,4)= -R7(24,1)+R6(17,1)-R5(13,11)*THREE+R4(8,22)*THREE+(
     * -R6(17,5)+R5(11,10)-R4(8,27)*THREE+R3(4,36)*THREE)*QZ
      F(3,6,4,4)= -R7(26,1)+R6(19,1)-R5(13,11)*THREE+R4(8,22)*THREE+(
     * -R6(19,4)*TWO-R6(19,5)+R5(13,9)*TWO+R5(13,10)-R4(8,26)*TWO
     * -R4(8,27)+R3(4,35)*TWO+R3(4,36))*QZ+(-R5(13,12)-R5(13,13)*TWO
     * +R4(8,23)+R4(8,24)*TWO)*ZZ+(-R4(8,28)+R3(4,37))*ZZZ
      F(4,6,4,4)= -R7(18,1)+R6(12,1)-R5(9,11)+R4(5,22)+(-R6(18,4)
     * +R5(12,9)-R4(9,26)+R3(5,35))*QX+(-R6(12,5)+R5(7,10)-R4(5,27)
     * +R3(2,36))*QZ+(-R5(12,13)+R4(7,24)-R3(5,41)+R2(4,49))*XZ
      F(5,6,4,4)= -R7(19,1)+R6(13,1)-R5(8,11)+R4(4,22)+(-R6(19,4)
     * +R5(13,9)-R4(8,26)+R3(4,35))*QX+(-R6(13,4)-R6(13,5)+R5(8,9)
     * +R5(8,10))*QZ+(-R5(13,12)-R5(13,13)+R4(8,23)+R4(8,24))*XZ+(
     * -R5(8,13)+R4(4,24))*ZZ+(-R4(8,28)+R3(4,37))*XZZ
      F(6,6,4,4)= -R7(25,1)+R6(18,1)-R5(12,11)-R5(14,11)+R4(7,22)
     * +R4(9,22)-R3(5,39)+R2(4,47)+(-R6(18,4)-R6(18,5)+R5(12,9)
     * +R5(12,10)-R4(9,26)-R4(9,27)+R3(5,35)+R3(5,36))*QZ+(-R5(12,13)
     * +R4(7,24)-R3(5,41)+R2(4,49))*ZZ
      F(1,1,5,4)= -R7(6,1)+R6(3,1)+R6(3,3)-R5(1,1)-R5(1,4)-R5(6,11)*SIX
     * +R4(3,18)*SIX+R4(3,22)*SIX-R3(1,19)*SIX-R3(1,23)*SIX
     * -R3(6,39)*THREE+R2(5,42)*THREE+R2(5,47)*THREE-R1(1,31)*THREE
     * -R1(1,36)*THREE+(-R6(6,4)*TWO-R6(6,5)*TWO+R5(3,7)*TWO+R5(3,8)*TWO
     * +R5(3,9)*TWO+R5(3,10)*TWO-R4(1,6)*TWO-R4(1,7)*TWO-R4(1,12)*TWO
     * -R4(1,13)*TWO-R4(6,26)*SIX-R4(6,27)*SIX+R3(3,31)*SIX+R3(3,32)*SIX
     * +R3(3,35)*SIX+R3(3,36)*SIX-R2(1,29)*SIX-R2(1,30)*SIX-R2(1,33)*SIX
     * -R2(1,34)*SIX)*QX+(-R5(6,12)-R5(6,13)*FOUR-R5(6,14)+R4(3,19)
     * +R4(3,20)*FOUR+R4(3,21)+R4(3,23)+R4(3,24)*FOUR+R4(3,25)-R3(1,20)
     * -R3(1,21)*FOUR-R3(1,22)-R3(1,24)-R3(1,25)*FOUR-R3(1,26)-R3(6,40)
     * -R3(6,41)*FOUR-R3(6,42)+R2(5,43)+R2(5,44)*FOUR+R2(5,45)+R2(5,48)
     * +R2(5,49)*FOUR+R2(5,50)-R1(1,32)-R1(1,33)*FOUR-R1(1,34)-R1(1,37)
     * -R1(1,38)*FOUR-R1(1,39))*XX+(-R4(6,28)*TWO-R4(6,29)*TWO
     * +R3(3,33)*TWO+R3(3,34)*TWO+R3(3,37)*TWO+R3(3,38)*TWO-R2(1,31)*TWO
     * -R2(1,32)*TWO-R2(1,35)*TWO-R2(1,36)*TWO)*XXX+(-R3(6,43)+R2(5,46)
     * +R2(5,51)-R1(1,35)-R1(1,40))*XXXX
      F(2,1,5,4)= -R7(13,1)+R6(8,1)+R6(8,3)-R5(4,1)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)+R4(8,18)+R4(3,22)+R4(8,22)-R3(1,19)-R3(4,19)
     * -R3(1,23)-R3(4,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)-R1(1,36)+(
     * -R6(13,5)*TWO+R5(8,8)*TWO+R5(8,10)*TWO-R4(4,7)*TWO-R4(4,13)*TWO
     * -R4(6,27)*TWO+R3(3,32)*TWO+R3(3,36)*TWO-R2(1,30)*TWO-R2(1,34)*TWO
     * )*QX+(-R5(13,14)+R4(8,21)+R4(8,25)-R3(4,22)-R3(4,26)-R3(6,42)
     * +R2(5,45)+R2(5,50)-R1(1,34)-R1(1,39))*XX
      F(3,1,5,4)= -R7(15,1)+R6(10,1)+R6(10,3)-R5(6,1)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)+R4(10,18)+R4(3,22)+R4(10,22)-R3(1,19)
     * -R3(6,19)-R3(1,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)
     * -R1(1,36)+(-R6(15,5)*TWO+R5(10,8)*TWO+R5(10,10)*TWO-R4(6,7)*TWO
     * -R4(6,13)*TWO-R4(6,27)*TWO+R3(3,32)*TWO+R3(3,36)*TWO-R2(1,30)*TWO
     * -R2(1,34)*TWO)*QX+(-R6(10,4)*TWO+R5(6,7)*TWO+R5(6,9)*TWO
     * -R4(3,6)*TWO-R4(3,12)*TWO-R4(10,26)*TWO+R3(6,31)*TWO+R3(6,35)*TWO
     * -R2(5,29)*TWO-R2(5,33)*TWO)*QZ+(-R5(15,14)+R4(10,21)+R4(10,25)
     * -R3(6,22)-R3(6,26)-R3(6,42)+R2(5,45)+R2(5,50)-R1(1,34)-R1(1,39))
     * *XX+(-R5(10,13)*FOUR+R4(6,20)*FOUR+R4(6,24)*FOUR-R3(3,21)*FOUR
     * -R3(3,25)*FOUR)*XZ+(-R5(6,12)+R4(3,19)+R4(3,23)-R3(1,20)-R3(1,24)
     * -R3(6,40)+R2(5,43)+R2(5,48)-R1(1,32)-R1(1,37))*ZZ+(-R4(10,29)*TWO
     * +R3(6,34)*TWO+R3(6,38)*TWO-R2(5,32)*TWO-R2(5,36)*TWO)*XXZ+(
     * -R4(6,28)*TWO+R3(3,33)*TWO+R3(3,37)*TWO-R2(1,31)*TWO-R2(1,35)*TWO
     * )*XZZ+(-R3(6,43)+R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XXZZ
      F(4,1,5,4)= -R7(9,1)+R6(5,1)+R6(5,3)-R5(2,1)-R5(2,4)
     * -R5(9,11)*THREE+R4(5,18)*THREE+R4(5,22)*THREE-R3(2,19)*THREE
     * -R3(2,23)*THREE+(-R6(9,4)-R6(9,5)*TWO+R5(5,7)+R5(5,8)*TWO+R5(5,9)
     * +R5(5,10)*TWO-R4(2,6)-R4(2,7)*TWO-R4(2,12)-R4(2,13)*TWO-R4(9,26)
     * -R4(9,27)*TWO+R3(5,31)+R3(5,32)*TWO+R3(5,35)+R3(5,36)*TWO
     * -R2(4,29)-R2(4,30)*TWO-R2(4,33)-R2(4,34)*TWO)*QX+(-R5(9,13)*TWO
     * -R5(9,14)+R4(5,20)*TWO+R4(5,21)+R4(5,24)*TWO+R4(5,25)
     * -R3(2,21)*TWO-R3(2,22)-R3(2,25)*TWO-R3(2,26))*XX+(-R4(9,29)
     * +R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))*XXX
      F(5,1,5,4)= -R7(10,1)+R6(6,1)+R6(6,3)-R5(3,1)-R5(3,4)
     * -R5(10,11)*THREE+R4(6,18)*THREE+R4(6,22)*THREE-R3(3,19)*THREE
     * -R3(3,23)*THREE+(-R6(10,4)-R6(10,5)*TWO+R5(6,7)+R5(6,8)*TWO
     * +R5(6,9)+R5(6,10)*TWO-R4(3,6)-R4(3,7)*TWO-R4(3,12)-R4(3,13)*TWO
     * -R4(10,26)-R4(10,27)*TWO+R3(6,31)+R3(6,32)*TWO+R3(6,35)
     * +R3(6,36)*TWO-R2(5,29)-R2(5,30)*TWO-R2(5,33)-R2(5,34)*TWO)*QX+(
     * -R6(6,4)+R5(3,7)+R5(3,9)-R4(1,6)-R4(1,12)-R4(6,26)*THREE
     * +R3(3,31)*THREE+R3(3,35)*THREE-R2(1,29)*THREE-R2(1,33)*THREE)*QZ
     * +(-R5(10,13)*TWO-R5(10,14)+R4(6,20)*TWO+R4(6,21)+R4(6,24)*TWO
     * +R4(6,25)-R3(3,21)*TWO-R3(3,22)-R3(3,25)*TWO-R3(3,26))*XX+(
     * -R5(6,12)-R5(6,13)*TWO+R4(3,19)+R4(3,20)*TWO+R4(3,23)
     * +R4(3,24)*TWO-R3(1,20)-R3(1,21)*TWO-R3(1,24)-R3(1,25)*TWO
     * -R3(6,40)-R3(6,41)*TWO+R2(5,43)+R2(5,44)*TWO+R2(5,48)
     * +R2(5,49)*TWO-R1(1,32)-R1(1,33)*TWO-R1(1,37)-R1(1,38)*TWO)*XZ+(
     * -R4(10,29)+R3(6,34)+R3(6,38)-R2(5,32)-R2(5,36))*XXX+(
     * -R4(6,28)*TWO-R4(6,29)+R3(3,33)*TWO+R3(3,34)+R3(3,37)*TWO
     * +R3(3,38)-R2(1,31)*TWO-R2(1,32)-R2(1,35)*TWO-R2(1,36))*XXZ+(
     * -R3(6,43)+R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XXXZ
      F(6,1,5,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)-R5(14,11)
     * +R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(14,5)*TWO+R5(9,8)*TWO
     * +R5(9,10)*TWO-R4(5,7)*TWO-R4(5,13)*TWO)*QX+(-R6(9,4)+R5(5,7)
     * +R5(5,9)-R4(2,6)-R4(2,12)-R4(9,26)+R3(5,31)+R3(5,35)-R2(4,29)
     * -R2(4,33))*QZ+(-R5(14,14)+R4(9,21)+R4(9,25)-R3(5,22)-R3(5,26))*XX
     * +(-R5(9,13)*TWO+R4(5,20)*TWO+R4(5,24)*TWO-R3(2,21)*TWO
     * -R3(2,25)*TWO)*XZ+(-R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))
     * *XXZ
      F(1,2,5,4)= -R7(13,1)+R6(8,1)+R6(8,3)-R5(4,1)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)+R4(8,18)+R4(3,22)+R4(8,22)-R3(1,19)-R3(4,19)
     * -R3(1,23)-R3(4,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)-R1(1,36)+(
     * -R6(13,4)*TWO+R5(8,7)*TWO+R5(8,9)*TWO-R4(4,6)*TWO-R4(4,12)*TWO
     * -R4(6,26)*TWO+R3(3,31)*TWO+R3(3,35)*TWO-R2(1,29)*TWO-R2(1,33)*TWO
     * )*QX+(-R5(13,12)+R4(8,19)+R4(8,23)-R3(4,20)-R3(4,24)-R3(6,40)
     * +R2(5,43)+R2(5,48)-R1(1,32)-R1(1,37))*XX
      F(2,2,5,4)= -R7(24,1)+R6(17,1)+R6(17,3)-R5(11,1)-R5(11,4)
     * -R5(13,11)*SIX+R4(8,18)*SIX+R4(8,22)*SIX-R3(4,19)*SIX
     * -R3(4,23)*SIX-R3(6,39)*THREE+R2(5,42)*THREE+R2(5,47)*THREE
     * -R1(1,31)*THREE-R1(1,36)*THREE
      F(3,2,5,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)-R5(15,11)+R4(8,18)+R4(10,18)+R4(8,22)+R4(10,22)
     * -R3(4,19)-R3(6,19)-R3(4,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)
     * -R1(1,31)-R1(1,36)+(-R6(19,4)*TWO+R5(13,7)*TWO+R5(13,9)*TWO
     * -R4(8,6)*TWO-R4(8,12)*TWO-R4(10,26)*TWO+R3(6,31)*TWO+R3(6,35)*TWO
     * -R2(5,29)*TWO-R2(5,33)*TWO)*QZ+(-R5(13,12)+R4(8,19)+R4(8,23)
     * -R3(4,20)-R3(4,24)-R3(6,40)+R2(5,43)+R2(5,48)-R1(1,32)-R1(1,37))
     * *ZZ
      F(4,2,5,4)= -R7(18,1)+R6(12,1)+R6(12,3)-R5(7,1)-R5(7,4)
     * -R5(9,11)*THREE+R4(5,18)*THREE+R4(5,22)*THREE-R3(2,19)*THREE
     * -R3(2,23)*THREE+(-R6(18,4)+R5(12,7)+R5(12,9)-R4(7,6)-R4(7,12)
     * -R4(9,26)*THREE+R3(5,31)*THREE+R3(5,35)*THREE-R2(4,29)*THREE
     * -R2(4,33)*THREE)*QX
      F(5,2,5,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(10,11)
     * +R4(6,18)+R4(6,22)-R3(3,19)-R3(3,23)+(-R6(19,4)+R5(13,7)+R5(13,9)
     * -R4(8,6)-R4(8,12)-R4(10,26)+R3(6,31)+R3(6,35)-R2(5,29)-R2(5,33))
     * *QX+(-R6(13,4)+R5(8,7)+R5(8,9)-R4(4,6)-R4(4,12)-R4(6,26)+R3(3,31)
     * +R3(3,35)-R2(1,29)-R2(1,33))*QZ+(-R5(13,12)+R4(8,19)+R4(8,23)
     * -R3(4,20)-R3(4,24)-R3(6,40)+R2(5,43)+R2(5,48)-R1(1,32)-R1(1,37))
     * *XZ
      F(6,2,5,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(18,4)+R5(12,7)+R5(12,9)-R4(7,6)-R4(7,12)
     * -R4(9,26)*THREE+R3(5,31)*THREE+R3(5,35)*THREE-R2(4,29)*THREE
     * -R2(4,33)*THREE)*QZ
      F(1,3,5,4)= -R7(15,1)+R6(10,1)+R6(10,3)-R5(6,1)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)+R4(10,18)+R4(3,22)+R4(10,22)-R3(1,19)
     * -R3(6,19)-R3(1,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)
     * -R1(1,36)+(-R6(15,4)*TWO+R5(10,7)*TWO+R5(10,9)*TWO-R4(6,6)*TWO
     * -R4(6,12)*TWO-R4(6,26)*TWO+R3(3,31)*TWO+R3(3,35)*TWO-R2(1,29)*TWO
     * -R2(1,33)*TWO)*QX+(-R6(10,5)*TWO+R5(6,8)*TWO+R5(6,10)*TWO
     * -R4(3,7)*TWO-R4(3,13)*TWO-R4(10,27)*TWO+R3(6,32)*TWO+R3(6,36)*TWO
     * -R2(5,30)*TWO-R2(5,34)*TWO)*QZ+(-R5(15,12)+R4(10,19)+R4(10,23)
     * -R3(6,20)-R3(6,24)-R3(6,40)+R2(5,43)+R2(5,48)-R1(1,32)-R1(1,37))
     * *XX+(-R5(10,13)*FOUR+R4(6,20)*FOUR+R4(6,24)*FOUR-R3(3,21)*FOUR
     * -R3(3,25)*FOUR)*XZ+(-R5(6,14)+R4(3,21)+R4(3,25)-R3(1,22)-R3(1,26)
     * -R3(6,42)+R2(5,45)+R2(5,50)-R1(1,34)-R1(1,39))*ZZ+(-R4(10,28)*TWO
     * +R3(6,33)*TWO+R3(6,37)*TWO-R2(5,31)*TWO-R2(5,35)*TWO)*XXZ+(
     * -R4(6,29)*TWO+R3(3,34)*TWO+R3(3,38)*TWO-R2(1,32)*TWO-R2(1,36)*TWO
     * )*XZZ+(-R3(6,43)+R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XXZZ
      F(2,3,5,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)-R5(15,11)+R4(8,18)+R4(10,18)+R4(8,22)+R4(10,22)
     * -R3(4,19)-R3(6,19)-R3(4,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)
     * -R1(1,31)-R1(1,36)+(-R6(19,5)*TWO+R5(13,8)*TWO+R5(13,10)*TWO
     * -R4(8,7)*TWO-R4(8,13)*TWO-R4(10,27)*TWO+R3(6,32)*TWO+R3(6,36)*TWO
     * -R2(5,30)*TWO-R2(5,34)*TWO)*QZ+(-R5(13,14)+R4(8,21)+R4(8,25)
     * -R3(4,22)-R3(4,26)-R3(6,42)+R2(5,45)+R2(5,50)-R1(1,34)-R1(1,39))
     * *ZZ
      F(3,3,5,4)= -R7(28,1)+R6(21,1)+R6(21,3)-R5(15,1)-R5(15,4)
     * -R5(15,11)*SIX+R4(10,18)*SIX+R4(10,22)*SIX-R3(6,19)*SIX
     * -R3(6,23)*SIX-R3(6,39)*THREE+R2(5,42)*THREE+R2(5,47)*THREE
     * -R1(1,31)*THREE-R1(1,36)*THREE+(-R6(21,4)*TWO-R6(21,5)*TWO
     * +R5(15,7)*TWO+R5(15,8)*TWO+R5(15,9)*TWO+R5(15,10)*TWO
     * -R4(10,6)*TWO-R4(10,7)*TWO-R4(10,12)*TWO-R4(10,13)*TWO
     * -R4(10,26)*SIX-R4(10,27)*SIX+R3(6,31)*SIX+R3(6,32)*SIX
     * +R3(6,35)*SIX+R3(6,36)*SIX-R2(5,29)*SIX-R2(5,30)*SIX-R2(5,33)*SIX
     * -R2(5,34)*SIX)*QZ+(-R5(15,12)-R5(15,13)*FOUR-R5(15,14)+R4(10,19)
     * +R4(10,20)*FOUR+R4(10,21)+R4(10,23)+R4(10,24)*FOUR+R4(10,25)
     * -R3(6,20)-R3(6,21)*FOUR-R3(6,22)-R3(6,24)-R3(6,25)*FOUR-R3(6,26)
     * -R3(6,40)-R3(6,41)*FOUR-R3(6,42)+R2(5,43)+R2(5,44)*FOUR+R2(5,45)
     * +R2(5,48)+R2(5,49)*FOUR+R2(5,50)-R1(1,32)-R1(1,33)*FOUR-R1(1,34)
     * -R1(1,37)-R1(1,38)*FOUR-R1(1,39))*ZZ+(-R4(10,28)*TWO
     * -R4(10,29)*TWO+R3(6,33)*TWO+R3(6,34)*TWO+R3(6,37)*TWO
     * +R3(6,38)*TWO-R2(5,31)*TWO-R2(5,32)*TWO-R2(5,35)*TWO-R2(5,36)*TWO
     * )*ZZZ+(-R3(6,43)+R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*ZZZZ
      F(4,3,5,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * +R4(5,18)+R4(5,22)-R3(2,19)-R3(2,23)+(-R6(20,4)+R5(14,7)+R5(14,9)
     * -R4(9,6)-R4(9,12)-R4(9,26)+R3(5,31)+R3(5,35)-R2(4,29)-R2(4,33))
     * *QX+(-R6(14,5)*TWO+R5(9,8)*TWO+R5(9,10)*TWO-R4(5,7)*TWO
     * -R4(5,13)*TWO)*QZ+(-R5(14,13)*TWO+R4(9,20)*TWO+R4(9,24)*TWO
     * -R3(5,21)*TWO-R3(5,25)*TWO)*XZ+(-R5(9,14)+R4(5,21)+R4(5,25)
     * -R3(2,22)-R3(2,26))*ZZ+(-R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)
     * -R2(4,36))*XZZ
      F(5,3,5,4)= -R7(21,1)+R6(15,1)+R6(15,3)-R5(10,1)-R5(10,4)
     * -R5(10,11)*THREE+R4(6,18)*THREE+R4(6,22)*THREE-R3(3,19)*THREE
     * -R3(3,23)*THREE+(-R6(21,4)+R5(15,7)+R5(15,9)-R4(10,6)-R4(10,12)
     * -R4(10,26)*THREE+R3(6,31)*THREE+R3(6,35)*THREE-R2(5,29)*THREE
     * -R2(5,33)*THREE)*QX+(-R6(15,4)-R6(15,5)*TWO+R5(10,7)+R5(10,8)*TWO
     * +R5(10,9)+R5(10,10)*TWO-R4(6,6)-R4(6,7)*TWO-R4(6,12)-R4(6,13)*TWO
     * -R4(6,26)-R4(6,27)*TWO+R3(3,31)+R3(3,32)*TWO+R3(3,35)
     * +R3(3,36)*TWO-R2(1,29)-R2(1,30)*TWO-R2(1,33)-R2(1,34)*TWO)*QZ+(
     * -R5(15,12)-R5(15,13)*TWO+R4(10,19)+R4(10,20)*TWO+R4(10,23)
     * +R4(10,24)*TWO-R3(6,20)-R3(6,21)*TWO-R3(6,24)-R3(6,25)*TWO
     * -R3(6,40)-R3(6,41)*TWO+R2(5,43)+R2(5,44)*TWO+R2(5,48)
     * +R2(5,49)*TWO-R1(1,32)-R1(1,33)*TWO-R1(1,37)-R1(1,38)*TWO)*XZ+(
     * -R5(10,13)*TWO-R5(10,14)+R4(6,20)*TWO+R4(6,21)+R4(6,24)*TWO
     * +R4(6,25)-R3(3,21)*TWO-R3(3,22)-R3(3,25)*TWO-R3(3,26))*ZZ+(
     * -R4(10,28)*TWO-R4(10,29)+R3(6,33)*TWO+R3(6,34)+R3(6,37)*TWO
     * +R3(6,38)-R2(5,31)*TWO-R2(5,32)-R2(5,35)*TWO-R2(5,36))*XZZ+(
     * -R4(6,29)+R3(3,34)+R3(3,38)-R2(1,32)-R2(1,36))*ZZZ+(-R3(6,43)
     * +R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XZZZ
      F(6,3,5,4)= -R7(27,1)+R6(20,1)+R6(20,3)-R5(14,1)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(20,4)-R6(20,5)*TWO+R5(14,7)+R5(14,8)*TWO
     * +R5(14,9)+R5(14,10)*TWO-R4(9,6)-R4(9,7)*TWO-R4(9,12)-R4(9,13)*TWO
     * -R4(9,26)-R4(9,27)*TWO+R3(5,31)+R3(5,32)*TWO+R3(5,35)
     * +R3(5,36)*TWO-R2(4,29)-R2(4,30)*TWO-R2(4,33)-R2(4,34)*TWO)*QZ+(
     * -R5(14,13)*TWO-R5(14,14)+R4(9,20)*TWO+R4(9,21)+R4(9,24)*TWO
     * +R4(9,25)-R3(5,21)*TWO-R3(5,22)-R3(5,25)*TWO-R3(5,26))*ZZ+(
     * -R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))*ZZZ
      F(1,4,5,4)= -R7(9,1)+R6(5,1)+R6(5,3)-R5(2,1)-R5(2,4)
     * -R5(9,11)*THREE+R4(5,18)*THREE+R4(5,22)*THREE-R3(2,19)*THREE
     * -R3(2,23)*THREE+(-R6(9,4)*TWO-R6(9,5)+R5(5,7)*TWO+R5(5,8)
     * +R5(5,9)*TWO+R5(5,10)-R4(2,6)*TWO-R4(2,7)-R4(2,12)*TWO-R4(2,13)
     * -R4(9,26)*TWO-R4(9,27)+R3(5,31)*TWO+R3(5,32)+R3(5,35)*TWO
     * +R3(5,36)-R2(4,29)*TWO-R2(4,30)-R2(4,33)*TWO-R2(4,34))*QX+(
     * -R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO+R4(5,23)
     * +R4(5,24)*TWO-R3(2,20)-R3(2,21)*TWO-R3(2,24)-R3(2,25)*TWO)*XX+(
     * -R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))*XXX
      F(2,4,5,4)= -R7(18,1)+R6(12,1)+R6(12,3)-R5(7,1)-R5(7,4)
     * -R5(9,11)*THREE+R4(5,18)*THREE+R4(5,22)*THREE-R3(2,19)*THREE
     * -R3(2,23)*THREE+(-R6(18,5)+R5(12,8)+R5(12,10)-R4(7,7)-R4(7,13)
     * -R4(9,27)*THREE+R3(5,32)*THREE+R3(5,36)*THREE-R2(4,30)*THREE
     * -R2(4,34)*THREE)*QX
      F(3,4,5,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * +R4(5,18)+R4(5,22)-R3(2,19)-R3(2,23)+(-R6(20,5)+R5(14,8)
     * +R5(14,10)-R4(9,7)-R4(9,13)-R4(9,27)+R3(5,32)+R3(5,36)-R2(4,30)
     * -R2(4,34))*QX+(-R6(14,4)*TWO+R5(9,7)*TWO+R5(9,9)*TWO-R4(5,6)*TWO
     * -R4(5,12)*TWO)*QZ+(-R5(14,13)*TWO+R4(9,20)*TWO+R4(9,24)*TWO
     * -R3(5,21)*TWO-R3(5,25)*TWO)*XZ+(-R5(9,12)+R4(5,19)+R4(5,23)
     * -R3(2,20)-R3(2,24))*ZZ+(-R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)
     * -R2(4,35))*XZZ
      F(4,4,5,4)= -R7(13,1)+R6(8,1)+R6(8,3)-R5(4,1)-R5(4,4)-R5(6,11)
     * -R5(13,11)+R4(3,18)+R4(8,18)+R4(3,22)+R4(8,22)-R3(1,19)-R3(4,19)
     * -R3(1,23)-R3(4,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)-R1(1,36)+(
     * -R6(13,4)-R6(13,5)+R5(8,7)+R5(8,8)+R5(8,9)+R5(8,10)-R4(4,6)
     * -R4(4,7)-R4(4,12)-R4(4,13)-R4(6,26)-R4(6,27)+R3(3,31)+R3(3,32)
     * +R3(3,35)+R3(3,36)-R2(1,29)-R2(1,30)-R2(1,33)-R2(1,34))*QX+(
     * -R5(13,13)+R4(8,20)+R4(8,24)-R3(4,21)-R3(4,25)-R3(6,41)+R2(5,44)
     * +R2(5,49)-R1(1,33)-R1(1,38))*XX
      F(5,4,5,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)-R5(14,11)
     * +R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(14,4)-R6(14,5)+R5(9,7)
     * +R5(9,8)+R5(9,9)+R5(9,10)-R4(5,6)-R4(5,7)-R4(5,12)-R4(5,13))*QX+(
     * -R6(9,4)+R5(5,7)+R5(5,9)-R4(2,6)-R4(2,12)-R4(9,26)+R3(5,31)
     * +R3(5,35)-R2(4,29)-R2(4,33))*QZ+(-R5(14,13)+R4(9,20)+R4(9,24)
     * -R3(5,21)-R3(5,25))*XX+(-R5(9,12)-R5(9,13)+R4(5,19)+R4(5,20)
     * +R4(5,23)+R4(5,24)-R3(2,20)-R3(2,21)-R3(2,24)-R3(2,25))*XZ+(
     * -R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))*XXZ
      F(6,4,5,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(10,11)
     * +R4(6,18)+R4(6,22)-R3(3,19)-R3(3,23)+(-R6(19,5)+R5(13,8)
     * +R5(13,10)-R4(8,7)-R4(8,13)-R4(10,27)+R3(6,32)+R3(6,36)-R2(5,30)
     * -R2(5,34))*QX+(-R6(13,4)+R5(8,7)+R5(8,9)-R4(4,6)-R4(4,12)
     * -R4(6,26)+R3(3,31)+R3(3,35)-R2(1,29)-R2(1,33))*QZ+(-R5(13,13)
     * +R4(8,20)+R4(8,24)-R3(4,21)-R3(4,25)-R3(6,41)+R2(5,44)+R2(5,49)
     * -R1(1,33)-R1(1,38))*XZ
      F(1,5,5,4)= -R7(10,1)+R6(6,1)+R6(6,3)-R5(3,1)-R5(3,4)
     * -R5(10,11)*THREE+R4(6,18)*THREE+R4(6,22)*THREE-R3(3,19)*THREE
     * -R3(3,23)*THREE+(-R6(10,4)*TWO-R6(10,5)+R5(6,7)*TWO+R5(6,8)
     * +R5(6,9)*TWO+R5(6,10)-R4(3,6)*TWO-R4(3,7)-R4(3,12)*TWO-R4(3,13)
     * -R4(10,26)*TWO-R4(10,27)+R3(6,31)*TWO+R3(6,32)+R3(6,35)*TWO
     * +R3(6,36)-R2(5,29)*TWO-R2(5,30)-R2(5,33)*TWO-R2(5,34))*QX+(
     * -R6(6,5)+R5(3,8)+R5(3,10)-R4(1,7)-R4(1,13)-R4(6,27)*THREE
     * +R3(3,32)*THREE+R3(3,36)*THREE-R2(1,30)*THREE-R2(1,34)*THREE)*QZ
     * +(-R5(10,12)-R5(10,13)*TWO+R4(6,19)+R4(6,20)*TWO+R4(6,23)
     * +R4(6,24)*TWO-R3(3,20)-R3(3,21)*TWO-R3(3,24)-R3(3,25)*TWO)*XX+(
     * -R5(6,13)*TWO-R5(6,14)+R4(3,20)*TWO+R4(3,21)+R4(3,24)*TWO
     * +R4(3,25)-R3(1,21)*TWO-R3(1,22)-R3(1,25)*TWO-R3(1,26)
     * -R3(6,41)*TWO-R3(6,42)+R2(5,44)*TWO+R2(5,45)+R2(5,49)*TWO
     * +R2(5,50)-R1(1,33)*TWO-R1(1,34)-R1(1,38)*TWO-R1(1,39))*XZ+(
     * -R4(10,28)+R3(6,33)+R3(6,37)-R2(5,31)-R2(5,35))*XXX+(-R4(6,28)
     * -R4(6,29)*TWO+R3(3,33)+R3(3,34)*TWO+R3(3,37)+R3(3,38)*TWO
     * -R2(1,31)-R2(1,32)*TWO-R2(1,35)-R2(1,36)*TWO)*XXZ+(-R3(6,43)
     * +R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XXXZ
      F(2,5,5,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(10,11)
     * +R4(6,18)+R4(6,22)-R3(3,19)-R3(3,23)+(-R6(19,5)+R5(13,8)
     * +R5(13,10)-R4(8,7)-R4(8,13)-R4(10,27)+R3(6,32)+R3(6,36)-R2(5,30)
     * -R2(5,34))*QX+(-R6(13,5)+R5(8,8)+R5(8,10)-R4(4,7)-R4(4,13)
     * -R4(6,27)+R3(3,32)+R3(3,36)-R2(1,30)-R2(1,34))*QZ+(-R5(13,14)
     * +R4(8,21)+R4(8,25)-R3(4,22)-R3(4,26)-R3(6,42)+R2(5,45)+R2(5,50)
     * -R1(1,34)-R1(1,39))*XZ
      F(3,5,5,4)= -R7(21,1)+R6(15,1)+R6(15,3)-R5(10,1)-R5(10,4)
     * -R5(10,11)*THREE+R4(6,18)*THREE+R4(6,22)*THREE-R3(3,19)*THREE
     * -R3(3,23)*THREE+(-R6(21,5)+R5(15,8)+R5(15,10)-R4(10,7)-R4(10,13)
     * -R4(10,27)*THREE+R3(6,32)*THREE+R3(6,36)*THREE-R2(5,30)*THREE
     * -R2(5,34)*THREE)*QX+(-R6(15,4)*TWO-R6(15,5)+R5(10,7)*TWO+R5(10,8)
     * +R5(10,9)*TWO+R5(10,10)-R4(6,6)*TWO-R4(6,7)-R4(6,12)*TWO-R4(6,13)
     * -R4(6,26)*TWO-R4(6,27)+R3(3,31)*TWO+R3(3,32)+R3(3,35)*TWO
     * +R3(3,36)-R2(1,29)*TWO-R2(1,30)-R2(1,33)*TWO-R2(1,34))*QZ+(
     * -R5(15,13)*TWO-R5(15,14)+R4(10,20)*TWO+R4(10,21)+R4(10,24)*TWO
     * +R4(10,25)-R3(6,21)*TWO-R3(6,22)-R3(6,25)*TWO-R3(6,26)
     * -R3(6,41)*TWO-R3(6,42)+R2(5,44)*TWO+R2(5,45)+R2(5,49)*TWO
     * +R2(5,50)-R1(1,33)*TWO-R1(1,34)-R1(1,38)*TWO-R1(1,39))*XZ+(
     * -R5(10,12)-R5(10,13)*TWO+R4(6,19)+R4(6,20)*TWO+R4(6,23)
     * +R4(6,24)*TWO-R3(3,20)-R3(3,21)*TWO-R3(3,24)-R3(3,25)*TWO)*ZZ+(
     * -R4(10,28)-R4(10,29)*TWO+R3(6,33)+R3(6,34)*TWO+R3(6,37)
     * +R3(6,38)*TWO-R2(5,31)-R2(5,32)*TWO-R2(5,35)-R2(5,36)*TWO)*XZZ+(
     * -R4(6,28)+R3(3,33)+R3(3,37)-R2(1,31)-R2(1,35))*ZZZ+(-R3(6,43)
     * +R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XZZZ
      F(4,5,5,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)-R5(14,11)
     * +R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(14,4)-R6(14,5)+R5(9,7)
     * +R5(9,8)+R5(9,9)+R5(9,10)-R4(5,6)-R4(5,7)-R4(5,12)-R4(5,13))*QX+(
     * -R6(9,5)+R5(5,8)+R5(5,10)-R4(2,7)-R4(2,13)-R4(9,27)+R3(5,32)
     * +R3(5,36)-R2(4,30)-R2(4,34))*QZ+(-R5(14,13)+R4(9,20)+R4(9,24)
     * -R3(5,21)-R3(5,25))*XX+(-R5(9,13)-R5(9,14)+R4(5,20)+R4(5,21)
     * +R4(5,24)+R4(5,25)-R3(2,21)-R3(2,22)-R3(2,25)-R3(2,26))*XZ+(
     * -R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))*XXZ
      F(5,5,5,4)= -R7(15,1)+R6(10,1)+R6(10,3)-R5(6,1)-R5(6,4)-R5(6,11)
     * -R5(15,11)+R4(3,18)+R4(10,18)+R4(3,22)+R4(10,22)-R3(1,19)
     * -R3(6,19)-R3(1,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)-R1(1,31)
     * -R1(1,36)+(-R6(15,4)-R6(15,5)+R5(10,7)+R5(10,8)+R5(10,9)
     * +R5(10,10)-R4(6,6)-R4(6,7)-R4(6,12)-R4(6,13)-R4(6,26)-R4(6,27)
     * +R3(3,31)+R3(3,32)+R3(3,35)+R3(3,36)-R2(1,29)-R2(1,30)-R2(1,33)
     * -R2(1,34))*QX+(-R6(10,4)-R6(10,5)+R5(6,7)+R5(6,8)+R5(6,9)
     * +R5(6,10)-R4(3,6)-R4(3,7)-R4(3,12)-R4(3,13)-R4(10,26)-R4(10,27)
     * +R3(6,31)+R3(6,32)+R3(6,35)+R3(6,36)-R2(5,29)-R2(5,30)-R2(5,33)
     * -R2(5,34))*QZ+(-R5(15,13)+R4(10,20)+R4(10,24)-R3(6,21)-R3(6,25)
     * -R3(6,41)+R2(5,44)+R2(5,49)-R1(1,33)-R1(1,38))*XX+(-R5(10,12)
     * -R5(10,13)*TWO-R5(10,14)+R4(6,19)+R4(6,20)*TWO+R4(6,21)+R4(6,23)
     * +R4(6,24)*TWO+R4(6,25)-R3(3,20)-R3(3,21)*TWO-R3(3,22)-R3(3,24)
     * -R3(3,25)*TWO-R3(3,26))*XZ+(-R5(6,13)+R4(3,20)+R4(3,24)-R3(1,21)
     * -R3(1,25)-R3(6,41)+R2(5,44)+R2(5,49)-R1(1,33)-R1(1,38))*ZZ+(
     * -R4(10,28)-R4(10,29)+R3(6,33)+R3(6,34)+R3(6,37)+R3(6,38)-R2(5,31)
     * -R2(5,32)-R2(5,35)-R2(5,36))*XXZ+(-R4(6,28)-R4(6,29)+R3(3,33)
     * +R3(3,34)+R3(3,37)+R3(3,38)-R2(1,31)-R2(1,32)-R2(1,35)-R2(1,36))
     * *XZZ+(-R3(6,43)+R2(5,46)+R2(5,51)-R1(1,35)-R1(1,40))*XXZZ
      F(6,5,5,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * +R4(5,18)+R4(5,22)-R3(2,19)-R3(2,23)+(-R6(20,5)+R5(14,8)
     * +R5(14,10)-R4(9,7)-R4(9,13)-R4(9,27)+R3(5,32)+R3(5,36)-R2(4,30)
     * -R2(4,34))*QX+(-R6(14,4)-R6(14,5)+R5(9,7)+R5(9,8)+R5(9,9)
     * +R5(9,10)-R4(5,6)-R4(5,7)-R4(5,12)-R4(5,13))*QZ+(-R5(14,13)
     * -R5(14,14)+R4(9,20)+R4(9,21)+R4(9,24)+R4(9,25)-R3(5,21)-R3(5,22)
     * -R3(5,25)-R3(5,26))*XZ+(-R5(9,13)+R4(5,20)+R4(5,24)-R3(2,21)
     * -R3(2,25))*ZZ+(-R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))*XZZ
      F(1,6,5,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)-R5(14,11)
     * +R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(14,4)*TWO+R5(9,7)*TWO
     * +R5(9,9)*TWO-R4(5,6)*TWO-R4(5,12)*TWO)*QX+(-R6(9,5)+R5(5,8)
     * +R5(5,10)-R4(2,7)-R4(2,13)-R4(9,27)+R3(5,32)+R3(5,36)-R2(4,30)
     * -R2(4,34))*QZ+(-R5(14,12)+R4(9,19)+R4(9,23)-R3(5,20)-R3(5,24))*XX
     * +(-R5(9,13)*TWO+R4(5,20)*TWO+R4(5,24)*TWO-R3(2,21)*TWO
     * -R3(2,25)*TWO)*XZ+(-R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))
     * *XXZ
      F(2,6,5,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(18,5)+R5(12,8)+R5(12,10)-R4(7,7)-R4(7,13)
     * -R4(9,27)*THREE+R3(5,32)*THREE+R3(5,36)*THREE-R2(4,30)*THREE
     * -R2(4,34)*THREE)*QZ
      F(3,6,5,4)= -R7(27,1)+R6(20,1)+R6(20,3)-R5(14,1)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(20,4)*TWO-R6(20,5)+R5(14,7)*TWO+R5(14,8)
     * +R5(14,9)*TWO+R5(14,10)-R4(9,6)*TWO-R4(9,7)-R4(9,12)*TWO-R4(9,13)
     * -R4(9,26)*TWO-R4(9,27)+R3(5,31)*TWO+R3(5,32)+R3(5,35)*TWO
     * +R3(5,36)-R2(4,29)*TWO-R2(4,30)-R2(4,33)*TWO-R2(4,34))*QZ+(
     * -R5(14,12)-R5(14,13)*TWO+R4(9,19)+R4(9,20)*TWO+R4(9,23)
     * +R4(9,24)*TWO-R3(5,20)-R3(5,21)*TWO-R3(5,24)-R3(5,25)*TWO)*ZZ+(
     * -R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))*ZZZ
      F(4,6,5,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(10,11)
     * +R4(6,18)+R4(6,22)-R3(3,19)-R3(3,23)+(-R6(19,4)+R5(13,7)+R5(13,9)
     * -R4(8,6)-R4(8,12)-R4(10,26)+R3(6,31)+R3(6,35)-R2(5,29)-R2(5,33))
     * *QX+(-R6(13,5)+R5(8,8)+R5(8,10)-R4(4,7)-R4(4,13)-R4(6,27)
     * +R3(3,32)+R3(3,36)-R2(1,30)-R2(1,34))*QZ+(-R5(13,13)+R4(8,20)
     * +R4(8,24)-R3(4,21)-R3(4,25)-R3(6,41)+R2(5,44)+R2(5,49)-R1(1,33)
     * -R1(1,38))*XZ
      F(5,6,5,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * +R4(5,18)+R4(5,22)-R3(2,19)-R3(2,23)+(-R6(20,4)+R5(14,7)+R5(14,9)
     * -R4(9,6)-R4(9,12)-R4(9,26)+R3(5,31)+R3(5,35)-R2(4,29)-R2(4,33))
     * *QX+(-R6(14,4)-R6(14,5)+R5(9,7)+R5(9,8)+R5(9,9)+R5(9,10)-R4(5,6)
     * -R4(5,7)-R4(5,12)-R4(5,13))*QZ+(-R5(14,12)-R5(14,13)+R4(9,19)
     * +R4(9,20)+R4(9,23)+R4(9,24)-R3(5,20)-R3(5,21)-R3(5,24)-R3(5,25))
     * *XZ+(-R5(9,13)+R4(5,20)+R4(5,24)-R3(2,21)-R3(2,25))*ZZ+(-R4(9,28)
     * +R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))*XZZ
      F(6,6,5,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)-R5(15,11)+R4(8,18)+R4(10,18)+R4(8,22)+R4(10,22)
     * -R3(4,19)-R3(6,19)-R3(4,23)-R3(6,23)-R3(6,39)+R2(5,42)+R2(5,47)
     * -R1(1,31)-R1(1,36)+(-R6(19,4)-R6(19,5)+R5(13,7)+R5(13,8)+R5(13,9)
     * +R5(13,10)-R4(8,6)-R4(8,7)-R4(8,12)-R4(8,13)-R4(10,26)-R4(10,27)
     * +R3(6,31)+R3(6,32)+R3(6,35)+R3(6,36)-R2(5,29)-R2(5,30)-R2(5,33)
     * -R2(5,34))*QZ+(-R5(13,13)+R4(8,20)+R4(8,24)-R3(4,21)-R3(4,25)
     * -R3(6,41)+R2(5,44)+R2(5,49)-R1(1,33)-R1(1,38))*ZZ
      F(1,1,6,4)= -R7(9,1)+R6(5,1)+R6(5,3)-R5(2,1)-R5(2,4)-R5(9,11)*SIX
     * +R4(5,18)*SIX+R4(5,22)*SIX-R3(2,19)*SIX-R3(2,23)*SIX
     * -R3(9,39)*THREE+R2(6,42)*THREE+R2(6,47)*THREE-R1(2,31)*THREE
     * -R1(2,36)*THREE+(-R6(9,4)*TWO-R6(9,5)*TWO+R5(5,7)*TWO+R5(5,8)*TWO
     * +R5(5,9)*TWO+R5(5,10)*TWO-R4(2,6)*TWO-R4(2,7)*TWO-R4(2,12)*TWO
     * -R4(2,13)*TWO-R4(9,26)*SIX-R4(9,27)*SIX+R3(5,31)*SIX+R3(5,32)*SIX
     * +R3(5,35)*SIX+R3(5,36)*SIX-R2(4,29)*SIX-R2(4,30)*SIX-R2(4,33)*SIX
     * -R2(4,34)*SIX)*QX+(-R5(9,12)-R5(9,13)*FOUR-R5(9,14)+R4(5,19)
     * +R4(5,20)*FOUR+R4(5,21)+R4(5,23)+R4(5,24)*FOUR+R4(5,25)-R3(2,20)
     * -R3(2,21)*FOUR-R3(2,22)-R3(2,24)-R3(2,25)*FOUR-R3(2,26)-R3(9,40)
     * -R3(9,41)*FOUR-R3(9,42)+R2(6,43)+R2(6,44)*FOUR+R2(6,45)+R2(6,48)
     * +R2(6,49)*FOUR+R2(6,50)-R1(2,32)-R1(2,33)*FOUR-R1(2,34)-R1(2,37)
     * -R1(2,38)*FOUR-R1(2,39))*XX+(-R4(9,28)*TWO-R4(9,29)*TWO
     * +R3(5,33)*TWO+R3(5,34)*TWO+R3(5,37)*TWO+R3(5,38)*TWO-R2(4,31)*TWO
     * -R2(4,32)*TWO-R2(4,35)*TWO-R2(4,36)*TWO)*XXX+(-R3(9,43)+R2(6,46)
     * +R2(6,51)-R1(2,35)-R1(2,40))*XXXX
      F(2,1,6,4)= -R7(18,1)+R6(12,1)+R6(12,3)-R5(7,1)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)+R4(12,18)+R4(5,22)+R4(12,22)-R3(2,19)
     * -R3(7,19)-R3(2,23)-R3(7,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(18,5)*TWO+R5(12,8)*TWO+R5(12,10)*TWO-R4(7,7)*TWO
     * -R4(7,13)*TWO-R4(9,27)*TWO+R3(5,32)*TWO+R3(5,36)*TWO-R2(4,30)*TWO
     * -R2(4,34)*TWO)*QX+(-R5(18,14)+R4(12,21)+R4(12,25)-R3(7,22)
     * -R3(7,26)-R3(9,42)+R2(6,45)+R2(6,50)-R1(2,34)-R1(2,39))*XX
      F(3,1,6,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)+R4(14,18)+R4(5,22)+R4(14,22)-R3(2,19)
     * -R3(9,19)-R3(2,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(20,5)*TWO+R5(14,8)*TWO+R5(14,10)*TWO-R4(9,7)*TWO
     * -R4(9,13)*TWO-R4(9,27)*TWO+R3(5,32)*TWO+R3(5,36)*TWO-R2(4,30)*TWO
     * -R2(4,34)*TWO)*QX+(-R6(14,4)*TWO+R5(9,7)*TWO+R5(9,9)*TWO
     * -R4(5,6)*TWO-R4(5,12)*TWO-R4(14,26)*TWO+R3(9,31)*TWO+R3(9,35)*TWO
     * -R2(6,29)*TWO-R2(6,33)*TWO)*QZ+(-R5(20,14)+R4(14,21)+R4(14,25)
     * -R3(9,22)-R3(9,26)-R3(9,42)+R2(6,45)+R2(6,50)-R1(2,34)-R1(2,39))
     * *XX+(-R5(14,13)*FOUR+R4(9,20)*FOUR+R4(9,24)*FOUR-R3(5,21)*FOUR
     * -R3(5,25)*FOUR)*XZ+(-R5(9,12)+R4(5,19)+R4(5,23)-R3(2,20)-R3(2,24)
     * -R3(9,40)+R2(6,43)+R2(6,48)-R1(2,32)-R1(2,37))*ZZ+(-R4(14,29)*TWO
     * +R3(9,34)*TWO+R3(9,38)*TWO-R2(6,32)*TWO-R2(6,36)*TWO)*XXZ+(
     * -R4(9,28)*TWO+R3(5,33)*TWO+R3(5,37)*TWO-R2(4,31)*TWO-R2(4,35)*TWO
     * )*XZZ+(-R3(9,43)+R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XXZZ
      F(4,1,6,4)= -R7(13,1)+R6(8,1)+R6(8,3)-R5(4,1)-R5(4,4)
     * -R5(13,11)*THREE+R4(8,18)*THREE+R4(8,22)*THREE-R3(4,19)*THREE
     * -R3(4,23)*THREE+(-R6(13,4)-R6(13,5)*TWO+R5(8,7)+R5(8,8)*TWO
     * +R5(8,9)+R5(8,10)*TWO-R4(4,6)-R4(4,7)*TWO-R4(4,12)-R4(4,13)*TWO
     * -R4(13,26)-R4(13,27)*TWO+R3(8,31)+R3(8,32)*TWO+R3(8,35)
     * +R3(8,36)*TWO-R2(2,29)-R2(2,30)*TWO-R2(2,33)-R2(2,34)*TWO)*QX+(
     * -R5(13,13)*TWO-R5(13,14)+R4(8,20)*TWO+R4(8,21)+R4(8,24)*TWO
     * +R4(8,25)-R3(4,21)*TWO-R3(4,22)-R3(4,25)*TWO-R3(4,26))*XX+(
     * -R4(13,29)+R3(8,34)+R3(8,38)-R2(2,32)-R2(2,36))*XXX
      F(5,1,6,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(14,4)-R6(14,5)*TWO+R5(9,7)+R5(9,8)*TWO
     * +R5(9,9)+R5(9,10)*TWO-R4(5,6)-R4(5,7)*TWO-R4(5,12)-R4(5,13)*TWO
     * -R4(14,26)-R4(14,27)*TWO+R3(9,31)+R3(9,32)*TWO+R3(9,35)
     * +R3(9,36)*TWO-R2(6,29)-R2(6,30)*TWO-R2(6,33)-R2(6,34)*TWO)*QX+(
     * -R6(9,4)+R5(5,7)+R5(5,9)-R4(2,6)-R4(2,12)-R4(9,26)*THREE
     * +R3(5,31)*THREE+R3(5,35)*THREE-R2(4,29)*THREE-R2(4,33)*THREE)*QZ
     * +(-R5(14,13)*TWO-R5(14,14)+R4(9,20)*TWO+R4(9,21)+R4(9,24)*TWO
     * +R4(9,25)-R3(5,21)*TWO-R3(5,22)-R3(5,25)*TWO-R3(5,26))*XX+(
     * -R5(9,12)-R5(9,13)*TWO+R4(5,19)+R4(5,20)*TWO+R4(5,23)
     * +R4(5,24)*TWO-R3(2,20)-R3(2,21)*TWO-R3(2,24)-R3(2,25)*TWO
     * -R3(9,40)-R3(9,41)*TWO+R2(6,43)+R2(6,44)*TWO+R2(6,48)
     * +R2(6,49)*TWO-R1(2,32)-R1(2,33)*TWO-R1(2,37)-R1(2,38)*TWO)*XZ+(
     * -R4(14,29)+R3(9,34)+R3(9,38)-R2(6,32)-R2(6,36))*XXX+(
     * -R4(9,28)*TWO-R4(9,29)+R3(5,33)*TWO+R3(5,34)+R3(5,37)*TWO
     * +R3(5,38)-R2(4,31)*TWO-R2(4,32)-R2(4,35)*TWO-R2(4,36))*XXZ+(
     * -R3(9,43)+R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XXXZ
      F(6,1,6,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(19,11)
     * +R4(13,18)+R4(13,22)-R3(8,19)-R3(8,23)+(-R6(19,5)*TWO
     * +R5(13,8)*TWO+R5(13,10)*TWO-R4(8,7)*TWO-R4(8,13)*TWO)*QX+(
     * -R6(13,4)+R5(8,7)+R5(8,9)-R4(4,6)-R4(4,12)-R4(13,26)+R3(8,31)
     * +R3(8,35)-R2(2,29)-R2(2,33))*QZ+(-R5(19,14)+R4(13,21)+R4(13,25)
     * -R3(8,22)-R3(8,26))*XX+(-R5(13,13)*TWO+R4(8,20)*TWO+R4(8,24)*TWO
     * -R3(4,21)*TWO-R3(4,25)*TWO)*XZ+(-R4(13,29)+R3(8,34)+R3(8,38)
     * -R2(2,32)-R2(2,36))*XXZ
      F(1,2,6,4)= -R7(18,1)+R6(12,1)+R6(12,3)-R5(7,1)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)+R4(12,18)+R4(5,22)+R4(12,22)-R3(2,19)
     * -R3(7,19)-R3(2,23)-R3(7,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(18,4)*TWO+R5(12,7)*TWO+R5(12,9)*TWO-R4(7,6)*TWO
     * -R4(7,12)*TWO-R4(9,26)*TWO+R3(5,31)*TWO+R3(5,35)*TWO-R2(4,29)*TWO
     * -R2(4,33)*TWO)*QX+(-R5(18,12)+R4(12,19)+R4(12,23)-R3(7,20)
     * -R3(7,24)-R3(9,40)+R2(6,43)+R2(6,48)-R1(2,32)-R1(2,37))*XX
      F(2,2,6,4)= -R7(31,1)+R6(23,1)+R6(23,3)-R5(16,1)-R5(16,4)
     * -R5(18,11)*SIX+R4(12,18)*SIX+R4(12,22)*SIX-R3(7,19)*SIX
     * -R3(7,23)*SIX-R3(9,39)*THREE+R2(6,42)*THREE+R2(6,47)*THREE
     * -R1(2,31)*THREE-R1(2,36)*THREE
      F(3,2,6,4)= -R7(33,1)+R6(25,1)+R6(25,3)-R5(18,1)-R5(18,4)
     * -R5(18,11)-R5(20,11)+R4(12,18)+R4(14,18)+R4(12,22)+R4(14,22)
     * -R3(7,19)-R3(9,19)-R3(7,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)
     * -R1(2,31)-R1(2,36)+(-R6(25,4)*TWO+R5(18,7)*TWO+R5(18,9)*TWO
     * -R4(12,6)*TWO-R4(12,12)*TWO-R4(14,26)*TWO+R3(9,31)*TWO
     * +R3(9,35)*TWO-R2(6,29)*TWO-R2(6,33)*TWO)*QZ+(-R5(18,12)+R4(12,19)
     * +R4(12,23)-R3(7,20)-R3(7,24)-R3(9,40)+R2(6,43)+R2(6,48)-R1(2,32)
     * -R1(2,37))*ZZ
      F(4,2,6,4)= -R7(24,1)+R6(17,1)+R6(17,3)-R5(11,1)-R5(11,4)
     * -R5(13,11)*THREE+R4(8,18)*THREE+R4(8,22)*THREE-R3(4,19)*THREE
     * -R3(4,23)*THREE+(-R6(24,4)+R5(17,7)+R5(17,9)-R4(11,6)-R4(11,12)
     * -R4(13,26)*THREE+R3(8,31)*THREE+R3(8,35)*THREE-R2(2,29)*THREE
     * -R2(2,33)*THREE)*QX
      F(5,2,6,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)+R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(25,4)
     * +R5(18,7)+R5(18,9)-R4(12,6)-R4(12,12)-R4(14,26)+R3(9,31)+R3(9,35)
     * -R2(6,29)-R2(6,33))*QX+(-R6(18,4)+R5(12,7)+R5(12,9)-R4(7,6)
     * -R4(7,12)-R4(9,26)+R3(5,31)+R3(5,35)-R2(4,29)-R2(4,33))*QZ+(
     * -R5(18,12)+R4(12,19)+R4(12,23)-R3(7,20)-R3(7,24)-R3(9,40)
     * +R2(6,43)+R2(6,48)-R1(2,32)-R1(2,37))*XZ
      F(6,2,6,4)= -R7(32,1)+R6(24,1)+R6(24,3)-R5(17,1)-R5(17,4)
     * -R5(19,11)*THREE+R4(13,18)*THREE+R4(13,22)*THREE-R3(8,19)*THREE
     * -R3(8,23)*THREE+(-R6(24,4)+R5(17,7)+R5(17,9)-R4(11,6)-R4(11,12)
     * -R4(13,26)*THREE+R3(8,31)*THREE+R3(8,35)*THREE-R2(2,29)*THREE
     * -R2(2,33)*THREE)*QZ
      F(1,3,6,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)+R4(14,18)+R4(5,22)+R4(14,22)-R3(2,19)
     * -R3(9,19)-R3(2,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(20,4)*TWO+R5(14,7)*TWO+R5(14,9)*TWO-R4(9,6)*TWO
     * -R4(9,12)*TWO-R4(9,26)*TWO+R3(5,31)*TWO+R3(5,35)*TWO-R2(4,29)*TWO
     * -R2(4,33)*TWO)*QX+(-R6(14,5)*TWO+R5(9,8)*TWO+R5(9,10)*TWO
     * -R4(5,7)*TWO-R4(5,13)*TWO-R4(14,27)*TWO+R3(9,32)*TWO+R3(9,36)*TWO
     * -R2(6,30)*TWO-R2(6,34)*TWO)*QZ+(-R5(20,12)+R4(14,19)+R4(14,23)
     * -R3(9,20)-R3(9,24)-R3(9,40)+R2(6,43)+R2(6,48)-R1(2,32)-R1(2,37))
     * *XX+(-R5(14,13)*FOUR+R4(9,20)*FOUR+R4(9,24)*FOUR-R3(5,21)*FOUR
     * -R3(5,25)*FOUR)*XZ+(-R5(9,14)+R4(5,21)+R4(5,25)-R3(2,22)-R3(2,26)
     * -R3(9,42)+R2(6,45)+R2(6,50)-R1(2,34)-R1(2,39))*ZZ+(-R4(14,28)*TWO
     * +R3(9,33)*TWO+R3(9,37)*TWO-R2(6,31)*TWO-R2(6,35)*TWO)*XXZ+(
     * -R4(9,29)*TWO+R3(5,34)*TWO+R3(5,38)*TWO-R2(4,32)*TWO-R2(4,36)*TWO
     * )*XZZ+(-R3(9,43)+R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XXZZ
      F(2,3,6,4)= -R7(33,1)+R6(25,1)+R6(25,3)-R5(18,1)-R5(18,4)
     * -R5(18,11)-R5(20,11)+R4(12,18)+R4(14,18)+R4(12,22)+R4(14,22)
     * -R3(7,19)-R3(9,19)-R3(7,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)
     * -R1(2,31)-R1(2,36)+(-R6(25,5)*TWO+R5(18,8)*TWO+R5(18,10)*TWO
     * -R4(12,7)*TWO-R4(12,13)*TWO-R4(14,27)*TWO+R3(9,32)*TWO
     * +R3(9,36)*TWO-R2(6,30)*TWO-R2(6,34)*TWO)*QZ+(-R5(18,14)+R4(12,21)
     * +R4(12,25)-R3(7,22)-R3(7,26)-R3(9,42)+R2(6,45)+R2(6,50)-R1(2,34)
     * -R1(2,39))*ZZ
      F(3,3,6,4)= -R7(35,1)+R6(27,1)+R6(27,3)-R5(20,1)-R5(20,4)
     * -R5(20,11)*SIX+R4(14,18)*SIX+R4(14,22)*SIX-R3(9,19)*SIX
     * -R3(9,23)*SIX-R3(9,39)*THREE+R2(6,42)*THREE+R2(6,47)*THREE
     * -R1(2,31)*THREE-R1(2,36)*THREE+(-R6(27,4)*TWO-R6(27,5)*TWO
     * +R5(20,7)*TWO+R5(20,8)*TWO+R5(20,9)*TWO+R5(20,10)*TWO
     * -R4(14,6)*TWO-R4(14,7)*TWO-R4(14,12)*TWO-R4(14,13)*TWO
     * -R4(14,26)*SIX-R4(14,27)*SIX+R3(9,31)*SIX+R3(9,32)*SIX
     * +R3(9,35)*SIX+R3(9,36)*SIX-R2(6,29)*SIX-R2(6,30)*SIX-R2(6,33)*SIX
     * -R2(6,34)*SIX)*QZ+(-R5(20,12)-R5(20,13)*FOUR-R5(20,14)+R4(14,19)
     * +R4(14,20)*FOUR+R4(14,21)+R4(14,23)+R4(14,24)*FOUR+R4(14,25)
     * -R3(9,20)-R3(9,21)*FOUR-R3(9,22)-R3(9,24)-R3(9,25)*FOUR-R3(9,26)
     * -R3(9,40)-R3(9,41)*FOUR-R3(9,42)+R2(6,43)+R2(6,44)*FOUR+R2(6,45)
     * +R2(6,48)+R2(6,49)*FOUR+R2(6,50)-R1(2,32)-R1(2,33)*FOUR-R1(2,34)
     * -R1(2,37)-R1(2,38)*FOUR-R1(2,39))*ZZ+(-R4(14,28)*TWO
     * -R4(14,29)*TWO+R3(9,33)*TWO+R3(9,34)*TWO+R3(9,37)*TWO
     * +R3(9,38)*TWO-R2(6,31)*TWO-R2(6,32)*TWO-R2(6,35)*TWO-R2(6,36)*TWO
     * )*ZZZ+(-R3(9,43)+R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*ZZZZ
      F(4,3,6,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)+R4(8,18)+R4(8,22)-R3(4,19)-R3(4,23)+(-R6(26,4)
     * +R5(19,7)+R5(19,9)-R4(13,6)-R4(13,12)-R4(13,26)+R3(8,31)+R3(8,35)
     * -R2(2,29)-R2(2,33))*QX+(-R6(19,5)*TWO+R5(13,8)*TWO+R5(13,10)*TWO
     * -R4(8,7)*TWO-R4(8,13)*TWO)*QZ+(-R5(19,13)*TWO+R4(13,20)*TWO
     * +R4(13,24)*TWO-R3(8,21)*TWO-R3(8,25)*TWO)*XZ+(-R5(13,14)+R4(8,21)
     * +R4(8,25)-R3(4,22)-R3(4,26))*ZZ+(-R4(13,29)+R3(8,34)+R3(8,38)
     * -R2(2,32)-R2(2,36))*XZZ
      F(5,3,6,4)= -R7(27,1)+R6(20,1)+R6(20,3)-R5(14,1)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(27,4)+R5(20,7)+R5(20,9)-R4(14,6)-R4(14,12)
     * -R4(14,26)*THREE+R3(9,31)*THREE+R3(9,35)*THREE-R2(6,29)*THREE
     * -R2(6,33)*THREE)*QX+(-R6(20,4)-R6(20,5)*TWO+R5(14,7)+R5(14,8)*TWO
     * +R5(14,9)+R5(14,10)*TWO-R4(9,6)-R4(9,7)*TWO-R4(9,12)-R4(9,13)*TWO
     * -R4(9,26)-R4(9,27)*TWO+R3(5,31)+R3(5,32)*TWO+R3(5,35)
     * +R3(5,36)*TWO-R2(4,29)-R2(4,30)*TWO-R2(4,33)-R2(4,34)*TWO)*QZ+(
     * -R5(20,12)-R5(20,13)*TWO+R4(14,19)+R4(14,20)*TWO+R4(14,23)
     * +R4(14,24)*TWO-R3(9,20)-R3(9,21)*TWO-R3(9,24)-R3(9,25)*TWO
     * -R3(9,40)-R3(9,41)*TWO+R2(6,43)+R2(6,44)*TWO+R2(6,48)
     * +R2(6,49)*TWO-R1(2,32)-R1(2,33)*TWO-R1(2,37)-R1(2,38)*TWO)*XZ+(
     * -R5(14,13)*TWO-R5(14,14)+R4(9,20)*TWO+R4(9,21)+R4(9,24)*TWO
     * +R4(9,25)-R3(5,21)*TWO-R3(5,22)-R3(5,25)*TWO-R3(5,26))*ZZ+(
     * -R4(14,28)*TWO-R4(14,29)+R3(9,33)*TWO+R3(9,34)+R3(9,37)*TWO
     * +R3(9,38)-R2(6,31)*TWO-R2(6,32)-R2(6,35)*TWO-R2(6,36))*XZZ+(
     * -R4(9,29)+R3(5,34)+R3(5,38)-R2(4,32)-R2(4,36))*ZZZ+(-R3(9,43)
     * +R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XZZZ
      F(6,3,6,4)= -R7(34,1)+R6(26,1)+R6(26,3)-R5(19,1)-R5(19,4)
     * -R5(19,11)*THREE+R4(13,18)*THREE+R4(13,22)*THREE-R3(8,19)*THREE
     * -R3(8,23)*THREE+(-R6(26,4)-R6(26,5)*TWO+R5(19,7)+R5(19,8)*TWO
     * +R5(19,9)+R5(19,10)*TWO-R4(13,6)-R4(13,7)*TWO-R4(13,12)
     * -R4(13,13)*TWO-R4(13,26)-R4(13,27)*TWO+R3(8,31)+R3(8,32)*TWO
     * +R3(8,35)+R3(8,36)*TWO-R2(2,29)-R2(2,30)*TWO-R2(2,33)
     * -R2(2,34)*TWO)*QZ+(-R5(19,13)*TWO-R5(19,14)+R4(13,20)*TWO
     * +R4(13,21)+R4(13,24)*TWO+R4(13,25)-R3(8,21)*TWO-R3(8,22)
     * -R3(8,25)*TWO-R3(8,26))*ZZ+(-R4(13,29)+R3(8,34)+R3(8,38)-R2(2,32)
     * -R2(2,36))*ZZZ
      F(1,4,6,4)= -R7(13,1)+R6(8,1)+R6(8,3)-R5(4,1)-R5(4,4)
     * -R5(13,11)*THREE+R4(8,18)*THREE+R4(8,22)*THREE-R3(4,19)*THREE
     * -R3(4,23)*THREE+(-R6(13,4)*TWO-R6(13,5)+R5(8,7)*TWO+R5(8,8)
     * +R5(8,9)*TWO+R5(8,10)-R4(4,6)*TWO-R4(4,7)-R4(4,12)*TWO-R4(4,13)
     * -R4(13,26)*TWO-R4(13,27)+R3(8,31)*TWO+R3(8,32)+R3(8,35)*TWO
     * +R3(8,36)-R2(2,29)*TWO-R2(2,30)-R2(2,33)*TWO-R2(2,34))*QX+(
     * -R5(13,12)-R5(13,13)*TWO+R4(8,19)+R4(8,20)*TWO+R4(8,23)
     * +R4(8,24)*TWO-R3(4,20)-R3(4,21)*TWO-R3(4,24)-R3(4,25)*TWO)*XX+(
     * -R4(13,28)+R3(8,33)+R3(8,37)-R2(2,31)-R2(2,35))*XXX
      F(2,4,6,4)= -R7(24,1)+R6(17,1)+R6(17,3)-R5(11,1)-R5(11,4)
     * -R5(13,11)*THREE+R4(8,18)*THREE+R4(8,22)*THREE-R3(4,19)*THREE
     * -R3(4,23)*THREE+(-R6(24,5)+R5(17,8)+R5(17,10)-R4(11,7)-R4(11,13)
     * -R4(13,27)*THREE+R3(8,32)*THREE+R3(8,36)*THREE-R2(2,30)*THREE
     * -R2(2,34)*THREE)*QX
      F(3,4,6,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)+R4(8,18)+R4(8,22)-R3(4,19)-R3(4,23)+(-R6(26,5)
     * +R5(19,8)+R5(19,10)-R4(13,7)-R4(13,13)-R4(13,27)+R3(8,32)
     * +R3(8,36)-R2(2,30)-R2(2,34))*QX+(-R6(19,4)*TWO+R5(13,7)*TWO
     * +R5(13,9)*TWO-R4(8,6)*TWO-R4(8,12)*TWO)*QZ+(-R5(19,13)*TWO
     * +R4(13,20)*TWO+R4(13,24)*TWO-R3(8,21)*TWO-R3(8,25)*TWO)*XZ+(
     * -R5(13,12)+R4(8,19)+R4(8,23)-R3(4,20)-R3(4,24))*ZZ+(-R4(13,28)
     * +R3(8,33)+R3(8,37)-R2(2,31)-R2(2,35))*XZZ
      F(4,4,6,4)= -R7(18,1)+R6(12,1)+R6(12,3)-R5(7,1)-R5(7,4)-R5(9,11)
     * -R5(18,11)+R4(5,18)+R4(12,18)+R4(5,22)+R4(12,22)-R3(2,19)
     * -R3(7,19)-R3(2,23)-R3(7,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(18,4)-R6(18,5)+R5(12,7)+R5(12,8)+R5(12,9)
     * +R5(12,10)-R4(7,6)-R4(7,7)-R4(7,12)-R4(7,13)-R4(9,26)-R4(9,27)
     * +R3(5,31)+R3(5,32)+R3(5,35)+R3(5,36)-R2(4,29)-R2(4,30)-R2(4,33)
     * -R2(4,34))*QX+(-R5(18,13)+R4(12,20)+R4(12,24)-R3(7,21)-R3(7,25)
     * -R3(9,41)+R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*XX
      F(5,4,6,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(19,11)
     * +R4(13,18)+R4(13,22)-R3(8,19)-R3(8,23)+(-R6(19,4)-R6(19,5)
     * +R5(13,7)+R5(13,8)+R5(13,9)+R5(13,10)-R4(8,6)-R4(8,7)-R4(8,12)
     * -R4(8,13))*QX+(-R6(13,4)+R5(8,7)+R5(8,9)-R4(4,6)-R4(4,12)
     * -R4(13,26)+R3(8,31)+R3(8,35)-R2(2,29)-R2(2,33))*QZ+(-R5(19,13)
     * +R4(13,20)+R4(13,24)-R3(8,21)-R3(8,25))*XX+(-R5(13,12)-R5(13,13)
     * +R4(8,19)+R4(8,20)+R4(8,23)+R4(8,24)-R3(4,20)-R3(4,21)-R3(4,24)
     * -R3(4,25))*XZ+(-R4(13,28)+R3(8,33)+R3(8,37)-R2(2,31)-R2(2,35))
     * *XXZ
      F(6,4,6,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)+R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(25,5)
     * +R5(18,8)+R5(18,10)-R4(12,7)-R4(12,13)-R4(14,27)+R3(9,32)
     * +R3(9,36)-R2(6,30)-R2(6,34))*QX+(-R6(18,4)+R5(12,7)+R5(12,9)
     * -R4(7,6)-R4(7,12)-R4(9,26)+R3(5,31)+R3(5,35)-R2(4,29)-R2(4,33))
     * *QZ+(-R5(18,13)+R4(12,20)+R4(12,24)-R3(7,21)-R3(7,25)-R3(9,41)
     * +R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*XZ
      F(1,5,6,4)= -R7(14,1)+R6(9,1)+R6(9,3)-R5(5,1)-R5(5,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(14,4)*TWO-R6(14,5)+R5(9,7)*TWO+R5(9,8)
     * +R5(9,9)*TWO+R5(9,10)-R4(5,6)*TWO-R4(5,7)-R4(5,12)*TWO-R4(5,13)
     * -R4(14,26)*TWO-R4(14,27)+R3(9,31)*TWO+R3(9,32)+R3(9,35)*TWO
     * +R3(9,36)-R2(6,29)*TWO-R2(6,30)-R2(6,33)*TWO-R2(6,34))*QX+(
     * -R6(9,5)+R5(5,8)+R5(5,10)-R4(2,7)-R4(2,13)-R4(9,27)*THREE
     * +R3(5,32)*THREE+R3(5,36)*THREE-R2(4,30)*THREE-R2(4,34)*THREE)*QZ
     * +(-R5(14,12)-R5(14,13)*TWO+R4(9,19)+R4(9,20)*TWO+R4(9,23)
     * +R4(9,24)*TWO-R3(5,20)-R3(5,21)*TWO-R3(5,24)-R3(5,25)*TWO)*XX+(
     * -R5(9,13)*TWO-R5(9,14)+R4(5,20)*TWO+R4(5,21)+R4(5,24)*TWO
     * +R4(5,25)-R3(2,21)*TWO-R3(2,22)-R3(2,25)*TWO-R3(2,26)
     * -R3(9,41)*TWO-R3(9,42)+R2(6,44)*TWO+R2(6,45)+R2(6,49)*TWO
     * +R2(6,50)-R1(2,33)*TWO-R1(2,34)-R1(2,38)*TWO-R1(2,39))*XZ+(
     * -R4(14,28)+R3(9,33)+R3(9,37)-R2(6,31)-R2(6,35))*XXX+(-R4(9,28)
     * -R4(9,29)*TWO+R3(5,33)+R3(5,34)*TWO+R3(5,37)+R3(5,38)*TWO
     * -R2(4,31)-R2(4,32)*TWO-R2(4,35)-R2(4,36)*TWO)*XXZ+(-R3(9,43)
     * +R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XXXZ
      F(2,5,6,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)+R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(25,5)
     * +R5(18,8)+R5(18,10)-R4(12,7)-R4(12,13)-R4(14,27)+R3(9,32)
     * +R3(9,36)-R2(6,30)-R2(6,34))*QX+(-R6(18,5)+R5(12,8)+R5(12,10)
     * -R4(7,7)-R4(7,13)-R4(9,27)+R3(5,32)+R3(5,36)-R2(4,30)-R2(4,34))
     * *QZ+(-R5(18,14)+R4(12,21)+R4(12,25)-R3(7,22)-R3(7,26)-R3(9,42)
     * +R2(6,45)+R2(6,50)-R1(2,34)-R1(2,39))*XZ
      F(3,5,6,4)= -R7(27,1)+R6(20,1)+R6(20,3)-R5(14,1)-R5(14,4)
     * -R5(14,11)*THREE+R4(9,18)*THREE+R4(9,22)*THREE-R3(5,19)*THREE
     * -R3(5,23)*THREE+(-R6(27,5)+R5(20,8)+R5(20,10)-R4(14,7)-R4(14,13)
     * -R4(14,27)*THREE+R3(9,32)*THREE+R3(9,36)*THREE-R2(6,30)*THREE
     * -R2(6,34)*THREE)*QX+(-R6(20,4)*TWO-R6(20,5)+R5(14,7)*TWO+R5(14,8)
     * +R5(14,9)*TWO+R5(14,10)-R4(9,6)*TWO-R4(9,7)-R4(9,12)*TWO-R4(9,13)
     * -R4(9,26)*TWO-R4(9,27)+R3(5,31)*TWO+R3(5,32)+R3(5,35)*TWO
     * +R3(5,36)-R2(4,29)*TWO-R2(4,30)-R2(4,33)*TWO-R2(4,34))*QZ+(
     * -R5(20,13)*TWO-R5(20,14)+R4(14,20)*TWO+R4(14,21)+R4(14,24)*TWO
     * +R4(14,25)-R3(9,21)*TWO-R3(9,22)-R3(9,25)*TWO-R3(9,26)
     * -R3(9,41)*TWO-R3(9,42)+R2(6,44)*TWO+R2(6,45)+R2(6,49)*TWO
     * +R2(6,50)-R1(2,33)*TWO-R1(2,34)-R1(2,38)*TWO-R1(2,39))*XZ+(
     * -R5(14,12)-R5(14,13)*TWO+R4(9,19)+R4(9,20)*TWO+R4(9,23)
     * +R4(9,24)*TWO-R3(5,20)-R3(5,21)*TWO-R3(5,24)-R3(5,25)*TWO)*ZZ+(
     * -R4(14,28)-R4(14,29)*TWO+R3(9,33)+R3(9,34)*TWO+R3(9,37)
     * +R3(9,38)*TWO-R2(6,31)-R2(6,32)*TWO-R2(6,35)-R2(6,36)*TWO)*XZZ+(
     * -R4(9,28)+R3(5,33)+R3(5,37)-R2(4,31)-R2(4,35))*ZZZ+(-R3(9,43)
     * +R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XZZZ
      F(4,5,6,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(19,11)
     * +R4(13,18)+R4(13,22)-R3(8,19)-R3(8,23)+(-R6(19,4)-R6(19,5)
     * +R5(13,7)+R5(13,8)+R5(13,9)+R5(13,10)-R4(8,6)-R4(8,7)-R4(8,12)
     * -R4(8,13))*QX+(-R6(13,5)+R5(8,8)+R5(8,10)-R4(4,7)-R4(4,13)
     * -R4(13,27)+R3(8,32)+R3(8,36)-R2(2,30)-R2(2,34))*QZ+(-R5(19,13)
     * +R4(13,20)+R4(13,24)-R3(8,21)-R3(8,25))*XX+(-R5(13,13)-R5(13,14)
     * +R4(8,20)+R4(8,21)+R4(8,24)+R4(8,25)-R3(4,21)-R3(4,22)-R3(4,25)
     * -R3(4,26))*XZ+(-R4(13,29)+R3(8,34)+R3(8,38)-R2(2,32)-R2(2,36))
     * *XXZ
      F(5,5,6,4)= -R7(20,1)+R6(14,1)+R6(14,3)-R5(9,1)-R5(9,4)-R5(9,11)
     * -R5(20,11)+R4(5,18)+R4(14,18)+R4(5,22)+R4(14,22)-R3(2,19)
     * -R3(9,19)-R3(2,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)-R1(2,31)
     * -R1(2,36)+(-R6(20,4)-R6(20,5)+R5(14,7)+R5(14,8)+R5(14,9)
     * +R5(14,10)-R4(9,6)-R4(9,7)-R4(9,12)-R4(9,13)-R4(9,26)-R4(9,27)
     * +R3(5,31)+R3(5,32)+R3(5,35)+R3(5,36)-R2(4,29)-R2(4,30)-R2(4,33)
     * -R2(4,34))*QX+(-R6(14,4)-R6(14,5)+R5(9,7)+R5(9,8)+R5(9,9)
     * +R5(9,10)-R4(5,6)-R4(5,7)-R4(5,12)-R4(5,13)-R4(14,26)-R4(14,27)
     * +R3(9,31)+R3(9,32)+R3(9,35)+R3(9,36)-R2(6,29)-R2(6,30)-R2(6,33)
     * -R2(6,34))*QZ+(-R5(20,13)+R4(14,20)+R4(14,24)-R3(9,21)-R3(9,25)
     * -R3(9,41)+R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*XX+(-R5(14,12)
     * -R5(14,13)*TWO-R5(14,14)+R4(9,19)+R4(9,20)*TWO+R4(9,21)+R4(9,23)
     * +R4(9,24)*TWO+R4(9,25)-R3(5,20)-R3(5,21)*TWO-R3(5,22)-R3(5,24)
     * -R3(5,25)*TWO-R3(5,26))*XZ+(-R5(9,13)+R4(5,20)+R4(5,24)-R3(2,21)
     * -R3(2,25)-R3(9,41)+R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*ZZ+(
     * -R4(14,28)-R4(14,29)+R3(9,33)+R3(9,34)+R3(9,37)+R3(9,38)-R2(6,31)
     * -R2(6,32)-R2(6,35)-R2(6,36))*XXZ+(-R4(9,28)-R4(9,29)+R3(5,33)
     * +R3(5,34)+R3(5,37)+R3(5,38)-R2(4,31)-R2(4,32)-R2(4,35)-R2(4,36))
     * *XZZ+(-R3(9,43)+R2(6,46)+R2(6,51)-R1(2,35)-R1(2,40))*XXZZ
      F(6,5,6,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)+R4(8,18)+R4(8,22)-R3(4,19)-R3(4,23)+(-R6(26,5)
     * +R5(19,8)+R5(19,10)-R4(13,7)-R4(13,13)-R4(13,27)+R3(8,32)
     * +R3(8,36)-R2(2,30)-R2(2,34))*QX+(-R6(19,4)-R6(19,5)+R5(13,7)
     * +R5(13,8)+R5(13,9)+R5(13,10)-R4(8,6)-R4(8,7)-R4(8,12)-R4(8,13))
     * *QZ+(-R5(19,13)-R5(19,14)+R4(13,20)+R4(13,21)+R4(13,24)+R4(13,25)
     * -R3(8,21)-R3(8,22)-R3(8,25)-R3(8,26))*XZ+(-R5(13,13)+R4(8,20)
     * +R4(8,24)-R3(4,21)-R3(4,25))*ZZ+(-R4(13,29)+R3(8,34)+R3(8,38)
     * -R2(2,32)-R2(2,36))*XZZ
      F(1,6,6,4)= -R7(19,1)+R6(13,1)+R6(13,3)-R5(8,1)-R5(8,4)-R5(19,11)
     * +R4(13,18)+R4(13,22)-R3(8,19)-R3(8,23)+(-R6(19,4)*TWO
     * +R5(13,7)*TWO+R5(13,9)*TWO-R4(8,6)*TWO-R4(8,12)*TWO)*QX+(
     * -R6(13,5)+R5(8,8)+R5(8,10)-R4(4,7)-R4(4,13)-R4(13,27)+R3(8,32)
     * +R3(8,36)-R2(2,30)-R2(2,34))*QZ+(-R5(19,12)+R4(13,19)+R4(13,23)
     * -R3(8,20)-R3(8,24))*XX+(-R5(13,13)*TWO+R4(8,20)*TWO+R4(8,24)*TWO
     * -R3(4,21)*TWO-R3(4,25)*TWO)*XZ+(-R4(13,28)+R3(8,33)+R3(8,37)
     * -R2(2,31)-R2(2,35))*XXZ
      F(2,6,6,4)= -R7(32,1)+R6(24,1)+R6(24,3)-R5(17,1)-R5(17,4)
     * -R5(19,11)*THREE+R4(13,18)*THREE+R4(13,22)*THREE-R3(8,19)*THREE
     * -R3(8,23)*THREE+(-R6(24,5)+R5(17,8)+R5(17,10)-R4(11,7)-R4(11,13)
     * -R4(13,27)*THREE+R3(8,32)*THREE+R3(8,36)*THREE-R2(2,30)*THREE
     * -R2(2,34)*THREE)*QZ
      F(3,6,6,4)= -R7(34,1)+R6(26,1)+R6(26,3)-R5(19,1)-R5(19,4)
     * -R5(19,11)*THREE+R4(13,18)*THREE+R4(13,22)*THREE-R3(8,19)*THREE
     * -R3(8,23)*THREE+(-R6(26,4)*TWO-R6(26,5)+R5(19,7)*TWO+R5(19,8)
     * +R5(19,9)*TWO+R5(19,10)-R4(13,6)*TWO-R4(13,7)-R4(13,12)*TWO
     * -R4(13,13)-R4(13,26)*TWO-R4(13,27)+R3(8,31)*TWO+R3(8,32)
     * +R3(8,35)*TWO+R3(8,36)-R2(2,29)*TWO-R2(2,30)-R2(2,33)*TWO
     * -R2(2,34))*QZ+(-R5(19,12)-R5(19,13)*TWO+R4(13,19)+R4(13,20)*TWO
     * +R4(13,23)+R4(13,24)*TWO-R3(8,20)-R3(8,21)*TWO-R3(8,24)
     * -R3(8,25)*TWO)*ZZ+(-R4(13,28)+R3(8,33)+R3(8,37)-R2(2,31)-R2(2,35)
     * )*ZZZ
      F(4,6,6,4)= -R7(25,1)+R6(18,1)+R6(18,3)-R5(12,1)-R5(12,4)
     * -R5(14,11)+R4(9,18)+R4(9,22)-R3(5,19)-R3(5,23)+(-R6(25,4)
     * +R5(18,7)+R5(18,9)-R4(12,6)-R4(12,12)-R4(14,26)+R3(9,31)+R3(9,35)
     * -R2(6,29)-R2(6,33))*QX+(-R6(18,5)+R5(12,8)+R5(12,10)-R4(7,7)
     * -R4(7,13)-R4(9,27)+R3(5,32)+R3(5,36)-R2(4,30)-R2(4,34))*QZ+(
     * -R5(18,13)+R4(12,20)+R4(12,24)-R3(7,21)-R3(7,25)-R3(9,41)
     * +R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*XZ
      F(5,6,6,4)= -R7(26,1)+R6(19,1)+R6(19,3)-R5(13,1)-R5(13,4)
     * -R5(13,11)+R4(8,18)+R4(8,22)-R3(4,19)-R3(4,23)+(-R6(26,4)
     * +R5(19,7)+R5(19,9)-R4(13,6)-R4(13,12)-R4(13,26)+R3(8,31)+R3(8,35)
     * -R2(2,29)-R2(2,33))*QX+(-R6(19,4)-R6(19,5)+R5(13,7)+R5(13,8)
     * +R5(13,9)+R5(13,10)-R4(8,6)-R4(8,7)-R4(8,12)-R4(8,13))*QZ+(
     * -R5(19,12)-R5(19,13)+R4(13,19)+R4(13,20)+R4(13,23)+R4(13,24)
     * -R3(8,20)-R3(8,21)-R3(8,24)-R3(8,25))*XZ+(-R5(13,13)+R4(8,20)
     * +R4(8,24)-R3(4,21)-R3(4,25))*ZZ+(-R4(13,28)+R3(8,33)+R3(8,37)
     * -R2(2,31)-R2(2,35))*XZZ
      F(6,6,6,4)= -R7(33,1)+R6(25,1)+R6(25,3)-R5(18,1)-R5(18,4)
     * -R5(18,11)-R5(20,11)+R4(12,18)+R4(14,18)+R4(12,22)+R4(14,22)
     * -R3(7,19)-R3(9,19)-R3(7,23)-R3(9,23)-R3(9,39)+R2(6,42)+R2(6,47)
     * -R1(2,31)-R1(2,36)+(-R6(25,4)-R6(25,5)+R5(18,7)+R5(18,8)+R5(18,9)
     * +R5(18,10)-R4(12,6)-R4(12,7)-R4(12,12)-R4(12,13)-R4(14,26)
     * -R4(14,27)+R3(9,31)+R3(9,32)+R3(9,35)+R3(9,36)-R2(6,29)-R2(6,30)
     * -R2(6,33)-R2(6,34))*QZ+(-R5(18,13)+R4(12,20)+R4(12,24)-R3(7,21)
     * -R3(7,25)-R3(9,41)+R2(6,44)+R2(6,49)-R1(2,33)-R1(2,38))*ZZ
      RETURN
      END
