!     Last change:  DV   17 Mar 2005   12:21 pm
PROGRAM test_4
 IMPLICIT NONE
 INTEGER,PARAMETER::iwp=SELECTED_REAL_KIND(15)
 REAL(iwp)::coord(4,3),km(12,12),ym,pr
 INTEGER::i,j
 OPEN(10,FILE='fe95.dat')
 OPEN(11,FILE='fe95.res')
 WRITE(11,'(a/)')"      4-NODE TETRAHEDRON"
 WRITE(11,'(a)')"      Nodal Coordinates"
 DO i=1,4
   READ(10,*)coord(i,:)
   WRITE(11,'(3f12.4)')coord(i,:)
 END DO
 READ(10,*)ym,pr
 WRITE(11,'(/a)')"      Young's Modulus and Poisson's Ratio"
 WRITE(11,'(2f12.4)')ym,pr
 CALL km_4nodetetra(coord,ym,pr,km)
 WRITE(11,'(/a)')"      Stiffness Matrix"
 DO i=1,12
 DO j=1,i
   WRITE(11,'(2i3,f18.4)')i,j,km(i,j)
 END DO
 END DO
STOP
CONTAINS
SUBROUTINE km_4nodetetra(coord,ym,pr,km)
IMPLICIT NONE
!
!        analytical stiffness matrix of a 4-node tetrahedron
!
REAL(iwp),INTENT(IN)::coord(4,3),ym,pr
REAL(iwp),INTENT(OUT)::km(12,12)
REAL(iwp)::x1,x2,x3,x4,y1,y2,y3,y4,z1,z2,z3,z4,t0,s1,s2,s3,s4,s5,s6,s7,s8

x1=coord(1,1)
y1=coord(1,2)
z1=coord(1,3)
x2=coord(2,1)
y2=coord(2,2)
z2=coord(2,3)
x3=coord(3,1)
y3=coord(3,2)
z3=coord(3,3)
x4=coord(4,1)
y4=coord(4,2)
z4=coord(4,3)


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*z2**2*y4**2-1._iwp*y2**2*x3**2-4._iwp*x4*z3*z4*x3*pr-1._iwp*z4  &
      **2*x3**2-1._iwp*z2**2*x3**2+4._iwp*x2*y4*x4*y3*pr+4._iwp*x2*y4*y2*x3*pr  &
      -4._iwp*x2*y4*y2*x4*pr+4._iwp*x4*y3*y2*x3*pr-4._iwp*x2*z4*z2*x4*pr+4._iwp  &
      *x4*z3*z2*x3*pr-1._iwp*y2**2*x4**2-1._iwp*x2**2*z4**2-4._iwp*x2*z3*z2*x3  &
      *pr+2._iwp*x2**2*y4**2*pr+2._iwp*pr*z2**2*y4**2+2._iwp*x4*y3*y4*x3-2._iwp*  &
      y2*x4*y4*x3-1._iwp*x4**2*y3**2-2._iwp*z2**2*y3**2+4._iwp*z2*x4*z4*x3*pr-  &
      4._iwp*x2*y3*y2*x3*pr+4._iwp*x2*y3*y2*x4*pr-1._iwp*x2**2*z3**2-4._iwp*y2*z3  &
      *z2*y4-4._iwp*y2*z3*z4*y3-4._iwp*y2*z4*y4*z3-4._iwp*y2*z4*z2*y3+4._iwp*y2  &
      *z4*z2*y4-4._iwp*y4*z3*z2*y3+4._iwp*y4*z3*z4*y3
      s6 = s7-4._iwp*z2*y4*z4*y3-4._iwp*pr*y2**2*z3*z4-4._iwp*pr*y2*z3**2*y4-4._iwp  &
      *pr*y2*z4**2*y3-4._iwp*pr*y4**2*z3*z2-4._iwp*pr*z2**2*y3*y4-4._iwp*pr  &
      *z2*y3**2*z4-4._iwp*x4**2*z3*z2*pr-4._iwp*z2*x3**2*z4*pr-4._iwp*z2**2*x3  &
      *x4*pr-4._iwp*x2*y4**2*x3*pr-4._iwp*x2**2*z3*z4*pr-4._iwp*x2*y3**2*x4*pr  &
      -4._iwp*x2**2*y3*y4*pr-4._iwp*x2*z3**2*x4*pr-4._iwp*x2*z4**2*x3*pr-4._iwp*  &
      x4**2*y3*y2*pr-4._iwp*y2**2*x3*x4*pr-4._iwp*y2*x3**2*y4*pr+2._iwp*x2*z3*  &
      z2*x3-2._iwp*x2*z3*z2*x4-2._iwp*x2*z3*z4*x3-2._iwp*x2*z4*x4*z3-2._iwp*x2*z4  &
      *z2*x3+2._iwp*x2*z4*z2*x4-2._iwp*x4*z3*z2*x3+2._iwp*x4*z3*z4*x3-2._iwp*z2  &
      *x4*z4*x3+2._iwp*x2*y3*y2*x3-2._iwp*x2*y3*y2*x4-2._iwp*x2*y3*y4*x3-2._iwp*  &
      x2*y4*x4*y3
      s7 = -2._iwp*x2*y4*y2*x3+2._iwp*x2*y4*y2*x4-2._iwp*x4*y3*y2*x3-4._iwp*x4*y3  &
      *y4*x3*pr+4._iwp*y2*x4*y4*x3*pr+4._iwp*pr*y2*z3*z4*y3+4._iwp*pr*y2*z4*y4  &
      *z3+4._iwp*pr*y2*z4*z2*y3+4._iwp*z2*y3**2*z4-1._iwp*x4**2*z3**2-2._iwp*y2  &
      **2*z4**2-2._iwp*y2**2*z3**2+4._iwp*y2*z3*z2*y3-1._iwp*z2**2*x4**2-2._iwp*  &
      z4**2*y3**2-4._iwp*pr*y2*z4*z2*y4+4._iwp*pr*y4*z3*z2*y3-4._iwp*pr*y4*z3*  &
      z4*y3+4._iwp*pr*z2*y4*z4*y3-1._iwp*x2**2*y4**2-2._iwp*y4**2*z3**2-1._iwp*y4  &
      **2*x3**2+4._iwp*y2**2*z3*z4+2._iwp*pr*y2**2*z4**2+2._iwp*pr*y2**2*z3**  &
      2+4._iwp*z2**2*y3*y4+2._iwp*y4**2*x3**2*pr+2._iwp*pr*y4**2*z3**2+2._iwp*y2  &
      **2*x4**2*pr+2._iwp*x4**2*z3*z2+2._iwp*x4**2*y3**2*pr+2._iwp*z2*x3**2*z4
      s5 = s7+2._iwp*z2**2*x3*x4+2._iwp*y2**2*x3**2*pr+2._iwp*pr*z4**2*y3**2+2._iwp  &
      *x2**2*y3**2*pr+2._iwp*x2*y4**2*x3+2._iwp*z2**2*x4**2*pr+2._iwp*x2**2  &
      *z4**2*pr+2._iwp*x2**2*z3*z4+2._iwp*z2**2*x3**2*pr+2._iwp*x2*y3**2*x4+2._iwp  &
      *x2**2*y3*y4+2._iwp*x4**2*z3**2*pr+2._iwp*x2*z3**2*x4+2._iwp*pr*z2**2*  &
      y3**2+2._iwp*x2**2*z3**2*pr+2._iwp*z4**2*x3**2*pr+2._iwp*x2*z4**2*x3+2._iwp  &
      *x4**2*y3*y2+2._iwp*y2**2*x3*x4+2._iwp*y2*x3**2*y4+4._iwp*y2*z3**2*y4+4._iwp  &
      *y2*z4**2*y3+4._iwp*y4**2*z3*z2-4._iwp*pr*y2*z3*z2*y3+4._iwp*pr*y2*z3  &
      *z2*y4+4._iwp*x2*z3*z2*x4*pr+4._iwp*x2*z3*z4*x3*pr+4._iwp*x2*z4*x4*z3*pr  &
      +4._iwp*x2*z4*z2*x3*pr-1._iwp*x2**2*y3**2+s6+4._iwp*x2*y3*y4*x3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,1) = t0

      t0 = 1._iwp/12._iwp*ym*(-1._iwp*y2*z3+y2*z4+y4*z3+z2*y3-1._iwp*z2*y4-  &
      1._iwp*z4*y3)*(x2*z3-1._iwp*x2*z4-1._iwp*x4*z3-1._iwp*z2*x3+z2*x4+z4*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(1,2) = t0

      t0 = -1._iwp/12._iwp*ym*(-1._iwp*y2*z3+y2*z4+y4*z3+z2*y3-1._iwp*z2*y4  &
      -1._iwp*z4*y3)*(x2*y3-1._iwp*x2*y4-1._iwp*x4*y3-1._iwp*y2*x3+y2*x4+y4*x3)/  &
      (x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4  &
      *z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3  &
      -1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2  &
      *z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(1,3) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = 2._iwp*x4*y3*y1*x3*pr+2._iwp*x2*y4*y1*x3*pr-2._iwp*y2*x3*x1*y3*pr+2._iwp  &
      *z2*y3**2*z4+2._iwp*pr*y4*z3*y1*z4-4._iwp*x4*z3*z4*x3*pr-2._iwp*z4**2  &
      *x3*x1*pr-2._iwp*z4*x3**2*z1*pr-2._iwp*x4*y3**2*x1*pr-2._iwp*x4**2*y3*y1  &
      *pr+2._iwp*y2*x3**2*y1*pr+2._iwp*y2*x4**2*y1*pr-2._iwp*y4**2*x3*x1*pr-2._iwp  &
      *y4*x3**2*y1*pr+2._iwp*x2*y4**2*x1*pr-1._iwp*x2*z3*z4*x3-1._iwp*x2*z4*  &
      x4*z3-1._iwp*x4*z3*z2*x3+2._iwp*x4*z3*z4*x3-1._iwp*z2*x4*z4*x3-1._iwp*x2*y3  &
      *y4*x3+2._iwp*y2*x4*x1*y3*pr+2._iwp*pr*z2*y4*z4*y3+2._iwp*pr*z2*y4*y1*z3
      
      s7 = 2._iwp*x4*z3*z1*x3*pr-2._iwp*z2*x3*x1*z3*pr+2._iwp*y2*x3*x1*y4*pr-4._iwp  &
      *y2*x3*y1*x4*pr-2._iwp*x2*y3*y1*x3*pr-2._iwp*pr*z2*y4*y1*z4+2._iwp*pr  &
      *z4*y3*y1*z3-2._iwp*y2*x4*x1*y4*pr+2._iwp*z2*x4*z4*x3*pr+2._iwp*y4*x3*x1  &
      *y3*pr-4._iwp*pr*y2*z3*y1*z4-4._iwp*pr*z2*y3*z1*y4-1._iwp*x4**2*z3**2+2._iwp  &
      *x2*y3*y4*x3*pr+2._iwp*y4*x3*y1*x4*pr-2._iwp*z4**2*y3**2-4._iwp*x2*z3*  &
      x1*z4*pr+2._iwp*pr*z4*y3*z1*y4-2._iwp*x2*z3*z1*x3*pr+2._iwp*x2*y4*x4*y3*  &
      pr-1._iwp*x2*y4*x4*y3-1._iwp*x4*y3*y2*x3+2._iwp*x4*y3*y4*x3-1._iwp*y2*x4*y4  &
      *x3+2._iwp*z2*y3*y1*z3+s8
      s8 = s7-2._iwp*z2*y3*y1*z4+4._iwp*z2*y3*z1*y4-2._iwp*z2*y4*y1*z3+2._iwp*z2  &
      *y4*y1*z4-2._iwp*z4*y3*y1*z3-2._iwp*z4*y3*z1*y4+2._iwp*pr*y2*z3**2*y1+2._iwp  &
      *x2*z4*x4*z3*pr+2._iwp*z2*x3*x1*z4*pr-1._iwp*x2*y3**2*x1+x2*z3**2*x4  &
      -4._iwp*z2*x3*z1*x4*pr-2._iwp*pr*y2*z3*z1*y3+y4**2*x3*x1+2._iwp*pr*y2*z3  &
      *z4*y3-1._iwp*y2*x3**2*y1+x2*y4**2*x3+z4**2*x3*x1+x2*z4**2*x3+2._iwp*x4  &
      *y3*y2*x3*pr-4._iwp*x4*y3*y4*x3*pr+2._iwp*y4**2*x3**2*pr+x4**2*z3*z2+  &
      2._iwp*x2*z3*z4*x3*pr
      s6 = s8+2._iwp*pr*y4**2*z3**2+2._iwp*x2*z3*z1*x4*pr+x4**2*z3*z1+x4*z3**  &
      2*x1-1._iwp*x2*z4**2*x1-1._iwp*x2*z3**2*x1+2._iwp*z4*y3**2*z1+2._iwp*pr*z4  &
      **2*y3**2+z2*x3**2*z4+2._iwp*x4**2*y3**2*pr+z4*x3**2*z1-1._iwp*z2*x4**  &
      2*z1+2._iwp*y2*x4*y4*x3*pr-1._iwp*z2*x3**2*z1-2._iwp*y2*z4**2*y1-2._iwp*y2  &
      *z3**2*y1-2._iwp*pr*z2*y3**2*z4-2._iwp*pr*y4**2*z3*z2-2._iwp*pr*y2*z4**  &
      2*y3+2._iwp*pr*y2*z3*z1*y4+2._iwp*pr*y2*z4*z1*y3+y4*x3**2*y1-1._iwp*x4**  &
      2*y3**2-1._iwp*y2*x4**2*y1+x4**2*y3*y1-2._iwp*pr*y2*z3**2*y4
      s8 = -2._iwp*z2*y4*z4*y3+x4*y3**2*x1+4._iwp*y4*z3*z4*y3-2._iwp*y4*z3*z2*  &
      y3-2._iwp*y2*z4*y4*z3-2._iwp*y2*z3*z4*y3-2._iwp*x2*y3**2*x4*pr+x2*y3**2*  &
      x4+2._iwp*z4*x3*x1*z3*pr-2._iwp*x2*y4**2*x3*pr-2._iwp*z2*x3**2*z4*pr-2._iwp  &
      *z2*y3**2*z1-2._iwp*x4**2*z3*z2*pr+2._iwp*y4**2*z3*z1-2._iwp*z2*x4*x1*z4  &
      *pr+2._iwp*y4*z3**2*y1+2._iwp*z4**2*x3**2*pr+2._iwp*x4**2*z3**2*pr+2._iwp  &
      *y2*z3**2*y4+y2*x3**2*y4+x4**2*y3*y2-2._iwp*x2*z3**2*x4*pr+2._iwp*y4**  &
      2*z3*z2+2._iwp*y2*z4**2*y3+2._iwp*pr*y2*z4*y4*z3
      s7 = s8+2._iwp*x2*y3*y1*x4*pr+2._iwp*z4**2*y3*y1-2._iwp*z2*y4**2*z1-1._iwp  &
      *x2*y4**2*x1-2._iwp*x4**2*y3*y2*pr-2._iwp*x2*z4**2*x3*pr-2._iwp*pr*y2*z4  &
      *z1*y4-1._iwp*z4*x3*z1*x4-1._iwp*z4*x3*x1*z3+2._iwp*x2*z4*z1*x3*pr+z2*x4  &
      *x1*z4-1._iwp*z2*x4*x1*z3-2._iwp*y2*x3**2*y4*pr+2._iwp*x2*y3*x1*y4+x2*y4  &
      *y1*x4-1._iwp*x2*y4*y1*x3-2._iwp*y4**2*z3**2-1._iwp*x2*y3*y1*x4+x2*y3*y1  &
      *x3-1._iwp*z4**2*x3**2-1._iwp*x4*y3*x1*y4+2._iwp*y2*x3*y1*x4-1._iwp*y2*x3*  &
      x1*y4+y2*x3*x1*y3-1._iwp*x4*y3*y1*x3
      s8 = s7+2._iwp*z4*x3*z1*x4*pr-2._iwp*x2*z4*z1*x4*pr+y2*x4*x1*y4-1._iwp*y2  &
      *x4*x1*y3+2._iwp*y2*z3*z1*y3+4._iwp*y2*z3*y1*z4-1._iwp*y4*x3*y1*x4-1._iwp  &
      *y4*x3*x1*y3-2._iwp*y2*z3*z1*y4-2._iwp*y2*z4*z1*y3-2._iwp*y4*z3*y1*z4+2._iwp  &
      *y2*z4*z1*y4+2._iwp*x2*z3*x1*z4+2._iwp*x4*z3*x1*z4*pr-2._iwp*y4*z3*z1*  &
      y3+x2*z4*z1*x4-1._iwp*x2*z4*z1*x3-1._iwp*x2*z3*z1*x4+x2*z3*z1*x3+2._iwp*  &
      pr*y4*z3*z1*y3+z2*x3*x1*z3+2._iwp*pr*y4*z3*z2*y3-1._iwp*x4*z3*z1*x3-1._iwp  &
      *x4*z3*x1*z4
      s5 = s8-2._iwp*x2*y4*y1*x4*pr-2._iwp*pr*z2*y3*y1*z3+2._iwp*x4*y3*x1*y4*pr  &
      -4._iwp*pr*y4*z3*z4*y3-1._iwp*z2*x3*x1*z4+2._iwp*x4*z3*z2*x3*pr-1._iwp*y4  &
      **2*x3**2-2._iwp*pr*y4**2*z3*z1-2._iwp*pr*y4*z3**2*y1+2._iwp*pr*y2*z4**2  &
      *y1+2._iwp*z2*x3*z1*x4-4._iwp*x2*y3*x1*y4*pr+2._iwp*x2*z4**2*x1*pr+2._iwp*  &
      x2*z3**2*x1*pr+2._iwp*x2*y3**2*x1*pr-2._iwp*pr*z4*y3**2*z1-2._iwp*pr*z4**  &
      2*y3*y1+2._iwp*pr*z2*y4**2*z1+2._iwp*pr*z2*y3**2*z1-2._iwp*x4*z3**2*x1*  &
      pr+2._iwp*z2*x4**2*z1*pr+2._iwp*z2*x3**2*z1*pr-2._iwp*x4**2*z3*z1*pr+2._iwp  &
      *z2*x4*x1*z3*pr+2._iwp*pr*z2*y3*y1*z4+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,4) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -1._iwp*y4*z3*z4*x3+2._iwp*pr*y2*z3*z1*x4-2._iwp*z4*x3*z1*y4*pr+4._iwp  &
      *x2*z3*y1*z4*pr-2._iwp*pr*y2*z3*z1*x3+2._iwp*z2*x3*y1*z3*pr-2._iwp*z2*x3  &
      *y4*z3*pr+2._iwp*pr*z2*y3*x1*z4+2._iwp*pr*y2*z3*z4*x3+z2*y3*z1*x3-1._iwp  &
      *z2*y3*z1*x4-1._iwp*z2*y3*z4*x3-1._iwp*z2*y4*x4*z3-1._iwp*z2*y4*z1*x3+z2  &
      *y4*z1*x4-1._iwp*z4*y3*x4*z3-1._iwp*z4*y3*z1*x3+2._iwp*pr*y2*z3**2*x1-2._iwp  &
      *pr*y2*z3**2*x4+2._iwp*pr*y2*z4**2*x1
      s6 = s7-2._iwp*pr*y2*z4**2*x3-2._iwp*pr*y4*z3**2*x1-2._iwp*pr*z4**2*y3*x1  &
      -2._iwp*x2*z3*y1*z4-1._iwp*x2*z3*z1*y3+x2*z3*z1*y4+x2*z3*z4*y3+x2*z4*  &
      y4*z3+x2*z4*z1*y3-1._iwp*x2*z4*z1*y4-1._iwp*z2*x3*y1*z3+z2*x3*y1*z4+z2  &
      *x3*y4*z3+z2*x4*y1*z3-1._iwp*z2*x4*y1*z4+z2*x4*z4*y3+z4*x3*y1*z3-2._iwp  &
      *pr*z2*y4*x1*z4-2._iwp*x2*z3*z4*y3*pr+z4*x3*z1*y4
      s7 = 2._iwp*pr*y4*z3*z1*x3-2._iwp*z4*x3*y1*z3*pr+2._iwp*x2*z4*z1*y4*pr-2._iwp  &
      *z2*x3*y1*z4*pr-2._iwp*x2*z4*z1*y3*pr-2._iwp*x2*z4*y4*z3*pr+2._iwp*x2  &
      *z3*z1*y3*pr-1._iwp*x4*z3**2*y1-1._iwp*x2*z4**2*y3+x2*z4**2*y1+x2*z3**  &
      2*y1-1._iwp*z4**2*x3*y1-2._iwp*x2*z3*z1*y4*pr+2._iwp*z2*x4*y1*z4*pr-2._iwp  &
      *z2*x4*z4*y3*pr-2._iwp*z2*x4*y1*z3*pr-2._iwp*x4*z3*z1*y3*pr+2._iwp*x2*z3  &
      **2*y4*pr+y4*z3**2*x4-2._iwp*x4*z3*y1*z4*pr+2._iwp*x4*z3**2*y1*pr
      s5 = s7+2._iwp*x2*z4**2*y3*pr-2._iwp*x2*z4**2*y1*pr-2._iwp*x2*z3**2*y1*pr  &
      +2._iwp*z4**2*x3*y1*pr+x4*z3*y1*z4+x4*z3*z1*y3+z4**2*y3*x3-1._iwp*y4*  &
      z3*z1*x4-4._iwp*pr*y2*z3*x1*z4-1._iwp*x2*z3**2*y4-2._iwp*pr*y2*z4*z1*x4+  &
      2._iwp*pr*y4*z3*x1*z4+2._iwp*pr*y2*z4*x4*z3+2._iwp*pr*y2*z4*z1*x3+2._iwp*pr  &
      *z2*y3*x4*z3-2._iwp*pr*z2*y3*x1*z3+s6+2._iwp*pr*z2*y4*z4*x3+2._iwp*pr*z4  &
      *y3*x1*z3+2._iwp*pr*z2*y4*x1*z3+2._iwp*pr*z4*y3*z1*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,5) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*y2*z3*x1*y4+2._iwp*pr*z4*y3*x1*y4+4._iwp*x2*y3*z1*y4*pr+2._iwp  &
      *pr*y2*z4*y4*x3+2._iwp*pr*y4*z3*x1*y3-2._iwp*x4*y3*z1*y4*pr-2._iwp*pr  &
      *z2*y4*y1*x4-2._iwp*y4*x3*z1*y3*pr-2._iwp*x4*y3*y1*z3*pr+2._iwp*pr*z2*y3  &
      *y1*x4-2._iwp*pr*y2*z4*x1*y4+y4*x3*y1*z4+y4*x3*z1*y3-2._iwp*x2*y4**2*z1  &
      *pr+2._iwp*x4*y3**2*z1*pr+2._iwp*x2*y4**2*z3*pr-2._iwp*x2*y3**2*z1*pr+2._iwp  &
      *x2*y3**2*z4*pr+2._iwp*y4**2*x3*z1*pr+y2*z3*y1*x3
      s6 = s7-1._iwp*y2*z3*y1*x4-1._iwp*y2*z3*y4*x3-1._iwp*y2*z4*x4*y3-1._iwp*y2  &
      *z4*y1*x3+y2*z4*y1*x4-1._iwp*y4*z3*x4*y3-1._iwp*y4*z3*y1*x3-1._iwp*z4*y3  &
      *y1*x4-1._iwp*z4*y3*y4*x3-2._iwp*pr*y4**2*z3*x1+2._iwp*pr*z2*y3**2*x1-2._iwp  &
      *pr*z2*y3**2*x4+2._iwp*y2*x3*z1*y3*pr-2._iwp*y2*x3*z4*y3*pr-2._iwp*y2*  &
      x4*y4*z3*pr-4._iwp*pr*z2*y3*x1*y4+2._iwp*pr*z4*y3*y1*x3-2._iwp*y2*x3*z1*  &
      y4*pr-2._iwp*y2*x4*z1*y3*pr-2._iwp*y4*x3*y1*z4*pr
      s7 = -1._iwp*x2*y3**2*z4+y4**2*z3*x3+z4*y3**2*x4-1._iwp*y4**2*x3*z1-1._iwp  &
      *y2*x4*z1*y4-2._iwp*x2*y3*y4*z3*pr-2._iwp*pr*y2*z3*x1*y3+2._iwp*x2*y3*  &
      y1*z3*pr+2._iwp*pr*z2*y4*y1*x3+2._iwp*pr*y2*z4*x1*y3+2._iwp*y2*x4*z1*y4*  &
      pr+2._iwp*pr*z2*y4**2*x1-2._iwp*pr*z4*y3**2*x1-1._iwp*x2*y3*y1*z3+x2*y3*  &
      y1*z4+x2*y3*y4*z3+x2*y4*y1*z3-1._iwp*x2*y4*y1*z4+x2*y4*z4*y3+x4*y3*y1  &
      *z3+x4*y3*z1*y4
      s5 = s7-1._iwp*y2*x3*z1*y3+y2*x3*z1*y4+y2*x3*z4*y3+y2*x4*y4*z3-2._iwp*  &
      pr*z2*y4**2*x3-2._iwp*x2*y3*z1*y4+2._iwp*pr*y2*z3*x4*y3+x2*y3**2*z1+x2  &
      *y4**2*z1-1._iwp*x4*y3**2*z1-1._iwp*x2*y4**2*z3-2._iwp*x2*y3*y1*z4*pr+y2  &
      *x4*z1*y3+2._iwp*pr*y4*z3*y1*x4+2._iwp*x2*y4*y1*z4*pr-2._iwp*x2*y4*z4*y3  &
      *pr-2._iwp*x2*y4*y1*z3*pr+2._iwp*pr*z2*y3*y4*x3-2._iwp*pr*z2*y3*y1*x3+2._iwp  &
      *pr*z2*y4*x4*y3+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,6) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*x2*y3*x1*y4*pr-2._iwp*pr*z2*y4*z1*y2+2._iwp*z4*x3*z1*x4*pr+  &
      4._iwp*x2*y3*y1*x4*pr+4._iwp*z2*x3*x1*z4*pr-2._iwp*x2*y4*y1*x3*pr-1._iwp*x2  &
      *z4**2*x1-1._iwp*y2**2*x3*x4+2._iwp*x2*z3*x1*z2*pr-2._iwp*z2*y4**2*z1-2._iwp  &
      *x2*y4*y1*x4*pr-1._iwp*x2**2*z3*z4+2._iwp*x4*y3*x1*y4*pr-1._iwp*z2**2  &
      *x3*x4-2._iwp*z2*x3*z1*x4*pr-2._iwp*z2*x4*z4*x3*pr-2._iwp*pr*y2**2*z4**2  &
      -2._iwp*y2**2*z3*z4-4._iwp*y2*z4*z2*y4+2._iwp*y2*z4*z2*y3+2._iwp*y2*z4*y4*  &
      z3+2._iwp*y2*z3*z2*y4+x4**2*z3*z1+2._iwp*z2*y4*z4*y3
      s7 = -2._iwp*y4**2*z3*z2-2._iwp*y2*z4**2*y3+4._iwp*y2*x3*x1*y4*pr-1._iwp*x4  &
      **2*y3*y2+4._iwp*x2*z3*z1*x4*pr-2._iwp*y2*x3*y1*x4*pr+2._iwp*y2**2*z3*z1  &
      +2._iwp*z2**2*y4**2+2._iwp*pr*y2**2*z3*z4-2._iwp*pr*y2*z3*z2*y4-2._iwp*x2  &
      *y3*y2*x4*pr+2._iwp*z4**2*y3*y1-2._iwp*y2**2*z4*z1+2._iwp*z2**2*y3*y1+2._iwp  &
      *z2**2*x3*x4*pr-2._iwp*x2**2*y4**2*pr-1._iwp*x4**2*z3*z2+2._iwp*x4**2*  &
      z3*z2*pr-2._iwp*y2**2*x4**2*pr+2._iwp*pr*z2**2*y3*y4+2._iwp*pr*y4**2*z3*  &
      z2+2._iwp*pr*y2*z4**2*y3-2._iwp*z2**2*y4*y1-2._iwp*x2*z4*x1*z2*pr-2._iwp*pr  &
      *y2*z4*y4*z3+s8
      s8 = -1._iwp*y2**2*x4*x1+y2**2*x3*x1-1._iwp*x2**2*y4*y1+x2**2*y3*y1-1._iwp  &
      *z2**2*x4*x1-1._iwp*x2*z4**2*x3+2._iwp*x2*z4**2*x3*pr+z4**2*x3*x1-1._iwp  &
      *z2*x4**2*z1-2._iwp*x2**2*z4**2*pr+2._iwp*x2**2*y3*y4*pr+4._iwp*pr*y2*  &
      z3*z1*y4-2._iwp*z2**2*x4**2*pr-1._iwp*x2*y4**2*x3+2._iwp*x2**2*z3*z4*pr+  &
      2._iwp*x2*y4**2*x3*pr+s7+2._iwp*x4**2*y3*y2*pr-1._iwp*x2**2*y3*y4-2._iwp*pr  &
      *z2**2*y4**2+2._iwp*y4**2*z3*z1-2._iwp*y2*z4**2*y1+y4**2*x3*x1-1._iwp*y2  &
      *x4**2*y1+x4**2*y3*y1
      s6 = 2._iwp*y2**2*z4**2-2._iwp*pr*z2*y4*y1*z3+z2**2*x3*x1-1._iwp*x2**2*z4  &
      *z1+x2**2*z3*z1-2._iwp*z2**2*y3*y4+2._iwp*pr*y2*z3*y1*z2+2._iwp*y2**2*x3  &
      *x4*pr-1._iwp*x2*y4**2*x1+z2*x4*x1*z4+z2*x4*x1*z3-1._iwp*z2*x3*z1*x2+  &
      x2*y4*y1*x4+x2*y4*y1*x3-2._iwp*x2*y3*y1*x4+x2*y3*x1*y4+y2**2*x4**2-1._iwp  &
      *z4*x3*z1*x4-2._iwp*pr*y2*z4*z2*y3+y2*x3*y1*x4+x2**2*y4**2-2._iwp*y2  &
      *x3*x1*y4-1._iwp*x4*y3*x1*y4-2._iwp*pr*y2*z4*y1*z2+y2*x4*x1*y4+y2*x4*  &
      x1*y3+s8
      s8 = 2._iwp*pr*z2*y3*z1*y2-2._iwp*z2*x4*z1*x2*pr+2._iwp*y2*z4*z1*y3-4._iwp  &
      *y2*z3*z1*y4+2._iwp*y2*z3*y1*z4-1._iwp*y4*x3*y1*x4+x2*y4*x1*y2-1._iwp*x2  &
      *y3*x1*y2+z2*x4*z1*x2-2._iwp*y4*z3*y1*z4+4._iwp*pr*y2*z4*z2*y4-2._iwp*pr  &
      *y2*z4*z1*y3+2._iwp*y2*z4*z1*y4+x2*z3*x1*z4-1._iwp*x4*z3*x1*z4+x2*z4*z1  &
      *x4+x2*z4*z1*x3-2._iwp*x2*z3*z1*x4-2._iwp*x2*y4*x4*y3*pr-2._iwp*pr*y2**  &
      2*z3*z1+x2*z4*x1*z2-1._iwp*x2*z3*x1*z2+z2*x3*z1*x4-2._iwp*z2*x3*x1*z4-  &
      2._iwp*x2*z4*z1*x3*pr
      s7 = x2**2*z4**2+2._iwp*pr*y2*z4**2*y1+2._iwp*pr*z2**2*y4*y1-2._iwp*pr*z2  &
      **2*y3*y1+2._iwp*pr*y2**2*z4*z1-2._iwp*pr*y4**2*z3*z1+2._iwp*x2*y3*x1*y2  &
      *pr+2._iwp*x2*z4**2*x1*pr-2._iwp*pr*z4**2*y3*y1+2._iwp*pr*z2*y4**2*z1-2._iwp  &
      *pr*z2*y4*z4*y3+z2**2*x4**2-2._iwp*z2*x4*x1*z3*pr-2._iwp*x2*z4*z2*x4  &
      +x2*z4*z2*x3+x2*z4*x4*z3-2._iwp*pr*z2*y4*y1*z4-2._iwp*pr*y2*z4*z1*y4+  &
      x2*z3*z2*x4+2._iwp*x2*y4**2*x1*pr-2._iwp*y4**2*x3*x1*pr+2._iwp*y2*x4**2*  &
      y1*pr-2._iwp*x4**2*y3*y1*pr-2._iwp*z4**2*x3*x1*pr+2._iwp*z2*x4**2*z1*pr+  &
      s8
      s8 = s7-2._iwp*x4**2*z3*z1*pr-2._iwp*x2*z4*z1*x4*pr-2._iwp*x2*y4*x1*y2*pr  &
      +x2*y4*y2*x3+x2*y4*x4*y3+x2*y3*y2*x4+z2*x4*z4*x3-2._iwp*pr*y2*z3*y1  &
      *z4-2._iwp*x2*y4*y2*x4+y2*x4*y4*x3+2._iwp*z2*y4*y1*z4+2._iwp*z2*y4*y1*z3  &
      -2._iwp*x2*y4*y2*x3*pr+2._iwp*z2*y3*z1*y4-4._iwp*z2*y3*y1*z4-2._iwp*z4*y3*  &
      z1*y4-2._iwp*y2*x4*x1*y3*pr-1._iwp*y2*x3*y1*x2+4._iwp*x2*y4*y2*x4*pr+2._iwp  &
      *pr*y4*z3*y1*z4+2._iwp*x2**2*y4*y1*pr-2._iwp*x2**2*y3*y1*pr+2._iwp*pr*z4  &
      *y3*z1*y4+2._iwp*z2**2*x4*x1*pr
      s5 = -2._iwp*y2**2*x3*x1*pr-2._iwp*y2*x4*x1*y4*pr-2._iwp*y2*z3*y1*z2+y2*  &
      x4*y1*x2+2._iwp*y2**2*x4*x1*pr+2._iwp*y2*x3*y1*x2*pr+4._iwp*pr*z2*y3*y1*  &
      z4-2._iwp*y2*x4*y4*x3*pr+2._iwp*y2*z4*y1*z2+2._iwp*z2*y4*z1*y2-2._iwp*z2*y3  &
      *z1*y2-2._iwp*z2*x4*x1*z4*pr-2._iwp*y2*x4*y1*x2*pr+2._iwp*y4*x3*y1*x4*pr  &
      -2._iwp*x2*z3*x1*z4*pr-2._iwp*x2*z3*z2*x4*pr+2._iwp*x4*z3*x1*z4*pr-2._iwp  &
      *z2**2*x3*x1*pr+2._iwp*x2**2*z4*z1*pr-2._iwp*x2**2*z3*z1*pr+2._iwp*z2*x3  &
      *z1*x2*pr-2._iwp*x2*z4*x4*z3*pr+4._iwp*x2*z4*z2*x4*pr-2._iwp*x2*z4*z2*x3  &
      *pr+s6+s8-2._iwp*pr*z2*y3*z1*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,7) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*z2*x4*y1*z4*pr-2._iwp*z4*x3*z1*y4*pr-2._iwp*x4*z3*y1*z4*pr+2._iwp  &
      *pr*y4*z3*x1*z4+4._iwp*pr*z2*y3*x1*z4-2._iwp*z2*x4*z4*y3*pr-2._iwp*pr  &
      *y2*z3*x1*z4-1._iwp*z4*x3*z1*y2-2._iwp*z2**2*x3*y4*pr-2._iwp*z2**2*x4*y1  &
      *pr-1._iwp*y2*z3*z1*x2+y2*z3*z1*x4+y2*z3*x2*z4+y2*z4*z2*x4+y2*z4*z1*  &
      x2-1._iwp*x2*z4*y1*z2+z2*y4*x2*z4-2._iwp*pr*z2**2*y3*x1+2._iwp*pr*z2**2*  &
      y3*x4+2._iwp*pr*z2**2*y4*x1
      s6 = s7+x2*z3*y1*z2-1._iwp*x2*z3*z2*y4+2._iwp*z2*x3*y1*z4-1._iwp*z2*x4*y1  &
      *z3+2._iwp*z2**2*x3*y1*pr+2._iwp*z2*y4*z1*x3*pr+2._iwp*z2*x4*z1*y2*pr+2._iwp  &
      *pr*y2*z4*x4*z3-1._iwp*y4*z3*z1*x4-1._iwp*z2*y4*z1*x3+z2*y4*z1*x4+2._iwp  &
      *pr*y2*z4**2*x1-2._iwp*pr*y2*z4**2*x3-2._iwp*pr*z4**2*y3*x1-1._iwp*x2  &
      *z3*y1*z4+x2*z3*z1*y4-1._iwp*x2*z4*z1*y4-1._iwp*x4*z3*y2*z4+z2*x3*z1*y2  &
      -1._iwp*z2*x3*y2*z4
      s7 = -1._iwp*z2*x4*z1*y2-1._iwp*z4*x3*z2*y4-2._iwp*z2*x3*z1*y2*pr+2._iwp*z2  &
      *x3*y2*z4*pr+2._iwp*x2*z3*y1*z4*pr-2._iwp*pr*y2*z3*z2*x4-2._iwp*pr*z2*y3  &
      *z1*x4+2._iwp*pr*y2*z3*x1*z2-2._iwp*pr*z2*y4*x1*z3-2._iwp*x2*z4*z1*y3*pr  &
      +2._iwp*x2*z4*y1*z2*pr+2._iwp*x2*z4*z1*y4*pr-2._iwp*pr*z2*y4*x1*z4-2._iwp  &
      *x2*z4*y4*z3*pr+2._iwp*pr*z2*y3*z1*x2+2._iwp*pr*z2*y4*z4*x3+x2*z4**2*y1  &
      -1._iwp*z2**2*x3*y1+z4**2*x3*y2+z2**2*x4*y1+z2**2*x3*y4
      s5 = s7-1._iwp*z2**2*y4*x4-1._iwp*y2*z4**2*x2+2._iwp*z2*x4*y1*z3*pr-1._iwp  &
      *z4**2*x3*y1-2._iwp*pr*y2*z4*x1*z2+2._iwp*pr*z4*y3*z1*x4+z2*y4*x4*z3-4._iwp  &
      *z2*x3*y1*z4*pr-1._iwp*z2*x4*y1*z4+z4*x3*z1*y4+2._iwp*x2*z4**2*y3*pr  &
      -2._iwp*x2*z4**2*y1*pr+2._iwp*z4**2*x3*y1*pr+x4*z3*y1*z4+2._iwp*pr*y2*z4  &
      *z1*x3-2._iwp*pr*y2*z4*z1*x4-2._iwp*pr*z2*y3*x2*z4-2._iwp*pr*z2*y4*z1*x2  &
      -2._iwp*x2*z3*y1*z2*pr+2._iwp*x2*z3*z2*y4*pr+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,8) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*z2*y4*x1*y2+2._iwp*y2*x4*y1*z2*pr-2._iwp*pr*y2*z3*x2*y4-  &
      2._iwp*pr*z2*y3*x1*y4-4._iwp*y2*x3*z1*y4*pr+2._iwp*pr*y2*z3*y1*x2-2._iwp*pr  &
      *y2*z4*y1*x2-2._iwp*x2*y4**2*z1*pr+2._iwp*x2*y4**2*z3*pr+2._iwp*y4**2*x3  &
      *z1*pr+y2*z4*x4*y3-1._iwp*y2*z4*y1*x3+y2*z4*y1*x4-1._iwp*y2*z4*y4*x3+  &
      z2*y3*y1*x4-1._iwp*z2*y4*x4*y3-1._iwp*z2*y4*y1*x3-1._iwp*z4*y3*y1*x4-2._iwp  &
      *pr*y4**2*z3*x1+2._iwp*pr*z2*y4**2*x1
      s6 = s7-2._iwp*pr*z2*y4**2*x3+x2*y3*y1*z4-1._iwp*x2*y3*z1*y4-1._iwp*x2*y4  &
      *y1*z4+x4*y3*z1*y4+2._iwp*y2*x3*z1*y4+z2*y4**2*x3-1._iwp*y4**2*x3*z1+  &
      2._iwp*pr*z2*y3*x1*y2-2._iwp*pr*y2*z3*y1*x4-2._iwp*pr*y2*z4*x1*y3-2._iwp*pr  &
      *y2*z4*x1*y4+2._iwp*pr*y2*z4*y1*x3-2._iwp*pr*z2*y3*y2*x4+2._iwp*y2*x4*z1  &
      *y4*pr+2._iwp*pr*z2*y4*y1*x3-2._iwp*pr*z2*y4*y1*x4-2._iwp*y2*x4*y4*z3*pr  &
      +4._iwp*pr*y2*z3*x1*y4+2._iwp*x2*y3*z1*y4*pr
      s7 = 2._iwp*y2**2*x3*z1*pr-2._iwp*y2**2*x3*z4*pr-2._iwp*y2**2*x4*z1*pr+2._iwp  &
      *pr*y2**2*z3*x4+2._iwp*pr*y2**2*z4*x1+x2*y3*z1*y2-1._iwp*x2*y3*y2*z4  &
      -1._iwp*x2*y4*z1*y2+y2*x3*y1*z2-1._iwp*y2*x3*z2*y4-1._iwp*y2*x4*y1*z2+y2  &
      *z4*x2*y4-1._iwp*z2*y3*y1*x2+z2*y3*x2*y4+z2*y4*y2*x4+z2*y4*y1*x2-2._iwp  &
      *pr*y2**2*z3*x1-1._iwp*y2*x4*z1*y3-1._iwp*y2*x4*z1*y4+y4*x3*y1*z4-1._iwp  &
      *y2**2*z4*x4
      s5 = s7+2._iwp*pr*y2*z4*y4*x3+2._iwp*y2*x4*z1*y3*pr-2._iwp*y4*x3*y1*z4*pr  &
      -2._iwp*x2*y4*y1*z3*pr+2._iwp*pr*z4*y3*x1*y4+2._iwp*x2*y4*y1*z4*pr-2._iwp  &
      *x2*y3*z1*y2*pr+2._iwp*x2*y3*y2*z4*pr+x2*y4**2*z1+y2**2*x3*z4-1._iwp*y2  &
      **2*x3*z1-1._iwp*z2*y4**2*x2+2._iwp*pr*y4*z3*y1*x4+y2**2*x4*z1-2._iwp*x2  &
      *y4*z4*y3*pr-2._iwp*x4*y3*z1*y4*pr+2._iwp*x2*y4*z1*y2*pr+2._iwp*pr*z2*y4  &
      *x4*y3+s6-2._iwp*y2*x3*y1*z2*pr+2._iwp*y2*x3*z2*y4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,9) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*y2**2*z3**2+2._iwp*pr*y2*z3*y1*z2-1._iwp*x2*z3*x1*z4+2._iwp*x2  &
      *y3*y1*x3*pr+2._iwp*x2*y3*y1*x4*pr-4._iwp*x2*y4*y1*x3*pr+2._iwp*x2**2*z3  &
      **2*pr-1._iwp*z2**2*x4*x1+2._iwp*pr*y2**2*z3**2-2._iwp*y4*z3**2*y1-1._iwp  &
      *z2**2*x3**2+2._iwp*pr*z2*y3*y1*z3-1._iwp*z2*x3*z1*x2-2._iwp*z2*x4*z1*x2  &
      *pr+2._iwp*x4*z3**2*x1*pr-2._iwp*z2*x3**2*z1*pr+2._iwp*z4*x3**2*z1*pr+2._iwp  &
      *x4*y3**2*x1*pr-2._iwp*y2*x3**2*y1*pr+2._iwp*y4*x3**2*y1*pr+2._iwp*x2*  &
      z3*z2*x3-1._iwp*x2*z3*z2*x4-1._iwp*x2*z3*z4*x3-1._iwp*x2*z4*z2*x3
      s7 = -1._iwp*x4*z3*z2*x3+2._iwp*x2*y3*y2*x3-1._iwp*x2*y3*y2*x4-1._iwp*x2*y3  &
      *y4*x3-1._iwp*x2*y4*y2*x3-1._iwp*x4*y3*y2*x3-2._iwp*z2*y3*y1*z4-2._iwp*z2  &
      *y3*z1*y4+4._iwp*z2*y4*y1*z3+2._iwp*z4*y3*y1*z3-2._iwp*pr*y2*z3**2*y1-1._iwp  &
      *y2*x3*y1*x2+2._iwp*z2**2*x4*x1*pr-2._iwp*x2**2*y3*y1*pr+2._iwp*x2**2*  &
      y4*y1*pr-2._iwp*y2**2*x3*x1*pr+2._iwp*y2**2*x4*x1*pr+y2*x4*y1*x2-2._iwp*  &
      y2*z3*y1*z2-2._iwp*z2*y3*z1*y2+2._iwp*z2*y4*z1*y2+2._iwp*y2*z4*y1*z2-2._iwp  &
      *y4*z3*z2*y3-1._iwp*y2*x3*x1*y3-1._iwp*y2*x3*y1*x4+s8
      s8 = s7+2._iwp*y2*x4*x1*y3+y4*x3*x1*y3-2._iwp*y2*z3*y1*z4-2._iwp*y2*z3*z1  &
      *y3-2._iwp*y2*z3*z1*y4+4._iwp*y2*z4*z1*y3+2._iwp*y4*z3*z1*y3+z2*x4*z1*x2  &
      -1._iwp*x2*y3*x1*y2+x2*y4*x1*y2-1._iwp*x2*z3*z1*x3-1._iwp*x2*z3*z1*x4+2._iwp  &
      *x2*z4*z1*x3+x4*z3*z1*x3-1._iwp*z2*x3*x1*z3-1._iwp*z2*x3*x1*z4-1._iwp  &
      *z2*x3*z1*x4-1._iwp*x2*z3*x1*z2+x2*z4*x1*z2-2._iwp*pr*y2**2*z3*z1+2._iwp  &
      *pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1+2._iwp*pr*z2**2*y4*y1+2._iwp*pr*y4  &
      *z3**2*y1
      s6 = -2._iwp*pr*z2*y3**2*z1+2._iwp*pr*z4*y3**2*z1-2._iwp*x2*y3**2*x1*pr-  &
      2._iwp*x2*z3**2*x1*pr-1._iwp*y2*x3*x1*y4+2._iwp*x2**2*z4*z1*pr-2._iwp*z2**  &
      2*x3*x1*pr-4._iwp*x2*z3*z2*x3*pr+2._iwp*z2*x3*x1*z4*pr+2._iwp*y2*x3*y1*x4  &
      *pr-2._iwp*x4*y3*y1*x3*pr+2._iwp*x2*y3*x1*y4*pr+4._iwp*y2*z3*z2*y3-2._iwp  &
      *pr*y2*z4*y1*z2-1._iwp*y2**2*x3**2+y2*x3**2*y4+2._iwp*y2*z3**2*y4+x2**  &
      2*z3*z1-1._iwp*x2**2*z4*z1+z2**2*x3*x1+2._iwp*y2*x3*x1*y4*pr+x2*z3**2*  &
      x4-2._iwp*z4*y3**2*z1+2._iwp*z2**2*y3*y4-2._iwp*z2**2*y4*y1+2._iwp*pr*z2**  &
      2*y3**2+s8
      s8 = x2**2*z3*z4-1._iwp*x4*y3**2*x1+2._iwp*y2**2*z3*z4+2._iwp*z2**2*y3*y1  &
      +2._iwp*z2*y3**2*z4-2._iwp*pr*y2**2*z3*z4+2._iwp*pr*y2*z3*z1*y4-4._iwp*pr  &
      *y2*z4*z1*y3-2._iwp*pr*y4*z3*z1*y3-2._iwp*z2*y3*y1*z3+2._iwp*pr*z2*y3*y1  &
      *z4+2._iwp*pr*z2*y3*z1*y4+2._iwp*x2*y3*y2*x4*pr+2._iwp*x2*y3*y4*x3*pr-4._iwp  &
      *pr*y2*z3*z2*y3+2._iwp*pr*y2*z3*z2*y4+2._iwp*pr*y2*z3*z4*y3-4._iwp*z2*  &
      x4*x1*z3*pr-2._iwp*z4*x3*x1*z3*pr+2._iwp*x2*y4*y2*x3*pr+2._iwp*x4*y3*y2*  &
      x3*pr+2._iwp*x4*z3*z2*x3*pr-4._iwp*x2*y3*y2*x3*pr+2._iwp*pr*y2*z3*z1*y3+  &
      2._iwp*x2*z3*z1*x3*pr
      s7 = 2._iwp*x2*z3*z1*x4*pr-4._iwp*x2*z4*z1*x3*pr-2._iwp*x4*z3*z1*x3*pr-2._iwp  &
      *pr*z4*y3*y1*z3-2._iwp*z2**2*y3**2-1._iwp*x2**2*z3**2+2._iwp*z2*x3*x1  &
      *z3*pr+2._iwp*z2*x3*z1*x4*pr-4._iwp*pr*z2*y4*y1*z3-2._iwp*x2**2*z3*z1*pr  &
      +2._iwp*y2*x3*y1*x2*pr-2._iwp*y2*x4*y1*x2*pr+2._iwp*x2*y3*x1*y2*pr-2._iwp*  &
      x2*y4*x1*y2*pr+2._iwp*x2*z3*z2*x4*pr+2._iwp*x2*z3*z4*x3*pr+2._iwp*x2*z4*  &
      z2*x3*pr+2._iwp*x2*z3*x1*z2*pr-2._iwp*x2*z4*x1*z2*pr+2._iwp*z2*x3*z1*x2*  &
      pr+2._iwp*pr*y2*z3*y1*z4+2._iwp*pr*y2*z4*z2*y3+2._iwp*z2*x4*x1*z3-2._iwp*y2  &
      *z3*z2*y4-2._iwp*y2*z3*z4*y3+s8
      s8 = s7-2._iwp*y2*z4*z2*y3-2._iwp*pr*y2*z3**2*y4-2._iwp*pr*z2*y3**2*z4-2._iwp  &
      *z2*x3**2*z4*pr-2._iwp*z2**2*x3*x4*pr-2._iwp*x2**2*z3*z4*pr-2._iwp*x2  &
      *y3**2*x4*pr-2._iwp*x2**2*y3*y4*pr-2._iwp*x2*z3**2*x4*pr-2._iwp*y2**2*x3  &
      *x4*pr-2._iwp*y2*x3**2*y4*pr+z4*x3*x1*z3-1._iwp*x2*y3*x1*y4-1._iwp*x2*y3  &
      *y1*x3-1._iwp*x2*y3*y1*x4+2._iwp*x2*y4*y1*x3+x4*y3*y1*x3-2._iwp*pr*z2**2  &
      *y3*y4+x2**2*y3*y4+2._iwp*y2**2*z3*z1-2._iwp*y2**2*z4*z1+2._iwp*y2**2*x3  &
      **2*pr+z2*x3**2*z4+z2**2*x3*x4
      s5 = x2**2*y3*y1-1._iwp*x2**2*y4*y1+y2**2*x3*x1-1._iwp*y2**2*x4*x1+2._iwp  &
      *x2**2*y3**2*pr+x2*y3**2*x1+x2*z3**2*x1-1._iwp*x4*z3**2*x1+z2*x3**2  &
      *z1-1._iwp*z4*x3**2*z1+y2*x3**2*y1-1._iwp*y4*x3**2*y1+2._iwp*y2*z3**2*y1  &
      +2._iwp*z2*y3**2*z1+2._iwp*z2**2*x3**2*pr+x2*y3**2*x4+y2**2*x3*x4-2._iwp  &
      *pr*z2*y4*z1*y2+s6+2._iwp*pr*z2*y3*z1*y2+2._iwp*x2*z3*x1*z4*pr+2._iwp*y2  &
      *x3*x1*y3*pr-1._iwp*x2**2*y3**2+s8+2._iwp*pr*y4*z3*z2*y3-4._iwp*y2*x4*x1  &
      *y3*pr-2._iwp*y4*x3*x1*y3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,10) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x2*z3*z1*y4*pr-2._iwp*x2*z3*z4*y3*pr+2._iwp*z2*x3*y1*z3*pr+  &
      2._iwp*pr*z2*y3*z1*x4-2._iwp*pr*y2*z3*x1*z2-2._iwp*z2*y4*z1*x3*pr+2._iwp*pr  &
      *y2*z3*z2*x4+x4*z3**2*y2+2._iwp*z2*x3*z1*y2*pr+2._iwp*pr*y2*z4*x1*z2+  &
      z2**2*x3*y1+2._iwp*pr*y2*z3*z4*x3+2._iwp*pr*y2*z3*z1*x4+2._iwp*z2*x3*y1*  &
      z4*pr+z2**2*x4*y3-1._iwp*x4*z3**2*y1-1._iwp*z2**2*x4*y1-1._iwp*z2**2*y3*  &
      x3-1._iwp*y2*z3**2*x2-2._iwp*z2*x3*y2*z4*pr
      s6 = s7+x2*z3**2*y1-2._iwp*pr*z2*y3*z1*x2-2._iwp*z2*x3*y4*z3*pr+2._iwp*pr  &
      *z2*y3*x2*z4+2._iwp*pr*z2*y4*z1*x2+2._iwp*pr*y4*z3*z1*x3-1._iwp*x2*z4*z2  &
      *y3-2._iwp*x2*z4*y1*z2*pr-2._iwp*z2*x4*z1*y2*pr-1._iwp*x2*z3*y1*z4-2._iwp  &
      *pr*y4*z3**2*x1-2._iwp*pr*y2*z3**2*x4+2._iwp*pr*y2*z3**2*x1-1._iwp*z4*y3  &
      *z1*x3+z2*y3*z4*x3-1._iwp*z2*y3*z1*x4+z2*y3*z1*x3-1._iwp*z4*x3*y2*z3-1._iwp  &
      *z2*x4*y2*z3-1._iwp*x4*z3*z2*y3
      s7 = z2*x4*z1*y2-1._iwp*z2*x3*z1*y2+x2*z4*z1*y3-1._iwp*x2*z3*z1*y3+2._iwp  &
      *x2*z3*y1*z2*pr-4._iwp*z2*x4*y1*z3*pr-2._iwp*z2**2*x3*y1*pr+z4*x3*z1*  &
      y2-2._iwp*pr*z2*y3*x1*z3+2._iwp*z2**2*x4*y1*pr+2._iwp*z2**2*x3*y4*pr-1._iwp  &
      *y2*z4*z1*x2-2._iwp*pr*z2*y3*x1*z4+y2*z3*x2*z4-1._iwp*y2*z3*z1*x4+y2*  &
      z3*z1*x2-2._iwp*x2*z3*z2*y4*pr+x2*z4*y1*z2-2._iwp*pr*z2**2*y4*x1-2._iwp*  &
      pr*z2**2*y3*x4+2._iwp*pr*z2**2*y3*x1
      s5 = s7+y2*z3*z2*x3-1._iwp*z2*x3*y1*z3-1._iwp*x2*z3*y1*z2+z4*x3*y1*z3+  &
      2._iwp*z2*x4*y1*z3-1._iwp*z2*x3*y1*z4-2._iwp*pr*y2*z3*x1*z4+2._iwp*x2*z3**  &
      2*y4*pr+2._iwp*x4*z3**2*y1*pr+z2*y3*x2*z3-2._iwp*x2*z3**2*y1*pr+x4*z3*  &
      z1*y3+2._iwp*pr*z2*y3*x4*z3-2._iwp*x4*z3*z1*y3*pr-2._iwp*z4*x3*y1*z3*pr+  &
      4._iwp*pr*z2*y4*x1*z3+2._iwp*pr*z4*y3*x1*z3-2._iwp*pr*y2*z3*z1*x3+2._iwp*x2  &
      *z3*y1*z4*pr+2._iwp*x2*z3*z1*y3*pr+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,11) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*x4*y3*y1*z3*pr+2._iwp*pr*z2*y3*y1*x3-2._iwp*pr*z2*y3*y1*x4+y2  &
      *x3*z1*y3+y2*x3*z1*y4-2._iwp*y2*x3*y1*z2*pr+2._iwp*pr*y2*z3*x1*y4-2._iwp  &
      *x2*y3*z1*y4*pr+2._iwp*y2*x3*z2*y4*pr+2._iwp*y2*x4*y1*z2*pr-2._iwp*pr*z2  &
      *y3*y4*x3-2._iwp*y2*x3*z1*y3*pr-2._iwp*pr*z4*y3*y1*x3+2._iwp*pr*y2**2*z3  &
      *x4+2._iwp*pr*y2**2*z4*x1+x2*y3*z1*y2-1._iwp*x2*y4*z1*y2+y2*x3*y1*z2-  &
      1._iwp*y2*x4*y1*z2+x2*y4*y2*z3
      s6 = s7-1._iwp*z2*y3*y1*x2-1._iwp*z2*y3*x2*y4+z2*y4*y1*x2-2._iwp*pr*y2**  &
      2*z3*x1+x4*y3*y2*z3+y2*x4*z2*y3+y4*x3*z2*y3-2._iwp*y2*x4*z1*y3-1._iwp*  &
      y4*x3*z1*y3-2._iwp*x4*y3**2*z1*pr-1._iwp*y2**2*x4*z3-2._iwp*pr*y2*z3*x4*  &
      y3+x4*y3**2*z1-2._iwp*y2*x3*z1*y4*pr+y2**2*z3*x3+y2**2*x4*z1-1._iwp*y2  &
      **2*x3*z1-1._iwp*x4*y3**2*z2+2._iwp*pr*z2*y3*x1*y2+z2*y3**2*x2
      s7 = 2._iwp*y2*x3*z4*y3*pr+2._iwp*pr*y2*z3*x1*y3-1._iwp*x2*y3**2*z1+2._iwp  &
      *pr*y2*z3*y1*x2-2._iwp*pr*y2*z3*x2*y4-1._iwp*y2*z3*x2*y3-1._iwp*z2*y3*y2  &
      *x3+2._iwp*y2**2*x3*z1*pr-2._iwp*y2**2*x3*z4*pr-2._iwp*y2**2*x4*z1*pr-2._iwp  &
      *pr*y2*z4*y1*x2+4._iwp*y2*x4*z1*y3*pr+2._iwp*y4*x3*z1*y3*pr-2._iwp*x2*  &
      y3*y1*z3*pr-2._iwp*x2*y3*z1*y2*pr+2._iwp*x2*y3**2*z1*pr-2._iwp*x2*y3**2*  &
      z4*pr-1._iwp*y2*z3*y1*x3+y2*z3*y1*x4-1._iwp*y2*z3*y4*x3+y4*z3*y1*x3
      s5 = s7+z2*y3*y1*x4-1._iwp*z2*y4*y1*x3-2._iwp*pr*z2*y3**2*x1+2._iwp*pr*z2  &
      *y3**2*x4+2._iwp*pr*z4*y3**2*x1+x2*y3*y1*z3+x2*y3*z1*y4-1._iwp*x2*y4*  &
      y1*z3-1._iwp*x4*y3*y1*z3+2._iwp*x2*y4*z1*y2*pr+2._iwp*x2*y3*y2*z4*pr-2._iwp  &
      *pr*y2*z3*y1*x4-4._iwp*pr*y2*z4*x1*y3-2._iwp*pr*z2*y4*x1*y2-2._iwp*pr*z2  &
      *y3*y2*x4+2._iwp*x2*y3*y1*z4*pr+2._iwp*x2*y3*y4*z3*pr+2._iwp*pr*y2*z4*y1  &
      *x3-2._iwp*pr*y4*z3*x1*y3+s6+2._iwp*pr*z2*y3*x1*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(1,12) = t0


km(2,1) = km(1,2)


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -4._iwp*x4*y3*y4*x3*pr+4._iwp*y2*x4*y4*x3*pr+4._iwp*x2*z3*z4*x3*pr-  &
      4._iwp*x2*z3*z2*x3*pr-1._iwp*y2**2*z3**2-2._iwp*x2**2*z3**2+4._iwp*x2*z4*x4  &
      *z3*pr+4._iwp*x2*z4*z2*x4-2._iwp*y2*z3*z2*y4-2._iwp*y2*z3*z4*y3-2._iwp*y2  &
      *z4*y4*z3-2._iwp*y2*z4*z2*y3+2._iwp*y2*z4*z2*y4-2._iwp*y4*z3*z2*y3+2._iwp*  &
      y4*z3*z4*y3-2._iwp*z2*y4*z4*y3-4._iwp*pr*y2**2*z3*z4-4._iwp*pr*y2*z3**2*  &
      y4-4._iwp*pr*y2*z4**2*y3-4._iwp*pr*y4**2*z3*z2-4._iwp*pr*z2**2*y3*y4-4._iwp  &
      *pr*z2*y3**2*z4-4._iwp*x4**2*z3*z2*pr-4._iwp*z2*x3**2*z4*pr-4._iwp*z2**  &
      2*x3*x4*pr-4._iwp*x2*y4**2*x3*pr-1._iwp*z2**2*y4**2+2._iwp*y2*z3*z2*y3-2._iwp  &
      *z2**2*x4**2+4._iwp*pr*y2*z3*z2*y4+4._iwp*x2*z4*z2*x3*pr
      s6 = s7-1._iwp*y4**2*x3**2-1._iwp*x2**2*y4**2-4._iwp*x2*z4*z2*x4*pr+4._iwp  &
      *pr*y2*z3*z4*y3+4._iwp*x2*y3*y2*x4*pr+4._iwp*x2*y3*y4*x3*pr-1._iwp*x4**2  &
      *y3**2-1._iwp*y2**2*x4**2-1._iwp*y2**2*z4**2+4._iwp*pr*y2*z4*y4*z3-2._iwp*  &
      x4**2*z3**2+4._iwp*x2*z3**2*x4+2._iwp*pr*z2**2*y3**2+2._iwp*x2**2*z3**2*  &
      pr+2._iwp*z4**2*x3**2*pr+4._iwp*x2*z4**2*x3+2._iwp*y2**2*x3*x4+2._iwp*y2*x3  &
      **2*y4+2._iwp*y2*z3**2*y4+2._iwp*y2*z4**2*y3+2._iwp*y4**2*z3*z2+2._iwp*z2  &
      **2*y3*y4+2._iwp*z2*y3**2*z4-1._iwp*y4**2*z3**2-1._iwp*y2**2*x3**2+4._iwp*  &
      x4*z3*z2*x3*pr-4._iwp*x4*z3*z4*x3*pr+4._iwp*pr*y2*z4*z2*y3+4._iwp*z2*x4*  &
      z4*x3*pr-4._iwp*x2*y3*y2*x3*pr+2._iwp*pr*z4**2*y3**2-4._iwp*x4*z3*z2*x3
      s7 = 4._iwp*x4*z3*z4*x3-4._iwp*z2*x4*z4*x3+2._iwp*x2*y3*y2*x3-2._iwp*x2*y3  &
      *y2*x4-2._iwp*x2*y3*y4*x3-2._iwp*x2*y4*x4*y3-2._iwp*x2*y4*y2*x3+2._iwp*x2*  &
      y4*y2*x4-2._iwp*x4*y3*y2*x3+2._iwp*x4*y3*y4*x3-2._iwp*y2*x4*y4*x3+2._iwp*x4  &
      **2*y3*y2-1._iwp*z2**2*y3**2+2._iwp*y4**2*x3**2*pr-2._iwp*z4**2*x3**2-4._iwp  &
      *pr*y2*z3*z2*y3-1._iwp*z4**2*y3**2+2._iwp*y2**2*z3*z4-4._iwp*pr*y2*z4  &
      *z2*y4+4._iwp*pr*y4*z3*z2*y3+2._iwp*pr*y2**2*z4**2-2._iwp*z2**2*x3**2-1._iwp  &
      *x2**2*y3**2+2._iwp*y2**2*x3**2*pr+4._iwp*x2*y4*x4*y3*pr+4._iwp*x2*y4*  &
      y2*x3*pr+4._iwp*z2**2*x3*x4+4._iwp*z2*x3**2*z4+2._iwp*x4**2*y3**2*pr+2._iwp  &
      *pr*z2**2*y4**2+2._iwp*pr*y2**2*z3**2+2._iwp*x2**2*y4**2*pr
      s5 = s7+4._iwp*x4**2*z3*z2+2._iwp*y2**2*x4**2*pr+2._iwp*z2**2*x4**2*pr+2._iwp  &
      *x2*y4**2*x3+2._iwp*x2**2*y3**2*pr+2._iwp*x2**2*z4**2*pr+2._iwp*pr*y4  &
      **2*z3**2-4._iwp*x2*y4*y2*x4*pr+4._iwp*x4*y3*y2*x3*pr-4._iwp*pr*y4*z3*z4  &
      *y3+4._iwp*pr*z2*y4*z4*y3+2._iwp*x4**2*z3**2*pr+2._iwp*x2**2*y3*y4+2._iwp*  &
      x2*y3**2*x4+2._iwp*z2**2*x3**2*pr+4._iwp*x2**2*z3*z4+4._iwp*x2*z3*z2*x4*  &
      pr+s6-2._iwp*x2**2*z4**2-4._iwp*x2**2*z3*z4*pr-4._iwp*x2*y3**2*x4*pr-4._iwp  &
      *x2**2*y3*y4*pr-4._iwp*x2*z3**2*x4*pr-4._iwp*x2*z4**2*x3*pr-4._iwp*x4**  &
      2*y3*y2*pr-4._iwp*y2**2*x3*x4*pr-4._iwp*y2*x3**2*y4*pr+4._iwp*x2*z3*z2*x3  &
      -4._iwp*x2*z3*z2*x4-4._iwp*x2*z3*z4*x3-4._iwp*x2*z4*x4*z3-4._iwp*x2*z4*z2  &
      *x3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,2) = t0


      t0 = -1._iwp/12._iwp*ym*(x2*z3-1._iwp*x2*z4-1._iwp*x4*z3-1._iwp*z2*x3+z2  &
      *x4+z4*x3)*(x2*y3-1._iwp*x2*y4-1._iwp*x4*y3-1._iwp*y2*x3+y2*x4+y4*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(2,3) = t0


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*y2*z4*z1*x4+2._iwp*pr*y4*z3*x1*z4+2._iwp*pr*y4*z3*z1*x3-  &
      2._iwp*pr*z2*y3*x1*z3-2._iwp*x2*z4*z1*y3*pr+2._iwp*z2*x3*y1*z3*pr+x4*z3**  &
      2*y2-2._iwp*z2*x4*z4*y3*pr-2._iwp*z4*x3*z1*y4*pr-2._iwp*x4*z3*y1*z4*pr-  &
      2._iwp*z4*x3*y1*z3*pr-1._iwp*y2*z3**2*x1+y4*z3**2*x1+z4**2*x3*y2-1._iwp*  &
      y4*z3**2*x4-1._iwp*z4**2*y3*x3-1._iwp*y2*z4**2*x1+z4**2*y3*x1+2._iwp*y2*  &
      z4*x1*z3+2._iwp*x4*z3**2*y1*pr
      s6 = s7+2._iwp*x2*z4**2*y3*pr-2._iwp*x2*z4**2*y1*pr-2._iwp*x2*z3**2*y1*pr  &
      +2._iwp*z4**2*x3*y1*pr-1._iwp*y4*z3*x1*z2-1._iwp*y4*z3*z1*x3+z2*y3*x1*z3  &
      -1._iwp*z4*y3*x1*z3-1._iwp*z4*y3*x1*z2+y2*z4*z1*x4-1._iwp*y4*z3*x1*z4+z2  &
      *y4*x1*z4-1._iwp*z4*y3*z1*x4+2._iwp*x2*z3**2*y4*pr-2._iwp*x2*z4*y4*z3*pr  &
      +2._iwp*x2*z4*z1*y4*pr-2._iwp*z2*x3*y1*z4*pr-2._iwp*z2*x3*y4*z3*pr-2._iwp  &
      *z2*x4*y1*z3*pr+2._iwp*z2*x4*y1*z4*pr
      s7 = 2._iwp*pr*z2*y3*x1*z4+2._iwp*pr*z2*y3*x4*z3+2._iwp*pr*z2*y4*x1*z3+2._iwp  &
      *pr*z2*y4*z4*x3+2._iwp*pr*z4*y3*x1*z3+2._iwp*pr*z4*y3*z1*x4+2._iwp*pr  &
      *y2*z3*z1*x4-2._iwp*x4*z3*z1*y3*pr+2._iwp*pr*y2*z3*z4*x3-2._iwp*pr*y2*z3  &
      *z1*x3-2._iwp*pr*z2*y4*x1*z4+4._iwp*x2*z3*y1*z4*pr+2._iwp*x2*z3*z1*y3*pr  &
      -2._iwp*x2*z3*z1*y4*pr-2._iwp*x2*z3*z4*y3*pr-1._iwp*x4*z3*z2*y3-1._iwp*z4*  &
      x3*y2*z3+y4*z3*z1*x4+y4*z3*z4*x3-1._iwp*z2*y3*z1*x3+z2*y3*z1*x4
      s5 = s7+z2*y3*z4*x3+z2*y4*x4*z3+z2*y4*z1*x3-1._iwp*z2*y4*z1*x4+z4*y3  &
      *x4*z3+z4*y3*z1*x3+2._iwp*pr*y2*z3**2*x1-2._iwp*pr*y2*z3**2*x4+2._iwp*pr  &
      *y2*z4**2*x1-2._iwp*pr*y2*z4**2*x3-2._iwp*pr*y4*z3**2*x1-2._iwp*pr*z4**2  &
      *y3*x1-1._iwp*x4*z3*y2*z4-1._iwp*z4*x3*z2*y4-1._iwp*z4*x3*z1*y2-1._iwp*y2*  &
      z3*z1*x4+y2*z3*z1*x3-4._iwp*pr*y2*z3*x1*z4+s6+2._iwp*pr*y2*z4*x4*z3+2._iwp  &
      *pr*y2*z4*z1*x3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,4) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -4._iwp*pr*z2*y3*z1*y4-4._iwp*x2*y3*x1*y4*pr+2._iwp*y2*x4*y4*x3*pr+  &
      2._iwp*pr*z4**2*y3**2+x2*y4**2*x3-2._iwp*pr*y2*z3*z1*y3+2._iwp*pr*z2*y4*  &
      y1*z3+2._iwp*x4*z3*z1*x3*pr+2._iwp*pr*y2*z3*z4*y3-2._iwp*y2*x3*x1*y3*pr+  &
      2._iwp*z4*x3**2*z1-1._iwp*y2*x4**2*y1-2._iwp*pr*z2*y4*y1*z4+2._iwp*pr*y2*z4  &
      *y4*z3-1._iwp*z2*y4**2*z1-1._iwp*y2*z3**2*y1-2._iwp*x2*z4**2*x1+2._iwp*pr  &
      *y4**2*z3**2+2._iwp*pr*y4*z3*z2*y3-1._iwp*x2*y4**2*x1-1._iwp*y4*z3*z2*y3  &
      -1._iwp*x2*y3**2*x1-2._iwp*x2*z3**2*x1-1._iwp*z2*y4*z4*y3
      s7 = 2._iwp*x4**2*z3**2*pr+2._iwp*y4*z3*z4*y3+2._iwp*x4**2*z3*z2+2._iwp*y4  &
      **2*x3**2*pr-2._iwp*x2*y3*y1*x3*pr+2._iwp*pr*z4*y3*y1*z3-2._iwp*x4**2*z3  &
      *z2*pr-2._iwp*pr*z2*y3**2*z4+2._iwp*z2*x3**2*z4+2._iwp*x4**2*y3**2*pr-2._iwp  &
      *pr*y4**2*z3*z2-2._iwp*pr*y2*z4**2*y3-2._iwp*pr*y2*z3**2*y4+2._iwp*pr*  &
      y4*z3*z1*y3+2._iwp*x4*z3**2*x1+y4**2*x3*x1-1._iwp*y2*x3**2*y1+2._iwp*pr*  &
      z4*y3*z1*y4+2._iwp*y2*x3*x1*y4*pr-1._iwp*z4**2*y3**2+x4**2*y3*y1+x4*y3  &
      **2*x1+2._iwp*z4**2*x3*x1-2._iwp*z2*x4**2*z1-2._iwp*z2*x3**2*z1+s8
      s8 = 2._iwp*x4**2*z3*z1-2._iwp*x2*z3**2*x4*pr+x2*y3**2*x4-1._iwp*z2*y3**  &
      2*z1+y4**2*z3*z1-2._iwp*x2*y3**2*x4*pr+y4*z3**2*y1-1._iwp*y2*z4**2*y1+  &
      y4**2*z3*z2+y4*x3**2*y1-2._iwp*x2*y4**2*x3*pr-2._iwp*z2*x3**2*z4*pr+s7  &
      -2._iwp*x2*z4**2*x3*pr+z2*y3**2*z4-4._iwp*pr*y4*z3*z4*y3+y2*z4**2*y3+y2  &
      *z3**2*y4+y2*x3**2*y4+x4**2*y3*y2+2._iwp*x2*z4**2*x3+2._iwp*z4**2*x3**  &
      2*pr+2._iwp*x2*z3**2*x4+z4*y3**2*z1+z4**2*y3*y1
      s6 = 2._iwp*pr*y2*z3*z1*y4-2._iwp*y2*x3**2*y4*pr-2._iwp*x4**2*y3*y2*pr-4._iwp  &
      *y2*x3*y1*x4*pr+2._iwp*x2*y3*x1*y4-2._iwp*z4*x3*z1*x4-2._iwp*z4*x3*x1  &
      *z3+2._iwp*z2*x4*x1*z4-1._iwp*y2*z4*y4*z3+2._iwp*pr*z2*y4*z4*y3-1._iwp*x2*  &
      y3*y1*x4+x2*y3*y1*x3+y2*x3*x1*y3-1._iwp*x4*y3*y1*x3-1._iwp*x4*y3*x1*y4  &
      +x2*y4*y1*x4-1._iwp*x2*y4*y1*x3-1._iwp*y2*x4*x1*y3+2._iwp*x2*z3*z4*x3*pr  &
      +2._iwp*y2*x3*y1*x4-1._iwp*y2*x3*x1*y4+2._iwp*x2*y3*y1*x4*pr-1._iwp*y4*x3*  &
      x1*y3+y2*x4*x1*y4+2._iwp*y2*x4*x1*y3*pr-4._iwp*pr*y2*z3*y1*z4+s8
      s8 = 2._iwp*pr*y2*z4*z1*y3-1._iwp*y4*x3*y1*x4-1._iwp*y4*z3*z1*y3-1._iwp*y4  &
      *z3*y1*z4+y2*z4*z1*y4-1._iwp*y2*z4*z1*y3-1._iwp*y2*z3*z1*y4+y2*z3*z1*y3  &
      +2._iwp*y2*z3*y1*z4+2._iwp*x2*z4*x4*z3*pr-2._iwp*x2*z4*z1*x3-2._iwp*x2*z3  &
      *z1*x4-2._iwp*z2*x3*x1*z3*pr+2._iwp*x2*z3*z1*x3+4._iwp*x2*z3*x1*z4+2._iwp*  &
      z2*x3*x1*z3-2._iwp*x4*z3*z1*x3-2._iwp*x4*z3*x1*z4+2._iwp*x2*z4*z1*x4+2._iwp  &
      *x2*y4*y1*x3*pr-1._iwp*y2*z3*z4*y3-2._iwp*pr*y4*z3**2*y1+2._iwp*pr*y2*z4  &
      **2*y1-2._iwp*y2*x4*x1*y4*pr+4._iwp*z2*x3*z1*x4
      s7 = -2._iwp*z2*x3*x1*z4-2._iwp*pr*z4*y3**2*z1-2._iwp*pr*z4**2*y3*y1+2._iwp  &
      *pr*z2*y4**2*z1+2._iwp*pr*z2*y3**2*z1-2._iwp*pr*y4**2*z3*z1+2._iwp*x2*y3  &
      **2*x1*pr-1._iwp*y4**2*z3**2+2._iwp*y4*x3*x1*y3*pr-2._iwp*x4*z3**2*x1*pr  &
      -1._iwp*y4**2*x3**2+2._iwp*x2*z4**2*x1*pr+2._iwp*x2*z3**2*x1*pr+2._iwp*x4  &
      *z3*z2*x3*pr-2._iwp*pr*y2*z4*z1*y4-2._iwp*y4**2*x3*x1*pr+2._iwp*y2*x4**2  &
      *y1*pr+2._iwp*y2*x3**2*y1*pr-2._iwp*x4**2*y3*y1*pr-2._iwp*x4*y3**2*x1*pr  &
      -2._iwp*z4*x3**2*z1*pr-2._iwp*z4**2*x3*x1*pr+2._iwp*z2*x4**2*z1*pr+2._iwp*  &
      z2*x3**2*z1*pr-2._iwp*x4**2*z3*z1*pr+s8
      s8 = s7-2._iwp*x2*z4*x4*z3-2._iwp*x2*z3*z4*x3+2._iwp*x2*y4**2*x1*pr-2._iwp  &
      *y4*x3**2*y1*pr-4._iwp*x4*z3*z4*x3*pr-2._iwp*x4*z3*z2*x3+2._iwp*z2*x4*z4  &
      *x3*pr+2._iwp*y4*x3*y1*x4*pr-2._iwp*z2*x4*z4*x3+4._iwp*x4*z3*z4*x3-2._iwp*  &
      x2*y4*y1*x4*pr+2._iwp*x4*y3*y4*x3-1._iwp*x4*y3*y2*x3-1._iwp*x2*y4*x4*y3-  &
      1._iwp*x2*y3*y4*x3-1._iwp*y2*x4*y4*x3-4._iwp*x2*z3*x1*z4*pr+2._iwp*z2*x3*x1  &
      *z4*pr+2._iwp*x2*y3*y4*x3*pr-1._iwp*x4**2*y3**2-1._iwp*z2*y4*y1*z3+2._iwp  &
      *z2*y3*z1*y4-1._iwp*z2*y3*y1*z4+z2*y3*y1*z3
      s5 = z2*y4*y1*z4-2._iwp*pr*z2*y3*y1*z3-1._iwp*z4*y3*y1*z3+2._iwp*pr*y2*z3  &
      **2*y1-1._iwp*z4*y3*z1*y4+2._iwp*pr*y4*z3*y1*z4-2._iwp*z2*x4*x1*z3+2._iwp  &
      *x2*y4*x4*y3*pr-2._iwp*x2*z3*z1*x3*pr+2._iwp*pr*z2*y3*y1*z4+2._iwp*z2*x4  &
      *x1*z3*pr+2._iwp*x4*y3*y2*x3*pr-2._iwp*z4**2*x3**2+2._iwp*x2*z3*z1*x4*pr  &
      +2._iwp*x2*z4*z1*x3*pr+2._iwp*x4*y3*x1*y4*pr-2._iwp*x4**2*z3**2-4._iwp*x4*  &
      y3*y4*x3*pr-2._iwp*z2*x4*x1*z4*pr-2._iwp*x2*z4*z1*x4*pr-4._iwp*z2*x3*z1*  &
      x4*pr+2._iwp*x4*z3*x1*z4*pr+s8+s6+2._iwp*x4*y3*y1*x3*pr+2._iwp*z4*x3*x1*  &
      z3*pr+2._iwp*z4*x3*z1*x4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,5) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*z2*x4*y4*x3+2._iwp*x2*y3*z1*x3*pr+2._iwp*pr*x2*z3*y1*x4+2._iwp  &
      *pr*x2*z3*y4*x3+2._iwp*pr*x2*z4*y1*x3-2._iwp*x2*y3*z1*x4*pr+2._iwp*pr  &
      *x2*z4*x4*y3-2._iwp*x2*y3*z4*x3*pr+2._iwp*y2*x4**2*z3*pr-2._iwp*y2*x4**2  &
      *z1*pr+2._iwp*y4*x3**2*z1*pr-2._iwp*pr*z2*x3*x1*y3+2._iwp*pr*z2*x3*x1*y4  &
      -2._iwp*pr*x2*z4*y1*x4+x2*z3*x1*y3-1._iwp*x2*z3*x1*y4-1._iwp*x2*z3*x4*y3  &
      +y2*x4*z4*x3-1._iwp*x2*z4*x1*y3+x2*z4*x1*y4
      s6 = s7-1._iwp*x2*z4*y4*x3-1._iwp*x4*z3*x1*y3-1._iwp*x4*z3*y4*x3-1._iwp*z4  &
      *x3*x1*y4-1._iwp*z4*x3*x4*y3-2._iwp*pr*x4**2*z3*y1+2._iwp*pr*z2*x3**2*y1  &
      -2._iwp*pr*z2*x3**2*y4-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*y1-2._iwp*  &
      x2*y4*x4*z3*pr+2._iwp*pr*z2*x3*x4*y3-4._iwp*pr*z2*x3*y1*x4+2._iwp*pr*z2*  &
      x4*x1*y3-2._iwp*pr*z2*x4*x1*y4-2._iwp*x2*y4*z1*x3*pr+2._iwp*x2*y4*z1*x4*  &
      pr-2._iwp*x4*y3*x1*z4*pr-2._iwp*x4*y3*z1*x3*pr+4._iwp*y2*x3*z1*x4*pr
      s7 = -2._iwp*y2*x4*x1*z3*pr-2._iwp*y2*x4*z4*x3*pr+2._iwp*pr*z4*x3*x1*y3+  &
      2._iwp*pr*z4*x3*y1*x4+z4*x3**2*y4-1._iwp*y2*x4**2*z3-1._iwp*y2*x3**2*z4+  &
      y2*x3**2*z1-1._iwp*x4**2*y3*z1-1._iwp*y4*x3**2*z1+x4**2*z3*y3-2._iwp*pr*  &
      z4*x3**2*y1-1._iwp*x2*y3*z1*x3+x2*y3*z1*x4+x2*y3*z4*x3+x2*y4*x4*z3+x2  &
      *y4*z1*x3-1._iwp*x2*y4*z1*x4+x4*y3*x1*z4+x4*y3*z1*x3-1._iwp*y2*x3*x1*  &
      z3
      s5 = s7+y2*x3*x1*z4+y2*x3*x4*z3-2._iwp*y2*x3*z1*x4+y2*x4*x1*z3-1._iwp*  &
      y2*x4*x1*z4+y4*x3*x1*z3+y4*x3*z1*x4+2._iwp*x4**2*y3*z1*pr-2._iwp*y2*x3  &
      **2*z1*pr+2._iwp*y2*x3**2*z4*pr+y2*x4**2*z1-2._iwp*pr*x2*z3*y1*x3+2._iwp  &
      *y2*x4*x1*z4*pr+2._iwp*pr*x4*z3*x1*y4+2._iwp*y2*x3*x1*z3*pr-2._iwp*y2*x3  &
      *x1*z4*pr-2._iwp*y4*x3*x1*z3*pr-2._iwp*y4*x3*z1*x4*pr+2._iwp*pr*x4*z3*y1  &
      *x3-2._iwp*y2*x3*x4*z3*pr+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,6) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*z2*y4*x1*z4-1._iwp*z2**2*x4*y3-1._iwp*x2*z4**2*y3+y2*z4**  &
      2*x2+z2**2*y4*x4+2._iwp*pr*z4*y3*z1*x4+2._iwp*pr*z2*y4*z4*x3-2._iwp*x2*  &
      z3*y1*z2*pr+x2*z4*y4*z3+2._iwp*x2*z3*z2*y4*pr-2._iwp*x2*z4*y4*z3*pr+x2  &
      *z4*z2*y3+z2*x4*y2*z3+y4*z3*z1*x4+z2*y3*z1*x4-1._iwp*z2*y4*x4*z3-1._iwp  &
      *z2*y4*z1*x4+2._iwp*pr*y2*z4**2*x1-2._iwp*pr*z4**2*y3*x1-1._iwp*x2*z3*z1  &
      *y4
      s6 = s7+2._iwp*pr*z2*y3*z1*x2-2._iwp*x2*z4*z1*y3*pr-2._iwp*pr*z2*y3*x2*z4  &
      -2._iwp*pr*z2*y4*z1*x2+z2*y4*x1*z4-1._iwp*z4*y3*z1*x4+2._iwp*x2*z4*z1*y4  &
      *pr-4._iwp*z2*x3*y1*z4*pr+z4**2*y3*x1-2._iwp*pr*y2*z3*x1*z4+y2*z4*z1*  &
      x4+z2**2*y3*x1-1._iwp*y2*z4**2*x1-1._iwp*z2**2*y4*x1+2._iwp*z2*y4*z1*x3*  &
      pr+2._iwp*z2*x4*y1*z3*pr+2._iwp*z2*x4*y1*z4*pr-2._iwp*z2*x3*z1*y2*pr-2._iwp  &
      *z2*x4*z4*y3*pr+x2*z4*z1*y3
      s7 = 2._iwp*z2**2*x3*y1*pr-2._iwp*z2**2*x3*y4*pr-2._iwp*z2**2*x4*y1*pr+y2  &
      *z3*z1*x2-1._iwp*y2*z3*z1*x4-1._iwp*y2*z3*x2*z4-1._iwp*y2*z4*z2*x4-1._iwp  &
      *y2*z4*z1*x2-1._iwp*y2*z3*x1*z2+y2*z4*x1*z2-1._iwp*z2*y3*z1*x2+z2*y4*z1  &
      *x2+y2*z4*x1*z3-1._iwp*z2*y4*x2*z4-2._iwp*pr*z2**2*y3*x1+2._iwp*pr*z2**  &
      2*y3*x4+2._iwp*pr*z2**2*y4*x1+z2*x4*z4*y3+2._iwp*x2*z4**2*y3*pr-2._iwp*x2  &
      *z4**2*y1*pr+2._iwp*z4**2*x3*y1*pr
      s5 = s7+y4*z3*x1*z2-2._iwp*z4*y3*x1*z2-1._iwp*y4*z3*x1*z4+2._iwp*pr*y2*z4  &
      *z1*x3-2._iwp*pr*y2*z4*z1*x4-2._iwp*pr*y2*z4**2*x3+2._iwp*pr*y2*z4*x4*z3  &
      +2._iwp*pr*y4*z3*x1*z4+4._iwp*pr*z2*y3*x1*z4-2._iwp*z4*x3*z1*y4*pr-2._iwp  &
      *x4*z3*y1*z4*pr-2._iwp*pr*z2*y3*z1*x4+2._iwp*pr*y2*z3*x1*z2-2._iwp*pr*y2  &
      *z3*z2*x4-2._iwp*pr*y2*z4*x1*z2+2._iwp*x2*z3*y1*z4*pr+s6+2._iwp*z2*x3*y2  &
      *z4*pr+2._iwp*z2*x4*z1*y2*pr+2._iwp*x2*z4*y1*z2*pr-2._iwp*pr*z2*y4*x1*z3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,7) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*y2*z4*z2*y4+z2*y4*z4*y3+2._iwp*pr*y2**2*z3*z4+2._iwp*pr*y2*  &
      z4**2*y3+2._iwp*pr*y4**2*z3*z2-1._iwp*z2*y3*z1*y2-1._iwp*x2**2*y4*y1+y4**  &
      2*x3*x1+y4**2*z3*z1-1._iwp*x4**2*y3*y2-2._iwp*z2**2*x4*x1-2._iwp*z2**2*  &
      x3*x4-1._iwp*y2*z4**2*y1-1._iwp*x2*y4**2*x1-1._iwp*y2**2*z4*z1-2._iwp*x2*z4  &
      **2*x3-1._iwp*y2**2*z3*z4-2._iwp*pr*y2**2*z4**2+z4**2*y3*y1+2._iwp*pr*y2  &
      *z3*y1*z2-2._iwp*pr*y2*z4*y1*z2+2._iwp*x2*z3*x1*z2*pr-2._iwp*x2*z4*x1*z2  &
      *pr-2._iwp*x2*y4*y2*x4
      s7 = z2**2*y4**2-2._iwp*pr*z2*y3*z1*y4-2._iwp*pr*z2*y4*y1*z3-2._iwp*pr*z2  &
      *y4*y1*z4+2._iwp*pr*z4*y3*z1*y4+2._iwp*x2*z4**2*x3*pr+2._iwp*y2**2*x3*x4  &
      *pr+2._iwp*x4**2*y3*y2*pr-2._iwp*pr*z2*y4*z4*y3+2._iwp*x2**2*y4*y1*pr-2._iwp  &
      *y2**2*x3*x1*pr+2._iwp*y2**2*x4*x1*pr+y2*x4*y1*x2-1._iwp*y2*z3*y1*z2  &
      +z2*y4*z1*y2+y2*z4*y1*z2-2._iwp*x2**2*z3*z1*pr+2._iwp*x2**2*z4*z1*pr-  &
      2._iwp*z2**2*x3*x1*pr+4._iwp*x2*z3*z1*x4*pr+x4**2*y3*y1-2._iwp*z2*x4**2*  &
      z1+z2**2*y3*y1-1._iwp*z2**2*y4*y1-2._iwp*y2**2*x4**2*pr+s8
      s8 = -2._iwp*x4**2*z3*z2-2._iwp*x2**2*y4**2*pr-1._iwp*z2*y4**2*z1+x2**2*  &
      y3*y1-1._iwp*y2**2*x3*x4+y2**2*x3*x1-1._iwp*y2**2*x4*x1-1._iwp*x2*y4**2*  &
      x3-2._iwp*z2**2*x4**2*pr-2._iwp*x2**2*z4**2*pr-2._iwp*z2*x3*z1*x2-2._iwp*x2  &
      *y4*y2*x3*pr+4._iwp*pr*y2*z3*z1*y4+2._iwp*y2*x3*y1*x2*pr+2._iwp*z2*x4*x1  &
      *z3+2._iwp*z2*x4*x1*z4-2._iwp*z4*x3*z1*x4+x2*y3*x1*y4-2._iwp*x2*y3*y1*x4  &
      +x2*y4*y1*x3+x2*y4*y1*x4-1._iwp*x4*y3*x1*y4-2._iwp*y2*x3*x1*y4+y2*x3*  &
      y1*x4+y2*x4*x1*y3
      s6 = y2*x4*x1*y4-1._iwp*y4*x3*y1*x4+y2*z3*y1*z4+y2*z4*z1*y3+s7+x2**2  &
      *y4**2-2._iwp*z2*x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*pr-2._iwp*x2*y4*x1*y2*pr  &
      +y2**2*z3*z1-2._iwp*z2*x3*z1*x4*pr-2._iwp*x4*z3*x1*z4-4._iwp*z2*x3*x1*z4  &
      +2._iwp*z2*x3*z1*x4-2._iwp*x2*z3*x1*z2+2._iwp*x2*z4*x1*z2-2._iwp*pr*y2**2*  &
      z3*z1+2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1+2._iwp*pr*z2**2*y4*y1+  &
      2._iwp*pr*y2*z4**2*y1-2._iwp*pr*y4**2*z3*z1+2._iwp*pr*z2*y4**2*z1-2._iwp*pr  &
      *z4**2*y3*y1+2._iwp*x2*z4**2*x1*pr-2._iwp*x4**2*z3*z1*pr+s8
      s8 = 2._iwp*z2*x4**2*z1*pr-2._iwp*z4**2*x3*x1*pr-2._iwp*x4**2*y3*y1*pr+2._iwp  &
      *y2*x4**2*y1*pr-2._iwp*y4**2*x3*x1*pr+2._iwp*x2*y4**2*x1*pr+2._iwp*x2  &
      *z3*z2*x4+2._iwp*x2*z4*x4*z3+2._iwp*x2*z4*z2*x3-4._iwp*x2*z4*z2*x4+2._iwp*  &
      z2*x4*z4*x3+x2*y3*y2*x4+x2*y4*x4*y3+x2*y4*y2*x3+y2*x4*y4*x3-2._iwp*z2  &
      *y3*y1*z4+z2*y3*z1*y4+z2*y4*y1*z3+z2*y4*y1*z4+y2*z4*z2*y3+4._iwp*x2  &
      *y3*y1*x4*pr-2._iwp*x2*y4*y1*x3*pr-2._iwp*x2*y4*y1*x4*pr+2._iwp*x4*y3*x1  &
      *y4*pr+2._iwp*pr*z2*y3*z1*y2
      s7 = -2._iwp*pr*y2*z3*y1*z4-2._iwp*x2*z4*z1*x3*pr-2._iwp*x2*z4*z1*x4*pr-  &
      2._iwp*y2*x3*y1*x4*pr-2._iwp*y2*x4*x1*y3*pr-2._iwp*y2*x4*x1*y4*pr+4._iwp*y2  &
      *x3*x1*y4*pr+2._iwp*x2**2*z4**2+4._iwp*x2*y4*y2*x4*pr-2._iwp*y2*x4*y4*x3  &
      *pr+2._iwp*z2*x3*z1*x2*pr+y2*z4*z1*y4+2._iwp*z2*x4*z1*x2-1._iwp*x2*y3*x1  &
      *y2+x2*y4*x1*y2+2._iwp*x2*z3*x1*z4-4._iwp*x2*z3*z1*x4+2._iwp*x2*z4*z1*x3  &
      +2._iwp*x2*z4*z1*x4-1._iwp*y4*z3*y1*z4+2._iwp*x4*z3*x1*z4*pr+4._iwp*z2*x3  &
      *x1*z4*pr+2._iwp*y4*x3*y1*x4*pr+2._iwp*pr*z2**2*y3*y4+2._iwp*x4**2*z3*z2  &
      *pr+s8
      s8 = s7+2._iwp*z2**2*x3*x4*pr+2._iwp*x2*y4**2*x3*pr+y2**2*x4**2-2._iwp*y2  &
      *z3*z1*y4-2._iwp*x2*z4*z2*x3*pr+4._iwp*x2*z4*z2*x4*pr-2._iwp*x2*z3*x1*z4  &
      *pr+2._iwp*x2**2*z3*z4*pr+2._iwp*x2**2*y3*y4*pr-2._iwp*z2*x4*z4*x3*pr-2._iwp  &
      *x2*y3*y2*x4*pr-2._iwp*x2*y4*x4*y3*pr+y2*z3*z2*y4+y2*z4*y4*z3-2._iwp  &
      *x2*z3*z2*x4*pr-2._iwp*x2*z4*x4*z3*pr-1._iwp*z4*y3*z1*y4-1._iwp*y2*x3*y1  &
      *x2+2._iwp*z2**2*x4*x1*pr-2._iwp*x2**2*y3*y1*pr-2._iwp*y2*x4*y1*x2*pr-2._iwp  &
      *pr*y2*z4*z1*y3-2._iwp*pr*y2*z4*z1*y4+2._iwp*pr*y4*z3*y1*z4
      s5 = s8+s6-2._iwp*x2*z4**2*x1+2._iwp*x4**2*z3*z1+2._iwp*z4**2*x3*x1-1._iwp  &
      *y2*x4**2*y1-2._iwp*pr*z2**2*y4**2-2._iwp*x2**2*z3*z4-1._iwp*x2**2*y3*y4  &
      -1._iwp*y2*z4**2*y3-1._iwp*y4**2*z3*z2-1._iwp*z2**2*y3*y4+2._iwp*x2**2*z3*  &
      z1-2._iwp*x2**2*z4*z1+2._iwp*z2**2*x3*x1-2._iwp*pr*y2*z3*z2*y4+2._iwp*z2**  &
      2*x4**2-2._iwp*pr*z2*y4*z1*y2-2._iwp*pr*y2*z4*y4*z3-2._iwp*pr*y2*z4*z2*y3  &
      +4._iwp*pr*y2*z4*z2*y4+4._iwp*pr*z2*y3*y1*z4-2._iwp*z2*x4*x1*z3*pr-2._iwp  &
      *z2*x4*x1*z4*pr+2._iwp*z4*x3*z1*x4*pr-2._iwp*x2*y3*x1*y4*pr+y2**2*z4**  &
      2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,8) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*y2*x4*z4*x3*pr-2._iwp*pr*x2*z4*y1*x4+2._iwp*y2*x3*z1*x4*pr-  &
      2._iwp*y2*x4*x1*z3*pr-2._iwp*x2*y3*x1*z2*pr-1._iwp*x2**2*z4*y4-1._iwp*z2*x4  &
      **2*y2+x2**2*y3*z4-1._iwp*x2**2*y3*z1+x4**2*y3*z2+x2**2*y4*z1-1._iwp*  &
      x4**2*y3*z1+2._iwp*x2*y4*x1*z2*pr+y2*x4**2*z1+2._iwp*x2*y3*z2*x4*pr+2._iwp  &
      *y2*x4*x1*z4*pr+2._iwp*y2*x3*x2*z4*pr+2._iwp*pr*x2*z3*x1*y2-2._iwp*y2*  &
      x3*z1*x2*pr+2._iwp*x2*z4*x1*y3*pr
      s6 = s7+2._iwp*y2*x4*z1*x2*pr+2._iwp*pr*x4*z3*x1*y4+z2*x3*y2*x4+z2*x3*  &
      x1*y4-1._iwp*z2*x3*x1*y2+x2*z4*y2*x4+z2*x4*x1*y2-2._iwp*pr*x2**2*z3*y1  &
      +z2*x4*x2*y4-2._iwp*pr*z2*x3*y1*x4-1._iwp*x2*z4*x1*y3+y2*x3*z1*x2-1._iwp  &
      *x4*y3*x2*z4-1._iwp*x4*y3*x1*z2-1._iwp*x2*y4*x1*z2-1._iwp*x2*y3*z2*x4+x2  &
      *y3*x1*z2+2._iwp*pr*x2**2*z4*y1+2._iwp*pr*x2**2*z3*y4+2._iwp*pr*z2*x4*x1  &
      *y3
      s7 = -2._iwp*pr*x4**2*z3*y1-4._iwp*x2*y3*z1*x4*pr-1._iwp*z4*x3*x1*y4+x2*  &
      z4*y4*x3+x2*z4*x1*y4-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*y1+2._iwp*  &
      pr*z2*x3*y1*x2-1._iwp*x2*y4*z1*x3-2._iwp*pr*x2*z3*y2*x4+2._iwp*x2*y3*z1*  &
      x4-1._iwp*y2*x3*z1*x4+y2*x3*x1*z4+x4*y3*x1*z4-1._iwp*x2*y4*z1*x4-1._iwp*  &
      y2*x3*x2*z4-1._iwp*y2*x4*x1*z4+4._iwp*pr*x2*z3*y1*x4-2._iwp*y4*x3*z1*x4*  &
      pr-2._iwp*x2**2*y3*z4*pr+2._iwp*x2**2*y3*z1*pr
      s5 = s7-2._iwp*pr*z2*x3*x2*y4-1._iwp*y4*x3*z2*x4-1._iwp*y2*x4*z1*x2+2._iwp  &
      *pr*x2*z4*x4*y3+2._iwp*y2*x4**2*z3*pr+2._iwp*x4**2*y3*z1*pr+y4*x3*z1*x4  &
      -2._iwp*x2**2*y4*z1*pr-2._iwp*pr*x2*z4*x1*y2-2._iwp*pr*x2*z3*x1*y4-2._iwp  &
      *pr*z2*x4*x1*y4-2._iwp*x2*y4*x4*z3*pr-2._iwp*y2*x4**2*z1*pr-2._iwp*pr*z2  &
      *x4*y1*x2+2._iwp*pr*z2*x4*y4*x3+2._iwp*pr*z4*x3*y1*x4+2._iwp*x2*y4*z1*x3  &
      *pr+2._iwp*x2*y4*z1*x4*pr-2._iwp*pr*x2*z4*y1*x3-2._iwp*x4*y3*x1*z4*pr+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,9) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -1._iwp*z4*y3*x1*z3+z4*y3*x1*z2-2._iwp*pr*y2*z3*x1*z2+2._iwp*pr*y2*  &
      z3*z2*x4+2._iwp*pr*z2*y3*x4*z3+4._iwp*pr*z2*y4*x1*z3-2._iwp*pr*y2*z3*x1*  &
      z4+2._iwp*pr*z4*y3*x1*z3+2._iwp*z2*x3*y1*z3*pr-2._iwp*pr*y2*z3*z1*x3+2._iwp  &
      *pr*y2*z3*z1*x4+2._iwp*pr*y2*z4*x1*z2-2._iwp*pr*z2*y3*z1*x2-2._iwp*z2*y4  &
      *z1*x3*pr-1._iwp*z2*y3*z1*x3-1._iwp*z2*y3*z4*x3+z2*y4*z1*x3+2._iwp*z2*x3  &
      *z1*y2*pr-2._iwp*z2*x3*y2*z4*pr+z2**2*y4*x1
      s6 = s7-1._iwp*z2**2*y3*x1+z4*y3*z1*x3-2._iwp*pr*y2*z3**2*x4-2._iwp*pr*y4  &
      *z3**2*x1+x2*z3*z1*y4+x2*z3*z4*y3-1._iwp*x2*z4*z1*y3+z2*x3*y2*z4-1._iwp  &
      *z4*x3*z1*y2-2._iwp*z2**2*x3*y1*pr+2._iwp*z2**2*x3*y4*pr+2._iwp*z2**2*  &
      x4*y1*pr-1._iwp*y2*z3*z1*x2-1._iwp*y2*z3*x2*z4+y2*z4*z1*x2+y2*z3*x1*z2  &
      -1._iwp*y2*z4*x1*z2+z2*y3*z1*x2+2._iwp*pr*y2*z3**2*x1-2._iwp*z2*x4*z1*y2  &
      *pr
      s7 = 2._iwp*pr*y2*z3*z4*x3-1._iwp*x2*z3**2*y4-1._iwp*z2*y4*z1*x2-1._iwp*y2  &
      *z3*z2*x3+y2*z3*z1*x3+y2*z4*x1*z3+2._iwp*pr*z2**2*y3*x1-2._iwp*pr*z2**  &
      2*y3*x4-2._iwp*pr*z2**2*y4*x1+x2*z3*z2*y4+z2*x3*y4*z3+2._iwp*x2*z3**2*  &
      y4*pr+2._iwp*x4*z3**2*y1*pr-2._iwp*x2*z3**2*y1*pr-2._iwp*y4*z3*x1*z2-1._iwp  &
      *y4*z3*z1*x3-1._iwp*z2*y3*x2*z3+2._iwp*pr*z2*y3*x2*z4+2._iwp*pr*z2*y4*z1  &
      *x2+y4*z3**2*x1-1._iwp*y2*z3**2*x1
      s5 = s7+y2*z3**2*x2-1._iwp*z2**2*x3*y4+z2**2*y3*x3-2._iwp*z4*x3*y1*z3*  &
      pr+2._iwp*x2*z3*y1*z4*pr-2._iwp*x2*z4*y1*z2*pr+2._iwp*x2*z3*z1*y3*pr-2._iwp  &
      *x2*z3*z1*y4*pr-2._iwp*x2*z3*z4*y3*pr+2._iwp*x2*z3*y1*z2*pr+2._iwp*z2*x3  &
      *y1*z4*pr-2._iwp*z2*x3*y4*z3*pr+2._iwp*pr*y4*z3*z1*x3-2._iwp*x2*z3*z2*y4  &
      *pr-2._iwp*pr*z2*y3*x1*z3-2._iwp*pr*z2*y3*x1*z4-4._iwp*z2*x4*y1*z3*pr-2._iwp  &
      *x4*z3*z1*y3*pr+z2*y3*x1*z3+s6+2._iwp*pr*z2*y3*z1*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,10) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = 2._iwp*pr*y2*z3*z1*y4-2._iwp*x2**2*z4*z1-2._iwp*x2**2*z3**2-2._iwp*x2  &
      *z4*x1*z2*pr+2._iwp*y2**2*x3**2*pr-2._iwp*z2**2*x4*x1+x2**2*y3*y1-1._iwp  &
      *z4*y3**2*z1+y2**2*x3*x1-1._iwp*y2**2*x4*x1+2._iwp*x2**2*z3*z1+2._iwp*x2  &
      *z3**2*x1-2._iwp*x4*z3**2*x1+2._iwp*z2*x3**2*z1-1._iwp*x4*y3**2*x1+y2*x3  &
      **2*y1-1._iwp*y4*x3**2*y1-1._iwp*y4*z3**2*y1+z2*y3**2*z1+x2*y3**2*x4+x2  &
      **2*y3*y4+y2*x3**2*y4+y2*z3**2*y4+z2*y3**2*z4
      s7 = 2._iwp*pr*y2*z3*y1*z2-2._iwp*pr*y2*z4*y1*z2+2._iwp*pr*z2*y3*z1*y2+2._iwp  &
      *x2*z3*z1*x3*pr-2._iwp*x2**2*z3*z1*pr+2._iwp*x2**2*z4*z1*pr-2._iwp*z2  &
      **2*x3*x1*pr+2._iwp*z2**2*x3*x1-4._iwp*pr*y2*z4*z1*y3-2._iwp*pr*y4*z3*z1  &
      *y3-2._iwp*z2**2*x3**2+2._iwp*pr*z2*y3*y1*z3-2._iwp*x2*z3*z1*x4+4._iwp*x2*  &
      z4*z1*x3+2._iwp*x4*z3*z1*x3-2._iwp*z2*x3*x1*z3-2._iwp*z2*x3*x1*z4-2._iwp*z2  &
      *x3*z1*x4-2._iwp*x2*z3*x1*z2+2._iwp*x2*z4*x1*z2-2._iwp*pr*y2**2*z3*z1+2._iwp  &
      *pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1+2._iwp*pr*z2**2*y4*y1+2._iwp*pr  &
      *y4*z3**2*y1+s8
      s8 = -2._iwp*pr*z2*y3**2*z1+2._iwp*pr*z4*y3**2*z1-2._iwp*x2*y3**2*x1*pr-  &
      2._iwp*x2*z3**2*x1*pr+2._iwp*x4*z3**2*x1*pr-2._iwp*z2*x3**2*z1*pr+2._iwp*z4  &
      *x3**2*z1*pr-4._iwp*z2*x4*x1*z3*pr-2._iwp*z4*x3*x1*z3*pr+2._iwp*pr*y2*z3  &
      *y1*z4-1._iwp*x2**2*y3**2+s7+2._iwp*x2*y3*x1*y4*pr+2._iwp*x2*y3*y1*x3*pr  &
      -2._iwp*z2*x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*pr-2._iwp*x2*y4*x1*y2*pr+2._iwp  &
      *x2*y3*y1*x4*pr-4._iwp*x2*y4*y1*x3*pr+2._iwp*x2*z3*z1*x4*pr-2._iwp*x4*y3  &
      *y1*x3*pr-1._iwp*z2**2*y3**2-1._iwp*y2**2*z3**2+2._iwp*y2*x3*y1*x2*pr-4._iwp  &
      *x2*z4*z1*x3*pr
      s6 = -2._iwp*x4*z3*z1*x3*pr+2._iwp*z2*x3*x1*z3*pr-1._iwp*y2**2*x3**2+2._iwp  &
      *y2*z3*z2*y3-1._iwp*y2*z3*z2*y4-1._iwp*y2*z3*z4*y3-1._iwp*y2*z4*z2*y3-1._iwp  &
      *y4*z3*z2*y3-2._iwp*pr*y2**2*z3*z4-2._iwp*pr*y2*z3**2*y4-2._iwp*pr*z2  &
      **2*y3*y4-2._iwp*pr*z2*y3**2*z4-2._iwp*z2*x3**2*z4*pr-2._iwp*z2**2*x3*x4  &
      *pr-2._iwp*x2**2*z3*z4*pr-2._iwp*x2*y3**2*x4*pr-2._iwp*x2**2*y3*y4*pr-2._iwp  &
      *x2*z3**2*x4*pr-2._iwp*y2**2*x3*x4*pr-2._iwp*y2*x3**2*y4*pr-2._iwp*z2*  &
      x3*z1*x2+4._iwp*z2*x4*x1*z3+2._iwp*pr*z2*y3*y1*z4+2._iwp*y2*x3*x1*y3*pr+  &
      2._iwp*y2*x3*x1*y4*pr+2._iwp*pr*z2*y3*z1*y4+s8
      s8 = 2._iwp*x4*y3**2*x1*pr-2._iwp*y2*x3**2*y1*pr+2._iwp*y4*x3**2*y1*pr+4._iwp  &
      *x2*z3*z2*x3-2._iwp*x2*z3*z2*x4-2._iwp*x2*z3*z4*x3-2._iwp*x2*z4*z2*x3  &
      -2._iwp*x4*z3*z2*x3+2._iwp*x2*y3*y2*x3-1._iwp*x2*y3*y2*x4-1._iwp*x2*y3*y4*  &
      x3-1._iwp*x2*y4*y2*x3-1._iwp*x4*y3*y2*x3-1._iwp*z2*y3*y1*z3-1._iwp*z2*y3*y1  &
      *z4-4._iwp*pr*z2*y4*y1*z3-1._iwp*y2*z3*y1*z2+2._iwp*x2*z3*z2*x4*pr+2._iwp  &
      *x2*z3*z4*x3*pr-2._iwp*y2*x4*y1*x2*pr+2._iwp*y2*x3*y1*x4*pr-2._iwp*pr*z4  &
      *y3*y1*z3-2._iwp*pr*z2*y4*z1*y2+2._iwp*x2*z4*z2*x3*pr-4._iwp*pr*y2*z3*z2  &
      *y3
      s7 = 2._iwp*pr*y2*z3*z2*y4+2._iwp*pr*y2*z3*z4*y3+y2**2*x3*x4+2._iwp*z2**  &
      2*x3**2*pr+z2**2*y3*y4-1._iwp*x2**2*y4*y1+2._iwp*pr*z2**2*y3**2+2._iwp*x4  &
      *z3*z2*x3*pr-4._iwp*x2*y3*y2*x3*pr+2._iwp*x2*y3*y2*x4*pr+2._iwp*pr*y2*z4  &
      *z2*y3+2._iwp*x2**2*z3**2*pr+y2**2*z3*z1+x2*y3**2*x1+2._iwp*x2**2*y3**  &
      2*pr+2._iwp*z4*x3*x1*z3-1._iwp*x2*y3*x1*y4-1._iwp*x2*y3*y1*x3-1._iwp*x2*y3  &
      *y1*x4+2._iwp*x2*y4*y1*x3+x4*y3*y1*x3-1._iwp*y2*x3*x1*y3-1._iwp*y2*x3*x1  &
      *y4-1._iwp*y2*x3*y1*x4+2._iwp*y2*x4*x1*y3+s8
      s8 = s7+y4*x3*x1*y3-1._iwp*y2*z3*y1*z4-1._iwp*y2*z3*z1*y3-1._iwp*y2*z3*z1  &
      *y4+2._iwp*y2*z4*z1*y3+y4*z3*z1*y3+2._iwp*z2*x4*z1*x2-1._iwp*x2*y3*x1*y2  &
      +x2*y4*x1*y2-2._iwp*x2*z3*x1*z4-2._iwp*x2*z3*z1*x3+2._iwp*x2**2*z3*z4-1._iwp  &
      *y2**2*z4*z1+y2**2*z3*z4+2._iwp*x2*z3**2*x4+z2**2*y3*y1+y2*z3**2*  &
      y1-2._iwp*z4*x3**2*z1+2._iwp*pr*y2**2*z3**2-1._iwp*z2**2*y4*y1-1._iwp*z2*y3  &
      *z1*y4+z4*y3*y1*z3-2._iwp*pr*y2*z3**2*y1-1._iwp*y2*x3*y1*x2
      s5 = 2._iwp*z2**2*x4*x1*pr-2._iwp*x2**2*y3*y1*pr+2._iwp*x2**2*y4*y1*pr-2._iwp  &
      *y2**2*x3*x1*pr+2._iwp*y2**2*x4*x1*pr+y2*x4*y1*x2-1._iwp*z2*y3*z1*y2  &
      +z2*y4*z1*y2+y2*z4*y1*z2+2._iwp*z2*y4*y1*z3+2._iwp*pr*y4*z3*z2*y3-4._iwp  &
      *y2*x4*x1*y3*pr+2._iwp*x2*z3*x1*z2*pr+2._iwp*pr*y2*z3*z1*y3+2._iwp*x2*y3  &
      *y4*x3*pr+2._iwp*x2*y4*y2*x3*pr+2._iwp*z2*x3*x1*z4*pr+2._iwp*z2*x3*z1*x4  &
      *pr-2._iwp*y4*x3*x1*y3*pr+2._iwp*x2*z3*x1*z4*pr+2._iwp*x4*y3*y2*x3*pr+s8  &
      +s6+2._iwp*z2*x3**2*z4-4._iwp*x2*z3*z2*x3*pr+2._iwp*z2*x3*z1*x2*pr+2._iwp  &
      *z2**2*x3*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,11) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*y2*x3*x2*z4*pr+2._iwp*x2**2*y4*z1*pr-2._iwp*pr*z2*x3*y1*x2+  &
      2._iwp*pr*z2*x3*x2*y4+2._iwp*pr*z2*x4*y1*x2+4._iwp*pr*x2*z4*y1*x3+x2**2*  &
      z3*y4-1._iwp*x4*y3*z2*x3+2._iwp*pr*x2**2*z3*y1-1._iwp*y4*x3*x2*z3+2._iwp*pr  &
      *x2*z3*y2*x4-2._iwp*y2*x4*z1*x2*pr+x2*z3*x1*y3-2._iwp*x2*y3*z2*x4*pr-  &
      1._iwp*x2*z3*y2*x4-1._iwp*x2*z3*x1*y4+x2*z3*x4*y3+z2*x3*x1*y2-1._iwp*z2*  &
      x3*x1*y4+z2*x3*y2*x4
      s6 = s7-1._iwp*z2*x3*x2*y4-1._iwp*z2*x4*x1*y2+x2*z3*y2*x3+z2*x3*x2*y3-  &
      2._iwp*pr*x2*z3*x1*y2+2._iwp*pr*x2*z4*x1*y2+2._iwp*pr*x2*z3*x1*y4+x2*y4*  &
      x1*z2+x2**2*y3*z1-1._iwp*x2**2*y4*z1+y2*x3**2*z1-1._iwp*y4*x3**2*z1-1._iwp  &
      *x2**2*z3*y3-1._iwp*z2*x3**2*y2+y4*x3**2*z2-2._iwp*x2*y4*x1*z2*pr+2._iwp  &
      *y2*x3*z1*x2*pr-2._iwp*x2*z4*x1*y3*pr+2._iwp*x2*y3*z1*x4*pr-2._iwp*x2*  &
      y3*z4*x3*pr
      s7 = s6-4._iwp*x2*y4*z1*x3*pr-2._iwp*x4*y3*z1*x3*pr+2._iwp*y2*x3*x1*z3*pr  &
      -2._iwp*y2*x3*x1*z4*pr+2._iwp*x2*y3*x1*z2*pr-2._iwp*pr*x2**2*z3*y4-2._iwp  &
      *pr*x2**2*z4*y1-1._iwp*x2*y3*x1*z2+x4*y3*x1*z2-1._iwp*y2*x3*z1*x2-1._iwp  &
      *x4*z3*x1*y3+2._iwp*pr*z2*x3**2*y1-2._iwp*pr*z2*x3**2*y4-2._iwp*pr*z4*x3  &
      **2*y1-1._iwp*x2*y3*z1*x3-1._iwp*x2*y3*z1*x4+2._iwp*x2*y4*z1*x3+x4*y3*z1  &
      *x3-1._iwp*y2*x3*x1*z3-1._iwp*y2*x3*z1*x4
      s5 = s7+y2*x4*x1*z3+y2*x4*z1*x2-2._iwp*x2**2*y3*z1*pr+2._iwp*x2**2*y3*  &
      z4*pr-2._iwp*y2*x3**2*z1*pr+2._iwp*y2*x3**2*z4*pr+2._iwp*y4*x3**2*z1*pr+  &
      2._iwp*pr*x4*z3*y1*x3-2._iwp*pr*z2*x3*x1*y3+2._iwp*pr*z2*x3*x1*y4+2._iwp*pr  &
      *z2*x3*x4*y3-2._iwp*pr*z2*x3*y1*x4+2._iwp*pr*z4*x3*x1*y3-2._iwp*y2*x3*x4  &
      *z3*pr+2._iwp*y2*x3*z1*x4*pr-2._iwp*y4*x3*x1*z3*pr-2._iwp*pr*x2*z3*y1*x3  &
      -2._iwp*pr*x2*z3*y1*x4+2._iwp*pr*x2*z3*y4*x3+y4*x3*x1*z3+2._iwp*x2*y3*z1  &
      *x3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(2,12) = t0


km(3,1) = km(1,3)


km(3,2) = km(2,3)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 4._iwp*z2*x4*z4*x3*pr-4._iwp*x2*y4*y2*x4*pr-2._iwp*y2**2*x4**2-4._iwp  &
      *x2*y3*y2*x3*pr-1._iwp*x4**2*z3**2-1._iwp*z2**2*x3**2-4._iwp*pr*y2*z4*z2  &
      *y4+4._iwp*x2*z3*z4*x3*pr+4._iwp*x2*z3*z2*x4*pr+4._iwp*pr*y4*z3*z2*y3+2._iwp  &
      *x2**2*z3*z4+4._iwp*y2*x3**2*y4+2._iwp*z2**2*y3*y4+4._iwp*x4*y3*y2*x3*  &
      pr+4._iwp*x2*y3*y2*x4*pr+2._iwp*y2**2*z3*z4+2._iwp*z2**2*x4**2*pr-4._iwp*x4  &
      *y3*y4*x3*pr+2._iwp*y2**2*x3**2*pr+2._iwp*pr*y2**2*z4**2+2._iwp*pr*y4**  &
      2*z3**2+4._iwp*x4**2*y3*y2+2._iwp*y4**2*x3**2*pr+2._iwp*x2**2*y4**2*pr+2._iwp  &
      *x4**2*z3*z2+2._iwp*y2**2*x4**2*pr-1._iwp*x2**2*z3**2+2._iwp*z2**2*x3  &
      *x4+2._iwp*z2*x3**2*z4+2._iwp*x4**2*y3**2*pr+2._iwp*z2*y3**2*z4
      s6 = 2._iwp*pr*y2**2*z3**2+2._iwp*x2**2*y3**2*pr+2._iwp*pr*z4**2*y3**2+s7  &
      +4._iwp*x2*z4*x4*z3*pr+2._iwp*z2**2*x3**2*pr+2._iwp*pr*z2**2*y4**2+2._iwp  &
      *x2**2*z4**2*pr+4._iwp*x2*y4**2*x3+2._iwp*x2**2*z3**2*pr+2._iwp*pr*z2**2  &
      *y3**2+2._iwp*x2*z3**2*x4+2._iwp*x4**2*z3**2*pr+4._iwp*x2**2*y3*y4+4._iwp*  &
      x2*y3**2*x4+2._iwp*x2*z4**2*x3-1._iwp*x2**2*z4**2+2._iwp*z4**2*x3**2*pr-  &
      4._iwp*pr*y4*z3*z4*y3+2._iwp*y4**2*z3*z2+2._iwp*y2*z4**2*y3+2._iwp*y2*z3**  &
      2*y4+4._iwp*y2**2*x3*x4-1._iwp*z4**2*y3**2-2._iwp*y2*z3*z2*y4+2._iwp*y2*z3  &
      *z2*y3-2._iwp*y2*z3*z4*y3-2._iwp*y2*z4*z2*y3-2._iwp*y2*z4*y4*z3+2._iwp*y2*  &
      z4*z2*y4-4._iwp*pr*z2**2*y3*y4-4._iwp*pr*y4**2*z3*z2-4._iwp*pr*y2*z4**2*  &
      y3
      s7 = -4._iwp*pr*y2*z3**2*y4-4._iwp*pr*y2**2*z3*z4-2._iwp*z2*y4*z4*y3+2._iwp  &
      *y4*z3*z4*y3-2._iwp*y4*z3*z2*y3-4._iwp*x2*y4**2*x3*pr-4._iwp*z2**2*x3*x4  &
      *pr+4._iwp*pr*z2*y4*z4*y3-4._iwp*z2*x3**2*z4*pr-4._iwp*x4**2*z3*z2*pr-4._iwp  &
      *pr*z2*y3**2*z4-4._iwp*x2*z3**2*x4*pr-4._iwp*x2**2*y3*y4*pr-4._iwp*x2  &
      *y3**2*x4*pr-4._iwp*x2**2*z3*z4*pr-4._iwp*y2*x3**2*y4*pr-4._iwp*y2**2*x3  &
      *x4*pr-4._iwp*x4**2*y3*y2*pr-4._iwp*x2*z4**2*x3*pr+4._iwp*x2*z4*z2*x3*pr  &
      +4._iwp*y2*x4*y4*x3*pr-2._iwp*y2**2*x3**2-4._iwp*pr*y2*z3*z2*y3+4._iwp*x4*  &
      z3*z2*x3*pr-4._iwp*x2*z4*z2*x4*pr-1._iwp*z2**2*y4**2+2._iwp*x2*z3*z2*x3-  &
      4._iwp*x2*y3*y2*x4+4._iwp*x2*y3*y2*x3-2._iwp*z2*x4*z4*x3+2._iwp*x4*z3*z4*x3  &
      -2._iwp*x4*z3*z2*x3
      s5 = s7+2._iwp*x2*z4*z2*x4-2._iwp*x2*z4*z2*x3-2._iwp*x2*z4*x4*z3-2._iwp*x2  &
      *z3*z4*x3-2._iwp*x2*z3*z2*x4+4._iwp*x2*y4*y2*x4-4._iwp*x2*y4*y2*x3-4._iwp*  &
      x2*y4*x4*y3-4._iwp*x2*y3*y4*x3-2._iwp*x2**2*y4**2-4._iwp*x4*y3*y2*x3-2._iwp  &
      *x4**2*y3**2+4._iwp*pr*y2*z3*z2*y4-4._iwp*y2*x4*y4*x3+4._iwp*x4*y3*y4*x3  &
      -1._iwp*z2**2*y3**2+4._iwp*pr*y2*z3*z4*y3+4._iwp*x2*y3*y4*x3*pr-2._iwp*x2  &
      **2*y3**2-1._iwp*y2**2*z4**2-1._iwp*z4**2*x3**2+4._iwp*x2*y4*x4*y3*pr-1._iwp  &
      *y2**2*z3**2-1._iwp*y4**2*z3**2+4._iwp*pr*y2*z4*y4*z3-4._iwp*x4*z3*z4*  &
      x3*pr-2._iwp*y4**2*x3**2-1._iwp*z2**2*x4**2-4._iwp*x2*z3*z2*x3*pr+s6+4._iwp  &
      *x2*y4*y2*x3*pr+4._iwp*pr*y2*z4*z2*y3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,3) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*y2*x3*z1*y4*pr+2._iwp*pr*z2*y3*y1*x3-2._iwp*pr*z2*y3*y1*x4-2._iwp  &
      *pr*z2*y3*y4*x3+2._iwp*y2*x3*z4*y3*pr+2._iwp*y2*x4*y4*z3*pr-2._iwp*pr  &
      *z2*y4*x4*y3-2._iwp*pr*z2*y4*y1*x3+2._iwp*pr*z2*y4*y1*x4+2._iwp*pr*y2*z3  &
      *x1*y3-2._iwp*pr*y2*z4*x1*y3+z4*y3*x1*y4+x4*y3*y2*z3+y4*x3*z2*y3+2._iwp  &
      *x2*y4**2*z1*pr-2._iwp*x4*y3**2*z1*pr-2._iwp*x2*y4**2*z3*pr+2._iwp*x2*y3  &
      **2*z1*pr-2._iwp*x2*y3**2*z4*pr-2._iwp*y4**2*x3*z1*pr
      s6 = s7+y2*z3*y1*x3-1._iwp*y2*z3*y1*x4-1._iwp*y2*z3*y4*x3-1._iwp*y2*z4*x4  &
      *y3-1._iwp*y2*z4*y1*x3+y2*z4*y1*x4+y2*z4*y4*x3-1._iwp*y4*z3*x4*y3-1._iwp  &
      *y4*z3*y1*x3+z4*y3*y1*x3+2._iwp*pr*y2*z4*x1*y4-2._iwp*pr*y2*z4*y4*x3-  &
      2._iwp*pr*y4*z3*x1*y3-2._iwp*pr*y4*z3*y1*x4+z4*y3**2*x4-1._iwp*x4*y3**2*  &
      z2-1._iwp*z4*y3**2*x1+z2*y4**2*x1+z2*y3**2*x1-1._iwp*y4**2*z3*x1
      s7 = -2._iwp*pr*z4*y3*y1*x3-1._iwp*z2*y4**2*x3+y4**2*z3*x3+2._iwp*y2*x4*  &
      z1*y3*pr-2._iwp*y2*x4*z1*y4*pr+2._iwp*y4*x3*y1*z4*pr+2._iwp*y4*x3*z1*y3*  &
      pr+2._iwp*x2*y3*y4*z3*pr-2._iwp*x2*y3*y1*z3*pr+2._iwp*x2*y3*y1*z4*pr+2._iwp  &
      *x2*y4*y1*z3*pr-2._iwp*pr*y2*z3*x1*y4-1._iwp*y2*z3*x1*y3+y2*z3*x1*y4+  &
      y2*z4*x1*y3-1._iwp*y2*z4*x1*y4+y4*z3*x1*y3+y4*z3*y1*x4-2._iwp*z2*y3*x1  &
      *y4-1._iwp*z2*y3*y1*x3-1._iwp*z2*y4*y1*x4
      s5 = s7-2._iwp*x2*y4*y1*z4*pr-2._iwp*pr*z4*y3*x1*y4-4._iwp*x2*y3*z1*y4*pr  &
      +2._iwp*x2*y4*z4*y3*pr+2._iwp*x4*y3*y1*z3*pr+4._iwp*pr*z2*y3*x1*y4+z2*y3  &
      *y1*x4+z2*y4*x4*y3+z2*y4*y1*x3-1._iwp*z4*y3*y1*x4-1._iwp*z4*y3*y4*x3+  &
      2._iwp*pr*y4**2*z3*x1-2._iwp*pr*z2*y3**2*x1+2._iwp*pr*z2*y3**2*x4-2._iwp*pr  &
      *z2*y4**2*x1+2._iwp*pr*z2*y4**2*x3+2._iwp*pr*z4*y3**2*x1-2._iwp*pr*y2*z3  &
      *x4*y3+s6+2._iwp*x4*y3*z1*y4*pr-2._iwp*y2*x3*z1*y3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,4) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -1._iwp*x2*z3*x1*y3-2._iwp*pr*x2*z3*y1*x3+2._iwp*pr*x2*z3*y1*x4+x4**  &
      2*z3*y1-1._iwp*z2*x4**2*y1+2._iwp*pr*x2*z3*y4*x3+2._iwp*x2*y3*z1*x3*pr-  &
      2._iwp*x2*y3*z1*x4*pr-2._iwp*x2*y3*z4*x3*pr+2._iwp*pr*x2*z4*x4*y3+2._iwp*pr  &
      *x2*z4*y1*x3+x2*z3*x1*y4+x2*z3*x4*y3-1._iwp*z2*x3*x1*y4-1._iwp*x4*y3*  &
      z2*x3-1._iwp*y4*x3*x2*z3-2._iwp*pr*z2*x3*x1*y3+2._iwp*pr*z2*x3*x1*y4+2._iwp  &
      *pr*z2*x3*x4*y3-4._iwp*pr*z2*x3*y1*x4
      s6 = s7-2._iwp*x2*y4*x4*z3*pr+2._iwp*pr*z2*x4*x1*y3-2._iwp*x2*y4*z1*x3*pr  &
      +2._iwp*x2*y4*z1*x4*pr-2._iwp*pr*x2*z4*y1*x4-2._iwp*pr*z2*x4*x1*y4+2._iwp  &
      *pr*z2*x4*y4*x3+2._iwp*pr*z4*x3*x1*y3-2._iwp*x4*y3*x1*z4*pr-2._iwp*x4*y3  &
      *z1*x3*pr+2._iwp*y2*x3*x1*z3*pr-2._iwp*y2*x3*x1*z4*pr+2._iwp*pr*z4*x3*y1  &
      *x4-1._iwp*z4*x3**2*y4+z4*x3**2*y1-1._iwp*z2*x3**2*y1+y4*x3**2*z2-1._iwp  &
      *x4**2*z3*y3-2._iwp*y2*x4*z4*x3*pr-1._iwp*x4*y3*x1*z2
      s7 = -1._iwp*x4*y3*x2*z4+x2*z4*y1*x4-1._iwp*x4*z3*x1*y4+z2*x4*x1*y4-1._iwp  &
      *z4*x3*y1*x4+x2*z4*x1*y3-1._iwp*x2*z4*x1*y4+x2*z4*y4*x3+x4*z3*x1*y3  &
      +x4*z3*y4*x3+z4*x3*x1*y4-1._iwp*x2*z3*y1*x4+x2*z3*y1*x3-1._iwp*x4*z3*  &
      y1*x3-1._iwp*x2*z4*y1*x3+z4*x3*x4*y3-2._iwp*pr*x4**2*z3*y1+2._iwp*pr*z2*  &
      x3**2*y1-2._iwp*pr*z2*x3**2*y4-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*  &
      y1
      s5 = s7+2._iwp*pr*x4*z3*x1*y4+2._iwp*pr*x4*z3*y1*x3+x4**2*y3*z2-2._iwp*y4  &
      *x3*z1*x4*pr-2._iwp*y2*x3*x4*z3*pr+4._iwp*y2*x3*z1*x4*pr+s6-2._iwp*pr*z4  &
      *x3**2*y1-2._iwp*y2*x4*x1*z3*pr+2._iwp*y2*x4*x1*z4*pr-2._iwp*y4*x3*x1*z3  &
      *pr+z2*x3*x1*y3-1._iwp*y4*x3*z2*x4+2._iwp*z2*x3*y1*x4-1._iwp*z4*x3*x1*y3  &
      +2._iwp*x4**2*y3*z1*pr-2._iwp*y2*x3**2*z1*pr+2._iwp*y2*x3**2*z4*pr+2._iwp  &
      *y2*x4**2*z3*pr+2._iwp*y4*x3**2*z1*pr-2._iwp*y2*x4**2*z1*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,5) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*x2*z3*z1*x3*pr-2._iwp*x2*z4*z1*x4*pr-2._iwp*x2*y3*y1*x3*pr+  &
      2._iwp*x2*z4*x4*z3*pr+2._iwp*x4*z3*z2*x3*pr-4._iwp*x4*z3*z4*x3*pr+2._iwp*z2  &
      *x4*z4*x3*pr-1._iwp*z4**2*x3**2+y2*z4*z1*y4-1._iwp*y4*z3*y1*z4-2._iwp*y2  &
      *x3*x1*y3*pr+2._iwp*y2*x3*x1*y4*pr-4._iwp*y2*x3*y1*x4*pr-1._iwp*y4**2*z3  &
      **2-2._iwp*pr*z2*y4*y1*z4+2._iwp*pr*z4*y3*y1*z3+2._iwp*pr*z4*y3*z1*y4-2._iwp  &
      *y4*x3**2*y1*pr+2._iwp*x2*y4**2*x1*pr-1._iwp*x2*z3*z4*x3-1._iwp*x2*z4  &
      *x4*z3-1._iwp*x4*z3*z2*x3+2._iwp*x4*z3*z4*x3-1._iwp*z2*x4*z4*x3
      s7 = -2._iwp*x2*y3*y4*x3-2._iwp*x2*y4*x4*y3-2._iwp*x4*y3*y2*x3+4._iwp*x4*y3  &
      *y4*x3-2._iwp*y2*x4*y4*x3+z2*y3*y1*z3-1._iwp*z2*y3*y1*z4+2._iwp*z2*y3*z1  &
      *y4-1._iwp*z2*y4*y1*z3+z2*y4*y1*z4-1._iwp*z4*y3*y1*z3-1._iwp*z4*y3*z1*y4  &
      +2._iwp*pr*y2*z3**2*y1-2._iwp*pr*z4*y3**2*z1+2._iwp*x2*z3*z4*x3*pr-2._iwp  &
      *pr*z2*y3*y1*z3+s8+2._iwp*z2*x4*x1*z3*pr-2._iwp*z2*x4*x1*z4*pr-1._iwp*x4  &
      **2*z3**2+2._iwp*x4*z3*x1*z4*pr+x4*z3**2*x1-2._iwp*x2*y3**2*x1-1._iwp*z2  &
      *x3**2*z1+x4**2*z3*z2+2._iwp*x4**2*y3**2*pr
      s8 = s7+z2*x3**2*z4+y4**2*z3*z2-1._iwp*z2*x4*x1*z3+2._iwp*x4*z3*z1*x3*  &
      pr-2._iwp*z2*x3*x1*z3*pr-1._iwp*y4*z3*z1*y3+x2*z3*z1*x3-1._iwp*x2*z3*z1*  &
      x4-1._iwp*x2*z4*z1*x3+x2*z4*z1*x4-1._iwp*x4*z3*x1*z4-1._iwp*x4*z3*z1*x3+  &
      z2*x3*x1*z3-1._iwp*z2*x3*x1*z4+2._iwp*z2*x3*z1*x4+2._iwp*pr*y2*z4**2*y1-  &
      2._iwp*pr*y4*z3**2*y1-2._iwp*pr*y4**2*z3*z1+2._iwp*pr*z2*y3**2*z1+2._iwp*pr  &
      *z2*y4**2*z1-2._iwp*pr*z4**2*y3*y1+2._iwp*x2*y3**2*x1*pr+2._iwp*x2*z4**  &
      2*x1*pr-2._iwp*x4**2*z3*z1*pr
      s6 = s8+2._iwp*z2*x3**2*z1*pr+2._iwp*z2*x4**2*z1*pr-2._iwp*z4**2*x3*x1*pr  &
      -2._iwp*z4*x3**2*z1*pr-2._iwp*x4*y3**2*x1*pr-2._iwp*x4**2*y3*y1*pr+2._iwp  &
      *y2*x3**2*y1*pr+2._iwp*y2*x4**2*y1*pr-2._iwp*y4**2*x3*x1*pr+2._iwp*pr*z2  &
      *y4*y1*z3+2._iwp*y4**2*x3**2*pr-1._iwp*y2*z3*z4*y3-1._iwp*y2*z4*y4*z3-1._iwp  &
      *y4*z3*z2*y3+2._iwp*y4*z3*z4*y3-1._iwp*z2*y4*z4*y3-2._iwp*pr*y2*z3**2*  &
      y4-2._iwp*pr*y2*z4**2*y3+2._iwp*y2*x4*y4*x3*pr+2._iwp*x2*z3*z1*x4*pr+2._iwp  &
      *x2*z4*z1*x3*pr-2._iwp*x4**2*y3**2-2._iwp*y2*x4**2*y1+2._iwp*x2*y3*y1*x4  &
      *pr-1._iwp*z4**2*y3**2-2._iwp*x4*z3**2*x1*pr
      s8 = z4**2*y3*y1-1._iwp*z2*x4**2*z1+z4**2*x3*x1+z4*x3**2*z1+2._iwp*x4*  &
      y3**2*x1+y2*z3**2*y4-2._iwp*y2*x3**2*y1+z2*y3**2*z4+2._iwp*y4**2*x3*x1  &
      +2._iwp*y4*x3**2*y1-1._iwp*y2*z3**2*y1+y4*z3**2*y1-1._iwp*z2*y3**2*z1+2._iwp  &
      *x2*y3**2*x4+2._iwp*x4**2*z3**2*pr+x2*z3**2*x4+2._iwp*z4**2*x3**2*pr  &
      +x2*z4**2*x3+2._iwp*x4**2*y3*y2+2._iwp*y2*x3**2*y4+y2*z4**2*y3-2._iwp*x2  &
      *y4**2*x1-1._iwp*z2*y4**2*z1+2._iwp*pr*z2*y3*y1*z4-4._iwp*pr*z2*y3*z1*y4
      s7 = s8+2._iwp*x2*z3**2*x1*pr+2._iwp*x2*y4*y1*x3*pr-2._iwp*x2*y4*y1*x4*pr  &
      +2._iwp*x4*y3*x1*y4*pr+2._iwp*z4*x3*x1*z3*pr+2._iwp*z4*x3*z1*x4*pr-4._iwp  &
      *x2*y3*x1*y4*pr+s6-1._iwp*y2*z4**2*y1-1._iwp*x2*z3**2*x1-1._iwp*x2*z4**2  &
      *x1+z4*y3**2*z1+x4**2*z3*z1+y4**2*z3*z1+2._iwp*pr*y4**2*z3**2+2._iwp*x4  &
      **2*y3*y1+2._iwp*z2*x3*x1*z4*pr-4._iwp*z2*x3*z1*x4*pr-2._iwp*pr*y2*z3*z1  &
      *y3+2._iwp*pr*y2*z3*z1*y4-2._iwp*pr*y4**2*z3*z2-2._iwp*pr*z2*y3**2*z4-2._iwp  &
      *x4**2*z3*z2*pr-2._iwp*z2*x3**2*z4*pr-2._iwp*x2*y4**2*x3*pr
      s8 = s7-2._iwp*x2*y3**2*x4*pr-2._iwp*x2*z3**2*x4*pr-2._iwp*x2*z4**2*x3*pr  &
      -2._iwp*x4**2*y3*y2*pr-2._iwp*y2*x3**2*y4*pr+z2*x4*x1*z4-1._iwp*z4*x3*x1  &
      *z3-1._iwp*z4*x3*z1*x4+4._iwp*x2*y3*x1*y4+2._iwp*x2*y3*y1*x3-2._iwp*x2*y3  &
      *y1*x4-2._iwp*x2*y4*y1*x3+2._iwp*x2*y4*y1*x4-2._iwp*x4*y3*x1*y4-2._iwp*x4*  &
      y3*y1*x3+2._iwp*y2*x3*x1*y3-2._iwp*y2*x3*x1*y4+4._iwp*y2*x3*y1*x4-2._iwp*y2  &
      *x4*x1*y3+2._iwp*y2*x4*x1*y4-2._iwp*y4*x3*x1*y3-2._iwp*y4*x3*y1*x4+2._iwp  &
      *y2*z3*y1*z4+y2*z3*z1*y3
      s5 = s8-1._iwp*y2*z3*z1*y4-1._iwp*y2*z4*z1*y3+2._iwp*pr*z4**2*y3**2+2._iwp  &
      *x2*y4**2*x3-2._iwp*y4**2*x3**2+2._iwp*pr*y2*z4*y4*z3+2._iwp*pr*y4*z3*z2  &
      *y3+2._iwp*pr*y4*z3*z1*y3+2._iwp*pr*y2*z3*z4*y3+2._iwp*x2*z3*x1*z4+2._iwp*  &
      pr*y2*z4*z1*y3-2._iwp*pr*y2*z4*z1*y4+2._iwp*pr*y4*z3*y1*z4+2._iwp*y4*x3*  &
      x1*y3*pr+2._iwp*y4*x3*y1*x4*pr+2._iwp*y2*x4*x1*y3*pr-2._iwp*y2*x4*x1*y4*  &
      pr+2._iwp*x2*y3*y4*x3*pr+2._iwp*x2*y4*x4*y3*pr+2._iwp*x4*y3*y2*x3*pr-4._iwp  &
      *x4*y3*y4*x3*pr-4._iwp*pr*y4*z3*z4*y3+2._iwp*pr*z2*y4*z4*y3+2._iwp*x4*y3  &
      *y1*x3*pr-4._iwp*x2*z3*x1*z4*pr-4._iwp*pr*y2*z3*y1*z4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,6) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*z2*y4*x1*y2-2._iwp*x2*y4*z1*y2*pr-2._iwp*pr*y4*z3*y1*x4+2._iwp  &
      *pr*y2*z3*y1*x4-2._iwp*y2*x4*z1*y3*pr-1._iwp*z2*y4**2*x2+z2*y4**2*x1  &
      -1._iwp*y4**2*z3*x1+2._iwp*pr*z2*y3*x1*y4-2._iwp*pr*z2*y4*x4*y3+y2**2*x4  &
      *z3-4._iwp*pr*y2*z3*x1*y4-1._iwp*y2**2*z3*x1+y2**2*z4*x1+2._iwp*y4*x3*y1  &
      *z4*pr+x2*y4**2*z3-2._iwp*pr*z2*y4*y1*x3-1._iwp*y2**2*z4*x4+2._iwp*x2*y4  &
      *y1*z3*pr+2._iwp*pr*z2*y4*y1*x4
      s6 = s7-1._iwp*y2*z4*x1*y3-2._iwp*pr*z4*y3*x1*y4+2._iwp*y2**2*x4*z1*pr+2._iwp  &
      *y2**2*x3*z4*pr-1._iwp*y2*z4*x1*y4-2._iwp*x2*y3*z1*y4*pr-2._iwp*pr*y2  &
      **2*z3*x4-2._iwp*y2*x4*z1*y4*pr-2._iwp*pr*y2**2*z4*x1-1._iwp*z2*y4*x1*y2  &
      +z2*y3*x1*y2-1._iwp*z2*y3*x1*y4+y4*z3*y1*x4-1._iwp*y2*z4*y1*x2-1._iwp*x2  &
      *y4*y2*z3+y2*z3*y1*x2+2._iwp*pr*y2*z4*x1*y3+z2*y3*x2*y4-1._iwp*z2*y3*y1  &
      *x2+y2*z4*x2*y4
      s7 = z4*y3*x1*y4-1._iwp*z2*y4*y1*x4-2._iwp*x2*y4*y1*z4*pr-1._iwp*y2*x4*z2  &
      *y3+2._iwp*pr*y2**2*z3*x1+z2*y4*y1*x2+z2*y4*y2*x4+y2*z4*x4*y3-1._iwp*  &
      y2*z3*y1*x4-2._iwp*y4**2*x3*z1*pr-2._iwp*x2*y4**2*z3*pr+2._iwp*x2*y4**2*  &
      z1*pr+2._iwp*y2*z3*x1*y4+2._iwp*pr*z2*y4**2*x3-2._iwp*pr*z2*y4**2*x1+2._iwp  &
      *pr*y4**2*z3*x1-1._iwp*z4*y3*y1*x4+z2*y3*y1*x4+y2*z4*y1*x4+x2*y3*y1  &
      *z4-1._iwp*y2*x4*y4*z3
      s5 = s7-1._iwp*x2*y4*z4*y3-1._iwp*x2*y4*y1*z3-2._iwp*pr*y2*z3*y1*x2+2._iwp  &
      *pr*y2*z3*x2*y4+2._iwp*x2*y3*z1*y2*pr+2._iwp*pr*y2*z4*x1*y4+2._iwp*pr*y2  &
      *z4*y1*x2+2._iwp*x2*y4*z4*y3*pr-2._iwp*x2*y3*y2*z4*pr-2._iwp*pr*z2*y3*x1  &
      *y2+2._iwp*x4*y3*z1*y4*pr+2._iwp*y2*x3*y1*z2*pr-2._iwp*pr*y2*z4*y1*x3-2._iwp  &
      *y2*x3*z2*y4*pr-2._iwp*pr*y2*z4*y4*x3-2._iwp*y2*x4*y1*z2*pr+4._iwp*y2*  &
      x3*z1*y4*pr-2._iwp*y2**2*x3*z1*pr+2._iwp*pr*z2*y3*y2*x4+2._iwp*y2*x4*y4*  &
      z3*pr+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,7) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*z2*x4*x1*y4+2._iwp*pr*z2*x4*y4*x3+2._iwp*x2*y4*x1*z2*pr+  &
      2._iwp*pr*x2*z3*x1*y2-2._iwp*pr*x2*z3*y2*x4-2._iwp*y2*x3*z1*x2*pr+2._iwp*y2  &
      *x3*z1*x4*pr-2._iwp*y2*x4*x1*z3*pr-4._iwp*x2*y3*z1*x4*pr+4._iwp*pr*x2*z3  &
      *y1*x4+2._iwp*pr*z4*x3*y1*x4+2._iwp*x2*z4*x1*y3*pr-2._iwp*pr*x2*z4*x1*y2  &
      +2._iwp*y2*x4*x1*z4*pr+2._iwp*y2*x3*x2*z4*pr-2._iwp*pr*x2*z3*x1*y4+2._iwp  &
      *y2*x4*z1*x2*pr+2._iwp*pr*x2*z4*x4*y3-2._iwp*x2*y4*x4*z3*pr-2._iwp*pr*x2  &
      *z4*y1*x3
      s6 = s7+z2*x4**2*y2+x2**2*z4*y4-1._iwp*x2**2*z3*y4-1._iwp*x2**2*z4*y1+  &
      x2**2*z3*y1+2._iwp*x2*y4*z1*x3*pr+2._iwp*pr*x2**2*z3*y4+2._iwp*pr*x2**2*  &
      z4*y1-1._iwp*x2*z3*x1*y2+x2*z4*x1*y2+y2*x4*z4*x3+x2*z4*y1*x4-1._iwp*x4  &
      *z3*x1*y4+z2*x4*x1*y4-1._iwp*z4*x3*y1*x4-1._iwp*x2*z4*x1*y4-1._iwp*x2*z4  &
      *y4*x3+z4*x3*x1*y4-1._iwp*z2*x3*y1*x2+z2*x4*y1*x2
      s7 = -2._iwp*x2*z3*y1*x4-2._iwp*pr*x2*z4*y1*x4-2._iwp*y2*x4**2*z1*pr-1._iwp  &
      *y2*x4**2*z3-1._iwp*z2*x4**2*y1+x4**2*z3*y1+x2*z4*y1*x3-2._iwp*pr*x4**  &
      2*z3*y1-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*y1+x2*y4*x4*z3-1._iwp*  &
      y2*x3*x1*z4+y2*x4*x1*z3+2._iwp*x2**2*y3*z1*pr-2._iwp*x2**2*y3*z4*pr-2._iwp  &
      *x2**2*y4*z1*pr+z2*x3*y1*x4+2._iwp*x4**2*y3*z1*pr+2._iwp*y2*x4**2*z3  &
      *pr-2._iwp*y2*x4*z4*x3*pr-2._iwp*y4*x3*z1*x4*pr
      s5 = s7+2._iwp*pr*z2*x3*y1*x2-2._iwp*pr*z2*x3*x2*y4+2._iwp*pr*x4*z3*x1*y4  &
      +x2*z3*x1*y4+x2*z3*y2*x4-1._iwp*x2*z4*y2*x4+z2*x3*x1*y2-1._iwp*z2*x4*  &
      x1*y2+z2*x3*x2*y4-1._iwp*z2*x3*y2*x4-1._iwp*z2*x3*x1*y4+2._iwp*x2*y4*z1*  &
      x4*pr-2._iwp*x4*y3*x1*z4*pr+s6-2._iwp*pr*z2*x3*y1*x4-2._iwp*x2*y3*x1*z2*  &
      pr+2._iwp*x2*y3*z2*x4*pr-2._iwp*pr*z2*x4*y1*x2+2._iwp*pr*z2*x4*x1*y3-1._iwp  &
      *z2*x4*x2*y4-2._iwp*pr*x2**2*z3*y1
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,8) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = 2._iwp*y4*x3*y1*x4*pr-2._iwp*x2*z3*x1*z4*pr+2._iwp*y2**2*x4**2+2._iwp  &
      *pr*y2**2*z3*z4+2._iwp*pr*y2*z4**2*y3+2._iwp*pr*y4**2*z3*z2+2._iwp*pr*z2  &
      **2*y3*y4+2._iwp*x4**2*z3*z2*pr+2._iwp*z2**2*x3*x4*pr+2._iwp*x2*y4**2*x3  &
      *pr+2._iwp*x2**2*z3*z4*pr+2._iwp*x2**2*y3*y4*pr+2._iwp*x2*z4**2*x3*pr+2._iwp  &
      *x4**2*y3*y2*pr+2._iwp*y2**2*x3*x4*pr-1._iwp*z2*x3*z1*x2+z2*x4*x1*z3  &
      +z2*x4*x1*z4-1._iwp*z4*x3*z1*x4+2._iwp*x2*y3*x1*y4-4._iwp*x2*y3*y1*x4+2._iwp  &
      *x2*y4*y1*x3+2._iwp*x2*y4*y1*x4-2._iwp*x2*y4*y1*x4*pr
      s7 = -2._iwp*x2*y4*y1*x3*pr+y2**2*z4**2+2._iwp*x4*y3*x1*y4*pr-2._iwp*pr*  &
      y2*z4*z1*y3-2._iwp*pr*y2*z4*z1*y4+2._iwp*pr*y4*z3*y1*z4+4._iwp*y2*x3*x1*  &
      y4*pr+4._iwp*pr*z2*y3*y1*z4-2._iwp*y2*x3*y1*x4*pr-1._iwp*z2*y3*z1*y2+z2*  &
      y4*z1*y2+y2*z4*y1*z2-2._iwp*x2**2*z3*z1*pr+2._iwp*x2**2*z4*z1*pr-2._iwp*  &
      z2**2*x3*x1*pr+y2*z3*z2*y4+y2*z4*y4*z3+y2*z4*z2*y3-2._iwp*y2*z4*z2*y4  &
      +z2*y4*z4*y3-2._iwp*pr*z2*y3*z1*y4-2._iwp*pr*z2*y4*y1*z3+x2**2*z4**2-  &
      2._iwp*x2*z3*z2*x4*pr-2._iwp*pr*z2*y4*y1*z4+s8
      s8 = s7+2._iwp*pr*z4*y3*z1*y4+2._iwp*z2*x3*z1*x2*pr-2._iwp*x2*z4*x4*z3*pr  &
      +2._iwp*x2*z3*x1*z2*pr+2._iwp*pr*y2*z3*y1*z2-2._iwp*x2*z4*x1*z2*pr-2._iwp  &
      *pr*y2*z3*z2*y4-2._iwp*pr*y2*z4*y4*z3-2._iwp*pr*y2*z4*z2*y3+2._iwp*y2*x4  &
      **2*y1*pr-2._iwp*y4**2*x3*x1*pr+2._iwp*x2*y4**2*x1*pr+x2*z3*z2*x4+x2*z4  &
      *x4*z3+x2*z4*z2*x3-2._iwp*x2*z4*z2*x4+z2*x4*z4*x3+2._iwp*x2*y3*y2*x4+  &
      2._iwp*x2*y4*x4*y3+2._iwp*x2*y4*y2*x3-4._iwp*x2*y4*y2*x4+2._iwp*y2*x4*y4*x3  &
      -2._iwp*z2*y3*y1*z4-2._iwp*x2*z4*z2*x3*pr
      s6 = s8+4._iwp*x2*z4*z2*x4*pr+4._iwp*x2*z3*z1*x4*pr-2._iwp*x2*z4*z1*x3*pr  &
      -2._iwp*z2*x4*z4*x3*pr-2._iwp*x2*y3*y2*x4*pr-2._iwp*pr*y2*z4*y1*z2-2._iwp  &
      *x2*y4**2*x1-1._iwp*z2*y4**2*z1+z4**2*y3*y1+2._iwp*x2**2*y4**2-2._iwp*x2  &
      *y4*x4*y3*pr-2._iwp*x2*y4*y2*x3*pr-2._iwp*x4*y3*x1*y4-4._iwp*y2*x3*x1*y4  &
      +2._iwp*y2*x3*y1*x4+2._iwp*y2*x4*x1*y3+2._iwp*y2*x4*x1*y4-2._iwp*y4*x3*y1*  &
      x4+y2*z3*y1*z4-2._iwp*y2*z3*z1*y4+y2*z4*z1*y3+y2*z4*z1*y4-1._iwp*y4*z3  &
      *y1*z4+z2*x4*z1*x2-2._iwp*x2*y3*x1*y2+2._iwp*x2*y4*x1*y2
      s8 = x2*z3*x1*z4-2._iwp*x2*z3*z1*x4+4._iwp*pr*y2*z4*z2*y4+2._iwp*x4*z3*x1  &
      *z4*pr-2._iwp*x2*z4*z1*x4*pr+2._iwp*x2**2*y3*y1+4._iwp*x2*y4*y2*x4*pr+4._iwp  &
      *z2*x3*x1*z4*pr-1._iwp*y2**2*z3*z4-2._iwp*z2*x3*z1*x4*pr-2._iwp*pr*z2  &
      *y4*z4*y3-2._iwp*z2**2*x4**2*pr-2._iwp*z2*x4*x1*z3*pr-2._iwp*x2**2*y4*y1  &
      +2._iwp*y2**2*x3*x1-2._iwp*y2**2*x4*x1-2._iwp*x2*y4**2*x3-1._iwp*x2*z4**2*  &
      x1+x4**2*z3*z1+z4**2*x3*x1-2._iwp*y2*x4**2*y1-1._iwp*x2*z4**2*x3+2._iwp*  &
      y4**2*x3*x1-1._iwp*y2*z4**2*y1+y4**2*z3*z1
      s7 = s8-2._iwp*pr*z2**2*y4**2-1._iwp*x2**2*z3*z4-2._iwp*x2**2*y3*y4-2._iwp  &
      *y2**2*x3*x4-1._iwp*y2*z4**2*y3-1._iwp*y4**2*z3*z2-1._iwp*z2**2*y3*y4+x2  &
      **2*z3*z1-1._iwp*x2**2*z4*z1+z2**2*x3*x1-2._iwp*y2*x4*y4*x3*pr-2._iwp*z2  &
      *x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*pr-2._iwp*x2**2*z4**2*pr-2._iwp*pr*y2**2  &
      *z4**2+2._iwp*pr*z2*y3*z1*y2-2._iwp*x4**2*y3*y2+x2*z4*z1*x3+x2*z4*z1*x4  &
      -1._iwp*x4*z3*x1*z4-2._iwp*z2*x3*x1*z4+z2*x3*z1*x4-1._iwp*x2*z3*x1*z2+x2  &
      *z4*x1*z2-2._iwp*pr*y2**2*z3*z1
      s8 = s7+2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1+2._iwp*pr*z2**2*y4*y1  &
      +2._iwp*pr*y2*z4**2*y1-2._iwp*pr*y4**2*z3*z1+2._iwp*pr*z2*y4**2*z1-2._iwp  &
      *pr*z4**2*y3*y1+2._iwp*x2*z4**2*x1*pr-2._iwp*x4**2*z3*z1*pr+2._iwp*z2*x4  &
      **2*z1*pr-2._iwp*z4**2*x3*x1*pr-2._iwp*x4**2*y3*y1*pr-2._iwp*y2*x4*x1*y3  &
      *pr+z2**2*x4**2-2._iwp*y2*x4*x1*y4*pr-1._iwp*z2**2*x3*x4-1._iwp*z2*x4**2  &
      *z1+z2**2*y3*y1+2._iwp*x4**2*y3*y1-1._iwp*y2**2*z4*z1+y2**2*z3*z1-1._iwp  &
      *z2**2*y4*y1-2._iwp*z2*x4*x1*z4*pr+2._iwp*z4*x3*z1*x4*pr
      s5 = s8-2._iwp*pr*z2*y4*z1*y2-2._iwp*x2*y3*x1*y4*pr-2._iwp*x2**2*y4**2*pr  &
      -1._iwp*x4**2*z3*z2-2._iwp*y2**2*x4**2*pr-2._iwp*pr*y2*z3*y1*z4-1._iwp*z2  &
      **2*x4*x1+s6+4._iwp*x2*y3*y1*x4*pr+z2**2*y4**2-2._iwp*x2*y4*x1*y2*pr+z2  &
      *y3*z1*y4+z2*y4*y1*z3+z2*y4*y1*z4-1._iwp*z4*y3*z1*y4-2._iwp*y2*x3*y1*  &
      x2+2._iwp*z2**2*x4*x1*pr-2._iwp*x2**2*y3*y1*pr+2._iwp*x2**2*y4*y1*pr-2._iwp  &
      *y2**2*x3*x1*pr+2._iwp*y2**2*x4*x1*pr+2._iwp*y2*x4*y1*x2-1._iwp*y2*z3*y1  &
      *z2+4._iwp*pr*y2*z3*z1*y4+2._iwp*y2*x3*y1*x2*pr-2._iwp*y2*x4*y1*x2*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,9) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*y2*z3*y1*x2+2._iwp*pr*z2*y3*x1*y4+2._iwp*x2*y3*y2*z4*pr-2._iwp  &
      *y2*x3*y1*z2*pr+2._iwp*pr*z2*y3*y1*x3-2._iwp*pr*y2**2*z3*x1-1._iwp*y2  &
      *z4*y1*x3-1._iwp*y4*z3*y1*x3+z2*y4*y1*x3-2._iwp*pr*z2*y3**2*x1+2._iwp*pr  &
      *z2*y3**2*x4+2._iwp*pr*z4*y3**2*x1-1._iwp*x2*y3*y1*z4-1._iwp*x2*y3*y4*z3  &
      +x2*y4*y1*z3-1._iwp*y2*x3*z4*y3+y2*z3*y4*x3+2._iwp*pr*y2*z3*x1*y4+2._iwp  &
      *pr*z2*y3*x1*y2-2._iwp*pr*z2*y3*y2*x4
      s6 = s7-2._iwp*pr*z2*y4*x1*y2-2._iwp*x2*y3*y1*z3*pr+2._iwp*x2*y3*y1*z4*pr  &
      +2._iwp*x2*y3**2*z1*pr+2._iwp*y2*x3*z4*y3*pr-2._iwp*x2*y3*z1*y4*pr+z2*y3  &
      **2*x1-1._iwp*z4*y3**2*x1+y2**2*x3*z4-1._iwp*y2**2*z3*x3-1._iwp*z2*y3**  &
      2*x2-1._iwp*y2**2*z4*x1+y2**2*z3*x1+x2*y3**2*z4-2._iwp*pr*y2*z3*x4*y3-  &
      2._iwp*pr*y2*z3*x2*y4-2._iwp*pr*y2*z4*y1*x2-2._iwp*pr*z4*y3*y1*x3-2._iwp*pr  &
      *y2*z3*y1*x4-4._iwp*pr*y2*z4*x1*y3
      s7 = -2._iwp*pr*y4*z3*x1*y3-2._iwp*pr*z2*y3*y1*x4-2._iwp*pr*z2*y3*y4*x3-  &
      2._iwp*x2*y3**2*z4*pr-1._iwp*y2*z3*x1*y3-1._iwp*y2*z3*x1*y4+2._iwp*y2**2*x3  &
      *z1*pr-2._iwp*y2**2*x3*z4*pr-2._iwp*y2**2*x4*z1*pr+2._iwp*pr*y2**2*z3*x4  &
      +2._iwp*pr*y2**2*z4*x1-1._iwp*x2*y3*y2*z4-1._iwp*y2*x3*z2*y4-1._iwp*y2*z3  &
      *y1*x2+y2*z4*y1*x2+y4*z3*x1*y3-1._iwp*z2*y3*x1*y4-1._iwp*z2*y3*y1*x3+z2  &
      *y4*x1*y2+z4*y3*y1*x3+z2*y3*y1*x2
      s5 = s7+z2*y3*x2*y4-1._iwp*z2*y4*y1*x2+2._iwp*pr*y2*z4*y1*x3+z2*y3*y2*  &
      x3+2._iwp*y2*x3*z2*y4*pr+2._iwp*x2*y3*y4*z3*pr+2._iwp*x4*y3*y1*z3*pr+y2*  &
      z3*y1*x3+4._iwp*y2*x4*z1*y3*pr+2._iwp*y4*x3*z1*y3*pr+2._iwp*pr*y2*z3*x1*  &
      y3+2._iwp*y2*x4*y1*z2*pr+2._iwp*x2*y4*z1*y2*pr+s6-2._iwp*y2*x3*z1*y3*pr-  &
      2._iwp*y2*x3*z1*y4*pr-1._iwp*z2*y3*x1*y2+y2*z3*x2*y3+2._iwp*y2*z4*x1*y3-  &
      2._iwp*x2*y3*z1*y2*pr-2._iwp*x4*y3**2*z1*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,10) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*z2*x4*y1*x2-1._iwp*x2**2*z3*y1+x2**2*z4*y1+2._iwp*pr*x2*z3  &
      *y2*x4-1._iwp*x2**2*y3*z4+z4*x3**2*y1-1._iwp*x2*z3*x4*y3-1._iwp*x2*z3*x1  &
      *y3-1._iwp*y2*x3**2*z4+2._iwp*x2*y3*z1*x3*pr+x2**2*z3*y3-1._iwp*z2*x3**  &
      2*y1-2._iwp*x2*y3*z2*x4*pr-1._iwp*z2*x3*x1*y2+2._iwp*x2*y3*z1*x4*pr+z2*x3  &
      **2*y2-1._iwp*z2*x3*x2*y3-1._iwp*x2*z3*y2*x3+z2*x4*x1*y2-1._iwp*z2*x3*y2  &
      *x4
      s6 = s7-2._iwp*x2*y3*z4*x3*pr-1._iwp*x2*z4*x1*y2+x2*z3*x1*y2-2._iwp*pr*x2  &
      **2*z4*y1+2._iwp*pr*x2*z4*x1*y2-2._iwp*pr*x2**2*z3*y4+2._iwp*pr*x2**2*z3  &
      *y1-2._iwp*x2*y4*x1*z2*pr-1._iwp*x4*y3*x1*z2+x2*y3*z2*x4-1._iwp*z2*x4*y1  &
      *x2+z2*x3*y1*x2+x4*z3*x1*y3+x2*z4*x1*y3-2._iwp*pr*z2*x3**2*y4+2._iwp*  &
      pr*z2*x3**2*y1-2._iwp*x2*z4*y1*x3-1._iwp*x4*z3*y1*x3+x2*z3*y1*x3-4._iwp*  &
      x2*y4*z1*x3*pr
      s7 = x2*z3*y1*x4+y2*x3*x1*z4+x2*y3*z4*x3-2._iwp*pr*z4*x3**2*y1+z2*x3  &
      *x1*y3-1._iwp*y2*x4*x1*z3+y2*x3*x4*z3-2._iwp*x4*y3*z1*x3*pr+y2*x3*x2*z4  &
      +2._iwp*y4*x3**2*z1*pr+2._iwp*y2*x3**2*z4*pr-2._iwp*y2*x3**2*z1*pr-1._iwp  &
      *z4*x3*x1*y3+z2*x3*y1*x4+2._iwp*y2*x3*z1*x2*pr+2._iwp*x2**2*y4*z1*pr+2._iwp  &
      *x2**2*y3*z4*pr-2._iwp*pr*x2*z3*y1*x3+2._iwp*pr*x2*z3*x1*y4-2._iwp*x2  &
      **2*y3*z1*pr-2._iwp*pr*x2*z3*y1*x4
      s5 = s7+2._iwp*pr*x2*z3*y4*x3-2._iwp*x2*z4*x1*y3*pr+4._iwp*pr*x2*z4*y1*x3  &
      +2._iwp*y2*x3*x1*z3*pr+2._iwp*pr*x4*z3*y1*x3-2._iwp*y2*x3*x1*z4*pr-2._iwp  &
      *pr*z2*x3*x1*y3-2._iwp*y2*x3*x4*z3*pr+2._iwp*pr*z2*x3*x1*y4+2._iwp*y2*x3  &
      *z1*x4*pr+2._iwp*pr*z2*x3*x4*y3-2._iwp*y4*x3*x1*z3*pr-2._iwp*pr*z2*x3*y1  &
      *x4+2._iwp*pr*z4*x3*x1*y3-2._iwp*pr*z2*x3*y1*x2-2._iwp*y2*x3*x2*z4*pr+s6  &
      -2._iwp*y2*x4*z1*x2*pr+2._iwp*x2*y3*x1*z2*pr-2._iwp*pr*x2*z3*x1*y2+2._iwp*  &
      pr*z2*x3*x2*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,11) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*pr*y2*z4*y1*z2-4._iwp*z2*x4*x1*z3*pr+2._iwp*x2*y3*y4*x3*pr+  &
      2._iwp*pr*z2*y3*z1*y2+z2*x4*z1*x2-2._iwp*x2*y3*x1*y2+2._iwp*x2*y4*x1*y2-  &
      1._iwp*x2*z3*x1*z4-1._iwp*x2*z3*z1*x3-1._iwp*x2*z3*z1*x4+2._iwp*x2*z4*z1*x3  &
      +x4*z3*z1*x3-1._iwp*z2*x3*x1*z3-1._iwp*z2*x3*x1*z4+2._iwp*pr*y4*z3*z2*y3  &
      -2._iwp*z4*x3*x1*z3*pr+y2*z4*y1*z2-2._iwp*x2**2*z3*z1*pr+2._iwp*x2**2*z4  &
      *z1*pr-2._iwp*z2**2*x3*x1*pr-2._iwp*x2**2*y3**2+2._iwp*x2*y4*y2*x3*pr+2._iwp  &
      *x4*y3*y2*x3*pr-1._iwp*z2**2*x3**2
      s7 = 2._iwp*pr*z2*y3*y1*z4+2._iwp*x2*y3*x1*y4*pr-4._iwp*y2*x4*x1*y3*pr+2._iwp  &
      *pr*z2*y3*z1*y4+2._iwp*pr*y2*z3*y1*z4-2._iwp*pr*z4*y3*y1*z3-4._iwp*pr  &
      *z2*y4*y1*z3+2._iwp*x2*y3*y1*x3*pr+2._iwp*y2*x3*y1*x2*pr+2._iwp*x2*y3*y1  &
      *x4*pr-4._iwp*x2*y4*y1*x3*pr-2._iwp*y4*x3*x1*y3*pr+y2*z3**2*y4+2._iwp*y2  &
      **2*x3*x4-1._iwp*x4*z3**2*x1-2._iwp*z2*x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*pr  &
      +2._iwp*x2*y3**2*x4+2._iwp*z2*x3*z1*x2*pr-2._iwp*x4*y3*y1*x3*pr+2._iwp*y2*  &
      x3**2*y1+2._iwp*x2*z3*x1*z4*pr-2._iwp*y2*x4*y1*x2*pr-2._iwp*x2*y4*x1*y2*  &
      pr+2._iwp*z2*x3*z1*x4*pr+s8
      s8 = s7+y2**2*z3*z4+z2**2*y3*y1-2._iwp*x2**2*y4*y1+2._iwp*y2*x3**2*y4+  &
      x2*z3**2*x1+z2*y3**2*z4+2._iwp*pr*y2*z3*z1*y3+2._iwp*y2*x3*x1*y3*pr+y2  &
      **2*z3*z1-1._iwp*z4*x3**2*z1-1._iwp*x2**2*z3**2-1._iwp*z2**2*y3**2+2._iwp*  &
      pr*y2**2*z3**2-1._iwp*z2**2*y4*y1-1._iwp*y2**2*z4*z1-4._iwp*x2*z3*z2*x3*  &
      pr+z2*y3**2*z1+z2**2*x3*x4+z2*x3**2*z4-1._iwp*z2**2*x4*x1+2._iwp*pr*y2  &
      *z3*z1*y4+2._iwp*y2**2*x3**2*pr+2._iwp*x2*y3**2*x1-2._iwp*y2**2*x4*x1
      s6 = 2._iwp*y2**2*x3*x1+2._iwp*x2**2*y3*y1+z2*x3**2*z1+2._iwp*x2**2*y3*y4  &
      +2._iwp*z2**2*x3**2*pr+x2**2*z3*z4-2._iwp*x2*y3*y2*x4-2._iwp*x2*y3*y4*x3  &
      -2._iwp*x2*y4*y2*x3-2._iwp*x4*y3*y2*x3-1._iwp*z2*y3*y1*z3-1._iwp*z2*y3*y1  &
      *z4-1._iwp*z4*y3**2*z1-1._iwp*y4*z3**2*y1+y2*z3**2*y1-2._iwp*y4*x3**2*y1  &
      -2._iwp*x4*y3**2*x1+2._iwp*x2**2*z3**2*pr+2._iwp*pr*z2**2*y3**2+x2*z3**2  &
      *x4-4._iwp*pr*y2*z3*z2*y3+z2**2*x3*x1-1._iwp*x2**2*z4*z1+x2**2*z3*z1+z2  &
      **2*y3*y4-2._iwp*pr*z2*y4*z1*y2+s8
      s8 = -4._iwp*pr*y2*z4*z1*y3+2._iwp*x4*z3**2*x1*pr-2._iwp*z2*x3**2*z1*pr+  &
      2._iwp*z4*x3**2*z1*pr+2._iwp*x4*y3**2*x1*pr-2._iwp*y2*x3**2*y1*pr+2._iwp*y4  &
      *x3**2*y1*pr+2._iwp*x2*z3*z2*x3-1._iwp*x2*z3*z2*x4-1._iwp*x2*z3*z4*x3-1._iwp  &
      *x2*z4*z2*x3-1._iwp*x4*z3*z2*x3+4._iwp*x2*y3*y2*x3+2._iwp*pr*y2*z3*z2  &
      *y4+2._iwp*x2*z3*z1*x3*pr-1._iwp*z2*y3*z1*y4+2._iwp*z2*y4*y1*z3+z4*y3*y1  &
      *z3-2._iwp*pr*y2*z3**2*y1-2._iwp*y2*x3*y1*x2+2._iwp*z2**2*x4*x1*pr-2._iwp*  &
      x2**2*y3*y1*pr+2._iwp*x2**2*y4*y1*pr-2._iwp*y2**2*x3*x1*pr+2._iwp*y2**2*  &
      x4*x1*pr
      s7 = 2._iwp*y2*x4*y1*x2+2._iwp*x2*z3*x1*z2*pr+s8-2._iwp*pr*y4*z3*z1*y3-1._iwp  &
      *y2*z4*z2*y3-1._iwp*y2*z3*z4*y3-1._iwp*y2*z3*z2*y4+2._iwp*y2*z3*z2*y3  &
      +2._iwp*y2*x3*x1*y4*pr-1._iwp*y2*z3*y1*z2-1._iwp*z2*y3*z1*y2+z2*y4*z1*y2  &
      -1._iwp*z2*x3*z1*x4-1._iwp*x2*z3*x1*z2+x2*z4*x1*z2-2._iwp*pr*y2**2*z3*z1  &
      +2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1+2._iwp*pr*z2**2*y4*y1+2._iwp*  &
      pr*y4*z3**2*y1-2._iwp*pr*z2*y3**2*z1+2._iwp*pr*z4*y3**2*z1-2._iwp*x2*y3**  &
      2*x1*pr-2._iwp*x2*z3**2*x1*pr-1._iwp*y4*z3*z2*y3-2._iwp*pr*y2*z3**2*y4
      s8 = s7-2._iwp*pr*y2**2*z3*z4-2._iwp*z2*x3**2*z4*pr-2._iwp*pr*z2*y3**2*z4  &
      -2._iwp*pr*z2**2*y3*y4-2._iwp*z2**2*x3*x4*pr-2._iwp*x2**2*y3*y4*pr-2._iwp  &
      *x2*y3**2*x4*pr-2._iwp*x2**2*z3*z4*pr-2._iwp*x2*z3**2*x4*pr-2._iwp*x2*z4  &
      *x1*z2*pr+2._iwp*pr*y2*z4*z2*y3+2._iwp*pr*y2*z3*z4*y3+2._iwp*x2*z3*z1*x4  &
      *pr-4._iwp*x2*z4*z1*x3*pr-1._iwp*y2**2*z3**2+2._iwp*x2*z3*z4*x3*pr-2._iwp*  &
      y2**2*x3*x4*pr+2._iwp*x2*z3*z2*x4*pr-2._iwp*x4*z3*z1*x3*pr-2._iwp*x2*y3*  &
      x1*y4+z4*x3*x1*z3+2._iwp*z2*x4*x1*z3-1._iwp*z2*x3*z1*x2-2._iwp*y2*x3**2*  &
      y4*pr
      s5 = s8-2._iwp*y2*x3*y1*x4-2._iwp*y2*x3*x1*y4-2._iwp*y2*x3*x1*y3+2._iwp*x4  &
      *y3*y1*x3+4._iwp*x2*y4*y1*x3-2._iwp*x2*y3*y1*x4-2._iwp*x2*y3*y1*x3+2._iwp*  &
      x2*z4*z2*x3*pr+2._iwp*x4*z3*z2*x3*pr+2._iwp*z2*x3*x1*z3*pr+2._iwp*y2*x3*  &
      y1*x4*pr-2._iwp*y2**2*x3**2+4._iwp*y2*x4*x1*y3+2._iwp*x2**2*y3**2*pr+2._iwp  &
      *y4*x3*x1*y3+2._iwp*y2*z4*z1*y3-1._iwp*y2*z3*z1*y4-1._iwp*y2*z3*z1*y3-1._iwp  &
      *y2*z3*y1*z4-4._iwp*x2*y3*y2*x3*pr+2._iwp*x2*y3*y2*x4*pr+2._iwp*z2*x3  &
      *x1*z4*pr+s6+2._iwp*pr*y2*z3*y1*z2+2._iwp*pr*z2*y3*y1*z3+y4*z3*z1*y3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(3,12) = t0


km(4,1) = km(1,4)


km(4,2) = km(2,4)


km(4,3) = km(3,4)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 4._iwp*pr*y1*z4*z1*y3-4._iwp*x1*z3*z1*x3*pr+4._iwp*x1*z3*z1*x4*pr-2._iwp  &
      *z1**2*y3**2+4._iwp*x1*z4*z1*x3*pr-4._iwp*x1*z4*z1*x4*pr-4._iwp*x1*y3  &
      *y1*x3*pr+4._iwp*x1*y3*y1*x4*pr+2._iwp*x1**2*y3*y4+2._iwp*y1**2*x3*x4+2._iwp  &
      *y4**2*x3**2*pr+2._iwp*pr*y4**2*z3**2+2._iwp*x4**2*y3**2*pr+2._iwp*pr*  &
      z4**2*y3**2+4._iwp*y4*z3**2*y1-4._iwp*pr*z4*y3**2*z1-4._iwp*pr*y1*z4*z1*  &
      y4-1._iwp*y4**2*x3**2-2._iwp*z1**2*y4**2+4._iwp*y4*x3*x1*y3*pr-2._iwp*z4*x3  &
      *x1*z3-4._iwp*pr*y4*z3*z4*y3+4._iwp*x1*y4*y1*x3*pr-4._iwp*x1*y4*y1*x4*pr  &
      +4._iwp*z4*x3*x1*z3*pr-4._iwp*pr*y1*z3*z1*y3+4._iwp*z4*x3*z1*x4*pr+4._iwp  &
      *x4*y3*x1*y4*pr-4._iwp*x4*z3*z4*x3*pr-4._iwp*x4*y3*y4*x3*pr-2._iwp*x1*z4  &
      *z1*x3
      s6 = s7+2._iwp*x1*z4*z1*x4+2._iwp*x1*y3*y1*x3-2._iwp*x1*y3*y1*x4-2._iwp*x1  &
      *y4*y1*x3+2._iwp*x1*y4*y1*x4-4._iwp*y1*z4*z1*y3+4._iwp*y1*z4*z1*y4-2._iwp*  &
      y4**2*z3**2+4._iwp*x4*y3*y1*x3*pr+4._iwp*y4*x3*y1*x4*pr-1._iwp*x4**2*y3**  &
      2-2._iwp*y1**2*z4**2+4._iwp*x4*z3*x1*z4*pr-1._iwp*y1**2*x4**2-1._iwp*y1**  &
      2*x3**2+4._iwp*x4*z3*z1*x3*pr+4._iwp*pr*y1*z3*z1*y4+2._iwp*pr*z1**2*y4**  &
      2+2._iwp*pr*y1**2*z3**2+2._iwp*x1**2*z3**2*pr+2._iwp*x1**2*z4**2*pr+2._iwp  &
      *z1**2*x3**2*pr+2._iwp*z1**2*x4**2*pr+2._iwp*x1**2*y3**2*pr+2._iwp*x1**2  &
      *y4**2*pr+2._iwp*y1**2*x3**2*pr-4._iwp*pr*z1**2*y3*y4+4._iwp*pr*y4*z3*y1  &
      *z4+4._iwp*pr*y4*z3*z1*y3-1._iwp*x1**2*y4**2+4._iwp*pr*z4*y3*y1*z3+4._iwp*  &
      pr*z4*y3*z1*y4
      s7 = -2._iwp*z4*x3*z1*x4-2._iwp*x4*y3*x1*y4-1._iwp*z4**2*x3**2-1._iwp*x1**  &
      2*y3**2-2._iwp*z4**2*y3**2-1._iwp*x4**2*z3**2-1._iwp*z1**2*x4**2-2._iwp*x4  &
      *y3*y1*x3-2._iwp*y4*x3*x1*y3-2._iwp*y4*x3*y1*x4-4._iwp*y4*z3*y1*z4-4._iwp*  &
      y4*z3*z1*y3+2._iwp*x1*z3*z1*x3-2._iwp*x4*z3*x1*z4-2._iwp*x4*z3*z1*x3+4._iwp  &
      *y1*z3*z1*y3-4._iwp*y1*z3*z1*y4-4._iwp*pr*y4*z3**2*y1-4._iwp*pr*y4**2*z3  &
      *z1-4._iwp*pr*z4**2*y3*y1-4._iwp*x4*z3**2*x1*pr-4._iwp*x4**2*z3*z1*pr-4._iwp  &
      *z4**2*x3*x1*pr-4._iwp*z4*x3**2*z1*pr-4._iwp*x4*y3**2*x1*pr+4._iwp*y4  &
      *z3*z4*y3-1._iwp*z1**2*x3**2+2._iwp*y1**2*x4**2*pr+2._iwp*x4*z3**2*x1+2._iwp  &
      *x4**2*z3*z1+2._iwp*z4**2*x3*x1+2._iwp*z4*x3**2*z1
      s5 = s7+2._iwp*x4*y3**2*x1+2._iwp*x4**2*y3*y1+2._iwp*y4**2*x3*x1+2._iwp*y4  &
      *x3**2*y1+4._iwp*y4**2*z3*z1+2._iwp*x4**2*z3**2*pr+2._iwp*z4**2*x3**2*pr  &
      -2._iwp*y1**2*z3**2-4._iwp*x4**2*y3*y1*pr-4._iwp*y4**2*x3*x1*pr-4._iwp*y4*  &
      x3**2*y1*pr+2._iwp*x4*z3*z4*x3+2._iwp*x4*y3*y4*x3-4._iwp*z4*y3*y1*z3-4._iwp  &
      *z4*y3*z1*y4-2._iwp*x1*z3*z1*x4-4._iwp*pr*y1**2*z3*z4-4._iwp*x1**2*z3*z4  &
      *pr-4._iwp*z1**2*x3*x4*pr-4._iwp*x1**2*y3*y4*pr-4._iwp*y1**2*x3*x4*pr+2._iwp  &
      *pr*y1**2*z4**2+s6+4._iwp*z1**2*y3*y4-1._iwp*x1**2*z4**2-1._iwp*x1**2  &
      *z3**2+4._iwp*z4**2*y3*y1+4._iwp*z4*y3**2*z1+2._iwp*pr*z1**2*y3**2+2._iwp*  &
      x1**2*z3*z4+2._iwp*z1**2*x3*x4+4._iwp*y1**2*z3*z4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,4) = t0

      t0 = 1._iwp/12._iwp*ym*(-1._iwp*y1*z3+y1*z4+y4*z3+z1*y3-1._iwp*z1*y4-  &
      1._iwp*z4*y3)*(x1*z3-1._iwp*x1*z4-1._iwp*x4*z3-1._iwp*z1*x3+z1*x4+z4*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(4,5) = t0

      t0 = -1._iwp/12._iwp*ym*(-1._iwp*y1*z3+y1*z4+y4*z3+z1*y3-1._iwp*z1*y4  &
      -1._iwp*z4*y3)*(x1*y3-1._iwp*x1*y4-1._iwp*x4*y3-1._iwp*y1*x3+y1*x4+y4*x3)/  &
      (x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4  &
      *z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3  &
      -1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2  &
      *z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(4,6) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*x1**2*y3*y4*pr+x1**2*z4*z2+2._iwp*y2*x4*x1*y4*pr+2._iwp*pr*  &
      z1**2*y4**2+2._iwp*z2*y4*z4*y3+2._iwp*y2*z4*y4*z3+2._iwp*x1**2*z4**2*pr-  &
      2._iwp*y1**2*x3*x4*pr+2._iwp*pr*y2*z4**2*y3-2._iwp*pr*z3*y1*z1*y2+2._iwp*pr  &
      *y1**2*z4**2+2._iwp*x4**2*y3*y2*pr+y1**2*x3*x4+2._iwp*pr*y2*z3*y1*z4+  &
      2._iwp*z1**2*y4*y2+2._iwp*x2*z4**2*x3*pr+2._iwp*x2*y4**2*x3*pr+2._iwp*x4**  &
      2*z3*z2*pr+2._iwp*pr*y4**2*z3*z2+2._iwp*x2*y4*y1*x4*pr+2._iwp*y1**2*z3*z4  &
      -1._iwp*x2*y3*x1*y4+2._iwp*y4*x3*y1*x4*pr+2._iwp*pr*y1*z4*z1*y3
      s7 = -1._iwp*z4*x3*z1*x4-1._iwp*z2*x4*x1*z4+2._iwp*z2*x4*x1*z3-1._iwp*x1**  &
      2*z4**2+2._iwp*z4*x3*z1*x4*pr-4._iwp*pr*y1*z4*z1*y4-1._iwp*x4*y3*x1*y4-1._iwp  &
      *x2*y4*y1*x4+2._iwp*x2*y4*y1*x3-1._iwp*x2*y3*y1*x4+2._iwp*y2*x4*x1*y3  &
      -1._iwp*y2*x3*y1*x4-1._iwp*y2*x3*x1*y4+2._iwp*y1**2*x4**2*pr-1._iwp*x2*y4**  &
      2*x3+2._iwp*x2*z3*x1*z4*pr+2._iwp*z1**2*x4**2*pr-1._iwp*y4*x3*y1*x4-1._iwp  &
      *y2*x4*x1*y4+x1**2*z3*z4-2._iwp*y2*z4*z1*y4+4._iwp*y2*z4*z1*y3-2._iwp*y2  &
      *z3*z1*y4-2._iwp*y2*z3*y1*z4-1._iwp*x4**2*z3*z2+s8
      s8 = x1**2*y3*y4+2._iwp*x1**2*y4**2*pr+2._iwp*x2*z3*z1*x4*pr+z1**2*x3*  &
      x4+y2*x4**2*y1+x4**2*y3*y1+z4**2*x3*x1+z2*x4**2*z1+2._iwp*x4*y3*x1*y4  &
      *pr-1._iwp*z1**2*x3*x2+2._iwp*y4**2*z3*z1+2._iwp*y2*z4**2*y1+2._iwp*pr*y1  &
      *z4*z1*y2+y4**2*x3*x1-2._iwp*y4*z3*y1*z4-1._iwp*x4**2*y3*y2-1._iwp*x2*z4  &
      **2*x3-4._iwp*x2*z4*z1*x3*pr+y1**2*x4*x2-1._iwp*y1**2*x3*x2+x1**2*y4*y2  &
      -1._iwp*x1**2*y3*y2+z1**2*x4*x2-2._iwp*y1**2*z3*z2-2._iwp*y4**2*z3*z2
      s6 = -2._iwp*y2*z4**2*y3+2._iwp*x1*y4*y1*x3*pr+2._iwp*z4**2*y3*y1+2._iwp*z2  &
      *y4**2*z1+x2*y4**2*x1-2._iwp*z1**2*y3*y2+2._iwp*y1**2*z4*z2-1._iwp*x4*z3  &
      *x1*z4-1._iwp*x2*z4*z1*x4+2._iwp*x2*z4*z1*x3-1._iwp*x2*z3*z1*x4-1._iwp*x2  &
      *z3*x1*z4-1._iwp*y1**2*x4**2+2._iwp*x2*z4*z1*x4*pr-2._iwp*z1**2*y4**2-2._iwp  &
      *pr*y2*z4**2*y1+2._iwp*x2*y3*x1*y4*pr-2._iwp*y1*z3*z1*y4+2._iwp*y2*x3*  &
      x1*y4*pr-1._iwp*z2*x3*z1*x4-1._iwp*z2*x3*x1*z4+s7-2._iwp*pr*y4**2*z3*z1+  &
      2._iwp*x4*z3*x1*z4*pr-2._iwp*pr*z4**2*y3*y1-2._iwp*pr*z2*y4**2*z1+s8
      s8 = -2._iwp*z4**2*x3*x1*pr-2._iwp*z2*x4**2*z1*pr-2._iwp*x4**2*z3*z1*pr-  &
      2._iwp*x2*z4**2*x1*pr+2._iwp*z2*x3*x1*z4*pr+x2*z4*x4*z3-2._iwp*x2*y4**2*  &
      x1*pr-2._iwp*y4**2*x3*x1*pr-2._iwp*y2*x4**2*y1*pr-2._iwp*x4**2*y3*y1*pr+  &
      2._iwp*x1*z3*z1*x4*pr+y2*x4*y4*x3+x2*y4*x4*y3+z2*x4*z4*x3+2._iwp*y2*x3  &
      *y1*x4*pr+4._iwp*z2*y4*y1*z3+2._iwp*z2*x3*z1*x4*pr+2._iwp*z1**2*y3*y4-2._iwp  &
      *z2*y3*z1*y4-2._iwp*z2*y3*y1*z4-2._iwp*z2*y4*y1*z4+x1*y3*y1*x2-1._iwp*  &
      z1*x4*x1*z2+z1*x3*x1*z2-1._iwp*x1*z4*z1*x2
      s7 = x1*z3*z1*x2-1._iwp*x1*z3*z1*x4-2._iwp*z4*y3*z1*y4-2._iwp*z1**2*x3*x4  &
      *pr-2._iwp*x1**2*z3*z4*pr-2._iwp*pr*z1**2*y3*y4-2._iwp*pr*y1**2*z3*z4-1._iwp  &
      *x1*y4*y1*x2-4._iwp*x1*y4*y1*x4*pr+2._iwp*pr*y2*z3*z1*y4-1._iwp*x1**2  &
      *z3*z2+2._iwp*pr*y1*z3*z1*y4-2._iwp*x2*z4*x4*z3*pr+4._iwp*y1*z4*z1*y4-2._iwp  &
      *y1*z4*z1*y3+x4**2*z3*z1+2._iwp*x2*y3*y1*x4*pr-4._iwp*pr*y2*z4*z1*y3  &
      +s8+x2*z4**2*x1+2._iwp*x1**2*z3*z2*pr-2._iwp*pr*z1**2*y4*y2+2._iwp*pr*y3  &
      *z1**2*y2-2._iwp*z2*x4*z4*x3*pr-2._iwp*pr*y1**2*z4*z2+2._iwp*pr*z3*y1**2  &
      *z2
      s8 = s7-2._iwp*z1*y4*y1*z2+2._iwp*z1*y3*y1*z2-2._iwp*y1*z4*z1*y2+2._iwp*y1  &
      *z3*z1*y2-1._iwp*y1*x4*x1*y2+y1*x3*x1*y2+2._iwp*x1**2*y3*y2*pr-2._iwp*pr  &
      *y2*z4*y4*z3+2._iwp*x1*z4*z1*x3*pr-2._iwp*x2*y4*x4*y3*pr-2._iwp*z1**2*x4  &
      *x2*pr+2._iwp*z1**2*x3*x2*pr-2._iwp*x1**2*z4*z2*pr+2._iwp*pr*y2*z4*z1*y4  &
      -2._iwp*y2*x4*y4*x3*pr-2._iwp*x1**2*y4*y2*pr-2._iwp*x1*z3*z1*x2*pr+2._iwp*  &
      x1*z4*z1*x2*pr+2._iwp*pr*y4*z3*y1*z4-2._iwp*y1**2*x4*x2*pr+2._iwp*y1**2*  &
      x3*x2*pr-2._iwp*z1*x3*x1*z2*pr-4._iwp*z2*x4*x1*z3*pr+2._iwp*pr*z2*y3*y1*  &
      z4
      s5 = s8+2._iwp*z1*x4*x1*z2*pr-2._iwp*x1*y3*y1*x2*pr+2._iwp*x1*y4*y1*x2*pr  &
      +2._iwp*pr*z2*y3*z1*y4-2._iwp*y1*x3*x1*y2*pr-4._iwp*pr*z2*y4*y1*z3-2._iwp  &
      *pr*z2*y4*z4*y3+2._iwp*y1*x4*x1*y2*pr-4._iwp*x2*y4*y1*x3*pr-2._iwp*pr*y3  &
      *z1*y1*z2+2._iwp*pr*z1*y4*y1*z2+2._iwp*pr*z2*y4*y1*z4-4._iwp*x1*z4*z1*x4  &
      *pr-1._iwp*x1*z4*z1*x3+2._iwp*z2*x4*x1*z4*pr+2._iwp*pr*z4*y3*z1*y4+2._iwp*  &
      x1*z4*z1*x4-1._iwp*x1*y3*y1*x4+2._iwp*x1*y3*y1*x4*pr-4._iwp*y2*x4*x1*y3*  &
      pr-1._iwp*x1*y4*y1*x3+s6-2._iwp*y1**2*z4**2-1._iwp*x1**2*y4**2-1._iwp*z1**  &
      2*x4**2+2._iwp*x1*y4*y1*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,7) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1*z4*z1*y2*pr+2._iwp*pr*y1*z4*z1*x2-2._iwp*pr*y1*z3*z1*x2+  &
      2._iwp*pr*y1*z3*z1*x4-2._iwp*pr*z1*y3*x1*z2+2._iwp*pr*z1*y3*x1*z4-2._iwp*z4  &
      *x3*z1*y4*pr+z2*x3*y1*z4+z4*x3*z1*y4+2._iwp*x2*z4**2*y3*pr-2._iwp*x2*  &
      z4**2*y1*pr+2._iwp*z4**2*x3*y1*pr-1._iwp*z1*y4*x1*z4-2._iwp*pr*z1**2*y3*  &
      x4-2._iwp*pr*z1**2*y4*x2-1._iwp*y4*z3*x1*z2-1._iwp*x1*z3*z1*y2+x1*z3*z1*  &
      y4+x1*z4*z1*y2+x4*z3*y1*z4
      s6 = s7+y2*z4*z1*x4-1._iwp*z2*x4*y1*z3-2._iwp*pr*y2*z3*x1*z4-2._iwp*pr*y2  &
      *z3*z1*x4-2._iwp*z1*x3*y1*z4*pr+2._iwp*z1*x3*y1*z2*pr-2._iwp*z1*x4*y1*z2  &
      *pr+2._iwp*x2*z3*y1*z4*pr+2._iwp*x2*z3*z1*y4*pr+z2*y4*x4*z3+z2*y4*z1*  &
      x3-1._iwp*z2*y4*z1*x4+2._iwp*pr*y2*z4**2*x1-2._iwp*pr*y2*z4**2*x3-2._iwp*pr  &
      *z4**2*y3*x1+2._iwp*z1**2*x3*y4*pr-1._iwp*x4*z3*y2*z4-1._iwp*z4*x3*z2*y4  &
      -2._iwp*z4*x3*z1*y2+2._iwp*z1**2*x4*y2*pr
      s7 = y2*z3*z1*x4+y1*z3*x1*z2-1._iwp*y1*z3*x1*z4-1._iwp*y1*z4*x1*z2-1._iwp  &
      *y1*z4*z1*x4+y2*z4*x1*z3+2._iwp*pr*z1**2*y3*x2+z1**2*y4*x4+z1*x4*y1  &
      *z2-2._iwp*z1**2*x3*y2*pr+z1*x3*y1*z4-1._iwp*y4*z3*z1*x4-2._iwp*x2*z4*y4  &
      *z3*pr-4._iwp*x2*z4*z1*y3*pr-2._iwp*x4*z3*y1*z4*pr+2._iwp*pr*z2*y3*z1*x4  &
      +2._iwp*x2*z4*z1*y4*pr+2._iwp*pr*y2*z4*x4*z3+z4**2*x3*y2+y1*z4**2*x1+z1  &
      **2*x3*y2
      s5 = s7-1._iwp*z4**2*x3*y1-1._iwp*z1*x3*y1*z2-1._iwp*y2*z4**2*x1-1._iwp*z1  &
      **2*x4*y2-1._iwp*z1**2*x3*y4-2._iwp*pr*z2*y4*x1*z4+2._iwp*pr*z2*y4*z4*x3  &
      -2._iwp*z2*x3*y1*z4*pr+2._iwp*pr*z4*y3*z1*x4-2._iwp*pr*y2*z4*z1*x4+4._iwp*  &
      pr*y2*z4*z1*x3+2._iwp*z2*x4*y1*z4*pr+2._iwp*x1*z3*z1*y2*pr-2._iwp*z2*x4*  &
      z4*y3*pr-2._iwp*z2*y4*z1*x3*pr+2._iwp*pr*z1*y4*x1*z2+z2*y4*x1*z4+s6-2._iwp  &
      *x1*z3*z1*y4*pr+2._iwp*pr*y4*z3*x1*z4+2._iwp*pr*z2*y3*x1*z4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,8) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1*y3*y1*z4*pr-2._iwp*x1*y4*y1*z2*pr+2._iwp*y1*x3*z1*y2*pr+  &
      2._iwp*pr*z2*y4*x4*y3+4._iwp*pr*z2*y4*y1*x3-2._iwp*y1*x3*z1*y4*pr-2._iwp*y1  &
      *x4*z1*y2*pr-1._iwp*y2*z4*x1*y3+y2*z4*x1*y4-1._iwp*z1*y4*x1*y2-1._iwp*z1  &
      *y4*y1*x4+2._iwp*pr*y1**2*z3*x2-2._iwp*pr*y1**2*z3*x4-2._iwp*pr*y1**2*z4  &
      *x2-1._iwp*x1*y3*y1*z2+x1*y3*y1*z4-2._iwp*y4*x3*y1*z4*pr+2._iwp*x2*y3*y1  &
      *z4*pr-2._iwp*pr*z2*y4*y1*x4-4._iwp*x2*y4*y1*z3*pr
      s6 = s7+2._iwp*x2*y4*y1*z4*pr-2._iwp*x2*y4*z4*y3*pr-2._iwp*x4*y3*z1*y4*pr  &
      -2._iwp*y2*x3*z1*y4*pr-2._iwp*y2*x4*y4*z3*pr-1._iwp*y2*z4*y4*x3+z2*y3*y1  &
      *x4-1._iwp*z2*y4*x4*y3-2._iwp*z2*y4*y1*x3-1._iwp*z4*y3*y1*x4-2._iwp*pr*y4  &
      **2*z3*x1+2._iwp*pr*z2*y4**2*x1-2._iwp*pr*z2*y4**2*x3+x4*y3*z1*y4+y2*x3  &
      *z1*y4+2._iwp*pr*y2*z3*y1*x4-1._iwp*z2*y4**2*x1+y1**2*x3*z2+z1*y4**2*  &
      x1+x1*y4*y1*z2
      s7 = -1._iwp*y1*x3*z1*y2+y1*x3*z1*y4+y1*x4*z1*y2-2._iwp*y1**2*x3*z2*pr  &
      +2._iwp*y1**2*x3*z4*pr+2._iwp*y1**2*x4*z2*pr+z2*y3*x1*y4+z2*y4*y1*x4-1._iwp  &
      *y1*z4*x1*y4+z1*y3*x1*y2-1._iwp*z1*y3*x1*y4-1._iwp*y2*x4*z1*y3+y4*x3  &
      *y1*z4-2._iwp*x2*y4**2*z1*pr+2._iwp*x2*y4**2*z3*pr+2._iwp*y4**2*x3*z1*pr  &
      +y2*z4*x4*y3+y2*z4*y1*x3-1._iwp*y2*z4*y1*x4-2._iwp*pr*y2*z4*x1*y4+z2*  &
      y4**2*x3
      s5 = s7-1._iwp*y4**2*x3*z1+y1**2*z4*x4-1._iwp*y1**2*x3*z4+2._iwp*y2*x4*z1  &
      *y4*pr+2._iwp*pr*z1*y3*y1*x4+2._iwp*pr*y4*z3*y1*x4-1._iwp*y1**2*x4*z2-2._iwp  &
      *pr*y2*z4*y1*x3+2._iwp*pr*y2*z4*y4*x3-2._iwp*pr*z2*y3*x1*y4-2._iwp*pr  &
      *z2*y3*y1*x4+2._iwp*pr*z1*y4*y1*x2-2._iwp*pr*y1*z3*x1*y2+2._iwp*pr*y1*z3  &
      *x1*y4+s6+2._iwp*pr*y1*z4*x1*y2-2._iwp*pr*z1*y3*y1*x2+2._iwp*pr*y2*z3*x1  &
      *y4+2._iwp*pr*z4*y3*x1*y4+2._iwp*x2*y3*z1*y4*pr+2._iwp*x1*y3*y1*z2*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,9) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = -4._iwp*y1*z3*z1*y3+2._iwp*pr*y4*z3**2*y1+2._iwp*y1*z3*z1*y4-2._iwp*x1  &
      *z3*z1*x2*pr+2._iwp*x1*z4*z1*x2*pr-2._iwp*z1*x3*x1*z2*pr-2._iwp*z1**2*y3  &
      *y4-2._iwp*pr*y1**2*z3**2-2._iwp*y1**2*x3**2*pr-1._iwp*z2*x3**2*z1-1._iwp  &
      *z4*x3**2*z1-1._iwp*x4*y3**2*x1-1._iwp*y2*x3**2*y1-2._iwp*y2*z3**2*y1-2._iwp  &
      *y4*z3**2*y1-2._iwp*z2*y3**2*z1+z1**2*x4*x2-1._iwp*x1**2*y3*y2+x1**2  &
      *y4*y2+y1**2*x4*x2+x2*z3**2*x4+y2*x3**2*y4+2._iwp*y2*z3**2*y4-2._iwp*y1  &
      **2*z3*z2
      s7 = 2._iwp*y1**2*z4*z2-2._iwp*z1**2*y3*y2+2._iwp*z1**2*y4*y2+y1**2*x3**  &
      2+2._iwp*x4*z3*z2*x3*pr+4._iwp*x2*y3*y1*x4*pr+2._iwp*x2*y3*y4*x3*pr+2._iwp  &
      *x4*y3*y2*x3*pr+4._iwp*z2*x3*x1*z4*pr+2._iwp*y1**2*z3**2+x1**2*y3**2+2._iwp  &
      *z1**2*y3**2-2._iwp*z2*x3*z1*x4*pr-2._iwp*pr*y2*z3*z1*y3+4._iwp*pr*y2  &
      *z3*z1*y4+x2*y3*x1*y4+x2*y3*y1*x3-2._iwp*x2*y3*y1*x4+x2*y4*y1*x3+x4*  &
      y3*y1*x3+y2*x3*x1*y3-2._iwp*y2*x3*x1*y4+y2*x3*y1*x4+y2*x4*x1*y3+y4*x3  &
      *x1*y3+s8
      s8 = 2._iwp*y2*z3*y1*z4+2._iwp*y2*z3*z1*y3-4._iwp*y2*z3*z1*y4+2._iwp*y2*z4  &
      *z1*y3+2._iwp*y4*z3*z1*y3-2._iwp*x1*z3*z1*x3+x2*z3*x1*z4+x2*z3*z1*x3-2._iwp  &
      *x2*z3*z1*x4+x2*z4*z1*x3+x4*z3*z1*x3+z2*x3*x1*z3-2._iwp*z2*x3*x1*  &
      z4+z2*x3*z1*x4+2._iwp*pr*z1*y4*y1*z2+4._iwp*x1*z3*z1*x3*pr-2._iwp*pr*z3*  &
      y1*z1*y2+s7-2._iwp*pr*z2*y3**2*z4-2._iwp*z2*x3**2*z4*pr-2._iwp*x2*y3**2*  &
      x4*pr-2._iwp*x2*z3**2*x4*pr-2._iwp*y2*x3**2*y4*pr+z2*x4*x1*z3+z4*x3*x1  &
      *z3
      s6 = -2._iwp*x2*y4*y1*x3*pr-2._iwp*x4*y3*y1*x3*pr-2._iwp*z2*x4*x1*z3*pr-  &
      2._iwp*z4*x3*x1*z3*pr-1._iwp*x4*y3*y2*x3+2._iwp*x1**2*y3*y4*pr+2._iwp*y1**  &
      2*x3*x4*pr+x1**2*z3**2+2._iwp*z2*y3**2*z4-1._iwp*x2*y3**2*x1-2._iwp*x1**  &
      2*y3**2*pr+x2*y3**2*x4-1._iwp*x2*z3**2*x1-1._iwp*y4*x3**2*y1-1._iwp*z1**  &
      2*x3*x2-2._iwp*y2*z3*z4*y3-2._iwp*x2*y3*x1*y4*pr-2._iwp*x2*y3*y1*x3*pr+2._iwp  &
      *z2*y3*y1*z3-2._iwp*pr*y1*z4*z1*y3-2._iwp*y4*z3*z2*y3+s8+x1*z4*z1*x3  &
      +x1*y3*y1*x4+x1*y4*y1*x3+2._iwp*y1*z4*z1*y3+y1*x3*x1*y2
      s8 = -1._iwp*y1*x4*x1*y2+2._iwp*y1*z3*z1*y2-2._iwp*y1*z4*z1*y2+2._iwp*z1*y3  &
      *y1*z2+2._iwp*pr*y1*z4*z1*y2-1._iwp*x4*z3**2*x1-1._iwp*y1**2*x3*x2-2._iwp  &
      *z1**2*x3**2*pr-2._iwp*pr*y2*z4*z1*y3-2._iwp*pr*y4*z3*z1*y3-2._iwp*pr*z2  &
      *y3*y1*z3+z1**2*x3**2-2._iwp*y2*x3*x1*y3*pr+4._iwp*y2*x3*x1*y4*pr+2._iwp  &
      *z1*x4*x1*z2*pr-2._iwp*x1*y3*y1*x2*pr-2._iwp*z4*y3**2*z1-2._iwp*pr*y2*z3  &
      **2*y4+2._iwp*x2*z3*z4*x3*pr+2._iwp*pr*y2*z3*z4*y3+2._iwp*pr*y4*z3*z2*y3  &
      -2._iwp*y2*x4*x1*y3*pr-2._iwp*x1*z3*z1*x4*pr-2._iwp*x1*z4*z1*x3*pr+4._iwp*  &
      x1*y3*y1*x3*pr
      s7 = s8-2._iwp*pr*y2*z3*y1*z4-2._iwp*x1*y3*y1*x3+2._iwp*x1*y4*y1*x2*pr-2._iwp  &
      *y1*x3*x1*y2*pr+2._iwp*y1*x4*x1*y2*pr-2._iwp*pr*y3*z1*y1*z2-2._iwp*y4  &
      *x3*x1*y3*pr-2._iwp*z1*y4*y1*z2+2._iwp*pr*z3*y1**2*z2-2._iwp*pr*y1**2*z4  &
      *z2+2._iwp*pr*y3*z1**2*y2-2._iwp*pr*z1**2*y4*y2+2._iwp*x1**2*z3*z2*pr-2._iwp  &
      *x1**2*z4*z2*pr+2._iwp*z1**2*x3*x2*pr-2._iwp*z1**2*x4*x2*pr+2._iwp*x1**  &
      2*y3*y2*pr-2._iwp*x1**2*y4*y2*pr+2._iwp*y1**2*x3*x2*pr-2._iwp*y1**2*x4*  &
      x2*pr+4._iwp*pr*z2*y3*y1*z4-2._iwp*x2*z3*x1*z4*pr-2._iwp*x2*z3*z1*x3*pr+  &
      s6+4._iwp*x2*z3*z1*x4*pr
      s8 = s7+2._iwp*pr*z2*y3**2*z1+2._iwp*x2*y3**2*x1*pr+2._iwp*x2*z3**2*x1*pr  &
      +2._iwp*x4*z3**2*x1*pr+2._iwp*z2*x3**2*z1*pr+2._iwp*z4*x3**2*z1*pr+2._iwp  &
      *x4*y3**2*x1*pr+2._iwp*y2*x3**2*y1*pr+2._iwp*y4*x3**2*y1*pr-1._iwp*x2*z3  &
      *z4*x3-1._iwp*x4*z3*z2*x3-1._iwp*x2*y3*y4*x3-4._iwp*z2*y3*y1*z4+2._iwp*z2*  &
      y3*z1*y4+2._iwp*z2*y4*y1*z3+2._iwp*z4*y3*y1*z3+2._iwp*pr*y2*z3**2*y1+x1*  &
      z3*z1*x4+x1*z3*z1*x2-1._iwp*x1*z4*z1*x2+z1*x3*x1*z2-1._iwp*z1*x4*x1*z2  &
      +x1*y3*y1*x2-1._iwp*x1*y4*y1*x2
      s5 = s8+2._iwp*pr*y1**2*z3*z4+2._iwp*pr*z1**2*y3*y4+2._iwp*x1**2*z3*z4*pr  &
      +2._iwp*z1**2*x3*x4*pr+2._iwp*pr*z4*y3**2*z1-2._iwp*y2*x3*y1*x4*pr-2._iwp  &
      *x2*z4*z1*x3*pr-2._iwp*pr*z2*y3*z1*y4-2._iwp*pr*z2*y4*y1*z3-2._iwp*pr*z4  &
      *y3*y1*z3-1._iwp*x1**2*z3*z2+x1**2*z4*z2-2._iwp*pr*z1**2*y3**2-1._iwp*x1  &
      **2*z3*z4-1._iwp*z1**2*x3*x4-1._iwp*x1**2*y3*y4-1._iwp*y1**2*x3*x4-2._iwp*  &
      x1**2*z3**2*pr+z2*x3**2*z4-2._iwp*y1**2*z3*z4-2._iwp*x1*y3*y1*x4*pr-2._iwp  &
      *x1*y4*y1*x3*pr+4._iwp*pr*y1*z3*z1*y3-2._iwp*pr*y1*z3*z1*y4-2._iwp*x4*  &
      z3*z1*x3*pr-2._iwp*z2*x3*x1*z3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,10) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = z1*x3*y1*z2+2._iwp*pr*z2*y4*x1*z3-2._iwp*pr*y1*z3*z1*x4+2._iwp*x2*z3  &
      *y1*z4*pr+2._iwp*pr*z4*y3*x1*z3-2._iwp*pr*y1*z4*z1*x2+2._iwp*z2*x3*y1*z3  &
      *pr+4._iwp*pr*y2*z3*z1*x4+2._iwp*x2*z3*z1*y3*pr+x4*z3**2*y2+2._iwp*pr*z1  &
      *y3*x1*z2+y1*z3**2*x1-4._iwp*x2*z3*z1*y4*pr+z1**2*y3*x3-1._iwp*y2*z3**  &
      2*x1-1._iwp*z1**2*y3*x4-2._iwp*x2*z3*z4*y3*pr-1._iwp*x4*z3**2*y1+z1**2*  &
      x4*y2-1._iwp*z1**2*x3*y2
      s6 = s7+2._iwp*x2*z4*z1*y3*pr+2._iwp*z2*y4*z1*x3*pr-1._iwp*x4*z3*z2*y3+2._iwp  &
      *z1**2*x3*y2*pr-2._iwp*z2*x3*y4*z3*pr+2._iwp*pr*y2*z3*z4*x3-2._iwp*z2  &
      *x4*y1*z3*pr-2._iwp*x1*z3*z1*y2*pr-1._iwp*z4*y3*z1*x3+z2*y3*z4*x3+z2*y3  &
      *z1*x4-1._iwp*z2*y3*z1*x3-2._iwp*pr*z1*y3*x1*z4-1._iwp*z4*x3*y2*z3-2._iwp  &
      *pr*y4*z3**2*x1-2._iwp*pr*y2*z3**2*x4+2._iwp*pr*y2*z3**2*x1-2._iwp*z1**2  &
      *x4*y2*pr-2._iwp*pr*y2*z4*z1*x3+z4*x3*z1*y2
      s7 = -2._iwp*z1**2*x3*y4*pr-2._iwp*y2*z3*z1*x4+y1*z4*x1*z2+y1*z3*z1*x4  &
      -1._iwp*y1*z3*x1*z4-1._iwp*y1*z3*x1*z2-2._iwp*x4*z3*z1*y3*pr-1._iwp*z1*y3*  &
      x1*z3+z2*x4*y1*z3-1._iwp*z2*x3*y1*z4+2._iwp*x1*z3*z1*y4*pr-2._iwp*pr*z1**  &
      2*y3*x2+y2*z4*x1*z3+y2*z3*z1*x3+z1*y3*x1*z4+2._iwp*pr*z1**2*y3*x4-2._iwp  &
      *x2*z3**2*y1*pr+2._iwp*x4*z3**2*y1*pr+2._iwp*x2*z3**2*y4*pr+z4*x3*y1  &
      *z3-2._iwp*pr*z1*y4*x1*z2
      s5 = s7-1._iwp*z4*y3*x1*z2-1._iwp*x1*z4*z1*y2+x1*z3*z1*y2+z2*y3*x1*z3-  &
      1._iwp*y1*z3*z1*x3+2._iwp*pr*z1**2*y4*x2+x4*z3*z1*y3+2._iwp*x1*z4*z1*y2*  &
      pr-1._iwp*z1*x4*y1*z2-2._iwp*pr*z2*y3*z1*x4-2._iwp*z1*x3*y1*z2*pr+2._iwp*z1  &
      *x4*y1*z2*pr+2._iwp*pr*y4*z3*z1*x3-2._iwp*pr*y2*z3*x1*z4-2._iwp*pr*z2*y3  &
      *x1*z3-2._iwp*z4*x3*y1*z3*pr+2._iwp*z1*x3*y1*z4*pr+2._iwp*pr*z2*y3*x4*z3  &
      -2._iwp*pr*y2*z3*z1*x3+s6+2._iwp*pr*y1*z3*z1*x2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,11) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*y1*x3*z1*y2*pr-2._iwp*x2*y4*y1*z3*pr+2._iwp*x4*y3*y1*z3*pr-2._iwp  &
      *y2*x3*z1*y3*pr+2._iwp*y2*x3*z4*y3*pr-2._iwp*y1*x4*z1*y2*pr-2._iwp*y1  &
      *x3*z1*y4*pr+2._iwp*pr*y2*z3*x1*y3+z1*y3*x1*y2+z1*y3*x1*y4-1._iwp*y2*x4  &
      *z1*y3-1._iwp*y4*x3*z1*y3-2._iwp*x4*y3**2*z1*pr+2._iwp*x2*y3**2*z1*pr-2._iwp  &
      *x2*y3**2*z4*pr+y2*z3*y1*x3-1._iwp*y2*z3*y1*x4-1._iwp*y2*z3*y4*x3+y4  &
      *z3*y1*x3+2._iwp*pr*y2*z3*y1*x4
      s6 = s7-2._iwp*x2*y3*z1*y4*pr+2._iwp*pr*z1*y3*y1*x4+x4*y3**2*z1-1._iwp*y1  &
      **2*z3*x3+z2*y3**2*x1-1._iwp*z1*y3**2*x1-2._iwp*pr*y4*z3*x1*y3+y1**2*  &
      x4*z3-2._iwp*pr*y2*z4*x1*y3-2._iwp*pr*y2*z4*y1*x3-1._iwp*x4*y3**2*z2-1._iwp  &
      *y1**2*x4*z2+y1**2*x3*z2+2._iwp*y2*x4*z1*y3*pr-2._iwp*pr*y2*z3*x4*y3+  &
      2._iwp*y4*x3*z1*y3*pr+2._iwp*pr*z1*y4*y1*x2+2._iwp*pr*z2*y3*x1*y4-2._iwp*pr  &
      *y1*z3*x1*y2-2._iwp*x2*y3*y1*z3*pr
      s7 = 2._iwp*pr*z2*y3*y1*x3+2._iwp*x2*y3*y4*z3*pr+4._iwp*x2*y3*y1*z4*pr+2._iwp  &
      *pr*y1*z3*x1*y4+2._iwp*z2*y3*y1*x4-1._iwp*z2*y4*y1*x3-2._iwp*pr*z2*y3  &
      **2*x1+2._iwp*pr*z2*y3**2*x4+2._iwp*pr*z4*y3**2*x1-1._iwp*x4*y3*y1*z3+y2  &
      *x3*z1*y4+2._iwp*pr*y1*z4*x1*y2-4._iwp*pr*z2*y3*y1*x4-2._iwp*pr*z2*y3*y4  &
      *x3-1._iwp*y2*z3*x1*y3+y2*z3*x1*y4+2._iwp*pr*z2*y4*y1*x3+y1*z3*x1*y3-2._iwp  &
      *pr*z1*y3*y1*x2+2._iwp*x1*y3*y1*z2*pr-2._iwp*x1*y3*y1*z4*pr
      s5 = s7-2._iwp*pr*y1**2*z3*x4+2._iwp*pr*y1**2*z3*x2-1._iwp*z1*y4*x1*y2+z1  &
      *y3*y1*x3-1._iwp*y1*x3*z1*y2-1._iwp*y1*x4*z1*y3-1._iwp*x1*y4*y1*z3+x1*y4  &
      *y1*z2-1._iwp*x1*y3*y1*z2-2._iwp*pr*y1**2*z4*x2-2._iwp*x1*y4*y1*z2*pr-2._iwp  &
      *pr*z4*y3*y1*x3+y1*x4*z1*y2-2._iwp*y1**2*x3*z2*pr-1._iwp*z2*y3*x1*y4  &
      +2._iwp*y1**2*x4*z2*pr+2._iwp*y1**2*x3*z4*pr+s6-1._iwp*z2*y3*y1*x3+x4*y3  &
      *y2*z3+y4*x3*z2*y3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(4,12) = t0


km(5,1) = km(1,5)


km(5,2) = km(2,5)


km(5,3) = km(3,5)


km(5,4) = km(4,5)


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -4._iwp*pr*y1*z3*z1*y3+4._iwp*pr*y1*z3*z1*y4-2._iwp*z1**2*x4**2-4._iwp  &
      *pr*y4*z3*z4*y3-1._iwp*z4**2*y3**2-2._iwp*x4**2*z3**2-1._iwp*y4**2*x3**  &
      2+4._iwp*y4*x3*x1*y3*pr-2._iwp*x1**2*z3**2-1._iwp*y4**2*z3**2+4._iwp*x1*z3  &
      *z1*x3-4._iwp*x4*z3*x1*z4-4._iwp*x4*z3*z1*x3+2._iwp*y1*z3*z1*y3-2._iwp*y1*  &
      z3*z1*y4-4._iwp*pr*y4*z3**2*y1-4._iwp*pr*y4**2*z3*z1-4._iwp*pr*z4**2*y3*  &
      y1-4._iwp*pr*z4*y3**2*z1-4._iwp*x4*z3**2*x1*pr-4._iwp*x4**2*z3*z1*pr-4._iwp  &
      *z4**2*x3*x1*pr-4._iwp*z4*x3**2*z1*pr-4._iwp*x4*y3**2*x1*pr-4._iwp*x4**  &
      2*y3*y1*pr+2._iwp*x1*y4*y1*x4-2._iwp*y1*z4*z1*y3+2._iwp*y1*z4*z1*y4+4._iwp  &
      *y4*x3*y1*x4*pr+4._iwp*x4*z3*x1*z4*pr-4._iwp*x4*z3*z4*x3*pr
      s6 = s7-4._iwp*y4**2*x3*x1*pr-4._iwp*y4*x3**2*y1*pr+4._iwp*x4*z3*z4*x3+2._iwp  &
      *x4*y3*y4*x3-2._iwp*z4*y3*y1*z3-2._iwp*z4*y3*z1*y4-4._iwp*x1*z3*z1*x4  &
      -4._iwp*pr*y1**2*z3*z4-4._iwp*pr*z1**2*y3*y4-4._iwp*x1**2*z3*z4*pr-4._iwp*  &
      z1**2*x3*x4*pr-4._iwp*x1**2*y3*y4*pr-4._iwp*y1**2*x3*x4*pr+4._iwp*x4*z3*  &
      z1*x3*pr+4._iwp*pr*y4*z3*y1*z4-4._iwp*x4*y3*y4*x3*pr-1._iwp*y1**2*z3**2-  &
      2._iwp*x1**2*z4**2-1._iwp*y1**2*x3**2+4._iwp*pr*y1*z4*z1*y3-1._iwp*y1**2*x4  &
      **2-1._iwp*x4**2*y3**2+4._iwp*x1*z3*z1*x4*pr-1._iwp*x1**2*y4**2-4._iwp*x1  &
      *z3*z1*x3*pr+4._iwp*x1*z4*z1*x3*pr-4._iwp*x1*z4*z1*x4*pr-1._iwp*z1**2*y4  &
      **2-4._iwp*x1*y3*y1*x3*pr-1._iwp*x1**2*y3**2+4._iwp*x1*y3*y1*x4*pr+4._iwp*  &
      x1*y4*y1*x3*pr
      s7 = 2._iwp*x4**2*z3**2*pr+2._iwp*y4*z3*z4*y3-4._iwp*z4*x3*x1*z3-4._iwp*z4  &
      *x3*z1*x4-2._iwp*x4*y3*x1*y4-2._iwp*x4*y3*y1*x3-2._iwp*y4*x3*x1*y3-2._iwp*  &
      y4*x3*y1*x4-2._iwp*y4*z3*y1*z4-2._iwp*y4*z3*z1*y3+2._iwp*y1**2*x4**2*pr+  &
      2._iwp*pr*z1**2*y3**2-4._iwp*x1*y4*y1*x4*pr+4._iwp*z1**2*x3*x4+4._iwp*x1**  &
      2*z3*z4+2._iwp*x1**2*y3*y4+4._iwp*z4*x3*x1*z3*pr+4._iwp*z4*x3*z1*x4*pr-4._iwp  &
      *x1*z4*z1*x3+4._iwp*x1*z4*z1*x4+2._iwp*x1*y3*y1*x3-2._iwp*x1*y3*y1*x4  &
      -2._iwp*x1*y4*y1*x3+4._iwp*x4*y3*x1*y4*pr+4._iwp*x4*y3*y1*x3*pr-2._iwp*z4**  &
      2*x3**2+2._iwp*x1**2*z3**2*pr+2._iwp*y1**2*x3*x4+2._iwp*y4**2*x3**2*pr+  &
      4._iwp*pr*y4*z3*z1*y3+4._iwp*pr*z4*y3*y1*z3+2._iwp*y4*z3**2*y1
      s5 = s7+2._iwp*pr*y4**2*z3**2+2._iwp*pr*z4**2*y3**2+2._iwp*x4**2*y3**2*pr  &
      +4._iwp*pr*z4*y3*z1*y4-4._iwp*pr*y1*z4*z1*y4-1._iwp*y1**2*z4**2+2._iwp*x1  &
      **2*y3**2*pr+2._iwp*z1**2*x4**2*pr+2._iwp*z1**2*x3**2*pr+2._iwp*x1**2*z4  &
      **2*pr+2._iwp*pr*y1**2*z4**2+2._iwp*pr*y1**2*z3**2+2._iwp*pr*z1**2*y4**2  &
      +2._iwp*z1**2*y3*y4+2._iwp*y1**2*z3*z4+4._iwp*z4**2*x3*x1+4._iwp*x4**2*z3*  &
      z1+4._iwp*x4*z3**2*x1+2._iwp*y1**2*x3**2*pr+2._iwp*x1**2*y4**2*pr+2._iwp*x4  &
      **2*y3*y1+2._iwp*x4*y3**2*x1+4._iwp*z4*x3**2*z1-2._iwp*z1**2*x3**2+2._iwp  &
      *y4**2*x3*x1+2._iwp*y4*x3**2*y1+2._iwp*y4**2*z3*z1-1._iwp*z1**2*y3**2+s6  &
      +2._iwp*z4**2*x3**2*pr+2._iwp*z4**2*y3*y1+2._iwp*z4*y3**2*z1
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,5) = t0


      t0 = -1._iwp/12._iwp*ym*(x1*z3-1._iwp*x1*z4-1._iwp*x4*z3-1._iwp*z1*x3+z1  &
      *x4+z4*x3)*(x1*y3-1._iwp*x1*y4-1._iwp*x4*y3-1._iwp*y1*x3+y1*x4+y4*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(5,6) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*z2*y4*z1*x3*pr+2._iwp*pr*y1*z3*z1*x4+2._iwp*pr*y1*z4*z1*x2-  &
      2._iwp*pr*z1*y3*x1*z2+2._iwp*pr*z1*y3*x1*z4-2._iwp*x4*z3*y1*z4*pr+2._iwp*x1  &
      *z3*z1*y2*pr-2._iwp*x1*z3*z1*y4*pr+2._iwp*z2*x4*y1*z4*pr-2._iwp*z2*x4*z4  &
      *y3*pr-2._iwp*z4*x3*z1*y4*pr-2._iwp*x2*z4*y4*z3*pr-4._iwp*x2*z4*z1*y3*pr  &
      -1._iwp*y1*z4**2*x1+z1**2*y3*x4+z1**2*y4*x2-1._iwp*z1**2*y4*x4-2._iwp*pr  &
      *z1**2*y3*x4+y4*z3*x1*z2-1._iwp*z4*y3*x1*z2
      s6 = s7-1._iwp*y4*z3*x1*z4-1._iwp*z4*y3*z1*x4-2._iwp*pr*z1**2*y4*x2-1._iwp  &
      *z1**2*y3*x2+z4**2*y3*x1-2._iwp*z1**2*x3*y2*pr-2._iwp*pr*y2*z3*x1*z4+2._iwp  &
      *pr*z1*y4*x1*z2-2._iwp*pr*y2*z3*z1*x4+2._iwp*pr*y2*z4*x4*z3+4._iwp*pr  &
      *y2*z4*z1*x3-2._iwp*pr*y2*z4*z1*x4-2._iwp*pr*z2*y4*x1*z4+2._iwp*pr*y4*z3  &
      *x1*z4+2._iwp*pr*z2*y3*x1*z4+2._iwp*pr*z2*y4*z4*x3+2._iwp*pr*z4*y3*z1*x4  &
      +2._iwp*pr*y2*z4**2*x1-2._iwp*pr*z4**2*y3*x1-1._iwp*x2*z3*y1*z4
      s7 = -1._iwp*x2*z3*z1*y4+x2*z4*y4*z3+2._iwp*x2*z4*z1*y3-1._iwp*x2*z4*z1*  &
      y4+2._iwp*z1**2*x3*y4*pr+2._iwp*z1**2*x4*y2*pr-1._iwp*y1*z3*x1*z2+y1*z3*  &
      x1*z4+y1*z3*z1*x2-1._iwp*y1*z3*z1*x4+y1*z4*x1*z2-1._iwp*y1*z4*z1*x2+y1  &
      *z4*z1*x4+z1*y3*x1*z2-1._iwp*z1*y3*x1*z4+2._iwp*pr*z1**2*y3*x2+z2*x4*y1  &
      *z3-1._iwp*z2*x4*y1*z4+z2*x4*z4*y3+2._iwp*x2*z4**2*y3*pr-2._iwp*x2*z4**  &
      2*y1*pr
      s5 = s7+2._iwp*z4**2*x3*y1*pr-1._iwp*z1*y4*x1*z2+z1*y4*x1*z4-2._iwp*pr*y2  &
      *z4**2*x3-2._iwp*x1*z4*z1*y2*pr+2._iwp*x2*z3*y1*z4*pr+2._iwp*x2*z4*z1*y4  &
      *pr-2._iwp*z2*x3*y1*z4*pr-1._iwp*x2*z4**2*y3+x2*z4**2*y1+2._iwp*z1*x3*y1  &
      *z2*pr+2._iwp*pr*z2*y3*z1*x4+y4*z3*z1*x4-1._iwp*z2*y3*z1*x4-1._iwp*z2*y4  &
      *x4*z3+z2*y4*z1*x4+2._iwp*x2*z3*z1*y4*pr-2._iwp*z1*x4*y1*z2*pr-2._iwp*z1  &
      *x3*y1*z4*pr-2._iwp*pr*y1*z3*z1*x2+s6
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,7) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = y4**2*x3*x1+z1**2*y4*y2-1._iwp*z1**2*y3*y2+y1**2*z4*z2-1._iwp*y4**  &
      2*z3*z2-1._iwp*y2*z4**2*y3-2._iwp*x2*z4**2*x3+y1**2*x4*x2-1._iwp*y1**2*  &
      x3*x2+y4**2*z3*z1-1._iwp*x1*y4*y1*x3-1._iwp*x1*y3*y1*x4+4._iwp*x1*z4*z1*  &
      x4-2._iwp*x1*z4*z1*x3+z4**2*y3*y1+z2*y4**2*z1+x2*y4**2*x1+2._iwp*x1*y4  &
      *y1*x4+2._iwp*x1*z3*z1*x4*pr+y1*x3*x1*y2+2._iwp*y1*z4*z1*y4-1._iwp*y1*z4  &
      *z1*y3+y1*z3*z1*y2-1._iwp*y1*x4*x1*y2
      s7 = 2._iwp*pr*z3*y1**2*z2-1._iwp*z1*y4*y1*z2+z1*y3*y1*z2-1._iwp*y1*z4*z1  &
      *y2+2._iwp*x1*z4*z1*x3*pr+2._iwp*x1*y4*y1*x3*pr+2._iwp*x1*y3*y1*x4*pr-4._iwp  &
      *x1*z4*z1*x4*pr+2._iwp*x2*z4**2*x1-2._iwp*z1**2*x3*x2+2._iwp*x1**2*y4  &
      **2*pr+2._iwp*x1**2*z4*z2-1._iwp*y1**2*z3*z2-1._iwp*x1**2*y3*y2+2._iwp*x1**  &
      2*z3*z4+2._iwp*z1**2*x3*x4+x1**2*y3*y4+y1**2*x3*x4-2._iwp*x4**2*z3*z2  &
      +x1**2*y4*y2-1._iwp*x2*y4**2*x3-1._iwp*x4**2*y3*y2-4._iwp*z2*x4*x1*z3*pr  &
      +2._iwp*z2*x3*x1*z4*pr-4._iwp*x1*y4*y1*x4*pr+s8
      s8 = 2._iwp*z2*x4*x1*z4*pr-1._iwp*y1**2*z4**2-2._iwp*pr*y1**2*z4*z2+2._iwp  &
      *z1**2*x3*x2*pr-2._iwp*x1**2*z4*z2*pr+2._iwp*x2*y3*x1*y4*pr+2._iwp*x1**2  &
      *z3*z2*pr+2._iwp*z4*x3*z1*x4*pr-2._iwp*pr*z1**2*y4*y2+2._iwp*pr*y3*z1**2  &
      *y2-4._iwp*x2*y4*y1*x3*pr+2._iwp*x2*y3*y1*x4*pr-2._iwp*x1**2*z3*z2+y2*z4  &
      **2*y1+2._iwp*z1**2*x4*x2+2._iwp*y1**2*x3*x2*pr+2._iwp*x4*y3*x1*y4*pr-2._iwp  &
      *x1**2*y4*y2*pr+2._iwp*x1**2*y3*y2*pr+2._iwp*x2*y4*y1*x4*pr-2._iwp*z1**  &
      2*x4*x2*pr+s7+2._iwp*y2*x3*x1*y4*pr-2._iwp*y1**2*x4*x2*pr+4._iwp*z2*x4*  &
      x1*z3
      s6 = 2._iwp*y2*x3*y1*x4*pr-1._iwp*y1**2*x4**2-1._iwp*y2*z3*y1*z4-2._iwp*x1  &
      *z3*z1*x2*pr+2._iwp*pr*y1*z4*z1*y3-4._iwp*pr*y1*z4*z1*y4-1._iwp*x1**2*y4  &
      **2-2._iwp*z1*x4*x1*z2+2._iwp*x1*z4*z1*x2*pr+2._iwp*pr*y1*z4*z1*y2-2._iwp*  &
      z1*x3*x1*z2*pr-4._iwp*y2*x4*x1*y3*pr+2._iwp*pr*z4*y3*z1*y4+2._iwp*z1*x4*  &
      x1*z2*pr-2._iwp*x1*y3*y1*x2*pr+2._iwp*x1*y4*y1*x2*pr-2._iwp*y1*x3*x1*y2*  &
      pr+2._iwp*pr*y2*z4**2*y3+2._iwp*x4**2*z3*z2*pr+2._iwp*x2*y4**2*x3*pr+2._iwp  &
      *x2*z4**2*x3*pr+2._iwp*x4**2*y3*y2*pr-2._iwp*z2*x4*x1*z4-2._iwp*z4*x3*z1  &
      *x4-1._iwp*x2*y3*x1*y4-1._iwp*x2*y3*y1*x4+s8
      s8 = 2._iwp*x2*y4*y1*x3-1._iwp*x2*y4*y1*x4-1._iwp*x4*y3*x1*y4-1._iwp*y2*x3  &
      *x1*y4+2._iwp*y2*x4*x1*y3-1._iwp*y2*x4*x1*y4-1._iwp*y4*x3*y1*x4-1._iwp*y2*  &
      z3*z1*y4+2._iwp*y2*z4*z1*y3-1._iwp*y2*z4*z1*y4-1._iwp*y4*z3*y1*z4-2._iwp*x2  &
      *z3*x1*z4-2._iwp*x2*z3*z1*x4+4._iwp*x2*z4*z1*x3-2._iwp*x2*z4*z1*x4-2._iwp  &
      *x4*z3*x1*z4-2._iwp*z2*x3*x1*z4-2._iwp*z2*x3*z1*x4-1._iwp*y1*z3*z1*y4-2._iwp  &
      *pr*y2*z4**2*y1-2._iwp*pr*y4**2*z3*z1-2._iwp*pr*z2*y4**2*z1-2._iwp*pr*  &
      z4**2*y3*y1-2._iwp*x2*z4**2*x1*pr-2._iwp*x4**2*z3*z1*pr
      s7 = -2._iwp*z2*x4**2*z1*pr-2._iwp*z4**2*x3*x1*pr-2._iwp*x4**2*y3*y1*pr-  &
      2._iwp*y2*x4**2*y1*pr-2._iwp*y4**2*x3*x1*pr-2._iwp*x2*y4**2*x1*pr+2._iwp*x2  &
      *z4*x4*z3+2._iwp*z2*x4*z4*x3+x2*y4*x4*y3+y2*x4*y4*x3-1._iwp*z2*y3*y1*  &
      z4-1._iwp*z2*y3*z1*y4+2._iwp*z2*y4*y1*z3-1._iwp*z2*y4*y1*z4-1._iwp*z4*y3*z1  &
      *y4-2._iwp*x1*z3*z1*x4+2._iwp*x1*z3*z1*x2-2._iwp*x1*z4*z1*x2+2._iwp*z1*x3  &
      *x1*z2+2._iwp*pr*y4**2*z3*z2-1._iwp*y2*x3*y1*x4+x1*y3*y1*x2-1._iwp*x1*y4  &
      *y1*x2+2._iwp*y1*x4*x1*y2*pr-2._iwp*pr*z3*y1*z1*y2+s8
      s8 = s7-2._iwp*pr*y2*z4*y4*z3-2._iwp*pr*y3*z1*y1*z2+2._iwp*pr*z1*y4*y1*z2  &
      +s6-1._iwp*z1**2*y4**2+2._iwp*pr*y2*z3*y1*z4-2._iwp*pr*z2*y4*z4*y3+y2*z4  &
      *y4*z3+z2*y4*z4*y3+2._iwp*x2*z4*z1*x4*pr+2._iwp*x4*z3*x1*z4*pr+2._iwp*pr  &
      *y4*z3*y1*z4+2._iwp*pr*z2*y3*y1*z4+2._iwp*pr*z2*y3*z1*y4+2._iwp*y4*x3*y1  &
      *x4*pr+2._iwp*x2*z3*x1*z4*pr+2._iwp*x2*z3*z1*x4*pr-4._iwp*x2*z4*z1*x3*pr  &
      -2._iwp*x1**2*z4**2-2._iwp*z1**2*x4**2-4._iwp*pr*z2*y4*y1*z3+2._iwp*pr*z2  &
      *y4*y1*z4+2._iwp*y2*x4*x1*y4*pr+2._iwp*pr*y1*z3*z1*y4
      s5 = s8-2._iwp*pr*y1**2*z3*z4-2._iwp*pr*z1**2*y3*y4-2._iwp*x1**2*z3*z4*pr  &
      -2._iwp*z1**2*x3*x4*pr-2._iwp*x1**2*y3*y4*pr-2._iwp*y1**2*x3*x4*pr+2._iwp  &
      *z2*x3*z1*x4*pr+2._iwp*pr*y2*z3*z1*y4-4._iwp*pr*y2*z4*z1*y3+2._iwp*pr*y2  &
      *z4*z1*y4+y1**2*z3*z4+z1**2*y3*y4+2._iwp*pr*z1**2*y4**2+2._iwp*pr*y1**  &
      2*z4**2+2._iwp*x1**2*z4**2*pr+2._iwp*z1**2*x4**2*pr+2._iwp*y1**2*x4**2*pr  &
      +2._iwp*x4**2*z3*z1+2._iwp*z2*x4**2*z1+2._iwp*z4**2*x3*x1+x4**2*y3*y1+y2  &
      *x4**2*y1-2._iwp*x2*z4*x4*z3*pr-2._iwp*z2*x4*z4*x3*pr-2._iwp*x2*y4*x4*y3  &
      *pr-2._iwp*y2*x4*y4*x3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,8) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1*y4*z1*x2*pr-2._iwp*y2*x4*z4*x3*pr-2._iwp*x1*y3*z1*x4*pr-  &
      2._iwp*x2*z4*x1*y3*pr-2._iwp*x4*y3*x1*z4*pr+2._iwp*y2*x3*x1*z4*pr+2._iwp*y2  &
      *x3*z1*x4*pr+z2*x3*x1*y4-1._iwp*x1*y3*z1*x2+x1*y3*z1*x4+x1*y4*z1*x2  &
      -1._iwp*y1*x3*x1*z2+y1*x3*x1*z4+y1*x4*x1*z2-2._iwp*x4*y3*x1*z2-1._iwp*x4  &
      *y3*x2*z4-2._iwp*x1**2*y3*z2*pr+2._iwp*x1**2*y3*z4*pr+2._iwp*y1*x3*x1*z2  &
      *pr-2._iwp*y1*x3*x1*z4*pr
      s6 = s7+2._iwp*pr*x2*z3*y1*x4-2._iwp*y1*x4*x1*z2*pr-2._iwp*pr*x1*z3*y1*x2  &
      +2._iwp*pr*x2*z4*x4*y3+2._iwp*pr*x1*z3*y1*x4-2._iwp*pr*x2*z4*y1*x4+2._iwp  &
      *pr*x4*z3*x1*y4-4._iwp*y2*x4*x1*z3*pr+x4**2*y3*z2-2._iwp*pr*z2*x3*x1*y4  &
      -2._iwp*pr*z2*x3*y1*x4-1._iwp*x4**2*y3*z1-1._iwp*x1**2*y3*z4+2._iwp*y2*x4  &
      *x1*z4*pr+x1**2*y3*z2+z1*x4**2*y1+x1**2*z4*y4-1._iwp*x1**2*y4*z2-1._iwp  &
      *z2*x4**2*y1+2._iwp*x1**2*y4*z2*pr
      s7 = x2*z4*y1*x4+z2*x4*x1*y4+x2*z4*x1*y3-1._iwp*x2*z4*x1*y4+x2*z4*y4  &
      *x3-1._iwp*z4*x3*x1*y4-1._iwp*x1*z4*y1*x4-1._iwp*x2*z4*y1*x3+z1*x3*y1*x2  &
      -1._iwp*z1*x3*y1*x4-1._iwp*z1*x4*x1*y4-1._iwp*z1*x4*y1*x2-2._iwp*pr*x4**2*  &
      z3*y1+2._iwp*pr*x2*z3*x1*y4+2._iwp*pr*x1*z4*y1*x2-2._iwp*x2*y3*z1*x4*pr+  &
      2._iwp*pr*z2*x4*y4*x3+4._iwp*pr*z2*x4*x1*y3-2._iwp*pr*z2*x4*x1*y4-2._iwp*pr  &
      *z1*x3*x1*y2+2._iwp*pr*z1*x3*x1*y4
      s5 = s7+2._iwp*pr*z1*x4*x1*y2-2._iwp*x2*y4*x4*z3*pr+2._iwp*x2*y4*z1*x4*pr  &
      +2._iwp*pr*z4*x3*y1*x4-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*y1+x2*y3  &
      *z1*x4-1._iwp*x2*y4*z1*x3+x4*y3*x1*z4-1._iwp*y4*x3*z2*x4+z2*x3*y1*x4-  &
      2._iwp*pr*x1**2*z3*y4-2._iwp*pr*x1**2*z4*y2+y4*x3*z1*x4+2._iwp*x4**2*y3*  &
      z1*pr+2._iwp*y2*x4**2*z3*pr-2._iwp*y2*x4**2*z1*pr+2._iwp*pr*x1**2*z3*y2+  &
      s6+2._iwp*x1*y3*z1*x2*pr-2._iwp*y4*x3*z1*x4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,9) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*y2*z3*x1*z4-2._iwp*pr*y2*z3*z1*x3+4._iwp*pr*y2*z3*z1*x4+  &
      2._iwp*x1*z3*z1*y4*pr-2._iwp*pr*z1*y3*x1*z4+2._iwp*pr*z1*y3*x1*z2-2._iwp*x1  &
      *z3*z1*y2*pr+2._iwp*x1*z4*z1*y2*pr+2._iwp*pr*y4*z3*z1*x3-2._iwp*pr*z2*y3  &
      *x1*z3+2._iwp*pr*y2*z3*z4*x3-2._iwp*pr*y2*z4*z1*x3-2._iwp*pr*z2*y3*z1*x4  &
      +2._iwp*pr*z4*y3*x1*z3+2._iwp*pr*z2*y3*x4*z3+2._iwp*pr*z2*y4*x1*z3+2._iwp  &
      *z2*x3*y1*z3*pr+2._iwp*x2*z3**2*y4*pr-2._iwp*x2*z3**2*y1*pr+z1*y4*x1*z2
      
      s6 = s7+2._iwp*pr*z1**2*y3*x4+2._iwp*pr*z1**2*y4*x2+y1*z3*z1*x3-1._iwp*y4  &
      *z3*z1*x3-1._iwp*x1*z3*z1*y4-1._iwp*z4*y3*x1*z3+z4*y3*x1*z2+2._iwp*x4*z3  &
      **2*y1*pr-2._iwp*z4*x3*y1*z3*pr+2._iwp*x2*z3*y1*z4*pr+2._iwp*x2*z3*z1*y3  &
      *pr-2._iwp*pr*y4*z3**2*x1-1._iwp*x2*z3*y1*z4-1._iwp*x2*z3*z1*y3+2._iwp*x2  &
      *z3*z1*y4+x2*z3*z4*y3-1._iwp*x2*z4*z1*y3-2._iwp*z1**2*x3*y4*pr-2._iwp*z1  &
      **2*x4*y2*pr+z1*y3*x1*z3
      s7 = y1*z3*x1*z2+y1*z3*x1*z4-1._iwp*y1*z3*z1*x2-1._iwp*y1*z4*x1*z2+y1*  &
      z4*z1*x2-1._iwp*z1*y3*x1*z2-2._iwp*pr*z1**2*y3*x2-1._iwp*z2*x3*y1*z3+z2*  &
      x3*y1*z4+z2*x3*y4*z3-4._iwp*x2*z3*z1*y4*pr-2._iwp*x2*z3*z4*y3*pr-2._iwp*  &
      z2*x3*y4*z3*pr-2._iwp*z2*x4*y1*z3*pr-1._iwp*z1**2*y3*x3+2._iwp*x2*z4*z1*  &
      y3*pr-2._iwp*x4*z3*z1*y3*pr-1._iwp*x2*z3**2*y4-1._iwp*y1*z3**2*x1+2._iwp*z1  &
      **2*x3*y2*pr-1._iwp*z1*x3*y1*z4
      s5 = s7+z2*y3*z1*x3-1._iwp*z2*y3*z4*x3-1._iwp*z2*y4*z1*x3+z4*y3*z1*x3+  &
      2._iwp*pr*y2*z3**2*x1-2._iwp*pr*y2*z3**2*x4-1._iwp*z1**2*y4*x2+y4*z3**2*  &
      x1+z1**2*y3*x2+x2*z3**2*y1+2._iwp*z2*y4*z1*x3*pr-2._iwp*z1*x3*y1*z2*pr  &
      +2._iwp*z1*x4*y1*z2*pr-2._iwp*pr*z1*y4*x1*z2+z1**2*x3*y4+2._iwp*z1*x3*y1  &
      *z4*pr-1._iwp*y4*z3*x1*z2+2._iwp*pr*y1*z3*z1*x2-2._iwp*pr*y1*z3*z1*x4+s6  &
      -2._iwp*pr*y1*z4*z1*x2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,10) = t0


      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = -2._iwp*y2*x3*y1*x4*pr+z1**2*y3**2+2._iwp*z1**2*x3**2-2._iwp*pr*z3*  &
      y1*z1*y2-1._iwp*y1**2*z3*z4-2._iwp*x1*y3*y1*x2*pr-2._iwp*x2*y3*y1*x3*pr-  &
      2._iwp*pr*y2*z3*y1*z4-4._iwp*x1*z3*z1*x3+2._iwp*x2*z3*x1*z4+2._iwp*x2*z3*z1  &
      *x3-4._iwp*x2*z3*z1*x4+2._iwp*x2*z4*z1*x3+2._iwp*x4*z3*z1*x3+2._iwp*z2*x3  &
      *x1*z3-4._iwp*z2*x3*x1*z4+2._iwp*z2*x3*z1*x4-2._iwp*y1*z3*z1*y3+y1*z3*z1  &
      *y4+2._iwp*pr*y4*z3**2*y1+2._iwp*pr*z2*y3**2*z1+2._iwp*pr*z4*y3**2*z1+2._iwp  &
      *x2*y3**2*x1*pr+2._iwp*x2*z3**2*x1*pr
      s7 = 2._iwp*x4*z3**2*x1*pr+2._iwp*z2*x3**2*z1*pr+2._iwp*z4*x3**2*z1*pr+2._iwp  &
      *x4*y3**2*x1*pr+2._iwp*y2*x3**2*y1*pr+2._iwp*y4*x3**2*y1*pr-2._iwp*x2  &
      *z3*z4*x3-2._iwp*x4*z3*z2*x3+4._iwp*x1*z3*z1*x3*pr+2._iwp*x1*y4*y1*x2*pr  &
      -2._iwp*y1*x3*x1*y2*pr-2._iwp*pr*y2*z3*z1*y3-2._iwp*pr*y1*z4*z1*y3-1._iwp*  &
      y2*z3*z4*y3+2._iwp*x1**2*z3**2+y1**2*x3**2+4._iwp*pr*y2*z3*z1*y4+2._iwp*  &
      pr*y4*z3*z2*y3+z1**2*y4*y2-1._iwp*x1**2*y3*y4-2._iwp*z1**2*x3*x2-1._iwp*  &
      y4*z3**2*y1+z2*y3**2*z4-1._iwp*z2*y3**2*z1+x1**2*y4*y2+s8
      s8 = s7+2._iwp*x1**2*z4*z2+4._iwp*x2*y3*y1*x4*pr-2._iwp*y2*x4*x1*y3*pr-2._iwp  &
      *y4*x3*x1*y3*pr-2._iwp*pr*y2*z4*z1*y3-2._iwp*z2*x3*x1*z3*pr-2._iwp*x2  &
      *y4*y1*x3*pr-2._iwp*x4*y3*y1*x3*pr-2._iwp*pr*z4*y3*y1*z3-2._iwp*x1*z3*z1  &
      *x4*pr-2._iwp*x1*z4*z1*x3*pr+4._iwp*x1*y3*y1*x3*pr-2._iwp*x1*y3*y1*x4*pr  &
      +2._iwp*y1*x4*x1*y2*pr-2._iwp*x2*z3*x1*z4*pr-2._iwp*x2*z3*z1*x3*pr-2._iwp*  &
      pr*y3*z1*y1*z2+2._iwp*pr*z1*y4*y1*z2+2._iwp*x1*z4*z1*x3-2._iwp*x1*y3*y1*  &
      x3+x1*y3*y1*x4+x1*y4*y1*x3+y1*z4*z1*y3+y1*x3*x1*y2
      s6 = -1._iwp*y1*x4*x1*y2+y1*z3*z1*y2-1._iwp*y1*z4*z1*y2-2._iwp*pr*y4*z3*  &
      z1*y3-2._iwp*pr*z2*y3*y1*z3-2._iwp*y2*x3*x1*y3*pr-1._iwp*z1**2*y3*y4-2._iwp  &
      *pr*y1**2*z3**2-2._iwp*x1**2*z3**2*pr-2._iwp*z1**2*x3**2*pr-2._iwp*x1**  &
      2*y3**2*pr-2._iwp*y1**2*x3**2*pr-1._iwp*x2*y3**2*x1-2._iwp*x4*z3**2*x1-2._iwp  &
      *z2*x3**2*z1-2._iwp*z4*x3**2*z1-1._iwp*x4*y3**2*x1-1._iwp*y2*x3**2*y1  &
      -1._iwp*y4*x3**2*y1-1._iwp*y2*z3**2*y1+x2*y3**2*x4-1._iwp*x1**2*y3*y2+y1  &
      **2*x4*x2+y2*x3**2*y4+y2*z3**2*y4-2._iwp*x1*y4*y1*x3*pr+s8
      s8 = 4._iwp*y2*x3*x1*y4*pr+4._iwp*pr*z2*y3*y1*z4-2._iwp*pr*z2*y3*z1*y4-1._iwp  &
      *y1**2*x3*x2+2._iwp*z1**2*x4*x2-2._iwp*x1**2*z3*z2-2._iwp*pr*z1**2*y3  &
      **2-2._iwp*x1**2*z3*z4-2._iwp*z1**2*x3*x4-1._iwp*y1**2*x3*x4-2._iwp*x2*z3**  &
      2*x1+2._iwp*z2*x3**2*z4+2._iwp*x2*z3**2*x4+4._iwp*x2*z3*z1*x4*pr+2._iwp*x2  &
      *z3*z4*x3*pr+2._iwp*x4*z3*z2*x3*pr-1._iwp*y1**2*z3*z2+y1**2*z4*z2-1._iwp  &
      *z1**2*y3*y2-1._iwp*z4*y3**2*z1+4._iwp*pr*y1*z3*z1*y3-2._iwp*x2*z4*z1*x3  &
      *pr-2._iwp*x4*z3*z1*x3*pr+y1**2*z3**2+2._iwp*x2*y3*y4*x3*pr
      s7 = 2._iwp*x4*y3*y2*x3*pr-1._iwp*y4*z3*z2*y3-2._iwp*pr*y2*z3**2*y4-2._iwp  &
      *pr*z2*y3**2*z4-2._iwp*z2*x3**2*z4*pr-2._iwp*x2*y3**2*x4*pr-2._iwp*x2*z3  &
      **2*x4*pr-2._iwp*y2*x3**2*y4*pr+2._iwp*z2*x4*x1*z3+2._iwp*z4*x3*x1*z3+x2  &
      *y3*x1*y4+x2*y3*y1*x3-2._iwp*x2*y3*y1*x4+x2*y4*y1*x3+x4*y3*y1*x3+y2*  &
      x3*x1*y3-2._iwp*y2*x3*x1*y4+y2*x3*y1*x4+y2*x4*x1*y3+y4*x3*x1*y3+y2*z3  &
      *y1*z4+y2*z3*z1*y3-2._iwp*y2*z3*z1*y4+y2*z4*z1*y3+y4*z3*z1*y3+s8
      s8 = s7+x1**2*y3**2+2._iwp*pr*y2*z3*z4*y3-2._iwp*pr*y1*z3*z1*y4+2._iwp*pr  &
      *y1*z4*z1*y2+s6-2._iwp*x1*z3*z1*x2*pr+2._iwp*x1*z4*z1*x2*pr-2._iwp*z1*x3  &
      *x1*z2*pr-2._iwp*z2*x4*x1*z3*pr-2._iwp*z4*x3*x1*z3*pr+2._iwp*z1*x4*x1*z2  &
      *pr-1._iwp*x2*y3*y4*x3-1._iwp*x4*y3*y2*x3+z2*y3*y1*z3-2._iwp*z2*y3*y1*z4  &
      +z2*y3*z1*y4+z2*y4*y1*z3+z4*y3*y1*z3+2._iwp*pr*y2*z3**2*y1+2._iwp*x1*  &
      z3*z1*x4+2._iwp*x1*z3*z1*x2-2._iwp*x1*z4*z1*x2+2._iwp*z1*x3*x1*z2-2._iwp*z1  &
      *x4*x1*z2
      s5 = s8+x1*y3*y1*x2-1._iwp*x1*y4*y1*x2+2._iwp*pr*y1**2*z3*z4+2._iwp*pr*z1  &
      **2*y3*y4+2._iwp*x1**2*z3*z4*pr+2._iwp*z1**2*x3*x4*pr+2._iwp*x1**2*y3*y4  &
      *pr+2._iwp*y1**2*x3*x4*pr+4._iwp*z2*x3*x1*z4*pr-2._iwp*z2*x3*z1*x4*pr-2._iwp  &
      *pr*z2*y4*y1*z3-2._iwp*x2*y3*x1*y4*pr+z1*y3*y1*z2-1._iwp*z1*y4*y1*z2  &
      +2._iwp*pr*z3*y1**2*z2-2._iwp*pr*y1**2*z4*z2+2._iwp*pr*y3*z1**2*y2-2._iwp  &
      *pr*z1**2*y4*y2+2._iwp*x1**2*z3*z2*pr-2._iwp*x1**2*z4*z2*pr+2._iwp*z1**2  &
      *x3*x2*pr-2._iwp*z1**2*x4*x2*pr+2._iwp*x1**2*y3*y2*pr-2._iwp*x1**2*y4*y2  &
      *pr+2._iwp*y1**2*x3*x2*pr-2._iwp*y1**2*x4*x2*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,11) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*y1*x4*x1*z2*pr-1._iwp*y4*x3**2*z1+x1**2*z3*y3-1._iwp*x1**2*y3  &
      *z2-1._iwp*x1**2*z3*y4-1._iwp*z2*x3**2*y1+y4*x3**2*z2+x1**2*y4*z2+2._iwp  &
      *pr*x1*z3*y1*x2+x1*y3*z1*x2-1._iwp*y4*x3*x2*z3+z1*x3**2*y1-1._iwp*x4*  &
      y3*z2*x3-2._iwp*z2*x3*x1*y4-2._iwp*pr*x1*z3*y1*x4-1._iwp*y1*x4*x1*z2+y1*  &
      x3*x1*z2-1._iwp*x1*y4*z1*x2+x4*y3*x1*z2+2._iwp*x1**2*y3*z2*pr
      s6 = s7+2._iwp*y2*x3*z1*x4*pr+2._iwp*x2*z4*x1*y3*pr+x1*z3*y1*x4-2._iwp*x1  &
      **2*y4*z2*pr-2._iwp*x1**2*y3*z4*pr+z1*x3*x1*y4+x2*z3*y1*x3-1._iwp*x2*  &
      z3*y1*x4-1._iwp*x4*z3*x1*y3-2._iwp*pr*x1*z4*y1*x2+z1*x4*y1*x2-1._iwp*z1*  &
      x3*y1*x4-1._iwp*z1*x3*y1*x2-2._iwp*pr*z4*x3**2*y1-2._iwp*pr*z2*x3**2*y4+  &
      2._iwp*pr*z2*x3**2*y1-1._iwp*x2*y3*z1*x4+2._iwp*pr*x1**2*z4*y2+2._iwp*pr*x1  &
      **2*z3*y4-1._iwp*z1*x3*x1*y3
      s7 = -1._iwp*x1*z3*y1*x3+z2*x3*y1*x4+z2*x3*x1*y3+x4*y3*z1*x3+x2*y4*z1  &
      *x3+2._iwp*y2*x4*x1*z3*pr-2._iwp*pr*x1**2*z3*y2+2._iwp*y4*x3**2*z1*pr+2._iwp  &
      *y2*x3**2*z4*pr-2._iwp*y2*x3**2*z1*pr+y4*x3*x1*z3-2._iwp*pr*x2*z3*y1  &
      *x3+x2*z3*x4*y3+2._iwp*pr*x2*z3*y4*x3+x2*z3*x1*y4+2._iwp*pr*x2*z4*y1*  &
      x3-2._iwp*x1*y3*z1*x2*pr+2._iwp*pr*x4*z3*y1*x3-2._iwp*pr*z2*x3*x1*y3+2._iwp  &
      *x1*y3*z1*x4*pr+4._iwp*pr*z2*x3*x1*y4
      s5 = s7+2._iwp*pr*z2*x3*x4*y3-2._iwp*pr*z2*x3*y1*x4-2._iwp*pr*z2*x4*x1*y3  &
      +2._iwp*pr*z4*x3*x1*y3-2._iwp*y4*x3*x1*z3*pr+2._iwp*pr*z1*x3*x1*y2+2._iwp  &
      *x1*y4*z1*x2*pr+2._iwp*x2*y3*z1*x3*pr-2._iwp*x2*y3*z4*x3*pr-2._iwp*x2*y4  &
      *z1*x3*pr+2._iwp*y2*x3*x1*z3*pr-2._iwp*x4*y3*z1*x3*pr-1._iwp*x2*z3*x1*y3  &
      -4._iwp*y2*x3*x1*z4*pr-2._iwp*y1*x3*x1*z2*pr+s6+2._iwp*y1*x3*x1*z4*pr-2._iwp  &
      *pr*z1*x3*x1*y4-2._iwp*y2*x3*x4*z3*pr-2._iwp*pr*x2*z3*x1*y4-2._iwp*pr*  &
      z1*x4*x1*y2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(5,12) = t0


km(6,1) = km(1,6)


km(6,2) = km(2,6)


km(6,3) = km(3,6)


km(6,4) = km(4,6)


km(6,5) = km(5,6)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1**2*y4**2+2._iwp*y1*z3*z1*y3-4._iwp*pr*y4*z3**2*y1-4._iwp*pr  &
      *y4**2*z3*z1-4._iwp*pr*z4**2*y3*y1-4._iwp*pr*z4*y3**2*z1-4._iwp*x4*z3**  &
      2*x1*pr-4._iwp*x4**2*z3*z1*pr-4._iwp*z4**2*x3*x1*pr-4._iwp*z4*x3**2*z1*pr  &
      -4._iwp*x4*y3**2*x1*pr-4._iwp*x4**2*y3*y1*pr-4._iwp*y4**2*x3*x1*pr-2._iwp  &
      *y1*z3*z1*y4+4._iwp*pr*z4*y3*y1*z3-1._iwp*x1**2*z4**2-1._iwp*z4**2*y3**2  &
      +4._iwp*x1*y4*y1*x3*pr-4._iwp*pr*y1*z4*z1*y4-4._iwp*x1*y4*y1*x4*pr-1._iwp*  &
      y4**2*z3**2+4._iwp*x1*y4*y1*x4-2._iwp*y1*z4*z1*y3+2._iwp*y1*z4*z1*y4+4._iwp  &
      *z4*x3*x1*z3*pr-1._iwp*z1**2*x3**2+4._iwp*pr*z4*y3*z1*y4-2._iwp*x4**2*y3  &
      **2+4._iwp*z4*x3*z1*x4*pr+4._iwp*y4*x3*x1*y3*pr-1._iwp*y1**2*z3**2
      s6 = s7+2._iwp*x1**2*z3**2*pr+4._iwp*x4*y3*x1*y4*pr-1._iwp*z4**2*x3**2+2._iwp  &
      *pr*y1**2*z4**2+2._iwp*x1**2*y3**2*pr-2._iwp*x1**2*y3**2+2._iwp*x4*z3  &
      **2*x1-4._iwp*x4*z3*z4*x3*pr+2._iwp*z1**2*x3*x4+2._iwp*z1**2*x4**2*pr+2._iwp  &
      *x1**2*z3*z4+2._iwp*y1**2*x3**2*pr+2._iwp*pr*z1**2*y3**2+2._iwp*y4**2*  &
      x3**2*pr+4._iwp*y4*x3**2*y1+4._iwp*y1**2*x3*x4+4._iwp*x1**2*y3*y4-2._iwp*y1  &
      **2*x4**2+2._iwp*pr*z4**2*y3**2-4._iwp*x1*z3*z1*x3*pr+4._iwp*x1*z3*z1*x4  &
      *pr+2._iwp*x4**2*z3*z1+2._iwp*x4**2*y3**2*pr+2._iwp*pr*y4**2*z3**2+2._iwp  &
      *z4**2*y3*y1-4._iwp*pr*y4*z3*z4*y3+2._iwp*z1**2*y3*y4+4._iwp*x4*y3*y1*x3  &
      *pr-1._iwp*x4**2*z3**2+4._iwp*x1*z4*z1*x3*pr+2._iwp*y1**2*z3*z4+2._iwp*z1**  &
      2*x3**2*pr
      s7 = 2._iwp*x1**2*z4**2*pr+2._iwp*pr*y1**2*z3**2-1._iwp*z1**2*x4**2+2._iwp  &
      *pr*z1**2*y4**2+4._iwp*y4*x3*y1*x4*pr+2._iwp*z4**2*x3*x1+2._iwp*y1**2*x4  &
      **2*pr+2._iwp*x1**2*y4**2*pr+4._iwp*y4**2*x3*x1+4._iwp*x4**2*y3*y1+4._iwp*  &
      x4*y3**2*x1+2._iwp*z4*x3**2*z1-2._iwp*y1**2*x3**2+2._iwp*z4*y3**2*z1+2._iwp  &
      *z4**2*x3**2*pr+2._iwp*x4**2*z3**2*pr+2._iwp*y4**2*z3*z1+2._iwp*y4*z3**  &
      2*y1+4._iwp*x4*z3*x1*z4*pr-4._iwp*y4*x3**2*y1*pr+4._iwp*x4*y3*y4*x3-2._iwp  &
      *z4*y3*y1*z3-2._iwp*z4*y3*z1*y4-2._iwp*x1*z3*z1*x4-4._iwp*pr*y1**2*z3*z4  &
      -4._iwp*pr*z1**2*y3*y4-4._iwp*x1**2*z3*z4*pr-4._iwp*z1**2*x3*x4*pr-4._iwp*  &
      x1**2*y3*y4*pr-4._iwp*y1**2*x3*x4*pr+2._iwp*x4*z3*z4*x3+4._iwp*x4*z3*z1*  &
      x3*pr
      s5 = s7+4._iwp*pr*y4*z3*y1*z4+4._iwp*pr*y4*z3*z1*y3-1._iwp*y1**2*z4**2-4._iwp  &
      *x4*y3*y4*x3*pr-1._iwp*z1**2*y4**2-4._iwp*x1*z4*z1*x4*pr-4._iwp*y4*x3  &
      *y1*x4-4._iwp*y4*x3*x1*y3-1._iwp*z1**2*y3**2-4._iwp*x4*y3*y1*x3-4._iwp*x4*  &
      y3*x1*y4-2._iwp*z4*x3*z1*x4-2._iwp*z4*x3*x1*z3+2._iwp*y4*z3*z4*y3-2._iwp*y4  &
      *z3*z1*y3-2._iwp*y4*z3*y1*z4-2._iwp*x1*z4*z1*x3+2._iwp*x1*z4*z1*x4+4._iwp  &
      *x1*y3*y1*x3-4._iwp*x1*y3*y1*x4-4._iwp*x1*y4*y1*x3+2._iwp*x1*z3*z1*x3+4._iwp  &
      *pr*y1*z4*z1*y3-2._iwp*x4*z3*x1*z4+4._iwp*x1*y3*y1*x4*pr-2._iwp*y4**2*  &
      x3**2-4._iwp*x1*y3*y1*x3*pr-1._iwp*x1**2*z3**2+s6-2._iwp*x4*z3*z1*x3+4._iwp  &
      *pr*y1*z3*z1*y4-4._iwp*pr*y1*z3*z1*y3
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,6) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*pr*y4*z3*y1*x4+2._iwp*pr*z2*y3*x1*y4+2._iwp*pr*y1*z3*x1*y2-  &
      2._iwp*pr*z1*y3*y1*x4-2._iwp*pr*z1*y4*y1*x2+2._iwp*x2*y4*z4*y3*pr+2._iwp*x4  &
      *y3*z1*y4*pr-2._iwp*pr*y1*z3*x1*y4+y2*z3*x1*y4-1._iwp*y2*z4*x1*y3-2._iwp  &
      *pr*y1*z4*x1*y2+2._iwp*pr*z1*y3*y1*x2+2._iwp*y2*x3*z1*y4*pr+2._iwp*y2*x4  &
      *y4*z3*pr+2._iwp*pr*z2*y3*y1*x4-2._iwp*pr*z2*y4*x4*y3-4._iwp*pr*z2*y4*y1  &
      *x3+2._iwp*pr*z2*y4*y1*x4-1._iwp*z1*y4*x1*y2-1._iwp*z1*y4*y1*x4
      s6 = s7-2._iwp*pr*y1**2*z3*x2+2._iwp*pr*y1**2*z3*x4+2._iwp*pr*y1**2*z4*x2  &
      -1._iwp*y1*z3*x1*y2+y1*z4*x1*y2-1._iwp*z1*y3*y1*x2+x1*y4*y1*z3+y1*x4*  &
      z1*y3+2._iwp*y1**2*x3*z2*pr-2._iwp*y1**2*x3*z4*pr-2._iwp*y1**2*x4*z2*pr+  &
      y4*z3*y1*x4+z4*y3*x1*y4+z1*y4*y1*x2-1._iwp*y1*z4*x1*y4+z1*y3*x1*y2-1._iwp  &
      *z1*y3*x1*y4-1._iwp*y2*x4*z1*y3+y2*x4*z1*y4+2._iwp*x2*y4**2*z1*pr
      s7 = -2._iwp*x2*y4**2*z3*pr-2._iwp*y4**2*x3*z1*pr+y2*z3*y1*x4+y2*z4*x4  &
      *y3-1._iwp*y2*z4*y1*x4-1._iwp*z4*y3*y1*x4+2._iwp*pr*y4**2*z3*x1-2._iwp*pr*  &
      z2*y4**2*x1+2._iwp*pr*z2*y4**2*x3+x2*y3*y1*z4+x2*y3*z1*y4-2._iwp*x2*y4  &
      *y1*z3+x2*y4*y1*z4-1._iwp*x2*y4*z4*y3-1._iwp*y2*x4*y4*z3-2._iwp*pr*y2*z3  &
      *y1*x4+2._iwp*pr*y2*z4*x1*y4+2._iwp*pr*y2*z4*y1*x3-2._iwp*pr*y2*z3*x1*y4  &
      -2._iwp*pr*z4*y3*x1*y4-2._iwp*x2*y3*z1*y4*pr
      s5 = s7-2._iwp*y2*x4*z1*y4*pr-2._iwp*x1*y3*y1*z2*pr+2._iwp*x1*y3*y1*z4*pr  &
      +2._iwp*x1*y4*y1*z2*pr-1._iwp*y4**2*z3*x1-2._iwp*y1*x3*z1*y2*pr-1._iwp*x2  &
      *y4**2*z1-2._iwp*pr*y2*z4*y4*x3+2._iwp*y1*x3*z1*y4*pr+2._iwp*y1*x4*z1*y2  &
      *pr+2._iwp*y4*x3*y1*z4*pr-1._iwp*y1**2*z4*x2+y1**2*z3*x2+z1*y4**2*x1-1._iwp  &
      *y1**2*x4*z3+x2*y4**2*z3-2._iwp*x2*y3*y1*z4*pr+y1**2*z4*x4+s6+4._iwp  &
      *x2*y4*y1*z3*pr-2._iwp*x2*y4*y1*z4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,7) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*x2*y4*z1*x4*pr-2._iwp*x4*y3*x1*z4*pr+2._iwp*pr*x4*z3*x1*y4-2._iwp  &
      *pr*z2*x3*x1*y4+2._iwp*pr*z1*x4*x1*y2+2._iwp*y2*x3*x1*z4*pr-2._iwp*pr  &
      *z2*x3*y1*x4+2._iwp*y2*x3*z1*x4*pr-4._iwp*y2*x4*x1*z3*pr+x1*z3*y1*x2-1._iwp  &
      *x1*z4*y1*x2-1._iwp*z1*x4*x1*y2+z1*x3*x1*y2+y2*x4*z4*x3-2._iwp*x1**  &
      2*y3*z2*pr+2._iwp*x1**2*y3*z4*pr+2._iwp*x1**2*y4*z2*pr-1._iwp*x4*z3*x1*y4  &
      -1._iwp*z4*x3*y1*x4-1._iwp*x1*z3*y1*x4
      s6 = s7+x2*z4*x1*y4-1._iwp*x2*z4*y4*x3+2._iwp*y2*x4*x1*z4*pr+2._iwp*y1*x3  &
      *x1*z2*pr-1._iwp*x1**2*z3*y2+x1**2*z4*y2-1._iwp*y2*x4**2*z3-1._iwp*x2*z3  &
      *x1*y4+4._iwp*pr*z2*x4*x1*y3-2._iwp*pr*z2*x4*x1*y4+2._iwp*pr*z2*x4*y4*x3  &
      -2._iwp*y1*x3*x1*z4*pr+2._iwp*pr*z4*x3*y1*x4+2._iwp*x4**2*y3*z1*pr+x1**  &
      2*z3*y4-1._iwp*x1**2*z4*y4-1._iwp*z1*x4**2*y1+y2*x4**2*z1+x4**2*z3*y1-  &
      2._iwp*y2*x4*z4*x3*pr
      s7 = -2._iwp*y1*x4*x1*z2*pr-2._iwp*pr*x1*z3*y1*x2-2._iwp*y4*x3*z1*x4*pr+  &
      z4*x3*x1*y4+x1*z4*y1*x4-1._iwp*x2*z3*y1*x4+x2*z4*y1*x3-1._iwp*z1*x3*x1  &
      *y4-1._iwp*z1*x3*y1*x2+z1*x3*y1*x4+z1*x4*x1*y4+z1*x4*y1*x2-2._iwp*pr*x4  &
      **2*z3*y1-2._iwp*pr*z2*x4**2*y3+2._iwp*pr*z2*x4**2*y1+x2*y4*x4*z3+x2*  &
      y4*z1*x3-1._iwp*x2*y4*z1*x4-1._iwp*y2*x3*x1*z4-1._iwp*y2*x3*z1*x4+2._iwp*y2  &
      *x4*x1*z3
      s5 = s7-1._iwp*y2*x4*x1*z4-2._iwp*pr*x1**2*z3*y4-2._iwp*pr*x1**2*z4*y2+2._iwp  &
      *y2*x4**2*z3*pr-2._iwp*y2*x4**2*z1*pr-2._iwp*x2*z4*x1*y3*pr+2._iwp*pr  &
      *x1**2*z3*y2+2._iwp*pr*x2*z3*x1*y4+2._iwp*pr*x1*z3*y1*x4+2._iwp*pr*x1*z4  &
      *y1*x2+2._iwp*x1*y3*z1*x2*pr-2._iwp*x2*y3*z1*x4*pr+s6-2._iwp*pr*z1*x3*x1  &
      *y2+2._iwp*pr*z1*x3*x1*y4+2._iwp*pr*x2*z3*y1*x4+2._iwp*pr*x2*z4*x4*y3-2._iwp  &
      *x1*y3*z1*x4*pr-2._iwp*x1*y4*z1*x2*pr-2._iwp*pr*x2*z4*y1*x4-2._iwp*x2*  &
      y4*x4*z3*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,8) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = 2._iwp*x2*y4**2*x3*pr+2._iwp*pr*y2*z3*y1*z4+2._iwp*y2*x3*y1*x4*pr+4._iwp  &
      *x2*y4*y1*x3+2._iwp*z1*x4*x1*z2*pr-2._iwp*x1*z3*z1*x2*pr+2._iwp*x1*z4  &
      *z1*x2*pr+z1*x3*x1*z2+2._iwp*y4*x3*y1*x4*pr+2._iwp*x2*z3*x1*z4*pr+2._iwp  &
      *x2*z3*z1*x4*pr-1._iwp*z1**2*y4**2+2._iwp*y1**2*x4*x2-2._iwp*x4**2*y3*y2  &
      -1._iwp*y4**2*z3*z2+y2*z4*y4*z3+z2*y4*z4*y3+2._iwp*pr*y2*z4**2*y3+2._iwp  &
      *pr*y4**2*z3*z2+2._iwp*x4**2*z3*z2*pr+2._iwp*x1*z3*z1*x4*pr+2._iwp*x1*z4  &
      *z1*x3*pr-2._iwp*z1*x3*x1*z2*pr+2._iwp*y2*x4**2*y1
      s7 = z4**2*y3*y1+x4**2*z3*z1-2._iwp*x2*y4**2*x3+2._iwp*x1**2*z4**2*pr-  &
      4._iwp*y2*x4*x1*y3*pr-2._iwp*pr*y2*z4*y4*z3-4._iwp*x1*z4*z1*x4*pr-4._iwp*x2  &
      *y4*y1*x3*pr+2._iwp*x2*y4*y1*x4*pr+2._iwp*pr*z2*y3*z1*y4-4._iwp*pr*z2*y4  &
      *y1*z3+2._iwp*pr*z2*y4*y1*z4+2._iwp*pr*y4*z3*y1*z4+2._iwp*pr*z2*y3*y1*z4  &
      +2._iwp*y2*x4*x1*y4*pr+2._iwp*x1*y4*y1*x2*pr-2._iwp*y1*x3*x1*y2*pr+2._iwp  &
      *y1*x4*x1*y2*pr-2._iwp*pr*y3*z1*y1*z2-2._iwp*x1*y3*y1*x2*pr+2._iwp*x4*y3  &
      *x1*y4*pr+2._iwp*y2*x3*x1*y4*pr-1._iwp*x1**2*z4**2+2._iwp*x2*z4*z1*x4*pr  &
      +2._iwp*x4*z3*x1*z4*pr+s8
      s8 = s7+2._iwp*z2*x3*x1*z4*pr-1._iwp*z1**2*x4**2+y1**2*z4*z2+z1**2*y3*  &
      y4+2._iwp*x2*y4**2*x1+2._iwp*x1**2*y4**2*pr-1._iwp*y2*z4**2*y3-1._iwp*x1**  &
      2*z3*z2+x1**2*z3*z4+z1**2*x3*x4-1._iwp*x2*z4**2*x3-4._iwp*x1*y4*y1*x4*  &
      pr-4._iwp*z2*x4*x1*z3*pr+2._iwp*z2*x4*x1*z4*pr+2._iwp*z4*x3*z1*x4*pr-2._iwp  &
      *x2*z4*x4*z3*pr-2._iwp*z2*x4*z4*x3*pr+2._iwp*x2*y3*x1*y4*pr+2._iwp*x2*y3  &
      *y1*x4*pr+2._iwp*pr*z1*y4*y1*z2-2._iwp*pr*z2*y4*z4*y3+2._iwp*pr*z4*y3*z1  &
      *y4-1._iwp*y1**2*z3*z2-1._iwp*z1**2*y3*y2
      s6 = z1**2*y4*y2-2._iwp*x1**2*y4**2+2._iwp*pr*y1*z4*z1*y2-4._iwp*pr*y2*z4  &
      *z1*y3+2._iwp*pr*y2*z4*z1*y4+s8-4._iwp*x2*z4*z1*x3*pr-1._iwp*y1**2*z4**  &
      2-2._iwp*pr*z3*y1*z1*y2+2._iwp*pr*y1*z4*z1*y3-2._iwp*x4**2*z3*z1*pr-2._iwp  &
      *z2*x4**2*z1*pr-2._iwp*z4**2*x3*x1*pr-2._iwp*x4**2*y3*y1*pr-2._iwp*y2*x4  &
      **2*y1*pr-2._iwp*y4**2*x3*x1*pr-2._iwp*x2*y4**2*x1*pr+x2*z4*x4*z3+z2*x4  &
      *z4*x3+2._iwp*x2*y4*x4*y3+2._iwp*y2*x4*y4*x3-1._iwp*z2*y3*y1*z4-1._iwp*z2  &
      *y3*z1*y4+2._iwp*z2*y4*y1*z3-1._iwp*z2*y4*y1*z4-1._iwp*z4*y3*z1*y4-1._iwp*  &
      x1*z3*z1*x4
      s8 = s6+x1*z3*z1*x2-1._iwp*x1*z4*z1*x2-1._iwp*z1*x4*x1*z2+2._iwp*x1*y3*y1  &
      *x2-2._iwp*x1*y4*y1*x2-2._iwp*pr*y1**2*z3*z4-2._iwp*pr*z1**2*y3*y4-2._iwp  &
      *x1**2*z3*z4*pr-2._iwp*z1**2*x3*x4*pr-2._iwp*x1**2*y3*y4*pr-2._iwp*y1**2  &
      *x3*x4*pr-1._iwp*x1*z4*z1*x3-2._iwp*y1**2*x4**2+2._iwp*z2*x3*z1*x4*pr+2._iwp  &
      *pr*y2*z3*z1*y4+2._iwp*x2*z4**2*x3*pr+2._iwp*x4**2*y3*y2*pr+2._iwp*z2*  &
      x4*x1*z3-1._iwp*z2*x4*x1*z4-1._iwp*z4*x3*z1*x4-2._iwp*x2*y3*x1*y4-2._iwp*x2  &
      *y3*y1*x4-2._iwp*x2*y4*y1*x4-2._iwp*x4*y3*x1*y4
      s7 = s8-2._iwp*y2*x3*x1*y4-2._iwp*y2*x3*y1*x4+4._iwp*y2*x4*x1*y3-2._iwp*y2  &
      *x4*x1*y4-2._iwp*y4*x3*y1*x4-1._iwp*y2*z3*y1*z4-1._iwp*y2*z3*z1*y4+2._iwp*  &
      y2*z4*z1*y3-1._iwp*y2*z4*z1*y4-1._iwp*y4*z3*y1*z4-1._iwp*x2*z3*x1*z4-1._iwp  &
      *x2*z3*z1*x4+2._iwp*x2*z4*z1*x3-1._iwp*x2*z4*z1*x4-1._iwp*x4*z3*x1*z4-1._iwp  &
      *z2*x3*x1*z4-1._iwp*z2*x3*z1*x4-1._iwp*y1*z3*z1*y4-2._iwp*pr*y2*z4**2  &
      *y1-2._iwp*pr*y4**2*z3*z1-2._iwp*pr*z2*y4**2*z1-2._iwp*pr*z4**2*y3*y1-2._iwp  &
      *x2*z4**2*x1*pr+2._iwp*x1*y3*y1*x4*pr+2._iwp*x1*y4*y1*x3*pr
      s8 = s7+2._iwp*pr*y1*z3*z1*y4+2._iwp*x1*z4*z1*x4-2._iwp*x1*y3*y1*x4-2._iwp  &
      *x1*y4*y1*x3+4._iwp*x1*y4*y1*x4-1._iwp*y1*z4*z1*y3+2._iwp*y1*z4*z1*y4+2._iwp  &
      *y1*x3*x1*y2-2._iwp*y1*x4*x1*y2+y1*z3*z1*y2-1._iwp*y1*z4*z1*y2+z1*y3  &
      *y1*z2-1._iwp*z1*y4*y1*z2+2._iwp*pr*z3*y1**2*z2-2._iwp*pr*y1**2*z4*z2+2._iwp  &
      *pr*y3*z1**2*y2-2._iwp*pr*z1**2*y4*y2+2._iwp*x1**2*z3*z2*pr-2._iwp*x1**  &
      2*z4*z2*pr+2._iwp*z1**2*x3*x2*pr-2._iwp*z1**2*x4*x2*pr+2._iwp*x1**2*y3*  &
      y2*pr-2._iwp*x1**2*y4*y2*pr+2._iwp*y1**2*x3*x2*pr
      s5 = s8-2._iwp*y1**2*x4*x2*pr-2._iwp*x2*y4*x4*y3*pr-2._iwp*y2*x4*y4*x3*pr  &
      +2._iwp*x1**2*y3*y4+2._iwp*y1**2*x3*x4-1._iwp*x4**2*z3*z2+z2*y4**2*z1+2._iwp  &
      *z1**2*x4**2*pr+z2*x4**2*z1+y1**2*z3*z4+2._iwp*pr*z1**2*y4**2+2._iwp  &
      *pr*y1**2*z4**2+2._iwp*y1**2*x4**2*pr+x2*z4**2*x1+z4**2*x3*x1+2._iwp*  &
      x4**2*y3*y1+2._iwp*y4**2*x3*x1+y2*z4**2*y1+y4**2*z3*z1+x1**2*z4*z2-1._iwp  &
      *z1**2*x3*x2+z1**2*x4*x2-2._iwp*x1**2*y3*y2+2._iwp*x1**2*y4*y2-2._iwp  &
      *y1**2*x3*x2-4._iwp*pr*y1*z4*z1*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,9) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*y2*z3*x1*y3-2._iwp*x2*y3*y1*z3*pr-2._iwp*x2*y3*z1*y4*pr+2._iwp  &
      *x1*y3*y1*z2*pr-1._iwp*z4*y3**2*x1+x2*y3**2*z4+z1*y3**2*x1+y1**2*  &
      z3*x3-1._iwp*y1**2*z3*x2-1._iwp*y1**2*x3*z4+y1**2*z4*x2-2._iwp*x1*y3*y1*  &
      z4*pr-1._iwp*x2*y3**2*z1+2._iwp*pr*z2*y3*y1*x3-4._iwp*pr*z2*y3*y1*x4-2._iwp  &
      *x1*y4*y1*z2*pr+2._iwp*y1*x3*z1*y2*pr+4._iwp*x2*y3*y1*z4*pr+2._iwp*pr*y2  &
      *z3*y1*x4-1._iwp*y1*z3*x1*y3
      s6 = s7+y2*z4*x1*y3-1._iwp*y2*z3*x1*y4-2._iwp*pr*y1**2*z4*x2-2._iwp*pr*y2  &
      *z4*x1*y3-2._iwp*pr*y1**2*z3*x4-2._iwp*pr*z1*y3*y1*x2+2._iwp*x2*y3*y4*z3  &
      *pr+2._iwp*pr*y1**2*z3*x2+z1*y4*x1*y2-1._iwp*z1*y3*y1*x3+x1*y3*y1*z4-  &
      1._iwp*y1*z4*x1*y2+y1*z3*x1*y2+2._iwp*y1**2*x4*z2*pr+2._iwp*y1**2*x3*z4*  &
      pr-2._iwp*y1**2*x3*z2*pr+y1*x3*z1*y4+z1*y3*y1*x2+y4*z3*x1*y3-2._iwp*x2  &
      *y4*y1*z3*pr
      s7 = -2._iwp*pr*z2*y3*y4*x3+2._iwp*pr*z2*y4*y1*x3-1._iwp*z1*y3*x1*y2-1._iwp  &
      *z1*y4*y1*x2+z4*y3*y1*x3-2._iwp*y1*x3*z1*y4*pr+2._iwp*x4*y3*y1*z3*pr-  &
      2._iwp*x2*y3**2*z4*pr+2._iwp*x2*y3**2*z1*pr-2._iwp*x4*y3**2*z1*pr-1._iwp*z1  &
      *y3*x1*y4+y2*z3*y4*x3-1._iwp*y2*z3*y1*x3-2._iwp*y2*x3*z1*y3*pr-2._iwp*pr  &
      *z2*y3**2*x1-1._iwp*y4*z3*y1*x3+y2*z4*y1*x3+2._iwp*pr*z2*y3**2*x4+x2*  &
      y3*y1*z3+2._iwp*pr*z4*y3**2*x1+x2*y3*z1*y4
      s5 = s7-1._iwp*x2*y3*y4*z3-2._iwp*x2*y3*y1*z4+2._iwp*y2*x3*z4*y3*pr+2._iwp  &
      *pr*z1*y3*y1*x4-1._iwp*y2*x3*z4*y3+2._iwp*pr*z1*y4*y1*x2-1._iwp*y2*x3*z1  &
      *y4+y2*x3*z1*y3+x2*y4*y1*z3-2._iwp*pr*y2*z4*y1*x3-2._iwp*y1*x4*z1*y2*pr  &
      -2._iwp*pr*z4*y3*y1*x3+2._iwp*y2*x4*z1*y3*pr+2._iwp*y4*x3*z1*y3*pr-2._iwp  &
      *pr*y4*z3*x1*y3-2._iwp*pr*y1*z3*x1*y2+s6+2._iwp*pr*z2*y3*x1*y4+2._iwp*pr  &
      *y1*z3*x1*y4-2._iwp*pr*y2*z3*x4*y3+2._iwp*pr*y1*z4*x1*y2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,10) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*x2*y3*z1*x3*pr-2._iwp*x2*y3*z4*x3*pr-2._iwp*pr*x1*z4*y1*x2+2._iwp  &
      *pr*z1*x3*x1*y2-2._iwp*pr*x2*z3*y1*x3+2._iwp*pr*x2*z3*y4*x3+2._iwp*pr  &
      *x2*z4*y1*x3-2._iwp*x1*y3*z1*x2*pr-2._iwp*x2*y4*z1*x3*pr+2._iwp*pr*x4*z3  &
      *y1*x3-2._iwp*pr*z2*x3*x1*y3+2._iwp*x1*y3*z1*x4*pr+4._iwp*pr*z2*x3*x1*y4  &
      -2._iwp*x4*y3*z1*x3*pr+2._iwp*y2*x3*x1*z3*pr+2._iwp*pr*z2*x3*x4*y3-2._iwp*  &
      pr*z2*x3*y1*x4-2._iwp*pr*z2*x4*x1*y3+2._iwp*x1*y4*z1*x2*pr+x2*z3*x1*y3
      s6 = s7-1._iwp*x2*z3*x4*y3-1._iwp*x1*z3*y1*x2+x1*z4*y1*x2+z1*x4*x1*y2-  &
      1._iwp*z1*x3*x1*y2-1._iwp*x1*y3*z1*x4-1._iwp*y1*x3*x1*z4+2._iwp*x1**2*y3*z2  &
      *pr-2._iwp*x1**2*y3*z4*pr-2._iwp*y1*x3*x1*z2*pr-1._iwp*x1**2*z4*y2+x1**  &
      2*z3*y2+y2*x3**2*z1-4._iwp*y2*x3*x1*z4*pr-1._iwp*y2*x3**2*z4-2._iwp*pr*z1  &
      *x3*x1*y4-2._iwp*y2*x3*x4*z3*pr+z4*x3**2*y1-1._iwp*z1*x3**2*y1-1._iwp*x1  &
      **2*z3*y3
      s7 = x1**2*y3*z4+2._iwp*y1*x3*x1*z4*pr+2._iwp*y2*x3*z1*x4*pr+2._iwp*y2*x4  &
      *x1*z3*pr+2._iwp*pr*z4*x3*x1*y3-2._iwp*pr*z1*x4*x1*y2-2._iwp*y4*x3*x1*z3  &
      *pr+2._iwp*x2*z4*x1*y3*pr-2._iwp*x1**2*y4*z2*pr+x4*z3*x1*y3+x2*z3*y1*  &
      x4-1._iwp*x4*z3*y1*x3-1._iwp*x2*z4*y1*x3+z1*x3*y1*x2+z1*x3*y1*x4-1._iwp*  &
      z1*x4*y1*x2+2._iwp*pr*z2*x3**2*y1-2._iwp*pr*z2*x3**2*y4-2._iwp*pr*z4*x3**  &
      2*y1-1._iwp*x2*y3*z1*x3+x2*y3*z1*x4
      s5 = s7+x2*y3*z4*x3-1._iwp*y2*x3*x1*z3+2._iwp*y2*x3*x1*z4+y2*x3*x4*z3-  &
      1._iwp*x2*z4*x1*y3+2._iwp*y1*x4*x1*z2*pr+2._iwp*pr*x1*z3*y1*x2-1._iwp*y2*x3  &
      *z1*x4-1._iwp*y2*x4*x1*z3+x1*z3*y1*x3+z1*x3*x1*y3-1._iwp*z4*x3*x1*y3+  &
      2._iwp*pr*x1**2*z3*y4+2._iwp*pr*x1**2*z4*y2-2._iwp*y2*x3**2*z1*pr+2._iwp*y2  &
      *x3**2*z4*pr+2._iwp*y4*x3**2*z1*pr-2._iwp*pr*x1**2*z3*y2-2._iwp*pr*x1*z3  &
      *y1*x4+s6-2._iwp*pr*x2*z3*x1*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,11) = t0


      s2 = -1._iwp/12._iwp
      s4 = ym
      s8 = z2*y3*y1*z3+z2*y3*z1*y4+z2*y4*y1*z3+z4*y3*y1*z3+2._iwp*pr*y2*z3  &
      **2*y1+x1*z3*z1*x4+x1*z3*z1*x2-1._iwp*x1*z4*z1*x2+z1*x3*x1*z2+2._iwp*x1  &
      *y3*y1*x2-2._iwp*x1*y4*y1*x2+2._iwp*pr*y1**2*z3*z4+2._iwp*pr*z1**2*y3*y4  &
      +2._iwp*x1**2*z3*z4*pr+2._iwp*z1**2*x3*x4*pr+2._iwp*x1**2*y3*y4*pr+2._iwp  &
      *y1**2*x3*x4*pr+2._iwp*y1*x3*x1*y2-2._iwp*z2*y3*y1*z4-1._iwp*y2*z3*z4*y3  &
      -1._iwp*y4*z3*z2*y3-2._iwp*pr*y2*z3**2*y4-2._iwp*pr*z2*y3**2*z4-2._iwp*z2*  &
      x3**2*z4*pr
      s7 = -2._iwp*x2*y3**2*x4*pr-2._iwp*x2*z3**2*x4*pr-2._iwp*y2*x3**2*y4*pr+  &
      2._iwp*x1*z4*z1*x2*pr-2._iwp*z1*x3*x1*z2*pr-2._iwp*x1*z3*z1*x2*pr-2._iwp*pr  &
      *y2*z3*z1*y3+2._iwp*y1**2*x3**2+4._iwp*pr*y2*z3*z1*y4-2._iwp*x1*y3*y1*x4  &
      *pr-2._iwp*x1*y4*y1*x3*pr+2._iwp*z1*x4*x1*z2*pr-2._iwp*x1*y3*y1*x2*pr+2._iwp  &
      *x1*y4*y1*x2*pr-2._iwp*y1*x3*x1*y2*pr-2._iwp*z2*x4*x1*z3*pr-2._iwp*z4  &
      *x3*x1*z3*pr-2._iwp*x2*y3*x1*y4*pr-2._iwp*pr*y3*z1*y1*z2-2._iwp*pr*z3*y1  &
      *z1*y2-2._iwp*pr*y1*z4*z1*y3-1._iwp*z1*x4*x1*z2+2._iwp*y1*x4*x1*y2*pr-2._iwp  &
      *x2*y3*y1*x3*pr+x1**2*z3**2+s8
      s8 = s7+2._iwp*pr*z1*y4*y1*z2+4._iwp*x2*y3*y1*x4*pr+2._iwp*pr*y2*z3*z4*y3  &
      +4._iwp*pr*y1*z3*z1*y3-2._iwp*pr*y2*z4*z1*y3-2._iwp*pr*y4*z3*z1*y3+y1**  &
      2*z3**2+2._iwp*x1**2*y3**2+2._iwp*pr*y4*z3*z2*y3-2._iwp*y2*x4*x1*y3*pr-2._iwp  &
      *pr*y1*z3*z1*y4-2._iwp*y4*x3*x1*y3*pr-2._iwp*pr*y2*z3*y1*z4+2._iwp*y2  &
      *x3**2*y4+z2*y3**2*z4-1._iwp*y1**2*z3*z4-1._iwp*z1**2*y3*y4-2._iwp*pr*y1  &
      **2*z3**2-2._iwp*x1**2*z3**2*pr-2._iwp*z1**2*x3**2*pr-2._iwp*y1**2*x3**2  &
      *pr+2._iwp*pr*y4*z3**2*y1+2._iwp*pr*y1*z4*z1*y2+z1**2*x3**2
      s6 = -2._iwp*x2*z3*x1*z4*pr-2._iwp*pr*z2*y3*y1*z3+4._iwp*pr*z2*y3*y1*z4-  &
      2._iwp*x2*y4*y1*x3*pr-2._iwp*x4*y3*y1*x3*pr-2._iwp*x2*z3*z1*x3*pr+4._iwp*x2  &
      *z3*z1*x4*pr-2._iwp*x2*z4*z1*x3*pr-2._iwp*y2*x3*x1*y3*pr+4._iwp*y2*x3*x1  &
      *y4*pr-2._iwp*y2*x3*y1*x4*pr-2._iwp*x4*z3*z1*x3*pr-2._iwp*z2*x3*x1*z3*pr  &
      -2._iwp*y1*x4*x1*y2+y1*z3*z1*y2-1._iwp*y1*z4*z1*y2+z1*y3*y1*z2-1._iwp*z1  &
      *y4*y1*z2+2._iwp*pr*z3*y1**2*z2-2._iwp*pr*y1**2*z4*z2+2._iwp*pr*y3*z1**  &
      2*y2-2._iwp*pr*z1**2*y4*y2+2._iwp*x1**2*z3*z2*pr-2._iwp*x1**2*z4*z2*pr+2._iwp  &
      *z1**2*x3*x2*pr-2._iwp*z1**2*x4*x2*pr+s8
      s8 = 2._iwp*x1**2*y3*y2*pr-2._iwp*x1**2*y4*y2*pr+2._iwp*y1**2*x3*x2*pr-2._iwp  &
      *y1**2*x4*x2*pr-2._iwp*pr*z4*y3*y1*z3+z2*x4*x1*z3+z4*x3*x1*z3+2._iwp  &
      *x2*y3*x1*y4+2._iwp*x2*y3*y1*x3-4._iwp*x2*y3*y1*x4+2._iwp*x2*y4*y1*x3+2._iwp  &
      *x4*y3*y1*x3+2._iwp*y2*x3*x1*y3-4._iwp*y2*x3*x1*y4+2._iwp*y2*x3*y1*x4  &
      +2._iwp*y2*x4*x1*y3+2._iwp*y4*x3*x1*y3+y2*z3*y1*z4+y2*z3*z1*y3-2._iwp*y2  &
      *z3*z1*y4+y2*z4*z1*y3+y4*z3*z1*y3-2._iwp*x1*z3*z1*x3-2._iwp*pr*z2*y3*z1  &
      *y4-2._iwp*pr*z2*y4*y1*z3
      s7 = 4._iwp*z2*x3*x1*z4*pr-2._iwp*z2*x3*z1*x4*pr+4._iwp*x1*z3*z1*x3*pr+x2  &
      *z3**2*x4+z2*x3**2*z4-1._iwp*z1**2*y3*y2-1._iwp*y2*z3**2*y1-1._iwp*z4*x3  &
      **2*z1-1._iwp*z2*y3**2*z1-1._iwp*z4*y3**2*z1-2._iwp*x1*z3*z1*x4*pr-2._iwp  &
      *x1**2*y3**2*pr+x1**2*z4*z2-2._iwp*x1**2*y3*y2+z1**2*y4*y2+s6+x1*z4*  &
      z1*x3-4._iwp*x1*y3*y1*x3+2._iwp*x1*y3*y1*x4+2._iwp*x1*y4*y1*x3+y1*z4*z1*  &
      y3-1._iwp*x1**2*z3*z4+s8-2._iwp*pr*z1**2*y3**2-2._iwp*x2*y3**2*x1-1._iwp*x2  &
      *z3**2*x1
      s8 = s7-1._iwp*x4*z3**2*x1-1._iwp*z2*x3**2*z1-2._iwp*x4*y3**2*x1-2._iwp*y2  &
      *x3**2*y1-2._iwp*y4*x3**2*y1-1._iwp*y4*z3**2*y1+2._iwp*x2*y3**2*x4-1._iwp*  &
      x1**2*z3*z2-1._iwp*z1**2*x3*x2+z1**2*x4*x2+2._iwp*x1**2*y4*y2-2._iwp*y1**  &
      2*x3*x2+2._iwp*y1**2*x4*x2+y2*z3**2*y4-1._iwp*y1**2*z3*z2+y1**2*z4*z2  &
      +x2*z3*x1*z4+x2*z3*z1*x3-2._iwp*x2*z3*z1*x4+x2*z4*z1*x3+x4*z3*z1*x3+  &
      z2*x3*x1*z3-2._iwp*z2*x3*x1*z4+z2*x3*z1*x4
      s5 = s8-2._iwp*y1*z3*z1*y3+y1*z3*z1*y4+2._iwp*pr*z2*y3**2*z1+2._iwp*pr*z4  &
      *y3**2*z1+2._iwp*x2*y3**2*x1*pr+2._iwp*x2*z3**2*x1*pr+2._iwp*x4*z3**2*x1  &
      *pr+2._iwp*z2*x3**2*z1*pr+2._iwp*z4*x3**2*z1*pr+2._iwp*x4*y3**2*x1*pr+2._iwp  &
      *y2*x3**2*y1*pr+2._iwp*y4*x3**2*y1*pr-1._iwp*x2*z3*z4*x3-1._iwp*x4*z3  &
      *z2*x3-2._iwp*x2*y3*y4*x3-2._iwp*x4*y3*y2*x3+z1**2*y3**2+2._iwp*x2*z3*z4  &
      *x3*pr-2._iwp*x1**2*y3*y4-1._iwp*z1**2*x3*x4+2._iwp*x4*z3*z2*x3*pr+2._iwp*  &
      x2*y3*y4*x3*pr+2._iwp*x4*y3*y2*x3*pr-2._iwp*x1*z4*z1*x3*pr+4._iwp*x1*y3*  &
      y1*x3*pr-2._iwp*y1**2*x3*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(6,12) = t0


km(7,1) = km(1,7)


km(7,2) = km(2,7)


km(7,3) = km(3,7)


km(7,4) = km(4,7)


km(7,5) = km(5,7)


km(7,6) = km(6,7)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -4._iwp*x2*y4*y2*x4*pr+2._iwp*x2**2*y4*y1+2._iwp*pr*z2**2*y4**2+2._iwp  &
      *pr*y2**2*z4**2+4._iwp*y2*z4*z2*y4+2._iwp*z1**2*x2**2*pr-2._iwp*x2*y4*y1  &
      *x4-2._iwp*z2*x4*x1*z4-2._iwp*x2*y4*x1*y2-2._iwp*z2*x4*z1*x2-4._iwp*y2*z4  &
      *z1*y4-2._iwp*y2*x4*x1*y4+2._iwp*x1**2*z4**2*pr+4._iwp*y2**2*z4*z1+4._iwp*  &
      z2**2*y4*y1-2._iwp*x2*z4*x1*z2-2._iwp*x2*z4*z1*x4+2._iwp*y1**2*x2**2*pr+  &
      2._iwp*x2**2*y4**2*pr-4._iwp*pr*z2*y4**2*z1-4._iwp*pr*y2*z4**2*y1-4._iwp*pr  &
      *z2**2*y4*y1-4._iwp*pr*y2**2*z4*z1+2._iwp*y2**2*x4**2*pr+2._iwp*x1**2*z2  &
      **2*pr+2._iwp*z2**2*x4**2*pr+2._iwp*pr*z1**2*y2**2+2._iwp*x1**2*y4**2*pr  &
      +2._iwp*pr*y1**2*z2**2+2._iwp*y2**2*x4*x1+2._iwp*z2**2*x4*x1
      s6 = -2._iwp*x1*y4*y1*x2+2._iwp*x1**2*y2**2*pr+2._iwp*x2**2*z4**2*pr+2._iwp  &
      *z1**2*x4**2*pr+2._iwp*pr*y1**2*z4**2+2._iwp*pr*z1**2*y4**2-4._iwp*x2*z4  &
      **2*x1*pr+2._iwp*y1**2*x4**2*pr-2._iwp*z2**2*y4**2+4._iwp*y2*x4*y1*x2*pr  &
      +2._iwp*y2*x4**2*y1+2._iwp*z2*x4**2*z1+2._iwp*x2*z4**2*x1+2._iwp*x2*y4*y2  &
      *x4+2._iwp*y1**2*x4*x2+2._iwp*x1**2*y4*y2+2._iwp*z1**2*x4*x2+2._iwp*x2*z4*  &
      z2*x4+2._iwp*x1**2*z4*z2-4._iwp*x2*y4**2*x1*pr-4._iwp*y2*x4**2*y1*pr-4._iwp  &
      *z2*x4**2*z1*pr+4._iwp*y2*z4**2*y1+2._iwp*x2**2*z4*z1+4._iwp*z2*y4**2*z1  &
      +4._iwp*z1**2*y4*y2+4._iwp*y1**2*z4*z2+s7-4._iwp*x1**2*y4*y2*pr-4._iwp*z2  &
      *y4*y1*z4-1._iwp*x1**2*z4**2-4._iwp*x2**2*y4*y1*pr-4._iwp*z2**2*x4*x1*pr
      s7 = -2._iwp*z1*x4*x1*z2-2._iwp*x1*z4*z1*x2-2._iwp*y2*x4*y1*x2-4._iwp*y2**  &
      2*x4*x1*pr-4._iwp*pr*y1*z2*z1*y2+4._iwp*x1*z4*z1*x2*pr-4._iwp*x1*z4*z1*x4  &
      *pr+4._iwp*pr*z2*y4*y1*z4+2._iwp*x1*y4*y1*x4+2._iwp*x1*z4*z1*x4-4._iwp*x2  &
      **2*z4*z1*pr-4._iwp*pr*y1**2*z4*z2-4._iwp*z1*y4*y1*z2-4._iwp*y1*z4*z1*y2  &
      -2._iwp*y1*x4*x1*y2-4._iwp*x1*y4*y1*x4*pr-4._iwp*z2*y4*z1*y2-4._iwp*y1**2*  &
      x4*x2*pr-4._iwp*pr*z1**2*y4*y2+4._iwp*x2*z4*x1*z2*pr+4._iwp*z1*x4*x1*z2*  &
      pr-1._iwp*z1**2*x4**2+4._iwp*z2*x4*x1*z4*pr+4._iwp*x2*y4*y1*x4*pr+4._iwp*y1  &
      *z2*z1*y2-4._iwp*pr*y1*z4*z1*y4+4._iwp*pr*y2*z4*y1*z2+4._iwp*x1*y4*y1*x2  &
      *pr-4._iwp*z1**2*x4*x2*pr-4._iwp*x1*z2*z1*x2*pr+4._iwp*y1*z4*z1*y4-1._iwp  &
      *x1**2*y4**2
      s5 = s7+2._iwp*x1*z2*z1*x2-1._iwp*y1**2*x4**2-1._iwp*z1**2*x2**2+4._iwp*y1  &
      *x4*x1*y2*pr+4._iwp*pr*y1*z4*z1*y2-4._iwp*pr*y2*z4*z2*y4-2._iwp*y1**2*z2  &
      **2+4._iwp*z2*x4*z1*x2*pr-4._iwp*x1**2*z4*z2*pr-2._iwp*z1**2*y4**2-2._iwp*  &
      y1**2*z4**2-4._iwp*x1*y2*y1*x2*pr-1._iwp*x1**2*z2**2+4._iwp*x2*y4*x1*y2*  &
      pr+4._iwp*pr*z1*y4*y1*z2+4._iwp*y2*x4*x1*y4*pr-4._iwp*y2*z4*y1*z2+2._iwp*x1  &
      *y2*y1*x2+4._iwp*x2*z4*z1*x4*pr-4._iwp*x2*z4*z2*x4*pr+2._iwp*x2*y4**2*x1  &
      +s6-1._iwp*y2**2*x4**2-2._iwp*y2**2*z4**2-1._iwp*x2**2*z4**2+4._iwp*pr*y2  &
      *z4*z1*y4-1._iwp*x2**2*y4**2-1._iwp*z2**2*x4**2-1._iwp*x1**2*y2**2-1._iwp*  &
      y1**2*x2**2-2._iwp*z1**2*y2**2+4._iwp*pr*z2*y4*z1*y2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(7,7) = t0


      t0 = 1._iwp/12._iwp*ym*(-1._iwp*y1*z2+y1*z4+z2*y4+z1*y2-1._iwp*z1*y4-  &
      1._iwp*y2*z4)*(x1*z2-1._iwp*x1*z4-1._iwp*z2*x4-1._iwp*z1*x2+z1*x4+x2*z4)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(7,8) = t0

      t0 = -1._iwp/12._iwp*ym*(-1._iwp*y1*z2+y1*z4+z2*y4+z1*y2-1._iwp*z1*y4  &
      -1._iwp*y2*z4)*(x1*y2-1._iwp*x1*y4-1._iwp*y2*x4-1._iwp*y1*x2+y1*x4+x2*y4)/  &
      (x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4  &
      *z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3  &
      -1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2  &
      *z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(7,9) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = 4._iwp*y2*z3*y1*z4-2._iwp*y2*z3*z1*y4-2._iwp*y2*z4*z1*y3-1._iwp*z2*x4  &
      *z1*x2-1._iwp*x2*y3*x1*y2-1._iwp*x2*y4*x1*y2+2._iwp*x2*z3*x1*z4-1._iwp*x2*  &
      z3*z1*x4-1._iwp*x2*z4*z1*x3+2._iwp*pr*z3*y1*z1*y2+2._iwp*z1*x4*x1*z2*pr-  &
      2._iwp*pr*y1*z4*z1*y3+4._iwp*z2*y3*z1*y4-2._iwp*z2*y4*y1*z3-1._iwp*y2*x3*y1  &
      *x2-2._iwp*z2**2*x4*x1*pr-2._iwp*x2**2*y3*y1*pr-2._iwp*x2**2*y4*y1*pr-2._iwp  &
      *y2**2*x3*x1*pr-2._iwp*y2**2*x4*x1*pr-1._iwp*y2*x4*y1*x2-2._iwp*y2*z3  &
      *y1*z2+2._iwp*x1*y3*y1*x2*pr-2._iwp*y1**2*x3*x2*pr
      s7 = -2._iwp*y1**2*x4*x2*pr+2._iwp*pr*y1*z4*z1*y2-1._iwp*z2*x3*x1*z4+2._iwp  &
      *z2*x3*z1*x4-1._iwp*x2*z3*x1*z2-1._iwp*x2*z4*x1*z2-2._iwp*pr*y2**2*z3*z1  &
      -2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1-2._iwp*pr*z2**2*y4*y1+2._iwp  &
      *y1*z3*z1*y4+x2*z3*z2*x4+x2*z4*z2*x3+x2*y3*y2*x4+x2*y4*y2*x3-2._iwp*  &
      z2*y3*y1*z4-2._iwp*x1*z4*z1*x3*pr-4._iwp*pr*z2*y3*z1*y4-2._iwp*x1*y3*y1*  &
      x4*pr+z2**2*x4*x1+x2**2*y3*y1+x2**2*y4*y1+y2**2*x3*x1+y2**2*x4*x1+  &
      2._iwp*pr*y1**2*z2**2+s8
      s8 = 2._iwp*pr*z1**2*y2**2+x2**2*z3*z1+2._iwp*x1**2*z2**2*pr+2._iwp*z1**  &
      2*x2**2*pr-2._iwp*z1**2*y3*y4-4._iwp*pr*y2*z3*y1*z4-1._iwp*x1**2*z2**2+s7  &
      +2._iwp*z1**2*y3*y2-2._iwp*y1**2*z3*z4-1._iwp*x2**2*y3*y4+2._iwp*y1**2*z4  &
      *z2+2._iwp*x1**2*y2**2*pr+2._iwp*y1**2*x2**2*pr+2._iwp*y2*z3*z2*y4+2._iwp*  &
      y2*z4*z2*y3+2._iwp*pr*y2**2*z3*z4+2._iwp*pr*z2**2*y3*y4+2._iwp*z2**2*x3*  &
      x4*pr+2._iwp*x2**2*z3*z4*pr+2._iwp*x2**2*y3*y4*pr+2._iwp*y2**2*x3*x4*pr-  &
      1._iwp*z2*x4*x1*z3+2._iwp*x2*y3*x1*y4-1._iwp*x2*y3*y1*x4
      s6 = -1._iwp*x2*y4*y1*x3-1._iwp*y2*x3*x1*y4+2._iwp*y2*x3*y1*x4-1._iwp*y2*x4  &
      *x1*y3+x1*z3*z1*x4-1._iwp*x1*z3*z1*x2-1._iwp*x1*z4*z1*x2-1._iwp*z1*x3*x1  &
      *z2-1._iwp*z1*x4*x1*z2-1._iwp*x1*y3*y1*x2-1._iwp*x1*y4*y1*x2+2._iwp*pr*y1  &
      **2*z3*z4+2._iwp*pr*z1**2*y3*y4+2._iwp*x1**2*z3*z4*pr+2._iwp*z1**2*x3*x4  &
      *pr+2._iwp*x1**2*y3*y4*pr+2._iwp*y1**2*x3*x4*pr+x1*z4*z1*x3-1._iwp*x1**2  &
      *z3*z4-1._iwp*z1**2*x3*x4-1._iwp*x1**2*y3*y4-1._iwp*y1**2*x3*x4+2._iwp*z2**  &
      2*y3*y1+2._iwp*z2**2*y4*y1+x1**2*z4*z2-1._iwp*z2**2*x3*x4+s8
      s8 = x1**2*z3*z2-4._iwp*x1*z2*z1*x2*pr+2._iwp*y2*x3*y1*x2*pr+2._iwp*y2*x4  &
      *y1*x2*pr+2._iwp*pr*z2*y4*y1*z3-2._iwp*x2*z3*z2*x4*pr-4._iwp*x1*y2*y1*x2  &
      *pr-2._iwp*x2**2*z4*z1*pr-1._iwp*y1*x3*x1*y2-2._iwp*y1*z3*z1*y2-2._iwp*y1  &
      *z4*z1*y2-2._iwp*z1*y3*y1*z2-2._iwp*z1*y4*y1*z2-2._iwp*pr*z3*y1**2*z2-2._iwp  &
      *pr*y1**2*z4*z2-2._iwp*pr*y3*z1**2*y2-2._iwp*pr*z1**2*y4*y2-2._iwp*x1**  &
      2*z3*z2*pr-2._iwp*x1**2*z4*z2*pr-2._iwp*z1**2*x3*x2*pr-2._iwp*z1**2*x4*  &
      x2*pr-2._iwp*x1**2*y3*y2*pr-2._iwp*x1**2*y4*y2*pr-2._iwp*z2**2*x3*x1*pr-  &
      2._iwp*x2*z4*z2*x3*pr
      s7 = -2._iwp*x2*y3*y2*x4*pr-2._iwp*x1*y4*y1*x3*pr-2._iwp*pr*y2*z3*z2*y4+  &
      2._iwp*x2*z3*x1*z2*pr+2._iwp*x2*z4*x1*z2*pr+2._iwp*y2*x4*x1*y3*pr-2._iwp*pr  &
      *y2*z4*z2*y3+2._iwp*x2*z3*z1*x4*pr-4._iwp*x2*z3*x1*z4*pr+2._iwp*z2*x4*x1  &
      *z3*pr+2._iwp*x2*z4*z1*x3*pr+2._iwp*x1*y4*y1*x2*pr-4._iwp*x2*y3*x1*y4*pr  &
      -2._iwp*y1**2*z2**2-2._iwp*x2*y4*y2*x3*pr+2._iwp*z2*x3*x1*z4*pr+2._iwp*x2  &
      *y3*y1*x4*pr-1._iwp*y1*x4*x1*y2-2._iwp*z1**2*y2**2+2._iwp*y1*x3*x1*y2*pr  &
      +2._iwp*y1*x4*x1*y2*pr-4._iwp*z2*x3*z1*x4*pr+2._iwp*x2*y4*y1*x3*pr-2._iwp*  &
      pr*y1*z3*z1*y4+2._iwp*pr*y2*z3*z1*y4+s8
      s8 = s7+y1**2*x4*x2-1._iwp*x2**2*z3*z4+2._iwp*y2**2*z3*z1+z2**2*x3*x1+  &
      2._iwp*y2**2*z4*z1-1._iwp*z2*x3*z1*x2+2._iwp*pr*z2*y4*z1*y2+x1*y3*y1*x4+  &
      x1*y4*y1*x3-2._iwp*z2*y3*z1*y2-2._iwp*z2*y4*z1*y2+4._iwp*y1*z2*z1*y2+2._iwp  &
      *x1*z2*z1*x2-2._iwp*y2*z4*y1*z2+2._iwp*x1*y2*y1*x2+2._iwp*y1*z4*z1*y3-2._iwp  &
      *x2**2*z3*z1*pr+2._iwp*pr*y3*z1*y1*z2+2._iwp*pr*z1*y4*y1*z2-1._iwp*y1  &
      **2*x2**2+2._iwp*pr*y2*z3*y1*z2+2._iwp*y2*x3*x1*y4*pr-4._iwp*pr*y1*z2*z1  &
      *y2-4._iwp*y2*x3*y1*x4*pr
      s5 = -1._iwp*x1**2*y2**2+2._iwp*pr*y2*z4*y1*z2+2._iwp*pr*z2*y3*z1*y2+z1**  &
      2*x3*x2+x1**2*y3*y2+x1**2*y4*y2-1._iwp*y2**2*x3*x4-2._iwp*z2**2*y3*y4  &
      +x2**2*z4*z1+2._iwp*y1**2*z3*z2+2._iwp*z1**2*y4*y2+2._iwp*pr*y2*z4*z1*y3  &
      +2._iwp*pr*z2*y3*y1*z4+2._iwp*z2*x3*z1*x2*pr+2._iwp*z2*x4*z1*x2*pr+s6+2._iwp  &
      *x1*z3*z1*x2*pr+s8+2._iwp*x2*y3*x1*y2*pr+2._iwp*x2*y4*x1*y2*pr-2._iwp*  &
      y2**2*z3*z4+z1**2*x4*x2+y1**2*x3*x2+2._iwp*x1*z4*z1*x2*pr-1._iwp*z1**2  &
      *x2**2+2._iwp*z1*x3*x1*z2*pr-2._iwp*x1*z3*z1*x4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(7,10) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1*z3*z1*y2*pr-2._iwp*pr*z1*y4*x1*z2+2._iwp*pr*z1**2*y4*x2-  &
      1._iwp*x1*z4*z1*y2-1._iwp*z4*y3*x1*z2+y1*z2*z1*x2+2._iwp*pr*y1*z3*z1*x2+  &
      2._iwp*x1*z3*z1*y4*pr+2._iwp*x1*z4*z1*y2*pr+4._iwp*z2*y4*z1*x3*pr-2._iwp*pr  &
      *y1*z3*z1*x4-2._iwp*pr*y1*z4*z1*x2-2._iwp*z2*x3*z1*y2*pr+2._iwp*z2*x3*y2  &
      *z4*pr-4._iwp*pr*z2*y3*z1*x4+2._iwp*pr*y2*z3*x1*z2-2._iwp*pr*y2*z3*z2*x4  &
      -2._iwp*pr*y2*z4*x1*z2+2._iwp*pr*z2*y3*z1*x2+2._iwp*pr*z1*y3*x1*z2
      s6 = s7-2._iwp*pr*z1*y3*x1*z4-2._iwp*pr*z2*y3*x2*z4-2._iwp*z1*x3*y1*z2*pr  &
      -1._iwp*z2**2*x4*y3-1._iwp*z1**2*y2*x2-1._iwp*z1**2*y3*x4+2._iwp*z2*x4*z1  &
      *y2*pr+2._iwp*z1*x4*y1*z2*pr+2._iwp*z1*x3*y1*z4*pr+2._iwp*z2**2*x3*y1*pr  &
      -2._iwp*z2**2*x3*y4*pr-2._iwp*z2**2*x4*y1*pr-2._iwp*z1**2*x4*y2*pr+y2*z3  &
      *z1*x2-1._iwp*y2*z3*z1*x4-1._iwp*y2*z3*x2*z4+y2*z4*z1*x2-1._iwp*y2*z3*x1  &
      *z2-1._iwp*x2*z4*y1*z2+z1*y2*x1*z2
      s7 = -1._iwp*z2*y3*z1*x2+y1*z3*x1*z2-1._iwp*y1*z3*x1*z4-1._iwp*y1*z3*z1*  &
      x2+y1*z3*z1*x4+y1*z4*x1*z2-1._iwp*z1*y3*x1*z2+z1*y3*x1*z4+y2*z4*x1*z3  &
      -2._iwp*pr*z2**2*y3*x1+2._iwp*pr*z2**2*y3*x4+2._iwp*pr*z2**2*y4*x1-2._iwp  &
      *pr*z1**2*y3*x2-1._iwp*z2*x4*y1*z3+2._iwp*pr*z1**2*y3*x4+2._iwp*pr*y2*z3  &
      *z1*x4-2._iwp*pr*z2*y4*z1*x2-2._iwp*pr*y2*z4*z1*x3+2._iwp*pr*z2*y3*x1*z4  &
      -2._iwp*pr*z2*y4*x1*z3-1._iwp*z1*x4*y1*z2
      s5 = s7+2._iwp*z1**2*x3*y2*pr+x2*z4*z2*y3+z2*x4*y2*z3+2._iwp*z2*y3*z1*  &
      x4+x2*z3*y1*z4-1._iwp*x2*z4*z1*y3-2._iwp*z1**2*x3*y4*pr-1._iwp*z2*x4*z1*  &
      y2-2._iwp*x2*z3*z1*y4*pr+s6+2._iwp*x2*z4*z1*y3*pr-2._iwp*z2*x3*y1*z4*pr+  &
      z2**2*y3*x1-1._iwp*y1*z2**2*x1+z2**2*x4*y1+z1**2*y3*x2+z1**2*x4*y2+2._iwp  &
      *z2*x4*y1*z3*pr+2._iwp*x2*z4*y1*z2*pr-2._iwp*x2*z3*y1*z2*pr+2._iwp*x2  &
      *z3*z2*y4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(7,11) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = -1._iwp*z2*y3*y1*x2-2._iwp*pr*z2*y3*y1*x4+2._iwp*pr*z2*y4*y1*x3+2._iwp  &
      *pr*y2*z3*x2*y4+2._iwp*pr*y2*z4*y1*x2-2._iwp*y2*x4*z1*y3*pr-2._iwp*pr*z2  &
      *y3*x1*y2+2._iwp*pr*z2*y3*y2*x4-2._iwp*pr*z1*y3*y1*x2-2._iwp*pr*y2*z3*y1  &
      *x2-2._iwp*y1**2*x3*z2*pr-2._iwp*y2*x3*z2*y4*pr-2._iwp*y2*x4*y1*z2*pr+2._iwp  &
      *pr*z1*y3*y1*x4+2._iwp*pr*z1*y4*y1*x2-2._iwp*pr*y1*z3*x1*y2+4._iwp*pr  &
      *y2*z3*y1*x4+2._iwp*pr*y2*z4*x1*y3-4._iwp*pr*y2*z4*y1*x3+2._iwp*x1*y3*y1  &
      *z2*pr
      s6 = s7-2._iwp*x2*y4*z1*y2*pr+2._iwp*x2*y3*z1*y2*pr-2._iwp*x2*y3*y2*z4*pr  &
      +y2*x4*z1*y3-2._iwp*y2**2*x3*z1*pr-2._iwp*pr*y2*z3*x1*y4+2._iwp*x2*y3*y1  &
      *z4*pr-2._iwp*x2*y4*y1*z3*pr+2._iwp*y2*x3*z1*y4*pr+2._iwp*y2**2*x3*z4*pr  &
      +2._iwp*y2**2*x4*z1*pr-1._iwp*z1*y4*x1*y2+2._iwp*pr*y1**2*z3*x2-2._iwp*pr  &
      *y1**2*z3*x4-2._iwp*pr*y1**2*z4*x2-1._iwp*y1*z2*x1*y2-1._iwp*z1*y2*y1*x2  &
      +y1*z3*x1*y2+z1*y3*y1*x2-2._iwp*pr*y2**2*z3*x4
      s7 = -2._iwp*pr*y2**2*z4*x1+x2*y4*z1*y2+y2*x4*y1*z2+y2*z3*y1*x2+x1*y4  &
      *y1*z2-1._iwp*x1*y4*y1*z3-1._iwp*y1*x4*z1*y3-1._iwp*x2*y4*y2*z3+y1*x4*z1  &
      *y2+2._iwp*y1**2*x3*z4*pr+2._iwp*y1**2*x4*z2*pr-1._iwp*z2*y3*x1*y4+z2*y3  &
      *x1*y2-2._iwp*x1*y3*y1*z4*pr-2._iwp*x1*y4*y1*z2*pr+2._iwp*y1*x3*z1*y2*pr  &
      -1._iwp*x2*y3*z1*y4+x2*y4*y1*z3+2._iwp*y2*x3*y1*z2*pr+2._iwp*pr*z2*y4*x1  &
      *y2+y1**2*x4*z3
      s5 = s7-1._iwp*y1**2*x4*z2-1._iwp*y2**2*x4*z1-1._iwp*y1**2*z3*x2+y2**2*x4  &
      *z3-1._iwp*y2**2*z3*x1+2._iwp*pr*y1*z3*x1*y4+2._iwp*pr*y1*z4*x1*y2+s6+y1  &
      **2*z2*x2+z1*y2**2*x1-2._iwp*y1*x3*z1*y4*pr-2._iwp*y1*x4*z1*y2*pr+z2*  &
      y3*x2*y4-1._iwp*z2*y4*y1*x2+2._iwp*pr*y2**2*z3*x1-1._iwp*y2*x4*z2*y3-1._iwp  &
      *z1*y3*x1*y2+z1*y3*x1*y4-2._iwp*y2*z3*y1*x4+z2*y3*y1*x4+y2*z3*x1*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(7,12) = t0


km(8,1) = km(1,8)


km(8,2) = km(2,8)


km(8,3) = km(3,8)


km(8,4) = km(4,8)


km(8,5) = km(5,8)


km(8,6) = km(6,8)


km(8,7) = km(7,8)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 4._iwp*x2*y4*x1*y2*pr+4._iwp*y2*x4*y1*x2*pr+4._iwp*z2*x4*x1*z4*pr+2._iwp  &
      *y2**2*x4*x1-4._iwp*pr*y1*z4*z1*y4-1._iwp*z1**2*y4**2+4._iwp*x1*y4*y1  &
      *x2*pr+2._iwp*pr*y2**2*z4**2+2._iwp*y2**2*z4*z1+2._iwp*x2**2*y4**2*pr+2._iwp  &
      *x1**2*z2**2*pr+2._iwp*y2**2*x4**2*pr+2._iwp*z2**2*y4*y1+2._iwp*pr*y1**  &
      2*z2**2+2._iwp*x2**2*y4*y1+4._iwp*z2**2*x4*x1-4._iwp*x1*z2*z1*x2*pr+2._iwp  &
      *z2**2*x4**2*pr+2._iwp*pr*z1**2*y2**2+4._iwp*pr*y2*z4*y1*z2+2._iwp*y1**  &
      2*x2**2*pr+2._iwp*x1**2*y2**2*pr+2._iwp*z1**2*x2**2*pr+4._iwp*x2*z4**2*x1  &
      -4._iwp*x1*y2*y1*x2*pr+4._iwp*x2*y4*y1*x4*pr-1._iwp*x1**2*y2**2+2._iwp*y1  &
      **2*x4**2*pr+2._iwp*x1**2*y4**2*pr+2._iwp*z1**2*x4**2*pr+2._iwp*x1**2*z4  &
      **2*pr
      s6 = 2._iwp*pr*y1**2*z4**2+2._iwp*pr*z1**2*y4**2+2._iwp*x2**2*z4**2*pr+4._iwp  &
      *y1*x4*x1*y2*pr+2._iwp*pr*z2**2*y4**2+2._iwp*y2*z4**2*y1+2._iwp*y2*x4  &
      **2*y1+4._iwp*z2*x4**2*z1+4._iwp*x1**2*z4*z2+s7+2._iwp*y1**2*x4*x2+2._iwp*  &
      x1**2*y4*y2+4._iwp*z1**2*x4*x2+4._iwp*x2**2*z4*z1+2._iwp*z1**2*y4*y2+2._iwp  &
      *y1**2*z4*z2-4._iwp*pr*y2*z4*z2*y4+2._iwp*z2*y4**2*z1-2._iwp*x2*y4*y1*x4  &
      -4._iwp*z2*x4*x1*z4+2._iwp*y2*z4*z2*y4+2._iwp*x2*y4**2*x1+4._iwp*pr*z1*y4  &
      *y1*z2-2._iwp*x2*y4*x1*y2-4._iwp*z2*x4*z1*x2-2._iwp*y2*z4*z1*y4-2._iwp*y2*  &
      x4*x1*y4+4._iwp*y2*x4*x1*y4*pr-1._iwp*z2**2*y4**2-4._iwp*pr*y2**2*z4*z1+  &
      4._iwp*x2*z4*z1*x4*pr-4._iwp*x2*z4*x1*z2-4._iwp*x2*z4*z1*x4
      s7 = -4._iwp*pr*z2**2*y4*y1-4._iwp*pr*y1*z2*z1*y2+4._iwp*x2*z4*z2*x4-4._iwp  &
      *x2*y4**2*x1*pr-4._iwp*y2*x4**2*y1*pr-4._iwp*z2*x4**2*z1*pr-4._iwp*x2*z4  &
      **2*x1*pr-4._iwp*pr*z2*y4**2*z1-4._iwp*pr*y2*z4**2*y1-1._iwp*y2**2*z4**  &
      2+2._iwp*x2*y4*y2*x4+4._iwp*pr*y2*z4*z1*y4-2._iwp*z2*y4*y1*z4-2._iwp*y2*x4  &
      *y1*x2-4._iwp*y2**2*x4*x1*pr-4._iwp*x2**2*y4*y1*pr-4._iwp*z2**2*x4*x1*pr  &
      -2._iwp*x1*y4*y1*x2-4._iwp*z1*x4*x1*z2-1._iwp*y1**2*z4**2-4._iwp*x1*z4*z1*  &
      x2+4._iwp*pr*z2*y4*y1*z4-2._iwp*z1**2*x2**2-4._iwp*x1*z4*z1*x4*pr+2._iwp*y1  &
      *z2*z1*y2-2._iwp*z2*y4*z1*y2-2._iwp*x1**2*z2**2+2._iwp*x1*y4*y1*x4+4._iwp  &
      *x1*z4*z1*x4+4._iwp*x1*z2*z1*x2-1._iwp*x2**2*y4**2+2._iwp*x1*y2*y1*x2
      s5 = s7-2._iwp*y2*z4*y1*z2-1._iwp*y1**2*x2**2-4._iwp*x1*y4*y1*x4*pr-4._iwp  &
      *x2**2*z4*z1*pr-1._iwp*y1**2*z2**2+2._iwp*y1*z4*z1*y4-1._iwp*z1**2*y2**2  &
      -4._iwp*pr*y1**2*z4*z2-2._iwp*z1*y4*y1*z2-1._iwp*y1**2*x4**2-2._iwp*y1*z4*  &
      z1*y2-2._iwp*y1*x4*x1*y2+4._iwp*x2*z4*x1*z2*pr-4._iwp*x1**2*y4*y2*pr-4._iwp  &
      *z1**2*x4*x2*pr-4._iwp*x1**2*z4*z2*pr-4._iwp*pr*z1**2*y4*y2-1._iwp*y2**  &
      2*x4**2-4._iwp*y1**2*x4*x2*pr-4._iwp*x2*z4*z2*x4*pr-1._iwp*x1**2*y4**2-2._iwp  &
      *z1**2*x4**2-4._iwp*x2*y4*y2*x4*pr-2._iwp*z2**2*x4**2+4._iwp*x1*z4*z1  &
      *x2*pr+4._iwp*pr*z2*y4*z1*y2-2._iwp*x1**2*z4**2+4._iwp*pr*y1*z4*z1*y2+s6  &
      -2._iwp*x2**2*z4**2+4._iwp*z2*x4*z1*x2*pr+4._iwp*z1*x4*x1*z2*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(8,8) = t0

      t0 = -1._iwp/12._iwp*ym*(x1*z2-1._iwp*x1*z4-1._iwp*z2*x4-1._iwp*z1*x2+z1  &
      *x4+x2*z4)*(x1*y2-1._iwp*x1*y4-1._iwp*y2*x4-1._iwp*y1*x2+y1*x4+x2*y4)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(8,9) = t0

      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*x1*z4*z1*y2*pr+2._iwp*z1*x4*y1*z2*pr+2._iwp*pr*z2*y3*z1*x2-2._iwp  &
      *pr*z2*y3*x2*z4+2._iwp*pr*y1*z3*z1*x2-1._iwp*z1*x3*y1*z4-2._iwp*z2*y4  &
      *z1*x3-1._iwp*x2*z3*y1*z4+x2*z3*z1*y4-2._iwp*z1**2*x3*y4*pr+z2*x3*z1*y2  &
      -1._iwp*z2*x3*y2*z4+z4*x3*z1*y2+2._iwp*z2**2*x3*y1*pr-2._iwp*z2**2*x3*y4  &
      *pr-2._iwp*z2**2*x4*y1*pr-2._iwp*z1**2*x4*y2*pr-1._iwp*y2*z3*z1*x2+y2*z3  &
      *x2*z4-1._iwp*y2*z4*z1*x2
      s6 = s7+y2*z4*x1*z2-2._iwp*pr*y1*z3*z1*x4-2._iwp*pr*z2*y4*z1*x2-1._iwp*z1  &
      *y2*x1*z2+z2*y4*z1*x2-1._iwp*y1*z3*x1*z2+y1*z3*x1*z4-1._iwp*y1*z4*x1*  &
      z2+y1*z4*z1*x2-1._iwp*y2*z4*x1*z3-2._iwp*pr*z2**2*y3*x1+2._iwp*pr*z2**2*  &
      y3*x4+2._iwp*pr*z2**2*y4*x1+x2*z3*y1*z2-1._iwp*x2*z3*z2*y4-2._iwp*pr*z1**  &
      2*y3*x2+z2*x3*y1*z4+z1*y4*x1*z2-2._iwp*x2*z3*z1*y4*pr-2._iwp*pr*z1*y4  &
      *x1*z2
      s7 = -2._iwp*pr*y1*z4*z1*x2+2._iwp*z1*x3*y1*z4*pr+2._iwp*pr*y2*z3*z1*x4+  &
      2._iwp*pr*z1*y3*x1*z2-2._iwp*pr*z1*y3*x1*z4+2._iwp*z2*x3*y2*z4*pr+2._iwp*z2  &
      *x4*z1*y2*pr+2._iwp*x2*z4*z1*y3*pr-2._iwp*z2*x3*y1*z4*pr+2._iwp*z2*x4*y1  &
      *z3*pr-2._iwp*pr*y2*z4*z1*x3-2._iwp*z1*x3*y1*z2*pr-1._iwp*z2**2*y4*x1+y1  &
      *z2**2*x1+z1**2*y2*x2-1._iwp*z2**2*x3*y1+2._iwp*pr*z1**2*y3*x4+y4*z3*  &
      x1*z2+x1*z3*z1*y2-1._iwp*x1*z3*z1*y4-1._iwp*y1*z2*z1*x2
      s5 = s7+2._iwp*pr*z1**2*y4*x2-1._iwp*z1**2*y4*x2+4._iwp*z2*y4*z1*x3*pr-2._iwp  &
      *x1*z3*z1*y2*pr+z1*x3*y1*z2+2._iwp*z1**2*x3*y2*pr+z1**2*x3*y4-1._iwp  &
      *z1**2*x3*y2-4._iwp*pr*z2*y3*z1*x4+2._iwp*pr*y2*z3*x1*z2+z2**2*x3*y4+  &
      2._iwp*x2*z4*y1*z2*pr+2._iwp*x1*z3*z1*y4*pr-2._iwp*pr*y2*z3*z2*x4+2._iwp*pr  &
      *z2*y3*x1*z4-2._iwp*pr*y2*z4*x1*z2-2._iwp*pr*z2*y4*x1*z3+s6-2._iwp*z2*x3  &
      *z1*y2*pr-2._iwp*x2*z3*y1*z2*pr+2._iwp*x2*z3*z2*y4*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(8,10) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = -1._iwp*y2**2*x3*x4-1._iwp*z2**2*y3*y4+2._iwp*z2**2*x3*x1+y1**2*z3*  &
      z2+y1**2*z4*z2+z1**2*y3*y2+z1**2*y4*y2+2._iwp*x2*y3*y1*x4*pr+2._iwp*x1  &
      *z3*z1*x2*pr+2._iwp*x1*z4*z1*x2*pr-2._iwp*pr*y1*z4*z1*y3-2._iwp*x2*z3*z2  &
      *x4*pr-2._iwp*x2*z4*z2*x3*pr-2._iwp*x2*y3*y2*x4*pr-1._iwp*z2*y3*y1*z4+2._iwp  &
      *z2*y3*z1*y4-1._iwp*z2*y4*y1*z3-1._iwp*y2*x3*y1*x2-2._iwp*z2**2*x4*x1*  &
      pr-2._iwp*x2**2*y3*y1*pr-2._iwp*x2**2*y4*y1*pr-2._iwp*y2**2*x3*x1*pr-2._iwp  &
      *y2**2*x4*x1*pr-1._iwp*y2*x4*y1*x2
      s7 = -1._iwp*y2*z3*y1*z2+2._iwp*x1*z3*z1*x4-2._iwp*x1*z3*z1*x2-2._iwp*x1*z4  &
      *z1*x2-2._iwp*z1*x3*x1*z2-2._iwp*z1*x4*x1*z2+2._iwp*pr*y1*z4*z1*y2+2._iwp  &
      *z1*x3*x1*z2*pr+2._iwp*z1*x4*x1*z2*pr-2._iwp*x2*y4*y2*x3*pr+2._iwp*x1*y3  &
      *y1*x2*pr+2._iwp*y2*x3*y1*x2*pr-2._iwp*z1**2*x2**2+2._iwp*y2*x4*y1*x2*pr  &
      +2._iwp*x1*y4*y1*x2*pr+2._iwp*y1*x3*x1*y2*pr+2._iwp*y1*x4*x1*y2*pr-2._iwp*  &
      x1*z3*z1*x4*pr+2._iwp*x2*y4*y1*x3*pr+2._iwp*y2*x3*x1*y4*pr-4._iwp*x1*z2*  &
      z1*x2*pr-4._iwp*x1*y2*y1*x2*pr-1._iwp*x1**2*y2**2-4._iwp*y2*x3*y1*x4*pr+  &
      2._iwp*pr*y3*z1*y1*z2+s8
      s8 = s7+2._iwp*pr*z1*y4*y1*z2+2._iwp*pr*z2*y4*z1*y2-1._iwp*y2*z4*y1*z2+2._iwp  &
      *x1*y2*y1*x2+y1*z4*z1*y3-2._iwp*x2**2*z3*z1*pr-2._iwp*x2**2*z4*z1*pr  &
      -2._iwp*z2**2*x3*x1*pr-1._iwp*y1*x3*x1*y2-1._iwp*y1*x4*x1*y2-1._iwp*y1*z3  &
      *z1*y2-1._iwp*y1*z4*z1*y2-1._iwp*z1*y3*y1*z2-1._iwp*z1*y4*y1*z2-2._iwp*pr*  &
      z3*y1**2*z2-2._iwp*pr*y1**2*z4*z2-2._iwp*pr*y3*z1**2*y2-2._iwp*pr*z1**2*  &
      y4*y2-2._iwp*x1**2*z3*z2*pr-2._iwp*x1**2*z4*z2*pr-2._iwp*z1**2*x3*x2*pr-  &
      2._iwp*z2*x4*z1*x2-1._iwp*x2*y3*x1*y2-1._iwp*x2*y4*x1*y2
      s6 = 4._iwp*x2*z3*x1*z4-2._iwp*x2*z3*z1*x4-2._iwp*x2*z4*z1*x3-2._iwp*z2*x3  &
      *x1*z4+4._iwp*z2*x3*z1*x4-2._iwp*x2*z3*x1*z2-2._iwp*x2*z4*x1*z2-2._iwp*pr*  &
      y2**2*z3*z1-2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1-2._iwp*pr*z2**2*  &
      y4*y1+y1*z3*z1*y4+2._iwp*x2*z3*z2*x4+2._iwp*x2*z4*z2*x3+x2*y3*y2*x4+x2  &
      *y4*y2*x3-2._iwp*x1*z4*z1*x3*pr-1._iwp*y1**2*x2**2+2._iwp*pr*y2*z3*y1*z2  &
      -2._iwp*pr*y2*z3*z2*y4-2._iwp*pr*y1*z3*z1*y4-1._iwp*x1*y3*y1*x2-1._iwp*x1*  &
      y4*y1*x2+2._iwp*pr*y1**2*z3*z4+2._iwp*pr*z1**2*y3*y4+2._iwp*x1**2*z3*z4*  &
      pr+s8
      s8 = 2._iwp*z1**2*x3*x4*pr+2._iwp*x1**2*y3*y4*pr+2._iwp*y1**2*x3*x4*pr+2._iwp  &
      *x1*z4*z1*x3+x1*y3*y1*x4+x1*y4*y1*x3-1._iwp*z2*y3*z1*y2-1._iwp*z2*y4  &
      *z1*y2+2._iwp*y1*z2*z1*y2+4._iwp*x1*z2*z1*x2+2._iwp*pr*y2*z4*y1*z2+2._iwp  &
      *pr*z2*y3*z1*y2-2._iwp*pr*y2*z4*z2*y3+2._iwp*y2*x4*x1*y3*pr-2._iwp*x1**2  &
      *z2**2-4._iwp*x2*z3*x1*z4*pr+2._iwp*x2*z3*z1*x4*pr+y2*z4*z2*y3+2._iwp*pr  &
      *y2**2*z3*z4+2._iwp*pr*z2**2*y3*y4+2._iwp*z2**2*x3*x4*pr+2._iwp*x2**2*z3  &
      *z4*pr+2._iwp*x2**2*y3*y4*pr+2._iwp*y2**2*x3*x4*pr-2._iwp*z2*x3*z1*x2
      s7 = -2._iwp*z2*x4*x1*z3+2._iwp*x2*y3*x1*y4-1._iwp*x2*y3*y1*x4-1._iwp*x2*y4  &
      *y1*x3-1._iwp*y2*x3*x1*y4+2._iwp*y2*x3*y1*x4-1._iwp*y2*x4*x1*y3+2._iwp*y2  &
      *z3*y1*z4-1._iwp*y2*z3*z1*y4-1._iwp*y2*z4*z1*y3-2._iwp*z1**2*x4*x2*pr-2._iwp  &
      *x1**2*y3*y2*pr-2._iwp*x1**2*y4*y2*pr-2._iwp*y1**2*x3*x2*pr-2._iwp*y1**  &
      2*x4*x2*pr-2._iwp*x1*y3*y1*x4*pr-2._iwp*x1*y4*y1*x3*pr-4._iwp*pr*y1*z2*  &
      z1*y2+2._iwp*x2*z3*x1*z2*pr+2._iwp*x2*z4*x1*z2*pr+2._iwp*x2*z4*z1*x3*pr-  &
      4._iwp*pr*y2*z3*y1*z4+2._iwp*z2*x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*pr-1._iwp*y1  &
      **2*z3*z4+s8
      s8 = s7-1._iwp*z1**2*y3*y4+x1**2*y3*y2+x1**2*y4*y2+y1**2*x3*x2+y1**2  &
      *x4*x2+2._iwp*z2*x3*x1*z4*pr+2._iwp*z1**2*x4*x2+y2**2*z3*z1+y2**2*z4*z1  &
      +2._iwp*x1**2*z3*z2-2._iwp*x1**2*z3*z4-2._iwp*z1**2*x3*x4-1._iwp*x1**2*y3  &
      *y4-1._iwp*x2**2*y3*y4+z2**2*y3*y1+2._iwp*x2**2*z3*z1+z2**2*y4*y1-4._iwp  &
      *z2*x3*z1*x4*pr+2._iwp*z2*x3*z1*x2*pr-2._iwp*z2**2*x3*x4+2._iwp*z2**2*x4  &
      *x1+x2**2*y3*y1+x2**2*y4*y1+y2**2*x3*x1
      s5 = y2**2*x4*x1+2._iwp*pr*y1**2*z2**2+2._iwp*pr*z1**2*y2**2+2._iwp*z1**  &
      2*x2**2*pr+2._iwp*x1**2*y2**2*pr+2._iwp*y1**2*x2**2*pr+2._iwp*x2*y4*x1*y2  &
      *pr-1._iwp*y1**2*z2**2+2._iwp*pr*y2*z4*z1*y3+2._iwp*pr*z2*y3*y1*z4+2._iwp  &
      *pr*y2*z3*z1*y4-4._iwp*pr*z2*y3*z1*y4+s6+s8+y2*z3*z2*y4+2._iwp*pr*z2*y4  &
      *y1*z3+2._iwp*pr*z3*y1*z1*y2+2._iwp*x1**2*z2**2*pr+2._iwp*x1**2*z4*z2+2._iwp  &
      *z1**2*x3*x2-1._iwp*y2**2*z3*z4-2._iwp*x2**2*z3*z4-1._iwp*y1**2*x3*x4  &
      +2._iwp*x2**2*z4*z1+2._iwp*z2*x4*x1*z3*pr-4._iwp*x2*y3*x1*y4*pr-1._iwp*z1**  &
      2*y2**2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(8,11) = t0


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -2._iwp*x1*y3*z1*x2*pr-1._iwp*x2**2*z3*y4+x2**2*z3*y1+x2**2*y4*z1  &
      +x1**2*z3*y2-1._iwp*x1**2*z2*y2-1._iwp*z1*x2**2*y1-1._iwp*x1**2*z3*y4+x1  &
      **2*y4*z2+x2*z3*y2*x4+2._iwp*x2*y4*x1*z2*pr-2._iwp*y2*x3*z1*x2*pr+4._iwp  &
      *x2*z4*x1*y3*pr+2._iwp*pr*x2**2*z4*y1-1._iwp*x1*y4*z1*x2-1._iwp*y1*x4*x1  &
      *z2-1._iwp*x2*y4*x1*z2+2._iwp*x1**2*y3*z2*pr-2._iwp*x1**2*y3*z4*pr-2._iwp*  &
      x1**2*y4*z2*pr
      s6 = s7+x1*z3*y1*x4-1._iwp*z2*x3*y1*x2+x1*z2*y1*x2+z1*x2*x1*y2-1._iwp*  &
      x2*z3*y1*x4+z1*x3*x1*y4+z1*x3*y1*x2-1._iwp*z1*x3*y1*x4+z1*x4*y1*x2-1._iwp  &
      *x2*y4*z1*x3+y2*x3*z1*x4-1._iwp*y2*x4*x1*z3-1._iwp*y2*x4*z1*x2+2._iwp  &
      *x2**2*y3*z1*pr-2._iwp*x2**2*y4*z1*pr+z2*x3*y1*x4+2._iwp*pr*x1**2*z3*y4  &
      +2._iwp*pr*x1**2*z4*y2-2._iwp*pr*x1**2*z3*y2-1._iwp*x2*z3*x1*y2
      s7 = 2._iwp*x1*y3*z1*x4*pr+2._iwp*x1*y4*z1*x2*pr+2._iwp*x2*z3*x1*y4+2._iwp  &
      *pr*z2*x3*y1*x2-2._iwp*pr*z1*x4*x1*y2-1._iwp*x1*z3*y1*x2+z2*x3*x1*y2-1._iwp  &
      *z2*x3*x1*y4-1._iwp*z2*x3*y2*x4+z2*x3*x2*y4+z2*x4*x1*y2-1._iwp*z1*x3  &
      *x1*y2-2._iwp*pr*x2**2*z3*y1+2._iwp*pr*x2**2*z3*y4+2._iwp*pr*x2*z3*y1*x4  &
      -2._iwp*pr*x2*z4*y1*x3+2._iwp*pr*z2*x3*x1*y4-2._iwp*x2*y3*z1*x4*pr+2._iwp  &
      *x2*y4*z1*x3*pr-2._iwp*y2*x3*x1*z4*pr+2._iwp*y2*x3*x2*z4*pr
      s5 = s7+2._iwp*y2*x4*z1*x2*pr+2._iwp*pr*x1*z3*y1*x2-2._iwp*pr*x1*z3*y1*x4  &
      +2._iwp*y2*x4*x1*z3*pr-2._iwp*x2*y3*x1*z2*pr+2._iwp*x2*y3*z2*x4*pr-2._iwp  &
      *pr*z2*x3*x2*y4-2._iwp*pr*z2*x4*y1*x2+2._iwp*pr*z1*x3*x1*y2+2._iwp*pr*x2  &
      *z3*x1*y2+2._iwp*y1*x3*x1*z4*pr+2._iwp*y1*x4*x1*z2*pr-2._iwp*pr*z1*x3*x1  &
      *y4-2._iwp*pr*z2*x4*x1*y3-2._iwp*y1*x3*x1*z2*pr-2._iwp*x2**2*y3*z4*pr+s6  &
      -2._iwp*pr*x2*z3*y2*x4-2._iwp*pr*x2*z4*x1*y2-4._iwp*pr*x2*z3*x1*y4-2._iwp*  &
      pr*x1*z4*y1*x2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(8,12) = t0


km(9,1) = km(1,9)


km(9,2) = km(2,9)


km(9,3) = km(3,9)


km(9,4) = km(4,9)


km(9,5) = km(5,9)


km(9,6) = km(6,9)


km(9,7) = km(7,9)


km(9,8) = km(8,9)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 4._iwp*y1*x4*x1*y2*pr+4._iwp*x2*z4*x1*z2*pr-1._iwp*z1**2*y2**2-1._iwp  &
      *y1**2*z2**2-1._iwp*z2**2*x4**2-4._iwp*pr*y2*z4*z2*y4-4._iwp*pr*y1*z2*z1  &
      *y2+4._iwp*pr*z1*y4*y1*z2+4._iwp*z2*x4*x1*z4*pr-2._iwp*y1**2*x2**2-2._iwp*  &
      y2**2*x4**2+2._iwp*x2*z4**2*x1+2._iwp*z1**2*x4**2*pr+2._iwp*x1**2*z2**2*  &
      pr+2._iwp*y1**2*x2**2*pr+2._iwp*z1**2*x4*x2+2._iwp*pr*z1**2*y4**2+2._iwp*pr  &
      *y2**2*z4**2+2._iwp*pr*z2**2*y4**2+2._iwp*y2**2*x4**2*pr+2._iwp*z2**2*y4  &
      *y1-1._iwp*z1**2*y4**2+2._iwp*y2**2*z4*z1+2._iwp*x2**2*y4**2*pr+2._iwp*z2  &
      **2*x4**2*pr+4._iwp*x2*y4**2*x1+2._iwp*pr*z1**2*y2**2+2._iwp*pr*y1**2*z2  &
      **2+4._iwp*y2**2*x4*x1+4._iwp*x2**2*y4*y1+2._iwp*z2**2*x4*x1
      s6 = s7+2._iwp*x1**2*y2**2*pr+2._iwp*z1**2*x2**2*pr-1._iwp*z2**2*y4**2+4._iwp  &
      *y2*x4**2*y1+2._iwp*z2*x4**2*z1+2._iwp*y1**2*x4**2*pr+2._iwp*x1**2*y4  &
      **2*pr+2._iwp*x1**2*z4**2*pr+2._iwp*pr*y1**2*z4**2+2._iwp*x2**2*z4**2*pr  &
      +4._iwp*x1**2*y4*y2+2._iwp*x1**2*z4*z2+2._iwp*y2*z4**2*y1+4._iwp*y1**2*x4*  &
      x2+2._iwp*x2**2*z4*z1+2._iwp*z2*y4**2*z1+2._iwp*z1**2*y4*y2+2._iwp*y1**2*z4  &
      *z2-2._iwp*y1**2*x4**2-4._iwp*y2*x4*x1*y4-4._iwp*x2*y4*y1*x4-2._iwp*z2*x4  &
      *x1*z4+2._iwp*y2*z4*z2*y4-4._iwp*x2*y4*x1*y2-2._iwp*z2*x4*z1*x2-2._iwp*y2*  &
      z4*z1*y4-4._iwp*x2*z4*z2*x4*pr-4._iwp*pr*y2**2*z4*z1-2._iwp*x2*z4*x1*z2-  &
      2._iwp*x2*z4*z1*x4-4._iwp*y2*x4**2*y1*pr-4._iwp*z2*x4**2*z1*pr
      s7 = -4._iwp*x2*z4**2*x1*pr-4._iwp*pr*z2*y4**2*z1-4._iwp*pr*y2*z4**2*y1-  &
      4._iwp*pr*z2**2*y4*y1+4._iwp*x2*y4*y2*x4+2._iwp*x2*z4*z2*x4+4._iwp*x2*y4*y1  &
      *x4*pr-4._iwp*x2*y4**2*x1*pr+4._iwp*pr*y1*z4*z1*y2-2._iwp*z2*y4*y1*z4+4._iwp  &
      *y2*x4*x1*y4*pr-2._iwp*z1*x4*x1*z2-2._iwp*x1*z4*z1*x2-4._iwp*y2*x4*y1  &
      *x2-4._iwp*y2**2*x4*x1*pr-4._iwp*x2**2*y4*y1*pr-4._iwp*z2**2*x4*x1*pr-4._iwp  &
      *x1*y4*y1*x2-4._iwp*x1*z2*z1*x2*pr+4._iwp*y2*x4*y1*x2*pr-4._iwp*x2*y4*  &
      y2*x4*pr-4._iwp*x1*y2*y1*x2*pr-4._iwp*pr*y1*z4*z1*y4-1._iwp*z1**2*x2**2-  &
      1._iwp*x1**2*z2**2-2._iwp*z2*y4*z1*y2+4._iwp*x1*y4*y1*x4+2._iwp*x1*z4*z1*x4  &
      +2._iwp*y1*z2*z1*y2+4._iwp*x2*z4*z1*x4*pr+2._iwp*x1*z2*z1*x2+4._iwp*x1*y2  &
      *y1*x2
      s5 = s7-2._iwp*y2*z4*y1*z2+4._iwp*pr*y2*z4*z1*y4-1._iwp*y2**2*z4**2+4._iwp  &
      *z2*x4*z1*x2*pr+2._iwp*y1*z4*z1*y4+4._iwp*pr*z2*y4*z1*y2-1._iwp*x2**2*z4  &
      **2-4._iwp*x2**2*z4*z1*pr-2._iwp*z1*y4*y1*z2+4._iwp*pr*z2*y4*y1*z4-2._iwp*  &
      y1*z4*z1*y2-4._iwp*y1*x4*x1*y2-1._iwp*x1**2*z4**2-2._iwp*x2**2*y4**2-4._iwp  &
      *pr*y1**2*z4*z2+4._iwp*z1*x4*x1*z2*pr+4._iwp*x1*z4*z1*x2*pr-4._iwp*y1**  &
      2*x4*x2*pr-4._iwp*x1**2*y4*y2*pr-4._iwp*z1**2*x4*x2*pr-4._iwp*x1**2*z4*z2  &
      *pr-4._iwp*pr*z1**2*y4*y2-2._iwp*x1**2*y2**2+4._iwp*pr*y2*z4*y1*z2-2._iwp  &
      *x1**2*y4**2-1._iwp*z1**2*x4**2+s6-4._iwp*x1*z4*z1*x4*pr+4._iwp*x1*y4*y1  &
      *x2*pr-4._iwp*x1*y4*y1*x4*pr+4._iwp*x2*y4*x1*y2*pr-1._iwp*y1**2*z4**2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(9,9) = t0

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*pr*y1*z4*x1*y2-2._iwp*pr*z1*y3*y1*x2+2._iwp*pr*z2*y4*y1*x3-2._iwp  &
      *pr*y2*z3*y1*x2-1._iwp*y2*z4*x1*y3+2._iwp*pr*y2*z3*x2*y4+2._iwp*y1*x3  &
      *z1*y2*pr-2._iwp*pr*y2*z3*x1*y4-2._iwp*y1*x3*z1*y4*pr-2._iwp*y1*x4*z1*y2  &
      *pr+2._iwp*pr*y2*z4*y1*x2+2._iwp*x2*y3*z1*y2*pr-2._iwp*pr*z2*y3*x1*y2+2._iwp  &
      *pr*z2*y3*y2*x4+2._iwp*pr*z2*y4*x1*y2-2._iwp*x2*y3*y2*z4*pr-1._iwp*x2*  &
      y3*y1*z4+x2*y3*z1*y4-1._iwp*y2*x3*z1*y4-2._iwp*y2*x4*z1*y3*pr
      s6 = s7-1._iwp*y1*x3*z1*y2+y1*x3*z1*y4-2._iwp*y1**2*x3*z2*pr+2._iwp*y1**  &
      2*x3*z4*pr+2._iwp*y1**2*x4*z2*pr-1._iwp*y2*z4*y1*x2+z2*y3*x1*y4-1._iwp*z2  &
      *y4*x1*y2+z2*y3*y1*x2-1._iwp*z2*y3*x2*y4+z2*y4*y1*x2+2._iwp*pr*y2**2*  &
      z3*x1-1._iwp*z1*y4*y1*x2+z1*y3*x1*y2-1._iwp*z1*y3*x1*y4+2._iwp*y2*z4*y1*  &
      x3-1._iwp*z2*y4*y1*x3+2._iwp*y2*x3*y1*z2*pr-2._iwp*y2*x3*z2*y4*pr+2._iwp*x2  &
      *y3*y1*z4*pr
      s7 = -2._iwp*x2*y4*y1*z3*pr-2._iwp*y2**2*x3*z1*pr+2._iwp*y2**2*x3*z4*pr+  &
      2._iwp*y2*x3*z1*y4*pr-1._iwp*y2**2*x3*z4+y2**2*x3*z1-1._iwp*y1**2*x3*z4+  &
      y1**2*x3*z2+y2**2*z4*x1+y1**2*z4*x2-1._iwp*y1**2*z2*x2+4._iwp*pr*y2*z3  &
      *y1*x4+2._iwp*y2**2*x4*z1*pr+2._iwp*pr*y1**2*z3*x2-2._iwp*pr*y1**2*z3*x4  &
      -2._iwp*pr*y1**2*z4*x2-1._iwp*x1*y3*y1*z2+x1*y3*y1*z4+y1*z2*x1*y2+z1*y2  &
      *y1*x2-1._iwp*y1*z4*x1*y2
      s5 = s7-2._iwp*pr*y2**2*z3*x4-2._iwp*pr*y2**2*z4*x1-1._iwp*x2*y3*z1*y2+x2  &
      *y3*y2*z4-1._iwp*y2*x3*y1*z2+y2*x3*z2*y4+z1*y4*x1*y2-1._iwp*z1*y2**2*  &
      x1+2._iwp*pr*y2*z4*x1*y3-4._iwp*pr*y2*z4*y1*x3+2._iwp*pr*z1*y3*y1*x4-2._iwp  &
      *x2*y4*z1*y2*pr+2._iwp*pr*z1*y4*y1*x2-2._iwp*y2*x4*y1*z2*pr+2._iwp*x1*y3  &
      *y1*z2*pr-2._iwp*x1*y3*y1*z4*pr-2._iwp*x1*y4*y1*z2*pr+s6-2._iwp*pr*y1*z3  &
      *x1*y2+2._iwp*pr*y1*z3*x1*y4-2._iwp*pr*z2*y3*y1*x4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(9,10) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s7 = 2._iwp*x1*y4*z1*x2*pr-2._iwp*x2*y3*z1*x4*pr-1._iwp*x2**2*z4*y1-1._iwp  &
      *x2**2*y3*z1+x2**2*y3*z4-1._iwp*x1**2*z4*y2-2._iwp*y1*x3*x1*z2*pr+4._iwp  &
      *x2*z4*x1*y3*pr+2._iwp*x2*y4*z1*x3*pr+2._iwp*y1*x3*x1*z4*pr+2._iwp*y1*x4  &
      *x1*z2*pr+2._iwp*pr*x1*z3*y1*x2+x1**2*z2*y2+z1*x2**2*y1-1._iwp*x1**2*y3  &
      *z2+x1**2*y3*z4-2._iwp*y2*x3*x1*z4*pr+2._iwp*y2*x4*x1*z3*pr+2._iwp*y2*x3  &
      *x2*z4*pr+2._iwp*y2*x4*z1*x2*pr
      s6 = s7-2._iwp*pr*x1*z3*y1*x4-2._iwp*pr*x1*z4*y1*x2+2._iwp*pr*z1*x3*x1*y2  &
      -2._iwp*pr*z1*x3*x1*y4+2._iwp*pr*x2*z3*y1*x4-2._iwp*pr*x2*z4*y1*x3+2._iwp  &
      *pr*z2*x3*x1*y4-2._iwp*pr*z2*x4*x1*y3+2._iwp*pr*x2*z3*x1*y2-2._iwp*pr*x2  &
      *z3*y2*x4-2._iwp*pr*z1*x4*x1*y2+2._iwp*pr*z2*x3*y1*x2-4._iwp*pr*x2*z3*x1  &
      *y4-2._iwp*pr*x2*z4*x1*y2-2._iwp*pr*z2*x3*x2*y4-2._iwp*pr*z2*x4*y1*x2+2._iwp  &
      *pr*x2**2*z4*y1+x2*y3*x1*z2+x2*z4*x1*y2-1._iwp*x1*y3*z1*x4
      s7 = y1*x3*x1*z2-1._iwp*y1*x3*x1*z4-1._iwp*x2*y3*z2*x4+x4*y3*x1*z2+y2*  &
      x3*z1*x2+2._iwp*x1**2*y3*z2*pr-2._iwp*x1**2*y3*z4*pr-2._iwp*x1**2*y4*z2*  &
      pr-2._iwp*x2*z4*x1*y3-1._iwp*x1*z2*y1*x2-1._iwp*z1*x2*x1*y2+z2*x4*y1*x2+  &
      x2*z4*y1*x3-1._iwp*z1*x3*y1*x2+z1*x3*y1*x4-1._iwp*z1*x4*y1*x2-2._iwp*x1*  &
      y3*z1*x2*pr+s6+x2*y3*z1*x4+y2*x3*x1*z4-1._iwp*y2*x3*z1*x4
      s5 = s7-1._iwp*y2*x3*x2*z4+2._iwp*x2**2*y3*z1*pr-2._iwp*x2**2*y3*z4*pr-2._iwp  &
      *x2**2*y4*z1*pr-1._iwp*z2*x3*y1*x4+2._iwp*pr*x1**2*z3*y4+2._iwp*pr*x1  &
      **2*z4*y2-2._iwp*pr*x1**2*z3*y2+2._iwp*x1*y3*z1*x4*pr-2._iwp*y2*x3*z1*x2  &
      *pr-2._iwp*x2*y3*x1*z2*pr+2._iwp*x2*y3*z2*x4*pr+2._iwp*x2*y4*x1*z2*pr+x1  &
      *z4*y1*x2-1._iwp*z2*x3*x1*y2+z2*x3*y2*x4-1._iwp*z2*x4*x1*y2+z1*x4*x1*y2  &
      +x1*y3*z1*x2-2._iwp*pr*x2**2*z3*y1+2._iwp*pr*x2**2*z3*y4
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(9,11) = t0


      s2 = 1._iwp/12._iwp
      s4 = ym
      s8 = x1**2*z3*z2+y2**2*z4*z1+x2**2*z4*z1-1._iwp*x1**2*z3*z4-1._iwp*z1**  &
      2*x3*x4-2._iwp*x1**2*y3*y4-2._iwp*y1**2*x3*x4+z2**2*y3*y1+z2**2*y4*y1  &
      +z1**2*y4*y2-1._iwp*z2**2*x3*x4+z2**2*x4*x1+2._iwp*x2**2*y3*y1+2._iwp*pr  &
      *z1**2*y2**2+2._iwp*x1**2*z2**2*pr+2._iwp*z1**2*x2**2*pr+2._iwp*x1**2*y2  &
      **2*pr+2._iwp*y1**2*x2**2*pr-1._iwp*y1**2*z3*z4-1._iwp*z1**2*y3*y4-1._iwp*  &
      x2**2*z3*z4+z1**2*x4*x2+2._iwp*x1**2*y3*y2+2._iwp*x1**2*y4*y2
      s7 = 2._iwp*y1**2*x3*x2+2._iwp*y1**2*x4*x2+2._iwp*pr*z2*y4*z1*y2+z1**2*y3  &
      *y2+2._iwp*z2*x4*x1*z3*pr-1._iwp*x1**2*z2**2-2._iwp*x2*z4*z2*x3*pr-4._iwp  &
      *x1*z2*z1*x2*pr+2._iwp*pr*z2*y3*z1*y2+y1*z3*z1*y4+x2*z3*z2*x4+x2*z4*  &
      z2*x3+2._iwp*x2*y3*y2*x4+2._iwp*x2*y4*y2*x3-1._iwp*z2*y3*y1*z4+2._iwp*z2*y3  &
      *z1*y4-1._iwp*z2*y4*y1*z3-2._iwp*y2*x3*y1*x2-2._iwp*z2**2*x4*x1*pr-2._iwp  &
      *x2**2*y3*y1*pr-2._iwp*x2**2*y4*y1*pr-2._iwp*y2**2*x3*x1*pr-2._iwp*y2*x4  &
      *y1*x2+2._iwp*x1*z2*z1*x2-1._iwp*y2*z4*y1*z2+s8
      s8 = 4._iwp*x1*y2*y1*x2-4._iwp*x2*y3*x1*y4*pr-2._iwp*x2*y3*y2*x4*pr-2._iwp  &
      *x2*y4*y2*x3*pr-1._iwp*z1**2*x2**2-4._iwp*x1*y2*y1*x2*pr+2._iwp*x2*y3*y1  &
      *x4*pr+2._iwp*x2*y4*y1*x3*pr+2._iwp*y1*x3*x1*y2*pr+2._iwp*y1*x4*x1*y2*pr  &
      +s7+2._iwp*pr*y3*z1*y1*z2+2._iwp*z1*x3*x1*z2*pr-4._iwp*pr*y2*z3*y1*z4+2._iwp  &
      *y2*x3*x1*y4*pr+2._iwp*pr*z3*y1*z1*y2+y2**2*z3*z1+x1**2*z4*z2-2._iwp  &
      *x2**2*y3*y4+z1**2*x3*x2-1._iwp*y2**2*z3*z4+2._iwp*pr*z1*y4*y1*z2-4._iwp  &
      *y2*x3*y1*x4*pr-2._iwp*pr*y1*z3*z1*y4-2._iwp*y2**2*x4*x1*pr
      s6 = 2._iwp*y2**2*x3*x4*pr+s8-2._iwp*y2**2*x3*x4-1._iwp*z2**2*y3*y4+x2**  &
      2*z3*z1+z2**2*x3*x1+y1**2*z3*z2+y1**2*z4*z2-1._iwp*z1**2*y2**2+2._iwp*  &
      y2*x4*x1*y3*pr-4._iwp*x2*z3*x1*z4*pr+2._iwp*x2*z3*z1*x4*pr+2._iwp*pr*y2*  &
      z3*y1*z2-2._iwp*x1*z3*z1*x4*pr+2._iwp*x2**2*y4*y1+2._iwp*y2**2*x3*x1+2._iwp  &
      *y2**2*x4*x1+2._iwp*pr*y1**2*z2**2+2._iwp*x2*z4*z1*x3*pr+y2*z3*z2*y4+  &
      y2*z4*z2*y3+2._iwp*pr*y2**2*z3*z4+2._iwp*pr*z2**2*y3*y4+2._iwp*z2**2*x3*  &
      x4*pr+2._iwp*x2**2*z3*z4*pr+2._iwp*x2**2*y3*y4*pr-1._iwp*y1**2*z2**2
      s8 = 2._iwp*z2*x3*x1*z4*pr-4._iwp*z2*x3*z1*x4*pr+2._iwp*pr*y2*z3*z1*y4-1._iwp  &
      *z2*x4*x1*z3+4._iwp*x2*y3*x1*y4-2._iwp*x2*y3*y1*x4-2._iwp*x2*y4*y1*x3  &
      -2._iwp*y2*x3*x1*y4+4._iwp*y2*x3*y1*x4-2._iwp*y2*x4*x1*y3+2._iwp*y2*z3*y1*  &
      z4-1._iwp*y2*z3*z1*y4-1._iwp*y2*z4*z1*y3-1._iwp*z2*x4*z1*x2-2._iwp*x2*y3*x1  &
      *y2-2._iwp*x2*y4*x1*y2-1._iwp*x2*z3*z1*x4-1._iwp*x2*z4*z1*x3-1._iwp*z2*x3  &
      *x1*z4+2._iwp*z2*x3*z1*x4-1._iwp*x2*z3*x1*z2-1._iwp*x2*z4*x1*z2-2._iwp*pr*  &
      y2**2*z3*z1-2._iwp*pr*y2**2*z4*z1-2._iwp*pr*z2**2*y3*y1
      s7 = s8-2._iwp*pr*z2**2*y4*y1-1._iwp*z2*x3*z1*x2+2._iwp*pr*y2*z4*z1*y3-1._iwp  &
      *y2*z3*y1*z2+x1*z3*z1*x4-1._iwp*x1*z3*z1*x2-1._iwp*x1*z4*z1*x2-1._iwp  &
      *z1*x3*x1*z2-1._iwp*z1*x4*x1*z2-2._iwp*x1*y3*y1*x2-2._iwp*x1*y4*y1*x2+2._iwp  &
      *pr*y1**2*z3*z4+2._iwp*pr*z1**2*y3*y4+2._iwp*x1**2*z3*z4*pr+2._iwp*z1**  &
      2*x3*x4*pr+2._iwp*x1**2*y3*y4*pr+2._iwp*y1**2*x3*x4*pr+x1*z4*z1*x3+2._iwp  &
      *x1*y3*y1*x4+2._iwp*x1*y4*y1*x3-1._iwp*z2*y3*z1*y2-1._iwp*z2*y4*z1*y2+  &
      2._iwp*y1*z2*z1*y2+y1*z4*z1*y3-2._iwp*x2**2*z3*z1*pr
      s8 = s7-2._iwp*x2**2*z4*z1*pr-2._iwp*z2**2*x3*x1*pr-2._iwp*y1*x3*x1*y2-2._iwp  &
      *y1*x4*x1*y2-1._iwp*y1*z3*z1*y2-1._iwp*y1*z4*z1*y2-1._iwp*z1*y3*y1*z2  &
      -1._iwp*z1*y4*y1*z2-2._iwp*pr*z3*y1**2*z2-2._iwp*pr*y1**2*z4*z2-2._iwp*pr*  &
      y3*z1**2*y2-2._iwp*pr*z1**2*y4*y2-2._iwp*x1**2*z3*z2*pr-2._iwp*x1**2*z4*  &
      z2*pr-2._iwp*z1**2*x3*x2*pr-2._iwp*z1**2*x4*x2*pr-2._iwp*x1**2*y3*y2*pr-  &
      2._iwp*x1**2*y4*y2*pr-2._iwp*y1**2*x3*x2*pr-2._iwp*y1**2*x4*x2*pr-2._iwp*pr  &
      *y1*z4*z1*y3+2._iwp*z1*x4*x1*z2*pr+2._iwp*x1*y3*y1*x2*pr-2._iwp*y1**2*x2  &
      **2
      s5 = s8+2._iwp*pr*z2*y3*y1*z4-4._iwp*pr*z2*y3*z1*y4-4._iwp*pr*y1*z2*z1*y2  &
      -2._iwp*x1**2*y2**2+2._iwp*pr*z2*y4*y1*z3-2._iwp*x1*z4*z1*x3*pr+2._iwp*x1  &
      *z3*z1*x2*pr+2._iwp*x1*z4*z1*x2*pr+2._iwp*x1*y4*y1*x2*pr-2._iwp*x1*y3*y1  &
      *x4*pr-2._iwp*x1*y4*y1*x3*pr+2._iwp*x2*z3*x1*z2*pr+2._iwp*x2*z4*x1*z2*pr  &
      +s6+2._iwp*pr*y1*z4*z1*y2+2._iwp*z2*x3*z1*x2*pr+2._iwp*x2*z3*x1*z4+2._iwp*  &
      y2*x3*y1*x2*pr+2._iwp*y2*x4*y1*x2*pr-2._iwp*pr*y2*z3*z2*y4-2._iwp*pr*y2*  &
      z4*z2*y3-2._iwp*x2*z3*z2*x4*pr+2._iwp*z2*x4*z1*x2*pr+2._iwp*x2*y3*x1*y2*  &
      pr+2._iwp*pr*y2*z4*y1*z2+2._iwp*x2*y4*x1*y2*pr
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(9,12) = t0


km(10,1) = km(1,10)


km(10,2) = km(2,10)


km(10,3) = km(3,10)


km(10,4) = km(4,10)


km(10,5) = km(5,10)


km(10,6) = km(6,10)


km(10,7) = km(7,10)


km(10,8) = km(8,10)


km(10,9) = km(9,10)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -1._iwp*x1**2*y3**2+4._iwp*x1*z3*z1*x2*pr+4._iwp*x2*z3*z1*x3*pr+4._iwp  &
      *pr*y2*z3*y1*z2-1._iwp*y2**2*x3**2-1._iwp*x1**2*z3**2+4._iwp*x2*z3*x1*z2  &
      *pr+4._iwp*z2**2*y3*y1-4._iwp*pr*y1*z3*z1*y3+2._iwp*x2**2*y3**2*pr+4._iwp  &
      *pr*z2*y3*z1*y2+2._iwp*pr*z1**2*y3**2+4._iwp*y2**2*z3*z1+4._iwp*z1*x3*x1  &
      *z2*pr+2._iwp*pr*y2**2*z3**2+2._iwp*z2**2*x3*x1+2._iwp*x2**2*y3*y1+2._iwp*  &
      y2**2*x3**2*pr+2._iwp*pr*z1**2*y2**2+2._iwp*pr*y1**2*z2**2+2._iwp*y2**2*  &
      x3*x1+4._iwp*x1*y3*y1*x2*pr+2._iwp*y1**2*x2**2*pr+2._iwp*x1**2*y2**2*pr+  &
      2._iwp*z1**2*x2**2*pr+2._iwp*x1**2*z2**2*pr+4._iwp*x2*y3*y1*x3*pr+2._iwp*y1  &
      **2*x3**2*pr+2._iwp*x1**2*y3**2*pr+2._iwp*z1**2*x3**2*pr+2._iwp*x1**2*z3  &
      **2*pr
      s6 = s7+2._iwp*pr*y1**2*z3**2+2._iwp*z2**2*x3**2*pr+4._iwp*z2*y3**2*z1+4._iwp  &
      *y2*z3**2*y1+2._iwp*y2*x3**2*y1+2._iwp*z2*x3**2*z1+2._iwp*x2*z3**2*x1  &
      +2._iwp*x2*y3**2*x1+2._iwp*z1**2*x3*x2+2._iwp*x1**2*z3*z2+4._iwp*z2*x3*x1*  &
      z3*pr+2._iwp*x2**2*z3**2*pr+2._iwp*pr*z2**2*y3**2+2._iwp*y1**2*x3*x2+2._iwp  &
      *x1**2*y3*y2+2._iwp*x2**2*z3*z1+4._iwp*z1**2*y3*y2+4._iwp*y1**2*z3*z2+4._iwp  &
      *y1*x3*x1*y2*pr+4._iwp*pr*y2*z3*z1*y3-2._iwp*z2*x3*z1*x2+4._iwp*y2*x3  &
      *x1*y3*pr+4._iwp*y2*z3*z2*y3-1._iwp*z1**2*x3**2-2._iwp*x2*y3*y1*x3+2._iwp*  &
      x1*z3*z1*x3-2._iwp*x2*y3*x1*y2-4._iwp*y2*z3*z1*y3-2._iwp*y2*x3*x1*y3-4._iwp  &
      *pr*z2**2*y3*y1-4._iwp*pr*y2**2*z3*z1-2._iwp*x2*z3*x1*z2
      s7 = -2._iwp*z2*x3*x1*z3-2._iwp*x2*z3*z1*x3-1._iwp*y1**2*x2**2-4._iwp*x2*z3  &
      **2*x1*pr-4._iwp*x2*y3**2*x1*pr-4._iwp*pr*z2*y3**2*z1+4._iwp*y1*z3*z1*y3  &
      +2._iwp*x2*y3*y2*x3+2._iwp*x2*z3*z2*x3-4._iwp*y2*x3**2*y1*pr-4._iwp*z2*x3  &
      **2*z1*pr-4._iwp*x1*z2*z1*x2*pr-2._iwp*y2*x3*y1*x2-4._iwp*pr*y2*z3**2*y1  &
      -4._iwp*z2*y3*y1*z3+4._iwp*z2*x3*z1*x2*pr-4._iwp*x2**2*y3*y1*pr-2._iwp*x1*  &
      y3*y1*x2-2._iwp*z1*x3*x1*z2-2._iwp*x1*z3*z1*x2-4._iwp*y2*z3*y1*z2-4._iwp*y2  &
      **2*x3*x1*pr-1._iwp*z1**2*x2**2+4._iwp*pr*z2*y3*y1*z3+4._iwp*pr*y3*z1*y1  &
      *z2-1._iwp*y1**2*x3**2-4._iwp*z2*y3*z1*y2+2._iwp*x1*y3*y1*x3+4._iwp*y1*z2  &
      *z1*y2+4._iwp*y2*x3*y1*x2*pr+2._iwp*x1*y2*y1*x2+2._iwp*x1*z2*z1*x2
      s5 = s7-4._iwp*x1*y2*y1*x2*pr-4._iwp*x2**2*z3*z1*pr-1._iwp*x1**2*z2**2-2._iwp  &
      *z2**2*y3**2-4._iwp*y1*z3*z1*y2-2._iwp*y1*x3*x1*y2-4._iwp*z2**2*x3*x1  &
      *pr-4._iwp*pr*y3*z1**2*y2-4._iwp*pr*z3*y1**2*z2-4._iwp*z1*y3*y1*z2-4._iwp*  &
      x1**2*z3*z2*pr-4._iwp*z1**2*x3*x2*pr-4._iwp*y1**2*x3*x2*pr-1._iwp*x1**2*  &
      y2**2-4._iwp*x1**2*y3*y2*pr-4._iwp*x2*z3*z2*x3*pr-4._iwp*pr*y1*z2*z1*y2-  &
      2._iwp*y1**2*z2**2-2._iwp*y2**2*z3**2-1._iwp*z2**2*x3**2+s6+4._iwp*pr*z3*y1  &
      *z1*y2-4._iwp*x1*z3*z1*x3*pr-1._iwp*x2**2*y3**2-1._iwp*x2**2*z3**2-2._iwp  &
      *y1**2*z3**2-4._iwp*pr*y2*z3*z2*y3-4._iwp*x1*y3*y1*x3*pr-2._iwp*z1**2*y3  &
      **2+4._iwp*x2*y3*x1*y2*pr-4._iwp*x2*y3*y2*x3*pr-2._iwp*z1**2*y2**2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(10,10) = t0

      t0 = -1._iwp/12._iwp*ym*(y2*z3-1._iwp*z1*y2-1._iwp*z2*y3-1._iwp*y1*z3+z1  &
      *y3+y1*z2)*(x2*z3-1._iwp*x1*z3+x1*z2-1._iwp*z1*x2-1._iwp*z2*x3+z1*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(10,11) = t0

      t0 = 1._iwp/12._iwp*ym*(y2*z3-1._iwp*z1*y2-1._iwp*z2*y3-1._iwp*y1*z3+z1  &
      *y3+y1*z2)*(x1*y2-1._iwp*x1*y3-1._iwp*y1*x2+x2*y3+y1*x3-1._iwp*y2*x3)/(x4  &
      *y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*z3  &
      +x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-1._iwp  &
      *x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*z4  &
      +x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(10,12) = t0


km(11,1) = km(1,11)


km(11,2) = km(2,11)


km(11,3) = km(3,11)


km(11,4) = km(4,11)


km(11,5) = km(5,11)


km(11,6) = km(6,11)


km(11,7) = km(7,11)


km(11,8) = km(8,11)


km(11,9) = km(9,11)


km(11,10) = km(10,11)

      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = -4._iwp*x1*z3*z1*x3*pr+4._iwp*x1*z3*z1*x2*pr-4._iwp*x1*y3*y1*x3*pr+  &
      4._iwp*z2*x3*z1*x2*pr-2._iwp*z2**2*x3**2+2._iwp*pr*z1**2*y2**2+2._iwp*x2**  &
      2*y3**2*pr+2._iwp*x1**2*z2**2*pr+2._iwp*z1**2*x2**2*pr+2._iwp*x1**2*y2**  &
      2*pr+2._iwp*y1**2*x2**2*pr+2._iwp*pr*y1**2*z3**2+2._iwp*x1**2*z3**2*pr+2._iwp  &
      *z1**2*x3**2*pr-1._iwp*z2**2*y3**2+4._iwp*x2*z3*x1*z2*pr+4._iwp*x2*z3  &
      *z1*x3*pr+4._iwp*x2*y3*y1*x3*pr-1._iwp*y1**2*z3**2+4._iwp*z1*x3*x1*z2*pr  &
      +4._iwp*x1*y3*y1*x2*pr-1._iwp*y2**2*z3**2-1._iwp*z1**2*y2**2+4._iwp*y2*x3*  &
      x1*y3*pr-1._iwp*y1**2*x2**2-2._iwp*y2*x3*y1*x2-4._iwp*x2**2*y3*y1*pr-4._iwp  &
      *y2**2*x3*x1*pr-2._iwp*y2*z3*y1*z2-4._iwp*x1*z3*z1*x2-4._iwp*z1*x3*x1*z2
      
      s6 = -2._iwp*x1*y3*y1*x2+4._iwp*y1*x3*x1*y2*pr+4._iwp*pr*y3*z1*y1*z2+s7-  &
      4._iwp*pr*y1*z2*z1*y2-2._iwp*x2**2*z3**2-4._iwp*x2*z3*x1*z2-4._iwp*pr*y2**  &
      2*z3*z1-4._iwp*pr*z2**2*y3*y1+2._iwp*y1*z3*z1*y3-4._iwp*pr*z2*y3**2*z1-4._iwp  &
      *x2*y3**2*x1*pr-4._iwp*x2*z3**2*x1*pr-4._iwp*z2*x3**2*z1*pr-4._iwp*y2  &
      *x3**2*y1*pr+4._iwp*x2*z3*z2*x3+2._iwp*x2*y3*y2*x3-2._iwp*z2*y3*y1*z3-4._iwp  &
      *pr*y2*z3**2*y1+4._iwp*z2*x3*x1*z3*pr+4._iwp*pr*y2*z3*z1*y3+4._iwp*pr*  &
      z2*y3*y1*z3-1._iwp*x1**2*y2**2+2._iwp*x1**2*y3**2*pr+2._iwp*y1**2*x3**2*  &
      pr+2._iwp*x2*y3**2*x1+4._iwp*x2*z3**2*x1+2._iwp*y2*z3**2*y1+2._iwp*z2*y3**  &
      2*z1+2._iwp*z2**2*x3**2*pr+4._iwp*x1**2*z3*z2+4._iwp*z1**2*x3*x2+2._iwp*x1  &
      **2*y3*y2
      s7 = 2._iwp*y1**2*x3*x2+2._iwp*pr*z2**2*y3**2+2._iwp*x2**2*z3**2*pr-4._iwp  &
      *x2*y3*y2*x3*pr-1._iwp*x2**2*y3**2+4._iwp*pr*y2*z3*y1*z2+4._iwp*pr*z2*y3  &
      *z1*y2+4._iwp*y2*x3*y1*x2*pr-1._iwp*z1**2*y3**2+4._iwp*x2*y3*x1*y2*pr-4._iwp  &
      *x2*z3*z2*x3*pr-1._iwp*y1**2*x3**2+2._iwp*z2**2*y3*y1+2._iwp*y2*x3**2*  &
      y1+2._iwp*y2**2*z3*z1+4._iwp*pr*z3*y1*z1*y2+2._iwp*pr*z1**2*y3**2+2._iwp*pr  &
      *y2**2*z3**2+4._iwp*z2*x3**2*z1+2._iwp*y2**2*x3**2*pr+2._iwp*x2**2*y3*y1  &
      +2._iwp*y2**2*x3*x1+2._iwp*pr*y1**2*z2**2+2._iwp*x1*y3*y1*x3-2._iwp*z2*y3  &
      *z1*y2+2._iwp*y1*z2*z1*y2+4._iwp*x1*z2*z1*x2+2._iwp*x1*y2*y1*x2-4._iwp*x2**  &
      2*z3*z1*pr-4._iwp*z2**2*x3*x1*pr-2._iwp*y1*x3*x1*y2-2._iwp*x1**2*z2**2
      s5 = s7-4._iwp*pr*y2*z3*z2*y3-1._iwp*y2**2*x3**2-1._iwp*x1**2*y3**2-4._iwp  &
      *x1*z2*z1*x2*pr-4._iwp*x1*y2*y1*x2*pr-2._iwp*y1*z3*z1*y2-2._iwp*z1*y3*y1  &
      *z2-4._iwp*pr*z3*y1**2*z2-4._iwp*pr*y3*z1**2*y2-4._iwp*x1**2*z3*z2*pr-4._iwp  &
      *z1**2*x3*x2*pr-4._iwp*x1**2*y3*y2*pr-4._iwp*y1**2*x3*x2*pr+4._iwp*x2**  &
      2*z3*z1+4._iwp*z2**2*x3*x1+2._iwp*y1**2*z3*z2+2._iwp*z1**2*y3*y2-2._iwp*z1  &
      **2*x2**2+s6+2._iwp*y2*z3*z2*y3-4._iwp*z2*x3*z1*x2-2._iwp*x2*y3*y1*x3-2._iwp  &
      *y2*x3*x1*y3-2._iwp*y2*z3*z1*y3-2._iwp*x2*y3*x1*y2+4._iwp*x1*z3*z1*x3  &
      -4._iwp*x2*z3*z1*x3-4._iwp*z2*x3*x1*z3-2._iwp*x1**2*z3**2-1._iwp*y1**2*z2**  &
      2-4._iwp*pr*y1*z3*z1*y3-2._iwp*z1**2*x3**2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(11,11) = t0


      t0 = -1._iwp/12._iwp*ym*(x2*z3-1._iwp*x1*z3+x1*z2-1._iwp*z1*x2-1._iwp*z2  &
      *x3+z1*x3)*(x1*y2-1._iwp*x1*y3-1._iwp*y1*x2+x2*y3+y1*x3-1._iwp*y2*x3)/(  &
      x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4+x1*y4*  &
      z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1*z3-1._iwp  &
      *x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4*z1*y3-  &
      1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp*x3*y2*  &
      z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
km(11,12) = t0


km(12,1) = km(1,12)


km(12,2) = km(2,12)


km(12,3) = km(3,12)


km(12,4) = km(4,12)


km(12,5) = km(5,12)


km(12,6) = km(6,12)


km(12,7) = km(7,12)


km(12,8) = km(8,12)


km(12,9) = km(9,12)


km(12,10) = km(10,12)


km(12,11) = km(11,12)


      s2 = -1._iwp/12._iwp
      s4 = ym
      s7 = 4._iwp*pr*y2*z3*y1*z2+4._iwp*pr*z2*y3*z1*y2-1._iwp*z1**2*y2**2+4._iwp  &
      *z2*x3*x1*z3*pr+4._iwp*pr*y2*z3*z1*y3+4._iwp*pr*z2*y3*y1*z3-2._iwp*z2*x3  &
      *z1*x2-4._iwp*y2*x3*x1*y3-2._iwp*y2*z3*z1*y3-4._iwp*x2*y3*x1*y2+2._iwp*x1*  &
      z3*z1*x3-2._iwp*x2*z3*z1*x3-2._iwp*z2*x3*x1*z3-2._iwp*x2*z3*x1*z2-4._iwp*pr  &
      *y2**2*z3*z1-4._iwp*pr*z2**2*y3*y1+2._iwp*y1*z3*z1*y3-4._iwp*pr*z2*y3**  &
      2*z1-4._iwp*x2*y3**2*x1*pr-4._iwp*x2*z3**2*x1*pr-4._iwp*z2*x3**2*z1*pr-4._iwp  &
      *y2*x3**2*y1*pr+2._iwp*x2*z3*z2*x3+4._iwp*x2*y3*y2*x3-2._iwp*z2*y3*y1  &
      *z3-4._iwp*pr*y2*z3**2*y1-4._iwp*y2*x3*y1*x2-4._iwp*x2*y3*y1*x3-1._iwp*y1**  &
      2*z3**2+2._iwp*y2**2*x3**2*pr+4._iwp*x2**2*y3*y1
      s6 = s7+4._iwp*y2**2*x3*x1+2._iwp*x2*z3**2*x1+2._iwp*pr*y1**2*z2**2+2._iwp  &
      *pr*z1**2*y2**2+4._iwp*y2*x3**2*y1+2._iwp*x1**2*z2**2*pr+2._iwp*z1**2*x2  &
      **2*pr+2._iwp*x1**2*y2**2*pr+2._iwp*y1**2*x2**2*pr+2._iwp*y1**2*z3*z2+2._iwp  &
      *z1**2*y3*y2-1._iwp*z1**2*y3**2-1._iwp*x1**2*z3**2-4._iwp*pr*y1*z2*z1*  &
      y2-4._iwp*x2**2*y3*y1*pr-4._iwp*y2**2*x3*x1*pr-2._iwp*y2*z3*y1*z2-2._iwp*x1  &
      *z3*z1*x2-2._iwp*z1*x3*x1*z2-4._iwp*x1*y3*y1*x2+4._iwp*x1*y3*y1*x3-2._iwp  &
      *z2*y3*z1*y2+2._iwp*y1*z2*z1*y2+2._iwp*x1*z2*z1*x2-1._iwp*x2**2*z3**2-4._iwp  &
      *pr*y2*z3*z2*y3+4._iwp*x2*z3*z1*x3*pr+4._iwp*pr*z3*y1*z1*y2-1._iwp*z2**  &
      2*x3**2+4._iwp*x2*y3*x1*y2*pr+2._iwp*y2*z3*z2*y3+4._iwp*x1*y3*y1*x2*pr
      s7 = -1._iwp*z1**2*x3**2-4._iwp*x1*z2*z1*x2*pr-4._iwp*x1*y2*y1*x2*pr+4._iwp  &
      *y2*x3*y1*x2*pr-4._iwp*x2*z3*z2*x3*pr-4._iwp*pr*y1*z3*z1*y3-2._iwp*x2**  &
      2*y3**2-2._iwp*y2**2*x3**2+4._iwp*z2*x3*z1*x2*pr-1._iwp*y2**2*z3**2-1._iwp  &
      *z2**2*y3**2+2._iwp*pr*y1**2*z3**2+2._iwp*x1**2*z3**2*pr+2._iwp*z1**2*x3  &
      **2*pr+2._iwp*x1**2*y3**2*pr+2._iwp*y1**2*x3**2*pr-2._iwp*x1**2*y3**2-1._iwp  &
      *y1**2*z2**2+4._iwp*x2*y3**2*x1+2._iwp*z2*x3**2*z1+2._iwp*y2*z3**2*y1+  &
      2._iwp*z2*y3**2*z1+2._iwp*z2**2*x3**2*pr+2._iwp*x1**2*z3*z2+2._iwp*z1**2*x3  &
      *x2+4._iwp*x1**2*y3*y2+4._iwp*y1**2*x3*x2+2._iwp*pr*z2**2*y3**2+2._iwp*x2  &
      **2*z3**2*pr+2._iwp*x2**2*z3*z1-4._iwp*x2*y3*y2*x3*pr-2._iwp*x1**2*y2**2
      s5 = s7+s6-1._iwp*z1**2*x2**2+4._iwp*y1*x3*x1*y2*pr+4._iwp*pr*y3*z1*y1*z2  &
      -4._iwp*x1*z3*z1*x3*pr-1._iwp*x1**2*z2**2-4._iwp*x1*y3*y1*x3*pr+4._iwp*x2  &
      *z3*x1*z2*pr+4._iwp*x1*z3*z1*x2*pr+4._iwp*z1*x3*x1*z2*pr+2._iwp*z2**2*y3  &
      *y1+2._iwp*x2**2*y3**2*pr+2._iwp*y2**2*z3*z1+2._iwp*pr*z1**2*y3**2+2._iwp*  &
      z2**2*x3*x1+2._iwp*pr*y2**2*z3**2+4._iwp*x2*y3*y1*x3*pr+4._iwp*y2*x3*x1*  &
      y3*pr+4._iwp*x1*y2*y1*x2-4._iwp*x2**2*z3*z1*pr-4._iwp*z2**2*x3*x1*pr-4._iwp  &
      *y1*x3*x1*y2-2._iwp*y1*z3*z1*y2-2._iwp*z1*y3*y1*z2-4._iwp*pr*z3*y1**2*z2  &
      -4._iwp*pr*y3*z1**2*y2-4._iwp*x1**2*z3*z2*pr-4._iwp*z1**2*x3*x2*pr-4._iwp  &
      *x1**2*y3*y2*pr-4._iwp*y1**2*x3*x2*pr-2._iwp*y1**2*x3**2-2._iwp*y1**2*x2  &
      **2
      s3 = s4*s5
      s1 = s2*s3
      s2 = 1._iwp/(x4*y2*z3-1._iwp*x4*z1*y2-1._iwp*x2*y4*z3-1._iwp*x1*y2*z3+x1*y2*z4  &
      +x1*y4*z3+x1*z2*y3-1._iwp*x1*z2*y4-1._iwp*x1*z4*y3-1._iwp*x4*z2*y3+x2*y1  &
      *z3-1._iwp*x2*y1*z4-1._iwp*x2*z1*y3+x2*z1*y4+x2*z4*y3-1._iwp*x4*y1*z3+x4  &
      *z1*y3-1._iwp*x3*y1*z2+x3*y1*z4+x3*z2*y4+x3*z1*y2-1._iwp*x3*z1*y4-1._iwp  &
      *x3*y2*z4+x4*y1*z2)/(-1._iwp+2._iwp*pr)/(1._iwp+pr)
      t0 = s1*s2
km(12,12) = t0










RETURN
END SUBROUTINE km_4nodetetra
END PROGRAM test_4
