C 10 NOV 04 - KI  - QUADRATURE CODE FOR S,P,D,L ROTATED AXIS CODE
C
C*MODULE INT2X   *DECK MCDV21N
      SUBROUTINE MCDV21N(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(2,1,1,5)= R8(8)-R7(4,2)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,2)*THREE-R5(1,17)-R5(4,17)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(4,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(8,4)*TWO-R6(4,8)*TWO+R5(8,6)*SIX
     * +R5(3,22)*TWO-R4(4,9)*SIX-R4(1,35)*TWO+R3(3,28)*SIX-R2(1,26)*SIX)
     * *QX+(+R6(8,12)-R5(4,20)+R4(8,17)*THREE+R4(3,41)-R3(4,18)*THREE
     * -R3(1,51)+R2(5,40)*THREE-R1(1,29)*THREE)*XX
      F(3,1,1,5)= R8(10)-R7(6,2)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,2)*THREE-R5(1,17)-R5(6,17)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(10,4)*TWO-R6(6,8)*TWO+R5(10,6)*SIX
     * +R5(3,22)*TWO-R4(6,9)*SIX-R4(1,35)*TWO+R3(3,28)*SIX-R2(1,26)*SIX)
     * *QX+(+R7(6,3)*TWO-R6(3,7)*TWO+R5(6,5)*SIX+R5(6,21)*TWO
     * -R4(3,8)*SIX-R4(3,34)*TWO+R3(6,27)*SIX-R2(5,25)*SIX)*QZ+(
     * +R6(10,12)-R5(6,20)+R4(10,17)*THREE+R4(3,41)-R3(6,18)*THREE
     * -R3(1,51)+R2(5,40)*THREE-R1(1,29)*THREE)*XX+(+R6(6,11)*FOUR
     * -R5(3,19)*FOUR+R4(6,16)*TWELV-R3(3,17)*TWELV)*XZ+(+R6(3,10)
     * -R5(1,18)+R4(3,15)*THREE+R4(3,39)-R3(1,16)*THREE-R3(1,49)
     * +R2(5,38)*THREE-R1(1,27)*THREE)*ZZ+(+R5(6,24)*TWO-R4(3,37)*TWO
     * +R3(6,30)*SIX-R2(5,28)*SIX)*XXZ+(+R5(3,23)*TWO-R4(1,36)*TWO
     * +R3(3,29)*SIX-R2(1,27)*SIX)*XZZ+(+R4(3,42)-R3(1,52)
     * +R2(5,41)*THREE-R1(1,30)*THREE)*XXZZ
      F(4,1,1,5)= R8(5)-R7(2,2)+R6(5,1)*THREE+R6(5,9)*THREE
     * -R5(2,2)*THREE-R5(2,17)*THREE+R4(5,14)*NINE-R3(2,15)*NINE+(
     * +R7(5,3)+R7(5,4)*TWO-R6(2,7)-R6(2,8)*TWO+R5(5,5)*THREE
     * +R5(5,6)*SIX+R5(5,21)+R5(5,22)*TWO-R4(2,8)*THREE-R4(2,9)*SIX
     * -R4(2,34)-R4(2,35)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,25)*THREE
     * -R2(4,26)*SIX)*QX+(+R6(5,11)*TWO+R6(5,12)-R5(2,19)*TWO-R5(2,20)
     * +R4(5,16)*SIX+R4(5,17)*THREE-R3(2,17)*SIX-R3(2,18)*THREE)*XX+(
     * +R5(5,24)-R4(2,37)+R3(5,30)*THREE-R2(4,28)*THREE)*XXX
      F(5,1,1,5)= R8(6)-R7(3,2)+R6(6,1)*THREE+R6(6,9)*THREE
     * -R5(3,2)*THREE-R5(3,17)*THREE+R4(6,14)*NINE-R3(3,15)*NINE+(
     * +R7(6,3)+R7(6,4)*TWO-R6(3,7)-R6(3,8)*TWO+R5(6,5)*THREE
     * +R5(6,6)*SIX+R5(6,21)+R5(6,22)*TWO-R4(3,8)*THREE-R4(3,9)*SIX
     * -R4(3,34)-R4(3,35)*TWO+R3(6,27)*THREE+R3(6,28)*SIX-R2(5,25)*THREE
     * -R2(5,26)*SIX)*QX+(+R7(3,3)-R6(1,7)+R5(3,5)*THREE+R5(3,21)*THREE
     * -R4(1,8)*THREE-R4(1,34)*THREE+R3(3,27)*NINE-R2(1,25)*NINE)*QZ+(
     * +R6(6,11)*TWO+R6(6,12)-R5(3,19)*TWO-R5(3,20)+R4(6,16)*SIX
     * +R4(6,17)*THREE-R3(3,17)*SIX-R3(3,18)*THREE)*XX+(+R6(3,10)
     * +R6(3,11)*TWO-R5(1,18)-R5(1,19)*TWO+R4(3,15)*THREE+R4(3,16)*SIX
     * +R4(3,39)+R4(3,40)*TWO-R3(1,16)*THREE-R3(1,17)*SIX-R3(1,49)
     * -R3(1,50)*TWO+R2(5,38)*THREE+R2(5,39)*SIX-R1(1,27)*THREE
     * -R1(1,28)*SIX)*XZ+(+R5(6,24)-R4(3,37)+R3(6,30)*THREE
     * -R2(5,28)*THREE)*XXX+(+R5(3,23)*TWO+R5(3,24)-R4(1,36)*TWO
     * -R4(1,37)+R3(3,29)*SIX+R3(3,30)*THREE-R2(1,27)*SIX-R2(1,28)*THREE
     * )*XXZ+(+R4(3,42)-R3(1,52)+R2(5,41)*THREE-R1(1,30)*THREE)*XXXZ
      F(6,1,1,5)= R8(9)-R7(5,2)+R6(9,1)*THREE+R6(9,9)-R5(5,2)*THREE
     * -R5(5,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,4)*TWO-R6(5,8)*TWO
     * +R5(9,6)*SIX-R4(5,9)*SIX)*QX+(+R7(5,3)-R6(2,7)+R5(5,5)*THREE
     * +R5(5,21)-R4(2,8)*THREE-R4(2,34)+R3(5,27)*THREE-R2(4,25)*THREE)
     * *QZ+(+R6(9,12)-R5(5,20)+R4(9,17)*THREE-R3(5,18)*THREE)*XX+(
     * +R6(5,11)*TWO-R5(2,19)*TWO+R4(5,16)*SIX-R3(2,17)*SIX)*XZ+(
     * +R5(5,24)-R4(2,37)+R3(5,30)*THREE-R2(4,28)*THREE)*XXZ
      F(1,2,1,5)= R8(8)-R7(4,2)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,2)*THREE-R5(1,17)-R5(4,17)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(4,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(8,3)*TWO-R6(4,7)*TWO+R5(8,5)*SIX
     * +R5(3,21)*TWO-R4(4,8)*SIX-R4(1,34)*TWO+R3(3,27)*SIX-R2(1,25)*SIX)
     * *QX+(+R6(8,10)-R5(4,18)+R4(8,15)*THREE+R4(3,39)-R3(4,16)*THREE
     * -R3(1,49)+R2(5,38)*THREE-R1(1,27)*THREE)*XX
      F(2,2,1,5)= R8(17)-R7(11,2)+R6(17,1)*THREE+R6(8,9)*SIX
     * -R5(11,2)*THREE-R5(4,17)*SIX+R4(8,14)*P18+R4(3,38)*THREE
     * -R3(4,15)*P18-R3(1,48)*THREE+R2(5,37)*NINE-R1(1,26)*NINE
      F(3,2,1,5)= R8(19)-R7(13,2)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,2)*THREE-R5(4,17)-R5(6,17)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(13,3)*TWO-R6(8,7)*TWO+R5(13,5)*SIX
     * +R5(6,21)*TWO-R4(8,8)*SIX-R4(3,34)*TWO+R3(6,27)*SIX-R2(5,25)*SIX)
     * *QZ+(+R6(8,10)-R5(4,18)+R4(8,15)*THREE+R4(3,39)-R3(4,16)*THREE
     * -R3(1,49)+R2(5,38)*THREE-R1(1,27)*THREE)*ZZ
      F(4,2,1,5)= R8(12)-R7(7,2)+R6(12,1)*THREE+R6(5,9)*THREE
     * -R5(7,2)*THREE-R5(2,17)*THREE+R4(5,14)*NINE-R3(2,15)*NINE+(
     * +R7(12,3)-R6(7,7)+R5(12,5)*THREE+R5(5,21)*THREE-R4(7,8)*THREE
     * -R4(2,34)*THREE+R3(5,27)*NINE-R2(4,25)*NINE)*QX
      F(5,2,1,5)= R8(13)-R7(8,2)+R6(13,1)*THREE+R6(6,9)-R5(8,2)*THREE
     * -R5(3,17)+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)-R6(8,7)
     * +R5(13,5)*THREE+R5(6,21)-R4(8,8)*THREE-R4(3,34)+R3(6,27)*THREE
     * -R2(5,25)*THREE)*QX+(+R7(8,3)-R6(4,7)+R5(8,5)*THREE+R5(3,21)
     * -R4(4,8)*THREE-R4(1,34)+R3(3,27)*THREE-R2(1,25)*THREE)*QZ+(
     * +R6(8,10)-R5(4,18)+R4(8,15)*THREE+R4(3,39)-R3(4,16)*THREE
     * -R3(1,49)+R2(5,38)*THREE-R1(1,27)*THREE)*XZ
      F(6,2,1,5)= R8(18)-R7(12,2)+R6(18,1)*THREE+R6(9,9)*THREE
     * -R5(12,2)*THREE-R5(5,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(12,3)-R6(7,7)+R5(12,5)*THREE+R5(5,21)*THREE-R4(7,8)*THREE
     * -R4(2,34)*THREE+R3(5,27)*NINE-R2(4,25)*NINE)*QZ
      F(1,3,1,5)= R8(10)-R7(6,2)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,2)*THREE-R5(1,17)-R5(6,17)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(10,3)*TWO-R6(6,7)*TWO+R5(10,5)*SIX
     * +R5(3,21)*TWO-R4(6,8)*SIX-R4(1,34)*TWO+R3(3,27)*SIX-R2(1,25)*SIX)
     * *QX+(+R7(6,4)*TWO-R6(3,8)*TWO+R5(6,6)*SIX+R5(6,22)*TWO
     * -R4(3,9)*SIX-R4(3,35)*TWO+R3(6,28)*SIX-R2(5,26)*SIX)*QZ+(
     * +R6(10,10)-R5(6,18)+R4(10,15)*THREE+R4(3,39)-R3(6,16)*THREE
     * -R3(1,49)+R2(5,38)*THREE-R1(1,27)*THREE)*XX+(+R6(6,11)*FOUR
     * -R5(3,19)*FOUR+R4(6,16)*TWELV-R3(3,17)*TWELV)*XZ+(+R6(3,12)
     * -R5(1,20)+R4(3,17)*THREE+R4(3,41)-R3(1,18)*THREE-R3(1,51)
     * +R2(5,40)*THREE-R1(1,29)*THREE)*ZZ+(+R5(6,23)*TWO-R4(3,36)*TWO
     * +R3(6,29)*SIX-R2(5,27)*SIX)*XXZ+(+R5(3,24)*TWO-R4(1,37)*TWO
     * +R3(3,30)*SIX-R2(1,28)*SIX)*XZZ+(+R4(3,42)-R3(1,52)
     * +R2(5,41)*THREE-R1(1,30)*THREE)*XXZZ
      F(2,3,1,5)= R8(19)-R7(13,2)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,2)*THREE-R5(4,17)-R5(6,17)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(13,4)*TWO-R6(8,8)*TWO+R5(13,6)*SIX
     * +R5(6,22)*TWO-R4(8,9)*SIX-R4(3,35)*TWO+R3(6,28)*SIX-R2(5,26)*SIX)
     * *QZ+(+R6(8,12)-R5(4,20)+R4(8,17)*THREE+R4(3,41)-R3(4,18)*THREE
     * -R3(1,51)+R2(5,40)*THREE-R1(1,29)*THREE)*ZZ
      F(3,3,1,5)= R8(21)-R7(15,2)+R6(21,1)*THREE+R6(10,9)*SIX
     * -R5(15,2)*THREE-R5(6,17)*SIX+R4(10,14)*P18+R4(3,38)*THREE
     * -R3(6,15)*P18-R3(1,48)*THREE+R2(5,37)*NINE-R1(1,26)*NINE+(
     * +R7(15,3)*TWO+R7(15,4)*TWO-R6(10,7)*TWO-R6(10,8)*TWO+R5(15,5)*SIX
     * +R5(15,6)*SIX+R5(6,21)*SIX+R5(6,22)*SIX-R4(10,8)*SIX-R4(10,9)*SIX
     * -R4(3,34)*SIX-R4(3,35)*SIX+R3(6,27)*P18+R3(6,28)*P18-R2(5,25)*P18
     * -R2(5,26)*P18)*QZ+(+R6(10,10)+R6(10,11)*FOUR+R6(10,12)-R5(6,18)
     * -R5(6,19)*FOUR-R5(6,20)+R4(10,15)*THREE+R4(10,16)*TWELV
     * +R4(10,17)*THREE+R4(3,39)+R4(3,40)*FOUR+R4(3,41)-R3(6,16)*THREE
     * -R3(6,17)*TWELV-R3(6,18)*THREE-R3(1,49)-R3(1,50)*FOUR-R3(1,51)
     * +R2(5,38)*THREE+R2(5,39)*TWELV+R2(5,40)*THREE-R1(1,27)*THREE
     * -R1(1,28)*TWELV-R1(1,29)*THREE)*ZZ+(+R5(6,23)*TWO+R5(6,24)*TWO
     * -R4(3,36)*TWO-R4(3,37)*TWO+R3(6,29)*SIX+R3(6,30)*SIX-R2(5,27)*SIX
     * -R2(5,28)*SIX)*ZZZ+(+R4(3,42)-R3(1,52)+R2(5,41)*THREE
     * -R1(1,30)*THREE)*ZZZZ
      F(4,3,1,5)= R8(14)-R7(9,2)+R6(14,1)*THREE+R6(5,9)-R5(9,2)*THREE
     * -R5(2,17)+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(14,3)-R6(9,7)
     * +R5(14,5)*THREE+R5(5,21)-R4(9,8)*THREE-R4(2,34)+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QX+(+R7(9,4)*TWO-R6(5,8)*TWO+R5(9,6)*SIX
     * -R4(5,9)*SIX)*QZ+(+R6(9,11)*TWO-R5(5,19)*TWO+R4(9,16)*SIX
     * -R3(5,17)*SIX)*XZ+(+R6(5,12)-R5(2,20)+R4(5,17)*THREE
     * -R3(2,18)*THREE)*ZZ+(+R5(5,24)-R4(2,37)+R3(5,30)*THREE
     * -R2(4,28)*THREE)*XZZ
      F(5,3,1,5)= R8(15)-R7(10,2)+R6(15,1)*THREE+R6(6,9)*THREE
     * -R5(10,2)*THREE-R5(3,17)*THREE+R4(6,14)*NINE-R3(3,15)*NINE+(
     * +R7(15,3)-R6(10,7)+R5(15,5)*THREE+R5(6,21)*THREE-R4(10,8)*THREE
     * -R4(3,34)*THREE+R3(6,27)*NINE-R2(5,25)*NINE)*QX+(+R7(10,3)
     * +R7(10,4)*TWO-R6(6,7)-R6(6,8)*TWO+R5(10,5)*THREE+R5(10,6)*SIX
     * +R5(3,21)+R5(3,22)*TWO-R4(6,8)*THREE-R4(6,9)*SIX-R4(1,34)
     * -R4(1,35)*TWO+R3(3,27)*THREE+R3(3,28)*SIX-R2(1,25)*THREE
     * -R2(1,26)*SIX)*QZ+(+R6(10,10)+R6(10,11)*TWO-R5(6,18)-R5(6,19)*TWO
     * +R4(10,15)*THREE+R4(10,16)*SIX+R4(3,39)+R4(3,40)*TWO
     * -R3(6,16)*THREE-R3(6,17)*SIX-R3(1,49)-R3(1,50)*TWO+R2(5,38)*THREE
     * +R2(5,39)*SIX-R1(1,27)*THREE-R1(1,28)*SIX)*XZ+(+R6(6,11)*TWO
     * +R6(6,12)-R5(3,19)*TWO-R5(3,20)+R4(6,16)*SIX+R4(6,17)*THREE
     * -R3(3,17)*SIX-R3(3,18)*THREE)*ZZ+(+R5(6,23)*TWO+R5(6,24)
     * -R4(3,36)*TWO-R4(3,37)+R3(6,29)*SIX+R3(6,30)*THREE-R2(5,27)*SIX
     * -R2(5,28)*THREE)*XZZ+(+R5(3,24)-R4(1,37)+R3(3,30)*THREE
     * -R2(1,28)*THREE)*ZZZ+(+R4(3,42)-R3(1,52)+R2(5,41)*THREE
     * -R1(1,30)*THREE)*XZZZ
      F(6,3,1,5)= R8(20)-R7(14,2)+R6(20,1)*THREE+R6(9,9)*THREE
     * -R5(14,2)*THREE-R5(5,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(14,3)+R7(14,4)*TWO-R6(9,7)-R6(9,8)*TWO+R5(14,5)*THREE
     * +R5(14,6)*SIX+R5(5,21)+R5(5,22)*TWO-R4(9,8)*THREE-R4(9,9)*SIX
     * -R4(2,34)-R4(2,35)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,25)*THREE
     * -R2(4,26)*SIX)*QZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*TWO-R5(5,20)
     * +R4(9,16)*SIX+R4(9,17)*THREE-R3(5,17)*SIX-R3(5,18)*THREE)*ZZ+(
     * +R5(5,24)-R4(2,37)+R3(5,30)*THREE-R2(4,28)*THREE)*ZZZ
      F(1,4,1,5)= R8(5)-R7(2,2)+R6(5,1)*THREE+R6(5,9)*THREE
     * -R5(2,2)*THREE-R5(2,17)*THREE+R4(5,14)*NINE-R3(2,15)*NINE+(
     * +R7(5,3)*TWO+R7(5,4)-R6(2,7)*TWO-R6(2,8)+R5(5,5)*SIX
     * +R5(5,6)*THREE+R5(5,21)*TWO+R5(5,22)-R4(2,8)*SIX-R4(2,9)*THREE
     * -R4(2,34)*TWO-R4(2,35)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,25)*SIX
     * -R2(4,26)*THREE)*QX+(+R6(5,10)+R6(5,11)*TWO-R5(2,18)-R5(2,19)*TWO
     * +R4(5,15)*THREE+R4(5,16)*SIX-R3(2,16)*THREE-R3(2,17)*SIX)*XX+(
     * +R5(5,23)-R4(2,36)+R3(5,29)*THREE-R2(4,27)*THREE)*XXX
      F(2,4,1,5)= R8(12)-R7(7,2)+R6(12,1)*THREE+R6(5,9)*THREE
     * -R5(7,2)*THREE-R5(2,17)*THREE+R4(5,14)*NINE-R3(2,15)*NINE+(
     * +R7(12,4)-R6(7,8)+R5(12,6)*THREE+R5(5,22)*THREE-R4(7,9)*THREE
     * -R4(2,35)*THREE+R3(5,28)*NINE-R2(4,26)*NINE)*QX
      F(3,4,1,5)= R8(14)-R7(9,2)+R6(14,1)*THREE+R6(5,9)-R5(9,2)*THREE
     * -R5(2,17)+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(14,4)-R6(9,8)
     * +R5(14,6)*THREE+R5(5,22)-R4(9,9)*THREE-R4(2,35)+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QX+(+R7(9,3)*TWO-R6(5,7)*TWO+R5(9,5)*SIX
     * -R4(5,8)*SIX)*QZ+(+R6(9,11)*TWO-R5(5,19)*TWO+R4(9,16)*SIX
     * -R3(5,17)*SIX)*XZ+(+R6(5,10)-R5(2,18)+R4(5,15)*THREE
     * -R3(2,16)*THREE)*ZZ+(+R5(5,23)-R4(2,36)+R3(5,29)*THREE
     * -R2(4,27)*THREE)*XZZ
      F(4,4,1,5)= R8(8)-R7(4,2)+R6(8,1)*THREE+R6(3,9)+R6(8,9)
     * -R5(4,2)*THREE-R5(1,17)-R5(4,17)+R4(3,14)*THREE+R4(8,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(4,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(8,3)+R7(8,4)-R6(4,7)-R6(4,8)+R5(8,5)*THREE
     * +R5(8,6)*THREE+R5(3,21)+R5(3,22)-R4(4,8)*THREE-R4(4,9)*THREE
     * -R4(1,34)-R4(1,35)+R3(3,27)*THREE+R3(3,28)*THREE-R2(1,25)*THREE
     * -R2(1,26)*THREE)*QX+(+R6(8,11)-R5(4,19)+R4(8,16)*THREE+R4(3,40)
     * -R3(4,17)*THREE-R3(1,50)+R2(5,39)*THREE-R1(1,28)*THREE)*XX
      F(5,4,1,5)= R8(9)-R7(5,2)+R6(9,1)*THREE+R6(9,9)-R5(5,2)*THREE
     * -R5(5,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)+R7(9,4)-R6(5,7)
     * -R6(5,8)+R5(9,5)*THREE+R5(9,6)*THREE-R4(5,8)*THREE-R4(5,9)*THREE)
     * *QX+(+R7(5,3)-R6(2,7)+R5(5,5)*THREE+R5(5,21)-R4(2,8)*THREE
     * -R4(2,34)+R3(5,27)*THREE-R2(4,25)*THREE)*QZ+(+R6(9,11)-R5(5,19)
     * +R4(9,16)*THREE-R3(5,17)*THREE)*XX+(+R6(5,10)+R6(5,11)-R5(2,18)
     * -R5(2,19)+R4(5,15)*THREE+R4(5,16)*THREE-R3(2,16)*THREE
     * -R3(2,17)*THREE)*XZ+(+R5(5,23)-R4(2,36)+R3(5,29)*THREE
     * -R2(4,27)*THREE)*XXZ
      F(6,4,1,5)= R8(13)-R7(8,2)+R6(13,1)*THREE+R6(6,9)-R5(8,2)*THREE
     * -R5(3,17)+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,4)-R6(8,8)
     * +R5(13,6)*THREE+R5(6,22)-R4(8,9)*THREE-R4(3,35)+R3(6,28)*THREE
     * -R2(5,26)*THREE)*QX+(+R7(8,3)-R6(4,7)+R5(8,5)*THREE+R5(3,21)
     * -R4(4,8)*THREE-R4(1,34)+R3(3,27)*THREE-R2(1,25)*THREE)*QZ+(
     * +R6(8,11)-R5(4,19)+R4(8,16)*THREE+R4(3,40)-R3(4,17)*THREE
     * -R3(1,50)+R2(5,39)*THREE-R1(1,28)*THREE)*XZ
      F(1,5,1,5)= R8(6)-R7(3,2)+R6(6,1)*THREE+R6(6,9)*THREE
     * -R5(3,2)*THREE-R5(3,17)*THREE+R4(6,14)*NINE-R3(3,15)*NINE+(
     * +R7(6,3)*TWO+R7(6,4)-R6(3,7)*TWO-R6(3,8)+R5(6,5)*SIX
     * +R5(6,6)*THREE+R5(6,21)*TWO+R5(6,22)-R4(3,8)*SIX-R4(3,9)*THREE
     * -R4(3,34)*TWO-R4(3,35)+R3(6,27)*SIX+R3(6,28)*THREE-R2(5,25)*SIX
     * -R2(5,26)*THREE)*QX+(+R7(3,4)-R6(1,8)+R5(3,6)*THREE
     * +R5(3,22)*THREE-R4(1,9)*THREE-R4(1,35)*THREE+R3(3,28)*NINE
     * -R2(1,26)*NINE)*QZ+(+R6(6,10)+R6(6,11)*TWO-R5(3,18)-R5(3,19)*TWO
     * +R4(6,15)*THREE+R4(6,16)*SIX-R3(3,16)*THREE-R3(3,17)*SIX)*XX+(
     * +R6(3,11)*TWO+R6(3,12)-R5(1,19)*TWO-R5(1,20)+R4(3,16)*SIX
     * +R4(3,17)*THREE+R4(3,40)*TWO+R4(3,41)-R3(1,17)*SIX-R3(1,18)*THREE
     * -R3(1,50)*TWO-R3(1,51)+R2(5,39)*SIX+R2(5,40)*THREE-R1(1,28)*SIX
     * -R1(1,29)*THREE)*XZ+(+R5(6,23)-R4(3,36)+R3(6,29)*THREE
     * -R2(5,27)*THREE)*XXX+(+R5(3,23)+R5(3,24)*TWO-R4(1,36)
     * -R4(1,37)*TWO+R3(3,29)*THREE+R3(3,30)*SIX-R2(1,27)*THREE
     * -R2(1,28)*SIX)*XXZ+(+R4(3,42)-R3(1,52)+R2(5,41)*THREE
     * -R1(1,30)*THREE)*XXXZ
      F(2,5,1,5)= R8(13)-R7(8,2)+R6(13,1)*THREE+R6(6,9)-R5(8,2)*THREE
     * -R5(3,17)+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,4)-R6(8,8)
     * +R5(13,6)*THREE+R5(6,22)-R4(8,9)*THREE-R4(3,35)+R3(6,28)*THREE
     * -R2(5,26)*THREE)*QX+(+R7(8,4)-R6(4,8)+R5(8,6)*THREE+R5(3,22)
     * -R4(4,9)*THREE-R4(1,35)+R3(3,28)*THREE-R2(1,26)*THREE)*QZ+(
     * +R6(8,12)-R5(4,20)+R4(8,17)*THREE+R4(3,41)-R3(4,18)*THREE
     * -R3(1,51)+R2(5,40)*THREE-R1(1,29)*THREE)*XZ
      F(3,5,1,5)= R8(15)-R7(10,2)+R6(15,1)*THREE+R6(6,9)*THREE
     * -R5(10,2)*THREE-R5(3,17)*THREE+R4(6,14)*NINE-R3(3,15)*NINE+(
     * +R7(15,4)-R6(10,8)+R5(15,6)*THREE+R5(6,22)*THREE-R4(10,9)*THREE
     * -R4(3,35)*THREE+R3(6,28)*NINE-R2(5,26)*NINE)*QX+(+R7(10,3)*TWO
     * +R7(10,4)-R6(6,7)*TWO-R6(6,8)+R5(10,5)*SIX+R5(10,6)*THREE
     * +R5(3,21)*TWO+R5(3,22)-R4(6,8)*SIX-R4(6,9)*THREE-R4(1,34)*TWO
     * -R4(1,35)+R3(3,27)*SIX+R3(3,28)*THREE-R2(1,25)*SIX-R2(1,26)*THREE
     * )*QZ+(+R6(10,11)*TWO+R6(10,12)-R5(6,19)*TWO-R5(6,20)
     * +R4(10,16)*SIX+R4(10,17)*THREE+R4(3,40)*TWO+R4(3,41)-R3(6,17)*SIX
     * -R3(6,18)*THREE-R3(1,50)*TWO-R3(1,51)+R2(5,39)*SIX+R2(5,40)*THREE
     * -R1(1,28)*SIX-R1(1,29)*THREE)*XZ+(+R6(6,10)+R6(6,11)*TWO-R5(3,18)
     * -R5(3,19)*TWO+R4(6,15)*THREE+R4(6,16)*SIX-R3(3,16)*THREE
     * -R3(3,17)*SIX)*ZZ+(+R5(6,23)+R5(6,24)*TWO-R4(3,36)-R4(3,37)*TWO
     * +R3(6,29)*THREE+R3(6,30)*SIX-R2(5,27)*THREE-R2(5,28)*SIX)*XZZ+(
     * +R5(3,23)-R4(1,36)+R3(3,29)*THREE-R2(1,27)*THREE)*ZZZ+(+R4(3,42)
     * -R3(1,52)+R2(5,41)*THREE-R1(1,30)*THREE)*XZZZ
      F(4,5,1,5)= R8(9)-R7(5,2)+R6(9,1)*THREE+R6(9,9)-R5(5,2)*THREE
     * -R5(5,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)+R7(9,4)-R6(5,7)
     * -R6(5,8)+R5(9,5)*THREE+R5(9,6)*THREE-R4(5,8)*THREE-R4(5,9)*THREE)
     * *QX+(+R7(5,4)-R6(2,8)+R5(5,6)*THREE+R5(5,22)-R4(2,9)*THREE
     * -R4(2,35)+R3(5,28)*THREE-R2(4,26)*THREE)*QZ+(+R6(9,11)-R5(5,19)
     * +R4(9,16)*THREE-R3(5,17)*THREE)*XX+(+R6(5,11)+R6(5,12)-R5(2,19)
     * -R5(2,20)+R4(5,16)*THREE+R4(5,17)*THREE-R3(2,17)*THREE
     * -R3(2,18)*THREE)*XZ+(+R5(5,24)-R4(2,37)+R3(5,30)*THREE
     * -R2(4,28)*THREE)*XXZ
      F(5,5,1,5)= R8(10)-R7(6,2)+R6(10,1)*THREE+R6(3,9)+R6(10,9)
     * -R5(6,2)*THREE-R5(1,17)-R5(6,17)+R4(3,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(1,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(10,3)+R7(10,4)-R6(6,7)-R6(6,8)
     * +R5(10,5)*THREE+R5(10,6)*THREE+R5(3,21)+R5(3,22)-R4(6,8)*THREE
     * -R4(6,9)*THREE-R4(1,34)-R4(1,35)+R3(3,27)*THREE+R3(3,28)*THREE
     * -R2(1,25)*THREE-R2(1,26)*THREE)*QX+(+R7(6,3)+R7(6,4)-R6(3,7)
     * -R6(3,8)+R5(6,5)*THREE+R5(6,6)*THREE+R5(6,21)+R5(6,22)
     * -R4(3,8)*THREE-R4(3,9)*THREE-R4(3,34)-R4(3,35)+R3(6,27)*THREE
     * +R3(6,28)*THREE-R2(5,25)*THREE-R2(5,26)*THREE)*QZ+(+R6(10,11)
     * -R5(6,19)+R4(10,16)*THREE+R4(3,40)-R3(6,17)*THREE-R3(1,50)
     * +R2(5,39)*THREE-R1(1,28)*THREE)*XX
      F(5,5,1,5)= F(5,5,1,5)+(+R6(6,10)+R6(6,11)*TWO
     * +R6(6,12)-R5(3,18)-R5(3,19)*TWO-R5(3,20)+R4(6,15)*THREE
     * +R4(6,16)*SIX+R4(6,17)*THREE-R3(3,16)*THREE-R3(3,17)*SIX
     * -R3(3,18)*THREE)*XZ+(+R6(3,11)-R5(1,19)+R4(3,16)*THREE+R4(3,40)
     * -R3(1,17)*THREE-R3(1,50)+R2(5,39)*THREE-R1(1,28)*THREE)*ZZ+(
     * +R5(6,23)+R5(6,24)-R4(3,36)-R4(3,37)+R3(6,29)*THREE
     * +R3(6,30)*THREE-R2(5,27)*THREE-R2(5,28)*THREE)*XXZ+(+R5(3,23)
     * +R5(3,24)-R4(1,36)-R4(1,37)+R3(3,29)*THREE+R3(3,30)*THREE
     * -R2(1,27)*THREE-R2(1,28)*THREE)*XZZ+(+R4(3,42)-R3(1,52)
     * +R2(5,41)*THREE-R1(1,30)*THREE)*XXZZ
      F(6,5,1,5)= R8(14)-R7(9,2)+R6(14,1)*THREE+R6(5,9)-R5(9,2)*THREE
     * -R5(2,17)+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(14,4)-R6(9,8)
     * +R5(14,6)*THREE+R5(5,22)-R4(9,9)*THREE-R4(2,35)+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QX+(+R7(9,3)+R7(9,4)-R6(5,7)-R6(5,8)
     * +R5(9,5)*THREE+R5(9,6)*THREE-R4(5,8)*THREE-R4(5,9)*THREE)*QZ+(
     * +R6(9,11)+R6(9,12)-R5(5,19)-R5(5,20)+R4(9,16)*THREE
     * +R4(9,17)*THREE-R3(5,17)*THREE-R3(5,18)*THREE)*XZ+(+R6(5,11)
     * -R5(2,19)+R4(5,16)*THREE-R3(2,17)*THREE)*ZZ+(+R5(5,24)-R4(2,37)
     * +R3(5,30)*THREE-R2(4,28)*THREE)*XZZ
      F(1,6,1,5)= R8(9)-R7(5,2)+R6(9,1)*THREE+R6(9,9)-R5(5,2)*THREE
     * -R5(5,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)*TWO-R6(5,7)*TWO
     * +R5(9,5)*SIX-R4(5,8)*SIX)*QX+(+R7(5,4)-R6(2,8)+R5(5,6)*THREE
     * +R5(5,22)-R4(2,9)*THREE-R4(2,35)+R3(5,28)*THREE-R2(4,26)*THREE)
     * *QZ+(+R6(9,10)-R5(5,18)+R4(9,15)*THREE-R3(5,16)*THREE)*XX+(
     * +R6(5,11)*TWO-R5(2,19)*TWO+R4(5,16)*SIX-R3(2,17)*SIX)*XZ+(
     * +R5(5,23)-R4(2,36)+R3(5,29)*THREE-R2(4,27)*THREE)*XXZ
      F(2,6,1,5)= R8(18)-R7(12,2)+R6(18,1)*THREE+R6(9,9)*THREE
     * -R5(12,2)*THREE-R5(5,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(12,4)-R6(7,8)+R5(12,6)*THREE+R5(5,22)*THREE-R4(7,9)*THREE
     * -R4(2,35)*THREE+R3(5,28)*NINE-R2(4,26)*NINE)*QZ
      F(3,6,1,5)= R8(20)-R7(14,2)+R6(20,1)*THREE+R6(9,9)*THREE
     * -R5(14,2)*THREE-R5(5,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(14,3)*TWO+R7(14,4)-R6(9,7)*TWO-R6(9,8)+R5(14,5)*SIX
     * +R5(14,6)*THREE+R5(5,21)*TWO+R5(5,22)-R4(9,8)*SIX-R4(9,9)*THREE
     * -R4(2,34)*TWO-R4(2,35)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,25)*SIX
     * -R2(4,26)*THREE)*QZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)-R5(5,19)*TWO
     * +R4(9,15)*THREE+R4(9,16)*SIX-R3(5,16)*THREE-R3(5,17)*SIX)*ZZ+(
     * +R5(5,23)-R4(2,36)+R3(5,29)*THREE-R2(4,27)*THREE)*ZZZ
      F(4,6,1,5)= R8(13)-R7(8,2)+R6(13,1)*THREE+R6(6,9)-R5(8,2)*THREE
     * -R5(3,17)+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)-R6(8,7)
     * +R5(13,5)*THREE+R5(6,21)-R4(8,8)*THREE-R4(3,34)+R3(6,27)*THREE
     * -R2(5,25)*THREE)*QX+(+R7(8,4)-R6(4,8)+R5(8,6)*THREE+R5(3,22)
     * -R4(4,9)*THREE-R4(1,35)+R3(3,28)*THREE-R2(1,26)*THREE)*QZ+(
     * +R6(8,11)-R5(4,19)+R4(8,16)*THREE+R4(3,40)-R3(4,17)*THREE
     * -R3(1,50)+R2(5,39)*THREE-R1(1,28)*THREE)*XZ
      F(5,6,1,5)= R8(14)-R7(9,2)+R6(14,1)*THREE+R6(5,9)-R5(9,2)*THREE
     * -R5(2,17)+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(14,3)-R6(9,7)
     * +R5(14,5)*THREE+R5(5,21)-R4(9,8)*THREE-R4(2,34)+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QX+(+R7(9,3)+R7(9,4)-R6(5,7)-R6(5,8)
     * +R5(9,5)*THREE+R5(9,6)*THREE-R4(5,8)*THREE-R4(5,9)*THREE)*QZ+(
     * +R6(9,10)+R6(9,11)-R5(5,18)-R5(5,19)+R4(9,15)*THREE
     * +R4(9,16)*THREE-R3(5,16)*THREE-R3(5,17)*THREE)*XZ+(+R6(5,11)
     * -R5(2,19)+R4(5,16)*THREE-R3(2,17)*THREE)*ZZ+(+R5(5,23)-R4(2,36)
     * +R3(5,29)*THREE-R2(4,27)*THREE)*XZZ
      F(6,6,1,5)= R8(19)-R7(13,2)+R6(19,1)*THREE+R6(8,9)+R6(10,9)
     * -R5(13,2)*THREE-R5(4,17)-R5(6,17)+R4(8,14)*THREE+R4(10,14)*THREE
     * +R4(3,38)-R3(4,15)*THREE-R3(6,15)*THREE-R3(1,48)+R2(5,37)*THREE
     * -R1(1,26)*THREE+(+R7(13,3)+R7(13,4)-R6(8,7)-R6(8,8)
     * +R5(13,5)*THREE+R5(13,6)*THREE+R5(6,21)+R5(6,22)-R4(8,8)*THREE
     * -R4(8,9)*THREE-R4(3,34)-R4(3,35)+R3(6,27)*THREE+R3(6,28)*THREE
     * -R2(5,25)*THREE-R2(5,26)*THREE)*QZ+(+R6(8,11)-R5(4,19)
     * +R4(8,16)*THREE+R4(3,40)-R3(4,17)*THREE-R3(1,50)+R2(5,39)*THREE
     * -R1(1,28)*THREE)*ZZ
      F(1,1,2,5)= R8(8)-R7(4,2)+R6(3,1)+R6(8,9)*SIX-R5(1,2)-R5(4,17)*SIX
     * +R4(3,14)*SIX+R4(8,38)*THREE-R3(1,15)*SIX-R3(4,48)*THREE
     * +R2(5,37)*THREE-R1(1,26)*THREE+(+R7(8,3)*TWO+R7(8,4)*TWO
     * -R6(4,7)*TWO-R6(4,8)*TWO+R5(3,5)*TWO+R5(3,6)*TWO+R5(8,21)*SIX
     * +R5(8,22)*SIX-R4(1,8)*TWO-R4(1,9)*TWO-R4(4,34)*SIX-R4(4,35)*SIX
     * +R3(3,27)*SIX+R3(3,28)*SIX-R2(1,25)*SIX-R2(1,26)*SIX)*QX+(
     * +R6(8,10)+R6(8,11)*FOUR+R6(8,12)-R5(4,18)-R5(4,19)*FOUR-R5(4,20)
     * +R4(3,15)+R4(3,16)*FOUR+R4(3,17)+R4(8,39)+R4(8,40)*FOUR+R4(8,41)
     * -R3(1,16)-R3(1,17)*FOUR-R3(1,18)-R3(4,49)-R3(4,50)*FOUR-R3(4,51)
     * +R2(5,38)+R2(5,39)*FOUR+R2(5,40)-R1(1,27)-R1(1,28)*FOUR-R1(1,29))
     * *XX+(+R5(8,23)*TWO+R5(8,24)*TWO-R4(4,36)*TWO-R4(4,37)*TWO
     * +R3(3,29)*TWO+R3(3,30)*TWO-R2(1,27)*TWO-R2(1,28)*TWO)*XXX+(
     * +R4(8,42)-R3(4,52)+R2(5,41)-R1(1,30))*XXXX
      F(2,1,2,5)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,4)*TWO-R6(11,8)*TWO
     * +R5(8,6)*TWO+R5(8,22)*TWO-R4(4,9)*TWO-R4(4,35)*TWO+R3(3,28)*TWO
     * -R2(1,26)*TWO)*QX+(+R6(17,12)-R5(11,20)+R4(8,17)+R4(8,41)
     * -R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))*XX
      F(3,1,2,5)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,4)*TWO-R6(13,8)*TWO
     * +R5(10,6)*TWO+R5(8,22)*TWO-R4(6,9)*TWO-R4(4,35)*TWO+R3(3,28)*TWO
     * -R2(1,26)*TWO)*QX+(+R7(13,3)*TWO-R6(8,7)*TWO+R5(6,5)*TWO
     * +R5(13,21)*TWO-R4(3,8)*TWO-R4(8,34)*TWO+R3(6,27)*TWO-R2(5,25)*TWO
     * )*QZ+(+R6(19,12)-R5(13,20)+R4(10,17)+R4(8,41)-R3(6,18)-R3(4,51)
     * +R2(5,40)-R1(1,29))*XX+(+R6(13,11)*FOUR-R5(8,19)*FOUR
     * +R4(6,16)*FOUR-R3(3,17)*FOUR)*XZ+(+R6(8,10)-R5(4,18)+R4(3,15)
     * +R4(8,39)-R3(1,16)-R3(4,49)+R2(5,38)-R1(1,27))*ZZ+(+R5(13,24)*TWO
     * -R4(8,37)*TWO+R3(6,30)*TWO-R2(5,28)*TWO)*XXZ+(+R5(8,23)*TWO
     * -R4(4,36)*TWO+R3(3,29)*TWO-R2(1,27)*TWO)*XZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXZZ
      F(4,1,2,5)= R8(12)-R7(7,2)+R6(5,1)+R6(12,9)*THREE-R5(2,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(12,3)
     * +R7(12,4)*TWO-R6(7,7)-R6(7,8)*TWO+R5(5,5)+R5(5,6)*TWO+R5(12,21)
     * +R5(12,22)*TWO-R4(2,8)-R4(2,9)*TWO-R4(7,34)-R4(7,35)*TWO+R3(5,27)
     * +R3(5,28)*TWO-R2(4,25)-R2(4,26)*TWO)*QX+(+R6(12,11)*TWO+R6(12,12)
     * -R5(7,19)*TWO-R5(7,20)+R4(5,16)*TWO+R4(5,17)-R3(2,17)*TWO
     * -R3(2,18))*XX+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XXX
      F(5,1,2,5)= R8(13)-R7(8,2)+R6(6,1)+R6(13,9)*THREE-R5(3,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)
     * +R7(13,4)*TWO-R6(8,7)-R6(8,8)*TWO+R5(6,5)+R5(6,6)*TWO+R5(13,21)
     * +R5(13,22)*TWO-R4(3,8)-R4(3,9)*TWO-R4(8,34)-R4(8,35)*TWO+R3(6,27)
     * +R3(6,28)*TWO-R2(5,25)-R2(5,26)*TWO)*QX+(+R7(8,3)-R6(4,7)+R5(3,5)
     * +R5(8,21)*THREE-R4(1,8)-R4(4,34)*THREE+R3(3,27)*THREE
     * -R2(1,25)*THREE)*QZ+(+R6(13,11)*TWO+R6(13,12)-R5(8,19)*TWO
     * -R5(8,20)+R4(6,16)*TWO+R4(6,17)-R3(3,17)*TWO-R3(3,18))*XX+(
     * +R6(8,10)+R6(8,11)*TWO-R5(4,18)-R5(4,19)*TWO+R4(3,15)
     * +R4(3,16)*TWO+R4(8,39)+R4(8,40)*TWO-R3(1,16)-R3(1,17)*TWO
     * -R3(4,49)-R3(4,50)*TWO+R2(5,38)+R2(5,39)*TWO-R1(1,27)
     * -R1(1,28)*TWO)*XZ+(+R5(13,24)-R4(8,37)+R3(6,30)-R2(5,28))*XXX+(
     * +R5(8,23)*TWO+R5(8,24)-R4(4,36)*TWO-R4(4,37)+R3(3,29)*TWO
     * +R3(3,30)-R2(1,27)*TWO-R2(1,28))*XXZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XXXZ
      F(6,1,2,5)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)*TWO-R6(12,8)*TWO+R5(9,6)*TWO
     * -R4(5,9)*TWO)*QX+(+R7(12,3)-R6(7,7)+R5(5,5)+R5(12,21)-R4(2,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QZ+(+R6(18,12)-R5(12,20)+R4(9,17)
     * -R3(5,18))*XX+(+R6(12,11)*TWO-R5(7,19)*TWO+R4(5,16)*TWO
     * -R3(2,17)*TWO)*XZ+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XXZ
      F(1,2,2,5)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,3)*TWO-R6(11,7)*TWO
     * +R5(8,5)*TWO+R5(8,21)*TWO-R4(4,8)*TWO-R4(4,34)*TWO+R3(3,27)*TWO
     * -R2(1,25)*TWO)*QX+(+R6(17,10)-R5(11,18)+R4(8,15)+R4(8,39)
     * -R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))*XX
      F(2,2,2,5)= R8(30)-R7(22,2)+R6(17,1)+R6(17,9)*SIX-R5(11,2)
     * -R5(11,17)*SIX+R4(8,14)*SIX+R4(8,38)*THREE-R3(4,15)*SIX
     * -R3(4,48)*THREE+R2(5,37)*THREE-R1(1,26)*THREE
      F(3,2,2,5)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,3)*TWO-R6(17,7)*TWO
     * +R5(13,5)*TWO+R5(13,21)*TWO-R4(8,8)*TWO-R4(8,34)*TWO+R3(6,27)*TWO
     * -R2(5,25)*TWO)*QZ+(+R6(17,10)-R5(11,18)+R4(8,15)+R4(8,39)
     * -R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))*ZZ
      F(4,2,2,5)= R8(23)-R7(16,2)+R6(12,1)+R6(12,9)*THREE-R5(7,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(23,3)-R6(16,7)
     * +R5(12,5)+R5(12,21)*THREE-R4(7,8)-R4(7,34)*THREE+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QX
      F(5,2,2,5)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,3)-R6(17,7)+R5(13,5)+R5(13,21)-R4(8,8)
     * -R4(8,34)+R3(6,27)-R2(5,25))*QX+(+R7(17,3)-R6(11,7)+R5(8,5)
     * +R5(8,21)-R4(4,8)-R4(4,34)+R3(3,27)-R2(1,25))*QZ+(+R6(17,10)
     * -R5(11,18)+R4(8,15)+R4(8,39)-R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))
     * *XZ
      F(6,2,2,5)= R8(31)-R7(23,2)+R6(18,1)+R6(18,9)*THREE-R5(12,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(23,3)
     * -R6(16,7)+R5(12,5)+R5(12,21)*THREE-R4(7,8)-R4(7,34)*THREE
     * +R3(5,27)*THREE-R2(4,25)*THREE)*QZ
      F(1,3,2,5)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,3)*TWO-R6(13,7)*TWO
     * +R5(10,5)*TWO+R5(8,21)*TWO-R4(6,8)*TWO-R4(4,34)*TWO+R3(3,27)*TWO
     * -R2(1,25)*TWO)*QX+(+R7(13,4)*TWO-R6(8,8)*TWO+R5(6,6)*TWO
     * +R5(13,22)*TWO-R4(3,9)*TWO-R4(8,35)*TWO+R3(6,28)*TWO-R2(5,26)*TWO
     * )*QZ+(+R6(19,10)-R5(13,18)+R4(10,15)+R4(8,39)-R3(6,16)-R3(4,49)
     * +R2(5,38)-R1(1,27))*XX+(+R6(13,11)*FOUR-R5(8,19)*FOUR
     * +R4(6,16)*FOUR-R3(3,17)*FOUR)*XZ+(+R6(8,12)-R5(4,20)+R4(3,17)
     * +R4(8,41)-R3(1,18)-R3(4,51)+R2(5,40)-R1(1,29))*ZZ+(+R5(13,23)*TWO
     * -R4(8,36)*TWO+R3(6,29)*TWO-R2(5,27)*TWO)*XXZ+(+R5(8,24)*TWO
     * -R4(4,37)*TWO+R3(3,30)*TWO-R2(1,28)*TWO)*XZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXZZ
      F(2,3,2,5)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,4)*TWO-R6(17,8)*TWO
     * +R5(13,6)*TWO+R5(13,22)*TWO-R4(8,9)*TWO-R4(8,35)*TWO+R3(6,28)*TWO
     * -R2(5,26)*TWO)*QZ+(+R6(17,12)-R5(11,20)+R4(8,17)+R4(8,41)
     * -R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))*ZZ
      F(3,3,2,5)= R8(34)-R7(26,2)+R6(21,1)+R6(19,9)*SIX-R5(15,2)
     * -R5(13,17)*SIX+R4(10,14)*SIX+R4(8,38)*THREE-R3(6,15)*SIX
     * -R3(4,48)*THREE+R2(5,37)*THREE-R1(1,26)*THREE+(+R7(26,3)*TWO
     * +R7(26,4)*TWO-R6(19,7)*TWO-R6(19,8)*TWO+R5(15,5)*TWO+R5(15,6)*TWO
     * +R5(13,21)*SIX+R5(13,22)*SIX-R4(10,8)*TWO-R4(10,9)*TWO
     * -R4(8,34)*SIX-R4(8,35)*SIX+R3(6,27)*SIX+R3(6,28)*SIX-R2(5,25)*SIX
     * -R2(5,26)*SIX)*QZ+(+R6(19,10)+R6(19,11)*FOUR+R6(19,12)-R5(13,18)
     * -R5(13,19)*FOUR-R5(13,20)+R4(10,15)+R4(10,16)*FOUR+R4(10,17)
     * +R4(8,39)+R4(8,40)*FOUR+R4(8,41)-R3(6,16)-R3(6,17)*FOUR-R3(6,18)
     * -R3(4,49)-R3(4,50)*FOUR-R3(4,51)+R2(5,38)+R2(5,39)*FOUR+R2(5,40)
     * -R1(1,27)-R1(1,28)*FOUR-R1(1,29))*ZZ+(+R5(13,23)*TWO
     * +R5(13,24)*TWO-R4(8,36)*TWO-R4(8,37)*TWO+R3(6,29)*TWO
     * +R3(6,30)*TWO-R2(5,27)*TWO-R2(5,28)*TWO)*ZZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*ZZZZ
      F(4,3,2,5)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,3)-R6(18,7)+R5(14,5)+R5(12,21)-R4(9,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QX+(+R7(18,4)*TWO-R6(12,8)*TWO
     * +R5(9,6)*TWO-R4(5,9)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,19)*TWO
     * +R4(9,16)*TWO-R3(5,17)*TWO)*XZ+(+R6(12,12)-R5(7,20)+R4(5,17)
     * -R3(2,18))*ZZ+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XZZ
      F(5,3,2,5)= R8(26)-R7(19,2)+R6(15,1)+R6(13,9)*THREE-R5(10,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(26,3)-R6(19,7)
     * +R5(15,5)+R5(13,21)*THREE-R4(10,8)-R4(8,34)*THREE+R3(6,27)*THREE
     * -R2(5,25)*THREE)*QX+(+R7(19,3)+R7(19,4)*TWO-R6(13,7)-R6(13,8)*TWO
     * +R5(10,5)+R5(10,6)*TWO+R5(8,21)+R5(8,22)*TWO-R4(6,8)-R4(6,9)*TWO
     * -R4(4,34)-R4(4,35)*TWO+R3(3,27)+R3(3,28)*TWO-R2(1,25)
     * -R2(1,26)*TWO)*QZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,18)
     * -R5(13,19)*TWO+R4(10,15)+R4(10,16)*TWO+R4(8,39)+R4(8,40)*TWO
     * -R3(6,16)-R3(6,17)*TWO-R3(4,49)-R3(4,50)*TWO+R2(5,38)
     * +R2(5,39)*TWO-R1(1,27)-R1(1,28)*TWO)*XZ+(+R6(13,11)*TWO+R6(13,12)
     * -R5(8,19)*TWO-R5(8,20)+R4(6,16)*TWO+R4(6,17)-R3(3,17)*TWO
     * -R3(3,18))*ZZ+(+R5(13,23)*TWO+R5(13,24)-R4(8,36)*TWO-R4(8,37)
     * +R3(6,29)*TWO+R3(6,30)-R2(5,27)*TWO-R2(5,28))*XZZ+(+R5(8,24)
     * -R4(4,37)+R3(3,30)-R2(1,28))*ZZZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XZZZ
      F(6,3,2,5)= R8(33)-R7(25,2)+R6(20,1)+R6(18,9)*THREE-R5(14,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(25,3)
     * +R7(25,4)*TWO-R6(18,7)-R6(18,8)*TWO+R5(14,5)+R5(14,6)*TWO
     * +R5(12,21)+R5(12,22)*TWO-R4(9,8)-R4(9,9)*TWO-R4(7,34)
     * -R4(7,35)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,25)-R2(4,26)*TWO)*QZ+(
     * +R6(18,11)*TWO+R6(18,12)-R5(12,19)*TWO-R5(12,20)+R4(9,16)*TWO
     * +R4(9,17)-R3(5,17)*TWO-R3(5,18))*ZZ+(+R5(12,24)-R4(7,37)+R3(5,30)
     * -R2(4,28))*ZZZ
      F(1,4,2,5)= R8(12)-R7(7,2)+R6(5,1)+R6(12,9)*THREE-R5(2,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(12,3)*TWO
     * +R7(12,4)-R6(7,7)*TWO-R6(7,8)+R5(5,5)*TWO+R5(5,6)+R5(12,21)*TWO
     * +R5(12,22)-R4(2,8)*TWO-R4(2,9)-R4(7,34)*TWO-R4(7,35)+R3(5,27)*TWO
     * +R3(5,28)-R2(4,25)*TWO-R2(4,26))*QX+(+R6(12,10)+R6(12,11)*TWO
     * -R5(7,18)-R5(7,19)*TWO+R4(5,15)+R4(5,16)*TWO-R3(2,16)
     * -R3(2,17)*TWO)*XX+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XXX
      F(2,4,2,5)= R8(23)-R7(16,2)+R6(12,1)+R6(12,9)*THREE-R5(7,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(23,4)-R6(16,8)
     * +R5(12,6)+R5(12,22)*THREE-R4(7,9)-R4(7,35)*THREE+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QX
      F(3,4,2,5)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,4)-R6(18,8)+R5(14,6)+R5(12,22)-R4(9,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QX+(+R7(18,3)*TWO-R6(12,7)*TWO
     * +R5(9,5)*TWO-R4(5,8)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,19)*TWO
     * +R4(9,16)*TWO-R3(5,17)*TWO)*XZ+(+R6(12,10)-R5(7,18)+R4(5,15)
     * -R3(2,16))*ZZ+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XZZ
      F(4,4,2,5)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,3)+R7(17,4)-R6(11,7)-R6(11,8)
     * +R5(8,5)+R5(8,6)+R5(8,21)+R5(8,22)-R4(4,8)-R4(4,9)-R4(4,34)
     * -R4(4,35)+R3(3,27)+R3(3,28)-R2(1,25)-R2(1,26))*QX+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XX
      F(5,4,2,5)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)+R5(9,5)
     * +R5(9,6)-R4(5,8)-R4(5,9))*QX+(+R7(12,3)-R6(7,7)+R5(5,5)+R5(12,21)
     * -R4(2,8)-R4(7,34)+R3(5,27)-R2(4,25))*QZ+(+R6(18,11)-R5(12,19)
     * +R4(9,16)-R3(5,17))*XX+(+R6(12,10)+R6(12,11)-R5(7,18)-R5(7,19)
     * +R4(5,15)+R4(5,16)-R3(2,16)-R3(2,17))*XZ+(+R5(12,23)-R4(7,36)
     * +R3(5,29)-R2(4,27))*XXZ
      F(6,4,2,5)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,4)-R6(17,8)+R5(13,6)+R5(13,22)-R4(8,9)
     * -R4(8,35)+R3(6,28)-R2(5,26))*QX+(+R7(17,3)-R6(11,7)+R5(8,5)
     * +R5(8,21)-R4(4,8)-R4(4,34)+R3(3,27)-R2(1,25))*QZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XZ
      F(1,5,2,5)= R8(13)-R7(8,2)+R6(6,1)+R6(13,9)*THREE-R5(3,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)*TWO
     * +R7(13,4)-R6(8,7)*TWO-R6(8,8)+R5(6,5)*TWO+R5(6,6)+R5(13,21)*TWO
     * +R5(13,22)-R4(3,8)*TWO-R4(3,9)-R4(8,34)*TWO-R4(8,35)+R3(6,27)*TWO
     * +R3(6,28)-R2(5,25)*TWO-R2(5,26))*QX+(+R7(8,4)-R6(4,8)+R5(3,6)
     * +R5(8,22)*THREE-R4(1,9)-R4(4,35)*THREE+R3(3,28)*THREE
     * -R2(1,26)*THREE)*QZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,18)
     * -R5(8,19)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,16)-R3(3,17)*TWO)*XX+(
     * +R6(8,11)*TWO+R6(8,12)-R5(4,19)*TWO-R5(4,20)+R4(3,16)*TWO
     * +R4(3,17)+R4(8,40)*TWO+R4(8,41)-R3(1,17)*TWO-R3(1,18)
     * -R3(4,50)*TWO-R3(4,51)+R2(5,39)*TWO+R2(5,40)-R1(1,28)*TWO
     * -R1(1,29))*XZ+(+R5(13,23)-R4(8,36)+R3(6,29)-R2(5,27))*XXX+(
     * +R5(8,23)+R5(8,24)*TWO-R4(4,36)-R4(4,37)*TWO+R3(3,29)
     * +R3(3,30)*TWO-R2(1,27)-R2(1,28)*TWO)*XXZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXXZ
      F(2,5,2,5)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,4)-R6(17,8)+R5(13,6)+R5(13,22)-R4(8,9)
     * -R4(8,35)+R3(6,28)-R2(5,26))*QX+(+R7(17,4)-R6(11,8)+R5(8,6)
     * +R5(8,22)-R4(4,9)-R4(4,35)+R3(3,28)-R2(1,26))*QZ+(+R6(17,12)
     * -R5(11,20)+R4(8,17)+R4(8,41)-R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))
     * *XZ
      F(3,5,2,5)= R8(26)-R7(19,2)+R6(15,1)+R6(13,9)*THREE-R5(10,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(26,4)-R6(19,8)
     * +R5(15,6)+R5(13,22)*THREE-R4(10,9)-R4(8,35)*THREE+R3(6,28)*THREE
     * -R2(5,26)*THREE)*QX+(+R7(19,3)*TWO+R7(19,4)-R6(13,7)*TWO-R6(13,8)
     * +R5(10,5)*TWO+R5(10,6)+R5(8,21)*TWO+R5(8,22)-R4(6,8)*TWO-R4(6,9)
     * -R4(4,34)*TWO-R4(4,35)+R3(3,27)*TWO+R3(3,28)-R2(1,25)*TWO
     * -R2(1,26))*QZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,19)*TWO-R5(13,20)
     * +R4(10,16)*TWO+R4(10,17)+R4(8,40)*TWO+R4(8,41)-R3(6,17)*TWO
     * -R3(6,18)-R3(4,50)*TWO-R3(4,51)+R2(5,39)*TWO+R2(5,40)
     * -R1(1,28)*TWO-R1(1,29))*XZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,18)
     * -R5(8,19)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,16)-R3(3,17)*TWO)*ZZ+(
     * +R5(13,23)+R5(13,24)*TWO-R4(8,36)-R4(8,37)*TWO+R3(6,29)
     * +R3(6,30)*TWO-R2(5,27)-R2(5,28)*TWO)*XZZ+(+R5(8,23)-R4(4,36)
     * +R3(3,29)-R2(1,27))*ZZZ+(+R4(8,42)-R3(4,52)+R2(5,41)-R1(1,30))
     * *XZZZ
      F(4,5,2,5)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)+R5(9,5)
     * +R5(9,6)-R4(5,8)-R4(5,9))*QX+(+R7(12,4)-R6(7,8)+R5(5,6)+R5(12,22)
     * -R4(2,9)-R4(7,35)+R3(5,28)-R2(4,26))*QZ+(+R6(18,11)-R5(12,19)
     * +R4(9,16)-R3(5,17))*XX+(+R6(12,11)+R6(12,12)-R5(7,19)-R5(7,20)
     * +R4(5,16)+R4(5,17)-R3(2,17)-R3(2,18))*XZ+(+R5(12,24)-R4(7,37)
     * +R3(5,30)-R2(4,28))*XXZ
      F(5,5,2,5)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,3)+R7(19,4)-R6(13,7)-R6(13,8)
     * +R5(10,5)+R5(10,6)+R5(8,21)+R5(8,22)-R4(6,8)-R4(6,9)-R4(4,34)
     * -R4(4,35)+R3(3,27)+R3(3,28)-R2(1,25)-R2(1,26))*QX+(+R7(13,3)
     * +R7(13,4)-R6(8,7)-R6(8,8)+R5(6,5)+R5(6,6)+R5(13,21)+R5(13,22)
     * -R4(3,8)-R4(3,9)-R4(8,34)-R4(8,35)+R3(6,27)+R3(6,28)-R2(5,25)
     * -R2(5,26))*QZ+(+R6(19,11)-R5(13,19)+R4(10,16)+R4(8,40)-R3(6,17)
     * -R3(4,50)+R2(5,39)-R1(1,28))*XX+(+R6(13,10)+R6(13,11)*TWO
     * +R6(13,12)-R5(8,18)-R5(8,19)*TWO-R5(8,20)+R4(6,15)+R4(6,16)*TWO
     * +R4(6,17)-R3(3,16)-R3(3,17)*TWO-R3(3,18))*XZ+(+R6(8,11)-R5(4,19)
     * +R4(3,16)+R4(8,40)-R3(1,17)-R3(4,50)+R2(5,39)-R1(1,28))*ZZ+(
     * +R5(13,23)+R5(13,24)-R4(8,36)-R4(8,37)+R3(6,29)+R3(6,30)-R2(5,27)
     * -R2(5,28))*XXZ+(+R5(8,23)+R5(8,24)-R4(4,36)-R4(4,37)+R3(3,29)
     * +R3(3,30)-R2(1,27)-R2(1,28))*XZZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XXZZ
      F(6,5,2,5)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,4)-R6(18,8)+R5(14,6)+R5(12,22)-R4(9,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QX+(+R7(18,3)+R7(18,4)-R6(12,7)
     * -R6(12,8)+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(+R6(18,11)
     * +R6(18,12)-R5(12,19)-R5(12,20)+R4(9,16)+R4(9,17)-R3(5,17)
     * -R3(5,18))*XZ+(+R6(12,11)-R5(7,19)+R4(5,16)-R3(2,17))*ZZ+(
     * +R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XZZ
      F(1,6,2,5)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)*TWO-R6(12,7)*TWO+R5(9,5)*TWO
     * -R4(5,8)*TWO)*QX+(+R7(12,4)-R6(7,8)+R5(5,6)+R5(12,22)-R4(2,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QZ+(+R6(18,10)-R5(12,18)+R4(9,15)
     * -R3(5,16))*XX+(+R6(12,11)*TWO-R5(7,19)*TWO+R4(5,16)*TWO
     * -R3(2,17)*TWO)*XZ+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XXZ
      F(2,6,2,5)= R8(31)-R7(23,2)+R6(18,1)+R6(18,9)*THREE-R5(12,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(23,4)
     * -R6(16,8)+R5(12,6)+R5(12,22)*THREE-R4(7,9)-R4(7,35)*THREE
     * +R3(5,28)*THREE-R2(4,26)*THREE)*QZ
      F(3,6,2,5)= R8(33)-R7(25,2)+R6(20,1)+R6(18,9)*THREE-R5(14,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(25,3)*TWO
     * +R7(25,4)-R6(18,7)*TWO-R6(18,8)+R5(14,5)*TWO+R5(14,6)
     * +R5(12,21)*TWO+R5(12,22)-R4(9,8)*TWO-R4(9,9)-R4(7,34)*TWO
     * -R4(7,35)+R3(5,27)*TWO+R3(5,28)-R2(4,25)*TWO-R2(4,26))*QZ+(
     * +R6(18,10)+R6(18,11)*TWO-R5(12,18)-R5(12,19)*TWO+R4(9,15)
     * +R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*ZZ+(+R5(12,23)-R4(7,36)
     * +R3(5,29)-R2(4,27))*ZZZ
      F(4,6,2,5)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,3)-R6(17,7)+R5(13,5)+R5(13,21)-R4(8,8)
     * -R4(8,34)+R3(6,27)-R2(5,25))*QX+(+R7(17,4)-R6(11,8)+R5(8,6)
     * +R5(8,22)-R4(4,9)-R4(4,35)+R3(3,28)-R2(1,26))*QZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XZ
      F(5,6,2,5)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,3)-R6(18,7)+R5(14,5)+R5(12,21)-R4(9,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QX+(+R7(18,3)+R7(18,4)-R6(12,7)
     * -R6(12,8)+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(+R6(18,10)
     * +R6(18,11)-R5(12,18)-R5(12,19)+R4(9,15)+R4(9,16)-R3(5,16)
     * -R3(5,17))*XZ+(+R6(12,11)-R5(7,19)+R4(5,16)-R3(2,17))*ZZ+(
     * +R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XZZ
      F(6,6,2,5)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,3)+R7(24,4)-R6(17,7)
     * -R6(17,8)+R5(13,5)+R5(13,6)+R5(13,21)+R5(13,22)-R4(8,8)-R4(8,9)
     * -R4(8,34)-R4(8,35)+R3(6,27)+R3(6,28)-R2(5,25)-R2(5,26))*QZ+(
     * +R6(17,11)-R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)
     * -R1(1,28))*ZZ
      F(1,1,3,5)= R8(10)-R7(6,1)*TWO-R7(6,2)+R6(3,1)*THREE+R6(3,2)
     * +R6(3,3)*TWO+R6(10,9)*SIX-R5(1,1)*TWO-R5(1,2)-R5(1,3)
     * -R5(6,13)*TWELV-R5(6,17)*SIX+R4(3,14)*P18+R4(3,18)*SIX
     * +R4(3,22)*TWELV+R4(10,38)*THREE-R3(1,11)*TWELV-R3(1,15)*SIX
     * -R3(1,19)*SIX-R3(6,43)*SIX-R3(6,48)*THREE+R2(5,37)*NINE
     * +R2(5,42)*THREE+R2(5,47)*SIX-R1(1,21)*SIX-R1(1,26)*THREE
     * -R1(1,31)*THREE+(+R7(10,3)*TWO+R7(10,4)*TWO-R6(6,5)*FOUR
     * -R6(6,6)*FOUR-R6(6,7)*TWO-R6(6,8)*TWO+R5(3,5)*SIX+R5(3,6)*SIX
     * +R5(3,7)*TWO+R5(3,8)*TWO+R5(3,9)*FOUR+R5(3,10)*FOUR+R5(10,21)*SIX
     * +R5(10,22)*SIX-R4(1,6)*FOUR-R4(1,7)*FOUR-R4(1,8)*TWO-R4(1,9)*TWO
     * -R4(1,10)*TWO-R4(1,11)*TWO-R4(6,30)*TWELV-R4(6,31)*TWELV
     * -R4(6,34)*SIX-R4(6,35)*SIX+R3(3,27)*P18+R3(3,28)*P18+R3(3,31)*SIX
     * +R3(3,32)*SIX+R3(3,35)*TWELV+R3(3,36)*TWELV-R2(1,21)*TWELV
     * -R2(1,22)*TWELV-R2(1,25)*SIX-R2(1,26)*SIX-R2(1,29)*SIX
     * -R2(1,30)*SIX)*QX
      F(1,1,3,5)= F(1,1,3,5)+(+R6(10,10)+R6(10,11)*FOUR+R6(10,12)
     * -R5(6,14)*TWO-R5(6,15)*EIGHT-R5(6,16)*TWO-R5(6,18)-R5(6,19)*FOUR
     * -R5(6,20)+R4(3,15)*THREE+R4(3,16)*TWELV+R4(3,17)*THREE+R4(3,19)
     * +R4(3,20)*FOUR+R4(3,21)+R4(3,23)*TWO+R4(3,24)*EIGHT+R4(3,25)*TWO
     * +R4(10,39)+R4(10,40)*FOUR+R4(10,41)-R3(1,12)*TWO-R3(1,13)*EIGHT
     * -R3(1,14)*TWO-R3(1,16)-R3(1,17)*FOUR-R3(1,18)-R3(1,20)
     * -R3(1,21)*FOUR-R3(1,22)-R3(6,44)*TWO-R3(6,45)*EIGHT-R3(6,46)*TWO
     * -R3(6,49)-R3(6,50)*FOUR-R3(6,51)+R2(5,38)*THREE+R2(5,39)*TWELV
     * +R2(5,40)*THREE+R2(5,43)+R2(5,44)*FOUR+R2(5,45)+R2(5,48)*TWO
     * +R2(5,49)*EIGHT+R2(5,50)*TWO-R1(1,22)*TWO-R1(1,23)*EIGHT
     * -R1(1,24)*TWO-R1(1,27)-R1(1,28)*FOUR-R1(1,29)-R1(1,32)
     * -R1(1,33)*FOUR-R1(1,34))*XX+(+R5(10,23)*TWO+R5(10,24)*TWO
     * -R4(6,32)*FOUR-R4(6,33)*FOUR-R4(6,36)*TWO-R4(6,37)*TWO
     * +R3(3,29)*SIX+R3(3,30)*SIX+R3(3,33)*TWO+R3(3,34)*TWO
     * +R3(3,37)*FOUR+R3(3,38)*FOUR-R2(1,23)*FOUR-R2(1,24)*FOUR
     * -R2(1,27)*TWO-R2(1,28)*TWO-R2(1,31)*TWO-R2(1,32)*TWO)*XXX+(
     * +R4(10,42)-R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)
     * +R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)-R1(1,35))*XXXX
      F(2,1,3,5)= R8(19)-R7(13,1)*TWO-R7(13,2)+R6(8,1)*THREE+R6(8,2)
     * +R6(8,3)*TWO+R6(10,9)+R6(19,9)-R5(4,1)*TWO-R5(4,2)-R5(4,3)
     * -R5(6,13)*TWO-R5(13,13)*TWO-R5(6,17)-R5(13,17)+R4(3,14)*THREE
     * +R4(8,14)*THREE+R4(3,18)+R4(8,18)+R4(3,22)*TWO+R4(8,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(4,11)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(19,4)*TWO
     * -R6(13,6)*FOUR-R6(13,8)*TWO+R5(8,6)*SIX+R5(8,8)*TWO+R5(8,10)*FOUR
     * +R5(10,22)*TWO-R4(4,7)*FOUR-R4(4,9)*TWO-R4(4,11)*TWO
     * -R4(6,31)*FOUR-R4(6,35)*TWO+R3(3,28)*SIX+R3(3,32)*TWO
     * +R3(3,36)*FOUR-R2(1,22)*FOUR-R2(1,26)*TWO-R2(1,30)*TWO)*QX+(
     * +R6(19,12)-R5(13,16)*TWO-R5(13,20)+R4(8,17)*THREE+R4(8,21)
     * +R4(8,25)*TWO+R4(10,41)-R3(4,14)*TWO-R3(4,18)-R3(4,22)
     * -R3(6,46)*TWO-R3(6,51)+R2(5,40)*THREE+R2(5,45)+R2(5,50)*TWO
     * -R1(1,24)*TWO-R1(1,29)-R1(1,34))*XX
      F(3,1,3,5)= R8(21)-R7(15,1)*TWO-R7(15,2)+R6(10,1)*THREE+R6(10,2)
     * +R6(10,3)*TWO+R6(10,9)+R6(21,9)-R5(6,1)*TWO-R5(6,2)-R5(6,3)
     * -R5(6,13)*TWO-R5(15,13)*TWO-R5(6,17)-R5(15,17)+R4(3,14)*THREE
     * +R4(10,14)*THREE+R4(3,18)+R4(10,18)+R4(3,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(6,11)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(21,4)*TWO
     * -R6(15,6)*FOUR-R6(15,8)*TWO+R5(10,6)*SIX+R5(10,8)*TWO
     * +R5(10,10)*FOUR+R5(10,22)*TWO-R4(6,7)*FOUR-R4(6,9)*TWO
     * -R4(6,11)*TWO-R4(6,31)*FOUR-R4(6,35)*TWO+R3(3,28)*SIX
     * +R3(3,32)*TWO+R3(3,36)*FOUR-R2(1,22)*FOUR-R2(1,26)*TWO
     * -R2(1,30)*TWO)*QX+(+R7(15,3)*TWO-R6(10,5)*FOUR-R6(10,7)*TWO
     * +R5(6,5)*SIX+R5(6,7)*TWO+R5(6,9)*FOUR+R5(15,21)*TWO-R4(3,6)*FOUR
     * -R4(3,8)*TWO-R4(3,10)*TWO-R4(10,30)*FOUR-R4(10,34)*TWO
     * +R3(6,27)*SIX+R3(6,31)*TWO+R3(6,35)*FOUR-R2(5,21)*FOUR
     * -R2(5,25)*TWO-R2(5,29)*TWO)*QZ
      F(3,1,3,5)= F(3,1,3,5)+(+R6(21,12)-R5(15,16)*TWO
     * -R5(15,20)+R4(10,17)*THREE+R4(10,21)+R4(10,25)*TWO+R4(10,41)
     * -R3(6,14)*TWO-R3(6,18)-R3(6,22)-R3(6,46)*TWO-R3(6,51)
     * +R2(5,40)*THREE+R2(5,45)+R2(5,50)*TWO-R1(1,24)*TWO-R1(1,29)
     * -R1(1,34))*XX+(+R6(15,11)*FOUR-R5(10,15)*EIGHT-R5(10,19)*FOUR
     * +R4(6,16)*TWELV+R4(6,20)*FOUR+R4(6,24)*EIGHT-R3(3,13)*EIGHT
     * -R3(3,17)*FOUR-R3(3,21)*FOUR)*XZ+(+R6(10,10)-R5(6,14)*TWO
     * -R5(6,18)+R4(3,15)*THREE+R4(3,19)+R4(3,23)*TWO+R4(10,39)
     * -R3(1,12)*TWO-R3(1,16)-R3(1,20)-R3(6,44)*TWO-R3(6,49)
     * +R2(5,38)*THREE+R2(5,43)+R2(5,48)*TWO-R1(1,22)*TWO-R1(1,27)
     * -R1(1,32))*ZZ+(+R5(15,24)*TWO-R4(10,33)*FOUR-R4(10,37)*TWO
     * +R3(6,30)*SIX+R3(6,34)*TWO+R3(6,38)*FOUR-R2(5,24)*FOUR
     * -R2(5,28)*TWO-R2(5,32)*TWO)*XXZ+(+R5(10,23)*TWO-R4(6,32)*FOUR
     * -R4(6,36)*TWO+R3(3,29)*SIX+R3(3,33)*TWO+R3(3,37)*FOUR
     * -R2(1,23)*FOUR-R2(1,27)*TWO-R2(1,31)*TWO)*XZZ+(+R4(10,42)
     * -R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)+R2(5,51)*TWO
     * -R1(1,25)*TWO-R1(1,30)-R1(1,35))*XXZZ
      F(4,1,3,5)= R8(14)-R7(9,1)*TWO-R7(9,2)+R6(5,1)*THREE+R6(5,2)
     * +R6(5,3)*TWO+R6(14,9)*THREE-R5(2,1)*TWO-R5(2,2)-R5(2,3)
     * -R5(9,13)*SIX-R5(9,17)*THREE+R4(5,14)*NINE+R4(5,18)*THREE
     * +R4(5,22)*SIX-R3(2,11)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(
     * +R7(14,3)+R7(14,4)*TWO-R6(9,5)*TWO-R6(9,6)*FOUR-R6(9,7)
     * -R6(9,8)*TWO+R5(5,5)*THREE+R5(5,6)*SIX+R5(5,7)+R5(5,8)*TWO
     * +R5(5,9)*TWO+R5(5,10)*FOUR+R5(14,21)+R5(14,22)*TWO-R4(2,6)*TWO
     * -R4(2,7)*FOUR-R4(2,8)-R4(2,9)*TWO-R4(2,10)-R4(2,11)*TWO
     * -R4(9,30)*TWO-R4(9,31)*FOUR-R4(9,34)-R4(9,35)*TWO+R3(5,27)*THREE
     * +R3(5,28)*SIX+R3(5,31)+R3(5,32)*TWO+R3(5,35)*TWO+R3(5,36)*FOUR
     * -R2(4,21)*TWO-R2(4,22)*FOUR-R2(4,25)-R2(4,26)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QX+(+R6(14,11)*TWO+R6(14,12)-R5(9,15)*FOUR
     * -R5(9,16)*TWO-R5(9,19)*TWO-R5(9,20)+R4(5,16)*SIX+R4(5,17)*THREE
     * +R4(5,20)*TWO+R4(5,21)+R4(5,24)*FOUR+R4(5,25)*TWO-R3(2,13)*FOUR
     * -R3(2,14)*TWO-R3(2,17)*TWO-R3(2,18)-R3(2,21)*TWO-R3(2,22))*XX+(
     * +R5(14,24)-R4(9,33)*TWO-R4(9,37)+R3(5,30)*THREE+R3(5,34)
     * +R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)-R2(4,32))*XXX
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21O
      SUBROUTINE MCDV21O(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,5)= R8(15)-R7(10,1)*TWO-R7(10,2)+R6(6,1)*THREE+R6(6,2)
     * +R6(6,3)*TWO+R6(15,9)*THREE-R5(3,1)*TWO-R5(3,2)-R5(3,3)
     * -R5(10,13)*SIX-R5(10,17)*THREE+R4(6,14)*NINE+R4(6,18)*THREE
     * +R4(6,22)*SIX-R3(3,11)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * +R7(15,3)+R7(15,4)*TWO-R6(10,5)*TWO-R6(10,6)*FOUR-R6(10,7)
     * -R6(10,8)*TWO+R5(6,5)*THREE+R5(6,6)*SIX+R5(6,7)+R5(6,8)*TWO
     * +R5(6,9)*TWO+R5(6,10)*FOUR+R5(15,21)+R5(15,22)*TWO-R4(3,6)*TWO
     * -R4(3,7)*FOUR-R4(3,8)-R4(3,9)*TWO-R4(3,10)-R4(3,11)*TWO
     * -R4(10,30)*TWO-R4(10,31)*FOUR-R4(10,34)-R4(10,35)*TWO
     * +R3(6,27)*THREE+R3(6,28)*SIX+R3(6,31)+R3(6,32)*TWO+R3(6,35)*TWO
     * +R3(6,36)*FOUR-R2(5,21)*TWO-R2(5,22)*FOUR-R2(5,25)-R2(5,26)*TWO
     * -R2(5,29)-R2(5,30)*TWO)*QX
      F(5,1,3,5)= F(5,1,3,5)+(+R7(10,3)-R6(6,5)*TWO-R6(6,7)
     * +R5(3,5)*THREE+R5(3,7)+R5(3,9)*TWO+R5(10,21)*THREE-R4(1,6)*TWO
     * -R4(1,8)-R4(1,10)-R4(6,30)*SIX-R4(6,34)*THREE+R3(3,27)*NINE
     * +R3(3,31)*THREE+R3(3,35)*SIX-R2(1,21)*SIX-R2(1,25)*THREE
     * -R2(1,29)*THREE)*QZ+(+R6(15,11)*TWO+R6(15,12)-R5(10,15)*FOUR
     * -R5(10,16)*TWO-R5(10,19)*TWO-R5(10,20)+R4(6,16)*SIX
     * +R4(6,17)*THREE+R4(6,20)*TWO+R4(6,21)+R4(6,24)*FOUR+R4(6,25)*TWO
     * -R3(3,13)*FOUR-R3(3,14)*TWO-R3(3,17)*TWO-R3(3,18)-R3(3,21)*TWO
     * -R3(3,22))*XX+(+R6(10,10)+R6(10,11)*TWO-R5(6,14)*TWO
     * -R5(6,15)*FOUR-R5(6,18)-R5(6,19)*TWO+R4(3,15)*THREE+R4(3,16)*SIX
     * +R4(3,19)+R4(3,20)*TWO+R4(3,23)*TWO+R4(3,24)*FOUR+R4(10,39)
     * +R4(10,40)*TWO-R3(1,12)*TWO-R3(1,13)*FOUR-R3(1,16)-R3(1,17)*TWO
     * -R3(1,20)-R3(1,21)*TWO-R3(6,44)*TWO-R3(6,45)*FOUR-R3(6,49)
     * -R3(6,50)*TWO+R2(5,38)*THREE+R2(5,39)*SIX+R2(5,43)+R2(5,44)*TWO
     * +R2(5,48)*TWO+R2(5,49)*FOUR-R1(1,22)*TWO-R1(1,23)*FOUR-R1(1,27)
     * -R1(1,28)*TWO-R1(1,32)-R1(1,33)*TWO)*XZ
      F(5,1,3,5)= F(5,1,3,5)+(+R5(15,24)-R4(10,33)*TWO
     * -R4(10,37)+R3(6,30)*THREE+R3(6,34)+R3(6,38)*TWO-R2(5,24)*TWO
     * -R2(5,28)-R2(5,32))*XXX+(+R5(10,23)*TWO+R5(10,24)-R4(6,32)*FOUR
     * -R4(6,33)*TWO-R4(6,36)*TWO-R4(6,37)+R3(3,29)*SIX+R3(3,30)*THREE
     * +R3(3,33)*TWO+R3(3,34)+R3(3,37)*FOUR+R3(3,38)*TWO-R2(1,23)*FOUR
     * -R2(1,24)*TWO-R2(1,27)*TWO-R2(1,28)-R2(1,31)*TWO-R2(1,32))*XXZ+(
     * +R4(10,42)-R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)
     * +R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)-R1(1,35))*XXXZ
      F(6,1,3,5)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)-R5(5,1)*TWO-R5(5,2)-R5(5,3)-R5(14,13)*TWO
     * -R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO-R3(5,11)*TWO
     * -R3(5,15)-R3(5,19)+(+R7(20,4)*TWO-R6(14,6)*FOUR-R6(14,8)*TWO
     * +R5(9,6)*SIX+R5(9,8)*TWO+R5(9,10)*FOUR-R4(5,7)*FOUR-R4(5,9)*TWO
     * -R4(5,11)*TWO)*QX+(+R7(14,3)-R6(9,5)*TWO-R6(9,7)+R5(5,5)*THREE
     * +R5(5,7)+R5(5,9)*TWO+R5(14,21)-R4(2,6)*TWO-R4(2,8)-R4(2,10)
     * -R4(9,30)*TWO-R4(9,34)+R3(5,27)*THREE+R3(5,31)+R3(5,35)*TWO
     * -R2(4,21)*TWO-R2(4,25)-R2(4,29))*QZ+(+R6(20,12)-R5(14,16)*TWO
     * -R5(14,20)+R4(9,17)*THREE+R4(9,21)+R4(9,25)*TWO-R3(5,14)*TWO
     * -R3(5,18)-R3(5,22))*XX+(+R6(14,11)*TWO-R5(9,15)*FOUR-R5(9,19)*TWO
     * +R4(5,16)*SIX+R4(5,20)*TWO+R4(5,24)*FOUR-R3(2,13)*FOUR
     * -R3(2,17)*TWO-R3(2,21)*TWO)*XZ+(+R5(14,24)-R4(9,33)*TWO-R4(9,37)
     * +R3(5,30)*THREE+R3(5,34)+R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)
     * -R2(4,32))*XXZ
      F(1,2,3,5)= R8(19)-R7(13,1)*TWO-R7(13,2)+R6(8,1)*THREE+R6(8,2)
     * +R6(8,3)*TWO+R6(10,9)+R6(19,9)-R5(4,1)*TWO-R5(4,2)-R5(4,3)
     * -R5(6,13)*TWO-R5(13,13)*TWO-R5(6,17)-R5(13,17)+R4(3,14)*THREE
     * +R4(8,14)*THREE+R4(3,18)+R4(8,18)+R4(3,22)*TWO+R4(8,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(4,11)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(19,3)*TWO
     * -R6(13,5)*FOUR-R6(13,7)*TWO+R5(8,5)*SIX+R5(8,7)*TWO+R5(8,9)*FOUR
     * +R5(10,21)*TWO-R4(4,6)*FOUR-R4(4,8)*TWO-R4(4,10)*TWO
     * -R4(6,30)*FOUR-R4(6,34)*TWO+R3(3,27)*SIX+R3(3,31)*TWO
     * +R3(3,35)*FOUR-R2(1,21)*FOUR-R2(1,25)*TWO-R2(1,29)*TWO)*QX+(
     * +R6(19,10)-R5(13,14)*TWO-R5(13,18)+R4(8,15)*THREE+R4(8,19)
     * +R4(8,23)*TWO+R4(10,39)-R3(4,12)*TWO-R3(4,16)-R3(4,20)
     * -R3(6,44)*TWO-R3(6,49)+R2(5,38)*THREE+R2(5,43)+R2(5,48)*TWO
     * -R1(1,22)*TWO-R1(1,27)-R1(1,32))*XX
      F(2,2,3,5)= R8(32)-R7(24,1)*TWO-R7(24,2)+R6(17,1)*THREE+R6(17,2)
     * +R6(17,3)*TWO+R6(19,9)*SIX-R5(11,1)*TWO-R5(11,2)-R5(11,3)
     * -R5(13,13)*TWELV-R5(13,17)*SIX+R4(8,14)*P18+R4(8,18)*SIX
     * +R4(8,22)*TWELV+R4(10,38)*THREE-R3(4,11)*TWELV-R3(4,15)*SIX
     * -R3(4,19)*SIX-R3(6,43)*SIX-R3(6,48)*THREE+R2(5,37)*NINE
     * +R2(5,42)*THREE+R2(5,47)*SIX-R1(1,21)*SIX-R1(1,26)*THREE
     * -R1(1,31)*THREE
      F(3,2,3,5)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)+R6(21,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(15,13)*TWO-R5(13,17)-R5(15,17)+R4(8,14)*THREE
     * +R4(10,14)*THREE+R4(8,18)+R4(10,18)+R4(8,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(4,11)*TWO-R3(6,11)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(26,3)*TWO
     * -R6(19,5)*FOUR-R6(19,7)*TWO+R5(13,5)*SIX+R5(13,7)*TWO
     * +R5(13,9)*FOUR+R5(15,21)*TWO-R4(8,6)*FOUR-R4(8,8)*TWO
     * -R4(8,10)*TWO-R4(10,30)*FOUR-R4(10,34)*TWO+R3(6,27)*SIX
     * +R3(6,31)*TWO+R3(6,35)*FOUR-R2(5,21)*FOUR-R2(5,25)*TWO
     * -R2(5,29)*TWO)*QZ+(+R6(19,10)-R5(13,14)*TWO-R5(13,18)
     * +R4(8,15)*THREE+R4(8,19)+R4(8,23)*TWO+R4(10,39)-R3(4,12)*TWO
     * -R3(4,16)-R3(4,20)-R3(6,44)*TWO-R3(6,49)+R2(5,38)*THREE+R2(5,43)
     * +R2(5,48)*TWO-R1(1,22)*TWO-R1(1,27)-R1(1,32))*ZZ
      F(4,2,3,5)= R8(25)-R7(18,1)*TWO-R7(18,2)+R6(12,1)*THREE+R6(12,2)
     * +R6(12,3)*TWO+R6(14,9)*THREE-R5(7,1)*TWO-R5(7,2)-R5(7,3)
     * -R5(9,13)*SIX-R5(9,17)*THREE+R4(5,14)*NINE+R4(5,18)*THREE
     * +R4(5,22)*SIX-R3(2,11)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(
     * +R7(25,3)-R6(18,5)*TWO-R6(18,7)+R5(12,5)*THREE+R5(12,7)
     * +R5(12,9)*TWO+R5(14,21)*THREE-R4(7,6)*TWO-R4(7,8)-R4(7,10)
     * -R4(9,30)*SIX-R4(9,34)*THREE+R3(5,27)*NINE+R3(5,31)*THREE
     * +R3(5,35)*SIX-R2(4,21)*SIX-R2(4,25)*THREE-R2(4,29)*THREE)*QX
      F(5,2,3,5)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(15,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(10,13)*TWO
     * -R5(10,17)+R4(6,14)*THREE+R4(6,18)+R4(6,22)*TWO-R3(3,11)*TWO
     * -R3(3,15)-R3(3,19)+(+R7(26,3)-R6(19,5)*TWO-R6(19,7)
     * +R5(13,5)*THREE+R5(13,7)+R5(13,9)*TWO+R5(15,21)-R4(8,6)*TWO
     * -R4(8,8)-R4(8,10)-R4(10,30)*TWO-R4(10,34)+R3(6,27)*THREE+R3(6,31)
     * +R3(6,35)*TWO-R2(5,21)*TWO-R2(5,25)-R2(5,29))*QX+(+R7(19,3)
     * -R6(13,5)*TWO-R6(13,7)+R5(8,5)*THREE+R5(8,7)+R5(8,9)*TWO
     * +R5(10,21)-R4(4,6)*TWO-R4(4,8)-R4(4,10)-R4(6,30)*TWO-R4(6,34)
     * +R3(3,27)*THREE+R3(3,31)+R3(3,35)*TWO-R2(1,21)*TWO-R2(1,25)
     * -R2(1,29))*QZ+(+R6(19,10)-R5(13,14)*TWO-R5(13,18)+R4(8,15)*THREE
     * +R4(8,19)+R4(8,23)*TWO+R4(10,39)-R3(4,12)*TWO-R3(4,16)-R3(4,20)
     * -R3(6,44)*TWO-R3(6,49)+R2(5,38)*THREE+R2(5,43)+R2(5,48)*TWO
     * -R1(1,22)*TWO-R1(1,27)-R1(1,32))*XZ
      F(6,2,3,5)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)*THREE-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(25,3)-R6(18,5)*TWO-R6(18,7)+R5(12,5)*THREE+R5(12,7)
     * +R5(12,9)*TWO+R5(14,21)*THREE-R4(7,6)*TWO-R4(7,8)-R4(7,10)
     * -R4(9,30)*SIX-R4(9,34)*THREE+R3(5,27)*NINE+R3(5,31)*THREE
     * +R3(5,35)*SIX-R2(4,21)*SIX-R2(4,25)*THREE-R2(4,29)*THREE)*QZ
      F(1,3,3,5)= R8(21)-R7(15,1)*TWO-R7(15,2)+R6(10,1)*THREE+R6(10,2)
     * +R6(10,3)*TWO+R6(10,9)+R6(21,9)-R5(6,1)*TWO-R5(6,2)-R5(6,3)
     * -R5(6,13)*TWO-R5(15,13)*TWO-R5(6,17)-R5(15,17)+R4(3,14)*THREE
     * +R4(10,14)*THREE+R4(3,18)+R4(10,18)+R4(3,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(6,11)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(21,3)*TWO
     * -R6(15,5)*FOUR-R6(15,7)*TWO+R5(10,5)*SIX+R5(10,7)*TWO
     * +R5(10,9)*FOUR+R5(10,21)*TWO-R4(6,6)*FOUR-R4(6,8)*TWO
     * -R4(6,10)*TWO-R4(6,30)*FOUR-R4(6,34)*TWO+R3(3,27)*SIX
     * +R3(3,31)*TWO+R3(3,35)*FOUR-R2(1,21)*FOUR-R2(1,25)*TWO
     * -R2(1,29)*TWO)*QX+(+R7(15,4)*TWO-R6(10,6)*FOUR-R6(10,8)*TWO
     * +R5(6,6)*SIX+R5(6,8)*TWO+R5(6,10)*FOUR+R5(15,22)*TWO-R4(3,7)*FOUR
     * -R4(3,9)*TWO-R4(3,11)*TWO-R4(10,31)*FOUR-R4(10,35)*TWO
     * +R3(6,28)*SIX+R3(6,32)*TWO+R3(6,36)*FOUR-R2(5,22)*FOUR
     * -R2(5,26)*TWO-R2(5,30)*TWO)*QZ
      F(1,3,3,5)= F(1,3,3,5)+(+R6(21,10)-R5(15,14)*TWO
     * -R5(15,18)+R4(10,15)*THREE+R4(10,19)+R4(10,23)*TWO+R4(10,39)
     * -R3(6,12)*TWO-R3(6,16)-R3(6,20)-R3(6,44)*TWO-R3(6,49)
     * +R2(5,38)*THREE+R2(5,43)+R2(5,48)*TWO-R1(1,22)*TWO-R1(1,27)
     * -R1(1,32))*XX+(+R6(15,11)*FOUR-R5(10,15)*EIGHT-R5(10,19)*FOUR
     * +R4(6,16)*TWELV+R4(6,20)*FOUR+R4(6,24)*EIGHT-R3(3,13)*EIGHT
     * -R3(3,17)*FOUR-R3(3,21)*FOUR)*XZ+(+R6(10,12)-R5(6,16)*TWO
     * -R5(6,20)+R4(3,17)*THREE+R4(3,21)+R4(3,25)*TWO+R4(10,41)
     * -R3(1,14)*TWO-R3(1,18)-R3(1,22)-R3(6,46)*TWO-R3(6,51)
     * +R2(5,40)*THREE+R2(5,45)+R2(5,50)*TWO-R1(1,24)*TWO-R1(1,29)
     * -R1(1,34))*ZZ+(+R5(15,23)*TWO-R4(10,32)*FOUR-R4(10,36)*TWO
     * +R3(6,29)*SIX+R3(6,33)*TWO+R3(6,37)*FOUR-R2(5,23)*FOUR
     * -R2(5,27)*TWO-R2(5,31)*TWO)*XXZ+(+R5(10,24)*TWO-R4(6,33)*FOUR
     * -R4(6,37)*TWO+R3(3,30)*SIX+R3(3,34)*TWO+R3(3,38)*FOUR
     * -R2(1,24)*FOUR-R2(1,28)*TWO-R2(1,32)*TWO)*XZZ+(+R4(10,42)
     * -R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)+R2(5,51)*TWO
     * -R1(1,25)*TWO-R1(1,30)-R1(1,35))*XXZZ
      F(2,3,3,5)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)+R6(21,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(15,13)*TWO-R5(13,17)-R5(15,17)+R4(8,14)*THREE
     * +R4(10,14)*THREE+R4(8,18)+R4(10,18)+R4(8,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(4,11)*TWO-R3(6,11)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(26,4)*TWO
     * -R6(19,6)*FOUR-R6(19,8)*TWO+R5(13,6)*SIX+R5(13,8)*TWO
     * +R5(13,10)*FOUR+R5(15,22)*TWO-R4(8,7)*FOUR-R4(8,9)*TWO
     * -R4(8,11)*TWO-R4(10,31)*FOUR-R4(10,35)*TWO+R3(6,28)*SIX
     * +R3(6,32)*TWO+R3(6,36)*FOUR-R2(5,22)*FOUR-R2(5,26)*TWO
     * -R2(5,30)*TWO)*QZ+(+R6(19,12)-R5(13,16)*TWO-R5(13,20)
     * +R4(8,17)*THREE+R4(8,21)+R4(8,25)*TWO+R4(10,41)-R3(4,14)*TWO
     * -R3(4,18)-R3(4,22)-R3(6,46)*TWO-R3(6,51)+R2(5,40)*THREE+R2(5,45)
     * +R2(5,50)*TWO-R1(1,24)*TWO-R1(1,29)-R1(1,34))*ZZ
      F(3,3,3,5)= R8(36)-R7(28,1)*TWO-R7(28,2)+R6(21,1)*THREE+R6(21,2)
     * +R6(21,3)*TWO+R6(21,9)*SIX-R5(15,1)*TWO-R5(15,2)-R5(15,3)
     * -R5(15,13)*TWELV-R5(15,17)*SIX+R4(10,14)*P18+R4(10,18)*SIX
     * +R4(10,22)*TWELV+R4(10,38)*THREE-R3(6,11)*TWELV-R3(6,15)*SIX
     * -R3(6,19)*SIX-R3(6,43)*SIX-R3(6,48)*THREE+R2(5,37)*NINE
     * +R2(5,42)*THREE+R2(5,47)*SIX-R1(1,21)*SIX-R1(1,26)*THREE
     * -R1(1,31)*THREE+(+R7(28,3)*TWO+R7(28,4)*TWO-R6(21,5)*FOUR
     * -R6(21,6)*FOUR-R6(21,7)*TWO-R6(21,8)*TWO+R5(15,5)*SIX
     * +R5(15,6)*SIX+R5(15,7)*TWO+R5(15,8)*TWO+R5(15,9)*FOUR
     * +R5(15,10)*FOUR+R5(15,21)*SIX+R5(15,22)*SIX-R4(10,6)*FOUR
     * -R4(10,7)*FOUR-R4(10,8)*TWO-R4(10,9)*TWO-R4(10,10)*TWO
     * -R4(10,11)*TWO-R4(10,30)*TWELV-R4(10,31)*TWELV-R4(10,34)*SIX
     * -R4(10,35)*SIX+R3(6,27)*P18+R3(6,28)*P18+R3(6,31)*SIX
     * +R3(6,32)*SIX+R3(6,35)*TWELV+R3(6,36)*TWELV-R2(5,21)*TWELV
     * -R2(5,22)*TWELV-R2(5,25)*SIX-R2(5,26)*SIX-R2(5,29)*SIX
     * -R2(5,30)*SIX)*QZ
      F(3,3,3,5)= F(3,3,3,5)+(+R6(21,10)+R6(21,11)*FOUR+R6(21,12)
     * -R5(15,14)*TWO-R5(15,15)*EIGHT-R5(15,16)*TWO-R5(15,18)
     * -R5(15,19)*FOUR-R5(15,20)+R4(10,15)*THREE+R4(10,16)*TWELV
     * +R4(10,17)*THREE+R4(10,19)+R4(10,20)*FOUR+R4(10,21)+R4(10,23)*TWO
     * +R4(10,24)*EIGHT+R4(10,25)*TWO+R4(10,39)+R4(10,40)*FOUR+R4(10,41)
     * -R3(6,12)*TWO-R3(6,13)*EIGHT-R3(6,14)*TWO-R3(6,16)-R3(6,17)*FOUR
     * -R3(6,18)-R3(6,20)-R3(6,21)*FOUR-R3(6,22)-R3(6,44)*TWO
     * -R3(6,45)*EIGHT-R3(6,46)*TWO-R3(6,49)-R3(6,50)*FOUR-R3(6,51)
     * +R2(5,38)*THREE+R2(5,39)*TWELV+R2(5,40)*THREE+R2(5,43)
     * +R2(5,44)*FOUR+R2(5,45)+R2(5,48)*TWO+R2(5,49)*EIGHT+R2(5,50)*TWO
     * -R1(1,22)*TWO-R1(1,23)*EIGHT-R1(1,24)*TWO-R1(1,27)-R1(1,28)*FOUR
     * -R1(1,29)-R1(1,32)-R1(1,33)*FOUR-R1(1,34))*ZZ+(+R5(15,23)*TWO
     * +R5(15,24)*TWO-R4(10,32)*FOUR-R4(10,33)*FOUR-R4(10,36)*TWO
     * -R4(10,37)*TWO+R3(6,29)*SIX+R3(6,30)*SIX+R3(6,33)*TWO
     * +R3(6,34)*TWO+R3(6,37)*FOUR+R3(6,38)*FOUR-R2(5,23)*FOUR
     * -R2(5,24)*FOUR-R2(5,27)*TWO-R2(5,28)*TWO-R2(5,31)*TWO
     * -R2(5,32)*TWO)*ZZZ+(+R4(10,42)-R3(6,47)*TWO-R3(6,52)
     * +R2(5,41)*THREE+R2(5,46)+R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)
     * -R1(1,35))*ZZZZ
      F(4,3,3,5)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)-R5(9,13)*TWO
     * -R5(9,17)+R4(5,14)*THREE+R4(5,18)+R4(5,22)*TWO-R3(2,11)*TWO
     * -R3(2,15)-R3(2,19)+(+R7(27,3)-R6(20,5)*TWO-R6(20,7)
     * +R5(14,5)*THREE+R5(14,7)+R5(14,9)*TWO+R5(14,21)-R4(9,6)*TWO
     * -R4(9,8)-R4(9,10)-R4(9,30)*TWO-R4(9,34)+R3(5,27)*THREE+R3(5,31)
     * +R3(5,35)*TWO-R2(4,21)*TWO-R2(4,25)-R2(4,29))*QX+(+R7(20,4)*TWO
     * -R6(14,6)*FOUR-R6(14,8)*TWO+R5(9,6)*SIX+R5(9,8)*TWO+R5(9,10)*FOUR
     * -R4(5,7)*FOUR-R4(5,9)*TWO-R4(5,11)*TWO)*QZ+(+R6(20,11)*TWO
     * -R5(14,15)*FOUR-R5(14,19)*TWO+R4(9,16)*SIX+R4(9,20)*TWO
     * +R4(9,24)*FOUR-R3(5,13)*FOUR-R3(5,17)*TWO-R3(5,21)*TWO)*XZ+(
     * +R6(14,12)-R5(9,16)*TWO-R5(9,20)+R4(5,17)*THREE+R4(5,21)
     * +R4(5,25)*TWO-R3(2,14)*TWO-R3(2,18)-R3(2,22))*ZZ+(+R5(14,24)
     * -R4(9,33)*TWO-R4(9,37)+R3(5,30)*THREE+R3(5,34)+R3(5,38)*TWO
     * -R2(4,24)*TWO-R2(4,28)-R2(4,32))*XZZ
      F(5,3,3,5)= R8(28)-R7(21,1)*TWO-R7(21,2)+R6(15,1)*THREE+R6(15,2)
     * +R6(15,3)*TWO+R6(15,9)*THREE-R5(10,1)*TWO-R5(10,2)-R5(10,3)
     * -R5(10,13)*SIX-R5(10,17)*THREE+R4(6,14)*NINE+R4(6,18)*THREE
     * +R4(6,22)*SIX-R3(3,11)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * +R7(28,3)-R6(21,5)*TWO-R6(21,7)+R5(15,5)*THREE+R5(15,7)
     * +R5(15,9)*TWO+R5(15,21)*THREE-R4(10,6)*TWO-R4(10,8)-R4(10,10)
     * -R4(10,30)*SIX-R4(10,34)*THREE+R3(6,27)*NINE+R3(6,31)*THREE
     * +R3(6,35)*SIX-R2(5,21)*SIX-R2(5,25)*THREE-R2(5,29)*THREE)*QX+(
     * +R7(21,3)+R7(21,4)*TWO-R6(15,5)*TWO-R6(15,6)*FOUR-R6(15,7)
     * -R6(15,8)*TWO+R5(10,5)*THREE+R5(10,6)*SIX+R5(10,7)+R5(10,8)*TWO
     * +R5(10,9)*TWO+R5(10,10)*FOUR+R5(10,21)+R5(10,22)*TWO-R4(6,6)*TWO
     * -R4(6,7)*FOUR-R4(6,8)-R4(6,9)*TWO-R4(6,10)-R4(6,11)*TWO
     * -R4(6,30)*TWO-R4(6,31)*FOUR-R4(6,34)-R4(6,35)*TWO+R3(3,27)*THREE
     * +R3(3,28)*SIX+R3(3,31)+R3(3,32)*TWO+R3(3,35)*TWO+R3(3,36)*FOUR
     * -R2(1,21)*TWO-R2(1,22)*FOUR-R2(1,25)-R2(1,26)*TWO-R2(1,29)
     * -R2(1,30)*TWO)*QZ
      F(5,3,3,5)= F(5,3,3,5)+(+R6(21,10)+R6(21,11)*TWO-R5(15,14)*TWO
     * -R5(15,15)*FOUR-R5(15,18)-R5(15,19)*TWO+R4(10,15)*THREE
     * +R4(10,16)*SIX+R4(10,19)+R4(10,20)*TWO+R4(10,23)*TWO
     * +R4(10,24)*FOUR+R4(10,39)+R4(10,40)*TWO-R3(6,12)*TWO
     * -R3(6,13)*FOUR-R3(6,16)-R3(6,17)*TWO-R3(6,20)-R3(6,21)*TWO
     * -R3(6,44)*TWO-R3(6,45)*FOUR-R3(6,49)-R3(6,50)*TWO+R2(5,38)*THREE
     * +R2(5,39)*SIX+R2(5,43)+R2(5,44)*TWO+R2(5,48)*TWO+R2(5,49)*FOUR
     * -R1(1,22)*TWO-R1(1,23)*FOUR-R1(1,27)-R1(1,28)*TWO-R1(1,32)
     * -R1(1,33)*TWO)*XZ
      F(5,3,3,5)= F(5,3,3,5)+(+R6(15,11)*TWO+R6(15,12)-R5(10,15)*FOUR
     * -R5(10,16)*TWO-R5(10,19)*TWO-R5(10,20)+R4(6,16)*SIX
     * +R4(6,17)*THREE+R4(6,20)*TWO+R4(6,21)+R4(6,24)*FOUR+R4(6,25)*TWO
     * -R3(3,13)*FOUR-R3(3,14)*TWO-R3(3,17)*TWO-R3(3,18)-R3(3,21)*TWO
     * -R3(3,22))*ZZ+(+R5(15,23)*TWO+R5(15,24)-R4(10,32)*FOUR
     * -R4(10,33)*TWO-R4(10,36)*TWO-R4(10,37)+R3(6,29)*SIX
     * +R3(6,30)*THREE+R3(6,33)*TWO+R3(6,34)+R3(6,37)*FOUR+R3(6,38)*TWO
     * -R2(5,23)*FOUR-R2(5,24)*TWO-R2(5,27)*TWO-R2(5,28)-R2(5,31)*TWO
     * -R2(5,32))*XZZ+(+R5(10,24)-R4(6,33)*TWO-R4(6,37)+R3(3,30)*THREE
     * +R3(3,34)+R3(3,38)*TWO-R2(1,24)*TWO-R2(1,28)-R2(1,32))*ZZZ+(
     * +R4(10,42)-R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)
     * +R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)-R1(1,35))*XZZZ
      F(6,3,3,5)= R8(35)-R7(27,1)*TWO-R7(27,2)+R6(20,1)*THREE+R6(20,2)
     * +R6(20,3)*TWO+R6(20,9)*THREE-R5(14,1)*TWO-R5(14,2)-R5(14,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(27,3)+R7(27,4)*TWO-R6(20,5)*TWO-R6(20,6)*FOUR-R6(20,7)
     * -R6(20,8)*TWO+R5(14,5)*THREE+R5(14,6)*SIX+R5(14,7)+R5(14,8)*TWO
     * +R5(14,9)*TWO+R5(14,10)*FOUR+R5(14,21)+R5(14,22)*TWO-R4(9,6)*TWO
     * -R4(9,7)*FOUR-R4(9,8)-R4(9,9)*TWO-R4(9,10)-R4(9,11)*TWO
     * -R4(9,30)*TWO-R4(9,31)*FOUR-R4(9,34)-R4(9,35)*TWO+R3(5,27)*THREE
     * +R3(5,28)*SIX+R3(5,31)+R3(5,32)*TWO+R3(5,35)*TWO+R3(5,36)*FOUR
     * -R2(4,21)*TWO-R2(4,22)*FOUR-R2(4,25)-R2(4,26)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QZ+(+R6(20,11)*TWO+R6(20,12)-R5(14,15)*FOUR
     * -R5(14,16)*TWO-R5(14,19)*TWO-R5(14,20)+R4(9,16)*SIX
     * +R4(9,17)*THREE+R4(9,20)*TWO+R4(9,21)+R4(9,24)*FOUR+R4(9,25)*TWO
     * -R3(5,13)*FOUR-R3(5,14)*TWO-R3(5,17)*TWO-R3(5,18)-R3(5,21)*TWO
     * -R3(5,22))*ZZ+(+R5(14,24)-R4(9,33)*TWO-R4(9,37)+R3(5,30)*THREE
     * +R3(5,34)+R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)-R2(4,32))*ZZZ
      F(1,4,3,5)= R8(14)-R7(9,1)*TWO-R7(9,2)+R6(5,1)*THREE+R6(5,2)
     * +R6(5,3)*TWO+R6(14,9)*THREE-R5(2,1)*TWO-R5(2,2)-R5(2,3)
     * -R5(9,13)*SIX-R5(9,17)*THREE+R4(5,14)*NINE+R4(5,18)*THREE
     * +R4(5,22)*SIX-R3(2,11)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(
     * +R7(14,3)*TWO+R7(14,4)-R6(9,5)*FOUR-R6(9,6)*TWO-R6(9,7)*TWO
     * -R6(9,8)+R5(5,5)*SIX+R5(5,6)*THREE+R5(5,7)*TWO+R5(5,8)
     * +R5(5,9)*FOUR+R5(5,10)*TWO+R5(14,21)*TWO+R5(14,22)-R4(2,6)*FOUR
     * -R4(2,7)*TWO-R4(2,8)*TWO-R4(2,9)-R4(2,10)*TWO-R4(2,11)
     * -R4(9,30)*FOUR-R4(9,31)*TWO-R4(9,34)*TWO-R4(9,35)+R3(5,27)*SIX
     * +R3(5,28)*THREE+R3(5,31)*TWO+R3(5,32)+R3(5,35)*FOUR+R3(5,36)*TWO
     * -R2(4,21)*FOUR-R2(4,22)*TWO-R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO
     * -R2(4,30))*QX+(+R6(14,10)+R6(14,11)*TWO-R5(9,14)*TWO
     * -R5(9,15)*FOUR-R5(9,18)-R5(9,19)*TWO+R4(5,15)*THREE+R4(5,16)*SIX
     * +R4(5,19)+R4(5,20)*TWO+R4(5,23)*TWO+R4(5,24)*FOUR-R3(2,12)*TWO
     * -R3(2,13)*FOUR-R3(2,16)-R3(2,17)*TWO-R3(2,20)-R3(2,21)*TWO)*XX+(
     * +R5(14,23)-R4(9,32)*TWO-R4(9,36)+R3(5,29)*THREE+R3(5,33)
     * +R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)-R2(4,31))*XXX
      F(2,4,3,5)= R8(25)-R7(18,1)*TWO-R7(18,2)+R6(12,1)*THREE+R6(12,2)
     * +R6(12,3)*TWO+R6(14,9)*THREE-R5(7,1)*TWO-R5(7,2)-R5(7,3)
     * -R5(9,13)*SIX-R5(9,17)*THREE+R4(5,14)*NINE+R4(5,18)*THREE
     * +R4(5,22)*SIX-R3(2,11)*SIX-R3(2,15)*THREE-R3(2,19)*THREE+(
     * +R7(25,4)-R6(18,6)*TWO-R6(18,8)+R5(12,6)*THREE+R5(12,8)
     * +R5(12,10)*TWO+R5(14,22)*THREE-R4(7,7)*TWO-R4(7,9)-R4(7,11)
     * -R4(9,31)*SIX-R4(9,35)*THREE+R3(5,28)*NINE+R3(5,32)*THREE
     * +R3(5,36)*SIX-R2(4,22)*SIX-R2(4,26)*THREE-R2(4,30)*THREE)*QX
      F(3,4,3,5)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)-R5(9,13)*TWO
     * -R5(9,17)+R4(5,14)*THREE+R4(5,18)+R4(5,22)*TWO-R3(2,11)*TWO
     * -R3(2,15)-R3(2,19)+(+R7(27,4)-R6(20,6)*TWO-R6(20,8)
     * +R5(14,6)*THREE+R5(14,8)+R5(14,10)*TWO+R5(14,22)-R4(9,7)*TWO
     * -R4(9,9)-R4(9,11)-R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)
     * +R3(5,36)*TWO-R2(4,22)*TWO-R2(4,26)-R2(4,30))*QX+(+R7(20,3)*TWO
     * -R6(14,5)*FOUR-R6(14,7)*TWO+R5(9,5)*SIX+R5(9,7)*TWO+R5(9,9)*FOUR
     * -R4(5,6)*FOUR-R4(5,8)*TWO-R4(5,10)*TWO)*QZ+(+R6(20,11)*TWO
     * -R5(14,15)*FOUR-R5(14,19)*TWO+R4(9,16)*SIX+R4(9,20)*TWO
     * +R4(9,24)*FOUR-R3(5,13)*FOUR-R3(5,17)*TWO-R3(5,21)*TWO)*XZ+(
     * +R6(14,10)-R5(9,14)*TWO-R5(9,18)+R4(5,15)*THREE+R4(5,19)
     * +R4(5,23)*TWO-R3(2,12)*TWO-R3(2,16)-R3(2,20))*ZZ+(+R5(14,23)
     * -R4(9,32)*TWO-R4(9,36)+R3(5,29)*THREE+R3(5,33)+R3(5,37)*TWO
     * -R2(4,23)*TWO-R2(4,27)-R2(4,31))*XZZ
      F(4,4,3,5)= R8(19)-R7(13,1)*TWO-R7(13,2)+R6(8,1)*THREE+R6(8,2)
     * +R6(8,3)*TWO+R6(10,9)+R6(19,9)-R5(4,1)*TWO-R5(4,2)-R5(4,3)
     * -R5(6,13)*TWO-R5(13,13)*TWO-R5(6,17)-R5(13,17)+R4(3,14)*THREE
     * +R4(8,14)*THREE+R4(3,18)+R4(8,18)+R4(3,22)*TWO+R4(8,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(4,11)*TWO-R3(1,15)-R3(4,15)-R3(1,19)
     * -R3(4,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(19,3)+R7(19,4)
     * -R6(13,5)*TWO-R6(13,6)*TWO-R6(13,7)-R6(13,8)+R5(8,5)*THREE
     * +R5(8,6)*THREE+R5(8,7)+R5(8,8)+R5(8,9)*TWO+R5(8,10)*TWO+R5(10,21)
     * +R5(10,22)-R4(4,6)*TWO-R4(4,7)*TWO-R4(4,8)-R4(4,9)-R4(4,10)
     * -R4(4,11)-R4(6,30)*TWO-R4(6,31)*TWO-R4(6,34)-R4(6,35)
     * +R3(3,27)*THREE+R3(3,28)*THREE+R3(3,31)+R3(3,32)+R3(3,35)*TWO
     * +R3(3,36)*TWO-R2(1,21)*TWO-R2(1,22)*TWO-R2(1,25)-R2(1,26)
     * -R2(1,29)-R2(1,30))*QX+(+R6(19,11)-R5(13,15)*TWO-R5(13,19)
     * +R4(8,16)*THREE+R4(8,20)+R4(8,24)*TWO+R4(10,40)-R3(4,13)*TWO
     * -R3(4,17)-R3(4,21)-R3(6,45)*TWO-R3(6,50)+R2(5,39)*THREE+R2(5,44)
     * +R2(5,49)*TWO-R1(1,23)*TWO-R1(1,28)-R1(1,33))*XX
      F(5,4,3,5)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)-R5(5,1)*TWO-R5(5,2)-R5(5,3)-R5(14,13)*TWO
     * -R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO-R3(5,11)*TWO
     * -R3(5,15)-R3(5,19)+(+R7(20,3)+R7(20,4)-R6(14,5)*TWO-R6(14,6)*TWO
     * -R6(14,7)-R6(14,8)+R5(9,5)*THREE+R5(9,6)*THREE+R5(9,7)+R5(9,8)
     * +R5(9,9)*TWO+R5(9,10)*TWO-R4(5,6)*TWO-R4(5,7)*TWO-R4(5,8)-R4(5,9)
     * -R4(5,10)-R4(5,11))*QX+(+R7(14,3)-R6(9,5)*TWO-R6(9,7)
     * +R5(5,5)*THREE+R5(5,7)+R5(5,9)*TWO+R5(14,21)-R4(2,6)*TWO-R4(2,8)
     * -R4(2,10)-R4(9,30)*TWO-R4(9,34)+R3(5,27)*THREE+R3(5,31)
     * +R3(5,35)*TWO-R2(4,21)*TWO-R2(4,25)-R2(4,29))*QZ+(+R6(20,11)
     * -R5(14,15)*TWO-R5(14,19)+R4(9,16)*THREE+R4(9,20)+R4(9,24)*TWO
     * -R3(5,13)*TWO-R3(5,17)-R3(5,21))*XX+(+R6(14,10)+R6(14,11)
     * -R5(9,14)*TWO-R5(9,15)*TWO-R5(9,18)-R5(9,19)+R4(5,15)*THREE
     * +R4(5,16)*THREE+R4(5,19)+R4(5,20)+R4(5,23)*TWO+R4(5,24)*TWO
     * -R3(2,12)*TWO-R3(2,13)*TWO-R3(2,16)-R3(2,17)-R3(2,20)-R3(2,21))
     * *XZ+(+R5(14,23)-R4(9,32)*TWO-R4(9,36)+R3(5,29)*THREE+R3(5,33)
     * +R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)-R2(4,31))*XXZ
      F(6,4,3,5)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(15,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(10,13)*TWO
     * -R5(10,17)+R4(6,14)*THREE+R4(6,18)+R4(6,22)*TWO-R3(3,11)*TWO
     * -R3(3,15)-R3(3,19)+(+R7(26,4)-R6(19,6)*TWO-R6(19,8)
     * +R5(13,6)*THREE+R5(13,8)+R5(13,10)*TWO+R5(15,22)-R4(8,7)*TWO
     * -R4(8,9)-R4(8,11)-R4(10,31)*TWO-R4(10,35)+R3(6,28)*THREE+R3(6,32)
     * +R3(6,36)*TWO-R2(5,22)*TWO-R2(5,26)-R2(5,30))*QX+(+R7(19,3)
     * -R6(13,5)*TWO-R6(13,7)+R5(8,5)*THREE+R5(8,7)+R5(8,9)*TWO
     * +R5(10,21)-R4(4,6)*TWO-R4(4,8)-R4(4,10)-R4(6,30)*TWO-R4(6,34)
     * +R3(3,27)*THREE+R3(3,31)+R3(3,35)*TWO-R2(1,21)*TWO-R2(1,25)
     * -R2(1,29))*QZ+(+R6(19,11)-R5(13,15)*TWO-R5(13,19)+R4(8,16)*THREE
     * +R4(8,20)+R4(8,24)*TWO+R4(10,40)-R3(4,13)*TWO-R3(4,17)-R3(4,21)
     * -R3(6,45)*TWO-R3(6,50)+R2(5,39)*THREE+R2(5,44)+R2(5,49)*TWO
     * -R1(1,23)*TWO-R1(1,28)-R1(1,33))*XZ
      F(1,5,3,5)= R8(15)-R7(10,1)*TWO-R7(10,2)+R6(6,1)*THREE+R6(6,2)
     * +R6(6,3)*TWO+R6(15,9)*THREE-R5(3,1)*TWO-R5(3,2)-R5(3,3)
     * -R5(10,13)*SIX-R5(10,17)*THREE+R4(6,14)*NINE+R4(6,18)*THREE
     * +R4(6,22)*SIX-R3(3,11)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * +R7(15,3)*TWO+R7(15,4)-R6(10,5)*FOUR-R6(10,6)*TWO-R6(10,7)*TWO
     * -R6(10,8)+R5(6,5)*SIX+R5(6,6)*THREE+R5(6,7)*TWO+R5(6,8)
     * +R5(6,9)*FOUR+R5(6,10)*TWO+R5(15,21)*TWO+R5(15,22)-R4(3,6)*FOUR
     * -R4(3,7)*TWO-R4(3,8)*TWO-R4(3,9)-R4(3,10)*TWO-R4(3,11)
     * -R4(10,30)*FOUR-R4(10,31)*TWO-R4(10,34)*TWO-R4(10,35)
     * +R3(6,27)*SIX+R3(6,28)*THREE+R3(6,31)*TWO+R3(6,32)+R3(6,35)*FOUR
     * +R3(6,36)*TWO-R2(5,21)*FOUR-R2(5,22)*TWO-R2(5,25)*TWO-R2(5,26)
     * -R2(5,29)*TWO-R2(5,30))*QX
      F(1,5,3,5)= F(1,5,3,5)+(+R7(10,4)-R6(6,6)*TWO-R6(6,8)
     * +R5(3,6)*THREE+R5(3,8)+R5(3,10)*TWO+R5(10,22)*THREE-R4(1,7)*TWO
     * -R4(1,9)-R4(1,11)-R4(6,31)*SIX-R4(6,35)*THREE+R3(3,28)*NINE
     * +R3(3,32)*THREE+R3(3,36)*SIX-R2(1,22)*SIX-R2(1,26)*THREE
     * -R2(1,30)*THREE)*QZ+(+R6(15,10)+R6(15,11)*TWO-R5(10,14)*TWO
     * -R5(10,15)*FOUR-R5(10,18)-R5(10,19)*TWO+R4(6,15)*THREE
     * +R4(6,16)*SIX+R4(6,19)+R4(6,20)*TWO+R4(6,23)*TWO+R4(6,24)*FOUR
     * -R3(3,12)*TWO-R3(3,13)*FOUR-R3(3,16)-R3(3,17)*TWO-R3(3,20)
     * -R3(3,21)*TWO)*XX+(+R6(10,11)*TWO+R6(10,12)-R5(6,15)*FOUR
     * -R5(6,16)*TWO-R5(6,19)*TWO-R5(6,20)+R4(3,16)*SIX+R4(3,17)*THREE
     * +R4(3,20)*TWO+R4(3,21)+R4(3,24)*FOUR+R4(3,25)*TWO+R4(10,40)*TWO
     * +R4(10,41)-R3(1,13)*FOUR-R3(1,14)*TWO-R3(1,17)*TWO-R3(1,18)
     * -R3(1,21)*TWO-R3(1,22)-R3(6,45)*FOUR-R3(6,46)*TWO-R3(6,50)*TWO
     * -R3(6,51)+R2(5,39)*SIX+R2(5,40)*THREE+R2(5,44)*TWO+R2(5,45)
     * +R2(5,49)*FOUR+R2(5,50)*TWO-R1(1,23)*FOUR-R1(1,24)*TWO
     * -R1(1,28)*TWO-R1(1,29)-R1(1,33)*TWO-R1(1,34))*XZ
      F(1,5,3,5)= F(1,5,3,5)+(+R5(15,23)
     * -R4(10,32)*TWO-R4(10,36)+R3(6,29)*THREE+R3(6,33)+R3(6,37)*TWO
     * -R2(5,23)*TWO-R2(5,27)-R2(5,31))*XXX+(+R5(10,23)+R5(10,24)*TWO
     * -R4(6,32)*TWO-R4(6,33)*FOUR-R4(6,36)-R4(6,37)*TWO+R3(3,29)*THREE
     * +R3(3,30)*SIX+R3(3,33)+R3(3,34)*TWO+R3(3,37)*TWO+R3(3,38)*FOUR
     * -R2(1,23)*TWO-R2(1,24)*FOUR-R2(1,27)-R2(1,28)*TWO-R2(1,31)
     * -R2(1,32)*TWO)*XXZ+(+R4(10,42)-R3(6,47)*TWO-R3(6,52)
     * +R2(5,41)*THREE+R2(5,46)+R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)
     * -R1(1,35))*XXXZ
      F(2,5,3,5)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(15,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(10,13)*TWO
     * -R5(10,17)+R4(6,14)*THREE+R4(6,18)+R4(6,22)*TWO-R3(3,11)*TWO
     * -R3(3,15)-R3(3,19)+(+R7(26,4)-R6(19,6)*TWO-R6(19,8)
     * +R5(13,6)*THREE+R5(13,8)+R5(13,10)*TWO+R5(15,22)-R4(8,7)*TWO
     * -R4(8,9)-R4(8,11)-R4(10,31)*TWO-R4(10,35)+R3(6,28)*THREE+R3(6,32)
     * +R3(6,36)*TWO-R2(5,22)*TWO-R2(5,26)-R2(5,30))*QX+(+R7(19,4)
     * -R6(13,6)*TWO-R6(13,8)+R5(8,6)*THREE+R5(8,8)+R5(8,10)*TWO
     * +R5(10,22)-R4(4,7)*TWO-R4(4,9)-R4(4,11)-R4(6,31)*TWO-R4(6,35)
     * +R3(3,28)*THREE+R3(3,32)+R3(3,36)*TWO-R2(1,22)*TWO-R2(1,26)
     * -R2(1,30))*QZ+(+R6(19,12)-R5(13,16)*TWO-R5(13,20)+R4(8,17)*THREE
     * +R4(8,21)+R4(8,25)*TWO+R4(10,41)-R3(4,14)*TWO-R3(4,18)-R3(4,22)
     * -R3(6,46)*TWO-R3(6,51)+R2(5,40)*THREE+R2(5,45)+R2(5,50)*TWO
     * -R1(1,24)*TWO-R1(1,29)-R1(1,34))*XZ
      F(3,5,3,5)= R8(28)-R7(21,1)*TWO-R7(21,2)+R6(15,1)*THREE+R6(15,2)
     * +R6(15,3)*TWO+R6(15,9)*THREE-R5(10,1)*TWO-R5(10,2)-R5(10,3)
     * -R5(10,13)*SIX-R5(10,17)*THREE+R4(6,14)*NINE+R4(6,18)*THREE
     * +R4(6,22)*SIX-R3(3,11)*SIX-R3(3,15)*THREE-R3(3,19)*THREE+(
     * +R7(28,4)-R6(21,6)*TWO-R6(21,8)+R5(15,6)*THREE+R5(15,8)
     * +R5(15,10)*TWO+R5(15,22)*THREE-R4(10,7)*TWO-R4(10,9)-R4(10,11)
     * -R4(10,31)*SIX-R4(10,35)*THREE+R3(6,28)*NINE+R3(6,32)*THREE
     * +R3(6,36)*SIX-R2(5,22)*SIX-R2(5,26)*THREE-R2(5,30)*THREE)*QX+(
     * +R7(21,3)*TWO+R7(21,4)-R6(15,5)*FOUR-R6(15,6)*TWO-R6(15,7)*TWO
     * -R6(15,8)+R5(10,5)*SIX+R5(10,6)*THREE+R5(10,7)*TWO+R5(10,8)
     * +R5(10,9)*FOUR+R5(10,10)*TWO+R5(10,21)*TWO+R5(10,22)-R4(6,6)*FOUR
     * -R4(6,7)*TWO-R4(6,8)*TWO-R4(6,9)-R4(6,10)*TWO-R4(6,11)
     * -R4(6,30)*FOUR-R4(6,31)*TWO-R4(6,34)*TWO-R4(6,35)+R3(3,27)*SIX
     * +R3(3,28)*THREE+R3(3,31)*TWO+R3(3,32)+R3(3,35)*FOUR+R3(3,36)*TWO
     * -R2(1,21)*FOUR-R2(1,22)*TWO-R2(1,25)*TWO-R2(1,26)-R2(1,29)*TWO
     * -R2(1,30))*QZ
      F(3,5,3,5)= F(3,5,3,5)+(+R6(21,11)*TWO+R6(21,12)-R5(15,15)*FOUR
     * -R5(15,16)*TWO-R5(15,19)*TWO-R5(15,20)+R4(10,16)*SIX
     * +R4(10,17)*THREE+R4(10,20)*TWO+R4(10,21)+R4(10,24)*FOUR
     * +R4(10,25)*TWO+R4(10,40)*TWO+R4(10,41)-R3(6,13)*FOUR-R3(6,14)*TWO
     * -R3(6,17)*TWO-R3(6,18)-R3(6,21)*TWO-R3(6,22)-R3(6,45)*FOUR
     * -R3(6,46)*TWO-R3(6,50)*TWO-R3(6,51)+R2(5,39)*SIX+R2(5,40)*THREE
     * +R2(5,44)*TWO+R2(5,45)+R2(5,49)*FOUR+R2(5,50)*TWO-R1(1,23)*FOUR
     * -R1(1,24)*TWO-R1(1,28)*TWO-R1(1,29)-R1(1,33)*TWO-R1(1,34))*XZ+(
     * +R6(15,10)+R6(15,11)*TWO-R5(10,14)*TWO-R5(10,15)*FOUR-R5(10,18)
     * -R5(10,19)*TWO+R4(6,15)*THREE+R4(6,16)*SIX+R4(6,19)+R4(6,20)*TWO
     * +R4(6,23)*TWO+R4(6,24)*FOUR-R3(3,12)*TWO-R3(3,13)*FOUR-R3(3,16)
     * -R3(3,17)*TWO-R3(3,20)-R3(3,21)*TWO)*ZZ+(+R5(15,23)+R5(15,24)*TWO
     * -R4(10,32)*TWO-R4(10,33)*FOUR-R4(10,36)-R4(10,37)*TWO
     * +R3(6,29)*THREE+R3(6,30)*SIX+R3(6,33)+R3(6,34)*TWO+R3(6,37)*TWO
     * +R3(6,38)*FOUR-R2(5,23)*TWO-R2(5,24)*FOUR-R2(5,27)-R2(5,28)*TWO
     * -R2(5,31)-R2(5,32)*TWO)*XZZ+(+R5(10,23)-R4(6,32)*TWO-R4(6,36)
     * +R3(3,29)*THREE+R3(3,33)+R3(3,37)*TWO-R2(1,23)*TWO-R2(1,27)
     * -R2(1,31))*ZZZ+(+R4(10,42)-R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE
     * +R2(5,46)+R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)-R1(1,35))*XZZZ
      F(4,5,3,5)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)-R5(5,1)*TWO-R5(5,2)-R5(5,3)-R5(14,13)*TWO
     * -R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO-R3(5,11)*TWO
     * -R3(5,15)-R3(5,19)+(+R7(20,3)+R7(20,4)-R6(14,5)*TWO-R6(14,6)*TWO
     * -R6(14,7)-R6(14,8)+R5(9,5)*THREE+R5(9,6)*THREE+R5(9,7)+R5(9,8)
     * +R5(9,9)*TWO+R5(9,10)*TWO-R4(5,6)*TWO-R4(5,7)*TWO-R4(5,8)-R4(5,9)
     * -R4(5,10)-R4(5,11))*QX+(+R7(14,4)-R6(9,6)*TWO-R6(9,8)
     * +R5(5,6)*THREE+R5(5,8)+R5(5,10)*TWO+R5(14,22)-R4(2,7)*TWO-R4(2,9)
     * -R4(2,11)-R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)
     * +R3(5,36)*TWO-R2(4,22)*TWO-R2(4,26)-R2(4,30))*QZ+(+R6(20,11)
     * -R5(14,15)*TWO-R5(14,19)+R4(9,16)*THREE+R4(9,20)+R4(9,24)*TWO
     * -R3(5,13)*TWO-R3(5,17)-R3(5,21))*XX+(+R6(14,11)+R6(14,12)
     * -R5(9,15)*TWO-R5(9,16)*TWO-R5(9,19)-R5(9,20)+R4(5,16)*THREE
     * +R4(5,17)*THREE+R4(5,20)+R4(5,21)+R4(5,24)*TWO+R4(5,25)*TWO
     * -R3(2,13)*TWO-R3(2,14)*TWO-R3(2,17)-R3(2,18)-R3(2,21)-R3(2,22))
     * *XZ+(+R5(14,24)-R4(9,33)*TWO-R4(9,37)+R3(5,30)*THREE+R3(5,34)
     * +R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)-R2(4,32))*XXZ
      F(5,5,3,5)= R8(21)-R7(15,1)*TWO-R7(15,2)+R6(10,1)*THREE+R6(10,2)
     * +R6(10,3)*TWO+R6(10,9)+R6(21,9)-R5(6,1)*TWO-R5(6,2)-R5(6,3)
     * -R5(6,13)*TWO-R5(15,13)*TWO-R5(6,17)-R5(15,17)+R4(3,14)*THREE
     * +R4(10,14)*THREE+R4(3,18)+R4(10,18)+R4(3,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(1,11)*TWO-R3(6,11)*TWO-R3(1,15)-R3(6,15)-R3(1,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(21,3)+R7(21,4)
     * -R6(15,5)*TWO-R6(15,6)*TWO-R6(15,7)-R6(15,8)+R5(10,5)*THREE
     * +R5(10,6)*THREE+R5(10,7)+R5(10,8)+R5(10,9)*TWO+R5(10,10)*TWO
     * +R5(10,21)+R5(10,22)-R4(6,6)*TWO-R4(6,7)*TWO-R4(6,8)-R4(6,9)
     * -R4(6,10)-R4(6,11)-R4(6,30)*TWO-R4(6,31)*TWO-R4(6,34)-R4(6,35)
     * +R3(3,27)*THREE+R3(3,28)*THREE+R3(3,31)+R3(3,32)+R3(3,35)*TWO
     * +R3(3,36)*TWO-R2(1,21)*TWO-R2(1,22)*TWO-R2(1,25)-R2(1,26)
     * -R2(1,29)-R2(1,30))*QX
      F(5,5,3,5)= F(5,5,3,5)+(+R7(15,3)+R7(15,4)-R6(10,5)*TWO
     * -R6(10,6)*TWO-R6(10,7)-R6(10,8)+R5(6,5)*THREE+R5(6,6)*THREE
     * +R5(6,7)+R5(6,8)+R5(6,9)*TWO+R5(6,10)*TWO+R5(15,21)+R5(15,22)
     * -R4(3,6)*TWO-R4(3,7)*TWO-R4(3,8)-R4(3,9)-R4(3,10)-R4(3,11)
     * -R4(10,30)*TWO-R4(10,31)*TWO-R4(10,34)-R4(10,35)+R3(6,27)*THREE
     * +R3(6,28)*THREE+R3(6,31)+R3(6,32)+R3(6,35)*TWO+R3(6,36)*TWO
     * -R2(5,21)*TWO-R2(5,22)*TWO-R2(5,25)-R2(5,26)-R2(5,29)-R2(5,30))
     * *QZ+(+R6(21,11)-R5(15,15)*TWO-R5(15,19)+R4(10,16)*THREE+R4(10,20)
     * +R4(10,24)*TWO+R4(10,40)-R3(6,13)*TWO-R3(6,17)-R3(6,21)
     * -R3(6,45)*TWO-R3(6,50)+R2(5,39)*THREE+R2(5,44)+R2(5,49)*TWO
     * -R1(1,23)*TWO-R1(1,28)-R1(1,33))*XX+(+R6(15,10)+R6(15,11)*TWO
     * +R6(15,12)-R5(10,14)*TWO-R5(10,15)*FOUR-R5(10,16)*TWO-R5(10,18)
     * -R5(10,19)*TWO-R5(10,20)+R4(6,15)*THREE+R4(6,16)*SIX
     * +R4(6,17)*THREE+R4(6,19)+R4(6,20)*TWO+R4(6,21)+R4(6,23)*TWO
     * +R4(6,24)*FOUR+R4(6,25)*TWO-R3(3,12)*TWO-R3(3,13)*FOUR
     * -R3(3,14)*TWO-R3(3,16)-R3(3,17)*TWO-R3(3,18)-R3(3,20)
     * -R3(3,21)*TWO-R3(3,22))*XZ
      F(5,5,3,5)= F(5,5,3,5)+(+R6(10,11)-R5(6,15)*TWO-R5(6,19)
     * +R4(3,16)*THREE+R4(3,20)+R4(3,24)*TWO+R4(10,40)-R3(1,13)*TWO
     * -R3(1,17)-R3(1,21)-R3(6,45)*TWO-R3(6,50)+R2(5,39)*THREE+R2(5,44)
     * +R2(5,49)*TWO-R1(1,23)*TWO-R1(1,28)-R1(1,33))*ZZ+(+R5(15,23)
     * +R5(15,24)-R4(10,32)*TWO-R4(10,33)*TWO-R4(10,36)-R4(10,37)
     * +R3(6,29)*THREE+R3(6,30)*THREE+R3(6,33)+R3(6,34)+R3(6,37)*TWO
     * +R3(6,38)*TWO-R2(5,23)*TWO-R2(5,24)*TWO-R2(5,27)-R2(5,28)
     * -R2(5,31)-R2(5,32))*XXZ+(+R5(10,23)+R5(10,24)-R4(6,32)*TWO
     * -R4(6,33)*TWO-R4(6,36)-R4(6,37)+R3(3,29)*THREE+R3(3,30)*THREE
     * +R3(3,33)+R3(3,34)+R3(3,37)*TWO+R3(3,38)*TWO-R2(1,23)*TWO
     * -R2(1,24)*TWO-R2(1,27)-R2(1,28)-R2(1,31)-R2(1,32))*XZZ+(
     * +R4(10,42)-R3(6,47)*TWO-R3(6,52)+R2(5,41)*THREE+R2(5,46)
     * +R2(5,51)*TWO-R1(1,25)*TWO-R1(1,30)-R1(1,35))*XXZZ
      F(6,5,3,5)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)-R5(9,13)*TWO
     * -R5(9,17)+R4(5,14)*THREE+R4(5,18)+R4(5,22)*TWO-R3(2,11)*TWO
     * -R3(2,15)-R3(2,19)+(+R7(27,4)-R6(20,6)*TWO-R6(20,8)
     * +R5(14,6)*THREE+R5(14,8)+R5(14,10)*TWO+R5(14,22)-R4(9,7)*TWO
     * -R4(9,9)-R4(9,11)-R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)
     * +R3(5,36)*TWO-R2(4,22)*TWO-R2(4,26)-R2(4,30))*QX+(+R7(20,3)
     * +R7(20,4)-R6(14,5)*TWO-R6(14,6)*TWO-R6(14,7)-R6(14,8)
     * +R5(9,5)*THREE+R5(9,6)*THREE+R5(9,7)+R5(9,8)+R5(9,9)*TWO
     * +R5(9,10)*TWO-R4(5,6)*TWO-R4(5,7)*TWO-R4(5,8)-R4(5,9)-R4(5,10)
     * -R4(5,11))*QZ+(+R6(20,11)+R6(20,12)-R5(14,15)*TWO-R5(14,16)*TWO
     * -R5(14,19)-R5(14,20)+R4(9,16)*THREE+R4(9,17)*THREE+R4(9,20)
     * +R4(9,21)+R4(9,24)*TWO+R4(9,25)*TWO-R3(5,13)*TWO-R3(5,14)*TWO
     * -R3(5,17)-R3(5,18)-R3(5,21)-R3(5,22))*XZ+(+R6(14,11)-R5(9,15)*TWO
     * -R5(9,19)+R4(5,16)*THREE+R4(5,20)+R4(5,24)*TWO-R3(2,13)*TWO
     * -R3(2,17)-R3(2,21))*ZZ+(+R5(14,24)-R4(9,33)*TWO-R4(9,37)
     * +R3(5,30)*THREE+R3(5,34)+R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)
     * -R2(4,32))*XZZ
      F(1,6,3,5)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)-R5(5,1)*TWO-R5(5,2)-R5(5,3)-R5(14,13)*TWO
     * -R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO-R3(5,11)*TWO
     * -R3(5,15)-R3(5,19)+(+R7(20,3)*TWO-R6(14,5)*FOUR-R6(14,7)*TWO
     * +R5(9,5)*SIX+R5(9,7)*TWO+R5(9,9)*FOUR-R4(5,6)*FOUR-R4(5,8)*TWO
     * -R4(5,10)*TWO)*QX+(+R7(14,4)-R6(9,6)*TWO-R6(9,8)+R5(5,6)*THREE
     * +R5(5,8)+R5(5,10)*TWO+R5(14,22)-R4(2,7)*TWO-R4(2,9)-R4(2,11)
     * -R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)+R3(5,36)*TWO
     * -R2(4,22)*TWO-R2(4,26)-R2(4,30))*QZ+(+R6(20,10)-R5(14,14)*TWO
     * -R5(14,18)+R4(9,15)*THREE+R4(9,19)+R4(9,23)*TWO-R3(5,12)*TWO
     * -R3(5,16)-R3(5,20))*XX+(+R6(14,11)*TWO-R5(9,15)*FOUR-R5(9,19)*TWO
     * +R4(5,16)*SIX+R4(5,20)*TWO+R4(5,24)*FOUR-R3(2,13)*FOUR
     * -R3(2,17)*TWO-R3(2,21)*TWO)*XZ+(+R5(14,23)-R4(9,32)*TWO-R4(9,36)
     * +R3(5,29)*THREE+R3(5,33)+R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)
     * -R2(4,31))*XXZ
      F(2,6,3,5)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)*THREE-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(25,4)-R6(18,6)*TWO-R6(18,8)+R5(12,6)*THREE+R5(12,8)
     * +R5(12,10)*TWO+R5(14,22)*THREE-R4(7,7)*TWO-R4(7,9)-R4(7,11)
     * -R4(9,31)*SIX-R4(9,35)*THREE+R3(5,28)*NINE+R3(5,32)*THREE
     * +R3(5,36)*SIX-R2(4,22)*SIX-R2(4,26)*THREE-R2(4,30)*THREE)*QZ
      F(3,6,3,5)= R8(35)-R7(27,1)*TWO-R7(27,2)+R6(20,1)*THREE+R6(20,2)
     * +R6(20,3)*TWO+R6(20,9)*THREE-R5(14,1)*TWO-R5(14,2)-R5(14,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(27,3)*TWO+R7(27,4)-R6(20,5)*FOUR-R6(20,6)*TWO-R6(20,7)*TWO
     * -R6(20,8)+R5(14,5)*SIX+R5(14,6)*THREE+R5(14,7)*TWO+R5(14,8)
     * +R5(14,9)*FOUR+R5(14,10)*TWO+R5(14,21)*TWO+R5(14,22)-R4(9,6)*FOUR
     * -R4(9,7)*TWO-R4(9,8)*TWO-R4(9,9)-R4(9,10)*TWO-R4(9,11)
     * -R4(9,30)*FOUR-R4(9,31)*TWO-R4(9,34)*TWO-R4(9,35)+R3(5,27)*SIX
     * +R3(5,28)*THREE+R3(5,31)*TWO+R3(5,32)+R3(5,35)*FOUR+R3(5,36)*TWO
     * -R2(4,21)*FOUR-R2(4,22)*TWO-R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO
     * -R2(4,30))*QZ+(+R6(20,10)+R6(20,11)*TWO-R5(14,14)*TWO
     * -R5(14,15)*FOUR-R5(14,18)-R5(14,19)*TWO+R4(9,15)*THREE
     * +R4(9,16)*SIX+R4(9,19)+R4(9,20)*TWO+R4(9,23)*TWO+R4(9,24)*FOUR
     * -R3(5,12)*TWO-R3(5,13)*FOUR-R3(5,16)-R3(5,17)*TWO-R3(5,20)
     * -R3(5,21)*TWO)*ZZ+(+R5(14,23)-R4(9,32)*TWO-R4(9,36)
     * +R3(5,29)*THREE+R3(5,33)+R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)
     * -R2(4,31))*ZZZ
      F(4,6,3,5)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(15,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(10,13)*TWO
     * -R5(10,17)+R4(6,14)*THREE+R4(6,18)+R4(6,22)*TWO-R3(3,11)*TWO
     * -R3(3,15)-R3(3,19)+(+R7(26,3)-R6(19,5)*TWO-R6(19,7)
     * +R5(13,5)*THREE+R5(13,7)+R5(13,9)*TWO+R5(15,21)-R4(8,6)*TWO
     * -R4(8,8)-R4(8,10)-R4(10,30)*TWO-R4(10,34)+R3(6,27)*THREE+R3(6,31)
     * +R3(6,35)*TWO-R2(5,21)*TWO-R2(5,25)-R2(5,29))*QX+(+R7(19,4)
     * -R6(13,6)*TWO-R6(13,8)+R5(8,6)*THREE+R5(8,8)+R5(8,10)*TWO
     * +R5(10,22)-R4(4,7)*TWO-R4(4,9)-R4(4,11)-R4(6,31)*TWO-R4(6,35)
     * +R3(3,28)*THREE+R3(3,32)+R3(3,36)*TWO-R2(1,22)*TWO-R2(1,26)
     * -R2(1,30))*QZ+(+R6(19,11)-R5(13,15)*TWO-R5(13,19)+R4(8,16)*THREE
     * +R4(8,20)+R4(8,24)*TWO+R4(10,40)-R3(4,13)*TWO-R3(4,17)-R3(4,21)
     * -R3(6,45)*TWO-R3(6,50)+R2(5,39)*THREE+R2(5,44)+R2(5,49)*TWO
     * -R1(1,23)*TWO-R1(1,28)-R1(1,33))*XZ
      F(5,6,3,5)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)-R5(9,13)*TWO
     * -R5(9,17)+R4(5,14)*THREE+R4(5,18)+R4(5,22)*TWO-R3(2,11)*TWO
     * -R3(2,15)-R3(2,19)+(+R7(27,3)-R6(20,5)*TWO-R6(20,7)
     * +R5(14,5)*THREE+R5(14,7)+R5(14,9)*TWO+R5(14,21)-R4(9,6)*TWO
     * -R4(9,8)-R4(9,10)-R4(9,30)*TWO-R4(9,34)+R3(5,27)*THREE+R3(5,31)
     * +R3(5,35)*TWO-R2(4,21)*TWO-R2(4,25)-R2(4,29))*QX+(+R7(20,3)
     * +R7(20,4)-R6(14,5)*TWO-R6(14,6)*TWO-R6(14,7)-R6(14,8)
     * +R5(9,5)*THREE+R5(9,6)*THREE+R5(9,7)+R5(9,8)+R5(9,9)*TWO
     * +R5(9,10)*TWO-R4(5,6)*TWO-R4(5,7)*TWO-R4(5,8)-R4(5,9)-R4(5,10)
     * -R4(5,11))*QZ+(+R6(20,10)+R6(20,11)-R5(14,14)*TWO-R5(14,15)*TWO
     * -R5(14,18)-R5(14,19)+R4(9,15)*THREE+R4(9,16)*THREE+R4(9,19)
     * +R4(9,20)+R4(9,23)*TWO+R4(9,24)*TWO-R3(5,12)*TWO-R3(5,13)*TWO
     * -R3(5,16)-R3(5,17)-R3(5,20)-R3(5,21))*XZ+(+R6(14,11)-R5(9,15)*TWO
     * -R5(9,19)+R4(5,16)*THREE+R4(5,20)+R4(5,24)*TWO-R3(2,13)*TWO
     * -R3(2,17)-R3(2,21))*ZZ+(+R5(14,23)-R4(9,32)*TWO-R4(9,36)
     * +R3(5,29)*THREE+R3(5,33)+R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)
     * -R2(4,31))*XZZ
      F(6,6,3,5)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)+R6(21,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(15,13)*TWO-R5(13,17)-R5(15,17)+R4(8,14)*THREE
     * +R4(10,14)*THREE+R4(8,18)+R4(10,18)+R4(8,22)*TWO+R4(10,22)*TWO
     * +R4(10,38)-R3(4,11)*TWO-R3(6,11)*TWO-R3(4,15)-R3(6,15)-R3(4,19)
     * -R3(6,19)-R3(6,43)*TWO-R3(6,48)+R2(5,37)*THREE+R2(5,42)
     * +R2(5,47)*TWO-R1(1,21)*TWO-R1(1,26)-R1(1,31)+(+R7(26,3)+R7(26,4)
     * -R6(19,5)*TWO-R6(19,6)*TWO-R6(19,7)-R6(19,8)+R5(13,5)*THREE
     * +R5(13,6)*THREE+R5(13,7)+R5(13,8)+R5(13,9)*TWO+R5(13,10)*TWO
     * +R5(15,21)+R5(15,22)-R4(8,6)*TWO-R4(8,7)*TWO-R4(8,8)-R4(8,9)
     * -R4(8,10)-R4(8,11)-R4(10,30)*TWO-R4(10,31)*TWO-R4(10,34)
     * -R4(10,35)+R3(6,27)*THREE+R3(6,28)*THREE+R3(6,31)+R3(6,32)
     * +R3(6,35)*TWO+R3(6,36)*TWO-R2(5,21)*TWO-R2(5,22)*TWO-R2(5,25)
     * -R2(5,26)-R2(5,29)-R2(5,30))*QZ+(+R6(19,11)-R5(13,15)*TWO
     * -R5(13,19)+R4(8,16)*THREE+R4(8,20)+R4(8,24)*TWO+R4(10,40)
     * -R3(4,13)*TWO-R3(4,17)-R3(4,21)-R3(6,45)*TWO-R3(6,50)
     * +R2(5,39)*THREE+R2(5,44)+R2(5,49)*TWO-R1(1,23)*TWO-R1(1,28)
     * -R1(1,33))*ZZ
      F(1,1,4,5)= R8(5)-R7(2,2)+R6(5,1)+R6(5,9)*SIX-R5(2,2)-R5(2,17)*SIX
     * +R4(5,14)*SIX+R4(5,38)*THREE-R3(2,15)*SIX-R3(2,48)*THREE
     * +R2(6,37)*THREE-R1(2,26)*THREE+(+R7(5,3)*TWO+R7(5,4)*TWO
     * -R6(2,7)*TWO-R6(2,8)*TWO+R5(5,5)*TWO+R5(5,6)*TWO+R5(5,21)*SIX
     * +R5(5,22)*SIX-R4(2,8)*TWO-R4(2,9)*TWO-R4(2,34)*SIX-R4(2,35)*SIX
     * +R3(5,27)*SIX+R3(5,28)*SIX-R2(4,25)*SIX-R2(4,26)*SIX)*QX+(
     * +R6(5,10)+R6(5,11)*FOUR+R6(5,12)-R5(2,18)-R5(2,19)*FOUR-R5(2,20)
     * +R4(5,15)+R4(5,16)*FOUR+R4(5,17)+R4(5,39)+R4(5,40)*FOUR+R4(5,41)
     * -R3(2,16)-R3(2,17)*FOUR-R3(2,18)-R3(2,49)-R3(2,50)*FOUR-R3(2,51)
     * +R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,27)-R1(2,28)*FOUR-R1(2,29))
     * *XX+(+R5(5,23)*TWO+R5(5,24)*TWO-R4(2,36)*TWO-R4(2,37)*TWO
     * +R3(5,29)*TWO+R3(5,30)*TWO-R2(4,27)*TWO-R2(4,28)*TWO)*XXX+(
     * +R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXX
      F(2,1,4,5)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,4)*TWO-R6(7,8)*TWO
     * +R5(12,6)*TWO+R5(5,22)*TWO-R4(7,9)*TWO-R4(2,35)*TWO+R3(5,28)*TWO
     * -R2(4,26)*TWO)*QX+(+R6(12,12)-R5(7,20)+R4(12,17)+R4(5,41)
     * -R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))*XX
      F(3,1,4,5)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,4)*TWO-R6(9,8)*TWO
     * +R5(14,6)*TWO+R5(5,22)*TWO-R4(9,9)*TWO-R4(2,35)*TWO+R3(5,28)*TWO
     * -R2(4,26)*TWO)*QX+(+R7(9,3)*TWO-R6(5,7)*TWO+R5(9,5)*TWO
     * +R5(9,21)*TWO-R4(5,8)*TWO-R4(5,34)*TWO+R3(9,27)*TWO-R2(6,25)*TWO)
     * *QZ+(+R6(14,12)-R5(9,20)+R4(14,17)+R4(5,41)-R3(9,18)-R3(2,51)
     * +R2(6,40)-R1(2,29))*XX+(+R6(9,11)*FOUR-R5(5,19)*FOUR
     * +R4(9,16)*FOUR-R3(5,17)*FOUR)*XZ+(+R6(5,10)-R5(2,18)+R4(5,15)
     * +R4(5,39)-R3(2,16)-R3(2,49)+R2(6,38)-R1(2,27))*ZZ+(+R5(9,24)*TWO
     * -R4(5,37)*TWO+R3(9,30)*TWO-R2(6,28)*TWO)*XXZ+(+R5(5,23)*TWO
     * -R4(2,36)*TWO+R3(5,29)*TWO-R2(4,27)*TWO)*XZZ+(+R4(5,42)-R3(2,52)
     * +R2(6,41)-R1(2,30))*XXZZ
      F(4,1,4,5)= R8(8)-R7(4,2)+R6(8,1)+R6(8,9)*THREE-R5(4,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(8,3)
     * +R7(8,4)*TWO-R6(4,7)-R6(4,8)*TWO+R5(8,5)+R5(8,6)*TWO+R5(8,21)
     * +R5(8,22)*TWO-R4(4,8)-R4(4,9)*TWO-R4(4,34)-R4(4,35)*TWO+R3(8,27)
     * +R3(8,28)*TWO-R2(2,25)-R2(2,26)*TWO)*QX+(+R6(8,11)*TWO+R6(8,12)
     * -R5(4,19)*TWO-R5(4,20)+R4(8,16)*TWO+R4(8,17)-R3(4,17)*TWO
     * -R3(4,18))*XX+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XXX
      F(5,1,4,5)= R8(9)-R7(5,2)+R6(9,1)+R6(9,9)*THREE-R5(5,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)
     * +R7(9,4)*TWO-R6(5,7)-R6(5,8)*TWO+R5(9,5)+R5(9,6)*TWO+R5(9,21)
     * +R5(9,22)*TWO-R4(5,8)-R4(5,9)*TWO-R4(5,34)-R4(5,35)*TWO+R3(9,27)
     * +R3(9,28)*TWO-R2(6,25)-R2(6,26)*TWO)*QX+(+R7(5,3)-R6(2,7)+R5(5,5)
     * +R5(5,21)*THREE-R4(2,8)-R4(2,34)*THREE+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*TWO-R5(5,20)
     * +R4(9,16)*TWO+R4(9,17)-R3(5,17)*TWO-R3(5,18))*XX+(+R6(5,10)
     * +R6(5,11)*TWO-R5(2,18)-R5(2,19)*TWO+R4(5,15)+R4(5,16)*TWO
     * +R4(5,39)+R4(5,40)*TWO-R3(2,16)-R3(2,17)*TWO-R3(2,49)
     * -R3(2,50)*TWO+R2(6,38)+R2(6,39)*TWO-R1(2,27)-R1(2,28)*TWO)*XZ+(
     * +R5(9,24)-R4(5,37)+R3(9,30)-R2(6,28))*XXX+(+R5(5,23)*TWO+R5(5,24)
     * -R4(2,36)*TWO-R4(2,37)+R3(5,29)*TWO+R3(5,30)-R2(4,27)*TWO
     * -R2(4,28))*XXZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXZ
      F(6,1,4,5)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,4)*TWO-R6(8,8)*TWO+R5(13,6)*TWO
     * -R4(8,9)*TWO)*QX+(+R7(8,3)-R6(4,7)+R5(8,5)+R5(8,21)-R4(4,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QZ+(+R6(13,12)-R5(8,20)+R4(13,17)
     * -R3(8,18))*XX+(+R6(8,11)*TWO-R5(4,19)*TWO+R4(8,16)*TWO
     * -R3(4,17)*TWO)*XZ+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XXZ
      F(1,2,4,5)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,3)*TWO-R6(7,7)*TWO
     * +R5(12,5)*TWO+R5(5,21)*TWO-R4(7,8)*TWO-R4(2,34)*TWO+R3(5,27)*TWO
     * -R2(4,25)*TWO)*QX+(+R6(12,10)-R5(7,18)+R4(12,15)+R4(5,39)
     * -R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))*XX
      F(2,2,4,5)= R8(23)-R7(16,2)+R6(23,1)+R6(12,9)*SIX-R5(16,2)
     * -R5(7,17)*SIX+R4(12,14)*SIX+R4(5,38)*THREE-R3(7,15)*SIX
     * -R3(2,48)*THREE+R2(6,37)*THREE-R1(2,26)*THREE
      F(3,2,4,5)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,3)*TWO-R6(12,7)*TWO
     * +R5(18,5)*TWO+R5(9,21)*TWO-R4(12,8)*TWO-R4(5,34)*TWO+R3(9,27)*TWO
     * -R2(6,25)*TWO)*QZ+(+R6(12,10)-R5(7,18)+R4(12,15)+R4(5,39)
     * -R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))*ZZ
      F(4,2,4,5)= R8(17)-R7(11,2)+R6(17,1)+R6(8,9)*THREE-R5(11,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(17,3)-R6(11,7)
     * +R5(17,5)+R5(8,21)*THREE-R4(11,8)-R4(4,34)*THREE+R3(8,27)*THREE
     * -R2(2,25)*THREE)*QX
      F(5,2,4,5)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)-R6(12,7)+R5(18,5)+R5(9,21)-R4(12,8)
     * -R4(5,34)+R3(9,27)-R2(6,25))*QX+(+R7(12,3)-R6(7,7)+R5(12,5)
     * +R5(5,21)-R4(7,8)-R4(2,34)+R3(5,27)-R2(4,25))*QZ+(+R6(12,10)
     * -R5(7,18)+R4(12,15)+R4(5,39)-R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))
     * *XZ
      F(6,2,4,5)= R8(24)-R7(17,2)+R6(24,1)+R6(13,9)*THREE-R5(17,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(17,3)
     * -R6(11,7)+R5(17,5)+R5(8,21)*THREE-R4(11,8)-R4(4,34)*THREE
     * +R3(8,27)*THREE-R2(2,25)*THREE)*QZ
      F(1,3,4,5)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,3)*TWO-R6(9,7)*TWO
     * +R5(14,5)*TWO+R5(5,21)*TWO-R4(9,8)*TWO-R4(2,34)*TWO+R3(5,27)*TWO
     * -R2(4,25)*TWO)*QX+(+R7(9,4)*TWO-R6(5,8)*TWO+R5(9,6)*TWO
     * +R5(9,22)*TWO-R4(5,9)*TWO-R4(5,35)*TWO+R3(9,28)*TWO-R2(6,26)*TWO)
     * *QZ+(+R6(14,10)-R5(9,18)+R4(14,15)+R4(5,39)-R3(9,16)-R3(2,49)
     * +R2(6,38)-R1(2,27))*XX+(+R6(9,11)*FOUR-R5(5,19)*FOUR
     * +R4(9,16)*FOUR-R3(5,17)*FOUR)*XZ+(+R6(5,12)-R5(2,20)+R4(5,17)
     * +R4(5,41)-R3(2,18)-R3(2,51)+R2(6,40)-R1(2,29))*ZZ+(+R5(9,23)*TWO
     * -R4(5,36)*TWO+R3(9,29)*TWO-R2(6,27)*TWO)*XXZ+(+R5(5,24)*TWO
     * -R4(2,37)*TWO+R3(5,30)*TWO-R2(4,28)*TWO)*XZZ+(+R4(5,42)-R3(2,52)
     * +R2(6,41)-R1(2,30))*XXZZ
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21P
      SUBROUTINE MCDV21P(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(2,3,4,5)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,4)*TWO-R6(12,8)*TWO
     * +R5(18,6)*TWO+R5(9,22)*TWO-R4(12,9)*TWO-R4(5,35)*TWO+R3(9,28)*TWO
     * -R2(6,26)*TWO)*QZ+(+R6(12,12)-R5(7,20)+R4(12,17)+R4(5,41)
     * -R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))*ZZ
      F(3,3,4,5)= R8(27)-R7(20,2)+R6(27,1)+R6(14,9)*SIX-R5(20,2)
     * -R5(9,17)*SIX+R4(14,14)*SIX+R4(5,38)*THREE-R3(9,15)*SIX
     * -R3(2,48)*THREE+R2(6,37)*THREE-R1(2,26)*THREE+(+R7(20,3)*TWO
     * +R7(20,4)*TWO-R6(14,7)*TWO-R6(14,8)*TWO+R5(20,5)*TWO+R5(20,6)*TWO
     * +R5(9,21)*SIX+R5(9,22)*SIX-R4(14,8)*TWO-R4(14,9)*TWO-R4(5,34)*SIX
     * -R4(5,35)*SIX+R3(9,27)*SIX+R3(9,28)*SIX-R2(6,25)*SIX-R2(6,26)*SIX
     * )*QZ+(+R6(14,10)+R6(14,11)*FOUR+R6(14,12)-R5(9,18)-R5(9,19)*FOUR
     * -R5(9,20)+R4(14,15)+R4(14,16)*FOUR+R4(14,17)+R4(5,39)
     * +R4(5,40)*FOUR+R4(5,41)-R3(9,16)-R3(9,17)*FOUR-R3(9,18)-R3(2,49)
     * -R3(2,50)*FOUR-R3(2,51)+R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,27)
     * -R1(2,28)*FOUR-R1(2,29))*ZZ+(+R5(9,23)*TWO+R5(9,24)*TWO
     * -R4(5,36)*TWO-R4(5,37)*TWO+R3(9,29)*TWO+R3(9,30)*TWO-R2(6,27)*TWO
     * -R2(6,28)*TWO)*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*ZZZZ
      F(4,3,4,5)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,3)-R6(13,7)+R5(19,5)+R5(8,21)-R4(13,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QX+(+R7(13,4)*TWO-R6(8,8)*TWO
     * +R5(13,6)*TWO-R4(8,9)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,19)*TWO
     * +R4(13,16)*TWO-R3(8,17)*TWO)*XZ+(+R6(8,12)-R5(4,20)+R4(8,17)
     * -R3(4,18))*ZZ+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XZZ
      F(5,3,4,5)= R8(20)-R7(14,2)+R6(20,1)+R6(9,9)*THREE-R5(14,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(20,3)-R6(14,7)
     * +R5(20,5)+R5(9,21)*THREE-R4(14,8)-R4(5,34)*THREE+R3(9,27)*THREE
     * -R2(6,25)*THREE)*QX+(+R7(14,3)+R7(14,4)*TWO-R6(9,7)-R6(9,8)*TWO
     * +R5(14,5)+R5(14,6)*TWO+R5(5,21)+R5(5,22)*TWO-R4(9,8)-R4(9,9)*TWO
     * -R4(2,34)-R4(2,35)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,25)
     * -R2(4,26)*TWO)*QZ+(+R6(14,10)+R6(14,11)*TWO-R5(9,18)-R5(9,19)*TWO
     * +R4(14,15)+R4(14,16)*TWO+R4(5,39)+R4(5,40)*TWO-R3(9,16)
     * -R3(9,17)*TWO-R3(2,49)-R3(2,50)*TWO+R2(6,38)+R2(6,39)*TWO
     * -R1(2,27)-R1(2,28)*TWO)*XZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*TWO
     * -R5(5,20)+R4(9,16)*TWO+R4(9,17)-R3(5,17)*TWO-R3(5,18))*ZZ+(
     * +R5(9,23)*TWO+R5(9,24)-R4(5,36)*TWO-R4(5,37)+R3(9,29)*TWO
     * +R3(9,30)-R2(6,27)*TWO-R2(6,28))*XZZ+(+R5(5,24)-R4(2,37)+R3(5,30)
     * -R2(4,28))*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XZZZ
      F(6,3,4,5)= R8(26)-R7(19,2)+R6(26,1)+R6(13,9)*THREE-R5(19,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(19,3)
     * +R7(19,4)*TWO-R6(13,7)-R6(13,8)*TWO+R5(19,5)+R5(19,6)*TWO
     * +R5(8,21)+R5(8,22)*TWO-R4(13,8)-R4(13,9)*TWO-R4(4,34)
     * -R4(4,35)*TWO+R3(8,27)+R3(8,28)*TWO-R2(2,25)-R2(2,26)*TWO)*QZ+(
     * +R6(13,11)*TWO+R6(13,12)-R5(8,19)*TWO-R5(8,20)+R4(13,16)*TWO
     * +R4(13,17)-R3(8,17)*TWO-R3(8,18))*ZZ+(+R5(8,24)-R4(4,37)+R3(8,30)
     * -R2(2,28))*ZZZ
      F(1,4,4,5)= R8(8)-R7(4,2)+R6(8,1)+R6(8,9)*THREE-R5(4,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(8,3)*TWO
     * +R7(8,4)-R6(4,7)*TWO-R6(4,8)+R5(8,5)*TWO+R5(8,6)+R5(8,21)*TWO
     * +R5(8,22)-R4(4,8)*TWO-R4(4,9)-R4(4,34)*TWO-R4(4,35)+R3(8,27)*TWO
     * +R3(8,28)-R2(2,25)*TWO-R2(2,26))*QX+(+R6(8,10)+R6(8,11)*TWO
     * -R5(4,18)-R5(4,19)*TWO+R4(8,15)+R4(8,16)*TWO-R3(4,16)
     * -R3(4,17)*TWO)*XX+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XXX
      F(2,4,4,5)= R8(17)-R7(11,2)+R6(17,1)+R6(8,9)*THREE-R5(11,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(17,4)-R6(11,8)
     * +R5(17,6)+R5(8,22)*THREE-R4(11,9)-R4(4,35)*THREE+R3(8,28)*THREE
     * -R2(2,26)*THREE)*QX
      F(3,4,4,5)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,4)-R6(13,8)+R5(19,6)+R5(8,22)-R4(13,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QX+(+R7(13,3)*TWO-R6(8,7)*TWO
     * +R5(13,5)*TWO-R4(8,8)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,19)*TWO
     * +R4(13,16)*TWO-R3(8,17)*TWO)*XZ+(+R6(8,10)-R5(4,18)+R4(8,15)
     * -R3(4,16))*ZZ+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XZZ
      F(4,4,4,5)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,3)+R7(12,4)-R6(7,7)-R6(7,8)
     * +R5(12,5)+R5(12,6)+R5(5,21)+R5(5,22)-R4(7,8)-R4(7,9)-R4(2,34)
     * -R4(2,35)+R3(5,27)+R3(5,28)-R2(4,25)-R2(4,26))*QX+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XX
      F(5,4,4,5)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)+R7(13,4)-R6(8,7)-R6(8,8)+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R7(8,3)-R6(4,7)+R5(8,5)+R5(8,21)
     * -R4(4,8)-R4(4,34)+R3(8,27)-R2(2,25))*QZ+(+R6(13,11)-R5(8,19)
     * +R4(13,16)-R3(8,17))*XX+(+R6(8,10)+R6(8,11)-R5(4,18)-R5(4,19)
     * +R4(8,15)+R4(8,16)-R3(4,16)-R3(4,17))*XZ+(+R5(8,23)-R4(4,36)
     * +R3(8,29)-R2(2,27))*XXZ
      F(6,4,4,5)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)-R6(12,8)+R5(18,6)+R5(9,22)-R4(12,9)
     * -R4(5,35)+R3(9,28)-R2(6,26))*QX+(+R7(12,3)-R6(7,7)+R5(12,5)
     * +R5(5,21)-R4(7,8)-R4(2,34)+R3(5,27)-R2(4,25))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XZ
      F(1,5,4,5)= R8(9)-R7(5,2)+R6(9,1)+R6(9,9)*THREE-R5(5,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)*TWO
     * +R7(9,4)-R6(5,7)*TWO-R6(5,8)+R5(9,5)*TWO+R5(9,6)+R5(9,21)*TWO
     * +R5(9,22)-R4(5,8)*TWO-R4(5,9)-R4(5,34)*TWO-R4(5,35)+R3(9,27)*TWO
     * +R3(9,28)-R2(6,25)*TWO-R2(6,26))*QX+(+R7(5,4)-R6(2,8)+R5(5,6)
     * +R5(5,22)*THREE-R4(2,9)-R4(2,35)*THREE+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)-R5(5,19)*TWO
     * +R4(9,15)+R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*XX+(+R6(5,11)*TWO
     * +R6(5,12)-R5(2,19)*TWO-R5(2,20)+R4(5,16)*TWO+R4(5,17)
     * +R4(5,40)*TWO+R4(5,41)-R3(2,17)*TWO-R3(2,18)-R3(2,50)*TWO
     * -R3(2,51)+R2(6,39)*TWO+R2(6,40)-R1(2,28)*TWO-R1(2,29))*XZ+(
     * +R5(9,23)-R4(5,36)+R3(9,29)-R2(6,27))*XXX+(+R5(5,23)+R5(5,24)*TWO
     * -R4(2,36)-R4(2,37)*TWO+R3(5,29)+R3(5,30)*TWO-R2(4,27)
     * -R2(4,28)*TWO)*XXZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXZ
      F(2,5,4,5)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)-R6(12,8)+R5(18,6)+R5(9,22)-R4(12,9)
     * -R4(5,35)+R3(9,28)-R2(6,26))*QX+(+R7(12,4)-R6(7,8)+R5(12,6)
     * +R5(5,22)-R4(7,9)-R4(2,35)+R3(5,28)-R2(4,26))*QZ+(+R6(12,12)
     * -R5(7,20)+R4(12,17)+R4(5,41)-R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))
     * *XZ
      F(3,5,4,5)= R8(20)-R7(14,2)+R6(20,1)+R6(9,9)*THREE-R5(14,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(20,4)-R6(14,8)
     * +R5(20,6)+R5(9,22)*THREE-R4(14,9)-R4(5,35)*THREE+R3(9,28)*THREE
     * -R2(6,26)*THREE)*QX+(+R7(14,3)*TWO+R7(14,4)-R6(9,7)*TWO-R6(9,8)
     * +R5(14,5)*TWO+R5(14,6)+R5(5,21)*TWO+R5(5,22)-R4(9,8)*TWO-R4(9,9)
     * -R4(2,34)*TWO-R4(2,35)+R3(5,27)*TWO+R3(5,28)-R2(4,25)*TWO
     * -R2(4,26))*QZ+(+R6(14,11)*TWO+R6(14,12)-R5(9,19)*TWO-R5(9,20)
     * +R4(14,16)*TWO+R4(14,17)+R4(5,40)*TWO+R4(5,41)-R3(9,17)*TWO
     * -R3(9,18)-R3(2,50)*TWO-R3(2,51)+R2(6,39)*TWO+R2(6,40)
     * -R1(2,28)*TWO-R1(2,29))*XZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)
     * -R5(5,19)*TWO+R4(9,15)+R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*ZZ+(
     * +R5(9,23)+R5(9,24)*TWO-R4(5,36)-R4(5,37)*TWO+R3(9,29)
     * +R3(9,30)*TWO-R2(6,27)-R2(6,28)*TWO)*XZZ+(+R5(5,23)-R4(2,36)
     * +R3(5,29)-R2(4,27))*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))
     * *XZZZ
      F(4,5,4,5)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)+R7(13,4)-R6(8,7)-R6(8,8)+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R7(8,4)-R6(4,8)+R5(8,6)+R5(8,22)
     * -R4(4,9)-R4(4,35)+R3(8,28)-R2(2,26))*QZ+(+R6(13,11)-R5(8,19)
     * +R4(13,16)-R3(8,17))*XX+(+R6(8,11)+R6(8,12)-R5(4,19)-R5(4,20)
     * +R4(8,16)+R4(8,17)-R3(4,17)-R3(4,18))*XZ+(+R5(8,24)-R4(4,37)
     * +R3(8,30)-R2(2,28))*XXZ
      F(5,5,4,5)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,3)+R7(14,4)-R6(9,7)-R6(9,8)
     * +R5(14,5)+R5(14,6)+R5(5,21)+R5(5,22)-R4(9,8)-R4(9,9)-R4(2,34)
     * -R4(2,35)+R3(5,27)+R3(5,28)-R2(4,25)-R2(4,26))*QX+(+R7(9,3)
     * +R7(9,4)-R6(5,7)-R6(5,8)+R5(9,5)+R5(9,6)+R5(9,21)+R5(9,22)
     * -R4(5,8)-R4(5,9)-R4(5,34)-R4(5,35)+R3(9,27)+R3(9,28)-R2(6,25)
     * -R2(6,26))*QZ+(+R6(14,11)-R5(9,19)+R4(14,16)+R4(5,40)-R3(9,17)
     * -R3(2,50)+R2(6,39)-R1(2,28))*XX+(+R6(9,10)+R6(9,11)*TWO+R6(9,12)
     * -R5(5,18)-R5(5,19)*TWO-R5(5,20)+R4(9,15)+R4(9,16)*TWO+R4(9,17)
     * -R3(5,16)-R3(5,17)*TWO-R3(5,18))*XZ+(+R6(5,11)-R5(2,19)+R4(5,16)
     * +R4(5,40)-R3(2,17)-R3(2,50)+R2(6,39)-R1(2,28))*ZZ+(+R5(9,23)
     * +R5(9,24)-R4(5,36)-R4(5,37)+R3(9,29)+R3(9,30)-R2(6,27)-R2(6,28))
     * *XXZ+(+R5(5,23)+R5(5,24)-R4(2,36)-R4(2,37)+R3(5,29)+R3(5,30)
     * -R2(4,27)-R2(4,28))*XZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))
     * *XXZZ
      F(6,5,4,5)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,4)-R6(13,8)+R5(19,6)+R5(8,22)-R4(13,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QX+(+R7(13,3)+R7(13,4)-R6(8,7)
     * -R6(8,8)+R5(13,5)+R5(13,6)-R4(8,8)-R4(8,9))*QZ+(+R6(13,11)
     * +R6(13,12)-R5(8,19)-R5(8,20)+R4(13,16)+R4(13,17)-R3(8,17)
     * -R3(8,18))*XZ+(+R6(8,11)-R5(4,19)+R4(8,16)-R3(4,17))*ZZ+(
     * +R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XZZ
      F(1,6,4,5)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)*TWO-R6(8,7)*TWO+R5(13,5)*TWO
     * -R4(8,8)*TWO)*QX+(+R7(8,4)-R6(4,8)+R5(8,6)+R5(8,22)-R4(4,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QZ+(+R6(13,10)-R5(8,18)+R4(13,15)
     * -R3(8,16))*XX+(+R6(8,11)*TWO-R5(4,19)*TWO+R4(8,16)*TWO
     * -R3(4,17)*TWO)*XZ+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XXZ
      F(2,6,4,5)= R8(24)-R7(17,2)+R6(24,1)+R6(13,9)*THREE-R5(17,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(17,4)
     * -R6(11,8)+R5(17,6)+R5(8,22)*THREE-R4(11,9)-R4(4,35)*THREE
     * +R3(8,28)*THREE-R2(2,26)*THREE)*QZ
      F(3,6,4,5)= R8(26)-R7(19,2)+R6(26,1)+R6(13,9)*THREE-R5(19,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(19,3)*TWO
     * +R7(19,4)-R6(13,7)*TWO-R6(13,8)+R5(19,5)*TWO+R5(19,6)
     * +R5(8,21)*TWO+R5(8,22)-R4(13,8)*TWO-R4(13,9)-R4(4,34)*TWO
     * -R4(4,35)+R3(8,27)*TWO+R3(8,28)-R2(2,25)*TWO-R2(2,26))*QZ+(
     * +R6(13,10)+R6(13,11)*TWO-R5(8,18)-R5(8,19)*TWO+R4(13,15)
     * +R4(13,16)*TWO-R3(8,16)-R3(8,17)*TWO)*ZZ+(+R5(8,23)-R4(4,36)
     * +R3(8,29)-R2(2,27))*ZZZ
      F(4,6,4,5)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)-R6(12,7)+R5(18,5)+R5(9,21)-R4(12,8)
     * -R4(5,34)+R3(9,27)-R2(6,25))*QX+(+R7(12,4)-R6(7,8)+R5(12,6)
     * +R5(5,22)-R4(7,9)-R4(2,35)+R3(5,28)-R2(4,26))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XZ
      F(5,6,4,5)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,3)-R6(13,7)+R5(19,5)+R5(8,21)-R4(13,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QX+(+R7(13,3)+R7(13,4)-R6(8,7)
     * -R6(8,8)+R5(13,5)+R5(13,6)-R4(8,8)-R4(8,9))*QZ+(+R6(13,10)
     * +R6(13,11)-R5(8,18)-R5(8,19)+R4(13,15)+R4(13,16)-R3(8,16)
     * -R3(8,17))*XZ+(+R6(8,11)-R5(4,19)+R4(8,16)-R3(4,17))*ZZ+(
     * +R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XZZ
      F(6,6,4,5)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)
     * +R5(18,5)+R5(18,6)+R5(9,21)+R5(9,22)-R4(12,8)-R4(12,9)-R4(5,34)
     * -R4(5,35)+R3(9,27)+R3(9,28)-R2(6,25)-R2(6,26))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *ZZ
CISHI
      F(1,1,5,5)= R8(6)-R7(3,1)-R7(3,2)+R6(1,1)+R6(6,1)+R6(1,3)
     * +R6(6,9)*SIX-R5(3,1)-R5(3,2)-R5(3,13)*SIX-R5(3,17)*SIX+R4(1,1)
     * +R4(1,3)+R4(1,14)*SIX+R4(6,14)*SIX+R4(1,22)*SIX+R4(6,38)*THREE
     * -R3(3,11)*SIX-R3(3,15)*SIX-R3(3,43)*THREE-R3(3,48)*THREE
     * +R2(1,1)*SIX+R2(1,9)*SIX+R2(1,37)*THREE+R2(3,37)*THREE
     * +R2(1,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE+R0(1)*THREE
     * +R0(11)*THREE+(+R7(6,3)*TWO+R7(6,4)*TWO-R6(3,5)*TWO-R6(3,6)*TWO
     * -R6(3,7)*TWO-R6(3,8)*TWO+R5(1,5)*TWO+R5(6,5)*TWO+R5(1,6)*TWO
     * +R5(6,6)*TWO+R5(1,9)*TWO+R5(1,10)*TWO+R5(6,21)*SIX+R5(6,22)*SIX
     * -R4(3,6)*TWO-R4(3,7)*TWO-R4(3,8)*TWO-R4(3,9)*TWO-R4(3,30)*SIX
     * -R4(3,31)*SIX-R4(3,34)*SIX-R4(3,35)*SIX+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(1,5)*TWO+R3(1,6)*TWO+R3(1,27)*SIX+R3(6,27)*SIX+R3(1,28)*SIX
     * +R3(6,28)*SIX+R3(1,35)*SIX+R3(1,36)*SIX-R2(5,21)*SIX-R2(5,22)*SIX
     * -R2(5,25)*SIX-R2(5,26)*SIX+R1(1,1)*SIX+R1(1,2)*SIX+R1(1,9)*SIX
     * +R1(1,10)*SIX)*QX
      F(1,1,5,5)= F(1,1,5,5)+(+R6(6,10)+R6(6,11)*FOUR+R6(6,12)-R5(3,14)
     * -R5(3,15)*FOUR-R5(3,16)-R5(3,18)-R5(3,19)*FOUR-R5(3,20)+R4(1,15)
     * +R4(6,15)+R4(1,16)*FOUR+R4(6,16)*FOUR+R4(1,17)+R4(6,17)+R4(1,23)
     * +R4(1,24)*FOUR+R4(1,25)+R4(6,39)+R4(6,40)*FOUR+R4(6,41)-R3(3,12)
     * -R3(3,13)*FOUR-R3(3,14)-R3(3,16)-R3(3,17)*FOUR-R3(3,18)-R3(3,44)
     * -R3(3,45)*FOUR-R3(3,46)-R3(3,49)-R3(3,50)*FOUR-R3(3,51)+R2(1,2)
     * +R2(1,3)*FOUR+R2(1,4)+R2(1,10)+R2(1,11)*FOUR+R2(1,12)+R2(1,38)
     * +R2(3,38)+R2(1,39)*FOUR+R2(3,39)*FOUR+R2(1,40)+R2(3,40)+R2(1,48)
     * +R2(1,49)*FOUR+R2(1,50)-R1(3,22)-R1(3,23)*FOUR-R1(3,24)-R1(3,27)
     * -R1(3,28)*FOUR-R1(3,29)+R0(2)+R0(3)*FOUR+R0(4)+R0(12)+R0(13)*FOUR
     * +R0(14))*XX+(+R5(6,23)*TWO+R5(6,24)*TWO-R4(3,32)*TWO-R4(3,33)*TWO
     * -R4(3,36)*TWO-R4(3,37)*TWO+R3(1,29)*TWO+R3(6,29)*TWO+R3(1,30)*TWO
     * +R3(6,30)*TWO+R3(1,37)*TWO+R3(1,38)*TWO-R2(5,23)*TWO-R2(5,24)*TWO
     * -R2(5,27)*TWO-R2(5,28)*TWO+R1(1,3)*TWO+R1(1,4)*TWO+R1(1,11)*TWO
     * +R1(1,12)*TWO)*XXX+(+R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)
     * +R2(1,51)-R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXXX
      F(2,1,5,5)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(13,1)+R6(4,3)
     * +R6(6,9)+R6(13,9)-R5(8,1)-R5(8,2)-R5(3,13)-R5(8,13)-R5(3,17)
     * -R5(8,17)+R4(4,1)+R4(4,3)+R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(1,22)+R4(4,22)+R4(6,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(13,4)*TWO
     * -R6(8,6)*TWO-R6(8,8)*TWO+R5(4,6)*TWO+R5(13,6)*TWO+R5(4,10)*TWO
     * +R5(6,22)*TWO-R4(8,7)*TWO-R4(8,9)*TWO-R4(3,31)*TWO-R4(3,35)*TWO
     * +R3(4,2)*TWO+R3(4,6)*TWO+R3(1,28)*TWO+R3(6,28)*TWO+R3(1,36)*TWO
     * -R2(5,22)*TWO-R2(5,26)*TWO+R1(1,2)*TWO+R1(1,10)*TWO)*QX+(
     * +R6(13,12)-R5(8,16)-R5(8,20)+R4(4,17)+R4(13,17)+R4(4,25)+R4(6,41)
     * -R3(8,14)-R3(8,18)-R3(3,46)-R3(3,51)+R2(2,4)+R2(2,12)+R2(1,40)
     * +R2(3,40)+R2(1,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XX
      F(3,1,5,5)= R8(15)-R7(10,1)-R7(10,2)+R6(6,1)+R6(15,1)+R6(6,3)
     * +R6(6,9)+R6(15,9)-R5(10,1)-R5(10,2)-R5(3,13)-R5(10,13)-R5(3,17)
     * -R5(10,17)+R4(6,1)+R4(6,3)+R4(1,14)+R4(6,14)*TWO+R4(15,14)
     * +R4(1,22)+R4(6,22)+R4(6,38)-R3(3,11)-R3(10,11)-R3(3,15)-R3(10,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(15,4)*TWO
     * -R6(10,6)*TWO-R6(10,8)*TWO+R5(6,6)*TWO+R5(15,6)*TWO+R5(6,10)*TWO
     * +R5(6,22)*TWO-R4(10,7)*TWO-R4(10,9)*TWO-R4(3,31)*TWO-R4(3,35)*TWO
     * +R3(6,2)*TWO+R3(6,6)*TWO+R3(1,28)*TWO+R3(6,28)*TWO+R3(1,36)*TWO
     * -R2(5,22)*TWO-R2(5,26)*TWO+R1(1,2)*TWO+R1(1,10)*TWO)*QX+(
     * +R7(10,3)*TWO-R6(6,5)*TWO-R6(6,7)*TWO+R5(3,5)*TWO+R5(10,5)*TWO
     * +R5(3,9)*TWO+R5(10,21)*TWO-R4(6,6)*TWO-R4(6,8)*TWO-R4(6,30)*TWO
     * -R4(6,34)*TWO+R3(3,1)*TWO+R3(3,5)*TWO+R3(3,27)*TWO+R3(10,27)*TWO
     * +R3(3,35)*TWO-R2(3,21)*TWO-R2(3,25)*TWO+R1(3,1)*TWO+R1(3,9)*TWO)
     * *QZ
      F(3,1,5,5)= F(3,1,5,5)
     * +(+R6(15,12)-R5(10,16)-R5(10,20)+R4(6,17)+R4(15,17)+R4(6,25)
     * +R4(6,41)-R3(10,14)-R3(10,18)-R3(3,46)-R3(3,51)+R2(3,4)+R2(3,12)
     * +R2(1,40)+R2(3,40)+R2(1,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XX+(
     * +R6(10,11)*FOUR-R5(6,15)*FOUR-R5(6,19)*FOUR+R4(3,16)*FOUR
     * +R4(10,16)*FOUR+R4(3,24)*FOUR-R3(6,13)*FOUR-R3(6,17)*FOUR
     * +R2(5,3)*FOUR+R2(5,11)*FOUR)*XZ+(+R6(6,10)-R5(3,14)-R5(3,18)
     * +R4(1,15)+R4(6,15)+R4(1,23)+R4(6,39)-R3(3,12)-R3(3,16)-R3(3,44)
     * -R3(3,49)+R2(1,2)+R2(1,10)+R2(1,38)+R2(3,38)+R2(1,48)-R1(3,22)
     * -R1(3,27)+R0(2)+R0(12))*ZZ+(+R5(10,24)*TWO-R4(6,33)*TWO
     * -R4(6,37)*TWO+R3(3,30)*TWO+R3(10,30)*TWO+R3(3,38)*TWO
     * -R2(3,24)*TWO-R2(3,28)*TWO+R1(3,4)*TWO+R1(3,12)*TWO)*XXZ+(
     * +R5(6,23)*TWO-R4(3,32)*TWO-R4(3,36)*TWO+R3(1,29)*TWO+R3(6,29)*TWO
     * +R3(1,37)*TWO-R2(5,23)*TWO-R2(5,27)*TWO+R1(1,3)*TWO+R1(1,11)*TWO)
     * *XZZ+(+R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)
     * -R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXZZ
      F(4,1,5,5)= R8(9)-R7(5,1)-R7(5,2)+R6(2,1)+R6(9,1)+R6(2,3)
     * +R6(9,9)*THREE-R5(5,1)-R5(5,2)-R5(5,13)*THREE-R5(5,17)*THREE
     * +R4(2,1)+R4(2,3)+R4(2,14)*THREE+R4(9,14)*THREE+R4(2,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(9,3)+R7(9,4)*TWO-R6(5,5)-R6(5,6)*TWO-R6(5,7)-R6(5,8)*TWO
     * +R5(2,5)+R5(9,5)+R5(2,6)*TWO+R5(9,6)*TWO+R5(2,9)+R5(2,10)*TWO
     * +R5(9,21)+R5(9,22)*TWO-R4(5,6)-R4(5,7)*TWO-R4(5,8)-R4(5,9)*TWO
     * -R4(5,30)-R4(5,31)*TWO-R4(5,34)-R4(5,35)*TWO+R3(2,1)+R3(2,2)*TWO
     * +R3(2,5)+R3(2,6)*TWO+R3(2,27)+R3(9,27)+R3(2,28)*TWO+R3(9,28)*TWO
     * +R3(2,35)+R3(2,36)*TWO-R2(6,21)-R2(6,22)*TWO-R2(6,25)
     * -R2(6,26)*TWO+R1(2,1)+R1(2,2)*TWO+R1(2,9)+R1(2,10)*TWO)*QX+(
     * +R6(9,11)*TWO+R6(9,12)-R5(5,15)*TWO-R5(5,16)-R5(5,19)*TWO
     * -R5(5,20)+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,17)+R4(9,17)
     * +R4(2,24)*TWO+R4(2,25)-R3(5,13)*TWO-R3(5,14)-R3(5,17)*TWO
     * -R3(5,18)+R2(4,3)*TWO+R2(4,4)+R2(4,11)*TWO+R2(4,12))*XX+(
     * +R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)+R3(9,30)+R3(2,38)-R2(6,24)
     * -R2(6,28)+R1(2,4)+R1(2,12))*XXX
      F(5,1,5,5)= R8(10)-R7(6,1)-R7(6,2)+R6(3,1)+R6(10,1)+R6(3,3)
     * +R6(10,9)*THREE-R5(6,1)-R5(6,2)-R5(6,13)*THREE-R5(6,17)*THREE
     * +R4(3,1)+R4(3,3)+R4(3,14)*THREE+R4(10,14)*THREE+R4(3,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(10,3)+R7(10,4)*TWO-R6(6,5)-R6(6,6)*TWO-R6(6,7)-R6(6,8)*TWO
     * +R5(3,5)+R5(10,5)+R5(3,6)*TWO+R5(10,6)*TWO+R5(3,9)+R5(3,10)*TWO
     * +R5(10,21)+R5(10,22)*TWO-R4(6,6)-R4(6,7)*TWO-R4(6,8)-R4(6,9)*TWO
     * -R4(6,30)-R4(6,31)*TWO-R4(6,34)-R4(6,35)*TWO+R3(3,1)+R3(3,2)*TWO
     * +R3(3,5)+R3(3,6)*TWO+R3(3,27)+R3(10,27)+R3(3,28)*TWO
     * +R3(10,28)*TWO+R3(3,35)+R3(3,36)*TWO-R2(3,21)-R2(3,22)*TWO
     * -R2(3,25)-R2(3,26)*TWO+R1(3,1)+R1(3,2)*TWO+R1(3,9)+R1(3,10)*TWO)
     * *QX+(+R7(6,3)-R6(3,5)-R6(3,7)+R5(1,5)+R5(6,5)+R5(1,9)
     * +R5(6,21)*THREE-R4(3,6)-R4(3,8)-R4(3,30)*THREE-R4(3,34)*THREE
     * +R3(1,1)+R3(1,5)+R3(1,27)*THREE+R3(6,27)*THREE+R3(1,35)*THREE
     * -R2(5,21)*THREE-R2(5,25)*THREE+R1(1,1)*THREE+R1(1,9)*THREE)*QZ+(
     * +R6(10,11)*TWO+R6(10,12)-R5(6,15)*TWO-R5(6,16)-R5(6,19)*TWO
     * -R5(6,20)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)+R4(10,17)
     * +R4(3,24)*TWO+R4(3,25)-R3(6,13)*TWO-R3(6,14)-R3(6,17)*TWO
     * -R3(6,18)+R2(5,3)*TWO+R2(5,4)+R2(5,11)*TWO+R2(5,12))*XX
      F(5,1,5,5)= F(5,1,5,5)+(
     * +R6(6,10)+R6(6,11)*TWO-R5(3,14)-R5(3,15)*TWO-R5(3,18)
     * -R5(3,19)*TWO+R4(1,15)+R4(6,15)+R4(1,16)*TWO+R4(6,16)*TWO
     * +R4(1,23)+R4(1,24)*TWO+R4(6,39)+R4(6,40)*TWO-R3(3,12)
     * -R3(3,13)*TWO-R3(3,16)-R3(3,17)*TWO-R3(3,44)-R3(3,45)*TWO
     * -R3(3,49)-R3(3,50)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,10)+R2(1,11)*TWO
     * +R2(1,38)+R2(3,38)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,48)
     * +R2(1,49)*TWO-R1(3,22)-R1(3,23)*TWO-R1(3,27)-R1(3,28)*TWO+R0(2)
     * +R0(3)*TWO+R0(12)+R0(13)*TWO)*XZ+(+R5(10,24)-R4(6,33)-R4(6,37)
     * +R3(3,30)+R3(10,30)+R3(3,38)-R2(3,24)-R2(3,28)+R1(3,4)+R1(3,12))
     * *XXX+(+R5(6,23)*TWO+R5(6,24)-R4(3,32)*TWO-R4(3,33)-R4(3,36)*TWO
     * -R4(3,37)+R3(1,29)*TWO+R3(6,29)*TWO+R3(1,30)+R3(6,30)
     * +R3(1,37)*TWO+R3(1,38)-R2(5,23)*TWO-R2(5,24)-R2(5,27)*TWO
     * -R2(5,28)+R1(1,3)*TWO+R1(1,4)+R1(1,11)*TWO+R1(1,12))*XXZ+(
     * +R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XXXZ
      F(6,1,5,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(14,1)+R6(5,3)
     * +R6(14,9)-R5(9,1)-R5(9,2)-R5(9,13)-R5(9,17)+R4(5,1)+R4(5,3)
     * +R4(5,14)+R4(14,14)+R4(5,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)+(
     * +R7(14,4)*TWO-R6(9,6)*TWO-R6(9,8)*TWO+R5(5,6)*TWO+R5(14,6)*TWO
     * +R5(5,10)*TWO-R4(9,7)*TWO-R4(9,9)*TWO+R3(5,2)*TWO+R3(5,6)*TWO)*QX
     * +(+R7(9,3)-R6(5,5)-R6(5,7)+R5(2,5)+R5(9,5)+R5(2,9)+R5(9,21)
     * -R4(5,6)-R4(5,8)-R4(5,30)-R4(5,34)+R3(2,1)+R3(2,5)+R3(2,27)
     * +R3(9,27)+R3(2,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QZ+(
     * +R6(14,12)-R5(9,16)-R5(9,20)+R4(5,17)+R4(14,17)+R4(5,25)-R3(9,14)
     * -R3(9,18)+R2(6,4)+R2(6,12))*XX+(+R6(9,11)*TWO-R5(5,15)*TWO
     * -R5(5,19)*TWO+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,24)*TWO-R3(5,13)*TWO
     * -R3(5,17)*TWO+R2(4,3)*TWO+R2(4,11)*TWO)*XZ+(+R5(9,24)-R4(5,33)
     * -R4(5,37)+R3(2,30)+R3(9,30)+R3(2,38)-R2(6,24)-R2(6,28)+R1(2,4)
     * +R1(2,12))*XXZ
      F(1,2,5,5)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(13,1)+R6(4,3)
     * +R6(6,9)+R6(13,9)-R5(8,1)-R5(8,2)-R5(3,13)-R5(8,13)-R5(3,17)
     * -R5(8,17)+R4(4,1)+R4(4,3)+R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(1,22)+R4(4,22)+R4(6,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(13,3)*TWO
     * -R6(8,5)*TWO-R6(8,7)*TWO+R5(4,5)*TWO+R5(13,5)*TWO+R5(4,9)*TWO
     * +R5(6,21)*TWO-R4(8,6)*TWO-R4(8,8)*TWO-R4(3,30)*TWO-R4(3,34)*TWO
     * +R3(4,1)*TWO+R3(4,5)*TWO+R3(1,27)*TWO+R3(6,27)*TWO+R3(1,35)*TWO
     * -R2(5,21)*TWO-R2(5,25)*TWO+R1(1,1)*TWO+R1(1,9)*TWO)*QX+(
     * +R6(13,10)-R5(8,14)-R5(8,18)+R4(4,15)+R4(13,15)+R4(4,23)+R4(6,39)
     * -R3(8,12)-R3(8,16)-R3(3,44)-R3(3,49)+R2(2,2)+R2(2,10)+R2(1,38)
     * +R2(3,38)+R2(1,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XX
      F(2,2,5,5)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(24,1)+R6(11,3)
     * +R6(13,9)*SIX-R5(17,1)-R5(17,2)-R5(8,13)*SIX-R5(8,17)*SIX
     * +R4(11,1)+R4(11,3)+R4(4,14)*SIX+R4(13,14)*SIX+R4(4,22)*SIX
     * +R4(6,38)*THREE-R3(8,11)*SIX-R3(8,15)*SIX-R3(3,43)*THREE
     * -R3(3,48)*THREE+R2(2,1)*SIX+R2(2,9)*SIX+R2(1,37)*THREE
     * +R2(3,37)*THREE+R2(1,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE
     * +R0(1)*THREE+R0(11)*THREE
      F(3,2,5,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(26,1)+R6(13,3)
     * +R6(13,9)+R6(15,9)-R5(19,1)-R5(19,2)-R5(8,13)-R5(10,13)-R5(8,17)
     * -R5(10,17)+R4(13,1)+R4(13,3)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(15,14)+R4(4,22)+R4(6,22)+R4(6,38)-R3(8,11)-R3(10,11)-R3(8,15)
     * -R3(10,15)-R3(3,43)-R3(3,48)+R2(2,1)+R2(3,1)+R2(2,9)+R2(3,9)
     * +R2(1,37)+R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(19,3)*TWO-R6(13,5)*TWO-R6(13,7)*TWO+R5(8,5)*TWO+R5(19,5)*TWO
     * +R5(8,9)*TWO+R5(10,21)*TWO-R4(13,6)*TWO-R4(13,8)*TWO-R4(6,30)*TWO
     * -R4(6,34)*TWO+R3(8,1)*TWO+R3(8,5)*TWO+R3(3,27)*TWO+R3(10,27)*TWO
     * +R3(3,35)*TWO-R2(3,21)*TWO-R2(3,25)*TWO+R1(3,1)*TWO+R1(3,9)*TWO)
     * *QZ+(+R6(13,10)-R5(8,14)-R5(8,18)+R4(4,15)+R4(13,15)+R4(4,23)
     * +R4(6,39)-R3(8,12)-R3(8,16)-R3(3,44)-R3(3,49)+R2(2,2)+R2(2,10)
     * +R2(1,38)+R2(3,38)+R2(1,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*ZZ
      F(4,2,5,5)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(18,1)+R6(7,3)
     * +R6(9,9)*THREE-R5(12,1)-R5(12,2)-R5(5,13)*THREE-R5(5,17)*THREE
     * +R4(7,1)+R4(7,3)+R4(2,14)*THREE+R4(9,14)*THREE+R4(2,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(18,5)+R5(7,9)
     * +R5(9,21)*THREE-R4(12,6)-R4(12,8)-R4(5,30)*THREE-R4(5,34)*THREE
     * +R3(7,1)+R3(7,5)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,35)*THREE
     * -R2(6,21)*THREE-R2(6,25)*THREE+R1(2,1)*THREE+R1(2,9)*THREE)*QX
      F(5,2,5,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(19,1)+R6(8,3)
     * +R6(10,9)-R5(13,1)-R5(13,2)-R5(6,13)-R5(6,17)+R4(8,1)+R4(8,3)
     * +R4(3,14)+R4(10,14)+R4(3,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(19,3)-R6(13,5)-R6(13,7)+R5(8,5)+R5(19,5)+R5(8,9)+R5(10,21)
     * -R4(13,6)-R4(13,8)-R4(6,30)-R4(6,34)+R3(8,1)+R3(8,5)+R3(3,27)
     * +R3(10,27)+R3(3,35)-R2(3,21)-R2(3,25)+R1(3,1)+R1(3,9))*QX+(
     * +R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(13,5)+R5(4,9)+R5(6,21)
     * -R4(8,6)-R4(8,8)-R4(3,30)-R4(3,34)+R3(4,1)+R3(4,5)+R3(1,27)
     * +R3(6,27)+R3(1,35)-R2(5,21)-R2(5,25)+R1(1,1)+R1(1,9))*QZ+(
     * +R6(13,10)-R5(8,14)-R5(8,18)+R4(4,15)+R4(13,15)+R4(4,23)+R4(6,39)
     * -R3(8,12)-R3(8,16)-R3(3,44)-R3(3,49)+R2(2,2)+R2(2,10)+R2(1,38)
     * +R2(3,38)+R2(1,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XZ
      F(6,2,5,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(25,1)+R6(12,3)
     * +R6(14,9)*THREE-R5(18,1)-R5(18,2)-R5(9,13)*THREE-R5(9,17)*THREE
     * +R4(12,1)+R4(12,3)+R4(5,14)*THREE+R4(14,14)*THREE+R4(5,22)*THREE
     * -R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE+R2(6,9)*THREE+(
     * +R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(18,5)+R5(7,9)
     * +R5(9,21)*THREE-R4(12,6)-R4(12,8)-R4(5,30)*THREE-R4(5,34)*THREE
     * +R3(7,1)+R3(7,5)+R3(2,27)*THREE+R3(9,27)*THREE+R3(2,35)*THREE
     * -R2(6,21)*THREE-R2(6,25)*THREE+R1(2,1)*THREE+R1(2,9)*THREE)*QZ
      F(1,3,5,5)= R8(15)-R7(10,1)-R7(10,2)+R6(6,1)+R6(15,1)+R6(6,3)
     * +R6(6,9)+R6(15,9)-R5(10,1)-R5(10,2)-R5(3,13)-R5(10,13)-R5(3,17)
     * -R5(10,17)+R4(6,1)+R4(6,3)+R4(1,14)+R4(6,14)*TWO+R4(15,14)
     * +R4(1,22)+R4(6,22)+R4(6,38)-R3(3,11)-R3(10,11)-R3(3,15)-R3(10,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(15,3)*TWO
     * -R6(10,5)*TWO-R6(10,7)*TWO+R5(6,5)*TWO+R5(15,5)*TWO+R5(6,9)*TWO
     * +R5(6,21)*TWO-R4(10,6)*TWO-R4(10,8)*TWO-R4(3,30)*TWO-R4(3,34)*TWO
     * +R3(6,1)*TWO+R3(6,5)*TWO+R3(1,27)*TWO+R3(6,27)*TWO+R3(1,35)*TWO
     * -R2(5,21)*TWO-R2(5,25)*TWO+R1(1,1)*TWO+R1(1,9)*TWO)*QX+(
     * +R7(10,4)*TWO-R6(6,6)*TWO-R6(6,8)*TWO+R5(3,6)*TWO+R5(10,6)*TWO
     * +R5(3,10)*TWO+R5(10,22)*TWO-R4(6,7)*TWO-R4(6,9)*TWO-R4(6,31)*TWO
     * -R4(6,35)*TWO+R3(3,2)*TWO+R3(3,6)*TWO+R3(3,28)*TWO+R3(10,28)*TWO
     * +R3(3,36)*TWO-R2(3,22)*TWO-R2(3,26)*TWO+R1(3,2)*TWO+R1(3,10)*TWO)
     * *QZ
      F(1,3,5,5)= F(1,3,5,5)
     * +(+R6(15,10)-R5(10,14)-R5(10,18)+R4(6,15)+R4(15,15)+R4(6,23)
     * +R4(6,39)-R3(10,12)-R3(10,16)-R3(3,44)-R3(3,49)+R2(3,2)+R2(3,10)
     * +R2(1,38)+R2(3,38)+R2(1,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XX+(
     * +R6(10,11)*FOUR-R5(6,15)*FOUR-R5(6,19)*FOUR+R4(3,16)*FOUR
     * +R4(10,16)*FOUR+R4(3,24)*FOUR-R3(6,13)*FOUR-R3(6,17)*FOUR
     * +R2(5,3)*FOUR+R2(5,11)*FOUR)*XZ+(+R6(6,12)-R5(3,16)-R5(3,20)
     * +R4(1,17)+R4(6,17)+R4(1,25)+R4(6,41)-R3(3,14)-R3(3,18)-R3(3,46)
     * -R3(3,51)+R2(1,4)+R2(1,12)+R2(1,40)+R2(3,40)+R2(1,50)-R1(3,24)
     * -R1(3,29)+R0(4)+R0(14))*ZZ+(+R5(10,23)*TWO-R4(6,32)*TWO
     * -R4(6,36)*TWO+R3(3,29)*TWO+R3(10,29)*TWO+R3(3,37)*TWO
     * -R2(3,23)*TWO-R2(3,27)*TWO+R1(3,3)*TWO+R1(3,11)*TWO)*XXZ+(
     * +R5(6,24)*TWO-R4(3,33)*TWO-R4(3,37)*TWO+R3(1,30)*TWO+R3(6,30)*TWO
     * +R3(1,38)*TWO-R2(5,24)*TWO-R2(5,28)*TWO+R1(1,4)*TWO+R1(1,12)*TWO)
     * *XZZ+(+R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)
     * -R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXZZ
      F(2,3,5,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(26,1)+R6(13,3)
     * +R6(13,9)+R6(15,9)-R5(19,1)-R5(19,2)-R5(8,13)-R5(10,13)-R5(8,17)
     * -R5(10,17)+R4(13,1)+R4(13,3)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(15,14)+R4(4,22)+R4(6,22)+R4(6,38)-R3(8,11)-R3(10,11)-R3(8,15)
     * -R3(10,15)-R3(3,43)-R3(3,48)+R2(2,1)+R2(3,1)+R2(2,9)+R2(3,9)
     * +R2(1,37)+R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(19,4)*TWO-R6(13,6)*TWO-R6(13,8)*TWO+R5(8,6)*TWO+R5(19,6)*TWO
     * +R5(8,10)*TWO+R5(10,22)*TWO-R4(13,7)*TWO-R4(13,9)*TWO
     * -R4(6,31)*TWO-R4(6,35)*TWO+R3(8,2)*TWO+R3(8,6)*TWO+R3(3,28)*TWO
     * +R3(10,28)*TWO+R3(3,36)*TWO-R2(3,22)*TWO-R2(3,26)*TWO+R1(3,2)*TWO
     * +R1(3,10)*TWO)*QZ+(+R6(13,12)-R5(8,16)-R5(8,20)+R4(4,17)
     * +R4(13,17)+R4(4,25)+R4(6,41)-R3(8,14)-R3(8,18)-R3(3,46)-R3(3,51)
     * +R2(2,4)+R2(2,12)+R2(1,40)+R2(3,40)+R2(1,50)-R1(3,24)-R1(3,29)
     * +R0(4)+R0(14))*ZZ
      F(3,3,5,5)= R8(28)-R7(21,1)-R7(21,2)+R6(15,1)+R6(28,1)+R6(15,3)
     * +R6(15,9)*SIX-R5(21,1)-R5(21,2)-R5(10,13)*SIX-R5(10,17)*SIX
     * +R4(15,1)+R4(15,3)+R4(6,14)*SIX+R4(15,14)*SIX+R4(6,22)*SIX
     * +R4(6,38)*THREE-R3(10,11)*SIX-R3(10,15)*SIX-R3(3,43)*THREE
     * -R3(3,48)*THREE+R2(3,1)*SIX+R2(3,9)*SIX+R2(1,37)*THREE
     * +R2(3,37)*THREE+R2(1,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE
     * +R0(1)*THREE+R0(11)*THREE+(+R7(21,3)*TWO+R7(21,4)*TWO
     * -R6(15,5)*TWO-R6(15,6)*TWO-R6(15,7)*TWO-R6(15,8)*TWO+R5(10,5)*TWO
     * +R5(21,5)*TWO+R5(10,6)*TWO+R5(21,6)*TWO+R5(10,9)*TWO
     * +R5(10,10)*TWO+R5(10,21)*SIX+R5(10,22)*SIX-R4(15,6)*TWO
     * -R4(15,7)*TWO-R4(15,8)*TWO-R4(15,9)*TWO-R4(6,30)*SIX-R4(6,31)*SIX
     * -R4(6,34)*SIX-R4(6,35)*SIX+R3(10,1)*TWO+R3(10,2)*TWO+R3(10,5)*TWO
     * +R3(10,6)*TWO+R3(3,27)*SIX+R3(10,27)*SIX+R3(3,28)*SIX
     * +R3(10,28)*SIX+R3(3,35)*SIX+R3(3,36)*SIX-R2(3,21)*SIX
     * -R2(3,22)*SIX-R2(3,25)*SIX-R2(3,26)*SIX+R1(3,1)*SIX+R1(3,2)*SIX
     * +R1(3,9)*SIX+R1(3,10)*SIX)*QZ
      F(3,3,5,5)= F(3,3,5,5)+(+R6(15,10)+R6(15,11)*FOUR
     * +R6(15,12)-R5(10,14)-R5(10,15)*FOUR-R5(10,16)-R5(10,18)
     * -R5(10,19)*FOUR-R5(10,20)+R4(6,15)+R4(15,15)+R4(6,16)*FOUR
     * +R4(15,16)*FOUR+R4(6,17)+R4(15,17)+R4(6,23)+R4(6,24)*FOUR
     * +R4(6,25)+R4(6,39)+R4(6,40)*FOUR+R4(6,41)-R3(10,12)
     * -R3(10,13)*FOUR-R3(10,14)-R3(10,16)-R3(10,17)*FOUR-R3(10,18)
     * -R3(3,44)-R3(3,45)*FOUR-R3(3,46)-R3(3,49)-R3(3,50)*FOUR-R3(3,51)
     * +R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(3,10)+R2(3,11)*FOUR+R2(3,12)
     * +R2(1,38)+R2(3,38)+R2(1,39)*FOUR+R2(3,39)*FOUR+R2(1,40)+R2(3,40)
     * +R2(1,48)+R2(1,49)*FOUR+R2(1,50)-R1(3,22)-R1(3,23)*FOUR-R1(3,24)
     * -R1(3,27)-R1(3,28)*FOUR-R1(3,29)+R0(2)+R0(3)*FOUR+R0(4)+R0(12)
     * +R0(13)*FOUR+R0(14))*ZZ+(+R5(10,23)*TWO+R5(10,24)*TWO
     * -R4(6,32)*TWO-R4(6,33)*TWO-R4(6,36)*TWO-R4(6,37)*TWO+R3(3,29)*TWO
     * +R3(10,29)*TWO+R3(3,30)*TWO+R3(10,30)*TWO+R3(3,37)*TWO
     * +R3(3,38)*TWO-R2(3,23)*TWO-R2(3,24)*TWO-R2(3,27)*TWO-R2(3,28)*TWO
     * +R1(3,3)*TWO+R1(3,4)*TWO+R1(3,11)*TWO+R1(3,12)*TWO)*ZZZ+(
     * +R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*ZZZZ
      F(4,3,5,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(20,1)+R6(9,3)
     * +R6(9,9)-R5(14,1)-R5(14,2)-R5(5,13)-R5(5,17)+R4(9,1)+R4(9,3)
     * +R4(2,14)+R4(9,14)+R4(2,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(20,3)-R6(14,5)-R6(14,7)+R5(9,5)+R5(20,5)+R5(9,9)+R5(9,21)
     * -R4(14,6)-R4(14,8)-R4(5,30)-R4(5,34)+R3(9,1)+R3(9,5)+R3(2,27)
     * +R3(9,27)+R3(2,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QX+(
     * +R7(14,4)*TWO-R6(9,6)*TWO-R6(9,8)*TWO+R5(5,6)*TWO+R5(14,6)*TWO
     * +R5(5,10)*TWO-R4(9,7)*TWO-R4(9,9)*TWO+R3(5,2)*TWO+R3(5,6)*TWO)*QZ
     * +(+R6(14,11)*TWO-R5(9,15)*TWO-R5(9,19)*TWO+R4(5,16)*TWO
     * +R4(14,16)*TWO+R4(5,24)*TWO-R3(9,13)*TWO-R3(9,17)*TWO+R2(6,3)*TWO
     * +R2(6,11)*TWO)*XZ+(+R6(9,12)-R5(5,16)-R5(5,20)+R4(2,17)+R4(9,17)
     * +R4(2,25)-R3(5,14)-R3(5,18)+R2(4,4)+R2(4,12))*ZZ+(+R5(9,24)
     * -R4(5,33)-R4(5,37)+R3(2,30)+R3(9,30)+R3(2,38)-R2(6,24)-R2(6,28)
     * +R1(2,4)+R1(2,12))*XZZ
      F(5,3,5,5)= R8(21)-R7(15,1)-R7(15,2)+R6(10,1)+R6(21,1)+R6(10,3)
     * +R6(10,9)*THREE-R5(15,1)-R5(15,2)-R5(6,13)*THREE-R5(6,17)*THREE
     * +R4(10,1)+R4(10,3)+R4(3,14)*THREE+R4(10,14)*THREE+R4(3,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(21,3)-R6(15,5)-R6(15,7)+R5(10,5)+R5(21,5)+R5(10,9)
     * +R5(10,21)*THREE-R4(15,6)-R4(15,8)-R4(6,30)*THREE-R4(6,34)*THREE
     * +R3(10,1)+R3(10,5)+R3(3,27)*THREE+R3(10,27)*THREE+R3(3,35)*THREE
     * -R2(3,21)*THREE-R2(3,25)*THREE+R1(3,1)*THREE+R1(3,9)*THREE)*QX+(
     * +R7(15,3)+R7(15,4)*TWO-R6(10,5)-R6(10,6)*TWO-R6(10,7)
     * -R6(10,8)*TWO+R5(6,5)+R5(15,5)+R5(6,6)*TWO+R5(15,6)*TWO+R5(6,9)
     * +R5(6,10)*TWO+R5(6,21)+R5(6,22)*TWO-R4(10,6)-R4(10,7)*TWO
     * -R4(10,8)-R4(10,9)*TWO-R4(3,30)-R4(3,31)*TWO-R4(3,34)
     * -R4(3,35)*TWO+R3(6,1)+R3(6,2)*TWO+R3(6,5)+R3(6,6)*TWO+R3(1,27)
     * +R3(6,27)+R3(1,28)*TWO+R3(6,28)*TWO+R3(1,35)+R3(1,36)*TWO
     * -R2(5,21)-R2(5,22)*TWO-R2(5,25)-R2(5,26)*TWO+R1(1,1)+R1(1,2)*TWO
     * +R1(1,9)+R1(1,10)*TWO)*QZ
      F(5,3,5,5)= F(5,3,5,5)+(+R6(15,10)+R6(15,11)*TWO-R5(10,14)
     * -R5(10,15)*TWO-R5(10,18)-R5(10,19)*TWO+R4(6,15)+R4(15,15)
     * +R4(6,16)*TWO+R4(15,16)*TWO+R4(6,23)+R4(6,24)*TWO+R4(6,39)
     * +R4(6,40)*TWO-R3(10,12)-R3(10,13)*TWO-R3(10,16)-R3(10,17)*TWO
     * -R3(3,44)-R3(3,45)*TWO-R3(3,49)-R3(3,50)*TWO+R2(3,2)+R2(3,3)*TWO
     * +R2(3,10)+R2(3,11)*TWO+R2(1,38)+R2(3,38)+R2(1,39)*TWO
     * +R2(3,39)*TWO+R2(1,48)+R2(1,49)*TWO-R1(3,22)-R1(3,23)*TWO
     * -R1(3,27)-R1(3,28)*TWO+R0(2)+R0(3)*TWO+R0(12)+R0(13)*TWO)*XZ+(
     * +R6(10,11)*TWO+R6(10,12)-R5(6,15)*TWO-R5(6,16)-R5(6,19)*TWO
     * -R5(6,20)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)+R4(10,17)
     * +R4(3,24)*TWO+R4(3,25)-R3(6,13)*TWO-R3(6,14)-R3(6,17)*TWO
     * -R3(6,18)+R2(5,3)*TWO+R2(5,4)+R2(5,11)*TWO+R2(5,12))*ZZ+(
     * +R5(10,23)*TWO+R5(10,24)-R4(6,32)*TWO-R4(6,33)-R4(6,36)*TWO
     * -R4(6,37)+R3(3,29)*TWO+R3(10,29)*TWO+R3(3,30)+R3(10,30)
     * +R3(3,37)*TWO+R3(3,38)-R2(3,23)*TWO-R2(3,24)-R2(3,27)*TWO
     * -R2(3,28)+R1(3,3)*TWO+R1(3,4)+R1(3,11)*TWO+R1(3,12))*XZZ+(
     * +R5(6,24)-R4(3,33)-R4(3,37)+R3(1,30)+R3(6,30)+R3(1,38)-R2(5,24)
     * -R2(5,28)+R1(1,4)+R1(1,12))*ZZZ+(+R4(6,42)-R3(3,47)-R3(3,52)
     * +R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)-R1(3,30)+R0(5)+R0(15))*XZZZ
      F(6,3,5,5)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(27,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(20,1)-R5(20,2)-R5(9,13)*THREE-R5(9,17)*THREE
     * +R4(14,1)+R4(14,3)+R4(5,14)*THREE+R4(14,14)*THREE+R4(5,22)*THREE
     * -R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE+R2(6,9)*THREE+(
     * +R7(20,3)+R7(20,4)*TWO-R6(14,5)-R6(14,6)*TWO-R6(14,7)
     * -R6(14,8)*TWO+R5(9,5)+R5(20,5)+R5(9,6)*TWO+R5(20,6)*TWO+R5(9,9)
     * +R5(9,10)*TWO+R5(9,21)+R5(9,22)*TWO-R4(14,6)-R4(14,7)*TWO
     * -R4(14,8)-R4(14,9)*TWO-R4(5,30)-R4(5,31)*TWO-R4(5,34)
     * -R4(5,35)*TWO+R3(9,1)+R3(9,2)*TWO+R3(9,5)+R3(9,6)*TWO+R3(2,27)
     * +R3(9,27)+R3(2,28)*TWO+R3(9,28)*TWO+R3(2,35)+R3(2,36)*TWO
     * -R2(6,21)-R2(6,22)*TWO-R2(6,25)-R2(6,26)*TWO+R1(2,1)+R1(2,2)*TWO
     * +R1(2,9)+R1(2,10)*TWO)*QZ+(+R6(14,11)*TWO+R6(14,12)-R5(9,15)*TWO
     * -R5(9,16)-R5(9,19)*TWO-R5(9,20)+R4(5,16)*TWO+R4(14,16)*TWO
     * +R4(5,17)+R4(14,17)+R4(5,24)*TWO+R4(5,25)-R3(9,13)*TWO-R3(9,14)
     * -R3(9,17)*TWO-R3(9,18)+R2(6,3)*TWO+R2(6,4)+R2(6,11)*TWO+R2(6,12))
     * *ZZ+(+R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)+R3(9,30)+R3(2,38)
     * -R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*ZZZ
      F(1,4,5,5)= R8(9)-R7(5,1)-R7(5,2)+R6(2,1)+R6(9,1)+R6(2,3)
     * +R6(9,9)*THREE-R5(5,1)-R5(5,2)-R5(5,13)*THREE-R5(5,17)*THREE
     * +R4(2,1)+R4(2,3)+R4(2,14)*THREE+R4(9,14)*THREE+R4(2,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(9,3)*TWO+R7(9,4)-R6(5,5)*TWO-R6(5,6)-R6(5,7)*TWO-R6(5,8)
     * +R5(2,5)*TWO+R5(9,5)*TWO+R5(2,6)+R5(9,6)+R5(2,9)*TWO+R5(2,10)
     * +R5(9,21)*TWO+R5(9,22)-R4(5,6)*TWO-R4(5,7)-R4(5,8)*TWO-R4(5,9)
     * -R4(5,30)*TWO-R4(5,31)-R4(5,34)*TWO-R4(5,35)+R3(2,1)*TWO+R3(2,2)
     * +R3(2,5)*TWO+R3(2,6)+R3(2,27)*TWO+R3(9,27)*TWO+R3(2,28)+R3(9,28)
     * +R3(2,35)*TWO+R3(2,36)-R2(6,21)*TWO-R2(6,22)-R2(6,25)*TWO
     * -R2(6,26)+R1(2,1)*TWO+R1(2,2)+R1(2,9)*TWO+R1(2,10))*QX+(+R6(9,10)
     * +R6(9,11)*TWO-R5(5,14)-R5(5,15)*TWO-R5(5,18)-R5(5,19)*TWO
     * +R4(2,15)+R4(9,15)+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,23)
     * +R4(2,24)*TWO-R3(5,12)-R3(5,13)*TWO-R3(5,16)-R3(5,17)*TWO+R2(4,2)
     * +R2(4,3)*TWO+R2(4,10)+R2(4,11)*TWO)*XX+(+R5(9,23)-R4(5,32)
     * -R4(5,36)+R3(2,29)+R3(9,29)+R3(2,37)-R2(6,23)-R2(6,27)+R1(2,3)
     * +R1(2,11))*XXX
      F(2,4,5,5)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(18,1)+R6(7,3)
     * +R6(9,9)*THREE-R5(12,1)-R5(12,2)-R5(5,13)*THREE-R5(5,17)*THREE
     * +R4(7,1)+R4(7,3)+R4(2,14)*THREE+R4(9,14)*THREE+R4(2,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(18,6)+R5(7,10)
     * +R5(9,22)*THREE-R4(12,7)-R4(12,9)-R4(5,31)*THREE-R4(5,35)*THREE
     * +R3(7,2)+R3(7,6)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,36)*THREE
     * -R2(6,22)*THREE-R2(6,26)*THREE+R1(2,2)*THREE+R1(2,10)*THREE)*QX
      F(3,4,5,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(20,1)+R6(9,3)
     * +R6(9,9)-R5(14,1)-R5(14,2)-R5(5,13)-R5(5,17)+R4(9,1)+R4(9,3)
     * +R4(2,14)+R4(9,14)+R4(2,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(20,4)-R6(14,6)-R6(14,8)+R5(9,6)+R5(20,6)+R5(9,10)+R5(9,22)
     * -R4(14,7)-R4(14,9)-R4(5,31)-R4(5,35)+R3(9,2)+R3(9,6)+R3(2,28)
     * +R3(9,28)+R3(2,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QX+(
     * +R7(14,3)*TWO-R6(9,5)*TWO-R6(9,7)*TWO+R5(5,5)*TWO+R5(14,5)*TWO
     * +R5(5,9)*TWO-R4(9,6)*TWO-R4(9,8)*TWO+R3(5,1)*TWO+R3(5,5)*TWO)*QZ
     * +(+R6(14,11)*TWO-R5(9,15)*TWO-R5(9,19)*TWO+R4(5,16)*TWO
     * +R4(14,16)*TWO+R4(5,24)*TWO-R3(9,13)*TWO-R3(9,17)*TWO+R2(6,3)*TWO
     * +R2(6,11)*TWO)*XZ+(+R6(9,10)-R5(5,14)-R5(5,18)+R4(2,15)+R4(9,15)
     * +R4(2,23)-R3(5,12)-R3(5,16)+R2(4,2)+R2(4,10))*ZZ+(+R5(9,23)
     * -R4(5,32)-R4(5,36)+R3(2,29)+R3(9,29)+R3(2,37)-R2(6,23)-R2(6,27)
     * +R1(2,3)+R1(2,11))*XZZ
      F(4,4,5,5)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(13,1)+R6(4,3)
     * +R6(6,9)+R6(13,9)-R5(8,1)-R5(8,2)-R5(3,13)-R5(8,13)-R5(3,17)
     * -R5(8,17)+R4(4,1)+R4(4,3)+R4(1,14)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(1,22)+R4(4,22)+R4(6,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(13,3)
     * +R7(13,4)-R6(8,5)-R6(8,6)-R6(8,7)-R6(8,8)+R5(4,5)+R5(13,5)
     * +R5(4,6)+R5(13,6)+R5(4,9)+R5(4,10)+R5(6,21)+R5(6,22)-R4(8,6)
     * -R4(8,7)-R4(8,8)-R4(8,9)-R4(3,30)-R4(3,31)-R4(3,34)-R4(3,35)
     * +R3(4,1)+R3(4,2)+R3(4,5)+R3(4,6)+R3(1,27)+R3(6,27)+R3(1,28)
     * +R3(6,28)+R3(1,35)+R3(1,36)-R2(5,21)-R2(5,22)-R2(5,25)-R2(5,26)
     * +R1(1,1)+R1(1,2)+R1(1,9)+R1(1,10))*QX+(+R6(13,11)-R5(8,15)
     * -R5(8,19)+R4(4,16)+R4(13,16)+R4(4,24)+R4(6,40)-R3(8,13)-R3(8,17)
     * -R3(3,45)-R3(3,50)+R2(2,3)+R2(2,11)+R2(1,39)+R2(3,39)+R2(1,49)
     * -R1(3,23)-R1(3,28)+R0(3)+R0(13))*XX
      F(5,4,5,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(14,1)+R6(5,3)
     * +R6(14,9)-R5(9,1)-R5(9,2)-R5(9,13)-R5(9,17)+R4(5,1)+R4(5,3)
     * +R4(5,14)+R4(14,14)+R4(5,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,9)+R5(5,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QX+(+R7(9,3)
     * -R6(5,5)-R6(5,7)+R5(2,5)+R5(9,5)+R5(2,9)+R5(9,21)-R4(5,6)-R4(5,8)
     * -R4(5,30)-R4(5,34)+R3(2,1)+R3(2,5)+R3(2,27)+R3(9,27)+R3(2,35)
     * -R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QZ+(+R6(14,11)-R5(9,15)
     * -R5(9,19)+R4(5,16)+R4(14,16)+R4(5,24)-R3(9,13)-R3(9,17)+R2(6,3)
     * +R2(6,11))*XX+(+R6(9,10)+R6(9,11)-R5(5,14)-R5(5,15)-R5(5,18)
     * -R5(5,19)+R4(2,15)+R4(9,15)+R4(2,16)+R4(9,16)+R4(2,23)+R4(2,24)
     * -R3(5,12)-R3(5,13)-R3(5,16)-R3(5,17)+R2(4,2)+R2(4,3)+R2(4,10)
     * +R2(4,11))*XZ+(+R5(9,23)-R4(5,32)-R4(5,36)+R3(2,29)+R3(9,29)
     * +R3(2,37)-R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*XXZ
      F(6,4,5,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(19,1)+R6(8,3)
     * +R6(10,9)-R5(13,1)-R5(13,2)-R5(6,13)-R5(6,17)+R4(8,1)+R4(8,3)
     * +R4(3,14)+R4(10,14)+R4(3,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(19,4)-R6(13,6)-R6(13,8)+R5(8,6)+R5(19,6)+R5(8,10)+R5(10,22)
     * -R4(13,7)-R4(13,9)-R4(6,31)-R4(6,35)+R3(8,2)+R3(8,6)+R3(3,28)
     * +R3(10,28)+R3(3,36)-R2(3,22)-R2(3,26)+R1(3,2)+R1(3,10))*QX+(
     * +R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(13,5)+R5(4,9)+R5(6,21)
     * -R4(8,6)-R4(8,8)-R4(3,30)-R4(3,34)+R3(4,1)+R3(4,5)+R3(1,27)
     * +R3(6,27)+R3(1,35)-R2(5,21)-R2(5,25)+R1(1,1)+R1(1,9))*QZ+(
     * +R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)+R4(13,16)+R4(4,24)+R4(6,40)
     * -R3(8,13)-R3(8,17)-R3(3,45)-R3(3,50)+R2(2,3)+R2(2,11)+R2(1,39)
     * +R2(3,39)+R2(1,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XZ
      F(1,5,5,5)= R8(10)-R7(6,1)-R7(6,2)+R6(3,1)+R6(10,1)+R6(3,3)
     * +R6(10,9)*THREE-R5(6,1)-R5(6,2)-R5(6,13)*THREE-R5(6,17)*THREE
     * +R4(3,1)+R4(3,3)+R4(3,14)*THREE+R4(10,14)*THREE+R4(3,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(10,3)*TWO+R7(10,4)-R6(6,5)*TWO-R6(6,6)-R6(6,7)*TWO-R6(6,8)
     * +R5(3,5)*TWO+R5(10,5)*TWO+R5(3,6)+R5(10,6)+R5(3,9)*TWO+R5(3,10)
     * +R5(10,21)*TWO+R5(10,22)-R4(6,6)*TWO-R4(6,7)-R4(6,8)*TWO-R4(6,9)
     * -R4(6,30)*TWO-R4(6,31)-R4(6,34)*TWO-R4(6,35)+R3(3,1)*TWO+R3(3,2)
     * +R3(3,5)*TWO+R3(3,6)+R3(3,27)*TWO+R3(10,27)*TWO+R3(3,28)
     * +R3(10,28)+R3(3,35)*TWO+R3(3,36)-R2(3,21)*TWO-R2(3,22)
     * -R2(3,25)*TWO-R2(3,26)+R1(3,1)*TWO+R1(3,2)+R1(3,9)*TWO+R1(3,10))
     * *QX+(+R7(6,4)-R6(3,6)-R6(3,8)+R5(1,6)+R5(6,6)+R5(1,10)
     * +R5(6,22)*THREE-R4(3,7)-R4(3,9)-R4(3,31)*THREE-R4(3,35)*THREE
     * +R3(1,2)+R3(1,6)+R3(1,28)*THREE+R3(6,28)*THREE+R3(1,36)*THREE
     * -R2(5,22)*THREE-R2(5,26)*THREE+R1(1,2)*THREE+R1(1,10)*THREE)*QZ+(
     * +R6(10,10)+R6(10,11)*TWO-R5(6,14)-R5(6,15)*TWO-R5(6,18)
     * -R5(6,19)*TWO+R4(3,15)+R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO
     * +R4(3,23)+R4(3,24)*TWO-R3(6,12)-R3(6,13)*TWO-R3(6,16)
     * -R3(6,17)*TWO+R2(5,2)+R2(5,3)*TWO+R2(5,10)+R2(5,11)*TWO)*XX
      F(1,5,5,5)= F(1,5,5,5)+(
     * +R6(6,11)*TWO+R6(6,12)-R5(3,15)*TWO-R5(3,16)-R5(3,19)*TWO
     * -R5(3,20)+R4(1,16)*TWO+R4(6,16)*TWO+R4(1,17)+R4(6,17)
     * +R4(1,24)*TWO+R4(1,25)+R4(6,40)*TWO+R4(6,41)-R3(3,13)*TWO
     * -R3(3,14)-R3(3,17)*TWO-R3(3,18)-R3(3,45)*TWO-R3(3,46)
     * -R3(3,50)*TWO-R3(3,51)+R2(1,3)*TWO+R2(1,4)+R2(1,11)*TWO+R2(1,12)
     * +R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)+R2(3,40)+R2(1,49)*TWO
     * +R2(1,50)-R1(3,23)*TWO-R1(3,24)-R1(3,28)*TWO-R1(3,29)+R0(3)*TWO
     * +R0(4)+R0(13)*TWO+R0(14))*XZ+(+R5(10,23)-R4(6,32)-R4(6,36)
     * +R3(3,29)+R3(10,29)+R3(3,37)-R2(3,23)-R2(3,27)+R1(3,3)+R1(3,11))
     * *XXX+(+R5(6,23)+R5(6,24)*TWO-R4(3,32)-R4(3,33)*TWO-R4(3,36)
     * -R4(3,37)*TWO+R3(1,29)+R3(6,29)+R3(1,30)*TWO+R3(6,30)*TWO
     * +R3(1,37)+R3(1,38)*TWO-R2(5,23)-R2(5,24)*TWO-R2(5,27)
     * -R2(5,28)*TWO+R1(1,3)+R1(1,4)*TWO+R1(1,11)+R1(1,12)*TWO)*XXZ+(
     * +R4(6,42)-R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XXXZ
      F(2,5,5,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(19,1)+R6(8,3)
     * +R6(10,9)-R5(13,1)-R5(13,2)-R5(6,13)-R5(6,17)+R4(8,1)+R4(8,3)
     * +R4(3,14)+R4(10,14)+R4(3,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(19,4)-R6(13,6)-R6(13,8)+R5(8,6)+R5(19,6)+R5(8,10)+R5(10,22)
     * -R4(13,7)-R4(13,9)-R4(6,31)-R4(6,35)+R3(8,2)+R3(8,6)+R3(3,28)
     * +R3(10,28)+R3(3,36)-R2(3,22)-R2(3,26)+R1(3,2)+R1(3,10))*QX+(
     * +R7(13,4)-R6(8,6)-R6(8,8)+R5(4,6)+R5(13,6)+R5(4,10)+R5(6,22)
     * -R4(8,7)-R4(8,9)-R4(3,31)-R4(3,35)+R3(4,2)+R3(4,6)+R3(1,28)
     * +R3(6,28)+R3(1,36)-R2(5,22)-R2(5,26)+R1(1,2)+R1(1,10))*QZ+(
     * +R6(13,12)-R5(8,16)-R5(8,20)+R4(4,17)+R4(13,17)+R4(4,25)+R4(6,41)
     * -R3(8,14)-R3(8,18)-R3(3,46)-R3(3,51)+R2(2,4)+R2(2,12)+R2(1,40)
     * +R2(3,40)+R2(1,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XZ
      F(3,5,5,5)= R8(21)-R7(15,1)-R7(15,2)+R6(10,1)+R6(21,1)+R6(10,3)
     * +R6(10,9)*THREE-R5(15,1)-R5(15,2)-R5(6,13)*THREE-R5(6,17)*THREE
     * +R4(10,1)+R4(10,3)+R4(3,14)*THREE+R4(10,14)*THREE+R4(3,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(21,4)-R6(15,6)-R6(15,8)+R5(10,6)+R5(21,6)+R5(10,10)
     * +R5(10,22)*THREE-R4(15,7)-R4(15,9)-R4(6,31)*THREE-R4(6,35)*THREE
     * +R3(10,2)+R3(10,6)+R3(3,28)*THREE+R3(10,28)*THREE+R3(3,36)*THREE
     * -R2(3,22)*THREE-R2(3,26)*THREE+R1(3,2)*THREE+R1(3,10)*THREE)*QX+(
     * +R7(15,3)*TWO+R7(15,4)-R6(10,5)*TWO-R6(10,6)-R6(10,7)*TWO
     * -R6(10,8)+R5(6,5)*TWO+R5(15,5)*TWO+R5(6,6)+R5(15,6)+R5(6,9)*TWO
     * +R5(6,10)+R5(6,21)*TWO+R5(6,22)-R4(10,6)*TWO-R4(10,7)
     * -R4(10,8)*TWO-R4(10,9)-R4(3,30)*TWO-R4(3,31)-R4(3,34)*TWO
     * -R4(3,35)+R3(6,1)*TWO+R3(6,2)+R3(6,5)*TWO+R3(6,6)+R3(1,27)*TWO
     * +R3(6,27)*TWO+R3(1,28)+R3(6,28)+R3(1,35)*TWO+R3(1,36)
     * -R2(5,21)*TWO-R2(5,22)-R2(5,25)*TWO-R2(5,26)+R1(1,1)*TWO+R1(1,2)
     * +R1(1,9)*TWO+R1(1,10))*QZ
      F(3,5,5,5)= F(3,5,5,5)+(+R6(15,11)*TWO+R6(15,12)-R5(10,15)*TWO
     * -R5(10,16)-R5(10,19)*TWO-R5(10,20)+R4(6,16)*TWO+R4(15,16)*TWO
     * +R4(6,17)+R4(15,17)+R4(6,24)*TWO+R4(6,25)+R4(6,40)*TWO+R4(6,41)
     * -R3(10,13)*TWO-R3(10,14)-R3(10,17)*TWO-R3(10,18)-R3(3,45)*TWO
     * -R3(3,46)-R3(3,50)*TWO-R3(3,51)+R2(3,3)*TWO+R2(3,4)+R2(3,11)*TWO
     * +R2(3,12)+R2(1,39)*TWO+R2(3,39)*TWO+R2(1,40)+R2(3,40)
     * +R2(1,49)*TWO+R2(1,50)-R1(3,23)*TWO-R1(3,24)-R1(3,28)*TWO
     * -R1(3,29)+R0(3)*TWO+R0(4)+R0(13)*TWO+R0(14))*XZ+(+R6(10,10)
     * +R6(10,11)*TWO-R5(6,14)-R5(6,15)*TWO-R5(6,18)-R5(6,19)*TWO
     * +R4(3,15)+R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,23)
     * +R4(3,24)*TWO-R3(6,12)-R3(6,13)*TWO-R3(6,16)-R3(6,17)*TWO+R2(5,2)
     * +R2(5,3)*TWO+R2(5,10)+R2(5,11)*TWO)*ZZ+(+R5(10,23)+R5(10,24)*TWO
     * -R4(6,32)-R4(6,33)*TWO-R4(6,36)-R4(6,37)*TWO+R3(3,29)+R3(10,29)
     * +R3(3,30)*TWO+R3(10,30)*TWO+R3(3,37)+R3(3,38)*TWO-R2(3,23)
     * -R2(3,24)*TWO-R2(3,27)-R2(3,28)*TWO+R1(3,3)+R1(3,4)*TWO+R1(3,11)
     * +R1(3,12)*TWO)*XZZ+(+R5(6,23)-R4(3,32)-R4(3,36)+R3(1,29)+R3(6,29)
     * +R3(1,37)-R2(5,23)-R2(5,27)+R1(1,3)+R1(1,11))*ZZZ+(+R4(6,42)
     * -R3(3,47)-R3(3,52)+R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)-R1(3,30)
     * +R0(5)+R0(15))*XZZZ
      F(4,5,5,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(14,1)+R6(5,3)
     * +R6(14,9)-R5(9,1)-R5(9,2)-R5(9,13)-R5(9,17)+R4(5,1)+R4(5,3)
     * +R4(5,14)+R4(14,14)+R4(5,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,9)+R5(5,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QX+(+R7(9,4)
     * -R6(5,6)-R6(5,8)+R5(2,6)+R5(9,6)+R5(2,10)+R5(9,22)-R4(5,7)
     * -R4(5,9)-R4(5,31)-R4(5,35)+R3(2,2)+R3(2,6)+R3(2,28)+R3(9,28)
     * +R3(2,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QZ+(+R6(14,11)
     * -R5(9,15)-R5(9,19)+R4(5,16)+R4(14,16)+R4(5,24)-R3(9,13)-R3(9,17)
     * +R2(6,3)+R2(6,11))*XX+(+R6(9,11)+R6(9,12)-R5(5,15)-R5(5,16)
     * -R5(5,19)-R5(5,20)+R4(2,16)+R4(9,16)+R4(2,17)+R4(9,17)+R4(2,24)
     * +R4(2,25)-R3(5,13)-R3(5,14)-R3(5,17)-R3(5,18)+R2(4,3)+R2(4,4)
     * +R2(4,11)+R2(4,12))*XZ+(+R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)
     * +R3(9,30)+R3(2,38)-R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*XXZ
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21Q
      SUBROUTINE MCDV21Q(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           NINE=9.0D+00, TWELV=1.2D+01, P18=1.8D+01)
C
      COMMON/KI4/R0(25),R1(3,40),R2(6,56),R3(10,52),R4(15,42),
     *           R5(21,24),R6(28,12),R7(36,4),R8(45)
      COMMON /KI20/ XX,XZ,ZZ,XXX,XXZ,XZZ,ZZZ,XXXX,XXXZ,XXZZ,XZZZ,ZZZZ
C
      DIMENSION F(6,6,6,6)
C
      F(5,5,5,5)= R8(15)-R7(10,1)-R7(10,2)+R6(6,1)+R6(15,1)+R6(6,3)
     * +R6(6,9)+R6(15,9)-R5(10,1)-R5(10,2)-R5(3,13)-R5(10,13)-R5(3,17)
     * -R5(10,17)+R4(6,1)+R4(6,3)+R4(1,14)+R4(6,14)*TWO+R4(15,14)
     * +R4(1,22)+R4(6,22)+R4(6,38)-R3(3,11)-R3(10,11)-R3(3,15)-R3(10,15)
     * -R3(3,43)-R3(3,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)+R2(1,37)
     * +R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(15,3)
     * +R7(15,4)-R6(10,5)-R6(10,6)-R6(10,7)-R6(10,8)+R5(6,5)+R5(15,5)
     * +R5(6,6)+R5(15,6)+R5(6,9)+R5(6,10)+R5(6,21)+R5(6,22)-R4(10,6)
     * -R4(10,7)-R4(10,8)-R4(10,9)-R4(3,30)-R4(3,31)-R4(3,34)-R4(3,35)
     * +R3(6,1)+R3(6,2)+R3(6,5)+R3(6,6)+R3(1,27)+R3(6,27)+R3(1,28)
     * +R3(6,28)+R3(1,35)+R3(1,36)-R2(5,21)-R2(5,22)-R2(5,25)-R2(5,26)
     * +R1(1,1)+R1(1,2)+R1(1,9)+R1(1,10))*QX+(+R7(10,3)+R7(10,4)-R6(6,5)
     * -R6(6,6)-R6(6,7)-R6(6,8)+R5(3,5)+R5(10,5)+R5(3,6)+R5(10,6)
     * +R5(3,9)+R5(3,10)+R5(10,21)+R5(10,22)-R4(6,6)-R4(6,7)-R4(6,8)
     * -R4(6,9)-R4(6,30)-R4(6,31)-R4(6,34)-R4(6,35)+R3(3,1)+R3(3,2)
     * +R3(3,5)+R3(3,6)+R3(3,27)+R3(10,27)+R3(3,28)+R3(10,28)+R3(3,35)
     * +R3(3,36)-R2(3,21)-R2(3,22)-R2(3,25)-R2(3,26)+R1(3,1)+R1(3,2)
     * +R1(3,9)+R1(3,10))*QZ
      F(5,5,5,5)= F(5,5,5,5)+(+R6(15,11)-R5(10,15)-R5(10,19)+R4(6,16)
     * +R4(15,16)+R4(6,24)+R4(6,40)-R3(10,13)-R3(10,17)-R3(3,45)
     * -R3(3,50)+R2(3,3)+R2(3,11)+R2(1,39)+R2(3,39)+R2(1,49)-R1(3,23)
     * -R1(3,28)+R0(3)+R0(13))*XX+(+R6(10,10)+R6(10,11)*TWO+R6(10,12)
     * -R5(6,14)-R5(6,15)*TWO-R5(6,16)-R5(6,18)-R5(6,19)*TWO-R5(6,20)
     * +R4(3,15)+R4(10,15)+R4(3,16)*TWO+R4(10,16)*TWO+R4(3,17)+R4(10,17)
     * +R4(3,23)+R4(3,24)*TWO+R4(3,25)-R3(6,12)-R3(6,13)*TWO-R3(6,14)
     * -R3(6,16)-R3(6,17)*TWO-R3(6,18)+R2(5,2)+R2(5,3)*TWO+R2(5,4)
     * +R2(5,10)+R2(5,11)*TWO+R2(5,12))*XZ+(+R6(6,11)-R5(3,15)-R5(3,19)
     * +R4(1,16)+R4(6,16)+R4(1,24)+R4(6,40)-R3(3,13)-R3(3,17)-R3(3,45)
     * -R3(3,50)+R2(1,3)+R2(1,11)+R2(1,39)+R2(3,39)+R2(1,49)-R1(3,23)
     * -R1(3,28)+R0(3)+R0(13))*ZZ+(+R5(10,23)+R5(10,24)-R4(6,32)
     * -R4(6,33)-R4(6,36)-R4(6,37)+R3(3,29)+R3(10,29)+R3(3,30)+R3(10,30)
     * +R3(3,37)+R3(3,38)-R2(3,23)-R2(3,24)-R2(3,27)-R2(3,28)+R1(3,3)
     * +R1(3,4)+R1(3,11)+R1(3,12))*XXZ+(+R5(6,23)+R5(6,24)-R4(3,32)
     * -R4(3,33)-R4(3,36)-R4(3,37)+R3(1,29)+R3(6,29)+R3(1,30)+R3(6,30)
     * +R3(1,37)+R3(1,38)-R2(5,23)-R2(5,24)-R2(5,27)-R2(5,28)+R1(1,3)
     * +R1(1,4)+R1(1,11)+R1(1,12))*XZZ+(+R4(6,42)-R3(3,47)-R3(3,52)
     * +R2(1,41)+R2(3,41)+R2(1,51)-R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXZZ
      F(6,5,5,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(20,1)+R6(9,3)
     * +R6(9,9)-R5(14,1)-R5(14,2)-R5(5,13)-R5(5,17)+R4(9,1)+R4(9,3)
     * +R4(2,14)+R4(9,14)+R4(2,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(20,4)-R6(14,6)-R6(14,8)+R5(9,6)+R5(20,6)+R5(9,10)+R5(9,22)
     * -R4(14,7)-R4(14,9)-R4(5,31)-R4(5,35)+R3(9,2)+R3(9,6)+R3(2,28)
     * +R3(9,28)+R3(2,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QX+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,9)+R5(5,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QZ+(+R6(14,11)
     * +R6(14,12)-R5(9,15)-R5(9,16)-R5(9,19)-R5(9,20)+R4(5,16)+R4(14,16)
     * +R4(5,17)+R4(14,17)+R4(5,24)+R4(5,25)-R3(9,13)-R3(9,14)-R3(9,17)
     * -R3(9,18)+R2(6,3)+R2(6,4)+R2(6,11)+R2(6,12))*XZ+(+R6(9,11)
     * -R5(5,15)-R5(5,19)+R4(2,16)+R4(9,16)+R4(2,24)-R3(5,13)-R3(5,17)
     * +R2(4,3)+R2(4,11))*ZZ+(+R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)
     * +R3(9,30)+R3(2,38)-R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*XZZ
      F(1,6,5,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(14,1)+R6(5,3)
     * +R6(14,9)-R5(9,1)-R5(9,2)-R5(9,13)-R5(9,17)+R4(5,1)+R4(5,3)
     * +R4(5,14)+R4(14,14)+R4(5,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)+(
     * +R7(14,3)*TWO-R6(9,5)*TWO-R6(9,7)*TWO+R5(5,5)*TWO+R5(14,5)*TWO
     * +R5(5,9)*TWO-R4(9,6)*TWO-R4(9,8)*TWO+R3(5,1)*TWO+R3(5,5)*TWO)*QX
     * +(+R7(9,4)-R6(5,6)-R6(5,8)+R5(2,6)+R5(9,6)+R5(2,10)+R5(9,22)
     * -R4(5,7)-R4(5,9)-R4(5,31)-R4(5,35)+R3(2,2)+R3(2,6)+R3(2,28)
     * +R3(9,28)+R3(2,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QZ+(
     * +R6(14,10)-R5(9,14)-R5(9,18)+R4(5,15)+R4(14,15)+R4(5,23)-R3(9,12)
     * -R3(9,16)+R2(6,2)+R2(6,10))*XX+(+R6(9,11)*TWO-R5(5,15)*TWO
     * -R5(5,19)*TWO+R4(2,16)*TWO+R4(9,16)*TWO+R4(2,24)*TWO-R3(5,13)*TWO
     * -R3(5,17)*TWO+R2(4,3)*TWO+R2(4,11)*TWO)*XZ+(+R5(9,23)-R4(5,32)
     * -R4(5,36)+R3(2,29)+R3(9,29)+R3(2,37)-R2(6,23)-R2(6,27)+R1(2,3)
     * +R1(2,11))*XXZ
      F(2,6,5,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(25,1)+R6(12,3)
     * +R6(14,9)*THREE-R5(18,1)-R5(18,2)-R5(9,13)*THREE-R5(9,17)*THREE
     * +R4(12,1)+R4(12,3)+R4(5,14)*THREE+R4(14,14)*THREE+R4(5,22)*THREE
     * -R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE+R2(6,9)*THREE+(
     * +R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(18,6)+R5(7,10)
     * +R5(9,22)*THREE-R4(12,7)-R4(12,9)-R4(5,31)*THREE-R4(5,35)*THREE
     * +R3(7,2)+R3(7,6)+R3(2,28)*THREE+R3(9,28)*THREE+R3(2,36)*THREE
     * -R2(6,22)*THREE-R2(6,26)*THREE+R1(2,2)*THREE+R1(2,10)*THREE)*QZ
      F(3,6,5,5)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(27,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(20,1)-R5(20,2)-R5(9,13)*THREE-R5(9,17)*THREE
     * +R4(14,1)+R4(14,3)+R4(5,14)*THREE+R4(14,14)*THREE+R4(5,22)*THREE
     * -R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE+R2(6,9)*THREE+(
     * +R7(20,3)*TWO+R7(20,4)-R6(14,5)*TWO-R6(14,6)-R6(14,7)*TWO
     * -R6(14,8)+R5(9,5)*TWO+R5(20,5)*TWO+R5(9,6)+R5(20,6)+R5(9,9)*TWO
     * +R5(9,10)+R5(9,21)*TWO+R5(9,22)-R4(14,6)*TWO-R4(14,7)
     * -R4(14,8)*TWO-R4(14,9)-R4(5,30)*TWO-R4(5,31)-R4(5,34)*TWO
     * -R4(5,35)+R3(9,1)*TWO+R3(9,2)+R3(9,5)*TWO+R3(9,6)+R3(2,27)*TWO
     * +R3(9,27)*TWO+R3(2,28)+R3(9,28)+R3(2,35)*TWO+R3(2,36)
     * -R2(6,21)*TWO-R2(6,22)-R2(6,25)*TWO-R2(6,26)+R1(2,1)*TWO+R1(2,2)
     * +R1(2,9)*TWO+R1(2,10))*QZ+(+R6(14,10)+R6(14,11)*TWO-R5(9,14)
     * -R5(9,15)*TWO-R5(9,18)-R5(9,19)*TWO+R4(5,15)+R4(14,15)
     * +R4(5,16)*TWO+R4(14,16)*TWO+R4(5,23)+R4(5,24)*TWO-R3(9,12)
     * -R3(9,13)*TWO-R3(9,16)-R3(9,17)*TWO+R2(6,2)+R2(6,3)*TWO+R2(6,10)
     * +R2(6,11)*TWO)*ZZ+(+R5(9,23)-R4(5,32)-R4(5,36)+R3(2,29)+R3(9,29)
     * +R3(2,37)-R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*ZZZ
      F(4,6,5,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(19,1)+R6(8,3)
     * +R6(10,9)-R5(13,1)-R5(13,2)-R5(6,13)-R5(6,17)+R4(8,1)+R4(8,3)
     * +R4(3,14)+R4(10,14)+R4(3,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(19,3)-R6(13,5)-R6(13,7)+R5(8,5)+R5(19,5)+R5(8,9)+R5(10,21)
     * -R4(13,6)-R4(13,8)-R4(6,30)-R4(6,34)+R3(8,1)+R3(8,5)+R3(3,27)
     * +R3(10,27)+R3(3,35)-R2(3,21)-R2(3,25)+R1(3,1)+R1(3,9))*QX+(
     * +R7(13,4)-R6(8,6)-R6(8,8)+R5(4,6)+R5(13,6)+R5(4,10)+R5(6,22)
     * -R4(8,7)-R4(8,9)-R4(3,31)-R4(3,35)+R3(4,2)+R3(4,6)+R3(1,28)
     * +R3(6,28)+R3(1,36)-R2(5,22)-R2(5,26)+R1(1,2)+R1(1,10))*QZ+(
     * +R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)+R4(13,16)+R4(4,24)+R4(6,40)
     * -R3(8,13)-R3(8,17)-R3(3,45)-R3(3,50)+R2(2,3)+R2(2,11)+R2(1,39)
     * +R2(3,39)+R2(1,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XZ
      F(5,6,5,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(20,1)+R6(9,3)
     * +R6(9,9)-R5(14,1)-R5(14,2)-R5(5,13)-R5(5,17)+R4(9,1)+R4(9,3)
     * +R4(2,14)+R4(9,14)+R4(2,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(20,3)-R6(14,5)-R6(14,7)+R5(9,5)+R5(20,5)+R5(9,9)+R5(9,21)
     * -R4(14,6)-R4(14,8)-R4(5,30)-R4(5,34)+R3(9,1)+R3(9,5)+R3(2,27)
     * +R3(9,27)+R3(2,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QX+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(14,5)+R5(5,6)+R5(14,6)+R5(5,9)+R5(5,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QZ+(+R6(14,10)
     * +R6(14,11)-R5(9,14)-R5(9,15)-R5(9,18)-R5(9,19)+R4(5,15)+R4(14,15)
     * +R4(5,16)+R4(14,16)+R4(5,23)+R4(5,24)-R3(9,12)-R3(9,13)-R3(9,16)
     * -R3(9,17)+R2(6,2)+R2(6,3)+R2(6,10)+R2(6,11))*XZ+(+R6(9,11)
     * -R5(5,15)-R5(5,19)+R4(2,16)+R4(9,16)+R4(2,24)-R3(5,13)-R3(5,17)
     * +R2(4,3)+R2(4,11))*ZZ+(+R5(9,23)-R4(5,32)-R4(5,36)+R3(2,29)
     * +R3(9,29)+R3(2,37)-R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*XZZ
      F(6,6,5,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(26,1)+R6(13,3)
     * +R6(13,9)+R6(15,9)-R5(19,1)-R5(19,2)-R5(8,13)-R5(10,13)-R5(8,17)
     * -R5(10,17)+R4(13,1)+R4(13,3)+R4(4,14)+R4(6,14)+R4(13,14)
     * +R4(15,14)+R4(4,22)+R4(6,22)+R4(6,38)-R3(8,11)-R3(10,11)-R3(8,15)
     * -R3(10,15)-R3(3,43)-R3(3,48)+R2(2,1)+R2(3,1)+R2(2,9)+R2(3,9)
     * +R2(1,37)+R2(3,37)+R2(1,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)
     * +R5(19,5)+R5(8,6)+R5(19,6)+R5(8,9)+R5(8,10)+R5(10,21)+R5(10,22)
     * -R4(13,6)-R4(13,7)-R4(13,8)-R4(13,9)-R4(6,30)-R4(6,31)-R4(6,34)
     * -R4(6,35)+R3(8,1)+R3(8,2)+R3(8,5)+R3(8,6)+R3(3,27)+R3(10,27)
     * +R3(3,28)+R3(10,28)+R3(3,35)+R3(3,36)-R2(3,21)-R2(3,22)-R2(3,25)
     * -R2(3,26)+R1(3,1)+R1(3,2)+R1(3,9)+R1(3,10))*QZ+(+R6(13,11)
     * -R5(8,15)-R5(8,19)+R4(4,16)+R4(13,16)+R4(4,24)+R4(6,40)-R3(8,13)
     * -R3(8,17)-R3(3,45)-R3(3,50)+R2(2,3)+R2(2,11)+R2(1,39)+R2(3,39)
     * +R2(1,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*ZZ
      F(1,1,6,5)= R8(9)-R7(5,1)-R7(5,2)+R6(2,1)+R6(2,3)+R6(9,9)*SIX
     * -R5(5,13)*SIX-R5(5,17)*SIX+R4(2,14)*SIX+R4(2,22)*SIX
     * +R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE+R2(4,37)*THREE
     * +R2(4,47)*THREE+(+R7(9,3)*TWO+R7(9,4)*TWO-R6(5,5)*TWO-R6(5,6)*TWO
     * -R6(5,7)*TWO-R6(5,8)*TWO+R5(2,5)*TWO+R5(2,6)*TWO+R5(2,9)*TWO
     * +R5(2,10)*TWO+R5(9,21)*SIX+R5(9,22)*SIX-R4(5,30)*SIX-R4(5,31)*SIX
     * -R4(5,34)*SIX-R4(5,35)*SIX+R3(2,27)*SIX+R3(2,28)*SIX+R3(2,35)*SIX
     * +R3(2,36)*SIX)*QX+(+R6(9,10)+R6(9,11)*FOUR+R6(9,12)-R5(5,14)
     * -R5(5,15)*FOUR-R5(5,16)-R5(5,18)-R5(5,19)*FOUR-R5(5,20)+R4(2,15)
     * +R4(2,16)*FOUR+R4(2,17)+R4(2,23)+R4(2,24)*FOUR+R4(2,25)+R4(9,39)
     * +R4(9,40)*FOUR+R4(9,41)-R3(5,44)-R3(5,45)*FOUR-R3(5,46)-R3(5,49)
     * -R3(5,50)*FOUR-R3(5,51)+R2(4,38)+R2(4,39)*FOUR+R2(4,40)+R2(4,48)
     * +R2(4,49)*FOUR+R2(4,50))*XX+(+R5(9,23)*TWO+R5(9,24)*TWO
     * -R4(5,32)*TWO-R4(5,33)*TWO-R4(5,36)*TWO-R4(5,37)*TWO+R3(2,29)*TWO
     * +R3(2,30)*TWO+R3(2,37)*TWO+R3(2,38)*TWO)*XXX+(+R4(9,42)-R3(5,47)
     * -R3(5,52)+R2(4,41)+R2(4,51))*XXXX
      F(2,1,6,5)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,4)*TWO-R6(12,6)*TWO-R6(12,8)*TWO+R5(7,6)*TWO+R5(7,10)*TWO
     * +R5(9,22)*TWO-R4(5,31)*TWO-R4(5,35)*TWO+R3(2,28)*TWO+R3(2,36)*TWO
     * )*QX+(+R6(18,12)-R5(12,16)-R5(12,20)+R4(7,17)+R4(7,25)+R4(9,41)
     * -R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*XX
      F(3,1,6,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,4)*TWO-R6(14,6)*TWO-R6(14,8)*TWO+R5(9,6)*TWO+R5(9,10)*TWO
     * +R5(9,22)*TWO-R4(5,31)*TWO-R4(5,35)*TWO+R3(2,28)*TWO+R3(2,36)*TWO
     * )*QX+(+R7(14,3)*TWO-R6(9,5)*TWO-R6(9,7)*TWO+R5(5,5)*TWO
     * +R5(5,9)*TWO+R5(14,21)*TWO-R4(9,30)*TWO-R4(9,34)*TWO+R3(5,27)*TWO
     * +R3(5,35)*TWO)*QZ+(+R6(20,12)-R5(14,16)-R5(14,20)+R4(9,17)
     * +R4(9,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*XX+(
     * +R6(14,11)*FOUR-R5(9,15)*FOUR-R5(9,19)*FOUR+R4(5,16)*FOUR
     * +R4(5,24)*FOUR)*XZ+(+R6(9,10)-R5(5,14)-R5(5,18)+R4(2,15)+R4(2,23)
     * +R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))*ZZ+(+R5(14,24)*TWO
     * -R4(9,33)*TWO-R4(9,37)*TWO+R3(5,30)*TWO+R3(5,38)*TWO)*XXZ+(
     * +R5(9,23)*TWO-R4(5,32)*TWO-R4(5,36)*TWO+R3(2,29)*TWO+R3(2,37)*TWO
     * )*XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(4,1,6,5)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(4,3)+R6(13,9)*THREE
     * -R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE+R4(4,22)*THREE+(
     * +R7(13,3)+R7(13,4)*TWO-R6(8,5)-R6(8,6)*TWO-R6(8,7)-R6(8,8)*TWO
     * +R5(4,5)+R5(4,6)*TWO+R5(4,9)+R5(4,10)*TWO+R5(13,21)+R5(13,22)*TWO
     * -R4(8,30)-R4(8,31)*TWO-R4(8,34)-R4(8,35)*TWO+R3(4,27)
     * +R3(4,28)*TWO+R3(4,35)+R3(4,36)*TWO)*QX+(+R6(13,11)*TWO+R6(13,12)
     * -R5(8,15)*TWO-R5(8,16)-R5(8,19)*TWO-R5(8,20)+R4(4,16)*TWO
     * +R4(4,17)+R4(4,24)*TWO+R4(4,25))*XX+(+R5(13,24)-R4(8,33)-R4(8,37)
     * +R3(4,30)+R3(4,38))*XXX
      F(5,1,6,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(5,3)+R6(14,9)*THREE
     * -R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE+R4(5,22)*THREE+(
     * +R7(14,3)+R7(14,4)*TWO-R6(9,5)-R6(9,6)*TWO-R6(9,7)-R6(9,8)*TWO
     * +R5(5,5)+R5(5,6)*TWO+R5(5,9)+R5(5,10)*TWO+R5(14,21)+R5(14,22)*TWO
     * -R4(9,30)-R4(9,31)*TWO-R4(9,34)-R4(9,35)*TWO+R3(5,27)
     * +R3(5,28)*TWO+R3(5,35)+R3(5,36)*TWO)*QX+(+R7(9,3)-R6(5,5)-R6(5,7)
     * +R5(2,5)+R5(2,9)+R5(9,21)*THREE-R4(5,30)*THREE-R4(5,34)*THREE
     * +R3(2,27)*THREE+R3(2,35)*THREE)*QZ+(+R6(14,11)*TWO+R6(14,12)
     * -R5(9,15)*TWO-R5(9,16)-R5(9,19)*TWO-R5(9,20)+R4(5,16)*TWO
     * +R4(5,17)+R4(5,24)*TWO+R4(5,25))*XX+(+R6(9,10)+R6(9,11)*TWO
     * -R5(5,14)-R5(5,15)*TWO-R5(5,18)-R5(5,19)*TWO+R4(2,15)
     * +R4(2,16)*TWO+R4(2,23)+R4(2,24)*TWO+R4(9,39)+R4(9,40)*TWO
     * -R3(5,44)-R3(5,45)*TWO-R3(5,49)-R3(5,50)*TWO+R2(4,38)
     * +R2(4,39)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(+R5(14,24)-R4(9,33)
     * -R4(9,37)+R3(5,30)+R3(5,38))*XXX+(+R5(9,23)*TWO+R5(9,24)
     * -R4(5,32)*TWO-R4(5,33)-R4(5,36)*TWO-R4(5,37)+R3(2,29)*TWO
     * +R3(2,30)+R3(2,37)*TWO+R3(2,38))*XXZ+(+R4(9,42)-R3(5,47)-R3(5,52)
     * +R2(4,41)+R2(4,51))*XXXZ
      F(6,1,6,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,4)*TWO
     * -R6(13,6)*TWO-R6(13,8)*TWO+R5(8,6)*TWO+R5(8,10)*TWO)*QX+(
     * +R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(4,9)+R5(13,21)-R4(8,30)
     * -R4(8,34)+R3(4,27)+R3(4,35))*QZ+(+R6(19,12)-R5(13,16)-R5(13,20)
     * +R4(8,17)+R4(8,25))*XX+(+R6(13,11)*TWO-R5(8,15)*TWO-R5(8,19)*TWO
     * +R4(4,16)*TWO+R4(4,24)*TWO)*XZ+(+R5(13,24)-R4(8,33)-R4(8,37)
     * +R3(4,30)+R3(4,38))*XXZ
      F(1,2,6,5)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,3)*TWO-R6(12,5)*TWO-R6(12,7)*TWO+R5(7,5)*TWO+R5(7,9)*TWO
     * +R5(9,21)*TWO-R4(5,30)*TWO-R4(5,34)*TWO+R3(2,27)*TWO+R3(2,35)*TWO
     * )*QX+(+R6(18,10)-R5(12,14)-R5(12,18)+R4(7,15)+R4(7,23)+R4(9,39)
     * -R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))*XX
      F(2,2,6,5)= R8(31)-R7(23,1)-R7(23,2)+R6(16,1)+R6(16,3)
     * +R6(18,9)*SIX-R5(12,13)*SIX-R5(12,17)*SIX+R4(7,14)*SIX
     * +R4(7,22)*SIX+R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE
     * +R2(4,37)*THREE+R2(4,47)*THREE
      F(3,2,6,5)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,3)*TWO-R6(18,5)*TWO-R6(18,7)*TWO+R5(12,5)*TWO
     * +R5(12,9)*TWO+R5(14,21)*TWO-R4(9,30)*TWO-R4(9,34)*TWO
     * +R3(5,27)*TWO+R3(5,35)*TWO)*QZ+(+R6(18,10)-R5(12,14)-R5(12,18)
     * +R4(7,15)+R4(7,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))
     * *ZZ
      F(4,2,6,5)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(11,3)
     * +R6(13,9)*THREE-R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE
     * +R4(4,22)*THREE+(+R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(11,9)
     * +R5(13,21)*THREE-R4(8,30)*THREE-R4(8,34)*THREE+R3(4,27)*THREE
     * +R3(4,35)*THREE)*QX
      F(5,2,6,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,3)-R6(18,5)-R6(18,7)
     * +R5(12,5)+R5(12,9)+R5(14,21)-R4(9,30)-R4(9,34)+R3(5,27)+R3(5,35))
     * *QX+(+R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(7,9)+R5(9,21)
     * -R4(5,30)-R4(5,34)+R3(2,27)+R3(2,35))*QZ+(+R6(18,10)-R5(12,14)
     * -R5(12,18)+R4(7,15)+R4(7,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)
     * +R2(4,48))*XZ
      F(6,2,6,5)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(17,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(11,9)
     * +R5(13,21)*THREE-R4(8,30)*THREE-R4(8,34)*THREE+R3(4,27)*THREE
     * +R3(4,35)*THREE)*QZ
      F(1,3,6,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,3)*TWO-R6(14,5)*TWO-R6(14,7)*TWO+R5(9,5)*TWO+R5(9,9)*TWO
     * +R5(9,21)*TWO-R4(5,30)*TWO-R4(5,34)*TWO+R3(2,27)*TWO+R3(2,35)*TWO
     * )*QX+(+R7(14,4)*TWO-R6(9,6)*TWO-R6(9,8)*TWO+R5(5,6)*TWO
     * +R5(5,10)*TWO+R5(14,22)*TWO-R4(9,31)*TWO-R4(9,35)*TWO
     * +R3(5,28)*TWO+R3(5,36)*TWO)*QZ+(+R6(20,10)-R5(14,14)-R5(14,18)
     * +R4(9,15)+R4(9,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))
     * *XX+(+R6(14,11)*FOUR-R5(9,15)*FOUR-R5(9,19)*FOUR+R4(5,16)*FOUR
     * +R4(5,24)*FOUR)*XZ+(+R6(9,12)-R5(5,16)-R5(5,20)+R4(2,17)+R4(2,25)
     * +R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*ZZ+(+R5(14,23)*TWO
     * -R4(9,32)*TWO-R4(9,36)*TWO+R3(5,29)*TWO+R3(5,37)*TWO)*XXZ+(
     * +R5(9,24)*TWO-R4(5,33)*TWO-R4(5,37)*TWO+R3(2,30)*TWO+R3(2,38)*TWO
     * )*XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(2,3,6,5)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,4)*TWO-R6(18,6)*TWO-R6(18,8)*TWO+R5(12,6)*TWO
     * +R5(12,10)*TWO+R5(14,22)*TWO-R4(9,31)*TWO-R4(9,35)*TWO
     * +R3(5,28)*TWO+R3(5,36)*TWO)*QZ+(+R6(18,12)-R5(12,16)-R5(12,20)
     * +R4(7,17)+R4(7,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))
     * *ZZ
      F(3,3,6,5)= R8(35)-R7(27,1)-R7(27,2)+R6(20,1)+R6(20,3)
     * +R6(20,9)*SIX-R5(14,13)*SIX-R5(14,17)*SIX+R4(9,14)*SIX
     * +R4(9,22)*SIX+R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE
     * +R2(4,37)*THREE+R2(4,47)*THREE+(+R7(27,3)*TWO+R7(27,4)*TWO
     * -R6(20,5)*TWO-R6(20,6)*TWO-R6(20,7)*TWO-R6(20,8)*TWO+R5(14,5)*TWO
     * +R5(14,6)*TWO+R5(14,9)*TWO+R5(14,10)*TWO+R5(14,21)*SIX
     * +R5(14,22)*SIX-R4(9,30)*SIX-R4(9,31)*SIX-R4(9,34)*SIX
     * -R4(9,35)*SIX+R3(5,27)*SIX+R3(5,28)*SIX+R3(5,35)*SIX+R3(5,36)*SIX
     * )*QZ+(+R6(20,10)+R6(20,11)*FOUR+R6(20,12)-R5(14,14)
     * -R5(14,15)*FOUR-R5(14,16)-R5(14,18)-R5(14,19)*FOUR-R5(14,20)
     * +R4(9,15)+R4(9,16)*FOUR+R4(9,17)+R4(9,23)+R4(9,24)*FOUR+R4(9,25)
     * +R4(9,39)+R4(9,40)*FOUR+R4(9,41)-R3(5,44)-R3(5,45)*FOUR-R3(5,46)
     * -R3(5,49)-R3(5,50)*FOUR-R3(5,51)+R2(4,38)+R2(4,39)*FOUR+R2(4,40)
     * +R2(4,48)+R2(4,49)*FOUR+R2(4,50))*ZZ+(+R5(14,23)*TWO
     * +R5(14,24)*TWO-R4(9,32)*TWO-R4(9,33)*TWO-R4(9,36)*TWO
     * -R4(9,37)*TWO+R3(5,29)*TWO+R3(5,30)*TWO+R3(5,37)*TWO+R3(5,38)*TWO
     * )*ZZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*ZZZZ
      F(4,3,6,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,3)-R6(19,5)-R6(19,7)
     * +R5(13,5)+R5(13,9)+R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))
     * *QX+(+R7(19,4)*TWO-R6(13,6)*TWO-R6(13,8)*TWO+R5(8,6)*TWO
     * +R5(8,10)*TWO)*QZ+(+R6(19,11)*TWO-R5(13,15)*TWO-R5(13,19)*TWO
     * +R4(8,16)*TWO+R4(8,24)*TWO)*XZ+(+R6(13,12)-R5(8,16)-R5(8,20)
     * +R4(4,17)+R4(4,25))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)
     * +R3(4,38))*XZZ
      F(5,3,6,5)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE
     * +R4(5,22)*THREE+(+R7(27,3)-R6(20,5)-R6(20,7)+R5(14,5)+R5(14,9)
     * +R5(14,21)*THREE-R4(9,30)*THREE-R4(9,34)*THREE+R3(5,27)*THREE
     * +R3(5,35)*THREE)*QX+(+R7(20,3)+R7(20,4)*TWO-R6(14,5)-R6(14,6)*TWO
     * -R6(14,7)-R6(14,8)*TWO+R5(9,5)+R5(9,6)*TWO+R5(9,9)+R5(9,10)*TWO
     * +R5(9,21)+R5(9,22)*TWO-R4(5,30)-R4(5,31)*TWO-R4(5,34)
     * -R4(5,35)*TWO+R3(2,27)+R3(2,28)*TWO+R3(2,35)+R3(2,36)*TWO)*QZ+(
     * +R6(20,10)+R6(20,11)*TWO-R5(14,14)-R5(14,15)*TWO-R5(14,18)
     * -R5(14,19)*TWO+R4(9,15)+R4(9,16)*TWO+R4(9,23)+R4(9,24)*TWO
     * +R4(9,39)+R4(9,40)*TWO-R3(5,44)-R3(5,45)*TWO-R3(5,49)
     * -R3(5,50)*TWO+R2(4,38)+R2(4,39)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(
     * +R6(14,11)*TWO+R6(14,12)-R5(9,15)*TWO-R5(9,16)-R5(9,19)*TWO
     * -R5(9,20)+R4(5,16)*TWO+R4(5,17)+R4(5,24)*TWO+R4(5,25))*ZZ+(
     * +R5(14,23)*TWO+R5(14,24)-R4(9,32)*TWO-R4(9,33)-R4(9,36)*TWO
     * -R4(9,37)+R3(5,29)*TWO+R3(5,30)+R3(5,37)*TWO+R3(5,38))*XZZ+(
     * +R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)+R3(2,38))*ZZZ+(+R4(9,42)
     * -R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XZZZ
      F(6,3,6,5)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(26,3)+R7(26,4)*TWO-R6(19,5)-R6(19,6)*TWO
     * -R6(19,7)-R6(19,8)*TWO+R5(13,5)+R5(13,6)*TWO+R5(13,9)
     * +R5(13,10)*TWO+R5(13,21)+R5(13,22)*TWO-R4(8,30)-R4(8,31)*TWO
     * -R4(8,34)-R4(8,35)*TWO+R3(4,27)+R3(4,28)*TWO+R3(4,35)
     * +R3(4,36)*TWO)*QZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*TWO
     * -R5(13,16)-R5(13,19)*TWO-R5(13,20)+R4(8,16)*TWO+R4(8,17)
     * +R4(8,24)*TWO+R4(8,25))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)
     * +R3(4,38))*ZZZ
      F(1,4,6,5)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(4,3)+R6(13,9)*THREE
     * -R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE+R4(4,22)*THREE+(
     * +R7(13,3)*TWO+R7(13,4)-R6(8,5)*TWO-R6(8,6)-R6(8,7)*TWO-R6(8,8)
     * +R5(4,5)*TWO+R5(4,6)+R5(4,9)*TWO+R5(4,10)+R5(13,21)*TWO+R5(13,22)
     * -R4(8,30)*TWO-R4(8,31)-R4(8,34)*TWO-R4(8,35)+R3(4,27)*TWO
     * +R3(4,28)+R3(4,35)*TWO+R3(4,36))*QX+(+R6(13,10)+R6(13,11)*TWO
     * -R5(8,14)-R5(8,15)*TWO-R5(8,18)-R5(8,19)*TWO+R4(4,15)
     * +R4(4,16)*TWO+R4(4,23)+R4(4,24)*TWO)*XX+(+R5(13,23)-R4(8,32)
     * -R4(8,36)+R3(4,29)+R3(4,37))*XXX
      F(2,4,6,5)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(11,3)
     * +R6(13,9)*THREE-R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE
     * +R4(4,22)*THREE+(+R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(11,10)
     * +R5(13,22)*THREE-R4(8,31)*THREE-R4(8,35)*THREE+R3(4,28)*THREE
     * +R3(4,36)*THREE)*QX
      F(3,4,6,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,4)-R6(19,6)-R6(19,8)
     * +R5(13,6)+R5(13,10)+R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36)
     * )*QX+(+R7(19,3)*TWO-R6(13,5)*TWO-R6(13,7)*TWO+R5(8,5)*TWO
     * +R5(8,9)*TWO)*QZ+(+R6(19,11)*TWO-R5(13,15)*TWO-R5(13,19)*TWO
     * +R4(8,16)*TWO+R4(8,24)*TWO)*XZ+(+R6(13,10)-R5(8,14)-R5(8,18)
     * +R4(4,15)+R4(4,23))*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)
     * +R3(4,37))*XZZ
      F(4,4,6,5)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,3)+R7(18,4)-R6(12,5)-R6(12,6)-R6(12,7)-R6(12,8)+R5(7,5)
     * +R5(7,6)+R5(7,9)+R5(7,10)+R5(9,21)+R5(9,22)-R4(5,30)-R4(5,31)
     * -R4(5,34)-R4(5,35)+R3(2,27)+R3(2,28)+R3(2,35)+R3(2,36))*QX+(
     * +R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)
     * -R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*XX
      F(5,4,6,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)+R7(19,4)
     * -R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)+R5(8,6)+R5(8,9)
     * +R5(8,10))*QX+(+R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(4,9)
     * +R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))*QZ+(+R6(19,11)
     * -R5(13,15)-R5(13,19)+R4(8,16)+R4(8,24))*XX+(+R6(13,10)+R6(13,11)
     * -R5(8,14)-R5(8,15)-R5(8,18)-R5(8,19)+R4(4,15)+R4(4,16)+R4(4,23)
     * +R4(4,24))*XZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37))
     * *XXZ
      F(6,4,6,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,4)-R6(18,6)-R6(18,8)
     * +R5(12,6)+R5(12,10)+R5(14,22)-R4(9,31)-R4(9,35)+R3(5,28)+R3(5,36)
     * )*QX+(+R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(7,9)+R5(9,21)
     * -R4(5,30)-R4(5,34)+R3(2,27)+R3(2,35))*QZ+(+R6(18,11)-R5(12,15)
     * -R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)
     * +R2(4,49))*XZ
      F(1,5,6,5)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(5,3)+R6(14,9)*THREE
     * -R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE+R4(5,22)*THREE+(
     * +R7(14,3)*TWO+R7(14,4)-R6(9,5)*TWO-R6(9,6)-R6(9,7)*TWO-R6(9,8)
     * +R5(5,5)*TWO+R5(5,6)+R5(5,9)*TWO+R5(5,10)+R5(14,21)*TWO+R5(14,22)
     * -R4(9,30)*TWO-R4(9,31)-R4(9,34)*TWO-R4(9,35)+R3(5,27)*TWO
     * +R3(5,28)+R3(5,35)*TWO+R3(5,36))*QX+(+R7(9,4)-R6(5,6)-R6(5,8)
     * +R5(2,6)+R5(2,10)+R5(9,22)*THREE-R4(5,31)*THREE-R4(5,35)*THREE
     * +R3(2,28)*THREE+R3(2,36)*THREE)*QZ+(+R6(14,10)+R6(14,11)*TWO
     * -R5(9,14)-R5(9,15)*TWO-R5(9,18)-R5(9,19)*TWO+R4(5,15)
     * +R4(5,16)*TWO+R4(5,23)+R4(5,24)*TWO)*XX+(+R6(9,11)*TWO+R6(9,12)
     * -R5(5,15)*TWO-R5(5,16)-R5(5,19)*TWO-R5(5,20)+R4(2,16)*TWO
     * +R4(2,17)+R4(2,24)*TWO+R4(2,25)+R4(9,40)*TWO+R4(9,41)
     * -R3(5,45)*TWO-R3(5,46)-R3(5,50)*TWO-R3(5,51)+R2(4,39)*TWO
     * +R2(4,40)+R2(4,49)*TWO+R2(4,50))*XZ+(+R5(14,23)-R4(9,32)-R4(9,36)
     * +R3(5,29)+R3(5,37))*XXX+(+R5(9,23)+R5(9,24)*TWO-R4(5,32)
     * -R4(5,33)*TWO-R4(5,36)-R4(5,37)*TWO+R3(2,29)+R3(2,30)*TWO
     * +R3(2,37)+R3(2,38)*TWO)*XXZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)
     * +R2(4,51))*XXXZ
      F(2,5,6,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,4)-R6(18,6)-R6(18,8)
     * +R5(12,6)+R5(12,10)+R5(14,22)-R4(9,31)-R4(9,35)+R3(5,28)+R3(5,36)
     * )*QX+(+R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(7,10)+R5(9,22)
     * -R4(5,31)-R4(5,35)+R3(2,28)+R3(2,36))*QZ+(+R6(18,12)-R5(12,16)
     * -R5(12,20)+R4(7,17)+R4(7,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)
     * +R2(4,50))*XZ
      F(3,5,6,5)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE
     * +R4(5,22)*THREE+(+R7(27,4)-R6(20,6)-R6(20,8)+R5(14,6)+R5(14,10)
     * +R5(14,22)*THREE-R4(9,31)*THREE-R4(9,35)*THREE+R3(5,28)*THREE
     * +R3(5,36)*THREE)*QX+(+R7(20,3)*TWO+R7(20,4)-R6(14,5)*TWO-R6(14,6)
     * -R6(14,7)*TWO-R6(14,8)+R5(9,5)*TWO+R5(9,6)+R5(9,9)*TWO+R5(9,10)
     * +R5(9,21)*TWO+R5(9,22)-R4(5,30)*TWO-R4(5,31)-R4(5,34)*TWO
     * -R4(5,35)+R3(2,27)*TWO+R3(2,28)+R3(2,35)*TWO+R3(2,36))*QZ+(
     * +R6(20,11)*TWO+R6(20,12)-R5(14,15)*TWO-R5(14,16)-R5(14,19)*TWO
     * -R5(14,20)+R4(9,16)*TWO+R4(9,17)+R4(9,24)*TWO+R4(9,25)
     * +R4(9,40)*TWO+R4(9,41)-R3(5,45)*TWO-R3(5,46)-R3(5,50)*TWO
     * -R3(5,51)+R2(4,39)*TWO+R2(4,40)+R2(4,49)*TWO+R2(4,50))*XZ+(
     * +R6(14,10)+R6(14,11)*TWO-R5(9,14)-R5(9,15)*TWO-R5(9,18)
     * -R5(9,19)*TWO+R4(5,15)+R4(5,16)*TWO+R4(5,23)+R4(5,24)*TWO)*ZZ+(
     * +R5(14,23)+R5(14,24)*TWO-R4(9,32)-R4(9,33)*TWO-R4(9,36)
     * -R4(9,37)*TWO+R3(5,29)+R3(5,30)*TWO+R3(5,37)+R3(5,38)*TWO)*XZZ+(
     * +R5(9,23)-R4(5,32)-R4(5,36)+R3(2,29)+R3(2,37))*ZZZ+(+R4(9,42)
     * -R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XZZZ
      F(4,5,6,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)+R7(19,4)
     * -R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)+R5(8,6)+R5(8,9)
     * +R5(8,10))*QX+(+R7(13,4)-R6(8,6)-R6(8,8)+R5(4,6)+R5(4,10)
     * +R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36))*QZ+(+R6(19,11)
     * -R5(13,15)-R5(13,19)+R4(8,16)+R4(8,24))*XX+(+R6(13,11)+R6(13,12)
     * -R5(8,15)-R5(8,16)-R5(8,19)-R5(8,20)+R4(4,16)+R4(4,17)+R4(4,24)
     * +R4(4,25))*XZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)+R3(4,38))
     * *XXZ
      F(5,5,6,5)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,3)+R7(20,4)-R6(14,5)-R6(14,6)-R6(14,7)-R6(14,8)+R5(9,5)
     * +R5(9,6)+R5(9,9)+R5(9,10)+R5(9,21)+R5(9,22)-R4(5,30)-R4(5,31)
     * -R4(5,34)-R4(5,35)+R3(2,27)+R3(2,28)+R3(2,35)+R3(2,36))*QX+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(5,6)+R5(5,9)+R5(5,10)+R5(14,21)+R5(14,22)-R4(9,30)-R4(9,31)
     * -R4(9,34)-R4(9,35)+R3(5,27)+R3(5,28)+R3(5,35)+R3(5,36))*QZ+(
     * +R6(20,11)-R5(14,15)-R5(14,19)+R4(9,16)+R4(9,24)+R4(9,40)
     * -R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*XX+(+R6(14,10)
     * +R6(14,11)*TWO+R6(14,12)-R5(9,14)-R5(9,15)*TWO-R5(9,16)-R5(9,18)
     * -R5(9,19)*TWO-R5(9,20)+R4(5,15)+R4(5,16)*TWO+R4(5,17)+R4(5,23)
     * +R4(5,24)*TWO+R4(5,25))*XZ+(+R6(9,11)-R5(5,15)-R5(5,19)+R4(2,16)
     * +R4(2,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*ZZ+(
     * +R5(14,23)+R5(14,24)-R4(9,32)-R4(9,33)-R4(9,36)-R4(9,37)+R3(5,29)
     * +R3(5,30)+R3(5,37)+R3(5,38))*XXZ+(+R5(9,23)+R5(9,24)-R4(5,32)
     * -R4(5,33)-R4(5,36)-R4(5,37)+R3(2,29)+R3(2,30)+R3(2,37)+R3(2,38))
     * *XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(6,5,6,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,4)-R6(19,6)-R6(19,8)
     * +R5(13,6)+R5(13,10)+R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36)
     * )*QX+(+R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)
     * +R5(8,5)+R5(8,6)+R5(8,9)+R5(8,10))*QZ+(+R6(19,11)+R6(19,12)
     * -R5(13,15)-R5(13,16)-R5(13,19)-R5(13,20)+R4(8,16)+R4(8,17)
     * +R4(8,24)+R4(8,25))*XZ+(+R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)
     * +R4(4,24))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)+R3(4,38))
     * *XZZ
      F(1,6,6,5)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)*TWO
     * -R6(13,5)*TWO-R6(13,7)*TWO+R5(8,5)*TWO+R5(8,9)*TWO)*QX+(+R7(13,4)
     * -R6(8,6)-R6(8,8)+R5(4,6)+R5(4,10)+R5(13,22)-R4(8,31)-R4(8,35)
     * +R3(4,28)+R3(4,36))*QZ+(+R6(19,10)-R5(13,14)-R5(13,18)+R4(8,15)
     * +R4(8,23))*XX+(+R6(13,11)*TWO-R5(8,15)*TWO-R5(8,19)*TWO
     * +R4(4,16)*TWO+R4(4,24)*TWO)*XZ+(+R5(13,23)-R4(8,32)-R4(8,36)
     * +R3(4,29)+R3(4,37))*XXZ
      F(2,6,6,5)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(17,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(11,10)
     * +R5(13,22)*THREE-R4(8,31)*THREE-R4(8,35)*THREE+R3(4,28)*THREE
     * +R3(4,36)*THREE)*QZ
      F(3,6,6,5)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(26,3)*TWO+R7(26,4)-R6(19,5)*TWO-R6(19,6)
     * -R6(19,7)*TWO-R6(19,8)+R5(13,5)*TWO+R5(13,6)+R5(13,9)*TWO
     * +R5(13,10)+R5(13,21)*TWO+R5(13,22)-R4(8,30)*TWO-R4(8,31)
     * -R4(8,34)*TWO-R4(8,35)+R3(4,27)*TWO+R3(4,28)+R3(4,35)*TWO
     * +R3(4,36))*QZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)-R5(13,15)*TWO
     * -R5(13,18)-R5(13,19)*TWO+R4(8,15)+R4(8,16)*TWO+R4(8,23)
     * +R4(8,24)*TWO)*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37)
     * )*ZZZ
      F(4,6,6,5)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,3)-R6(18,5)-R6(18,7)
     * +R5(12,5)+R5(12,9)+R5(14,21)-R4(9,30)-R4(9,34)+R3(5,27)+R3(5,35))
     * *QX+(+R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(7,10)+R5(9,22)
     * -R4(5,31)-R4(5,35)+R3(2,28)+R3(2,36))*QZ+(+R6(18,11)-R5(12,15)
     * -R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)
     * +R2(4,49))*XZ
      F(5,6,6,5)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,3)-R6(19,5)-R6(19,7)
     * +R5(13,5)+R5(13,9)+R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))
     * *QX+(+R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)
     * +R5(8,5)+R5(8,6)+R5(8,9)+R5(8,10))*QZ+(+R6(19,10)+R6(19,11)
     * -R5(13,14)-R5(13,15)-R5(13,18)-R5(13,19)+R4(8,15)+R4(8,16)
     * +R4(8,23)+R4(8,24))*XZ+(+R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)
     * +R4(4,24))*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37))
     * *XZZ
      F(6,6,6,5)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)
     * +R5(12,5)+R5(12,6)+R5(12,9)+R5(12,10)+R5(14,21)+R5(14,22)
     * -R4(9,30)-R4(9,31)-R4(9,34)-R4(9,35)+R3(5,27)+R3(5,28)+R3(5,35)
     * +R3(5,36))*QZ+(+R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(7,24)
     * +R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*ZZ
      F(1,1,1,6)= R8(5)-R7(2,2)+R6(5,1)+R6(5,9)*SIX-R5(2,2)-R5(2,17)*SIX
     * +R4(5,14)*SIX+R4(5,38)*THREE-R3(2,15)*SIX-R3(2,48)*THREE
     * +R2(6,37)*THREE-R1(2,26)*THREE+(+R7(5,3)*TWO+R7(5,4)*TWO
     * -R6(2,7)*TWO-R6(2,8)*TWO+R5(5,5)*TWO+R5(5,6)*TWO+R5(5,21)*SIX
     * +R5(5,22)*SIX-R4(2,8)*TWO-R4(2,9)*TWO-R4(2,34)*SIX-R4(2,35)*SIX
     * +R3(5,27)*SIX+R3(5,28)*SIX-R2(4,25)*SIX-R2(4,26)*SIX)*QX+(
     * +R6(5,10)+R6(5,11)*FOUR+R6(5,12)-R5(2,18)-R5(2,19)*FOUR-R5(2,20)
     * +R4(5,15)+R4(5,16)*FOUR+R4(5,17)+R4(5,39)+R4(5,40)*FOUR+R4(5,41)
     * -R3(2,16)-R3(2,17)*FOUR-R3(2,18)-R3(2,49)-R3(2,50)*FOUR-R3(2,51)
     * +R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,27)-R1(2,28)*FOUR-R1(2,29))
     * *XX+(+R5(5,23)*TWO+R5(5,24)*TWO-R4(2,36)*TWO-R4(2,37)*TWO
     * +R3(5,29)*TWO+R3(5,30)*TWO-R2(4,27)*TWO-R2(4,28)*TWO)*XXX+(
     * +R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXX
      F(2,1,1,6)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,4)*TWO-R6(7,8)*TWO
     * +R5(12,6)*TWO+R5(5,22)*TWO-R4(7,9)*TWO-R4(2,35)*TWO+R3(5,28)*TWO
     * -R2(4,26)*TWO)*QX+(+R6(12,12)-R5(7,20)+R4(12,17)+R4(5,41)
     * -R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))*XX
      F(3,1,1,6)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,4)*TWO-R6(9,8)*TWO
     * +R5(14,6)*TWO+R5(5,22)*TWO-R4(9,9)*TWO-R4(2,35)*TWO+R3(5,28)*TWO
     * -R2(4,26)*TWO)*QX+(+R7(9,3)*TWO-R6(5,7)*TWO+R5(9,5)*TWO
     * +R5(9,21)*TWO-R4(5,8)*TWO-R4(5,34)*TWO+R3(9,27)*TWO-R2(6,25)*TWO)
     * *QZ+(+R6(14,12)-R5(9,20)+R4(14,17)+R4(5,41)-R3(9,18)-R3(2,51)
     * +R2(6,40)-R1(2,29))*XX+(+R6(9,11)*FOUR-R5(5,19)*FOUR
     * +R4(9,16)*FOUR-R3(5,17)*FOUR)*XZ+(+R6(5,10)-R5(2,18)+R4(5,15)
     * +R4(5,39)-R3(2,16)-R3(2,49)+R2(6,38)-R1(2,27))*ZZ+(+R5(9,24)*TWO
     * -R4(5,37)*TWO+R3(9,30)*TWO-R2(6,28)*TWO)*XXZ+(+R5(5,23)*TWO
     * -R4(2,36)*TWO+R3(5,29)*TWO-R2(4,27)*TWO)*XZZ+(+R4(5,42)-R3(2,52)
     * +R2(6,41)-R1(2,30))*XXZZ
      F(4,1,1,6)= R8(8)-R7(4,2)+R6(8,1)+R6(8,9)*THREE-R5(4,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(8,3)
     * +R7(8,4)*TWO-R6(4,7)-R6(4,8)*TWO+R5(8,5)+R5(8,6)*TWO+R5(8,21)
     * +R5(8,22)*TWO-R4(4,8)-R4(4,9)*TWO-R4(4,34)-R4(4,35)*TWO+R3(8,27)
     * +R3(8,28)*TWO-R2(2,25)-R2(2,26)*TWO)*QX+(+R6(8,11)*TWO+R6(8,12)
     * -R5(4,19)*TWO-R5(4,20)+R4(8,16)*TWO+R4(8,17)-R3(4,17)*TWO
     * -R3(4,18))*XX+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XXX
      F(5,1,1,6)= R8(9)-R7(5,2)+R6(9,1)+R6(9,9)*THREE-R5(5,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)
     * +R7(9,4)*TWO-R6(5,7)-R6(5,8)*TWO+R5(9,5)+R5(9,6)*TWO+R5(9,21)
     * +R5(9,22)*TWO-R4(5,8)-R4(5,9)*TWO-R4(5,34)-R4(5,35)*TWO+R3(9,27)
     * +R3(9,28)*TWO-R2(6,25)-R2(6,26)*TWO)*QX+(+R7(5,3)-R6(2,7)+R5(5,5)
     * +R5(5,21)*THREE-R4(2,8)-R4(2,34)*THREE+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*TWO-R5(5,20)
     * +R4(9,16)*TWO+R4(9,17)-R3(5,17)*TWO-R3(5,18))*XX+(+R6(5,10)
     * +R6(5,11)*TWO-R5(2,18)-R5(2,19)*TWO+R4(5,15)+R4(5,16)*TWO
     * +R4(5,39)+R4(5,40)*TWO-R3(2,16)-R3(2,17)*TWO-R3(2,49)
     * -R3(2,50)*TWO+R2(6,38)+R2(6,39)*TWO-R1(2,27)-R1(2,28)*TWO)*XZ+(
     * +R5(9,24)-R4(5,37)+R3(9,30)-R2(6,28))*XXX+(+R5(5,23)*TWO+R5(5,24)
     * -R4(2,36)*TWO-R4(2,37)+R3(5,29)*TWO+R3(5,30)-R2(4,27)*TWO
     * -R2(4,28))*XXZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXZ
      F(6,1,1,6)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,4)*TWO-R6(8,8)*TWO+R5(13,6)*TWO
     * -R4(8,9)*TWO)*QX+(+R7(8,3)-R6(4,7)+R5(8,5)+R5(8,21)-R4(4,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QZ+(+R6(13,12)-R5(8,20)+R4(13,17)
     * -R3(8,18))*XX+(+R6(8,11)*TWO-R5(4,19)*TWO+R4(8,16)*TWO
     * -R3(4,17)*TWO)*XZ+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XXZ
      F(1,2,1,6)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,3)*TWO-R6(7,7)*TWO
     * +R5(12,5)*TWO+R5(5,21)*TWO-R4(7,8)*TWO-R4(2,34)*TWO+R3(5,27)*TWO
     * -R2(4,25)*TWO)*QX+(+R6(12,10)-R5(7,18)+R4(12,15)+R4(5,39)
     * -R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))*XX
      F(2,2,1,6)= R8(23)-R7(16,2)+R6(23,1)+R6(12,9)*SIX-R5(16,2)
     * -R5(7,17)*SIX+R4(12,14)*SIX+R4(5,38)*THREE-R3(7,15)*SIX
     * -R3(2,48)*THREE+R2(6,37)*THREE-R1(2,26)*THREE
      F(3,2,1,6)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,3)*TWO-R6(12,7)*TWO
     * +R5(18,5)*TWO+R5(9,21)*TWO-R4(12,8)*TWO-R4(5,34)*TWO+R3(9,27)*TWO
     * -R2(6,25)*TWO)*QZ+(+R6(12,10)-R5(7,18)+R4(12,15)+R4(5,39)
     * -R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))*ZZ
      F(4,2,1,6)= R8(17)-R7(11,2)+R6(17,1)+R6(8,9)*THREE-R5(11,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(17,3)-R6(11,7)
     * +R5(17,5)+R5(8,21)*THREE-R4(11,8)-R4(4,34)*THREE+R3(8,27)*THREE
     * -R2(2,25)*THREE)*QX
      F(5,2,1,6)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)-R6(12,7)+R5(18,5)+R5(9,21)-R4(12,8)
     * -R4(5,34)+R3(9,27)-R2(6,25))*QX+(+R7(12,3)-R6(7,7)+R5(12,5)
     * +R5(5,21)-R4(7,8)-R4(2,34)+R3(5,27)-R2(4,25))*QZ+(+R6(12,10)
     * -R5(7,18)+R4(12,15)+R4(5,39)-R3(7,16)-R3(2,49)+R2(6,38)-R1(2,27))
     * *XZ
      F(6,2,1,6)= R8(24)-R7(17,2)+R6(24,1)+R6(13,9)*THREE-R5(17,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(17,3)
     * -R6(11,7)+R5(17,5)+R5(8,21)*THREE-R4(11,8)-R4(4,34)*THREE
     * +R3(8,27)*THREE-R2(2,25)*THREE)*QZ
      F(1,3,1,6)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,3)*TWO-R6(9,7)*TWO
     * +R5(14,5)*TWO+R5(5,21)*TWO-R4(9,8)*TWO-R4(2,34)*TWO+R3(5,27)*TWO
     * -R2(4,25)*TWO)*QX+(+R7(9,4)*TWO-R6(5,8)*TWO+R5(9,6)*TWO
     * +R5(9,22)*TWO-R4(5,9)*TWO-R4(5,35)*TWO+R3(9,28)*TWO-R2(6,26)*TWO)
     * *QZ+(+R6(14,10)-R5(9,18)+R4(14,15)+R4(5,39)-R3(9,16)-R3(2,49)
     * +R2(6,38)-R1(2,27))*XX+(+R6(9,11)*FOUR-R5(5,19)*FOUR
     * +R4(9,16)*FOUR-R3(5,17)*FOUR)*XZ+(+R6(5,12)-R5(2,20)+R4(5,17)
     * +R4(5,41)-R3(2,18)-R3(2,51)+R2(6,40)-R1(2,29))*ZZ+(+R5(9,23)*TWO
     * -R4(5,36)*TWO+R3(9,29)*TWO-R2(6,27)*TWO)*XXZ+(+R5(5,24)*TWO
     * -R4(2,37)*TWO+R3(5,30)*TWO-R2(4,28)*TWO)*XZZ+(+R4(5,42)-R3(2,52)
     * +R2(6,41)-R1(2,30))*XXZZ
      F(2,3,1,6)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,4)*TWO-R6(12,8)*TWO
     * +R5(18,6)*TWO+R5(9,22)*TWO-R4(12,9)*TWO-R4(5,35)*TWO+R3(9,28)*TWO
     * -R2(6,26)*TWO)*QZ+(+R6(12,12)-R5(7,20)+R4(12,17)+R4(5,41)
     * -R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))*ZZ
      F(3,3,1,6)= R8(27)-R7(20,2)+R6(27,1)+R6(14,9)*SIX-R5(20,2)
     * -R5(9,17)*SIX+R4(14,14)*SIX+R4(5,38)*THREE-R3(9,15)*SIX
     * -R3(2,48)*THREE+R2(6,37)*THREE-R1(2,26)*THREE+(+R7(20,3)*TWO
     * +R7(20,4)*TWO-R6(14,7)*TWO-R6(14,8)*TWO+R5(20,5)*TWO+R5(20,6)*TWO
     * +R5(9,21)*SIX+R5(9,22)*SIX-R4(14,8)*TWO-R4(14,9)*TWO-R4(5,34)*SIX
     * -R4(5,35)*SIX+R3(9,27)*SIX+R3(9,28)*SIX-R2(6,25)*SIX-R2(6,26)*SIX
     * )*QZ+(+R6(14,10)+R6(14,11)*FOUR+R6(14,12)-R5(9,18)-R5(9,19)*FOUR
     * -R5(9,20)+R4(14,15)+R4(14,16)*FOUR+R4(14,17)+R4(5,39)
     * +R4(5,40)*FOUR+R4(5,41)-R3(9,16)-R3(9,17)*FOUR-R3(9,18)-R3(2,49)
     * -R3(2,50)*FOUR-R3(2,51)+R2(6,38)+R2(6,39)*FOUR+R2(6,40)-R1(2,27)
     * -R1(2,28)*FOUR-R1(2,29))*ZZ+(+R5(9,23)*TWO+R5(9,24)*TWO
     * -R4(5,36)*TWO-R4(5,37)*TWO+R3(9,29)*TWO+R3(9,30)*TWO-R2(6,27)*TWO
     * -R2(6,28)*TWO)*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*ZZZZ
      F(4,3,1,6)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,3)-R6(13,7)+R5(19,5)+R5(8,21)-R4(13,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QX+(+R7(13,4)*TWO-R6(8,8)*TWO
     * +R5(13,6)*TWO-R4(8,9)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,19)*TWO
     * +R4(13,16)*TWO-R3(8,17)*TWO)*XZ+(+R6(8,12)-R5(4,20)+R4(8,17)
     * -R3(4,18))*ZZ+(+R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XZZ
      F(5,3,1,6)= R8(20)-R7(14,2)+R6(20,1)+R6(9,9)*THREE-R5(14,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(20,3)-R6(14,7)
     * +R5(20,5)+R5(9,21)*THREE-R4(14,8)-R4(5,34)*THREE+R3(9,27)*THREE
     * -R2(6,25)*THREE)*QX+(+R7(14,3)+R7(14,4)*TWO-R6(9,7)-R6(9,8)*TWO
     * +R5(14,5)+R5(14,6)*TWO+R5(5,21)+R5(5,22)*TWO-R4(9,8)-R4(9,9)*TWO
     * -R4(2,34)-R4(2,35)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,25)
     * -R2(4,26)*TWO)*QZ+(+R6(14,10)+R6(14,11)*TWO-R5(9,18)-R5(9,19)*TWO
     * +R4(14,15)+R4(14,16)*TWO+R4(5,39)+R4(5,40)*TWO-R3(9,16)
     * -R3(9,17)*TWO-R3(2,49)-R3(2,50)*TWO+R2(6,38)+R2(6,39)*TWO
     * -R1(2,27)-R1(2,28)*TWO)*XZ+(+R6(9,11)*TWO+R6(9,12)-R5(5,19)*TWO
     * -R5(5,20)+R4(9,16)*TWO+R4(9,17)-R3(5,17)*TWO-R3(5,18))*ZZ+(
     * +R5(9,23)*TWO+R5(9,24)-R4(5,36)*TWO-R4(5,37)+R3(9,29)*TWO
     * +R3(9,30)-R2(6,27)*TWO-R2(6,28))*XZZ+(+R5(5,24)-R4(2,37)+R3(5,30)
     * -R2(4,28))*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XZZZ
      F(6,3,1,6)= R8(26)-R7(19,2)+R6(26,1)+R6(13,9)*THREE-R5(19,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(19,3)
     * +R7(19,4)*TWO-R6(13,7)-R6(13,8)*TWO+R5(19,5)+R5(19,6)*TWO
     * +R5(8,21)+R5(8,22)*TWO-R4(13,8)-R4(13,9)*TWO-R4(4,34)
     * -R4(4,35)*TWO+R3(8,27)+R3(8,28)*TWO-R2(2,25)-R2(2,26)*TWO)*QZ+(
     * +R6(13,11)*TWO+R6(13,12)-R5(8,19)*TWO-R5(8,20)+R4(13,16)*TWO
     * +R4(13,17)-R3(8,17)*TWO-R3(8,18))*ZZ+(+R5(8,24)-R4(4,37)+R3(8,30)
     * -R2(2,28))*ZZZ
      F(1,4,1,6)= R8(8)-R7(4,2)+R6(8,1)+R6(8,9)*THREE-R5(4,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(8,3)*TWO
     * +R7(8,4)-R6(4,7)*TWO-R6(4,8)+R5(8,5)*TWO+R5(8,6)+R5(8,21)*TWO
     * +R5(8,22)-R4(4,8)*TWO-R4(4,9)-R4(4,34)*TWO-R4(4,35)+R3(8,27)*TWO
     * +R3(8,28)-R2(2,25)*TWO-R2(2,26))*QX+(+R6(8,10)+R6(8,11)*TWO
     * -R5(4,18)-R5(4,19)*TWO+R4(8,15)+R4(8,16)*TWO-R3(4,16)
     * -R3(4,17)*TWO)*XX+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XXX
      F(2,4,1,6)= R8(17)-R7(11,2)+R6(17,1)+R6(8,9)*THREE-R5(11,2)
     * -R5(4,17)*THREE+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(17,4)-R6(11,8)
     * +R5(17,6)+R5(8,22)*THREE-R4(11,9)-R4(4,35)*THREE+R3(8,28)*THREE
     * -R2(2,26)*THREE)*QX
      F(3,4,1,6)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,4)-R6(13,8)+R5(19,6)+R5(8,22)-R4(13,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QX+(+R7(13,3)*TWO-R6(8,7)*TWO
     * +R5(13,5)*TWO-R4(8,8)*TWO)*QZ+(+R6(13,11)*TWO-R5(8,19)*TWO
     * +R4(13,16)*TWO-R3(8,17)*TWO)*XZ+(+R6(8,10)-R5(4,18)+R4(8,15)
     * -R3(4,16))*ZZ+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XZZ
      F(4,4,1,6)= R8(12)-R7(7,2)+R6(12,1)+R6(5,9)+R6(12,9)-R5(7,2)
     * -R5(2,17)-R5(7,17)+R4(5,14)+R4(12,14)+R4(5,38)-R3(2,15)-R3(7,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(12,3)+R7(12,4)-R6(7,7)-R6(7,8)
     * +R5(12,5)+R5(12,6)+R5(5,21)+R5(5,22)-R4(7,8)-R4(7,9)-R4(2,34)
     * -R4(2,35)+R3(5,27)+R3(5,28)-R2(4,25)-R2(4,26))*QX+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XX
      F(5,4,1,6)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)+R7(13,4)-R6(8,7)-R6(8,8)+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R7(8,3)-R6(4,7)+R5(8,5)+R5(8,21)
     * -R4(4,8)-R4(4,34)+R3(8,27)-R2(2,25))*QZ+(+R6(13,11)-R5(8,19)
     * +R4(13,16)-R3(8,17))*XX+(+R6(8,10)+R6(8,11)-R5(4,18)-R5(4,19)
     * +R4(8,15)+R4(8,16)-R3(4,16)-R3(4,17))*XZ+(+R5(8,23)-R4(4,36)
     * +R3(8,29)-R2(2,27))*XXZ
      F(6,4,1,6)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)-R6(12,8)+R5(18,6)+R5(9,22)-R4(12,9)
     * -R4(5,35)+R3(9,28)-R2(6,26))*QX+(+R7(12,3)-R6(7,7)+R5(12,5)
     * +R5(5,21)-R4(7,8)-R4(2,34)+R3(5,27)-R2(4,25))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XZ
      F(1,5,1,6)= R8(9)-R7(5,2)+R6(9,1)+R6(9,9)*THREE-R5(5,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(9,3)*TWO
     * +R7(9,4)-R6(5,7)*TWO-R6(5,8)+R5(9,5)*TWO+R5(9,6)+R5(9,21)*TWO
     * +R5(9,22)-R4(5,8)*TWO-R4(5,9)-R4(5,34)*TWO-R4(5,35)+R3(9,27)*TWO
     * +R3(9,28)-R2(6,25)*TWO-R2(6,26))*QX+(+R7(5,4)-R6(2,8)+R5(5,6)
     * +R5(5,22)*THREE-R4(2,9)-R4(2,35)*THREE+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)-R5(5,19)*TWO
     * +R4(9,15)+R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*XX+(+R6(5,11)*TWO
     * +R6(5,12)-R5(2,19)*TWO-R5(2,20)+R4(5,16)*TWO+R4(5,17)
     * +R4(5,40)*TWO+R4(5,41)-R3(2,17)*TWO-R3(2,18)-R3(2,50)*TWO
     * -R3(2,51)+R2(6,39)*TWO+R2(6,40)-R1(2,28)*TWO-R1(2,29))*XZ+(
     * +R5(9,23)-R4(5,36)+R3(9,29)-R2(6,27))*XXX+(+R5(5,23)+R5(5,24)*TWO
     * -R4(2,36)-R4(2,37)*TWO+R3(5,29)+R3(5,30)*TWO-R2(4,27)
     * -R2(4,28)*TWO)*XXZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))*XXXZ
      F(2,5,1,6)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)-R6(12,8)+R5(18,6)+R5(9,22)-R4(12,9)
     * -R4(5,35)+R3(9,28)-R2(6,26))*QX+(+R7(12,4)-R6(7,8)+R5(12,6)
     * +R5(5,22)-R4(7,9)-R4(2,35)+R3(5,28)-R2(4,26))*QZ+(+R6(12,12)
     * -R5(7,20)+R4(12,17)+R4(5,41)-R3(7,18)-R3(2,51)+R2(6,40)-R1(2,29))
     * *XZ
      F(3,5,1,6)= R8(20)-R7(14,2)+R6(20,1)+R6(9,9)*THREE-R5(14,2)
     * -R5(5,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(20,4)-R6(14,8)
     * +R5(20,6)+R5(9,22)*THREE-R4(14,9)-R4(5,35)*THREE+R3(9,28)*THREE
     * -R2(6,26)*THREE)*QX+(+R7(14,3)*TWO+R7(14,4)-R6(9,7)*TWO-R6(9,8)
     * +R5(14,5)*TWO+R5(14,6)+R5(5,21)*TWO+R5(5,22)-R4(9,8)*TWO-R4(9,9)
     * -R4(2,34)*TWO-R4(2,35)+R3(5,27)*TWO+R3(5,28)-R2(4,25)*TWO
     * -R2(4,26))*QZ+(+R6(14,11)*TWO+R6(14,12)-R5(9,19)*TWO-R5(9,20)
     * +R4(14,16)*TWO+R4(14,17)+R4(5,40)*TWO+R4(5,41)-R3(9,17)*TWO
     * -R3(9,18)-R3(2,50)*TWO-R3(2,51)+R2(6,39)*TWO+R2(6,40)
     * -R1(2,28)*TWO-R1(2,29))*XZ+(+R6(9,10)+R6(9,11)*TWO-R5(5,18)
     * -R5(5,19)*TWO+R4(9,15)+R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*ZZ+(
     * +R5(9,23)+R5(9,24)*TWO-R4(5,36)-R4(5,37)*TWO+R3(9,29)
     * +R3(9,30)*TWO-R2(6,27)-R2(6,28)*TWO)*XZZ+(+R5(5,23)-R4(2,36)
     * +R3(5,29)-R2(4,27))*ZZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))
     * *XZZZ
      F(4,5,1,6)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)+R7(13,4)-R6(8,7)-R6(8,8)+R5(13,5)
     * +R5(13,6)-R4(8,8)-R4(8,9))*QX+(+R7(8,4)-R6(4,8)+R5(8,6)+R5(8,22)
     * -R4(4,9)-R4(4,35)+R3(8,28)-R2(2,26))*QZ+(+R6(13,11)-R5(8,19)
     * +R4(13,16)-R3(8,17))*XX+(+R6(8,11)+R6(8,12)-R5(4,19)-R5(4,20)
     * +R4(8,16)+R4(8,17)-R3(4,17)-R3(4,18))*XZ+(+R5(8,24)-R4(4,37)
     * +R3(8,30)-R2(2,28))*XXZ
      F(5,5,1,6)= R8(14)-R7(9,2)+R6(14,1)+R6(5,9)+R6(14,9)-R5(9,2)
     * -R5(2,17)-R5(9,17)+R4(5,14)+R4(14,14)+R4(5,38)-R3(2,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(14,3)+R7(14,4)-R6(9,7)-R6(9,8)
     * +R5(14,5)+R5(14,6)+R5(5,21)+R5(5,22)-R4(9,8)-R4(9,9)-R4(2,34)
     * -R4(2,35)+R3(5,27)+R3(5,28)-R2(4,25)-R2(4,26))*QX+(+R7(9,3)
     * +R7(9,4)-R6(5,7)-R6(5,8)+R5(9,5)+R5(9,6)+R5(9,21)+R5(9,22)
     * -R4(5,8)-R4(5,9)-R4(5,34)-R4(5,35)+R3(9,27)+R3(9,28)-R2(6,25)
     * -R2(6,26))*QZ+(+R6(14,11)-R5(9,19)+R4(14,16)+R4(5,40)-R3(9,17)
     * -R3(2,50)+R2(6,39)-R1(2,28))*XX+(+R6(9,10)+R6(9,11)*TWO+R6(9,12)
     * -R5(5,18)-R5(5,19)*TWO-R5(5,20)+R4(9,15)+R4(9,16)*TWO+R4(9,17)
     * -R3(5,16)-R3(5,17)*TWO-R3(5,18))*XZ+(+R6(5,11)-R5(2,19)+R4(5,16)
     * +R4(5,40)-R3(2,17)-R3(2,50)+R2(6,39)-R1(2,28))*ZZ+(+R5(9,23)
     * +R5(9,24)-R4(5,36)-R4(5,37)+R3(9,29)+R3(9,30)-R2(6,27)-R2(6,28))
     * *XXZ+(+R5(5,23)+R5(5,24)-R4(2,36)-R4(2,37)+R3(5,29)+R3(5,30)
     * -R2(4,27)-R2(4,28))*XZZ+(+R4(5,42)-R3(2,52)+R2(6,41)-R1(2,30))
     * *XXZZ
      F(6,5,1,6)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,4)-R6(13,8)+R5(19,6)+R5(8,22)-R4(13,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QX+(+R7(13,3)+R7(13,4)-R6(8,7)
     * -R6(8,8)+R5(13,5)+R5(13,6)-R4(8,8)-R4(8,9))*QZ+(+R6(13,11)
     * +R6(13,12)-R5(8,19)-R5(8,20)+R4(13,16)+R4(13,17)-R3(8,17)
     * -R3(8,18))*XZ+(+R6(8,11)-R5(4,19)+R4(8,16)-R3(4,17))*ZZ+(
     * +R5(8,24)-R4(4,37)+R3(8,30)-R2(2,28))*XZZ
      F(1,6,1,6)= R8(13)-R7(8,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(13,14)-R3(8,15)+(+R7(13,3)*TWO-R6(8,7)*TWO+R5(13,5)*TWO
     * -R4(8,8)*TWO)*QX+(+R7(8,4)-R6(4,8)+R5(8,6)+R5(8,22)-R4(4,9)
     * -R4(4,35)+R3(8,28)-R2(2,26))*QZ+(+R6(13,10)-R5(8,18)+R4(13,15)
     * -R3(8,16))*XX+(+R6(8,11)*TWO-R5(4,19)*TWO+R4(8,16)*TWO
     * -R3(4,17)*TWO)*XZ+(+R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XXZ
      F(2,6,1,6)= R8(24)-R7(17,2)+R6(24,1)+R6(13,9)*THREE-R5(17,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(17,4)
     * -R6(11,8)+R5(17,6)+R5(8,22)*THREE-R4(11,9)-R4(4,35)*THREE
     * +R3(8,28)*THREE-R2(2,26)*THREE)*QZ
      F(3,6,1,6)= R8(26)-R7(19,2)+R6(26,1)+R6(13,9)*THREE-R5(19,2)
     * -R5(8,17)*THREE+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(19,3)*TWO
     * +R7(19,4)-R6(13,7)*TWO-R6(13,8)+R5(19,5)*TWO+R5(19,6)
     * +R5(8,21)*TWO+R5(8,22)-R4(13,8)*TWO-R4(13,9)-R4(4,34)*TWO
     * -R4(4,35)+R3(8,27)*TWO+R3(8,28)-R2(2,25)*TWO-R2(2,26))*QZ+(
     * +R6(13,10)+R6(13,11)*TWO-R5(8,18)-R5(8,19)*TWO+R4(13,15)
     * +R4(13,16)*TWO-R3(8,16)-R3(8,17)*TWO)*ZZ+(+R5(8,23)-R4(4,36)
     * +R3(8,29)-R2(2,27))*ZZZ
      F(4,6,1,6)= R8(18)-R7(12,2)+R6(18,1)+R6(9,9)-R5(12,2)-R5(5,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)-R6(12,7)+R5(18,5)+R5(9,21)-R4(12,8)
     * -R4(5,34)+R3(9,27)-R2(6,25))*QX+(+R7(12,4)-R6(7,8)+R5(12,6)
     * +R5(5,22)-R4(7,9)-R4(2,35)+R3(5,28)-R2(4,26))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *XZ
      F(5,6,1,6)= R8(19)-R7(13,2)+R6(19,1)+R6(8,9)-R5(13,2)-R5(4,17)
     * +R4(8,14)-R3(4,15)+(+R7(19,3)-R6(13,7)+R5(19,5)+R5(8,21)-R4(13,8)
     * -R4(4,34)+R3(8,27)-R2(2,25))*QX+(+R7(13,3)+R7(13,4)-R6(8,7)
     * -R6(8,8)+R5(13,5)+R5(13,6)-R4(8,8)-R4(8,9))*QZ+(+R6(13,10)
     * +R6(13,11)-R5(8,18)-R5(8,19)+R4(13,15)+R4(13,16)-R3(8,16)
     * -R3(8,17))*XZ+(+R6(8,11)-R5(4,19)+R4(8,16)-R3(4,17))*ZZ+(
     * +R5(8,23)-R4(4,36)+R3(8,29)-R2(2,27))*XZZ
      F(6,6,1,6)= R8(25)-R7(18,2)+R6(25,1)+R6(12,9)+R6(14,9)-R5(18,2)
     * -R5(7,17)-R5(9,17)+R4(12,14)+R4(14,14)+R4(5,38)-R3(7,15)-R3(9,15)
     * -R3(2,48)+R2(6,37)-R1(2,26)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)
     * +R5(18,5)+R5(18,6)+R5(9,21)+R5(9,22)-R4(12,8)-R4(12,9)-R4(5,34)
     * -R4(5,35)+R3(9,27)+R3(9,28)-R2(6,25)-R2(6,26))*QZ+(+R6(12,11)
     * -R5(7,19)+R4(12,16)+R4(5,40)-R3(7,17)-R3(2,50)+R2(6,39)-R1(2,28))
     * *ZZ
      F(1,1,2,6)= R8(12)-R7(7,2)+R6(5,1)*THREE+R6(12,9)*SIX
     * -R5(2,2)*THREE-R5(7,17)*SIX+R4(5,14)*P18+R4(12,38)*THREE
     * -R3(2,15)*P18-R3(7,48)*THREE+R2(6,37)*NINE-R1(2,26)*NINE+(
     * +R7(12,3)*TWO+R7(12,4)*TWO-R6(7,7)*TWO-R6(7,8)*TWO+R5(5,5)*SIX
     * +R5(5,6)*SIX+R5(12,21)*SIX+R5(12,22)*SIX-R4(2,8)*SIX-R4(2,9)*SIX
     * -R4(7,34)*SIX-R4(7,35)*SIX+R3(5,27)*P18+R3(5,28)*P18-R2(4,25)*P18
     * -R2(4,26)*P18)*QX+(+R6(12,10)+R6(12,11)*FOUR+R6(12,12)-R5(7,18)
     * -R5(7,19)*FOUR-R5(7,20)+R4(5,15)*THREE+R4(5,16)*TWELV
     * +R4(5,17)*THREE+R4(12,39)+R4(12,40)*FOUR+R4(12,41)-R3(2,16)*THREE
     * -R3(2,17)*TWELV-R3(2,18)*THREE-R3(7,49)-R3(7,50)*FOUR-R3(7,51)
     * +R2(6,38)*THREE+R2(6,39)*TWELV+R2(6,40)*THREE-R1(2,27)*THREE
     * -R1(2,28)*TWELV-R1(2,29)*THREE)*XX+(+R5(12,23)*TWO+R5(12,24)*TWO
     * -R4(7,36)*TWO-R4(7,37)*TWO+R3(5,29)*SIX+R3(5,30)*SIX-R2(4,27)*SIX
     * -R2(4,28)*SIX)*XXX+(+R4(12,42)-R3(7,52)+R2(6,41)*THREE
     * -R1(2,30)*THREE)*XXXX
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21R
      SUBROUTINE MCDV21R(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(2,1,2,6)= R8(23)-R7(16,2)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,2)*THREE-R5(7,17)-R5(16,17)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(7,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(23,4)*TWO-R6(16,8)*TWO+R5(12,6)*SIX
     * +R5(12,22)*TWO-R4(7,9)*SIX-R4(7,35)*TWO+R3(5,28)*SIX-R2(4,26)*SIX
     * )*QX+(+R6(23,12)-R5(16,20)+R4(12,17)*THREE+R4(12,41)
     * -R3(7,18)*THREE-R3(7,51)+R2(6,40)*THREE-R1(2,29)*THREE)*XX
      F(3,1,2,6)= R8(25)-R7(18,2)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,2)*THREE-R5(7,17)-R5(18,17)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(9,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(25,4)*TWO-R6(18,8)*TWO+R5(14,6)*SIX
     * +R5(12,22)*TWO-R4(9,9)*SIX-R4(7,35)*TWO+R3(5,28)*SIX-R2(4,26)*SIX
     * )*QX+(+R7(18,3)*TWO-R6(12,7)*TWO+R5(9,5)*SIX+R5(18,21)*TWO
     * -R4(5,8)*SIX-R4(12,34)*TWO+R3(9,27)*SIX-R2(6,25)*SIX)*QZ+(
     * +R6(25,12)-R5(18,20)+R4(14,17)*THREE+R4(12,41)-R3(9,18)*THREE
     * -R3(7,51)+R2(6,40)*THREE-R1(2,29)*THREE)*XX+(+R6(18,11)*FOUR
     * -R5(12,19)*FOUR+R4(9,16)*TWELV-R3(5,17)*TWELV)*XZ+(+R6(12,10)
     * -R5(7,18)+R4(5,15)*THREE+R4(12,39)-R3(2,16)*THREE-R3(7,49)
     * +R2(6,38)*THREE-R1(2,27)*THREE)*ZZ+(+R5(18,24)*TWO-R4(12,37)*TWO
     * +R3(9,30)*SIX-R2(6,28)*SIX)*XXZ+(+R5(12,23)*TWO-R4(7,36)*TWO
     * +R3(5,29)*SIX-R2(4,27)*SIX)*XZZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XXZZ
      F(4,1,2,6)= R8(17)-R7(11,2)+R6(8,1)*THREE+R6(17,9)*THREE
     * -R5(4,2)*THREE-R5(11,17)*THREE+R4(8,14)*NINE-R3(4,15)*NINE+(
     * +R7(17,3)+R7(17,4)*TWO-R6(11,7)-R6(11,8)*TWO+R5(8,5)*THREE
     * +R5(8,6)*SIX+R5(17,21)+R5(17,22)*TWO-R4(4,8)*THREE-R4(4,9)*SIX
     * -R4(11,34)-R4(11,35)*TWO+R3(8,27)*THREE+R3(8,28)*SIX
     * -R2(2,25)*THREE-R2(2,26)*SIX)*QX+(+R6(17,11)*TWO+R6(17,12)
     * -R5(11,19)*TWO-R5(11,20)+R4(8,16)*SIX+R4(8,17)*THREE-R3(4,17)*SIX
     * -R3(4,18)*THREE)*XX+(+R5(17,24)-R4(11,37)+R3(8,30)*THREE
     * -R2(2,28)*THREE)*XXX
      F(5,1,2,6)= R8(18)-R7(12,2)+R6(9,1)*THREE+R6(18,9)*THREE
     * -R5(5,2)*THREE-R5(12,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(18,3)+R7(18,4)*TWO-R6(12,7)-R6(12,8)*TWO+R5(9,5)*THREE
     * +R5(9,6)*SIX+R5(18,21)+R5(18,22)*TWO-R4(5,8)*THREE-R4(5,9)*SIX
     * -R4(12,34)-R4(12,35)*TWO+R3(9,27)*THREE+R3(9,28)*SIX
     * -R2(6,25)*THREE-R2(6,26)*SIX)*QX+(+R7(12,3)-R6(7,7)+R5(5,5)*THREE
     * +R5(12,21)*THREE-R4(2,8)*THREE-R4(7,34)*THREE+R3(5,27)*NINE
     * -R2(4,25)*NINE)*QZ+(+R6(18,11)*TWO+R6(18,12)-R5(12,19)*TWO
     * -R5(12,20)+R4(9,16)*SIX+R4(9,17)*THREE-R3(5,17)*SIX
     * -R3(5,18)*THREE)*XX+(+R6(12,10)+R6(12,11)*TWO-R5(7,18)
     * -R5(7,19)*TWO+R4(5,15)*THREE+R4(5,16)*SIX+R4(12,39)+R4(12,40)*TWO
     * -R3(2,16)*THREE-R3(2,17)*SIX-R3(7,49)-R3(7,50)*TWO+R2(6,38)*THREE
     * +R2(6,39)*SIX-R1(2,27)*THREE-R1(2,28)*SIX)*XZ+(+R5(18,24)
     * -R4(12,37)+R3(9,30)*THREE-R2(6,28)*THREE)*XXX+(+R5(12,23)*TWO
     * +R5(12,24)-R4(7,36)*TWO-R4(7,37)+R3(5,29)*SIX+R3(5,30)*THREE
     * -R2(4,27)*SIX-R2(4,28)*THREE)*XXZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XXXZ
      F(6,1,2,6)= R8(24)-R7(17,2)+R6(13,1)*THREE+R6(24,9)-R5(8,2)*THREE
     * -R5(17,17)+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(24,4)*TWO
     * -R6(17,8)*TWO+R5(13,6)*SIX-R4(8,9)*SIX)*QX+(+R7(17,3)-R6(11,7)
     * +R5(8,5)*THREE+R5(17,21)-R4(4,8)*THREE-R4(11,34)+R3(8,27)*THREE
     * -R2(2,25)*THREE)*QZ+(+R6(24,12)-R5(17,20)+R4(13,17)*THREE
     * -R3(8,18)*THREE)*XX+(+R6(17,11)*TWO-R5(11,19)*TWO+R4(8,16)*SIX
     * -R3(4,17)*SIX)*XZ+(+R5(17,24)-R4(11,37)+R3(8,30)*THREE
     * -R2(2,28)*THREE)*XXZ
      F(1,2,2,6)= R8(23)-R7(16,2)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,2)*THREE-R5(7,17)-R5(16,17)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(7,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(23,3)*TWO-R6(16,7)*TWO+R5(12,5)*SIX
     * +R5(12,21)*TWO-R4(7,8)*SIX-R4(7,34)*TWO+R3(5,27)*SIX-R2(4,25)*SIX
     * )*QX+(+R6(23,10)-R5(16,18)+R4(12,15)*THREE+R4(12,39)
     * -R3(7,16)*THREE-R3(7,49)+R2(6,38)*THREE-R1(2,27)*THREE)*XX
      F(2,2,2,6)= R8(38)-R7(29,2)+R6(23,1)*THREE+R6(23,9)*SIX
     * -R5(16,2)*THREE-R5(16,17)*SIX+R4(12,14)*P18+R4(12,38)*THREE
     * -R3(7,15)*P18-R3(7,48)*THREE+R2(6,37)*NINE-R1(2,26)*NINE
      F(3,2,2,6)= R8(40)-R7(31,2)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,2)*THREE-R5(16,17)-R5(18,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,15)*THREE-R3(9,15)*THREE-R3(7,48)
     * +R2(6,37)*THREE-R1(2,26)*THREE+(+R7(31,3)*TWO-R6(23,7)*TWO
     * +R5(18,5)*SIX+R5(18,21)*TWO-R4(12,8)*SIX-R4(12,34)*TWO
     * +R3(9,27)*SIX-R2(6,25)*SIX)*QZ+(+R6(23,10)-R5(16,18)
     * +R4(12,15)*THREE+R4(12,39)-R3(7,16)*THREE-R3(7,49)+R2(6,38)*THREE
     * -R1(2,27)*THREE)*ZZ
      F(4,2,2,6)= R8(30)-R7(22,2)+R6(17,1)*THREE+R6(17,9)*THREE
     * -R5(11,2)*THREE-R5(11,17)*THREE+R4(8,14)*NINE-R3(4,15)*NINE+(
     * +R7(30,3)-R6(22,7)+R5(17,5)*THREE+R5(17,21)*THREE-R4(11,8)*THREE
     * -R4(11,34)*THREE+R3(8,27)*NINE-R2(2,25)*NINE)*QX
      F(5,2,2,6)= R8(31)-R7(23,2)+R6(18,1)*THREE+R6(18,9)-R5(12,2)*THREE
     * -R5(12,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(31,3)-R6(23,7)
     * +R5(18,5)*THREE+R5(18,21)-R4(12,8)*THREE-R4(12,34)+R3(9,27)*THREE
     * -R2(6,25)*THREE)*QX+(+R7(23,3)-R6(16,7)+R5(12,5)*THREE+R5(12,21)
     * -R4(7,8)*THREE-R4(7,34)+R3(5,27)*THREE-R2(4,25)*THREE)*QZ+(
     * +R6(23,10)-R5(16,18)+R4(12,15)*THREE+R4(12,39)-R3(7,16)*THREE
     * -R3(7,49)+R2(6,38)*THREE-R1(2,27)*THREE)*XZ
      F(6,2,2,6)= R8(39)-R7(30,2)+R6(24,1)*THREE+R6(24,9)*THREE
     * -R5(17,2)*THREE-R5(17,17)*THREE+R4(13,14)*NINE-R3(8,15)*NINE+(
     * +R7(30,3)-R6(22,7)+R5(17,5)*THREE+R5(17,21)*THREE-R4(11,8)*THREE
     * -R4(11,34)*THREE+R3(8,27)*NINE-R2(2,25)*NINE)*QZ
      F(1,3,2,6)= R8(25)-R7(18,2)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,2)*THREE-R5(7,17)-R5(18,17)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(9,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(25,3)*TWO-R6(18,7)*TWO+R5(14,5)*SIX
     * +R5(12,21)*TWO-R4(9,8)*SIX-R4(7,34)*TWO+R3(5,27)*SIX-R2(4,25)*SIX
     * )*QX+(+R7(18,4)*TWO-R6(12,8)*TWO+R5(9,6)*SIX+R5(18,22)*TWO
     * -R4(5,9)*SIX-R4(12,35)*TWO+R3(9,28)*SIX-R2(6,26)*SIX)*QZ+(
     * +R6(25,10)-R5(18,18)+R4(14,15)*THREE+R4(12,39)-R3(9,16)*THREE
     * -R3(7,49)+R2(6,38)*THREE-R1(2,27)*THREE)*XX+(+R6(18,11)*FOUR
     * -R5(12,19)*FOUR+R4(9,16)*TWELV-R3(5,17)*TWELV)*XZ+(+R6(12,12)
     * -R5(7,20)+R4(5,17)*THREE+R4(12,41)-R3(2,18)*THREE-R3(7,51)
     * +R2(6,40)*THREE-R1(2,29)*THREE)*ZZ+(+R5(18,23)*TWO-R4(12,36)*TWO
     * +R3(9,29)*SIX-R2(6,27)*SIX)*XXZ+(+R5(12,24)*TWO-R4(7,37)*TWO
     * +R3(5,30)*SIX-R2(4,28)*SIX)*XZZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XXZZ
      F(2,3,2,6)= R8(40)-R7(31,2)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,2)*THREE-R5(16,17)-R5(18,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,15)*THREE-R3(9,15)*THREE-R3(7,48)
     * +R2(6,37)*THREE-R1(2,26)*THREE+(+R7(31,4)*TWO-R6(23,8)*TWO
     * +R5(18,6)*SIX+R5(18,22)*TWO-R4(12,9)*SIX-R4(12,35)*TWO
     * +R3(9,28)*SIX-R2(6,26)*SIX)*QZ+(+R6(23,12)-R5(16,20)
     * +R4(12,17)*THREE+R4(12,41)-R3(7,18)*THREE-R3(7,51)+R2(6,40)*THREE
     * -R1(2,29)*THREE)*ZZ
      F(3,3,2,6)= R8(42)-R7(33,2)+R6(27,1)*THREE+R6(25,9)*SIX
     * -R5(20,2)*THREE-R5(18,17)*SIX+R4(14,14)*P18+R4(12,38)*THREE
     * -R3(9,15)*P18-R3(7,48)*THREE+R2(6,37)*NINE-R1(2,26)*NINE+(
     * +R7(33,3)*TWO+R7(33,4)*TWO-R6(25,7)*TWO-R6(25,8)*TWO+R5(20,5)*SIX
     * +R5(20,6)*SIX+R5(18,21)*SIX+R5(18,22)*SIX-R4(14,8)*SIX
     * -R4(14,9)*SIX-R4(12,34)*SIX-R4(12,35)*SIX+R3(9,27)*P18
     * +R3(9,28)*P18-R2(6,25)*P18-R2(6,26)*P18)*QZ+(+R6(25,10)
     * +R6(25,11)*FOUR+R6(25,12)-R5(18,18)-R5(18,19)*FOUR-R5(18,20)
     * +R4(14,15)*THREE+R4(14,16)*TWELV+R4(14,17)*THREE+R4(12,39)
     * +R4(12,40)*FOUR+R4(12,41)-R3(9,16)*THREE-R3(9,17)*TWELV
     * -R3(9,18)*THREE-R3(7,49)-R3(7,50)*FOUR-R3(7,51)+R2(6,38)*THREE
     * +R2(6,39)*TWELV+R2(6,40)*THREE-R1(2,27)*THREE-R1(2,28)*TWELV
     * -R1(2,29)*THREE)*ZZ+(+R5(18,23)*TWO+R5(18,24)*TWO-R4(12,36)*TWO
     * -R4(12,37)*TWO+R3(9,29)*SIX+R3(9,30)*SIX-R2(6,27)*SIX
     * -R2(6,28)*SIX)*ZZZ+(+R4(12,42)-R3(7,52)+R2(6,41)*THREE
     * -R1(2,30)*THREE)*ZZZZ
      F(4,3,2,6)= R8(32)-R7(24,2)+R6(19,1)*THREE+R6(17,9)-R5(13,2)*THREE
     * -R5(11,17)+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(32,3)-R6(24,7)
     * +R5(19,5)*THREE+R5(17,21)-R4(13,8)*THREE-R4(11,34)+R3(8,27)*THREE
     * -R2(2,25)*THREE)*QX+(+R7(24,4)*TWO-R6(17,8)*TWO+R5(13,6)*SIX
     * -R4(8,9)*SIX)*QZ+(+R6(24,11)*TWO-R5(17,19)*TWO+R4(13,16)*SIX
     * -R3(8,17)*SIX)*XZ+(+R6(17,12)-R5(11,20)+R4(8,17)*THREE
     * -R3(4,18)*THREE)*ZZ+(+R5(17,24)-R4(11,37)+R3(8,30)*THREE
     * -R2(2,28)*THREE)*XZZ
      F(5,3,2,6)= R8(33)-R7(25,2)+R6(20,1)*THREE+R6(18,9)*THREE
     * -R5(14,2)*THREE-R5(12,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(33,3)-R6(25,7)+R5(20,5)*THREE+R5(18,21)*THREE-R4(14,8)*THREE
     * -R4(12,34)*THREE+R3(9,27)*NINE-R2(6,25)*NINE)*QX+(+R7(25,3)
     * +R7(25,4)*TWO-R6(18,7)-R6(18,8)*TWO+R5(14,5)*THREE+R5(14,6)*SIX
     * +R5(12,21)+R5(12,22)*TWO-R4(9,8)*THREE-R4(9,9)*SIX-R4(7,34)
     * -R4(7,35)*TWO+R3(5,27)*THREE+R3(5,28)*SIX-R2(4,25)*THREE
     * -R2(4,26)*SIX)*QZ+(+R6(25,10)+R6(25,11)*TWO-R5(18,18)
     * -R5(18,19)*TWO+R4(14,15)*THREE+R4(14,16)*SIX+R4(12,39)
     * +R4(12,40)*TWO-R3(9,16)*THREE-R3(9,17)*SIX-R3(7,49)-R3(7,50)*TWO
     * +R2(6,38)*THREE+R2(6,39)*SIX-R1(2,27)*THREE-R1(2,28)*SIX)*XZ+(
     * +R6(18,11)*TWO+R6(18,12)-R5(12,19)*TWO-R5(12,20)+R4(9,16)*SIX
     * +R4(9,17)*THREE-R3(5,17)*SIX-R3(5,18)*THREE)*ZZ+(+R5(18,23)*TWO
     * +R5(18,24)-R4(12,36)*TWO-R4(12,37)+R3(9,29)*SIX+R3(9,30)*THREE
     * -R2(6,27)*SIX-R2(6,28)*THREE)*XZZ+(+R5(12,24)-R4(7,37)
     * +R3(5,30)*THREE-R2(4,28)*THREE)*ZZZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XZZZ
      F(6,3,2,6)= R8(41)-R7(32,2)+R6(26,1)*THREE+R6(24,9)*THREE
     * -R5(19,2)*THREE-R5(17,17)*THREE+R4(13,14)*NINE-R3(8,15)*NINE+(
     * +R7(32,3)+R7(32,4)*TWO-R6(24,7)-R6(24,8)*TWO+R5(19,5)*THREE
     * +R5(19,6)*SIX+R5(17,21)+R5(17,22)*TWO-R4(13,8)*THREE-R4(13,9)*SIX
     * -R4(11,34)-R4(11,35)*TWO+R3(8,27)*THREE+R3(8,28)*SIX
     * -R2(2,25)*THREE-R2(2,26)*SIX)*QZ+(+R6(24,11)*TWO+R6(24,12)
     * -R5(17,19)*TWO-R5(17,20)+R4(13,16)*SIX+R4(13,17)*THREE
     * -R3(8,17)*SIX-R3(8,18)*THREE)*ZZ+(+R5(17,24)-R4(11,37)
     * +R3(8,30)*THREE-R2(2,28)*THREE)*ZZZ
      F(1,4,2,6)= R8(17)-R7(11,2)+R6(8,1)*THREE+R6(17,9)*THREE
     * -R5(4,2)*THREE-R5(11,17)*THREE+R4(8,14)*NINE-R3(4,15)*NINE+(
     * +R7(17,3)*TWO+R7(17,4)-R6(11,7)*TWO-R6(11,8)+R5(8,5)*SIX
     * +R5(8,6)*THREE+R5(17,21)*TWO+R5(17,22)-R4(4,8)*SIX-R4(4,9)*THREE
     * -R4(11,34)*TWO-R4(11,35)+R3(8,27)*SIX+R3(8,28)*THREE-R2(2,25)*SIX
     * -R2(2,26)*THREE)*QX+(+R6(17,10)+R6(17,11)*TWO-R5(11,18)
     * -R5(11,19)*TWO+R4(8,15)*THREE+R4(8,16)*SIX-R3(4,16)*THREE
     * -R3(4,17)*SIX)*XX+(+R5(17,23)-R4(11,36)+R3(8,29)*THREE
     * -R2(2,27)*THREE)*XXX
      F(2,4,2,6)= R8(30)-R7(22,2)+R6(17,1)*THREE+R6(17,9)*THREE
     * -R5(11,2)*THREE-R5(11,17)*THREE+R4(8,14)*NINE-R3(4,15)*NINE+(
     * +R7(30,4)-R6(22,8)+R5(17,6)*THREE+R5(17,22)*THREE-R4(11,9)*THREE
     * -R4(11,35)*THREE+R3(8,28)*NINE-R2(2,26)*NINE)*QX
      F(3,4,2,6)= R8(32)-R7(24,2)+R6(19,1)*THREE+R6(17,9)-R5(13,2)*THREE
     * -R5(11,17)+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(32,4)-R6(24,8)
     * +R5(19,6)*THREE+R5(17,22)-R4(13,9)*THREE-R4(11,35)+R3(8,28)*THREE
     * -R2(2,26)*THREE)*QX+(+R7(24,3)*TWO-R6(17,7)*TWO+R5(13,5)*SIX
     * -R4(8,8)*SIX)*QZ+(+R6(24,11)*TWO-R5(17,19)*TWO+R4(13,16)*SIX
     * -R3(8,17)*SIX)*XZ+(+R6(17,10)-R5(11,18)+R4(8,15)*THREE
     * -R3(4,16)*THREE)*ZZ+(+R5(17,23)-R4(11,36)+R3(8,29)*THREE
     * -R2(2,27)*THREE)*XZZ
      F(4,4,2,6)= R8(23)-R7(16,2)+R6(12,1)*THREE+R6(12,9)+R6(23,9)
     * -R5(7,2)*THREE-R5(7,17)-R5(16,17)+R4(5,14)*THREE+R4(12,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(7,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(23,3)+R7(23,4)-R6(16,7)-R6(16,8)
     * +R5(12,5)*THREE+R5(12,6)*THREE+R5(12,21)+R5(12,22)-R4(7,8)*THREE
     * -R4(7,9)*THREE-R4(7,34)-R4(7,35)+R3(5,27)*THREE+R3(5,28)*THREE
     * -R2(4,25)*THREE-R2(4,26)*THREE)*QX+(+R6(23,11)-R5(16,19)
     * +R4(12,16)*THREE+R4(12,40)-R3(7,17)*THREE-R3(7,50)+R2(6,39)*THREE
     * -R1(2,28)*THREE)*XX
      F(5,4,2,6)= R8(24)-R7(17,2)+R6(13,1)*THREE+R6(24,9)-R5(8,2)*THREE
     * -R5(17,17)+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(24,3)+R7(24,4)
     * -R6(17,7)-R6(17,8)+R5(13,5)*THREE+R5(13,6)*THREE-R4(8,8)*THREE
     * -R4(8,9)*THREE)*QX+(+R7(17,3)-R6(11,7)+R5(8,5)*THREE+R5(17,21)
     * -R4(4,8)*THREE-R4(11,34)+R3(8,27)*THREE-R2(2,25)*THREE)*QZ+(
     * +R6(24,11)-R5(17,19)+R4(13,16)*THREE-R3(8,17)*THREE)*XX+(
     * +R6(17,10)+R6(17,11)-R5(11,18)-R5(11,19)+R4(8,15)*THREE
     * +R4(8,16)*THREE-R3(4,16)*THREE-R3(4,17)*THREE)*XZ+(+R5(17,23)
     * -R4(11,36)+R3(8,29)*THREE-R2(2,27)*THREE)*XXZ
      F(6,4,2,6)= R8(31)-R7(23,2)+R6(18,1)*THREE+R6(18,9)-R5(12,2)*THREE
     * -R5(12,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(31,4)-R6(23,8)
     * +R5(18,6)*THREE+R5(18,22)-R4(12,9)*THREE-R4(12,35)+R3(9,28)*THREE
     * -R2(6,26)*THREE)*QX+(+R7(23,3)-R6(16,7)+R5(12,5)*THREE+R5(12,21)
     * -R4(7,8)*THREE-R4(7,34)+R3(5,27)*THREE-R2(4,25)*THREE)*QZ+(
     * +R6(23,11)-R5(16,19)+R4(12,16)*THREE+R4(12,40)-R3(7,17)*THREE
     * -R3(7,50)+R2(6,39)*THREE-R1(2,28)*THREE)*XZ
      F(1,5,2,6)= R8(18)-R7(12,2)+R6(9,1)*THREE+R6(18,9)*THREE
     * -R5(5,2)*THREE-R5(12,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(18,3)*TWO+R7(18,4)-R6(12,7)*TWO-R6(12,8)+R5(9,5)*SIX
     * +R5(9,6)*THREE+R5(18,21)*TWO+R5(18,22)-R4(5,8)*SIX-R4(5,9)*THREE
     * -R4(12,34)*TWO-R4(12,35)+R3(9,27)*SIX+R3(9,28)*THREE-R2(6,25)*SIX
     * -R2(6,26)*THREE)*QX+(+R7(12,4)-R6(7,8)+R5(5,6)*THREE
     * +R5(12,22)*THREE-R4(2,9)*THREE-R4(7,35)*THREE+R3(5,28)*NINE
     * -R2(4,26)*NINE)*QZ+(+R6(18,10)+R6(18,11)*TWO-R5(12,18)
     * -R5(12,19)*TWO+R4(9,15)*THREE+R4(9,16)*SIX-R3(5,16)*THREE
     * -R3(5,17)*SIX)*XX+(+R6(12,11)*TWO+R6(12,12)-R5(7,19)*TWO-R5(7,20)
     * +R4(5,16)*SIX+R4(5,17)*THREE+R4(12,40)*TWO+R4(12,41)-R3(2,17)*SIX
     * -R3(2,18)*THREE-R3(7,50)*TWO-R3(7,51)+R2(6,39)*SIX+R2(6,40)*THREE
     * -R1(2,28)*SIX-R1(2,29)*THREE)*XZ+(+R5(18,23)-R4(12,36)
     * +R3(9,29)*THREE-R2(6,27)*THREE)*XXX+(+R5(12,23)+R5(12,24)*TWO
     * -R4(7,36)-R4(7,37)*TWO+R3(5,29)*THREE+R3(5,30)*SIX-R2(4,27)*THREE
     * -R2(4,28)*SIX)*XXZ+(+R4(12,42)-R3(7,52)+R2(6,41)*THREE
     * -R1(2,30)*THREE)*XXXZ
      F(2,5,2,6)= R8(31)-R7(23,2)+R6(18,1)*THREE+R6(18,9)-R5(12,2)*THREE
     * -R5(12,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(31,4)-R6(23,8)
     * +R5(18,6)*THREE+R5(18,22)-R4(12,9)*THREE-R4(12,35)+R3(9,28)*THREE
     * -R2(6,26)*THREE)*QX+(+R7(23,4)-R6(16,8)+R5(12,6)*THREE+R5(12,22)
     * -R4(7,9)*THREE-R4(7,35)+R3(5,28)*THREE-R2(4,26)*THREE)*QZ+(
     * +R6(23,12)-R5(16,20)+R4(12,17)*THREE+R4(12,41)-R3(7,18)*THREE
     * -R3(7,51)+R2(6,40)*THREE-R1(2,29)*THREE)*XZ
      F(3,5,2,6)= R8(33)-R7(25,2)+R6(20,1)*THREE+R6(18,9)*THREE
     * -R5(14,2)*THREE-R5(12,17)*THREE+R4(9,14)*NINE-R3(5,15)*NINE+(
     * +R7(33,4)-R6(25,8)+R5(20,6)*THREE+R5(18,22)*THREE-R4(14,9)*THREE
     * -R4(12,35)*THREE+R3(9,28)*NINE-R2(6,26)*NINE)*QX+(+R7(25,3)*TWO
     * +R7(25,4)-R6(18,7)*TWO-R6(18,8)+R5(14,5)*SIX+R5(14,6)*THREE
     * +R5(12,21)*TWO+R5(12,22)-R4(9,8)*SIX-R4(9,9)*THREE-R4(7,34)*TWO
     * -R4(7,35)+R3(5,27)*SIX+R3(5,28)*THREE-R2(4,25)*SIX-R2(4,26)*THREE
     * )*QZ+(+R6(25,11)*TWO+R6(25,12)-R5(18,19)*TWO-R5(18,20)
     * +R4(14,16)*SIX+R4(14,17)*THREE+R4(12,40)*TWO+R4(12,41)
     * -R3(9,17)*SIX-R3(9,18)*THREE-R3(7,50)*TWO-R3(7,51)+R2(6,39)*SIX
     * +R2(6,40)*THREE-R1(2,28)*SIX-R1(2,29)*THREE)*XZ+(+R6(18,10)
     * +R6(18,11)*TWO-R5(12,18)-R5(12,19)*TWO+R4(9,15)*THREE
     * +R4(9,16)*SIX-R3(5,16)*THREE-R3(5,17)*SIX)*ZZ+(+R5(18,23)
     * +R5(18,24)*TWO-R4(12,36)-R4(12,37)*TWO+R3(9,29)*THREE
     * +R3(9,30)*SIX-R2(6,27)*THREE-R2(6,28)*SIX)*XZZ+(+R5(12,23)
     * -R4(7,36)+R3(5,29)*THREE-R2(4,27)*THREE)*ZZZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XZZZ
      F(4,5,2,6)= R8(24)-R7(17,2)+R6(13,1)*THREE+R6(24,9)-R5(8,2)*THREE
     * -R5(17,17)+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(24,3)+R7(24,4)
     * -R6(17,7)-R6(17,8)+R5(13,5)*THREE+R5(13,6)*THREE-R4(8,8)*THREE
     * -R4(8,9)*THREE)*QX+(+R7(17,4)-R6(11,8)+R5(8,6)*THREE+R5(17,22)
     * -R4(4,9)*THREE-R4(11,35)+R3(8,28)*THREE-R2(2,26)*THREE)*QZ+(
     * +R6(24,11)-R5(17,19)+R4(13,16)*THREE-R3(8,17)*THREE)*XX+(
     * +R6(17,11)+R6(17,12)-R5(11,19)-R5(11,20)+R4(8,16)*THREE
     * +R4(8,17)*THREE-R3(4,17)*THREE-R3(4,18)*THREE)*XZ+(+R5(17,24)
     * -R4(11,37)+R3(8,30)*THREE-R2(2,28)*THREE)*XXZ
      F(5,5,2,6)= R8(25)-R7(18,2)+R6(14,1)*THREE+R6(12,9)+R6(25,9)
     * -R5(9,2)*THREE-R5(7,17)-R5(18,17)+R4(5,14)*THREE+R4(14,14)*THREE
     * +R4(12,38)-R3(2,15)*THREE-R3(9,15)*THREE-R3(7,48)+R2(6,37)*THREE
     * -R1(2,26)*THREE+(+R7(25,3)+R7(25,4)-R6(18,7)-R6(18,8)
     * +R5(14,5)*THREE+R5(14,6)*THREE+R5(12,21)+R5(12,22)-R4(9,8)*THREE
     * -R4(9,9)*THREE-R4(7,34)-R4(7,35)+R3(5,27)*THREE+R3(5,28)*THREE
     * -R2(4,25)*THREE-R2(4,26)*THREE)*QX+(+R7(18,3)+R7(18,4)-R6(12,7)
     * -R6(12,8)+R5(9,5)*THREE+R5(9,6)*THREE+R5(18,21)+R5(18,22)
     * -R4(5,8)*THREE-R4(5,9)*THREE-R4(12,34)-R4(12,35)+R3(9,27)*THREE
     * +R3(9,28)*THREE-R2(6,25)*THREE-R2(6,26)*THREE)*QZ+(+R6(25,11)
     * -R5(18,19)+R4(14,16)*THREE+R4(12,40)-R3(9,17)*THREE-R3(7,50)
     * +R2(6,39)*THREE-R1(2,28)*THREE)*XX
      F(5,5,2,6)= F(5,5,2,6)+(+R6(18,10)+R6(18,11)*TWO
     * +R6(18,12)-R5(12,18)-R5(12,19)*TWO-R5(12,20)+R4(9,15)*THREE
     * +R4(9,16)*SIX+R4(9,17)*THREE-R3(5,16)*THREE-R3(5,17)*SIX
     * -R3(5,18)*THREE)*XZ+(+R6(12,11)-R5(7,19)+R4(5,16)*THREE+R4(12,40)
     * -R3(2,17)*THREE-R3(7,50)+R2(6,39)*THREE-R1(2,28)*THREE)*ZZ+(
     * +R5(18,23)+R5(18,24)-R4(12,36)-R4(12,37)+R3(9,29)*THREE
     * +R3(9,30)*THREE-R2(6,27)*THREE-R2(6,28)*THREE)*XXZ+(+R5(12,23)
     * +R5(12,24)-R4(7,36)-R4(7,37)+R3(5,29)*THREE+R3(5,30)*THREE
     * -R2(4,27)*THREE-R2(4,28)*THREE)*XZZ+(+R4(12,42)-R3(7,52)
     * +R2(6,41)*THREE-R1(2,30)*THREE)*XXZZ
      F(6,5,2,6)= R8(32)-R7(24,2)+R6(19,1)*THREE+R6(17,9)-R5(13,2)*THREE
     * -R5(11,17)+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(32,4)-R6(24,8)
     * +R5(19,6)*THREE+R5(17,22)-R4(13,9)*THREE-R4(11,35)+R3(8,28)*THREE
     * -R2(2,26)*THREE)*QX+(+R7(24,3)+R7(24,4)-R6(17,7)-R6(17,8)
     * +R5(13,5)*THREE+R5(13,6)*THREE-R4(8,8)*THREE-R4(8,9)*THREE)*QZ+(
     * +R6(24,11)+R6(24,12)-R5(17,19)-R5(17,20)+R4(13,16)*THREE
     * +R4(13,17)*THREE-R3(8,17)*THREE-R3(8,18)*THREE)*XZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)*THREE-R3(4,17)*THREE)*ZZ+(+R5(17,24)
     * -R4(11,37)+R3(8,30)*THREE-R2(2,28)*THREE)*XZZ
      F(1,6,2,6)= R8(24)-R7(17,2)+R6(13,1)*THREE+R6(24,9)-R5(8,2)*THREE
     * -R5(17,17)+R4(13,14)*THREE-R3(8,15)*THREE+(+R7(24,3)*TWO
     * -R6(17,7)*TWO+R5(13,5)*SIX-R4(8,8)*SIX)*QX+(+R7(17,4)-R6(11,8)
     * +R5(8,6)*THREE+R5(17,22)-R4(4,9)*THREE-R4(11,35)+R3(8,28)*THREE
     * -R2(2,26)*THREE)*QZ+(+R6(24,10)-R5(17,18)+R4(13,15)*THREE
     * -R3(8,16)*THREE)*XX+(+R6(17,11)*TWO-R5(11,19)*TWO+R4(8,16)*SIX
     * -R3(4,17)*SIX)*XZ+(+R5(17,23)-R4(11,36)+R3(8,29)*THREE
     * -R2(2,27)*THREE)*XXZ
      F(2,6,2,6)= R8(39)-R7(30,2)+R6(24,1)*THREE+R6(24,9)*THREE
     * -R5(17,2)*THREE-R5(17,17)*THREE+R4(13,14)*NINE-R3(8,15)*NINE+(
     * +R7(30,4)-R6(22,8)+R5(17,6)*THREE+R5(17,22)*THREE-R4(11,9)*THREE
     * -R4(11,35)*THREE+R3(8,28)*NINE-R2(2,26)*NINE)*QZ
      F(3,6,2,6)= R8(41)-R7(32,2)+R6(26,1)*THREE+R6(24,9)*THREE
     * -R5(19,2)*THREE-R5(17,17)*THREE+R4(13,14)*NINE-R3(8,15)*NINE+(
     * +R7(32,3)*TWO+R7(32,4)-R6(24,7)*TWO-R6(24,8)+R5(19,5)*SIX
     * +R5(19,6)*THREE+R5(17,21)*TWO+R5(17,22)-R4(13,8)*SIX
     * -R4(13,9)*THREE-R4(11,34)*TWO-R4(11,35)+R3(8,27)*SIX
     * +R3(8,28)*THREE-R2(2,25)*SIX-R2(2,26)*THREE)*QZ+(+R6(24,10)
     * +R6(24,11)*TWO-R5(17,18)-R5(17,19)*TWO+R4(13,15)*THREE
     * +R4(13,16)*SIX-R3(8,16)*THREE-R3(8,17)*SIX)*ZZ+(+R5(17,23)
     * -R4(11,36)+R3(8,29)*THREE-R2(2,27)*THREE)*ZZZ
      F(4,6,2,6)= R8(31)-R7(23,2)+R6(18,1)*THREE+R6(18,9)-R5(12,2)*THREE
     * -R5(12,17)+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(31,3)-R6(23,7)
     * +R5(18,5)*THREE+R5(18,21)-R4(12,8)*THREE-R4(12,34)+R3(9,27)*THREE
     * -R2(6,25)*THREE)*QX+(+R7(23,4)-R6(16,8)+R5(12,6)*THREE+R5(12,22)
     * -R4(7,9)*THREE-R4(7,35)+R3(5,28)*THREE-R2(4,26)*THREE)*QZ+(
     * +R6(23,11)-R5(16,19)+R4(12,16)*THREE+R4(12,40)-R3(7,17)*THREE
     * -R3(7,50)+R2(6,39)*THREE-R1(2,28)*THREE)*XZ
      F(5,6,2,6)= R8(32)-R7(24,2)+R6(19,1)*THREE+R6(17,9)-R5(13,2)*THREE
     * -R5(11,17)+R4(8,14)*THREE-R3(4,15)*THREE+(+R7(32,3)-R6(24,7)
     * +R5(19,5)*THREE+R5(17,21)-R4(13,8)*THREE-R4(11,34)+R3(8,27)*THREE
     * -R2(2,25)*THREE)*QX+(+R7(24,3)+R7(24,4)-R6(17,7)-R6(17,8)
     * +R5(13,5)*THREE+R5(13,6)*THREE-R4(8,8)*THREE-R4(8,9)*THREE)*QZ+(
     * +R6(24,10)+R6(24,11)-R5(17,18)-R5(17,19)+R4(13,15)*THREE
     * +R4(13,16)*THREE-R3(8,16)*THREE-R3(8,17)*THREE)*XZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)*THREE-R3(4,17)*THREE)*ZZ+(+R5(17,23)
     * -R4(11,36)+R3(8,29)*THREE-R2(2,27)*THREE)*XZZ
      F(6,6,2,6)= R8(40)-R7(31,2)+R6(25,1)*THREE+R6(23,9)+R6(25,9)
     * -R5(18,2)*THREE-R5(16,17)-R5(18,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,38)-R3(7,15)*THREE-R3(9,15)*THREE-R3(7,48)
     * +R2(6,37)*THREE-R1(2,26)*THREE+(+R7(31,3)+R7(31,4)-R6(23,7)
     * -R6(23,8)+R5(18,5)*THREE+R5(18,6)*THREE+R5(18,21)+R5(18,22)
     * -R4(12,8)*THREE-R4(12,9)*THREE-R4(12,34)-R4(12,35)+R3(9,27)*THREE
     * +R3(9,28)*THREE-R2(6,25)*THREE-R2(6,26)*THREE)*QZ+(+R6(23,11)
     * -R5(16,19)+R4(12,16)*THREE+R4(12,40)-R3(7,17)*THREE-R3(7,50)
     * +R2(6,39)*THREE-R1(2,28)*THREE)*ZZ
      F(1,1,3,6)= R8(14)-R7(9,1)*TWO-R7(9,2)+R6(5,1)*THREE+R6(5,2)
     * +R6(5,3)*TWO+R6(14,9)*SIX-R5(2,1)*TWO-R5(2,2)-R5(2,3)
     * -R5(9,13)*TWELV-R5(9,17)*SIX+R4(5,14)*P18+R4(5,18)*SIX
     * +R4(5,22)*TWELV+R4(14,38)*THREE-R3(2,11)*TWELV-R3(2,15)*SIX
     * -R3(2,19)*SIX-R3(9,43)*SIX-R3(9,48)*THREE+R2(6,37)*NINE
     * +R2(6,42)*THREE+R2(6,47)*SIX-R1(2,21)*SIX-R1(2,26)*THREE
     * -R1(2,31)*THREE+(+R7(14,3)*TWO+R7(14,4)*TWO-R6(9,5)*FOUR
     * -R6(9,6)*FOUR-R6(9,7)*TWO-R6(9,8)*TWO+R5(5,5)*SIX+R5(5,6)*SIX
     * +R5(5,7)*TWO+R5(5,8)*TWO+R5(5,9)*FOUR+R5(5,10)*FOUR+R5(14,21)*SIX
     * +R5(14,22)*SIX-R4(2,6)*FOUR-R4(2,7)*FOUR-R4(2,8)*TWO-R4(2,9)*TWO
     * -R4(2,10)*TWO-R4(2,11)*TWO-R4(9,30)*TWELV-R4(9,31)*TWELV
     * -R4(9,34)*SIX-R4(9,35)*SIX+R3(5,27)*P18+R3(5,28)*P18+R3(5,31)*SIX
     * +R3(5,32)*SIX+R3(5,35)*TWELV+R3(5,36)*TWELV-R2(4,21)*TWELV
     * -R2(4,22)*TWELV-R2(4,25)*SIX-R2(4,26)*SIX-R2(4,29)*SIX
     * -R2(4,30)*SIX)*QX
      F(1,1,3,6)= F(1,1,3,6)+(+R6(14,10)+R6(14,11)*FOUR+R6(14,12)
     * -R5(9,14)*TWO-R5(9,15)*EIGHT-R5(9,16)*TWO-R5(9,18)-R5(9,19)*FOUR
     * -R5(9,20)+R4(5,15)*THREE+R4(5,16)*TWELV+R4(5,17)*THREE+R4(5,19)
     * +R4(5,20)*FOUR+R4(5,21)+R4(5,23)*TWO+R4(5,24)*EIGHT+R4(5,25)*TWO
     * +R4(14,39)+R4(14,40)*FOUR+R4(14,41)-R3(2,12)*TWO-R3(2,13)*EIGHT
     * -R3(2,14)*TWO-R3(2,16)-R3(2,17)*FOUR-R3(2,18)-R3(2,20)
     * -R3(2,21)*FOUR-R3(2,22)-R3(9,44)*TWO-R3(9,45)*EIGHT-R3(9,46)*TWO
     * -R3(9,49)-R3(9,50)*FOUR-R3(9,51)+R2(6,38)*THREE+R2(6,39)*TWELV
     * +R2(6,40)*THREE+R2(6,43)+R2(6,44)*FOUR+R2(6,45)+R2(6,48)*TWO
     * +R2(6,49)*EIGHT+R2(6,50)*TWO-R1(2,22)*TWO-R1(2,23)*EIGHT
     * -R1(2,24)*TWO-R1(2,27)-R1(2,28)*FOUR-R1(2,29)-R1(2,32)
     * -R1(2,33)*FOUR-R1(2,34))*XX+(+R5(14,23)*TWO+R5(14,24)*TWO
     * -R4(9,32)*FOUR-R4(9,33)*FOUR-R4(9,36)*TWO-R4(9,37)*TWO
     * +R3(5,29)*SIX+R3(5,30)*SIX+R3(5,33)*TWO+R3(5,34)*TWO
     * +R3(5,37)*FOUR+R3(5,38)*FOUR-R2(4,23)*FOUR-R2(4,24)*FOUR
     * -R2(4,27)*TWO-R2(4,28)*TWO-R2(4,31)*TWO-R2(4,32)*TWO)*XXX+(
     * +R4(14,42)-R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)
     * +R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)-R1(2,35))*XXXX
      F(2,1,3,6)= R8(25)-R7(18,1)*TWO-R7(18,2)+R6(12,1)*THREE+R6(12,2)
     * +R6(12,3)*TWO+R6(14,9)+R6(25,9)-R5(7,1)*TWO-R5(7,2)-R5(7,3)
     * -R5(9,13)*TWO-R5(18,13)*TWO-R5(9,17)-R5(18,17)+R4(5,14)*THREE
     * +R4(12,14)*THREE+R4(5,18)+R4(12,18)+R4(5,22)*TWO+R4(12,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(7,11)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(25,4)*TWO
     * -R6(18,6)*FOUR-R6(18,8)*TWO+R5(12,6)*SIX+R5(12,8)*TWO
     * +R5(12,10)*FOUR+R5(14,22)*TWO-R4(7,7)*FOUR-R4(7,9)*TWO
     * -R4(7,11)*TWO-R4(9,31)*FOUR-R4(9,35)*TWO+R3(5,28)*SIX
     * +R3(5,32)*TWO+R3(5,36)*FOUR-R2(4,22)*FOUR-R2(4,26)*TWO
     * -R2(4,30)*TWO)*QX+(+R6(25,12)-R5(18,16)*TWO-R5(18,20)
     * +R4(12,17)*THREE+R4(12,21)+R4(12,25)*TWO+R4(14,41)-R3(7,14)*TWO
     * -R3(7,18)-R3(7,22)-R3(9,46)*TWO-R3(9,51)+R2(6,40)*THREE+R2(6,45)
     * +R2(6,50)*TWO-R1(2,24)*TWO-R1(2,29)-R1(2,34))*XX
      F(3,1,3,6)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)+R6(27,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)
     * -R5(9,13)*TWO-R5(20,13)*TWO-R5(9,17)-R5(20,17)+R4(5,14)*THREE
     * +R4(14,14)*THREE+R4(5,18)+R4(14,18)+R4(5,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(9,11)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(27,4)*TWO
     * -R6(20,6)*FOUR-R6(20,8)*TWO+R5(14,6)*SIX+R5(14,8)*TWO
     * +R5(14,10)*FOUR+R5(14,22)*TWO-R4(9,7)*FOUR-R4(9,9)*TWO
     * -R4(9,11)*TWO-R4(9,31)*FOUR-R4(9,35)*TWO+R3(5,28)*SIX
     * +R3(5,32)*TWO+R3(5,36)*FOUR-R2(4,22)*FOUR-R2(4,26)*TWO
     * -R2(4,30)*TWO)*QX+(+R7(20,3)*TWO-R6(14,5)*FOUR-R6(14,7)*TWO
     * +R5(9,5)*SIX+R5(9,7)*TWO+R5(9,9)*FOUR+R5(20,21)*TWO-R4(5,6)*FOUR
     * -R4(5,8)*TWO-R4(5,10)*TWO-R4(14,30)*FOUR-R4(14,34)*TWO
     * +R3(9,27)*SIX+R3(9,31)*TWO+R3(9,35)*FOUR-R2(6,21)*FOUR
     * -R2(6,25)*TWO-R2(6,29)*TWO)*QZ
      F(3,1,3,6)= F(3,1,3,6)+(+R6(27,12)-R5(20,16)*TWO
     * -R5(20,20)+R4(14,17)*THREE+R4(14,21)+R4(14,25)*TWO+R4(14,41)
     * -R3(9,14)*TWO-R3(9,18)-R3(9,22)-R3(9,46)*TWO-R3(9,51)
     * +R2(6,40)*THREE+R2(6,45)+R2(6,50)*TWO-R1(2,24)*TWO-R1(2,29)
     * -R1(2,34))*XX+(+R6(20,11)*FOUR-R5(14,15)*EIGHT-R5(14,19)*FOUR
     * +R4(9,16)*TWELV+R4(9,20)*FOUR+R4(9,24)*EIGHT-R3(5,13)*EIGHT
     * -R3(5,17)*FOUR-R3(5,21)*FOUR)*XZ+(+R6(14,10)-R5(9,14)*TWO
     * -R5(9,18)+R4(5,15)*THREE+R4(5,19)+R4(5,23)*TWO+R4(14,39)
     * -R3(2,12)*TWO-R3(2,16)-R3(2,20)-R3(9,44)*TWO-R3(9,49)
     * +R2(6,38)*THREE+R2(6,43)+R2(6,48)*TWO-R1(2,22)*TWO-R1(2,27)
     * -R1(2,32))*ZZ+(+R5(20,24)*TWO-R4(14,33)*FOUR-R4(14,37)*TWO
     * +R3(9,30)*SIX+R3(9,34)*TWO+R3(9,38)*FOUR-R2(6,24)*FOUR
     * -R2(6,28)*TWO-R2(6,32)*TWO)*XXZ+(+R5(14,23)*TWO-R4(9,32)*FOUR
     * -R4(9,36)*TWO+R3(5,29)*SIX+R3(5,33)*TWO+R3(5,37)*FOUR
     * -R2(4,23)*FOUR-R2(4,27)*TWO-R2(4,31)*TWO)*XZZ+(+R4(14,42)
     * -R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)+R2(6,51)*TWO
     * -R1(2,25)*TWO-R1(2,30)-R1(2,35))*XXZZ
      F(4,1,3,6)= R8(19)-R7(13,1)*TWO-R7(13,2)+R6(8,1)*THREE+R6(8,2)
     * +R6(8,3)*TWO+R6(19,9)*THREE-R5(4,1)*TWO-R5(4,2)-R5(4,3)
     * -R5(13,13)*SIX-R5(13,17)*THREE+R4(8,14)*NINE+R4(8,18)*THREE
     * +R4(8,22)*SIX-R3(4,11)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * +R7(19,3)+R7(19,4)*TWO-R6(13,5)*TWO-R6(13,6)*FOUR-R6(13,7)
     * -R6(13,8)*TWO+R5(8,5)*THREE+R5(8,6)*SIX+R5(8,7)+R5(8,8)*TWO
     * +R5(8,9)*TWO+R5(8,10)*FOUR+R5(19,21)+R5(19,22)*TWO-R4(4,6)*TWO
     * -R4(4,7)*FOUR-R4(4,8)-R4(4,9)*TWO-R4(4,10)-R4(4,11)*TWO
     * -R4(13,30)*TWO-R4(13,31)*FOUR-R4(13,34)-R4(13,35)*TWO
     * +R3(8,27)*THREE+R3(8,28)*SIX+R3(8,31)+R3(8,32)*TWO+R3(8,35)*TWO
     * +R3(8,36)*FOUR-R2(2,21)*TWO-R2(2,22)*FOUR-R2(2,25)-R2(2,26)*TWO
     * -R2(2,29)-R2(2,30)*TWO)*QX+(+R6(19,11)*TWO+R6(19,12)
     * -R5(13,15)*FOUR-R5(13,16)*TWO-R5(13,19)*TWO-R5(13,20)
     * +R4(8,16)*SIX+R4(8,17)*THREE+R4(8,20)*TWO+R4(8,21)+R4(8,24)*FOUR
     * +R4(8,25)*TWO-R3(4,13)*FOUR-R3(4,14)*TWO-R3(4,17)*TWO-R3(4,18)
     * -R3(4,21)*TWO-R3(4,22))*XX+(+R5(19,24)-R4(13,33)*TWO-R4(13,37)
     * +R3(8,30)*THREE+R3(8,34)+R3(8,38)*TWO-R2(2,24)*TWO-R2(2,28)
     * -R2(2,32))*XXX
      F(5,1,3,6)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)*THREE-R5(5,1)*TWO-R5(5,2)-R5(5,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(20,3)+R7(20,4)*TWO-R6(14,5)*TWO-R6(14,6)*FOUR-R6(14,7)
     * -R6(14,8)*TWO+R5(9,5)*THREE+R5(9,6)*SIX+R5(9,7)+R5(9,8)*TWO
     * +R5(9,9)*TWO+R5(9,10)*FOUR+R5(20,21)+R5(20,22)*TWO-R4(5,6)*TWO
     * -R4(5,7)*FOUR-R4(5,8)-R4(5,9)*TWO-R4(5,10)-R4(5,11)*TWO
     * -R4(14,30)*TWO-R4(14,31)*FOUR-R4(14,34)-R4(14,35)*TWO
     * +R3(9,27)*THREE+R3(9,28)*SIX+R3(9,31)+R3(9,32)*TWO+R3(9,35)*TWO
     * +R3(9,36)*FOUR-R2(6,21)*TWO-R2(6,22)*FOUR-R2(6,25)-R2(6,26)*TWO
     * -R2(6,29)-R2(6,30)*TWO)*QX+(+R7(14,3)-R6(9,5)*TWO-R6(9,7)
     * +R5(5,5)*THREE+R5(5,7)+R5(5,9)*TWO+R5(14,21)*THREE-R4(2,6)*TWO
     * -R4(2,8)-R4(2,10)-R4(9,30)*SIX-R4(9,34)*THREE+R3(5,27)*NINE
     * +R3(5,31)*THREE+R3(5,35)*SIX-R2(4,21)*SIX-R2(4,25)*THREE
     * -R2(4,29)*THREE)*QZ
      F(5,1,3,6)= F(5,1,3,6)+(+R6(20,11)*TWO+R6(20,12)-R5(14,15)*FOUR
     * -R5(14,16)*TWO-R5(14,19)*TWO-R5(14,20)+R4(9,16)*SIX
     * +R4(9,17)*THREE+R4(9,20)*TWO+R4(9,21)+R4(9,24)*FOUR+R4(9,25)*TWO
     * -R3(5,13)*FOUR-R3(5,14)*TWO-R3(5,17)*TWO-R3(5,18)-R3(5,21)*TWO
     * -R3(5,22))*XX+(+R6(14,10)+R6(14,11)*TWO-R5(9,14)*TWO
     * -R5(9,15)*FOUR-R5(9,18)-R5(9,19)*TWO+R4(5,15)*THREE+R4(5,16)*SIX
     * +R4(5,19)+R4(5,20)*TWO+R4(5,23)*TWO+R4(5,24)*FOUR+R4(14,39)
     * +R4(14,40)*TWO-R3(2,12)*TWO-R3(2,13)*FOUR-R3(2,16)-R3(2,17)*TWO
     * -R3(2,20)-R3(2,21)*TWO-R3(9,44)*TWO-R3(9,45)*FOUR-R3(9,49)
     * -R3(9,50)*TWO+R2(6,38)*THREE+R2(6,39)*SIX+R2(6,43)+R2(6,44)*TWO
     * +R2(6,48)*TWO+R2(6,49)*FOUR-R1(2,22)*TWO-R1(2,23)*FOUR-R1(2,27)
     * -R1(2,28)*TWO-R1(2,32)-R1(2,33)*TWO)*XZ+(+R5(20,24)-R4(14,33)*TWO
     * -R4(14,37)+R3(9,30)*THREE+R3(9,34)+R3(9,38)*TWO-R2(6,24)*TWO
     * -R2(6,28)-R2(6,32))*XXX+(+R5(14,23)*TWO+R5(14,24)-R4(9,32)*FOUR
     * -R4(9,33)*TWO-R4(9,36)*TWO-R4(9,37)+R3(5,29)*SIX+R3(5,30)*THREE
     * +R3(5,33)*TWO+R3(5,34)+R3(5,37)*FOUR+R3(5,38)*TWO-R2(4,23)*FOUR
     * -R2(4,24)*TWO-R2(4,27)*TWO-R2(4,28)-R2(4,31)*TWO-R2(4,32))*XXZ+(
     * +R4(14,42)-R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)
     * +R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)-R1(2,35))*XXXZ
      F(6,1,3,6)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(26,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(19,13)*TWO
     * -R5(19,17)+R4(13,14)*THREE+R4(13,18)+R4(13,22)*TWO-R3(8,11)*TWO
     * -R3(8,15)-R3(8,19)+(+R7(26,4)*TWO-R6(19,6)*FOUR-R6(19,8)*TWO
     * +R5(13,6)*SIX+R5(13,8)*TWO+R5(13,10)*FOUR-R4(8,7)*FOUR
     * -R4(8,9)*TWO-R4(8,11)*TWO)*QX+(+R7(19,3)-R6(13,5)*TWO-R6(13,7)
     * +R5(8,5)*THREE+R5(8,7)+R5(8,9)*TWO+R5(19,21)-R4(4,6)*TWO-R4(4,8)
     * -R4(4,10)-R4(13,30)*TWO-R4(13,34)+R3(8,27)*THREE+R3(8,31)
     * +R3(8,35)*TWO-R2(2,21)*TWO-R2(2,25)-R2(2,29))*QZ+(+R6(26,12)
     * -R5(19,16)*TWO-R5(19,20)+R4(13,17)*THREE+R4(13,21)+R4(13,25)*TWO
     * -R3(8,14)*TWO-R3(8,18)-R3(8,22))*XX+(+R6(19,11)*TWO
     * -R5(13,15)*FOUR-R5(13,19)*TWO+R4(8,16)*SIX+R4(8,20)*TWO
     * +R4(8,24)*FOUR-R3(4,13)*FOUR-R3(4,17)*TWO-R3(4,21)*TWO)*XZ+(
     * +R5(19,24)-R4(13,33)*TWO-R4(13,37)+R3(8,30)*THREE+R3(8,34)
     * +R3(8,38)*TWO-R2(2,24)*TWO-R2(2,28)-R2(2,32))*XXZ
      F(1,2,3,6)= R8(25)-R7(18,1)*TWO-R7(18,2)+R6(12,1)*THREE+R6(12,2)
     * +R6(12,3)*TWO+R6(14,9)+R6(25,9)-R5(7,1)*TWO-R5(7,2)-R5(7,3)
     * -R5(9,13)*TWO-R5(18,13)*TWO-R5(9,17)-R5(18,17)+R4(5,14)*THREE
     * +R4(12,14)*THREE+R4(5,18)+R4(12,18)+R4(5,22)*TWO+R4(12,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(7,11)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(25,3)*TWO
     * -R6(18,5)*FOUR-R6(18,7)*TWO+R5(12,5)*SIX+R5(12,7)*TWO
     * +R5(12,9)*FOUR+R5(14,21)*TWO-R4(7,6)*FOUR-R4(7,8)*TWO
     * -R4(7,10)*TWO-R4(9,30)*FOUR-R4(9,34)*TWO+R3(5,27)*SIX
     * +R3(5,31)*TWO+R3(5,35)*FOUR-R2(4,21)*FOUR-R2(4,25)*TWO
     * -R2(4,29)*TWO)*QX+(+R6(25,10)-R5(18,14)*TWO-R5(18,18)
     * +R4(12,15)*THREE+R4(12,19)+R4(12,23)*TWO+R4(14,39)-R3(7,12)*TWO
     * -R3(7,16)-R3(7,20)-R3(9,44)*TWO-R3(9,49)+R2(6,38)*THREE+R2(6,43)
     * +R2(6,48)*TWO-R1(2,22)*TWO-R1(2,27)-R1(2,32))*XX
      F(2,2,3,6)= R8(40)-R7(31,1)*TWO-R7(31,2)+R6(23,1)*THREE+R6(23,2)
     * +R6(23,3)*TWO+R6(25,9)*SIX-R5(16,1)*TWO-R5(16,2)-R5(16,3)
     * -R5(18,13)*TWELV-R5(18,17)*SIX+R4(12,14)*P18+R4(12,18)*SIX
     * +R4(12,22)*TWELV+R4(14,38)*THREE-R3(7,11)*TWELV-R3(7,15)*SIX
     * -R3(7,19)*SIX-R3(9,43)*SIX-R3(9,48)*THREE+R2(6,37)*NINE
     * +R2(6,42)*THREE+R2(6,47)*SIX-R1(2,21)*SIX-R1(2,26)*THREE
     * -R1(2,31)*THREE
      F(3,2,3,6)= R8(42)-R7(33,1)*TWO-R7(33,2)+R6(25,1)*THREE+R6(25,2)
     * +R6(25,3)*TWO+R6(25,9)+R6(27,9)-R5(18,1)*TWO-R5(18,2)-R5(18,3)
     * -R5(18,13)*TWO-R5(20,13)*TWO-R5(18,17)-R5(20,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,18)+R4(14,18)+R4(12,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(7,11)*TWO-R3(9,11)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(33,3)*TWO
     * -R6(25,5)*FOUR-R6(25,7)*TWO+R5(18,5)*SIX+R5(18,7)*TWO
     * +R5(18,9)*FOUR+R5(20,21)*TWO-R4(12,6)*FOUR-R4(12,8)*TWO
     * -R4(12,10)*TWO-R4(14,30)*FOUR-R4(14,34)*TWO+R3(9,27)*SIX
     * +R3(9,31)*TWO+R3(9,35)*FOUR-R2(6,21)*FOUR-R2(6,25)*TWO
     * -R2(6,29)*TWO)*QZ+(+R6(25,10)-R5(18,14)*TWO-R5(18,18)
     * +R4(12,15)*THREE+R4(12,19)+R4(12,23)*TWO+R4(14,39)-R3(7,12)*TWO
     * -R3(7,16)-R3(7,20)-R3(9,44)*TWO-R3(9,49)+R2(6,38)*THREE+R2(6,43)
     * +R2(6,48)*TWO-R1(2,22)*TWO-R1(2,27)-R1(2,32))*ZZ
      F(4,2,3,6)= R8(32)-R7(24,1)*TWO-R7(24,2)+R6(17,1)*THREE+R6(17,2)
     * +R6(17,3)*TWO+R6(19,9)*THREE-R5(11,1)*TWO-R5(11,2)-R5(11,3)
     * -R5(13,13)*SIX-R5(13,17)*THREE+R4(8,14)*NINE+R4(8,18)*THREE
     * +R4(8,22)*SIX-R3(4,11)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * +R7(32,3)-R6(24,5)*TWO-R6(24,7)+R5(17,5)*THREE+R5(17,7)
     * +R5(17,9)*TWO+R5(19,21)*THREE-R4(11,6)*TWO-R4(11,8)-R4(11,10)
     * -R4(13,30)*SIX-R4(13,34)*THREE+R3(8,27)*NINE+R3(8,31)*THREE
     * +R3(8,35)*SIX-R2(2,21)*SIX-R2(2,25)*THREE-R2(2,29)*THREE)*QX
      F(5,2,3,6)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*TWO-R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO
     * -R3(5,11)*TWO-R3(5,15)-R3(5,19)+(+R7(33,3)-R6(25,5)*TWO-R6(25,7)
     * +R5(18,5)*THREE+R5(18,7)+R5(18,9)*TWO+R5(20,21)-R4(12,6)*TWO
     * -R4(12,8)-R4(12,10)-R4(14,30)*TWO-R4(14,34)+R3(9,27)*THREE
     * +R3(9,31)+R3(9,35)*TWO-R2(6,21)*TWO-R2(6,25)-R2(6,29))*QX+(
     * +R7(25,3)-R6(18,5)*TWO-R6(18,7)+R5(12,5)*THREE+R5(12,7)
     * +R5(12,9)*TWO+R5(14,21)-R4(7,6)*TWO-R4(7,8)-R4(7,10)-R4(9,30)*TWO
     * -R4(9,34)+R3(5,27)*THREE+R3(5,31)+R3(5,35)*TWO-R2(4,21)*TWO
     * -R2(4,25)-R2(4,29))*QZ+(+R6(25,10)-R5(18,14)*TWO-R5(18,18)
     * +R4(12,15)*THREE+R4(12,19)+R4(12,23)*TWO+R4(14,39)-R3(7,12)*TWO
     * -R3(7,16)-R3(7,20)-R3(9,44)*TWO-R3(9,49)+R2(6,38)*THREE+R2(6,43)
     * +R2(6,48)*TWO-R1(2,22)*TWO-R1(2,27)-R1(2,32))*XZ
      F(6,2,3,6)= R8(41)-R7(32,1)*TWO-R7(32,2)+R6(24,1)*THREE+R6(24,2)
     * +R6(24,3)*TWO+R6(26,9)*THREE-R5(17,1)*TWO-R5(17,2)-R5(17,3)
     * -R5(19,13)*SIX-R5(19,17)*THREE+R4(13,14)*NINE+R4(13,18)*THREE
     * +R4(13,22)*SIX-R3(8,11)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * +R7(32,3)-R6(24,5)*TWO-R6(24,7)+R5(17,5)*THREE+R5(17,7)
     * +R5(17,9)*TWO+R5(19,21)*THREE-R4(11,6)*TWO-R4(11,8)-R4(11,10)
     * -R4(13,30)*SIX-R4(13,34)*THREE+R3(8,27)*NINE+R3(8,31)*THREE
     * +R3(8,35)*SIX-R2(2,21)*SIX-R2(2,25)*THREE-R2(2,29)*THREE)*QZ
      F(1,3,3,6)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)+R6(27,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)
     * -R5(9,13)*TWO-R5(20,13)*TWO-R5(9,17)-R5(20,17)+R4(5,14)*THREE
     * +R4(14,14)*THREE+R4(5,18)+R4(14,18)+R4(5,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(9,11)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(27,3)*TWO
     * -R6(20,5)*FOUR-R6(20,7)*TWO+R5(14,5)*SIX+R5(14,7)*TWO
     * +R5(14,9)*FOUR+R5(14,21)*TWO-R4(9,6)*FOUR-R4(9,8)*TWO
     * -R4(9,10)*TWO-R4(9,30)*FOUR-R4(9,34)*TWO+R3(5,27)*SIX
     * +R3(5,31)*TWO+R3(5,35)*FOUR-R2(4,21)*FOUR-R2(4,25)*TWO
     * -R2(4,29)*TWO)*QX+(+R7(20,4)*TWO-R6(14,6)*FOUR-R6(14,8)*TWO
     * +R5(9,6)*SIX+R5(9,8)*TWO+R5(9,10)*FOUR+R5(20,22)*TWO-R4(5,7)*FOUR
     * -R4(5,9)*TWO-R4(5,11)*TWO-R4(14,31)*FOUR-R4(14,35)*TWO
     * +R3(9,28)*SIX+R3(9,32)*TWO+R3(9,36)*FOUR-R2(6,22)*FOUR
     * -R2(6,26)*TWO-R2(6,30)*TWO)*QZ
      F(1,3,3,6)= F(1,3,3,6)+(+R6(27,10)-R5(20,14)*TWO
     * -R5(20,18)+R4(14,15)*THREE+R4(14,19)+R4(14,23)*TWO+R4(14,39)
     * -R3(9,12)*TWO-R3(9,16)-R3(9,20)-R3(9,44)*TWO-R3(9,49)
     * +R2(6,38)*THREE+R2(6,43)+R2(6,48)*TWO-R1(2,22)*TWO-R1(2,27)
     * -R1(2,32))*XX+(+R6(20,11)*FOUR-R5(14,15)*EIGHT-R5(14,19)*FOUR
     * +R4(9,16)*TWELV+R4(9,20)*FOUR+R4(9,24)*EIGHT-R3(5,13)*EIGHT
     * -R3(5,17)*FOUR-R3(5,21)*FOUR)*XZ+(+R6(14,12)-R5(9,16)*TWO
     * -R5(9,20)+R4(5,17)*THREE+R4(5,21)+R4(5,25)*TWO+R4(14,41)
     * -R3(2,14)*TWO-R3(2,18)-R3(2,22)-R3(9,46)*TWO-R3(9,51)
     * +R2(6,40)*THREE+R2(6,45)+R2(6,50)*TWO-R1(2,24)*TWO-R1(2,29)
     * -R1(2,34))*ZZ+(+R5(20,23)*TWO-R4(14,32)*FOUR-R4(14,36)*TWO
     * +R3(9,29)*SIX+R3(9,33)*TWO+R3(9,37)*FOUR-R2(6,23)*FOUR
     * -R2(6,27)*TWO-R2(6,31)*TWO)*XXZ+(+R5(14,24)*TWO-R4(9,33)*FOUR
     * -R4(9,37)*TWO+R3(5,30)*SIX+R3(5,34)*TWO+R3(5,38)*FOUR
     * -R2(4,24)*FOUR-R2(4,28)*TWO-R2(4,32)*TWO)*XZZ+(+R4(14,42)
     * -R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)+R2(6,51)*TWO
     * -R1(2,25)*TWO-R1(2,30)-R1(2,35))*XXZZ
      F(2,3,3,6)= R8(42)-R7(33,1)*TWO-R7(33,2)+R6(25,1)*THREE+R6(25,2)
     * +R6(25,3)*TWO+R6(25,9)+R6(27,9)-R5(18,1)*TWO-R5(18,2)-R5(18,3)
     * -R5(18,13)*TWO-R5(20,13)*TWO-R5(18,17)-R5(20,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,18)+R4(14,18)+R4(12,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(7,11)*TWO-R3(9,11)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(33,4)*TWO
     * -R6(25,6)*FOUR-R6(25,8)*TWO+R5(18,6)*SIX+R5(18,8)*TWO
     * +R5(18,10)*FOUR+R5(20,22)*TWO-R4(12,7)*FOUR-R4(12,9)*TWO
     * -R4(12,11)*TWO-R4(14,31)*FOUR-R4(14,35)*TWO+R3(9,28)*SIX
     * +R3(9,32)*TWO+R3(9,36)*FOUR-R2(6,22)*FOUR-R2(6,26)*TWO
     * -R2(6,30)*TWO)*QZ+(+R6(25,12)-R5(18,16)*TWO-R5(18,20)
     * +R4(12,17)*THREE+R4(12,21)+R4(12,25)*TWO+R4(14,41)-R3(7,14)*TWO
     * -R3(7,18)-R3(7,22)-R3(9,46)*TWO-R3(9,51)+R2(6,40)*THREE+R2(6,45)
     * +R2(6,50)*TWO-R1(2,24)*TWO-R1(2,29)-R1(2,34))*ZZ
      F(3,3,3,6)= R8(44)-R7(35,1)*TWO-R7(35,2)+R6(27,1)*THREE+R6(27,2)
     * +R6(27,3)*TWO+R6(27,9)*SIX-R5(20,1)*TWO-R5(20,2)-R5(20,3)
     * -R5(20,13)*TWELV-R5(20,17)*SIX+R4(14,14)*P18+R4(14,18)*SIX
     * +R4(14,22)*TWELV+R4(14,38)*THREE-R3(9,11)*TWELV-R3(9,15)*SIX
     * -R3(9,19)*SIX-R3(9,43)*SIX-R3(9,48)*THREE+R2(6,37)*NINE
     * +R2(6,42)*THREE+R2(6,47)*SIX-R1(2,21)*SIX-R1(2,26)*THREE
     * -R1(2,31)*THREE+(+R7(35,3)*TWO+R7(35,4)*TWO-R6(27,5)*FOUR
     * -R6(27,6)*FOUR-R6(27,7)*TWO-R6(27,8)*TWO+R5(20,5)*SIX
     * +R5(20,6)*SIX+R5(20,7)*TWO+R5(20,8)*TWO+R5(20,9)*FOUR
     * +R5(20,10)*FOUR+R5(20,21)*SIX+R5(20,22)*SIX-R4(14,6)*FOUR
     * -R4(14,7)*FOUR-R4(14,8)*TWO-R4(14,9)*TWO-R4(14,10)*TWO
     * -R4(14,11)*TWO-R4(14,30)*TWELV-R4(14,31)*TWELV-R4(14,34)*SIX
     * -R4(14,35)*SIX+R3(9,27)*P18+R3(9,28)*P18+R3(9,31)*SIX
     * +R3(9,32)*SIX+R3(9,35)*TWELV+R3(9,36)*TWELV-R2(6,21)*TWELV
     * -R2(6,22)*TWELV-R2(6,25)*SIX-R2(6,26)*SIX-R2(6,29)*SIX
     * -R2(6,30)*SIX)*QZ
      F(3,3,3,6)= F(3,3,3,6)+(+R6(27,10)+R6(27,11)*FOUR+R6(27,12)
     * -R5(20,14)*TWO-R5(20,15)*EIGHT-R5(20,16)*TWO-R5(20,18)
     * -R5(20,19)*FOUR-R5(20,20)+R4(14,15)*THREE+R4(14,16)*TWELV
     * +R4(14,17)*THREE+R4(14,19)+R4(14,20)*FOUR+R4(14,21)+R4(14,23)*TWO
     * +R4(14,24)*EIGHT+R4(14,25)*TWO+R4(14,39)+R4(14,40)*FOUR+R4(14,41)
     * -R3(9,12)*TWO-R3(9,13)*EIGHT-R3(9,14)*TWO-R3(9,16)-R3(9,17)*FOUR
     * -R3(9,18)-R3(9,20)-R3(9,21)*FOUR-R3(9,22)-R3(9,44)*TWO
     * -R3(9,45)*EIGHT-R3(9,46)*TWO-R3(9,49)-R3(9,50)*FOUR-R3(9,51)
     * +R2(6,38)*THREE+R2(6,39)*TWELV+R2(6,40)*THREE+R2(6,43)
     * +R2(6,44)*FOUR+R2(6,45)+R2(6,48)*TWO+R2(6,49)*EIGHT+R2(6,50)*TWO
     * -R1(2,22)*TWO-R1(2,23)*EIGHT-R1(2,24)*TWO-R1(2,27)-R1(2,28)*FOUR
     * -R1(2,29)-R1(2,32)-R1(2,33)*FOUR-R1(2,34))*ZZ+(+R5(20,23)*TWO
     * +R5(20,24)*TWO-R4(14,32)*FOUR-R4(14,33)*FOUR-R4(14,36)*TWO
     * -R4(14,37)*TWO+R3(9,29)*SIX+R3(9,30)*SIX+R3(9,33)*TWO
     * +R3(9,34)*TWO+R3(9,37)*FOUR+R3(9,38)*FOUR-R2(6,23)*FOUR
     * -R2(6,24)*FOUR-R2(6,27)*TWO-R2(6,28)*TWO-R2(6,31)*TWO
     * -R2(6,32)*TWO)*ZZZ+(+R4(14,42)-R3(9,47)*TWO-R3(9,52)
     * +R2(6,41)*THREE+R2(6,46)+R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)
     * -R1(2,35))*ZZZZ
      F(4,3,3,6)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(13,17)+R4(8,14)*THREE+R4(8,18)+R4(8,22)*TWO
     * -R3(4,11)*TWO-R3(4,15)-R3(4,19)+(+R7(34,3)-R6(26,5)*TWO-R6(26,7)
     * +R5(19,5)*THREE+R5(19,7)+R5(19,9)*TWO+R5(19,21)-R4(13,6)*TWO
     * -R4(13,8)-R4(13,10)-R4(13,30)*TWO-R4(13,34)+R3(8,27)*THREE
     * +R3(8,31)+R3(8,35)*TWO-R2(2,21)*TWO-R2(2,25)-R2(2,29))*QX+(
     * +R7(26,4)*TWO-R6(19,6)*FOUR-R6(19,8)*TWO+R5(13,6)*SIX
     * +R5(13,8)*TWO+R5(13,10)*FOUR-R4(8,7)*FOUR-R4(8,9)*TWO
     * -R4(8,11)*TWO)*QZ+(+R6(26,11)*TWO-R5(19,15)*FOUR-R5(19,19)*TWO
     * +R4(13,16)*SIX+R4(13,20)*TWO+R4(13,24)*FOUR-R3(8,13)*FOUR
     * -R3(8,17)*TWO-R3(8,21)*TWO)*XZ+(+R6(19,12)-R5(13,16)*TWO
     * -R5(13,20)+R4(8,17)*THREE+R4(8,21)+R4(8,25)*TWO-R3(4,14)*TWO
     * -R3(4,18)-R3(4,22))*ZZ+(+R5(19,24)-R4(13,33)*TWO-R4(13,37)
     * +R3(8,30)*THREE+R3(8,34)+R3(8,38)*TWO-R2(2,24)*TWO-R2(2,28)
     * -R2(2,32))*XZZ
      F(5,3,3,6)= R8(35)-R7(27,1)*TWO-R7(27,2)+R6(20,1)*THREE+R6(20,2)
     * +R6(20,3)*TWO+R6(20,9)*THREE-R5(14,1)*TWO-R5(14,2)-R5(14,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(35,3)-R6(27,5)*TWO-R6(27,7)+R5(20,5)*THREE+R5(20,7)
     * +R5(20,9)*TWO+R5(20,21)*THREE-R4(14,6)*TWO-R4(14,8)-R4(14,10)
     * -R4(14,30)*SIX-R4(14,34)*THREE+R3(9,27)*NINE+R3(9,31)*THREE
     * +R3(9,35)*SIX-R2(6,21)*SIX-R2(6,25)*THREE-R2(6,29)*THREE)*QX+(
     * +R7(27,3)+R7(27,4)*TWO-R6(20,5)*TWO-R6(20,6)*FOUR-R6(20,7)
     * -R6(20,8)*TWO+R5(14,5)*THREE+R5(14,6)*SIX+R5(14,7)+R5(14,8)*TWO
     * +R5(14,9)*TWO+R5(14,10)*FOUR+R5(14,21)+R5(14,22)*TWO-R4(9,6)*TWO
     * -R4(9,7)*FOUR-R4(9,8)-R4(9,9)*TWO-R4(9,10)-R4(9,11)*TWO
     * -R4(9,30)*TWO-R4(9,31)*FOUR-R4(9,34)-R4(9,35)*TWO+R3(5,27)*THREE
     * +R3(5,28)*SIX+R3(5,31)+R3(5,32)*TWO+R3(5,35)*TWO+R3(5,36)*FOUR
     * -R2(4,21)*TWO-R2(4,22)*FOUR-R2(4,25)-R2(4,26)*TWO-R2(4,29)
     * -R2(4,30)*TWO)*QZ
      F(5,3,3,6)= F(5,3,3,6)+(+R6(27,10)+R6(27,11)*TWO-R5(20,14)*TWO
     * -R5(20,15)*FOUR-R5(20,18)-R5(20,19)*TWO+R4(14,15)*THREE
     * +R4(14,16)*SIX+R4(14,19)+R4(14,20)*TWO+R4(14,23)*TWO
     * +R4(14,24)*FOUR+R4(14,39)+R4(14,40)*TWO-R3(9,12)*TWO
     * -R3(9,13)*FOUR-R3(9,16)-R3(9,17)*TWO-R3(9,20)-R3(9,21)*TWO
     * -R3(9,44)*TWO-R3(9,45)*FOUR-R3(9,49)-R3(9,50)*TWO+R2(6,38)*THREE
     * +R2(6,39)*SIX+R2(6,43)+R2(6,44)*TWO+R2(6,48)*TWO+R2(6,49)*FOUR
     * -R1(2,22)*TWO-R1(2,23)*FOUR-R1(2,27)-R1(2,28)*TWO-R1(2,32)
     * -R1(2,33)*TWO)*XZ
      F(5,3,3,6)= F(5,3,3,6)+(+R6(20,11)*TWO+R6(20,12)-R5(14,15)*FOUR
     * -R5(14,16)*TWO-R5(14,19)*TWO-R5(14,20)+R4(9,16)*SIX
     * +R4(9,17)*THREE+R4(9,20)*TWO+R4(9,21)+R4(9,24)*FOUR+R4(9,25)*TWO
     * -R3(5,13)*FOUR-R3(5,14)*TWO-R3(5,17)*TWO-R3(5,18)-R3(5,21)*TWO
     * -R3(5,22))*ZZ+(+R5(20,23)*TWO+R5(20,24)-R4(14,32)*FOUR
     * -R4(14,33)*TWO-R4(14,36)*TWO-R4(14,37)+R3(9,29)*SIX
     * +R3(9,30)*THREE+R3(9,33)*TWO+R3(9,34)+R3(9,37)*FOUR+R3(9,38)*TWO
     * -R2(6,23)*FOUR-R2(6,24)*TWO-R2(6,27)*TWO-R2(6,28)-R2(6,31)*TWO
     * -R2(6,32))*XZZ+(+R5(14,24)-R4(9,33)*TWO-R4(9,37)+R3(5,30)*THREE
     * +R3(5,34)+R3(5,38)*TWO-R2(4,24)*TWO-R2(4,28)-R2(4,32))*ZZZ+(
     * +R4(14,42)-R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)
     * +R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)-R1(2,35))*XZZZ
      F(6,3,3,6)= R8(43)-R7(34,1)*TWO-R7(34,2)+R6(26,1)*THREE+R6(26,2)
     * +R6(26,3)*TWO+R6(26,9)*THREE-R5(19,1)*TWO-R5(19,2)-R5(19,3)
     * -R5(19,13)*SIX-R5(19,17)*THREE+R4(13,14)*NINE+R4(13,18)*THREE
     * +R4(13,22)*SIX-R3(8,11)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * +R7(34,3)+R7(34,4)*TWO-R6(26,5)*TWO-R6(26,6)*FOUR-R6(26,7)
     * -R6(26,8)*TWO+R5(19,5)*THREE+R5(19,6)*SIX+R5(19,7)+R5(19,8)*TWO
     * +R5(19,9)*TWO+R5(19,10)*FOUR+R5(19,21)+R5(19,22)*TWO-R4(13,6)*TWO
     * -R4(13,7)*FOUR-R4(13,8)-R4(13,9)*TWO-R4(13,10)-R4(13,11)*TWO
     * -R4(13,30)*TWO-R4(13,31)*FOUR-R4(13,34)-R4(13,35)*TWO
     * +R3(8,27)*THREE+R3(8,28)*SIX+R3(8,31)+R3(8,32)*TWO+R3(8,35)*TWO
     * +R3(8,36)*FOUR-R2(2,21)*TWO-R2(2,22)*FOUR-R2(2,25)-R2(2,26)*TWO
     * -R2(2,29)-R2(2,30)*TWO)*QZ+(+R6(26,11)*TWO+R6(26,12)
     * -R5(19,15)*FOUR-R5(19,16)*TWO-R5(19,19)*TWO-R5(19,20)
     * +R4(13,16)*SIX+R4(13,17)*THREE+R4(13,20)*TWO+R4(13,21)
     * +R4(13,24)*FOUR+R4(13,25)*TWO-R3(8,13)*FOUR-R3(8,14)*TWO
     * -R3(8,17)*TWO-R3(8,18)-R3(8,21)*TWO-R3(8,22))*ZZ+(+R5(19,24)
     * -R4(13,33)*TWO-R4(13,37)+R3(8,30)*THREE+R3(8,34)+R3(8,38)*TWO
     * -R2(2,24)*TWO-R2(2,28)-R2(2,32))*ZZZ
      F(1,4,3,6)= R8(19)-R7(13,1)*TWO-R7(13,2)+R6(8,1)*THREE+R6(8,2)
     * +R6(8,3)*TWO+R6(19,9)*THREE-R5(4,1)*TWO-R5(4,2)-R5(4,3)
     * -R5(13,13)*SIX-R5(13,17)*THREE+R4(8,14)*NINE+R4(8,18)*THREE
     * +R4(8,22)*SIX-R3(4,11)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * +R7(19,3)*TWO+R7(19,4)-R6(13,5)*FOUR-R6(13,6)*TWO-R6(13,7)*TWO
     * -R6(13,8)+R5(8,5)*SIX+R5(8,6)*THREE+R5(8,7)*TWO+R5(8,8)
     * +R5(8,9)*FOUR+R5(8,10)*TWO+R5(19,21)*TWO+R5(19,22)-R4(4,6)*FOUR
     * -R4(4,7)*TWO-R4(4,8)*TWO-R4(4,9)-R4(4,10)*TWO-R4(4,11)
     * -R4(13,30)*FOUR-R4(13,31)*TWO-R4(13,34)*TWO-R4(13,35)
     * +R3(8,27)*SIX+R3(8,28)*THREE+R3(8,31)*TWO+R3(8,32)+R3(8,35)*FOUR
     * +R3(8,36)*TWO-R2(2,21)*FOUR-R2(2,22)*TWO-R2(2,25)*TWO-R2(2,26)
     * -R2(2,29)*TWO-R2(2,30))*QX+(+R6(19,10)+R6(19,11)*TWO
     * -R5(13,14)*TWO-R5(13,15)*FOUR-R5(13,18)-R5(13,19)*TWO
     * +R4(8,15)*THREE+R4(8,16)*SIX+R4(8,19)+R4(8,20)*TWO+R4(8,23)*TWO
     * +R4(8,24)*FOUR-R3(4,12)*TWO-R3(4,13)*FOUR-R3(4,16)-R3(4,17)*TWO
     * -R3(4,20)-R3(4,21)*TWO)*XX+(+R5(19,23)-R4(13,32)*TWO-R4(13,36)
     * +R3(8,29)*THREE+R3(8,33)+R3(8,37)*TWO-R2(2,23)*TWO-R2(2,27)
     * -R2(2,31))*XXX
      F(2,4,3,6)= R8(32)-R7(24,1)*TWO-R7(24,2)+R6(17,1)*THREE+R6(17,2)
     * +R6(17,3)*TWO+R6(19,9)*THREE-R5(11,1)*TWO-R5(11,2)-R5(11,3)
     * -R5(13,13)*SIX-R5(13,17)*THREE+R4(8,14)*NINE+R4(8,18)*THREE
     * +R4(8,22)*SIX-R3(4,11)*SIX-R3(4,15)*THREE-R3(4,19)*THREE+(
     * +R7(32,4)-R6(24,6)*TWO-R6(24,8)+R5(17,6)*THREE+R5(17,8)
     * +R5(17,10)*TWO+R5(19,22)*THREE-R4(11,7)*TWO-R4(11,9)-R4(11,11)
     * -R4(13,31)*SIX-R4(13,35)*THREE+R3(8,28)*NINE+R3(8,32)*THREE
     * +R3(8,36)*SIX-R2(2,22)*SIX-R2(2,26)*THREE-R2(2,30)*THREE)*QX
      F(3,4,3,6)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(13,17)+R4(8,14)*THREE+R4(8,18)+R4(8,22)*TWO
     * -R3(4,11)*TWO-R3(4,15)-R3(4,19)+(+R7(34,4)-R6(26,6)*TWO-R6(26,8)
     * +R5(19,6)*THREE+R5(19,8)+R5(19,10)*TWO+R5(19,22)-R4(13,7)*TWO
     * -R4(13,9)-R4(13,11)-R4(13,31)*TWO-R4(13,35)+R3(8,28)*THREE
     * +R3(8,32)+R3(8,36)*TWO-R2(2,22)*TWO-R2(2,26)-R2(2,30))*QX+(
     * +R7(26,3)*TWO-R6(19,5)*FOUR-R6(19,7)*TWO+R5(13,5)*SIX
     * +R5(13,7)*TWO+R5(13,9)*FOUR-R4(8,6)*FOUR-R4(8,8)*TWO-R4(8,10)*TWO
     * )*QZ+(+R6(26,11)*TWO-R5(19,15)*FOUR-R5(19,19)*TWO+R4(13,16)*SIX
     * +R4(13,20)*TWO+R4(13,24)*FOUR-R3(8,13)*FOUR-R3(8,17)*TWO
     * -R3(8,21)*TWO)*XZ+(+R6(19,10)-R5(13,14)*TWO-R5(13,18)
     * +R4(8,15)*THREE+R4(8,19)+R4(8,23)*TWO-R3(4,12)*TWO-R3(4,16)
     * -R3(4,20))*ZZ+(+R5(19,23)-R4(13,32)*TWO-R4(13,36)+R3(8,29)*THREE
     * +R3(8,33)+R3(8,37)*TWO-R2(2,23)*TWO-R2(2,27)-R2(2,31))*XZZ
      F(4,4,3,6)= R8(25)-R7(18,1)*TWO-R7(18,2)+R6(12,1)*THREE+R6(12,2)
     * +R6(12,3)*TWO+R6(14,9)+R6(25,9)-R5(7,1)*TWO-R5(7,2)-R5(7,3)
     * -R5(9,13)*TWO-R5(18,13)*TWO-R5(9,17)-R5(18,17)+R4(5,14)*THREE
     * +R4(12,14)*THREE+R4(5,18)+R4(12,18)+R4(5,22)*TWO+R4(12,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(7,11)*TWO-R3(2,15)-R3(7,15)-R3(2,19)
     * -R3(7,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(25,3)+R7(25,4)
     * -R6(18,5)*TWO-R6(18,6)*TWO-R6(18,7)-R6(18,8)+R5(12,5)*THREE
     * +R5(12,6)*THREE+R5(12,7)+R5(12,8)+R5(12,9)*TWO+R5(12,10)*TWO
     * +R5(14,21)+R5(14,22)-R4(7,6)*TWO-R4(7,7)*TWO-R4(7,8)-R4(7,9)
     * -R4(7,10)-R4(7,11)-R4(9,30)*TWO-R4(9,31)*TWO-R4(9,34)-R4(9,35)
     * +R3(5,27)*THREE+R3(5,28)*THREE+R3(5,31)+R3(5,32)+R3(5,35)*TWO
     * +R3(5,36)*TWO-R2(4,21)*TWO-R2(4,22)*TWO-R2(4,25)-R2(4,26)
     * -R2(4,29)-R2(4,30))*QX+(+R6(25,11)-R5(18,15)*TWO-R5(18,19)
     * +R4(12,16)*THREE+R4(12,20)+R4(12,24)*TWO+R4(14,40)-R3(7,13)*TWO
     * -R3(7,17)-R3(7,21)-R3(9,45)*TWO-R3(9,50)+R2(6,39)*THREE+R2(6,44)
     * +R2(6,49)*TWO-R1(2,23)*TWO-R1(2,28)-R1(2,33))*XX
      F(5,4,3,6)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(26,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(19,13)*TWO
     * -R5(19,17)+R4(13,14)*THREE+R4(13,18)+R4(13,22)*TWO-R3(8,11)*TWO
     * -R3(8,15)-R3(8,19)+(+R7(26,3)+R7(26,4)-R6(19,5)*TWO-R6(19,6)*TWO
     * -R6(19,7)-R6(19,8)+R5(13,5)*THREE+R5(13,6)*THREE+R5(13,7)
     * +R5(13,8)+R5(13,9)*TWO+R5(13,10)*TWO-R4(8,6)*TWO-R4(8,7)*TWO
     * -R4(8,8)-R4(8,9)-R4(8,10)-R4(8,11))*QX+(+R7(19,3)-R6(13,5)*TWO
     * -R6(13,7)+R5(8,5)*THREE+R5(8,7)+R5(8,9)*TWO+R5(19,21)-R4(4,6)*TWO
     * -R4(4,8)-R4(4,10)-R4(13,30)*TWO-R4(13,34)+R3(8,27)*THREE+R3(8,31)
     * +R3(8,35)*TWO-R2(2,21)*TWO-R2(2,25)-R2(2,29))*QZ+(+R6(26,11)
     * -R5(19,15)*TWO-R5(19,19)+R4(13,16)*THREE+R4(13,20)+R4(13,24)*TWO
     * -R3(8,13)*TWO-R3(8,17)-R3(8,21))*XX+(+R6(19,10)+R6(19,11)
     * -R5(13,14)*TWO-R5(13,15)*TWO-R5(13,18)-R5(13,19)+R4(8,15)*THREE
     * +R4(8,16)*THREE+R4(8,19)+R4(8,20)+R4(8,23)*TWO+R4(8,24)*TWO
     * -R3(4,12)*TWO-R3(4,13)*TWO-R3(4,16)-R3(4,17)-R3(4,20)-R3(4,21))
     * *XZ+(+R5(19,23)-R4(13,32)*TWO-R4(13,36)+R3(8,29)*THREE+R3(8,33)
     * +R3(8,37)*TWO-R2(2,23)*TWO-R2(2,27)-R2(2,31))*XXZ
      F(6,4,3,6)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*TWO-R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO
     * -R3(5,11)*TWO-R3(5,15)-R3(5,19)+(+R7(33,4)-R6(25,6)*TWO-R6(25,8)
     * +R5(18,6)*THREE+R5(18,8)+R5(18,10)*TWO+R5(20,22)-R4(12,7)*TWO
     * -R4(12,9)-R4(12,11)-R4(14,31)*TWO-R4(14,35)+R3(9,28)*THREE
     * +R3(9,32)+R3(9,36)*TWO-R2(6,22)*TWO-R2(6,26)-R2(6,30))*QX+(
     * +R7(25,3)-R6(18,5)*TWO-R6(18,7)+R5(12,5)*THREE+R5(12,7)
     * +R5(12,9)*TWO+R5(14,21)-R4(7,6)*TWO-R4(7,8)-R4(7,10)-R4(9,30)*TWO
     * -R4(9,34)+R3(5,27)*THREE+R3(5,31)+R3(5,35)*TWO-R2(4,21)*TWO
     * -R2(4,25)-R2(4,29))*QZ+(+R6(25,11)-R5(18,15)*TWO-R5(18,19)
     * +R4(12,16)*THREE+R4(12,20)+R4(12,24)*TWO+R4(14,40)-R3(7,13)*TWO
     * -R3(7,17)-R3(7,21)-R3(9,45)*TWO-R3(9,50)+R2(6,39)*THREE+R2(6,44)
     * +R2(6,49)*TWO-R1(2,23)*TWO-R1(2,28)-R1(2,33))*XZ
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21S
      SUBROUTINE MCDV21S(F,QX,QZ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DOUBLE PRECISION NINE
C
      PARAMETER (TWO=2.0D+00, THREE=3.0D+00, FOUR=4.0D+00, SIX=6.0D+00,
     *           NINE=9.0D+00)
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,5,3,6)= R8(20)-R7(14,1)*TWO-R7(14,2)+R6(9,1)*THREE+R6(9,2)
     * +R6(9,3)*TWO+R6(20,9)*THREE-R5(5,1)*TWO-R5(5,2)-R5(5,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(20,3)*TWO+R7(20,4)-R6(14,5)*FOUR-R6(14,6)*TWO-R6(14,7)*TWO
     * -R6(14,8)+R5(9,5)*SIX+R5(9,6)*THREE+R5(9,7)*TWO+R5(9,8)
     * +R5(9,9)*FOUR+R5(9,10)*TWO+R5(20,21)*TWO+R5(20,22)-R4(5,6)*FOUR
     * -R4(5,7)*TWO-R4(5,8)*TWO-R4(5,9)-R4(5,10)*TWO-R4(5,11)
     * -R4(14,30)*FOUR-R4(14,31)*TWO-R4(14,34)*TWO-R4(14,35)
     * +R3(9,27)*SIX+R3(9,28)*THREE+R3(9,31)*TWO+R3(9,32)+R3(9,35)*FOUR
     * +R3(9,36)*TWO-R2(6,21)*FOUR-R2(6,22)*TWO-R2(6,25)*TWO-R2(6,26)
     * -R2(6,29)*TWO-R2(6,30))*QX+(+R7(14,4)-R6(9,6)*TWO-R6(9,8)
     * +R5(5,6)*THREE+R5(5,8)+R5(5,10)*TWO+R5(14,22)*THREE-R4(2,7)*TWO
     * -R4(2,9)-R4(2,11)-R4(9,31)*SIX-R4(9,35)*THREE+R3(5,28)*NINE
     * +R3(5,32)*THREE+R3(5,36)*SIX-R2(4,22)*SIX-R2(4,26)*THREE
     * -R2(4,30)*THREE)*QZ
      F(1,5,3,6)= F(1,5,3,6)+(+R6(20,10)+R6(20,11)*TWO-R5(14,14)*TWO
     * -R5(14,15)*FOUR-R5(14,18)-R5(14,19)*TWO+R4(9,15)*THREE
     * +R4(9,16)*SIX+R4(9,19)+R4(9,20)*TWO+R4(9,23)*TWO+R4(9,24)*FOUR
     * -R3(5,12)*TWO-R3(5,13)*FOUR-R3(5,16)-R3(5,17)*TWO-R3(5,20)
     * -R3(5,21)*TWO)*XX+(+R6(14,11)*TWO+R6(14,12)-R5(9,15)*FOUR
     * -R5(9,16)*TWO-R5(9,19)*TWO-R5(9,20)+R4(5,16)*SIX+R4(5,17)*THREE
     * +R4(5,20)*TWO+R4(5,21)+R4(5,24)*FOUR+R4(5,25)*TWO+R4(14,40)*TWO
     * +R4(14,41)-R3(2,13)*FOUR-R3(2,14)*TWO-R3(2,17)*TWO-R3(2,18)
     * -R3(2,21)*TWO-R3(2,22)-R3(9,45)*FOUR-R3(9,46)*TWO-R3(9,50)*TWO
     * -R3(9,51)+R2(6,39)*SIX+R2(6,40)*THREE+R2(6,44)*TWO+R2(6,45)
     * +R2(6,49)*FOUR+R2(6,50)*TWO-R1(2,23)*FOUR-R1(2,24)*TWO
     * -R1(2,28)*TWO-R1(2,29)-R1(2,33)*TWO-R1(2,34))*XZ
      F(1,5,3,6)= F(1,5,3,6)+(+R5(20,23)
     * -R4(14,32)*TWO-R4(14,36)+R3(9,29)*THREE+R3(9,33)+R3(9,37)*TWO
     * -R2(6,23)*TWO-R2(6,27)-R2(6,31))*XXX+(+R5(14,23)+R5(14,24)*TWO
     * -R4(9,32)*TWO-R4(9,33)*FOUR-R4(9,36)-R4(9,37)*TWO+R3(5,29)*THREE
     * +R3(5,30)*SIX+R3(5,33)+R3(5,34)*TWO+R3(5,37)*TWO+R3(5,38)*FOUR
     * -R2(4,23)*TWO-R2(4,24)*FOUR-R2(4,27)-R2(4,28)*TWO-R2(4,31)
     * -R2(4,32)*TWO)*XXZ+(+R4(14,42)-R3(9,47)*TWO-R3(9,52)
     * +R2(6,41)*THREE+R2(6,46)+R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)
     * -R1(2,35))*XXXZ
      F(2,5,3,6)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*TWO-R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO
     * -R3(5,11)*TWO-R3(5,15)-R3(5,19)+(+R7(33,4)-R6(25,6)*TWO-R6(25,8)
     * +R5(18,6)*THREE+R5(18,8)+R5(18,10)*TWO+R5(20,22)-R4(12,7)*TWO
     * -R4(12,9)-R4(12,11)-R4(14,31)*TWO-R4(14,35)+R3(9,28)*THREE
     * +R3(9,32)+R3(9,36)*TWO-R2(6,22)*TWO-R2(6,26)-R2(6,30))*QX+(
     * +R7(25,4)-R6(18,6)*TWO-R6(18,8)+R5(12,6)*THREE+R5(12,8)
     * +R5(12,10)*TWO+R5(14,22)-R4(7,7)*TWO-R4(7,9)-R4(7,11)
     * -R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)+R3(5,36)*TWO
     * -R2(4,22)*TWO-R2(4,26)-R2(4,30))*QZ+(+R6(25,12)-R5(18,16)*TWO
     * -R5(18,20)+R4(12,17)*THREE+R4(12,21)+R4(12,25)*TWO+R4(14,41)
     * -R3(7,14)*TWO-R3(7,18)-R3(7,22)-R3(9,46)*TWO-R3(9,51)
     * +R2(6,40)*THREE+R2(6,45)+R2(6,50)*TWO-R1(2,24)*TWO-R1(2,29)
     * -R1(2,34))*XZ
      F(3,5,3,6)= R8(35)-R7(27,1)*TWO-R7(27,2)+R6(20,1)*THREE+R6(20,2)
     * +R6(20,3)*TWO+R6(20,9)*THREE-R5(14,1)*TWO-R5(14,2)-R5(14,3)
     * -R5(14,13)*SIX-R5(14,17)*THREE+R4(9,14)*NINE+R4(9,18)*THREE
     * +R4(9,22)*SIX-R3(5,11)*SIX-R3(5,15)*THREE-R3(5,19)*THREE+(
     * +R7(35,4)-R6(27,6)*TWO-R6(27,8)+R5(20,6)*THREE+R5(20,8)
     * +R5(20,10)*TWO+R5(20,22)*THREE-R4(14,7)*TWO-R4(14,9)-R4(14,11)
     * -R4(14,31)*SIX-R4(14,35)*THREE+R3(9,28)*NINE+R3(9,32)*THREE
     * +R3(9,36)*SIX-R2(6,22)*SIX-R2(6,26)*THREE-R2(6,30)*THREE)*QX+(
     * +R7(27,3)*TWO+R7(27,4)-R6(20,5)*FOUR-R6(20,6)*TWO-R6(20,7)*TWO
     * -R6(20,8)+R5(14,5)*SIX+R5(14,6)*THREE+R5(14,7)*TWO+R5(14,8)
     * +R5(14,9)*FOUR+R5(14,10)*TWO+R5(14,21)*TWO+R5(14,22)-R4(9,6)*FOUR
     * -R4(9,7)*TWO-R4(9,8)*TWO-R4(9,9)-R4(9,10)*TWO-R4(9,11)
     * -R4(9,30)*FOUR-R4(9,31)*TWO-R4(9,34)*TWO-R4(9,35)+R3(5,27)*SIX
     * +R3(5,28)*THREE+R3(5,31)*TWO+R3(5,32)+R3(5,35)*FOUR+R3(5,36)*TWO
     * -R2(4,21)*FOUR-R2(4,22)*TWO-R2(4,25)*TWO-R2(4,26)-R2(4,29)*TWO
     * -R2(4,30))*QZ
      F(3,5,3,6)= F(3,5,3,6)+(+R6(27,11)*TWO+R6(27,12)-R5(20,15)*FOUR
     * -R5(20,16)*TWO-R5(20,19)*TWO-R5(20,20)+R4(14,16)*SIX
     * +R4(14,17)*THREE+R4(14,20)*TWO+R4(14,21)+R4(14,24)*FOUR
     * +R4(14,25)*TWO+R4(14,40)*TWO+R4(14,41)-R3(9,13)*FOUR-R3(9,14)*TWO
     * -R3(9,17)*TWO-R3(9,18)-R3(9,21)*TWO-R3(9,22)-R3(9,45)*FOUR
     * -R3(9,46)*TWO-R3(9,50)*TWO-R3(9,51)+R2(6,39)*SIX+R2(6,40)*THREE
     * +R2(6,44)*TWO+R2(6,45)+R2(6,49)*FOUR+R2(6,50)*TWO-R1(2,23)*FOUR
     * -R1(2,24)*TWO-R1(2,28)*TWO-R1(2,29)-R1(2,33)*TWO-R1(2,34))*XZ+(
     * +R6(20,10)+R6(20,11)*TWO-R5(14,14)*TWO-R5(14,15)*FOUR-R5(14,18)
     * -R5(14,19)*TWO+R4(9,15)*THREE+R4(9,16)*SIX+R4(9,19)+R4(9,20)*TWO
     * +R4(9,23)*TWO+R4(9,24)*FOUR-R3(5,12)*TWO-R3(5,13)*FOUR-R3(5,16)
     * -R3(5,17)*TWO-R3(5,20)-R3(5,21)*TWO)*ZZ+(+R5(20,23)+R5(20,24)*TWO
     * -R4(14,32)*TWO-R4(14,33)*FOUR-R4(14,36)-R4(14,37)*TWO
     * +R3(9,29)*THREE+R3(9,30)*SIX+R3(9,33)+R3(9,34)*TWO+R3(9,37)*TWO
     * +R3(9,38)*FOUR-R2(6,23)*TWO-R2(6,24)*FOUR-R2(6,27)-R2(6,28)*TWO
     * -R2(6,31)-R2(6,32)*TWO)*XZZ+(+R5(14,23)-R4(9,32)*TWO-R4(9,36)
     * +R3(5,29)*THREE+R3(5,33)+R3(5,37)*TWO-R2(4,23)*TWO-R2(4,27)
     * -R2(4,31))*ZZZ+(+R4(14,42)-R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE
     * +R2(6,46)+R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)-R1(2,35))*XZZZ
      F(4,5,3,6)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(26,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(19,13)*TWO
     * -R5(19,17)+R4(13,14)*THREE+R4(13,18)+R4(13,22)*TWO-R3(8,11)*TWO
     * -R3(8,15)-R3(8,19)+(+R7(26,3)+R7(26,4)-R6(19,5)*TWO-R6(19,6)*TWO
     * -R6(19,7)-R6(19,8)+R5(13,5)*THREE+R5(13,6)*THREE+R5(13,7)
     * +R5(13,8)+R5(13,9)*TWO+R5(13,10)*TWO-R4(8,6)*TWO-R4(8,7)*TWO
     * -R4(8,8)-R4(8,9)-R4(8,10)-R4(8,11))*QX+(+R7(19,4)-R6(13,6)*TWO
     * -R6(13,8)+R5(8,6)*THREE+R5(8,8)+R5(8,10)*TWO+R5(19,22)
     * -R4(4,7)*TWO-R4(4,9)-R4(4,11)-R4(13,31)*TWO-R4(13,35)
     * +R3(8,28)*THREE+R3(8,32)+R3(8,36)*TWO-R2(2,22)*TWO-R2(2,26)
     * -R2(2,30))*QZ+(+R6(26,11)-R5(19,15)*TWO-R5(19,19)+R4(13,16)*THREE
     * +R4(13,20)+R4(13,24)*TWO-R3(8,13)*TWO-R3(8,17)-R3(8,21))*XX+(
     * +R6(19,11)+R6(19,12)-R5(13,15)*TWO-R5(13,16)*TWO-R5(13,19)
     * -R5(13,20)+R4(8,16)*THREE+R4(8,17)*THREE+R4(8,20)+R4(8,21)
     * +R4(8,24)*TWO+R4(8,25)*TWO-R3(4,13)*TWO-R3(4,14)*TWO-R3(4,17)
     * -R3(4,18)-R3(4,21)-R3(4,22))*XZ+(+R5(19,24)-R4(13,33)*TWO
     * -R4(13,37)+R3(8,30)*THREE+R3(8,34)+R3(8,38)*TWO-R2(2,24)*TWO
     * -R2(2,28)-R2(2,32))*XXZ
      F(5,5,3,6)= R8(27)-R7(20,1)*TWO-R7(20,2)+R6(14,1)*THREE+R6(14,2)
     * +R6(14,3)*TWO+R6(14,9)+R6(27,9)-R5(9,1)*TWO-R5(9,2)-R5(9,3)
     * -R5(9,13)*TWO-R5(20,13)*TWO-R5(9,17)-R5(20,17)+R4(5,14)*THREE
     * +R4(14,14)*THREE+R4(5,18)+R4(14,18)+R4(5,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(2,11)*TWO-R3(9,11)*TWO-R3(2,15)-R3(9,15)-R3(2,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(27,3)+R7(27,4)
     * -R6(20,5)*TWO-R6(20,6)*TWO-R6(20,7)-R6(20,8)+R5(14,5)*THREE
     * +R5(14,6)*THREE+R5(14,7)+R5(14,8)+R5(14,9)*TWO+R5(14,10)*TWO
     * +R5(14,21)+R5(14,22)-R4(9,6)*TWO-R4(9,7)*TWO-R4(9,8)-R4(9,9)
     * -R4(9,10)-R4(9,11)-R4(9,30)*TWO-R4(9,31)*TWO-R4(9,34)-R4(9,35)
     * +R3(5,27)*THREE+R3(5,28)*THREE+R3(5,31)+R3(5,32)+R3(5,35)*TWO
     * +R3(5,36)*TWO-R2(4,21)*TWO-R2(4,22)*TWO-R2(4,25)-R2(4,26)
     * -R2(4,29)-R2(4,30))*QX
      F(5,5,3,6)= F(5,5,3,6)+(+R7(20,3)+R7(20,4)-R6(14,5)*TWO
     * -R6(14,6)*TWO-R6(14,7)-R6(14,8)+R5(9,5)*THREE+R5(9,6)*THREE
     * +R5(9,7)+R5(9,8)+R5(9,9)*TWO+R5(9,10)*TWO+R5(20,21)+R5(20,22)
     * -R4(5,6)*TWO-R4(5,7)*TWO-R4(5,8)-R4(5,9)-R4(5,10)-R4(5,11)
     * -R4(14,30)*TWO-R4(14,31)*TWO-R4(14,34)-R4(14,35)+R3(9,27)*THREE
     * +R3(9,28)*THREE+R3(9,31)+R3(9,32)+R3(9,35)*TWO+R3(9,36)*TWO
     * -R2(6,21)*TWO-R2(6,22)*TWO-R2(6,25)-R2(6,26)-R2(6,29)-R2(6,30))
     * *QZ+(+R6(27,11)-R5(20,15)*TWO-R5(20,19)+R4(14,16)*THREE+R4(14,20)
     * +R4(14,24)*TWO+R4(14,40)-R3(9,13)*TWO-R3(9,17)-R3(9,21)
     * -R3(9,45)*TWO-R3(9,50)+R2(6,39)*THREE+R2(6,44)+R2(6,49)*TWO
     * -R1(2,23)*TWO-R1(2,28)-R1(2,33))*XX+(+R6(20,10)+R6(20,11)*TWO
     * +R6(20,12)-R5(14,14)*TWO-R5(14,15)*FOUR-R5(14,16)*TWO-R5(14,18)
     * -R5(14,19)*TWO-R5(14,20)+R4(9,15)*THREE+R4(9,16)*SIX
     * +R4(9,17)*THREE+R4(9,19)+R4(9,20)*TWO+R4(9,21)+R4(9,23)*TWO
     * +R4(9,24)*FOUR+R4(9,25)*TWO-R3(5,12)*TWO-R3(5,13)*FOUR
     * -R3(5,14)*TWO-R3(5,16)-R3(5,17)*TWO-R3(5,18)-R3(5,20)
     * -R3(5,21)*TWO-R3(5,22))*XZ
      F(5,5,3,6)= F(5,5,3,6)+(+R6(14,11)-R5(9,15)*TWO-R5(9,19)
     * +R4(5,16)*THREE+R4(5,20)+R4(5,24)*TWO+R4(14,40)-R3(2,13)*TWO
     * -R3(2,17)-R3(2,21)-R3(9,45)*TWO-R3(9,50)+R2(6,39)*THREE+R2(6,44)
     * +R2(6,49)*TWO-R1(2,23)*TWO-R1(2,28)-R1(2,33))*ZZ+(+R5(20,23)
     * +R5(20,24)-R4(14,32)*TWO-R4(14,33)*TWO-R4(14,36)-R4(14,37)
     * +R3(9,29)*THREE+R3(9,30)*THREE+R3(9,33)+R3(9,34)+R3(9,37)*TWO
     * +R3(9,38)*TWO-R2(6,23)*TWO-R2(6,24)*TWO-R2(6,27)-R2(6,28)
     * -R2(6,31)-R2(6,32))*XXZ+(+R5(14,23)+R5(14,24)-R4(9,32)*TWO
     * -R4(9,33)*TWO-R4(9,36)-R4(9,37)+R3(5,29)*THREE+R3(5,30)*THREE
     * +R3(5,33)+R3(5,34)+R3(5,37)*TWO+R3(5,38)*TWO-R2(4,23)*TWO
     * -R2(4,24)*TWO-R2(4,27)-R2(4,28)-R2(4,31)-R2(4,32))*XZZ+(
     * +R4(14,42)-R3(9,47)*TWO-R3(9,52)+R2(6,41)*THREE+R2(6,46)
     * +R2(6,51)*TWO-R1(2,25)*TWO-R1(2,30)-R1(2,35))*XXZZ
      F(6,5,3,6)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(13,17)+R4(8,14)*THREE+R4(8,18)+R4(8,22)*TWO
     * -R3(4,11)*TWO-R3(4,15)-R3(4,19)+(+R7(34,4)-R6(26,6)*TWO-R6(26,8)
     * +R5(19,6)*THREE+R5(19,8)+R5(19,10)*TWO+R5(19,22)-R4(13,7)*TWO
     * -R4(13,9)-R4(13,11)-R4(13,31)*TWO-R4(13,35)+R3(8,28)*THREE
     * +R3(8,32)+R3(8,36)*TWO-R2(2,22)*TWO-R2(2,26)-R2(2,30))*QX+(
     * +R7(26,3)+R7(26,4)-R6(19,5)*TWO-R6(19,6)*TWO-R6(19,7)-R6(19,8)
     * +R5(13,5)*THREE+R5(13,6)*THREE+R5(13,7)+R5(13,8)+R5(13,9)*TWO
     * +R5(13,10)*TWO-R4(8,6)*TWO-R4(8,7)*TWO-R4(8,8)-R4(8,9)-R4(8,10)
     * -R4(8,11))*QZ+(+R6(26,11)+R6(26,12)-R5(19,15)*TWO-R5(19,16)*TWO
     * -R5(19,19)-R5(19,20)+R4(13,16)*THREE+R4(13,17)*THREE+R4(13,20)
     * +R4(13,21)+R4(13,24)*TWO+R4(13,25)*TWO-R3(8,13)*TWO-R3(8,14)*TWO
     * -R3(8,17)-R3(8,18)-R3(8,21)-R3(8,22))*XZ+(+R6(19,11)
     * -R5(13,15)*TWO-R5(13,19)+R4(8,16)*THREE+R4(8,20)+R4(8,24)*TWO
     * -R3(4,13)*TWO-R3(4,17)-R3(4,21))*ZZ+(+R5(19,24)-R4(13,33)*TWO
     * -R4(13,37)+R3(8,30)*THREE+R3(8,34)+R3(8,38)*TWO-R2(2,24)*TWO
     * -R2(2,28)-R2(2,32))*XZZ
      F(1,6,3,6)= R8(26)-R7(19,1)*TWO-R7(19,2)+R6(13,1)*THREE+R6(13,2)
     * +R6(13,3)*TWO+R6(26,9)-R5(8,1)*TWO-R5(8,2)-R5(8,3)-R5(19,13)*TWO
     * -R5(19,17)+R4(13,14)*THREE+R4(13,18)+R4(13,22)*TWO-R3(8,11)*TWO
     * -R3(8,15)-R3(8,19)+(+R7(26,3)*TWO-R6(19,5)*FOUR-R6(19,7)*TWO
     * +R5(13,5)*SIX+R5(13,7)*TWO+R5(13,9)*FOUR-R4(8,6)*FOUR-R4(8,8)*TWO
     * -R4(8,10)*TWO)*QX+(+R7(19,4)-R6(13,6)*TWO-R6(13,8)+R5(8,6)*THREE
     * +R5(8,8)+R5(8,10)*TWO+R5(19,22)-R4(4,7)*TWO-R4(4,9)-R4(4,11)
     * -R4(13,31)*TWO-R4(13,35)+R3(8,28)*THREE+R3(8,32)+R3(8,36)*TWO
     * -R2(2,22)*TWO-R2(2,26)-R2(2,30))*QZ+(+R6(26,10)-R5(19,14)*TWO
     * -R5(19,18)+R4(13,15)*THREE+R4(13,19)+R4(13,23)*TWO-R3(8,12)*TWO
     * -R3(8,16)-R3(8,20))*XX+(+R6(19,11)*TWO-R5(13,15)*FOUR
     * -R5(13,19)*TWO+R4(8,16)*SIX+R4(8,20)*TWO+R4(8,24)*FOUR
     * -R3(4,13)*FOUR-R3(4,17)*TWO-R3(4,21)*TWO)*XZ+(+R5(19,23)
     * -R4(13,32)*TWO-R4(13,36)+R3(8,29)*THREE+R3(8,33)+R3(8,37)*TWO
     * -R2(2,23)*TWO-R2(2,27)-R2(2,31))*XXZ
      F(2,6,3,6)= R8(41)-R7(32,1)*TWO-R7(32,2)+R6(24,1)*THREE+R6(24,2)
     * +R6(24,3)*TWO+R6(26,9)*THREE-R5(17,1)*TWO-R5(17,2)-R5(17,3)
     * -R5(19,13)*SIX-R5(19,17)*THREE+R4(13,14)*NINE+R4(13,18)*THREE
     * +R4(13,22)*SIX-R3(8,11)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * +R7(32,4)-R6(24,6)*TWO-R6(24,8)+R5(17,6)*THREE+R5(17,8)
     * +R5(17,10)*TWO+R5(19,22)*THREE-R4(11,7)*TWO-R4(11,9)-R4(11,11)
     * -R4(13,31)*SIX-R4(13,35)*THREE+R3(8,28)*NINE+R3(8,32)*THREE
     * +R3(8,36)*SIX-R2(2,22)*SIX-R2(2,26)*THREE-R2(2,30)*THREE)*QZ
      F(3,6,3,6)= R8(43)-R7(34,1)*TWO-R7(34,2)+R6(26,1)*THREE+R6(26,2)
     * +R6(26,3)*TWO+R6(26,9)*THREE-R5(19,1)*TWO-R5(19,2)-R5(19,3)
     * -R5(19,13)*SIX-R5(19,17)*THREE+R4(13,14)*NINE+R4(13,18)*THREE
     * +R4(13,22)*SIX-R3(8,11)*SIX-R3(8,15)*THREE-R3(8,19)*THREE+(
     * +R7(34,3)*TWO+R7(34,4)-R6(26,5)*FOUR-R6(26,6)*TWO-R6(26,7)*TWO
     * -R6(26,8)+R5(19,5)*SIX+R5(19,6)*THREE+R5(19,7)*TWO+R5(19,8)
     * +R5(19,9)*FOUR+R5(19,10)*TWO+R5(19,21)*TWO+R5(19,22)
     * -R4(13,6)*FOUR-R4(13,7)*TWO-R4(13,8)*TWO-R4(13,9)-R4(13,10)*TWO
     * -R4(13,11)-R4(13,30)*FOUR-R4(13,31)*TWO-R4(13,34)*TWO-R4(13,35)
     * +R3(8,27)*SIX+R3(8,28)*THREE+R3(8,31)*TWO+R3(8,32)+R3(8,35)*FOUR
     * +R3(8,36)*TWO-R2(2,21)*FOUR-R2(2,22)*TWO-R2(2,25)*TWO-R2(2,26)
     * -R2(2,29)*TWO-R2(2,30))*QZ+(+R6(26,10)+R6(26,11)*TWO
     * -R5(19,14)*TWO-R5(19,15)*FOUR-R5(19,18)-R5(19,19)*TWO
     * +R4(13,15)*THREE+R4(13,16)*SIX+R4(13,19)+R4(13,20)*TWO
     * +R4(13,23)*TWO+R4(13,24)*FOUR-R3(8,12)*TWO-R3(8,13)*FOUR-R3(8,16)
     * -R3(8,17)*TWO-R3(8,20)-R3(8,21)*TWO)*ZZ+(+R5(19,23)-R4(13,32)*TWO
     * -R4(13,36)+R3(8,29)*THREE+R3(8,33)+R3(8,37)*TWO-R2(2,23)*TWO
     * -R2(2,27)-R2(2,31))*ZZZ
      F(4,6,3,6)= R8(33)-R7(25,1)*TWO-R7(25,2)+R6(18,1)*THREE+R6(18,2)
     * +R6(18,3)*TWO+R6(20,9)-R5(12,1)*TWO-R5(12,2)-R5(12,3)
     * -R5(14,13)*TWO-R5(14,17)+R4(9,14)*THREE+R4(9,18)+R4(9,22)*TWO
     * -R3(5,11)*TWO-R3(5,15)-R3(5,19)+(+R7(33,3)-R6(25,5)*TWO-R6(25,7)
     * +R5(18,5)*THREE+R5(18,7)+R5(18,9)*TWO+R5(20,21)-R4(12,6)*TWO
     * -R4(12,8)-R4(12,10)-R4(14,30)*TWO-R4(14,34)+R3(9,27)*THREE
     * +R3(9,31)+R3(9,35)*TWO-R2(6,21)*TWO-R2(6,25)-R2(6,29))*QX+(
     * +R7(25,4)-R6(18,6)*TWO-R6(18,8)+R5(12,6)*THREE+R5(12,8)
     * +R5(12,10)*TWO+R5(14,22)-R4(7,7)*TWO-R4(7,9)-R4(7,11)
     * -R4(9,31)*TWO-R4(9,35)+R3(5,28)*THREE+R3(5,32)+R3(5,36)*TWO
     * -R2(4,22)*TWO-R2(4,26)-R2(4,30))*QZ+(+R6(25,11)-R5(18,15)*TWO
     * -R5(18,19)+R4(12,16)*THREE+R4(12,20)+R4(12,24)*TWO+R4(14,40)
     * -R3(7,13)*TWO-R3(7,17)-R3(7,21)-R3(9,45)*TWO-R3(9,50)
     * +R2(6,39)*THREE+R2(6,44)+R2(6,49)*TWO-R1(2,23)*TWO-R1(2,28)
     * -R1(2,33))*XZ
      F(5,6,3,6)= R8(34)-R7(26,1)*TWO-R7(26,2)+R6(19,1)*THREE+R6(19,2)
     * +R6(19,3)*TWO+R6(19,9)-R5(13,1)*TWO-R5(13,2)-R5(13,3)
     * -R5(13,13)*TWO-R5(13,17)+R4(8,14)*THREE+R4(8,18)+R4(8,22)*TWO
     * -R3(4,11)*TWO-R3(4,15)-R3(4,19)+(+R7(34,3)-R6(26,5)*TWO-R6(26,7)
     * +R5(19,5)*THREE+R5(19,7)+R5(19,9)*TWO+R5(19,21)-R4(13,6)*TWO
     * -R4(13,8)-R4(13,10)-R4(13,30)*TWO-R4(13,34)+R3(8,27)*THREE
     * +R3(8,31)+R3(8,35)*TWO-R2(2,21)*TWO-R2(2,25)-R2(2,29))*QX+(
     * +R7(26,3)+R7(26,4)-R6(19,5)*TWO-R6(19,6)*TWO-R6(19,7)-R6(19,8)
     * +R5(13,5)*THREE+R5(13,6)*THREE+R5(13,7)+R5(13,8)+R5(13,9)*TWO
     * +R5(13,10)*TWO-R4(8,6)*TWO-R4(8,7)*TWO-R4(8,8)-R4(8,9)-R4(8,10)
     * -R4(8,11))*QZ+(+R6(26,10)+R6(26,11)-R5(19,14)*TWO-R5(19,15)*TWO
     * -R5(19,18)-R5(19,19)+R4(13,15)*THREE+R4(13,16)*THREE+R4(13,19)
     * +R4(13,20)+R4(13,23)*TWO+R4(13,24)*TWO-R3(8,12)*TWO-R3(8,13)*TWO
     * -R3(8,16)-R3(8,17)-R3(8,20)-R3(8,21))*XZ+(+R6(19,11)
     * -R5(13,15)*TWO-R5(13,19)+R4(8,16)*THREE+R4(8,20)+R4(8,24)*TWO
     * -R3(4,13)*TWO-R3(4,17)-R3(4,21))*ZZ+(+R5(19,23)-R4(13,32)*TWO
     * -R4(13,36)+R3(8,29)*THREE+R3(8,33)+R3(8,37)*TWO-R2(2,23)*TWO
     * -R2(2,27)-R2(2,31))*XZZ
      F(6,6,3,6)= R8(42)-R7(33,1)*TWO-R7(33,2)+R6(25,1)*THREE+R6(25,2)
     * +R6(25,3)*TWO+R6(25,9)+R6(27,9)-R5(18,1)*TWO-R5(18,2)-R5(18,3)
     * -R5(18,13)*TWO-R5(20,13)*TWO-R5(18,17)-R5(20,17)+R4(12,14)*THREE
     * +R4(14,14)*THREE+R4(12,18)+R4(14,18)+R4(12,22)*TWO+R4(14,22)*TWO
     * +R4(14,38)-R3(7,11)*TWO-R3(9,11)*TWO-R3(7,15)-R3(9,15)-R3(7,19)
     * -R3(9,19)-R3(9,43)*TWO-R3(9,48)+R2(6,37)*THREE+R2(6,42)
     * +R2(6,47)*TWO-R1(2,21)*TWO-R1(2,26)-R1(2,31)+(+R7(33,3)+R7(33,4)
     * -R6(25,5)*TWO-R6(25,6)*TWO-R6(25,7)-R6(25,8)+R5(18,5)*THREE
     * +R5(18,6)*THREE+R5(18,7)+R5(18,8)+R5(18,9)*TWO+R5(18,10)*TWO
     * +R5(20,21)+R5(20,22)-R4(12,6)*TWO-R4(12,7)*TWO-R4(12,8)-R4(12,9)
     * -R4(12,10)-R4(12,11)-R4(14,30)*TWO-R4(14,31)*TWO-R4(14,34)
     * -R4(14,35)+R3(9,27)*THREE+R3(9,28)*THREE+R3(9,31)+R3(9,32)
     * +R3(9,35)*TWO+R3(9,36)*TWO-R2(6,21)*TWO-R2(6,22)*TWO-R2(6,25)
     * -R2(6,26)-R2(6,29)-R2(6,30))*QZ+(+R6(25,11)-R5(18,15)*TWO
     * -R5(18,19)+R4(12,16)*THREE+R4(12,20)+R4(12,24)*TWO+R4(14,40)
     * -R3(7,13)*TWO-R3(7,17)-R3(7,21)-R3(9,45)*TWO-R3(9,50)
     * +R2(6,39)*THREE+R2(6,44)+R2(6,49)*TWO-R1(2,23)*TWO-R1(2,28)
     * -R1(2,33))*ZZ
      F(1,1,4,6)= R8(8)-R7(4,2)+R6(3,1)+R6(8,9)*SIX-R5(1,2)-R5(4,17)*SIX
     * +R4(3,14)*SIX+R4(8,38)*THREE-R3(1,15)*SIX-R3(4,48)*THREE
     * +R2(5,37)*THREE-R1(1,26)*THREE+(+R7(8,3)*TWO+R7(8,4)*TWO
     * -R6(4,7)*TWO-R6(4,8)*TWO+R5(3,5)*TWO+R5(3,6)*TWO+R5(8,21)*SIX
     * +R5(8,22)*SIX-R4(1,8)*TWO-R4(1,9)*TWO-R4(4,34)*SIX-R4(4,35)*SIX
     * +R3(3,27)*SIX+R3(3,28)*SIX-R2(1,25)*SIX-R2(1,26)*SIX)*QX+(
     * +R6(8,10)+R6(8,11)*FOUR+R6(8,12)-R5(4,18)-R5(4,19)*FOUR-R5(4,20)
     * +R4(3,15)+R4(3,16)*FOUR+R4(3,17)+R4(8,39)+R4(8,40)*FOUR+R4(8,41)
     * -R3(1,16)-R3(1,17)*FOUR-R3(1,18)-R3(4,49)-R3(4,50)*FOUR-R3(4,51)
     * +R2(5,38)+R2(5,39)*FOUR+R2(5,40)-R1(1,27)-R1(1,28)*FOUR-R1(1,29))
     * *XX+(+R5(8,23)*TWO+R5(8,24)*TWO-R4(4,36)*TWO-R4(4,37)*TWO
     * +R3(3,29)*TWO+R3(3,30)*TWO-R2(1,27)*TWO-R2(1,28)*TWO)*XXX+(
     * +R4(8,42)-R3(4,52)+R2(5,41)-R1(1,30))*XXXX
      F(2,1,4,6)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,4)*TWO-R6(11,8)*TWO
     * +R5(8,6)*TWO+R5(8,22)*TWO-R4(4,9)*TWO-R4(4,35)*TWO+R3(3,28)*TWO
     * -R2(1,26)*TWO)*QX+(+R6(17,12)-R5(11,20)+R4(8,17)+R4(8,41)
     * -R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))*XX
      F(3,1,4,6)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,4)*TWO-R6(13,8)*TWO
     * +R5(10,6)*TWO+R5(8,22)*TWO-R4(6,9)*TWO-R4(4,35)*TWO+R3(3,28)*TWO
     * -R2(1,26)*TWO)*QX+(+R7(13,3)*TWO-R6(8,7)*TWO+R5(6,5)*TWO
     * +R5(13,21)*TWO-R4(3,8)*TWO-R4(8,34)*TWO+R3(6,27)*TWO-R2(5,25)*TWO
     * )*QZ+(+R6(19,12)-R5(13,20)+R4(10,17)+R4(8,41)-R3(6,18)-R3(4,51)
     * +R2(5,40)-R1(1,29))*XX+(+R6(13,11)*FOUR-R5(8,19)*FOUR
     * +R4(6,16)*FOUR-R3(3,17)*FOUR)*XZ+(+R6(8,10)-R5(4,18)+R4(3,15)
     * +R4(8,39)-R3(1,16)-R3(4,49)+R2(5,38)-R1(1,27))*ZZ+(+R5(13,24)*TWO
     * -R4(8,37)*TWO+R3(6,30)*TWO-R2(5,28)*TWO)*XXZ+(+R5(8,23)*TWO
     * -R4(4,36)*TWO+R3(3,29)*TWO-R2(1,27)*TWO)*XZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXZZ
      F(4,1,4,6)= R8(12)-R7(7,2)+R6(5,1)+R6(12,9)*THREE-R5(2,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(12,3)
     * +R7(12,4)*TWO-R6(7,7)-R6(7,8)*TWO+R5(5,5)+R5(5,6)*TWO+R5(12,21)
     * +R5(12,22)*TWO-R4(2,8)-R4(2,9)*TWO-R4(7,34)-R4(7,35)*TWO+R3(5,27)
     * +R3(5,28)*TWO-R2(4,25)-R2(4,26)*TWO)*QX+(+R6(12,11)*TWO+R6(12,12)
     * -R5(7,19)*TWO-R5(7,20)+R4(5,16)*TWO+R4(5,17)-R3(2,17)*TWO
     * -R3(2,18))*XX+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XXX
      F(5,1,4,6)= R8(13)-R7(8,2)+R6(6,1)+R6(13,9)*THREE-R5(3,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)
     * +R7(13,4)*TWO-R6(8,7)-R6(8,8)*TWO+R5(6,5)+R5(6,6)*TWO+R5(13,21)
     * +R5(13,22)*TWO-R4(3,8)-R4(3,9)*TWO-R4(8,34)-R4(8,35)*TWO+R3(6,27)
     * +R3(6,28)*TWO-R2(5,25)-R2(5,26)*TWO)*QX+(+R7(8,3)-R6(4,7)+R5(3,5)
     * +R5(8,21)*THREE-R4(1,8)-R4(4,34)*THREE+R3(3,27)*THREE
     * -R2(1,25)*THREE)*QZ+(+R6(13,11)*TWO+R6(13,12)-R5(8,19)*TWO
     * -R5(8,20)+R4(6,16)*TWO+R4(6,17)-R3(3,17)*TWO-R3(3,18))*XX+(
     * +R6(8,10)+R6(8,11)*TWO-R5(4,18)-R5(4,19)*TWO+R4(3,15)
     * +R4(3,16)*TWO+R4(8,39)+R4(8,40)*TWO-R3(1,16)-R3(1,17)*TWO
     * -R3(4,49)-R3(4,50)*TWO+R2(5,38)+R2(5,39)*TWO-R1(1,27)
     * -R1(1,28)*TWO)*XZ+(+R5(13,24)-R4(8,37)+R3(6,30)-R2(5,28))*XXX+(
     * +R5(8,23)*TWO+R5(8,24)-R4(4,36)*TWO-R4(4,37)+R3(3,29)*TWO
     * +R3(3,30)-R2(1,27)*TWO-R2(1,28))*XXZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XXXZ
      F(6,1,4,6)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,4)*TWO-R6(12,8)*TWO+R5(9,6)*TWO
     * -R4(5,9)*TWO)*QX+(+R7(12,3)-R6(7,7)+R5(5,5)+R5(12,21)-R4(2,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QZ+(+R6(18,12)-R5(12,20)+R4(9,17)
     * -R3(5,18))*XX+(+R6(12,11)*TWO-R5(7,19)*TWO+R4(5,16)*TWO
     * -R3(2,17)*TWO)*XZ+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XXZ
      F(1,2,4,6)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,3)*TWO-R6(11,7)*TWO
     * +R5(8,5)*TWO+R5(8,21)*TWO-R4(4,8)*TWO-R4(4,34)*TWO+R3(3,27)*TWO
     * -R2(1,25)*TWO)*QX+(+R6(17,10)-R5(11,18)+R4(8,15)+R4(8,39)
     * -R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))*XX
      F(2,2,4,6)= R8(30)-R7(22,2)+R6(17,1)+R6(17,9)*SIX-R5(11,2)
     * -R5(11,17)*SIX+R4(8,14)*SIX+R4(8,38)*THREE-R3(4,15)*SIX
     * -R3(4,48)*THREE+R2(5,37)*THREE-R1(1,26)*THREE
      F(3,2,4,6)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,3)*TWO-R6(17,7)*TWO
     * +R5(13,5)*TWO+R5(13,21)*TWO-R4(8,8)*TWO-R4(8,34)*TWO+R3(6,27)*TWO
     * -R2(5,25)*TWO)*QZ+(+R6(17,10)-R5(11,18)+R4(8,15)+R4(8,39)
     * -R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))*ZZ
      F(4,2,4,6)= R8(23)-R7(16,2)+R6(12,1)+R6(12,9)*THREE-R5(7,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(23,3)-R6(16,7)
     * +R5(12,5)+R5(12,21)*THREE-R4(7,8)-R4(7,34)*THREE+R3(5,27)*THREE
     * -R2(4,25)*THREE)*QX
      F(5,2,4,6)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,3)-R6(17,7)+R5(13,5)+R5(13,21)-R4(8,8)
     * -R4(8,34)+R3(6,27)-R2(5,25))*QX+(+R7(17,3)-R6(11,7)+R5(8,5)
     * +R5(8,21)-R4(4,8)-R4(4,34)+R3(3,27)-R2(1,25))*QZ+(+R6(17,10)
     * -R5(11,18)+R4(8,15)+R4(8,39)-R3(4,16)-R3(4,49)+R2(5,38)-R1(1,27))
     * *XZ
      F(6,2,4,6)= R8(31)-R7(23,2)+R6(18,1)+R6(18,9)*THREE-R5(12,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(23,3)
     * -R6(16,7)+R5(12,5)+R5(12,21)*THREE-R4(7,8)-R4(7,34)*THREE
     * +R3(5,27)*THREE-R2(4,25)*THREE)*QZ
      F(1,3,4,6)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,3)*TWO-R6(13,7)*TWO
     * +R5(10,5)*TWO+R5(8,21)*TWO-R4(6,8)*TWO-R4(4,34)*TWO+R3(3,27)*TWO
     * -R2(1,25)*TWO)*QX+(+R7(13,4)*TWO-R6(8,8)*TWO+R5(6,6)*TWO
     * +R5(13,22)*TWO-R4(3,9)*TWO-R4(8,35)*TWO+R3(6,28)*TWO-R2(5,26)*TWO
     * )*QZ+(+R6(19,10)-R5(13,18)+R4(10,15)+R4(8,39)-R3(6,16)-R3(4,49)
     * +R2(5,38)-R1(1,27))*XX+(+R6(13,11)*FOUR-R5(8,19)*FOUR
     * +R4(6,16)*FOUR-R3(3,17)*FOUR)*XZ+(+R6(8,12)-R5(4,20)+R4(3,17)
     * +R4(8,41)-R3(1,18)-R3(4,51)+R2(5,40)-R1(1,29))*ZZ+(+R5(13,23)*TWO
     * -R4(8,36)*TWO+R3(6,29)*TWO-R2(5,27)*TWO)*XXZ+(+R5(8,24)*TWO
     * -R4(4,37)*TWO+R3(3,30)*TWO-R2(1,28)*TWO)*XZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXZZ
      F(2,3,4,6)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,4)*TWO-R6(17,8)*TWO
     * +R5(13,6)*TWO+R5(13,22)*TWO-R4(8,9)*TWO-R4(8,35)*TWO+R3(6,28)*TWO
     * -R2(5,26)*TWO)*QZ+(+R6(17,12)-R5(11,20)+R4(8,17)+R4(8,41)
     * -R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))*ZZ
      F(3,3,4,6)= R8(34)-R7(26,2)+R6(21,1)+R6(19,9)*SIX-R5(15,2)
     * -R5(13,17)*SIX+R4(10,14)*SIX+R4(8,38)*THREE-R3(6,15)*SIX
     * -R3(4,48)*THREE+R2(5,37)*THREE-R1(1,26)*THREE+(+R7(26,3)*TWO
     * +R7(26,4)*TWO-R6(19,7)*TWO-R6(19,8)*TWO+R5(15,5)*TWO+R5(15,6)*TWO
     * +R5(13,21)*SIX+R5(13,22)*SIX-R4(10,8)*TWO-R4(10,9)*TWO
     * -R4(8,34)*SIX-R4(8,35)*SIX+R3(6,27)*SIX+R3(6,28)*SIX-R2(5,25)*SIX
     * -R2(5,26)*SIX)*QZ+(+R6(19,10)+R6(19,11)*FOUR+R6(19,12)-R5(13,18)
     * -R5(13,19)*FOUR-R5(13,20)+R4(10,15)+R4(10,16)*FOUR+R4(10,17)
     * +R4(8,39)+R4(8,40)*FOUR+R4(8,41)-R3(6,16)-R3(6,17)*FOUR-R3(6,18)
     * -R3(4,49)-R3(4,50)*FOUR-R3(4,51)+R2(5,38)+R2(5,39)*FOUR+R2(5,40)
     * -R1(1,27)-R1(1,28)*FOUR-R1(1,29))*ZZ+(+R5(13,23)*TWO
     * +R5(13,24)*TWO-R4(8,36)*TWO-R4(8,37)*TWO+R3(6,29)*TWO
     * +R3(6,30)*TWO-R2(5,27)*TWO-R2(5,28)*TWO)*ZZZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*ZZZZ
      F(4,3,4,6)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,3)-R6(18,7)+R5(14,5)+R5(12,21)-R4(9,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QX+(+R7(18,4)*TWO-R6(12,8)*TWO
     * +R5(9,6)*TWO-R4(5,9)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,19)*TWO
     * +R4(9,16)*TWO-R3(5,17)*TWO)*XZ+(+R6(12,12)-R5(7,20)+R4(5,17)
     * -R3(2,18))*ZZ+(+R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XZZ
      F(5,3,4,6)= R8(26)-R7(19,2)+R6(15,1)+R6(13,9)*THREE-R5(10,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(26,3)-R6(19,7)
     * +R5(15,5)+R5(13,21)*THREE-R4(10,8)-R4(8,34)*THREE+R3(6,27)*THREE
     * -R2(5,25)*THREE)*QX+(+R7(19,3)+R7(19,4)*TWO-R6(13,7)-R6(13,8)*TWO
     * +R5(10,5)+R5(10,6)*TWO+R5(8,21)+R5(8,22)*TWO-R4(6,8)-R4(6,9)*TWO
     * -R4(4,34)-R4(4,35)*TWO+R3(3,27)+R3(3,28)*TWO-R2(1,25)
     * -R2(1,26)*TWO)*QZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,18)
     * -R5(13,19)*TWO+R4(10,15)+R4(10,16)*TWO+R4(8,39)+R4(8,40)*TWO
     * -R3(6,16)-R3(6,17)*TWO-R3(4,49)-R3(4,50)*TWO+R2(5,38)
     * +R2(5,39)*TWO-R1(1,27)-R1(1,28)*TWO)*XZ+(+R6(13,11)*TWO+R6(13,12)
     * -R5(8,19)*TWO-R5(8,20)+R4(6,16)*TWO+R4(6,17)-R3(3,17)*TWO
     * -R3(3,18))*ZZ+(+R5(13,23)*TWO+R5(13,24)-R4(8,36)*TWO-R4(8,37)
     * +R3(6,29)*TWO+R3(6,30)-R2(5,27)*TWO-R2(5,28))*XZZ+(+R5(8,24)
     * -R4(4,37)+R3(3,30)-R2(1,28))*ZZZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XZZZ
      F(6,3,4,6)= R8(33)-R7(25,2)+R6(20,1)+R6(18,9)*THREE-R5(14,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(25,3)
     * +R7(25,4)*TWO-R6(18,7)-R6(18,8)*TWO+R5(14,5)+R5(14,6)*TWO
     * +R5(12,21)+R5(12,22)*TWO-R4(9,8)-R4(9,9)*TWO-R4(7,34)
     * -R4(7,35)*TWO+R3(5,27)+R3(5,28)*TWO-R2(4,25)-R2(4,26)*TWO)*QZ+(
     * +R6(18,11)*TWO+R6(18,12)-R5(12,19)*TWO-R5(12,20)+R4(9,16)*TWO
     * +R4(9,17)-R3(5,17)*TWO-R3(5,18))*ZZ+(+R5(12,24)-R4(7,37)+R3(5,30)
     * -R2(4,28))*ZZZ
      F(1,4,4,6)= R8(12)-R7(7,2)+R6(5,1)+R6(12,9)*THREE-R5(2,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(12,3)*TWO
     * +R7(12,4)-R6(7,7)*TWO-R6(7,8)+R5(5,5)*TWO+R5(5,6)+R5(12,21)*TWO
     * +R5(12,22)-R4(2,8)*TWO-R4(2,9)-R4(7,34)*TWO-R4(7,35)+R3(5,27)*TWO
     * +R3(5,28)-R2(4,25)*TWO-R2(4,26))*QX+(+R6(12,10)+R6(12,11)*TWO
     * -R5(7,18)-R5(7,19)*TWO+R4(5,15)+R4(5,16)*TWO-R3(2,16)
     * -R3(2,17)*TWO)*XX+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XXX
      F(2,4,4,6)= R8(23)-R7(16,2)+R6(12,1)+R6(12,9)*THREE-R5(7,2)
     * -R5(7,17)*THREE+R4(5,14)*THREE-R3(2,15)*THREE+(+R7(23,4)-R6(16,8)
     * +R5(12,6)+R5(12,22)*THREE-R4(7,9)-R4(7,35)*THREE+R3(5,28)*THREE
     * -R2(4,26)*THREE)*QX
      F(3,4,4,6)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,4)-R6(18,8)+R5(14,6)+R5(12,22)-R4(9,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QX+(+R7(18,3)*TWO-R6(12,7)*TWO
     * +R5(9,5)*TWO-R4(5,8)*TWO)*QZ+(+R6(18,11)*TWO-R5(12,19)*TWO
     * +R4(9,16)*TWO-R3(5,17)*TWO)*XZ+(+R6(12,10)-R5(7,18)+R4(5,15)
     * -R3(2,16))*ZZ+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XZZ
      F(4,4,4,6)= R8(17)-R7(11,2)+R6(8,1)+R6(8,9)+R6(17,9)-R5(4,2)
     * -R5(4,17)-R5(11,17)+R4(3,14)+R4(8,14)+R4(8,38)-R3(1,15)-R3(4,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(17,3)+R7(17,4)-R6(11,7)-R6(11,8)
     * +R5(8,5)+R5(8,6)+R5(8,21)+R5(8,22)-R4(4,8)-R4(4,9)-R4(4,34)
     * -R4(4,35)+R3(3,27)+R3(3,28)-R2(1,25)-R2(1,26))*QX+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XX
      F(5,4,4,6)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)+R5(9,5)
     * +R5(9,6)-R4(5,8)-R4(5,9))*QX+(+R7(12,3)-R6(7,7)+R5(5,5)+R5(12,21)
     * -R4(2,8)-R4(7,34)+R3(5,27)-R2(4,25))*QZ+(+R6(18,11)-R5(12,19)
     * +R4(9,16)-R3(5,17))*XX+(+R6(12,10)+R6(12,11)-R5(7,18)-R5(7,19)
     * +R4(5,15)+R4(5,16)-R3(2,16)-R3(2,17))*XZ+(+R5(12,23)-R4(7,36)
     * +R3(5,29)-R2(4,27))*XXZ
      F(6,4,4,6)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,4)-R6(17,8)+R5(13,6)+R5(13,22)-R4(8,9)
     * -R4(8,35)+R3(6,28)-R2(5,26))*QX+(+R7(17,3)-R6(11,7)+R5(8,5)
     * +R5(8,21)-R4(4,8)-R4(4,34)+R3(3,27)-R2(1,25))*QZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XZ
      F(1,5,4,6)= R8(13)-R7(8,2)+R6(6,1)+R6(13,9)*THREE-R5(3,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(13,3)*TWO
     * +R7(13,4)-R6(8,7)*TWO-R6(8,8)+R5(6,5)*TWO+R5(6,6)+R5(13,21)*TWO
     * +R5(13,22)-R4(3,8)*TWO-R4(3,9)-R4(8,34)*TWO-R4(8,35)+R3(6,27)*TWO
     * +R3(6,28)-R2(5,25)*TWO-R2(5,26))*QX+(+R7(8,4)-R6(4,8)+R5(3,6)
     * +R5(8,22)*THREE-R4(1,9)-R4(4,35)*THREE+R3(3,28)*THREE
     * -R2(1,26)*THREE)*QZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,18)
     * -R5(8,19)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,16)-R3(3,17)*TWO)*XX+(
     * +R6(8,11)*TWO+R6(8,12)-R5(4,19)*TWO-R5(4,20)+R4(3,16)*TWO
     * +R4(3,17)+R4(8,40)*TWO+R4(8,41)-R3(1,17)*TWO-R3(1,18)
     * -R3(4,50)*TWO-R3(4,51)+R2(5,39)*TWO+R2(5,40)-R1(1,28)*TWO
     * -R1(1,29))*XZ+(+R5(13,23)-R4(8,36)+R3(6,29)-R2(5,27))*XXX+(
     * +R5(8,23)+R5(8,24)*TWO-R4(4,36)-R4(4,37)*TWO+R3(3,29)
     * +R3(3,30)*TWO-R2(1,27)-R2(1,28)*TWO)*XXZ+(+R4(8,42)-R3(4,52)
     * +R2(5,41)-R1(1,30))*XXXZ
      F(2,5,4,6)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,4)-R6(17,8)+R5(13,6)+R5(13,22)-R4(8,9)
     * -R4(8,35)+R3(6,28)-R2(5,26))*QX+(+R7(17,4)-R6(11,8)+R5(8,6)
     * +R5(8,22)-R4(4,9)-R4(4,35)+R3(3,28)-R2(1,26))*QZ+(+R6(17,12)
     * -R5(11,20)+R4(8,17)+R4(8,41)-R3(4,18)-R3(4,51)+R2(5,40)-R1(1,29))
     * *XZ
      F(3,5,4,6)= R8(26)-R7(19,2)+R6(15,1)+R6(13,9)*THREE-R5(10,2)
     * -R5(8,17)*THREE+R4(6,14)*THREE-R3(3,15)*THREE+(+R7(26,4)-R6(19,8)
     * +R5(15,6)+R5(13,22)*THREE-R4(10,9)-R4(8,35)*THREE+R3(6,28)*THREE
     * -R2(5,26)*THREE)*QX+(+R7(19,3)*TWO+R7(19,4)-R6(13,7)*TWO-R6(13,8)
     * +R5(10,5)*TWO+R5(10,6)+R5(8,21)*TWO+R5(8,22)-R4(6,8)*TWO-R4(6,9)
     * -R4(4,34)*TWO-R4(4,35)+R3(3,27)*TWO+R3(3,28)-R2(1,25)*TWO
     * -R2(1,26))*QZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,19)*TWO-R5(13,20)
     * +R4(10,16)*TWO+R4(10,17)+R4(8,40)*TWO+R4(8,41)-R3(6,17)*TWO
     * -R3(6,18)-R3(4,50)*TWO-R3(4,51)+R2(5,39)*TWO+R2(5,40)
     * -R1(1,28)*TWO-R1(1,29))*XZ+(+R6(13,10)+R6(13,11)*TWO-R5(8,18)
     * -R5(8,19)*TWO+R4(6,15)+R4(6,16)*TWO-R3(3,16)-R3(3,17)*TWO)*ZZ+(
     * +R5(13,23)+R5(13,24)*TWO-R4(8,36)-R4(8,37)*TWO+R3(6,29)
     * +R3(6,30)*TWO-R2(5,27)-R2(5,28)*TWO)*XZZ+(+R5(8,23)-R4(4,36)
     * +R3(3,29)-R2(1,27))*ZZZ+(+R4(8,42)-R3(4,52)+R2(5,41)-R1(1,30))
     * *XZZZ
      F(4,5,4,6)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)+R7(18,4)-R6(12,7)-R6(12,8)+R5(9,5)
     * +R5(9,6)-R4(5,8)-R4(5,9))*QX+(+R7(12,4)-R6(7,8)+R5(5,6)+R5(12,22)
     * -R4(2,9)-R4(7,35)+R3(5,28)-R2(4,26))*QZ+(+R6(18,11)-R5(12,19)
     * +R4(9,16)-R3(5,17))*XX+(+R6(12,11)+R6(12,12)-R5(7,19)-R5(7,20)
     * +R4(5,16)+R4(5,17)-R3(2,17)-R3(2,18))*XZ+(+R5(12,24)-R4(7,37)
     * +R3(5,30)-R2(4,28))*XXZ
      F(5,5,4,6)= R8(19)-R7(13,2)+R6(10,1)+R6(8,9)+R6(19,9)-R5(6,2)
     * -R5(4,17)-R5(13,17)+R4(3,14)+R4(10,14)+R4(8,38)-R3(1,15)-R3(6,15)
     * -R3(4,48)+R2(5,37)-R1(1,26)+(+R7(19,3)+R7(19,4)-R6(13,7)-R6(13,8)
     * +R5(10,5)+R5(10,6)+R5(8,21)+R5(8,22)-R4(6,8)-R4(6,9)-R4(4,34)
     * -R4(4,35)+R3(3,27)+R3(3,28)-R2(1,25)-R2(1,26))*QX+(+R7(13,3)
     * +R7(13,4)-R6(8,7)-R6(8,8)+R5(6,5)+R5(6,6)+R5(13,21)+R5(13,22)
     * -R4(3,8)-R4(3,9)-R4(8,34)-R4(8,35)+R3(6,27)+R3(6,28)-R2(5,25)
     * -R2(5,26))*QZ+(+R6(19,11)-R5(13,19)+R4(10,16)+R4(8,40)-R3(6,17)
     * -R3(4,50)+R2(5,39)-R1(1,28))*XX+(+R6(13,10)+R6(13,11)*TWO
     * +R6(13,12)-R5(8,18)-R5(8,19)*TWO-R5(8,20)+R4(6,15)+R4(6,16)*TWO
     * +R4(6,17)-R3(3,16)-R3(3,17)*TWO-R3(3,18))*XZ+(+R6(8,11)-R5(4,19)
     * +R4(3,16)+R4(8,40)-R3(1,17)-R3(4,50)+R2(5,39)-R1(1,28))*ZZ+(
     * +R5(13,23)+R5(13,24)-R4(8,36)-R4(8,37)+R3(6,29)+R3(6,30)-R2(5,27)
     * -R2(5,28))*XXZ+(+R5(8,23)+R5(8,24)-R4(4,36)-R4(4,37)+R3(3,29)
     * +R3(3,30)-R2(1,27)-R2(1,28))*XZZ+(+R4(8,42)-R3(4,52)+R2(5,41)
     * -R1(1,30))*XXZZ
      F(6,5,4,6)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,4)-R6(18,8)+R5(14,6)+R5(12,22)-R4(9,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QX+(+R7(18,3)+R7(18,4)-R6(12,7)
     * -R6(12,8)+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(+R6(18,11)
     * +R6(18,12)-R5(12,19)-R5(12,20)+R4(9,16)+R4(9,17)-R3(5,17)
     * -R3(5,18))*XZ+(+R6(12,11)-R5(7,19)+R4(5,16)-R3(2,17))*ZZ+(
     * +R5(12,24)-R4(7,37)+R3(5,30)-R2(4,28))*XZZ
      F(1,6,4,6)= R8(18)-R7(12,2)+R6(9,1)+R6(18,9)-R5(5,2)-R5(12,17)
     * +R4(9,14)-R3(5,15)+(+R7(18,3)*TWO-R6(12,7)*TWO+R5(9,5)*TWO
     * -R4(5,8)*TWO)*QX+(+R7(12,4)-R6(7,8)+R5(5,6)+R5(12,22)-R4(2,9)
     * -R4(7,35)+R3(5,28)-R2(4,26))*QZ+(+R6(18,10)-R5(12,18)+R4(9,15)
     * -R3(5,16))*XX+(+R6(12,11)*TWO-R5(7,19)*TWO+R4(5,16)*TWO
     * -R3(2,17)*TWO)*XZ+(+R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XXZ
      F(2,6,4,6)= R8(31)-R7(23,2)+R6(18,1)+R6(18,9)*THREE-R5(12,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(23,4)
     * -R6(16,8)+R5(12,6)+R5(12,22)*THREE-R4(7,9)-R4(7,35)*THREE
     * +R3(5,28)*THREE-R2(4,26)*THREE)*QZ
      F(3,6,4,6)= R8(33)-R7(25,2)+R6(20,1)+R6(18,9)*THREE-R5(14,2)
     * -R5(12,17)*THREE+R4(9,14)*THREE-R3(5,15)*THREE+(+R7(25,3)*TWO
     * +R7(25,4)-R6(18,7)*TWO-R6(18,8)+R5(14,5)*TWO+R5(14,6)
     * +R5(12,21)*TWO+R5(12,22)-R4(9,8)*TWO-R4(9,9)-R4(7,34)*TWO
     * -R4(7,35)+R3(5,27)*TWO+R3(5,28)-R2(4,25)*TWO-R2(4,26))*QZ+(
     * +R6(18,10)+R6(18,11)*TWO-R5(12,18)-R5(12,19)*TWO+R4(9,15)
     * +R4(9,16)*TWO-R3(5,16)-R3(5,17)*TWO)*ZZ+(+R5(12,23)-R4(7,36)
     * +R3(5,29)-R2(4,27))*ZZZ
      F(4,6,4,6)= R8(24)-R7(17,2)+R6(13,1)+R6(13,9)-R5(8,2)-R5(8,17)
     * +R4(6,14)-R3(3,15)+(+R7(24,3)-R6(17,7)+R5(13,5)+R5(13,21)-R4(8,8)
     * -R4(8,34)+R3(6,27)-R2(5,25))*QX+(+R7(17,4)-R6(11,8)+R5(8,6)
     * +R5(8,22)-R4(4,9)-R4(4,35)+R3(3,28)-R2(1,26))*QZ+(+R6(17,11)
     * -R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)-R1(1,28))
     * *XZ
      F(5,6,4,6)= R8(25)-R7(18,2)+R6(14,1)+R6(12,9)-R5(9,2)-R5(7,17)
     * +R4(5,14)-R3(2,15)+(+R7(25,3)-R6(18,7)+R5(14,5)+R5(12,21)-R4(9,8)
     * -R4(7,34)+R3(5,27)-R2(4,25))*QX+(+R7(18,3)+R7(18,4)-R6(12,7)
     * -R6(12,8)+R5(9,5)+R5(9,6)-R4(5,8)-R4(5,9))*QZ+(+R6(18,10)
     * +R6(18,11)-R5(12,18)-R5(12,19)+R4(9,15)+R4(9,16)-R3(5,16)
     * -R3(5,17))*XZ+(+R6(12,11)-R5(7,19)+R4(5,16)-R3(2,17))*ZZ+(
     * +R5(12,23)-R4(7,36)+R3(5,29)-R2(4,27))*XZZ
      F(6,6,4,6)= R8(32)-R7(24,2)+R6(19,1)+R6(17,9)+R6(19,9)-R5(13,2)
     * -R5(11,17)-R5(13,17)+R4(8,14)+R4(10,14)+R4(8,38)-R3(4,15)
     * -R3(6,15)-R3(4,48)+R2(5,37)-R1(1,26)+(+R7(24,3)+R7(24,4)-R6(17,7)
     * -R6(17,8)+R5(13,5)+R5(13,6)+R5(13,21)+R5(13,22)-R4(8,8)-R4(8,9)
     * -R4(8,34)-R4(8,35)+R3(6,27)+R3(6,28)-R2(5,25)-R2(5,26))*QZ+(
     * +R6(17,11)-R5(11,19)+R4(8,16)+R4(8,40)-R3(4,17)-R3(4,50)+R2(5,39)
     * -R1(1,28))*ZZ
      F(1,1,5,6)= R8(9)-R7(5,1)-R7(5,2)+R6(2,1)+R6(2,3)+R6(9,9)*SIX
     * -R5(5,13)*SIX-R5(5,17)*SIX+R4(2,14)*SIX+R4(2,22)*SIX
     * +R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE+R2(4,37)*THREE
     * +R2(4,47)*THREE+(+R7(9,3)*TWO+R7(9,4)*TWO-R6(5,5)*TWO-R6(5,6)*TWO
     * -R6(5,7)*TWO-R6(5,8)*TWO+R5(2,5)*TWO+R5(2,6)*TWO+R5(2,9)*TWO
     * +R5(2,10)*TWO+R5(9,21)*SIX+R5(9,22)*SIX-R4(5,30)*SIX-R4(5,31)*SIX
     * -R4(5,34)*SIX-R4(5,35)*SIX+R3(2,27)*SIX+R3(2,28)*SIX+R3(2,35)*SIX
     * +R3(2,36)*SIX)*QX+(+R6(9,10)+R6(9,11)*FOUR+R6(9,12)-R5(5,14)
     * -R5(5,15)*FOUR-R5(5,16)-R5(5,18)-R5(5,19)*FOUR-R5(5,20)+R4(2,15)
     * +R4(2,16)*FOUR+R4(2,17)+R4(2,23)+R4(2,24)*FOUR+R4(2,25)+R4(9,39)
     * +R4(9,40)*FOUR+R4(9,41)-R3(5,44)-R3(5,45)*FOUR-R3(5,46)-R3(5,49)
     * -R3(5,50)*FOUR-R3(5,51)+R2(4,38)+R2(4,39)*FOUR+R2(4,40)+R2(4,48)
     * +R2(4,49)*FOUR+R2(4,50))*XX+(+R5(9,23)*TWO+R5(9,24)*TWO
     * -R4(5,32)*TWO-R4(5,33)*TWO-R4(5,36)*TWO-R4(5,37)*TWO+R3(2,29)*TWO
     * +R3(2,30)*TWO+R3(2,37)*TWO+R3(2,38)*TWO)*XXX+(+R4(9,42)-R3(5,47)
     * -R3(5,52)+R2(4,41)+R2(4,51))*XXXX
      F(2,1,5,6)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,4)*TWO-R6(12,6)*TWO-R6(12,8)*TWO+R5(7,6)*TWO+R5(7,10)*TWO
     * +R5(9,22)*TWO-R4(5,31)*TWO-R4(5,35)*TWO+R3(2,28)*TWO+R3(2,36)*TWO
     * )*QX+(+R6(18,12)-R5(12,16)-R5(12,20)+R4(7,17)+R4(7,25)+R4(9,41)
     * -R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*XX
      F(3,1,5,6)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,4)*TWO-R6(14,6)*TWO-R6(14,8)*TWO+R5(9,6)*TWO+R5(9,10)*TWO
     * +R5(9,22)*TWO-R4(5,31)*TWO-R4(5,35)*TWO+R3(2,28)*TWO+R3(2,36)*TWO
     * )*QX+(+R7(14,3)*TWO-R6(9,5)*TWO-R6(9,7)*TWO+R5(5,5)*TWO
     * +R5(5,9)*TWO+R5(14,21)*TWO-R4(9,30)*TWO-R4(9,34)*TWO+R3(5,27)*TWO
     * +R3(5,35)*TWO)*QZ+(+R6(20,12)-R5(14,16)-R5(14,20)+R4(9,17)
     * +R4(9,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*XX+(
     * +R6(14,11)*FOUR-R5(9,15)*FOUR-R5(9,19)*FOUR+R4(5,16)*FOUR
     * +R4(5,24)*FOUR)*XZ+(+R6(9,10)-R5(5,14)-R5(5,18)+R4(2,15)+R4(2,23)
     * +R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))*ZZ+(+R5(14,24)*TWO
     * -R4(9,33)*TWO-R4(9,37)*TWO+R3(5,30)*TWO+R3(5,38)*TWO)*XXZ+(
     * +R5(9,23)*TWO-R4(5,32)*TWO-R4(5,36)*TWO+R3(2,29)*TWO+R3(2,37)*TWO
     * )*XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(4,1,5,6)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(4,3)+R6(13,9)*THREE
     * -R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE+R4(4,22)*THREE+(
     * +R7(13,3)+R7(13,4)*TWO-R6(8,5)-R6(8,6)*TWO-R6(8,7)-R6(8,8)*TWO
     * +R5(4,5)+R5(4,6)*TWO+R5(4,9)+R5(4,10)*TWO+R5(13,21)+R5(13,22)*TWO
     * -R4(8,30)-R4(8,31)*TWO-R4(8,34)-R4(8,35)*TWO+R3(4,27)
     * +R3(4,28)*TWO+R3(4,35)+R3(4,36)*TWO)*QX+(+R6(13,11)*TWO+R6(13,12)
     * -R5(8,15)*TWO-R5(8,16)-R5(8,19)*TWO-R5(8,20)+R4(4,16)*TWO
     * +R4(4,17)+R4(4,24)*TWO+R4(4,25))*XX+(+R5(13,24)-R4(8,33)-R4(8,37)
     * +R3(4,30)+R3(4,38))*XXX
      F(5,1,5,6)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(5,3)+R6(14,9)*THREE
     * -R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE+R4(5,22)*THREE+(
     * +R7(14,3)+R7(14,4)*TWO-R6(9,5)-R6(9,6)*TWO-R6(9,7)-R6(9,8)*TWO
     * +R5(5,5)+R5(5,6)*TWO+R5(5,9)+R5(5,10)*TWO+R5(14,21)+R5(14,22)*TWO
     * -R4(9,30)-R4(9,31)*TWO-R4(9,34)-R4(9,35)*TWO+R3(5,27)
     * +R3(5,28)*TWO+R3(5,35)+R3(5,36)*TWO)*QX+(+R7(9,3)-R6(5,5)-R6(5,7)
     * +R5(2,5)+R5(2,9)+R5(9,21)*THREE-R4(5,30)*THREE-R4(5,34)*THREE
     * +R3(2,27)*THREE+R3(2,35)*THREE)*QZ+(+R6(14,11)*TWO+R6(14,12)
     * -R5(9,15)*TWO-R5(9,16)-R5(9,19)*TWO-R5(9,20)+R4(5,16)*TWO
     * +R4(5,17)+R4(5,24)*TWO+R4(5,25))*XX+(+R6(9,10)+R6(9,11)*TWO
     * -R5(5,14)-R5(5,15)*TWO-R5(5,18)-R5(5,19)*TWO+R4(2,15)
     * +R4(2,16)*TWO+R4(2,23)+R4(2,24)*TWO+R4(9,39)+R4(9,40)*TWO
     * -R3(5,44)-R3(5,45)*TWO-R3(5,49)-R3(5,50)*TWO+R2(4,38)
     * +R2(4,39)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(+R5(14,24)-R4(9,33)
     * -R4(9,37)+R3(5,30)+R3(5,38))*XXX+(+R5(9,23)*TWO+R5(9,24)
     * -R4(5,32)*TWO-R4(5,33)-R4(5,36)*TWO-R4(5,37)+R3(2,29)*TWO
     * +R3(2,30)+R3(2,37)*TWO+R3(2,38))*XXZ+(+R4(9,42)-R3(5,47)-R3(5,52)
     * +R2(4,41)+R2(4,51))*XXXZ
      F(6,1,5,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,4)*TWO
     * -R6(13,6)*TWO-R6(13,8)*TWO+R5(8,6)*TWO+R5(8,10)*TWO)*QX+(
     * +R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(4,9)+R5(13,21)-R4(8,30)
     * -R4(8,34)+R3(4,27)+R3(4,35))*QZ+(+R6(19,12)-R5(13,16)-R5(13,20)
     * +R4(8,17)+R4(8,25))*XX+(+R6(13,11)*TWO-R5(8,15)*TWO-R5(8,19)*TWO
     * +R4(4,16)*TWO+R4(4,24)*TWO)*XZ+(+R5(13,24)-R4(8,33)-R4(8,37)
     * +R3(4,30)+R3(4,38))*XXZ
      F(1,2,5,6)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,3)*TWO-R6(12,5)*TWO-R6(12,7)*TWO+R5(7,5)*TWO+R5(7,9)*TWO
     * +R5(9,21)*TWO-R4(5,30)*TWO-R4(5,34)*TWO+R3(2,27)*TWO+R3(2,35)*TWO
     * )*QX+(+R6(18,10)-R5(12,14)-R5(12,18)+R4(7,15)+R4(7,23)+R4(9,39)
     * -R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))*XX
      F(2,2,5,6)= R8(31)-R7(23,1)-R7(23,2)+R6(16,1)+R6(16,3)
     * +R6(18,9)*SIX-R5(12,13)*SIX-R5(12,17)*SIX+R4(7,14)*SIX
     * +R4(7,22)*SIX+R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE
     * +R2(4,37)*THREE+R2(4,47)*THREE
      F(3,2,5,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,3)*TWO-R6(18,5)*TWO-R6(18,7)*TWO+R5(12,5)*TWO
     * +R5(12,9)*TWO+R5(14,21)*TWO-R4(9,30)*TWO-R4(9,34)*TWO
     * +R3(5,27)*TWO+R3(5,35)*TWO)*QZ+(+R6(18,10)-R5(12,14)-R5(12,18)
     * +R4(7,15)+R4(7,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))
     * *ZZ
      F(4,2,5,6)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(11,3)
     * +R6(13,9)*THREE-R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE
     * +R4(4,22)*THREE+(+R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(11,9)
     * +R5(13,21)*THREE-R4(8,30)*THREE-R4(8,34)*THREE+R3(4,27)*THREE
     * +R3(4,35)*THREE)*QX
      F(5,2,5,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,3)-R6(18,5)-R6(18,7)
     * +R5(12,5)+R5(12,9)+R5(14,21)-R4(9,30)-R4(9,34)+R3(5,27)+R3(5,35))
     * *QX+(+R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(7,9)+R5(9,21)
     * -R4(5,30)-R4(5,34)+R3(2,27)+R3(2,35))*QZ+(+R6(18,10)-R5(12,14)
     * -R5(12,18)+R4(7,15)+R4(7,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)
     * +R2(4,48))*XZ
      F(6,2,5,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(17,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(11,9)
     * +R5(13,21)*THREE-R4(8,30)*THREE-R4(8,34)*THREE+R3(4,27)*THREE
     * +R3(4,35)*THREE)*QZ
      F(1,3,5,6)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,3)*TWO-R6(14,5)*TWO-R6(14,7)*TWO+R5(9,5)*TWO+R5(9,9)*TWO
     * +R5(9,21)*TWO-R4(5,30)*TWO-R4(5,34)*TWO+R3(2,27)*TWO+R3(2,35)*TWO
     * )*QX+(+R7(14,4)*TWO-R6(9,6)*TWO-R6(9,8)*TWO+R5(5,6)*TWO
     * +R5(5,10)*TWO+R5(14,22)*TWO-R4(9,31)*TWO-R4(9,35)*TWO
     * +R3(5,28)*TWO+R3(5,36)*TWO)*QZ+(+R6(20,10)-R5(14,14)-R5(14,18)
     * +R4(9,15)+R4(9,23)+R4(9,39)-R3(5,44)-R3(5,49)+R2(4,38)+R2(4,48))
     * *XX+(+R6(14,11)*FOUR-R5(9,15)*FOUR-R5(9,19)*FOUR+R4(5,16)*FOUR
     * +R4(5,24)*FOUR)*XZ+(+R6(9,12)-R5(5,16)-R5(5,20)+R4(2,17)+R4(2,25)
     * +R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))*ZZ+(+R5(14,23)*TWO
     * -R4(9,32)*TWO-R4(9,36)*TWO+R3(5,29)*TWO+R3(5,37)*TWO)*XXZ+(
     * +R5(9,24)*TWO-R4(5,33)*TWO-R4(5,37)*TWO+R3(2,30)*TWO+R3(2,38)*TWO
     * )*XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(2,3,5,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,4)*TWO-R6(18,6)*TWO-R6(18,8)*TWO+R5(12,6)*TWO
     * +R5(12,10)*TWO+R5(14,22)*TWO-R4(9,31)*TWO-R4(9,35)*TWO
     * +R3(5,28)*TWO+R3(5,36)*TWO)*QZ+(+R6(18,12)-R5(12,16)-R5(12,20)
     * +R4(7,17)+R4(7,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)+R2(4,50))
     * *ZZ
      F(3,3,5,6)= R8(35)-R7(27,1)-R7(27,2)+R6(20,1)+R6(20,3)
     * +R6(20,9)*SIX-R5(14,13)*SIX-R5(14,17)*SIX+R4(9,14)*SIX
     * +R4(9,22)*SIX+R4(9,38)*THREE-R3(5,43)*THREE-R3(5,48)*THREE
     * +R2(4,37)*THREE+R2(4,47)*THREE+(+R7(27,3)*TWO+R7(27,4)*TWO
     * -R6(20,5)*TWO-R6(20,6)*TWO-R6(20,7)*TWO-R6(20,8)*TWO+R5(14,5)*TWO
     * +R5(14,6)*TWO+R5(14,9)*TWO+R5(14,10)*TWO+R5(14,21)*SIX
     * +R5(14,22)*SIX-R4(9,30)*SIX-R4(9,31)*SIX-R4(9,34)*SIX
     * -R4(9,35)*SIX+R3(5,27)*SIX+R3(5,28)*SIX+R3(5,35)*SIX+R3(5,36)*SIX
     * )*QZ+(+R6(20,10)+R6(20,11)*FOUR+R6(20,12)-R5(14,14)
     * -R5(14,15)*FOUR-R5(14,16)-R5(14,18)-R5(14,19)*FOUR-R5(14,20)
     * +R4(9,15)+R4(9,16)*FOUR+R4(9,17)+R4(9,23)+R4(9,24)*FOUR+R4(9,25)
     * +R4(9,39)+R4(9,40)*FOUR+R4(9,41)-R3(5,44)-R3(5,45)*FOUR-R3(5,46)
     * -R3(5,49)-R3(5,50)*FOUR-R3(5,51)+R2(4,38)+R2(4,39)*FOUR+R2(4,40)
     * +R2(4,48)+R2(4,49)*FOUR+R2(4,50))*ZZ+(+R5(14,23)*TWO
     * +R5(14,24)*TWO-R4(9,32)*TWO-R4(9,33)*TWO-R4(9,36)*TWO
     * -R4(9,37)*TWO+R3(5,29)*TWO+R3(5,30)*TWO+R3(5,37)*TWO+R3(5,38)*TWO
     * )*ZZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*ZZZZ
      F(4,3,5,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,3)-R6(19,5)-R6(19,7)
     * +R5(13,5)+R5(13,9)+R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))
     * *QX+(+R7(19,4)*TWO-R6(13,6)*TWO-R6(13,8)*TWO+R5(8,6)*TWO
     * +R5(8,10)*TWO)*QZ+(+R6(19,11)*TWO-R5(13,15)*TWO-R5(13,19)*TWO
     * +R4(8,16)*TWO+R4(8,24)*TWO)*XZ+(+R6(13,12)-R5(8,16)-R5(8,20)
     * +R4(4,17)+R4(4,25))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)
     * +R3(4,38))*XZZ
      F(5,3,5,6)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE
     * +R4(5,22)*THREE+(+R7(27,3)-R6(20,5)-R6(20,7)+R5(14,5)+R5(14,9)
     * +R5(14,21)*THREE-R4(9,30)*THREE-R4(9,34)*THREE+R3(5,27)*THREE
     * +R3(5,35)*THREE)*QX+(+R7(20,3)+R7(20,4)*TWO-R6(14,5)-R6(14,6)*TWO
     * -R6(14,7)-R6(14,8)*TWO+R5(9,5)+R5(9,6)*TWO+R5(9,9)+R5(9,10)*TWO
     * +R5(9,21)+R5(9,22)*TWO-R4(5,30)-R4(5,31)*TWO-R4(5,34)
     * -R4(5,35)*TWO+R3(2,27)+R3(2,28)*TWO+R3(2,35)+R3(2,36)*TWO)*QZ+(
     * +R6(20,10)+R6(20,11)*TWO-R5(14,14)-R5(14,15)*TWO-R5(14,18)
     * -R5(14,19)*TWO+R4(9,15)+R4(9,16)*TWO+R4(9,23)+R4(9,24)*TWO
     * +R4(9,39)+R4(9,40)*TWO-R3(5,44)-R3(5,45)*TWO-R3(5,49)
     * -R3(5,50)*TWO+R2(4,38)+R2(4,39)*TWO+R2(4,48)+R2(4,49)*TWO)*XZ+(
     * +R6(14,11)*TWO+R6(14,12)-R5(9,15)*TWO-R5(9,16)-R5(9,19)*TWO
     * -R5(9,20)+R4(5,16)*TWO+R4(5,17)+R4(5,24)*TWO+R4(5,25))*ZZ+(
     * +R5(14,23)*TWO+R5(14,24)-R4(9,32)*TWO-R4(9,33)-R4(9,36)*TWO
     * -R4(9,37)+R3(5,29)*TWO+R3(5,30)+R3(5,37)*TWO+R3(5,38))*XZZ+(
     * +R5(9,24)-R4(5,33)-R4(5,37)+R3(2,30)+R3(2,38))*ZZZ+(+R4(9,42)
     * -R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XZZZ
      F(6,3,5,6)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(26,3)+R7(26,4)*TWO-R6(19,5)-R6(19,6)*TWO
     * -R6(19,7)-R6(19,8)*TWO+R5(13,5)+R5(13,6)*TWO+R5(13,9)
     * +R5(13,10)*TWO+R5(13,21)+R5(13,22)*TWO-R4(8,30)-R4(8,31)*TWO
     * -R4(8,34)-R4(8,35)*TWO+R3(4,27)+R3(4,28)*TWO+R3(4,35)
     * +R3(4,36)*TWO)*QZ+(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*TWO
     * -R5(13,16)-R5(13,19)*TWO-R5(13,20)+R4(8,16)*TWO+R4(8,17)
     * +R4(8,24)*TWO+R4(8,25))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)
     * +R3(4,38))*ZZZ
      F(1,4,5,6)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(4,3)+R6(13,9)*THREE
     * -R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE+R4(4,22)*THREE+(
     * +R7(13,3)*TWO+R7(13,4)-R6(8,5)*TWO-R6(8,6)-R6(8,7)*TWO-R6(8,8)
     * +R5(4,5)*TWO+R5(4,6)+R5(4,9)*TWO+R5(4,10)+R5(13,21)*TWO+R5(13,22)
     * -R4(8,30)*TWO-R4(8,31)-R4(8,34)*TWO-R4(8,35)+R3(4,27)*TWO
     * +R3(4,28)+R3(4,35)*TWO+R3(4,36))*QX+(+R6(13,10)+R6(13,11)*TWO
     * -R5(8,14)-R5(8,15)*TWO-R5(8,18)-R5(8,19)*TWO+R4(4,15)
     * +R4(4,16)*TWO+R4(4,23)+R4(4,24)*TWO)*XX+(+R5(13,23)-R4(8,32)
     * -R4(8,36)+R3(4,29)+R3(4,37))*XXX
      F(2,4,5,6)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(11,3)
     * +R6(13,9)*THREE-R5(8,13)*THREE-R5(8,17)*THREE+R4(4,14)*THREE
     * +R4(4,22)*THREE+(+R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(11,10)
     * +R5(13,22)*THREE-R4(8,31)*THREE-R4(8,35)*THREE+R3(4,28)*THREE
     * +R3(4,36)*THREE)*QX
      F(3,4,5,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,4)-R6(19,6)-R6(19,8)
     * +R5(13,6)+R5(13,10)+R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36)
     * )*QX+(+R7(19,3)*TWO-R6(13,5)*TWO-R6(13,7)*TWO+R5(8,5)*TWO
     * +R5(8,9)*TWO)*QZ+(+R6(19,11)*TWO-R5(13,15)*TWO-R5(13,19)*TWO
     * +R4(8,16)*TWO+R4(8,24)*TWO)*XZ+(+R6(13,10)-R5(8,14)-R5(8,18)
     * +R4(4,15)+R4(4,23))*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)
     * +R3(4,37))*XZZ
      F(4,4,5,6)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(7,3)+R6(9,9)
     * +R6(18,9)-R5(5,13)-R5(12,13)-R5(5,17)-R5(12,17)+R4(2,14)+R4(7,14)
     * +R4(2,22)+R4(7,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(18,3)+R7(18,4)-R6(12,5)-R6(12,6)-R6(12,7)-R6(12,8)+R5(7,5)
     * +R5(7,6)+R5(7,9)+R5(7,10)+R5(9,21)+R5(9,22)-R4(5,30)-R4(5,31)
     * -R4(5,34)-R4(5,35)+R3(2,27)+R3(2,28)+R3(2,35)+R3(2,36))*QX+(
     * +R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)
     * -R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*XX
      F(5,4,5,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)+R7(19,4)
     * -R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)+R5(8,6)+R5(8,9)
     * +R5(8,10))*QX+(+R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(4,9)
     * +R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))*QZ+(+R6(19,11)
     * -R5(13,15)-R5(13,19)+R4(8,16)+R4(8,24))*XX+(+R6(13,10)+R6(13,11)
     * -R5(8,14)-R5(8,15)-R5(8,18)-R5(8,19)+R4(4,15)+R4(4,16)+R4(4,23)
     * +R4(4,24))*XZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37))
     * *XXZ
      F(6,4,5,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,4)-R6(18,6)-R6(18,8)
     * +R5(12,6)+R5(12,10)+R5(14,22)-R4(9,31)-R4(9,35)+R3(5,28)+R3(5,36)
     * )*QX+(+R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(7,9)+R5(9,21)
     * -R4(5,30)-R4(5,34)+R3(2,27)+R3(2,35))*QZ+(+R6(18,11)-R5(12,15)
     * -R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)
     * +R2(4,49))*XZ
      F(1,5,5,6)= R8(14)-R7(9,1)-R7(9,2)+R6(5,1)+R6(5,3)+R6(14,9)*THREE
     * -R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE+R4(5,22)*THREE+(
     * +R7(14,3)*TWO+R7(14,4)-R6(9,5)*TWO-R6(9,6)-R6(9,7)*TWO-R6(9,8)
     * +R5(5,5)*TWO+R5(5,6)+R5(5,9)*TWO+R5(5,10)+R5(14,21)*TWO+R5(14,22)
     * -R4(9,30)*TWO-R4(9,31)-R4(9,34)*TWO-R4(9,35)+R3(5,27)*TWO
     * +R3(5,28)+R3(5,35)*TWO+R3(5,36))*QX+(+R7(9,4)-R6(5,6)-R6(5,8)
     * +R5(2,6)+R5(2,10)+R5(9,22)*THREE-R4(5,31)*THREE-R4(5,35)*THREE
     * +R3(2,28)*THREE+R3(2,36)*THREE)*QZ+(+R6(14,10)+R6(14,11)*TWO
     * -R5(9,14)-R5(9,15)*TWO-R5(9,18)-R5(9,19)*TWO+R4(5,15)
     * +R4(5,16)*TWO+R4(5,23)+R4(5,24)*TWO)*XX+(+R6(9,11)*TWO+R6(9,12)
     * -R5(5,15)*TWO-R5(5,16)-R5(5,19)*TWO-R5(5,20)+R4(2,16)*TWO
     * +R4(2,17)+R4(2,24)*TWO+R4(2,25)+R4(9,40)*TWO+R4(9,41)
     * -R3(5,45)*TWO-R3(5,46)-R3(5,50)*TWO-R3(5,51)+R2(4,39)*TWO
     * +R2(4,40)+R2(4,49)*TWO+R2(4,50))*XZ+(+R5(14,23)-R4(9,32)-R4(9,36)
     * +R3(5,29)+R3(5,37))*XXX+(+R5(9,23)+R5(9,24)*TWO-R4(5,32)
     * -R4(5,33)*TWO-R4(5,36)-R4(5,37)*TWO+R3(2,29)+R3(2,30)*TWO
     * +R3(2,37)+R3(2,38)*TWO)*XXZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)
     * +R2(4,51))*XXXZ
      RETURN
      END
C
C*MODULE INT2X   *DECK MCDV21T
      SUBROUTINE MCDV21T(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(2,5,5,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,4)-R6(18,6)-R6(18,8)
     * +R5(12,6)+R5(12,10)+R5(14,22)-R4(9,31)-R4(9,35)+R3(5,28)+R3(5,36)
     * )*QX+(+R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(7,10)+R5(9,22)
     * -R4(5,31)-R4(5,35)+R3(2,28)+R3(2,36))*QZ+(+R6(18,12)-R5(12,16)
     * -R5(12,20)+R4(7,17)+R4(7,25)+R4(9,41)-R3(5,46)-R3(5,51)+R2(4,40)
     * +R2(4,50))*XZ
      F(3,5,5,6)= R8(27)-R7(20,1)-R7(20,2)+R6(14,1)+R6(14,3)
     * +R6(14,9)*THREE-R5(9,13)*THREE-R5(9,17)*THREE+R4(5,14)*THREE
     * +R4(5,22)*THREE+(+R7(27,4)-R6(20,6)-R6(20,8)+R5(14,6)+R5(14,10)
     * +R5(14,22)*THREE-R4(9,31)*THREE-R4(9,35)*THREE+R3(5,28)*THREE
     * +R3(5,36)*THREE)*QX+(+R7(20,3)*TWO+R7(20,4)-R6(14,5)*TWO-R6(14,6)
     * -R6(14,7)*TWO-R6(14,8)+R5(9,5)*TWO+R5(9,6)+R5(9,9)*TWO+R5(9,10)
     * +R5(9,21)*TWO+R5(9,22)-R4(5,30)*TWO-R4(5,31)-R4(5,34)*TWO
     * -R4(5,35)+R3(2,27)*TWO+R3(2,28)+R3(2,35)*TWO+R3(2,36))*QZ+(
     * +R6(20,11)*TWO+R6(20,12)-R5(14,15)*TWO-R5(14,16)-R5(14,19)*TWO
     * -R5(14,20)+R4(9,16)*TWO+R4(9,17)+R4(9,24)*TWO+R4(9,25)
     * +R4(9,40)*TWO+R4(9,41)-R3(5,45)*TWO-R3(5,46)-R3(5,50)*TWO
     * -R3(5,51)+R2(4,39)*TWO+R2(4,40)+R2(4,49)*TWO+R2(4,50))*XZ+(
     * +R6(14,10)+R6(14,11)*TWO-R5(9,14)-R5(9,15)*TWO-R5(9,18)
     * -R5(9,19)*TWO+R4(5,15)+R4(5,16)*TWO+R4(5,23)+R4(5,24)*TWO)*ZZ+(
     * +R5(14,23)+R5(14,24)*TWO-R4(9,32)-R4(9,33)*TWO-R4(9,36)
     * -R4(9,37)*TWO+R3(5,29)+R3(5,30)*TWO+R3(5,37)+R3(5,38)*TWO)*XZZ+(
     * +R5(9,23)-R4(5,32)-R4(5,36)+R3(2,29)+R3(2,37))*ZZZ+(+R4(9,42)
     * -R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XZZZ
      F(4,5,5,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)+R7(19,4)
     * -R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)+R5(8,6)+R5(8,9)
     * +R5(8,10))*QX+(+R7(13,4)-R6(8,6)-R6(8,8)+R5(4,6)+R5(4,10)
     * +R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36))*QZ+(+R6(19,11)
     * -R5(13,15)-R5(13,19)+R4(8,16)+R4(8,24))*XX+(+R6(13,11)+R6(13,12)
     * -R5(8,15)-R5(8,16)-R5(8,19)-R5(8,20)+R4(4,16)+R4(4,17)+R4(4,24)
     * +R4(4,25))*XZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)+R3(4,38))
     * *XXZ
      F(5,5,5,6)= R8(20)-R7(14,1)-R7(14,2)+R6(9,1)+R6(9,3)+R6(9,9)
     * +R6(20,9)-R5(5,13)-R5(14,13)-R5(5,17)-R5(14,17)+R4(2,14)+R4(9,14)
     * +R4(2,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)+R2(4,47)+(
     * +R7(20,3)+R7(20,4)-R6(14,5)-R6(14,6)-R6(14,7)-R6(14,8)+R5(9,5)
     * +R5(9,6)+R5(9,9)+R5(9,10)+R5(9,21)+R5(9,22)-R4(5,30)-R4(5,31)
     * -R4(5,34)-R4(5,35)+R3(2,27)+R3(2,28)+R3(2,35)+R3(2,36))*QX+(
     * +R7(14,3)+R7(14,4)-R6(9,5)-R6(9,6)-R6(9,7)-R6(9,8)+R5(5,5)
     * +R5(5,6)+R5(5,9)+R5(5,10)+R5(14,21)+R5(14,22)-R4(9,30)-R4(9,31)
     * -R4(9,34)-R4(9,35)+R3(5,27)+R3(5,28)+R3(5,35)+R3(5,36))*QZ+(
     * +R6(20,11)-R5(14,15)-R5(14,19)+R4(9,16)+R4(9,24)+R4(9,40)
     * -R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*XX+(+R6(14,10)
     * +R6(14,11)*TWO+R6(14,12)-R5(9,14)-R5(9,15)*TWO-R5(9,16)-R5(9,18)
     * -R5(9,19)*TWO-R5(9,20)+R4(5,15)+R4(5,16)*TWO+R4(5,17)+R4(5,23)
     * +R4(5,24)*TWO+R4(5,25))*XZ+(+R6(9,11)-R5(5,15)-R5(5,19)+R4(2,16)
     * +R4(2,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*ZZ+(
     * +R5(14,23)+R5(14,24)-R4(9,32)-R4(9,33)-R4(9,36)-R4(9,37)+R3(5,29)
     * +R3(5,30)+R3(5,37)+R3(5,38))*XXZ+(+R5(9,23)+R5(9,24)-R4(5,32)
     * -R4(5,33)-R4(5,36)-R4(5,37)+R3(2,29)+R3(2,30)+R3(2,37)+R3(2,38))
     * *XZZ+(+R4(9,42)-R3(5,47)-R3(5,52)+R2(4,41)+R2(4,51))*XXZZ
      F(6,5,5,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,4)-R6(19,6)-R6(19,8)
     * +R5(13,6)+R5(13,10)+R5(13,22)-R4(8,31)-R4(8,35)+R3(4,28)+R3(4,36)
     * )*QX+(+R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)
     * +R5(8,5)+R5(8,6)+R5(8,9)+R5(8,10))*QZ+(+R6(19,11)+R6(19,12)
     * -R5(13,15)-R5(13,16)-R5(13,19)-R5(13,20)+R4(8,16)+R4(8,17)
     * +R4(8,24)+R4(8,25))*XZ+(+R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)
     * +R4(4,24))*ZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)+R3(4,38))
     * *XZZ
      F(1,6,5,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(8,3)+R6(19,9)
     * -R5(13,13)-R5(13,17)+R4(8,14)+R4(8,22)+(+R7(19,3)*TWO
     * -R6(13,5)*TWO-R6(13,7)*TWO+R5(8,5)*TWO+R5(8,9)*TWO)*QX+(+R7(13,4)
     * -R6(8,6)-R6(8,8)+R5(4,6)+R5(4,10)+R5(13,22)-R4(8,31)-R4(8,35)
     * +R3(4,28)+R3(4,36))*QZ+(+R6(19,10)-R5(13,14)-R5(13,18)+R4(8,15)
     * +R4(8,23))*XX+(+R6(13,11)*TWO-R5(8,15)*TWO-R5(8,19)*TWO
     * +R4(4,16)*TWO+R4(4,24)*TWO)*XZ+(+R5(13,23)-R4(8,32)-R4(8,36)
     * +R3(4,29)+R3(4,37))*XXZ
      F(2,6,5,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(17,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(11,10)
     * +R5(13,22)*THREE-R4(8,31)*THREE-R4(8,35)*THREE+R3(4,28)*THREE
     * +R3(4,36)*THREE)*QZ
      F(3,6,5,6)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(13,13)*THREE-R5(13,17)*THREE+R4(8,14)*THREE
     * +R4(8,22)*THREE+(+R7(26,3)*TWO+R7(26,4)-R6(19,5)*TWO-R6(19,6)
     * -R6(19,7)*TWO-R6(19,8)+R5(13,5)*TWO+R5(13,6)+R5(13,9)*TWO
     * +R5(13,10)+R5(13,21)*TWO+R5(13,22)-R4(8,30)*TWO-R4(8,31)
     * -R4(8,34)*TWO-R4(8,35)+R3(4,27)*TWO+R3(4,28)+R3(4,35)*TWO
     * +R3(4,36))*QZ+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)-R5(13,15)*TWO
     * -R5(13,18)-R5(13,19)*TWO+R4(8,15)+R4(8,16)*TWO+R4(8,23)
     * +R4(8,24)*TWO)*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37)
     * )*ZZZ
      F(4,6,5,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(12,3)+R6(14,9)
     * -R5(9,13)-R5(9,17)+R4(5,14)+R4(5,22)+(+R7(25,3)-R6(18,5)-R6(18,7)
     * +R5(12,5)+R5(12,9)+R5(14,21)-R4(9,30)-R4(9,34)+R3(5,27)+R3(5,35))
     * *QX+(+R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(7,10)+R5(9,22)
     * -R4(5,31)-R4(5,35)+R3(2,28)+R3(2,36))*QZ+(+R6(18,11)-R5(12,15)
     * -R5(12,19)+R4(7,16)+R4(7,24)+R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)
     * +R2(4,49))*XZ
      F(5,6,5,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(13,3)+R6(13,9)
     * -R5(8,13)-R5(8,17)+R4(4,14)+R4(4,22)+(+R7(26,3)-R6(19,5)-R6(19,7)
     * +R5(13,5)+R5(13,9)+R5(13,21)-R4(8,30)-R4(8,34)+R3(4,27)+R3(4,35))
     * *QX+(+R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)
     * +R5(8,5)+R5(8,6)+R5(8,9)+R5(8,10))*QZ+(+R6(19,10)+R6(19,11)
     * -R5(13,14)-R5(13,15)-R5(13,18)-R5(13,19)+R4(8,15)+R4(8,16)
     * +R4(8,23)+R4(8,24))*XZ+(+R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)
     * +R4(4,24))*ZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)+R3(4,37))
     * *XZZ
      F(6,6,5,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(18,3)+R6(18,9)
     * +R6(20,9)-R5(12,13)-R5(14,13)-R5(12,17)-R5(14,17)+R4(7,14)
     * +R4(9,14)+R4(7,22)+R4(9,22)+R4(9,38)-R3(5,43)-R3(5,48)+R2(4,37)
     * +R2(4,47)+(+R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)
     * +R5(12,5)+R5(12,6)+R5(12,9)+R5(12,10)+R5(14,21)+R5(14,22)
     * -R4(9,30)-R4(9,31)-R4(9,34)-R4(9,35)+R3(5,27)+R3(5,28)+R3(5,35)
     * +R3(5,36))*QZ+(+R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(7,24)
     * +R4(9,40)-R3(5,45)-R3(5,50)+R2(4,39)+R2(4,49))*ZZ
      F(1,1,6,6)= R8(13)-R7(8,1)-R7(8,2)+R6(4,1)+R6(6,1)+R6(4,3)
     * +R6(13,9)*SIX-R5(3,1)-R5(3,2)-R5(8,13)*SIX-R5(8,17)*SIX+R4(1,1)
     * +R4(1,3)+R4(4,14)*SIX+R4(6,14)*SIX+R4(4,22)*SIX+R4(13,38)*THREE
     * -R3(3,11)*SIX-R3(3,15)*SIX-R3(8,43)*THREE-R3(8,48)*THREE
     * +R2(1,1)*SIX+R2(1,9)*SIX+R2(2,37)*THREE+R2(3,37)*THREE
     * +R2(2,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE+R0(1)*THREE
     * +R0(11)*THREE+(+R7(13,3)*TWO+R7(13,4)*TWO-R6(8,5)*TWO-R6(8,6)*TWO
     * -R6(8,7)*TWO-R6(8,8)*TWO+R5(4,5)*TWO+R5(6,5)*TWO+R5(4,6)*TWO
     * +R5(6,6)*TWO+R5(4,9)*TWO+R5(4,10)*TWO+R5(13,21)*SIX+R5(13,22)*SIX
     * -R4(3,6)*TWO-R4(3,7)*TWO-R4(3,8)*TWO-R4(3,9)*TWO-R4(8,30)*SIX
     * -R4(8,31)*SIX-R4(8,34)*SIX-R4(8,35)*SIX+R3(1,1)*TWO+R3(1,2)*TWO
     * +R3(1,5)*TWO+R3(1,6)*TWO+R3(4,27)*SIX+R3(6,27)*SIX+R3(4,28)*SIX
     * +R3(6,28)*SIX+R3(4,35)*SIX+R3(4,36)*SIX-R2(5,21)*SIX-R2(5,22)*SIX
     * -R2(5,25)*SIX-R2(5,26)*SIX+R1(1,1)*SIX+R1(1,2)*SIX+R1(1,9)*SIX
     * +R1(1,10)*SIX)*QX
      F(1,1,6,6)= F(1,1,6,6)
     * +(+R6(13,10)+R6(13,11)*FOUR+R6(13,12)-R5(8,14)
     * -R5(8,15)*FOUR-R5(8,16)-R5(8,18)-R5(8,19)*FOUR-R5(8,20)+R4(4,15)
     * +R4(6,15)+R4(4,16)*FOUR+R4(6,16)*FOUR+R4(4,17)+R4(6,17)+R4(4,23)
     * +R4(4,24)*FOUR+R4(4,25)+R4(13,39)+R4(13,40)*FOUR+R4(13,41)
     * -R3(3,12)-R3(3,13)*FOUR-R3(3,14)-R3(3,16)-R3(3,17)*FOUR-R3(3,18)
     * -R3(8,44)-R3(8,45)*FOUR-R3(8,46)-R3(8,49)-R3(8,50)*FOUR-R3(8,51)
     * +R2(1,2)+R2(1,3)*FOUR+R2(1,4)+R2(1,10)+R2(1,11)*FOUR+R2(1,12)
     * +R2(2,38)+R2(3,38)+R2(2,39)*FOUR+R2(3,39)*FOUR+R2(2,40)+R2(3,40)
     * +R2(2,48)+R2(2,49)*FOUR+R2(2,50)-R1(3,22)-R1(3,23)*FOUR-R1(3,24)
     * -R1(3,27)-R1(3,28)*FOUR-R1(3,29)+R0(2)+R0(3)*FOUR+R0(4)+R0(12)
     * +R0(13)*FOUR+R0(14))*XX+(+R5(13,23)*TWO+R5(13,24)*TWO
     * -R4(8,32)*TWO-R4(8,33)*TWO-R4(8,36)*TWO-R4(8,37)*TWO+R3(4,29)*TWO
     * +R3(6,29)*TWO+R3(4,30)*TWO+R3(6,30)*TWO+R3(4,37)*TWO+R3(4,38)*TWO
     * -R2(5,23)*TWO-R2(5,24)*TWO-R2(5,27)*TWO-R2(5,28)*TWO+R1(1,3)*TWO
     * +R1(1,4)*TWO+R1(1,11)*TWO+R1(1,12)*TWO)*XXX+(+R4(13,42)-R3(8,47)
     * -R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)-R1(3,30)+R0(5)
     * +R0(15))*XXXX
      F(2,1,6,6)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(13,1)+R6(11,3)
     * +R6(13,9)+R6(24,9)-R5(8,1)-R5(8,2)-R5(8,13)-R5(17,13)-R5(8,17)
     * -R5(17,17)+R4(4,1)+R4(4,3)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)
     * +R4(4,22)+R4(11,22)+R4(13,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(8,43)-R3(8,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(2,37)
     * +R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(24,4)*TWO
     * -R6(17,6)*TWO-R6(17,8)*TWO+R5(11,6)*TWO+R5(13,6)*TWO
     * +R5(11,10)*TWO+R5(13,22)*TWO-R4(8,7)*TWO-R4(8,9)*TWO-R4(8,31)*TWO
     * -R4(8,35)*TWO+R3(4,2)*TWO+R3(4,6)*TWO+R3(4,28)*TWO+R3(6,28)*TWO
     * +R3(4,36)*TWO-R2(5,22)*TWO-R2(5,26)*TWO+R1(1,2)*TWO+R1(1,10)*TWO)
     * *QX+(+R6(24,12)-R5(17,16)-R5(17,20)+R4(11,17)+R4(13,17)+R4(11,25)
     * +R4(13,41)-R3(8,14)-R3(8,18)-R3(8,46)-R3(8,51)+R2(2,4)+R2(2,12)
     * +R2(2,40)+R2(3,40)+R2(2,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XX
      F(3,1,6,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(15,1)+R6(13,3)
     * +R6(13,9)+R6(26,9)-R5(10,1)-R5(10,2)-R5(8,13)-R5(19,13)-R5(8,17)
     * -R5(19,17)+R4(6,1)+R4(6,3)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)
     * +R4(4,22)+R4(13,22)+R4(13,38)-R3(3,11)-R3(10,11)-R3(3,15)
     * -R3(10,15)-R3(8,43)-R3(8,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)
     * +R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(26,4)*TWO-R6(19,6)*TWO-R6(19,8)*TWO+R5(13,6)*TWO+R5(15,6)*TWO
     * +R5(13,10)*TWO+R5(13,22)*TWO-R4(10,7)*TWO-R4(10,9)*TWO
     * -R4(8,31)*TWO-R4(8,35)*TWO+R3(6,2)*TWO+R3(6,6)*TWO+R3(4,28)*TWO
     * +R3(6,28)*TWO+R3(4,36)*TWO-R2(5,22)*TWO-R2(5,26)*TWO+R1(1,2)*TWO
     * +R1(1,10)*TWO)*QX+(+R7(19,3)*TWO-R6(13,5)*TWO-R6(13,7)*TWO
     * +R5(8,5)*TWO+R5(10,5)*TWO+R5(8,9)*TWO+R5(19,21)*TWO-R4(6,6)*TWO
     * -R4(6,8)*TWO-R4(13,30)*TWO-R4(13,34)*TWO+R3(3,1)*TWO+R3(3,5)*TWO
     * +R3(8,27)*TWO+R3(10,27)*TWO+R3(8,35)*TWO-R2(3,21)*TWO
     * -R2(3,25)*TWO+R1(3,1)*TWO+R1(3,9)*TWO)*QZ
      F(3,1,6,6)= F(3,1,6,6)+(+R6(26,12)-R5(19,16)
     * -R5(19,20)+R4(13,17)+R4(15,17)+R4(13,25)+R4(13,41)-R3(10,14)
     * -R3(10,18)-R3(8,46)-R3(8,51)+R2(3,4)+R2(3,12)+R2(2,40)+R2(3,40)
     * +R2(2,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XX+(+R6(19,11)*FOUR
     * -R5(13,15)*FOUR-R5(13,19)*FOUR+R4(8,16)*FOUR+R4(10,16)*FOUR
     * +R4(8,24)*FOUR-R3(6,13)*FOUR-R3(6,17)*FOUR+R2(5,3)*FOUR
     * +R2(5,11)*FOUR)*XZ+(+R6(13,10)-R5(8,14)-R5(8,18)+R4(4,15)
     * +R4(6,15)+R4(4,23)+R4(13,39)-R3(3,12)-R3(3,16)-R3(8,44)-R3(8,49)
     * +R2(1,2)+R2(1,10)+R2(2,38)+R2(3,38)+R2(2,48)-R1(3,22)-R1(3,27)
     * +R0(2)+R0(12))*ZZ+(+R5(19,24)*TWO-R4(13,33)*TWO-R4(13,37)*TWO
     * +R3(8,30)*TWO+R3(10,30)*TWO+R3(8,38)*TWO-R2(3,24)*TWO
     * -R2(3,28)*TWO+R1(3,4)*TWO+R1(3,12)*TWO)*XXZ+(+R5(13,23)*TWO
     * -R4(8,32)*TWO-R4(8,36)*TWO+R3(4,29)*TWO+R3(6,29)*TWO+R3(4,37)*TWO
     * -R2(5,23)*TWO-R2(5,27)*TWO+R1(1,3)*TWO+R1(1,11)*TWO)*XZZ+(
     * +R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XXZZ
      F(4,1,6,6)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(9,1)+R6(7,3)
     * +R6(18,9)*THREE-R5(5,1)-R5(5,2)-R5(12,13)*THREE-R5(12,17)*THREE
     * +R4(2,1)+R4(2,3)+R4(7,14)*THREE+R4(9,14)*THREE+R4(7,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(18,3)+R7(18,4)*TWO-R6(12,5)-R6(12,6)*TWO-R6(12,7)
     * -R6(12,8)*TWO+R5(7,5)+R5(9,5)+R5(7,6)*TWO+R5(9,6)*TWO+R5(7,9)
     * +R5(7,10)*TWO+R5(18,21)+R5(18,22)*TWO-R4(5,6)-R4(5,7)*TWO-R4(5,8)
     * -R4(5,9)*TWO-R4(12,30)-R4(12,31)*TWO-R4(12,34)-R4(12,35)*TWO
     * +R3(2,1)+R3(2,2)*TWO+R3(2,5)+R3(2,6)*TWO+R3(7,27)+R3(9,27)
     * +R3(7,28)*TWO+R3(9,28)*TWO+R3(7,35)+R3(7,36)*TWO-R2(6,21)
     * -R2(6,22)*TWO-R2(6,25)-R2(6,26)*TWO+R1(2,1)+R1(2,2)*TWO+R1(2,9)
     * +R1(2,10)*TWO)*QX+(+R6(18,11)*TWO+R6(18,12)-R5(12,15)*TWO
     * -R5(12,16)-R5(12,19)*TWO-R5(12,20)+R4(7,16)*TWO+R4(9,16)*TWO
     * +R4(7,17)+R4(9,17)+R4(7,24)*TWO+R4(7,25)-R3(5,13)*TWO-R3(5,14)
     * -R3(5,17)*TWO-R3(5,18)+R2(4,3)*TWO+R2(4,4)+R2(4,11)*TWO+R2(4,12))
     * *XX+(+R5(18,24)-R4(12,33)-R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)
     * -R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*XXX
      F(5,1,6,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(10,1)+R6(8,3)
     * +R6(19,9)*THREE-R5(6,1)-R5(6,2)-R5(13,13)*THREE-R5(13,17)*THREE
     * +R4(3,1)+R4(3,3)+R4(8,14)*THREE+R4(10,14)*THREE+R4(8,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(19,3)+R7(19,4)*TWO-R6(13,5)-R6(13,6)*TWO-R6(13,7)
     * -R6(13,8)*TWO+R5(8,5)+R5(10,5)+R5(8,6)*TWO+R5(10,6)*TWO+R5(8,9)
     * +R5(8,10)*TWO+R5(19,21)+R5(19,22)*TWO-R4(6,6)-R4(6,7)*TWO-R4(6,8)
     * -R4(6,9)*TWO-R4(13,30)-R4(13,31)*TWO-R4(13,34)-R4(13,35)*TWO
     * +R3(3,1)+R3(3,2)*TWO+R3(3,5)+R3(3,6)*TWO+R3(8,27)+R3(10,27)
     * +R3(8,28)*TWO+R3(10,28)*TWO+R3(8,35)+R3(8,36)*TWO-R2(3,21)
     * -R2(3,22)*TWO-R2(3,25)-R2(3,26)*TWO+R1(3,1)+R1(3,2)*TWO+R1(3,9)
     * +R1(3,10)*TWO)*QX+(+R7(13,3)-R6(8,5)-R6(8,7)+R5(4,5)+R5(6,5)
     * +R5(4,9)+R5(13,21)*THREE-R4(3,6)-R4(3,8)-R4(8,30)*THREE
     * -R4(8,34)*THREE+R3(1,1)+R3(1,5)+R3(4,27)*THREE+R3(6,27)*THREE
     * +R3(4,35)*THREE-R2(5,21)*THREE-R2(5,25)*THREE+R1(1,1)*THREE
     * +R1(1,9)*THREE)*QZ
      F(5,1,6,6)= F(5,1,6,6)+(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*TWO
     * -R5(13,16)-R5(13,19)*TWO-R5(13,20)+R4(8,16)*TWO+R4(10,16)*TWO
     * +R4(8,17)+R4(10,17)+R4(8,24)*TWO+R4(8,25)-R3(6,13)*TWO-R3(6,14)
     * -R3(6,17)*TWO-R3(6,18)+R2(5,3)*TWO+R2(5,4)+R2(5,11)*TWO+R2(5,12))
     * *XX+(+R6(13,10)+R6(13,11)*TWO-R5(8,14)-R5(8,15)*TWO-R5(8,18)
     * -R5(8,19)*TWO+R4(4,15)+R4(6,15)+R4(4,16)*TWO+R4(6,16)*TWO
     * +R4(4,23)+R4(4,24)*TWO+R4(13,39)+R4(13,40)*TWO-R3(3,12)
     * -R3(3,13)*TWO-R3(3,16)-R3(3,17)*TWO-R3(8,44)-R3(8,45)*TWO
     * -R3(8,49)-R3(8,50)*TWO+R2(1,2)+R2(1,3)*TWO+R2(1,10)+R2(1,11)*TWO
     * +R2(2,38)+R2(3,38)+R2(2,39)*TWO+R2(3,39)*TWO+R2(2,48)
     * +R2(2,49)*TWO-R1(3,22)-R1(3,23)*TWO-R1(3,27)-R1(3,28)*TWO+R0(2)
     * +R0(3)*TWO+R0(12)+R0(13)*TWO)*XZ+(+R5(19,24)-R4(13,33)-R4(13,37)
     * +R3(8,30)+R3(10,30)+R3(8,38)-R2(3,24)-R2(3,28)+R1(3,4)+R1(3,12))
     * *XXX+(+R5(13,23)*TWO+R5(13,24)-R4(8,32)*TWO-R4(8,33)-R4(8,36)*TWO
     * -R4(8,37)+R3(4,29)*TWO+R3(6,29)*TWO+R3(4,30)+R3(6,30)
     * +R3(4,37)*TWO+R3(4,38)-R2(5,23)*TWO-R2(5,24)-R2(5,27)*TWO
     * -R2(5,28)+R1(1,3)*TWO+R1(1,4)+R1(1,11)*TWO+R1(1,12))*XXZ+(
     * +R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XXXZ
      F(6,1,6,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(14,1)+R6(12,3)
     * +R6(25,9)-R5(9,1)-R5(9,2)-R5(18,13)-R5(18,17)+R4(5,1)+R4(5,3)
     * +R4(12,14)+R4(14,14)+R4(12,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)
     * +(+R7(25,4)*TWO-R6(18,6)*TWO-R6(18,8)*TWO+R5(12,6)*TWO
     * +R5(14,6)*TWO+R5(12,10)*TWO-R4(9,7)*TWO-R4(9,9)*TWO+R3(5,2)*TWO
     * +R3(5,6)*TWO)*QX+(+R7(18,3)-R6(12,5)-R6(12,7)+R5(7,5)+R5(9,5)
     * +R5(7,9)+R5(18,21)-R4(5,6)-R4(5,8)-R4(12,30)-R4(12,34)+R3(2,1)
     * +R3(2,5)+R3(7,27)+R3(9,27)+R3(7,35)-R2(6,21)-R2(6,25)+R1(2,1)
     * +R1(2,9))*QZ+(+R6(25,12)-R5(18,16)-R5(18,20)+R4(12,17)+R4(14,17)
     * +R4(12,25)-R3(9,14)-R3(9,18)+R2(6,4)+R2(6,12))*XX+(+R6(18,11)*TWO
     * -R5(12,15)*TWO-R5(12,19)*TWO+R4(7,16)*TWO+R4(9,16)*TWO
     * +R4(7,24)*TWO-R3(5,13)*TWO-R3(5,17)*TWO+R2(4,3)*TWO+R2(4,11)*TWO)
     * *XZ+(+R5(18,24)-R4(12,33)-R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)
     * -R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*XXZ
      F(1,2,6,6)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(13,1)+R6(11,3)
     * +R6(13,9)+R6(24,9)-R5(8,1)-R5(8,2)-R5(8,13)-R5(17,13)-R5(8,17)
     * -R5(17,17)+R4(4,1)+R4(4,3)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)
     * +R4(4,22)+R4(11,22)+R4(13,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(8,43)-R3(8,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(2,37)
     * +R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(24,3)*TWO
     * -R6(17,5)*TWO-R6(17,7)*TWO+R5(11,5)*TWO+R5(13,5)*TWO+R5(11,9)*TWO
     * +R5(13,21)*TWO-R4(8,6)*TWO-R4(8,8)*TWO-R4(8,30)*TWO-R4(8,34)*TWO
     * +R3(4,1)*TWO+R3(4,5)*TWO+R3(4,27)*TWO+R3(6,27)*TWO+R3(4,35)*TWO
     * -R2(5,21)*TWO-R2(5,25)*TWO+R1(1,1)*TWO+R1(1,9)*TWO)*QX+(
     * +R6(24,10)-R5(17,14)-R5(17,18)+R4(11,15)+R4(13,15)+R4(11,23)
     * +R4(13,39)-R3(8,12)-R3(8,16)-R3(8,44)-R3(8,49)+R2(2,2)+R2(2,10)
     * +R2(2,38)+R2(3,38)+R2(2,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XX
      F(2,2,6,6)= R8(39)-R7(30,1)-R7(30,2)+R6(22,1)+R6(24,1)+R6(22,3)
     * +R6(24,9)*SIX-R5(17,1)-R5(17,2)-R5(17,13)*SIX-R5(17,17)*SIX
     * +R4(11,1)+R4(11,3)+R4(11,14)*SIX+R4(13,14)*SIX+R4(11,22)*SIX
     * +R4(13,38)*THREE-R3(8,11)*SIX-R3(8,15)*SIX-R3(8,43)*THREE
     * -R3(8,48)*THREE+R2(2,1)*SIX+R2(2,9)*SIX+R2(2,37)*THREE
     * +R2(3,37)*THREE+R2(2,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE
     * +R0(1)*THREE+R0(11)*THREE
      F(3,2,6,6)= R8(41)-R7(32,1)-R7(32,2)+R6(24,1)+R6(26,1)+R6(24,3)
     * +R6(24,9)+R6(26,9)-R5(19,1)-R5(19,2)-R5(17,13)-R5(19,13)
     * -R5(17,17)-R5(19,17)+R4(13,1)+R4(13,3)+R4(11,14)+R4(13,14)*TWO
     * +R4(15,14)+R4(11,22)+R4(13,22)+R4(13,38)-R3(8,11)-R3(10,11)
     * -R3(8,15)-R3(10,15)-R3(8,43)-R3(8,48)+R2(2,1)+R2(3,1)+R2(2,9)
     * +R2(3,9)+R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)
     * +R0(11)+(+R7(32,3)*TWO-R6(24,5)*TWO-R6(24,7)*TWO+R5(17,5)*TWO
     * +R5(19,5)*TWO+R5(17,9)*TWO+R5(19,21)*TWO-R4(13,6)*TWO
     * -R4(13,8)*TWO-R4(13,30)*TWO-R4(13,34)*TWO+R3(8,1)*TWO+R3(8,5)*TWO
     * +R3(8,27)*TWO+R3(10,27)*TWO+R3(8,35)*TWO-R2(3,21)*TWO
     * -R2(3,25)*TWO+R1(3,1)*TWO+R1(3,9)*TWO)*QZ+(+R6(24,10)-R5(17,14)
     * -R5(17,18)+R4(11,15)+R4(13,15)+R4(11,23)+R4(13,39)-R3(8,12)
     * -R3(8,16)-R3(8,44)-R3(8,49)+R2(2,2)+R2(2,10)+R2(2,38)+R2(3,38)
     * +R2(2,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*ZZ
      F(4,2,6,6)= R8(31)-R7(23,1)-R7(23,2)+R6(16,1)+R6(18,1)+R6(16,3)
     * +R6(18,9)*THREE-R5(12,1)-R5(12,2)-R5(12,13)*THREE-R5(12,17)*THREE
     * +R4(7,1)+R4(7,3)+R4(7,14)*THREE+R4(9,14)*THREE+R4(7,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(31,3)-R6(23,5)-R6(23,7)+R5(16,5)+R5(18,5)+R5(16,9)
     * +R5(18,21)*THREE-R4(12,6)-R4(12,8)-R4(12,30)*THREE
     * -R4(12,34)*THREE+R3(7,1)+R3(7,5)+R3(7,27)*THREE+R3(9,27)*THREE
     * +R3(7,35)*THREE-R2(6,21)*THREE-R2(6,25)*THREE+R1(2,1)*THREE
     * +R1(2,9)*THREE)*QX
      F(5,2,6,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(19,1)+R6(17,3)
     * +R6(19,9)-R5(13,1)-R5(13,2)-R5(13,13)-R5(13,17)+R4(8,1)+R4(8,3)
     * +R4(8,14)+R4(10,14)+R4(8,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(32,3)-R6(24,5)-R6(24,7)+R5(17,5)+R5(19,5)+R5(17,9)+R5(19,21)
     * -R4(13,6)-R4(13,8)-R4(13,30)-R4(13,34)+R3(8,1)+R3(8,5)+R3(8,27)
     * +R3(10,27)+R3(8,35)-R2(3,21)-R2(3,25)+R1(3,1)+R1(3,9))*QX+(
     * +R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(13,5)+R5(11,9)+R5(13,21)
     * -R4(8,6)-R4(8,8)-R4(8,30)-R4(8,34)+R3(4,1)+R3(4,5)+R3(4,27)
     * +R3(6,27)+R3(4,35)-R2(5,21)-R2(5,25)+R1(1,1)+R1(1,9))*QZ+(
     * +R6(24,10)-R5(17,14)-R5(17,18)+R4(11,15)+R4(13,15)+R4(11,23)
     * +R4(13,39)-R3(8,12)-R3(8,16)-R3(8,44)-R3(8,49)+R2(2,2)+R2(2,10)
     * +R2(2,38)+R2(3,38)+R2(2,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XZ
      F(6,2,6,6)= R8(40)-R7(31,1)-R7(31,2)+R6(23,1)+R6(25,1)+R6(23,3)
     * +R6(25,9)*THREE-R5(18,1)-R5(18,2)-R5(18,13)*THREE-R5(18,17)*THREE
     * +R4(12,1)+R4(12,3)+R4(12,14)*THREE+R4(14,14)*THREE
     * +R4(12,22)*THREE-R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE
     * +R2(6,9)*THREE+(+R7(31,3)-R6(23,5)-R6(23,7)+R5(16,5)+R5(18,5)
     * +R5(16,9)+R5(18,21)*THREE-R4(12,6)-R4(12,8)-R4(12,30)*THREE
     * -R4(12,34)*THREE+R3(7,1)+R3(7,5)+R3(7,27)*THREE+R3(9,27)*THREE
     * +R3(7,35)*THREE-R2(6,21)*THREE-R2(6,25)*THREE+R1(2,1)*THREE
     * +R1(2,9)*THREE)*QZ
      F(1,3,6,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(15,1)+R6(13,3)
     * +R6(13,9)+R6(26,9)-R5(10,1)-R5(10,2)-R5(8,13)-R5(19,13)-R5(8,17)
     * -R5(19,17)+R4(6,1)+R4(6,3)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)
     * +R4(4,22)+R4(13,22)+R4(13,38)-R3(3,11)-R3(10,11)-R3(3,15)
     * -R3(10,15)-R3(8,43)-R3(8,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)
     * +R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(26,3)*TWO-R6(19,5)*TWO-R6(19,7)*TWO+R5(13,5)*TWO+R5(15,5)*TWO
     * +R5(13,9)*TWO+R5(13,21)*TWO-R4(10,6)*TWO-R4(10,8)*TWO
     * -R4(8,30)*TWO-R4(8,34)*TWO+R3(6,1)*TWO+R3(6,5)*TWO+R3(4,27)*TWO
     * +R3(6,27)*TWO+R3(4,35)*TWO-R2(5,21)*TWO-R2(5,25)*TWO+R1(1,1)*TWO
     * +R1(1,9)*TWO)*QX+(+R7(19,4)*TWO-R6(13,6)*TWO-R6(13,8)*TWO
     * +R5(8,6)*TWO+R5(10,6)*TWO+R5(8,10)*TWO+R5(19,22)*TWO-R4(6,7)*TWO
     * -R4(6,9)*TWO-R4(13,31)*TWO-R4(13,35)*TWO+R3(3,2)*TWO+R3(3,6)*TWO
     * +R3(8,28)*TWO+R3(10,28)*TWO+R3(8,36)*TWO-R2(3,22)*TWO
     * -R2(3,26)*TWO+R1(3,2)*TWO+R1(3,10)*TWO)*QZ
      F(1,3,6,6)= F(1,3,6,6)+(+R6(26,10)-R5(19,14)
     * -R5(19,18)+R4(13,15)+R4(15,15)+R4(13,23)+R4(13,39)-R3(10,12)
     * -R3(10,16)-R3(8,44)-R3(8,49)+R2(3,2)+R2(3,10)+R2(2,38)+R2(3,38)
     * +R2(2,48)-R1(3,22)-R1(3,27)+R0(2)+R0(12))*XX+(+R6(19,11)*FOUR
     * -R5(13,15)*FOUR-R5(13,19)*FOUR+R4(8,16)*FOUR+R4(10,16)*FOUR
     * +R4(8,24)*FOUR-R3(6,13)*FOUR-R3(6,17)*FOUR+R2(5,3)*FOUR
     * +R2(5,11)*FOUR)*XZ+(+R6(13,12)-R5(8,16)-R5(8,20)+R4(4,17)
     * +R4(6,17)+R4(4,25)+R4(13,41)-R3(3,14)-R3(3,18)-R3(8,46)-R3(8,51)
     * +R2(1,4)+R2(1,12)+R2(2,40)+R2(3,40)+R2(2,50)-R1(3,24)-R1(3,29)
     * +R0(4)+R0(14))*ZZ+(+R5(19,23)*TWO-R4(13,32)*TWO-R4(13,36)*TWO
     * +R3(8,29)*TWO+R3(10,29)*TWO+R3(8,37)*TWO-R2(3,23)*TWO
     * -R2(3,27)*TWO+R1(3,3)*TWO+R1(3,11)*TWO)*XXZ+(+R5(13,24)*TWO
     * -R4(8,33)*TWO-R4(8,37)*TWO+R3(4,30)*TWO+R3(6,30)*TWO+R3(4,38)*TWO
     * -R2(5,24)*TWO-R2(5,28)*TWO+R1(1,4)*TWO+R1(1,12)*TWO)*XZZ+(
     * +R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XXZZ
      F(2,3,6,6)= R8(41)-R7(32,1)-R7(32,2)+R6(24,1)+R6(26,1)+R6(24,3)
     * +R6(24,9)+R6(26,9)-R5(19,1)-R5(19,2)-R5(17,13)-R5(19,13)
     * -R5(17,17)-R5(19,17)+R4(13,1)+R4(13,3)+R4(11,14)+R4(13,14)*TWO
     * +R4(15,14)+R4(11,22)+R4(13,22)+R4(13,38)-R3(8,11)-R3(10,11)
     * -R3(8,15)-R3(10,15)-R3(8,43)-R3(8,48)+R2(2,1)+R2(3,1)+R2(2,9)
     * +R2(3,9)+R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)
     * +R0(11)+(+R7(32,4)*TWO-R6(24,6)*TWO-R6(24,8)*TWO+R5(17,6)*TWO
     * +R5(19,6)*TWO+R5(17,10)*TWO+R5(19,22)*TWO-R4(13,7)*TWO
     * -R4(13,9)*TWO-R4(13,31)*TWO-R4(13,35)*TWO+R3(8,2)*TWO+R3(8,6)*TWO
     * +R3(8,28)*TWO+R3(10,28)*TWO+R3(8,36)*TWO-R2(3,22)*TWO
     * -R2(3,26)*TWO+R1(3,2)*TWO+R1(3,10)*TWO)*QZ+(+R6(24,12)-R5(17,16)
     * -R5(17,20)+R4(11,17)+R4(13,17)+R4(11,25)+R4(13,41)-R3(8,14)
     * -R3(8,18)-R3(8,46)-R3(8,51)+R2(2,4)+R2(2,12)+R2(2,40)+R2(3,40)
     * +R2(2,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*ZZ
      F(3,3,6,6)= R8(43)-R7(34,1)-R7(34,2)+R6(26,1)+R6(28,1)+R6(26,3)
     * +R6(26,9)*SIX-R5(21,1)-R5(21,2)-R5(19,13)*SIX-R5(19,17)*SIX
     * +R4(15,1)+R4(15,3)+R4(13,14)*SIX+R4(15,14)*SIX+R4(13,22)*SIX
     * +R4(13,38)*THREE-R3(10,11)*SIX-R3(10,15)*SIX-R3(8,43)*THREE
     * -R3(8,48)*THREE+R2(3,1)*SIX+R2(3,9)*SIX+R2(2,37)*THREE
     * +R2(3,37)*THREE+R2(2,47)*THREE-R1(3,21)*THREE-R1(3,26)*THREE
     * +R0(1)*THREE+R0(11)*THREE+(+R7(34,3)*TWO+R7(34,4)*TWO
     * -R6(26,5)*TWO-R6(26,6)*TWO-R6(26,7)*TWO-R6(26,8)*TWO+R5(19,5)*TWO
     * +R5(21,5)*TWO+R5(19,6)*TWO+R5(21,6)*TWO+R5(19,9)*TWO
     * +R5(19,10)*TWO+R5(19,21)*SIX+R5(19,22)*SIX-R4(15,6)*TWO
     * -R4(15,7)*TWO-R4(15,8)*TWO-R4(15,9)*TWO-R4(13,30)*SIX
     * -R4(13,31)*SIX-R4(13,34)*SIX-R4(13,35)*SIX+R3(10,1)*TWO
     * +R3(10,2)*TWO+R3(10,5)*TWO+R3(10,6)*TWO+R3(8,27)*SIX
     * +R3(10,27)*SIX+R3(8,28)*SIX+R3(10,28)*SIX+R3(8,35)*SIX
     * +R3(8,36)*SIX-R2(3,21)*SIX-R2(3,22)*SIX-R2(3,25)*SIX-R2(3,26)*SIX
     * +R1(3,1)*SIX+R1(3,2)*SIX+R1(3,9)*SIX+R1(3,10)*SIX)*QZ
      F(3,3,6,6)= F(3,3,6,6)+(+R6(26,10)
     * +R6(26,11)*FOUR+R6(26,12)-R5(19,14)-R5(19,15)*FOUR-R5(19,16)
     * -R5(19,18)-R5(19,19)*FOUR-R5(19,20)+R4(13,15)+R4(15,15)
     * +R4(13,16)*FOUR+R4(15,16)*FOUR+R4(13,17)+R4(15,17)+R4(13,23)
     * +R4(13,24)*FOUR+R4(13,25)+R4(13,39)+R4(13,40)*FOUR+R4(13,41)
     * -R3(10,12)-R3(10,13)*FOUR-R3(10,14)-R3(10,16)-R3(10,17)*FOUR
     * -R3(10,18)-R3(8,44)-R3(8,45)*FOUR-R3(8,46)-R3(8,49)-R3(8,50)*FOUR
     * -R3(8,51)+R2(3,2)+R2(3,3)*FOUR+R2(3,4)+R2(3,10)+R2(3,11)*FOUR
     * +R2(3,12)+R2(2,38)+R2(3,38)+R2(2,39)*FOUR+R2(3,39)*FOUR+R2(2,40)
     * +R2(3,40)+R2(2,48)+R2(2,49)*FOUR+R2(2,50)-R1(3,22)-R1(3,23)*FOUR
     * -R1(3,24)-R1(3,27)-R1(3,28)*FOUR-R1(3,29)+R0(2)+R0(3)*FOUR+R0(4)
     * +R0(12)+R0(13)*FOUR+R0(14))*ZZ+(+R5(19,23)*TWO+R5(19,24)*TWO
     * -R4(13,32)*TWO-R4(13,33)*TWO-R4(13,36)*TWO-R4(13,37)*TWO
     * +R3(8,29)*TWO+R3(10,29)*TWO+R3(8,30)*TWO+R3(10,30)*TWO
     * +R3(8,37)*TWO+R3(8,38)*TWO-R2(3,23)*TWO-R2(3,24)*TWO-R2(3,27)*TWO
     * -R2(3,28)*TWO+R1(3,3)*TWO+R1(3,4)*TWO+R1(3,11)*TWO+R1(3,12)*TWO)
     * *ZZZ+(+R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)
     * -R1(3,25)-R1(3,30)+R0(5)+R0(15))*ZZZZ
      F(4,3,6,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(20,1)+R6(18,3)
     * +R6(18,9)-R5(14,1)-R5(14,2)-R5(12,13)-R5(12,17)+R4(9,1)+R4(9,3)
     * +R4(7,14)+R4(9,14)+R4(7,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(33,3)-R6(25,5)-R6(25,7)+R5(18,5)+R5(20,5)+R5(18,9)+R5(18,21)
     * -R4(14,6)-R4(14,8)-R4(12,30)-R4(12,34)+R3(9,1)+R3(9,5)+R3(7,27)
     * +R3(9,27)+R3(7,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QX+(
     * +R7(25,4)*TWO-R6(18,6)*TWO-R6(18,8)*TWO+R5(12,6)*TWO+R5(14,6)*TWO
     * +R5(12,10)*TWO-R4(9,7)*TWO-R4(9,9)*TWO+R3(5,2)*TWO+R3(5,6)*TWO)
     * *QZ+(+R6(25,11)*TWO-R5(18,15)*TWO-R5(18,19)*TWO+R4(12,16)*TWO
     * +R4(14,16)*TWO+R4(12,24)*TWO-R3(9,13)*TWO-R3(9,17)*TWO
     * +R2(6,3)*TWO+R2(6,11)*TWO)*XZ+(+R6(18,12)-R5(12,16)-R5(12,20)
     * +R4(7,17)+R4(9,17)+R4(7,25)-R3(5,14)-R3(5,18)+R2(4,4)+R2(4,12))
     * *ZZ+(+R5(18,24)-R4(12,33)-R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)
     * -R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*XZZ
      F(5,3,6,6)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(21,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(15,1)-R5(15,2)-R5(13,13)*THREE-R5(13,17)*THREE
     * +R4(10,1)+R4(10,3)+R4(8,14)*THREE+R4(10,14)*THREE+R4(8,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(34,3)-R6(26,5)-R6(26,7)+R5(19,5)+R5(21,5)+R5(19,9)
     * +R5(19,21)*THREE-R4(15,6)-R4(15,8)-R4(13,30)*THREE
     * -R4(13,34)*THREE+R3(10,1)+R3(10,5)+R3(8,27)*THREE+R3(10,27)*THREE
     * +R3(8,35)*THREE-R2(3,21)*THREE-R2(3,25)*THREE+R1(3,1)*THREE
     * +R1(3,9)*THREE)*QX+(+R7(26,3)+R7(26,4)*TWO-R6(19,5)-R6(19,6)*TWO
     * -R6(19,7)-R6(19,8)*TWO+R5(13,5)+R5(15,5)+R5(13,6)*TWO
     * +R5(15,6)*TWO+R5(13,9)+R5(13,10)*TWO+R5(13,21)+R5(13,22)*TWO
     * -R4(10,6)-R4(10,7)*TWO-R4(10,8)-R4(10,9)*TWO-R4(8,30)
     * -R4(8,31)*TWO-R4(8,34)-R4(8,35)*TWO+R3(6,1)+R3(6,2)*TWO+R3(6,5)
     * +R3(6,6)*TWO+R3(4,27)+R3(6,27)+R3(4,28)*TWO+R3(6,28)*TWO+R3(4,35)
     * +R3(4,36)*TWO-R2(5,21)-R2(5,22)*TWO-R2(5,25)-R2(5,26)*TWO+R1(1,1)
     * +R1(1,2)*TWO+R1(1,9)+R1(1,10)*TWO)*QZ
      F(5,3,6,6)= F(5,3,6,6)+(+R6(26,10)+R6(26,11)*TWO
     * -R5(19,14)-R5(19,15)*TWO-R5(19,18)-R5(19,19)*TWO+R4(13,15)
     * +R4(15,15)+R4(13,16)*TWO+R4(15,16)*TWO+R4(13,23)+R4(13,24)*TWO
     * +R4(13,39)+R4(13,40)*TWO-R3(10,12)-R3(10,13)*TWO-R3(10,16)
     * -R3(10,17)*TWO-R3(8,44)-R3(8,45)*TWO-R3(8,49)-R3(8,50)*TWO
     * +R2(3,2)+R2(3,3)*TWO+R2(3,10)+R2(3,11)*TWO+R2(2,38)+R2(3,38)
     * +R2(2,39)*TWO+R2(3,39)*TWO+R2(2,48)+R2(2,49)*TWO-R1(3,22)
     * -R1(3,23)*TWO-R1(3,27)-R1(3,28)*TWO+R0(2)+R0(3)*TWO+R0(12)
     * +R0(13)*TWO)*XZ
      F(5,3,6,6)= F(5,3,6,6)
     * +(+R6(19,11)*TWO+R6(19,12)-R5(13,15)*TWO-R5(13,16)
     * -R5(13,19)*TWO-R5(13,20)+R4(8,16)*TWO+R4(10,16)*TWO+R4(8,17)
     * +R4(10,17)+R4(8,24)*TWO+R4(8,25)-R3(6,13)*TWO-R3(6,14)
     * -R3(6,17)*TWO-R3(6,18)+R2(5,3)*TWO+R2(5,4)+R2(5,11)*TWO+R2(5,12))
     * *ZZ+(+R5(19,23)*TWO+R5(19,24)-R4(13,32)*TWO-R4(13,33)
     * -R4(13,36)*TWO-R4(13,37)+R3(8,29)*TWO+R3(10,29)*TWO+R3(8,30)
     * +R3(10,30)+R3(8,37)*TWO+R3(8,38)-R2(3,23)*TWO-R2(3,24)
     * -R2(3,27)*TWO-R2(3,28)+R1(3,3)*TWO+R1(3,4)+R1(3,11)*TWO+R1(3,12))
     * *XZZ+(+R5(13,24)-R4(8,33)-R4(8,37)+R3(4,30)+R3(6,30)+R3(4,38)
     * -R2(5,24)-R2(5,28)+R1(1,4)+R1(1,12))*ZZZ+(+R4(13,42)-R3(8,47)
     * -R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)-R1(3,30)+R0(5)
     * +R0(15))*XZZZ
      F(6,3,6,6)= R8(42)-R7(33,1)-R7(33,2)+R6(25,1)+R6(27,1)+R6(25,3)
     * +R6(25,9)*THREE-R5(20,1)-R5(20,2)-R5(18,13)*THREE-R5(18,17)*THREE
     * +R4(14,1)+R4(14,3)+R4(12,14)*THREE+R4(14,14)*THREE
     * +R4(12,22)*THREE-R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE
     * +R2(6,9)*THREE+(+R7(33,3)+R7(33,4)*TWO-R6(25,5)-R6(25,6)*TWO
     * -R6(25,7)-R6(25,8)*TWO+R5(18,5)+R5(20,5)+R5(18,6)*TWO
     * +R5(20,6)*TWO+R5(18,9)+R5(18,10)*TWO+R5(18,21)+R5(18,22)*TWO
     * -R4(14,6)-R4(14,7)*TWO-R4(14,8)-R4(14,9)*TWO-R4(12,30)
     * -R4(12,31)*TWO-R4(12,34)-R4(12,35)*TWO+R3(9,1)+R3(9,2)*TWO
     * +R3(9,5)+R3(9,6)*TWO+R3(7,27)+R3(9,27)+R3(7,28)*TWO+R3(9,28)*TWO
     * +R3(7,35)+R3(7,36)*TWO-R2(6,21)-R2(6,22)*TWO-R2(6,25)
     * -R2(6,26)*TWO+R1(2,1)+R1(2,2)*TWO+R1(2,9)+R1(2,10)*TWO)*QZ+(
     * +R6(25,11)*TWO+R6(25,12)-R5(18,15)*TWO-R5(18,16)-R5(18,19)*TWO
     * -R5(18,20)+R4(12,16)*TWO+R4(14,16)*TWO+R4(12,17)+R4(14,17)
     * +R4(12,24)*TWO+R4(12,25)-R3(9,13)*TWO-R3(9,14)-R3(9,17)*TWO
     * -R3(9,18)+R2(6,3)*TWO+R2(6,4)+R2(6,11)*TWO+R2(6,12))*ZZ+(
     * +R5(18,24)-R4(12,33)-R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)
     * -R2(6,24)-R2(6,28)+R1(2,4)+R1(2,12))*ZZZ
      F(1,4,6,6)= R8(18)-R7(12,1)-R7(12,2)+R6(7,1)+R6(9,1)+R6(7,3)
     * +R6(18,9)*THREE-R5(5,1)-R5(5,2)-R5(12,13)*THREE-R5(12,17)*THREE
     * +R4(2,1)+R4(2,3)+R4(7,14)*THREE+R4(9,14)*THREE+R4(7,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(18,3)*TWO+R7(18,4)-R6(12,5)*TWO-R6(12,6)-R6(12,7)*TWO
     * -R6(12,8)+R5(7,5)*TWO+R5(9,5)*TWO+R5(7,6)+R5(9,6)+R5(7,9)*TWO
     * +R5(7,10)+R5(18,21)*TWO+R5(18,22)-R4(5,6)*TWO-R4(5,7)-R4(5,8)*TWO
     * -R4(5,9)-R4(12,30)*TWO-R4(12,31)-R4(12,34)*TWO-R4(12,35)
     * +R3(2,1)*TWO+R3(2,2)+R3(2,5)*TWO+R3(2,6)+R3(7,27)*TWO
     * +R3(9,27)*TWO+R3(7,28)+R3(9,28)+R3(7,35)*TWO+R3(7,36)
     * -R2(6,21)*TWO-R2(6,22)-R2(6,25)*TWO-R2(6,26)+R1(2,1)*TWO+R1(2,2)
     * +R1(2,9)*TWO+R1(2,10))*QX+(+R6(18,10)+R6(18,11)*TWO-R5(12,14)
     * -R5(12,15)*TWO-R5(12,18)-R5(12,19)*TWO+R4(7,15)+R4(9,15)
     * +R4(7,16)*TWO+R4(9,16)*TWO+R4(7,23)+R4(7,24)*TWO-R3(5,12)
     * -R3(5,13)*TWO-R3(5,16)-R3(5,17)*TWO+R2(4,2)+R2(4,3)*TWO+R2(4,10)
     * +R2(4,11)*TWO)*XX+(+R5(18,23)-R4(12,32)-R4(12,36)+R3(7,29)
     * +R3(9,29)+R3(7,37)-R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*XXX
      F(2,4,6,6)= R8(31)-R7(23,1)-R7(23,2)+R6(16,1)+R6(18,1)+R6(16,3)
     * +R6(18,9)*THREE-R5(12,1)-R5(12,2)-R5(12,13)*THREE-R5(12,17)*THREE
     * +R4(7,1)+R4(7,3)+R4(7,14)*THREE+R4(9,14)*THREE+R4(7,22)*THREE
     * -R3(5,11)*THREE-R3(5,15)*THREE+R2(4,1)*THREE+R2(4,9)*THREE+(
     * +R7(31,4)-R6(23,6)-R6(23,8)+R5(16,6)+R5(18,6)+R5(16,10)
     * +R5(18,22)*THREE-R4(12,7)-R4(12,9)-R4(12,31)*THREE
     * -R4(12,35)*THREE+R3(7,2)+R3(7,6)+R3(7,28)*THREE+R3(9,28)*THREE
     * +R3(7,36)*THREE-R2(6,22)*THREE-R2(6,26)*THREE+R1(2,2)*THREE
     * +R1(2,10)*THREE)*QX
      F(3,4,6,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(20,1)+R6(18,3)
     * +R6(18,9)-R5(14,1)-R5(14,2)-R5(12,13)-R5(12,17)+R4(9,1)+R4(9,3)
     * +R4(7,14)+R4(9,14)+R4(7,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(33,4)-R6(25,6)-R6(25,8)+R5(18,6)+R5(20,6)+R5(18,10)+R5(18,22)
     * -R4(14,7)-R4(14,9)-R4(12,31)-R4(12,35)+R3(9,2)+R3(9,6)+R3(7,28)
     * +R3(9,28)+R3(7,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QX+(
     * +R7(25,3)*TWO-R6(18,5)*TWO-R6(18,7)*TWO+R5(12,5)*TWO+R5(14,5)*TWO
     * +R5(12,9)*TWO-R4(9,6)*TWO-R4(9,8)*TWO+R3(5,1)*TWO+R3(5,5)*TWO)*QZ
     * +(+R6(25,11)*TWO-R5(18,15)*TWO-R5(18,19)*TWO+R4(12,16)*TWO
     * +R4(14,16)*TWO+R4(12,24)*TWO-R3(9,13)*TWO-R3(9,17)*TWO
     * +R2(6,3)*TWO+R2(6,11)*TWO)*XZ+(+R6(18,10)-R5(12,14)-R5(12,18)
     * +R4(7,15)+R4(9,15)+R4(7,23)-R3(5,12)-R3(5,16)+R2(4,2)+R2(4,10))
     * *ZZ+(+R5(18,23)-R4(12,32)-R4(12,36)+R3(7,29)+R3(9,29)+R3(7,37)
     * -R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*XZZ
      F(4,4,6,6)= R8(24)-R7(17,1)-R7(17,2)+R6(11,1)+R6(13,1)+R6(11,3)
     * +R6(13,9)+R6(24,9)-R5(8,1)-R5(8,2)-R5(8,13)-R5(17,13)-R5(8,17)
     * -R5(17,17)+R4(4,1)+R4(4,3)+R4(4,14)+R4(6,14)+R4(11,14)+R4(13,14)
     * +R4(4,22)+R4(11,22)+R4(13,38)-R3(3,11)-R3(8,11)-R3(3,15)-R3(8,15)
     * -R3(8,43)-R3(8,48)+R2(1,1)+R2(2,1)+R2(1,9)+R2(2,9)+R2(2,37)
     * +R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(+R7(24,3)
     * +R7(24,4)-R6(17,5)-R6(17,6)-R6(17,7)-R6(17,8)+R5(11,5)+R5(13,5)
     * +R5(11,6)+R5(13,6)+R5(11,9)+R5(11,10)+R5(13,21)+R5(13,22)-R4(8,6)
     * -R4(8,7)-R4(8,8)-R4(8,9)-R4(8,30)-R4(8,31)-R4(8,34)-R4(8,35)
     * +R3(4,1)+R3(4,2)+R3(4,5)+R3(4,6)+R3(4,27)+R3(6,27)+R3(4,28)
     * +R3(6,28)+R3(4,35)+R3(4,36)-R2(5,21)-R2(5,22)-R2(5,25)-R2(5,26)
     * +R1(1,1)+R1(1,2)+R1(1,9)+R1(1,10))*QX+(+R6(24,11)-R5(17,15)
     * -R5(17,19)+R4(11,16)+R4(13,16)+R4(11,24)+R4(13,40)-R3(8,13)
     * -R3(8,17)-R3(8,45)-R3(8,50)+R2(2,3)+R2(2,11)+R2(2,39)+R2(3,39)
     * +R2(2,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XX
      F(5,4,6,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(14,1)+R6(12,3)
     * +R6(25,9)-R5(9,1)-R5(9,2)-R5(18,13)-R5(18,17)+R4(5,1)+R4(5,3)
     * +R4(12,14)+R4(14,14)+R4(12,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)
     * +(+R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)+R5(12,5)
     * +R5(14,5)+R5(12,6)+R5(14,6)+R5(12,9)+R5(12,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QX+(+R7(18,3)
     * -R6(12,5)-R6(12,7)+R5(7,5)+R5(9,5)+R5(7,9)+R5(18,21)-R4(5,6)
     * -R4(5,8)-R4(12,30)-R4(12,34)+R3(2,1)+R3(2,5)+R3(7,27)+R3(9,27)
     * +R3(7,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QZ+(+R6(25,11)
     * -R5(18,15)-R5(18,19)+R4(12,16)+R4(14,16)+R4(12,24)-R3(9,13)
     * -R3(9,17)+R2(6,3)+R2(6,11))*XX+(+R6(18,10)+R6(18,11)-R5(12,14)
     * -R5(12,15)-R5(12,18)-R5(12,19)+R4(7,15)+R4(9,15)+R4(7,16)
     * +R4(9,16)+R4(7,23)+R4(7,24)-R3(5,12)-R3(5,13)-R3(5,16)-R3(5,17)
     * +R2(4,2)+R2(4,3)+R2(4,10)+R2(4,11))*XZ+(+R5(18,23)-R4(12,32)
     * -R4(12,36)+R3(7,29)+R3(9,29)+R3(7,37)-R2(6,23)-R2(6,27)+R1(2,3)
     * +R1(2,11))*XXZ
      F(6,4,6,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(19,1)+R6(17,3)
     * +R6(19,9)-R5(13,1)-R5(13,2)-R5(13,13)-R5(13,17)+R4(8,1)+R4(8,3)
     * +R4(8,14)+R4(10,14)+R4(8,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(32,4)-R6(24,6)-R6(24,8)+R5(17,6)+R5(19,6)+R5(17,10)+R5(19,22)
     * -R4(13,7)-R4(13,9)-R4(13,31)-R4(13,35)+R3(8,2)+R3(8,6)+R3(8,28)
     * +R3(10,28)+R3(8,36)-R2(3,22)-R2(3,26)+R1(3,2)+R1(3,10))*QX+(
     * +R7(24,3)-R6(17,5)-R6(17,7)+R5(11,5)+R5(13,5)+R5(11,9)+R5(13,21)
     * -R4(8,6)-R4(8,8)-R4(8,30)-R4(8,34)+R3(4,1)+R3(4,5)+R3(4,27)
     * +R3(6,27)+R3(4,35)-R2(5,21)-R2(5,25)+R1(1,1)+R1(1,9))*QZ+(
     * +R6(24,11)-R5(17,15)-R5(17,19)+R4(11,16)+R4(13,16)+R4(11,24)
     * +R4(13,40)-R3(8,13)-R3(8,17)-R3(8,45)-R3(8,50)+R2(2,3)+R2(2,11)
     * +R2(2,39)+R2(3,39)+R2(2,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XZ
      F(1,5,6,6)= R8(19)-R7(13,1)-R7(13,2)+R6(8,1)+R6(10,1)+R6(8,3)
     * +R6(19,9)*THREE-R5(6,1)-R5(6,2)-R5(13,13)*THREE-R5(13,17)*THREE
     * +R4(3,1)+R4(3,3)+R4(8,14)*THREE+R4(10,14)*THREE+R4(8,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(19,3)*TWO+R7(19,4)-R6(13,5)*TWO-R6(13,6)-R6(13,7)*TWO
     * -R6(13,8)+R5(8,5)*TWO+R5(10,5)*TWO+R5(8,6)+R5(10,6)+R5(8,9)*TWO
     * +R5(8,10)+R5(19,21)*TWO+R5(19,22)-R4(6,6)*TWO-R4(6,7)-R4(6,8)*TWO
     * -R4(6,9)-R4(13,30)*TWO-R4(13,31)-R4(13,34)*TWO-R4(13,35)
     * +R3(3,1)*TWO+R3(3,2)+R3(3,5)*TWO+R3(3,6)+R3(8,27)*TWO
     * +R3(10,27)*TWO+R3(8,28)+R3(10,28)+R3(8,35)*TWO+R3(8,36)
     * -R2(3,21)*TWO-R2(3,22)-R2(3,25)*TWO-R2(3,26)+R1(3,1)*TWO+R1(3,2)
     * +R1(3,9)*TWO+R1(3,10))*QX+(+R7(13,4)-R6(8,6)-R6(8,8)+R5(4,6)
     * +R5(6,6)+R5(4,10)+R5(13,22)*THREE-R4(3,7)-R4(3,9)-R4(8,31)*THREE
     * -R4(8,35)*THREE+R3(1,2)+R3(1,6)+R3(4,28)*THREE+R3(6,28)*THREE
     * +R3(4,36)*THREE-R2(5,22)*THREE-R2(5,26)*THREE+R1(1,2)*THREE
     * +R1(1,10)*THREE)*QZ
      F(1,5,6,6)= F(1,5,6,6)+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)
     * -R5(13,15)*TWO-R5(13,18)-R5(13,19)*TWO+R4(8,15)+R4(10,15)
     * +R4(8,16)*TWO+R4(10,16)*TWO+R4(8,23)+R4(8,24)*TWO-R3(6,12)
     * -R3(6,13)*TWO-R3(6,16)-R3(6,17)*TWO+R2(5,2)+R2(5,3)*TWO+R2(5,10)
     * +R2(5,11)*TWO)*XX+(+R6(13,11)*TWO+R6(13,12)-R5(8,15)*TWO-R5(8,16)
     * -R5(8,19)*TWO-R5(8,20)+R4(4,16)*TWO+R4(6,16)*TWO+R4(4,17)
     * +R4(6,17)+R4(4,24)*TWO+R4(4,25)+R4(13,40)*TWO+R4(13,41)
     * -R3(3,13)*TWO-R3(3,14)-R3(3,17)*TWO-R3(3,18)-R3(8,45)*TWO
     * -R3(8,46)-R3(8,50)*TWO-R3(8,51)+R2(1,3)*TWO+R2(1,4)+R2(1,11)*TWO
     * +R2(1,12)+R2(2,39)*TWO+R2(3,39)*TWO+R2(2,40)+R2(3,40)
     * +R2(2,49)*TWO+R2(2,50)-R1(3,23)*TWO-R1(3,24)-R1(3,28)*TWO
     * -R1(3,29)+R0(3)*TWO+R0(4)+R0(13)*TWO+R0(14))*XZ+(+R5(19,23)
     * -R4(13,32)-R4(13,36)+R3(8,29)+R3(10,29)+R3(8,37)-R2(3,23)
     * -R2(3,27)+R1(3,3)+R1(3,11))*XXX+(+R5(13,23)+R5(13,24)*TWO
     * -R4(8,32)-R4(8,33)*TWO-R4(8,36)-R4(8,37)*TWO+R3(4,29)+R3(6,29)
     * +R3(4,30)*TWO+R3(6,30)*TWO+R3(4,37)+R3(4,38)*TWO-R2(5,23)
     * -R2(5,24)*TWO-R2(5,27)-R2(5,28)*TWO+R1(1,3)+R1(1,4)*TWO+R1(1,11)
     * +R1(1,12)*TWO)*XXZ+(+R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)
     * +R2(3,41)+R2(2,51)-R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXXZ
      F(2,5,6,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(19,1)+R6(17,3)
     * +R6(19,9)-R5(13,1)-R5(13,2)-R5(13,13)-R5(13,17)+R4(8,1)+R4(8,3)
     * +R4(8,14)+R4(10,14)+R4(8,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(32,4)-R6(24,6)-R6(24,8)+R5(17,6)+R5(19,6)+R5(17,10)+R5(19,22)
     * -R4(13,7)-R4(13,9)-R4(13,31)-R4(13,35)+R3(8,2)+R3(8,6)+R3(8,28)
     * +R3(10,28)+R3(8,36)-R2(3,22)-R2(3,26)+R1(3,2)+R1(3,10))*QX+(
     * +R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(13,6)+R5(11,10)+R5(13,22)
     * -R4(8,7)-R4(8,9)-R4(8,31)-R4(8,35)+R3(4,2)+R3(4,6)+R3(4,28)
     * +R3(6,28)+R3(4,36)-R2(5,22)-R2(5,26)+R1(1,2)+R1(1,10))*QZ+(
     * +R6(24,12)-R5(17,16)-R5(17,20)+R4(11,17)+R4(13,17)+R4(11,25)
     * +R4(13,41)-R3(8,14)-R3(8,18)-R3(8,46)-R3(8,51)+R2(2,4)+R2(2,12)
     * +R2(2,40)+R2(3,40)+R2(2,50)-R1(3,24)-R1(3,29)+R0(4)+R0(14))*XZ
      F(3,5,6,6)= R8(34)-R7(26,1)-R7(26,2)+R6(19,1)+R6(21,1)+R6(19,3)
     * +R6(19,9)*THREE-R5(15,1)-R5(15,2)-R5(13,13)*THREE-R5(13,17)*THREE
     * +R4(10,1)+R4(10,3)+R4(8,14)*THREE+R4(10,14)*THREE+R4(8,22)*THREE
     * -R3(6,11)*THREE-R3(6,15)*THREE+R2(5,1)*THREE+R2(5,9)*THREE+(
     * +R7(34,4)-R6(26,6)-R6(26,8)+R5(19,6)+R5(21,6)+R5(19,10)
     * +R5(19,22)*THREE-R4(15,7)-R4(15,9)-R4(13,31)*THREE
     * -R4(13,35)*THREE+R3(10,2)+R3(10,6)+R3(8,28)*THREE+R3(10,28)*THREE
     * +R3(8,36)*THREE-R2(3,22)*THREE-R2(3,26)*THREE+R1(3,2)*THREE
     * +R1(3,10)*THREE)*QX+(+R7(26,3)*TWO+R7(26,4)-R6(19,5)*TWO-R6(19,6)
     * -R6(19,7)*TWO-R6(19,8)+R5(13,5)*TWO+R5(15,5)*TWO+R5(13,6)
     * +R5(15,6)+R5(13,9)*TWO+R5(13,10)+R5(13,21)*TWO+R5(13,22)
     * -R4(10,6)*TWO-R4(10,7)-R4(10,8)*TWO-R4(10,9)-R4(8,30)*TWO
     * -R4(8,31)-R4(8,34)*TWO-R4(8,35)+R3(6,1)*TWO+R3(6,2)+R3(6,5)*TWO
     * +R3(6,6)+R3(4,27)*TWO+R3(6,27)*TWO+R3(4,28)+R3(6,28)+R3(4,35)*TWO
     * +R3(4,36)-R2(5,21)*TWO-R2(5,22)-R2(5,25)*TWO-R2(5,26)+R1(1,1)*TWO
     * +R1(1,2)+R1(1,9)*TWO+R1(1,10))*QZ
      F(3,5,6,6)= F(3,5,6,6)+(+R6(26,11)*TWO+R6(26,12)
     * -R5(19,15)*TWO-R5(19,16)-R5(19,19)*TWO-R5(19,20)+R4(13,16)*TWO
     * +R4(15,16)*TWO+R4(13,17)+R4(15,17)+R4(13,24)*TWO+R4(13,25)
     * +R4(13,40)*TWO+R4(13,41)-R3(10,13)*TWO-R3(10,14)-R3(10,17)*TWO
     * -R3(10,18)-R3(8,45)*TWO-R3(8,46)-R3(8,50)*TWO-R3(8,51)
     * +R2(3,3)*TWO+R2(3,4)+R2(3,11)*TWO+R2(3,12)+R2(2,39)*TWO
     * +R2(3,39)*TWO+R2(2,40)+R2(3,40)+R2(2,49)*TWO+R2(2,50)
     * -R1(3,23)*TWO-R1(3,24)-R1(3,28)*TWO-R1(3,29)+R0(3)*TWO+R0(4)
     * +R0(13)*TWO+R0(14))*XZ
      F(3,5,6,6)= F(3,5,6,6)+(+R6(19,10)+R6(19,11)*TWO-R5(13,14)
     * -R5(13,15)*TWO-R5(13,18)-R5(13,19)*TWO+R4(8,15)+R4(10,15)
     * +R4(8,16)*TWO+R4(10,16)*TWO+R4(8,23)+R4(8,24)*TWO-R3(6,12)
     * -R3(6,13)*TWO-R3(6,16)-R3(6,17)*TWO+R2(5,2)+R2(5,3)*TWO+R2(5,10)
     * +R2(5,11)*TWO)*ZZ+(+R5(19,23)+R5(19,24)*TWO-R4(13,32)
     * -R4(13,33)*TWO-R4(13,36)-R4(13,37)*TWO+R3(8,29)+R3(10,29)
     * +R3(8,30)*TWO+R3(10,30)*TWO+R3(8,37)+R3(8,38)*TWO-R2(3,23)
     * -R2(3,24)*TWO-R2(3,27)-R2(3,28)*TWO+R1(3,3)+R1(3,4)*TWO+R1(3,11)
     * +R1(3,12)*TWO)*XZZ+(+R5(13,23)-R4(8,32)-R4(8,36)+R3(4,29)
     * +R3(6,29)+R3(4,37)-R2(5,23)-R2(5,27)+R1(1,3)+R1(1,11))*ZZZ+(
     * +R4(13,42)-R3(8,47)-R3(8,52)+R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)
     * -R1(3,30)+R0(5)+R0(15))*XZZZ
      F(4,5,6,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(14,1)+R6(12,3)
     * +R6(25,9)-R5(9,1)-R5(9,2)-R5(18,13)-R5(18,17)+R4(5,1)+R4(5,3)
     * +R4(12,14)+R4(14,14)+R4(12,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)
     * +(+R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)+R5(12,5)
     * +R5(14,5)+R5(12,6)+R5(14,6)+R5(12,9)+R5(12,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QX+(+R7(18,4)
     * -R6(12,6)-R6(12,8)+R5(7,6)+R5(9,6)+R5(7,10)+R5(18,22)-R4(5,7)
     * -R4(5,9)-R4(12,31)-R4(12,35)+R3(2,2)+R3(2,6)+R3(7,28)+R3(9,28)
     * +R3(7,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QZ+(+R6(25,11)
     * -R5(18,15)-R5(18,19)+R4(12,16)+R4(14,16)+R4(12,24)-R3(9,13)
     * -R3(9,17)+R2(6,3)+R2(6,11))*XX+(+R6(18,11)+R6(18,12)-R5(12,15)
     * -R5(12,16)-R5(12,19)-R5(12,20)+R4(7,16)+R4(9,16)+R4(7,17)
     * +R4(9,17)+R4(7,24)+R4(7,25)-R3(5,13)-R3(5,14)-R3(5,17)-R3(5,18)
     * +R2(4,3)+R2(4,4)+R2(4,11)+R2(4,12))*XZ+(+R5(18,24)-R4(12,33)
     * -R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)-R2(6,24)-R2(6,28)+R1(2,4)
     * +R1(2,12))*XXZ
      F(5,5,6,6)= R8(26)-R7(19,1)-R7(19,2)+R6(13,1)+R6(15,1)+R6(13,3)
     * +R6(13,9)+R6(26,9)-R5(10,1)-R5(10,2)-R5(8,13)-R5(19,13)-R5(8,17)
     * -R5(19,17)+R4(6,1)+R4(6,3)+R4(4,14)+R4(6,14)+R4(13,14)+R4(15,14)
     * +R4(4,22)+R4(13,22)+R4(13,38)-R3(3,11)-R3(10,11)-R3(3,15)
     * -R3(10,15)-R3(8,43)-R3(8,48)+R2(1,1)+R2(3,1)+R2(1,9)+R2(3,9)
     * +R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)+R0(11)+(
     * +R7(26,3)+R7(26,4)-R6(19,5)-R6(19,6)-R6(19,7)-R6(19,8)+R5(13,5)
     * +R5(15,5)+R5(13,6)+R5(15,6)+R5(13,9)+R5(13,10)+R5(13,21)
     * +R5(13,22)-R4(10,6)-R4(10,7)-R4(10,8)-R4(10,9)-R4(8,30)-R4(8,31)
     * -R4(8,34)-R4(8,35)+R3(6,1)+R3(6,2)+R3(6,5)+R3(6,6)+R3(4,27)
     * +R3(6,27)+R3(4,28)+R3(6,28)+R3(4,35)+R3(4,36)-R2(5,21)-R2(5,22)
     * -R2(5,25)-R2(5,26)+R1(1,1)+R1(1,2)+R1(1,9)+R1(1,10))*QX
      F(5,5,6,6)= F(5,5,6,6)+(
     * +R7(19,3)+R7(19,4)-R6(13,5)-R6(13,6)-R6(13,7)-R6(13,8)+R5(8,5)
     * +R5(10,5)+R5(8,6)+R5(10,6)+R5(8,9)+R5(8,10)+R5(19,21)+R5(19,22)
     * -R4(6,6)-R4(6,7)-R4(6,8)-R4(6,9)-R4(13,30)-R4(13,31)-R4(13,34)
     * -R4(13,35)+R3(3,1)+R3(3,2)+R3(3,5)+R3(3,6)+R3(8,27)+R3(10,27)
     * +R3(8,28)+R3(10,28)+R3(8,35)+R3(8,36)-R2(3,21)-R2(3,22)-R2(3,25)
     * -R2(3,26)+R1(3,1)+R1(3,2)+R1(3,9)+R1(3,10))*QZ+(+R6(26,11)
     * -R5(19,15)-R5(19,19)+R4(13,16)+R4(15,16)+R4(13,24)+R4(13,40)
     * -R3(10,13)-R3(10,17)-R3(8,45)-R3(8,50)+R2(3,3)+R2(3,11)+R2(2,39)
     * +R2(3,39)+R2(2,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XX+(+R6(19,10)
     * +R6(19,11)*TWO+R6(19,12)-R5(13,14)-R5(13,15)*TWO-R5(13,16)
     * -R5(13,18)-R5(13,19)*TWO-R5(13,20)+R4(8,15)+R4(10,15)
     * +R4(8,16)*TWO+R4(10,16)*TWO+R4(8,17)+R4(10,17)+R4(8,23)
     * +R4(8,24)*TWO+R4(8,25)-R3(6,12)-R3(6,13)*TWO-R3(6,14)-R3(6,16)
     * -R3(6,17)*TWO-R3(6,18)+R2(5,2)+R2(5,3)*TWO+R2(5,4)+R2(5,10)
     * +R2(5,11)*TWO+R2(5,12))*XZ
      F(5,5,6,6)= F(5,5,6,6)+(+R6(13,11)-R5(8,15)-R5(8,19)+R4(4,16)
     * +R4(6,16)+R4(4,24)+R4(13,40)-R3(3,13)-R3(3,17)-R3(8,45)-R3(8,50)
     * +R2(1,3)+R2(1,11)+R2(2,39)+R2(3,39)+R2(2,49)-R1(3,23)-R1(3,28)
     * +R0(3)+R0(13))*ZZ+(+R5(19,23)+R5(19,24)-R4(13,32)-R4(13,33)
     * -R4(13,36)-R4(13,37)+R3(8,29)+R3(10,29)+R3(8,30)+R3(10,30)
     * +R3(8,37)+R3(8,38)-R2(3,23)-R2(3,24)-R2(3,27)-R2(3,28)+R1(3,3)
     * +R1(3,4)+R1(3,11)+R1(3,12))*XXZ+(+R5(13,23)+R5(13,24)-R4(8,32)
     * -R4(8,33)-R4(8,36)-R4(8,37)+R3(4,29)+R3(6,29)+R3(4,30)+R3(6,30)
     * +R3(4,37)+R3(4,38)-R2(5,23)-R2(5,24)-R2(5,27)-R2(5,28)+R1(1,3)
     * +R1(1,4)+R1(1,11)+R1(1,12))*XZZ+(+R4(13,42)-R3(8,47)-R3(8,52)
     * +R2(2,41)+R2(3,41)+R2(2,51)-R1(3,25)-R1(3,30)+R0(5)+R0(15))*XXZZ
      F(6,5,6,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(20,1)+R6(18,3)
     * +R6(18,9)-R5(14,1)-R5(14,2)-R5(12,13)-R5(12,17)+R4(9,1)+R4(9,3)
     * +R4(7,14)+R4(9,14)+R4(7,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(33,4)-R6(25,6)-R6(25,8)+R5(18,6)+R5(20,6)+R5(18,10)+R5(18,22)
     * -R4(14,7)-R4(14,9)-R4(12,31)-R4(12,35)+R3(9,2)+R3(9,6)+R3(7,28)
     * +R3(9,28)+R3(7,36)-R2(6,22)-R2(6,26)+R1(2,2)+R1(2,10))*QX+(
     * +R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)+R5(12,5)
     * +R5(14,5)+R5(12,6)+R5(14,6)+R5(12,9)+R5(12,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QZ+(+R6(25,11)
     * +R6(25,12)-R5(18,15)-R5(18,16)-R5(18,19)-R5(18,20)+R4(12,16)
     * +R4(14,16)+R4(12,17)+R4(14,17)+R4(12,24)+R4(12,25)-R3(9,13)
     * -R3(9,14)-R3(9,17)-R3(9,18)+R2(6,3)+R2(6,4)+R2(6,11)+R2(6,12))*XZ
     * +(+R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(9,16)+R4(7,24)
     * -R3(5,13)-R3(5,17)+R2(4,3)+R2(4,11))*ZZ+(+R5(18,24)-R4(12,33)
     * -R4(12,37)+R3(7,30)+R3(9,30)+R3(7,38)-R2(6,24)-R2(6,28)+R1(2,4)
     * +R1(2,12))*XZZ
      F(1,6,6,6)= R8(25)-R7(18,1)-R7(18,2)+R6(12,1)+R6(14,1)+R6(12,3)
     * +R6(25,9)-R5(9,1)-R5(9,2)-R5(18,13)-R5(18,17)+R4(5,1)+R4(5,3)
     * +R4(12,14)+R4(14,14)+R4(12,22)-R3(9,11)-R3(9,15)+R2(6,1)+R2(6,9)
     * +(+R7(25,3)*TWO-R6(18,5)*TWO-R6(18,7)*TWO+R5(12,5)*TWO
     * +R5(14,5)*TWO+R5(12,9)*TWO-R4(9,6)*TWO-R4(9,8)*TWO+R3(5,1)*TWO
     * +R3(5,5)*TWO)*QX+(+R7(18,4)-R6(12,6)-R6(12,8)+R5(7,6)+R5(9,6)
     * +R5(7,10)+R5(18,22)-R4(5,7)-R4(5,9)-R4(12,31)-R4(12,35)+R3(2,2)
     * +R3(2,6)+R3(7,28)+R3(9,28)+R3(7,36)-R2(6,22)-R2(6,26)+R1(2,2)
     * +R1(2,10))*QZ+(+R6(25,10)-R5(18,14)-R5(18,18)+R4(12,15)+R4(14,15)
     * +R4(12,23)-R3(9,12)-R3(9,16)+R2(6,2)+R2(6,10))*XX+(+R6(18,11)*TWO
     * -R5(12,15)*TWO-R5(12,19)*TWO+R4(7,16)*TWO+R4(9,16)*TWO
     * +R4(7,24)*TWO-R3(5,13)*TWO-R3(5,17)*TWO+R2(4,3)*TWO+R2(4,11)*TWO)
     * *XZ+(+R5(18,23)-R4(12,32)-R4(12,36)+R3(7,29)+R3(9,29)+R3(7,37)
     * -R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*XXZ
      F(2,6,6,6)= R8(40)-R7(31,1)-R7(31,2)+R6(23,1)+R6(25,1)+R6(23,3)
     * +R6(25,9)*THREE-R5(18,1)-R5(18,2)-R5(18,13)*THREE-R5(18,17)*THREE
     * +R4(12,1)+R4(12,3)+R4(12,14)*THREE+R4(14,14)*THREE
     * +R4(12,22)*THREE-R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE
     * +R2(6,9)*THREE+(+R7(31,4)-R6(23,6)-R6(23,8)+R5(16,6)+R5(18,6)
     * +R5(16,10)+R5(18,22)*THREE-R4(12,7)-R4(12,9)-R4(12,31)*THREE
     * -R4(12,35)*THREE+R3(7,2)+R3(7,6)+R3(7,28)*THREE+R3(9,28)*THREE
     * +R3(7,36)*THREE-R2(6,22)*THREE-R2(6,26)*THREE+R1(2,2)*THREE
     * +R1(2,10)*THREE)*QZ
      F(3,6,6,6)= R8(42)-R7(33,1)-R7(33,2)+R6(25,1)+R6(27,1)+R6(25,3)
     * +R6(25,9)*THREE-R5(20,1)-R5(20,2)-R5(18,13)*THREE-R5(18,17)*THREE
     * +R4(14,1)+R4(14,3)+R4(12,14)*THREE+R4(14,14)*THREE
     * +R4(12,22)*THREE-R3(9,11)*THREE-R3(9,15)*THREE+R2(6,1)*THREE
     * +R2(6,9)*THREE+(+R7(33,3)*TWO+R7(33,4)-R6(25,5)*TWO-R6(25,6)
     * -R6(25,7)*TWO-R6(25,8)+R5(18,5)*TWO+R5(20,5)*TWO+R5(18,6)
     * +R5(20,6)+R5(18,9)*TWO+R5(18,10)+R5(18,21)*TWO+R5(18,22)
     * -R4(14,6)*TWO-R4(14,7)-R4(14,8)*TWO-R4(14,9)-R4(12,30)*TWO
     * -R4(12,31)-R4(12,34)*TWO-R4(12,35)+R3(9,1)*TWO+R3(9,2)
     * +R3(9,5)*TWO+R3(9,6)+R3(7,27)*TWO+R3(9,27)*TWO+R3(7,28)+R3(9,28)
     * +R3(7,35)*TWO+R3(7,36)-R2(6,21)*TWO-R2(6,22)-R2(6,25)*TWO
     * -R2(6,26)+R1(2,1)*TWO+R1(2,2)+R1(2,9)*TWO+R1(2,10))*QZ+(
     * +R6(25,10)+R6(25,11)*TWO-R5(18,14)-R5(18,15)*TWO-R5(18,18)
     * -R5(18,19)*TWO+R4(12,15)+R4(14,15)+R4(12,16)*TWO+R4(14,16)*TWO
     * +R4(12,23)+R4(12,24)*TWO-R3(9,12)-R3(9,13)*TWO-R3(9,16)
     * -R3(9,17)*TWO+R2(6,2)+R2(6,3)*TWO+R2(6,10)+R2(6,11)*TWO)*ZZ+(
     * +R5(18,23)-R4(12,32)-R4(12,36)+R3(7,29)+R3(9,29)+R3(7,37)
     * -R2(6,23)-R2(6,27)+R1(2,3)+R1(2,11))*ZZZ
      F(4,6,6,6)= R8(32)-R7(24,1)-R7(24,2)+R6(17,1)+R6(19,1)+R6(17,3)
     * +R6(19,9)-R5(13,1)-R5(13,2)-R5(13,13)-R5(13,17)+R4(8,1)+R4(8,3)
     * +R4(8,14)+R4(10,14)+R4(8,22)-R3(6,11)-R3(6,15)+R2(5,1)+R2(5,9)+(
     * +R7(32,3)-R6(24,5)-R6(24,7)+R5(17,5)+R5(19,5)+R5(17,9)+R5(19,21)
     * -R4(13,6)-R4(13,8)-R4(13,30)-R4(13,34)+R3(8,1)+R3(8,5)+R3(8,27)
     * +R3(10,27)+R3(8,35)-R2(3,21)-R2(3,25)+R1(3,1)+R1(3,9))*QX+(
     * +R7(24,4)-R6(17,6)-R6(17,8)+R5(11,6)+R5(13,6)+R5(11,10)+R5(13,22)
     * -R4(8,7)-R4(8,9)-R4(8,31)-R4(8,35)+R3(4,2)+R3(4,6)+R3(4,28)
     * +R3(6,28)+R3(4,36)-R2(5,22)-R2(5,26)+R1(1,2)+R1(1,10))*QZ+(
     * +R6(24,11)-R5(17,15)-R5(17,19)+R4(11,16)+R4(13,16)+R4(11,24)
     * +R4(13,40)-R3(8,13)-R3(8,17)-R3(8,45)-R3(8,50)+R2(2,3)+R2(2,11)
     * +R2(2,39)+R2(3,39)+R2(2,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*XZ
      F(5,6,6,6)= R8(33)-R7(25,1)-R7(25,2)+R6(18,1)+R6(20,1)+R6(18,3)
     * +R6(18,9)-R5(14,1)-R5(14,2)-R5(12,13)-R5(12,17)+R4(9,1)+R4(9,3)
     * +R4(7,14)+R4(9,14)+R4(7,22)-R3(5,11)-R3(5,15)+R2(4,1)+R2(4,9)+(
     * +R7(33,3)-R6(25,5)-R6(25,7)+R5(18,5)+R5(20,5)+R5(18,9)+R5(18,21)
     * -R4(14,6)-R4(14,8)-R4(12,30)-R4(12,34)+R3(9,1)+R3(9,5)+R3(7,27)
     * +R3(9,27)+R3(7,35)-R2(6,21)-R2(6,25)+R1(2,1)+R1(2,9))*QX+(
     * +R7(25,3)+R7(25,4)-R6(18,5)-R6(18,6)-R6(18,7)-R6(18,8)+R5(12,5)
     * +R5(14,5)+R5(12,6)+R5(14,6)+R5(12,9)+R5(12,10)-R4(9,6)-R4(9,7)
     * -R4(9,8)-R4(9,9)+R3(5,1)+R3(5,2)+R3(5,5)+R3(5,6))*QZ+(+R6(25,10)
     * +R6(25,11)-R5(18,14)-R5(18,15)-R5(18,18)-R5(18,19)+R4(12,15)
     * +R4(14,15)+R4(12,16)+R4(14,16)+R4(12,23)+R4(12,24)-R3(9,12)
     * -R3(9,13)-R3(9,16)-R3(9,17)+R2(6,2)+R2(6,3)+R2(6,10)+R2(6,11))*XZ
     * +(+R6(18,11)-R5(12,15)-R5(12,19)+R4(7,16)+R4(9,16)+R4(7,24)
     * -R3(5,13)-R3(5,17)+R2(4,3)+R2(4,11))*ZZ+(+R5(18,23)-R4(12,32)
     * -R4(12,36)+R3(7,29)+R3(9,29)+R3(7,37)-R2(6,23)-R2(6,27)+R1(2,3)
     * +R1(2,11))*XZZ
      F(6,6,6,6)= R8(41)-R7(32,1)-R7(32,2)+R6(24,1)+R6(26,1)+R6(24,3)
     * +R6(24,9)+R6(26,9)-R5(19,1)-R5(19,2)-R5(17,13)-R5(19,13)
     * -R5(17,17)-R5(19,17)+R4(13,1)+R4(13,3)+R4(11,14)+R4(13,14)*TWO
     * +R4(15,14)+R4(11,22)+R4(13,22)+R4(13,38)-R3(8,11)-R3(10,11)
     * -R3(8,15)-R3(10,15)-R3(8,43)-R3(8,48)+R2(2,1)+R2(3,1)+R2(2,9)
     * +R2(3,9)+R2(2,37)+R2(3,37)+R2(2,47)-R1(3,21)-R1(3,26)+R0(1)
     * +R0(11)+(+R7(32,3)+R7(32,4)-R6(24,5)-R6(24,6)-R6(24,7)-R6(24,8)
     * +R5(17,5)+R5(19,5)+R5(17,6)+R5(19,6)+R5(17,9)+R5(17,10)+R5(19,21)
     * +R5(19,22)-R4(13,6)-R4(13,7)-R4(13,8)-R4(13,9)-R4(13,30)
     * -R4(13,31)-R4(13,34)-R4(13,35)+R3(8,1)+R3(8,2)+R3(8,5)+R3(8,6)
     * +R3(8,27)+R3(10,27)+R3(8,28)+R3(10,28)+R3(8,35)+R3(8,36)-R2(3,21)
     * -R2(3,22)-R2(3,25)-R2(3,26)+R1(3,1)+R1(3,2)+R1(3,9)+R1(3,10))*QZ
     * +(+R6(24,11)-R5(17,15)-R5(17,19)+R4(11,16)+R4(13,16)+R4(11,24)
     * +R4(13,40)-R3(8,13)-R3(8,17)-R3(8,45)-R3(8,50)+R2(2,3)+R2(2,11)
     * +R2(2,39)+R2(3,39)+R2(2,49)-R1(3,23)-R1(3,28)+R0(3)+R0(13))*ZZ
      RETURN
      END
