Table of Contents Sourcefiles Index Directories Functions Modules Programs Structures Types

TABLE OF CONTENTS

• ABINIT/contstr23

---

ABINIT/contstr23 [ Functions ]

[ Top ] [ Functions ]

NAME

 contstr23

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

 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 contstr23(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 'contstr23'
  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+1)*(rank+2))/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+1)*(mrank+2))/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==0)then
 115    cm(1,1)=d2gm(1,1)
 116    cm(1,2)=d2gm(2,2)
 117    cm(1,3)=d2gm(3,3)
 118    cm(1,4)=2*d2gm(2,3)
 119    cm(1,5)=2*d2gm(1,3)
 120    cm(1,6)=2*d2gm(1,2)
 121  elseif(rank==1)then
 122    cm(1,1)=2*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1)
 123    cm(2,1)=dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
 124 &   *d2gm(1,1)
 125    cm(3,1)=dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)&
 126 &   *d2gm(1,1)
 127    cm(1,2)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
 128 &   *dgm10(2,2)+2*gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2)
 129    cm(2,2)=3*dgm01(2,2)*dgm10(1,2)+3*dgm01(1,2)*dgm10(2,2)+2*gm(2,2)&
 130 &   *d2gm(1,2)+gm(1,2)*d2gm(2,2)
 131    cm(3,2)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
 132 &   *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+2*gm(2,3)*d2gm(1,2)+gm(1,3)&
 133 &   *d2gm(2,2)
 134    cm(1,3)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
 135 &   *dgm10(3,3)+2*gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3)
 136    cm(2,3)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
 137 &   *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(2,3)*d2gm(1,3)+gm(1,2)&
 138 &   *d2gm(3,3)
 139    cm(3,3)=3*dgm01(3,3)*dgm10(1,3)+3*dgm01(1,3)*dgm10(3,3)+2*gm(3,3)&
 140 &   *d2gm(1,3)+gm(1,3)*d2gm(3,3)
 141    cm(1,4)=2*(dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
 142 &   *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(1,3)*d2gm(1,2)+gm(1,2)*d2gm(1,3)&
 143 &   +gm(1,1)*d2gm(2,3))
 144    cm(2,4)=2*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
 145 &   *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(2,2)&
 146 &   *d2gm(1,3)+gm(1,2)*d2gm(2,3))
 147    cm(3,4)=2*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
 148 &   *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2)+gm(2,3)*d2gm(1,3)&
 149 &   +gm(1,3)*d2gm(2,3))
 150    cm(1,5)=3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)+gm(1,3)&
 151 &   *d2gm(1,1)+2*gm(1,1)*d2gm(1,3)
 152    cm(2,5)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
 153 &   *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,2)&
 154 &   *d2gm(1,3)
 155    cm(3,5)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
 156 &   *dgm10(3,3)+gm(3,3)*d2gm(1,1)+2*gm(1,3)*d2gm(1,3)
 157    cm(1,6)=3*dgm01(1,2)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,2)+gm(1,2)&
 158 &   *d2gm(1,1)+2*gm(1,1)*d2gm(1,2)
 159    cm(2,6)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
 160 &   *dgm10(2,2)+gm(2,2)*d2gm(1,1)+2*gm(1,2)*d2gm(1,2)
 161    cm(3,6)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
 162 &   *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,3)&
 163 &   *d2gm(1,2)
 164    cm(1,7)=dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)&
 165 &   *d2gm(2,2)
 166    cm(2,7)=2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2)
 167    cm(3,7)=dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)&
 168 &   *d2gm(2,2)
 169    cm(1,8)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
 170 &   *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)&
 171 &   *d2gm(3,3)
 172    cm(2,8)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
 173 &   *dgm10(3,3)+2*gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3)
 174    cm(3,8)=3*dgm01(3,3)*dgm10(2,3)+3*dgm01(2,3)*dgm10(3,3)+2*gm(3,3)&
 175 &   *d2gm(2,3)+gm(2,3)*d2gm(3,3)
 176    cm(1,9)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
 177 &   *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(1,3)*d2gm(2,2)+2*gm(1,2)&
 178 &   *d2gm(2,3)
 179    cm(2,9)=3*dgm01(2,3)*dgm10(2,2)+3*dgm01(2,2)*dgm10(2,3)+gm(2,3)&
 180 &   *d2gm(2,2)+2*gm(2,2)*d2gm(2,3)
 181    cm(3,9)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
 182 &   *dgm10(3,3)+gm(3,3)*d2gm(2,2)+2*gm(2,3)*d2gm(2,3)
 183    cm(1,10)=dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)&
 184 &   *d2gm(3,3)
 185    cm(2,10)=dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)&
 186 &   *d2gm(3,3)
 187    cm(3,10)=2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3)
 188  elseif(rank==2)then
 189    cm(1,1)=gm(1,1)*(4*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1))
 190    cm(2,1)=3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 191 &   -0.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
 192 &   +1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)&
 193 &   *d2gm(1,1))
 194    cm(3,1)=3*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 195 &   -0.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
 196 &   +1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)&
 197 &   *d2gm(1,1))
 198    cm(4,1)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)&
 199 &   *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,1)+dgm01(1,1)*(-2*gm(2,3)&
 200 &   *dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)&
 201 &   *dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,1))&
 202 &   /2.d0
 203    cm(5,1)=2*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 204 &   +gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))
 205    cm(6,1)=2*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 206 &   +gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))
 207    cm(1,2)=1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)&
 208 &   -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)&
 209 &   *dgm10(1,2)+4*gm(1,1)*d2gm(1,2))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)&
 210 &   +8*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)&
 211 &   *d2gm(2,2))
 212    cm(2,2)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*(dgm01(2,2)&
 213 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*d2gm(1,1)+1.5d0*gm(1,2)&
 214 &   **2*d2gm(2,2)+gm(2,2)*(1.5d0*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)&
 215 &   *dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+4*gm(1,2)*d2gm(1,2)-0.5d0*gm(1,1)&
 216 &   *d2gm(2,2))
 217    cm(3,2)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
 218 &   *dgm01(3,3))*dgm10(1,1)+4*(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)&
 219 &   +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)&
 220 &   *dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(2,2)&
 221 &   +dgm01(2,2)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)&
 222 &   *dgm10(3,3))+4*dgm01(1,2)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)&
 223 &   +6*gm(1,3)*dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+dgm01(1,1)*(-2*gm(3,3)&
 224 &   *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)&
 225 &   **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
 226 &   *gm(3,3))*d2gm(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(2,2))&
 227 &   /4.d0
 228    cm(4,2)=9*gm(1,3)*dgm01(2,2)*dgm10(1,2)+2*gm(1,2)*dgm01(2,3)&
 229 &   *dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,3)*dgm01(1,2)&
 230 &   *dgm10(2,2)+3*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)&
 231 &   *dgm10(2,2)+2*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)&
 232 &   *dgm10(2,3)+gm(2,2)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
 233 &   +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2))&
 234 &   +3*gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(1*dgm01(2,2)*dgm10(1,1)&
 235 &   +4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)&
 236 &   +2*gm(1,2)*d2gm(1,2)-gm(1,1)*d2gm(2,2))
 237    cm(5,2)=gm(1,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
 238 &   +4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+2*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
 239 &   +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+2*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
 240 &   +2*gm(1,1)*dgm01(2,2)*dgm10(1,3)+gm(1,3)*dgm01(1,1)*dgm10(2,2)&
 241 &   +2*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
 242 &   +6*gm(1,1)*dgm01(1,2)*dgm10(2,3)-gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
 243 &   +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,2)&
 244 &   +gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
 245 &   *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,1)*gm(1,3)*d2gm(2,2)
 246    cm(6,2)=8*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 247 &   +2*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(8*dgm01(1,2)*dgm10(1,1)+8*dgm01(1,1)&
 248 &   *dgm10(1,2)+2*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)&
 249 &   *(4*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+4*dgm01(1,1)&
 250 &   *dgm10(2,2)+2*gm(1,1)*d2gm(2,2))
 251    cm(1,3)=1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)&
 252 &   -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)&
 253 &   *dgm10(1,3)+4*gm(1,1)*d2gm(1,3))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)&
 254 &   +8*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)&
 255 &   *d2gm(3,3))
 256    cm(2,3)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
 257 &   *dgm01(3,3))*dgm10(1,1)+4*(6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)&
 258 &   -2*gm(1,3)*dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,3)+dgm01(3,3)&
 259 &   *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))&
 260 &   +4*dgm01(1,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)&
 261 &   *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)&
 262 &   *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(1,1)*(-2*gm(3,3)&
 263 &   *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)&
 264 &   **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
 265 &   *gm(2,3))*d2gm(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))&
 266 &   /4.d0
 267    cm(3,3)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+7*gm(1,3)*(dgm01(3,3)&
 268 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*d2gm(1,1)+1.5d0*gm(1,3)&
 269 &   **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)&
 270 &   *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+4*gm(1,3)*d2gm(1,3)-0.5d0*gm(1,1)&
 271 &   *d2gm(3,3))
 272    cm(4,3)=3*gm(1,3)*dgm01(3,3)*dgm10(1,2)+2*gm(1,3)*dgm01(2,3)&
 273 &   *dgm10(1,3)+9*gm(1,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(1,3)&
 274 &   *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+3*gm(1,3)*dgm01(1,2)&
 275 &   *dgm10(3,3)+9*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)&
 276 &   *dgm10(3,3)+gm(3,3)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
 277 &   +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)&
 278 &   +6*gm(1,2)*d2gm(1,3))+3*gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)&
 279 &   *dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)*dgm10(3,3)+2*gm(1,3)&
 280 &   *d2gm(1,3)-gm(1,1)*d2gm(3,3))
 281    cm(5,3)=8*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 282 &   +2*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(8*dgm01(1,3)*dgm10(1,1)+8*dgm01(1,1)&
 283 &   *dgm10(1,3)+2*gm(1,3)*d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+gm(1,3)&
 284 &   *(4*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+4*dgm01(1,1)&
 285 &   *dgm10(3,3)+2*gm(1,1)*d2gm(3,3))
 286    cm(6,3)=3*gm(1,3)*dgm01(2,3)*dgm10(1,1)+gm(1,2)*dgm01(3,3)*dgm10(1,1)&
 287 &   +2*gm(1,3)*dgm01(1,3)*dgm10(1,2)+2*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
 288 &   +2*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
 289 &   +6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)*dgm10(2,3)&
 290 &   +6*gm(1,1)*dgm01(1,3)*dgm10(2,3)+gm(1,2)*dgm01(1,1)*dgm10(3,3)&
 291 &   +2*gm(1,1)*dgm01(1,2)*dgm10(3,3)-gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
 292 &   +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,3)&
 293 &   +gm(2,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
 294 &   *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+2*gm(1,1)*gm(1,2)*d2gm(3,3)
 295    cm(1,4)=7*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)&
 296 &   *dgm10(1,1)+8*gm(1,1)*dgm01(1,3)*dgm10(1,2)+7*gm(1,2)*dgm01(1,1)&
 297 &   *dgm10(1,3)+8*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)&
 298 &   *dgm10(2,3)+gm(2,3)*(-2*dgm01(1,1)*dgm10(1,1)-gm(1,1)*d2gm(1,1))&
 299 &   +gm(1,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
 300 &   *d2gm(1,1)+4*gm(1,1)*d2gm(1,2))+4*gm(1,1)*gm(1,2)*d2gm(1,3)+2*gm(1,1)&
 301 &   **2*d2gm(2,3)
 302    cm(2,4)=-2*gm(1,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)&
 303 &   *dgm10(1,2)+4*gm(1,2)*dgm01(2,2)*dgm10(1,3)-2*gm(1,3)*dgm01(1,2)&
 304 &   *dgm10(2,2)+4*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)&
 305 &   *dgm10(2,2)+12*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)&
 306 &   *dgm10(2,3)+gm(2,3)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
 307 &   +2*dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)+6*gm(1,2)*d2gm(1,2))&
 308 &   +3*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)&
 309 &   *dgm10(1,2)+2*dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3)-2*gm(1,3)&
 310 &   *d2gm(1,2)+4*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3))
 311    cm(3,4)=4*gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,3)&
 312 &   *dgm10(1,3)-2*gm(1,2)*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)&
 313 &   *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+4*gm(1,3)*dgm01(1,2)&
 314 &   *dgm10(3,3)-2*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)&
 315 &   *dgm10(3,3)+gm(2,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
 316 &   +2*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3))+3*gm(1,3)**2*d2gm(2,3)&
 317 &   +gm(3,3)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
 318 &   *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)+4*gm(1,3)&
 319 &   *d2gm(1,2)-2*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3))
 320    cm(4,4)=3*gm(2,2)*dgm01(3,3)*dgm10(1,1)+8*gm(1,3)*dgm01(2,3)&
 321 &   *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(2,2)*dgm01(1,3)&
 322 &   *dgm10(1,3)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+8*gm(1,2)*dgm01(2,3)&
 323 &   *dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)&
 324 &   *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)-4*gm(1,1)*dgm01(2,3)&
 325 &   *dgm10(2,3)+3*gm(2,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,2)*dgm01(1,2)&
 326 &   *dgm10(3,3)+gm(2,3)**2*d2gm(1,1)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)&
 327 &   +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)&
 328 &   +6*gm(1,2)*d2gm(1,2))+6*gm(1,3)*gm(2,2)*d2gm(1,3)+6*gm(1,2)*gm(1,3)&
 329 &   *d2gm(2,3)+gm(2,3)*(0*dgm01(2,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,2)&
 330 &   +4*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)*d2gm(1,2)&
 331 &   +2*gm(1,2)*d2gm(1,3)-2*gm(1,1)*d2gm(2,3))
 332    cm(5,4)=5*gm(1,3)*dgm01(2,3)*dgm10(1,1)+3*gm(1,2)*dgm01(3,3)&
 333 &   *dgm10(1,1)+6*gm(1,3)*dgm01(1,3)*dgm10(1,2)+6*gm(1,1)*dgm01(3,3)&
 334 &   *dgm10(1,2)+6*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)&
 335 &   *dgm10(1,3)+10*gm(1,1)*dgm01(2,3)*dgm10(1,3)+5*gm(1,3)*dgm01(1,1)&
 336 &   *dgm10(2,3)+10*gm(1,1)*dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)&
 337 &   *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)**2*d2gm(1,2)&
 338 &   +gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
 339 &   *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)*gm(1,3)*d2gm(1,3)+gm(2,3)&
 340 &   *(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1)&
 341 &   +6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,3)*d2gm(2,3)
 342    cm(6,4)=3*gm(1,3)*dgm01(2,2)*dgm10(1,1)+5*gm(1,2)*dgm01(2,3)&
 343 &   *dgm10(1,1)+4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+6*gm(1,2)*dgm01(1,3)&
 344 &   *dgm10(1,2)+10*gm(1,1)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(1,2)&
 345 &   *dgm10(1,3)+6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)&
 346 &   *dgm10(2,2)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+5*gm(1,2)*dgm01(1,1)&
 347 &   *dgm10(2,3)+10*gm(1,1)*dgm01(1,2)*dgm10(2,3)+2*gm(1,2)*gm(1,3)&
 348 &   *d2gm(1,2)+gm(2,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)&
 349 &   +gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)**2*d2gm(1,3)&
 350 &   +gm(2,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
 351 &   *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,2)*d2gm(2,3)
 352    cm(1,5)=gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))&
 353 &   +gm(1,1)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)+2*gm(1,1)&
 354 &   *d2gm(1,3))
 355    cm(2,5)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)&
 356 &   *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,2)*dgm01(1,1)&
 357 &   +12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(1,3)+dgm01(1,3)&
 358 &   *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))&
 359 &   +dgm01(1,1)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)&
 360 &   *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
 361 &   *gm(2,3))*d2gm(1,1)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(1,3))&
 362 &   /2.d0
 363    cm(3,5)=gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
 364 &   +2*dgm01(1,1)*dgm10(3,3))-gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
 365 &   *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(1*dgm01(1,3)*dgm10(1,1)&
 366 &   +dgm01(1,1)*dgm10(1,3)+2*gm(1,3)*d2gm(1,1)-gm(1,1)*d2gm(1,3))
 367    cm(4,5)=(3*gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3)&
 368 &   +3*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)&
 369 &   *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,3)&
 370 &   +dgm01(1,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
 371 &   *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(3*gm(3,3)*dgm10(1,2)&
 372 &   +gm(2,3)*dgm10(1,3)+gm(1,3)*dgm10(2,3)+3*gm(1,2)*dgm10(3,3))&
 373 &   +(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*d2gm(1,1)+(6*gm(1,2)*gm(1,3)&
 374 &   -2*gm(1,1)*gm(2,3))*d2gm(1,3)
 375    cm(5,5)=gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)&
 376 &   +3*dgm01(1,1)*dgm10(3,3))+gm(1,3)**2*d2gm(1,1)+gm(3,3)*(6*dgm01(1,1)&
 377 &   *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)*(6*dgm01(1,3)*dgm10(1,1)&
 378 &   +6*dgm01(1,1)*dgm10(1,3)+4*gm(1,1)*d2gm(1,3))
 379    cm(6,5)=5*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)&
 380 &   *dgm10(1,1)+4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+5*gm(1,2)*dgm01(1,1)&
 381 &   *dgm10(1,3)+4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)&
 382 &   *dgm10(2,3)+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
 383 &   +gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
 384 &   *d2gm(1,1))+4*gm(1,1)*gm(1,2)*d2gm(1,3)
 385    cm(1,6)=gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))&
 386 &   +gm(1,1)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)+2*gm(1,1)&
 387 &   *d2gm(1,2))
 388    cm(2,6)=gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
 389 &   +2*dgm01(1,1)*dgm10(2,2))-gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 390 &   *dgm10(2,2))+3*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(1*dgm01(1,2)*dgm10(1,1)&
 391 &   +dgm01(1,1)*dgm10(1,2)+2*gm(1,2)*d2gm(1,1)-gm(1,1)*d2gm(1,2))
 392    cm(3,6)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)&
 393 &   *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(3,3)*dgm01(1,1)&
 394 &   +12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(1,2)+dgm01(1,2)&
 395 &   *(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))&
 396 &   +dgm01(1,1)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)&
 397 &   *dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
 398 &   *gm(3,3))*d2gm(1,1)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(1,2))&
 399 &   /2.d0
 400    cm(4,6)=(1*gm(2,3)*dgm01(1,2)+3*gm(2,2)*dgm01(1,3)+3*gm(1,3)&
 401 &   *dgm01(2,2)+gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)&
 402 &   +6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))&
 403 &   *dgm10(1,2)+dgm01(1,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)&
 404 &   +6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(1*gm(2,3)&
 405 &   *dgm10(1,2)+3*gm(2,2)*dgm10(1,3)+3*gm(1,3)*dgm10(2,2)+gm(1,2)&
 406 &   *dgm10(2,3))+(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*d2gm(1,1)+(6*gm(1,2)&
 407 &   *gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,2)
 408    cm(5,6)=gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)*dgm10(1,1)&
 409 &   +4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+gm(1,2)*dgm01(1,1)*dgm10(1,3)&
 410 &   +4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)*dgm10(2,3)&
 411 &   +gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)&
 412 &   *(5*dgm01(1,2)*dgm10(1,1)+5*dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1)&
 413 &   +4*gm(1,1)*d2gm(1,2))
 414    cm(6,6)=gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)&
 415 &   +3*dgm01(1,1)*dgm10(2,2))+gm(1,2)**2*d2gm(1,1)+gm(2,2)*(6*dgm01(1,1)&
 416 &   *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,2)*(6*dgm01(1,2)*dgm10(1,1)&
 417 &   +6*dgm01(1,1)*dgm10(1,2)+4*gm(1,1)*d2gm(1,2))
 418    cm(1,7)=gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 419 &   +3*gm(1,2)**2*d2gm(1,2)-gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 420 &   *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)&
 421 &   +12*dgm01(1,2)*dgm10(1,2)+2*dgm01(1,1)*dgm10(2,2)+2*gm(1,1)*d2gm(2,2))
 422    cm(2,7)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)**2*d2gm(1,2)&
 423 &   +gm(2,2)*(6*dgm01(2,2)*dgm10(1,2)+6*dgm01(1,2)*dgm10(2,2)+2*gm(1,2)&
 424 &   *d2gm(2,2))
 425    cm(3,7)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
 426 &   *dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)&
 427 &   +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(2,2)+dgm01(2,2)&
 428 &   *(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)&
 429 &   -2*gm(1,2)*dgm10(3,3))+dgm01(1,2)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)&
 430 &   *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
 431 &   *d2gm(1,2)+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(2,2))/2.d0
 432    cm(4,7)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*dgm01(2,3)*dgm10(2,2)&
 433 &   +gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(5*dgm01(2,2)*dgm10(1,2)&
 434 &   +5*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)*d2gm(1,2)+gm(1,2)*d2gm(2,2))&
 435 &   +gm(2,2)*(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
 436 &   *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2))
 437    cm(5,7)=-gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)&
 438 &   *dgm10(1,2)+gm(1,2)*dgm01(2,2)*dgm10(1,3)-gm(1,3)*dgm01(1,2)&
 439 &   *dgm10(2,2)+gm(1,2)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)*dgm01(2,3)&
 440 &   *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+3*gm(1,1)*dgm01(2,2)&
 441 &   *dgm10(2,3)-2*gm(2,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)&
 442 &   +gm(1,3)*d2gm(1,2))+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)&
 443 &   *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)&
 444 &   +6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))
 445    cm(6,7)=6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+6*gm(1,2)*(dgm01(2,2)&
 446 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(1,2)**2*d2gm(2,2)+gm(2,2)&
 447 &   *(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
 448 &   *dgm10(2,2)+4*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))
 449    cm(1,8)=4*gm(1,3)*dgm01(2,3)*dgm10(1,1)+2*gm(1,2)*dgm01(3,3)&
 450 &   *dgm10(1,1)+12*gm(1,3)*dgm01(1,3)*dgm10(1,2)+gm(1,1)*dgm01(3,3)&
 451 &   *dgm10(1,2)+12*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)*dgm01(1,3)&
 452 &   *dgm10(1,3)+2*gm(1,1)*dgm01(2,3)*dgm10(1,3)+4*gm(1,3)*dgm01(1,1)&
 453 &   *dgm10(2,3)+2*gm(1,1)*dgm01(1,3)*dgm10(2,3)+2*gm(1,2)*dgm01(1,1)&
 454 &   *dgm10(3,3)+gm(1,1)*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)&
 455 &   -gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
 456 &   *d2gm(1,2))+6*gm(1,2)*gm(1,3)*d2gm(1,3)-2*gm(2,3)*(dgm01(1,3)&
 457 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+4*gm(1,1)&
 458 &   *gm(1,3)*d2gm(2,3)+2*gm(1,1)*gm(1,2)*d2gm(3,3)
 459    cm(2,8)=gm(2,2)*dgm01(3,3)*dgm10(1,2)+2*gm(2,2)*dgm01(2,3)*dgm10(1,3)&
 460 &   -2*gm(1,3)*dgm01(2,3)*dgm10(2,2)+2*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
 461 &   +2*gm(2,2)*dgm01(1,3)*dgm10(2,3)-2*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
 462 &   +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+gm(2,2)*dgm01(1,2)*dgm10(3,3)&
 463 &   +2*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,2)-gm(3,3)&
 464 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))&
 465 &   -2*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)&
 466 &   +4*dgm01(2,2)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
 467 &   *dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+2*gm(1,2)&
 468 &   *gm(2,2)*d2gm(3,3)
 469    cm(3,8)=7*gm(1,3)*dgm01(3,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,3)&
 470 &   *dgm10(3,3)-2*gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,2)&
 471 &   +gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)+8*dgm01(2,3)*dgm10(1,3)+8*dgm01(1,3)&
 472 &   *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+4*gm(1,3)&
 473 &   *d2gm(2,3)-gm(1,2)*d2gm(3,3))+gm(2,3)*(7*dgm01(3,3)*dgm10(1,3)&
 474 &   +7*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*d2gm(3,3))
 475    cm(4,8)=9*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)&
 476 &   *dgm10(2,2)+4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+7*gm(1,2)*dgm01(3,3)&
 477 &   *dgm10(2,3)+9*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)&
 478 &   *dgm10(3,3)+7*gm(1,2)*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,3)&
 479 &   +gm(3,3)*(10*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)&
 480 &   *dgm10(2,2)+10*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)+6*gm(2,2)&
 481 &   *d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+3*gm(1,3)*gm(2,2)*d2gm(3,3)+gm(2,3)&
 482 &   *(5*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
 483 &   *dgm10(2,3)+5*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)&
 484 &   *d2gm(3,3))
 485    cm(5,8)=5*gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)&
 486 &   *dgm10(1,3)+7*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
 487 &   *dgm10(2,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(1,2)&
 488 &   *dgm10(3,3)+7*gm(1,2)*dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)&
 489 &   *dgm10(3,3)+2*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,1)&
 490 &   +10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)&
 491 &   *dgm10(2,3)+4*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
 492 &   *d2gm(2,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)&
 493 &   +4*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+2*gm(1,3)*d2gm(1,3)&
 494 &   +3*gm(1,1)*d2gm(3,3))
 495    cm(6,8)=-4*gm(3,3)*dgm01(1,2)*dgm10(1,2)+8*gm(1,3)*dgm01(2,3)&
 496 &   *dgm10(1,2)+0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)&
 497 &   *dgm10(1,3)+4*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
 498 &   *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)&
 499 &   *dgm10(2,3)+4*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)&
 500 &   *dgm10(2,3)+0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)&
 501 &   *dgm10(3,3)-2*gm(1,2)*gm(3,3)*d2gm(1,2)+2*gm(1,2)*gm(1,3)*d2gm(2,3)&
 502 &   +gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,2)+8*dgm01(1,2)&
 503 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+2*gm(1,2)&
 504 &   *d2gm(1,3)+6*gm(1,1)*d2gm(2,3))+gm(1,2)**2*d2gm(3,3)+gm(2,2)&
 505 &   *(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)&
 506 &   *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
 507    cm(1,9)=2*gm(1,3)*dgm01(2,2)*dgm10(1,1)+4*gm(1,2)*dgm01(2,3)&
 508 &   *dgm10(1,1)+12*gm(1,3)*dgm01(1,2)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)&
 509 &   *dgm10(1,2)+2*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,2)&
 510 &   *dgm10(1,3)+gm(1,1)*dgm01(2,2)*dgm10(1,3)+2*gm(1,3)*dgm01(1,1)&
 511 &   *dgm10(2,2)+gm(1,1)*dgm01(1,3)*dgm10(2,2)+4*gm(1,2)*dgm01(1,1)&
 512 &   *dgm10(2,3)+2*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*gm(1,3)&
 513 &   *d2gm(1,2)-2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
 514 &   +gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)-gm(2,2)*(dgm01(1,3)&
 515 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+2*gm(1,1)&
 516 &   *gm(1,3)*d2gm(2,2)+4*gm(1,1)*gm(1,2)*d2gm(2,3)
 517    cm(2,9)=-2*gm(1,3)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*dgm01(2,3)&
 518 &   *dgm10(2,2)+7*gm(1,2)*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)**2*d2gm(1,3)&
 519 &   +gm(2,3)*(7*dgm01(2,2)*dgm10(1,2)+7*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)&
 520 &   *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(8*dgm01(2,3)*dgm10(1,2)&
 521 &   +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+8*dgm01(1,2)&
 522 &   *dgm10(2,3)-gm(1,3)*d2gm(2,2)+4*gm(1,2)*d2gm(2,3))
 523    cm(3,9)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(3,3)&
 524 &   *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-2*gm(1,2)*dgm01(3,3)&
 525 &   *dgm10(2,3)-gm(2,2)*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)*dgm01(2,2)&
 526 &   *dgm10(3,3)-2*gm(1,2)*dgm01(2,3)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,3)&
 527 &   +gm(3,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
 528 &   *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)-gm(2,2)&
 529 &   *d2gm(1,3)+2*gm(1,3)*d2gm(2,2)-2*gm(1,2)*d2gm(2,3))+gm(2,3)*(4*dgm01(3,3)&
 530 &   *dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)&
 531 &   +4*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3))
 532    cm(4,9)=6*gm(2,2)*dgm01(3,3)*dgm10(1,2)+10*gm(2,2)*dgm01(2,3)&
 533 &   *dgm10(1,3)+7*gm(1,3)*dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*dgm01(3,3)&
 534 &   *dgm10(2,2)+10*gm(2,2)*dgm01(1,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,2)&
 535 &   *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*dgm01(1,2)&
 536 &   *dgm10(3,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,2)&
 537 &   +gm(3,3)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)&
 538 &   *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+6*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)&
 539 &   *(6*dgm01(2,3)*dgm10(1,2)+5*dgm01(2,2)*dgm10(1,3)+5*dgm01(1,3)&
 540 &   *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+gm(1,3)&
 541 &   *d2gm(2,2)+2*gm(1,2)*d2gm(2,3))
 542    cm(5,9)=4*gm(1,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(3,3)&
 543 &   *dgm10(1,2)-4*gm(2,2)*dgm01(1,3)*dgm10(1,3)+0*gm(1,3)*dgm01(2,2)&
 544 &   *dgm10(1,3)+8*gm(1,2)*dgm01(2,3)*dgm10(1,3)+0*gm(1,3)*dgm01(1,3)&
 545 &   *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+4*gm(1,3)*dgm01(1,2)&
 546 &   *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)&
 547 &   *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)&
 548 &   *dgm10(3,3)-2*gm(1,3)*gm(2,2)*d2gm(1,3)+gm(1,3)**2*d2gm(2,2)&
 549 &   +gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
 550 &   *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+2*gm(1,2)&
 551 &   *gm(1,3)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)&
 552 &   *dgm10(1,2)+8*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)&
 553 &   *d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3))
 554    cm(6,9)=7*gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)&
 555 &   *dgm10(1,2)+5*gm(1,2)*dgm01(2,2)*dgm10(1,3)+7*gm(1,3)*dgm01(1,2)&
 556 &   *dgm10(2,2)+5*gm(1,2)*dgm01(1,3)*dgm10(2,2)+9*gm(1,1)*dgm01(2,3)&
 557 &   *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+9*gm(1,1)*dgm01(2,2)&
 558 &   *dgm10(2,3)+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)&
 559 &   +4*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+2*gm(1,2)*d2gm(1,2)&
 560 &   +3*gm(1,1)*d2gm(2,2))+2*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(6*dgm01(2,3)&
 561 &   *dgm10(1,1)+10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)&
 562 &   +6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+4*gm(1,2)*d2gm(1,3)&
 563 &   +6*gm(1,1)*d2gm(2,3))
 564    cm(1,10)=gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 565 &   +3*gm(1,3)**2*d2gm(1,3)-gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 566 &   *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)&
 567 &   +12*dgm01(1,3)*dgm10(1,3)+2*dgm01(1,1)*dgm10(3,3)+2*gm(1,1)*d2gm(3,3))
 568    cm(2,10)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
 569 &   *dgm01(3,3))*dgm10(1,3)+dgm01(3,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)&
 570 &   *dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(6*gm(2,3)&
 571 &   *dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)*dgm01(2,2)+6*gm(1,2)&
 572 &   *dgm01(2,3))*dgm10(3,3)+dgm01(1,3)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)&
 573 &   *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
 574 &   *d2gm(1,3)+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(3,3))&
 575 &   /2.d0
 576    cm(3,10)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,3)&
 577 &   +gm(3,3)*(6*dgm01(3,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)&
 578 &   *d2gm(3,3))
 579    cm(4,10)=gm(1,3)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(2,3)*dgm10(3,3)&
 580 &   +6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)&
 581 &   +4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
 582 &   *dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)&
 583 &   *(5*dgm01(3,3)*dgm10(1,3)+5*dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
 584    cm(5,10)=6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+6*gm(1,3)*(dgm01(3,3)&
 585 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,3)**2*d2gm(3,3)+gm(3,3)&
 586 &   *(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)&
 587 &   *dgm10(3,3)+4*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
 588    cm(6,10)=gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)&
 589 &   *dgm10(1,3)-gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
 590 &   *dgm10(2,3)+3*gm(1,1)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(1,2)&
 591 &   *dgm10(3,3)-gm(1,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*dgm01(2,3)&
 592 &   *dgm10(3,3)-2*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)&
 593 &   +gm(1,2)*d2gm(1,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)&
 594 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)&
 595 &   +6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
 596    cm(1,11)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,2)&
 597 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2)&
 598 &   -0.5d0*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
 599 &   *d2gm(2,2))
 600    cm(2,11)=gm(2,2)*(4*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2))
 601    cm(3,11)=3*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
 602 &   -0.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
 603 &   +1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)-0.5d0*gm(2,2)&
 604 &   *d2gm(2,2))
 605    cm(4,11)=2*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
 606 &   +gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2))
 607    cm(5,11)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)&
 608 &   *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(2,2)+dgm01(2,2)*(6*gm(2,3)&
 609 &   *dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)&
 610 &   *dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(2,2))&
 611 &   /2.d0
 612    cm(6,11)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,2)&
 613 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))
 614    cm(1,12)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)&
 615 &   *dgm01(3,3))*dgm10(2,2)+dgm01(3,3)*(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)&
 616 &   *dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+4*(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)&
 617 &   *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,3)&
 618 &   +4*dgm01(2,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
 619 &   *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)&
 620 &   *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(2,2)*(-2*gm(3,3)&
 621 &   *dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)&
 622 &   **2-2*gm(1,1)*gm(3,3))*d2gm(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
 623 &   *gm(2,3))*d2gm(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))&
 624 &   /4.d0
 625    cm(2,12)=1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)&
 626 &   -0.5d0*gm(2,2)*d2gm(2,2))+gm(2,3)*(7*dgm01(2,3)*dgm10(2,2)+7*dgm01(2,2)&
 627 &   *dgm10(2,3)+4*gm(2,2)*d2gm(2,3))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)&
 628 &   +8*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)&
 629 &   *d2gm(3,3))
 630    cm(3,12)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+7*gm(2,3)*(dgm01(3,3)&
 631 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*d2gm(2,2)+1.5d0*gm(2,3)&
 632 &   **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)&
 633 &   *dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+4*gm(2,3)*d2gm(2,3)-0.5d0*gm(2,2)&
 634 &   *d2gm(3,3))
 635    cm(4,12)=8*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
 636 &   +2*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(8*dgm01(2,3)*dgm10(2,2)+8*dgm01(2,2)&
 637 &   *dgm10(2,3)+2*gm(2,3)*d2gm(2,2)+6*gm(2,2)*d2gm(2,3))+gm(2,3)&
 638 &   *(4*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+4*dgm01(2,2)&
 639 &   *dgm10(3,3)+2*gm(2,2)*d2gm(3,3))
 640    cm(5,12)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+gm(1,3)*dgm01(3,3)*dgm10(2,2)&
 641 &   +4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
 642 &   -gm(2,2)*dgm01(1,3)*dgm10(3,3)+gm(1,3)*dgm01(2,2)*dgm10(3,3)&
 643 &   +9*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)&
 644 &   +2*dgm01(2,2)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
 645 &   *dgm10(2,3)+2*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))-gm(1,3)&
 646 &   *gm(2,2)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)&
 647 &   *dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)&
 648 &   *d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
 649    cm(6,12)=2*gm(2,2)*dgm01(3,3)*dgm10(1,2)+6*gm(2,2)*dgm01(2,3)&
 650 &   *dgm10(1,3)+9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+gm(1,2)*dgm01(3,3)&
 651 &   *dgm10(2,2)+6*gm(2,2)*dgm01(1,3)*dgm10(2,3)+9*gm(1,3)*dgm01(2,2)&
 652 &   *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)*dgm01(1,2)&
 653 &   *dgm10(3,3)+gm(1,2)*dgm01(2,2)*dgm10(3,3)-gm(3,3)*(dgm01(2,2)&
 654 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+6*gm(1,3)&
 655 &   *gm(2,2)*d2gm(2,3)+gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
 656 &   *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)&
 657 &   *d2gm(2,2)+2*gm(1,2)*d2gm(2,3))+2*gm(1,2)*gm(2,2)*d2gm(3,3)
 658    cm(1,13)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)&
 659 &   *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,2)+dgm01(2,3)*(-2*gm(2,2)&
 660 &   *dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+(-2*gm(2,2)&
 661 &   *dgm01(1,1)+12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(2,3)&
 662 &   +dgm01(2,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
 663 &   *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
 664 &   *gm(2,3))*d2gm(2,2)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(2,3))&
 665 &   /2.d0
 666    cm(2,13)=gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2))&
 667 &   +gm(2,2)*(6*dgm01(2,3)*dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)&
 668 &   *d2gm(2,3))
 669    cm(3,13)=gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
 670 &   +2*dgm01(2,2)*dgm10(3,3))-gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
 671 &   *dgm10(3,3))+3*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(1*dgm01(2,3)*dgm10(2,2)&
 672 &   +dgm01(2,2)*dgm10(2,3)+2*gm(2,3)*d2gm(2,2)-gm(2,2)*d2gm(2,3))
 673    cm(4,13)=gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)&
 674 &   +3*dgm01(2,2)*dgm10(3,3))+gm(2,3)**2*d2gm(2,2)+gm(3,3)*(6*dgm01(2,2)&
 675 &   *dgm10(2,2)+3*gm(2,2)*d2gm(2,2))+gm(2,3)*(6*dgm01(2,3)*dgm10(2,2)&
 676 &   +6*dgm01(2,2)*dgm10(2,3)+4*gm(2,2)*d2gm(2,3))
 677    cm(5,13)=-2*gm(2,2)*dgm01(2,3)*dgm10(1,3)-gm(1,3)*dgm01(2,3)&
 678 &   *dgm10(2,2)+3*gm(1,2)*dgm01(3,3)*dgm10(2,2)-2*gm(2,2)*dgm01(1,3)&
 679 &   *dgm10(2,3)-gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)&
 680 &   *dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(3,3)*(dgm01(2,2)&
 681 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-2*gm(1,3)&
 682 &   *gm(2,2)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
 683 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+gm(1,3)&
 684 &   *d2gm(2,2)+6*gm(1,2)*d2gm(2,3))
 685    cm(6,13)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+5*gm(1,2)*dgm01(2,3)&
 686 &   *dgm10(2,2)+5*gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(dgm01(2,2)&
 687 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)&
 688 &   *(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
 689 &   *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+4*gm(1,2)&
 690 &   *d2gm(2,3))
 691    cm(1,14)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)&
 692 &   *dgm01(3,3))*dgm10(2,3)+dgm01(3,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)&
 693 &   *dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,3)&
 694 &   *dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)&
 695 &   *dgm01(2,3))*dgm10(3,3)+dgm01(2,3)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)&
 696 &   *dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
 697 &   *d2gm(2,3)+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(3,3))/2.d0
 698    cm(2,14)=gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
 699 &   +3*gm(2,3)**2*d2gm(2,3)-gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
 700 &   *dgm10(2,3)+gm(2,2)*d2gm(2,3))+gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)&
 701 &   +12*dgm01(2,3)*dgm10(2,3)+2*dgm01(2,2)*dgm10(3,3)+2*gm(2,2)*d2gm(3,3))
 702    cm(3,14)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(2,3)&
 703 &   +gm(3,3)*(6*dgm01(3,3)*dgm10(2,3)+6*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)&
 704 &   *d2gm(3,3))
 705    cm(4,14)=6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+6*gm(2,3)*(dgm01(3,3)&
 706 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)**2*d2gm(3,3)+gm(3,3)&
 707 &   *(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)&
 708 &   *dgm10(3,3)+4*gm(2,3)*d2gm(2,3)+3*gm(2,2)*d2gm(3,3))
 709    cm(5,14)=5*gm(1,3)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(2,3)&
 710 &   *dgm10(3,3)+6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)&
 711 &   *dgm10(1,2)+4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
 712 &   *dgm10(3,3)+4*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)&
 713 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
 714    cm(6,14)=3*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)&
 715 &   *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-gm(1,2)*dgm01(3,3)&
 716 &   *dgm10(2,3)+3*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)&
 717 &   *dgm10(3,3)-gm(1,2)*dgm01(2,3)*dgm10(3,3)-2*gm(3,3)*(dgm01(2,3)&
 718 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(1,3)&
 719 &   *gm(2,2)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)&
 720 &   *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+6*gm(1,3)&
 721 &   *d2gm(2,3)+gm(1,2)*d2gm(3,3))
 722    cm(1,15)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)&
 723 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3)&
 724 &   -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
 725 &   *d2gm(3,3))
 726    cm(2,15)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)&
 727 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3)&
 728 &   -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)&
 729 &   *d2gm(3,3))
 730    cm(3,15)=gm(3,3)*(4*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3))
 731    cm(4,15)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
 732 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))
 733    cm(5,15)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
 734 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
 735    cm(6,15)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)&
 736 &   *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(3,3)+dgm01(3,3)*(-2*gm(3,3)&
 737 &   *dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)-2*gm(1,2)&
 738 &   *dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(3,3))&
 739 &   /2.d0
 740  elseif(rank==3)then
 741    cm(1,1)=gm(1,1)**2*(6*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1))
 742    cm(2,1)=9*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 743 &   *dgm10(1,2))+gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)&
 744 &   *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
 745 &   *dgm10(2,2))+gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
 746 &   *d2gm(1,1)))
 747    cm(3,1)=9*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 748 &   *dgm10(1,3))+gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)&
 749 &   *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 750 &   *dgm10(3,3))+gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
 751 &   *d2gm(1,1)))
 752    cm(4,1)=gm(1,1)*(9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 753 &   *dgm10(1,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
 754 &   +gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1)))+gm(1,2)&
 755 &   *(9*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,3)&
 756 &   *(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*d2gm(1,1)))
 757    cm(5,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 758 &   *dgm10(1,3))+gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))
 759    cm(6,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 760 &   *dgm10(1,2))+gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))
 761    cm(7,1)=(270*gm(1,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 762 &   -54*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
 763 &   +90*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(-54*gm(1,1)*(dgm01(2,2)*dgm10(1,1)&
 764 &   +dgm01(1,1)*dgm10(2,2))+gm(2,2)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)&
 765 &   *d2gm(1,1))))/36.d0
 766    cm(8,1)=((90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
 767 &   -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
 768 &   *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
 769 &   +gm(1,1)*dgm01(3,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,3)**2*dgm10(1,2)&
 770 &   +gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)&
 771 &   *(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))&
 772 &   -18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+(-36*gm(1,1)&
 773 &   *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
 774 &   *d2gm(1,1))/12.d0
 775    cm(9,1)=((90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)&
 776 &   -18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)&
 777 &   *dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)&
 778 &   +gm(1,1)*dgm01(2,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,2)**2*dgm10(1,3)&
 779 &   +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)&
 780 &   *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))&
 781 &   -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+(90*gm(1,2)&
 782 &   **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
 783 &   *d2gm(1,1))/12.d0
 784    cm(10,1)=(270*gm(1,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 785 &   -54*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 786 &   +90*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(-54*gm(1,1)*(dgm01(3,3)*dgm10(1,1)&
 787 &   +dgm01(1,1)*dgm10(3,3))+gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)&
 788 &   *d2gm(1,1))))/36.d0
 789    cm(1,2)=gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))&
 790 &   +gm(1,1)*gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)&
 791 &   +6*gm(1,1)*d2gm(1,2))+gm(1,1)*(gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)&
 792 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)&
 793 &   +12*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)&
 794 &   *d2gm(2,2)))
 795    cm(2,2)=-3*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+24*gm(1,1)*gm(1,2)&
 796 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(12*dgm01(1,1)&
 797 &   *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)&
 798 &   **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
 799 &   *dgm10(2,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(2,2)*(3*gm(1,2)**2*d2gm(1,1)&
 800 &   +gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)&
 801 &   *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)&
 802 &   +9*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
 803    cm(3,2)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+1.5d0*gm(1,3)&
 804 &   **2*dgm01(2,2)*dgm10(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
 805 &   +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)&
 806 &   *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)&
 807 &   **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
 808 &   +6*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)&
 809 &   *dgm10(1,2)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
 810 &   *gm(1,3)*dgm01(1,2)*dgm10(1,3)+9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
 811 &   +1.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)&
 812 &   *dgm01(1,1)*dgm10(2,2)+9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
 813 &   -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
 814 &   *dgm10(2,3)+24*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)&
 815 &   **2*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
 816 &   -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
 817 &   *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
 818 &   *d2gm(1,1))+gm(2,2)*(-6*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
 819 &   *dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
 820 &   *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
 821 &   -1.5d0*gm(1,1)*d2gm(1,1)))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)-9*gm(1,1)&
 822 &   *gm(1,2)*gm(3,3)*d2gm(1,2)+gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)&
 823 &   +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
 824 &   *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3))&
 825 &   +gm(1,3)*(33*dgm01(1,2)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)&
 826 &   *d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+4.5d0*gm(1,1)*gm(1,3)**2*d2gm(2,2)&
 827 &   -1.5d0*gm(1,1)**2*gm(3,3)*d2gm(2,2)
 828    cm(4,2)=gm(1,2)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
 829 &   +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)&
 830 &   +6*gm(1,3)*d2gm(1,2))+gm(2,2)*(3*gm(1,2)*dgm01(1,3)*dgm10(1,1)&
 831 &   +12*gm(1,1)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*dgm01(1,3)*dgm10(1,2)&
 832 &   +3*gm(1,2)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*dgm01(1,2)*dgm10(1,3)&
 833 &   +12*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)&
 834 &   +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)&
 835 &   *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+gm(1,1)&
 836 &   *(33*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(1,1)&
 837 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(6*dgm01(2,2)&
 838 &   *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
 839 &   -3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(1,1)*(6*dgm01(2,3)*dgm10(1,2)&
 840 &   +9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
 841 &   *dgm10(2,3))+gm(2,3)*(12*dgm01(1,2)*dgm10(1,1)+12*dgm01(1,1)&
 842 &   *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
 843 &   +24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+9*gm(1,1)&
 844 &   *d2gm(2,2)))
 845    cm(5,2)=1.5d0*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
 846 &   +gm(1,2)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
 847 &   +6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
 848 &   *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(-4.5d0*gm(2,2)*(dgm01(1,3)&
 849 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,2)&
 850 &   +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
 851 &   *dgm10(2,3))+gm(2,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)&
 852 &   *dgm10(1,2)+12*gm(1,1)*d2gm(1,2)))+gm(1,3)*(1.5d0*gm(1,2)**2*d2gm(1,1)&
 853 &   +gm(2,2)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)&
 854 &   *(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))&
 855 &   +gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
 856 &   +1.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))
 857    cm(6,2)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(10.5d0*dgm01(1,2)&
 858 &   *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))&
 859 &   +gm(1,1)*(15*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
 860 &   +gm(2,2)*(31.5d0*dgm01(1,2)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,2)&
 861 &   +12*gm(1,1)*d2gm(1,2)))+gm(1,2)*(gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)&
 862 &   +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(2,2)*dgm10(1,1)&
 863 &   +24*dgm01(1,2)*dgm10(1,2)+13.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)&
 864 &   *d2gm(2,2)))
 865    cm(7,2)=gm(2,2)**2*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,2)&
 866 &   +3*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,2)*(-3*gm(1,1)&
 867 &   *dgm01(2,2)*dgm10(2,2)+16.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
 868 &   +dgm01(1,2)*dgm10(2,2))+2.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(-7.5d0*gm(1,1)&
 869 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)&
 870 &   +gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)&
 871 &   +4.5d0*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
 872    cm(8,2)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
 873 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)+22.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
 874 &   -4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)&
 875 &   *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+15*gm(1,2)&
 876 &   *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
 877 &   +22.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)&
 878 &   *dgm01(1,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
 879 &   -3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,2)&
 880 &   *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
 881 &   -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)&
 882 &   *dgm10(3,3)-1.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
 883 &   **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(-4.5d0*dgm01(1,2)*dgm10(1,1)&
 884 &   -4.5d0*dgm01(1,1)*dgm10(1,2)+1.5d0*gm(1,2)*d2gm(1,1)-6*gm(1,1)&
 885 &   *d2gm(1,2))+gm(2,2)*(-4.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)&
 886 &   *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(12*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)&
 887 &   *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))&
 888 &   -4.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
 889 &   +15*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)*dgm10(1,1)&
 890 &   -7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)&
 891 &   *d2gm(1,2)))+7.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(1,1)&
 892 &   *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(3*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
 893 &   +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)-12*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
 894 &   +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)-3*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
 895 &   -3*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
 896 &   -12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+12*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
 897 &   +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)&
 898 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)&
 899 &   +18*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2)))
 900    cm(9,2)=gm(1,1)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(2,3)&
 901 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+6*gm(2,2)**2*(dgm01(1,3)&
 902 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)&
 903 &   **2*(3*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)&
 904 &   *dgm10(2,2)+3*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+7.5d0*gm(1,3)&
 905 &   *d2gm(2,2))+gm(1,2)*(39*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
 906 &   *dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
 907 &   +gm(2,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+0*dgm01(1,1)&
 908 &   *dgm10(2,2)-3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(3*gm(1,2)*dgm01(2,3)&
 909 &   *dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-9*gm(1,1)*dgm01(2,3)&
 910 &   *dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(2,2)&
 911 &   *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)&
 912 &   *dgm10(2,3)-9*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(-6*dgm01(1,2)&
 913 &   *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
 914 &   *d2gm(1,2))+gm(1,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
 915 &   *dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)&
 916 &   -1.5d0*gm(1,1)*d2gm(2,2)))
 917    cm(10,2)=(3*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
 918 &   -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
 919 &   *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
 920 &   +gm(1,3)*dgm01(3,3)))*dgm10(1,1)+6*(90*gm(1,3)**2*dgm01(2,3)&
 921 &   +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)&
 922 &   *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))&
 923 &   -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(1,2)&
 924 &   +(270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)-54*gm(1,3)&
 925 &   *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)&
 926 &   *(270*gm(1,3)**2*dgm10(1,3)-54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)&
 927 &   *(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(1,3)&
 928 &   **2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))&
 929 &   +gm(2,3)*(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)&
 930 &   *dgm10(3,3))-36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))&
 931 &   +3*dgm01(1,1)*(90*gm(2,3)**2*dgm10(1,3)+gm(3,3)*(-18*gm(1,3)&
 932 &   *dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)*(-36*gm(3,3)*dgm10(1,2)&
 933 &   +180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))-18*gm(2,2)*(gm(3,3)&
 934 &   *dgm10(1,3)+gm(1,3)*dgm10(3,3)))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
 935 &   +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,3)&
 936 &   **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(1,2)&
 937 &   +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*d2gm(2,2))/36.d0
 938    cm(1,3)=gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))&
 939 &   +gm(1,1)*gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)&
 940 &   +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)&
 941 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)&
 942 &   +12*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)&
 943 &   *d2gm(3,3)))
 944    cm(2,3)=-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)&
 945 &   *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)&
 946 &   *gm(1,3)*dgm01(2,3)*dgm10(1,1)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
 947 &   -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*gm(1,3)*dgm01(1,3)&
 948 &   *dgm10(1,2)+9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
 949 &   *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
 950 &   -9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)*dgm01(2,3)&
 951 &   *dgm10(1,3)-3*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)&
 952 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
 953 &   -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
 954 &   *dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+1.5d0*gm(1,2)&
 955 &   **2*dgm01(1,1)*dgm10(3,3)+9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
 956 &   -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
 957 &   *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
 958 &   *d2gm(1,1))+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)*(15*dgm01(2,3)&
 959 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)&
 960 &   +15*dgm01(1,1)*dgm10(2,3))+9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
 961 &   *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)&
 962 &   +33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+4.5d0*gm(1,1)&
 963 &   *gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)&
 964 &   *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)&
 965 &   *dgm10(1,1)-15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3))+gm(1,1)&
 966 &   *(-4.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)&
 967 &   *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
 968    cm(3,3)=-3*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+24*gm(1,1)*gm(1,3)&
 969 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(1,1)&
 970 &   *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)&
 971 &   **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
 972 &   *dgm10(3,3)+4.5d0*gm(1,1)*d2gm(3,3))+gm(3,3)*(3*gm(1,3)**2*d2gm(1,1)&
 973 &   +gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)&
 974 &   *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)&
 975 &   +9*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
 976    cm(4,3)=27*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+12*gm(1,1)&
 977 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
 978 &   *dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)&
 979 &   *gm(3,3)*dgm01(1,2)*dgm10(1,3)+33*gm(1,1)*gm(1,2)*dgm01(3,3)&
 980 &   *dgm10(1,3)+12*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)&
 981 &   **2*dgm01(3,3)*dgm10(2,3)+33*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
 982 &   -3*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*gm(3,3)&
 983 &   *d2gm(1,3)+gm(1,3)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
 984 &   +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3))&
 985 &   +gm(2,3)*(3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
 986 &   +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)&
 987 &   *dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)&
 988 &   +12*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))&
 989 &   +gm(1,3)*(gm(1,1)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
 990 &   +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3))+3*gm(3,3)*(dgm01(1,2)&
 991 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)&
 992 &   *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
 993 &   *dgm10(3,3)+9*gm(1,1)*d2gm(3,3)))
 994    cm(5,3)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(10.5d0*dgm01(1,3)&
 995 &   *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))&
 996 &   +gm(1,1)*(15*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
 997 &   +gm(3,3)*(31.5d0*dgm01(1,3)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,3)&
 998 &   +12*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)&
 999 &   +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(3,3)*dgm10(1,1)&
