./42_nlstrain/contstr25a.F90

ABINIT/contstr25a

ABINIT/contstr25a [ Functions ]

NAME

 contstr25a

FUNCTION

 Carries out specialized metric tensor operations needed for contraction
 of the 2nd strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander
 pseudopotential operation.  Derivatives are wrt a pair of cartesian
 strain components.
 Full advantage is taken of the full permutational symmetry of these
 tensors.

 Copyright (C) 1998-2018 ABINIT group (DRH)
 This file is distributed under the terms of the
 GNU General Public License, see ~abinit/COPYING
 or http://www.gnu.org/copyleft/gpl.txt .
 For the initials of contributors, see ~abinit/doc/developers/contributors.txt.

INPUTS

  istr1=1,...6 specifies cartesian strain component 11,22,33,32,31,21
  istr2=seccond strain component
  rank=angular momentum
  gm(3,3)=metric tensor (array is symmetric but stored as 3x3)
  gprimd(3,3)=reciprocal space dimensional primitive translations
  aa(2,*)=unique elements of complex right-hand tensor
  bb(2,*)=unique elements of complex left-hand tensor

OUTPUT

  e2nl=contraction for nonlocal 2nd-order strain derivative energy

NOTES

 All tensors are stored in a compressed storage mode defined below;
 input and output conform to this scheme.
 When tensor elements occur repeatedly due to symmetry, the
 WEIGHT IS INCLUDED in the output tensor element to simplify later
 contractions with other tensors of the same rank and form, i.e. the
 next contraction is then simply a dot product over the unique elements.

PARENTS

      nonlop_pl

CHILDREN