1000 &   +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
1001 &   *d2gm(3,3)))
1002    cm(6,3)=1.5d0*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
1003 &   +gm(1,2)*d2gm(1,1))+gm(1,3)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)&
1004 &   +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)&
1005 &   *dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))&
1006 &   +gm(1,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)&
1007 &   *d2gm(1,3)))+gm(1,1)*(-4.5d0*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1008 &   *dgm10(1,2))+gm(1,1)*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)&
1009 &   +12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3))+gm(2,3)*(36*dgm01(1,3)&
1010 &   *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)*d2gm(1,3)))+gm(1,2)&
1011 &   *(gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))&
1012 &   +gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
1013 &   +1.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
1014    cm(7,3)=(3*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)&
1015 &   +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)&
1016 &   *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)&
1017 &   -18*gm(1,2)*dgm01(3,3)))*dgm10(1,1)+6*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)&
1018 &   +gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)&
1019 &   **2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)&
1020 &   -36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+dgm01(3,3)&
1021 &   *(270*gm(1,2)**2*dgm10(1,2)-54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)&
1022 &   *(gm(2,2)*dgm10(1,1)+gm(1,1)*dgm10(2,2)))+6*dgm01(1,3)*(-18*gm(1,1)&
1023 &   *gm(2,3)*dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)&
1024 &   *dgm10(2,2))+90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)&
1025 &   -36*gm(1,3)*dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))&
1026 &   +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)&
1027 &   *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(1,1)&
1028 &   *(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)&
1029 &   *(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))&
1030 &   +gm(2,2)*(-18*gm(3,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)&
1031 &   *dgm10(3,3)))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1032 &   **2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
1033 &   *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(1,3)+(90*gm(1,2)**3-54*gm(1,1)&
1034 &   *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0
1035    cm(8,3)=gm(1,1)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(2,3)&
1036 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(1,2)&
1037 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)&
1038 &   **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)&
1039 &   *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(2,3)*d2gm(1,3)+7.5d0*gm(1,2)&
1040 &   *d2gm(3,3))+gm(3,3)*(10.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-1.5d0*gm(1,1)&
1041 &   *dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)*dgm10(1,3)-9*gm(1,1)&
1042 &   *dgm01(2,3)*dgm10(1,3)-9*gm(1,1)*dgm01(1,3)*dgm10(2,3)+10.5d0*gm(1,2)&
1043 &   *dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)&
1044 &   *(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
1045 &   *d2gm(1,1)-9*gm(1,1)*d2gm(1,3))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)&
1046 &   +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)&
1047 &   *dgm10(2,3)+24*gm(1,2)*d2gm(1,3))-1.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))&
1048 &   +gm(1,3)*(39*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1049 &   -3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)&
1050 &   *(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)&
1051 &   *dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))
1052    cm(9,3)=-4.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)&
1053 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)*gm(3,3)*dgm01(1,3)&
1054 &   *dgm10(1,2)+15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)&
1055 &   *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
1056 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)&
1057 &   *dgm10(1,3)+22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,3)&
1058 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)&
1059 &   -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,3)&
1060 &   *dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
1061 &   +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)&
1062 &   *dgm10(2,3)+15*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)+22.5d0*gm(1,2)&
1063 &   **2*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
1064 &   -3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)&
1065 &   *d2gm(1,3)+gm(2,3)**2*(-4.5d0*dgm01(1,3)*dgm10(1,1)-4.5d0*dgm01(1,1)&
1066 &   *dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+7.5d0*gm(1,2)&
1067 &   **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1068 &   -3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1069 &   -12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1070 &   +9*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1071 &   +12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
1072 &   *d2gm(1,1))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)&
1073 &   +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)&
1074 &   *d2gm(1,3))-3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-4.5d0*gm(1,1)&
1075 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)&
1076 &   +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)&
1077 &   -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)&
1078 &   *dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)&
1079 &   -1.5d0*gm(1,1)*d2gm(3,3)))
1080    cm(10,3)=gm(3,3)**2*(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)&
1081 &   +3*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-3*gm(1,1)&
1082 &   *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
1083 &   +dgm01(1,3)*dgm10(3,3))+2.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(1,1)&
1084 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)&
1085 &   +gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1086 &   +4.5d0*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
1087    cm(1,4)=gm(1,2)*(gm(1,3)*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)&
1088 &   *d2gm(1,1))+gm(1,1)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)&
1089 &   +6*gm(1,1)*d2gm(1,3)))+gm(1,1)*(gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)&
1090 &   -3*gm(1,1)*d2gm(1,1))+gm(1,3)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)&
1091 &   *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)&
1092 &   +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)&
1093 &   *dgm10(2,3)+2*gm(1,1)*d2gm(2,3)))
1094    cm(2,4)=gm(1,1)*(gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
1095 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
1096 &   +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1097 &   *dgm10(2,3)))+gm(1,2)*(gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
1098 &   *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(1,1)*(42*dgm01(2,3)*dgm10(1,2)&
1099 &   +15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)+42*dgm01(1,2)&
1100 &   *dgm10(2,3))+gm(2,3)*(30*dgm01(1,2)*dgm10(1,1)+30*dgm01(1,1)&
1101 &   *dgm10(1,2)+24*gm(1,1)*d2gm(1,2)))+3*gm(1,2)**3*d2gm(1,3)+gm(1,2)&
1102 &   **2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1103 &   *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)+3*gm(1,3)&
1104 &   *d2gm(1,2)+9*gm(1,1)*d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(1,3)&
1105 &   *dgm10(1,1)+6*gm(1,1)*dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*dgm01(1,3)&
1106 &   *dgm10(1,2)+18*gm(1,2)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*dgm01(1,2)&
1107 &   *dgm10(1,3)+6*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)&
1108 &   *dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,3)*(-6*dgm01(1,2)*dgm10(1,1)&
1109 &   -6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)*d2gm(1,2))&
1110 &   +15*gm(1,1)*gm(1,2)*d2gm(1,3)-3*gm(1,1)**2*d2gm(2,3))
1111    cm(3,4)=-6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)&
1112 &   *dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
1113 &   -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*gm(3,3)*dgm01(1,2)&
1114 &   *dgm10(1,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,1)&
1115 &   *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)&
1116 &   -9*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,1)**2*dgm01(2,3)&
1117 &   *dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+gm(1,3)*(gm(1,2)*(3*dgm01(3,3)&
1118 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))&
1119 &   +gm(1,1)*(15*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)&
1120 &   *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(18*dgm01(1,2)&
1121 &   *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+15*gm(1,1)&
1122 &   *d2gm(1,2)))-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)&
1123 &   *(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
1124 &   *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
1125 &   +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(30*dgm01(1,3)*dgm10(1,1)+30*dgm01(1,1)&
1126 &   *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))-3*gm(1,1)**2*gm(3,3)*d2gm(2,3)&
1127 &   +gm(1,3)**2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)&
1128 &   +12*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(1,2)&
1129 &   *d2gm(1,3)+9*gm(1,1)*d2gm(2,3))
1130    cm(4,4)=42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+9*gm(1,3)**2*dgm01(2,2)&
1131 &   *dgm10(1,1)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)&
1132 &   *gm(1,3)*dgm01(2,3)*dgm10(1,1)+9*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1133 &   +42*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)&
1134 &   *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+24*gm(1,2)&
1135 &   *gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)&
1136 &   *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)&
1137 &   *gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
1138 &   +24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)&
1139 &   *dgm01(2,3)*dgm10(1,3)+9*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+15*gm(1,1)&
1140 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)*dgm01(1,3)&
1141 &   *dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(1,1)*dgm10(2,3)+24*gm(1,1)&
1142 &   *gm(1,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)&
1143 &   *dgm10(2,3)-12*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,1)&
1144 &   *dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)&
1145 &   **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)&
1146 &   *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)&
1147 &   *gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)&
1148 &   *(15*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)&
1149 &   *dgm10(3,3))+9*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(30*dgm01(1,1)*dgm10(1,1)&
1150 &   +15*gm(1,1)*d2gm(1,1))+gm(1,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)&
1151 &   *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+18*gm(1,1)*gm(1,2)*gm(1,3)&
1152 &   *d2gm(2,3)+gm(2,3)*(gm(1,3)*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)&
1153 &   *dgm10(1,2)-6*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)&
1154 &   *(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))&
1155 &   +gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1156 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3)))
1157    cm(5,4)=gm(1,2)*(12*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,3)&
1158 &   *dgm10(1,3)+dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
1159 &   +12*gm(1,1)*d2gm(1,1)))+gm(1,3)**2*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)&
1160 &   *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,1)&
1161 &   *(gm(1,1)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)&
1162 &   +18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(1,2)&
1163 &   *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)*d2gm(1,2))+gm(2,3)&
1164 &   *(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)&
1165 &   *d2gm(1,3)))+gm(1,3)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1166 &   *d2gm(1,1))+gm(1,2)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)*dgm10(1,3)&
1167 &   +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1168 &   *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
1169 &   +6*gm(1,1)*d2gm(2,3)))
1170    cm(6,4)=gm(1,3)*(12*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,2)&
1171 &   *dgm10(1,2)+dgm01(1,1)*dgm10(2,2))+3*gm(1,2)**2*d2gm(1,1)+gm(2,2)&
1172 &   *(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,2)*(12*dgm01(1,2)&
1173 &   *dgm10(1,1)+12*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2)))+gm(1,2)&
1174 &   **2*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)&
1175 &   *d2gm(1,3))+gm(1,1)*(gm(1,1)*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
1176 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3))&
1177 &   +gm(2,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)&
1178 &   *d2gm(1,2))+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)&
1179 &   +12*gm(1,1)*d2gm(1,3)))+gm(1,2)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)&
1180 &   +3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1181 &   *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
1182 &   +6*gm(1,1)*d2gm(2,3)))
1183    cm(7,4)=-3*gm(1,1)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1184 &   *dgm10(2,2))+gm(1,2)*(gm(2,3)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)&
1185 &   *dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))-6*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
1186 &   +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1187 &   *dgm10(2,3)))+gm(1,2)**2*(30*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)&
1188 &   *dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)&
1189 &   +15*gm(2,3)*d2gm(1,2))+gm(2,2)**2*(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)&
1190 &   *dgm10(1,3)-3*(gm(1,3)*d2gm(1,1)+gm(1,1)*d2gm(1,3)))+5*gm(1,2)&
1191 &   **3*d2gm(2,3)+gm(2,2)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+12*gm(1,2)&
1192 &   *dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)&
1193 &   *dgm01(1,2)*dgm10(1,3)-6*gm(1,1)*dgm01(2,2)*dgm10(1,3)-6*gm(1,1)&
1194 &   *dgm01(1,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)&
1195 &   *dgm01(1,2)*dgm10(2,3)+gm(2,3)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)&
1196 &   *dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,3)&
1197 &   *(-6*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)&
1198 &   *dgm10(2,2)-6*gm(1,2)*d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)-3*gm(1,1)&
1199 &   *gm(1,2)*d2gm(2,3))
1200    cm(8,4)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+0*gm(1,2)*gm(3,3)&
1201 &   *dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1202 &   +12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)&
1203 &   *dgm10(1,2)-12*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)&
1204 &   *gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(1,2)&
1205 &   *dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)-3*gm(1,1)*gm(3,3)&
1206 &   *dgm01(2,2)*dgm10(1,3)+48*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1207 &   -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)&
1208 &   *dgm10(2,2)+15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)&
1209 &   *dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
1210 &   +18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)-12*gm(1,1)*gm(3,3)*dgm01(1,2)&
1211 &   *dgm10(2,3)+48*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-12*gm(1,1)&
1212 &   *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
1213 &   +24*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)&
1214 &   *dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)&
1215 &   *gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)&
1216 &   **2*(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
1217 &   *d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(12*dgm01(3,3)&
1218 &   *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))&
1219 &   -3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)&
1220 &   **2*d2gm(1,3)+gm(3,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)&
1221 &   +12*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+15*gm(1,2)*gm(1,3)&
1222 &   **2*d2gm(2,3)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)*(3*gm(1,2)&
1223 &   *dgm01(3,3)*dgm10(1,1)-9*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)&
1224 &   *dgm01(1,3)*dgm10(1,3)-18*gm(1,1)*dgm01(2,3)*dgm10(1,3)-18*gm(1,1)&
1225 &   *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)&
1226 &   *dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-6*dgm01(1,2)&
1227 &   *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
1228 &   *d2gm(1,2))+gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)&
1229 &   +24*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)&
1230 &   *d2gm(1,3)-6*gm(1,1)*d2gm(2,3)))
1231    cm(9,4)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)&
1232 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1233 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+48*gm(1,2)*gm(1,3)*dgm01(2,3)&
1234 &   *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)*gm(1,3)&
1235 &   *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)&
1236 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
1237 &   -3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,3)&
1238 &   *dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+48*gm(1,2)&
1239 &   *gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)&
1240 &   -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-12*gm(1,1)*gm(1,2)*dgm01(2,3)&
1241 &   *dgm10(2,3)+15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)&
1242 &   *d2gm(1,2)+gm(2,3)**2*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)&
1243 &   *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2))+15*gm(1,2)&
1244 &   **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(0*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
1245 &   +24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-18*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
1246 &   +24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-9*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
1247 &   -9*gm(1,1)*dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
1248 &   -18*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)&
1249 &   +36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)&
1250 &   *d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)+gm(2,2)*(-6*dgm01(1,3)*dgm10(1,1)&
1251 &   -6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)*d2gm(1,1)-9*gm(1,1)*d2gm(1,3))&
1252 &   -6*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)&
1253 &   *dgm10(1,1)-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)&
1254 &   *dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)&
1255 &   *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)&
1256 &   *dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)&
1257 &   +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))&
1258 &   +gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1259 &   *dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)&
1260 &   *d2gm(2,3)))
1261    cm(10,4)=-3*gm(1,1)*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1262 &   *dgm10(3,3))+gm(1,3)*(gm(2,3)*(9*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)&
1263 &   *dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
1264 &   +dgm01(1,3)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1265 &   *dgm10(3,3)))+gm(3,3)**2*(-6*dgm01(1,2)*dgm10(1,1)-6*dgm01(1,1)&
1266 &   *dgm10(1,2)-3*(gm(1,2)*d2gm(1,1)+gm(1,1)*d2gm(1,2)))+gm(1,3)&
1267 &   **2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)&
1268 &   *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+15*gm(2,3)*d2gm(1,3))+5*gm(1,3)&
1269 &   **3*d2gm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm01(3,3)*dgm10(1,1)-6*gm(1,1)&
1270 &   *dgm01(3,3)*dgm10(1,2)-12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-6*gm(1,1)&
1271 &   *dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)*dgm10(2,3)-6*gm(1,2)&
1272 &   *dgm01(1,1)*dgm10(3,3)-6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)&
1273 &   **2*d2gm(1,2)+gm(2,3)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)&
1274 &   +9*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(6*dgm01(2,3)&
1275 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
1276 &   +6*dgm01(1,1)*dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))
1277    cm(1,5)=gm(1,1)*(gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1278 &   *d2gm(1,1))+gm(1,1)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)&
1279 &   +2*gm(1,1)*d2gm(1,3)))
1280    cm(2,5)=gm(1,3)*(3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1281 &   *dgm10(1,2))-4.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1282 &   *dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-9*dgm01(1,1)&
1283 &   *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)&
1284 &   *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
1285 &   +12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)&
1286 &   +12*gm(1,1)*d2gm(1,1)))+gm(1,2)**2*(10.5d0*dgm01(1,3)*dgm10(1,1)&
1287 &   +10.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))+gm(1,1)*(12*gm(2,3)&
1288 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-3*gm(1,1)*(dgm01(2,2)&
1289 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+gm(2,2)*(-10.5d0*dgm01(1,3)&
1290 &   *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1291    cm(3,5)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(gm(1,1)*(7.5d0*dgm01(3,3)&
1292 &   *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3))&
1293 &   +gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))&
1294 &   +gm(1,3)**2*(13.5d0*dgm01(1,3)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,3)&
1295 &   +9*gm(1,1)*d2gm(1,3))+gm(1,1)*(-3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
1296 &   +dgm01(1,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(1,3)*dgm10(1,1)&
1297 &   +1.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1298    cm(4,5)=3*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
1299 &   +gm(1,2)*d2gm(1,1))+gm(1,2)*(gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)&
1300 &   +36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)&
1301 &   *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(3,3)*(dgm01(1,2)&
1302 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)&
1303 &   +dgm01(1,3)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)&
1304 &   *dgm10(1,3)-6*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(1,1)*(3*dgm01(2,3)&
1305 &   *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
1306 &   +3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1307 &   *d2gm(1,1))+gm(1,2)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)&
1308 &   +18*gm(1,1)*d2gm(1,3)))
1309    cm(5,5)=gm(1,3)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
1310 &   +gm(1,1)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
1311 &   +6*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1312 &   *d2gm(1,1)))+gm(1,1)*gm(1,3)*(18*dgm01(1,3)*dgm10(1,1)+18*dgm01(1,1)&
1313 &   *dgm10(1,3)+6*gm(1,1)*d2gm(1,3))
1314    cm(6,5)=gm(1,1)*(3*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1315 &   *dgm10(1,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)&
1316 &   +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
1317 &   *dgm10(1,1)+6*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,3)*(6*dgm01(1,1)&
1318 &   *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(1,3)*dgm10(1,1)&
1319 &   +15*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3)))
1320    cm(7,5)=(3*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)&
1321 &   *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)&
1322 &   *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)&
1323 &   -18*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+2*(270*gm(1,2)**2*dgm01(1,2)&
1324 &   -54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)*(gm(2,2)*dgm01(1,1)&
1325 &   +gm(1,1)*dgm01(2,2)))*dgm10(1,3)+2*dgm01(1,3)*(270*gm(1,2)**2*dgm10(1,2)&
1326 &   -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)&
1327 &   +gm(1,1)*dgm10(2,2)))+3*dgm01(1,1)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)&
1328 &   +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)&
1329 &   **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)&
1330 &   -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)&
1331 &   **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(1,1)&
1332 &   +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*d2gm(1,3))/36.d0
1333    cm(8,5)=9*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-4.5d0*gm(1,1)&
1334 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
1335 &   +9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(1,2)&
1336 &   *dgm10(1,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)&
1337 &   *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
1338 &   +gm(1,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1339 &   +gm(1,2)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
1340 &   *dgm10(3,3))+12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
1341 &   +gm(1,2)*d2gm(1,1)))-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(1,3)&
1342 &   **2*(1.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)&
1343 &   *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3))&
1344 &   +gm(2,3)*(gm(1,1)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-12*dgm01(1,3)&
1345 &   *dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(1,1)&
1346 &   +gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)&
1347 &   *(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)-6*gm(1,1)&
1348 &   *d2gm(1,3)))
1349    cm(9,5)=15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)&
1350 &   *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)&
1351 &   *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1352 &   +15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,2)*gm(1,3)&
1353 &   *dgm01(1,3)*dgm10(1,2)+30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)&
1354 &   +30*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)*gm(1,3)*dgm01(2,2)&
1355 &   *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(1,3)-3*gm(1,3)&
1356 &   **2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
1357 &   -3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
1358 &   *dgm10(2,3)-6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)&
1359 &   **2*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)*d2gm(1,1)&
1360 &   +gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+15*gm(1,2)&
1361 &   **2*gm(1,3)*d2gm(1,3)+gm(2,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)&
1362 &   +dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))&
1363 &   +9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
1364 &   *d2gm(1,1))+gm(1,2)*(3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)&
1365 &   -6*gm(1,1)*d2gm(1,3)))+gm(2,2)*(gm(1,1)*(-1.5d0*dgm01(3,3)*dgm10(1,1)&
1366 &   -6*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,3)&
1367 &   **2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
1368 &   *d2gm(1,1))+gm(1,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)*dgm10(1,3)&
1369 &   -3*gm(1,1)*d2gm(1,3)))
1370    cm(10,5)=gm(3,3)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
1371 &   *d2gm(1,1))+gm(1,3)*(gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)&
1372 &   *dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)&
1373 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+5*gm(1,3)**2*d2gm(1,3))+gm(3,3)&
1374 &   *(gm(1,1)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)&
1375 &   *dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(1,1)+gm(1,3)*(6*dgm01(1,3)&
1376 &   *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1377    cm(1,6)=gm(1,1)*(gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1378 &   *d2gm(1,1))+gm(1,1)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)&
1379 &   +2*gm(1,1)*d2gm(1,2)))
1380    cm(2,6)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(gm(1,1)*(7.5d0*dgm01(2,2)&
1381 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2))&
1382 &   +gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))&
1383 &   +gm(1,2)**2*(13.5d0*dgm01(1,2)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,2)&
1384 &   +9*gm(1,1)*d2gm(1,2))+gm(1,1)*(-3*gm(1,1)*(dgm01(2,2)*dgm10(1,2)&
1385 &   +dgm01(1,2)*dgm10(2,2))+gm(2,2)*(1.5d0*dgm01(1,2)*dgm10(1,1)&
1386 &   +1.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1387    cm(3,6)=gm(1,2)*(-4.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1388 &   *dgm10(3,3))+gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)&
1389 &   *d2gm(1,1)))+gm(1,3)*(3*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1390 &   *dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1391 &   *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))&
1392 &   +gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,3)&
1393 &   **2*(10.5d0*dgm01(1,2)*dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)&
1394 &   +1.5d0*gm(1,2)*d2gm(1,1)+9*gm(1,1)*d2gm(1,2))+gm(1,1)*(12*gm(2,3)&
1395 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-3*gm(1,1)*(dgm01(3,3)&
1396 &   *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(1,2)&
1397 &   *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1398    cm(4,6)=3*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1399 &   +gm(1,2)*(gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)&
1400 &   +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)&
1401 &   *dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(2,2)*(dgm01(1,3)&
1402 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)&
1403 &   +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,2)*dgm10(1,1)-9*dgm01(1,1)&
1404 &   *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(1,3)*(gm(1,1)*(12*dgm01(2,2)&
1405 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))&
1406 &   +3*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)&
1407 &   *d2gm(1,1))+gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)&
1408 &   +18*gm(1,1)*d2gm(1,2)))
1409    cm(5,6)=gm(1,2)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1410 &   *dgm10(1,3))+gm(1,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))&
1411 &   +gm(1,1)*(6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)&
1412 &   +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
1413 &   *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)&
1414 &   +15*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2)))
1415    cm(6,6)=gm(1,2)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
1416 &   +gm(1,1)*(gm(1,1)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1417 &   +6*dgm01(1,1)*dgm10(2,2))+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1418 &   *d2gm(1,1)))+gm(1,1)*gm(1,2)*(18*dgm01(1,2)*dgm10(1,1)+18*dgm01(1,1)&
1419 &   *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))
1420    cm(7,6)=gm(2,2)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))&
1421 &   +gm(1,2)*(gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)&
1422 &   *dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,2)&
1423 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+5*gm(1,2)**2*d2gm(1,2))+gm(2,2)&
1424 &   *(gm(1,1)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
1425 &   *dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(1,1)+gm(1,2)*(6*dgm01(1,2)&
1426 &   *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1427    cm(8,6)=-9*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)&
1428 &   **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
1429 &   +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)&
1430 &   *dgm10(1,1)-9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,3)&
1431 &   **2*dgm01(1,2)*dgm10(1,2)-6*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1432 &   +30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)&
1433 &   *dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)&
1434 &   *gm(1,3)*dgm01(1,2)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)&
1435 &   -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
1436 &   *dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
1437 &   -3*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(1,2)&
1438 &   *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)&
1439 &   *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(2,2)*(15*gm(1,3)*(dgm01(1,3)&
1440 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)&
1441 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+7.5d0*gm(1,3)**2*d2gm(1,1)&
1442 &   +gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1)))&
1443 &   +15*gm(1,2)*gm(1,3)**2*d2gm(1,2)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)&
1444 &   +gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1445 &   -6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1446 &   *dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(1,3)*(3*dgm01(1,2)*dgm10(1,1)&
1447 &   +3*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2)))
1448    cm(9,6)=gm(1,1)*(gm(2,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)&
1449 &   *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,3)*(dgm01(2,2)&
1450 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(1.5d0*dgm01(2,3)&
1451 &   *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)&
1452 &   +1.5d0*dgm01(1,1)*dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+15*gm(1,3)&
1453 &   *d2gm(1,2))+gm(1,2)*(gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)&
1454 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)&
1455 &   +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)&
1456 &   *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(2,2)*(12*gm(1,2)*dgm01(1,3)&
1457 &   *dgm10(1,1)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*dgm01(1,3)&
1458 &   *dgm10(1,2)+12*gm(1,2)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*dgm01(1,2)&
1459 &   *dgm10(1,3)-4.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)&
1460 &   *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,2)*dgm10(1,1)&
1461 &   +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2)))
1462    cm(10,6)=(gm(1,3)**2*(270*dgm01(2,3)*dgm10(1,1)+540*dgm01(1,3)&
1463 &   *dgm10(1,2)+540*dgm01(1,2)*dgm10(1,3)+270*dgm01(1,1)*dgm10(2,3))&
1464 &   +gm(3,3)*(-108*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1465 &   +gm(1,1)*(-54*dgm01(2,3)*dgm10(1,1)-108*dgm01(1,3)*dgm10(1,2)&
1466 &   -108*dgm01(1,2)*dgm10(1,3)-54*dgm01(1,1)*dgm10(2,3)))+gm(2,3)&
1467 &   *(540*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-54*gm(1,1)&
1468 &   *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+270*gm(1,3)**2*d2gm(1,1)&
1469 &   +gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)*d2gm(1,1)))+180*gm(1,3)&
1470 &   **3*d2gm(1,2)+gm(1,3)*(-108*(gm(1,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1471 &   *dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))&
1472 &   +gm(3,3)*(-216*dgm01(1,2)*dgm10(1,1)-216*dgm01(1,1)*dgm10(1,2)&
1473 &   -108*gm(1,2)*d2gm(1,1)-108*gm(1,1)*d2gm(1,2))))/36.d0
1474    cm(1,7)=-7.5d0*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1475 &   *dgm10(1,2))+2.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(16.5d0*dgm01(1,2)&
1476 &   *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+9*gm(1,1)*d2gm(1,2))&
1477 &   +gm(1,1)**2*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)&
1478 &   -3*gm(2,2)*d2gm(1,2))+gm(1,2)*(gm(2,2)*(-3*dgm01(1,1)*dgm10(1,1)&
1479 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(2,2)*dgm10(1,1)&
1480 &   +36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)&
1481 &   *d2gm(2,2)))
1482    cm(2,7)=gm(2,2)**2*(15*dgm01(1,2)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,2)&
1483 &   +3*gm(1,2)*d2gm(1,1)+12*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)&
1484 &   *dgm01(2,2)*dgm10(2,2)+10.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
1485 &   +dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(31.5d0*gm(1,1)&
1486 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,2)**2*d2gm(1,2)&
1487 &   +gm(1,2)*(13.5d0*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)&
1488 &   +13.5d0*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2)))
1489    cm(3,7)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
1490 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)-4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1491 &   -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)&
1492 &   *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+3*gm(1,2)&
1493 &   *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
1494 &   -4.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)&
1495 &   *dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
1496 &   +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,2)&
1497 &   *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
1498 &   +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)&
1499 &   *dgm10(3,3)-4.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
1500 &   **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(22.5d0*dgm01(1,2)*dgm10(1,1)&
1501 &   +22.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)&
1502 &   *d2gm(1,2))+gm(2,2)*(-1.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)&
1503 &   *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)&
1504 &   *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3))&
1505 &   -1.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1506 &   -6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-4.5d0*dgm01(1,2)*dgm10(1,1)&
1507 &   -4.5d0*dgm01(1,1)*dgm10(1,2)-1.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)&
1508 &   *d2gm(1,2)))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)&
1509 &   *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
1510 &   +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
1511 &   +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
1512 &   +12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+15*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
1513 &   +30*gm(1,1)*dgm01(1,2)*dgm10(2,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
1514 &   +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)&
1515 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)&
1516 &   +18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2)))
1517    cm(4,7)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(2,3)&
1518 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)&
1519 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)&
1520 &   **2*(6*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
1521 &   *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)+3*gm(1,3)&
1522 &   *d2gm(2,2))+gm(1,2)*(12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1523 &   *dgm10(2,2))+3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1524 &   +gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
1525 &   *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(9*gm(1,2)*dgm01(2,3)&
1526 &   *dgm10(1,1)+6*gm(1,2)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*dgm01(2,3)&
1527 &   *dgm10(1,2)+6*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)&
1528 &   *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*dgm01(1,1)&
1529 &   *dgm10(2,3)+24*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(33*dgm01(1,2)&
1530 &   *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1531 &   *d2gm(1,2))+gm(1,3)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1532 &   +6*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2)))
1533    cm(5,7)=gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)+3*dgm01(1,3)&
1534 &   *dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)&
1535 &   +7.5d0*gm(2,3)*d2gm(1,1)+3*gm(1,3)*d2gm(1,2))+gm(2,2)*(-3*gm(1,2)&
1536 &   *dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)&
1537 &   *dgm01(1,3)*dgm10(1,2)-3*gm(1,2)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)&
1538 &   *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)&
1539 &   *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-12*dgm01(1,2)&
1540 &   *dgm10(1,1)-12*dgm01(1,1)*dgm10(1,2)-3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
1541 &   *d2gm(1,2)))+gm(1,2)*(gm(1,1)*(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
1542 &   *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))&
1543 &   +gm(2,3)*(39*dgm01(1,2)*dgm10(1,1)+39*dgm01(1,1)*dgm10(1,2)+24*gm(1,1)&
1544 &   *d2gm(1,2))+gm(1,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1545 &   +0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)*(-6*gm(1,3)&
1546 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)&
1547 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(10.5d0*dgm01(2,2)&
1548 &   *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)&
1549 &   +6*gm(1,1)*d2gm(2,2)))
1550    cm(6,7)=12*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+21*gm(1,1)*gm(1,2)&
1551 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(-3*dgm01(1,1)&
1552 &   *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)&
1553 &   **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
1554 &   *dgm10(2,2)+3*gm(1,1)*d2gm(2,2))+gm(2,2)*(4.5d0*gm(1,2)**2*d2gm(1,1)&
1555 &   +gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)&
1556 &   *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)&
1557 &   +9*dgm01(1,1)*dgm10(2,2)+6*gm(1,1)*d2gm(2,2)))
1558    cm(7,7)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)**3*d2gm(1,1)&
1559 &   +gm(2,2)**2*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1560 &   +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
1561 &   *d2gm(2,2))+gm(2,2)*(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)&
1562 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)&
1563 &   **2*d2gm(2,2))
1564    cm(8,7)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)&
1565 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
1566 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(2,3)&
1567 &   *dgm10(2,2)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
1568 &   *dgm01(2,2)*dgm10(2,3)-3*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)&
1569 &   **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(3,3)*d2gm(1,1))&
1570 &   -3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(1.5d0*dgm01(2,2)&
1571 &   *dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)&
1572 &   +4.5d0*gm(2,2)*d2gm(1,1)+3*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2))&
1573 &   +gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,2)-1.5d0*gm(1,1)*dgm01(3,3)&
1574 &   *dgm10(2,2)+gm(1,3)*(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)&
1575 &   +15*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))-9*gm(1,2)&
1576 &   *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,3)&
1577 &   **2*d2gm(2,2)+gm(3,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)&
1578 &   *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
1579 &   *d2gm(2,2)))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+9*gm(1,2)&
1580 &   *dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)&
1581 &   *dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-6*gm(1,1)&
1582 &   *dgm01(2,2)*dgm10(2,3)+gm(2,2)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
1583 &   *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)&
1584 &   +24*gm(1,3)*d2gm(1,2))+gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)&
1585 &   *dgm10(2,2)+9*gm(1,2)*d2gm(2,2)))
1586    cm(9,7)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)&
1587 &   *dgm01(2,2)*dgm10(2,2)+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1588 &   *dgm10(2,2)))+gm(2,2)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
1589 &   *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)&
1590 &   +3*gm(2,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,2))+1.5d0*gm(1,2)**2*(dgm01(2,3)&
1591 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)&
1592 &   *(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
1593 &   +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
1594 &   +6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
1595 &   +gm(2,3)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1596 &   +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)&
1597 &   *d2gm(2,2))+gm(1,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)&
1598 &   +12*gm(1,2)*d2gm(2,2)))
1599    cm(10,7)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)&
1600 &   -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)&
1601 &   +6*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
1602 &   -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
1603 &   *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
1604 &   +gm(1,3)*dgm01(3,3)))*dgm10(1,2)+3*(90*gm(1,3)**2*dgm01(2,3)&
1605 &   +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)&
1606 &   *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))&
1607 &   -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(2,2)&
1608 &   +3*dgm01(2,2)*(90*gm(1,3)**2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)&
1609 &   *dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)*(-18*gm(3,3)*dgm10(1,1)&
1610 &   +180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))-36*gm(1,3)*(gm(3,3)&
1611 &   *dgm10(1,2)+gm(1,2)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(2,3)**2*dgm10(1,3)&
1612 &   +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
1613 &   *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
1614 &   -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+dgm01(1,1)&
1615 &   *(270*gm(2,3)**2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)&
1616 &   *(gm(3,3)*dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)&
1617 &   *gm(2,3)*gm(3,3))*d2gm(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
1618 &   *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,2)+3*(90*gm(1,3)&
1619 &   **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(2,2))&
1620 &   /36.d0
1621    cm(1,8)=-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-15*gm(1,1)&
1622 &   *gm(2,3)*dgm01(1,3)*dgm10(1,1)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)&
1623 &   *dgm10(1,2)+0*gm(1,1)**2*dgm01(3,3)*dgm10(1,2)-15*gm(1,1)*gm(2,3)&
1624 &   *dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,3)+0*gm(1,1)&
1625 &   **2*dgm01(1,3)*dgm10(2,3)+0*gm(1,1)**2*dgm01(1,2)*dgm10(3,3)&
1626 &   -3*gm(1,1)**2*gm(3,3)*d2gm(1,2)+gm(1,3)**2*(16.5d0*dgm01(1,2)&
1627 &   *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)&
1628 &   +9*gm(1,1)*d2gm(1,2))-6*gm(1,1)**2*gm(2,3)*d2gm(1,3)+gm(1,3)&
1629 &   *(gm(2,3)*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,2)&
1630 &   *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+18*gm(1,1)&
1631 &   *d2gm(1,3))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,2)&
1632 &   +36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*d2gm(2,3)))&
1633 &   +gm(1,2)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))&
1634 &   +gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1635 &   +4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
1636    cm(2,8)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
1637 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1638 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)&
1639 &   *dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
1640 &   *gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)&
1641 &   -4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)&
1642 &   *dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+6*gm(1,2)&
1643 &   *gm(1,3)*dgm01(1,3)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
1644 &   +7.5d0*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)&
1645 &   *dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-9*gm(1,1)&
1646 &   *gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)&
1647 &   *dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+7.5d0*gm(1,1)&
1648 &   *gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(1,2)&
1649 &   +gm(2,3)**2*(16.5d0*dgm01(1,2)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)&
1650 &   +1.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*gm(1,3)&
1651 &   *d2gm(2,3)+gm(2,3)*(27*gm(1,2)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)&
1652 &   *dgm01(1,3)*dgm10(1,2)+54*gm(1,1)*dgm01(2,3)*dgm10(1,2)+30*gm(1,2)&
1653 &   *dgm01(1,2)*dgm10(1,3)+24*gm(1,1)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)&
1654 &   *dgm01(1,3)*dgm10(2,2)+27*gm(1,2)*dgm01(1,1)*dgm10(2,3)+54*gm(1,1)&
1655 &   *dgm01(1,2)*dgm10(2,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)&
1656 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)*d2gm(1,2))+6*gm(1,2)&
1657 &   **2*d2gm(1,3)+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)&
1658 &   *dgm10(1,3)+12*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+24*gm(1,1)&
1659 &   *gm(1,2)*d2gm(2,3))+1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(3*gm(1,2)&
1660 &   *dgm01(3,3)*dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)&
1661 &   *dgm01(1,3)*dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)&
1662 &   *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)&
1663 &   *dgm01(1,2)*dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)&
1664 &   *dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)&
1665 &   -3*gm(1,1)*d2gm(1,2))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)&
1666 &   *dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)&
1667 &   *d2gm(1,3)-9*gm(1,1)*d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))
1668    cm(3,8)=gm(1,1)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(2,3)&
1669 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(3,3)**2*(18*dgm01(1,2)&
1670 &   *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*d2gm(1,1)+12*gm(1,1)&
1671 &   *d2gm(1,2))+3*gm(1,3)**3*d2gm(2,3)+gm(1,3)**2*(7.5d0*dgm01(3,3)&
1672 &   *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)&
1673 &   +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+1.5d0*gm(1,2)&
1674 &   *d2gm(3,3))+gm(3,3)*(7.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)+19.5d0*gm(1,1)&
1675 &   *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+39*gm(1,1)&
1676 &   *dgm01(2,3)*dgm10(1,3)+39*gm(1,1)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)&
1677 &   *dgm01(1,1)*dgm10(3,3)+19.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)&
1678 &   **2*d2gm(1,2)+gm(2,3)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)&
1679 &   *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)&
1680 &   *(18*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)&
1681 &   *dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+15*gm(1,1)&
1682 &   *d2gm(2,3))-4.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(9*gm(1,2)&
1683 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+27*gm(1,1)*(dgm01(3,3)&
1684 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,1)&
1685 &   +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)&
1686 &   *d2gm(3,3)))
1687    cm(4,8)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+27*gm(1,2)&
1688 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)&
1689 &   *dgm10(1,2)+42*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,3)&
1690 &   **2*dgm01(2,3)*dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)&
1691 &   +12*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+42*gm(1,2)*gm(3,3)&
1692 &   *dgm01(1,2)*dgm10(1,3)+18*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)&
1693 &   *gm(3,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1694 &   +21*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)&
1695 &   *dgm10(2,2)+18*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+30*gm(1,1)*gm(3,3)&
1696 &   *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
1697 &   +27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+12*gm(1,3)**2*dgm01(1,2)&
1698 &   *dgm10(2,3)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)&
1699 &   *gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(2,3)&
1700 &   *dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+12*gm(1,2)&
1701 &   *gm(1,3)*dgm01(1,2)*dgm10(3,3)+21*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)&
1702 &   +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,1)*gm(1,2)&
1703 &   *dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)+18*gm(1,2)&
1704 &   **2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)&
1705 &   *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+18*gm(1,1)*d2gm(1,3))+6*gm(1,2)&
1706 &   *gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+3*gm(1,2)&
1707 &   **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1708 &   +27*gm(1,1)*dgm01(3,3)*dgm10(1,2)-24*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1709 &   +42*gm(1,1)*dgm01(2,3)*dgm10(1,3)+42*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1710 &   +6*gm(1,2)*dgm01(1,1)*dgm10(3,3)+27*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1711 &   +6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)&
1712 &   *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)&
1713 &   *(12*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)&
1714 &   *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)-12*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
1715 &   *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(42*gm(1,1)&
1716 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,3)**2*d2gm(1,3)&
1717 &   +gm(3,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)*dgm10(1,3)+12*gm(1,3)&
1718 &   *d2gm(1,1)+30*gm(1,1)*d2gm(1,3))+gm(1,3)*(24*dgm01(3,3)*dgm10(1,1)&
1719 &   +72*dgm01(1,3)*dgm10(1,3)+24*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)&
1720 &   *d2gm(3,3)))
1721    cm(5,8)=36*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)&
1722 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*gm(3,3)*dgm01(1,3)&
1723 &   *dgm10(1,2)+36*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+39*gm(1,1)&
1724 &   *gm(3,3)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)&
1725 &   *dgm10(1,3)+19.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,1)&
1726 &   **2*dgm01(3,3)*dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
1727 &   +18*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+24*gm(1,1)&
1728 &   *gm(1,2)*gm(3,3)*d2gm(1,3)+12*gm(1,1)**2*gm(3,3)*d2gm(2,3)+gm(1,3)&
1729 &   **2*(7.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)&
1730 &   *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
1731 &   *d2gm(2,3))+gm(1,3)*(18*gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(2,3)&
1732 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(3,3)&
1733 &   *(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)&
1734 &   *d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*dgm01(3,3)*dgm10(1,1)&
1735 &   +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
1736 &   *d2gm(3,3)))+gm(2,3)*(1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-9*dgm01(1,1)&
1737 &   *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,3)*dgm10(1,1)&
1738 &   +9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(7.5d0*dgm01(3,3)&
1739 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)&
1740 &   +6*gm(1,1)*d2gm(3,3)))
1741    cm(6,8)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)&
1742 &   **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
1743 &   +15*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)+0*gm(1,2)**2*dgm01(3,3)&
1744 &   *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)&
1745 &   **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1746 &   +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*gm(1,3)&
1747 &   *dgm01(2,3)*dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)&
1748 &   +18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)&
1749 &   *dgm10(1,3)+24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,1)&
1750 &   *gm(1,2)*dgm01(2,3)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)&
1751 &   -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)&
1752 &   *dgm01(1,3)*dgm10(2,2)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)&
1753 &   *gm(1,3)*dgm01(1,1)*dgm10(2,3)+30*gm(1,1)*gm(1,3)*dgm01(1,2)&
1754 &   *dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)&
1755 &   **2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)&
1756 &   -3*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)&
1757 &   *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)&
1758 &   *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)&
1759 &   -9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)&
1760 &   +6*gm(1,1)*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(33*dgm01(1,2)&
1761 &   *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1762 &   *d2gm(1,2))+gm(1,2)*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,3)&
1763 &   +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)&
1764 &   *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)&
1765 &   +12*gm(1,1)*d2gm(2,3)))+3*gm(1,1)*gm(1,2)**2*d2gm(3,3)+gm(2,2)&
1766 &   *(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
1767 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)&
1768 &   *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)&
1769 &   *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
1770 &   +6*gm(1,1)*d2gm(3,3)))
1771    cm(7,8)=gm(1,2)*(-3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1772 &   *dgm10(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1773 &   +gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
1774 &   +4.5d0*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)&
1775 &   +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+4.5d0*gm(2,2)&
1776 &   *d2gm(1,1)+15*gm(1,2)*d2gm(1,2))+gm(2,3)*(60*gm(1,2)*dgm01(2,3)&
1777 &   *dgm10(1,2)+18*gm(1,2)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(1,3)&
1778 &   *dgm10(2,2)-3*gm(1,1)*dgm01(2,3)*dgm10(2,2)-6*gm(1,3)*(dgm01(2,2)&
1779 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+60*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
1780 &   -3*gm(1,1)*dgm01(2,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(2,3)+gm(2,2)&
1781 &   *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1782 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,3)*d2gm(1,2)+18*gm(1,2)&
1783 &   *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,2)**2*(-3*dgm01(3,3)*dgm10(1,1)&
1784 &   -12*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(3,3)&
1785 &   *d2gm(1,1)-6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3))+gm(2,2)&
1786 &   *(6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)*dgm10(1,3)&
1787 &   -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*dgm01(1,3)*dgm10(2,3)&
1788 &   -6*gm(1,1)*dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
1789 &   -3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)*(-3*dgm01(2,2)*dgm10(1,1)&
1790 &   -6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-3*gm(1,2)*d2gm(1,2))&
1791 &   +gm(1,3)*(-12*dgm01(2,3)*dgm10(1,2)-12*dgm01(2,2)*dgm10(1,3)&
1792 &   -12*dgm01(1,3)*dgm10(2,2)-12*dgm01(1,2)*dgm10(2,3)-6*gm(1,2)&
1793 &   *d2gm(2,3))+4.5d0*gm(1,2)**2*d2gm(3,3))
1794    cm(8,8)=39*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+7.5d0*gm(1,3)&
1795 &   **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
1796 &   +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+39*gm(1,3)*gm(2,2)&
1797 &   *dgm01(1,3)*dgm10(3,3)+7.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)&
1798 &   +33*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)&
1799 &   *dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)&
1800 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
1801 &   +6*gm(2,2)*d2gm(1,1)+12*gm(1,2)*d2gm(1,2))+7.5d0*gm(1,3)**2*gm(2,2)&
1802 &   *d2gm(3,3)+gm(2,3)**2*(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)&
1803 &   *dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-3*gm(1,1)&
1804 &   *d2gm(3,3))+gm(3,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)&
1805 &   *dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
1806 &   *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)&
1807 &   *dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
1808 &   *dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)&
1809 &   *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)&
1810 &   **2*d2gm(1,1)+24*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(-3*dgm01(2,3)&
1811 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
1812 &   -3*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)&
1813 &   -9*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(10.5d0*dgm01(3,3)&
1814 &   *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
1815 &   +24*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(15*gm(1,2)&
1816 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)*(dgm01(3,3)&
1817 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)+gm(1,3)&
1818 &   *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
1819 &   *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
1820    cm(9,8)=-9*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+54*gm(1,2)&
1821 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*gm(3,3)*dgm01(2,2)&
1822 &   *dgm10(1,3)-9*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)&
1823 &   *gm(3,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
1824 &   -3*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)&
1825 &   *dgm10(2,2)+54*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)&
1826 &   **2*dgm01(2,2)*dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
1827 &   +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+16.5d0*gm(1,2)**2*dgm01(3,3)&
1828 &   *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+16.5d0*gm(1,2)&
1829 &   **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+15*gm(1,2)&
1830 &   **2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(-1.5d0*dgm01(2,3)*dgm10(1,1)&
1831 &   +9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)*dgm10(1,3)-1.5d0*dgm01(1,1)&
1832 &   *dgm10(2,3)+3*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-6*gm(1,1)&
1833 &   *d2gm(2,3))+gm(2,3)*(24*gm(1,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)&
1834 &   *dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
1835 &   *dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)&
1836 &   *dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
1837 &   *dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)&
1838 &   *dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
1839 &   *(7.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
1840 &   *dgm10(2,2)+7.5d0*gm(2,2)*d2gm(1,1)+24*gm(1,2)*d2gm(1,2))+18*gm(1,2)&
1841 &   *gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(3*dgm01(3,3)&
1842 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)&
1843 &   +6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)*d2gm(3,3)))+gm(2,2)*(36*gm(1,2)&
1844 &   *dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)+36*gm(1,2)&
1845 &   *dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)&
1846 &   **2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)&
1847 &   *dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(2,3)&
1848 &   -9*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))&
1849 &   +gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)&
1850 &   *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
1851    cm(10,8)=-3*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(-6*gm(1,2)&
1852 &   *dgm01(3,3)*dgm10(3,3)+33*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1853 &   *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)&
1854 &   *dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)&
1855 &   *d2gm(1,1)+6*gm(1,3)*d2gm(1,2)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)&
1856 &   *d2gm(2,3))+gm(1,3)**2*(16.5d0*dgm01(3,3)*dgm10(2,3)+16.5d0*dgm01(2,3)&
1857 &   *dgm10(3,3)+7.5d0*gm(2,3)*d2gm(3,3))+gm(3,3)*(-15*gm(1,2)*dgm01(3,3)&
1858 &   *dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)-15*gm(1,2)*dgm01(1,3)&
1859 &   *dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)&
1860 &   +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1861 &   +4.5d0*dgm01(1,1)*dgm10(3,3)+18*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)&
1862 &   *d2gm(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+36*dgm01(2,3)*dgm10(1,3)&
1863 &   +36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3)))
1864    cm(1,9)=-15*gm(1,1)*gm(2,3)*dgm01(1,2)*dgm10(1,1)-7.5d0*gm(1,1)&
1865 &   *gm(2,2)*dgm01(1,3)*dgm10(1,1)-15*gm(1,1)*gm(2,3)*dgm01(1,1)&
1866 &   *dgm10(1,2)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,2)-7.5d0*gm(1,1)&
1867 &   *gm(2,2)*dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,2)*dgm10(1,3)&
1868 &   +0*gm(1,1)**2*dgm01(1,3)*dgm10(2,2)+0*gm(1,1)**2*dgm01(1,2)*dgm10(2,3)&
1869 &   -6*gm(1,1)**2*gm(2,3)*d2gm(1,2)-3*gm(1,1)**2*gm(2,2)*d2gm(1,3)&
1870 &   +gm(1,2)**2*(16.5d0*dgm01(1,3)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)&
1871 &   +9*gm(1,1)*d2gm(1,3))+gm(1,3)*(7.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)&
1872 &   *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,2)&
1873 &   *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+18*gm(1,1)*d2gm(1,2))+gm(1,1)&
1874 &   *(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)&
1875 &   *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(2,3)*(-6*dgm01(1,1)&
1876 &   *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)&
1877 &   +36*dgm01(1,3)*dgm10(1,2)+36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
1878 &   *dgm10(2,3)+6*gm(1,1)*d2gm(2,3)))
1879    cm(2,9)=gm(1,1)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(2,3)&
1880 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)**2*(18*dgm01(1,3)&
1881 &   *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,3)+6*gm(1,3)*d2gm(1,1)+12*gm(1,1)&
1882 &   *d2gm(1,3))+gm(1,2)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)&
1883 &   *dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)&
1884 &   +6*gm(2,3)*d2gm(1,2)+1.5d0*gm(1,3)*d2gm(2,2))+gm(1,2)*(9*gm(1,3)&
1885 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+27*gm(1,1)*(dgm01(2,3)&
1886 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,1)&
1887 &   +24*dgm01(1,2)*dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+12*gm(1,1)&
1888 &   *d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)*(18*gm(1,2)*dgm01(2,3)&
1889 &   *dgm10(1,1)+18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+39*gm(1,1)*dgm01(2,3)&
1890 &   *dgm10(1,2)+18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)*dgm01(2,2)&
1891 &   *dgm10(1,3)+19.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)&
1892 &   *dgm10(2,3)+39*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(27*dgm01(1,2)&
1893 &   *dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1894 &   *d2gm(1,2))+6*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(7.5d0*dgm01(2,2)&
1895 &   *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)&
1896 &   +6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)&
1897 &   *d2gm(2,3))
1898    cm(3,9)=3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*gm(3,3)&
1899 &   *dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1900 &   -6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)**2*dgm01(2,3)&
1901 &   *dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)&
1902 &   *gm(1,3)*dgm01(3,3)*dgm10(1,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)&
1903 &   -1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+4.5d0*gm(1,1)*gm(3,3)&
1904 &   *dgm01(2,2)*dgm10(1,3)+24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1905 &   -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*gm(3,3)*dgm01(1,1)&
1906 &   *dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+4.5d0*gm(1,1)&
1907 &   *gm(3,3)*dgm01(1,3)*dgm10(2,2)+7.5d0*gm(1,1)*gm(1,3)*dgm01(3,3)&
1908 &   *dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+9*gm(1,3)&
1909 &   **2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)&
1910 &   +24*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)&
1911 &   *dgm01(2,3)*dgm10(2,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
1912 &   +6*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)&
1913 &   *dgm10(3,3)+7.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,1)&
1914 &   *gm(1,2)*dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)&
1915 &   -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(16.5d0*dgm01(1,3)&
1916 &   *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)&
1917 &   +15*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)&
1918 &   -24*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)&
1919 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)&
1920 &   +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)&
1921 &   -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+1.5d0*gm(1,3)&
1922 &   **3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)+3*gm(1,2)&
1923 &   *gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)&
1924 &   *(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)+24*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
1925 &   +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+54*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
1926 &   +54*gm(1,1)*dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)&
1927 &   +24*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)**2*d2gm(1,2)+gm(3,3)&
1928 &   *(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)&
1929 &   *d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)*(27*dgm01(2,3)*dgm10(1,1)&
1930 &   +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+27*dgm01(1,1)&
1931 &   *dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)*d2gm(2,3)))
1932    cm(4,9)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+72*gm(1,2)&
1933 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)+21*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1934 &   +42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)&
1935 &   *dgm10(1,2)+18*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(1,3)&
1936 &   *dgm01(2,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+24*gm(1,2)&
1937 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)+21*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
1938 &   +42*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)*gm(1,3)&
1939 &   *dgm01(1,3)*dgm10(2,2)+27*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
1940 &   +12*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,2)&
1941 &   *dgm10(2,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)+27*gm(1,1)*gm(1,3)&
1942 &   *dgm01(2,2)*dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
1943 &   +18*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)&
1944 &   *dgm10(3,3)+18*gm(1,2)**2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(21*dgm01(1,2)&
1945 &   *dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+18*gm(1,1)&
1946 &   *d2gm(1,2))+3*gm(1,2)*gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)&
1947 &   *gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)*(12*gm(1,2)&
1948 &   *dgm01(2,3)*dgm10(1,1)+0*gm(1,2)*dgm01(1,3)*dgm10(1,2)+42*gm(1,1)&
1949 &   *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)&
1950 &   *dgm01(2,2)*dgm10(1,3)+27*gm(1,1)*dgm01(1,3)*dgm10(2,2)+12*gm(1,2)&
1951 &   *dgm01(1,1)*dgm10(2,3)+42*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)&
1952 &   **2*d2gm(1,3)+gm(2,2)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)&
1953 &   *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)&
1954 &   *(6*dgm01(2,2)*dgm10(1,1)-24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)&
1955 &   *dgm10(2,2)-12*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+6*gm(1,1)&
1956 &   *gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1957 &   +30*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1958 &   +48*gm(1,1)*dgm01(2,3)*dgm10(1,3)+48*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1959 &   +12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+30*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1960 &   +18*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(42*dgm01(1,2)*dgm10(1,1)+42*dgm01(1,1)&
1961 &   *dgm10(1,2)+12*gm(1,2)*d2gm(1,1)+30*gm(1,1)*d2gm(1,2))+gm(1,3)&
1962 &   *(27*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)&
1963 &   *dgm10(1,3)+27*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
1964 &   *d2gm(2,3)))
1965    cm(5,9)=39*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+0*gm(1,3)**2*dgm01(2,2)&
1966 &   *dgm10(1,1)+10.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+15*gm(1,2)&
1967 &   *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1968 &   +39*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)&
1969 &   *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+18*gm(1,2)&
1970 &   *gm(1,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*gm(1,3)*dgm01(2,3)&
1971 &   *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+18*gm(1,2)&
1972 &   *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
1973 &   -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)*gm(1,2)*dgm01(2,3)&
1974 &   *dgm10(1,3)+0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+10.5d0*gm(1,1)&
1975 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
1976 &   +6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,1)&
1977 &   *dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,1)&
1978 &   *gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)&
1979 &   +7.5d0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)&
1980 &   *dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)&
1981 &   **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)&
1982 &   *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)&
1983 &   *gm(3,3)*d2gm(1,2)+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)&
1984 &   *(-1.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)&
1985 &   *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
1986 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)*dgm10(1,1)&
1987 &   -15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3)))+3*gm(1,1)*gm(1,3)&
1988 &   **2*d2gm(2,2)+6*gm(1,1)**2*gm(3,3)*d2gm(2,2)+6*gm(1,1)*gm(1,2)&
1989 &   *gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)&
1990 &   +15*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))&
1991 &   +gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)&
1992 &   *d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)&
1993 &   +30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+12*gm(1,1)&
1994 &   *d2gm(2,3)))
1995    cm(6,9)=3*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(18*gm(1,1)*(dgm01(2,3)&
1996 &   *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
1997 &   *dgm10(2,3))+gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)&
1998 &   +6*gm(1,1)*d2gm(1,2))+gm(1,3)*(15*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)&
1999 &   *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)&
2000 &   *(27*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*gm(1,1)&
2001 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(7.5d0*dgm01(2,2)&
2002 &   *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)&
2003 &   +6*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)&
2004 &   +15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)&
2005 &   *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+6*gm(1,3)*d2gm(1,2)+6*gm(1,1)&
2006 &   *d2gm(2,3))+gm(2,2)*(27*gm(1,2)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)&
2007 &   *dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*dgm01(1,3)*dgm10(1,2)+27*gm(1,2)&
2008 &   *dgm01(1,1)*dgm10(1,3)+39*gm(1,1)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)&
2009 &   *dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)&
2010 &   *d2gm(1,1))+gm(1,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)&
2011 &   +12*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+15*gm(1,1)*gm(1,2)&
2012 &   *d2gm(1,3)+12*gm(1,1)**2*d2gm(2,3))
2013    cm(7,9)=-3*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(-6*gm(1,3)&
2014 &   *dgm01(2,2)*dgm10(2,2)+33*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2015 &   *dgm10(2,2)))+gm(1,2)**2*(16.5d0*dgm01(2,3)*dgm10(2,2)+16.5d0*dgm01(2,2)&
2016 &   *dgm10(2,3)+7.5d0*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(0*dgm01(2,3)&
2017 &   *dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)&
2018 &   *dgm10(2,3)+3*gm(2,3)*d2gm(1,1)-6*gm(1,3)*d2gm(1,2)+6*gm(1,2)&
2019 &   *d2gm(1,3)-3*gm(1,1)*d2gm(2,3))+gm(2,2)*(36*gm(1,2)*dgm01(2,3)&
2020 &   *dgm10(1,2)+9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)&
2021 &   *dgm10(2,2)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)+36*gm(1,2)*dgm01(1,2)&
2022 &   *dgm10(2,3)-7.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(4.5d0*dgm01(2,2)&
2023 &   *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)&
2024 &   +18*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(-15*dgm01(2,2)&
2025 &   *dgm10(1,2)-15*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*d2gm(2,2))+9*gm(1,2)&
2026 &   **2*d2gm(2,3))
2027    cm(8,9)=36*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)*gm(3,3)&
2028 &   *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2029 &   +36*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,3)&
2030 &   *dgm10(2,2)+16.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-7.5d0*gm(1,1)&
2031 &   *gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)&
2032 &   *dgm10(2,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+16.5d0*gm(1,3)&
2033 &   **2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
2034 &   +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)&
2035 &   *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
2036 &   **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+12*gm(1,2)&
2037 &   *gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)&
2038 &   **2*(-1.5d0*dgm01(2,3)*dgm10(1,1)+9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)&
2039 &   *dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+3*gm(1,2)&
2040 &   *d2gm(1,3)-6*gm(1,1)*d2gm(2,3))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)&
2041 &   *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+27*gm(1,3)*dgm01(2,2)&
2042 &   *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+27*gm(1,3)*dgm01(1,3)&
2043 &   *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)&
2044 &   *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)&
2045 &   *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
2046 &   *dgm10(3,3)+gm(2,2)*(7.5d0*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)&
2047 &   *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)*d2gm(1,3))&
2048 &   +1.5d0*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)&
2049 &   +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(2,2)&
2050 &   *d2gm(1,1)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+18*gm(1,2)&
2051 &   *gm(1,3)*d2gm(2,3))+gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
2052 &   -3*gm(1,1)*dgm01(3,3)*dgm10(2,3)-9*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
2053 &   -3*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(24*dgm01(3,3)*dgm10(1,2)&
2054 &   +54*dgm01(2,3)*dgm10(1,3)+54*dgm01(1,3)*dgm10(2,3)+24*dgm01(1,2)&
2055 &   *dgm10(3,3))+15*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)&
2056 &   *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)&
2057 &   +4.5d0*dgm01(1,1)*dgm10(2,3)+24*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)&
2058 &   -3*gm(1,1)*d2gm(2,3)))
2059    cm(9,9)=39*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+39*gm(1,2)&
2060 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2061 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)&
2062 &   *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)&
2063 &   *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
2064 &   +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(6*dgm01(3,3)&
2065 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)&
2066 &   +6*gm(3,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,3))+7.5d0*gm(1,2)**2*gm(3,3)&
2067 &   *d2gm(2,2)+gm(2,3)**2*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2068 &   *dgm10(1,2)+0*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)+6*gm(1,2)&
2069 &   *d2gm(1,2)-3*gm(1,1)*d2gm(2,2))+gm(2,3)*(18*gm(1,2)*dgm01(2,3)&
2070 &   *dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)&
2071 &   *dgm10(2,2)-15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)&
2072 &   *dgm10(2,3)-15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(1,3)*(15*dgm01(2,2)&
2073 &   *dgm10(1,2)+15*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2))+3*gm(1,2)&
2074 &   **2*d2gm(2,3)+gm(2,2)*(-3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
2075 &   *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)&
2076 &   +6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3)))&
2077 &   +gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)*dgm01(2,3)&
2078 &   *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,3)&
2079 &   *dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)&
2080 &   *dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)**2*d2gm(2,2)&
2081 &   +gm(3,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)&
2082 &   +10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
2083 &   *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)&
2084 &   +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)&
2085 &   *d2gm(2,3)))
2086    cm(10,9)=gm(1,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2087 &   *dgm10(3,3))+gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)&
2088 &   *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)&
2089 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)&
2090 &   *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)&
2091 &   +15*gm(1,3)*d2gm(1,3))+gm(3,3)**2*(-3*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)&
2092 &   *dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(2,2)*d2gm(1,1)-6*gm(1,2)&
2093 &   *d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(gm(1,3)*(18*dgm01(3,3)&
2094 &   *dgm10(1,2)+60*dgm01(2,3)*dgm10(1,3)+60*dgm01(1,3)*dgm10(2,3)&
2095 &   +18*dgm01(1,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2096 &   *dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
2097 &   +15*gm(1,3)**2*d2gm(2,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
2098 &   -12*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
2099 &   -12*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
2100 &   -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
2101 &   -12*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
2102 &   -12*gm(1,2)*dgm01(1,2)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
2103 &   +4.5d0*gm(2,3)**2*d2gm(1,1)+gm(2,2)*(-3*dgm01(3,3)*dgm10(1,1)&
2104 &   -6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-3*gm(1,3)*d2gm(1,3))&
2105 &   +4.5d0*gm(1,3)**2*d2gm(2,2)-6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)&
2106 &   *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
2107 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)-6*gm(1,2)&
2108 &   *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))
2109    cm(1,10)=-7.5d0*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2110 &   *dgm10(1,3))+2.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(16.5d0*dgm01(1,3)&
2111 &   *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))&
2112 &   +gm(1,1)**2*(0*dgm01(3,3)*dgm10(1,3)+0*dgm01(1,3)*dgm10(3,3)&
2113 &   -3*gm(3,3)*d2gm(1,3))+gm(1,3)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
2114 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)&
2115 &   +36*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
2116 &   *d2gm(3,3)))
2117    cm(2,10)=-1.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-3*gm(1,2)&
2118 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,2)*gm(3,3)*dgm01(1,3)&
2119 &   *dgm10(1,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)-12*gm(1,2)&
2120 &   *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
2121 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)&
2122 &   *dgm10(1,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,3)&
2123 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)&
2124 &   -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,3)&
2125 &   *dgm01(3,3)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
2126 &   +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,2)&
2127 &   *dgm01(3,3)*dgm10(2,3)+3*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)&
2128 &   -4.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*gm(1,3)&
2129 &   *dgm01(2,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2130 &   -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(22.5d0*dgm01(1,3)&
2131 &   *dgm10(1,1)+22.5d0*dgm01(1,1)*dgm10(1,3)+7.5d0*gm(1,3)*d2gm(1,1)&
2132 &   +15*gm(1,1)*d2gm(1,3))+1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)&
2133 &   *(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
2134 &   +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+30*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
2135 &   +30*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)*dgm10(3,3)&
2136 &   +12*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
2137 &   +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)*(15*dgm01(2,3)&
2138 &   *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
2139 &   +15*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)&
2140 &   *d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2141 &   *dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(-4.5d0*dgm01(1,3)&
2142 &   *dgm10(1,1)-4.5d0*dgm01(1,1)*dgm10(1,3)-1.5d0*gm(1,3)*d2gm(1,1)&
2143 &   -3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)&
2144 &   *dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3)))
2145    cm(3,10)=gm(3,3)**2*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)&
2146 &   *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+12*gm(1,1)*d2gm(1,3))+gm(1,3)&
2147 &   *(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(1,3)*(dgm01(3,3)&
2148 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3))&
2149 &   +gm(3,3)*(31.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2150 &   +6*gm(1,3)**2*d2gm(1,3)+gm(1,3)*(13.5d0*dgm01(3,3)*dgm10(1,1)&
2151 &   +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,1)&
2152 &   *d2gm(3,3)))
2153    cm(4,10)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(2,3)&
2154 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)&
2155 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)&
2156 &   **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
2157 &   *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+3*gm(1,2)&
2158 &   *d2gm(3,3))+gm(3,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)&
2159 &   *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+24*gm(1,1)&
2160 &   *dgm01(2,3)*dgm10(1,3)+24*gm(1,1)*dgm01(1,3)*dgm10(2,3)+6*gm(1,2)&
2161 &   *dgm01(1,1)*dgm10(3,3)+12*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)&
2162 &   *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+9*gm(1,3)&
2163 &   *d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)*(9*dgm01(2,3)*dgm10(1,1)&
2164 &   +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
2165 &   *dgm10(2,3)+6*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))&
2166 &   +gm(1,3)*(12*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2167 &   +3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)&
2168 &   *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2169 &   *dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
2170    cm(5,10)=12*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+21*gm(1,1)*gm(1,3)&
2171 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(1,1)&
2172 &   *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)&
2173 &   **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
2174 &   *dgm10(3,3)+3*gm(1,1)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)**2*d2gm(1,1)&
2175 &   +gm(1,3)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)&
2176 &   *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)&
2177 &   +9*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)*d2gm(3,3)))
2178    cm(6,10)=-12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)&
2179 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
2180 &   -12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*gm(3,3)*dgm01(1,2)&
2181 &   *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,1)&
2182 &   *gm(3,3)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)&
2183 &   -6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,3)&
2184 &   *dgm10(3,3)-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(1,3)**2*(7.5d0*dgm01(2,3)&
2185 &   *dgm10(1,1)+3*dgm01(1,3)*dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)&
2186 &   *dgm10(2,3)+3*gm(1,2)*d2gm(1,3))+gm(1,3)*(gm(1,1)*(3*dgm01(3,3)&
2187 &   *dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)&
2188 &   +3*dgm01(1,2)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2189 &   *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(0*dgm01(3,3)*dgm10(1,1)&
2190 &   +12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))&
2191 &   +gm(2,3)*(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
2192 &   -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)&
2193 &   *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)&
2194 &   *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
2195 &   +6*gm(1,1)*d2gm(3,3)))
2196    cm(7,10)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)&
2197 &   -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)&
2198 &   +6*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)&
2199 &   *(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)*dgm01(2,3))&
2200 &   +gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)-18*gm(1,2)&
2201 &   *dgm01(3,3)))*dgm10(1,3)+3*dgm01(3,3)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)&
2202 &   +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)&
2203 &   **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)&
2204 &   -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(-18*gm(1,1)&
2205 &   *gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)&
2206 &   *dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)&
2207 &   -36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))&
2208 &   *dgm10(3,3)+6*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)&
2209 &   *gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)&
2210 &   *dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)*dgm10(1,2)&
2211 &   -36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+dgm01(1,1)*(270*gm(2,3)&
2212 &   **2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)*(gm(3,3)&
2213 &   *dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
2214 &   *gm(3,3))*d2gm(1,1)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
2215 &   **2-18*gm(2,2)*gm(3,3)))*d2gm(1,3)+3*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
2216 &   *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(3,3))/36.d0
2217    cm(8,10)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)&
2218 &   *dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2219 &   *dgm10(3,3)))+gm(3,3)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
2220 &   *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)&
2221 &   +3*gm(2,3)*d2gm(1,1)+12*gm(1,2)*d2gm(1,3))+1.5d0*gm(1,3)**2*(dgm01(3,3)&
2222 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))+gm(3,3)&
2223 &   *(36*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
2224 &   +36*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
2225 &   +gm(2,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2226 &   +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)&
2227 &   *d2gm(3,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
2228 &   +6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)&
2229 &   *d2gm(3,3)))
2230    cm(9,10)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)-3*gm(1,3)&
2231 &   **2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)&
2232 &   -15*gm(1,3)*gm(2,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,3)**2*dgm01(2,2)&
2233 &   *dgm10(3,3)+9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)&
2234 &   **2*dgm01(3,3)*dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
2235 &   -1.5d0*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
2236 &   +gm(2,2)*d2gm(1,1))-3*gm(1,3)**2*gm(2,2)*d2gm(3,3)+gm(2,3)**2*(1.5d0*dgm01(3,3)&
2237 &   *dgm10(1,1)+6*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)&
2238 &   +3*gm(1,3)*d2gm(1,3)-3*gm(1,1)*d2gm(3,3))+gm(3,3)*(15*gm(1,2)&
2239 &   *dgm01(3,3)*dgm10(1,2)-9*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)&
2240 &   *dgm01(2,3)*dgm10(1,3)-9*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)&
2241 &   *dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+15*gm(1,2)&
2242 &   *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+4.5d0*gm(2,3)&
2243 &   **2*d2gm(1,1)+gm(2,3)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
2244 &   *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)&
2245 &   +24*gm(1,2)*d2gm(1,3))+7.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-4.5d0*dgm01(3,3)&
2246 &   *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3)&
2247 &   -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)&
2248 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,1)*(dgm01(3,3)&
2249 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)&
2250 &   +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)&
2251 &   *dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
2252    cm(10,10)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(1,1)&
2253 &   +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2254 &   +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)&
2255 &   *d2gm(3,3))+gm(3,3)*(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)&
2256 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)&
2257 &   **2*d2gm(3,3))
2258    cm(1,11)=5*gm(1,2)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(2,2)&
2259 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(2,2)*(dgm01(1,2)*dgm10(1,1)&
2260 &   +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2)))+gm(1,2)**2*(4.5d0*dgm01(2,2)&
2261 &   *dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)&
2262 &   +4.5d0*gm(1,1)*d2gm(2,2))+gm(1,1)*(-3*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
2263 &   +gm(2,2)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
2264 &   *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
2265    cm(2,11)=6*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,1)&
2266 &   *dgm01(2,2)*dgm10(2,2)+18*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2267 &   *dgm10(2,2))+3*gm(1,2)**2*d2gm(2,2))+gm(2,2)**2*(6*dgm01(2,2)&
2268 &   *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*(dgm01(1,1)*dgm10(2,2)&
2269 &   +gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2)))
2270    cm(3,11)=(-108*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-108*gm(1,2)&
2271 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)-72*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2272 &   -36*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+108*gm(1,2)*gm(1,3)&
2273 &   *dgm01(2,3)*dgm10(2,2)-36*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+108*gm(1,2)&
2274 &   *gm(1,3)*dgm01(2,2)*dgm10(2,3)-36*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)&
2275 &   -36*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(90*dgm01(2,2)*dgm10(1,1)&
2276 &   +360*dgm01(1,2)*dgm10(1,2)+90*dgm01(1,1)*dgm10(2,2)+180*gm(1,2)&
2277 &   *d2gm(1,2)+90*gm(1,1)*d2gm(2,2))+gm(2,2)*(-36*gm(1,2)*dgm01(3,3)&
2278 &   *dgm10(1,2)-18*gm(1,1)*dgm01(3,3)*dgm10(2,2)-72*gm(1,3)*(dgm01(2,3)&
2279 &   *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
2280 &   *dgm10(2,3))-36*gm(1,2)*dgm01(1,2)*dgm10(3,3)-18*gm(1,1)*dgm01(2,2)&
2281 &   *dgm10(3,3)-36*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(-18*dgm01(2,2)*dgm10(1,1)&
2282 &   -72*dgm01(1,2)*dgm10(1,2)-18*dgm01(1,1)*dgm10(2,2)-36*gm(1,2)&
2283 &   *d2gm(1,2)-18*gm(1,1)*d2gm(2,2)))+gm(2,3)*(360*gm(1,2)*dgm01(2,3)&
2284 &   *dgm10(1,2)+108*gm(1,2)*dgm01(2,2)*dgm10(1,3)+108*gm(1,2)*dgm01(1,3)&
2285 &   *dgm10(2,2)+180*gm(1,1)*dgm01(2,3)*dgm10(2,2)+360*gm(1,2)*dgm01(1,2)&
2286 &   *dgm10(2,3)+180*gm(1,1)*dgm01(2,2)*dgm10(2,3)-72*gm(2,2)*(dgm01(1,3)&
2287 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,3)*d2gm(1,2))+gm(1,3)&
2288 &   *(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)+108*gm(1,2)&
2289 &   *d2gm(2,2))))/12.d0
2290    cm(4,11)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)&
2291 &   *dgm01(2,2)*dgm10(2,2)+24*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2292 &   *dgm10(2,2)))-6*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2293 &   *dgm10(1,3)+gm(1,3)*d2gm(1,2))+3*gm(1,2)**2*(dgm01(2,3)*dgm10(2,2)&
2294 &   +dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)*(18*gm(1,2)&
2295 &   *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+3*gm(1,2)&
2296 &   *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)&
2297 &   *dgm01(1,2)*dgm10(2,3)+12*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)&
2298 &   *(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
2299 &   *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)&
2300 &   *(-9*dgm01(2,2)*dgm10(1,2)-9*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)&
2301 &   *d2gm(2,2)))
2302    cm(5,11)=(gm(1,1)*(-108*gm(1,3)*dgm01(2,2)*dgm10(2,2)+108*gm(2,3)&
2303 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(180*dgm01(2,3)&
2304 &   *dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)&
2305 &   +180*dgm01(1,2)*dgm10(2,3)+180*gm(2,3)*d2gm(1,2)+18*gm(1,3)*d2gm(2,2))&
2306 &   +gm(2,2)*(-72*gm(1,2)*dgm01(1,3)*dgm10(1,2)-36*gm(1,1)*dgm01(2,3)&
2307 &   *dgm10(1,2)-72*gm(1,2)*dgm01(1,2)*dgm10(1,3)-54*gm(1,1)*dgm01(2,2)&
2308 &   *dgm10(1,3)-54*gm(1,1)*dgm01(1,3)*dgm10(2,2)-36*gm(1,1)*dgm01(1,2)&
2309 &   *dgm10(2,3)-36*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2310 &   +gm(1,1)*d2gm(1,2))+gm(1,3)*(-54*dgm01(2,2)*dgm10(1,1)-144*dgm01(1,2)&
2311 &   *dgm10(1,2)-54*dgm01(1,1)*dgm10(2,2)-72*gm(1,2)*d2gm(1,2)-54*gm(1,1)&
2312 &   *d2gm(2,2)))+gm(1,2)*(-36*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2313 &   *dgm10(2,2))+144*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2314 &   +gm(2,3)*(144*dgm01(2,2)*dgm10(1,1)+720*dgm01(1,2)*dgm10(1,2)&
2315 &   +144*dgm01(1,1)*dgm10(2,2)+144*gm(1,1)*d2gm(2,2))))/12.d0
2316    cm(6,11)=-3*gm(2,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2317 &   +gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
2318 &   +13.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2319 &   +1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(1.5d0*gm(1,1)*(dgm01(2,2)&
2320 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)+gm(1,2)&
2321 &   *(7.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
2322 &   *dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2)))
2323    cm(7,11)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
2324 &   **2*d2gm(1,2)+gm(2,2)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)&
2325 &   +3*gm(1,2)*d2gm(2,2)))
2326    cm(8,11)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)&
2327 &   **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2))&
2328 &   +gm(2,3)**2*(10.5d0*dgm01(2,2)*dgm10(1,2)+10.5d0*dgm01(1,2)*dgm10(2,2)&
2329 &   +9*gm(2,2)*d2gm(1,2)+1.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(12*gm(1,3)&
2330 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))-4.5d0*gm(1,2)&
2331 &   *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(2,2)&
2332 &   *dgm10(1,2)-10.5d0*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,2)*d2gm(2,2)))&
2333 &   +gm(2,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)&
2334 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)&
2335 &   +12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)&
2336 &   *dgm10(2,3)+12*gm(1,3)*d2gm(2,2)))
2337    cm(9,11)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)**2*(dgm01(2,3)&
2338 &   *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
2339 &   *dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(1,3)*d2gm(2,2))+gm(2,2)*(24*gm(1,3)&
2340 &   *dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2341 &   *dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,2)+15*dgm01(1,2)&
2342 &   *dgm10(2,2)+3*gm(1,2)*d2gm(2,2)))
2343    cm(10,11)=(-108*gm(3,3)*(gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)&
2344 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+180*gm(2,3)**3*d2gm(1,2)&
2345 &   +gm(2,3)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)*dgm10(1,3)&
2346 &   +270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3)+270*gm(1,3)&
2347 &   *d2gm(2,2))+gm(2,3)*(540*gm(1,3)*dgm01(2,3)*dgm10(2,2)-108*gm(1,2)&
2348 &   *dgm01(3,3)*dgm10(2,2)+540*gm(1,3)*dgm01(2,2)*dgm10(2,3)-108*gm(1,2)&
2349 &   *dgm01(2,2)*dgm10(3,3)-108*gm(2,2)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2350 &   *dgm10(3,3))+gm(3,3)*(-216*dgm01(2,2)*dgm10(1,2)-216*dgm01(1,2)&
2351 &   *dgm10(2,2)-108*gm(2,2)*d2gm(1,2)-108*gm(1,2)*d2gm(2,2)))+gm(2,2)&
2352 &   *(-54*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)&
2353 &   *(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)-54*dgm01(1,3)&
2354 &   *dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)-54*gm(1,3)*d2gm(2,2))))&
2355 &   /36.d0
2356    cm(1,12)=gm(1,2)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2357 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3))&
2358 &   -3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
2359 &   *d2gm(1,2))-6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
2360 &   +gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)&
2361 &   +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+15*gm(1,2)&
2362 &   *d2gm(1,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(18*gm(1,2)*dgm01(2,3)&
2363 &   *dgm10(1,1)+60*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)&
2364 &   *dgm10(1,2)+60*gm(1,2)*dgm01(1,2)*dgm10(1,3)+6*gm(1,1)*dgm01(2,2)&
2365 &   *dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)&
2366 &   *dgm10(2,3)+12*gm(1,1)*dgm01(1,2)*dgm10(2,3)-6*gm(2,3)*(dgm01(1,2)&
2367 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+15*gm(1,2)&
2368 &   **2*d2gm(1,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
2369 &   +gm(1,1)*d2gm(1,3))+18*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(1,1)*(-3*gm(2,2)&
2370 &   *dgm01(3,3)*dgm10(1,1)-6*gm(2,2)*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)&
2371 &   *dgm01(3,3)*dgm10(2,2)-12*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(2,2)&
2372 &   *dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
2373 &   *(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
2374 &   *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(-12*dgm01(2,3)&
2375 &   *dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)&
2376 &   -12*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3))-1.5d0*gm(1,1)&
2377 &   *gm(2,2)*d2gm(3,3))+gm(1,2)**2*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)&
2378 &   *dgm10(1,3)+4.5d0*(dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))
2379    cm(2,12)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)&
2380 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2381 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(2,3)&
2382 &   *dgm10(2,2)+0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)&
2383 &   *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)&
2384 &   **2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)&
2385 &   **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
2386 &   *dgm10(2,2)+3*gm(1,2)*d2gm(1,2)+7.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)&
2387 &   *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
2388 &   +15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+39*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
2389 &   +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+39*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
2390 &   +gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)&
2391 &   *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)&
2392 &   +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)&
2393 &   *dgm10(2,3)+24*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2394 &   *d2gm(2,3)))+gm(2,2)**2*(6*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)&
2395 &   *dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)+12*gm(1,3)*d2gm(1,3)+6*gm(1,1)&
2396 &   *d2gm(3,3))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)&
2397 &   *dgm01(2,3)*dgm10(1,3)+10.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)&
2398 &   *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)&
2399 &   *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)&
2400 &   **2*d2gm(2,2)+gm(3,3)*(-1.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)&
2401 &   *dgm10(1,2)-1.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
2402 &   *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)&
2403 &   +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)&
2404 &   *d2gm(2,3))+3*gm(1,2)**2*d2gm(3,3))
2405    cm(3,12)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+0*gm(1,3)&
2406 &   **2*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
2407 &   +15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-15*gm(1,3)*gm(2,2)&
2408 &   *dgm01(1,3)*dgm10(3,3)+0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+15*gm(1,2)&
2409 &   *gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)&
2410 &   -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)&
2411 &   *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
2412 &   +12*gm(1,2)*d2gm(1,2)+6*gm(1,1)*d2gm(2,2))-3*gm(1,3)**2*gm(2,2)&
2413 &   *d2gm(3,3)+gm(2,3)**2*(7.5d0*dgm01(3,3)*dgm10(1,1)+6*dgm01(1,3)&
2414 &   *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,3)*d2gm(1,3)+7.5d0*gm(1,1)&
2415 &   *d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)&
2416 &   *dgm01(3,3)*dgm10(1,2)-3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
2417 &   *dgm01(2,3)*dgm10(1,3)-3*gm(1,3)*dgm01(1,3)*dgm10(2,2)+10.5d0*gm(1,1)&
2418 &   *dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
2419 &   *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)&
2420 &   *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)&
2421 &   **2*d2gm(2,2)+6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*dgm01(2,3)&
2422 &   *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)&
2423 &   +24*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)&
2424 &   +24*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-1.5d0*dgm01(3,3)&
2425 &   *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3)&
2426 &   -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)&
2427 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+39*gm(1,1)*(dgm01(3,3)&
2428 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+6*gm(1,3)**2*d2gm(2,3)+gm(1,3)&
2429 &   *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
2430 &   *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
2431    cm(4,12)=27*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)&
2432 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(2,2)&
2433 &   *dgm10(1,3)+27*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+27*gm(1,2)&
2434 &   *gm(3,3)*dgm01(1,3)*dgm10(2,2)+21*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
2435 &   +42*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*gm(1,3)*dgm01(3,3)&
2436 &   *dgm10(2,2)+42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+21*gm(1,3)&
2437 &   **2*dgm01(2,2)*dgm10(2,3)+42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
2438 &   -24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+21*gm(1,2)**2*dgm01(3,3)&
2439 &   *dgm10(2,3)+6*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+21*gm(1,2)&
2440 &   **2*dgm01(2,3)*dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)&
2441 &   +18*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(18*dgm01(2,3)*dgm10(1,1)&
2442 &   +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)&
2443 &   *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+18*gm(1,1)&
2444 &   *d2gm(2,3))+gm(2,3)*(0*gm(1,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)&
2445 &   *dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)&
2446 &   *dgm01(2,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)*dgm10(2,2)+24*gm(1,1)&
2447 &   *dgm01(3,3)*dgm10(2,2)+0*gm(1,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)&
2448 &   *dgm01(1,3)*dgm10(2,3)+72*gm(1,1)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)&
2449 &   *dgm01(1,2)*dgm10(3,3)+24*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)&
2450 &   **2*d2gm(2,2)+gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2451 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)&
2452 &   *d2gm(2,2))-12*gm(1,2)*gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)&
2453 &   +gm(2,2)*(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2454 &   *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)&
2455 &   *(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
2456 &   +27*gm(1,2)*dgm01(1,3)*dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
2457 &   +18*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(30*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)&
2458 &   *dgm10(1,2)+48*dgm01(1,2)*dgm10(1,3)+30*dgm01(1,1)*dgm10(2,3)&
2459 &   +24*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)+30*gm(1,1)*d2gm(2,3))&
2460 &   +gm(1,3)*(27*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)&
2461 &   *dgm10(2,3)+27*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2462    cm(5,12)=7.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+24*gm(1,2)&
2463 &   *gm(3,3)*dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)&
2464 &   *dgm10(1,2)+54*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)&
2465 &   **2*dgm01(2,3)*dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)&
2466 &   +27*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+54*gm(1,2)*gm(3,3)&
2467 &   *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
2468 &   +4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)*gm(1,3)&
2469 &   *dgm01(2,3)*dgm10(1,3)+16.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)&
2470 &   +7.5d0*gm(1,3)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)&
2471 &   *dgm10(2,2)+4.5d0*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)&
2472 &   *gm(1,3)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(3,3)*dgm01(1,1)&
2473 &   *dgm10(2,3)+9*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)&
2474 &   *dgm01(1,2)*dgm10(2,3)+30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)&
2475 &   +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+36*gm(1,1)*gm(1,2)&
2476 &   *dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)&
2477 &   +16.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*gm(1,3)*dgm01(2,2)&
2478 &   *dgm10(3,3)+36*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)&
2479 &   *gm(1,3)*gm(3,3)*d2gm(1,2)+15*gm(1,2)**2*gm(3,3)*d2gm(1,3)-6*gm(2,3)&
2480 &   **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2481 &   +1.5d0*gm(1,3)**3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)&
2482 &   +6*gm(1,2)*gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)&
2483 &   +1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(12*gm(1,2)*dgm01(3,3)&
2484 &   *dgm10(1,1)+3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)&
2485 &   *dgm10(1,3)-6*gm(1,1)*dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)&
2486 &   *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*dgm01(1,2)&
2487 &   *dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)-9*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
2488 &   +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(6*dgm01(2,3)&
2489 &   *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)&
2490 &   +6*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3))&
2491 &   +12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)&
2492 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)&
2493 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2494 &   +gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)&
2495 &   -4.5d0*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3)))
2496    cm(6,12)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
2497 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)+16.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
2498 &   -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)*gm(1,3)&
2499 &   *dgm01(2,3)*dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)&
2500 &   +27*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)&
2501 &   *dgm10(1,3)-4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+16.5d0*gm(1,3)&
2502 &   **2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)&
2503 &   +27*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)*gm(1,3)&
2504 &   *dgm01(2,3)*dgm10(2,2)+3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
2505 &   +30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)&
2506 &   *dgm10(2,3)+36*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,1)&
2507 &   *gm(1,2)*dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)&
2508 &   +3*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)&
2509 &   *d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2510 &   +gm(1,1)*d2gm(1,2))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)&
2511 &   *gm(1,2)*gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)&
2512 &   *(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
2513 &   -6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
2514 &   +3*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,3)*dgm10(2,2)&
2515 &   +6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*dgm01(1,2)*dgm10(2,3)&
2516 &   +3*gm(1,2)**2*d2gm(1,3)-9*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2517 &   *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
2518 &   +36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)&
2519 &   *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+6*gm(1,1)*gm(1,2)*d2gm(2,3))&
2520 &   +1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(7.5d0*gm(1,2)*dgm01(3,3)&
2521 &   *dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)&
2522 &   *dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(1,3)&
2523 &   *dgm10(2,3)+7.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)&
2524 &   *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)&
2525 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)&
2526 &   *(24*dgm01(2,3)*dgm10(1,1)+54*dgm01(1,3)*dgm10(1,2)+54*dgm01(1,2)&
2527 &   *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2528 &   *d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))
2529    cm(7,12)=-3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(16.5d0*dgm01(2,2)&
2530 &   *dgm10(1,2)+16.5d0*dgm01(1,2)*dgm10(2,2)+9*gm(2,2)*d2gm(1,2)&
2531 &   +7.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(-15*gm(1,3)*(dgm01(2,3)*dgm10(2,2)&
2532 &   +dgm01(2,2)*dgm10(2,3))+gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)&
2533 &   +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))+gm(3,3)&
2534 &   *(-7.5d0*dgm01(2,2)*dgm10(1,2)-7.5d0*dgm01(1,2)*dgm10(2,2)-1.5d0*gm(1,2)&
2535 &   *d2gm(2,2)))+gm(2,3)*(-6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)&
2536 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)&
2537 &   +gm(2,2)*(36*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)&
2538 &   *dgm10(2,2)+36*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)*d2gm(2,2)+18*gm(1,2)&
2539 &   *d2gm(2,3)))+gm(2,2)**2*(0*dgm01(3,3)*dgm10(1,2)+0*dgm01(2,3)&
2540 &   *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)&
2541 &   *d2gm(1,2)-6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
2542    cm(8,12)=gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(1,3)&
2543 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+3*gm(2,3)**3*d2gm(1,3)&
2544 &   +gm(3,3)**2*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)&
2545 &   +12*gm(2,2)*d2gm(1,2)+6*gm(1,2)*d2gm(2,2))+gm(2,3)**2*(7.5d0*dgm01(3,3)&
2546 &   *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)&
2547 &   +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)&
2548 &   *d2gm(3,3))+gm(3,3)*(27*gm(1,3)*dgm01(2,3)*dgm10(2,2)+7.5d0*gm(1,2)&
2549 &   *dgm01(3,3)*dgm10(2,2)+27*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)&
2550 &   *dgm01(2,3)*dgm10(2,3)+7.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)&
2551 &   **2*d2gm(1,2)+gm(2,3)*(18*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)&
2552 &   *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)&
2553 &   +15*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))&
2554 &   +gm(2,2)*(19.5d0*dgm01(3,3)*dgm10(1,2)+39*dgm01(2,3)*dgm10(1,3)&
2555 &   +39*dgm01(1,3)*dgm10(2,3)+19.5d0*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)&
2556 &   *d2gm(2,3)-4.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(15*dgm01(3,3)&
2557 &   *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+15*dgm01(2,2)*dgm10(3,3))&
2558 &   +9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,2)&
2559 &   *(27*dgm01(3,3)*dgm10(1,3)+27*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)&
2560 &   *d2gm(3,3)))
2561    cm(9,12)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(1,2)&
2562 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)&
2563 &   +gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)&
2564 &   +7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)+6*gm(2,2)&
2565 &   *d2gm(1,3)+1.5d0*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)&
2566 &   *(gm(1,3)*(7.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
2567 &   +7.5d0*dgm01(2,2)*dgm10(3,3))+27*gm(1,2)*(dgm01(3,3)*dgm10(2,3)&
2568 &   +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(39*dgm01(2,3)*dgm10(1,2)+19.5d0*dgm01(2,2)&
2569 &   *dgm10(1,3)+19.5d0*dgm01(1,3)*dgm10(2,2)+39*dgm01(1,2)*dgm10(2,3)&
2570 &   -4.5d0*gm(1,3)*d2gm(2,2)+24*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(18*dgm01(3,3)&
2571 &   *dgm10(1,3)+18*dgm01(1,3)*dgm10(3,3)+12*gm(3,3)*d2gm(1,3)+6*gm(1,3)&
2572 &   *d2gm(3,3))+gm(2,3)*(9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+15*gm(1,2)&
2573 &   *dgm01(3,3)*dgm10(2,2)+9*gm(1,3)*dgm01(2,2)*dgm10(2,3)+24*gm(1,2)&
2574 &   *dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
2575 &   *(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)&
2576 &   *d2gm(1,2)+12*gm(1,2)*d2gm(2,2))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,2)&
2577 &   +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+18*dgm01(1,2)&
2578 &   *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3)))
2579    cm(10,12)=-3*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(-6*gm(1,2)&
2580 &   *dgm01(3,3)*dgm10(3,3)+33*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2581 &   *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)&
2582 &   *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,2)+0*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)&
2583 &   *d2gm(1,2)-3*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)-6*gm(1,2)&
2584 &   *d2gm(2,3))+gm(2,3)**2*(16.5d0*dgm01(3,3)*dgm10(1,3)+16.5d0*dgm01(1,3)&
2585 &   *dgm10(3,3)+7.5d0*gm(1,3)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)*dgm01(3,3)&
2586 &   *dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-15*gm(1,2)*dgm01(3,3)&
2587 &   *dgm10(2,3)+4.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)-15*gm(1,2)*dgm01(2,3)&
2588 &   *dgm10(3,3)+9*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(9*dgm01(3,3)*dgm10(1,2)&
2589 &   +36*dgm01(2,3)*dgm10(1,3)+36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)&
2590 &   *dgm10(3,3)+18*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))+gm(2,2)&
2591 &   *(-7.5d0*dgm01(3,3)*dgm10(1,3)-7.5d0*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,3)&
2592 &   *d2gm(3,3)))
2593    cm(1,13)=5*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)&
2594 &   *dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
2595 &   *dgm10(2,3))-6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2596 &   +gm(1,1)*d2gm(1,2))-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2597 &   *dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)*(6*gm(1,1)*(dgm01(2,2)&
2598 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+15*gm(1,2)**2*d2gm(1,2)-3*gm(2,2)&
2599 &   *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))&
2600 &   +gm(1,2)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)&
2601 &   *dgm10(2,2)+9*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(1,1)&
2602 &   +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
2603 &   *dgm10(2,3)+9*gm(1,1)*d2gm(2,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(2,3)&
2604 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(-6*dgm01(2,2)*dgm10(1,1)&
2605 &   -12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*d2gm(2,2))&
2606 &   +gm(2,2)*(-6*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)&
2607 &   *dgm10(1,3)-6*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*d2gm(2,3)))
2608    cm(2,13)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)&
2609 &   *dgm01(2,2)*dgm10(2,2)+12*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2610 &   *dgm10(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)&
2611 &   *dgm10(2,3)+3*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(12*dgm01(2,3)*dgm10(1,1)&
2612 &   +18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)&
2613 &   *dgm10(2,3)+12*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+12*gm(1,1)&
2614 &   *d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)&
2615 &   *dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)&
2616 &   *dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+36*gm(1,1)&
2617 &   *dgm01(2,2)*dgm10(2,3)+gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2618 &   *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)&
2619 &   *d2gm(2,2))+gm(1,3)*(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)&
2620 &   +3*gm(1,2)*d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3))
2621    cm(3,13)=-6*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)&
2622 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2623 &   -6*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,3)&
2624 &   *dgm10(2,2)-3*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)+9*gm(1,1)*gm(3,3)&
2625 &   *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2626 &   +12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)**2*dgm01(2,2)&
2627 &   *dgm10(2,3)+9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
2628 &   *gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
2629 &   +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(2,3)&
2630 &   *dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)&
2631 &   *d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
2632 &   *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
2633 &   +3*gm(1,3)*d2gm(1,2)+15*gm(1,2)*d2gm(1,3)+15*gm(1,1)*d2gm(2,3))&
2634 &   +gm(2,2)*(gm(1,3)*(-9*dgm01(3,3)*dgm10(1,2)-18*dgm01(2,3)*dgm10(1,3)&
2635 &   -18*dgm01(1,3)*dgm10(2,3)-9*dgm01(1,2)*dgm10(3,3))-3*(gm(1,2)&
2636 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(dgm01(3,3)&
2637 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(1,3)**2*d2gm(2,3)+gm(3,3)&
2638 &   *(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)&
2639 &   *dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)-9*gm(1,3)*d2gm(1,2)-3*gm(1,2)&
2640 &   *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,3)*(24*gm(1,2)*dgm01(3,3)&
2641 &   *dgm10(1,2)-12*gm(2,2)*dgm01(1,3)*dgm10(1,3)+48*gm(1,2)*dgm01(2,3)&
2642 &   *dgm10(1,3)+12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,2)*dgm01(1,3)&
2643 &   *dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)&
2644 &   *dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(2,2)&
2645 &   +gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
2646 &   *dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)&
2647 &   *(24*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)*dgm10(1,3)+0*dgm01(1,3)&
2648 &   *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)-6*gm(2,2)*d2gm(1,3)+18*gm(1,2)&
2649 &   *d2gm(2,3)))
2650    cm(4,13)=42*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)&
2651 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)+18*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2652 &   +30*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)&
2653 &   *dgm10(2,2)+9*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)&
2654 &   *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)&
2655 &   **2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(-12*dgm01(1,3)*dgm10(1,3)&
2656 &   -6*gm(1,3)*d2gm(1,3))+9*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)&
2657 &   **2*(9*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)&
2658 &   *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+9*gm(1,1)*d2gm(2,2))+gm(2,3)&
2659 &   *(24*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
2660 &   +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)+42*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
2661 &   +24*gm(1,2)*dgm01(1,2)*dgm10(2,3)+42*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
2662 &   +gm(1,3)*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)-6*gm(1,2)&
2663 &   *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)&
2664 &   +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)&
2665 &   *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2666 &   *d2gm(2,3)))+gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)&
2667 &   *dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)&
2668 &   *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)&
2669 &   *dgm01(1,2)*dgm10(3,3)+15*gm(1,1)*dgm01(2,2)*dgm10(3,3)+9*gm(1,3)&
2670 &   **2*d2gm(2,2)+gm(3,3)*(15*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
2671 &   *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+15*gm(1,1)&
2672 &   *d2gm(2,2))+gm(1,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)&
2673 &   +6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*d2gm(2,3)))
2674    cm(5,13)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)&
2675 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)-3*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
2676 &   +9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)&
2677 &   *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)&
2678 &   *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)&
2679 &   *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
2680 &   +9*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,3)&
2681 &   *dgm10(2,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,1)&
2682 &   *gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,2)&
2683 &   *dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*gm(1,3)&
2684 &   *dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
2685 &   +15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)&
2686 &   *dgm10(3,3)+15*gm(1,2)**2*gm(3,3)*d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)&
2687 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,2)&
2688 &   *gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,2)+3*gm(1,2)&
2689 &   **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
2690 &   +48*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
2691 &   +48*gm(1,2)*dgm01(1,2)*dgm10(1,3)+0*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
2692 &   +0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
2693 &   +12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(1,3)-3*gm(2,2)&
2694 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2695 &   +gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
2696 &   *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+24*gm(1,1)&
2697 &   *gm(1,2)*d2gm(2,3))+gm(2,2)*(-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
2698 &   -12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
2699 &   -12*gm(1,1)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
2700 &   -6*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2701 &   *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(-9*dgm01(2,3)*dgm10(1,1)&
2702 &   -18*dgm01(1,3)*dgm10(1,2)-18*dgm01(1,2)*dgm10(1,3)-9*dgm01(1,1)&
2703 &   *dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3)))
2704    cm(6,13)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(2,3)&
2705 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)&
2706 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,2)&
2707 &   **2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)&
2708 &   *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+3*gm(1,3)&
2709 &   *d2gm(2,2))+gm(1,2)*(30*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2710 &   *dgm10(2,2))+18*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2711 &   +gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
2712 &   *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)&
2713 &   *(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)+42*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
2714 &   +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+42*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
2715 &   +6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)&
2716 &   +15*gm(1,2)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*dgm01(1,2)*dgm10(2,3)&
2717 &   -9*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
2718 &   *d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
2719 &   +48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)&
2720 &   *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)*d2gm(2,3))
2721    cm(7,13)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
2722 &   **3*d2gm(1,3)+gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)&
2723 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(21*dgm01(2,2)&
2724 &   *dgm10(1,2)+21*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2)))+gm(2,2)&
2725 &   **2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
2726 &   *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)-3*gm(1,3)&
2727 &   *d2gm(2,2)+6*gm(1,2)*d2gm(2,3))
2728    cm(8,13)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(1,2)&
2729 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)&
2730 &   -3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(3,3)&
2731 &   *d2gm(1,3))+gm(2,3)**2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
2732 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
2733 &   +9*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))&
2734 &   +gm(2,2)*(gm(1,3)*(12*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)*dgm10(2,3)&
2735 &   +12*dgm01(2,2)*dgm10(3,3))-9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2736 &   *dgm10(3,3))+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)&
2737 &   +6*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)&
2738 &   -9*gm(1,2)*d2gm(2,3)))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
2739 &   +3*gm(1,2)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
2740 &   +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
2741 &   +gm(3,3)*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)&
2742 &   *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(15*dgm01(3,3)*dgm10(1,2)&
2743 &   +42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)&
2744 &   *dgm10(3,3)+24*gm(1,3)*d2gm(2,3)))
2745    cm(9,13)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(9*dgm01(2,2)&
2746 &   *dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)*d2gm(1,2)+3*gm(1,2)&
2747 &   *d2gm(2,2))+gm(2,2)*(27*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2748 &   *dgm10(2,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,3)*dgm10(2,3)&
2749 &   +dgm01(2,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)&
2750 &   *dgm10(2,2)+12*gm(1,2)*d2gm(2,2)))+gm(2,2)**2*(12*dgm01(3,3)&
2751 &   *dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)&
2752 &   +12*dgm01(1,2)*dgm10(3,3)+12*gm(3,3)*d2gm(1,2)+12*gm(1,3)*d2gm(2,3))&
2753 &   +gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+12*gm(1,2)*(dgm01(2,3)&
2754 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)+gm(2,2)&
2755 &   *(18*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)&
2756 &   *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)&
2757 &   *d2gm(2,3)))
2758    cm(10,13)=-3*gm(1,3)*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2759 &   *dgm10(3,3))+gm(2,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2760 &   *dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)&
2761 &   +9*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2762 &   *dgm10(3,3)))+5*gm(2,3)**3*d2gm(1,3)+gm(3,3)**2*(-6*dgm01(2,2)&
2763 &   *dgm10(1,2)-6*dgm01(1,2)*dgm10(2,2)-3*(gm(2,2)*d2gm(1,2)+gm(1,2)&
2764 &   *d2gm(2,2)))+gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)&
2765 &   *dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)&
2766 &   +15*gm(1,3)*d2gm(2,3))+gm(3,3)*(6*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
2767 &   -6*gm(1,2)*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
2768 &   -12*gm(1,2)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
2769 &   +9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)&
2770 &   *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
2771 &   -3*gm(2,2)*d2gm(1,3)+9*gm(1,3)*d2gm(2,2)-6*gm(1,2)*d2gm(2,3))&
2772 &   +gm(2,2)*(-6*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)&
2773 &   *dgm10(2,3)-6*dgm01(1,2)*dgm10(3,3)-3*gm(1,3)*d2gm(2,3)))
2774    cm(1,14)=5*gm(1,3)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(3,3)&
2775 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2776 &   +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(9*dgm01(2,3)&
2777 &   *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)&
2778 &   +9*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3)+9*gm(1,1)*d2gm(2,3))&
2779 &   +gm(1,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)&
2780 &   *dgm10(1,2)+60*gm(1,2)*dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)&
2781 &   *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)&
2782 &   *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)&
2783 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))-6*gm(2,3)&
2784 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2785 &   +9*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(3,3)&
2786 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,1)&
2787 &   -6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)-6*dgm01(1,1)&
2788 &   *dgm10(2,3)-3*gm(1,1)*d2gm(2,3))+gm(2,3)*(-6*dgm01(3,3)*dgm10(1,1)&
2789 &   -12*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))
2790    cm(2,14)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-18*gm(1,2)&
2791 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2792 &   -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-9*gm(1,2)*gm(3,3)*dgm01(1,3)&
2793 &   *dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)&
2794 &   *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2795 &   -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)**2*dgm01(2,2)&
2796 &   *dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
2797 &   *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
2798 &   +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*dgm01(2,3)&
2799 &   *dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)&
2800 &   *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
2801 &   +15*dgm01(1,1)*dgm10(2,3)+15*gm(1,3)*d2gm(1,2)+3*gm(1,2)*d2gm(1,3)&
2802 &   +15*gm(1,1)*d2gm(2,3))+gm(2,3)*(48*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
2803 &   +0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
2804 &   +24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
2805 &   +12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
2806 &   +24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
2807 &   +0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
2808 &   +gm(3,3)*(-12*dgm01(1,2)*dgm10(1,2)-6*gm(1,2)*d2gm(1,2))+18*gm(1,2)&
2809 &   *gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(12*dgm01(3,3)&
2810 &   *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)&
2811 &   +24*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)*(-6*gm(1,2)&
2812 &   *dgm01(3,3)*dgm10(1,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)-6*gm(1,2)&
2813 &   *dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)&
2814 &   **2*d2gm(2,3)+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)&
2815 &   *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)&
2816 &   -3*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))&
2817 &   +gm(1,3)*(0*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)&
2818 &   *dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2819    cm(3,14)=24*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(6*gm(1,2)&
2820 &   *dgm01(3,3)*dgm10(3,3)+12*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2821 &   *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
2822 &   *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)&
2823 &   +6*gm(1,3)*d2gm(1,2)+12*gm(1,2)*d2gm(1,3)+12*gm(1,1)*d2gm(2,3))&
2824 &   +gm(1,3)**2*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)&
2825 &   +3*gm(2,3)*d2gm(3,3))+gm(3,3)*(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
2826 &   +36*gm(1,1)*dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
2827 &   +36*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)+gm(2,3)&
2828 &   *(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2829 &   *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3))+gm(1,3)&
2830 &   *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
2831 &   *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2832    cm(4,14)=-12*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+24*gm(1,3)*gm(3,3)&
2833 &   *dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(1,2)&
2834 &   +24*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,2)*gm(3,3)&
2835 &   *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(2,2)&
2836 &   +9*gm(1,3)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,1)*gm(3,3)*dgm01(3,3)&
2837 &   *dgm10(2,2)+24*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+12*gm(1,2)&
2838 &   *gm(3,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
2839 &   +48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(3,3)&
2840 &   *dgm10(2,3)+6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)&
2841 &   **2*dgm01(2,2)*dgm10(3,3)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(3,3)&
2842 &   +0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+18*gm(1,2)**2*dgm01(3,3)&
2843 &   *dgm10(3,3)-6*gm(1,2)*gm(3,3)**2*d2gm(1,2)+6*gm(1,2)*gm(1,3)&
2844 &   *gm(3,3)*d2gm(2,3)+9*gm(1,2)**2*gm(3,3)*d2gm(3,3)+gm(2,3)**2*(9*dgm01(3,3)&
2845 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3)&
2846 &   +6*gm(1,3)*d2gm(1,3)+9*gm(1,1)*d2gm(3,3))+gm(2,2)*(30*gm(1,1)&
2847 &   *dgm01(3,3)*dgm10(3,3)+42*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2848 &   *dgm10(3,3))+9*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(15*dgm01(3,3)*dgm10(1,1)&
2849 &   +48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)&
2850 &   *d2gm(1,3)+15*gm(1,1)*d2gm(3,3)))+gm(2,3)*(0*gm(1,2)*dgm01(3,3)&
2851 &   *dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*dgm01(1,3)&
2852 &   *dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)&
2853 &   +gm(3,3)*(24*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)&
2854 &   *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)+6*gm(1,2)&
2855 &   *d2gm(1,3)+24*gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)&
2856 &   +24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
2857 &   *dgm10(3,3)-6*gm(1,2)*d2gm(3,3)))
2858    cm(5,14)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(2,3)&
2859 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)&
2860 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,3)&
2861 &   **3*d2gm(2,3)+gm(1,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2862 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
2863 &   +3*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(12*gm(1,2)&
2864 &   *dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)&
2865 &   *dgm01(1,3)*dgm10(1,3)+6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+6*gm(1,1)&
2866 &   *dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)&
2867 &   *dgm01(1,2)*dgm10(3,3)+9*gm(1,3)**2*d2gm(1,2)-9*gm(2,3)*(dgm01(1,3)&
2868 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)&
2869 &   *(15*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)&
2870 &   *dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+15*gm(1,1)&
2871 &   *d2gm(2,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(30*gm(1,2)&
2872 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,1)*(dgm01(3,3)&
2873 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)&
2874 &   +12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
2875    cm(6,14)=-9*gm(1,2)*gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,3)&
2876 &   *gm(3,3)*dgm01(1,2)*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm01(1,3)&
2877 &   *dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)*dgm10(1,2)-12*gm(1,1)*gm(3,3)&
2878 &   *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)&
2879 &   -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)&
2880 &   *dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)&
2881 &   *gm(1,3)*dgm01(2,3)*dgm10(1,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)&
2882 &   +15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,3)&
2883 &   *dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)-9*gm(1,2)&
2884 &   *gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)&
2885 &   -12*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*gm(1,3)&
2886 &   *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
2887 &   -6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(1,2)&
2888 &   *dgm10(3,3)-3*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+12*gm(1,1)*gm(1,3)&
2889 &   *dgm01(2,2)*dgm10(3,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2890 &   -6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)&
2891 &   -6*gm(2,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)&
2892 &   *d2gm(1,3))+3*gm(1,2)*gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)&
2893 &   *gm(3,3)*d2gm(2,3)+3*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*gm(1,2)&
2894 &   *dgm01(3,3)*dgm10(1,1)+0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)&
2895 &   *dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)*dgm10(1,3)+12*gm(1,1)&
2896 &   *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+0*gm(1,1)&
2897 &   *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)&
2898 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)&
2899 &   *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)&
2900 &   *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2901 &   *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(9*gm(1,1)*(dgm01(3,3)&
2902 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)&
2903 &   *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2904 &   +gm(1,3)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2905 &   *dgm10(3,3)+12*gm(1,1)*d2gm(3,3)))
2906    cm(7,14)=-3*gm(1,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2907 &   *dgm10(2,3))+5*gm(2,3)**3*d2gm(1,2)+gm(2,3)**2*(30*dgm01(2,3)&
2908 &   *dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)&
2909 &   *dgm10(2,3)+9*gm(2,2)*d2gm(1,3)+15*gm(1,2)*d2gm(2,3))+gm(2,2)&
2910 &   *(gm(1,3)*(-6*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)*dgm10(2,3)&
2911 &   -6*dgm01(2,2)*dgm10(3,3))+6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2912 &   *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,2)-6*dgm01(2,2)*dgm10(1,3)&
2913 &   -6*dgm01(1,3)*dgm10(2,2)-6*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)*d2gm(2,3)))&
2914 &   +gm(2,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*dgm01(3,3)&
2915 &   *dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)&
2916 &   *dgm10(2,3)+9*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)&
2917 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+gm(2,2)&
2918 &   *(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)&
2919 &   *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-6*gm(1,3)*d2gm(2,3)+9*gm(1,2)&
2920 &   *d2gm(3,3)))+gm(2,2)**2*(-6*dgm01(3,3)*dgm10(1,3)-6*dgm01(1,3)&
2921 &   *dgm10(3,3)-3*(gm(3,3)*d2gm(1,3)+gm(1,3)*d2gm(3,3)))
2922    cm(8,14)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)&
2923 &   *dgm01(3,3)*dgm10(3,3)+12*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2924 &   *dgm10(3,3)))+gm(3,3)**2*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
2925 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)&
2926 &   +6*gm(2,3)*d2gm(1,2)+12*gm(2,2)*d2gm(1,3)+12*gm(1,2)*d2gm(2,3))&
2927 &   +gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)&
2928 &   +3*gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2929 &   +12*gm(1,3)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
2930 &   +12*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2931 &   +6*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
2932 &   *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)&
2933 &   +6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,2)*(36*dgm01(3,3)&
2934 &   *dgm10(1,3)+36*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)*d2gm(3,3)))
2935    cm(9,14)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(1,3)&
2936 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)&
2937 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+3*gm(2,3)&
2938 &   **3*d2gm(1,3)+gm(2,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2939 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
2940 &   +3*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(-9*gm(1,3)&
2941 &   *dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)-9*gm(1,3)&
2942 &   *dgm01(2,2)*dgm10(2,3)+48*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)&
2943 &   *dgm01(2,2)*dgm10(3,3)+9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(42*dgm01(2,3)&
2944 &   *dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)&
2945 &   +42*dgm01(1,2)*dgm10(2,3)+15*gm(2,2)*d2gm(1,3)+24*gm(1,2)*d2gm(2,3))&
2946 &   +gm(2,2)*(6*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
2947 &   *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-9*gm(1,3)*d2gm(2,3)+12*gm(1,2)&
2948 &   *d2gm(3,3)))+gm(2,3)*(gm(1,3)*(3*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)&
2949 &   *dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))+30*gm(1,2)*(dgm01(3,3)*dgm10(2,3)&
2950 &   +dgm01(2,3)*dgm10(3,3))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,3)+18*dgm01(1,3)&
2951 &   *dgm10(3,3)+3*gm(1,3)*d2gm(3,3)))
2952    cm(10,14)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
2953 &   **3*d2gm(1,2)+gm(3,3)**2*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2954 &   *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)&
2955 &   +6*gm(2,3)*d2gm(1,3)+6*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))&
2956 &   +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)*(dgm01(3,3)&
2957 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(21*dgm01(3,3)*dgm10(1,3)&
2958 &   +21*dgm01(1,3)*dgm10(3,3)+9*gm(1,3)*d2gm(3,3)))
2959    cm(1,15)=5*gm(1,3)**3*d2gm(1,3)+gm(1,3)*(6*gm(1,1)*(dgm01(3,3)&
2960 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2961 &   +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(3,3)&
2962 &   *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)&
2963 &   +4.5d0*gm(1,1)*d2gm(3,3))+gm(1,1)*(-3*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
2964 &   +gm(3,3)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)&
2965 &   *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
2966    cm(2,15)=(2*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
2967 &   -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
2968 &   *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
2969 &   +gm(1,3)*dgm01(3,3)))*dgm10(1,3)+3*(30*gm(2,3)**2*dgm01(1,1)&
2970 &   -24*gm(1,2)*gm(3,3)*dgm01(1,2)-12*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)&
2971 &   *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)&
2972 &   *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)+60*gm(1,1)*dgm01(2,3))-12*gm(1,2)&
2973 &   **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)-24*gm(1,3)*dgm01(1,3)&
2974 &   -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(30*gm(2,3)**2*dgm10(1,1)&
2975 &   -24*gm(1,2)*gm(3,3)*dgm10(1,2)-12*gm(1,3)**2*dgm10(2,2)-6*gm(1,1)&
2976 &   *gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)*(36*gm(1,3)&
2977 &   *dgm10(1,2)+36*gm(1,2)*dgm10(1,3)+60*gm(1,1)*dgm10(2,3))-12*gm(1,2)&
2978 &   **2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)-24*gm(1,3)*dgm10(1,3)&
2979 &   -6*gm(1,1)*dgm10(3,3)))+2*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,3)&
2980 &   +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
2981 &   *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
2982 &   -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+2*(-36*gm(1,2)&
2983 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2984 &   *d2gm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2985 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2986 &   *d2gm(3,3))/12.d0
2987    cm(3,15)=6*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(1,1)&
2988 &   *dgm01(3,3)*dgm10(3,3)+18*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2989 &   *dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)&
2990 &   *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+6*(dgm01(1,1)*dgm10(3,3)&
2991 &   +gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3)))
2992    cm(4,15)=gm(1,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)&
2993 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(3,3)**2*(dgm01(1,3)&
2994 &   *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,2)*d2gm(1,3))+gm(2,3)&
2995 &   *(24*gm(1,1)*dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
2996 &   +dgm01(1,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(12*dgm01(3,3)&
2997 &   *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)&
2998 &   +18*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(3,3)*(-9*gm(1,2)&
2999 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(dgm01(3,3)&
3000 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)&
3001 &   +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
3002 &   *dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
3003    cm(5,15)=-3*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
3004 &   +gm(1,1)*d2gm(1,3))+gm(1,3)*(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
3005 &   +13.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3006 &   +1.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(1,1)*(dgm01(3,3)&
3007 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)+gm(1,3)&
3008 &   *(7.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
3009 &   *dgm10(3,3)+7.5d0*gm(1,1)*d2gm(3,3)))
3010    cm(6,15)=(-72*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)&
3011 &   **2*dgm01(3,3)*dgm10(1,2)-54*gm(1,1)*gm(3,3)*dgm01(3,3)*dgm10(1,2)&
3012 &   -72*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+180*gm(1,3)**2*dgm01(2,3)&
3013 &   *dgm10(1,3)-36*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,3)+180*gm(1,3)&
3014 &   **2*dgm01(1,3)*dgm10(2,3)-36*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,3)&
3015 &   +144*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)&
3016 &   *dgm10(3,3)-54*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+144*gm(1,1)&
3017 &   *gm(1,3)*dgm01(2,3)*dgm10(3,3)+gm(1,2)*(-108*gm(1,1)*dgm01(3,3)&
3018 &   *dgm10(3,3)-36*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3019 &   +18*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,1)-144*dgm01(1,3)&
3020 &   *dgm10(1,3)-54*dgm01(1,1)*dgm10(3,3)-72*gm(1,3)*d2gm(1,3)-54*gm(1,1)&
3021 &   *d2gm(3,3)))+gm(2,3)*(108*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3022 &   *dgm10(3,3))+180*gm(1,3)**2*d2gm(1,3)-36*gm(3,3)*(dgm01(1,3)&
3023 &   *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)&
3024 &   *(144*dgm01(3,3)*dgm10(1,1)+720*dgm01(1,3)*dgm10(1,3)+144*dgm01(1,1)&
3025 &   *dgm10(3,3)+144*gm(1,1)*d2gm(3,3))))/12.d0
3026    cm(7,15)=(-54*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3027 &   *dgm10(3,3))+180*gm(2,3)**3*d2gm(1,3)+gm(2,3)**2*(270*dgm01(3,3)&
3028 &   *dgm10(1,2)+540*dgm01(2,3)*dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)&
3029 &   +270*dgm01(1,2)*dgm10(3,3)+270*gm(1,2)*d2gm(3,3))+gm(2,2)*(-108*(gm(1,2)&
3030 &   *dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3031 &   *dgm10(3,3)))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)&
3032 &   *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3)&
3033 &   -54*gm(1,2)*d2gm(3,3)))+gm(2,3)*(-108*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
3034 &   +540*gm(1,2)*dgm01(3,3)*dgm10(2,3)-108*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3035 &   +540*gm(1,2)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,2)*dgm10(1,3)&
3036 &   +dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))+gm(2,2)*(-216*dgm01(3,3)&
3037 &   *dgm10(1,3)-216*dgm01(1,3)*dgm10(3,3)-108*gm(1,3)*d2gm(3,3))))&
3038 &   /36.d0
3039    cm(8,15)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)&
3040 &   *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
3041 &   *dgm10(3,3)+gm(2,3)*d2gm(1,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)&
3042 &   *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3043 &   *dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,3)+15*dgm01(1,3)&
3044 &   *dgm10(3,3)+3*gm(1,3)*d2gm(3,3)))
3045    cm(9,15)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)&
3046 &   **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))&
3047 &   +gm(2,3)**2*(10.5d0*dgm01(3,3)*dgm10(1,3)+10.5d0*dgm01(1,3)*dgm10(3,3)&
3048 &   +9*gm(3,3)*d2gm(1,3)+1.5d0*gm(1,3)*d2gm(3,3))+gm(2,3)*(24*gm(1,2)&
3049 &   *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3050 &   *dgm10(3,3))+gm(3,3)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
3051 &   *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
3052 &   +12*gm(1,2)*d2gm(3,3)))+gm(3,3)*(-4.5d0*gm(1,3)*(dgm01(3,3)*dgm10(2,2)&
3053 &   +dgm01(2,2)*dgm10(3,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3054 &   *dgm10(3,3))+gm(2,2)*(-10.5d0*dgm01(3,3)*dgm10(1,3)-10.5d0*dgm01(1,3)&
3055 &   *dgm10(3,3)-4.5d0*gm(1,3)*d2gm(3,3)))
3056    cm(10,15)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
3057 &   **2*d2gm(1,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)&
3058 &   +3*gm(1,3)*d2gm(3,3)))
3059    cm(1,16)=(270*gm(1,2)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3060 &   -54*gm(1,1)*gm(2,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3061 &   +90*gm(1,2)**3*d2gm(2,2)+gm(1,2)*(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
3062 &   -54*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3063 &   *d2gm(2,2))))/36.d0
3064    cm(2,16)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)&
3065 &   *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))
3066    cm(3,16)=((90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)&
3067 &   +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)&
3068 &   *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)&
3069 &   -18*gm(1,2)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)*(90*gm(2,3)**2*dgm10(1,2)&
3070 &   -18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)&
3071 &   -36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)&
3072 &   *dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+(-36*gm(1,3)&
3073 &   *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3074 &   *d2gm(2,2))/12.d0
3075    cm(4,16)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)&
3076 &   **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(1,3)*d2gm(2,2))&
3077 &   +gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)&
3078 &   *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
3079 &   +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))
3080    cm(5,16)=((-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)&
3081 &   *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)&
3082 &   *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)&
3083 &   -18*gm(1,1)*dgm01(2,3)))*dgm10(2,2)+dgm01(2,2)*(-18*gm(1,1)*gm(2,3)&
3084 &   *dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))&
3085 &   +90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)&
3086 &   *dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+(-36*gm(1,2)&
3087 &   *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3088 &   *d2gm(2,2))/12.d0
3089    cm(6,16)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)**2*(dgm01(2,2)&
3090 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(2,2)&
3091 &   *(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
3092 &   +dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(2,2))
3093    cm(7,16)=gm(2,2)**2*(6*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2))
3094    cm(8,16)=9*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3095 &   *dgm10(2,3))+gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)&
3096 &   *d2gm(2,2))+gm(2,2)*(-1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3097 &   *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)&
3098 &   *d2gm(2,2)))
3099    cm(9,16)=gm(2,2)*(3*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3100 &   *dgm10(2,3))+gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2)))
3101    cm(10,16)=(270*gm(2,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3102 &   *dgm10(2,3))-54*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3103 &   *dgm10(2,3))+90*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(-54*gm(2,2)*(dgm01(3,3)&
3104 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-108*dgm01(2,2)*dgm10(2,2)&
3105 &   -54*gm(2,2)*d2gm(2,2))))/36.d0
3106    cm(1,17)=(3*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
3107 &   -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
3108 &   *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
3109 &   +gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(3,3)*(270*gm(1,2)**2*dgm10(1,2)&
3110 &   -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)&
3111 &   +gm(1,1)*dgm10(2,2)))+6*(90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)&
3112 &   *dgm01(1,2)-18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)&
3113 &   +180*gm(1,2)*dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)&
3114 &   *dgm01(1,1)+gm(1,1)*dgm01(2,3)))*dgm10(2,3)+6*dgm01(2,3)*(90*gm(1,2)&
3115 &   **2*dgm10(1,3)+gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))&
3116 &   +gm(1,3)*(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)&
3117 &   *dgm10(2,2))-36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))&
3118 &   +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)&
3119 &   *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(2,2)&
3120 &   *(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)&
3121 &   *dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)&
3122 &   -36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)&
3123 &   *dgm10(3,3)))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3124 &   **2-18*gm(1,1)*gm(3,3)))*d2gm(2,2)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3125 &   *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*d2gm(2,3)+(90*gm(1,2)**3-54*gm(1,1)&
3126 &   *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0
3127    cm(2,17)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+1.5d0*gm(2,3)&
3128 &   **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))&
3129 &   +gm(2,2)*(36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3130 &   +gm(1,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3131 &   +1.5d0*dgm01(2,2)*dgm10(3,3))-4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
3132 &   +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))+gm(2,3)*(24*gm(1,3)&
3133 &   *dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3134 &   *dgm10(2,3))+gm(2,2)*(6*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)&
3135 &   +12*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)&
3136 &   *d2gm(2,2)+6*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(3*dgm01(3,3)*dgm10(1,2)&
3137 &   +12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
3138 &   *dgm10(3,3)+12*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
3139    cm(3,17)=gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(1,3)&
3140 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(2,2)&
3141 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)&
3142 &   **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)&
3143 &   *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)&
3144 &   *d2gm(3,3))+gm(3,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+10.5d0*gm(1,2)&
3145 &   *dgm01(3,3)*dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,2)&
3146 &   *dgm01(2,3)*dgm10(2,3)+10.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)&
3147 &   *(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
3148 &   *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+24*gm(1,2)&
3149 &   *d2gm(2,3))+gm(2,2)*(-1.5d0*dgm01(3,3)*dgm10(1,2)-9*dgm01(2,3)&
3150 &   *dgm10(1,3)-9*dgm01(1,3)*dgm10(2,3)-1.5d0*dgm01(1,2)*dgm10(3,3)&
3151 &   -9*gm(1,3)*d2gm(2,3)-1.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)&
3152 &   *(0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+0*dgm01(2,2)&
3153 &   *dgm10(3,3))+39*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3154 &   -3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)&
3155 &   *d2gm(3,3)))
3156    cm(4,17)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(1,2)&
3157 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(6*dgm01(2,3)&
3158 &   *dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
3159 &   *dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)&
3160 &   *(gm(1,3)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)&
3161 &   *dgm10(3,3))+33*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3162 &   +gm(3,3)*(24*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)&
3163 &   *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)+24*gm(1,2)&
3164 &   *d2gm(2,3)))-3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)&
3165 &   +gm(1,3)*d2gm(3,3))+gm(2,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
3166 &   +12*gm(1,2)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
3167 &   +24*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
3168 &   +3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)&
3169 &   *d2gm(2,2))+gm(2,2)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
3170 &   +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)&
3171 &   +9*gm(1,2)*d2gm(3,3)))
3172    cm(5,17)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)&
3173 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(2,2)&
3174 &   *dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)&
3175 &   *gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
3176 &   -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
3177 &   *dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)&
3178 &   -4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)&
3179 &   *dgm01(2,2)*dgm10(2,3)+36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3180 &   +22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)+9*gm(1,2)*gm(1,3)*dgm01(2,2)&
3181 &   *dgm10(3,3)+22.5d0*gm(1,2)**2*dgm01(2,3)*dgm10(3,3)+12*gm(1,2)&
3182 &   *gm(1,3)*gm(3,3)*d2gm(2,2)+15*gm(1,2)**2*gm(3,3)*d2gm(2,3)-6*gm(2,3)&
3183 &   **2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))&
3184 &   +gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(3,3)&
3185 &   *dgm10(1,2)+3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(2,3)&
3186 &   *dgm10(1,3)+3*gm(1,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)*dgm01(3,3)&
3187 &   *dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)*dgm01(1,3)&
3188 &   *dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(1,2)&
3189 &   *dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)+1.5d0*gm(1,3)**2*d2gm(2,2)&
3190 &   -4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3191 &   *d2gm(2,2))+18*gm(1,2)*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)**2*d2gm(3,3)&
3192 &   -1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
3193 &   *d2gm(3,3)))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)&
3194 &   *dgm01(3,3)*dgm10(2,3)-3*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)&
3195 &   *dgm01(2,3)*dgm10(3,3)-6*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)&
3196 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)&
3197 &   *(-3*dgm01(3,3)*dgm10(1,2)-12*dgm01(2,3)*dgm10(1,3)-12*dgm01(1,3)&
3198 &   *dgm10(2,3)-3*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3)))
3199    cm(6,17)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)&
3200 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
3201 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)&
3202 &   *dgm10(2,2)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)&
3203 &   *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
3204 &   +1.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
3205 &   *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
3206 &   +gm(1,1)*d2gm(2,2))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)&
3207 &   +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)&
3208 &   -15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
3209 &   -15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
3210 &   +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+3*gm(1,2)**2*d2gm(2,3)&
3211 &   -9*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3212 &   *d2gm(2,3)))-1.5d0*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3213 &   *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(2,2)*(9*gm(1,2)*dgm01(3,3)&
3214 &   *dgm10(1,2)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)&
3215 &   *dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)&
3216 &   *dgm10(2,3)+9*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
3217 &   *dgm10(3,3)+7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)&
3218 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(1,3)&
3219 &   *(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)&
3220 &   *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*d2gm(2,3))+4.5d0*gm(1,2)&
3221 &   **2*d2gm(3,3))
3222    cm(7,17)=gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)*d2gm(2,2))&
3223 &   +gm(2,2)*gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)&
3224 &   +6*gm(2,2)*d2gm(2,3))+gm(2,2)*(gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)&
3225 &   -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)&
3226 &   +12*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)&
3227 &   *d2gm(3,3)))
3228    cm(8,17)=-3*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+24*gm(2,2)*gm(2,3)&
3229 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(2,2)&
3230 &   *dgm10(2,2)+6*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)&
3231 &   **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3232 &   *dgm10(3,3)+4.5d0*gm(2,2)*d2gm(3,3))+gm(3,3)*(3*gm(2,3)**2*d2gm(2,2)&
3233 &   +gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)&
3234 &   *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
3235 &   +9*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3236    cm(9,17)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(10.5d0*dgm01(2,3)&
3237 &   *dgm10(2,2)+10.5d0*dgm01(2,2)*dgm10(2,3)+6*gm(2,2)*d2gm(2,3))&
3238 &   +gm(2,2)*(15*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3239 &   +gm(3,3)*(31.5d0*dgm01(2,3)*dgm10(2,2)+31.5d0*dgm01(2,2)*dgm10(2,3)&
3240 &   +12*gm(2,2)*d2gm(2,3)))+gm(2,3)*(gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)&
3241 &   +7.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(13.5d0*dgm01(3,3)*dgm10(2,2)&
3242 &   +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)&
3243 &   *d2gm(3,3)))
3244    cm(10,17)=gm(3,3)**2*(0*dgm01(2,3)*dgm10(2,2)+0*dgm01(2,2)*dgm10(2,3)&
3245 &   +3*gm(2,3)*d2gm(2,2)-3*gm(2,2)*d2gm(2,3))+gm(2,3)*(-3*gm(2,2)&
3246 &   *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
3247 &   +dgm01(2,3)*dgm10(3,3))+2.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(2,2)&
3248 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)&
3249 &   +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)&
3250 &   +4.5d0*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3251    cm(1,18)=(gm(1,2)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)&
3252 &   *dgm10(1,3)+270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3))&
3253 &   +gm(1,1)*(-108*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3254 &   +gm(2,2)*(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)&
3255 &   -54*dgm01(1,3)*dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)))+gm(1,3)&
3256 &   *(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)+540*gm(1,2)*(dgm01(2,2)&
3257 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+270*gm(1,2)**2*d2gm(2,2)-54*gm(2,2)&
3258 &   *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2)))&
3259 &   +180*gm(1,2)**3*d2gm(2,3)+gm(1,2)*(-216*gm(1,1)*(dgm01(2,3)*dgm10(2,2)&
3260 &   +dgm01(2,2)*dgm10(2,3))-108*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3261 &   *dgm10(2,2)+gm(1,1)*d2gm(2,2))-108*gm(2,2)*(dgm01(2,3)*dgm10(1,1)&
3262 &   +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))))/36.d0
3263    cm(2,18)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,3)&
3264 &   *dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3265 &   *dgm10(2,3))+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3266 &   +gm(1,2)*d2gm(2,2)))+6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
3267 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)+gm(1,3)&
3268 &   *d2gm(2,2)+gm(1,2)*d2gm(2,3))
3269    cm(3,18)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)&
3270 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(15*dgm01(2,3)&
3271 &   *dgm10(1,2)+1.5d0*dgm01(2,2)*dgm10(1,3)+1.5d0*dgm01(1,3)*dgm10(2,2)&
3272 &   +15*dgm01(1,2)*dgm10(2,3)+1.5d0*gm(1,3)*d2gm(2,2)+15*gm(1,2)&
3273 &   *d2gm(2,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)&
3274 &   *dgm10(2,3)-4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(1,2)*(dgm01(3,3)&
3275 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,2)&
3276 &   -4.5d0*dgm01(2,2)*dgm10(1,3)-4.5d0*dgm01(1,3)*dgm10(2,2)-3*dgm01(1,2)&
3277 &   *dgm10(2,3)-4.5d0*gm(1,3)*d2gm(2,2)-3*gm(1,2)*d2gm(2,3)))+gm(2,3)&
3278 &   *(-3*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
3279 &   -3*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
3280 &   +12*gm(1,2)*dgm01(2,2)*dgm10(3,3)+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
3281 &   +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-6*gm(2,2)*(dgm01(2,3)&
3282 &   *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+gm(1,3)*d2gm(2,3)))
3283    cm(4,18)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(2,3)&
3284 &   **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))&
3285 &   +gm(2,2)*(-9*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3286 &   +gm(1,2)*(12*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)&
3287 &   *dgm10(3,3))+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3288 &   +gm(1,2)*d2gm(2,2)))-6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3289 &   *dgm10(2,3)+gm(1,3)*d2gm(2,3))+gm(2,3)*(6*gm(1,3)*dgm01(2,2)&
3290 &   *dgm10(2,2)+24*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3291 &   +gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
3292 &   *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+18*gm(1,2)&
3293 &   *d2gm(2,3)))
3294    cm(5,18)=15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+15*gm(1,2)&
3295 &   *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
3296 &   -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(2,3)&
3297 &   *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+3*gm(1,2)&
3298 &   *gm(1,3)*dgm01(2,2)*dgm10(2,3)+30*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
3299 &   +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)&
3300 &   *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
3301 &   +gm(1,1)*d2gm(2,2))+gm(2,3)*(30*gm(1,2)*dgm01(2,3)*dgm10(1,2)&
3302 &   +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)&
3303 &   -9*gm(1,1)*dgm01(2,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
3304 &   -9*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
3305 &   +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+15*gm(1,2)**2*d2gm(2,3)&
3306 &   -3*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3307 &   *d2gm(2,3)))+gm(2,2)*(-6*gm(1,2)*dgm01(2,3)*dgm10(1,3)-1.5d0*gm(1,1)&
3308 &   *dgm01(3,3)*dgm10(2,2)-6*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)&
3309 &   *dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)&
3310 &   **2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3311 &   *dgm10(2,2)+gm(1,1)*d2gm(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(1,2)&
3312 &   +dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)&
3313 &   +gm(1,2)*d2gm(2,3)))
3314    cm(6,18)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)&
3315 &   *dgm01(2,2)*dgm10(2,2)+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3316 &   *dgm10(2,2)))+gm(1,2)**2*(10.5d0*dgm01(2,3)*dgm10(2,2)+10.5d0*dgm01(2,2)&
3317 &   *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(2,2))-3*gm(2,2)**2*(dgm01(2,3)&
3318 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(2,2)&
3319 &   *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
3320 &   +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-10.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
3321 &   +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)-10.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
3322 &   -4.5d0*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3323 &   *d2gm(2,2))+12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3324 &   +gm(1,2)*d2gm(2,2))+9*gm(1,2)**2*d2gm(2,3))
3325    cm(7,18)=gm(2,2)*(gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)&
3326 &   *d2gm(2,2))+gm(2,2)*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)*dgm10(2,3)&
3327 &   +2*gm(2,2)*d2gm(2,3)))
3328    cm(8,18)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(gm(2,2)*(7.5d0*dgm01(3,3)&
3329 &   *dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)*dgm10(3,3))&
3330 &   +gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)+7.5d0*gm(2,2)*d2gm(2,2)))&
3331 &   +gm(2,3)**2*(13.5d0*dgm01(2,3)*dgm10(2,2)+13.5d0*dgm01(2,2)*dgm10(2,3)&
3332 &   +9*gm(2,2)*d2gm(2,3))+gm(2,2)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
3333 &   +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(2,3)*dgm10(2,2)&
3334 &   +1.5d0*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3)))
3335    cm(9,18)=gm(2,3)**2*(6*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2))&
3336 &   +gm(2,2)*(gm(2,2)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3337 &   +6*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(24*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)&
3338 &   *d2gm(2,2)))+gm(2,2)*gm(2,3)*(18*dgm01(2,3)*dgm10(2,2)+18*dgm01(2,2)&
3339 &   *dgm10(2,3)+6*gm(2,2)*d2gm(2,3))
3340    cm(10,18)=gm(3,3)**2*(-3*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)&
3341 &   *d2gm(2,2))+gm(2,3)*(gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)&
3342 &   *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(2,2)*(dgm01(3,3)&
3343 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+5*gm(2,3)**2*d2gm(2,3))+gm(3,3)&
3344 &   *(gm(2,2)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)&
3345 &   *dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(2,2)+gm(2,3)*(6*dgm01(2,3)&
3346 &   *dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3)))
3347    cm(1,19)=((270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)&
3348 &   -54*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)&
3349 &   +6*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
3350 &   -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
3351 &   *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
3352 &   +gm(1,1)*dgm01(3,3)))*dgm10(2,3)+3*dgm01(3,3)*(90*gm(1,2)**2*dgm10(1,3)&
3353 &   +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)&
3354 &   *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))&
3355 &   -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)&
3356 &   **2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)-18*gm(2,2)*dgm01(1,3))&
3357 &   +gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)*dgm01(1,2)-18*gm(1,1)&
3358 &   *dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)+gm(1,1)*dgm01(2,3)))&
3359 &   *dgm10(3,3)+6*dgm01(2,3)*(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)&
3360 &   *dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)&
3361 &   +180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)&
3362 &   *dgm10(1,1)+gm(1,1)*dgm10(3,3)))+dgm01(2,2)*(270*gm(1,3)**2*dgm10(1,3)&
3363 &   -54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)*(gm(3,3)*dgm10(1,1)&
3364 &   +gm(1,1)*dgm10(3,3)))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
3365 &   *d2gm(2,2)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3366 &   **2-18*gm(1,1)*gm(3,3)))*d2gm(2,3)+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3367 &   *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*d2gm(3,3))/36.d0
3368    cm(2,19)=gm(3,3)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(1,2)&
3369 &   *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(3*dgm01(2,3)&
3370 &   *dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)&
3371 &   +3*dgm01(1,2)*dgm10(2,3)+7.5d0*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))&
3372 &   +gm(2,2)*(gm(1,3)*(10.5d0*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)&
3373 &   *dgm10(2,3)+10.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)&
3374 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-9*dgm01(2,3)*dgm10(1,2)&
3375 &   -1.5d0*dgm01(2,2)*dgm10(1,3)-1.5d0*dgm01(1,3)*dgm10(2,2)-9*dgm01(1,2)&
3376 &   *dgm10(2,3)-1.5d0*gm(1,3)*d2gm(2,2)-9*gm(1,2)*d2gm(2,3)))+6*gm(2,2)&
3377 &   **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))&
3378 &   +gm(2,3)*(39*gm(1,3)*dgm01(2,3)*dgm10(2,2)+0*gm(1,2)*dgm01(3,3)&
3379 &   *dgm10(2,2)+39*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)&
3380 &   *dgm10(2,3)+0*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)&
3381 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)&
3382 &   *(3*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)&
3383 &   *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)*d2gm(2,3)+3*gm(1,2)&
3384 &   *d2gm(3,3)))
3385    cm(3,19)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(24*gm(1,2)&
3386 &   *dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3387 &   *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
3388 &   *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
3389 &   +3*gm(1,3)*d2gm(2,2)+12*gm(1,2)*d2gm(2,3))+1.5d0*gm(2,3)**2*(dgm01(3,3)&
3390 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)&
3391 &   *(1.5d0*gm(1,3)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3392 &   +36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+1.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3393 &   +36*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(12*dgm01(3,3)*dgm10(1,2)&
3394 &   +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
3395 &   *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+12*gm(1,2)*d2gm(3,3))-4.5d0*gm(2,2)&
3396 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3397    cm(4,19)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(1,3)&
3398 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)&
3399 &   *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)&
3400 &   **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
3401 &   *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)&
3402 &   *d2gm(3,3))+gm(3,3)*(33*gm(1,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)&
3403 &   *dgm01(3,3)*dgm10(2,2)+33*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)&
3404 &   *dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)&
3405 &   *(6*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)&
3406 &   *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+9*gm(1,3)*d2gm(2,2)+6*gm(1,2)&
3407 &   *d2gm(2,3))+gm(2,2)*(12*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)&
3408 &   +24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)&
3409 &   *d2gm(2,3)+12*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(12*dgm01(3,3)&
3410 &   *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)*dgm10(3,3))&
3411 &   +12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(2,2)&
3412 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3413    cm(5,19)=-6*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+1.5d0*gm(1,3)&
3414 &   **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
3415 &   +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-6*gm(1,3)*gm(2,2)*dgm01(1,3)&
3416 &   *dgm10(3,3)+1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+33*gm(1,2)&
3417 &   *gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)&
3418 &   -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(2,2)&
3419 &   *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))-3*gm(1,3)&
3420 &   **2*gm(2,2)*d2gm(3,3)-3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3421 &   *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)*(24*gm(1,3)*dgm01(2,3)&
3422 &   *dgm10(1,2)+15*gm(1,2)*dgm01(3,3)*dgm10(1,2)+9*gm(1,3)*dgm01(2,2)&
3423 &   *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+9*gm(1,3)*dgm01(1,3)&
3424 &   *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)&
3425 &   *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)&
3426 &   *dgm10(2,3)+15*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
3427 &   *dgm10(3,3)+4.5d0*gm(1,3)**2*d2gm(2,2)+24*gm(1,2)*gm(1,3)*d2gm(2,3)&
3428 &   -9*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3429 &   *d2gm(2,3))+7.5d0*gm(1,2)**2*d2gm(3,3)-1.5d0*gm(2,2)*(dgm01(3,3)&
3430 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,3)&
3431 &   *(9*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)&
3432 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)&
3433 &   +gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
3434 &   *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
3435    cm(6,19)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-12*gm(1,2)&
3436 &   *gm(3,3)*dgm01(2,3)*dgm10(1,2)-3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
3437 &   -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,3)&
3438 &   *dgm10(2,2)+22.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)&
3439 &   *gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
3440 &   -12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+22.5d0*gm(1,3)**2*dgm01(2,2)&
3441 &   *dgm10(2,3)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
3442 &   *gm(1,3)*dgm01(2,3)*dgm10(2,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
3443 &   +9*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-4.5d0*gm(1,2)**2*dgm01(2,3)&
3444 &   *dgm10(3,3)-3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)&
3445 &   *d2gm(2,3)-6*gm(2,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)&
3446 &   +gm(1,1)*d2gm(2,3))+gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
3447 &   +3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+15*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
3448 &   +18*gm(1,2)*dgm01(2,3)*dgm10(1,3)+15*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
3449 &   -6*gm(1,1)*dgm01(3,3)*dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
3450 &   +18*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
3451 &   +3*gm(1,2)*dgm01(1,2)*dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
3452 &   +7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)&
3453 &   +dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+18*gm(1,2)*gm(1,3)&
3454 &   *d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)-4.5d0*gm(2,2)*(dgm01(3,3)&
3455 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,2)&
3456 &   *(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
3457 &   +12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
3458 &   +15*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3459 &   *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)&
3460 &   +30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
3461 &   *dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
3462    cm(7,19)=-7.5d0*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3463 &   *dgm10(2,3))+2.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(16.5d0*dgm01(2,3)&
3464 &   *dgm10(2,2)+16.5d0*dgm01(2,2)*dgm10(2,3)+9*gm(2,2)*d2gm(2,3))&
3465 &   +gm(2,2)**2*(0*dgm01(3,3)*dgm10(2,3)+0*dgm01(2,3)*dgm10(3,3)&
3466 &   -3*gm(3,3)*d2gm(2,3))+gm(2,3)*(gm(3,3)*(-3*dgm01(2,2)*dgm10(2,2)&
3467 &   -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)&
3468 &   +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)&
3469 &   *d2gm(3,3)))
3470    cm(8,19)=gm(3,3)**2*(15*dgm01(2,3)*dgm10(2,2)+15*dgm01(2,2)&
3471 &   *dgm10(2,3)+3*gm(2,3)*d2gm(2,2)+12*gm(2,2)*d2gm(2,3))+gm(2,3)&
3472 &   *(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(2,3)*(dgm01(3,3)&
3473 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3))&
3474 &   +gm(3,3)*(31.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3475 &   +6*gm(2,3)**2*d2gm(2,3)+gm(2,3)*(13.5d0*dgm01(3,3)*dgm10(2,2)&
3476 &   +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(2,2)&
3477 &   *d2gm(3,3)))
3478    cm(9,19)=12*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+21*gm(2,2)*gm(2,3)&
3479 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(2,2)&
3480 &   *dgm10(2,2)-1.5d0*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)&
3481 &   **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3482 &   *dgm10(3,3)+3*gm(2,2)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(2,3)**2*d2gm(2,2)&
3483 &   +gm(2,3)*(24*dgm01(2,3)*dgm10(2,2)+24*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)&
3484 &   *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
3485 &   +9*dgm01(2,2)*dgm10(3,3)+6*gm(2,2)*d2gm(3,3)))
3486    cm(10,19)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(2,2)&
3487 &   +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3488 &   +1.5d0*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)*d2gm(2,3)-1.5d0*gm(2,2)&
3489 &   *d2gm(3,3))+gm(3,3)*(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+21*gm(2,3)&
3490 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)&
3491 &   **2*d2gm(3,3))
3492    cm(1,20)=(gm(1,1)*(gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)&
3493 &   *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3))&
3494 &   -108*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+180*gm(1,3)&
3495 &   **3*d2gm(2,3)+gm(1,3)**2*(270*dgm01(3,3)*dgm10(1,2)+540*dgm01(2,3)&
3496 &   *dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)+270*dgm01(1,2)*dgm10(3,3)&
3497 &   +270*gm(1,2)*d2gm(3,3))+gm(1,3)*(540*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
3498 &   -216*gm(1,1)*dgm01(3,3)*dgm10(2,3)+540*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
3499 &   -216*gm(1,1)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,3)*dgm10(1,1)&
3500 &   +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))-108*gm(2,3)*(dgm01(3,3)&
3501 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(1,2)&
3502 &   *(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)-54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)&
3503 &   +dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))))/36.d0
3504    cm(2,20)=(gm(3,3)*(-36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3505 &   *dgm10(2,3))+gm(1,2)*(-54*dgm01(3,3)*dgm10(2,2)-144*dgm01(2,3)&
3506 &   *dgm10(2,3)-54*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(18*dgm01(3,3)&
3507 &   *dgm10(1,2)+180*dgm01(2,3)*dgm10(1,3)+180*dgm01(1,3)*dgm10(2,3)&
3508 &   +18*dgm01(1,2)*dgm10(3,3)+180*gm(1,3)*d2gm(2,3)+18*gm(1,2)*d2gm(3,3))&
3509 &   +gm(2,2)*(-108*gm(1,2)*dgm01(3,3)*dgm10(3,3)+108*gm(1,3)*(dgm01(3,3)&
3510 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)&
3511 &   -36*dgm01(2,3)*dgm10(1,3)-36*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)&
3512 &   *dgm10(3,3)-36*gm(1,3)*d2gm(2,3)-54*gm(1,2)*d2gm(3,3)))+gm(2,3)&
3513 &   *(144*gm(1,3)*dgm01(3,3)*dgm10(2,2)+720*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3514 &   -36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+144*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3515 &   -36*gm(1,2)*dgm01(2,3)*dgm10(3,3)-72*gm(3,3)*(dgm01(2,3)*dgm10(1,2)&
3516 &   +dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+144*gm(2,2)*(dgm01(3,3)&
3517 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))))/12.d0
3518    cm(3,20)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)&
3519 &   *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
3520 &   *dgm10(3,3)+gm(1,3)*d2gm(2,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)&
3521 &   *dgm01(3,3)*dgm10(3,3)+15*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3522 &   *dgm10(3,3))+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)&
3523 &   +gm(1,3)*d2gm(3,3)))
3524    cm(4,20)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)&
3525 &   *dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3526 &   *dgm10(3,3)))-6*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3527 &   *dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)&
3528 &   +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)&
3529 &   *dgm01(3,3)*dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-9*gm(1,2)&
3530 &   *dgm01(3,3)*dgm10(2,3)+12*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,2)&
3531 &   *dgm01(2,3)*dgm10(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
3532 &   *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)&
3533 &   +18*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+12*gm(2,2)*(dgm01(3,3)&
3534 &   *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3535    cm(5,20)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)&
3536 &   *dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3537 &   *dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3538 &   *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)**2*(10.5d0*dgm01(3,3)&
3539 &   *dgm10(2,3)+10.5d0*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)*d2gm(3,3))&
3540 &   +gm(3,3)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-10.5d0*gm(1,1)*dgm01(3,3)&
3541 &   *dgm10(2,3)+12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-10.5d0*gm(1,1)*dgm01(2,3)&
3542 &   *dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)-4.5d0*gm(2,3)*(dgm01(3,3)&
3543 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(1,3)&
3544 &   *(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
3545 &   *dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
3546    cm(6,20)=(2*(90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)&
3547 &   -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)&
3548 &   *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)&
3549 &   +gm(1,2)*dgm01(3,3)))*dgm10(2,3)+3*(-12*gm(2,3)**2*dgm01(1,1)&
3550 &   -24*gm(1,2)*gm(3,3)*dgm01(1,2)+30*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)&
3551 &   *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)&
3552 &   *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)-24*gm(1,1)*dgm01(2,3))-12*gm(1,2)&
3553 &   **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)+60*gm(1,3)*dgm01(1,3)&
3554 &   -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(-12*gm(2,3)&
3555 &   **2*dgm10(1,1)-24*gm(1,2)*gm(3,3)*dgm10(1,2)+30*gm(1,3)**2*dgm10(2,2)&
3556 &   -6*gm(1,1)*gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)&
3557 &   *(36*gm(1,3)*dgm10(1,2)+36*gm(1,2)*dgm10(1,3)-24*gm(1,1)*dgm10(2,3))&
3558 &   -12*gm(1,2)**2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)+60*gm(1,3)&
3559 &   *dgm10(1,3)-6*gm(1,1)*dgm10(3,3)))+2*dgm01(2,3)*(90*gm(1,3)**2*dgm10(2,3)&
3560 &   +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)&
3561 &   *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))&
3562 &   -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+2*(90*gm(1,3)&
3563 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3564 &   *d2gm(2,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3565 &   -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3566 &   *d2gm(3,3))/12.d0
3567    cm(7,20)=5*gm(2,3)**3*d2gm(2,3)+gm(2,3)*(6*gm(2,2)*(dgm01(3,3)&
3568 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(2,3)*dgm10(2,2)&
3569 &   +dgm01(2,2)*dgm10(2,3)+gm(2,2)*d2gm(2,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)&
3570 &   *dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)&
3571 &   +4.5d0*gm(2,2)*d2gm(3,3))+gm(2,2)*(-3*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3572 &   +gm(3,3)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)&
3573 &   *dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3574    cm(8,20)=6*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(2,2)&
3575 &   *dgm01(3,3)*dgm10(3,3)+18*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3576 &   *dgm10(3,3))+3*gm(2,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)&
3577 &   *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*(dgm01(2,2)*dgm10(3,3)&
3578 &   +gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3)))
3579    cm(9,20)=-3*gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)&
3580 &   +gm(2,2)*d2gm(2,3))+gm(2,3)*(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3581 &   +13.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3582 &   +1.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(2,2)*(dgm01(3,3)&
3583 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)+gm(2,3)&
3584 &   *(7.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3585 &   *dgm10(3,3)+7.5d0*gm(2,2)*d2gm(3,3)))
3586    cm(10,20)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
3587 &   **2*d2gm(2,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)&
3588 &   +3*gm(2,3)*d2gm(3,3)))
3589    cm(1,21)=(270*gm(1,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3590 &   -54*gm(1,1)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3591 &   +90*gm(1,3)**3*d2gm(3,3)+gm(1,3)*(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
3592 &   -54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
3593 &   *d2gm(3,3))))/36.d0
3594    cm(2,21)=((90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
3595 &   -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
3596 &   *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
3597 &   +gm(1,3)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(2,3)**2*dgm10(1,3)&
3598 &   +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
3599 &   *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
3600 &   -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+(-36*gm(1,2)&
3601 &   *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3602 &   *d2gm(3,3))/12.d0
3603    cm(3,21)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)&
3604 &   *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3605    cm(4,21)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)&
3606 &   **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(1,2)*d2gm(3,3))&
3607 &   +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)&
3608 &   *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)&
3609 &   +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3610    cm(5,21)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)&
3611 &   *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)&
3612 &   *(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
3613 &   +dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(3,3))
3614    cm(6,21)=((90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)&
3615 &   -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)&
3616 &   *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)&
3617 &   +gm(1,2)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(1,3)**2*dgm10(2,3)&
3618 &   +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)&
3619 &   *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))&
3620 &   -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+(90*gm(1,3)&
3621 &   **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3622 &   *d2gm(3,3))/12.d0
3623    cm(7,21)=(270*gm(2,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3624 &   -54*gm(2,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3625 &   +90*gm(2,3)**3*d2gm(3,3)+gm(2,3)*(-108*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3626 &   -54*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)&
3627 &   *d2gm(3,3))))/36.d0
3628    cm(8,21)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)&
3629 &   *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3)))
3630    cm(9,21)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)&
3631 &   *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)*d2gm(3,3))+gm(3,3)&
3632 &   *(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
3633 &   +dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(3,3))
3634    cm(10,21)=gm(3,3)**2*(6*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3))
3635  end if
3636 !
3637 !contraction to output scalar
3638 !
3639  e2nl=0.d0
3640  do jj=1,((rank+3)*(rank+4))/2
3641    tmp(:)=0.d0
3642    do ii=1,((rank+1)*(rank+2))/2
3643      tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj)
3644    end do
3645    e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj)
3646  end do
3647 !factor of 2 multiplied in to drop call to conjugate contraction
3648 !e2nl=0.5d0*e2nl
3649 
3650  ABI_DEALLOCATE(cm)
3651 
3652 end subroutine contstr23

Generated from ./42_nlstrain/contstr23.F90 with ROBODoc V4.99.43 on Fri Jul 27 2018 08:34:26