SOURCE

  48 #if defined HAVE_CONFIG_H
  49 #include "config.h"
  50 #endif
  51 
  52 #include "abi_common.h"
  53 
  54 subroutine contstr25a(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb)
  55 
  56  use m_profiling_abi
  57 
  58  use defs_basis
  59 
  60 !This section has been created automatically by the script Abilint (TD).
  61 !Do not modify the following lines by hand.
  62 #undef ABI_FUNC
  63 #define ABI_FUNC 'contstr25a'
  64 !End of the abilint section
  65 
  66  implicit none
  67 
  68 !Arguments ------------------------------------
  69 !scalars
  70  integer,intent(in) :: istr1,istr2,rank
  71  real(dp),intent(out) :: e2nl
  72 !arrays
  73  real(dp),intent(in) :: aa(2,((rank+3)*(rank+4))/2),bb(2,((rank+3)*(rank+4))/2)
  74  real(dp),intent(in) :: gm(3,3),gprimd(3,3)
  75 
  76 !Local variables-------------------------------
  77 !scalars
  78  integer,parameter :: mrank=3
  79  integer :: ii,jj,ka,kb,kd,kg
  80 !arrays
  81  integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/)
  82  real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2)
  83  real(dp),allocatable :: cm(:,:)
  84 
  85 ! *************************************************************************
  86  ABI_ALLOCATE(cm,(((mrank+3)*(mrank+4))/2,((mrank+3)*(mrank+4))/2))
  87 
  88  ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2)
  89 
  90  do ii = 1,3
  91    dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii))
  92    dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii))
  93  end do
  94 
  95  d2gm(:,:)=0.d0
  96  do ii = 1,3
  97    if(ka==kg) d2gm(:,ii)=d2gm(:,ii)&
  98 &   +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii)
  99    if(ka==kd) d2gm(:,ii)=d2gm(:,ii)&
 100 &   +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii)
 101    if(kb==kg) d2gm(:,ii)=d2gm(:,ii)&
 102 &   +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii)
 103    if(kb==kd) d2gm(:,ii)=d2gm(:,ii)&
 104 &   +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii)
 105  end do
 106  d2gm(:,:)=0.5d0*d2gm(:,:)
 107 
 108 !
 109 !The code below was written by a Mathematica program and formatted by
 110 !a combination of editing scripts.  It is not intended to be read
 111 !by human beings, and certainly not to be modified by one.  Conceivably
 112 !it could be shortened somewhat by identifying common subexpressions.
 113 !
 114  if(rank==3)then
 115    cm(1,1)=2*gm(1,1)**3*dgm01(1,1)*dgm10(1,1)
 116    cm(2,1)=(gm(1,1)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)&
 117 &   *dgm10(1,1)+8640*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 118 &   *dgm10(1,2))+1440*gm(1,1)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 119 &   *dgm10(2,2))))/1440.d0
 120    cm(3,1)=(gm(1,1)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
 121 &   *dgm10(1,1)+8640*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 122 &   *dgm10(1,3))+1440*gm(1,1)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 123 &   *dgm10(3,3))))/1440.d0
 124    cm(4,1)=(gm(1,1)*(240*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
 125 &   *dgm01(1,1)*dgm10(1,1)+4320*gm(1,1)*gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
 126 &   +dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)*gm(1,2)*(dgm01(1,3)*dgm10(1,1)&
 127 &   +dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*(dgm01(2,3)*dgm10(1,1)&
 128 &   +dgm01(1,1)*dgm10(2,3))))/720.d0
 129    cm(5,1)=gm(1,1)**2*(6*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
 130 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
 131    cm(6,1)=gm(1,1)**2*(6*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
 132 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))
 133    cm(7,1)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)&
 134 &   *dgm10(1,1)+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)&
 135 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)**2*gm(1,2)*(dgm01(2,2)&
 136 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/1440.d0
 137    cm(8,1)=(80*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 138 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+80*gm(1,1)*(54*gm(1,3)&
 139 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 140 &   +160*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)&
 141 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2880*gm(1,1)**2*gm(1,3)*(dgm01(2,3)&
 142 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1440*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
 143 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/480.d0
 144    cm(9,1)=(80*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 145 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+160*gm(1,1)&
 146 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
 147 &   +dgm01(1,1)*dgm10(1,2))+80*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 148 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)&
 149 &   **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2880*gm(1,1)&
 150 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/480.d0
 151    cm(10,1)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)&
 152 &   *dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)&
 153 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4320*gm(1,1)**2*gm(1,3)*(dgm01(3,3)&
 154 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/1440.d0
 155    cm(11,1)=(160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,2)&
 156 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 157 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/2880.d0
 158    cm(12,1)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 159 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 160 &   +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 161 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 162 &   +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)&
 163 &   +dgm01(1,1)*dgm10(2,2))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
 164 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+gm(1,1)&
 165 &   *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 166 &   *dgm10(3,3)))/12.d0
 167    cm(13,1)=(3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 168 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 169 &   *dgm10(1,2))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)&
 170 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)&
 171 &   -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 172 &   +3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)&
 173 &   +dgm01(1,1)*dgm10(2,3)))/18.d0
 174    cm(14,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)&
 175 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 176 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
 177 &   +dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
 178 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)&
 179 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 180 &   *dgm10(3,3)))/18.d0
 181    cm(15,1)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
 182 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 183 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/2880.d0
 184    cm(16,1)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)&
 185 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/36.d0
 186    cm(17,1)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 187 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 188 &   +6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 189 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 190 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
 191 &   +dgm01(1,1)*dgm10(3,3)))/36.d0
 192    cm(18,1)=(240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 193 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 194 &   *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
 195 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/2880.d0
 196    cm(19,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
 197 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 198 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
 199 &   +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
 200 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 201 &   *dgm10(3,3)))/36.d0
 202    cm(20,1)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
 203 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 204 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
 205 &   +dgm01(1,1)*dgm10(3,3)))/2880.d0
 206    cm(21,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)&
 207 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/36.d0
 208    cm(1,2)=(gm(1,1)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)&
 209 &   *dgm10(1,1)+8640*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 210 &   *dgm10(1,2))+1440*gm(1,1)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 211 &   *dgm10(2,2))))/1440.d0
 212    cm(2,2)=6*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 213 &   +gm(1,1)*(12*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)**2*dgm01(2,2)&
 214 &   *dgm10(2,2)+gm(1,1)*gm(2,2)*(-3*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
 215 &   *dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))+gm(1,2)**2*(6*gm(2,2)*dgm01(1,1)&
 216 &   *dgm10(1,1)+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)&
 217 &   +9*dgm01(1,1)*dgm10(2,2)))+gm(1,1)*gm(1,2)*(30*gm(2,2)*(dgm01(1,2)&
 218 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(dgm01(2,2)*dgm10(1,2)&
 219 &   +dgm01(1,2)*dgm10(2,2)))
 220    cm(3,2)=(72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 221 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 222 &   *dgm01(1,1)*dgm10(1,1)+72*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 223 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 224 &   *dgm10(1,2))+72*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 225 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 226 &   *dgm10(1,3))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 227 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)&
 228 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 229 &   +864*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 230 &   +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
 231 &   +dgm01(1,1)*dgm10(3,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)&
 232 &   +dgm01(1,2)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,2)&
 233 &   +dgm01(2,2)*dgm10(3,3)))/144.d0
 234    cm(4,2)=(72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
 235 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)&
 236 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)&
 237 &   +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
 238 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 239 &   +36*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
 240 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 241 &   +36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)&
 242 &   +dgm01(1,1)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
 243 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)&
 244 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
 245 &   +dgm01(1,1)*dgm10(2,2))+432*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
 246 &   +dgm01(1,2)*dgm10(2,2))+432*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)&
 247 &   +dgm01(1,3)*dgm10(2,2))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 248 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)&
 249 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*gm(1,1)&
 250 &   **3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
 251    cm(5,2)=(144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 252 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)&
 253 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
 254 &   +dgm01(1,1)*dgm10(1,2))+48*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 255 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)&
 256 &   **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)&
 257 &   **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+576*gm(1,1)&
 258 &   **3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0
 259    cm(6,2)=3*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,2)&
 260 &   **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*gm(1,2)&
 261 &   *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)&
 262 &   +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))+gm(1,1)**2*(9*gm(2,2)&
 263 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+2*gm(1,1)*(dgm01(2,2)&
 264 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
 265    cm(7,2)=gm(1,2)**3*(4*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
 266 &   +4*dgm01(1,1)*dgm10(2,2))+gm(1,2)*(6*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)&
 267 &   +6*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+gm(1,1)*gm(2,2)*(6*dgm01(2,2)&
 268 &   *dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))&
 269 &   +15*gm(1,2)**2*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 270 &   +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+9*gm(1,1)&
 271 &   *gm(2,2)*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 272 &   +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
 273    cm(8,2)=(24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
 274 &   *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+96*(48*gm(1,1)*gm(1,3)*gm(2,3)&
 275 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)&
 276 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
 277 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
 278 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)**2*gm(2,2)&
 279 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
 280 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 281 &   +48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
 282 &   *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 283 &   +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
 284 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
 285 &   +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
 286 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+8*gm(1,1)&
 287 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 288 &   *dgm10(2,2))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
 289 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)&
 290 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
 291 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)&
 292 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
 293 &   *dgm10(2,3))+288*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
 294 &   *dgm10(2,3))+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)&
 295 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
 296 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,1)&
 297 &   **2*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/48.d0
 298    cm(9,2)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
 299 &   *dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
 300 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+24*(48*gm(1,2)&
 301 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
 302 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+48*(6*gm(1,2)&
 303 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
 304 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*gm(2,2)*(12*gm(1,2)&
 305 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 306 &   +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
 307 &   +dgm01(1,2)*dgm10(1,3))+288*gm(1,1)**2*gm(1,3)*dgm01(2,2)*dgm10(2,2)&
 308 &   +4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 309 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 310 &   +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
 311 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 312 &   +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)&
 313 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
 314 &   +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 315 &   +8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
 316 &   +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
 317 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)&
 318 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
 319 &   +288*gm(1,1)**2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
 320 &   /48.d0
 321    cm(10,2)=(24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
 322 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+24*(90*gm(1,3)&
 323 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
 324 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(-12*gm(1,3)&
 325 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
 326 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
 327 &   +dgm01(1,1)*dgm10(1,3))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 328 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
 329 &   *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
 330 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 331 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+36*(6*gm(1,2)&
 332 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
 333 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(1,1)*(12*gm(1,2)&
 334 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
 335 &   *dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
 336 &   *dgm10(3,3)))/144.d0
 337    cm(11,2)=(2304*gm(1,2)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 338 &   *dgm10(2,2))+gm(1,2)**2*(2592*gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
 339 &   *(864*dgm01(2,2)*dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)&
 340 &   *dgm10(2,2)))+gm(1,1)*gm(2,2)*(-864*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
 341 &   +gm(2,2)*(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)&
 342 &   +1728*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*gm(2,2)*(1728*gm(2,2)*(dgm01(1,2)&
 343 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3456*gm(1,1)*(dgm01(2,2)*dgm10(1,2)&
 344 &   +dgm01(1,2)*dgm10(2,2))))/288.d0
 345    cm(12,2)=(24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 346 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 347 &   *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
 348 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 349 &   *dgm10(1,2))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
 350 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(48*gm(1,2)&
 351 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
 352 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(1,1)*(54*gm(1,3)&
 353 &   **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+3*(-12*gm(1,3)&
 354 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
 355 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)&
 356 &   +dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 357 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 358 &   *dgm10(2,2))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 359 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 360 &   +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 361 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 362 &   +12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
 363 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 364 &   +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
 365 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
 366 &   +4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)&
 367 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
 368 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(6*gm(1,2)&
 369 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
 370 &   *dgm10(3,3))+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
 371 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0
 372    cm(13,2)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
 373 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+36*gm(2,2)&
 374 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
 375 &   +dgm01(1,1)*dgm10(1,2))+432*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)&
 376 &   +dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
 377 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)&
 378 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)&
 379 &   +36*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
 380 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 381 &   +12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 382 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 383 &   +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
 384 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 385 &   +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
 386 &   +dgm01(1,3)*dgm10(2,2))+36*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
 387 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*(6*gm(1,2)&
 388 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
 389 &   *dgm10(2,3))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
 390 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
 391    cm(14,2)=(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
 392 &   *gm(2,3))*gm(3,3))*dgm01(1,2)*dgm10(1,2)+3*(-36*gm(1,2)*gm(2,3)&
 393 &   *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
 394 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)&
 395 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
 396 &   +dgm01(1,1)*dgm10(1,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
 397 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
 398 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(90*gm(1,3)&
 399 &   **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 400 &   *dgm10(2,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 401 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 402 &   +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
 403 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
 404 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)&
 405 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
 406 &   +dgm01(1,2)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
 407 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,2)*gm(1,3)&
 408 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
 409 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
 410 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
 411 &   +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
 412 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0
 413    cm(15,2)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
 414 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 415 &   +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
 416 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
 417 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
 418 &   +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
 419 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
 420 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,1)&
 421 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
 422 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 423 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
 424    cm(16,2)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
 425 &   *dgm10(2,2)+4320*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 426 &   *dgm10(2,2))+240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)&
 427 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))/1440.d0
 428    cm(17,2)=(24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
 429 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(48*gm(1,3)&
 430 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
 431 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(30*gm(1,3)**2*gm(2,2)&
 432 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
 433 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 434 &   +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)&
 435 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)&
 436 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
 437 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(90*gm(1,2)**2*gm(1,3)&
 438 &   -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
 439 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
 440 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
 441 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(90*gm(1,2)&
 442 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
 443 &   *dgm10(3,3)))/144.d0
 444    cm(18,2)=(48*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 445 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+72*gm(2,2)&
 446 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
 447 &   +dgm01(1,1)*dgm10(2,2))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
 448 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
 449 &   +dgm01(1,2)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)&
 450 &   +dgm01(1,1)*dgm10(2,3))+96*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
 451 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+16*(90*gm(1,2)&
 452 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
 453 &   *dgm10(2,3)))/288.d0
 454    cm(19,2)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)&
 455 &   *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
 456 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 457 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
 458 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 459 &   +18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
 460 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(30*gm(1,3)&
 461 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
 462 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
 463 &   +dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 464 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
 465 &   *dgm10(2,3))+9*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
 466 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,2)&
 467 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
 468 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,2)&
 469 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
 470 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
 471    cm(20,2)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
 472 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 473 &   +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
 474 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
 475 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
 476 &   +dgm01(2,2)*dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
 477 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 478 &   *dgm10(3,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 479 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 480 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,1)&
 481 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
 482 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
 483    cm(21,2)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
 484 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
 485 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
 486 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
 487 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)&
 488 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
 489    cm(1,3)=(gm(1,1)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
 490 &   *dgm10(1,1)+8640*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 491 &   *dgm10(1,3))+1440*gm(1,1)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 492 &   *dgm10(3,3))))/1440.d0
 493    cm(2,3)=(72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 494 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 495 &   *dgm01(1,1)*dgm10(1,1)+72*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 496 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 497 &   *dgm10(1,2))+72*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 498 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 499 &   *dgm10(1,3))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 500 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)&
 501 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 502 &   +864*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 503 &   +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
 504 &   +dgm01(1,1)*dgm10(3,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)&
 505 &   +dgm01(1,2)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,2)&
 506 &   +dgm01(2,2)*dgm10(3,3)))/144.d0
 507    cm(3,3)=6*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 508 &   +gm(1,1)*(12*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)**2*dgm01(3,3)&
 509 &   *dgm10(3,3)+gm(1,1)*gm(3,3)*(-3*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)&
 510 &   *dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)))+gm(1,3)**2*(6*gm(3,3)*dgm01(1,1)&
 511 &   *dgm10(1,1)+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)&
 512 &   +9*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(1,3)*(30*gm(3,3)*(dgm01(1,3)&
 513 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
 514 &   +dgm01(1,3)*dgm10(3,3)))
 515    cm(4,3)=(72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
 516 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+36*(6*gm(1,3)&
 517 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 518 &   *dgm10(1,2))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 519 &   *dgm01(1,3)*dgm10(1,3)+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 520 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 521 &   *dgm10(1,3))+72*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
 522 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 523 &   +72*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
 524 &   +dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 525 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)&
 526 &   **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*gm(1,1)&
 527 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)&
 528 &   +dgm01(1,1)*dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)&
 529 &   +dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
 530 &   +dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,3)&
 531 &   +dgm01(2,3)*dgm10(3,3)))/72.d0
 532    cm(5,3)=3*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,3)&
 533 &   **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*gm(1,3)&
 534 &   *(15*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)&
 535 &   +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)**2*(9*gm(3,3)&
 536 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*gm(1,1)*(dgm01(3,3)&
 537 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
 538    cm(6,3)=(144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
 539 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)*(54*gm(1,3)&
 540 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 541 &   +144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,3)&
 542 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)**2*gm(1,3)*(dgm01(1,3)&
 543 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
 544 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**3*(dgm01(3,3)&
 545 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0
 546    cm(7,3)=(24*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
 547 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+72*(-12*gm(1,3)&
 548 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
 549 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
 550 &   +dgm01(1,1)*dgm10(1,2))+24*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
 551 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)&
 552 &   +dgm01(1,1)*dgm10(1,3))+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
 553 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)&
 554 &   +dgm01(1,2)*dgm10(1,3))+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 555 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 556 &   *dgm10(2,2))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 557 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)&
 558 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 559 &   *dgm10(3,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
 560 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
 561 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/144.d0
 562    cm(8,3)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
 563 &   *dgm01(1,1)*dgm10(1,1)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))&
 564 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,1)&
 565 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(1,3)&
 566 &   *dgm10(1,3)+24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
 567 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 568 &   *dgm10(1,3))+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
 569 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 570 &   *dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
 571 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**3+30*gm(1,1)&
 572 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 573 &   +48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
 574 &   +dgm01(1,3)*dgm10(2,3))+288*gm(1,1)**2*gm(1,2)*dgm01(3,3)*dgm10(3,3)&
 575 &   +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
 576 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(-36*gm(1,1)&
 577 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
 578 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+8*gm(1,1)*(54*gm(1,3)&
 579 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
 580 &   +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)&
 581 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
 582 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 583 &   +288*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
 584 &   /48.d0
 585    cm(9,3)=(24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
 586 &   *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
 587 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)&
 588 &   +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
 589 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+24*(-12*gm(1,3)&
 590 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
 591 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
 592 &   +dgm01(1,1)*dgm10(1,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
 593 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
 594 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*(6*gm(1,1)&
 595 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)&
 596 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)**3+30*gm(1,1)&
 597 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 598 &   +24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
 599 &   +dgm01(1,3)*dgm10(2,2))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 600 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
 601 &   *dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 602 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+4*(90*gm(1,2)&
 603 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
 604 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+16*gm(1,1)*(54*gm(1,2)&
 605 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
 606 &   *dgm10(3,3))+8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
 607 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**2*gm(1,3)*(dgm01(3,3)&
 608 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+288*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
 609 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
 610    cm(10,3)=gm(1,3)**3*(4*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
 611 &   +4*dgm01(1,1)*dgm10(3,3))+gm(1,3)*(6*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)&
 612 &   +6*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+gm(1,1)*gm(3,3)*(6*dgm01(3,3)&
 613 &   *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))&
 614 &   +15*gm(1,3)**2*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 615 &   +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+9*gm(1,1)&
 616 &   *gm(3,3)*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 617 &   +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
 618    cm(11,3)=(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
 619 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 620 &   +12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
 621 &   *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
 622 &   +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
 623 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
 624 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
 625 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
 626 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
 627 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)&
 628 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
 629 &   /36.d0
 630    cm(12,3)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
 631 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)&
 632 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
 633 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
 634 &   +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
 635 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(6*gm(1,3)&
 636 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
 637 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*gm(3,3)*(12*gm(1,3)&
 638 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 639 &   +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
 640 &   +dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
 641 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
 642 &   *dgm10(2,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
 643 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
 644 &   +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
 645 &   +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
 646 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
 647 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 648 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
 649 &   +dgm01(1,2)*dgm10(3,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
 650 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
 651 &   *dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 652 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
 653 &   *dgm10(3,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
 654 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)&
 655 &   -18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
 656 &   /12.d0
 657    cm(13,3)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
 658 &   *gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(90*gm(1,2)&
 659 &   **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)&
 660 &   *dgm10(1,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
 661 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 662 &   +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
 663 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
 664 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
 665 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)&
 666 &   +dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 667 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
 668 &   *dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 669 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 670 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,2)&
 671 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
 672 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(90*gm(1,2)&
 673 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
 674 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)&
 675 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 676 &   +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)&
 677 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 678 &   *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
 679    cm(14,3)=(432*gm(1,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 680 &   *dgm10(1,2))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
 681 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+36*gm(3,3)&
 682 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
 683 &   +dgm01(1,1)*dgm10(1,3))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
 684 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+36*gm(3,3)&
 685 &   *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
 686 &   *dgm10(2,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
 687 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)*gm(1,3)&
 688 &   -18*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(6*gm(1,3)**2*gm(2,3)&
 689 &   +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
 690 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
 691 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
 692 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
 693 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,1)&
 694 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
 695 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 696 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
 697    cm(15,3)=(2304*gm(1,3)**3*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
 698 &   *dgm10(3,3))+gm(1,3)**2*(2592*gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
 699 &   *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)&
 700 &   *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
 701 &   +gm(3,3)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)&
 702 &   +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(1,3)&
 703 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
 704 &   +dgm01(1,3)*dgm10(3,3))))/288.d0
 705    cm(16,3)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
 706 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 707 &   +6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
 708 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 709 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
 710 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
 711    cm(17,3)=(9*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
 712 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)&
 713 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
 714 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+18*(48*gm(1,2)&
 715 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
 716 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(-12*gm(1,3)**2*gm(2,2)&
 717 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
 718 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
 719 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
 720 &   +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
 721 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)&
 722 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
 723 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)&
 724 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
 725 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(90*gm(1,2)&
 726 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
 727 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
 728    cm(18,3)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
 729 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(-12*gm(1,3)&
 730 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
 731 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
 732 &   +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
 733 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
 734 &   *dgm10(2,3))+12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
 735 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
 736 &   *dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 737 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
 738 &   *dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)&
 739 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
 740    cm(19,3)=(432*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 741 &   *dgm10(2,2))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
 742 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)&
 743 &   +24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 744 &   +144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
 745 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
 746 &   +24*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
 747 &   *gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(48*gm(1,2)*gm(2,3)&
 748 &   *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
 749 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)&
 750 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
 751 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 752 &   +4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)&
 753 &   +dgm01(2,2)*dgm10(3,3))+24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 754 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
 755 &   *dgm10(3,3)))/144.d0
 756    cm(20,3)=(1728*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
 757 &   *dgm10(2,3))+96*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
 758 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 759 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
 760 &   +72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
 761 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*(6*gm(1,3)**2*gm(2,3)&
 762 &   +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
 763 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**3-54*gm(1,1)&
 764 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
 765 &   /288.d0
 766    cm(21,3)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
 767 &   *dgm10(3,3)+4320*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 768 &   *dgm10(3,3))+240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
 769 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/1440.d0
 770    cm(1,4)=(gm(1,1)*(240*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
 771 &   *dgm01(1,1)*dgm10(1,1)+4320*gm(1,1)*gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
 772 &   +dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)*gm(1,2)*(dgm01(1,3)*dgm10(1,1)&
 773 &   +dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*(dgm01(2,3)*dgm10(1,1)&
 774 &   +dgm01(1,1)*dgm10(2,3))))/720.d0
 775    cm(2,4)=(72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
 776 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)&
 777 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)&
 778 &   +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
 779 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 780 &   +36*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
 781 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 782 &   +36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)&
 783 &   +dgm01(1,1)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
 784 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)&
 785 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
 786 &   +dgm01(1,1)*dgm10(2,2))+432*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
 787 &   +dgm01(1,2)*dgm10(2,2))+432*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)&
 788 &   +dgm01(1,3)*dgm10(2,2))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 789 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)&
 790 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*gm(1,1)&
 791 &   **3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
 792    cm(3,4)=(72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
 793 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+36*(6*gm(1,3)&
 794 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 795 &   *dgm10(1,2))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 796 &   *dgm01(1,3)*dgm10(1,3)+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 797 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 798 &   *dgm10(1,3))+72*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
 799 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 800 &   +72*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
 801 &   +dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
 802 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)&
 803 &   **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*gm(1,1)&
 804 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)&
 805 &   +dgm01(1,1)*dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)&
 806 &   +dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
 807 &   +dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,3)&
 808 &   +dgm01(2,3)*dgm10(3,3)))/72.d0
 809    cm(4,4)=18*gm(1,2)**2*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)&
 810 &   **2*(18*gm(2,2)*dgm01(1,1)*dgm10(1,1)+24*gm(1,1)*dgm01(1,2)*dgm10(1,2)&
 811 &   +12*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)&
 812 &   *(18*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+30*gm(2,2)*gm(3,3)*dgm01(1,1)&
 813 &   *dgm10(1,1)+12*gm(1,2)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 814 &   *dgm10(1,3))+gm(1,2)*(48*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 815 &   *dgm10(1,2))+24*gm(1,2)*dgm01(1,3)*dgm10(1,3)))+8*gm(1,1)**3*dgm01(2,3)&
 816 &   *dgm10(2,3)+gm(1,1)**2*(48*gm(3,3)*dgm01(1,2)*dgm10(1,2)+48*gm(2,2)&
 817 &   *dgm01(1,3)*dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+24*gm(1,2)&
 818 &   *dgm01(1,3)*dgm10(2,3)+gm(2,3)*(-12*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)&
 819 &   *dgm10(1,2)+48*dgm01(1,2)*dgm10(1,3)-12*dgm01(1,1)*dgm10(2,3)))&
 820 &   +gm(1,3)*(12*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 821 &   +gm(1,2)*(-12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(36*dgm01(2,3)&
 822 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)&
 823 &   +36*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
 824 &   +dgm01(1,1)*dgm10(1,2))+48*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 825 &   *dgm10(1,3))+24*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))))
 826    cm(5,4)=(gm(1,2)*(864*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+3456*gm(1,1)&
 827 &   *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)&
 828 &   *(gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,3)*dgm10(1,3)))&
 829 &   +gm(1,1)*(864*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 830 &   +gm(1,3)*(864*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(864*dgm01(2,3)&
 831 &   *dgm10(1,1)+1728*dgm01(1,3)*dgm10(1,2)+1728*dgm01(1,2)*dgm10(1,3)&
 832 &   +864*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(1728*gm(3,3)*(dgm01(1,2)&
 833 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+864*gm(2,3)*(dgm01(1,3)*dgm10(1,1)&
 834 &   +dgm01(1,1)*dgm10(1,3))+576*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
 835 &   *dgm10(2,3)))))/144.d0
 836    cm(6,4)=(144*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
 837 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+3456*gm(1,1)&
 838 &   **2*gm(1,3)*dgm01(1,2)*dgm10(1,2)+48*gm(1,1)*(54*gm(1,2)*gm(1,3)&
 839 &   -18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 840 &   +72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)&
 841 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
 842 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1728*gm(1,1)&
 843 &   **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)&
 844 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+576*gm(1,1)&
 845 &   **3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))/144.d0
 846    cm(7,4)=(24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
 847 &   *dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
 848 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+12*(-36*gm(1,2)&
 849 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
 850 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(6*gm(1,2)&
 851 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
 852 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(2,2)*(54*gm(1,2)&
 853 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 854 &   +72*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
 855 &   +dgm01(1,2)*dgm10(1,3))+36*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
 856 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 857 &   *dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
 858 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)&
 859 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
 860 &   +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)&
 861 &   +dgm01(1,1)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
 862 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+432*gm(1,1)&
 863 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
 864    cm(8,4)=12*gm(1,3)**3*dgm01(1,2)*dgm10(1,2)+gm(1,3)**2*(21*gm(1,2)&
 865 &   *dgm01(2,3)*dgm10(1,1)+18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)&
 866 &   *dgm01(2,3)*dgm10(1,2)+9*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 867 &   *dgm10(1,2))+18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+33*gm(2,2)*(dgm01(1,3)&
 868 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+21*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
 869 &   +30*gm(1,1)*dgm01(1,2)*dgm10(2,3))+gm(1,2)**2*(12*gm(3,3)*(dgm01(1,3)&
 870 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
 871 &   +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(6*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)&
 872 &   +30*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+3*gm(1,2)**2*dgm01(3,3)&
 873 &   *dgm10(1,1)+30*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+60*gm(1,1)&
 874 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)+6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)&
 875 &   +24*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)&
 876 &   *dgm10(1,3)+48*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)&
 877 &   **2*dgm01(2,3)*dgm10(2,3)+gm(2,3)*(6*gm(1,2)*(dgm01(1,3)*dgm10(1,1)&
 878 &   +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(0*dgm01(2,3)*dgm10(1,1)+60*dgm01(1,3)&
 879 &   *dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)))&
 880 &   +3*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)*gm(1,2)*dgm01(1,2)&
 881 &   *dgm10(3,3)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
 882 &   *(12*dgm01(3,3)*dgm10(1,1)+96*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
 883 &   *dgm10(3,3))))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,3)*dgm10(1,1)&
 884 &   +dgm01(1,1)*dgm10(1,3))+18*gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(1,2)&
 885 &   +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(15*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
 886 &   +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(2,3)&
 887 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3)))+gm(2,2)&
 888 &   *(27*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)&
 889 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))))+gm(1,2)*(gm(2,3)&
 890 &   *(6*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)&
 891 &   +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*(gm(3,3)&
 892 &   *(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)&
 893 &   *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(2,3)&
 894 &   +dgm01(2,3)*dgm10(3,3))))
 895    cm(9,4)=12*gm(1,2)**3*dgm01(1,3)*dgm10(1,3)+gm(1,3)**2*(12*gm(2,2)&
 896 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(2,2)&
 897 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))&
 898 &   +6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)&
 899 &   **2*(33*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 900 &   +9*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(1,1)&
 901 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)&
 902 &   **2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)&
 903 &   +60*gm(1,1)*dgm01(1,3)*dgm10(1,3))+gm(1,1)*gm(2,3)*(0*dgm01(2,3)&
 904 &   *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)&
 905 &   +0*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)&
 906 &   +96*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+24*gm(1,1)&
 907 &   *dgm01(2,3)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)&
 908 &   +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
 909 &   +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(15*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
 910 &   +dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
 911 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)))+gm(2,2)&
 912 &   *(27*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*gm(1,1)&
 913 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))+gm(1,3)*(gm(1,2)&
 914 &   **2*(21*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)&
 915 &   *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(6*gm(2,3)*dgm01(1,1)&
 916 &   *dgm10(1,1)+30*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 917 &   +gm(1,1)*(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)&
 918 &   *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)*(dgm01(1,2)&
 919 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(48*dgm01(2,3)*dgm10(1,2)&
 920 &   +6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+48*dgm01(1,2)&
 921 &   *dgm10(2,3)))+gm(1,1)*(gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)&
 922 &   *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(2,2)&
 923 &   +dgm01(2,2)*dgm10(2,3))))
 924    cm(10,4)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
 925 &   *dgm01(1,1)*dgm10(1,1)+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
 926 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+144*(48*gm(1,1)&
 927 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)&
 928 &   *dgm10(1,3)+12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
 929 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 930 &   *dgm10(1,3))+72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
 931 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 932 &   *dgm10(1,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
 933 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
 934 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 935 &   +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
 936 &   +dgm01(1,3)*dgm10(2,3))+36*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 937 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 938 &   *dgm10(3,3))+36*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
 939 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)&
 940 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 941 &   +432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
 942 &   /72.d0
 943    cm(11,4)=(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
 944 &   +gm(1,1)*gm(2,3)))*dgm01(1,2)*dgm10(1,2)+6*gm(2,2)*(-18*gm(1,3)&
 945 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 946 &   *dgm10(1,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)&
 947 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)&
 948 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)&
 949 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
 950 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
 951 &   +dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
 952 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)&
 953 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
 954 &   *dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
 955 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/18.d0
 956    cm(12,4)=(12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
 957 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+6*(6*gm(1,2)&
 958 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
 959 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,2)*gm(1,3)*gm(2,2)&
 960 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)&
 961 &   *dgm10(1,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
 962 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(30*gm(1,3)&
 963 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
 964 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
 965 &   +dgm01(1,2)*dgm10(1,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
 966 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
 967 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)&
 968 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
 969 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(6*gm(1,3)**3+30*gm(1,1)&
 970 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 971 &   +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
 972 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)&
 973 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
 974 &   +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
 975 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
 976 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
 977 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
 978 &   +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
 979 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
 980 &   *dgm10(2,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
 981 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
 982 &   *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
 983 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
 984 &   *dgm10(2,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
 985 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,2)*gm(1,3)*gm(2,2)&
 986 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
 987 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
 988 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
 989 &   +dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
 990 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(54*gm(1,2)&
 991 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
 992 &   /6.d0
 993    cm(13,4)=(18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
 994 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
 995 &   *dgm01(1,2)*dgm10(1,2)+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
 996 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 997 &   +6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)*dgm10(1,3)&
 998 &   +3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
 999 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)&
1000 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
1001 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
1002 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
1003 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)&
1004 &   *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
1005 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,1)&
1006 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
1007 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
1008 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
1009 &   +dgm01(1,3)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
1010 &   *dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1011 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)&
1012 &   +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1013 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1014 &   *dgm10(2,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1015 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1016 &   *dgm10(2,3))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
1017 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,2)**3+30*gm(1,1)&
1018 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1019 &   +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)&
1020 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/9.d0
1021    cm(14,4)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
1022 &   *dgm10(1,2)+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
1023 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*(30*gm(1,3)&
1024 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1025 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
1026 &   +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
1027 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*(90*gm(1,3)&
1028 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
1029 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)&
1030 &   +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
1031 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1032 &   *gm(3,3))*dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
1033 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
1034 &   +dgm01(1,1)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
1035 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,3)**3+30*gm(1,1)&
1036 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1037 &   +9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
1038 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)&
1039 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1040 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(9*gm(1,3)**2*gm(2,2)&
1041 &   -6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)&
1042 &   **2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1043 &   +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
1044 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)&
1045 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
1046 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)&
1047 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1048 &   *dgm10(3,3)))/9.d0
1049    cm(15,4)=(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
1050 &   *gm(2,3))*gm(3,3))*dgm01(1,3)*dgm10(1,3)+6*gm(3,3)*(54*gm(1,3)&
1051 &   *gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1052 &   *dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)&
1053 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*(90*gm(1,3)**3-54*gm(1,1)&
1054 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1055 &   +9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
1056 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1057 &   +9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)&
1058 &   +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1059 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1060 &   *dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
1061 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
1062    cm(16,4)=(3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
1063 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(-36*gm(1,2)&
1064 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1065 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(1,2)&
1066 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1067 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)&
1068 &   +dgm01(2,2)*dgm10(2,3)))/18.d0
1069    cm(17,4)=(9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
1070 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,3)&
1071 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
1072 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(30*gm(1,3)&
1073 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1074 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
1075 &   +dgm01(1,3)*dgm10(2,2))+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1076 &   *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
1077 &   +18*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
1078 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)&
1079 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1080 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
1081 &   +dgm01(1,2)*dgm10(2,3))+18*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1082 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)&
1083 &   +dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1084 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1085 &   *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
1086 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(-36*gm(1,2)&
1087 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1088 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(54*gm(1,2)&
1089 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1090 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)&
1091 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
1092    cm(18,4)=(9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
1093 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(-12*gm(1,3)&
1094 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1095 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
1096 &   +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1097 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
1098 &   +dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
1099 &   *dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
1100 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-36*gm(1,2)&
1101 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1102 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(1,2)&
1103 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1104 &   +3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
1105 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
1106 &   /18.d0
1107    cm(19,4)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
1108 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*gm(3,3)*(54*gm(1,3)&
1109 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
1110 &   +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1111 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1112 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1113 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,2)*gm(2,3)*gm(3,3)&
1114 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
1115 &   +dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
1116 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1117 &   *dgm10(2,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1118 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1119 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)&
1120 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1121 &   +9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
1122 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(-12*gm(1,3)&
1123 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1124 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
1125 &   +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1126 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
1127 &   +dgm01(1,3)*dgm10(3,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1128 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1129 &   *dgm10(3,3)))/18.d0
1130    cm(20,4)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
1131 &   *dgm10(2,3)+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
1132 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)&
1133 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1134 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1135 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1136 &   +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
1137 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(6*gm(1,3)&
1138 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
1139 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)&
1140 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1141 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
1142 &   +dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1143 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1144 &   *dgm10(3,3)))/18.d0
1145    cm(21,4)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
1146 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*gm(3,3)*(54*gm(1,3)&
1147 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
1148 &   +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1149 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1150 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
1151 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
1152    cm(1,5)=gm(1,1)**2*(6*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
1153 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
1154    cm(2,5)=(144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1155 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)&
1156 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
1157 &   +dgm01(1,1)*dgm10(1,2))+48*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
1158 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)&
1159 &   **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)&
1160 &   **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+576*gm(1,1)&
1161 &   **3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0
1162    cm(3,5)=3*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,3)&
1163 &   **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*gm(1,3)&
1164 &   *(15*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)&
1165 &   +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)**2*(9*gm(3,3)&
1166 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*gm(1,1)*(dgm01(3,3)&
1167 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
1168    cm(4,5)=gm(1,2)*(6*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+24*gm(1,1)&
1169 &   *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(1,1)&
1170 &   *(gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,3)*dgm10(1,3)))&
1171 &   +gm(1,1)*(6*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1172 &   +gm(1,3)*(6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(2,3)&
1173 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
1174 &   +6*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
1175 &   +dgm01(1,1)*dgm10(1,2))+6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1176 &   *dgm10(1,3))+4*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))
1177    cm(5,5)=gm(1,1)*(6*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)&
1178 &   *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)&
1179 &   *(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+8*gm(1,1)*dgm01(1,3)*dgm10(1,3)))
1180    cm(6,5)=gm(1,1)*(6*gm(1,2)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1181 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(12*gm(2,3)&
1182 &   *dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1183 &   *dgm10(1,2))+4*gm(1,1)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))))
1184    cm(7,5)=(48*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
1185 &   +gm(1,1)*gm(2,3)))*dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)&
1186 &   -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)&
1187 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(90*gm(1,2)**3-54*gm(1,1)&
1188 &   *gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1189 &   +96*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
1190 &   +dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)&
1191 &   *gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+1728*gm(1,1)&
1192 &   **2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0
1193    cm(8,5)=(48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
1194 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)&
1195 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1196 &   *dgm10(1,2))+128*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1197 &   *dgm01(1,3)*dgm10(1,3)+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1198 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1199 &   *dgm10(1,3))+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1200 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1201 &   +32*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
1202 &   +dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)&
1203 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)&
1204 &   **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)&
1205 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)&
1206 &   +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
1207 &   +dgm01(1,3)*dgm10(3,3)))/96.d0
1208    cm(9,5)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1209 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1210 &   *dgm01(1,1)*dgm10(1,1)+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1211 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1212 &   *dgm10(1,2))+64*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)&
1213 &   *dgm10(1,3)+16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1214 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1215 &   *dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1216 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1217 &   *dgm10(1,3))+64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1218 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)*(12*gm(1,3)&
1219 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1220 &   +576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1221 &   +48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)&
1222 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)**2*gm(1,2)*(dgm01(2,3)&
1223 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))/96.d0
1224    cm(10,5)=8*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1225 &   +gm(1,3)**2*(9*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)&
1226 &   *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))&
1227 &   +gm(1,1)*gm(3,3)*(-3*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(3,3)&
1228 &   *dgm10(1,1)-12*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))&
1229 &   +gm(1,1)*gm(1,3)*(12*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1230 &   *dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
1231    cm(11,5)=(6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
1232 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1233 &   *dgm10(1,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)&
1234 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1235 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
1236 &   +dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
1237 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/36.d0
1238    cm(12,5)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
1239 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1240 &   *dgm10(1,2))+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1241 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+6*(-12*gm(1,3)&
1242 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1243 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
1244 &   +dgm01(1,1)*dgm10(1,3))+4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1245 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1246 &   *dgm10(1,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
1247 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1248 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,1)&
1249 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
1250 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)&
1251 &   -18*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1252 &   +3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
1253 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1254 &   +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)&
1255 &   +dgm01(1,3)*dgm10(3,3)))/12.d0
1256    cm(13,5)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1257 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1258 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(90*gm(1,2)&
1259 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,2)&
1260 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1261 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(90*gm(1,2)&
1262 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1263 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,1)*gm(1,3)&
1264 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
1265 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)&
1266 &   -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1267 &   +9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
1268 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1269 &   +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)&
1270 &   +dgm01(1,3)*dgm10(2,3)))/18.d0
1271    cm(14,5)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)&
1272 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
1273 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
1274 &   +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1275 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1276 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
1277 &   +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
1278 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)&
1279 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1280 &   +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
1281 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)&
1282 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
1283 &   +dgm01(1,3)*dgm10(3,3)))/18.d0
1284    cm(15,5)=(32*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
1285 &   *dgm10(1,3)+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)&
1286 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(6*gm(1,3)**3+30*gm(1,1)&
1287 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1288 &   +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
1289 &   +dgm01(1,3)*dgm10(3,3)))/144.d0
1290    cm(16,5)=(240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
1291 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1292 &   *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)&
1293 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/2880.d0
1294    cm(17,5)=(9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
1295 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1296 &   *dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1297 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1298 &   +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
1299 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
1300 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)**2*gm(1,3)&
1301 &   -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
1302 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
1303 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
1304 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)&
1305 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))&
1306 &   /36.d0
1307    cm(18,5)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1308 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1309 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(90*gm(1,2)&
1310 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1311 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)&
1312 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1313 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)&
1314 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
1315 &   *dgm10(2,3)))/36.d0
1316    cm(19,5)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
1317 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)&
1318 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1319 &   +18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1320 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1321 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1322 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)&
1323 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1324 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
1325 &   +dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1326 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1327 &   *dgm10(3,3)))/36.d0
1328    cm(20,5)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
1329 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
1330 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1331 &   +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1332 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1333 &   +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1334 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/36.d0
1335    cm(21,5)=(240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
1336 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)&
1337 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))&
1338 &   /2880.d0
1339    cm(1,6)=gm(1,1)**2*(6*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
1340 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))
1341    cm(2,6)=3*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,2)&
1342 &   **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*gm(1,2)&
1343 &   *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)&
1344 &   +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))+gm(1,1)**2*(9*gm(2,2)&
1345 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+2*gm(1,1)*(dgm01(2,2)&
1346 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
1347    cm(3,6)=(144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1348 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)*(54*gm(1,3)&
1349 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1350 &   +144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,3)&
1351 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)**2*gm(1,3)*(dgm01(1,3)&
1352 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
1353 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**3*(dgm01(3,3)&
1354 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0
1355    cm(4,6)=6*gm(1,2)**2*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1356 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*gm(1,2)&
1357 &   *(6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+24*gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
1358 &   +dgm01(1,1)*dgm10(1,2))+gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
1359 &   *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))&
1360 &   +gm(1,1)*(24*gm(1,3)*(gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,2)&
1361 &   *dgm10(1,2))+gm(1,1)*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1362 &   *dgm10(1,2))+12*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1363 &   +4*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))))
1364    cm(5,6)=gm(1,1)*(6*gm(1,2)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1365 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(12*gm(2,3)&
1366 &   *dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1367 &   *dgm10(1,2))+4*gm(1,1)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))))
1368    cm(6,6)=gm(1,1)*(6*gm(1,2)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)&
1369 &   *gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)&
1370 &   *(12*gm(2,2)*dgm01(1,1)*dgm10(1,1)+8*gm(1,1)*dgm01(1,2)*dgm10(1,2)))
1371    cm(7,6)=8*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1372 &   +gm(1,2)**2*(9*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)&
1373 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))&
1374 &   +gm(1,1)*gm(2,2)*(-3*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(2,2)&
1375 &   *dgm10(1,1)-12*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))&
1376 &   +gm(1,1)*gm(1,2)*(12*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1377 &   *dgm10(1,2))+6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
1378    cm(8,6)=(48*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1379 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1380 &   *dgm01(1,1)*dgm10(1,1)+64*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
1381 &   *dgm01(1,2)*dgm10(1,2)+48*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1382 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1383 &   *dgm10(1,2))+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1384 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1385 &   +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
1386 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1387 &   +64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)&
1388 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)&
1389 &   +24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1390 &   +1152*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1391 &   +24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
1392 &   +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)&
1393 &   +dgm01(1,2)*dgm10(3,3)))/96.d0
1394    cm(9,6)=(288*gm(1,2)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1395 &   +gm(1,2)**2*(288*gm(2,3)*dgm01(1,1)*dgm10(1,1)+2016*gm(1,3)*(dgm01(1,2)&
1396 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(576*dgm01(2,3)*dgm10(1,1)&
1397 &   +1728*dgm01(1,3)*dgm10(1,2)+1728*dgm01(1,2)*dgm10(1,3)+576*dgm01(1,1)&
1398 &   *dgm10(2,3)))+gm(1,1)*(gm(1,1)*(gm(2,3)*(576*dgm01(2,2)*dgm10(1,1)&
1399 &   -2304*dgm01(1,2)*dgm10(1,2)+576*dgm01(1,1)*dgm10(2,2))+576*gm(1,3)&
1400 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)*(-864*gm(2,3)&
1401 &   *dgm01(1,1)*dgm10(1,1)+2016*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1402 &   *dgm10(1,2))+gm(1,1)*(1152*dgm01(2,3)*dgm10(1,1)-576*dgm01(1,3)&
1403 &   *dgm10(1,2)-576*dgm01(1,2)*dgm10(1,3)+1152*dgm01(1,1)*dgm10(2,3))))&
1404 &   +gm(1,2)*(gm(1,3)*(2304*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1405 &   *(288*dgm01(2,2)*dgm10(1,1)+6912*dgm01(1,2)*dgm10(1,2)+288*dgm01(1,1)&
1406 &   *dgm10(2,2)))+gm(1,1)*(1440*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1407 &   *dgm10(1,3))+1152*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))))&
1408 &   /96.d0
1409    cm(10,6)=(48*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
1410 &   *gm(2,3))*gm(3,3))*dgm01(1,1)*dgm10(1,1)+16*(90*gm(1,3)**3-54*gm(1,1)&
1411 &   *gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1412 &   +144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
1413 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*gm(1,1)&
1414 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1415 &   *dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1416 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+1728*gm(1,1)**2*gm(1,3)&
1417 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0
1418    cm(11,6)=(32*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)&
1419 &   *dgm10(1,2)+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)&
1420 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+36*(6*gm(1,2)**3+30*gm(1,1)&
1421 &   *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1422 &   +24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)&
1423 &   +dgm01(1,2)*dgm10(2,2)))/144.d0
1424    cm(12,6)=(8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1425 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+6*(30*gm(1,3)&
1426 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1427 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
1428 &   +dgm01(1,1)*dgm10(1,2))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1429 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)&
1430 &   +dgm01(1,1)*dgm10(1,3))+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1431 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1432 &   *dgm10(1,3))+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1433 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1434 &   +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)&
1435 &   +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
1436 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
1437 &   *dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1438 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*(6*gm(1,2)**3+30*gm(1,1)&
1439 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1440 &   +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
1441 &   +dgm01(1,2)*dgm10(3,3)))/12.d0
1442    cm(13,6)=(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1443 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+9*(48*gm(1,2)&
1444 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1445 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*gm(2,2)*(54*gm(1,2)&
1446 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1447 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
1448 &   +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
1449 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1450 &   *dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1451 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)&
1452 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1453 &   +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)&
1454 &   +dgm01(1,2)*dgm10(2,3)))/18.d0
1455    cm(14,6)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)&
1456 &   *dgm10(1,2)+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1457 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1458 &   *dgm10(1,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1459 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1460 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(-36*gm(1,1)&
1461 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1462 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)&
1463 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
1464 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1465 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,2)&
1466 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
1467 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,2)&
1468 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
1469 &   *dgm10(3,3)))/18.d0
1470    cm(15,6)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1471 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1472 &   *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
1473 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)&
1474 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
1475 &   +dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
1476 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
1477    cm(16,6)=(240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)&
1478 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)&
1479 &   *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))&
1480 &   /2880.d0
1481    cm(17,6)=(9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1482 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1483 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)&
1484 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1485 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(48*gm(1,2)&
1486 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1487 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)&
1488 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1489 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(2,2)*(54*gm(1,2)&
1490 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1491 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
1492 &   +dgm01(1,2)*dgm10(3,3)))/36.d0
1493    cm(18,6)=(9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
1494 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1495 &   *dgm10(2,2))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1496 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1497 &   *dgm10(2,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
1498 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)**3-54*gm(1,1)&
1499 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))&
1500 &   /36.d0
1501    cm(19,6)=(3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1502 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1503 &   *dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
1504 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(30*gm(1,3)**2*gm(2,2)&
1505 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1506 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1507 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1508 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,2)&
1509 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1510 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)&
1511 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1512 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
1513    cm(20,6)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1514 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
1515 &   *dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
1516 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1517 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1518 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,1)&
1519 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1520 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
1521    cm(21,6)=(240*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1522 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1523 &   *dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)&
1524 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/2880.d0
1525    cm(1,7)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)&
1526 &   *dgm10(1,1)+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)&
1527 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)**2*gm(1,2)*(dgm01(2,2)&
1528 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/1440.d0
1529    cm(2,7)=gm(1,2)**3*(4*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1530 &   +4*dgm01(1,1)*dgm10(2,2))+gm(1,2)*(6*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)&
1531 &   +6*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+gm(1,1)*gm(2,2)*(6*dgm01(2,2)&
1532 &   *dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))&
1533 &   +15*gm(1,2)**2*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1534 &   +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+9*gm(1,1)&
1535 &   *gm(2,2)*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1536 &   +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
1537    cm(3,7)=(24*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1538 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+72*(-12*gm(1,3)&
1539 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1540 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
1541 &   +dgm01(1,1)*dgm10(1,2))+24*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
1542 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)&
1543 &   +dgm01(1,1)*dgm10(1,3))+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1544 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)&
1545 &   +dgm01(1,2)*dgm10(1,3))+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1546 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1547 &   *dgm10(2,2))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1548 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)&
1549 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1550 &   *dgm10(3,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
1551 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
1552 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/144.d0
1553    cm(4,7)=(24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
1554 &   *dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1555 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+12*(-36*gm(1,2)&
1556 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1557 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(6*gm(1,2)&
1558 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
1559 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(2,2)*(54*gm(1,2)&
1560 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1561 &   +72*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
1562 &   +dgm01(1,2)*dgm10(1,3))+36*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
1563 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1564 &   *dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1565 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)&
1566 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1567 &   +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)&
1568 &   +dgm01(1,1)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
1569 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+432*gm(1,1)&
1570 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
1571    cm(5,7)=(48*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
1572 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)&
1573 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
1574 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(90*gm(1,2)&
1575 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1576 &   *dgm10(1,3))+96*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)&
1577 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)&
1578 &   +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1579 &   +1728*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))&
1580 &   /288.d0
1581    cm(6,7)=(2304*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1582 &   +gm(1,2)**2*(2592*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(864*dgm01(2,2)&
1583 &   *dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)*dgm10(2,2)))&
1584 &   +gm(1,1)*gm(2,2)*(-864*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1585 &   *(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)+1728*dgm01(1,1)&
1586 &   *dgm10(2,2)))+gm(1,1)*gm(1,2)*(3456*gm(2,2)*(dgm01(1,2)*dgm10(1,1)&
1587 &   +dgm01(1,1)*dgm10(1,2))+1728*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1588 &   *dgm10(2,2))))/288.d0
1589    cm(7,7)=2*gm(2,2)**3*dgm01(1,1)*dgm10(1,1)+gm(2,2)**2*(12*gm(1,2)&
1590 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(-3*dgm01(2,2)&
1591 &   *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))&
1592 &   +6*gm(1,2)**2*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)&
1593 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)*(12*gm(1,1)**2*dgm01(2,2)&
1594 &   *dgm10(2,2)+gm(1,2)**2*(9*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)&
1595 &   *dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))+30*gm(1,1)*gm(1,2)*(dgm01(2,2)&
1596 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
1597    cm(8,7)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
1598 &   *dgm10(1,1)+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1599 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1600 &   *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
1601 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1602 &   *dgm10(1,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1603 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1604 &   +4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
1605 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,2)*gm(1,3)*gm(2,2)&
1606 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
1607 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1608 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1609 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)&
1610 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
1611 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
1612 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
1613 &   +dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
1614 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)&
1615 &   +dgm01(1,1)*dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1616 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1617 &   *dgm10(2,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1618 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)&
1619 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1620 &   +6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
1621 &   +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))&
1622 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0
1623    cm(9,7)=(288*gm(2,2)**2*gm(2,3)*dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)&
1624 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
1625 &   *dgm01(1,2)*dgm10(1,2)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
1626 &   *gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*gm(2,2)&
1627 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
1628 &   +dgm01(1,1)*dgm10(1,2))+288*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)&
1629 &   +dgm01(1,1)*dgm10(1,3))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
1630 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)&
1631 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)&
1632 &   +12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
1633 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1634 &   +4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
1635 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1636 &   +48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
1637 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
1638 &   +24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
1639 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
1640 &   +24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
1641 &   +dgm01(1,3)*dgm10(2,2))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
1642 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*(6*gm(1,2)&
1643 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1644 &   *dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)&
1645 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/48.d0
1646    cm(10,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
1647 &   *dgm10(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
1648 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1649 &   +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
1650 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(-12*gm(1,3)&
1651 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1652 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
1653 &   +dgm01(1,2)*dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
1654 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1655 &   *dgm10(2,2))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1656 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
1657 &   +3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
1658 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1659 &   +18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
1660 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
1661 &   +9*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)&
1662 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
1663    cm(11,7)=2*gm(2,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1664 &   +3*gm(1,2)**3*dgm01(2,2)*dgm10(2,2)+gm(2,2)**2*(gm(1,2)*(3*dgm01(2,2)&
1665 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))&
1666 &   +9*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+15*gm(1,2)&
1667 &   *gm(2,2)*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
1668 &   +dgm01(1,2)*dgm10(2,2)))
1669    cm(12,7)=(96*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
1670 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+8*gm(2,2)*(54*gm(2,3)&
1671 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1672 &   +288*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1673 &   +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,3)&
1674 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)&
1675 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)&
1676 &   +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
1677 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*(30*gm(1,3)&
1678 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1679 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
1680 &   +dgm01(1,2)*dgm10(2,2))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1681 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
1682 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(48*gm(1,2)&
1683 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
1684 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(2,2)*(-18*gm(1,3)&
1685 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
1686 &   *dgm10(2,3))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
1687 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1688 &   *dgm10(2,3))+48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
1689 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1690 &   *dgm10(2,3))+144*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1691 &   *dgm10(3,3))+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)&
1692 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*(6*gm(1,2)**3+30*gm(1,1)&
1693 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
1694 &   /48.d0
1695    cm(13,7)=(144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
1696 &   *dgm01(1,2)*dgm10(1,2)+432*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
1697 &   +dgm01(1,1)*dgm10(1,2))+144*gm(2,2)**3*(dgm01(1,3)*dgm10(1,1)&
1698 &   +dgm01(1,1)*dgm10(1,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)&
1699 &   +dgm01(1,2)*dgm10(1,3))+72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
1700 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)&
1701 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
1702 &   +dgm01(1,1)*dgm10(2,2))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1703 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
1704 &   +dgm01(1,2)*dgm10(2,2))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1705 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
1706 &   +dgm01(1,2)*dgm10(2,2))+12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
1707 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+432*gm(1,2)&
1708 &   *gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*gm(2,2)&
1709 &   *(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1710 &   *dgm10(2,3))+36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
1711 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
1712    cm(14,7)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
1713 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+(90*gm(2,3)**3-54*gm(2,2)&
1714 &   *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1715 &   +3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
1716 &   +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
1717 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1718 &   *dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
1719 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1720 &   *dgm10(2,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1721 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1722 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)&
1723 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
1724 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)&
1725 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1726 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
1727 &   +dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1728 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1729 &   *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
1730 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)&
1731 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
1732 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)&
1733 &   +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)&
1734 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0
1735    cm(15,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
1736 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
1737 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
1738 &   +dgm01(1,2)*dgm10(1,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
1739 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
1740 &   *dgm10(2,2))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1741 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1742 &   +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
1743 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
1744 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)&
1745 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
1746 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
1747    cm(16,7)=gm(2,2)*(9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
1748 &   **2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+gm(2,2)*(-3*gm(1,1)&
1749 &   *dgm01(2,2)*dgm10(2,2)+6*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1750 &   *dgm10(2,2))))
1751    cm(17,7)=(72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1752 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1753 &   *dgm01(2,2)*dgm10(2,2)+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
1754 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(48*gm(1,3)&
1755 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
1756 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)&
1757 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)&
1758 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1759 &   +72*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
1760 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1761 &   +144*gm(2,2)**3*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1762 &   +864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
1763 &   +12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
1764 &   +dgm01(2,2)*dgm10(3,3)))/144.d0
1765    cm(18,7)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
1766 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+864*gm(2,2)&
1767 &   **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+144*gm(2,2)&
1768 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
1769 &   +dgm01(1,2)*dgm10(2,2))+576*gm(2,2)**3*(dgm01(2,3)*dgm10(1,1)&
1770 &   +dgm01(1,1)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
1771 &   +dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
1772 &   *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/288.d0
1773    cm(19,7)=(24*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
1774 &   *gm(2,3))*gm(3,3))*dgm01(2,2)*dgm10(2,2)+4*(90*gm(2,3)**3-54*gm(2,2)&
1775 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
1776 &   +24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
1777 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(2,2)&
1778 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
1779 &   *dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
1780 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1781 &   +72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
1782 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
1783 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
1784 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)&
1785 &   +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
1786 &   +36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
1787 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
1788 &   /144.d0
1789    cm(20,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
1790 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
1791 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
1792 &   +dgm01(1,2)*dgm10(2,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
1793 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1794 &   *dgm10(2,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
1795 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)&
1796 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
1797 &   +dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1798 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1799 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
1800    cm(21,7)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
1801 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
1802 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
1803 &   +dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
1804 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
1805 &   *dgm10(3,3)))/36.d0
1806    cm(1,8)=(80*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1807 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+80*gm(1,1)*(54*gm(1,3)&
1808 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1809 &   +160*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)&
1810 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2880*gm(1,1)**2*gm(1,3)*(dgm01(2,3)&
1811 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1440*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
1812 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/480.d0
1813    cm(2,8)=(24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
1814 &   *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+96*(48*gm(1,1)*gm(1,3)*gm(2,3)&
1815 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)&
1816 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
1817 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
1818 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)**2*gm(2,2)&
1819 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
1820 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1821 &   +48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
1822 &   *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1823 &   +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
1824 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
1825 &   +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1826 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+8*gm(1,1)&
1827 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1828 &   *dgm10(2,2))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1829 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)&
1830 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
1831 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)&
1832 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1833 &   *dgm10(2,3))+288*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1834 &   *dgm10(2,3))+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)&
1835 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
1836 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,1)&
1837 &   **2*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/48.d0
1838    cm(3,8)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
1839 &   *dgm01(1,1)*dgm10(1,1)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))&
1840 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,1)&
1841 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(1,3)&
1842 &   *dgm10(1,3)+24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
1843 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1844 &   *dgm10(1,3))+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
1845 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1846 &   *dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
1847 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**3+30*gm(1,1)&
1848 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1849 &   +48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
1850 &   +dgm01(1,3)*dgm10(2,3))+288*gm(1,1)**2*gm(1,2)*dgm01(3,3)*dgm10(3,3)&
1851 &   +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
1852 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(-36*gm(1,1)&
1853 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1854 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+8*gm(1,1)*(54*gm(1,3)&
1855 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
1856 &   +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)&
1857 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
1858 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1859 &   +288*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
1860 &   /48.d0
1861    cm(4,8)=(24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
1862 &   *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**3+30*gm(1,1)&
1863 &   *gm(1,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+12*(6*gm(1,3)**2*gm(2,3)&
1864 &   +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)&
1865 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
1866 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)&
1867 &   +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
1868 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+12*(30*gm(1,3)&
1869 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1870 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
1871 &   +dgm01(1,1)*dgm10(1,3))+48*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
1872 &   *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
1873 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(48*gm(1,1)&
1874 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)&
1875 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)&
1876 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
1877 &   +dgm01(1,2)*dgm10(1,3))+576*gm(1,1)**2*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
1878 &   +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1879 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,1)&
1880 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
1881 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1882 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(1,1)&
1883 &   *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1884 &   *dgm10(2,3))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1885 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)&
1886 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
1887 &   *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
1888 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1889 &   *dgm10(3,3))+12*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1890 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(1,1)*(12*gm(1,2)&
1891 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1892 &   +144*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
1893 &   /24.d0
1894    cm(5,8)=(48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
1895 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)&
1896 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1897 &   *dgm10(1,2))+128*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
1898 &   *dgm01(1,3)*dgm10(1,3)+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1899 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1900 &   *dgm10(1,3))+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1901 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1902 &   +32*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
1903 &   +dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)&
1904 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)&
1905 &   **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)&
1906 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)&
1907 &   +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
1908 &   +dgm01(1,3)*dgm10(3,3)))/96.d0
1909    cm(6,8)=(48*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1910 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1911 &   *dgm01(1,1)*dgm10(1,1)+64*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
1912 &   *dgm01(1,2)*dgm10(1,2)+48*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1913 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1914 &   *dgm10(1,2))+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1915 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1916 &   +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
1917 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1918 &   +64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)&
1919 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)&
1920 &   +24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
1921 &   +1152*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
1922 &   +24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
1923 &   +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)&
1924 &   +dgm01(1,2)*dgm10(3,3)))/96.d0
1925    cm(7,8)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
1926 &   *dgm10(1,1)+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1927 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1928 &   *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
1929 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1930 &   *dgm10(1,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1931 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1932 &   +4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
1933 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,2)*gm(1,3)*gm(2,2)&
1934 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
1935 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1936 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1937 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)&
1938 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
1939 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
1940 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
1941 &   +dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
1942 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)&
1943 &   +dgm01(1,1)*dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1944 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
1945 &   *dgm10(2,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
1946 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)&
1947 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
1948 &   +6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
1949 &   +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))&
1950 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0
1951    cm(8,8)=(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)&
1952 &   *dgm10(1,1)+4*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(1,2)&
1953 &   *dgm10(1,2)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
1954 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(9*gm(1,3)&
1955 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
1956 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+4*(6*gm(1,2)&
1957 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
1958 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
1959 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
1960 &   +dgm01(1,2)*dgm10(1,3))+4*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))&
1961 &   *dgm01(2,3)*dgm10(2,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
1962 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
1963 &   *dgm10(2,3))+4*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
1964 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)&
1965 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
1966 &   +dgm01(1,3)*dgm10(2,3))+gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))&
1967 &   *dgm01(3,3)*dgm10(3,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1968 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1969 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(48*gm(1,1)&
1970 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
1971 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
1972 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
1973 &   +dgm01(1,3)*dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)&
1974 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/2.d0
1975    cm(9,8)=(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
1976 &   *dgm10(1,1)+16*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
1977 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+2*(48*gm(1,2)&
1978 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
1979 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(6*gm(1,2)*gm(2,3)*gm(3,3)&
1980 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
1981 &   +dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1982 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)&
1983 &   +2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
1984 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(6*gm(1,3)&
1985 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
1986 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(-12*gm(1,3)**2*gm(2,2)&
1987 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
1988 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
1989 &   +16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
1990 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
1991 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
1992 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)&
1993 &   +dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
1994 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,1)*gm(1,3)&
1995 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
1996 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)*(12*gm(1,2)*gm(1,3)&
1997 &   +24*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*(30*gm(1,3)**2*gm(2,2)&
1998 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1999 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2000 &   +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2001 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
2002 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(48*gm(1,1)*gm(1,3)*gm(2,3)&
2003 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
2004 &   +dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2005 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2006 &   *dgm10(2,3))+8*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
2007 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2008 &   *dgm10(2,3))+4*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2009 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2010 &   *dgm10(2,3))+2*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)&
2011 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+(48*gm(1,2)*gm(1,3)*gm(2,2)&
2012 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
2013 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
2014 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
2015 &   +dgm01(1,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
2016 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(12*gm(1,2)&
2017 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2018 &   *dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)&
2019 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/4.d0
2020    cm(10,8)=(288*gm(2,3)*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+288*gm(1,3)&
2021 &   *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,3)&
2022 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2023 &   *dgm01(1,3)*dgm10(1,3)+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
2024 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(3,3)&
2025 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
2026 &   +dgm01(1,1)*dgm10(1,3))+48*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2027 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+8*gm(3,3)&
2028 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2029 &   *dgm10(2,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
2030 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2031 &   +24*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(90*gm(1,3)**2*gm(2,3)&
2032 &   -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
2033 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2034 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2035 &   +dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
2036 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(48*gm(1,1)&
2037 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
2038 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)&
2039 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
2040 &   +dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)&
2041 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
2042    cm(11,8)=(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
2043 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)&
2044 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2045 &   +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
2046 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(48*gm(1,3)*gm(2,2)*gm(2,3)&
2047 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)&
2048 &   +dgm01(1,1)*dgm10(2,2))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2049 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2050 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)&
2051 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2052 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(-36*gm(1,2)&
2053 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2054 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(6*gm(1,2)**2*gm(1,3)&
2055 &   -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
2056 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
2057 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)&
2058 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2059 &   *dgm10(3,3)))/12.d0
2060    cm(12,8)=(8*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
2061 &   *dgm01(1,2)*dgm10(1,2)+2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
2062 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,3)&
2063 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2064 &   *dgm10(1,3)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
2065 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,2)*gm(2,3)*gm(3,3)&
2066 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
2067 &   +dgm01(1,2)*dgm10(1,3))+8*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2068 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2069 &   *dgm10(1,3))+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
2070 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(3,3)*(12*gm(1,3)&
2071 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2072 &   +4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
2073 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
2074 &   +16*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
2075 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)&
2076 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
2077 &   +dgm01(1,1)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
2078 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2079 &   *dgm10(2,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
2080 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2081 &   *dgm10(2,3))+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2082 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2083 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*(9*gm(1,3)&
2084 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
2085 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2086 &   *dgm10(2,3))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
2087 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*(6*gm(1,2)**3+30*gm(1,1)&
2088 &   *gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)&
2089 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
2090 &   +dgm01(1,1)*dgm10(3,3))+2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
2091 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2092 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*(-12*gm(1,3)&
2093 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2094 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
2095 &   +dgm01(1,2)*dgm10(3,3))+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2096 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
2097 &   +dgm01(1,3)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2098 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
2099 &   +dgm01(1,3)*dgm10(3,3))+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2100 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
2101 &   +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
2102 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
2103 &   +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2104 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2105 &   /4.d0
2106    cm(13,8)=(12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2107 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+3*(6*gm(2,3)**3+30*gm(2,2)&
2108 &   *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2109 &   +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)&
2110 &   *dgm10(1,3)+gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
2111 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
2112 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
2113 &   +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2114 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2115 &   *dgm10(1,3))+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2116 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2117 &   +6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
2118 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2119 &   +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
2120 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
2121 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2122 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
2123 &   +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2124 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-12*gm(1,3)&
2125 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2126 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
2127 &   +dgm01(1,2)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2128 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2129 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+2*(-36*gm(1,2)&
2130 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2131 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(6*gm(1,2)&
2132 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2133 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(6*gm(1,1)*gm(1,3)&
2134 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
2135 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)*gm(1,3)*gm(2,2)&
2136 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
2137 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
2138 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,2)&
2139 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
2140 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)&
2141 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2142 &   /6.d0
2143    cm(14,8)=(576*gm(1,3)*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+144*gm(2,3)&
2144 &   *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)&
2145 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2146 &   *dgm10(1,3)+12*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)&
2147 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)&
2148 &   -18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
2149 &   +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)&
2150 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)&
2151 &   *gm(1,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+12*gm(3,3)*(12*gm(1,3)&
2152 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2153 &   *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
2154 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2155 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(6*gm(1,3)&
2156 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2157 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(6*gm(1,3)&
2158 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2159 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(6*gm(1,2)&
2160 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
2161 &   *dgm01(3,3)*dgm10(3,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2162 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
2163 &   *dgm10(3,3))+4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
2164 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2165 &   *dgm10(3,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
2166 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2167 &   *dgm10(3,3))+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2168 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2169 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(9*gm(1,3)&
2170 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
2171 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2172 &   *dgm10(3,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2173 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
2174 &   +24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
2175 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/24.d0
2176    cm(15,8)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2177 &   *dgm01(1,3)*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)&
2178 &   +dgm01(1,1)*dgm10(1,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)&
2179 &   +dgm01(1,2)*dgm10(1,3))+32*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2180 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,1)&
2181 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)&
2182 &   *dgm10(3,3)+24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
2183 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)&
2184 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
2185 &   +16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2186 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2187 &   +96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
2188 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2189 &   +48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
2190 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
2191    cm(16,8)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
2192 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
2193 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
2194 &   +dgm01(1,2)*dgm10(2,2))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
2195 &   *gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)&
2196 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2197 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)&
2198 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
2199 &   /12.d0
2200    cm(17,8)=(3*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
2201 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(3,3)*(12*gm(1,3)*gm(2,3)&
2202 &   +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2203 &   +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
2204 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(-12*gm(1,3)&
2205 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2206 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
2207 &   +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
2208 &   +dgm01(1,1)*dgm10(2,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2209 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2210 &   *dgm10(2,3))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2211 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2212 &   +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2213 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2214 &   +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
2215 &   +gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2216 &   +dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2217 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2218 &   *dgm10(3,3))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
2219 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(30*gm(1,3)&
2220 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2221 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
2222 &   +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2223 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
2224 &   +dgm01(2,3)*dgm10(3,3))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
2225 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
2226 &   +dgm01(2,3)*dgm10(3,3)))/12.d0
2227    cm(18,8)=(3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
2228 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,2)*gm(2,3)*gm(3,3)&
2229 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
2230 &   +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2231 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
2232 &   *dgm10(2,2))+8*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
2233 &   +gm(1,1)*gm(2,3)))*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)*(54*gm(2,3)&
2234 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2235 &   +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
2236 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*gm(2,2)&
2237 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)&
2238 &   +dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2239 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2240 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)&
2241 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2242 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*gm(2,2)*(54*gm(1,2)&
2243 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2244 &   /12.d0
2245    cm(19,8)=(144*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
2246 &   *dgm10(2,2))+288*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2247 &   *dgm10(2,2))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2248 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(6*gm(1,3)&
2249 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2250 &   *dgm01(2,3)*dgm10(2,3)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
2251 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(3,3)*(12*gm(1,3)&
2252 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2253 &   *dgm10(2,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2254 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2255 &   +8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
2256 &   +dgm01(2,2)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2257 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)&
2258 &   +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2259 &   +dgm01(1,1)*dgm10(3,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2260 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2261 &   *dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2262 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2263 &   +4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2264 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
2265 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2266 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2267 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)&
2268 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2269 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2270 &   /48.d0
2271    cm(20,8)=(64*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
2272 &   *dgm10(2,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2273 &   *dgm10(2,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2274 &   *dgm10(2,3))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2275 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(30*gm(1,3)&
2276 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2277 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
2278 &   +24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2279 &   +dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
2280 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+96*(6*gm(1,2)&
2281 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2282 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**2*gm(2,3)&
2283 &   -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
2284 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2285 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
2286 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
2287    cm(21,8)=(80*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
2288 &   *gm(2,3))*gm(3,3))*dgm01(3,3)*dgm10(3,3)+1440*gm(2,3)*gm(3,3)&
2289 &   **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2880*gm(1,3)&
2290 &   *gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+160*gm(3,3)&
2291 &   *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
2292 &   +dgm01(1,3)*dgm10(3,3))+80*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2293 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0
2294    cm(1,9)=(80*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
2295 &   +2*gm(1,2)*gm(2,3)))*dgm01(1,1)*dgm10(1,1)+160*gm(1,1)*(54*gm(1,2)&
2296 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2297 &   *dgm10(1,2))+80*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)&
2298 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*gm(1,3)*(dgm01(2,2)&
2299 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2880*gm(1,1)**2*gm(1,2)*(dgm01(2,3)&
2300 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/480.d0
2301    cm(2,9)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
2302 &   *dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
2303 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+24*(48*gm(1,2)&
2304 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2305 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+48*(6*gm(1,2)&
2306 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2307 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*gm(2,2)*(12*gm(1,2)&
2308 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2309 &   +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)&
2310 &   +dgm01(1,2)*dgm10(1,3))+288*gm(1,1)**2*gm(1,3)*dgm01(2,2)*dgm10(2,2)&
2311 &   +4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
2312 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2313 &   +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2314 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2315 &   +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)&
2316 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2317 &   +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2318 &   +8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
2319 &   +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
2320 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)&
2321 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
2322 &   +288*gm(1,1)**2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
2323 &   /48.d0
2324    cm(3,9)=(24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
2325 &   *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
2326 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)&
2327 &   +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
2328 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+24*(-12*gm(1,3)&
2329 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2330 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
2331 &   +dgm01(1,1)*dgm10(1,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2332 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2333 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*(6*gm(1,1)&
2334 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)&
2335 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)**3+30*gm(1,1)&
2336 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2337 &   +24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
2338 &   +dgm01(1,3)*dgm10(2,2))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2339 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2340 &   *dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))&
2341 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+4*(90*gm(1,2)&
2342 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
2343 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+16*gm(1,1)*(54*gm(1,2)&
2344 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2345 &   *dgm10(3,3))+8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
2346 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**2*gm(1,3)*(dgm01(3,3)&
2347 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+288*gm(1,1)**2*gm(1,2)*(dgm01(3,3)&
2348 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
2349    cm(4,9)=12*gm(1,2)**3*dgm01(1,3)*dgm10(1,3)+gm(1,3)**2*(12*gm(2,2)&
2350 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(2,2)&
2351 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))&
2352 &   +6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)&
2353 &   **2*(33*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2354 &   +9*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(1,1)&
2355 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)&
2356 &   **2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)&
2357 &   +60*gm(1,1)*dgm01(1,3)*dgm10(1,3))+gm(1,1)*gm(2,3)*(0*dgm01(2,3)&
2358 &   *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)&
2359 &   +0*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)&
2360 &   +96*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+24*gm(1,1)&
2361 &   *dgm01(2,3)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)&
2362 &   +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
2363 &   +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(15*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
2364 &   +dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
2365 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)))+gm(2,2)&
2366 &   *(27*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*gm(1,1)&
2367 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))+gm(1,3)*(gm(1,2)&
2368 &   **2*(21*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)&
2369 &   *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(6*gm(2,3)*dgm01(1,1)&
2370 &   *dgm10(1,1)+30*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2371 &   +gm(1,1)*(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)&
2372 &   *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)*(dgm01(1,2)&
2373 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(48*dgm01(2,3)*dgm10(1,2)&
2374 &   +6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+48*dgm01(1,2)&
2375 &   *dgm10(2,3)))+gm(1,1)*(gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)&
2376 &   *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(2,2)&
2377 &   +dgm01(2,2)*dgm10(2,3))))
2378    cm(5,9)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2379 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2380 &   *dgm01(1,1)*dgm10(1,1)+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2381 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2382 &   *dgm10(1,2))+64*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)&
2383 &   *dgm10(1,3)+16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2384 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2385 &   *dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2386 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2387 &   *dgm10(1,3))+64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
2388 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)*(12*gm(1,3)&
2389 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2390 &   +576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
2391 &   +48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)&
2392 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)**2*gm(1,2)*(dgm01(2,3)&
2393 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))/96.d0
2394    cm(6,9)=(48*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
2395 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+128*gm(1,1)&
2396 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)&
2397 &   +16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
2398 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2399 &   +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
2400 &   *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2401 &   +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)&
2402 &   +dgm01(1,1)*dgm10(1,3))+32*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
2403 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)&
2404 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
2405 &   +dgm01(1,1)*dgm10(2,2))+576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
2406 &   +dgm01(1,2)*dgm10(2,2))+48*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)&
2407 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)&
2408 &   **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))/96.d0
2409    cm(7,9)=(288*gm(2,2)**2*gm(2,3)*dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)&
2410 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2411 &   *dgm01(1,2)*dgm10(1,2)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
2412 &   *gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*gm(2,2)&
2413 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
2414 &   +dgm01(1,1)*dgm10(1,2))+288*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)&
2415 &   +dgm01(1,1)*dgm10(1,3))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
2416 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)&
2417 &   *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)&
2418 &   +12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
2419 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2420 &   +4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
2421 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2422 &   +48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
2423 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2424 &   +24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2425 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2426 &   +24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
2427 &   +dgm01(1,3)*dgm10(2,2))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
2428 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*(6*gm(1,2)&
2429 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2430 &   *dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)&
2431 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/48.d0
2432    cm(8,9)=(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
2433 &   *dgm10(1,1)+16*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
2434 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+2*(48*gm(1,2)&
2435 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
2436 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(6*gm(1,2)*gm(2,3)*gm(3,3)&
2437 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
2438 &   +dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2439 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)&
2440 &   +2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2441 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(6*gm(1,3)&
2442 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
2443 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(-12*gm(1,3)**2*gm(2,2)&
2444 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
2445 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
2446 &   +16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
2447 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
2448 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2449 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)&
2450 &   +dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
2451 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,1)*gm(1,3)&
2452 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
2453 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2454 &   +24*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*(30*gm(1,3)**2*gm(2,2)&
2455 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2456 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2457 &   +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2458 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
2459 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(48*gm(1,1)*gm(1,3)*gm(2,3)&
2460 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
2461 &   +dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2462 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2463 &   *dgm10(2,3))+8*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
2464 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2465 &   *dgm10(2,3))+4*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2466 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2467 &   *dgm10(2,3))+2*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)&
2468 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+(48*gm(1,2)*gm(1,3)*gm(2,2)&
2469 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
2470 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
2471 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
2472 &   +dgm01(1,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
2473 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(12*gm(1,2)&
2474 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2475 &   *dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)&
2476 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/4.d0
2477    cm(9,9)=gm(2,2)**2*(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)&
2478 &   *dgm01(1,3)*dgm10(1,3)+24*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2479 &   *dgm10(1,3)))+12*gm(1,2)**3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2480 &   *dgm10(2,3))+gm(1,2)**2*(24*gm(1,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,3)&
2481 &   *dgm01(2,2)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)+gm(3,3)&
2482 &   *(15*dgm01(2,2)*dgm10(1,1)+72*dgm01(1,2)*dgm10(1,2)+15*dgm01(1,1)&
2483 &   *dgm10(2,2))+24*gm(1,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,1)*dgm01(2,3)&
2484 &   *dgm10(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)&
2485 &   +24*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(12*gm(2,3)&
2486 &   **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,3)&
2487 &   **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(1,1)&
2488 &   *gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*gm(1,1)&
2489 &   *gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)&
2490 &   *(gm(1,3)*(18*dgm01(2,2)*dgm10(1,1)-48*dgm01(1,2)*dgm10(1,2)&
2491 &   +18*dgm01(1,1)*dgm10(2,2))+gm(1,1)*(24*dgm01(2,3)*dgm10(1,2)&
2492 &   +48*dgm01(2,2)*dgm10(1,3)+48*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)&
2493 &   *dgm10(2,3))))+gm(2,2)*(6*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)-6*gm(1,3)&
2494 &   **2*dgm01(2,2)*dgm10(1,1)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
2495 &   +72*gm(1,3)**2*dgm01(1,2)*dgm10(1,2)+120*gm(1,1)*gm(3,3)*dgm01(1,2)&
2496 &   *dgm10(1,2)+96*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)&
2497 &   **2*dgm01(1,3)*dgm10(1,3)-18*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
2498 &   -6*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,1)&
2499 &   *dgm10(2,2)-18*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+96*gm(1,1)&
2500 &   *gm(1,3)*dgm01(1,2)*dgm10(2,3)+48*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)&
2501 &   +gm(2,3)*(12*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2502 &   +12*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)&
2503 &   *(-18*dgm01(2,3)*dgm10(1,1)+96*dgm01(1,3)*dgm10(1,2)+96*dgm01(1,2)&
2504 &   *dgm10(1,3)-18*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(48*gm(3,3)*(dgm01(1,2)&
2505 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)*(48*dgm01(2,3)*dgm10(1,1)&
2506 &   +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+48*dgm01(1,1)&
2507 &   *dgm10(2,3))+60*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))&
2508 &   +gm(1,1)*((6*gm(1,3)**2+12*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)&
2509 &   +gm(2,3)**2*(-6*dgm01(2,2)*dgm10(1,1)+72*dgm01(1,2)*dgm10(1,2)&
2510 &   -6*dgm01(1,1)*dgm10(2,2))+gm(2,3)*(12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
2511 &   +dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2512 &   *dgm10(2,3))))
2513    cm(10,9)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
2514 &   *dgm10(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2515 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)&
2516 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2517 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
2518 &   +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
2519 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)&
2520 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2521 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,3)&
2522 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2523 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(54*gm(1,3)&
2524 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2525 &   +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
2526 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
2527 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2528 &   *dgm10(2,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2529 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2530 &   +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2531 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2532 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)&
2533 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
2534 &   +dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
2535 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2536 &   *dgm10(3,3))+3*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
2537 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2538 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2539 &   /12.d0
2540    cm(11,9)=(128*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
2541 &   *dgm01(1,2)*dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
2542 &   +dgm01(1,1)*dgm10(1,2))+1152*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)&
2543 &   +dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
2544 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+24*gm(2,2)&
2545 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
2546 &   +dgm01(1,1)*dgm10(2,2))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
2547 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
2548 &   +dgm01(1,2)*dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2549 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
2550 &   +dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
2551 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+32*gm(2,2)&
2552 &   *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2553 &   *dgm10(2,3))+48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
2554 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0
2555    cm(12,9)=(16*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
2556 &   *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)&
2557 &   *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+8*gm(2,2)&
2558 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)&
2559 &   +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
2560 &   +dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2561 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2562 &   *dgm10(1,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2563 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
2564 &   +2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)&
2565 &   +(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
2566 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)&
2567 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2568 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,3)**2*gm(2,3)&
2569 &   +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
2570 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+2*(-12*gm(1,3)**2*gm(2,2)&
2571 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2572 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
2573 &   +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2574 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
2575 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
2576 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
2577 &   +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
2578 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(30*gm(1,3)&
2579 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2580 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
2581 &   +dgm01(1,2)*dgm10(2,3))+16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
2582 &   *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
2583 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(48*gm(1,2)&
2584 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2585 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+8*(6*gm(1,2)*gm(1,3)&
2586 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
2587 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*(48*gm(1,1)*gm(1,3)*gm(2,3)&
2588 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
2589 &   +dgm01(2,2)*dgm10(2,3))+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2590 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2591 &   *dgm10(2,3))+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
2592 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)&
2593 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
2594 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
2595 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(6*gm(1,2)&
2596 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
2597 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)&
2598 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2599 &   /4.d0
2600    cm(13,9)=gm(1,1)*gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+12*gm(2,3)&
2601 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+12*gm(1,2)**3*dgm01(2,3)&
2602 &   *dgm10(2,3)+gm(2,2)**2*(12*gm(1,3)*dgm01(2,3)*dgm10(1,1)+12*gm(1,3)&
2603 &   *dgm01(1,3)*dgm10(1,2)+12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2604 &   *dgm10(1,2))+12*gm(1,3)*dgm01(1,2)*dgm10(1,3)+24*gm(1,2)*dgm01(1,3)&
2605 &   *dgm10(1,3)+18*gm(1,1)*dgm01(2,3)*dgm10(1,3)+6*gm(2,3)*(dgm01(1,3)&
2606 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,3)*dgm01(1,1)*dgm10(2,3)&
2607 &   +18*gm(1,1)*dgm01(1,3)*dgm10(2,3))+gm(1,2)**2*(33*gm(3,3)*(dgm01(2,2)&
2608 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,3)*(18*dgm01(2,3)*dgm10(1,2)&
2609 &   +21*dgm01(2,2)*dgm10(1,3)+21*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)&
2610 &   *dgm10(2,3))+9*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
2611 &   +gm(2,2)*(12*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)+27*gm(1,1)*gm(3,3)&
2612 &   *dgm01(2,2)*dgm10(1,2)+6*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2613 &   *dgm10(1,2))+12*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)+27*gm(1,1)*gm(3,3)&
2614 &   *dgm01(1,2)*dgm10(2,2)+15*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
2615 &   +15*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)+30*gm(1,2)**2*(dgm01(2,3)&
2616 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,3)*(gm(1,3)*(3*dgm01(2,2)&
2617 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))&
2618 &   +gm(1,2)*(6*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)&
2619 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(30*dgm01(2,3)*dgm10(1,2)&
2620 &   +21*dgm01(2,2)*dgm10(1,3)+21*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)&
2621 &   *dgm10(2,3)))+gm(1,2)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+96*dgm01(1,2)&
2622 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
2623 &   +gm(1,3)*(60*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)*dgm10(1,3)+0*dgm01(1,3)&
2624 &   *dgm10(2,2)+60*dgm01(1,2)*dgm10(2,3))))+gm(1,2)*((6*gm(1,3)**2+24*gm(1,1)&
2625 &   *gm(3,3))*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(3*dgm01(2,2)*dgm10(1,1)&
2626 &   +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(2,3)*(6*gm(1,3)&
2627 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+30*gm(1,1)*(dgm01(2,3)&
2628 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))))
2629    cm(14,9)=(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2630 &   *dgm01(1,2)*dgm10(1,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
2631 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,3)&
2632 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2633 &   *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
2634 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
2635 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
2636 &   +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2637 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2638 &   *dgm10(1,3))+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
2639 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2640 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
2641 &   +dgm01(1,3)*dgm10(2,2))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2642 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+3*(48*gm(1,2)&
2643 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
2644 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)&
2645 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)&
2646 &   +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
2647 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2648 &   *dgm10(2,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2649 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2650 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)&
2651 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2652 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
2653 &   +dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
2654 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,3)*gm(2,2)&
2655 &   *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2656 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)&
2657 &   *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
2658 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)&
2659 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2660 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,1)*gm(1,3)&
2661 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
2662 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
2663 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
2664 &   +dgm01(2,3)*dgm10(3,3)))/6.d0
2665    cm(15,9)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2666 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)&
2667 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2668 &   +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)&
2669 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2670 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,3)&
2671 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2672 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(48*gm(1,2)&
2673 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2674 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
2675 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)&
2676 &   +dgm01(1,2)*dgm10(3,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2677 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2678 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)&
2679 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2680 &   *dgm10(3,3))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2681 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2682 &   /12.d0
2683    cm(16,9)=(80*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
2684 &   +gm(1,1)*gm(2,3)))*dgm01(2,2)*dgm10(2,2)+1440*gm(2,2)**2*gm(2,3)&
2685 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*gm(2,2)*(-18*gm(1,3)&
2686 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2687 &   *dgm10(2,2))+2880*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
2688 &   *dgm10(2,2))+80*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
2689 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/480.d0
2690    cm(17,9)=(24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
2691 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+12*(6*gm(2,3)&
2692 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
2693 &   *dgm10(2,2))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2694 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2695 &   +24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2696 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(48*gm(1,2)&
2697 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2698 &   *dgm01(2,3)*dgm10(2,3)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
2699 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)&
2700 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
2701 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)&
2702 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2703 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2704 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
2705 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*(-12*gm(1,3)**2*gm(2,2)&
2706 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2707 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2708 &   +144*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
2709 &   +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)&
2710 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+288*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
2711 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
2712 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
2713 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
2714 &   *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
2715    cm(18,9)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2716 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2717 &   *dgm01(2,2)*dgm10(2,2)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
2718 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+96*(6*gm(1,3)&
2719 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
2720 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)&
2721 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
2722 &   +64*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)&
2723 &   +576*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2724 &   +64*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)&
2725 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+1152*gm(1,2)*gm(2,2)**2*(dgm01(2,3)&
2726 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,2)*gm(1,3)*gm(2,2)&
2727 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
2728 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
2729 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
2730 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0
2731    cm(19,9)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
2732 &   *dgm10(2,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
2733 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)&
2734 &   -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2735 &   +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2736 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(30*gm(1,3)&
2737 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2738 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
2739 &   +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
2740 &   +dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2741 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
2742 &   *dgm10(2,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2743 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2744 &   +2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2745 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2746 &   +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2747 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2748 &   +3*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2749 &   +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2750 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2751 &   *dgm10(3,3))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
2752 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-12*gm(1,3)&
2753 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2754 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
2755 &   +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2756 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
2757 &   +dgm01(2,3)*dgm10(3,3)))/12.d0
2758    cm(20,9)=(8*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
2759 &   *gm(2,3))*gm(3,3))*dgm01(2,3)*dgm10(2,3)+2*gm(3,3)*(54*gm(2,3)&
2760 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2761 &   +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)&
2762 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
2763 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
2764 &   +dgm01(1,3)*dgm10(2,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2765 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(2,3)**3+30*gm(2,2)&
2766 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
2767 &   +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
2768 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(48*gm(1,3)&
2769 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2770 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2771 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)&
2772 &   +dgm01(2,2)*dgm10(3,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
2773 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2774 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/12.d0
2775    cm(21,9)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
2776 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)&
2777 &   -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
2778 &   +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2779 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)&
2780 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2781 &   *dgm10(3,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
2782 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2783 &   *dgm10(3,3)))/12.d0
2784    cm(1,10)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)&
2785 &   *dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)&
2786 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4320*gm(1,1)**2*gm(1,3)*(dgm01(3,3)&
2787 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/1440.d0
2788    cm(2,10)=(24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2789 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+24*(90*gm(1,3)&
2790 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2791 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(-12*gm(1,3)&
2792 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2793 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
2794 &   +dgm01(1,1)*dgm10(1,3))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2795 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2796 &   *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
2797 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
2798 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+36*(6*gm(1,2)&
2799 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
2800 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(1,1)*(12*gm(1,2)&
2801 &   *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2802 &   *dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2803 &   *dgm10(3,3)))/144.d0
2804    cm(3,10)=gm(1,3)**3*(4*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2805 &   +4*dgm01(1,1)*dgm10(3,3))+gm(1,3)*(6*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)&
2806 &   +6*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+gm(1,1)*gm(3,3)*(6*dgm01(3,3)&
2807 &   *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))&
2808 &   +15*gm(1,3)**2*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2809 &   +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+9*gm(1,1)&
2810 &   *gm(3,3)*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2811 &   +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
2812    cm(4,10)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2813 &   *dgm01(1,1)*dgm10(1,1)+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2814 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+144*(48*gm(1,1)&
2815 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)&
2816 &   *dgm10(1,3)+12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
2817 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2818 &   *dgm10(1,3))+72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
2819 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2820 &   *dgm10(1,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
2821 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
2822 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
2823 &   +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
2824 &   +dgm01(1,3)*dgm10(2,3))+36*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2825 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
2826 &   *dgm10(3,3))+36*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
2827 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2828 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2829 &   +432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2830 &   /72.d0
2831    cm(5,10)=(2304*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2832 &   *dgm10(1,3))+gm(1,3)**2*(2592*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
2833 &   *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)&
2834 &   *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(3,3)*dgm01(1,1)*dgm10(1,1)&
2835 &   +gm(1,1)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)&
2836 &   +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(1,3)*(3456*gm(3,3)*(dgm01(1,3)&
2837 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1728*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
2838 &   +dgm01(1,3)*dgm10(3,3))))/288.d0
2839    cm(6,10)=(48*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
2840 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+16*(90*gm(1,3)&
2841 &   **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2842 &   *dgm10(1,2))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2843 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2844 &   +96*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
2845 &   +dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)&
2846 &   *gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+1728*gm(1,1)&
2847 &   **2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0
2848    cm(7,10)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
2849 &   *dgm10(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2850 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2851 &   +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
2852 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(-12*gm(1,3)&
2853 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2854 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
2855 &   +dgm01(1,2)*dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
2856 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
2857 &   *dgm10(2,2))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2858 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
2859 &   +3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
2860 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
2861 &   +18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2862 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
2863 &   +9*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)&
2864 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
2865    cm(8,10)=(288*gm(2,3)*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+288*gm(1,3)&
2866 &   *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,3)&
2867 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2868 &   *dgm01(1,3)*dgm10(1,3)+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
2869 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(3,3)&
2870 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
2871 &   +dgm01(1,1)*dgm10(1,3))+48*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2872 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+8*gm(3,3)&
2873 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2874 &   *dgm10(2,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
2875 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2876 &   +24*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(90*gm(1,3)**2*gm(2,3)&
2877 &   -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
2878 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2879 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
2880 &   +dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
2881 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(48*gm(1,1)&
2882 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
2883 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)&
2884 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
2885 &   +dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)&
2886 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
2887    cm(9,10)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
2888 &   *dgm10(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2889 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)&
2890 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2891 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
2892 &   +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
2893 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)&
2894 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2895 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,3)&
2896 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2897 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(54*gm(1,3)&
2898 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
2899 &   +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
2900 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
2901 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
2902 &   *dgm10(2,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2903 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
2904 &   +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2905 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
2906 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)&
2907 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
2908 &   +dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
2909 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2910 &   *dgm10(3,3))+3*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
2911 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)&
2912 &   +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2913 &   /12.d0
2914    cm(10,10)=2*gm(3,3)**3*dgm01(1,1)*dgm10(1,1)+gm(3,3)**2*(12*gm(1,3)&
2915 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-3*dgm01(3,3)&
2916 &   *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)))&
2917 &   +6*gm(1,3)**2*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)&
2918 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(12*gm(1,1)**2*dgm01(3,3)&
2919 &   *dgm10(3,3)+gm(1,3)**2*(9*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)&
2920 &   *dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))+30*gm(1,1)*gm(1,3)*(dgm01(3,3)&
2921 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
2922    cm(11,10)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,2)&
2923 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
2924 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
2925 &   +dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2926 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
2927 &   *dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2928 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2929 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)&
2930 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2931 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)&
2932 &   -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)&
2933 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
2934    cm(12,10)=(288*gm(2,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2935 &   *dgm10(1,2))+96*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2936 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+8*gm(3,3)*(54*gm(2,3)&
2937 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2938 &   +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)&
2939 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*gm(1,3)*gm(3,3)**2*(dgm01(2,2)&
2940 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2941 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(3,3)&
2942 &   *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
2943 &   +dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
2944 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
2945 &   *dgm10(2,3))+24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2946 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(-36*gm(1,2)&
2947 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2948 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)&
2949 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
2950 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(-12*gm(1,3)&
2951 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2952 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
2953 &   +dgm01(1,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2954 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2955 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,3)&
2956 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
2957 &   *dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2958 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
2959 &   /48.d0
2960    cm(13,10)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)&
2961 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
2962 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
2963 &   +(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
2964 &   +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2965 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2966 &   *dgm10(1,3))+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2967 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)&
2968 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2969 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)&
2970 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2971 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)&
2972 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2973 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
2974 &   +dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2975 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2976 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,2)&
2977 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2978 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,1)*gm(1,3)&
2979 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
2980 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2981 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
2982 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
2983    cm(14,10)=(144*gm(3,3)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2984 &   *dgm10(1,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
2985 &   *dgm01(1,3)*dgm10(1,3)+432*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)&
2986 &   +dgm01(1,1)*dgm10(1,3))+864*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)&
2987 &   +dgm01(1,2)*dgm10(1,3))+432*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)&
2988 &   +dgm01(1,1)*dgm10(2,3))+72*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2989 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,1)&
2990 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)&
2991 &   *dgm10(3,3)+12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2992 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)&
2993 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
2994 &   +36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2995 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2996 &   +72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
2997 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2998 &   +36*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
2999 &   +dgm01(2,3)*dgm10(3,3)))/72.d0
3000    cm(15,10)=2*gm(3,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
3001 &   +3*gm(1,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(1,3)*(3*dgm01(3,3)&
3002 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))&
3003 &   +9*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+15*gm(1,3)&
3004 &   *gm(3,3)*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
3005 &   +dgm01(1,3)*dgm10(3,3)))
3006    cm(16,10)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
3007 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3008 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3009 &   +dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
3010 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)&
3011 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
3012    cm(17,10)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3013 &   *dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3014 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*gm(3,3)*(54*gm(2,3)&
3015 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
3016 &   +144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3017 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(90*gm(1,2)&
3018 &   **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3)&
3019 &   *dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
3020 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3021 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
3022 &   +dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
3023 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3024 &   *dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3025 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3026 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/144.d0
3027    cm(18,10)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
3028 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)&
3029 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3030 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
3031 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,3)&
3032 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3033 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)&
3034 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3035 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
3036 &   +dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
3037 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
3038 &   +dgm01(2,3)*dgm10(3,3)))/36.d0
3039    cm(19,10)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3040 &   *dgm10(2,2))+864*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3041 &   *dgm10(2,2))+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3042 &   *dgm10(2,3))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3043 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(-12*gm(1,3)&
3044 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3045 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
3046 &   +12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
3047 &   +dgm01(1,1)*dgm10(3,3))+72*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3048 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3049 &   *dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
3050 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
3051 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
3052 &   +dgm01(2,3)*dgm10(3,3)))/144.d0
3053    cm(20,10)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3054 &   *dgm10(2,3))+3456*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3055 &   *dgm10(2,3))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
3056 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+864*gm(2,3)&
3057 &   *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*gm(3,3)&
3058 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
3059 &   +dgm01(1,3)*dgm10(3,3))+48*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
3060 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
3061    cm(21,10)=gm(3,3)*(9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
3062 &   **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+gm(3,3)*(-3*gm(1,1)&
3063 &   *dgm01(3,3)*dgm10(3,3)+6*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3064 &   *dgm10(3,3))))
3065    cm(1,11)=(160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,2)&
3066 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
3067 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/2880.d0
3068    cm(2,11)=(2304*gm(1,2)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3069 &   *dgm10(2,2))+gm(1,2)**2*(2592*gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
3070 &   *(864*dgm01(2,2)*dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)&
3071 &   *dgm10(2,2)))+gm(1,1)*gm(2,2)*(-864*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
3072 &   +gm(2,2)*(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)&
3073 &   +1728*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*gm(2,2)*(1728*gm(2,2)*(dgm01(1,2)&
3074 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3456*gm(1,1)*(dgm01(2,2)*dgm10(1,2)&
3075 &   +dgm01(1,2)*dgm10(2,2))))/288.d0
3076    cm(3,11)=(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3077 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3078 &   +12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3079 &   *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
3080 &   +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3081 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
3082 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3083 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
3084 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
3085 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)&
3086 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
3087 &   /36.d0
3088    cm(4,11)=(12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
3089 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+6*gm(2,2)&
3090 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
3091 &   +dgm01(1,1)*dgm10(1,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
3092 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)*gm(1,3)&
3093 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)&
3094 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3095 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3096 &   +dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
3097 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)&
3098 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3099 &   *dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
3100 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/18.d0
3101    cm(5,11)=(6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
3102 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
3103 &   *dgm10(1,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)&
3104 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3105 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
3106 &   +dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
3107 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/36.d0
3108    cm(6,11)=(32*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)&
3109 &   *dgm10(1,2)+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)&
3110 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+36*(6*gm(1,2)**3+30*gm(1,1)&
3111 &   *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3112 &   +24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)&
3113 &   +dgm01(1,2)*dgm10(2,2)))/144.d0
3114    cm(7,11)=2*gm(2,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3115 &   +3*gm(1,2)**3*dgm01(2,2)*dgm10(2,2)+gm(2,2)**2*(gm(1,2)*(3*dgm01(2,2)&
3116 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))&
3117 &   +9*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+15*gm(1,2)&
3118 &   *gm(2,2)*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
3119 &   +dgm01(1,2)*dgm10(2,2)))
3120    cm(8,11)=(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3121 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)&
3122 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3123 &   +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
3124 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(48*gm(1,3)*gm(2,2)*gm(2,3)&
3125 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)&
3126 &   +dgm01(1,1)*dgm10(2,2))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3127 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3128 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)&
3129 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3130 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(-36*gm(1,2)&
3131 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3132 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(6*gm(1,2)**2*gm(1,3)&
3133 &   -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
3134 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3135 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)&
3136 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3137 &   *dgm10(3,3)))/12.d0
3138    cm(9,11)=(128*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
3139 &   *dgm01(1,2)*dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
3140 &   +dgm01(1,1)*dgm10(1,2))+1152*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)&
3141 &   +dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
3142 &   *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+24*gm(2,2)&
3143 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
3144 &   +dgm01(1,1)*dgm10(2,2))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
3145 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3146 &   +dgm01(1,2)*dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3147 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3148 &   +dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3149 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+32*gm(2,2)&
3150 &   *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3151 &   *dgm10(2,3))+48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
3152 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0
3153    cm(10,11)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,2)&
3154 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3155 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
3156 &   +dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3157 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3158 &   *dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3159 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3160 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)&
3161 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3162 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)&
3163 &   -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)&
3164 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
3165    cm(11,11)=(gm(2,2)*(4608*gm(2,2)**2*dgm01(1,2)*dgm10(1,2)+288*(12*gm(1,2)&
3166 &   **2+24*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,2)+6912*gm(1,2)*gm(2,2)&
3167 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))))/576.d0
3168    cm(12,11)=(64*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3169 &   *dgm10(1,2)+1152*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3170 &   *dgm10(1,3))+48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3171 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3172 &   *dgm01(2,2)*dgm10(2,2)+48*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3173 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3174 &   *dgm10(2,2))+16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3175 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3176 &   +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)&
3177 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+64*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
3178 &   +54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3179 &   +96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3180 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3181 &   +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
3182 &   +24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
3183 &   +dgm01(2,2)*dgm10(3,3)))/96.d0
3184    cm(13,11)=(3456*gm(2,2)**2*gm(2,3)*dgm01(1,2)*dgm10(1,2)+576*gm(2,2)&
3185 &   **3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*(6*gm(1,2)&
3186 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3187 &   *dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3188 &   *gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)&
3189 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3190 &   +dgm01(1,2)*dgm10(2,2))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)&
3191 &   +dgm01(1,3)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
3192 &   +dgm01(1,2)*dgm10(2,3))+72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3193 &   *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/144.d0
3194    cm(14,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3195 &   *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
3196 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3197 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
3198 &   +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3199 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3200 &   *dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3201 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3202 &   +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3203 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3204 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
3205 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
3206 &   +9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3207 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
3208 &   /18.d0
3209    cm(15,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
3210 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3211 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3212 &   +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3213 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
3214 &   *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3215 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3216 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
3217    cm(16,11)=gm(2,2)**2*(6*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
3218 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
3219    cm(17,11)=(144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3220 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*gm(2,2)*(54*gm(2,3)&
3221 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3222 &   +3456*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3223 &   +144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)&
3224 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+576*gm(2,2)**3*(dgm01(3,3)&
3225 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
3226 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0
3227    cm(18,11)=(gm(2,2)*(288*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3228 &   *dgm01(2,2)*dgm10(2,2)+3456*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
3229 &   +dgm01(1,2)*dgm10(2,2))+2304*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
3230 &   +dgm01(1,2)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)&
3231 &   +dgm01(2,2)*dgm10(2,3))))/576.d0
3232    cm(19,11)=(48*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
3233 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+16*(90*gm(2,3)&
3234 &   **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3235 &   *dgm10(2,2))+96*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
3236 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)&
3237 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
3238 &   +dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,2)&
3239 &   +dgm01(1,2)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3240 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0
3241    cm(20,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
3242 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3243 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
3244 &   +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
3245 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,3)&
3246 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
3247 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
3248    cm(21,11)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
3249 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+240*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3250 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
3251 &   +dgm01(2,2)*dgm10(3,3)))/2880.d0
3252    cm(1,12)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3253 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3254 &   +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
3255 &   *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
3256 &   +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)&
3257 &   +dgm01(1,1)*dgm10(2,2))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
3258 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+gm(1,1)&
3259 &   *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3260 &   *dgm10(3,3)))/12.d0
3261    cm(2,12)=(24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3262 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3263 &   *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3264 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
3265 &   *dgm10(1,2))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3266 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(48*gm(1,2)&
3267 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3268 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(1,1)*(54*gm(1,3)&
3269 &   **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+3*(-12*gm(1,3)&
3270 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3271 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)&
3272 &   +dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3273 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3274 &   *dgm10(2,2))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3275 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3276 &   +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
3277 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
3278 &   +12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3279 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
3280 &   +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
3281 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3282 &   +4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)&
3283 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3284 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(6*gm(1,2)&
3285 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
3286 &   *dgm10(3,3))+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)&
3287 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0
3288    cm(3,12)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3289 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)&
3290 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3291 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
3292 &   +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3293 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(6*gm(1,3)&
3294 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3295 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*gm(3,3)*(12*gm(1,3)&
3296 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3297 &   +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
3298 &   +dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3299 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3300 &   *dgm10(2,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3301 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
3302 &   +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
3303 &   +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3304 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
3305 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
3306 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
3307 &   +dgm01(1,2)*dgm10(3,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
3308 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3309 &   *dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3310 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3311 &   *dgm10(3,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
3312 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)&
3313 &   -18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3314 &   /12.d0
3315    cm(4,12)=(12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
3316 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+6*(6*gm(1,2)&
3317 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)&
3318 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,2)*gm(1,3)*gm(2,2)&
3319 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)&
3320 &   *dgm10(1,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3321 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(30*gm(1,3)&
3322 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3323 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
3324 &   +dgm01(1,2)*dgm10(1,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3325 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3326 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)&
3327 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
3328 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(6*gm(1,3)**3+30*gm(1,1)&
3329 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3330 &   +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
3331 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)&
3332 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
3333 &   +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
3334 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3335 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
3336 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
3337 &   +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3338 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3339 &   *dgm10(2,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3340 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3341 &   *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
3342 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3343 &   *dgm10(2,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
3344 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,2)*gm(1,3)*gm(2,2)&
3345 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
3346 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3347 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
3348 &   +dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
3349 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(54*gm(1,2)&
3350 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3351 &   /6.d0
3352    cm(5,12)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
3353 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
3354 &   *dgm10(1,2))+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
3355 &   +2*gm(1,2)*gm(2,3)))*dgm01(1,3)*dgm10(1,3)+6*(-12*gm(1,3)**2*gm(2,2)&
3356 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3357 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
3358 &   +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
3359 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)&
3360 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3361 &   *dgm10(2,2))+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
3362 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)&
3363 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
3364 &   +dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
3365 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,2)&
3366 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3367 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*gm(1,1)*(54*gm(1,2)&
3368 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))&
3369 &   /12.d0
3370    cm(6,12)=(8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3371 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+6*(30*gm(1,3)&
3372 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3373 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)&
3374 &   +dgm01(1,1)*dgm10(1,2))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3375 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)&
3376 &   +dgm01(1,1)*dgm10(1,3))+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
3377 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3378 &   *dgm10(1,3))+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3379 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3380 &   +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)&
3381 &   +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
3382 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3383 &   *dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
3384 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*(6*gm(1,2)**3+30*gm(1,1)&
3385 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
3386 &   +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
3387 &   +dgm01(1,2)*dgm10(3,3)))/12.d0
3388    cm(7,12)=(96*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3389 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+8*gm(2,2)*(54*gm(2,3)&
3390 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3391 &   +288*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
3392 &   +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,3)&
3393 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)&
3394 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)&
3395 &   +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3396 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*(30*gm(1,3)&
3397 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3398 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
3399 &   +dgm01(1,2)*dgm10(2,2))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3400 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3401 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(48*gm(1,2)&
3402 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3403 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(2,2)*(-18*gm(1,3)&
3404 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3405 &   *dgm10(2,3))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3406 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3407 &   *dgm10(2,3))+48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
3408 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3409 &   *dgm10(2,3))+144*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3410 &   *dgm10(3,3))+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)&
3411 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*(6*gm(1,2)**3+30*gm(1,1)&
3412 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
3413 &   /48.d0
3414    cm(8,12)=(8*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3415 &   *dgm01(1,2)*dgm10(1,2)+2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
3416 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,3)&
3417 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3418 &   *dgm10(1,3)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
3419 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,2)*gm(2,3)*gm(3,3)&
3420 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
3421 &   +dgm01(1,2)*dgm10(1,3))+8*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3422 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3423 &   *dgm10(1,3))+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3424 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(3,3)*(12*gm(1,3)&
3425 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3426 &   +4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
3427 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
3428 &   +16*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
3429 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)&
3430 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
3431 &   +dgm01(1,1)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
3432 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3433 &   *dgm10(2,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
3434 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3435 &   *dgm10(2,3))+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3436 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3437 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*(9*gm(1,3)&
3438 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3439 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3440 &   *dgm10(2,3))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
3441 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*(6*gm(1,2)**3+30*gm(1,1)&
3442 &   *gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)&
3443 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
3444 &   +dgm01(1,1)*dgm10(3,3))+2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
3445 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3446 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*(-12*gm(1,3)&
3447 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3448 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
3449 &   +dgm01(1,2)*dgm10(3,3))+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3450 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
3451 &   +dgm01(1,3)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3452 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
3453 &   +dgm01(1,3)*dgm10(3,3))+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3454 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
3455 &   +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
3456 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3457 &   +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
3458 &   *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3459 &   /4.d0
3460    cm(9,12)=(16*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
3461 &   *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)&
3462 &   *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+8*gm(2,2)&
3463 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)&
3464 &   +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
3465 &   +dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3466 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3467 &   *dgm10(1,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3468 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
3469 &   +2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)&
3470 &   +(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3471 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)&
3472 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3473 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,3)**2*gm(2,3)&
3474 &   +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
3475 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+2*(-12*gm(1,3)**2*gm(2,2)&
3476 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3477 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
3478 &   +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3479 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
3480 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
3481 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
3482 &   +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3483 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(30*gm(1,3)&
3484 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3485 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
3486 &   +dgm01(1,2)*dgm10(2,3))+16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
3487 &   *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
3488 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(48*gm(1,2)&
3489 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3490 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+8*(6*gm(1,2)*gm(1,3)&
3491 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
3492 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*(48*gm(1,1)*gm(1,3)*gm(2,3)&
3493 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
3494 &   +dgm01(2,2)*dgm10(2,3))+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3495 &   *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3496 &   *dgm10(2,3))+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3497 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)&
3498 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
3499 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3500 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(6*gm(1,2)&
3501 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3502 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)&
3503 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3504 &   /4.d0
3505    cm(10,12)=(288*gm(2,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
3506 &   *dgm10(1,2))+96*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3507 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+8*gm(3,3)*(54*gm(2,3)&
3508 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
3509 &   +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)&
3510 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*gm(1,3)*gm(3,3)**2*(dgm01(2,2)&
3511 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
3512 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(3,3)&
3513 &   *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
3514 &   +dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3515 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3516 &   *dgm10(2,3))+24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3517 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(-36*gm(1,2)&
3518 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3519 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)&
3520 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3521 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(-12*gm(1,3)&
3522 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3523 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
3524 &   +dgm01(1,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3525 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3526 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,3)&
3527 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3528 &   *dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3529 &   **2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3530 &   /48.d0
3531    cm(11,12)=(64*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3532 &   *dgm10(1,2)+1152*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3533 &   *dgm10(1,3))+48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3534 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3535 &   *dgm01(2,2)*dgm10(2,2)+48*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3536 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3537 &   *dgm10(2,2))+16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3538 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3539 &   +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)&
3540 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+64*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
3541 &   +54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3542 &   +96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3543 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3544 &   +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
3545 &   +24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
3546 &   +dgm01(2,2)*dgm10(3,3)))/96.d0
3547    cm(12,12)=(4*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)&
3548 &   *dgm10(1,2)+4*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)&
3549 &   *dgm10(1,3)+4*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
3550 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
3551 &   *gm(3,3))*dgm01(2,2)*dgm10(2,2)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)&
3552 &   +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3553 &   +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3554 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(9*gm(1,3)&
3555 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3556 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+8*(6*gm(1,2)&
3557 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3558 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3559 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
3560 &   +dgm01(1,3)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3561 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3562 &   *dgm10(2,3))+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3)&
3563 &   *dgm10(3,3)+2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3564 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
3565 &   +2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)&
3566 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3567 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3568 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*(6*gm(1,2)&
3569 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3570 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/2.d0
3571    cm(13,12)=(48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3572 &   *dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*dgm01(1,3)*dgm10(1,3)+8*gm(2,2)&
3573 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3574 &   *dgm10(1,3))+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)&
3575 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
3576 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)&
3577 &   +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3578 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(1,2)&
3579 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
3580 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3581 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3582 &   +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3583 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3584 &   *dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3585 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+24*(48*gm(1,3)&
3586 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3587 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3588 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
3589 &   +dgm01(1,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3590 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*gm(2,2)&
3591 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)&
3592 &   +dgm01(1,3)*dgm10(2,3))+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3593 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3594 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(9*gm(1,3)&
3595 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3596 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3597 &   *dgm10(2,3))+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3598 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,2)*gm(2,2)&
3599 &   **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,2)&
3600 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3601 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*gm(2,2)*(12*gm(1,2)&
3602 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3603 &   /24.d0
3604    cm(14,12)=(288*gm(2,3)**3*dgm01(1,3)*dgm10(1,3)+gm(2,3)**2*(216*gm(1,2)&
3605 &   *dgm01(3,3)*dgm10(1,3)+720*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3606 &   *dgm10(1,3))+792*gm(1,1)*dgm01(3,3)*dgm10(2,3)+216*gm(1,2)*dgm01(1,3)&
3607 &   *dgm10(3,3)+792*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(504*dgm01(3,3)&
3608 &   *dgm10(1,2)+432*dgm01(2,3)*dgm10(1,3)+432*dgm01(1,3)*dgm10(2,3)&
3609 &   +504*dgm01(1,2)*dgm10(3,3)))+gm(2,3)*(576*gm(3,3)**2*dgm01(1,2)&
3610 &   *dgm10(1,2)+(144*gm(1,2)**2+576*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
3611 &   +gm(1,3)**2*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)&
3612 &   +72*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(1440*gm(2,2)*dgm01(1,3)*dgm10(1,3)&
3613 &   +288*gm(1,1)*dgm01(3,3)*dgm10(2,2)+2304*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
3614 &   +gm(1,3)*(1152*dgm01(2,3)*dgm10(1,2)+144*dgm01(2,2)*dgm10(1,3)&
3615 &   +144*dgm01(1,3)*dgm10(2,2)+1152*dgm01(1,2)*dgm10(2,3))+288*gm(1,1)&
3616 &   *dgm01(2,2)*dgm10(3,3)+gm(1,2)*(0*dgm01(3,3)*dgm10(1,2)+1440*dgm01(2,3)&
3617 &   *dgm10(1,3)+1440*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)))&
3618 &   +gm(1,3)*(720*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3619 &   +144*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
3620 &   +gm(3,3)*(144*gm(1,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3621 &   +gm(1,3)*(144*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3622 &   +gm(1,2)*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)&
3623 &   +72*dgm01(2,2)*dgm10(3,3)))+288*(gm(1,2)*gm(3,3)*(dgm01(2,3)&
3624 &   *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
3625 &   *dgm10(2,3))+gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3626 &   *dgm10(2,3))+gm(1,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
3627 &   +gm(2,2)*(432*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
3628 &   +gm(3,3)*(gm(1,3)*(504*dgm01(3,3)*dgm10(1,2)+720*dgm01(2,3)*dgm10(1,3)&
3629 &   +720*dgm01(1,3)*dgm10(2,3)+504*dgm01(1,2)*dgm10(3,3))+360*gm(1,2)&
3630 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+648*gm(1,1)*(dgm01(3,3)&
3631 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(1,3)*(144*gm(1,2)*dgm01(3,3)&
3632 &   *dgm10(3,3)+288*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))&
3633 &   /24.d0
3634    cm(15,12)=(64*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
3635 &   *dgm10(1,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3636 &   *dgm10(1,3))+576*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3637 &   *dgm10(2,2))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3638 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-12*gm(1,3)&
3639 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3640 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
3641 &   +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
3642 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(48*gm(1,2)*gm(2,3)*gm(3,3)&
3643 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
3644 &   +dgm01(1,3)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3645 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3646 &   *dgm10(3,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
3647 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
3648 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
3649 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
3650    cm(16,12)=(80*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3651 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+80*gm(2,2)*(54*gm(2,3)&
3652 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3653 &   +2880*gm(2,2)**2*gm(2,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
3654 &   +160*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)&
3655 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1440*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
3656 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/480.d0
3657    cm(17,12)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3658 &   *dgm01(2,2)*dgm10(2,2)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
3659 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(2,3)&
3660 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3661 &   *dgm10(2,2))+192*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3662 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*(6*gm(2,3)&
3663 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3664 &   *dgm10(2,3))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)&
3665 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)&
3666 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
3667 &   +dgm01(2,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3668 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3669 &   *dgm10(2,3))+288*gm(1,2)*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+8*gm(2,2)&
3670 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
3671 &   *dgm10(3,3))+288*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3672 &   *dgm10(3,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3673 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
3674 &   +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3675 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*gm(2,2)&
3676 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
3677 &   +dgm01(2,3)*dgm10(3,3))+16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
3678 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
3679    cm(18,12)=(48*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3680 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*(6*gm(2,3)&
3681 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3682 &   *dgm10(2,2))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
3683 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+128*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
3684 &   +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+32*gm(2,2)*(54*gm(2,3)&
3685 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3686 &   +1152*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
3687 &   +16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3688 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+96*(6*gm(1,3)&
3689 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3690 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)&
3691 &   +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
3692 &   +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3693 &   /96.d0
3694    cm(19,12)=(288*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+288*gm(2,3)&
3695 &   *gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+8*gm(3,3)&
3696 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3697 &   *dgm10(2,2))+192*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3698 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*gm(3,3)*(12*gm(2,3)&
3699 &   **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
3700 &   +48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
3701 &   +dgm01(1,3)*dgm10(2,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
3702 &   *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(3,3)&
3703 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
3704 &   +dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3705 &   *gm(2,3))*dgm01(3,3)*dgm10(3,3)+24*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)&
3706 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*gm(2,2)&
3707 &   *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3708 &   *dgm10(3,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3709 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
3710 &   +4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
3711 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*(48*gm(1,3)&
3712 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
3713 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3714 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
3715 &   +dgm01(2,3)*dgm10(3,3)))/48.d0
3716    cm(20,12)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3717 &   *dgm01(2,3)*dgm10(2,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)&
3718 &   +dgm01(1,2)*dgm10(2,3))+32*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
3719 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+576*gm(1,3)&
3720 &   *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(48*gm(1,3)&
3721 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)&
3722 &   *dgm10(3,3)+48*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)&
3723 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(6*gm(2,3)**3+30*gm(2,2)&
3724 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3725 &   +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
3726 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3727 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
3728 &   +dgm01(2,3)*dgm10(3,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3729 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3730 &   *dgm10(3,3)))/96.d0
3731    cm(21,12)=(80*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
3732 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+2880*gm(2,3)*gm(3,3)&
3733 &   **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+80*gm(3,3)&
3734 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3735 &   *dgm10(3,3))+1440*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3736 &   *dgm10(3,3))+160*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3737 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0
3738    cm(1,13)=(3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3739 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
3740 &   *dgm10(1,2))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)&
3741 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)&
3742 &   -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3743 &   +3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)&
3744 &   +dgm01(1,1)*dgm10(2,3)))/18.d0
3745    cm(2,13)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3746 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+36*gm(2,2)&
3747 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)&
3748 &   +dgm01(1,1)*dgm10(1,2))+432*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)&
3749 &   +dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3750 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)&
3751 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)&
3752 &   +36*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3753 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3754 &   +12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
3755 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3756 &   +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
3757 &   *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3758 &   +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)&
3759 &   +dgm01(1,3)*dgm10(2,2))+36*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3760 &   *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*(6*gm(1,2)&
3761 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3762 &   *dgm10(2,3))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
3763 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
3764    cm(3,13)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3765 &   *gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,2)&
3766 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3767 &   *dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3768 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
3769 &   *dgm10(1,3))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3770 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3771 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)&
3772 &   +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
3773 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,1)*gm(1,3)*gm(2,3)&
3774 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3775 &   +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3776 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3777 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,2)&
3778 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3779 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(90*gm(1,2)&
3780 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
3781 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)&
3782 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3783 &   +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)&
3784 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
3785 &   *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
3786    cm(4,13)=(18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3787 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3788 &   *dgm01(1,2)*dgm10(1,2)+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3789 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3790 &   +6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)*dgm10(1,3)&
3791 &   +3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
3792 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)&
3793 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
3794 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
3795 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)&
3796 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)&
3797 &   *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
3798 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,1)&
3799 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
3800 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
3801 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
3802 &   +dgm01(1,3)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
3803 &   *dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3804 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)&
3805 &   +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
3806 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3807 &   *dgm10(2,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3808 &   +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3809 &   *dgm10(2,3))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
3810 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,2)**3+30*gm(1,1)&
3811 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
3812 &   +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)&
3813 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/9.d0
3814    cm(5,13)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3815 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3816 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(90*gm(1,2)&
3817 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,2)&
3818 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3819 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(90*gm(1,2)&
3820 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
3821 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,1)*gm(1,3)&
3822 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)&
3823 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)&
3824 &   -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
3825 &   +9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
3826 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
3827 &   +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)&
3828 &   +dgm01(1,3)*dgm10(2,3)))/18.d0
3829    cm(6,13)=(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
3830 &   +2*gm(1,2)*gm(2,3)))*dgm01(1,2)*dgm10(1,2)+9*(48*gm(1,2)*gm(1,3)&
3831 &   *gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)&
3832 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3833 &   *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(90*gm(1,2)&
3834 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3835 &   *dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
3836 &   +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3837 &   *dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
3838 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)&
3839 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
3840 &   +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)&
3841 &   +dgm01(1,2)*dgm10(2,3)))/18.d0
3842    cm(7,13)=(144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3843 &   *dgm01(1,2)*dgm10(1,2)+432*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
3844 &   +dgm01(1,1)*dgm10(1,2))+144*gm(2,2)**3*(dgm01(1,3)*dgm10(1,1)&
3845 &   +dgm01(1,1)*dgm10(1,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)&
3846 &   +dgm01(1,2)*dgm10(1,3))+72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
3847 &   *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)&
3848 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)&
3849 &   +dgm01(1,1)*dgm10(2,2))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3850 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3851 &   +dgm01(1,2)*dgm10(2,2))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3852 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3853 &   +dgm01(1,2)*dgm10(2,2))+12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3854 &   *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+432*gm(1,2)&
3855 &   *gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*gm(2,2)&
3856 &   *(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3857 &   *dgm10(2,3))+36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
3858 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0
3859    cm(8,13)=(12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3860 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+3*(6*gm(2,3)**3+30*gm(2,2)&
3861 &   *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
3862 &   +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)&
3863 &   *dgm10(1,3)+gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
3864 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3865 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
3866 &   +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3867 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3868 &   *dgm10(1,3))+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3869 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
3870 &   +6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
3871 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3872 &   +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
3873 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
3874 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3875 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)&
3876 &   +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
3877 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-12*gm(1,3)&
3878 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3879 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
3880 &   +dgm01(1,2)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3881 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3882 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+2*(-36*gm(1,2)&
3883 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3884 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(6*gm(1,2)&
3885 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3886 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(6*gm(1,1)*gm(1,3)&
3887 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
3888 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)*gm(1,3)*gm(2,2)&
3889 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
3890 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3891 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,2)&
3892 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
3893 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)&
3894 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3895 &   /6.d0
3896    cm(9,13)=(96*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3897 &   *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+12*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)&
3898 &   *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+576*gm(1,2)&
3899 &   *gm(2,2)**2*dgm01(1,3)*dgm10(1,3)+144*gm(2,2)**2*gm(2,3)*(dgm01(1,3)&
3900 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)&
3901 &   +12*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
3902 &   +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)&
3903 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)&
3904 &   +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)&
3905 &   +12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3906 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+12*(-12*gm(1,3)&
3907 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3908 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
3909 &   +dgm01(1,2)*dgm10(2,2))+48*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
3910 &   *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
3911 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,2)&
3912 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3913 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)&
3914 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3915 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+48*(6*gm(1,2)&
3916 &   **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3)*dgm10(2,3)+12*gm(2,2)&
3917 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)&
3918 &   +dgm01(1,1)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3919 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)&
3920 &   +dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3921 &   **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)&
3922 &   +dgm01(1,2)*dgm10(2,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
3923 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(2,2)*(12*gm(1,2)&
3924 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
3925 &   +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
3926 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3927 &   +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
3928 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
3929 &   /24.d0
3930    cm(10,13)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)&
3931 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3932 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
3933 &   +(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
3934 &   +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3935 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3936 &   *dgm10(1,3))+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3937 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)&
3938 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
3939 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)&
3940 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3941 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)&
3942 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3943 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
3944 &   +dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3945 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3946 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,2)&
3947 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3948 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,1)*gm(1,3)&
3949 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
3950 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3951 &   *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
3952 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
3953    cm(11,13)=(3456*gm(2,2)**2*gm(2,3)*dgm01(1,2)*dgm10(1,2)+576*gm(2,2)&
3954 &   **3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*(6*gm(1,2)&
3955 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3956 &   *dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3957 &   *gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)&
3958 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
3959 &   +dgm01(1,2)*dgm10(2,2))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)&
3960 &   +dgm01(1,3)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
3961 &   +dgm01(1,2)*dgm10(2,3))+72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3962 &   *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/144.d0
3963    cm(12,13)=(48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3964 &   *dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*dgm01(1,3)*dgm10(1,3)+8*gm(2,2)&
3965 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
3966 &   *dgm10(1,3))+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)&
3967 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
3968 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)&
3969 &   +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3970 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(1,2)&
3971 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
3972 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3973 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
3974 &   +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3975 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
3976 &   *dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3977 &   +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+24*(48*gm(1,3)&
3978 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
3979 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3980 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
3981 &   +dgm01(1,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
3982 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*gm(2,2)&
3983 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)&
3984 &   +dgm01(1,3)*dgm10(2,3))+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3985 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3986 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(9*gm(1,3)&
3987 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3988 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3989 &   *dgm10(2,3))+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3990 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,2)*gm(2,2)&
3991 &   **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,2)&
3992 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3993 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*gm(2,2)*(12*gm(1,2)&
3994 &   **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
3995 &   /24.d0
3996    cm(13,13)=(72*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)&
3997 &   *dgm10(1,2)+288*gm(2,2)**3*dgm01(1,3)*dgm10(1,3)+864*gm(2,2)&
3998 &   **2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*(9*gm(1,3)&
3999 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
4000 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+72*(6*gm(1,3)&
4001 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
4002 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4003 &   +54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4004 &   +72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)&
4005 &   +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4006 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,3)&
4007 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)&
4008 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
4009 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/36.d0
4010    cm(14,13)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
4011 &   *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
4012 &   *dgm10(1,3)+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4013 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(2,3)**3+30*gm(2,2)&
4014 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4015 &   +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,2)&
4016 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)&
4017 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
4018 &   +dgm01(1,3)*dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4019 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4020 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+9*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4021 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
4022 &   +dgm01(1,2)*dgm10(2,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4023 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4024 &   *dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4025 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4026 &   +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4027 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,3)&
4028 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4029 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)&
4030 &   *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4031 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4032 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4033 &   +9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
4034 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4035 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)&
4036 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
4037 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/9.d0
4038    cm(15,13)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
4039 &   *dgm10(1,3)+6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
4040 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)&
4041 &   -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4042 &   +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4043 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)&
4044 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4045 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4046 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
4047 &   +dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
4048 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4049 &   *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4050 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4051 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
4052    cm(16,13)=(gm(2,2)*(240*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4053 &   *dgm01(2,2)*dgm10(2,2)+4320*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
4054 &   +dgm01(1,2)*dgm10(2,2))+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)&
4055 &   +dgm01(1,3)*dgm10(2,2))+4320*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)&
4056 &   +dgm01(2,2)*dgm10(2,3))))/720.d0
4057    cm(17,13)=(72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4058 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(6*gm(2,3)&
4059 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4060 &   *dgm10(2,2))+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4061 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4062 &   +12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+72*gm(2,2)*(12*gm(2,3)&
4063 &   **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4064 &   +864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4065 &   +36*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4066 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)&
4067 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4068 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
4069 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(2,2)**3*(dgm01(3,3)&
4070 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4071 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
4072 &   +432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
4073 &   /72.d0
4074    cm(18,13)=(864*gm(1,2)*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+576*gm(2,2)&
4075 &   **3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,2)**2*(864*gm(1,3)&
4076 &   *dgm01(2,3)*dgm10(2,2)+1728*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4077 &   *dgm10(2,2))+864*gm(1,3)*dgm01(2,2)*dgm10(2,3)+3456*gm(1,2)*dgm01(2,3)&
4078 &   *dgm10(2,3)+gm(2,3)*(1728*dgm01(2,3)*dgm10(1,2)+864*dgm01(2,2)&
4079 &   *dgm10(1,3)+864*dgm01(1,3)*dgm10(2,2)+1728*dgm01(1,2)*dgm10(2,3)))&
4080 &   +gm(2,2)*(3456*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+864*gm(2,3)&
4081 &   **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,3)*(864*gm(1,3)&
4082 &   *dgm01(2,2)*dgm10(2,2)+3456*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4083 &   *dgm10(2,3)))))/144.d0
4084    cm(19,13)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4085 &   *dgm01(2,2)*dgm10(2,2)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4086 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(90*gm(2,3)&
4087 &   **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4088 &   *dgm10(2,2))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4089 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+72*(6*gm(2,3)&
4090 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4091 &   *dgm10(2,3))+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
4092 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4093 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
4094 &   +dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4095 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4096 &   *dgm10(2,3))+36*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)&
4097 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
4098 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)*gm(2,2)*gm(2,3)&
4099 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4100 &   +dgm01(2,2)*dgm10(3,3))+36*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
4101 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
4102    cm(20,13)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4103 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+6*gm(3,3)*(54*gm(2,3)&
4104 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4105 &   +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
4106 &   +dgm01(1,3)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
4107 &   *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(2,3)&
4108 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4109 &   *dgm10(3,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
4110 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)&
4111 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4112 &   +dgm01(2,2)*dgm10(3,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4113 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4114 &   *dgm10(3,3)))/18.d0
4115    cm(21,13)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
4116 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(2,3)**3-54*gm(2,2)&
4117 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4118 &   +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)&
4119 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4120 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
4121 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
4122    cm(1,14)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)&
4123 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
4124 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)&
4125 &   +dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
4126 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)&
4127 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
4128 &   *dgm10(3,3)))/18.d0
4129    cm(2,14)=(12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4130 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+3*(-36*gm(1,2)&
4131 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4132 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+9*(48*gm(1,3)&
4133 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)&
4134 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+18*(30*gm(1,3)**2*gm(2,2)&
4135 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4136 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4137 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)&
4138 &   +dgm01(1,2)*dgm10(2,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4139 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4140 &   *dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4141 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4142 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(48*gm(1,1)&
4143 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
4144 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4145 &   *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,2)&
4146 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4147 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)&
4148 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
4149 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)&
4150 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4151 &   *dgm10(3,3)))/18.d0
4152    cm(3,14)=(432*gm(1,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
4153 &   *dgm10(1,2))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4154 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+36*gm(3,3)&
4155 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
4156 &   +dgm01(1,1)*dgm10(1,3))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
4157 &   *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+36*gm(3,3)&
4158 &   *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
4159 &   *dgm10(2,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
4160 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)*gm(1,3)&
4161 &   -18*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(6*gm(1,3)**2*gm(2,3)&
4162 &   +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
4163 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
4164 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4165 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4166 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,1)&
4167 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
4168 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4169 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
4170    cm(4,14)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
4171 &   *dgm10(1,2)+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4172 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*(30*gm(1,3)&
4173 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4174 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
4175 &   +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4176 &   *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*(90*gm(1,3)&
4177 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4178 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)&
4179 &   +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4180 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4181 &   *gm(3,3))*dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4182 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
4183 &   +dgm01(1,1)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
4184 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,3)**3+30*gm(1,1)&
4185 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4186 &   +9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
4187 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)&
4188 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4189 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(9*gm(1,3)**2*gm(2,2)&
4190 &   -6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)&
4191 &   **2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4192 &   +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
4193 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)&
4194 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
4195 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)&
4196 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4197 &   *dgm10(3,3)))/9.d0
4198    cm(5,14)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)&
4199 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
4200 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)&
4201 &   +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4202 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
4203 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)&
4204 &   +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
4205 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)&
4206 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4207 &   +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
4208 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)&
4209 &   *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
4210 &   +dgm01(1,3)*dgm10(3,3)))/18.d0
4211    cm(6,14)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)&
4212 &   *dgm10(1,2)+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4213 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
4214 &   *dgm10(1,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4215 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4216 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(-36*gm(1,1)&
4217 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4218 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)&
4219 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)&
4220 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4221 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,2)&
4222 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
4223 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,2)&
4224 &   *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4225 &   *dgm10(3,3)))/18.d0
4226    cm(7,14)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4227 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+(90*gm(2,3)**3-54*gm(2,2)&
4228 &   *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
4229 &   +3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
4230 &   +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4231 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4232 &   *dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4233 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4234 &   *dgm10(2,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4235 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4236 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)&
4237 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4238 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)&
4239 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4240 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
4241 &   +dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4242 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4243 &   *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4244 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)&
4245 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4246 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)&
4247 &   +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)&
4248 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0
4249    cm(8,14)=(576*gm(1,3)*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+144*gm(2,3)&
4250 &   *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)&
4251 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4252 &   *dgm10(1,3)+12*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)&
4253 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)&
4254 &   -18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4255 &   +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)&
4256 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)&
4257 &   *gm(1,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+12*gm(3,3)*(12*gm(1,3)&
4258 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
4259 &   *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
4260 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
4261 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(6*gm(1,3)&
4262 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4263 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(6*gm(1,3)&
4264 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4265 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(6*gm(1,2)&
4266 &   **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
4267 &   *dgm01(3,3)*dgm10(3,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4268 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
4269 &   *dgm10(3,3))+4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4270 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4271 &   *dgm10(3,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
4272 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4273 &   *dgm10(3,3))+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4274 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4275 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(9*gm(1,3)&
4276 &   **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
4277 &   *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4278 &   *dgm10(3,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
4279 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
4280 &   +24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
4281 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/24.d0
4282    cm(9,14)=(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4283 &   *dgm01(1,2)*dgm10(1,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4284 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,3)&
4285 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4286 &   *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4287 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4288 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
4289 &   +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4290 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4291 &   *dgm10(1,3))+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
4292 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
4293 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
4294 &   +dgm01(1,3)*dgm10(2,2))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4295 &   *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+3*(48*gm(1,2)&
4296 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4297 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)&
4298 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)&
4299 &   +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
4300 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4301 &   *dgm10(2,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4302 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4303 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)&
4304 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4305 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)&
4306 &   +dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
4307 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,3)*gm(2,2)&
4308 &   *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4309 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)&
4310 &   *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
4311 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)&
4312 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4313 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,1)*gm(1,3)&
4314 &   *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
4315 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
4316 &   *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
4317 &   +dgm01(2,3)*dgm10(3,3)))/6.d0
4318    cm(10,14)=(144*gm(3,3)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
4319 &   *dgm10(1,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4320 &   *dgm01(1,3)*dgm10(1,3)+432*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)&
4321 &   +dgm01(1,1)*dgm10(1,3))+864*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)&
4322 &   +dgm01(1,2)*dgm10(1,3))+432*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)&
4323 &   +dgm01(1,1)*dgm10(2,3))+72*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
4324 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,1)&
4325 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)&
4326 &   *dgm10(3,3)+12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4327 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)&
4328 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4329 &   +36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4330 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4331 &   +72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
4332 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4333 &   +36*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
4334 &   +dgm01(2,3)*dgm10(3,3)))/72.d0
4335    cm(11,14)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
4336 &   *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
4337 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4338 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
4339 &   +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4340 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4341 &   *dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4342 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4343 &   +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4344 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4345 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4346 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4347 &   +9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
4348 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
4349 &   /18.d0
4350    cm(12,14)=(288*gm(2,3)**3*dgm01(1,3)*dgm10(1,3)+gm(2,3)**2*(216*gm(1,2)&
4351 &   *dgm01(3,3)*dgm10(1,3)+720*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4352 &   *dgm10(1,3))+792*gm(1,1)*dgm01(3,3)*dgm10(2,3)+216*gm(1,2)*dgm01(1,3)&
4353 &   *dgm10(3,3)+792*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(504*dgm01(3,3)&
4354 &   *dgm10(1,2)+432*dgm01(2,3)*dgm10(1,3)+432*dgm01(1,3)*dgm10(2,3)&
4355 &   +504*dgm01(1,2)*dgm10(3,3)))+gm(2,3)*(576*gm(3,3)**2*dgm01(1,2)&
4356 &   *dgm10(1,2)+(144*gm(1,2)**2+576*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
4357 &   +gm(1,3)**2*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)&
4358 &   +72*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(1440*gm(2,2)*dgm01(1,3)*dgm10(1,3)&
4359 &   +288*gm(1,1)*dgm01(3,3)*dgm10(2,2)+2304*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
4360 &   +gm(1,3)*(1152*dgm01(2,3)*dgm10(1,2)+144*dgm01(2,2)*dgm10(1,3)&
4361 &   +144*dgm01(1,3)*dgm10(2,2)+1152*dgm01(1,2)*dgm10(2,3))+288*gm(1,1)&
4362 &   *dgm01(2,2)*dgm10(3,3)+gm(1,2)*(0*dgm01(3,3)*dgm10(1,2)+1440*dgm01(2,3)&
4363 &   *dgm10(1,3)+1440*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)))&
4364 &   +gm(1,3)*(720*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4365 &   +144*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
4366 &   +gm(3,3)*(144*gm(1,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
4367 &   +gm(1,3)*(144*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4368 &   +gm(1,2)*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)&
4369 &   +72*dgm01(2,2)*dgm10(3,3)))+288*(gm(1,2)*gm(3,3)*(dgm01(2,3)&
4370 &   *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
4371 &   *dgm10(2,3))+gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4372 &   *dgm10(2,3))+gm(1,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
4373 &   +gm(2,2)*(432*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4374 &   +gm(3,3)*(gm(1,3)*(504*dgm01(3,3)*dgm10(1,2)+720*dgm01(2,3)*dgm10(1,3)&
4375 &   +720*dgm01(1,3)*dgm10(2,3)+504*dgm01(1,2)*dgm10(3,3))+360*gm(1,2)&
4376 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+648*gm(1,1)*(dgm01(3,3)&
4377 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(1,3)*(144*gm(1,2)*dgm01(3,3)&
4378 &   *dgm10(3,3)+288*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))&
4379 &   /24.d0
4380    cm(13,14)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
4381 &   *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
4382 &   *dgm10(1,3)+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4383 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(2,3)**3+30*gm(2,2)&
4384 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4385 &   +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,2)&
4386 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)&
4387 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
4388 &   +dgm01(1,3)*dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4389 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4390 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+9*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4391 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
4392 &   +dgm01(1,2)*dgm10(2,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4393 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4394 &   *dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4395 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4396 &   +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4397 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,3)&
4398 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4399 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)&
4400 &   *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4401 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4402 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4403 &   +9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
4404 &   **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4405 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)&
4406 &   +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
4407 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/9.d0
4408    cm(14,14)=(288*gm(3,3)**3*dgm01(1,2)*dgm10(1,2)+72*gm(3,3)*(12*gm(2,3)&
4409 &   **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+864*gm(2,3)*gm(3,3)&
4410 &   **2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*gm(3,3)&
4411 &   *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+864*gm(1,3)&
4412 &   *gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+72*gm(3,3)&
4413 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
4414 &   +dgm01(1,3)*dgm10(2,3))+72*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
4415 &   *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
4416 &   *gm(3,3)))*dgm01(3,3)*dgm10(3,3)+24*gm(3,3)*(54*gm(1,3)*gm(2,3)&
4417 &   -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4418 &   +72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4419 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,3)&
4420 &   **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4421 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
4422    cm(15,14)=(576*gm(3,3)**3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4423 &   *dgm10(1,3))+864*gm(1,3)**2*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
4424 &   **2*(3456*gm(2,3)*dgm01(1,3)*dgm10(1,3)+864*gm(1,2)*dgm01(3,3)&
4425 &   *dgm10(1,3)+1728*gm(1,1)*dgm01(3,3)*dgm10(2,3)+864*gm(1,2)*dgm01(1,3)&
4426 &   *dgm10(3,3)+1728*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(864*dgm01(3,3)&
4427 &   *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)&
4428 &   +864*dgm01(1,2)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,1)*gm(2,3)*dgm01(3,3)&
4429 &   *dgm10(3,3)+864*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4430 &   *dgm10(3,3))+gm(1,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(2,3)&
4431 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/144.d0
4432    cm(16,14)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
4433 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4434 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)&
4435 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4436 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)&
4437 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4438 &   *dgm10(3,3)))/18.d0
4439    cm(17,14)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4440 &   *dgm10(2,2))+36*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4441 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4442 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
4443 &   +24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)&
4444 &   +dgm01(1,2)*dgm10(2,3))+72*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))&
4445 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+36*gm(3,3)*(12*gm(1,3)&
4446 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4447 &   *dgm10(2,3))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4448 &   *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
4449 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(2,2)*(54*gm(2,3)&
4450 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4451 &   +36*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4452 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*(-36*gm(1,3)&
4453 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4454 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,3)&
4455 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4456 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
4457    cm(18,14)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4458 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(2,3)**3+30*gm(2,2)&
4459 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4460 &   +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4461 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)&
4462 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4463 &   +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
4464 &   +dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4465 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4466 &   *dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4467 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
4468 &   +6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)&
4469 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
4470    cm(19,14)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4471 &   *dgm10(2,2))+432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4472 &   *dgm10(2,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4473 &   *dgm01(2,3)*dgm10(2,3)+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)&
4474 &   +dgm01(1,2)*dgm10(2,3))+72*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)&
4475 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+432*gm(1,3)&
4476 &   *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)&
4477 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)&
4478 &   *dgm10(3,3)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
4479 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*(6*gm(2,3)**3+30*gm(2,2)&
4480 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4481 &   +12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)&
4482 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+36*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4483 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
4484 &   +dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4485 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4486 &   *dgm10(3,3)))/72.d0
4487    cm(20,14)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4488 &   *dgm10(2,3))+864*gm(1,3)*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
4489 &   **2*(3456*gm(1,3)*dgm01(2,3)*dgm10(2,3)+864*gm(1,2)*dgm01(3,3)&
4490 &   *dgm10(2,3)+864*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(864*dgm01(3,3)&
4491 &   *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)&
4492 &   +864*dgm01(1,2)*dgm10(3,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(1,3)&
4493 &   +dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,3)*gm(2,2)*dgm01(3,3)&
4494 &   *dgm10(3,3)+864*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4495 &   *dgm10(3,3))+gm(2,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(1,3)&
4496 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/144.d0
4497    cm(21,14)=(gm(3,3)*(240*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4498 &   *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)&
4499 &   +dgm01(1,2)*dgm10(3,3))+4320*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)&
4500 &   +dgm01(1,3)*dgm10(3,3))+4320*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)&
4501 &   +dgm01(2,3)*dgm10(3,3))))/720.d0
4502    cm(1,15)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
4503 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4504 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/2880.d0
4505    cm(2,15)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4506 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
4507 &   +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4508 &   *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))&
4509 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)&
4510 &   +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4511 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4512 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,1)&
4513 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)&
4514 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
4515 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
4516    cm(3,15)=(2304*gm(1,3)**3*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4517 &   *dgm10(3,3))+gm(1,3)**2*(2592*gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
4518 &   *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)&
4519 &   *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
4520 &   +gm(3,3)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)&
4521 &   +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(1,3)&
4522 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
4523 &   +dgm01(1,3)*dgm10(3,3))))/288.d0
4524    cm(4,15)=(12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4525 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+6*gm(3,3)&
4526 &   *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)&
4527 &   +dgm01(1,1)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
4528 &   *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*(90*gm(1,3)&
4529 &   **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
4530 &   *dgm10(2,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
4531 &   +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
4532 &   *dgm10(3,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)&
4533 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)&
4534 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
4535 &   +dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
4536 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
4537    cm(5,15)=(32*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
4538 &   *dgm10(1,3)+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)&
4539 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(6*gm(1,3)**3+30*gm(1,1)&
4540 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4541 &   +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
4542 &   +dgm01(1,3)*dgm10(3,3)))/144.d0
4543    cm(6,15)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4544 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
4545 &   *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)&
4546 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)&
4547 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
4548 &   +dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
4549 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
4550    cm(7,15)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4551 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4552 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)&
4553 &   +dgm01(1,2)*dgm10(1,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
4554 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4555 &   *dgm10(2,2))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4556 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4557 &   +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4558 &   **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4559 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)&
4560 &   +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4561 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
4562    cm(8,15)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4563 &   *dgm01(1,3)*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)&
4564 &   +dgm01(1,1)*dgm10(1,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)&
4565 &   +dgm01(1,2)*dgm10(1,3))+32*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
4566 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,1)&
4567 &   *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)&
4568 &   *dgm10(3,3)+24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4569 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)&
4570 &   **2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4571 &   +16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4572 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4573 &   +96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
4574 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4575 &   +48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
4576 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
4577    cm(9,15)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4578 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)&
4579 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
4580 &   +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)&
4581 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
4582 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,3)&
4583 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4584 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(48*gm(1,2)&
4585 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4586 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4587 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)&
4588 &   +dgm01(1,2)*dgm10(3,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4589 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4590 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)&
4591 &   **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4592 &   *dgm10(3,3))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
4593 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
4594 &   /12.d0
4595    cm(10,15)=2*gm(3,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
4596 &   +3*gm(1,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(1,3)*(3*dgm01(3,3)&
4597 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))&
4598 &   +9*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+15*gm(1,3)&
4599 &   *gm(3,3)*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
4600 &   +dgm01(1,3)*dgm10(3,3)))
4601    cm(11,15)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)&
4602 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
4603 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
4604 &   +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4605 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4606 &   *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4607 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4608 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
4609    cm(12,15)=(64*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
4610 &   *dgm10(1,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4611 &   *dgm10(1,3))+576*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4612 &   *dgm10(2,2))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4613 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-12*gm(1,3)&
4614 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4615 &   +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
4616 &   +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
4617 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4618 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
4619 &   +dgm01(1,3)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4620 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4621 &   *dgm10(3,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)&
4622 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4623 &   *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
4624 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
4625    cm(13,15)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
4626 &   *dgm10(1,3)+6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)&
4627 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)&
4628 &   -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4629 &   +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4630 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)&
4631 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4632 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4633 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
4634 &   +dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
4635 &   *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4636 &   *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4637 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4638 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
4639    cm(14,15)=(576*gm(3,3)**3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
4640 &   *dgm10(1,3))+864*gm(1,3)**2*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
4641 &   **2*(3456*gm(2,3)*dgm01(1,3)*dgm10(1,3)+864*gm(1,2)*dgm01(3,3)&
4642 &   *dgm10(1,3)+1728*gm(1,1)*dgm01(3,3)*dgm10(2,3)+864*gm(1,2)*dgm01(1,3)&
4643 &   *dgm10(3,3)+1728*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(864*dgm01(3,3)&
4644 &   *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)&
4645 &   +864*dgm01(1,2)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,1)*gm(2,3)*dgm01(3,3)&
4646 &   *dgm10(3,3)+864*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4647 &   *dgm10(3,3))+gm(1,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(2,3)&
4648 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/144.d0
4649    cm(15,15)=(gm(3,3)*(4608*gm(3,3)**2*dgm01(1,3)*dgm10(1,3)+288*(12*gm(1,3)&
4650 &   **2+24*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+6912*gm(1,3)*gm(3,3)&
4651 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))))/576.d0
4652    cm(16,15)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
4653 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4654 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4655 &   +dgm01(2,2)*dgm10(3,3)))/2880.d0
4656    cm(17,15)=(1728*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4657 &   *dgm10(2,2))+96*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
4658 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4659 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
4660 &   +16*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
4661 &   +dgm01(1,3)*dgm10(3,3))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
4662 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+144*(48*gm(1,2)&
4663 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
4664 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
4665    cm(18,15)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4666 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(2,3)**3-54*gm(2,2)&
4667 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4668 &   +9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4669 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,3)&
4670 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4671 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
4672    cm(19,15)=(576*gm(3,3)**3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4673 &   *dgm10(2,2))+3456*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
4674 &   *dgm10(2,3))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4675 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+48*gm(3,3)*(54*gm(2,3)&
4676 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
4677 &   +864*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
4678 &   +144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
4679 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
4680    cm(20,15)=(gm(3,3)*(2304*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
4681 &   *dgm10(2,3))+288*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)&
4682 &   *dgm10(3,3)+3456*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4683 &   *dgm10(3,3))+3456*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
4684 &   *dgm10(3,3))))/576.d0
4685    cm(21,15)=gm(3,3)**2*(6*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
4686 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
4687    cm(1,16)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)&
4688 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/36.d0
4689    cm(2,16)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
4690 &   *dgm10(2,2)+4320*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4691 &   *dgm10(2,2))+240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)&
4692 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))/1440.d0
4693    cm(3,16)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4694 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
4695 &   +6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
4696 &   *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4697 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
4698 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
4699    cm(4,16)=(3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4700 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(-36*gm(1,2)&
4701 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4702 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(1,2)&
4703 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4704 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)&
4705 &   +dgm01(2,2)*dgm10(2,3)))/18.d0
4706    cm(5,16)=(240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4707 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4708 &   *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)&
4709 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/2880.d0
4710    cm(6,16)=(240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)&
4711 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)&
4712 &   *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))&
4713 &   /2880.d0
4714    cm(7,16)=(gm(2,2)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)&
4715 &   *dgm10(2,2)+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4716 &   *dgm10(2,2))+8640*gm(1,2)*gm(2,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4717 &   *dgm10(2,2))))/1440.d0
4718    cm(8,16)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4719 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4720 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
4721 &   +dgm01(1,2)*dgm10(2,2))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
4722 &   *gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)&
4723 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4724 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)&
4725 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))&
4726 &   /12.d0
4727    cm(9,16)=(80*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4728 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+1440*gm(2,2)&
4729 &   **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*gm(2,2)&
4730 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
4731 &   +dgm01(1,2)*dgm10(2,2))+2880*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)&
4732 &   +dgm01(1,3)*dgm10(2,2))+80*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
4733 &   *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/480.d0
4734    cm(10,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
4735 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4736 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
4737 &   +dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
4738 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)&
4739 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
4740    cm(11,16)=gm(2,2)**2*(6*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
4741 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
4742    cm(12,16)=(80*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4743 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+80*gm(2,2)*(54*gm(2,3)&
4744 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4745 &   +2880*gm(2,2)**2*gm(2,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4746 &   +160*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4747 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1440*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
4748 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/480.d0
4749    cm(13,16)=(gm(2,2)*(240*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4750 &   *dgm01(2,2)*dgm10(2,2)+4320*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
4751 &   +dgm01(1,2)*dgm10(2,2))+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)&
4752 &   +dgm01(1,3)*dgm10(2,2))+4320*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)&
4753 &   +dgm01(2,2)*dgm10(2,3))))/720.d0
4754    cm(14,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
4755 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4756 &   *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)&
4757 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4758 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)&
4759 &   *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4760 &   *dgm10(3,3)))/18.d0
4761    cm(15,16)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
4762 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4763 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4764 &   +dgm01(2,2)*dgm10(3,3)))/2880.d0
4765    cm(16,16)=2*gm(2,2)**3*dgm01(2,2)*dgm10(2,2)
4766    cm(17,16)=(gm(2,2)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
4767 &   *dgm10(2,2)+8640*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4768 &   *dgm10(2,3))+1440*gm(2,2)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4769 &   *dgm10(3,3))))/1440.d0
4770    cm(18,16)=gm(2,2)**2*(6*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
4771 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))
4772    cm(19,16)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
4773 &   *dgm10(2,2)+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
4774 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+4320*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
4775 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/1440.d0
4776    cm(20,16)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
4777 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4778 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/2880.d0
4779    cm(21,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
4780 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
4781    cm(1,17)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
4782 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
4783 &   +6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
4784 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
4785 &   +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)&
4786 &   +dgm01(1,1)*dgm10(3,3)))/36.d0
4787    cm(2,17)=(24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
4788 &   **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(48*gm(1,3)&
4789 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
4790 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(30*gm(1,3)**2*gm(2,2)&
4791 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4792 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4793 &   +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4794 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)&
4795 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
4796 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(90*gm(1,2)**2*gm(1,3)&
4797 &   -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4798 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
4799 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
4800 &   *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(90*gm(1,2)&
4801 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
4802 &   *dgm10(3,3)))/144.d0
4803    cm(3,17)=(9*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4804 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)&
4805 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4806 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+18*(48*gm(1,2)&
4807 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4808 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(-12*gm(1,3)**2*gm(2,2)&
4809 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4810 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4811 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
4812 &   +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4813 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)&
4814 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4815 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)&
4816 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4817 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(90*gm(1,2)&
4818 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
4819 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
4820    cm(4,17)=(9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4821 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,3)&
4822 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4823 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(30*gm(1,3)&
4824 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4825 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
4826 &   +dgm01(1,3)*dgm10(2,2))+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
4827 &   *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,3)&
4828 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4829 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)**2*gm(2,2)&
4830 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4831 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4832 &   +18*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
4833 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4834 &   +3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4835 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)&
4836 &   *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)&
4837 &   +dgm01(1,1)*dgm10(3,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
4838 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)&
4839 &   +dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
4840 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)&
4841 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
4842 &   /18.d0
4843    cm(5,17)=(9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4844 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4845 &   *dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
4846 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
4847 &   +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
4848 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4849 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)**2*gm(1,3)&
4850 &   -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4851 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
4852 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
4853 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)&
4854 &   *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))&
4855 &   /36.d0
4856    cm(6,17)=(9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4857 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4858 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)&
4859 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4860 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(48*gm(1,2)&
4861 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4862 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)&
4863 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
4864 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(2,2)*(54*gm(1,2)&
4865 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4866 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)&
4867 &   +dgm01(1,2)*dgm10(3,3)))/36.d0
4868    cm(7,17)=(72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4869 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4870 &   *dgm01(2,2)*dgm10(2,2)+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4871 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(48*gm(1,3)&
4872 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
4873 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)&
4874 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4875 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4876 &   +72*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
4877 &   *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
4878 &   +144*gm(2,2)**3*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4879 &   +864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
4880 &   +12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)&
4881 &   +dgm01(2,2)*dgm10(3,3)))/144.d0
4882    cm(8,17)=(3*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4883 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(3,3)*(12*gm(1,3)*gm(2,3)&
4884 &   +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4885 &   +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4886 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(-12*gm(1,3)&
4887 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
4888 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
4889 &   +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
4890 &   +dgm01(1,1)*dgm10(2,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4891 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4892 &   *dgm10(2,3))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4893 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4894 &   +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4895 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
4896 &   +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)&
4897 &   +gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
4898 &   +dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4899 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4900 &   *dgm10(3,3))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4901 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(30*gm(1,3)&
4902 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4903 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
4904 &   +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
4905 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
4906 &   +dgm01(2,3)*dgm10(3,3))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
4907 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
4908 &   +dgm01(2,3)*dgm10(3,3)))/12.d0
4909    cm(9,17)=(24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4910 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+12*(6*gm(2,3)&
4911 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4912 &   *dgm10(2,2))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4913 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4914 &   +24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4915 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(48*gm(1,2)&
4916 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4917 &   *dgm01(2,3)*dgm10(2,3)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
4918 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)&
4919 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4920 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4921 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4922 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4923 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4924 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*(-12*gm(1,3)**2*gm(2,2)&
4925 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4926 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
4927 &   +144*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
4928 &   +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)&
4929 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+288*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
4930 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
4931 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)&
4932 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
4933 &   *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
4934    cm(10,17)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
4935 &   *dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4936 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*gm(3,3)*(54*gm(2,3)&
4937 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
4938 &   +144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4939 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(-36*gm(1,2)&
4940 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4941 &   *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
4942 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(-36*gm(1,3)&
4943 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4944 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)&
4945 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4946 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(-12*gm(1,3)&
4947 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
4948 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
4949 &   +dgm01(2,3)*dgm10(3,3)))/144.d0
4950    cm(11,17)=(144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4951 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*gm(2,2)*(54*gm(2,3)&
4952 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
4953 &   +3456*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4954 &   +144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)&
4955 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+576*gm(2,2)**3*(dgm01(3,3)&
4956 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)&
4957 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0
4958    cm(12,17)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4959 &   *dgm01(2,2)*dgm10(2,2)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
4960 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(2,3)&
4961 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
4962 &   *dgm10(2,2))+192*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4963 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*(6*gm(2,3)&
4964 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
4965 &   *dgm10(2,3))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)&
4966 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)&
4967 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
4968 &   +dgm01(2,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4969 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
4970 &   *dgm10(2,3))+288*gm(1,2)*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+8*gm(2,2)&
4971 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
4972 &   *dgm10(3,3))+288*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
4973 &   *dgm10(3,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4974 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
4975 &   +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4976 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*gm(2,2)&
4977 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
4978 &   +dgm01(2,3)*dgm10(3,3))+16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
4979 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0
4980    cm(13,17)=(72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4981 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(6*gm(2,3)&
4982 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4983 &   *dgm10(2,2))+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4984 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4985 &   +12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+72*gm(2,2)*(12*gm(2,3)&
4986 &   **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
4987 &   +864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
4988 &   +36*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4989 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)&
4990 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
4991 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
4992 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(2,2)**3*(dgm01(3,3)&
4993 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4994 &   +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
4995 &   +432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
4996 &   /72.d0
4997    cm(14,17)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
4998 &   *dgm10(2,2))+36*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
4999 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)&
5000 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
5001 &   +24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)&
5002 &   +dgm01(1,2)*dgm10(2,3))+72*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))&
5003 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+36*gm(3,3)*(12*gm(1,3)&
5004 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5005 &   *dgm10(2,3))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
5006 &   *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
5007 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(2,2)*(54*gm(2,3)&
5008 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5009 &   +36*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
5010 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*(-36*gm(1,3)&
5011 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5012 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,3)&
5013 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5014 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
5015    cm(15,17)=(1728*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5016 &   *dgm10(2,2))+96*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5017 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
5018 &   +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
5019 &   +16*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
5020 &   +dgm01(1,3)*dgm10(3,3))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
5021 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+144*(48*gm(1,2)&
5022 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5023 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
5024    cm(16,17)=(gm(2,2)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
5025 &   *dgm10(2,2)+8640*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5026 &   *dgm10(2,3))+1440*gm(2,2)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5027 &   *dgm10(3,3))))/1440.d0
5028    cm(17,17)=6*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5029 &   +gm(2,2)*(12*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)**2*dgm01(3,3)&
5030 &   *dgm10(3,3)+gm(2,2)*gm(3,3)*(-3*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)&
5031 &   *dgm10(2,3)-3*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(6*gm(3,3)*dgm01(2,2)&
5032 &   *dgm10(2,2)+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)&
5033 &   +9*dgm01(2,2)*dgm10(3,3)))+gm(2,2)*gm(2,3)*(30*gm(3,3)*(dgm01(2,3)&
5034 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+12*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
5035 &   +dgm01(2,3)*dgm10(3,3)))
5036    cm(18,17)=3*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+15*gm(2,2)*gm(2,3)&
5037 &   **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*gm(2,3)&
5038 &   *(15*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)&
5039 &   +24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))+gm(2,2)**2*(9*gm(3,3)&
5040 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)&
5041 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5042    cm(19,17)=gm(2,3)**3*(4*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)&
5043 &   *dgm10(2,3)+4*dgm01(2,2)*dgm10(3,3))+gm(2,3)*(6*gm(3,3)**2*dgm01(2,2)&
5044 &   *dgm10(2,2)+6*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+gm(2,2)*gm(3,3)&
5045 &   *(6*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)&
5046 &   *dgm10(3,3)))+15*gm(2,3)**2*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5047 &   *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5048 &   +9*gm(2,2)*gm(3,3)*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5049 &   *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5050    cm(20,17)=(2304*gm(2,3)**3*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5051 &   *dgm10(3,3))+gm(2,3)**2*(2592*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
5052 &   *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)&
5053 &   *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
5054 &   +gm(3,3)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)&
5055 &   +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(2,3)&
5056 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3456*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
5057 &   +dgm01(2,3)*dgm10(3,3))))/288.d0
5058    cm(21,17)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5059 &   *dgm10(3,3)+4320*gm(2,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5060 &   *dgm10(3,3))+240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5061 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/1440.d0
5062    cm(1,18)=(240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
5063 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5064 &   *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)&
5065 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/2880.d0
5066    cm(2,18)=(48*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
5067 &   +2*gm(1,2)*gm(2,3)))*dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)&
5068 &   *gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5069 &   *dgm10(2,2))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5070 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5071 &   *dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5072 &   *dgm10(2,3))+96*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
5073 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+16*(90*gm(1,2)**3-54*gm(1,1)&
5074 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
5075 &   /288.d0
5076    cm(3,18)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
5077 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(-12*gm(1,3)&
5078 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5079 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
5080 &   +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5081 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5082 &   *dgm10(2,3))+12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
5083 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
5084 &   *dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
5085 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5086 &   *dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)&
5087 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
5088    cm(4,18)=(9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
5089 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(-12*gm(1,3)&
5090 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5091 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
5092 &   +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
5093 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)&
5094 &   +dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
5095 &   *dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
5096 &   *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-36*gm(1,2)&
5097 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5098 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(1,2)&
5099 &   **2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5100 &   +3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
5101 &   *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))&
5102 &   /18.d0
5103    cm(5,18)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5104 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5105 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(90*gm(1,2)&
5106 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
5107 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)&
5108 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5109 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)&
5110 &   **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
5111 &   *dgm10(2,3)))/36.d0
5112    cm(6,18)=(9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5113 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5114 &   *dgm10(2,2))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
5115 &   -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5116 &   *dgm10(2,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)&
5117 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)**3-54*gm(1,1)&
5118 &   *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))&
5119 &   /36.d0
5120    cm(7,18)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5121 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+864*gm(2,2)&
5122 &   **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+144*gm(2,2)&
5123 &   *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)&
5124 &   +dgm01(1,2)*dgm10(2,2))+576*gm(2,2)**3*(dgm01(2,3)*dgm10(1,1)&
5125 &   +dgm01(1,1)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
5126 &   +dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
5127 &   *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/288.d0
5128    cm(8,18)=(3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)&
5129 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,2)*gm(2,3)*gm(3,3)&
5130 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)&
5131 &   +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5132 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5133 &   *dgm10(2,2))+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
5134 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)&
5135 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5136 &   *dgm10(2,3))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
5137 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5138 &   +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)&
5139 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)&
5140 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5141 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5142 &   +3*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
5143 &   *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5144 &   +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)&
5145 &   +dgm01(2,3)*dgm10(3,3)))/12.d0
5146    cm(9,18)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5147 &   +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5148 &   *dgm01(2,2)*dgm10(2,2)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
5149 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+96*(6*gm(1,3)&
5150 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)&
5151 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)&
5152 &   +12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
5153 &   +64*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)&
5154 &   +576*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
5155 &   +64*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)&
5156 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+1152*gm(1,2)*gm(2,2)**2*(dgm01(2,3)&
5157 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,2)*gm(1,3)*gm(2,2)&
5158 &   +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
5159 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
5160 &   +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)&
5161 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0
5162    cm(10,18)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
5163 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)&
5164 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)&
5165 &   +dgm01(1,3)*dgm10(2,2))+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
5166 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,3)&
5167 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5168 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)&
5169 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5170 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
5171 &   +dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
5172 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
5173 &   +dgm01(2,3)*dgm10(3,3)))/36.d0
5174    cm(11,18)=(gm(2,2)*(288*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
5175 &   *dgm01(2,2)*dgm10(2,2)+3456*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
5176 &   +dgm01(1,2)*dgm10(2,2))+2304*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)&
5177 &   +dgm01(1,2)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)&
5178 &   +dgm01(2,2)*dgm10(2,3))))/576.d0
5179    cm(12,18)=(48*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5180 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*(6*gm(2,3)&
5181 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5182 &   *dgm10(2,2))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)&
5183 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+128*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
5184 &   +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+32*gm(2,2)*(54*gm(2,3)&
5185 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5186 &   +1152*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5187 &   +16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
5188 &   *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+96*(6*gm(1,3)&
5189 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)&
5190 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)&
5191 &   +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5192 &   +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5193 &   /96.d0
5194    cm(13,18)=6*gm(1,2)*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+4*gm(2,2)&
5195 &   **3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,2)**2*(6*gm(1,3)&
5196 &   *dgm01(2,3)*dgm10(2,2)+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5197 &   *dgm10(2,2))+6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+24*gm(1,2)*dgm01(2,3)&
5198 &   *dgm10(2,3)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)&
5199 &   +6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)))+gm(2,2)*(24*gm(1,2)&
5200 &   *gm(3,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,3)**2*(dgm01(2,2)*dgm10(1,2)&
5201 &   +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)&
5202 &   +24*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))))
5203    cm(14,18)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
5204 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(2,3)**3+30*gm(2,2)&
5205 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
5206 &   +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
5207 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)&
5208 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5209 &   +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
5210 &   +dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5211 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5212 &   *dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5213 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5214 &   +6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)&
5215 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0
5216    cm(15,18)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
5217 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(2,3)**3-54*gm(2,2)&
5218 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5219 &   +9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
5220 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,3)&
5221 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5222 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0
5223    cm(16,18)=gm(2,2)**2*(6*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
5224 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))
5225    cm(17,18)=3*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+15*gm(2,2)*gm(2,3)&
5226 &   **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*gm(2,3)&
5227 &   *(15*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)&
5228 &   +24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))+gm(2,2)**2*(9*gm(3,3)&
5229 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)&
5230 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5231    cm(18,18)=gm(2,2)*(6*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)&
5232 &   *gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)&
5233 &   *(12*gm(3,3)*dgm01(2,2)*dgm10(2,2)+8*gm(2,2)*dgm01(2,3)*dgm10(2,3)))
5234    cm(19,18)=8*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5235 &   +gm(2,3)**2*(9*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)&
5236 &   *dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))&
5237 &   +gm(2,2)*gm(3,3)*(-3*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(6*dgm01(3,3)&
5238 &   *dgm10(2,2)-12*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)*dgm10(3,3)))&
5239 &   +gm(2,2)*gm(2,3)*(12*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5240 &   *dgm10(2,3))+6*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5241    cm(20,18)=(32*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5242 &   *dgm10(2,3)+24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5243 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+36*(6*gm(2,3)**3+30*gm(2,2)&
5244 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5245 &   +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
5246 &   +dgm01(2,3)*dgm10(3,3)))/144.d0
5247    cm(21,18)=(240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5248 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+160*(90*gm(2,3)**3-54*gm(2,2)&
5249 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5250 &   /2880.d0
5251    cm(1,19)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
5252 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
5253 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
5254 &   +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
5255 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
5256 &   *dgm10(3,3)))/36.d0
5257    cm(2,19)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)&
5258 &   *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5259 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
5260 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5261 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
5262 &   +18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
5263 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(30*gm(1,3)&
5264 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5265 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
5266 &   +dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5267 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5268 &   *dgm10(2,3))+9*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
5269 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,2)&
5270 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5271 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,2)&
5272 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
5273 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
5274    cm(3,19)=(432*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5275 &   *dgm10(2,2))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
5276 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)&
5277 &   +24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
5278 &   +144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5279 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5280 &   +24*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)&
5281 &   *gm(2,3)))*dgm01(3,3)*dgm10(3,3)+36*(48*gm(1,2)*gm(2,3)*gm(3,3)&
5282 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
5283 &   +dgm01(1,1)*dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
5284 &   *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5285 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(90*gm(1,3)&
5286 &   **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5287 &   *dgm10(3,3))+24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
5288 &   **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5289 &   /144.d0
5290    cm(4,19)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5291 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*gm(3,3)*(54*gm(1,3)&
5292 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
5293 &   +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5294 &   *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
5295 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5296 &   *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,2)*gm(2,3)*gm(3,3)&
5297 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)&
5298 &   +dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
5299 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5300 &   *dgm10(2,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5301 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5302 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)&
5303 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5304 &   +9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
5305 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(-12*gm(1,3)&
5306 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5307 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
5308 &   +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
5309 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)&
5310 &   +dgm01(1,3)*dgm10(3,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
5311 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5312 &   *dgm10(3,3)))/18.d0
5313    cm(5,19)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)&
5314 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)&
5315 &   *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))&
5316 &   +18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5317 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
5318 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5319 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)&
5320 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5321 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
5322 &   +dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
5323 &   *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5324 &   *dgm10(3,3)))/36.d0
5325    cm(6,19)=(3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5326 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5327 &   *dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)&
5328 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(30*gm(1,3)**2*gm(2,2)&
5329 &   +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5330 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
5331 &   +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5332 &   *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,2)&
5333 &   *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5334 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)&
5335 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
5336 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
5337    cm(7,19)=(24*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5338 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+4*(90*gm(2,3)&
5339 &   **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5340 &   *dgm10(2,2))+24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5341 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
5342 &   +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
5343 &   +dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5344 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5345 &   *dgm10(2,3))+72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5346 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5347 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)&
5348 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)&
5349 &   *gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
5350 &   *dgm10(3,3))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5351 &   -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5352 &   *dgm10(3,3)))/144.d0
5353    cm(8,19)=(144*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5354 &   *dgm10(2,2))+288*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5355 &   *dgm10(2,2))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5356 &   *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(6*gm(1,3)&
5357 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5358 &   *dgm01(2,3)*dgm10(2,3)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
5359 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(3,3)*(12*gm(1,3)&
5360 &   *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5361 &   *dgm10(2,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5362 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5363 &   +8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
5364 &   +dgm01(2,2)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
5365 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)&
5366 &   +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
5367 &   +dgm01(1,1)*dgm10(3,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5368 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
5369 &   *dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5370 &   **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5371 &   +4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5372 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5373 &   +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
5374 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5375 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)&
5376 &   +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5377 &   **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5378 &   /48.d0
5379    cm(9,19)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
5380 &   *dgm10(2,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)&
5381 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)&
5382 &   -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
5383 &   +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5384 &   *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(30*gm(1,3)&
5385 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5386 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)&
5387 &   +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)&
5388 &   +dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5389 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5390 &   *dgm10(2,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5391 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5392 &   +2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5393 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5394 &   +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5395 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5396 &   +3*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
5397 &   +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5398 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
5399 &   *dgm10(3,3))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
5400 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-12*gm(1,3)&
5401 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5402 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
5403 &   +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
5404 &   **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)&
5405 &   +dgm01(2,3)*dgm10(3,3)))/12.d0
5406    cm(10,19)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
5407 &   *dgm10(2,2))+864*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5408 &   *dgm10(2,2))+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5409 &   *dgm10(2,3))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
5410 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(-12*gm(1,3)&
5411 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5412 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
5413 &   +12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
5414 &   +dgm01(1,1)*dgm10(3,3))+72*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5415 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5416 &   *dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
5417 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
5418 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
5419 &   +dgm01(2,3)*dgm10(3,3)))/144.d0
5420    cm(11,19)=(48*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5421 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+16*(90*gm(2,3)&
5422 &   **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5423 &   *dgm10(2,2))+96*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5424 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)&
5425 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
5426 &   +dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,2)&
5427 &   +dgm01(1,2)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
5428 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0
5429    cm(12,19)=(288*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+288*gm(2,3)&
5430 &   *gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+8*gm(3,3)&
5431 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5432 &   *dgm10(2,2))+192*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5433 &   **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*gm(3,3)*(12*gm(2,3)&
5434 &   **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5435 &   +48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
5436 &   +dgm01(1,3)*dgm10(2,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5437 &   *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(3,3)&
5438 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
5439 &   +dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
5440 &   *gm(2,3))*dgm01(3,3)*dgm10(3,3)+24*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)&
5441 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*gm(2,2)&
5442 &   *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5443 &   *dgm10(3,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5444 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5445 &   +4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5446 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*(48*gm(1,3)&
5447 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5448 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)&
5449 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
5450 &   +dgm01(2,3)*dgm10(3,3)))/48.d0
5451    cm(13,19)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5452 &   *dgm01(2,2)*dgm10(2,2)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
5453 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(90*gm(2,3)&
5454 &   **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5455 &   *dgm10(2,2))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5456 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+72*(6*gm(2,3)&
5457 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5458 &   *dgm10(2,3))+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5459 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5460 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
5461 &   +dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5462 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5463 &   *dgm10(2,3))+36*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5464 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
5465 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)*gm(2,2)*gm(2,3)&
5466 &   +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
5467 &   +dgm01(2,2)*dgm10(3,3))+36*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
5468 &   *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0
5469    cm(14,19)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
5470 &   *dgm10(2,2))+432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5471 &   *dgm10(2,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
5472 &   *dgm01(2,3)*dgm10(2,3)+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)&
5473 &   +dgm01(1,2)*dgm10(2,3))+72*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)&
5474 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+432*gm(1,3)&
5475 &   *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)&
5476 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)&
5477 &   *dgm10(3,3)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5478 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*(6*gm(2,3)**3+30*gm(2,2)&
5479 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5480 &   +12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)&
5481 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+36*(48*gm(1,2)*gm(2,3)*gm(3,3)&
5482 &   +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
5483 &   +dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5484 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5485 &   *dgm10(3,3)))/72.d0
5486    cm(15,19)=(576*gm(3,3)**3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
5487 &   *dgm10(2,2))+3456*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
5488 &   *dgm10(2,3))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5489 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+48*gm(3,3)*(54*gm(2,3)&
5490 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5491 &   +864*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5492 &   +144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
5493 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
5494    cm(16,19)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
5495 &   *dgm10(2,2)+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5496 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+4320*gm(2,2)**2*gm(2,3)*(dgm01(3,3)&
5497 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/1440.d0
5498    cm(17,19)=gm(2,3)**3*(4*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)&
5499 &   *dgm10(2,3)+4*dgm01(2,2)*dgm10(3,3))+gm(2,3)*(6*gm(3,3)**2*dgm01(2,2)&
5500 &   *dgm10(2,2)+6*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+gm(2,2)*gm(3,3)&
5501 &   *(6*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)&
5502 &   *dgm10(3,3)))+15*gm(2,3)**2*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5503 &   *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5504 &   +9*gm(2,2)*gm(3,3)*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5505 &   *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5506    cm(18,19)=(2304*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5507 &   *dgm10(2,3))+gm(2,3)**2*(2592*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
5508 &   *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)&
5509 &   *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(3,3)*dgm01(2,2)*dgm10(2,2)&
5510 &   +gm(2,2)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)&
5511 &   +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,2)*gm(2,3)*(3456*gm(3,3)*(dgm01(2,3)&
5512 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
5513 &   +dgm01(2,3)*dgm10(3,3))))/288.d0
5514    cm(19,19)=2*gm(3,3)**3*dgm01(2,2)*dgm10(2,2)+gm(3,3)**2*(12*gm(2,3)&
5515 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(-3*dgm01(3,3)&
5516 &   *dgm10(2,2)+48*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)*dgm10(3,3)))&
5517 &   +6*gm(2,3)**2*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)&
5518 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(3,3)*(12*gm(2,2)**2*dgm01(3,3)&
5519 &   *dgm10(3,3)+gm(2,3)**2*(9*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)&
5520 &   *dgm10(2,3)+9*dgm01(2,2)*dgm10(3,3))+30*gm(2,2)*gm(2,3)*(dgm01(3,3)&
5521 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5522    cm(20,19)=2*gm(3,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5523 &   +3*gm(2,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(2,3)*(3*dgm01(3,3)&
5524 &   *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))&
5525 &   +9*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+15*gm(2,3)&
5526 &   *gm(3,3)*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
5527 &   +dgm01(2,3)*dgm10(3,3)))
5528    cm(21,19)=gm(3,3)*(9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
5529 &   **2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-3*gm(2,2)&
5530 &   *dgm01(3,3)*dgm10(3,3)+6*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5531 &   *dgm10(3,3))))
5532    cm(1,20)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
5533 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
5534 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)&
5535 &   +dgm01(1,1)*dgm10(3,3)))/2880.d0
5536    cm(2,20)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5537 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
5538 &   +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5539 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5540 &   +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)&
5541 &   +dgm01(2,2)*dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5542 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
5543 &   *dgm10(3,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5544 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5545 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,1)&
5546 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
5547 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
5548    cm(3,20)=(1728*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5549 &   *dgm10(2,3))+96*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
5550 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
5551 &   +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
5552 &   +72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
5553 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*(6*gm(1,3)**2*gm(2,3)&
5554 &   +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
5555 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**3-54*gm(1,1)&
5556 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5557 &   /288.d0
5558    cm(4,20)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
5559 &   *dgm10(2,3)+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5560 &   *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)&
5561 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5562 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5563 &   *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5564 &   +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
5565 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(6*gm(1,3)&
5566 &   **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5567 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)&
5568 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5569 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)&
5570 &   +dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5571 &   *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5572 &   *dgm10(3,3)))/18.d0
5573    cm(5,20)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)&
5574 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)&
5575 &   *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
5576 &   +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5577 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
5578 &   +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5579 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/36.d0
5580    cm(6,20)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5581 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5582 &   *dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)&
5583 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
5584 &   *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5585 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,1)&
5586 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
5587 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0
5588    cm(7,20)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
5589 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5590 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)&
5591 &   +dgm01(1,2)*dgm10(2,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
5592 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
5593 &   *dgm10(2,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5594 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)&
5595 &   +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
5596 &   +dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5597 &   *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5598 &   *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
5599    cm(8,20)=(64*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5600 &   *dgm10(2,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5601 &   *dgm10(2,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5602 &   *dgm10(2,3))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5603 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(30*gm(1,3)&
5604 &   **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5605 &   +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)&
5606 &   +24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
5607 &   +dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
5608 &   *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+96*(6*gm(1,2)&
5609 &   *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5610 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**2*gm(2,3)&
5611 &   -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
5612 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
5613 &   *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
5614 &   +dgm01(2,3)*dgm10(3,3)))/96.d0
5615    cm(9,20)=(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5616 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+2*gm(3,3)&
5617 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5618 &   *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5619 &   *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(-36*gm(1,2)&
5620 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5621 &   *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*gm(3,3)*(54*gm(1,3)&
5622 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5623 &   +3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)&
5624 &   +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5625 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
5626 &   *dgm10(3,3))+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5627 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5628 &   +3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5629 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5630 &   +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
5631 &   **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5632 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/12.d0
5633    cm(10,20)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
5634 &   *dgm10(2,3))+3456*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
5635 &   *dgm10(2,3))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
5636 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+864*gm(2,3)&
5637 &   *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*gm(3,3)&
5638 &   *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
5639 &   +dgm01(1,3)*dgm10(3,3))+48*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
5640 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0
5641    cm(11,20)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
5642 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5643 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)&
5644 &   +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
5645 &   *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,3)&
5646 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)&
5647 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
5648    cm(12,20)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5649 &   *dgm01(2,3)*dgm10(2,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)&
5650 &   +dgm01(1,2)*dgm10(2,3))+32*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
5651 &   *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+576*gm(1,3)&
5652 &   *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(48*gm(1,3)&
5653 &   *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)&
5654 &   *dgm10(3,3)+48*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5655 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(6*gm(2,3)**3+30*gm(2,2)&
5656 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5657 &   +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)&
5658 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5659 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
5660 &   +dgm01(2,3)*dgm10(3,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5661 &   *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5662 &   *dgm10(3,3)))/96.d0
5663    cm(13,20)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5664 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+6*gm(3,3)*(54*gm(2,3)&
5665 &   **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))&
5666 &   +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)&
5667 &   +dgm01(1,3)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5668 &   *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(2,3)&
5669 &   **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
5670 &   *dgm10(3,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5671 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)&
5672 &   +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
5673 &   +dgm01(2,2)*dgm10(3,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5674 &   *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5675 &   *dgm10(3,3)))/18.d0
5676    cm(14,20)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
5677 &   *dgm10(2,3))+864*gm(1,3)*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
5678 &   **2*(3456*gm(1,3)*dgm01(2,3)*dgm10(2,3)+864*gm(1,2)*dgm01(3,3)&
5679 &   *dgm10(2,3)+864*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(864*dgm01(3,3)&
5680 &   *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)&
5681 &   +864*dgm01(1,2)*dgm10(3,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(1,3)&
5682 &   +dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,3)*gm(2,2)*dgm01(3,3)&
5683 &   *dgm10(3,3)+864*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5684 &   *dgm10(3,3))+gm(2,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(1,3)&
5685 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/144.d0
5686    cm(15,20)=(gm(3,3)*(2304*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
5687 &   *dgm10(2,3))+288*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)&
5688 &   *dgm10(3,3)+3456*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5689 &   *dgm10(3,3))+3456*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5690 &   *dgm10(3,3))))/576.d0
5691    cm(16,20)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)&
5692 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
5693 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/2880.d0
5694    cm(17,20)=(2304*gm(2,3)**3*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5695 &   *dgm10(3,3))+gm(2,3)**2*(2592*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
5696 &   *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)&
5697 &   *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
5698 &   +gm(3,3)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)&
5699 &   +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(2,3)&
5700 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3456*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
5701 &   +dgm01(2,3)*dgm10(3,3))))/288.d0
5702    cm(18,20)=(32*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5703 &   *dgm10(2,3)+24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)&
5704 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+36*(6*gm(2,3)**3+30*gm(2,2)&
5705 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
5706 &   +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
5707 &   +dgm01(2,3)*dgm10(3,3)))/144.d0
5708    cm(19,20)=2*gm(3,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5709 &   +3*gm(2,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(2,3)*(3*dgm01(3,3)&
5710 &   *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))&
5711 &   +9*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+15*gm(2,3)&
5712 &   *gm(3,3)*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
5713 &   +dgm01(2,3)*dgm10(3,3)))
5714    cm(20,20)=(gm(3,3)*(4608*gm(3,3)**2*dgm01(2,3)*dgm10(2,3)+288*(12*gm(2,3)&
5715 &   **2+24*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+6912*gm(2,3)*gm(3,3)&
5716 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))/576.d0
5717    cm(21,20)=gm(3,3)**2*(6*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
5718 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5719    cm(1,21)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)&
5720 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/36.d0
5721    cm(2,21)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5722 &   **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
5723 &   +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5724 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
5725 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)&
5726 &   +dgm01(2,2)*dgm10(3,3)))/36.d0
5727    cm(3,21)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5728 &   *dgm10(3,3)+4320*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
5729 &   *dgm10(3,3))+240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
5730 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/1440.d0
5731    cm(4,21)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5732 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*gm(3,3)*(54*gm(1,3)&
5733 &   **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
5734 &   +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5735 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5736 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)&
5737 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
5738    cm(5,21)=(240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)&
5739 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)&
5740 &   *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))&
5741 &   /2880.d0
5742    cm(6,21)=(240*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5743 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
5744 &   *dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)&
5745 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/2880.d0
5746    cm(7,21)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
5747 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5748 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)&
5749 &   +dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)&
5750 &   *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5751 &   *dgm10(3,3)))/36.d0
5752    cm(8,21)=(80*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5753 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+1440*gm(2,3)&
5754 &   *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2880*gm(1,3)&
5755 &   *gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+160*gm(3,3)&
5756 &   *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)&
5757 &   +dgm01(1,3)*dgm10(3,3))+80*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
5758 &   *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0
5759    cm(9,21)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5760 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)&
5761 &   -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))&
5762 &   +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5763 &   *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)&
5764 &   *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5765 &   *dgm10(3,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5766 &   -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5767 &   *dgm10(3,3)))/12.d0
5768    cm(10,21)=(gm(3,3)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5769 &   *dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
5770 &   *dgm10(3,3))+8640*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5771 &   *dgm10(3,3))))/1440.d0
5772    cm(11,21)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
5773 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+240*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5774 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)&
5775 &   +dgm01(2,2)*dgm10(3,3)))/2880.d0
5776    cm(12,21)=(80*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5777 &   **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+2880*gm(2,3)*gm(3,3)&
5778 &   **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+80*gm(3,3)&
5779 &   *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5780 &   *dgm10(3,3))+1440*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5781 &   *dgm10(3,3))+160*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5782 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0
5783    cm(13,21)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5784 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(2,3)**3-54*gm(2,2)&
5785 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
5786 &   +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)&
5787 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5788 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)&
5789 &   +dgm01(2,3)*dgm10(3,3)))/18.d0
5790    cm(14,21)=(gm(3,3)*(240*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5791 &   *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)&
5792 &   +dgm01(1,2)*dgm10(3,3))+4320*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)&
5793 &   +dgm01(1,3)*dgm10(3,3))+4320*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)&
5794 &   +dgm01(2,3)*dgm10(3,3))))/720.d0
5795    cm(15,21)=gm(3,3)**2*(6*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
5796 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
5797    cm(16,21)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)&
5798 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0
5799    cm(17,21)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5800 &   *dgm10(3,3)+4320*gm(2,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5801 &   *dgm10(3,3))+240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5802 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/1440.d0
5803    cm(18,21)=(240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)&
5804 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+160*(90*gm(2,3)**3-54*gm(2,2)&
5805 &   *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))&
5806 &   /2880.d0
5807    cm(19,21)=(gm(3,3)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5808 &   *dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
5809 &   *dgm10(3,3))+8640*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5810 &   *dgm10(3,3))))/1440.d0
5811    cm(20,21)=gm(3,3)**2*(6*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
5812 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5813    cm(21,21)=2*gm(3,3)**3*dgm01(3,3)*dgm10(3,3)
5814  end if
5815 !
5816 !contraction to output scalar
5817 !
5818  e2nl=0.d0
5819  do jj=1,((rank+3)*(rank+4))/2
5820    tmp(:)=0.d0
5821    do ii=1,((rank+3)*(rank+4))/2
5822      tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj)
5823    end do
5824    e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj)
5825  end do
5826  e2nl=0.25d0*e2nl
5827 
5828  ABI_DEALLOCATE(cm)
5829 
5830 end subroutine contstr25a

TABLE OF CONTENTS

ABINIT/contstr25a [ Functions ]