TABLE OF CONTENTS
ABINIT/contstr23 [ 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-2024 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.
SOURCE
42 #if defined HAVE_CONFIG_H 43 #include "config.h" 44 #endif 45 46 #include "abi_common.h" 47 48 49 module m_contstr23 50 contains 51 !!** 52 53 54 55 subroutine contstr23(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb) 56 57 58 use defs_basis 59 use m_abicore 60 implicit none 61 62 !Arguments ------------------------------------ 63 !scalars 64 integer,intent(in) :: istr1,istr2,rank 65 real(dp),intent(out) :: e2nl 66 !arrays 67 real(dp),intent(in) :: aa(2,((rank+1)*(rank+2))/2),bb(2,((rank+3)*(rank+4))/2) 68 real(dp),intent(in) :: gm(3,3),gprimd(3,3) 69 70 !Local variables------------------------------- 71 !scalars 72 integer,parameter :: mrank=3 73 integer :: ii,jj,ka,kb,kd,kg 74 !arrays 75 integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/) 76 real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2) 77 real(dp),allocatable :: cm(:,:) 78 79 ! ************************************************************************* 80 ABI_MALLOC(cm,(((mrank+1)*(mrank+2))/2,((mrank+3)*(mrank+4))/2)) 81 82 ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2) 83 84 do ii = 1,3 85 dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii)) 86 dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii)) 87 end do 88 89 d2gm(:,:)=0.d0 90 do ii = 1,3 91 if(ka==kg) d2gm(:,ii)=d2gm(:,ii)& 92 & +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii) 93 if(ka==kd) d2gm(:,ii)=d2gm(:,ii)& 94 & +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii) 95 if(kb==kg) d2gm(:,ii)=d2gm(:,ii)& 96 & +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii) 97 if(kb==kd) d2gm(:,ii)=d2gm(:,ii)& 98 & +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii) 99 end do 100 d2gm(:,:)=0.5d0*d2gm(:,:) 101 102 ! 103 !The code below was written by a Mathematica program and formatted by 104 !a combination of editing scripts. It is not intended to be read 105 !by human beings, and certainly not to be modified by one. Conceivably 106 !it could be shortened somewhat by identifying common subexpressions. 107 ! 108 if(rank==0)then 109 cm(1,1)=d2gm(1,1) 110 cm(1,2)=d2gm(2,2) 111 cm(1,3)=d2gm(3,3) 112 cm(1,4)=2*d2gm(2,3) 113 cm(1,5)=2*d2gm(1,3) 114 cm(1,6)=2*d2gm(1,2) 115 elseif(rank==1)then 116 cm(1,1)=2*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1) 117 cm(2,1)=dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)& 118 & *d2gm(1,1) 119 cm(3,1)=dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)& 120 & *d2gm(1,1) 121 cm(1,2)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 122 & *dgm10(2,2)+2*gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2) 123 cm(2,2)=3*dgm01(2,2)*dgm10(1,2)+3*dgm01(1,2)*dgm10(2,2)+2*gm(2,2)& 124 & *d2gm(1,2)+gm(1,2)*d2gm(2,2) 125 cm(3,2)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 126 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+2*gm(2,3)*d2gm(1,2)+gm(1,3)& 127 & *d2gm(2,2) 128 cm(1,3)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 129 & *dgm10(3,3)+2*gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3) 130 cm(2,3)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)& 131 & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(2,3)*d2gm(1,3)+gm(1,2)& 132 & *d2gm(3,3) 133 cm(3,3)=3*dgm01(3,3)*dgm10(1,3)+3*dgm01(1,3)*dgm10(3,3)+2*gm(3,3)& 134 & *d2gm(1,3)+gm(1,3)*d2gm(3,3) 135 cm(1,4)=2*(dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)& 136 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(1,3)*d2gm(1,2)+gm(1,2)*d2gm(1,3)& 137 & +gm(1,1)*d2gm(2,3)) 138 cm(2,4)=2*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 139 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(2,2)& 140 & *d2gm(1,3)+gm(1,2)*d2gm(2,3)) 141 cm(3,4)=2*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)& 142 & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2)+gm(2,3)*d2gm(1,3)& 143 & +gm(1,3)*d2gm(2,3)) 144 cm(1,5)=3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)+gm(1,3)& 145 & *d2gm(1,1)+2*gm(1,1)*d2gm(1,3) 146 cm(2,5)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)& 147 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,2)& 148 & *d2gm(1,3) 149 cm(3,5)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 150 & *dgm10(3,3)+gm(3,3)*d2gm(1,1)+2*gm(1,3)*d2gm(1,3) 151 cm(1,6)=3*dgm01(1,2)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,2)+gm(1,2)& 152 & *d2gm(1,1)+2*gm(1,1)*d2gm(1,2) 153 cm(2,6)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 154 & *dgm10(2,2)+gm(2,2)*d2gm(1,1)+2*gm(1,2)*d2gm(1,2) 155 cm(3,6)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)& 156 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,3)& 157 & *d2gm(1,2) 158 cm(1,7)=dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)& 159 & *d2gm(2,2) 160 cm(2,7)=2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2) 161 cm(3,7)=dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)& 162 & *d2gm(2,2) 163 cm(1,8)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)& 164 & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)& 165 & *d2gm(3,3) 166 cm(2,8)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 167 & *dgm10(3,3)+2*gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3) 168 cm(3,8)=3*dgm01(3,3)*dgm10(2,3)+3*dgm01(2,3)*dgm10(3,3)+2*gm(3,3)& 169 & *d2gm(2,3)+gm(2,3)*d2gm(3,3) 170 cm(1,9)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 171 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(1,3)*d2gm(2,2)+2*gm(1,2)& 172 & *d2gm(2,3) 173 cm(2,9)=3*dgm01(2,3)*dgm10(2,2)+3*dgm01(2,2)*dgm10(2,3)+gm(2,3)& 174 & *d2gm(2,2)+2*gm(2,2)*d2gm(2,3) 175 cm(3,9)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 176 & *dgm10(3,3)+gm(3,3)*d2gm(2,2)+2*gm(2,3)*d2gm(2,3) 177 cm(1,10)=dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)& 178 & *d2gm(3,3) 179 cm(2,10)=dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)& 180 & *d2gm(3,3) 181 cm(3,10)=2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3) 182 elseif(rank==2)then 183 cm(1,1)=gm(1,1)*(4*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1)) 184 cm(2,1)=3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 185 & -0.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 186 & +1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)& 187 & *d2gm(1,1)) 188 cm(3,1)=3*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 189 & -0.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 190 & +1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)& 191 & *d2gm(1,1)) 192 cm(4,1)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)& 193 & *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,1)+dgm01(1,1)*(-2*gm(2,3)& 194 & *dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)& 195 & *dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,1))& 196 & /2.d0 197 cm(5,1)=2*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 198 & +gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1)) 199 cm(6,1)=2*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 200 & +gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1)) 201 cm(1,2)=1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)& 202 & -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)& 203 & *dgm10(1,2)+4*gm(1,1)*d2gm(1,2))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)& 204 & +8*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)& 205 & *d2gm(2,2)) 206 cm(2,2)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*(dgm01(2,2)& 207 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*d2gm(1,1)+1.5d0*gm(1,2)& 208 & **2*d2gm(2,2)+gm(2,2)*(1.5d0*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)& 209 & *dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+4*gm(1,2)*d2gm(1,2)-0.5d0*gm(1,1)& 210 & *d2gm(2,2)) 211 cm(3,2)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)& 212 & *dgm01(3,3))*dgm10(1,1)+4*(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)& 213 & +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)& 214 & *dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(2,2)& 215 & +dgm01(2,2)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)& 216 & *dgm10(3,3))+4*dgm01(1,2)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)& 217 & +6*gm(1,3)*dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+dgm01(1,1)*(-2*gm(3,3)& 218 & *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)& 219 & **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 220 & *gm(3,3))*d2gm(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(2,2))& 221 & /4.d0 222 cm(4,2)=9*gm(1,3)*dgm01(2,2)*dgm10(1,2)+2*gm(1,2)*dgm01(2,3)& 223 & *dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,3)*dgm01(1,2)& 224 & *dgm10(2,2)+3*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)& 225 & *dgm10(2,2)+2*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)& 226 & *dgm10(2,3)+gm(2,2)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)& 227 & +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2))& 228 & +3*gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(1*dgm01(2,2)*dgm10(1,1)& 229 & +4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)& 230 & +2*gm(1,2)*d2gm(1,2)-gm(1,1)*d2gm(2,2)) 231 cm(5,2)=gm(1,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 232 & +4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+2*gm(1,2)*dgm01(1,3)*dgm10(1,2)& 233 & +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+2*gm(1,2)*dgm01(1,2)*dgm10(1,3)& 234 & +2*gm(1,1)*dgm01(2,2)*dgm10(1,3)+gm(1,3)*dgm01(1,1)*dgm10(2,2)& 235 & +2*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 236 & +6*gm(1,1)*dgm01(1,2)*dgm10(2,3)-gm(2,2)*(dgm01(1,3)*dgm10(1,1)& 237 & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,2)& 238 & +gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)& 239 & *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,1)*gm(1,3)*d2gm(2,2) 240 cm(6,2)=8*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 241 & +2*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(8*dgm01(1,2)*dgm10(1,1)+8*dgm01(1,1)& 242 & *dgm10(1,2)+2*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)& 243 & *(4*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+4*dgm01(1,1)& 244 & *dgm10(2,2)+2*gm(1,1)*d2gm(2,2)) 245 cm(1,3)=1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)& 246 & -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)& 247 & *dgm10(1,3)+4*gm(1,1)*d2gm(1,3))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)& 248 & +8*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)& 249 & *d2gm(3,3)) 250 cm(2,3)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)& 251 & *dgm01(3,3))*dgm10(1,1)+4*(6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)& 252 & -2*gm(1,3)*dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,3)+dgm01(3,3)& 253 & *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))& 254 & +4*dgm01(1,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)& 255 & *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)& 256 & *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(1,1)*(-2*gm(3,3)& 257 & *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)& 258 & **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 259 & *gm(2,3))*d2gm(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))& 260 & /4.d0 261 cm(3,3)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+7*gm(1,3)*(dgm01(3,3)& 262 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*d2gm(1,1)+1.5d0*gm(1,3)& 263 & **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)& 264 & *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+4*gm(1,3)*d2gm(1,3)-0.5d0*gm(1,1)& 265 & *d2gm(3,3)) 266 cm(4,3)=3*gm(1,3)*dgm01(3,3)*dgm10(1,2)+2*gm(1,3)*dgm01(2,3)& 267 & *dgm10(1,3)+9*gm(1,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(1,3)& 268 & *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+3*gm(1,3)*dgm01(1,2)& 269 & *dgm10(3,3)+9*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)& 270 & *dgm10(3,3)+gm(3,3)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)& 271 & +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)& 272 & +6*gm(1,2)*d2gm(1,3))+3*gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)& 273 & *dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)*dgm10(3,3)+2*gm(1,3)& 274 & *d2gm(1,3)-gm(1,1)*d2gm(3,3)) 275 cm(5,3)=8*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 276 & +2*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(8*dgm01(1,3)*dgm10(1,1)+8*dgm01(1,1)& 277 & *dgm10(1,3)+2*gm(1,3)*d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+gm(1,3)& 278 & *(4*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+4*dgm01(1,1)& 279 & *dgm10(3,3)+2*gm(1,1)*d2gm(3,3)) 280 cm(6,3)=3*gm(1,3)*dgm01(2,3)*dgm10(1,1)+gm(1,2)*dgm01(3,3)*dgm10(1,1)& 281 & +2*gm(1,3)*dgm01(1,3)*dgm10(1,2)+2*gm(1,1)*dgm01(3,3)*dgm10(1,2)& 282 & +2*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)*dgm10(1,3)& 283 & +6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)*dgm10(2,3)& 284 & +6*gm(1,1)*dgm01(1,3)*dgm10(2,3)+gm(1,2)*dgm01(1,1)*dgm10(3,3)& 285 & +2*gm(1,1)*dgm01(1,2)*dgm10(3,3)-gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 286 & +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,3)& 287 & +gm(2,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)& 288 & *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+2*gm(1,1)*gm(1,2)*d2gm(3,3) 289 cm(1,4)=7*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)& 290 & *dgm10(1,1)+8*gm(1,1)*dgm01(1,3)*dgm10(1,2)+7*gm(1,2)*dgm01(1,1)& 291 & *dgm10(1,3)+8*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)& 292 & *dgm10(2,3)+gm(2,3)*(-2*dgm01(1,1)*dgm10(1,1)-gm(1,1)*d2gm(1,1))& 293 & +gm(1,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)& 294 & *d2gm(1,1)+4*gm(1,1)*d2gm(1,2))+4*gm(1,1)*gm(1,2)*d2gm(1,3)+2*gm(1,1)& 295 & **2*d2gm(2,3) 296 cm(2,4)=-2*gm(1,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)& 297 & *dgm10(1,2)+4*gm(1,2)*dgm01(2,2)*dgm10(1,3)-2*gm(1,3)*dgm01(1,2)& 298 & *dgm10(2,2)+4*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)& 299 & *dgm10(2,2)+12*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)& 300 & *dgm10(2,3)+gm(2,3)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 301 & +2*dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)+6*gm(1,2)*d2gm(1,2))& 302 & +3*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)& 303 & *dgm10(1,2)+2*dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3)-2*gm(1,3)& 304 & *d2gm(1,2)+4*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3)) 305 cm(3,4)=4*gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,3)& 306 & *dgm10(1,3)-2*gm(1,2)*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)& 307 & *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+4*gm(1,3)*dgm01(1,2)& 308 & *dgm10(3,3)-2*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)& 309 & *dgm10(3,3)+gm(2,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 310 & +2*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3))+3*gm(1,3)**2*d2gm(2,3)& 311 & +gm(3,3)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)& 312 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)+4*gm(1,3)& 313 & *d2gm(1,2)-2*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3)) 314 cm(4,4)=3*gm(2,2)*dgm01(3,3)*dgm10(1,1)+8*gm(1,3)*dgm01(2,3)& 315 & *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(2,2)*dgm01(1,3)& 316 & *dgm10(1,3)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+8*gm(1,2)*dgm01(2,3)& 317 & *dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)& 318 & *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)-4*gm(1,1)*dgm01(2,3)& 319 & *dgm10(2,3)+3*gm(2,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,2)*dgm01(1,2)& 320 & *dgm10(3,3)+gm(2,3)**2*d2gm(1,1)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)& 321 & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)& 322 & +6*gm(1,2)*d2gm(1,2))+6*gm(1,3)*gm(2,2)*d2gm(1,3)+6*gm(1,2)*gm(1,3)& 323 & *d2gm(2,3)+gm(2,3)*(0*dgm01(2,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,2)& 324 & +4*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)*d2gm(1,2)& 325 & +2*gm(1,2)*d2gm(1,3)-2*gm(1,1)*d2gm(2,3)) 326 cm(5,4)=5*gm(1,3)*dgm01(2,3)*dgm10(1,1)+3*gm(1,2)*dgm01(3,3)& 327 & *dgm10(1,1)+6*gm(1,3)*dgm01(1,3)*dgm10(1,2)+6*gm(1,1)*dgm01(3,3)& 328 & *dgm10(1,2)+6*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)& 329 & *dgm10(1,3)+10*gm(1,1)*dgm01(2,3)*dgm10(1,3)+5*gm(1,3)*dgm01(1,1)& 330 & *dgm10(2,3)+10*gm(1,1)*dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)& 331 & *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)**2*d2gm(1,2)& 332 & +gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)& 333 & *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)*gm(1,3)*d2gm(1,3)+gm(2,3)& 334 & *(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1)& 335 & +6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,3)*d2gm(2,3) 336 cm(6,4)=3*gm(1,3)*dgm01(2,2)*dgm10(1,1)+5*gm(1,2)*dgm01(2,3)& 337 & *dgm10(1,1)+4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+6*gm(1,2)*dgm01(1,3)& 338 & *dgm10(1,2)+10*gm(1,1)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(1,2)& 339 & *dgm10(1,3)+6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)& 340 & *dgm10(2,2)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+5*gm(1,2)*dgm01(1,1)& 341 & *dgm10(2,3)+10*gm(1,1)*dgm01(1,2)*dgm10(2,3)+2*gm(1,2)*gm(1,3)& 342 & *d2gm(1,2)+gm(2,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)& 343 & +gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)**2*d2gm(1,3)& 344 & +gm(2,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)& 345 & *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,2)*d2gm(2,3) 346 cm(1,5)=gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))& 347 & +gm(1,1)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)+2*gm(1,1)& 348 & *d2gm(1,3)) 349 cm(2,5)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)& 350 & *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,2)*dgm01(1,1)& 351 & +12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(1,3)+dgm01(1,3)& 352 & *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))& 353 & +dgm01(1,1)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)& 354 & *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 355 & *gm(2,3))*d2gm(1,1)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(1,3))& 356 & /2.d0 357 cm(3,5)=gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 358 & +2*dgm01(1,1)*dgm10(3,3))-gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 359 & *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(1*dgm01(1,3)*dgm10(1,1)& 360 & +dgm01(1,1)*dgm10(1,3)+2*gm(1,3)*d2gm(1,1)-gm(1,1)*d2gm(1,3)) 361 cm(4,5)=(3*gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3)& 362 & +3*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)& 363 & *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,3)& 364 & +dgm01(1,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)& 365 & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(3*gm(3,3)*dgm10(1,2)& 366 & +gm(2,3)*dgm10(1,3)+gm(1,3)*dgm10(2,3)+3*gm(1,2)*dgm10(3,3))& 367 & +(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*d2gm(1,1)+(6*gm(1,2)*gm(1,3)& 368 & -2*gm(1,1)*gm(2,3))*d2gm(1,3) 369 cm(5,5)=gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)& 370 & +3*dgm01(1,1)*dgm10(3,3))+gm(1,3)**2*d2gm(1,1)+gm(3,3)*(6*dgm01(1,1)& 371 & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)*(6*dgm01(1,3)*dgm10(1,1)& 372 & +6*dgm01(1,1)*dgm10(1,3)+4*gm(1,1)*d2gm(1,3)) 373 cm(6,5)=5*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)& 374 & *dgm10(1,1)+4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+5*gm(1,2)*dgm01(1,1)& 375 & *dgm10(1,3)+4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)& 376 & *dgm10(2,3)+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))& 377 & +gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)& 378 & *d2gm(1,1))+4*gm(1,1)*gm(1,2)*d2gm(1,3) 379 cm(1,6)=gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))& 380 & +gm(1,1)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)+2*gm(1,1)& 381 & *d2gm(1,2)) 382 cm(2,6)=gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 383 & +2*dgm01(1,1)*dgm10(2,2))-gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 384 & *dgm10(2,2))+3*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(1*dgm01(1,2)*dgm10(1,1)& 385 & +dgm01(1,1)*dgm10(1,2)+2*gm(1,2)*d2gm(1,1)-gm(1,1)*d2gm(1,2)) 386 cm(3,6)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)& 387 & *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(3,3)*dgm01(1,1)& 388 & +12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(1,2)+dgm01(1,2)& 389 & *(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))& 390 & +dgm01(1,1)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)& 391 & *dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 392 & *gm(3,3))*d2gm(1,1)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(1,2))& 393 & /2.d0 394 cm(4,6)=(1*gm(2,3)*dgm01(1,2)+3*gm(2,2)*dgm01(1,3)+3*gm(1,3)& 395 & *dgm01(2,2)+gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)& 396 & +6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))& 397 & *dgm10(1,2)+dgm01(1,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)& 398 & +6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(1*gm(2,3)& 399 & *dgm10(1,2)+3*gm(2,2)*dgm10(1,3)+3*gm(1,3)*dgm10(2,2)+gm(1,2)& 400 & *dgm10(2,3))+(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*d2gm(1,1)+(6*gm(1,2)& 401 & *gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,2) 402 cm(5,6)=gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)*dgm10(1,1)& 403 & +4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+gm(1,2)*dgm01(1,1)*dgm10(1,3)& 404 & +4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)*dgm10(2,3)& 405 & +gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)& 406 & *(5*dgm01(1,2)*dgm10(1,1)+5*dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1)& 407 & +4*gm(1,1)*d2gm(1,2)) 408 cm(6,6)=gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)& 409 & +3*dgm01(1,1)*dgm10(2,2))+gm(1,2)**2*d2gm(1,1)+gm(2,2)*(6*dgm01(1,1)& 410 & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,2)*(6*dgm01(1,2)*dgm10(1,1)& 411 & +6*dgm01(1,1)*dgm10(1,2)+4*gm(1,1)*d2gm(1,2)) 412 cm(1,7)=gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 413 & +3*gm(1,2)**2*d2gm(1,2)-gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 414 & *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)& 415 & +12*dgm01(1,2)*dgm10(1,2)+2*dgm01(1,1)*dgm10(2,2)+2*gm(1,1)*d2gm(2,2)) 416 cm(2,7)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)**2*d2gm(1,2)& 417 & +gm(2,2)*(6*dgm01(2,2)*dgm10(1,2)+6*dgm01(1,2)*dgm10(2,2)+2*gm(1,2)& 418 & *d2gm(2,2)) 419 cm(3,7)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)& 420 & *dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)& 421 & +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(2,2)+dgm01(2,2)& 422 & *(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)& 423 & -2*gm(1,2)*dgm10(3,3))+dgm01(1,2)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)& 424 & *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 425 & *d2gm(1,2)+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(2,2))/2.d0 426 cm(4,7)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*dgm01(2,3)*dgm10(2,2)& 427 & +gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(5*dgm01(2,2)*dgm10(1,2)& 428 & +5*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)*d2gm(1,2)+gm(1,2)*d2gm(2,2))& 429 & +gm(2,2)*(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 430 & *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)) 431 cm(5,7)=-gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)& 432 & *dgm10(1,2)+gm(1,2)*dgm01(2,2)*dgm10(1,3)-gm(1,3)*dgm01(1,2)& 433 & *dgm10(2,2)+gm(1,2)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)*dgm01(2,3)& 434 & *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+3*gm(1,1)*dgm01(2,2)& 435 & *dgm10(2,3)-2*gm(2,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)& 436 & +gm(1,3)*d2gm(1,2))+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)& 437 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)& 438 & +6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2)) 439 cm(6,7)=6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+6*gm(1,2)*(dgm01(2,2)& 440 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(1,2)**2*d2gm(2,2)+gm(2,2)& 441 & *(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 442 & *dgm10(2,2)+4*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2)) 443 cm(1,8)=4*gm(1,3)*dgm01(2,3)*dgm10(1,1)+2*gm(1,2)*dgm01(3,3)& 444 & *dgm10(1,1)+12*gm(1,3)*dgm01(1,3)*dgm10(1,2)+gm(1,1)*dgm01(3,3)& 445 & *dgm10(1,2)+12*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)*dgm01(1,3)& 446 & *dgm10(1,3)+2*gm(1,1)*dgm01(2,3)*dgm10(1,3)+4*gm(1,3)*dgm01(1,1)& 447 & *dgm10(2,3)+2*gm(1,1)*dgm01(1,3)*dgm10(2,3)+2*gm(1,2)*dgm01(1,1)& 448 & *dgm10(3,3)+gm(1,1)*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)& 449 & -gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)& 450 & *d2gm(1,2))+6*gm(1,2)*gm(1,3)*d2gm(1,3)-2*gm(2,3)*(dgm01(1,3)& 451 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+4*gm(1,1)& 452 & *gm(1,3)*d2gm(2,3)+2*gm(1,1)*gm(1,2)*d2gm(3,3) 453 cm(2,8)=gm(2,2)*dgm01(3,3)*dgm10(1,2)+2*gm(2,2)*dgm01(2,3)*dgm10(1,3)& 454 & -2*gm(1,3)*dgm01(2,3)*dgm10(2,2)+2*gm(1,2)*dgm01(3,3)*dgm10(2,2)& 455 & +2*gm(2,2)*dgm01(1,3)*dgm10(2,3)-2*gm(1,3)*dgm01(2,2)*dgm10(2,3)& 456 & +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+gm(2,2)*dgm01(1,2)*dgm10(3,3)& 457 & +2*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,2)-gm(3,3)& 458 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))& 459 & -2*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)& 460 & +4*dgm01(2,2)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)& 461 & *dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+2*gm(1,2)& 462 & *gm(2,2)*d2gm(3,3) 463 cm(3,8)=7*gm(1,3)*dgm01(3,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,3)& 464 & *dgm10(3,3)-2*gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,2)& 465 & +gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)+8*dgm01(2,3)*dgm10(1,3)+8*dgm01(1,3)& 466 & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+4*gm(1,3)& 467 & *d2gm(2,3)-gm(1,2)*d2gm(3,3))+gm(2,3)*(7*dgm01(3,3)*dgm10(1,3)& 468 & +7*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*d2gm(3,3)) 469 cm(4,8)=9*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)& 470 & *dgm10(2,2)+4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+7*gm(1,2)*dgm01(3,3)& 471 & *dgm10(2,3)+9*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)& 472 & *dgm10(3,3)+7*gm(1,2)*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,3)& 473 & +gm(3,3)*(10*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)& 474 & *dgm10(2,2)+10*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)+6*gm(2,2)& 475 & *d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+3*gm(1,3)*gm(2,2)*d2gm(3,3)+gm(2,3)& 476 & *(5*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)& 477 & *dgm10(2,3)+5*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)& 478 & *d2gm(3,3)) 479 cm(5,8)=5*gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)& 480 & *dgm10(1,3)+7*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)& 481 & *dgm10(2,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(1,2)& 482 & *dgm10(3,3)+7*gm(1,2)*dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)& 483 & *dgm10(3,3)+2*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,1)& 484 & +10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)& 485 & *dgm10(2,3)+4*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)& 486 & *d2gm(2,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)& 487 & +4*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+2*gm(1,3)*d2gm(1,3)& 488 & +3*gm(1,1)*d2gm(3,3)) 489 cm(6,8)=-4*gm(3,3)*dgm01(1,2)*dgm10(1,2)+8*gm(1,3)*dgm01(2,3)& 490 & *dgm10(1,2)+0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)& 491 & *dgm10(1,3)+4*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)& 492 & *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)& 493 & *dgm10(2,3)+4*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)& 494 & *dgm10(2,3)+0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)& 495 & *dgm10(3,3)-2*gm(1,2)*gm(3,3)*d2gm(1,2)+2*gm(1,2)*gm(1,3)*d2gm(2,3)& 496 & +gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,2)+8*dgm01(1,2)& 497 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+2*gm(1,2)& 498 & *d2gm(1,3)+6*gm(1,1)*d2gm(2,3))+gm(1,2)**2*d2gm(3,3)+gm(2,2)& 499 & *(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)& 500 & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3)) 501 cm(1,9)=2*gm(1,3)*dgm01(2,2)*dgm10(1,1)+4*gm(1,2)*dgm01(2,3)& 502 & *dgm10(1,1)+12*gm(1,3)*dgm01(1,2)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)& 503 & *dgm10(1,2)+2*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,2)& 504 & *dgm10(1,3)+gm(1,1)*dgm01(2,2)*dgm10(1,3)+2*gm(1,3)*dgm01(1,1)& 505 & *dgm10(2,2)+gm(1,1)*dgm01(1,3)*dgm10(2,2)+4*gm(1,2)*dgm01(1,1)& 506 & *dgm10(2,3)+2*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*gm(1,3)& 507 & *d2gm(1,2)-2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 508 & +gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)-gm(2,2)*(dgm01(1,3)& 509 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+2*gm(1,1)& 510 & *gm(1,3)*d2gm(2,2)+4*gm(1,1)*gm(1,2)*d2gm(2,3) 511 cm(2,9)=-2*gm(1,3)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*dgm01(2,3)& 512 & *dgm10(2,2)+7*gm(1,2)*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)**2*d2gm(1,3)& 513 & +gm(2,3)*(7*dgm01(2,2)*dgm10(1,2)+7*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)& 514 & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(8*dgm01(2,3)*dgm10(1,2)& 515 & +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+8*dgm01(1,2)& 516 & *dgm10(2,3)-gm(1,3)*d2gm(2,2)+4*gm(1,2)*d2gm(2,3)) 517 cm(3,9)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(3,3)& 518 & *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-2*gm(1,2)*dgm01(3,3)& 519 & *dgm10(2,3)-gm(2,2)*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)*dgm01(2,2)& 520 & *dgm10(3,3)-2*gm(1,2)*dgm01(2,3)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,3)& 521 & +gm(3,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 522 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)-gm(2,2)& 523 & *d2gm(1,3)+2*gm(1,3)*d2gm(2,2)-2*gm(1,2)*d2gm(2,3))+gm(2,3)*(4*dgm01(3,3)& 524 & *dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)& 525 & +4*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)) 526 cm(4,9)=6*gm(2,2)*dgm01(3,3)*dgm10(1,2)+10*gm(2,2)*dgm01(2,3)& 527 & *dgm10(1,3)+7*gm(1,3)*dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*dgm01(3,3)& 528 & *dgm10(2,2)+10*gm(2,2)*dgm01(1,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,2)& 529 & *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*dgm01(1,2)& 530 & *dgm10(3,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,2)& 531 & +gm(3,3)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)& 532 & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+6*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)& 533 & *(6*dgm01(2,3)*dgm10(1,2)+5*dgm01(2,2)*dgm10(1,3)+5*dgm01(1,3)& 534 & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+gm(1,3)& 535 & *d2gm(2,2)+2*gm(1,2)*d2gm(2,3)) 536 cm(5,9)=4*gm(1,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(3,3)& 537 & *dgm10(1,2)-4*gm(2,2)*dgm01(1,3)*dgm10(1,3)+0*gm(1,3)*dgm01(2,2)& 538 & *dgm10(1,3)+8*gm(1,2)*dgm01(2,3)*dgm10(1,3)+0*gm(1,3)*dgm01(1,3)& 539 & *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+4*gm(1,3)*dgm01(1,2)& 540 & *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)& 541 & *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)& 542 & *dgm10(3,3)-2*gm(1,3)*gm(2,2)*d2gm(1,3)+gm(1,3)**2*d2gm(2,2)& 543 & +gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 544 & *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+2*gm(1,2)& 545 & *gm(1,3)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)& 546 & *dgm10(1,2)+8*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)& 547 & *d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3)) 548 cm(6,9)=7*gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)& 549 & *dgm10(1,2)+5*gm(1,2)*dgm01(2,2)*dgm10(1,3)+7*gm(1,3)*dgm01(1,2)& 550 & *dgm10(2,2)+5*gm(1,2)*dgm01(1,3)*dgm10(2,2)+9*gm(1,1)*dgm01(2,3)& 551 & *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+9*gm(1,1)*dgm01(2,2)& 552 & *dgm10(2,3)+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)& 553 & +4*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+2*gm(1,2)*d2gm(1,2)& 554 & +3*gm(1,1)*d2gm(2,2))+2*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(6*dgm01(2,3)& 555 & *dgm10(1,1)+10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)& 556 & +6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+4*gm(1,2)*d2gm(1,3)& 557 & +6*gm(1,1)*d2gm(2,3)) 558 cm(1,10)=gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 559 & +3*gm(1,3)**2*d2gm(1,3)-gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 560 & *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)& 561 & +12*dgm01(1,3)*dgm10(1,3)+2*dgm01(1,1)*dgm10(3,3)+2*gm(1,1)*d2gm(3,3)) 562 cm(2,10)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)& 563 & *dgm01(3,3))*dgm10(1,3)+dgm01(3,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)& 564 & *dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(6*gm(2,3)& 565 & *dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)*dgm01(2,2)+6*gm(1,2)& 566 & *dgm01(2,3))*dgm10(3,3)+dgm01(1,3)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)& 567 & *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 568 & *d2gm(1,3)+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(3,3))& 569 & /2.d0 570 cm(3,10)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,3)& 571 & +gm(3,3)*(6*dgm01(3,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)& 572 & *d2gm(3,3)) 573 cm(4,10)=gm(1,3)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(2,3)*dgm10(3,3)& 574 & +6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)& 575 & +4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)& 576 & *dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)& 577 & *(5*dgm01(3,3)*dgm10(1,3)+5*dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)) 578 cm(5,10)=6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+6*gm(1,3)*(dgm01(3,3)& 579 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,3)**2*d2gm(3,3)+gm(3,3)& 580 & *(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)& 581 & *dgm10(3,3)+4*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3)) 582 cm(6,10)=gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)& 583 & *dgm10(1,3)-gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)& 584 & *dgm10(2,3)+3*gm(1,1)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(1,2)& 585 & *dgm10(3,3)-gm(1,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*dgm01(2,3)& 586 & *dgm10(3,3)-2*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)& 587 & +gm(1,2)*d2gm(1,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)& 588 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)& 589 & +6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3)) 590 cm(1,11)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,2)& 591 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2)& 592 & -0.5d0*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)& 593 & *d2gm(2,2)) 594 cm(2,11)=gm(2,2)*(4*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2)) 595 cm(3,11)=3*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 596 & -0.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 597 & +1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)-0.5d0*gm(2,2)& 598 & *d2gm(2,2)) 599 cm(4,11)=2*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 600 & +gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2)) 601 cm(5,11)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)& 602 & *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(2,2)+dgm01(2,2)*(6*gm(2,3)& 603 & *dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)& 604 & *dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(2,2))& 605 & /2.d0 606 cm(6,11)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,2)& 607 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)) 608 cm(1,12)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)& 609 & *dgm01(3,3))*dgm10(2,2)+dgm01(3,3)*(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)& 610 & *dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+4*(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)& 611 & *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,3)& 612 & +4*dgm01(2,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)& 613 & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)& 614 & *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(2,2)*(-2*gm(3,3)& 615 & *dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)& 616 & **2-2*gm(1,1)*gm(3,3))*d2gm(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 617 & *gm(2,3))*d2gm(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))& 618 & /4.d0 619 cm(2,12)=1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)& 620 & -0.5d0*gm(2,2)*d2gm(2,2))+gm(2,3)*(7*dgm01(2,3)*dgm10(2,2)+7*dgm01(2,2)& 621 & *dgm10(2,3)+4*gm(2,2)*d2gm(2,3))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)& 622 & +8*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)& 623 & *d2gm(3,3)) 624 cm(3,12)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+7*gm(2,3)*(dgm01(3,3)& 625 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*d2gm(2,2)+1.5d0*gm(2,3)& 626 & **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)& 627 & *dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+4*gm(2,3)*d2gm(2,3)-0.5d0*gm(2,2)& 628 & *d2gm(3,3)) 629 cm(4,12)=8*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 630 & +2*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(8*dgm01(2,3)*dgm10(2,2)+8*dgm01(2,2)& 631 & *dgm10(2,3)+2*gm(2,3)*d2gm(2,2)+6*gm(2,2)*d2gm(2,3))+gm(2,3)& 632 & *(4*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+4*dgm01(2,2)& 633 & *dgm10(3,3)+2*gm(2,2)*d2gm(3,3)) 634 cm(5,12)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+gm(1,3)*dgm01(3,3)*dgm10(2,2)& 635 & +4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)*dgm01(3,3)*dgm10(2,3)& 636 & -gm(2,2)*dgm01(1,3)*dgm10(3,3)+gm(1,3)*dgm01(2,2)*dgm10(3,3)& 637 & +9*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)& 638 & +2*dgm01(2,2)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)& 639 & *dgm10(2,3)+2*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))-gm(1,3)& 640 & *gm(2,2)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)& 641 & *dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)& 642 & *d2gm(2,3)+3*gm(1,2)*d2gm(3,3)) 643 cm(6,12)=2*gm(2,2)*dgm01(3,3)*dgm10(1,2)+6*gm(2,2)*dgm01(2,3)& 644 & *dgm10(1,3)+9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+gm(1,2)*dgm01(3,3)& 645 & *dgm10(2,2)+6*gm(2,2)*dgm01(1,3)*dgm10(2,3)+9*gm(1,3)*dgm01(2,2)& 646 & *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)*dgm01(1,2)& 647 & *dgm10(3,3)+gm(1,2)*dgm01(2,2)*dgm10(3,3)-gm(3,3)*(dgm01(2,2)& 648 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+6*gm(1,3)& 649 & *gm(2,2)*d2gm(2,3)+gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)& 650 & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)& 651 & *d2gm(2,2)+2*gm(1,2)*d2gm(2,3))+2*gm(1,2)*gm(2,2)*d2gm(3,3) 652 cm(1,13)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)& 653 & *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,2)+dgm01(2,3)*(-2*gm(2,2)& 654 & *dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+(-2*gm(2,2)& 655 & *dgm01(1,1)+12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(2,3)& 656 & +dgm01(2,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)& 657 & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 658 & *gm(2,3))*d2gm(2,2)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(2,3))& 659 & /2.d0 660 cm(2,13)=gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2))& 661 & +gm(2,2)*(6*dgm01(2,3)*dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)& 662 & *d2gm(2,3)) 663 cm(3,13)=gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)& 664 & +2*dgm01(2,2)*dgm10(3,3))-gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 665 & *dgm10(3,3))+3*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(1*dgm01(2,3)*dgm10(2,2)& 666 & +dgm01(2,2)*dgm10(2,3)+2*gm(2,3)*d2gm(2,2)-gm(2,2)*d2gm(2,3)) 667 cm(4,13)=gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)& 668 & +3*dgm01(2,2)*dgm10(3,3))+gm(2,3)**2*d2gm(2,2)+gm(3,3)*(6*dgm01(2,2)& 669 & *dgm10(2,2)+3*gm(2,2)*d2gm(2,2))+gm(2,3)*(6*dgm01(2,3)*dgm10(2,2)& 670 & +6*dgm01(2,2)*dgm10(2,3)+4*gm(2,2)*d2gm(2,3)) 671 cm(5,13)=-2*gm(2,2)*dgm01(2,3)*dgm10(1,3)-gm(1,3)*dgm01(2,3)& 672 & *dgm10(2,2)+3*gm(1,2)*dgm01(3,3)*dgm10(2,2)-2*gm(2,2)*dgm01(1,3)& 673 & *dgm10(2,3)-gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)& 674 & *dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(3,3)*(dgm01(2,2)& 675 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-2*gm(1,3)& 676 & *gm(2,2)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)& 677 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+gm(1,3)& 678 & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3)) 679 cm(6,13)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+5*gm(1,2)*dgm01(2,3)& 680 & *dgm10(2,2)+5*gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(dgm01(2,2)& 681 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)& 682 & *(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 683 & *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+4*gm(1,2)& 684 & *d2gm(2,3)) 685 cm(1,14)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)& 686 & *dgm01(3,3))*dgm10(2,3)+dgm01(3,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)& 687 & *dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,3)& 688 & *dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)& 689 & *dgm01(2,3))*dgm10(3,3)+dgm01(2,3)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)& 690 & *dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))& 691 & *d2gm(2,3)+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(3,3))/2.d0 692 cm(2,14)=gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 693 & +3*gm(2,3)**2*d2gm(2,3)-gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 694 & *dgm10(2,3)+gm(2,2)*d2gm(2,3))+gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)& 695 & +12*dgm01(2,3)*dgm10(2,3)+2*dgm01(2,2)*dgm10(3,3)+2*gm(2,2)*d2gm(3,3)) 696 cm(3,14)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(2,3)& 697 & +gm(3,3)*(6*dgm01(3,3)*dgm10(2,3)+6*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)& 698 & *d2gm(3,3)) 699 cm(4,14)=6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+6*gm(2,3)*(dgm01(3,3)& 700 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)**2*d2gm(3,3)+gm(3,3)& 701 & *(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)& 702 & *dgm10(3,3)+4*gm(2,3)*d2gm(2,3)+3*gm(2,2)*d2gm(3,3)) 703 cm(5,14)=5*gm(1,3)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(2,3)& 704 & *dgm10(3,3)+6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)& 705 & *dgm10(1,2)+4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)& 706 & *dgm10(3,3)+4*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)& 707 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)) 708 cm(6,14)=3*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)& 709 & *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-gm(1,2)*dgm01(3,3)& 710 & *dgm10(2,3)+3*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)& 711 & *dgm10(3,3)-gm(1,2)*dgm01(2,3)*dgm10(3,3)-2*gm(3,3)*(dgm01(2,3)& 712 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(1,3)& 713 & *gm(2,2)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)& 714 & *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+6*gm(1,3)& 715 & *d2gm(2,3)+gm(1,2)*d2gm(3,3)) 716 cm(1,15)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)& 717 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3)& 718 & -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)& 719 & *d2gm(3,3)) 720 cm(2,15)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)& 721 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3)& 722 & -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)& 723 & *d2gm(3,3)) 724 cm(3,15)=gm(3,3)*(4*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3)) 725 cm(4,15)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)& 726 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3)) 727 cm(5,15)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)& 728 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)) 729 cm(6,15)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)& 730 & *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(3,3)+dgm01(3,3)*(-2*gm(3,3)& 731 & *dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)-2*gm(1,2)& 732 & *dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(3,3))& 733 & /2.d0 734 elseif(rank==3)then 735 cm(1,1)=gm(1,1)**2*(6*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1)) 736 cm(2,1)=9*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 737 & *dgm10(1,2))+gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)& 738 & *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 739 & *dgm10(2,2))+gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)& 740 & *d2gm(1,1))) 741 cm(3,1)=9*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 742 & *dgm10(1,3))+gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)& 743 & *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 744 & *dgm10(3,3))+gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)& 745 & *d2gm(1,1))) 746 cm(4,1)=gm(1,1)*(9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 747 & *dgm10(1,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 748 & +gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1)))+gm(1,2)& 749 & *(9*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,3)& 750 & *(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*d2gm(1,1))) 751 cm(5,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 752 & *dgm10(1,3))+gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))) 753 cm(6,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 754 & *dgm10(1,2))+gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))) 755 cm(7,1)=(270*gm(1,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 756 & -54*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 757 & +90*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(-54*gm(1,1)*(dgm01(2,2)*dgm10(1,1)& 758 & +dgm01(1,1)*dgm10(2,2))+gm(2,2)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)& 759 & *d2gm(1,1))))/36.d0 760 cm(8,1)=((90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)& 761 & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)& 762 & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)& 763 & +gm(1,1)*dgm01(3,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,3)**2*dgm10(1,2)& 764 & +gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)& 765 & *(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))& 766 & -18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+(-36*gm(1,1)& 767 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 768 & *d2gm(1,1))/12.d0 769 cm(9,1)=((90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)& 770 & -18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)& 771 & *dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)& 772 & +gm(1,1)*dgm01(2,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,2)**2*dgm10(1,3)& 773 & +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)& 774 & *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))& 775 & -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+(90*gm(1,2)& 776 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 777 & *d2gm(1,1))/12.d0 778 cm(10,1)=(270*gm(1,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 779 & -54*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 780 & +90*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(-54*gm(1,1)*(dgm01(3,3)*dgm10(1,1)& 781 & +dgm01(1,1)*dgm10(3,3))+gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)& 782 & *d2gm(1,1))))/36.d0 783 cm(1,2)=gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))& 784 & +gm(1,1)*gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)& 785 & +6*gm(1,1)*d2gm(1,2))+gm(1,1)*(gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)& 786 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)& 787 & +12*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)& 788 & *d2gm(2,2))) 789 cm(2,2)=-3*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+24*gm(1,1)*gm(1,2)& 790 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(12*dgm01(1,1)& 791 & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)& 792 & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)& 793 & *dgm10(2,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(2,2)*(3*gm(1,2)**2*d2gm(1,1)& 794 & +gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)& 795 & *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)& 796 & +9*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))) 797 cm(3,2)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+1.5d0*gm(1,3)& 798 & **2*dgm01(2,2)*dgm10(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)& 799 & +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)& 800 & *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)& 801 & **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)& 802 & +6*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)& 803 & *dgm10(1,2)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)& 804 & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)& 805 & +1.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)& 806 & *dgm01(1,1)*dgm10(2,2)+9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 807 & -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)& 808 & *dgm10(2,3)+24*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)& 809 & **2*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)& 810 & -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)& 811 & *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)& 812 & *d2gm(1,1))+gm(2,2)*(-6*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 813 & *dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 814 & *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)& 815 & -1.5d0*gm(1,1)*d2gm(1,1)))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)-9*gm(1,1)& 816 & *gm(1,2)*gm(3,3)*d2gm(1,2)+gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)& 817 & +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)& 818 & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3))& 819 & +gm(1,3)*(33*dgm01(1,2)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)& 820 & *d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+4.5d0*gm(1,1)*gm(1,3)**2*d2gm(2,2)& 821 & -1.5d0*gm(1,1)**2*gm(3,3)*d2gm(2,2) 822 cm(4,2)=gm(1,2)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)& 823 & +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)& 824 & +6*gm(1,3)*d2gm(1,2))+gm(2,2)*(3*gm(1,2)*dgm01(1,3)*dgm10(1,1)& 825 & +12*gm(1,1)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*dgm01(1,3)*dgm10(1,2)& 826 & +3*gm(1,2)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*dgm01(1,2)*dgm10(1,3)& 827 & +12*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)& 828 & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)& 829 & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+gm(1,1)& 830 & *(33*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(1,1)& 831 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(6*dgm01(2,2)& 832 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)& 833 & -3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(1,1)*(6*dgm01(2,3)*dgm10(1,2)& 834 & +9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)& 835 & *dgm10(2,3))+gm(2,3)*(12*dgm01(1,2)*dgm10(1,1)+12*dgm01(1,1)& 836 & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)& 837 & +24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+9*gm(1,1)& 838 & *d2gm(2,2))) 839 cm(5,2)=1.5d0*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 840 & +gm(1,2)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)& 841 & +6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)& 842 & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(-4.5d0*gm(2,2)*(dgm01(1,3)& 843 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,2)& 844 & +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)& 845 & *dgm10(2,3))+gm(2,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)& 846 & *dgm10(1,2)+12*gm(1,1)*d2gm(1,2)))+gm(1,3)*(1.5d0*gm(1,2)**2*d2gm(1,1)& 847 & +gm(2,2)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)& 848 & *(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))& 849 & +gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 850 & +1.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2))) 851 cm(6,2)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(10.5d0*dgm01(1,2)& 852 & *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))& 853 & +gm(1,1)*(15*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 854 & +gm(2,2)*(31.5d0*dgm01(1,2)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,2)& 855 & +12*gm(1,1)*d2gm(1,2)))+gm(1,2)*(gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)& 856 & +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(2,2)*dgm10(1,1)& 857 & +24*dgm01(1,2)*dgm10(1,2)+13.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)& 858 & *d2gm(2,2))) 859 cm(7,2)=gm(2,2)**2*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,2)& 860 & +3*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,2)*(-3*gm(1,1)& 861 & *dgm01(2,2)*dgm10(2,2)+16.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)& 862 & +dgm01(1,2)*dgm10(2,2))+2.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(-7.5d0*gm(1,1)& 863 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)& 864 & +gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)& 865 & +4.5d0*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))) 866 cm(8,2)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)& 867 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+22.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 868 & -4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)& 869 & *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+15*gm(1,2)& 870 & *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)& 871 & +22.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)& 872 & *dgm01(1,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 873 & -3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,2)& 874 & *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 875 & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)& 876 & *dgm10(3,3)-1.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)& 877 & **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(-4.5d0*dgm01(1,2)*dgm10(1,1)& 878 & -4.5d0*dgm01(1,1)*dgm10(1,2)+1.5d0*gm(1,2)*d2gm(1,1)-6*gm(1,1)& 879 & *d2gm(1,2))+gm(2,2)*(-4.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)& 880 & *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(12*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)& 881 & *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))& 882 & -4.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 883 & +15*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)*dgm10(1,1)& 884 & -7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)& 885 & *d2gm(1,2)))+7.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(1,1)& 886 & *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(3*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 887 & +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)-12*gm(1,1)*dgm01(2,3)*dgm10(1,2)& 888 & +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)-3*gm(1,1)*dgm01(2,2)*dgm10(1,3)& 889 & -3*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 890 & -12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+12*gm(2,2)*(dgm01(1,3)*dgm10(1,1)& 891 & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)& 892 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)& 893 & +18*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2))) 894 cm(9,2)=gm(1,1)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(2,3)& 895 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+6*gm(2,2)**2*(dgm01(1,3)& 896 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)& 897 & **2*(3*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)& 898 & *dgm10(2,2)+3*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+7.5d0*gm(1,3)& 899 & *d2gm(2,2))+gm(1,2)*(39*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 900 & *dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 901 & +gm(2,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+0*dgm01(1,1)& 902 & *dgm10(2,2)-3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(3*gm(1,2)*dgm01(2,3)& 903 & *dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-9*gm(1,1)*dgm01(2,3)& 904 & *dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(2,2)& 905 & *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)& 906 & *dgm10(2,3)-9*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(-6*dgm01(1,2)& 907 & *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)& 908 & *d2gm(1,2))+gm(1,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)& 909 & *dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)& 910 & -1.5d0*gm(1,1)*d2gm(2,2))) 911 cm(10,2)=(3*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)& 912 & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)& 913 & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)& 914 & +gm(1,3)*dgm01(3,3)))*dgm10(1,1)+6*(90*gm(1,3)**2*dgm01(2,3)& 915 & +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)& 916 & *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))& 917 & -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(1,2)& 918 & +(270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)-54*gm(1,3)& 919 & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)& 920 & *(270*gm(1,3)**2*dgm10(1,3)-54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)& 921 & *(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(1,3)& 922 & **2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))& 923 & +gm(2,3)*(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)& 924 & *dgm10(3,3))-36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))& 925 & +3*dgm01(1,1)*(90*gm(2,3)**2*dgm10(1,3)+gm(3,3)*(-18*gm(1,3)& 926 & *dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)*(-36*gm(3,3)*dgm10(1,2)& 927 & +180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))-18*gm(2,2)*(gm(3,3)& 928 & *dgm10(1,3)+gm(1,3)*dgm10(3,3)))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 929 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,3)& 930 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(1,2)& 931 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*d2gm(2,2))/36.d0 932 cm(1,3)=gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))& 933 & +gm(1,1)*gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)& 934 & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)& 935 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)& 936 & +12*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)& 937 & *d2gm(3,3))) 938 cm(2,3)=-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)& 939 & *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)& 940 & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)& 941 & -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*gm(1,3)*dgm01(1,3)& 942 & *dgm10(1,2)+9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)& 943 & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)& 944 & -9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)*dgm01(2,3)& 945 & *dgm10(1,3)-3*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)& 946 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 947 & -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)& 948 & *dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+1.5d0*gm(1,2)& 949 & **2*dgm01(1,1)*dgm10(3,3)+9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)& 950 & -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)& 951 & *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)& 952 & *d2gm(1,1))+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)*(15*dgm01(2,3)& 953 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)& 954 & +15*dgm01(1,1)*dgm10(2,3))+9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 955 & *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)& 956 & +33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+4.5d0*gm(1,1)& 957 & *gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)& 958 & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)& 959 & *dgm10(1,1)-15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3))+gm(1,1)& 960 & *(-4.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)& 961 & *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3))) 962 cm(3,3)=-3*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+24*gm(1,1)*gm(1,3)& 963 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(1,1)& 964 & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)& 965 & **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)& 966 & *dgm10(3,3)+4.5d0*gm(1,1)*d2gm(3,3))+gm(3,3)*(3*gm(1,3)**2*d2gm(1,1)& 967 & +gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)& 968 & *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)& 969 & +9*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3))) 970 cm(4,3)=27*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+12*gm(1,1)& 971 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*gm(3,3)*dgm01(1,3)& 972 & *dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)& 973 & *gm(3,3)*dgm01(1,2)*dgm10(1,3)+33*gm(1,1)*gm(1,2)*dgm01(3,3)& 974 & *dgm10(1,3)+12*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)& 975 & **2*dgm01(3,3)*dgm10(2,3)+33*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 976 & -3*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*gm(3,3)& 977 & *d2gm(1,3)+gm(1,3)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)& 978 & +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3))& 979 & +gm(2,3)*(3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)& 980 & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)& 981 & *dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)& 982 & +12*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))& 983 & +gm(1,3)*(gm(1,1)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)& 984 & +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3))+3*gm(3,3)*(dgm01(1,2)& 985 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)& 986 & *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 987 & *dgm10(3,3)+9*gm(1,1)*d2gm(3,3))) 988 cm(5,3)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(10.5d0*dgm01(1,3)& 989 & *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))& 990 & +gm(1,1)*(15*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 991 & +gm(3,3)*(31.5d0*dgm01(1,3)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,3)& 992 & +12*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)& 993 & +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(3,3)*dgm10(1,1)& 994 & +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)& 995 & *d2gm(3,3))) 996 cm(6,3)=1.5d0*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 997 & +gm(1,2)*d2gm(1,1))+gm(1,3)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)& 998 & +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)& 999 & *dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))& 1000 & +gm(1,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)& 1001 & *d2gm(1,3)))+gm(1,1)*(-4.5d0*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1002 & *dgm10(1,2))+gm(1,1)*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)& 1003 & +12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3))+gm(2,3)*(36*dgm01(1,3)& 1004 & *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)*d2gm(1,3)))+gm(1,2)& 1005 & *(gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))& 1006 & +gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 1007 & +1.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3))) 1008 cm(7,3)=(3*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)& 1009 & +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)& 1010 & *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)& 1011 & -18*gm(1,2)*dgm01(3,3)))*dgm10(1,1)+6*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)& 1012 & +gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)& 1013 & **2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)& 1014 & -36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+dgm01(3,3)& 1015 & *(270*gm(1,2)**2*dgm10(1,2)-54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)& 1016 & *(gm(2,2)*dgm10(1,1)+gm(1,1)*dgm10(2,2)))+6*dgm01(1,3)*(-18*gm(1,1)& 1017 & *gm(2,3)*dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)& 1018 & *dgm10(2,2))+90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)& 1019 & -36*gm(1,3)*dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))& 1020 & +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)& 1021 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(1,1)& 1022 & *(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)& 1023 & *(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))& 1024 & +gm(2,2)*(-18*gm(3,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)& 1025 & *dgm10(3,3)))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1026 & **2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 1027 & *(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)& 1028 & *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0 1029 cm(8,3)=gm(1,1)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(2,3)& 1030 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(1,2)& 1031 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)& 1032 & **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)& 1033 & *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(2,3)*d2gm(1,3)+7.5d0*gm(1,2)& 1034 & *d2gm(3,3))+gm(3,3)*(10.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-1.5d0*gm(1,1)& 1035 & *dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)*dgm10(1,3)-9*gm(1,1)& 1036 & *dgm01(2,3)*dgm10(1,3)-9*gm(1,1)*dgm01(1,3)*dgm10(2,3)+10.5d0*gm(1,2)& 1037 & *dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)& 1038 & *(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)& 1039 & *d2gm(1,1)-9*gm(1,1)*d2gm(1,3))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)& 1040 & +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)& 1041 & *dgm10(2,3)+24*gm(1,2)*d2gm(1,3))-1.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))& 1042 & +gm(1,3)*(39*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1043 & -3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)& 1044 & *(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)& 1045 & *dgm10(3,3)-3*gm(1,1)*d2gm(3,3))) 1046 cm(9,3)=-4.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)& 1047 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)*gm(3,3)*dgm01(1,3)& 1048 & *dgm10(1,2)+15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)& 1049 & *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)& 1050 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)& 1051 & *dgm10(1,3)+22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,3)& 1052 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)& 1053 & -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,3)& 1054 & *dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)& 1055 & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)& 1056 & *dgm10(2,3)+15*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)+22.5d0*gm(1,2)& 1057 & **2*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)& 1058 & -3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)& 1059 & *d2gm(1,3)+gm(2,3)**2*(-4.5d0*dgm01(1,3)*dgm10(1,1)-4.5d0*dgm01(1,1)& 1060 & *dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+7.5d0*gm(1,2)& 1061 & **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)& 1062 & -3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)*dgm10(1,3)& 1063 & -12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)*dgm10(2,3)& 1064 & +9*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 1065 & +12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)& 1066 & *d2gm(1,1))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)& 1067 & +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)& 1068 & *d2gm(1,3))-3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-4.5d0*gm(1,1)& 1069 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)& 1070 & +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)& 1071 & -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)& 1072 & *dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)& 1073 & -1.5d0*gm(1,1)*d2gm(3,3))) 1074 cm(10,3)=gm(3,3)**2*(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)& 1075 & +3*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-3*gm(1,1)& 1076 & *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)& 1077 & +dgm01(1,3)*dgm10(3,3))+2.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(1,1)& 1078 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)& 1079 & +gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)& 1080 & +4.5d0*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3))) 1081 cm(1,4)=gm(1,2)*(gm(1,3)*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)& 1082 & *d2gm(1,1))+gm(1,1)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)& 1083 & +6*gm(1,1)*d2gm(1,3)))+gm(1,1)*(gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)& 1084 & -3*gm(1,1)*d2gm(1,1))+gm(1,3)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)& 1085 & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)& 1086 & +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)& 1087 & *dgm10(2,3)+2*gm(1,1)*d2gm(2,3))) 1088 cm(2,4)=gm(1,1)*(gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)& 1089 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 1090 & +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1091 & *dgm10(2,3)))+gm(1,2)*(gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)& 1092 & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(1,1)*(42*dgm01(2,3)*dgm10(1,2)& 1093 & +15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)+42*dgm01(1,2)& 1094 & *dgm10(2,3))+gm(2,3)*(30*dgm01(1,2)*dgm10(1,1)+30*dgm01(1,1)& 1095 & *dgm10(1,2)+24*gm(1,1)*d2gm(1,2)))+3*gm(1,2)**3*d2gm(1,3)+gm(1,2)& 1096 & **2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1097 & *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)+3*gm(1,3)& 1098 & *d2gm(1,2)+9*gm(1,1)*d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(1,3)& 1099 & *dgm10(1,1)+6*gm(1,1)*dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*dgm01(1,3)& 1100 & *dgm10(1,2)+18*gm(1,2)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*dgm01(1,2)& 1101 & *dgm10(1,3)+6*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)& 1102 & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,3)*(-6*dgm01(1,2)*dgm10(1,1)& 1103 & -6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)*d2gm(1,2))& 1104 & +15*gm(1,1)*gm(1,2)*d2gm(1,3)-3*gm(1,1)**2*d2gm(2,3)) 1105 cm(3,4)=-6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)& 1106 & *dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)& 1107 & -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*gm(3,3)*dgm01(1,2)& 1108 & *dgm10(1,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,1)& 1109 & *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)& 1110 & -9*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,1)**2*dgm01(2,3)& 1111 & *dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+gm(1,3)*(gm(1,2)*(3*dgm01(3,3)& 1112 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))& 1113 & +gm(1,1)*(15*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)& 1114 & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(18*dgm01(1,2)& 1115 & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+15*gm(1,1)& 1116 & *d2gm(1,2)))-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)& 1117 & *(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 1118 & *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)& 1119 & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(30*dgm01(1,3)*dgm10(1,1)+30*dgm01(1,1)& 1120 & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))-3*gm(1,1)**2*gm(3,3)*d2gm(2,3)& 1121 & +gm(1,3)**2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)& 1122 & +12*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(1,2)& 1123 & *d2gm(1,3)+9*gm(1,1)*d2gm(2,3)) 1124 cm(4,4)=42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+9*gm(1,3)**2*dgm01(2,2)& 1125 & *dgm10(1,1)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)& 1126 & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+9*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)& 1127 & +42*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)& 1128 & *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+24*gm(1,2)& 1129 & *gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)& 1130 & *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)& 1131 & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)& 1132 & +24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)& 1133 & *dgm01(2,3)*dgm10(1,3)+9*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+15*gm(1,1)& 1134 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)*dgm01(1,3)& 1135 & *dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(1,1)*dgm10(2,3)+24*gm(1,1)& 1136 & *gm(1,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)& 1137 & *dgm10(2,3)-12*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,1)& 1138 & *dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)& 1139 & **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)& 1140 & *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)& 1141 & *gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)& 1142 & *(15*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)& 1143 & *dgm10(3,3))+9*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(30*dgm01(1,1)*dgm10(1,1)& 1144 & +15*gm(1,1)*d2gm(1,1))+gm(1,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)& 1145 & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+18*gm(1,1)*gm(1,2)*gm(1,3)& 1146 & *d2gm(2,3)+gm(2,3)*(gm(1,3)*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)& 1147 & *dgm10(1,2)-6*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)& 1148 & *(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))& 1149 & +gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1150 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3))) 1151 cm(5,4)=gm(1,2)*(12*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,3)& 1152 & *dgm10(1,3)+dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)& 1153 & +12*gm(1,1)*d2gm(1,1)))+gm(1,3)**2*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)& 1154 & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,1)& 1155 & *(gm(1,1)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)& 1156 & +18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(1,2)& 1157 & *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)*d2gm(1,2))+gm(2,3)& 1158 & *(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)& 1159 & *d2gm(1,3)))+gm(1,3)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)& 1160 & *d2gm(1,1))+gm(1,2)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)*dgm10(1,3)& 1161 & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)& 1162 & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)& 1163 & +6*gm(1,1)*d2gm(2,3))) 1164 cm(6,4)=gm(1,3)*(12*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,2)& 1165 & *dgm10(1,2)+dgm01(1,1)*dgm10(2,2))+3*gm(1,2)**2*d2gm(1,1)+gm(2,2)& 1166 & *(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,2)*(12*dgm01(1,2)& 1167 & *dgm10(1,1)+12*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2)))+gm(1,2)& 1168 & **2*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)& 1169 & *d2gm(1,3))+gm(1,1)*(gm(1,1)*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)& 1170 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3))& 1171 & +gm(2,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)& 1172 & *d2gm(1,2))+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)& 1173 & +12*gm(1,1)*d2gm(1,3)))+gm(1,2)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)& 1174 & +3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)& 1175 & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)& 1176 & +6*gm(1,1)*d2gm(2,3))) 1177 cm(7,4)=-3*gm(1,1)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1178 & *dgm10(2,2))+gm(1,2)*(gm(2,3)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)& 1179 & *dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))-6*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 1180 & +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1181 & *dgm10(2,3)))+gm(1,2)**2*(30*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)& 1182 & *dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)& 1183 & +15*gm(2,3)*d2gm(1,2))+gm(2,2)**2*(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)& 1184 & *dgm10(1,3)-3*(gm(1,3)*d2gm(1,1)+gm(1,1)*d2gm(1,3)))+5*gm(1,2)& 1185 & **3*d2gm(2,3)+gm(2,2)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+12*gm(1,2)& 1186 & *dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)& 1187 & *dgm01(1,2)*dgm10(1,3)-6*gm(1,1)*dgm01(2,2)*dgm10(1,3)-6*gm(1,1)& 1188 & *dgm01(1,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)& 1189 & *dgm01(1,2)*dgm10(2,3)+gm(2,3)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)& 1190 & *dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,3)& 1191 & *(-6*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)& 1192 & *dgm10(2,2)-6*gm(1,2)*d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)-3*gm(1,1)& 1193 & *gm(1,2)*d2gm(2,3)) 1194 cm(8,4)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+0*gm(1,2)*gm(3,3)& 1195 & *dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)& 1196 & +12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)& 1197 & *dgm10(1,2)-12*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)& 1198 & *gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(1,2)& 1199 & *dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)-3*gm(1,1)*gm(3,3)& 1200 & *dgm01(2,2)*dgm10(1,3)+48*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)& 1201 & -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)& 1202 & *dgm10(2,2)+15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)& 1203 & *dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)& 1204 & +18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)-12*gm(1,1)*gm(3,3)*dgm01(1,2)& 1205 & *dgm10(2,3)+48*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-12*gm(1,1)& 1206 & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)& 1207 & +24*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)& 1208 & *dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)& 1209 & *gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)& 1210 & **2*(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)& 1211 & *d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(12*dgm01(3,3)& 1212 & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))& 1213 & -3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)& 1214 & **2*d2gm(1,3)+gm(3,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)& 1215 & +12*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+15*gm(1,2)*gm(1,3)& 1216 & **2*d2gm(2,3)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)*(3*gm(1,2)& 1217 & *dgm01(3,3)*dgm10(1,1)-9*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)& 1218 & *dgm01(1,3)*dgm10(1,3)-18*gm(1,1)*dgm01(2,3)*dgm10(1,3)-18*gm(1,1)& 1219 & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)& 1220 & *dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-6*dgm01(1,2)& 1221 & *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)& 1222 & *d2gm(1,2))+gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)& 1223 & +24*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)& 1224 & *d2gm(1,3)-6*gm(1,1)*d2gm(2,3))) 1225 cm(9,4)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)& 1226 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 1227 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+48*gm(1,2)*gm(1,3)*dgm01(2,3)& 1228 & *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)*gm(1,3)& 1229 & *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)& 1230 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)& 1231 & -3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,3)& 1232 & *dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+48*gm(1,2)& 1233 & *gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)& 1234 & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-12*gm(1,1)*gm(1,2)*dgm01(2,3)& 1235 & *dgm10(2,3)+15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)& 1236 & *d2gm(1,2)+gm(2,3)**2*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)& 1237 & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2))+15*gm(1,2)& 1238 & **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(0*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 1239 & +24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-18*gm(1,1)*dgm01(2,3)*dgm10(1,2)& 1240 & +24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-9*gm(1,1)*dgm01(2,2)*dgm10(1,3)& 1241 & -9*gm(1,1)*dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 1242 & -18*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)& 1243 & +36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)& 1244 & *d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)+gm(2,2)*(-6*dgm01(1,3)*dgm10(1,1)& 1245 & -6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)*d2gm(1,1)-9*gm(1,1)*d2gm(1,3))& 1246 & -6*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)& 1247 & *dgm10(1,1)-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)& 1248 & *dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)& 1249 & *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)& 1250 & *dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)& 1251 & +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))& 1252 & +gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1253 & *dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)& 1254 & *d2gm(2,3))) 1255 cm(10,4)=-3*gm(1,1)*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 1256 & *dgm10(3,3))+gm(1,3)*(gm(2,3)*(9*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)& 1257 & *dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 1258 & +dgm01(1,3)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1259 & *dgm10(3,3)))+gm(3,3)**2*(-6*dgm01(1,2)*dgm10(1,1)-6*dgm01(1,1)& 1260 & *dgm10(1,2)-3*(gm(1,2)*d2gm(1,1)+gm(1,1)*d2gm(1,2)))+gm(1,3)& 1261 & **2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)& 1262 & *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+15*gm(2,3)*d2gm(1,3))+5*gm(1,3)& 1263 & **3*d2gm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm01(3,3)*dgm10(1,1)-6*gm(1,1)& 1264 & *dgm01(3,3)*dgm10(1,2)-12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-6*gm(1,1)& 1265 & *dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)*dgm10(2,3)-6*gm(1,2)& 1266 & *dgm01(1,1)*dgm10(3,3)-6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)& 1267 & **2*d2gm(1,2)+gm(2,3)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)& 1268 & +9*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(6*dgm01(2,3)& 1269 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)& 1270 & +6*dgm01(1,1)*dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))) 1271 cm(1,5)=gm(1,1)*(gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)& 1272 & *d2gm(1,1))+gm(1,1)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)& 1273 & +2*gm(1,1)*d2gm(1,3))) 1274 cm(2,5)=gm(1,3)*(3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1275 & *dgm10(1,2))-4.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1276 & *dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-9*dgm01(1,1)& 1277 & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)& 1278 & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)& 1279 & +12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)& 1280 & +12*gm(1,1)*d2gm(1,1)))+gm(1,2)**2*(10.5d0*dgm01(1,3)*dgm10(1,1)& 1281 & +10.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))+gm(1,1)*(12*gm(2,3)& 1282 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-3*gm(1,1)*(dgm01(2,2)& 1283 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+gm(2,2)*(-10.5d0*dgm01(1,3)& 1284 & *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3))) 1285 cm(3,5)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(gm(1,1)*(7.5d0*dgm01(3,3)& 1286 & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3))& 1287 & +gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))& 1288 & +gm(1,3)**2*(13.5d0*dgm01(1,3)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,3)& 1289 & +9*gm(1,1)*d2gm(1,3))+gm(1,1)*(-3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 1290 & +dgm01(1,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(1,3)*dgm10(1,1)& 1291 & +1.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3))) 1292 cm(4,5)=3*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 1293 & +gm(1,2)*d2gm(1,1))+gm(1,2)*(gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)& 1294 & +36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)& 1295 & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(3,3)*(dgm01(1,2)& 1296 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)& 1297 & +dgm01(1,3)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)& 1298 & *dgm10(1,3)-6*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(1,1)*(3*dgm01(2,3)& 1299 & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)& 1300 & +3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)& 1301 & *d2gm(1,1))+gm(1,2)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)& 1302 & +18*gm(1,1)*d2gm(1,3))) 1303 cm(5,5)=gm(1,3)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))& 1304 & +gm(1,1)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 1305 & +6*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1306 & *d2gm(1,1)))+gm(1,1)*gm(1,3)*(18*dgm01(1,3)*dgm10(1,1)+18*dgm01(1,1)& 1307 & *dgm10(1,3)+6*gm(1,1)*d2gm(1,3)) 1308 cm(6,5)=gm(1,1)*(3*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1309 & *dgm10(1,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)& 1310 & +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)& 1311 & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,3)*(6*dgm01(1,1)& 1312 & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(1,3)*dgm10(1,1)& 1313 & +15*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))) 1314 cm(7,5)=(3*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)& 1315 & *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)& 1316 & *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)& 1317 & -18*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+2*(270*gm(1,2)**2*dgm01(1,2)& 1318 & -54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)*(gm(2,2)*dgm01(1,1)& 1319 & +gm(1,1)*dgm01(2,2)))*dgm10(1,3)+2*dgm01(1,3)*(270*gm(1,2)**2*dgm10(1,2)& 1320 & -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)& 1321 & +gm(1,1)*dgm10(2,2)))+3*dgm01(1,1)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)& 1322 & +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)& 1323 & **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)& 1324 & -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)& 1325 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(1,1)& 1326 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*d2gm(1,3))/36.d0 1327 cm(8,5)=9*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-4.5d0*gm(1,1)& 1328 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)& 1329 & +9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(1,2)& 1330 & *dgm10(1,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)& 1331 & *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 1332 & +gm(1,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1333 & +gm(1,2)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 1334 & *dgm10(3,3))+12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 1335 & +gm(1,2)*d2gm(1,1)))-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(1,3)& 1336 & **2*(1.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)& 1337 & *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3))& 1338 & +gm(2,3)*(gm(1,1)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-12*dgm01(1,3)& 1339 & *dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(1,1)& 1340 & +gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)& 1341 & *(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)-6*gm(1,1)& 1342 & *d2gm(1,3))) 1343 cm(9,5)=15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)& 1344 & *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)& 1345 & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)& 1346 & +15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,2)*gm(1,3)& 1347 & *dgm01(1,3)*dgm10(1,2)+30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)& 1348 & +30*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)*gm(1,3)*dgm01(2,2)& 1349 & *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(1,3)-3*gm(1,3)& 1350 & **2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)& 1351 & -3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)& 1352 & *dgm10(2,3)-6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)& 1353 & **2*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)*d2gm(1,1)& 1354 & +gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+15*gm(1,2)& 1355 & **2*gm(1,3)*d2gm(1,3)+gm(2,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)& 1356 & +dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))& 1357 & +9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)& 1358 & *d2gm(1,1))+gm(1,2)*(3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)& 1359 & -6*gm(1,1)*d2gm(1,3)))+gm(2,2)*(gm(1,1)*(-1.5d0*dgm01(3,3)*dgm10(1,1)& 1360 & -6*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,3)& 1361 & **2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)& 1362 & *d2gm(1,1))+gm(1,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)*dgm10(1,3)& 1363 & -3*gm(1,1)*d2gm(1,3))) 1364 cm(10,5)=gm(3,3)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)& 1365 & *d2gm(1,1))+gm(1,3)*(gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)& 1366 & *dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)& 1367 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+5*gm(1,3)**2*d2gm(1,3))+gm(3,3)& 1368 & *(gm(1,1)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)& 1369 & *dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(1,1)+gm(1,3)*(6*dgm01(1,3)& 1370 & *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3))) 1371 cm(1,6)=gm(1,1)*(gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)& 1372 & *d2gm(1,1))+gm(1,1)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)& 1373 & +2*gm(1,1)*d2gm(1,2))) 1374 cm(2,6)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(gm(1,1)*(7.5d0*dgm01(2,2)& 1375 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2))& 1376 & +gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))& 1377 & +gm(1,2)**2*(13.5d0*dgm01(1,2)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,2)& 1378 & +9*gm(1,1)*d2gm(1,2))+gm(1,1)*(-3*gm(1,1)*(dgm01(2,2)*dgm10(1,2)& 1379 & +dgm01(1,2)*dgm10(2,2))+gm(2,2)*(1.5d0*dgm01(1,2)*dgm10(1,1)& 1380 & +1.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2))) 1381 cm(3,6)=gm(1,2)*(-4.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1382 & *dgm10(3,3))+gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)& 1383 & *d2gm(1,1)))+gm(1,3)*(3*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1384 & *dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)& 1385 & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))& 1386 & +gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,3)& 1387 & **2*(10.5d0*dgm01(1,2)*dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)& 1388 & +1.5d0*gm(1,2)*d2gm(1,1)+9*gm(1,1)*d2gm(1,2))+gm(1,1)*(12*gm(2,3)& 1389 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-3*gm(1,1)*(dgm01(3,3)& 1390 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(1,2)& 1391 & *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2))) 1392 cm(4,6)=3*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1393 & +gm(1,2)*(gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)& 1394 & +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)& 1395 & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(2,2)*(dgm01(1,3)& 1396 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)& 1397 & +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,2)*dgm10(1,1)-9*dgm01(1,1)& 1398 & *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(1,3)*(gm(1,1)*(12*dgm01(2,2)& 1399 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))& 1400 & +3*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)& 1401 & *d2gm(1,1))+gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)& 1402 & +18*gm(1,1)*d2gm(1,2))) 1403 cm(5,6)=gm(1,2)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1404 & *dgm10(1,3))+gm(1,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))& 1405 & +gm(1,1)*(6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)& 1406 & +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)& 1407 & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)& 1408 & +15*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))) 1409 cm(6,6)=gm(1,2)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))& 1410 & +gm(1,1)*(gm(1,1)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1411 & +6*dgm01(1,1)*dgm10(2,2))+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1412 & *d2gm(1,1)))+gm(1,1)*gm(1,2)*(18*dgm01(1,2)*dgm10(1,1)+18*dgm01(1,1)& 1413 & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2)) 1414 cm(7,6)=gm(2,2)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))& 1415 & +gm(1,2)*(gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)& 1416 & *dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,2)& 1417 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+5*gm(1,2)**2*d2gm(1,2))+gm(2,2)& 1418 & *(gm(1,1)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)& 1419 & *dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(1,1)+gm(1,2)*(6*dgm01(1,2)& 1420 & *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2))) 1421 cm(8,6)=-9*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)& 1422 & **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)& 1423 & +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)& 1424 & *dgm10(1,1)-9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,3)& 1425 & **2*dgm01(1,2)*dgm10(1,2)-6*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)& 1426 & +30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)& 1427 & *dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)& 1428 & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)& 1429 & -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+9*gm(1,2)*gm(1,3)& 1430 & *dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 1431 & -3*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(1,2)& 1432 & *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)& 1433 & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(2,2)*(15*gm(1,3)*(dgm01(1,3)& 1434 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)& 1435 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+7.5d0*gm(1,3)**2*d2gm(1,1)& 1436 & +gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1)))& 1437 & +15*gm(1,2)*gm(1,3)**2*d2gm(1,2)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)& 1438 & +gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1439 & -6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 1440 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(1,3)*(3*dgm01(1,2)*dgm10(1,1)& 1441 & +3*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2))) 1442 cm(9,6)=gm(1,1)*(gm(2,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)& 1443 & *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,3)*(dgm01(2,2)& 1444 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(1.5d0*dgm01(2,3)& 1445 & *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)& 1446 & +1.5d0*dgm01(1,1)*dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+15*gm(1,3)& 1447 & *d2gm(1,2))+gm(1,2)*(gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)& 1448 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)& 1449 & +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)& 1450 & *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(2,2)*(12*gm(1,2)*dgm01(1,3)& 1451 & *dgm10(1,1)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*dgm01(1,3)& 1452 & *dgm10(1,2)+12*gm(1,2)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*dgm01(1,2)& 1453 & *dgm10(1,3)-4.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)& 1454 & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,2)*dgm10(1,1)& 1455 & +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))) 1456 cm(10,6)=(gm(1,3)**2*(270*dgm01(2,3)*dgm10(1,1)+540*dgm01(1,3)& 1457 & *dgm10(1,2)+540*dgm01(1,2)*dgm10(1,3)+270*dgm01(1,1)*dgm10(2,3))& 1458 & +gm(3,3)*(-108*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1459 & +gm(1,1)*(-54*dgm01(2,3)*dgm10(1,1)-108*dgm01(1,3)*dgm10(1,2)& 1460 & -108*dgm01(1,2)*dgm10(1,3)-54*dgm01(1,1)*dgm10(2,3)))+gm(2,3)& 1461 & *(540*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-54*gm(1,1)& 1462 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+270*gm(1,3)**2*d2gm(1,1)& 1463 & +gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)*d2gm(1,1)))+180*gm(1,3)& 1464 & **3*d2gm(1,2)+gm(1,3)*(-108*(gm(1,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1465 & *dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))& 1466 & +gm(3,3)*(-216*dgm01(1,2)*dgm10(1,1)-216*dgm01(1,1)*dgm10(1,2)& 1467 & -108*gm(1,2)*d2gm(1,1)-108*gm(1,1)*d2gm(1,2))))/36.d0 1468 cm(1,7)=-7.5d0*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1469 & *dgm10(1,2))+2.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(16.5d0*dgm01(1,2)& 1470 & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+9*gm(1,1)*d2gm(1,2))& 1471 & +gm(1,1)**2*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)& 1472 & -3*gm(2,2)*d2gm(1,2))+gm(1,2)*(gm(2,2)*(-3*dgm01(1,1)*dgm10(1,1)& 1473 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(2,2)*dgm10(1,1)& 1474 & +36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)& 1475 & *d2gm(2,2))) 1476 cm(2,7)=gm(2,2)**2*(15*dgm01(1,2)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,2)& 1477 & +3*gm(1,2)*d2gm(1,1)+12*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)& 1478 & *dgm01(2,2)*dgm10(2,2)+10.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)& 1479 & +dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(31.5d0*gm(1,1)& 1480 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,2)**2*d2gm(1,2)& 1481 & +gm(1,2)*(13.5d0*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)& 1482 & +13.5d0*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2))) 1483 cm(3,7)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)& 1484 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 1485 & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)& 1486 & *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+3*gm(1,2)& 1487 & *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)& 1488 & -4.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)& 1489 & *dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 1490 & +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,2)& 1491 & *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 1492 & +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)& 1493 & *dgm10(3,3)-4.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)& 1494 & **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(22.5d0*dgm01(1,2)*dgm10(1,1)& 1495 & +22.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)& 1496 & *d2gm(1,2))+gm(2,2)*(-1.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)& 1497 & *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)& 1498 & *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3))& 1499 & -1.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 1500 & -6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-4.5d0*dgm01(1,2)*dgm10(1,1)& 1501 & -4.5d0*dgm01(1,1)*dgm10(1,2)-1.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)& 1502 & *d2gm(1,2)))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)& 1503 & *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 1504 & +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*dgm01(2,3)*dgm10(1,2)& 1505 & +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)*dgm10(1,3)& 1506 & +12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+15*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 1507 & +30*gm(1,1)*dgm01(1,2)*dgm10(2,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)& 1508 & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)& 1509 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)& 1510 & +18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))) 1511 cm(4,7)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(2,3)& 1512 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)& 1513 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)& 1514 & **2*(6*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 1515 & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)+3*gm(1,3)& 1516 & *d2gm(2,2))+gm(1,2)*(12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1517 & *dgm10(2,2))+3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 1518 & +gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)& 1519 & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(9*gm(1,2)*dgm01(2,3)& 1520 & *dgm10(1,1)+6*gm(1,2)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*dgm01(2,3)& 1521 & *dgm10(1,2)+6*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)& 1522 & *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*dgm01(1,1)& 1523 & *dgm10(2,3)+24*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(33*dgm01(1,2)& 1524 & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)& 1525 & *d2gm(1,2))+gm(1,3)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1526 & +6*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))) 1527 cm(5,7)=gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)+3*dgm01(1,3)& 1528 & *dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)& 1529 & +7.5d0*gm(2,3)*d2gm(1,1)+3*gm(1,3)*d2gm(1,2))+gm(2,2)*(-3*gm(1,2)& 1530 & *dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)& 1531 & *dgm01(1,3)*dgm10(1,2)-3*gm(1,2)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)& 1532 & *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)& 1533 & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-12*dgm01(1,2)& 1534 & *dgm10(1,1)-12*dgm01(1,1)*dgm10(1,2)-3*gm(1,2)*d2gm(1,1)-9*gm(1,1)& 1535 & *d2gm(1,2)))+gm(1,2)*(gm(1,1)*(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)& 1536 & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))& 1537 & +gm(2,3)*(39*dgm01(1,2)*dgm10(1,1)+39*dgm01(1,1)*dgm10(1,2)+24*gm(1,1)& 1538 & *d2gm(1,2))+gm(1,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1539 & +0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)*(-6*gm(1,3)& 1540 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)& 1541 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(10.5d0*dgm01(2,2)& 1542 & *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)& 1543 & +6*gm(1,1)*d2gm(2,2))) 1544 cm(6,7)=12*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+21*gm(1,1)*gm(1,2)& 1545 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(-3*dgm01(1,1)& 1546 & *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)& 1547 & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)& 1548 & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2))+gm(2,2)*(4.5d0*gm(1,2)**2*d2gm(1,1)& 1549 & +gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)& 1550 & *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)& 1551 & +9*dgm01(1,1)*dgm10(2,2)+6*gm(1,1)*d2gm(2,2))) 1552 cm(7,7)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)**3*d2gm(1,1)& 1553 & +gm(2,2)**2*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1554 & +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)& 1555 & *d2gm(2,2))+gm(2,2)*(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)& 1556 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)& 1557 & **2*d2gm(2,2)) 1558 cm(8,7)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)& 1559 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 1560 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(2,3)& 1561 & *dgm10(2,2)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)& 1562 & *dgm01(2,2)*dgm10(2,3)-3*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)& 1563 & **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(3,3)*d2gm(1,1))& 1564 & -3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(1.5d0*dgm01(2,2)& 1565 & *dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)& 1566 & +4.5d0*gm(2,2)*d2gm(1,1)+3*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2))& 1567 & +gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,2)-1.5d0*gm(1,1)*dgm01(3,3)& 1568 & *dgm10(2,2)+gm(1,3)*(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)& 1569 & +15*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))-9*gm(1,2)& 1570 & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,3)& 1571 & **2*d2gm(2,2)+gm(3,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)& 1572 & *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)& 1573 & *d2gm(2,2)))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+9*gm(1,2)& 1574 & *dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)& 1575 & *dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-6*gm(1,1)& 1576 & *dgm01(2,2)*dgm10(2,3)+gm(2,2)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)& 1577 & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)& 1578 & +24*gm(1,3)*d2gm(1,2))+gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)& 1579 & *dgm10(2,2)+9*gm(1,2)*d2gm(2,2))) 1580 cm(9,7)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)& 1581 & *dgm01(2,2)*dgm10(2,2)+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1582 & *dgm10(2,2)))+gm(2,2)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)& 1583 & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)& 1584 & +3*gm(2,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,2))+1.5d0*gm(1,2)**2*(dgm01(2,3)& 1585 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)& 1586 & *(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)& 1587 & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)& 1588 & +6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)& 1589 & +gm(2,3)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1590 & +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)& 1591 & *d2gm(2,2))+gm(1,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)& 1592 & +12*gm(1,2)*d2gm(2,2))) 1593 cm(10,7)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)& 1594 & -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)& 1595 & +6*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)& 1596 & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)& 1597 & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)& 1598 & +gm(1,3)*dgm01(3,3)))*dgm10(1,2)+3*(90*gm(1,3)**2*dgm01(2,3)& 1599 & +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)& 1600 & *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))& 1601 & -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(2,2)& 1602 & +3*dgm01(2,2)*(90*gm(1,3)**2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)& 1603 & *dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)*(-18*gm(3,3)*dgm10(1,1)& 1604 & +180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))-36*gm(1,3)*(gm(3,3)& 1605 & *dgm10(1,2)+gm(1,2)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(2,3)**2*dgm10(1,3)& 1606 & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)& 1607 & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))& 1608 & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+dgm01(1,1)& 1609 & *(270*gm(2,3)**2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)& 1610 & *(gm(3,3)*dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)& 1611 & *gm(2,3)*gm(3,3))*d2gm(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 1612 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,2)+3*(90*gm(1,3)& 1613 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(2,2))& 1614 & /36.d0 1615 cm(1,8)=-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-15*gm(1,1)& 1616 & *gm(2,3)*dgm01(1,3)*dgm10(1,1)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)& 1617 & *dgm10(1,2)+0*gm(1,1)**2*dgm01(3,3)*dgm10(1,2)-15*gm(1,1)*gm(2,3)& 1618 & *dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,3)+0*gm(1,1)& 1619 & **2*dgm01(1,3)*dgm10(2,3)+0*gm(1,1)**2*dgm01(1,2)*dgm10(3,3)& 1620 & -3*gm(1,1)**2*gm(3,3)*d2gm(1,2)+gm(1,3)**2*(16.5d0*dgm01(1,2)& 1621 & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)& 1622 & +9*gm(1,1)*d2gm(1,2))-6*gm(1,1)**2*gm(2,3)*d2gm(1,3)+gm(1,3)& 1623 & *(gm(2,3)*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,2)& 1624 & *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+18*gm(1,1)& 1625 & *d2gm(1,3))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,2)& 1626 & +36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*d2gm(2,3)))& 1627 & +gm(1,2)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))& 1628 & +gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)& 1629 & +4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3))) 1630 cm(2,8)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)& 1631 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 1632 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)& 1633 & *dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)& 1634 & *gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)& 1635 & -4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)& 1636 & *dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+6*gm(1,2)& 1637 & *gm(1,3)*dgm01(1,3)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 1638 & +7.5d0*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)& 1639 & *dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-9*gm(1,1)& 1640 & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)& 1641 & *dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+7.5d0*gm(1,1)& 1642 & *gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(1,2)& 1643 & +gm(2,3)**2*(16.5d0*dgm01(1,2)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)& 1644 & +1.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*gm(1,3)& 1645 & *d2gm(2,3)+gm(2,3)*(27*gm(1,2)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)& 1646 & *dgm01(1,3)*dgm10(1,2)+54*gm(1,1)*dgm01(2,3)*dgm10(1,2)+30*gm(1,2)& 1647 & *dgm01(1,2)*dgm10(1,3)+24*gm(1,1)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)& 1648 & *dgm01(1,3)*dgm10(2,2)+27*gm(1,2)*dgm01(1,1)*dgm10(2,3)+54*gm(1,1)& 1649 & *dgm01(1,2)*dgm10(2,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)& 1650 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)*d2gm(1,2))+6*gm(1,2)& 1651 & **2*d2gm(1,3)+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)& 1652 & *dgm10(1,3)+12*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+24*gm(1,1)& 1653 & *gm(1,2)*d2gm(2,3))+1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(3*gm(1,2)& 1654 & *dgm01(3,3)*dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)& 1655 & *dgm01(1,3)*dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)& 1656 & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)& 1657 & *dgm01(1,2)*dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)& 1658 & *dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)& 1659 & -3*gm(1,1)*d2gm(1,2))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)& 1660 & *dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)& 1661 & *d2gm(1,3)-9*gm(1,1)*d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3)) 1662 cm(3,8)=gm(1,1)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(2,3)& 1663 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(3,3)**2*(18*dgm01(1,2)& 1664 & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*d2gm(1,1)+12*gm(1,1)& 1665 & *d2gm(1,2))+3*gm(1,3)**3*d2gm(2,3)+gm(1,3)**2*(7.5d0*dgm01(3,3)& 1666 & *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)& 1667 & +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+1.5d0*gm(1,2)& 1668 & *d2gm(3,3))+gm(3,3)*(7.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)+19.5d0*gm(1,1)& 1669 & *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+39*gm(1,1)& 1670 & *dgm01(2,3)*dgm10(1,3)+39*gm(1,1)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)& 1671 & *dgm01(1,1)*dgm10(3,3)+19.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)& 1672 & **2*d2gm(1,2)+gm(2,3)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)& 1673 & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)& 1674 & *(18*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)& 1675 & *dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+15*gm(1,1)& 1676 & *d2gm(2,3))-4.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(9*gm(1,2)& 1677 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+27*gm(1,1)*(dgm01(3,3)& 1678 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,1)& 1679 & +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)& 1680 & *d2gm(3,3))) 1681 cm(4,8)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+27*gm(1,2)& 1682 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)& 1683 & *dgm10(1,2)+42*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,3)& 1684 & **2*dgm01(2,3)*dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)& 1685 & +12*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+42*gm(1,2)*gm(3,3)& 1686 & *dgm01(1,2)*dgm10(1,3)+18*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)& 1687 & *gm(3,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)& 1688 & +21*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)& 1689 & *dgm10(2,2)+18*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+30*gm(1,1)*gm(3,3)& 1690 & *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 1691 & +27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+12*gm(1,3)**2*dgm01(1,2)& 1692 & *dgm10(2,3)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)& 1693 & *gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(2,3)& 1694 & *dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+12*gm(1,2)& 1695 & *gm(1,3)*dgm01(1,2)*dgm10(3,3)+21*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)& 1696 & +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,1)*gm(1,2)& 1697 & *dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)+18*gm(1,2)& 1698 & **2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)& 1699 & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+18*gm(1,1)*d2gm(1,3))+6*gm(1,2)& 1700 & *gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+3*gm(1,2)& 1701 & **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)& 1702 & +27*gm(1,1)*dgm01(3,3)*dgm10(1,2)-24*gm(1,2)*dgm01(1,3)*dgm10(1,3)& 1703 & +42*gm(1,1)*dgm01(2,3)*dgm10(1,3)+42*gm(1,1)*dgm01(1,3)*dgm10(2,3)& 1704 & +6*gm(1,2)*dgm01(1,1)*dgm10(3,3)+27*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 1705 & +6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)& 1706 & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)& 1707 & *(12*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)& 1708 & *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)-12*gm(1,2)*d2gm(1,3)+6*gm(1,1)& 1709 & *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(42*gm(1,1)& 1710 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,3)**2*d2gm(1,3)& 1711 & +gm(3,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)*dgm10(1,3)+12*gm(1,3)& 1712 & *d2gm(1,1)+30*gm(1,1)*d2gm(1,3))+gm(1,3)*(24*dgm01(3,3)*dgm10(1,1)& 1713 & +72*dgm01(1,3)*dgm10(1,3)+24*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)& 1714 & *d2gm(3,3))) 1715 cm(5,8)=36*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)& 1716 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*gm(3,3)*dgm01(1,3)& 1717 & *dgm10(1,2)+36*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+39*gm(1,1)& 1718 & *gm(3,3)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)& 1719 & *dgm10(1,3)+19.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,1)& 1720 & **2*dgm01(3,3)*dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 1721 & +18*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+24*gm(1,1)& 1722 & *gm(1,2)*gm(3,3)*d2gm(1,3)+12*gm(1,1)**2*gm(3,3)*d2gm(2,3)+gm(1,3)& 1723 & **2*(7.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)& 1724 & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)& 1725 & *d2gm(2,3))+gm(1,3)*(18*gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(2,3)& 1726 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(3,3)& 1727 & *(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)& 1728 & *d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*dgm01(3,3)*dgm10(1,1)& 1729 & +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)& 1730 & *d2gm(3,3)))+gm(2,3)*(1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-9*dgm01(1,1)& 1731 & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,3)*dgm10(1,1)& 1732 & +9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(7.5d0*dgm01(3,3)& 1733 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)& 1734 & +6*gm(1,1)*d2gm(3,3))) 1735 cm(6,8)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)& 1736 & **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)& 1737 & +15*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)+0*gm(1,2)**2*dgm01(3,3)& 1738 & *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)& 1739 & **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)& 1740 & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*gm(1,3)& 1741 & *dgm01(2,3)*dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)& 1742 & +18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)& 1743 & *dgm10(1,3)+24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,1)& 1744 & *gm(1,2)*dgm01(2,3)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)& 1745 & -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)& 1746 & *dgm01(1,3)*dgm10(2,2)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)& 1747 & *gm(1,3)*dgm01(1,1)*dgm10(2,3)+30*gm(1,1)*gm(1,3)*dgm01(1,2)& 1748 & *dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)& 1749 & **2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)& 1750 & -3*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)& 1751 & *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)& 1752 & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)& 1753 & -9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)& 1754 & +6*gm(1,1)*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(33*dgm01(1,2)& 1755 & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)& 1756 & *d2gm(1,2))+gm(1,2)*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,3)& 1757 & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)& 1758 & *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)& 1759 & +12*gm(1,1)*d2gm(2,3)))+3*gm(1,1)*gm(1,2)**2*d2gm(3,3)+gm(2,2)& 1760 & *(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)& 1761 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)& 1762 & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)& 1763 & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)& 1764 & +6*gm(1,1)*d2gm(3,3))) 1765 cm(7,8)=gm(1,2)*(-3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1766 & *dgm10(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 1767 & +gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)& 1768 & +4.5d0*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)& 1769 & +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+4.5d0*gm(2,2)& 1770 & *d2gm(1,1)+15*gm(1,2)*d2gm(1,2))+gm(2,3)*(60*gm(1,2)*dgm01(2,3)& 1771 & *dgm10(1,2)+18*gm(1,2)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(1,3)& 1772 & *dgm10(2,2)-3*gm(1,1)*dgm01(2,3)*dgm10(2,2)-6*gm(1,3)*(dgm01(2,2)& 1773 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+60*gm(1,2)*dgm01(1,2)*dgm10(2,3)& 1774 & -3*gm(1,1)*dgm01(2,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(2,3)+gm(2,2)& 1775 & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1776 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,3)*d2gm(1,2)+18*gm(1,2)& 1777 & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,2)**2*(-3*dgm01(3,3)*dgm10(1,1)& 1778 & -12*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(3,3)& 1779 & *d2gm(1,1)-6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3))+gm(2,2)& 1780 & *(6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)*dgm10(1,3)& 1781 & -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*dgm01(1,3)*dgm10(2,3)& 1782 & -6*gm(1,1)*dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)& 1783 & -3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)*(-3*dgm01(2,2)*dgm10(1,1)& 1784 & -6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-3*gm(1,2)*d2gm(1,2))& 1785 & +gm(1,3)*(-12*dgm01(2,3)*dgm10(1,2)-12*dgm01(2,2)*dgm10(1,3)& 1786 & -12*dgm01(1,3)*dgm10(2,2)-12*dgm01(1,2)*dgm10(2,3)-6*gm(1,2)& 1787 & *d2gm(2,3))+4.5d0*gm(1,2)**2*d2gm(3,3)) 1788 cm(8,8)=39*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+7.5d0*gm(1,3)& 1789 & **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)& 1790 & +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+39*gm(1,3)*gm(2,2)& 1791 & *dgm01(1,3)*dgm10(3,3)+7.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)& 1792 & +33*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)& 1793 & *dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)& 1794 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)& 1795 & +6*gm(2,2)*d2gm(1,1)+12*gm(1,2)*d2gm(1,2))+7.5d0*gm(1,3)**2*gm(2,2)& 1796 & *d2gm(3,3)+gm(2,3)**2*(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)& 1797 & *dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-3*gm(1,1)& 1798 & *d2gm(3,3))+gm(3,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)& 1799 & *dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)& 1800 & *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)& 1801 & *dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)& 1802 & *dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)& 1803 & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)& 1804 & **2*d2gm(1,1)+24*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(-3*dgm01(2,3)& 1805 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)& 1806 & -3*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)& 1807 & -9*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(10.5d0*dgm01(3,3)& 1808 & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)& 1809 & +24*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(15*gm(1,2)& 1810 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)*(dgm01(3,3)& 1811 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)+gm(1,3)& 1812 & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)& 1813 & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3))) 1814 cm(9,8)=-9*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+54*gm(1,2)& 1815 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*gm(3,3)*dgm01(2,2)& 1816 & *dgm10(1,3)-9*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)& 1817 & *gm(3,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)& 1818 & -3*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)& 1819 & *dgm10(2,2)+54*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)& 1820 & **2*dgm01(2,2)*dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)& 1821 & +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+16.5d0*gm(1,2)**2*dgm01(3,3)& 1822 & *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+16.5d0*gm(1,2)& 1823 & **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+15*gm(1,2)& 1824 & **2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(-1.5d0*dgm01(2,3)*dgm10(1,1)& 1825 & +9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)*dgm10(1,3)-1.5d0*dgm01(1,1)& 1826 & *dgm10(2,3)+3*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-6*gm(1,1)& 1827 & *d2gm(2,3))+gm(2,3)*(24*gm(1,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)& 1828 & *dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)& 1829 & *dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)& 1830 & *dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)& 1831 & *dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)& 1832 & *dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)& 1833 & *(7.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)& 1834 & *dgm10(2,2)+7.5d0*gm(2,2)*d2gm(1,1)+24*gm(1,2)*d2gm(1,2))+18*gm(1,2)& 1835 & *gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(3*dgm01(3,3)& 1836 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)& 1837 & +6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)*d2gm(3,3)))+gm(2,2)*(36*gm(1,2)& 1838 & *dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)+36*gm(1,2)& 1839 & *dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)& 1840 & **2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)& 1841 & *dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(2,3)& 1842 & -9*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))& 1843 & +gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)& 1844 & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3))) 1845 cm(10,8)=-3*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(-6*gm(1,2)& 1846 & *dgm01(3,3)*dgm10(3,3)+33*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 1847 & *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)& 1848 & *dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)& 1849 & *d2gm(1,1)+6*gm(1,3)*d2gm(1,2)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)& 1850 & *d2gm(2,3))+gm(1,3)**2*(16.5d0*dgm01(3,3)*dgm10(2,3)+16.5d0*dgm01(2,3)& 1851 & *dgm10(3,3)+7.5d0*gm(2,3)*d2gm(3,3))+gm(3,3)*(-15*gm(1,2)*dgm01(3,3)& 1852 & *dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)-15*gm(1,2)*dgm01(1,3)& 1853 & *dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)& 1854 & +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)& 1855 & +4.5d0*dgm01(1,1)*dgm10(3,3)+18*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)& 1856 & *d2gm(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+36*dgm01(2,3)*dgm10(1,3)& 1857 & +36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3))) 1858 cm(1,9)=-15*gm(1,1)*gm(2,3)*dgm01(1,2)*dgm10(1,1)-7.5d0*gm(1,1)& 1859 & *gm(2,2)*dgm01(1,3)*dgm10(1,1)-15*gm(1,1)*gm(2,3)*dgm01(1,1)& 1860 & *dgm10(1,2)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,2)-7.5d0*gm(1,1)& 1861 & *gm(2,2)*dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,2)*dgm10(1,3)& 1862 & +0*gm(1,1)**2*dgm01(1,3)*dgm10(2,2)+0*gm(1,1)**2*dgm01(1,2)*dgm10(2,3)& 1863 & -6*gm(1,1)**2*gm(2,3)*d2gm(1,2)-3*gm(1,1)**2*gm(2,2)*d2gm(1,3)& 1864 & +gm(1,2)**2*(16.5d0*dgm01(1,3)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)& 1865 & +9*gm(1,1)*d2gm(1,3))+gm(1,3)*(7.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)& 1866 & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,2)& 1867 & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+18*gm(1,1)*d2gm(1,2))+gm(1,1)& 1868 & *(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)& 1869 & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(2,3)*(-6*dgm01(1,1)& 1870 & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)& 1871 & +36*dgm01(1,3)*dgm10(1,2)+36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)& 1872 & *dgm10(2,3)+6*gm(1,1)*d2gm(2,3))) 1873 cm(2,9)=gm(1,1)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(2,3)& 1874 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)**2*(18*dgm01(1,3)& 1875 & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,3)+6*gm(1,3)*d2gm(1,1)+12*gm(1,1)& 1876 & *d2gm(1,3))+gm(1,2)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)& 1877 & *dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)& 1878 & +6*gm(2,3)*d2gm(1,2)+1.5d0*gm(1,3)*d2gm(2,2))+gm(1,2)*(9*gm(1,3)& 1879 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+27*gm(1,1)*(dgm01(2,3)& 1880 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,1)& 1881 & +24*dgm01(1,2)*dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+12*gm(1,1)& 1882 & *d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)*(18*gm(1,2)*dgm01(2,3)& 1883 & *dgm10(1,1)+18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+39*gm(1,1)*dgm01(2,3)& 1884 & *dgm10(1,2)+18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)*dgm01(2,2)& 1885 & *dgm10(1,3)+19.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)& 1886 & *dgm10(2,3)+39*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(27*dgm01(1,2)& 1887 & *dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)& 1888 & *d2gm(1,2))+6*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(7.5d0*dgm01(2,2)& 1889 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)& 1890 & +6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)& 1891 & *d2gm(2,3)) 1892 cm(3,9)=3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*gm(3,3)& 1893 & *dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)& 1894 & -6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)**2*dgm01(2,3)& 1895 & *dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)& 1896 & *gm(1,3)*dgm01(3,3)*dgm10(1,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)& 1897 & -1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+4.5d0*gm(1,1)*gm(3,3)& 1898 & *dgm01(2,2)*dgm10(1,3)+24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)& 1899 & -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*gm(3,3)*dgm01(1,1)& 1900 & *dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+4.5d0*gm(1,1)& 1901 & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+7.5d0*gm(1,1)*gm(1,3)*dgm01(3,3)& 1902 & *dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+9*gm(1,3)& 1903 & **2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)& 1904 & +24*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)& 1905 & *dgm01(2,3)*dgm10(2,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)& 1906 & +6*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)& 1907 & *dgm10(3,3)+7.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,1)& 1908 & *gm(1,2)*dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)& 1909 & -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(16.5d0*dgm01(1,3)& 1910 & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)& 1911 & +15*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)& 1912 & -24*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)& 1913 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)& 1914 & +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)& 1915 & -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+1.5d0*gm(1,3)& 1916 & **3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)+3*gm(1,2)& 1917 & *gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)& 1918 & *(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)+24*gm(1,1)*dgm01(3,3)*dgm10(1,2)& 1919 & +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+54*gm(1,1)*dgm01(2,3)*dgm10(1,3)& 1920 & +54*gm(1,1)*dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)& 1921 & +24*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)**2*d2gm(1,2)+gm(3,3)& 1922 & *(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)& 1923 & *d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)*(27*dgm01(2,3)*dgm10(1,1)& 1924 & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+27*dgm01(1,1)& 1925 & *dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)*d2gm(2,3))) 1926 cm(4,9)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+72*gm(1,2)& 1927 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+21*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 1928 & +42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)& 1929 & *dgm10(1,2)+18*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(1,3)& 1930 & *dgm01(2,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+24*gm(1,2)& 1931 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)+21*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)& 1932 & +42*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)*gm(1,3)& 1933 & *dgm01(1,3)*dgm10(2,2)+27*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 1934 & +12*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,2)& 1935 & *dgm10(2,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)+27*gm(1,1)*gm(1,3)& 1936 & *dgm01(2,2)*dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)& 1937 & +18*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)& 1938 & *dgm10(3,3)+18*gm(1,2)**2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(21*dgm01(1,2)& 1939 & *dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+18*gm(1,1)& 1940 & *d2gm(1,2))+3*gm(1,2)*gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)& 1941 & *gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)*(12*gm(1,2)& 1942 & *dgm01(2,3)*dgm10(1,1)+0*gm(1,2)*dgm01(1,3)*dgm10(1,2)+42*gm(1,1)& 1943 & *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)& 1944 & *dgm01(2,2)*dgm10(1,3)+27*gm(1,1)*dgm01(1,3)*dgm10(2,2)+12*gm(1,2)& 1945 & *dgm01(1,1)*dgm10(2,3)+42*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)& 1946 & **2*d2gm(1,3)+gm(2,2)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)& 1947 & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)& 1948 & *(6*dgm01(2,2)*dgm10(1,1)-24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)& 1949 & *dgm10(2,2)-12*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+6*gm(1,1)& 1950 & *gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)& 1951 & +30*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)& 1952 & +48*gm(1,1)*dgm01(2,3)*dgm10(1,3)+48*gm(1,1)*dgm01(1,3)*dgm10(2,3)& 1953 & +12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+30*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 1954 & +18*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(42*dgm01(1,2)*dgm10(1,1)+42*dgm01(1,1)& 1955 & *dgm10(1,2)+12*gm(1,2)*d2gm(1,1)+30*gm(1,1)*d2gm(1,2))+gm(1,3)& 1956 & *(27*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)& 1957 & *dgm10(1,3)+27*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)& 1958 & *d2gm(2,3))) 1959 cm(5,9)=39*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+0*gm(1,3)**2*dgm01(2,2)& 1960 & *dgm10(1,1)+10.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+15*gm(1,2)& 1961 & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)& 1962 & +39*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)& 1963 & *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+18*gm(1,2)& 1964 & *gm(1,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*gm(1,3)*dgm01(2,3)& 1965 & *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+18*gm(1,2)& 1966 & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)& 1967 & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)*gm(1,2)*dgm01(2,3)& 1968 & *dgm10(1,3)+0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+10.5d0*gm(1,1)& 1969 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 1970 & +6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,1)& 1971 & *dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,1)& 1972 & *gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)& 1973 & +7.5d0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)& 1974 & *dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)& 1975 & **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)& 1976 & *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)& 1977 & *gm(3,3)*d2gm(1,2)+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)& 1978 & *(-1.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)& 1979 & *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)& 1980 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)*dgm10(1,1)& 1981 & -15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3)))+3*gm(1,1)*gm(1,3)& 1982 & **2*d2gm(2,2)+6*gm(1,1)**2*gm(3,3)*d2gm(2,2)+6*gm(1,1)*gm(1,2)& 1983 & *gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)& 1984 & +15*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))& 1985 & +gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)& 1986 & *d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)& 1987 & +30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+12*gm(1,1)& 1988 & *d2gm(2,3))) 1989 cm(6,9)=3*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(18*gm(1,1)*(dgm01(2,3)& 1990 & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)& 1991 & *dgm10(2,3))+gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)& 1992 & +6*gm(1,1)*d2gm(1,2))+gm(1,3)*(15*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)& 1993 & *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)& 1994 & *(27*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*gm(1,1)& 1995 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(7.5d0*dgm01(2,2)& 1996 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)& 1997 & +6*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)& 1998 & +15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)& 1999 & *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+6*gm(1,3)*d2gm(1,2)+6*gm(1,1)& 2000 & *d2gm(2,3))+gm(2,2)*(27*gm(1,2)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)& 2001 & *dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*dgm01(1,3)*dgm10(1,2)+27*gm(1,2)& 2002 & *dgm01(1,1)*dgm10(1,3)+39*gm(1,1)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)& 2003 & *dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)& 2004 & *d2gm(1,1))+gm(1,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)& 2005 & +12*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+15*gm(1,1)*gm(1,2)& 2006 & *d2gm(1,3)+12*gm(1,1)**2*d2gm(2,3)) 2007 cm(7,9)=-3*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(-6*gm(1,3)& 2008 & *dgm01(2,2)*dgm10(2,2)+33*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2009 & *dgm10(2,2)))+gm(1,2)**2*(16.5d0*dgm01(2,3)*dgm10(2,2)+16.5d0*dgm01(2,2)& 2010 & *dgm10(2,3)+7.5d0*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(0*dgm01(2,3)& 2011 & *dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)& 2012 & *dgm10(2,3)+3*gm(2,3)*d2gm(1,1)-6*gm(1,3)*d2gm(1,2)+6*gm(1,2)& 2013 & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3))+gm(2,2)*(36*gm(1,2)*dgm01(2,3)& 2014 & *dgm10(1,2)+9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)& 2015 & *dgm10(2,2)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)+36*gm(1,2)*dgm01(1,2)& 2016 & *dgm10(2,3)-7.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(4.5d0*dgm01(2,2)& 2017 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)& 2018 & +18*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(-15*dgm01(2,2)& 2019 & *dgm10(1,2)-15*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*d2gm(2,2))+9*gm(1,2)& 2020 & **2*d2gm(2,3)) 2021 cm(8,9)=36*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)*gm(3,3)& 2022 & *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)& 2023 & +36*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,3)& 2024 & *dgm10(2,2)+16.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-7.5d0*gm(1,1)& 2025 & *gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)& 2026 & *dgm10(2,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+16.5d0*gm(1,3)& 2027 & **2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)& 2028 & +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)& 2029 & *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)& 2030 & **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+12*gm(1,2)& 2031 & *gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)& 2032 & **2*(-1.5d0*dgm01(2,3)*dgm10(1,1)+9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)& 2033 & *dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+3*gm(1,2)& 2034 & *d2gm(1,3)-6*gm(1,1)*d2gm(2,3))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)& 2035 & *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+27*gm(1,3)*dgm01(2,2)& 2036 & *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+27*gm(1,3)*dgm01(1,3)& 2037 & *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)& 2038 & *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)& 2039 & *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)& 2040 & *dgm10(3,3)+gm(2,2)*(7.5d0*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)& 2041 & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)*d2gm(1,3))& 2042 & +1.5d0*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)& 2043 & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(2,2)& 2044 & *d2gm(1,1)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+18*gm(1,2)& 2045 & *gm(1,3)*d2gm(2,3))+gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,3)& 2046 & -3*gm(1,1)*dgm01(3,3)*dgm10(2,3)-9*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 2047 & -3*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(24*dgm01(3,3)*dgm10(1,2)& 2048 & +54*dgm01(2,3)*dgm10(1,3)+54*dgm01(1,3)*dgm10(2,3)+24*dgm01(1,2)& 2049 & *dgm10(3,3))+15*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)& 2050 & *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)& 2051 & +4.5d0*dgm01(1,1)*dgm10(2,3)+24*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)& 2052 & -3*gm(1,1)*d2gm(2,3))) 2053 cm(9,9)=39*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+39*gm(1,2)& 2054 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 2055 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)& 2056 & *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)& 2057 & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)& 2058 & +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(6*dgm01(3,3)& 2059 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)& 2060 & +6*gm(3,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,3))+7.5d0*gm(1,2)**2*gm(3,3)& 2061 & *d2gm(2,2)+gm(2,3)**2*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)& 2062 & *dgm10(1,2)+0*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)+6*gm(1,2)& 2063 & *d2gm(1,2)-3*gm(1,1)*d2gm(2,2))+gm(2,3)*(18*gm(1,2)*dgm01(2,3)& 2064 & *dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)& 2065 & *dgm10(2,2)-15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)& 2066 & *dgm10(2,3)-15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(1,3)*(15*dgm01(2,2)& 2067 & *dgm10(1,2)+15*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2))+3*gm(1,2)& 2068 & **2*d2gm(2,3)+gm(2,2)*(-3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)& 2069 & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)& 2070 & +6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3)))& 2071 & +gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)*dgm01(2,3)& 2072 & *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,3)& 2073 & *dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)& 2074 & *dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)**2*d2gm(2,2)& 2075 & +gm(3,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)& 2076 & +10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)& 2077 & *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)& 2078 & +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)& 2079 & *d2gm(2,3))) 2080 cm(10,9)=gm(1,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2081 & *dgm10(3,3))+gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)& 2082 & *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)& 2083 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)& 2084 & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)& 2085 & +15*gm(1,3)*d2gm(1,3))+gm(3,3)**2*(-3*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)& 2086 & *dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(2,2)*d2gm(1,1)-6*gm(1,2)& 2087 & *d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(gm(1,3)*(18*dgm01(3,3)& 2088 & *dgm10(1,2)+60*dgm01(2,3)*dgm10(1,3)+60*dgm01(1,3)*dgm10(2,3)& 2089 & +18*dgm01(1,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2090 & *dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 2091 & +15*gm(1,3)**2*d2gm(2,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)& 2092 & -12*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)& 2093 & -12*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 2094 & -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 2095 & -12*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 2096 & -12*gm(1,2)*dgm01(1,2)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)& 2097 & +4.5d0*gm(2,3)**2*d2gm(1,1)+gm(2,2)*(-3*dgm01(3,3)*dgm10(1,1)& 2098 & -6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-3*gm(1,3)*d2gm(1,3))& 2099 & +4.5d0*gm(1,3)**2*d2gm(2,2)-6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)& 2100 & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 2101 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)-6*gm(1,2)& 2102 & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3))) 2103 cm(1,10)=-7.5d0*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2104 & *dgm10(1,3))+2.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(16.5d0*dgm01(1,3)& 2105 & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))& 2106 & +gm(1,1)**2*(0*dgm01(3,3)*dgm10(1,3)+0*dgm01(1,3)*dgm10(3,3)& 2107 & -3*gm(3,3)*d2gm(1,3))+gm(1,3)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)& 2108 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)& 2109 & +36*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)& 2110 & *d2gm(3,3))) 2111 cm(2,10)=-1.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-3*gm(1,2)& 2112 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,2)*gm(3,3)*dgm01(1,3)& 2113 & *dgm10(1,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)-12*gm(1,2)& 2114 & *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)& 2115 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)& 2116 & *dgm10(1,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,3)& 2117 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)& 2118 & -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,3)& 2119 & *dgm01(3,3)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)& 2120 & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,2)& 2121 & *dgm01(3,3)*dgm10(2,3)+3*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)& 2122 & -4.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*gm(1,3)& 2123 & *dgm01(2,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)& 2124 & -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(22.5d0*dgm01(1,3)& 2125 & *dgm10(1,1)+22.5d0*dgm01(1,1)*dgm10(1,3)+7.5d0*gm(1,3)*d2gm(1,1)& 2126 & +15*gm(1,1)*d2gm(1,3))+1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)& 2127 & *(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)*dgm01(3,3)*dgm10(1,2)& 2128 & +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+30*gm(1,1)*dgm01(2,3)*dgm10(1,3)& 2129 & +30*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)*dgm10(3,3)& 2130 & +12*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 2131 & +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)*(15*dgm01(2,3)& 2132 & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)& 2133 & +15*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)& 2134 & *d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2135 & *dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(-4.5d0*dgm01(1,3)& 2136 & *dgm10(1,1)-4.5d0*dgm01(1,1)*dgm10(1,3)-1.5d0*gm(1,3)*d2gm(1,1)& 2137 & -3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)& 2138 & *dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3))) 2139 cm(3,10)=gm(3,3)**2*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)& 2140 & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+12*gm(1,1)*d2gm(1,3))+gm(1,3)& 2141 & *(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(1,3)*(dgm01(3,3)& 2142 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3))& 2143 & +gm(3,3)*(31.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2144 & +6*gm(1,3)**2*d2gm(1,3)+gm(1,3)*(13.5d0*dgm01(3,3)*dgm10(1,1)& 2145 & +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,1)& 2146 & *d2gm(3,3))) 2147 cm(4,10)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(2,3)& 2148 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)& 2149 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)& 2150 & **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)& 2151 & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+3*gm(1,2)& 2152 & *d2gm(3,3))+gm(3,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)& 2153 & *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+24*gm(1,1)& 2154 & *dgm01(2,3)*dgm10(1,3)+24*gm(1,1)*dgm01(1,3)*dgm10(2,3)+6*gm(1,2)& 2155 & *dgm01(1,1)*dgm10(3,3)+12*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)& 2156 & *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+9*gm(1,3)& 2157 & *d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)*(9*dgm01(2,3)*dgm10(1,1)& 2158 & +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)& 2159 & *dgm10(2,3)+6*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))& 2160 & +gm(1,3)*(12*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2161 & +3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)& 2162 & *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 2163 & *dgm10(3,3)+3*gm(1,1)*d2gm(3,3))) 2164 cm(5,10)=12*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+21*gm(1,1)*gm(1,3)& 2165 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(1,1)& 2166 & *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)& 2167 & **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)& 2168 & *dgm10(3,3)+3*gm(1,1)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)**2*d2gm(1,1)& 2169 & +gm(1,3)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)& 2170 & *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)& 2171 & +9*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)*d2gm(3,3))) 2172 cm(6,10)=-12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)& 2173 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)& 2174 & -12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*gm(3,3)*dgm01(1,2)& 2175 & *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,1)& 2176 & *gm(3,3)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)& 2177 & -6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,3)& 2178 & *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)& 2179 & *dgm10(1,1)+3*dgm01(1,3)*dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)& 2180 & *dgm10(2,3)+3*gm(1,2)*d2gm(1,3))+gm(1,3)*(gm(1,1)*(3*dgm01(3,3)& 2181 & *dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)& 2182 & +3*dgm01(1,2)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2183 & *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(0*dgm01(3,3)*dgm10(1,1)& 2184 & +12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))& 2185 & +gm(2,3)*(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)& 2186 & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)& 2187 & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)& 2188 & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)& 2189 & +6*gm(1,1)*d2gm(3,3))) 2190 cm(7,10)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)& 2191 & -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)& 2192 & +6*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)& 2193 & *(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)*dgm01(2,3))& 2194 & +gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)-18*gm(1,2)& 2195 & *dgm01(3,3)))*dgm10(1,3)+3*dgm01(3,3)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)& 2196 & +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)& 2197 & **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)& 2198 & -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(-18*gm(1,1)& 2199 & *gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)& 2200 & *dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)& 2201 & -36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))& 2202 & *dgm10(3,3)+6*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)& 2203 & *gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)& 2204 & *dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)*dgm10(1,2)& 2205 & -36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+dgm01(1,1)*(270*gm(2,3)& 2206 & **2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)*(gm(3,3)& 2207 & *dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)& 2208 & *gm(3,3))*d2gm(1,1)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2209 & **2-18*gm(2,2)*gm(3,3)))*d2gm(1,3)+3*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 2210 & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(3,3))/36.d0 2211 cm(8,10)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)& 2212 & *dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2213 & *dgm10(3,3)))+gm(3,3)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)& 2214 & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)& 2215 & +3*gm(2,3)*d2gm(1,1)+12*gm(1,2)*d2gm(1,3))+1.5d0*gm(1,3)**2*(dgm01(3,3)& 2216 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))+gm(3,3)& 2217 & *(36*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)& 2218 & +36*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)& 2219 & +gm(2,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 2220 & +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)& 2221 & *d2gm(3,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)& 2222 & +6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)& 2223 & *d2gm(3,3))) 2224 cm(9,10)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)-3*gm(1,3)& 2225 & **2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)& 2226 & -15*gm(1,3)*gm(2,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,3)**2*dgm01(2,2)& 2227 & *dgm10(3,3)+9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)& 2228 & **2*dgm01(3,3)*dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 2229 & -1.5d0*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)& 2230 & +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)& 2231 & *dgm10(1,1)+6*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)& 2232 & +3*gm(1,3)*d2gm(1,3)-3*gm(1,1)*d2gm(3,3))+gm(3,3)*(15*gm(1,2)& 2233 & *dgm01(3,3)*dgm10(1,2)-9*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)& 2234 & *dgm01(2,3)*dgm10(1,3)-9*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)& 2235 & *dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+15*gm(1,2)& 2236 & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+4.5d0*gm(2,3)& 2237 & **2*d2gm(1,1)+gm(2,3)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)& 2238 & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)& 2239 & +24*gm(1,2)*d2gm(1,3))+7.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-4.5d0*dgm01(3,3)& 2240 & *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3)& 2241 & -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)& 2242 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,1)*(dgm01(3,3)& 2243 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)& 2244 & +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)& 2245 & *dgm10(3,3)+9*gm(1,2)*d2gm(3,3))) 2246 cm(10,10)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(1,1)& 2247 & +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 2248 & +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)& 2249 & *d2gm(3,3))+gm(3,3)*(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)& 2250 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)& 2251 & **2*d2gm(3,3)) 2252 cm(1,11)=5*gm(1,2)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(2,2)& 2253 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(2,2)*(dgm01(1,2)*dgm10(1,1)& 2254 & +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2)))+gm(1,2)**2*(4.5d0*dgm01(2,2)& 2255 & *dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)& 2256 & +4.5d0*gm(1,1)*d2gm(2,2))+gm(1,1)*(-3*gm(1,1)*dgm01(2,2)*dgm10(2,2)& 2257 & +gm(2,2)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)& 2258 & *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))) 2259 cm(2,11)=6*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,1)& 2260 & *dgm01(2,2)*dgm10(2,2)+18*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2261 & *dgm10(2,2))+3*gm(1,2)**2*d2gm(2,2))+gm(2,2)**2*(6*dgm01(2,2)& 2262 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*(dgm01(1,1)*dgm10(2,2)& 2263 & +gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2))) 2264 cm(3,11)=(-108*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-108*gm(1,2)& 2265 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-72*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 2266 & -36*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+108*gm(1,2)*gm(1,3)& 2267 & *dgm01(2,3)*dgm10(2,2)-36*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+108*gm(1,2)& 2268 & *gm(1,3)*dgm01(2,2)*dgm10(2,3)-36*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)& 2269 & -36*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(90*dgm01(2,2)*dgm10(1,1)& 2270 & +360*dgm01(1,2)*dgm10(1,2)+90*dgm01(1,1)*dgm10(2,2)+180*gm(1,2)& 2271 & *d2gm(1,2)+90*gm(1,1)*d2gm(2,2))+gm(2,2)*(-36*gm(1,2)*dgm01(3,3)& 2272 & *dgm10(1,2)-18*gm(1,1)*dgm01(3,3)*dgm10(2,2)-72*gm(1,3)*(dgm01(2,3)& 2273 & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)& 2274 & *dgm10(2,3))-36*gm(1,2)*dgm01(1,2)*dgm10(3,3)-18*gm(1,1)*dgm01(2,2)& 2275 & *dgm10(3,3)-36*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(-18*dgm01(2,2)*dgm10(1,1)& 2276 & -72*dgm01(1,2)*dgm10(1,2)-18*dgm01(1,1)*dgm10(2,2)-36*gm(1,2)& 2277 & *d2gm(1,2)-18*gm(1,1)*d2gm(2,2)))+gm(2,3)*(360*gm(1,2)*dgm01(2,3)& 2278 & *dgm10(1,2)+108*gm(1,2)*dgm01(2,2)*dgm10(1,3)+108*gm(1,2)*dgm01(1,3)& 2279 & *dgm10(2,2)+180*gm(1,1)*dgm01(2,3)*dgm10(2,2)+360*gm(1,2)*dgm01(1,2)& 2280 & *dgm10(2,3)+180*gm(1,1)*dgm01(2,2)*dgm10(2,3)-72*gm(2,2)*(dgm01(1,3)& 2281 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,3)*d2gm(1,2))+gm(1,3)& 2282 & *(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)+108*gm(1,2)& 2283 & *d2gm(2,2))))/12.d0 2284 cm(4,11)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)& 2285 & *dgm01(2,2)*dgm10(2,2)+24*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2286 & *dgm10(2,2)))-6*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2287 & *dgm10(1,3)+gm(1,3)*d2gm(1,2))+3*gm(1,2)**2*(dgm01(2,3)*dgm10(2,2)& 2288 & +dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)*(18*gm(1,2)& 2289 & *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+3*gm(1,2)& 2290 & *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)& 2291 & *dgm01(1,2)*dgm10(2,3)+12*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)& 2292 & *(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)& 2293 & *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)& 2294 & *(-9*dgm01(2,2)*dgm10(1,2)-9*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)& 2295 & *d2gm(2,2))) 2296 cm(5,11)=(gm(1,1)*(-108*gm(1,3)*dgm01(2,2)*dgm10(2,2)+108*gm(2,3)& 2297 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(180*dgm01(2,3)& 2298 & *dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)& 2299 & +180*dgm01(1,2)*dgm10(2,3)+180*gm(2,3)*d2gm(1,2)+18*gm(1,3)*d2gm(2,2))& 2300 & +gm(2,2)*(-72*gm(1,2)*dgm01(1,3)*dgm10(1,2)-36*gm(1,1)*dgm01(2,3)& 2301 & *dgm10(1,2)-72*gm(1,2)*dgm01(1,2)*dgm10(1,3)-54*gm(1,1)*dgm01(2,2)& 2302 & *dgm10(1,3)-54*gm(1,1)*dgm01(1,3)*dgm10(2,2)-36*gm(1,1)*dgm01(1,2)& 2303 & *dgm10(2,3)-36*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 2304 & +gm(1,1)*d2gm(1,2))+gm(1,3)*(-54*dgm01(2,2)*dgm10(1,1)-144*dgm01(1,2)& 2305 & *dgm10(1,2)-54*dgm01(1,1)*dgm10(2,2)-72*gm(1,2)*d2gm(1,2)-54*gm(1,1)& 2306 & *d2gm(2,2)))+gm(1,2)*(-36*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2307 & *dgm10(2,2))+144*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2308 & +gm(2,3)*(144*dgm01(2,2)*dgm10(1,1)+720*dgm01(1,2)*dgm10(1,2)& 2309 & +144*dgm01(1,1)*dgm10(2,2)+144*gm(1,1)*d2gm(2,2))))/12.d0 2310 cm(6,11)=-3*gm(2,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 2311 & +gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)*dgm01(2,2)*dgm10(2,2)& 2312 & +13.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2313 & +1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(1.5d0*gm(1,1)*(dgm01(2,2)& 2314 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)+gm(1,2)& 2315 & *(7.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)& 2316 & *dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2))) 2317 cm(7,11)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 2318 & **2*d2gm(1,2)+gm(2,2)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)& 2319 & +3*gm(1,2)*d2gm(2,2))) 2320 cm(8,11)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)& 2321 & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2))& 2322 & +gm(2,3)**2*(10.5d0*dgm01(2,2)*dgm10(1,2)+10.5d0*dgm01(1,2)*dgm10(2,2)& 2323 & +9*gm(2,2)*d2gm(1,2)+1.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(12*gm(1,3)& 2324 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))-4.5d0*gm(1,2)& 2325 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(2,2)& 2326 & *dgm10(1,2)-10.5d0*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,2)*d2gm(2,2)))& 2327 & +gm(2,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)& 2328 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)& 2329 & +12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)& 2330 & *dgm10(2,3)+12*gm(1,3)*d2gm(2,2))) 2331 cm(9,11)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)**2*(dgm01(2,3)& 2332 & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)& 2333 & *dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(1,3)*d2gm(2,2))+gm(2,2)*(24*gm(1,3)& 2334 & *dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 2335 & *dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,2)+15*dgm01(1,2)& 2336 & *dgm10(2,2)+3*gm(1,2)*d2gm(2,2))) 2337 cm(10,11)=(-108*gm(3,3)*(gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)& 2338 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+180*gm(2,3)**3*d2gm(1,2)& 2339 & +gm(2,3)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)*dgm10(1,3)& 2340 & +270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3)+270*gm(1,3)& 2341 & *d2gm(2,2))+gm(2,3)*(540*gm(1,3)*dgm01(2,3)*dgm10(2,2)-108*gm(1,2)& 2342 & *dgm01(3,3)*dgm10(2,2)+540*gm(1,3)*dgm01(2,2)*dgm10(2,3)-108*gm(1,2)& 2343 & *dgm01(2,2)*dgm10(3,3)-108*gm(2,2)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2344 & *dgm10(3,3))+gm(3,3)*(-216*dgm01(2,2)*dgm10(1,2)-216*dgm01(1,2)& 2345 & *dgm10(2,2)-108*gm(2,2)*d2gm(1,2)-108*gm(1,2)*d2gm(2,2)))+gm(2,2)& 2346 & *(-54*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)& 2347 & *(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)-54*dgm01(1,3)& 2348 & *dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)-54*gm(1,3)*d2gm(2,2))))& 2349 & /36.d0 2350 cm(1,12)=gm(1,2)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)& 2351 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3))& 2352 & -3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)& 2353 & *d2gm(1,2))-6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)& 2354 & +gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)& 2355 & +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+15*gm(1,2)& 2356 & *d2gm(1,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(18*gm(1,2)*dgm01(2,3)& 2357 & *dgm10(1,1)+60*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)& 2358 & *dgm10(1,2)+60*gm(1,2)*dgm01(1,2)*dgm10(1,3)+6*gm(1,1)*dgm01(2,2)& 2359 & *dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)& 2360 & *dgm10(2,3)+12*gm(1,1)*dgm01(1,2)*dgm10(2,3)-6*gm(2,3)*(dgm01(1,2)& 2361 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+15*gm(1,2)& 2362 & **2*d2gm(1,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)& 2363 & +gm(1,1)*d2gm(1,3))+18*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(1,1)*(-3*gm(2,2)& 2364 & *dgm01(3,3)*dgm10(1,1)-6*gm(2,2)*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)& 2365 & *dgm01(3,3)*dgm10(2,2)-12*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(2,2)& 2366 & *dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)& 2367 & *(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)& 2368 & *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(-12*dgm01(2,3)& 2369 & *dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)& 2370 & -12*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3))-1.5d0*gm(1,1)& 2371 & *gm(2,2)*d2gm(3,3))+gm(1,2)**2*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)& 2372 & *dgm10(1,3)+4.5d0*(dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))) 2373 cm(2,12)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)& 2374 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 2375 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(2,3)& 2376 & *dgm10(2,2)+0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)& 2377 & *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)& 2378 & **2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)& 2379 & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)& 2380 & *dgm10(2,2)+3*gm(1,2)*d2gm(1,2)+7.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)& 2381 & *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)& 2382 & +15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+39*gm(1,1)*dgm01(2,3)*dgm10(2,2)& 2383 & +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+39*gm(1,1)*dgm01(2,2)*dgm10(2,3)& 2384 & +gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)& 2385 & *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)& 2386 & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)& 2387 & *dgm10(2,3)+24*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)& 2388 & *d2gm(2,3)))+gm(2,2)**2*(6*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)& 2389 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)+12*gm(1,3)*d2gm(1,3)+6*gm(1,1)& 2390 & *d2gm(3,3))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)& 2391 & *dgm01(2,3)*dgm10(1,3)+10.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)& 2392 & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)& 2393 & *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)& 2394 & **2*d2gm(2,2)+gm(3,3)*(-1.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)& 2395 & *dgm10(1,2)-1.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)& 2396 & *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)& 2397 & +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)& 2398 & *d2gm(2,3))+3*gm(1,2)**2*d2gm(3,3)) 2399 cm(3,12)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+0*gm(1,3)& 2400 & **2*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)& 2401 & +15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-15*gm(1,3)*gm(2,2)& 2402 & *dgm01(1,3)*dgm10(3,3)+0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+15*gm(1,2)& 2403 & *gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)& 2404 & -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)& 2405 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)& 2406 & +12*gm(1,2)*d2gm(1,2)+6*gm(1,1)*d2gm(2,2))-3*gm(1,3)**2*gm(2,2)& 2407 & *d2gm(3,3)+gm(2,3)**2*(7.5d0*dgm01(3,3)*dgm10(1,1)+6*dgm01(1,3)& 2408 & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,3)*d2gm(1,3)+7.5d0*gm(1,1)& 2409 & *d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)& 2410 & *dgm01(3,3)*dgm10(1,2)-3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)& 2411 & *dgm01(2,3)*dgm10(1,3)-3*gm(1,3)*dgm01(1,3)*dgm10(2,2)+10.5d0*gm(1,1)& 2412 & *dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)& 2413 & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)& 2414 & *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)& 2415 & **2*d2gm(2,2)+6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*dgm01(2,3)& 2416 & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)& 2417 & +24*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)& 2418 & +24*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-1.5d0*dgm01(3,3)& 2419 & *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3)& 2420 & -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)& 2421 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+39*gm(1,1)*(dgm01(3,3)& 2422 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+6*gm(1,3)**2*d2gm(2,3)+gm(1,3)& 2423 & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)& 2424 & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3))) 2425 cm(4,12)=27*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)& 2426 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(2,2)& 2427 & *dgm10(1,3)+27*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+27*gm(1,2)& 2428 & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+21*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)& 2429 & +42*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*gm(1,3)*dgm01(3,3)& 2430 & *dgm10(2,2)+42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+21*gm(1,3)& 2431 & **2*dgm01(2,2)*dgm10(2,3)+42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)& 2432 & -24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+21*gm(1,2)**2*dgm01(3,3)& 2433 & *dgm10(2,3)+6*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+21*gm(1,2)& 2434 & **2*dgm01(2,3)*dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)& 2435 & +18*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(18*dgm01(2,3)*dgm10(1,1)& 2436 & +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)& 2437 & *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+18*gm(1,1)& 2438 & *d2gm(2,3))+gm(2,3)*(0*gm(1,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)& 2439 & *dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)& 2440 & *dgm01(2,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)*dgm10(2,2)+24*gm(1,1)& 2441 & *dgm01(3,3)*dgm10(2,2)+0*gm(1,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)& 2442 & *dgm01(1,3)*dgm10(2,3)+72*gm(1,1)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)& 2443 & *dgm01(1,2)*dgm10(3,3)+24*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)& 2444 & **2*d2gm(2,2)+gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)& 2445 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)& 2446 & *d2gm(2,2))-12*gm(1,2)*gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)& 2447 & +gm(2,2)*(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 2448 & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)& 2449 & *(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)& 2450 & +27*gm(1,2)*dgm01(1,3)*dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)& 2451 & +18*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(30*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)& 2452 & *dgm10(1,2)+48*dgm01(1,2)*dgm10(1,3)+30*dgm01(1,1)*dgm10(2,3)& 2453 & +24*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)+30*gm(1,1)*d2gm(2,3))& 2454 & +gm(1,3)*(27*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)& 2455 & *dgm10(2,3)+27*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3))) 2456 cm(5,12)=7.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+24*gm(1,2)& 2457 & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)& 2458 & *dgm10(1,2)+54*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)& 2459 & **2*dgm01(2,3)*dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)& 2460 & +27*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+54*gm(1,2)*gm(3,3)& 2461 & *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)& 2462 & +4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)*gm(1,3)& 2463 & *dgm01(2,3)*dgm10(1,3)+16.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)& 2464 & +7.5d0*gm(1,3)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)& 2465 & *dgm10(2,2)+4.5d0*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)& 2466 & *gm(1,3)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(3,3)*dgm01(1,1)& 2467 & *dgm10(2,3)+9*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)& 2468 & *dgm01(1,2)*dgm10(2,3)+30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)& 2469 & +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+36*gm(1,1)*gm(1,2)& 2470 & *dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)& 2471 & +16.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*gm(1,3)*dgm01(2,2)& 2472 & *dgm10(3,3)+36*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)& 2473 & *gm(1,3)*gm(3,3)*d2gm(1,2)+15*gm(1,2)**2*gm(3,3)*d2gm(1,3)-6*gm(2,3)& 2474 & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))& 2475 & +1.5d0*gm(1,3)**3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)& 2476 & +6*gm(1,2)*gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)& 2477 & +1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(12*gm(1,2)*dgm01(3,3)& 2478 & *dgm10(1,1)+3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)& 2479 & *dgm10(1,3)-6*gm(1,1)*dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)& 2480 & *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*dgm01(1,2)& 2481 & *dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)-9*gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 2482 & +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(6*dgm01(2,3)& 2483 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)& 2484 & +6*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3))& 2485 & +12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)& 2486 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)& 2487 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))& 2488 & +gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)& 2489 & -4.5d0*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3))) 2490 cm(6,12)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)& 2491 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+16.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 2492 & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)*gm(1,3)& 2493 & *dgm01(2,3)*dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)& 2494 & +27*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)& 2495 & *dgm10(1,3)-4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+16.5d0*gm(1,3)& 2496 & **2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)& 2497 & +27*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)*gm(1,3)& 2498 & *dgm01(2,3)*dgm10(2,2)+3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)& 2499 & +30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)& 2500 & *dgm10(2,3)+36*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,1)& 2501 & *gm(1,2)*dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)& 2502 & +3*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)& 2503 & *d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 2504 & +gm(1,1)*d2gm(1,2))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)& 2505 & *gm(1,2)*gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)& 2506 & *(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)& 2507 & -6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)& 2508 & +3*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,3)*dgm10(2,2)& 2509 & +6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*dgm01(1,2)*dgm10(2,3)& 2510 & +3*gm(1,2)**2*d2gm(1,3)-9*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2511 & *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)& 2512 & +36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)& 2513 & *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+6*gm(1,1)*gm(1,2)*d2gm(2,3))& 2514 & +1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(7.5d0*gm(1,2)*dgm01(3,3)& 2515 & *dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)& 2516 & *dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(1,3)& 2517 & *dgm10(2,3)+7.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)& 2518 & *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)& 2519 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)& 2520 & *(24*dgm01(2,3)*dgm10(1,1)+54*dgm01(1,3)*dgm10(1,2)+54*dgm01(1,2)& 2521 & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+24*gm(1,1)& 2522 & *d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3)) 2523 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)& 2524 & *dgm10(1,2)+16.5d0*dgm01(1,2)*dgm10(2,2)+9*gm(2,2)*d2gm(1,2)& 2525 & +7.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(-15*gm(1,3)*(dgm01(2,3)*dgm10(2,2)& 2526 & +dgm01(2,2)*dgm10(2,3))+gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)& 2527 & +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))+gm(3,3)& 2528 & *(-7.5d0*dgm01(2,2)*dgm10(1,2)-7.5d0*dgm01(1,2)*dgm10(2,2)-1.5d0*gm(1,2)& 2529 & *d2gm(2,2)))+gm(2,3)*(-6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)& 2530 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)& 2531 & +gm(2,2)*(36*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)& 2532 & *dgm10(2,2)+36*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)*d2gm(2,2)+18*gm(1,2)& 2533 & *d2gm(2,3)))+gm(2,2)**2*(0*dgm01(3,3)*dgm10(1,2)+0*dgm01(2,3)& 2534 & *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)& 2535 & *d2gm(1,2)-6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3)) 2536 cm(8,12)=gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(1,3)& 2537 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+3*gm(2,3)**3*d2gm(1,3)& 2538 & +gm(3,3)**2*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)& 2539 & +12*gm(2,2)*d2gm(1,2)+6*gm(1,2)*d2gm(2,2))+gm(2,3)**2*(7.5d0*dgm01(3,3)& 2540 & *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)& 2541 & +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)& 2542 & *d2gm(3,3))+gm(3,3)*(27*gm(1,3)*dgm01(2,3)*dgm10(2,2)+7.5d0*gm(1,2)& 2543 & *dgm01(3,3)*dgm10(2,2)+27*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)& 2544 & *dgm01(2,3)*dgm10(2,3)+7.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)& 2545 & **2*d2gm(1,2)+gm(2,3)*(18*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)& 2546 & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)& 2547 & +15*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))& 2548 & +gm(2,2)*(19.5d0*dgm01(3,3)*dgm10(1,2)+39*dgm01(2,3)*dgm10(1,3)& 2549 & +39*dgm01(1,3)*dgm10(2,3)+19.5d0*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)& 2550 & *d2gm(2,3)-4.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(15*dgm01(3,3)& 2551 & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+15*dgm01(2,2)*dgm10(3,3))& 2552 & +9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,2)& 2553 & *(27*dgm01(3,3)*dgm10(1,3)+27*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)& 2554 & *d2gm(3,3))) 2555 cm(9,12)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(1,2)& 2556 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)& 2557 & +gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)& 2558 & +7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)+6*gm(2,2)& 2559 & *d2gm(1,3)+1.5d0*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)& 2560 & *(gm(1,3)*(7.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)& 2561 & +7.5d0*dgm01(2,2)*dgm10(3,3))+27*gm(1,2)*(dgm01(3,3)*dgm10(2,3)& 2562 & +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(39*dgm01(2,3)*dgm10(1,2)+19.5d0*dgm01(2,2)& 2563 & *dgm10(1,3)+19.5d0*dgm01(1,3)*dgm10(2,2)+39*dgm01(1,2)*dgm10(2,3)& 2564 & -4.5d0*gm(1,3)*d2gm(2,2)+24*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(18*dgm01(3,3)& 2565 & *dgm10(1,3)+18*dgm01(1,3)*dgm10(3,3)+12*gm(3,3)*d2gm(1,3)+6*gm(1,3)& 2566 & *d2gm(3,3))+gm(2,3)*(9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+15*gm(1,2)& 2567 & *dgm01(3,3)*dgm10(2,2)+9*gm(1,3)*dgm01(2,2)*dgm10(2,3)+24*gm(1,2)& 2568 & *dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(3,3)& 2569 & *(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)& 2570 & *d2gm(1,2)+12*gm(1,2)*d2gm(2,2))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,2)& 2571 & +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+18*dgm01(1,2)& 2572 & *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))) 2573 cm(10,12)=-3*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(-6*gm(1,2)& 2574 & *dgm01(3,3)*dgm10(3,3)+33*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2575 & *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)& 2576 & *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,2)+0*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)& 2577 & *d2gm(1,2)-3*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)-6*gm(1,2)& 2578 & *d2gm(2,3))+gm(2,3)**2*(16.5d0*dgm01(3,3)*dgm10(1,3)+16.5d0*dgm01(1,3)& 2579 & *dgm10(3,3)+7.5d0*gm(1,3)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)*dgm01(3,3)& 2580 & *dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-15*gm(1,2)*dgm01(3,3)& 2581 & *dgm10(2,3)+4.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)-15*gm(1,2)*dgm01(2,3)& 2582 & *dgm10(3,3)+9*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(9*dgm01(3,3)*dgm10(1,2)& 2583 & +36*dgm01(2,3)*dgm10(1,3)+36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)& 2584 & *dgm10(3,3)+18*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))+gm(2,2)& 2585 & *(-7.5d0*dgm01(3,3)*dgm10(1,3)-7.5d0*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,3)& 2586 & *d2gm(3,3))) 2587 cm(1,13)=5*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)& 2588 & *dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)& 2589 & *dgm10(2,3))-6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)& 2590 & +gm(1,1)*d2gm(1,2))-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2591 & *dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)*(6*gm(1,1)*(dgm01(2,2)& 2592 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+15*gm(1,2)**2*d2gm(1,2)-3*gm(2,2)& 2593 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))& 2594 & +gm(1,2)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)& 2595 & *dgm10(2,2)+9*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(1,1)& 2596 & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)& 2597 & *dgm10(2,3)+9*gm(1,1)*d2gm(2,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(2,3)& 2598 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(-6*dgm01(2,2)*dgm10(1,1)& 2599 & -12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*d2gm(2,2))& 2600 & +gm(2,2)*(-6*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)& 2601 & *dgm10(1,3)-6*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*d2gm(2,3))) 2602 cm(2,13)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)& 2603 & *dgm01(2,2)*dgm10(2,2)+12*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2604 & *dgm10(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)& 2605 & *dgm10(2,3)+3*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(12*dgm01(2,3)*dgm10(1,1)& 2606 & +18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)& 2607 & *dgm10(2,3)+12*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+12*gm(1,1)& 2608 & *d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)& 2609 & *dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)& 2610 & *dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+36*gm(1,1)& 2611 & *dgm01(2,2)*dgm10(2,3)+gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)& 2612 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)& 2613 & *d2gm(2,2))+gm(1,3)*(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)& 2614 & +3*gm(1,2)*d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)) 2615 cm(3,13)=-6*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)& 2616 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)& 2617 & -6*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,3)& 2618 & *dgm10(2,2)-3*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)+9*gm(1,1)*gm(3,3)& 2619 & *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 2620 & +12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)**2*dgm01(2,2)& 2621 & *dgm10(2,3)+9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)& 2622 & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)& 2623 & +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(2,3)& 2624 & *dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)& 2625 & *d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)& 2626 & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)& 2627 & +3*gm(1,3)*d2gm(1,2)+15*gm(1,2)*d2gm(1,3)+15*gm(1,1)*d2gm(2,3))& 2628 & +gm(2,2)*(gm(1,3)*(-9*dgm01(3,3)*dgm10(1,2)-18*dgm01(2,3)*dgm10(1,3)& 2629 & -18*dgm01(1,3)*dgm10(2,3)-9*dgm01(1,2)*dgm10(3,3))-3*(gm(1,2)& 2630 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(dgm01(3,3)& 2631 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(1,3)**2*d2gm(2,3)+gm(3,3)& 2632 & *(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)& 2633 & *dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)-9*gm(1,3)*d2gm(1,2)-3*gm(1,2)& 2634 & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,3)*(24*gm(1,2)*dgm01(3,3)& 2635 & *dgm10(1,2)-12*gm(2,2)*dgm01(1,3)*dgm10(1,3)+48*gm(1,2)*dgm01(2,3)& 2636 & *dgm10(1,3)+12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,2)*dgm01(1,3)& 2637 & *dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)& 2638 & *dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(2,2)& 2639 & +gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)& 2640 & *dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)& 2641 & *(24*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)*dgm10(1,3)+0*dgm01(1,3)& 2642 & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)-6*gm(2,2)*d2gm(1,3)+18*gm(1,2)& 2643 & *d2gm(2,3))) 2644 cm(4,13)=42*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)& 2645 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+18*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 2646 & +30*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)& 2647 & *dgm10(2,2)+9*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)& 2648 & *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)& 2649 & **2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(-12*dgm01(1,3)*dgm10(1,3)& 2650 & -6*gm(1,3)*d2gm(1,3))+9*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)& 2651 & **2*(9*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)& 2652 & *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+9*gm(1,1)*d2gm(2,2))+gm(2,3)& 2653 & *(24*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)& 2654 & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)+42*gm(1,1)*dgm01(2,3)*dgm10(2,2)& 2655 & +24*gm(1,2)*dgm01(1,2)*dgm10(2,3)+42*gm(1,1)*dgm01(2,2)*dgm10(2,3)& 2656 & +gm(1,3)*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)-6*gm(1,2)& 2657 & *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)& 2658 & +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)& 2659 & *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)& 2660 & *d2gm(2,3)))+gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)& 2661 & *dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)& 2662 & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)& 2663 & *dgm01(1,2)*dgm10(3,3)+15*gm(1,1)*dgm01(2,2)*dgm10(3,3)+9*gm(1,3)& 2664 & **2*d2gm(2,2)+gm(3,3)*(15*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)& 2665 & *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+15*gm(1,1)& 2666 & *d2gm(2,2))+gm(1,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)& 2667 & +6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*d2gm(2,3))) 2668 cm(5,13)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)& 2669 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-3*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)& 2670 & +9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)& 2671 & *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)& 2672 & *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)& 2673 & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)& 2674 & +9*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,3)& 2675 & *dgm10(2,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,1)& 2676 & *gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,2)& 2677 & *dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*gm(1,3)& 2678 & *dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)& 2679 & +15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)& 2680 & *dgm10(3,3)+15*gm(1,2)**2*gm(3,3)*d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)& 2681 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,2)& 2682 & *gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,2)+3*gm(1,2)& 2683 & **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 2684 & +48*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)*dgm10(1,2)& 2685 & +48*gm(1,2)*dgm01(1,2)*dgm10(1,3)+0*gm(1,1)*dgm01(2,2)*dgm10(1,3)& 2686 & +0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 2687 & +12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(1,3)-3*gm(2,2)& 2688 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))& 2689 & +gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 2690 & *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+24*gm(1,1)& 2691 & *gm(1,2)*d2gm(2,3))+gm(2,2)*(-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)& 2692 & -12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)& 2693 & -12*gm(1,1)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)& 2694 & -6*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2695 & *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(-9*dgm01(2,3)*dgm10(1,1)& 2696 & -18*dgm01(1,3)*dgm10(1,2)-18*dgm01(1,2)*dgm10(1,3)-9*dgm01(1,1)& 2697 & *dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3))) 2698 cm(6,13)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(2,3)& 2699 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)& 2700 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,2)& 2701 & **2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)& 2702 & *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+3*gm(1,3)& 2703 & *d2gm(2,2))+gm(1,2)*(30*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2704 & *dgm10(2,2))+18*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2705 & +gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 2706 & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)& 2707 & *(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)+42*gm(1,2)*dgm01(1,3)*dgm10(1,2)& 2708 & +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+42*gm(1,2)*dgm01(1,2)*dgm10(1,3)& 2709 & +6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)& 2710 & +15*gm(1,2)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*dgm01(1,2)*dgm10(2,3)& 2711 & -9*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)& 2712 & *d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)& 2713 & +48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)& 2714 & *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)*d2gm(2,3)) 2715 cm(7,13)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 2716 & **3*d2gm(1,3)+gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)& 2717 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(21*dgm01(2,2)& 2718 & *dgm10(1,2)+21*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2)))+gm(2,2)& 2719 & **2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 2720 & *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)-3*gm(1,3)& 2721 & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3)) 2722 cm(8,13)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(1,2)& 2723 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)& 2724 & -3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(3,3)& 2725 & *d2gm(1,3))+gm(2,3)**2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)& 2726 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)& 2727 & +9*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))& 2728 & +gm(2,2)*(gm(1,3)*(12*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)*dgm10(2,3)& 2729 & +12*dgm01(2,2)*dgm10(3,3))-9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2730 & *dgm10(3,3))+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)& 2731 & +6*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)& 2732 & -9*gm(1,2)*d2gm(2,3)))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 2733 & +3*gm(1,2)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(2,2)*dgm10(2,3)& 2734 & +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)& 2735 & +gm(3,3)*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)& 2736 & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(15*dgm01(3,3)*dgm10(1,2)& 2737 & +42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)& 2738 & *dgm10(3,3)+24*gm(1,3)*d2gm(2,3))) 2739 cm(9,13)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(9*dgm01(2,2)& 2740 & *dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)*d2gm(1,2)+3*gm(1,2)& 2741 & *d2gm(2,2))+gm(2,2)*(27*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 2742 & *dgm10(2,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,3)*dgm10(2,3)& 2743 & +dgm01(2,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)& 2744 & *dgm10(2,2)+12*gm(1,2)*d2gm(2,2)))+gm(2,2)**2*(12*dgm01(3,3)& 2745 & *dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)& 2746 & +12*dgm01(1,2)*dgm10(3,3)+12*gm(3,3)*d2gm(1,2)+12*gm(1,3)*d2gm(2,3))& 2747 & +gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+12*gm(1,2)*(dgm01(2,3)& 2748 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)+gm(2,2)& 2749 & *(18*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)& 2750 & *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)& 2751 & *d2gm(2,3))) 2752 cm(10,13)=-3*gm(1,3)*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2753 & *dgm10(3,3))+gm(2,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2754 & *dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)& 2755 & +9*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2756 & *dgm10(3,3)))+5*gm(2,3)**3*d2gm(1,3)+gm(3,3)**2*(-6*dgm01(2,2)& 2757 & *dgm10(1,2)-6*dgm01(1,2)*dgm10(2,2)-3*(gm(2,2)*d2gm(1,2)+gm(1,2)& 2758 & *d2gm(2,2)))+gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)& 2759 & *dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)& 2760 & +15*gm(1,3)*d2gm(2,3))+gm(3,3)*(6*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 2761 & -6*gm(1,2)*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)*dgm01(2,2)*dgm10(2,3)& 2762 & -12*gm(1,2)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)*dgm01(2,2)*dgm10(3,3)& 2763 & +9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)& 2764 & *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)& 2765 & -3*gm(2,2)*d2gm(1,3)+9*gm(1,3)*d2gm(2,2)-6*gm(1,2)*d2gm(2,3))& 2766 & +gm(2,2)*(-6*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)& 2767 & *dgm10(2,3)-6*dgm01(1,2)*dgm10(3,3)-3*gm(1,3)*d2gm(2,3))) 2768 cm(1,14)=5*gm(1,3)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(3,3)& 2769 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)& 2770 & +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(9*dgm01(2,3)& 2771 & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)& 2772 & +9*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3)+9*gm(1,1)*d2gm(2,3))& 2773 & +gm(1,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)& 2774 & *dgm10(1,2)+60*gm(1,2)*dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)& 2775 & *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)& 2776 & *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)& 2777 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))-6*gm(2,3)& 2778 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))& 2779 & +9*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(3,3)& 2780 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,1)& 2781 & -6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)-6*dgm01(1,1)& 2782 & *dgm10(2,3)-3*gm(1,1)*d2gm(2,3))+gm(2,3)*(-6*dgm01(3,3)*dgm10(1,1)& 2783 & -12*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3))) 2784 cm(2,14)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-18*gm(1,2)& 2785 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)& 2786 & -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-9*gm(1,2)*gm(3,3)*dgm01(1,3)& 2787 & *dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)& 2788 & *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 2789 & -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)**2*dgm01(2,2)& 2790 & *dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)& 2791 & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)& 2792 & +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*dgm01(2,3)& 2793 & *dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)& 2794 & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)& 2795 & +15*dgm01(1,1)*dgm10(2,3)+15*gm(1,3)*d2gm(1,2)+3*gm(1,2)*d2gm(1,3)& 2796 & +15*gm(1,1)*d2gm(2,3))+gm(2,3)*(48*gm(1,3)*dgm01(2,3)*dgm10(1,2)& 2797 & +0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)& 2798 & +24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 2799 & +12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 2800 & +24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 2801 & +0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)& 2802 & +gm(3,3)*(-12*dgm01(1,2)*dgm10(1,2)-6*gm(1,2)*d2gm(1,2))+18*gm(1,2)& 2803 & *gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(12*dgm01(3,3)& 2804 & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)& 2805 & +24*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)*(-6*gm(1,2)& 2806 & *dgm01(3,3)*dgm10(1,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)-6*gm(1,2)& 2807 & *dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)& 2808 & **2*d2gm(2,3)+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)& 2809 & *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)& 2810 & -3*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))& 2811 & +gm(1,3)*(0*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)& 2812 & *dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3))) 2813 cm(3,14)=24*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(6*gm(1,2)& 2814 & *dgm01(3,3)*dgm10(3,3)+12*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2815 & *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)& 2816 & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)& 2817 & +6*gm(1,3)*d2gm(1,2)+12*gm(1,2)*d2gm(1,3)+12*gm(1,1)*d2gm(2,3))& 2818 & +gm(1,3)**2*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)& 2819 & +3*gm(2,3)*d2gm(3,3))+gm(3,3)*(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)& 2820 & +36*gm(1,1)*dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 2821 & +36*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)+gm(2,3)& 2822 & *(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 2823 & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3))+gm(1,3)& 2824 & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)& 2825 & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3))) 2826 cm(4,14)=-12*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+24*gm(1,3)*gm(3,3)& 2827 & *dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(1,2)& 2828 & +24*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,2)*gm(3,3)& 2829 & *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(2,2)& 2830 & +9*gm(1,3)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,1)*gm(3,3)*dgm01(3,3)& 2831 & *dgm10(2,2)+24*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+12*gm(1,2)& 2832 & *gm(3,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)& 2833 & +48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(3,3)& 2834 & *dgm10(2,3)+6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)& 2835 & **2*dgm01(2,2)*dgm10(3,3)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(3,3)& 2836 & +0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+18*gm(1,2)**2*dgm01(3,3)& 2837 & *dgm10(3,3)-6*gm(1,2)*gm(3,3)**2*d2gm(1,2)+6*gm(1,2)*gm(1,3)& 2838 & *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)& 2839 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3)& 2840 & +6*gm(1,3)*d2gm(1,3)+9*gm(1,1)*d2gm(3,3))+gm(2,2)*(30*gm(1,1)& 2841 & *dgm01(3,3)*dgm10(3,3)+42*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2842 & *dgm10(3,3))+9*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(15*dgm01(3,3)*dgm10(1,1)& 2843 & +48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)& 2844 & *d2gm(1,3)+15*gm(1,1)*d2gm(3,3)))+gm(2,3)*(0*gm(1,2)*dgm01(3,3)& 2845 & *dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*dgm01(1,3)& 2846 & *dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)& 2847 & +gm(3,3)*(24*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)& 2848 & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)+6*gm(1,2)& 2849 & *d2gm(1,3)+24*gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)& 2850 & +24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)& 2851 & *dgm10(3,3)-6*gm(1,2)*d2gm(3,3))) 2852 cm(5,14)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(2,3)& 2853 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)& 2854 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,3)& 2855 & **3*d2gm(2,3)+gm(1,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)& 2856 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)& 2857 & +3*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(12*gm(1,2)& 2858 & *dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)& 2859 & *dgm01(1,3)*dgm10(1,3)+6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+6*gm(1,1)& 2860 & *dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)& 2861 & *dgm01(1,2)*dgm10(3,3)+9*gm(1,3)**2*d2gm(1,2)-9*gm(2,3)*(dgm01(1,3)& 2862 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)& 2863 & *(15*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)& 2864 & *dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+15*gm(1,1)& 2865 & *d2gm(2,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(30*gm(1,2)& 2866 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,1)*(dgm01(3,3)& 2867 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)& 2868 & +12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3))) 2869 cm(6,14)=-9*gm(1,2)*gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,3)& 2870 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm01(1,3)& 2871 & *dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)*dgm10(1,2)-12*gm(1,1)*gm(3,3)& 2872 & *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)& 2873 & -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)& 2874 & *dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)& 2875 & *gm(1,3)*dgm01(2,3)*dgm10(1,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)& 2876 & +15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,3)& 2877 & *dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)-9*gm(1,2)& 2878 & *gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)& 2879 & -12*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*gm(1,3)& 2880 & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)& 2881 & -6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(1,2)& 2882 & *dgm10(3,3)-3*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+12*gm(1,1)*gm(1,3)& 2883 & *dgm01(2,2)*dgm10(3,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)& 2884 & -6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)& 2885 & -6*gm(2,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)& 2886 & *d2gm(1,3))+3*gm(1,2)*gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)& 2887 & *gm(3,3)*d2gm(2,3)+3*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*gm(1,2)& 2888 & *dgm01(3,3)*dgm10(1,1)+0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)& 2889 & *dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)*dgm10(1,3)+12*gm(1,1)& 2890 & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+0*gm(1,1)& 2891 & *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)& 2892 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)& 2893 & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)& 2894 & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)& 2895 & *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(9*gm(1,1)*(dgm01(3,3)& 2896 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)& 2897 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))& 2898 & +gm(1,3)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 2899 & *dgm10(3,3)+12*gm(1,1)*d2gm(3,3))) 2900 cm(7,14)=-3*gm(1,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 2901 & *dgm10(2,3))+5*gm(2,3)**3*d2gm(1,2)+gm(2,3)**2*(30*dgm01(2,3)& 2902 & *dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)& 2903 & *dgm10(2,3)+9*gm(2,2)*d2gm(1,3)+15*gm(1,2)*d2gm(2,3))+gm(2,2)& 2904 & *(gm(1,3)*(-6*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)*dgm10(2,3)& 2905 & -6*dgm01(2,2)*dgm10(3,3))+6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2906 & *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,2)-6*dgm01(2,2)*dgm10(1,3)& 2907 & -6*dgm01(1,3)*dgm10(2,2)-6*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)*d2gm(2,3)))& 2908 & +gm(2,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*dgm01(3,3)& 2909 & *dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)& 2910 & *dgm10(2,3)+9*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)& 2911 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+gm(2,2)& 2912 & *(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)& 2913 & *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-6*gm(1,3)*d2gm(2,3)+9*gm(1,2)& 2914 & *d2gm(3,3)))+gm(2,2)**2*(-6*dgm01(3,3)*dgm10(1,3)-6*dgm01(1,3)& 2915 & *dgm10(3,3)-3*(gm(3,3)*d2gm(1,3)+gm(1,3)*d2gm(3,3))) 2916 cm(8,14)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)& 2917 & *dgm01(3,3)*dgm10(3,3)+12*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2918 & *dgm10(3,3)))+gm(3,3)**2*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)& 2919 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)& 2920 & +6*gm(2,3)*d2gm(1,2)+12*gm(2,2)*d2gm(1,3)+12*gm(1,2)*d2gm(2,3))& 2921 & +gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)& 2922 & +3*gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 2923 & +12*gm(1,3)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)*dgm01(3,3)*dgm10(2,3)& 2924 & +12*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,2)*dgm01(2,3)*dgm10(3,3)& 2925 & +6*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)& 2926 & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)& 2927 & +6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,2)*(36*dgm01(3,3)& 2928 & *dgm10(1,3)+36*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)*d2gm(3,3))) 2929 cm(9,14)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(1,3)& 2930 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)& 2931 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+3*gm(2,3)& 2932 & **3*d2gm(1,3)+gm(2,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)& 2933 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)& 2934 & +3*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(-9*gm(1,3)& 2935 & *dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)-9*gm(1,3)& 2936 & *dgm01(2,2)*dgm10(2,3)+48*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)& 2937 & *dgm01(2,2)*dgm10(3,3)+9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(42*dgm01(2,3)& 2938 & *dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)& 2939 & +42*dgm01(1,2)*dgm10(2,3)+15*gm(2,2)*d2gm(1,3)+24*gm(1,2)*d2gm(2,3))& 2940 & +gm(2,2)*(6*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)& 2941 & *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-9*gm(1,3)*d2gm(2,3)+12*gm(1,2)& 2942 & *d2gm(3,3)))+gm(2,3)*(gm(1,3)*(3*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)& 2943 & *dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))+30*gm(1,2)*(dgm01(3,3)*dgm10(2,3)& 2944 & +dgm01(2,3)*dgm10(3,3))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,3)+18*dgm01(1,3)& 2945 & *dgm10(3,3)+3*gm(1,3)*d2gm(3,3))) 2946 cm(10,14)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 2947 & **3*d2gm(1,2)+gm(3,3)**2*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)& 2948 & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)& 2949 & +6*gm(2,3)*d2gm(1,3)+6*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))& 2950 & +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)*(dgm01(3,3)& 2951 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(21*dgm01(3,3)*dgm10(1,3)& 2952 & +21*dgm01(1,3)*dgm10(3,3)+9*gm(1,3)*d2gm(3,3))) 2953 cm(1,15)=5*gm(1,3)**3*d2gm(1,3)+gm(1,3)*(6*gm(1,1)*(dgm01(3,3)& 2954 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)& 2955 & +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(3,3)& 2956 & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)& 2957 & +4.5d0*gm(1,1)*d2gm(3,3))+gm(1,1)*(-3*gm(1,1)*dgm01(3,3)*dgm10(3,3)& 2958 & +gm(3,3)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)& 2959 & *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3))) 2960 cm(2,15)=(2*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)& 2961 & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)& 2962 & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)& 2963 & +gm(1,3)*dgm01(3,3)))*dgm10(1,3)+3*(30*gm(2,3)**2*dgm01(1,1)& 2964 & -24*gm(1,2)*gm(3,3)*dgm01(1,2)-12*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)& 2965 & *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)& 2966 & *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)+60*gm(1,1)*dgm01(2,3))-12*gm(1,2)& 2967 & **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)-24*gm(1,3)*dgm01(1,3)& 2968 & -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(30*gm(2,3)**2*dgm10(1,1)& 2969 & -24*gm(1,2)*gm(3,3)*dgm10(1,2)-12*gm(1,3)**2*dgm10(2,2)-6*gm(1,1)& 2970 & *gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)*(36*gm(1,3)& 2971 & *dgm10(1,2)+36*gm(1,2)*dgm10(1,3)+60*gm(1,1)*dgm10(2,3))-12*gm(1,2)& 2972 & **2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)-24*gm(1,3)*dgm10(1,3)& 2973 & -6*gm(1,1)*dgm10(3,3)))+2*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,3)& 2974 & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)& 2975 & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))& 2976 & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+2*(-36*gm(1,2)& 2977 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2978 & *d2gm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2979 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2980 & *d2gm(3,3))/12.d0 2981 cm(3,15)=6*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(1,1)& 2982 & *dgm01(3,3)*dgm10(3,3)+18*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2983 & *dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)& 2984 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+6*(dgm01(1,1)*dgm10(3,3)& 2985 & +gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3))) 2986 cm(4,15)=gm(1,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)& 2987 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(3,3)**2*(dgm01(1,3)& 2988 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,2)*d2gm(1,3))+gm(2,3)& 2989 & *(24*gm(1,1)*dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(1,3)& 2990 & +dgm01(1,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(12*dgm01(3,3)& 2991 & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)& 2992 & +18*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(3,3)*(-9*gm(1,2)& 2993 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(dgm01(3,3)& 2994 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)& 2995 & +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)& 2996 & *dgm10(3,3)+3*gm(1,2)*d2gm(3,3))) 2997 cm(5,15)=-3*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)& 2998 & +gm(1,1)*d2gm(1,3))+gm(1,3)*(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)& 2999 & +13.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3000 & +1.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(1,1)*(dgm01(3,3)& 3001 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)+gm(1,3)& 3002 & *(7.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)& 3003 & *dgm10(3,3)+7.5d0*gm(1,1)*d2gm(3,3))) 3004 cm(6,15)=(-72*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)& 3005 & **2*dgm01(3,3)*dgm10(1,2)-54*gm(1,1)*gm(3,3)*dgm01(3,3)*dgm10(1,2)& 3006 & -72*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+180*gm(1,3)**2*dgm01(2,3)& 3007 & *dgm10(1,3)-36*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,3)+180*gm(1,3)& 3008 & **2*dgm01(1,3)*dgm10(2,3)-36*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,3)& 3009 & +144*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)& 3010 & *dgm10(3,3)-54*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+144*gm(1,1)& 3011 & *gm(1,3)*dgm01(2,3)*dgm10(3,3)+gm(1,2)*(-108*gm(1,1)*dgm01(3,3)& 3012 & *dgm10(3,3)-36*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3013 & +18*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,1)-144*dgm01(1,3)& 3014 & *dgm10(1,3)-54*dgm01(1,1)*dgm10(3,3)-72*gm(1,3)*d2gm(1,3)-54*gm(1,1)& 3015 & *d2gm(3,3)))+gm(2,3)*(108*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3016 & *dgm10(3,3))+180*gm(1,3)**2*d2gm(1,3)-36*gm(3,3)*(dgm01(1,3)& 3017 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)& 3018 & *(144*dgm01(3,3)*dgm10(1,1)+720*dgm01(1,3)*dgm10(1,3)+144*dgm01(1,1)& 3019 & *dgm10(3,3)+144*gm(1,1)*d2gm(3,3))))/12.d0 3020 cm(7,15)=(-54*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3021 & *dgm10(3,3))+180*gm(2,3)**3*d2gm(1,3)+gm(2,3)**2*(270*dgm01(3,3)& 3022 & *dgm10(1,2)+540*dgm01(2,3)*dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)& 3023 & +270*dgm01(1,2)*dgm10(3,3)+270*gm(1,2)*d2gm(3,3))+gm(2,2)*(-108*(gm(1,2)& 3024 & *dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3025 & *dgm10(3,3)))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)& 3026 & *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3)& 3027 & -54*gm(1,2)*d2gm(3,3)))+gm(2,3)*(-108*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 3028 & +540*gm(1,2)*dgm01(3,3)*dgm10(2,3)-108*gm(1,3)*dgm01(2,2)*dgm10(3,3)& 3029 & +540*gm(1,2)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,2)*dgm10(1,3)& 3030 & +dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))+gm(2,2)*(-216*dgm01(3,3)& 3031 & *dgm10(1,3)-216*dgm01(1,3)*dgm10(3,3)-108*gm(1,3)*d2gm(3,3))))& 3032 & /36.d0 3033 cm(8,15)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)& 3034 & *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)& 3035 & *dgm10(3,3)+gm(2,3)*d2gm(1,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)& 3036 & *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3037 & *dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,3)+15*dgm01(1,3)& 3038 & *dgm10(3,3)+3*gm(1,3)*d2gm(3,3))) 3039 cm(9,15)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)& 3040 & **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))& 3041 & +gm(2,3)**2*(10.5d0*dgm01(3,3)*dgm10(1,3)+10.5d0*dgm01(1,3)*dgm10(3,3)& 3042 & +9*gm(3,3)*d2gm(1,3)+1.5d0*gm(1,3)*d2gm(3,3))+gm(2,3)*(24*gm(1,2)& 3043 & *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3044 & *dgm10(3,3))+gm(3,3)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)& 3045 & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)& 3046 & +12*gm(1,2)*d2gm(3,3)))+gm(3,3)*(-4.5d0*gm(1,3)*(dgm01(3,3)*dgm10(2,2)& 3047 & +dgm01(2,2)*dgm10(3,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3048 & *dgm10(3,3))+gm(2,2)*(-10.5d0*dgm01(3,3)*dgm10(1,3)-10.5d0*dgm01(1,3)& 3049 & *dgm10(3,3)-4.5d0*gm(1,3)*d2gm(3,3))) 3050 cm(10,15)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 3051 & **2*d2gm(1,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)& 3052 & +3*gm(1,3)*d2gm(3,3))) 3053 cm(1,16)=(270*gm(1,2)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3054 & -54*gm(1,1)*gm(2,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3055 & +90*gm(1,2)**3*d2gm(2,2)+gm(1,2)*(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)& 3056 & -54*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)& 3057 & *d2gm(2,2))))/36.d0 3058 cm(2,16)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)& 3059 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))) 3060 cm(3,16)=((90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)& 3061 & +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)& 3062 & *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)& 3063 & -18*gm(1,2)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)*(90*gm(2,3)**2*dgm10(1,2)& 3064 & -18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)& 3065 & -36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)& 3066 & *dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+(-36*gm(1,3)& 3067 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3068 & *d2gm(2,2))/12.d0 3069 cm(4,16)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)& 3070 & **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(1,3)*d2gm(2,2))& 3071 & +gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)& 3072 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 3073 & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))) 3074 cm(5,16)=((-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)& 3075 & *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)& 3076 & *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)& 3077 & -18*gm(1,1)*dgm01(2,3)))*dgm10(2,2)+dgm01(2,2)*(-18*gm(1,1)*gm(2,3)& 3078 & *dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))& 3079 & +90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)& 3080 & *dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+(-36*gm(1,2)& 3081 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3082 & *d2gm(2,2))/12.d0 3083 cm(6,16)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)**2*(dgm01(2,2)& 3084 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(2,2)& 3085 & *(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,2)*dgm10(1,2)& 3086 & +dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(2,2)) 3087 cm(7,16)=gm(2,2)**2*(6*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2)) 3088 cm(8,16)=9*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3089 & *dgm10(2,3))+gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)& 3090 & *d2gm(2,2))+gm(2,2)*(-1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3091 & *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)& 3092 & *d2gm(2,2))) 3093 cm(9,16)=gm(2,2)*(3*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3094 & *dgm10(2,3))+gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2))) 3095 cm(10,16)=(270*gm(2,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3096 & *dgm10(2,3))-54*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3097 & *dgm10(2,3))+90*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(-54*gm(2,2)*(dgm01(3,3)& 3098 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-108*dgm01(2,2)*dgm10(2,2)& 3099 & -54*gm(2,2)*d2gm(2,2))))/36.d0 3100 cm(1,17)=(3*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)& 3101 & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)& 3102 & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)& 3103 & +gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(3,3)*(270*gm(1,2)**2*dgm10(1,2)& 3104 & -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)& 3105 & +gm(1,1)*dgm10(2,2)))+6*(90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)& 3106 & *dgm01(1,2)-18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)& 3107 & +180*gm(1,2)*dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)& 3108 & *dgm01(1,1)+gm(1,1)*dgm01(2,3)))*dgm10(2,3)+6*dgm01(2,3)*(90*gm(1,2)& 3109 & **2*dgm10(1,3)+gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))& 3110 & +gm(1,3)*(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)& 3111 & *dgm10(2,2))-36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))& 3112 & +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)& 3113 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(2,2)& 3114 & *(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)& 3115 & *dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)& 3116 & -36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)& 3117 & *dgm10(3,3)))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3118 & **2-18*gm(1,1)*gm(3,3)))*d2gm(2,2)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3119 & *(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)& 3120 & *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0 3121 cm(2,17)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+1.5d0*gm(2,3)& 3122 & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))& 3123 & +gm(2,2)*(36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3124 & +gm(1,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)& 3125 & +1.5d0*dgm01(2,2)*dgm10(3,3))-4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,2)& 3126 & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))+gm(2,3)*(24*gm(1,3)& 3127 & *dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3128 & *dgm10(2,3))+gm(2,2)*(6*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)& 3129 & +12*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)& 3130 & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(3*dgm01(3,3)*dgm10(1,2)& 3131 & +12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)& 3132 & *dgm10(3,3)+12*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3)) 3133 cm(3,17)=gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(1,3)& 3134 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(2,2)& 3135 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)& 3136 & **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)& 3137 & *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)& 3138 & *d2gm(3,3))+gm(3,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+10.5d0*gm(1,2)& 3139 & *dgm01(3,3)*dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,2)& 3140 & *dgm01(2,3)*dgm10(2,3)+10.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)& 3141 & *(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 3142 & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+24*gm(1,2)& 3143 & *d2gm(2,3))+gm(2,2)*(-1.5d0*dgm01(3,3)*dgm10(1,2)-9*dgm01(2,3)& 3144 & *dgm10(1,3)-9*dgm01(1,3)*dgm10(2,3)-1.5d0*dgm01(1,2)*dgm10(3,3)& 3145 & -9*gm(1,3)*d2gm(2,3)-1.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)& 3146 & *(0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+0*dgm01(2,2)& 3147 & *dgm10(3,3))+39*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3148 & -3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)& 3149 & *d2gm(3,3))) 3150 cm(4,17)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(1,2)& 3151 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(6*dgm01(2,3)& 3152 & *dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)& 3153 & *dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)& 3154 & *(gm(1,3)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)& 3155 & *dgm10(3,3))+33*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3156 & +gm(3,3)*(24*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)& 3157 & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)+24*gm(1,2)& 3158 & *d2gm(2,3)))-3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)& 3159 & +gm(1,3)*d2gm(3,3))+gm(2,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 3160 & +12*gm(1,2)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,2)*dgm10(2,3)& 3161 & +24*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)*dgm01(2,2)*dgm10(3,3)& 3162 & +3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)& 3163 & *d2gm(2,2))+gm(2,2)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)& 3164 & +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)& 3165 & +9*gm(1,2)*d2gm(3,3))) 3166 cm(5,17)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)& 3167 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(2,2)& 3168 & *dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)& 3169 & *gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)& 3170 & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)& 3171 & *dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)& 3172 & -4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)& 3173 & *dgm01(2,2)*dgm10(2,3)+36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)& 3174 & +22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)+9*gm(1,2)*gm(1,3)*dgm01(2,2)& 3175 & *dgm10(3,3)+22.5d0*gm(1,2)**2*dgm01(2,3)*dgm10(3,3)+12*gm(1,2)& 3176 & *gm(1,3)*gm(3,3)*d2gm(2,2)+15*gm(1,2)**2*gm(3,3)*d2gm(2,3)-6*gm(2,3)& 3177 & **2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))& 3178 & +gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(3,3)& 3179 & *dgm10(1,2)+3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(2,3)& 3180 & *dgm10(1,3)+3*gm(1,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)*dgm01(3,3)& 3181 & *dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)*dgm01(1,3)& 3182 & *dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(1,2)& 3183 & *dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)+1.5d0*gm(1,3)**2*d2gm(2,2)& 3184 & -4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)& 3185 & *d2gm(2,2))+18*gm(1,2)*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)**2*d2gm(3,3)& 3186 & -1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)& 3187 & *d2gm(3,3)))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)& 3188 & *dgm01(3,3)*dgm10(2,3)-3*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)& 3189 & *dgm01(2,3)*dgm10(3,3)-6*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)& 3190 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)& 3191 & *(-3*dgm01(3,3)*dgm10(1,2)-12*dgm01(2,3)*dgm10(1,3)-12*dgm01(1,3)& 3192 & *dgm10(2,3)-3*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3))) 3193 cm(6,17)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)& 3194 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 3195 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)& 3196 & *dgm10(2,2)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)& 3197 & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)& 3198 & +1.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)& 3199 & *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)& 3200 & +gm(1,1)*d2gm(2,2))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)& 3201 & +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)& 3202 & -15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)& 3203 & -15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 3204 & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+3*gm(1,2)**2*d2gm(2,3)& 3205 & -9*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)& 3206 & *d2gm(2,3)))-1.5d0*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 3207 & *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(2,2)*(9*gm(1,2)*dgm01(3,3)& 3208 & *dgm10(1,2)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)& 3209 & *dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)& 3210 & *dgm10(2,3)+9*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)& 3211 & *dgm10(3,3)+7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)& 3212 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(1,3)& 3213 & *(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)& 3214 & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*d2gm(2,3))+4.5d0*gm(1,2)& 3215 & **2*d2gm(3,3)) 3216 cm(7,17)=gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)*d2gm(2,2))& 3217 & +gm(2,2)*gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)& 3218 & +6*gm(2,2)*d2gm(2,3))+gm(2,2)*(gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)& 3219 & -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)& 3220 & +12*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)& 3221 & *d2gm(3,3))) 3222 cm(8,17)=-3*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+24*gm(2,2)*gm(2,3)& 3223 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(2,2)& 3224 & *dgm10(2,2)+6*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)& 3225 & **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)& 3226 & *dgm10(3,3)+4.5d0*gm(2,2)*d2gm(3,3))+gm(3,3)*(3*gm(2,3)**2*d2gm(2,2)& 3227 & +gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)& 3228 & *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)& 3229 & +9*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3))) 3230 cm(9,17)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(10.5d0*dgm01(2,3)& 3231 & *dgm10(2,2)+10.5d0*dgm01(2,2)*dgm10(2,3)+6*gm(2,2)*d2gm(2,3))& 3232 & +gm(2,2)*(15*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3233 & +gm(3,3)*(31.5d0*dgm01(2,3)*dgm10(2,2)+31.5d0*dgm01(2,2)*dgm10(2,3)& 3234 & +12*gm(2,2)*d2gm(2,3)))+gm(2,3)*(gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)& 3235 & +7.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(13.5d0*dgm01(3,3)*dgm10(2,2)& 3236 & +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)& 3237 & *d2gm(3,3))) 3238 cm(10,17)=gm(3,3)**2*(0*dgm01(2,3)*dgm10(2,2)+0*dgm01(2,2)*dgm10(2,3)& 3239 & +3*gm(2,3)*d2gm(2,2)-3*gm(2,2)*d2gm(2,3))+gm(2,3)*(-3*gm(2,2)& 3240 & *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)& 3241 & +dgm01(2,3)*dgm10(3,3))+2.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(2,2)& 3242 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)& 3243 & +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)& 3244 & +4.5d0*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3))) 3245 cm(1,18)=(gm(1,2)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)& 3246 & *dgm10(1,3)+270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3))& 3247 & +gm(1,1)*(-108*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3248 & +gm(2,2)*(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)& 3249 & -54*dgm01(1,3)*dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)))+gm(1,3)& 3250 & *(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)+540*gm(1,2)*(dgm01(2,2)& 3251 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+270*gm(1,2)**2*d2gm(2,2)-54*gm(2,2)& 3252 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2)))& 3253 & +180*gm(1,2)**3*d2gm(2,3)+gm(1,2)*(-216*gm(1,1)*(dgm01(2,3)*dgm10(2,2)& 3254 & +dgm01(2,2)*dgm10(2,3))-108*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3255 & *dgm10(2,2)+gm(1,1)*d2gm(2,2))-108*gm(2,2)*(dgm01(2,3)*dgm10(1,1)& 3256 & +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))))/36.d0 3257 cm(2,18)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,3)& 3258 & *dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3259 & *dgm10(2,3))+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)& 3260 & +gm(1,2)*d2gm(2,2)))+6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)& 3261 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)+gm(1,3)& 3262 & *d2gm(2,2)+gm(1,2)*d2gm(2,3)) 3263 cm(3,18)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)& 3264 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(15*dgm01(2,3)& 3265 & *dgm10(1,2)+1.5d0*dgm01(2,2)*dgm10(1,3)+1.5d0*dgm01(1,3)*dgm10(2,2)& 3266 & +15*dgm01(1,2)*dgm10(2,3)+1.5d0*gm(1,3)*d2gm(2,2)+15*gm(1,2)& 3267 & *d2gm(2,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)& 3268 & *dgm10(2,3)-4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(1,2)*(dgm01(3,3)& 3269 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,2)& 3270 & -4.5d0*dgm01(2,2)*dgm10(1,3)-4.5d0*dgm01(1,3)*dgm10(2,2)-3*dgm01(1,2)& 3271 & *dgm10(2,3)-4.5d0*gm(1,3)*d2gm(2,2)-3*gm(1,2)*d2gm(2,3)))+gm(2,3)& 3272 & *(-3*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)& 3273 & -3*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)*dgm10(2,3)& 3274 & +12*gm(1,2)*dgm01(2,2)*dgm10(3,3)+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)& 3275 & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-6*gm(2,2)*(dgm01(2,3)& 3276 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+gm(1,3)*d2gm(2,3))) 3277 cm(4,18)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(2,3)& 3278 & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))& 3279 & +gm(2,2)*(-9*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3280 & +gm(1,2)*(12*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)& 3281 & *dgm10(3,3))+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)& 3282 & +gm(1,2)*d2gm(2,2)))-6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3283 & *dgm10(2,3)+gm(1,3)*d2gm(2,3))+gm(2,3)*(6*gm(1,3)*dgm01(2,2)& 3284 & *dgm10(2,2)+24*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3285 & +gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)& 3286 & *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+18*gm(1,2)& 3287 & *d2gm(2,3))) 3288 cm(5,18)=15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+15*gm(1,2)& 3289 & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)& 3290 & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(2,3)& 3291 & *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+3*gm(1,2)& 3292 & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+30*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)& 3293 & +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)& 3294 & *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)& 3295 & +gm(1,1)*d2gm(2,2))+gm(2,3)*(30*gm(1,2)*dgm01(2,3)*dgm10(1,2)& 3296 & +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)& 3297 & -9*gm(1,1)*dgm01(2,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,2)*dgm10(2,3)& 3298 & -9*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 3299 & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+15*gm(1,2)**2*d2gm(2,3)& 3300 & -3*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)& 3301 & *d2gm(2,3)))+gm(2,2)*(-6*gm(1,2)*dgm01(2,3)*dgm10(1,3)-1.5d0*gm(1,1)& 3302 & *dgm01(3,3)*dgm10(2,2)-6*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)& 3303 & *dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)& 3304 & **2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3305 & *dgm10(2,2)+gm(1,1)*d2gm(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(1,2)& 3306 & +dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)& 3307 & +gm(1,2)*d2gm(2,3))) 3308 cm(6,18)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)& 3309 & *dgm01(2,2)*dgm10(2,2)+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3310 & *dgm10(2,2)))+gm(1,2)**2*(10.5d0*dgm01(2,3)*dgm10(2,2)+10.5d0*dgm01(2,2)& 3311 & *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(2,2))-3*gm(2,2)**2*(dgm01(2,3)& 3312 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(2,2)& 3313 & *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)& 3314 & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-10.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)& 3315 & +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)-10.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)& 3316 & -4.5d0*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)& 3317 & *d2gm(2,2))+12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)& 3318 & +gm(1,2)*d2gm(2,2))+9*gm(1,2)**2*d2gm(2,3)) 3319 cm(7,18)=gm(2,2)*(gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)& 3320 & *d2gm(2,2))+gm(2,2)*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)*dgm10(2,3)& 3321 & +2*gm(2,2)*d2gm(2,3))) 3322 cm(8,18)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(gm(2,2)*(7.5d0*dgm01(3,3)& 3323 & *dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)*dgm10(3,3))& 3324 & +gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)+7.5d0*gm(2,2)*d2gm(2,2)))& 3325 & +gm(2,3)**2*(13.5d0*dgm01(2,3)*dgm10(2,2)+13.5d0*dgm01(2,2)*dgm10(2,3)& 3326 & +9*gm(2,2)*d2gm(2,3))+gm(2,2)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(2,3)& 3327 & +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(2,3)*dgm10(2,2)& 3328 & +1.5d0*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3))) 3329 cm(9,18)=gm(2,3)**2*(6*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2))& 3330 & +gm(2,2)*(gm(2,2)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)& 3331 & +6*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(24*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)& 3332 & *d2gm(2,2)))+gm(2,2)*gm(2,3)*(18*dgm01(2,3)*dgm10(2,2)+18*dgm01(2,2)& 3333 & *dgm10(2,3)+6*gm(2,2)*d2gm(2,3)) 3334 cm(10,18)=gm(3,3)**2*(-3*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)& 3335 & *d2gm(2,2))+gm(2,3)*(gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)& 3336 & *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(2,2)*(dgm01(3,3)& 3337 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+5*gm(2,3)**2*d2gm(2,3))+gm(3,3)& 3338 & *(gm(2,2)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)& 3339 & *dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(2,2)+gm(2,3)*(6*dgm01(2,3)& 3340 & *dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3))) 3341 cm(1,19)=((270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)& 3342 & -54*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)& 3343 & +6*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)& 3344 & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)& 3345 & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)& 3346 & +gm(1,1)*dgm01(3,3)))*dgm10(2,3)+3*dgm01(3,3)*(90*gm(1,2)**2*dgm10(1,3)& 3347 & +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)& 3348 & *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))& 3349 & -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)& 3350 & **2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)-18*gm(2,2)*dgm01(1,3))& 3351 & +gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)*dgm01(1,2)-18*gm(1,1)& 3352 & *dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)+gm(1,1)*dgm01(2,3)))& 3353 & *dgm10(3,3)+6*dgm01(2,3)*(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)& 3354 & *dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)& 3355 & +180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)& 3356 & *dgm10(1,1)+gm(1,1)*dgm10(3,3)))+dgm01(2,2)*(270*gm(1,3)**2*dgm10(1,3)& 3357 & -54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)*(gm(3,3)*dgm10(1,1)& 3358 & +gm(1,1)*dgm10(3,3)))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 3359 & *d2gm(2,2)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3360 & **2-18*gm(1,1)*gm(3,3)))*d2gm(2,3)+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3361 & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*d2gm(3,3))/36.d0 3362 cm(2,19)=gm(3,3)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(1,2)& 3363 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(3*dgm01(2,3)& 3364 & *dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)& 3365 & +3*dgm01(1,2)*dgm10(2,3)+7.5d0*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))& 3366 & +gm(2,2)*(gm(1,3)*(10.5d0*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)& 3367 & *dgm10(2,3)+10.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)& 3368 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-9*dgm01(2,3)*dgm10(1,2)& 3369 & -1.5d0*dgm01(2,2)*dgm10(1,3)-1.5d0*dgm01(1,3)*dgm10(2,2)-9*dgm01(1,2)& 3370 & *dgm10(2,3)-1.5d0*gm(1,3)*d2gm(2,2)-9*gm(1,2)*d2gm(2,3)))+6*gm(2,2)& 3371 & **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))& 3372 & +gm(2,3)*(39*gm(1,3)*dgm01(2,3)*dgm10(2,2)+0*gm(1,2)*dgm01(3,3)& 3373 & *dgm10(2,2)+39*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)& 3374 & *dgm10(2,3)+0*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)& 3375 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)& 3376 & *(3*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)& 3377 & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)*d2gm(2,3)+3*gm(1,2)& 3378 & *d2gm(3,3))) 3379 cm(3,19)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(24*gm(1,2)& 3380 & *dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3381 & *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)& 3382 & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)& 3383 & +3*gm(1,3)*d2gm(2,2)+12*gm(1,2)*d2gm(2,3))+1.5d0*gm(2,3)**2*(dgm01(3,3)& 3384 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)& 3385 & *(1.5d0*gm(1,3)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)& 3386 & +36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+1.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)& 3387 & +36*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(12*dgm01(3,3)*dgm10(1,2)& 3388 & +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)& 3389 & *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+12*gm(1,2)*d2gm(3,3))-4.5d0*gm(2,2)& 3390 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))) 3391 cm(4,19)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(1,3)& 3392 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)& 3393 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)& 3394 & **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)& 3395 & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)& 3396 & *d2gm(3,3))+gm(3,3)*(33*gm(1,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)& 3397 & *dgm01(3,3)*dgm10(2,2)+33*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)& 3398 & *dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)& 3399 & *(6*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)& 3400 & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+9*gm(1,3)*d2gm(2,2)+6*gm(1,2)& 3401 & *d2gm(2,3))+gm(2,2)*(12*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)& 3402 & +24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)& 3403 & *d2gm(2,3)+12*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(12*dgm01(3,3)& 3404 & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)*dgm10(3,3))& 3405 & +12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(2,2)& 3406 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))) 3407 cm(5,19)=-6*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+1.5d0*gm(1,3)& 3408 & **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)& 3409 & +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-6*gm(1,3)*gm(2,2)*dgm01(1,3)& 3410 & *dgm10(3,3)+1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+33*gm(1,2)& 3411 & *gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)& 3412 & -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(2,2)& 3413 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))-3*gm(1,3)& 3414 & **2*gm(2,2)*d2gm(3,3)-3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 3415 & *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)*(24*gm(1,3)*dgm01(2,3)& 3416 & *dgm10(1,2)+15*gm(1,2)*dgm01(3,3)*dgm10(1,2)+9*gm(1,3)*dgm01(2,2)& 3417 & *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+9*gm(1,3)*dgm01(1,3)& 3418 & *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)& 3419 & *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)& 3420 & *dgm10(2,3)+15*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)& 3421 & *dgm10(3,3)+4.5d0*gm(1,3)**2*d2gm(2,2)+24*gm(1,2)*gm(1,3)*d2gm(2,3)& 3422 & -9*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)& 3423 & *d2gm(2,3))+7.5d0*gm(1,2)**2*d2gm(3,3)-1.5d0*gm(2,2)*(dgm01(3,3)& 3424 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,3)& 3425 & *(9*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)& 3426 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)& 3427 & +gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)& 3428 & *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3))) 3429 cm(6,19)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-12*gm(1,2)& 3430 & *gm(3,3)*dgm01(2,3)*dgm10(1,2)-3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)& 3431 & -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,3)& 3432 & *dgm10(2,2)+22.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)& 3433 & *gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)& 3434 & -12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+22.5d0*gm(1,3)**2*dgm01(2,2)& 3435 & *dgm10(2,3)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)& 3436 & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)& 3437 & +9*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-4.5d0*gm(1,2)**2*dgm01(2,3)& 3438 & *dgm10(3,3)-3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)& 3439 & *d2gm(2,3)-6*gm(2,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)& 3440 & +gm(1,1)*d2gm(2,3))+gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)& 3441 & +3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+15*gm(1,3)*dgm01(2,2)*dgm10(1,3)& 3442 & +18*gm(1,2)*dgm01(2,3)*dgm10(1,3)+15*gm(1,3)*dgm01(1,3)*dgm10(2,2)& 3443 & -6*gm(1,1)*dgm01(3,3)*dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)& 3444 & +18*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 3445 & +3*gm(1,2)*dgm01(1,2)*dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)& 3446 & +7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)& 3447 & +dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+18*gm(1,2)*gm(1,3)& 3448 & *d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)-4.5d0*gm(2,2)*(dgm01(3,3)& 3449 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,2)& 3450 & *(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)& 3451 & +12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)& 3452 & +15*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3453 & *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)& 3454 & +30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)& 3455 & *dgm10(3,3)+12*gm(1,2)*d2gm(3,3))) 3456 cm(7,19)=-7.5d0*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3457 & *dgm10(2,3))+2.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(16.5d0*dgm01(2,3)& 3458 & *dgm10(2,2)+16.5d0*dgm01(2,2)*dgm10(2,3)+9*gm(2,2)*d2gm(2,3))& 3459 & +gm(2,2)**2*(0*dgm01(3,3)*dgm10(2,3)+0*dgm01(2,3)*dgm10(3,3)& 3460 & -3*gm(3,3)*d2gm(2,3))+gm(2,3)*(gm(3,3)*(-3*dgm01(2,2)*dgm10(2,2)& 3461 & -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)& 3462 & +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)& 3463 & *d2gm(3,3))) 3464 cm(8,19)=gm(3,3)**2*(15*dgm01(2,3)*dgm10(2,2)+15*dgm01(2,2)& 3465 & *dgm10(2,3)+3*gm(2,3)*d2gm(2,2)+12*gm(2,2)*d2gm(2,3))+gm(2,3)& 3466 & *(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(2,3)*(dgm01(3,3)& 3467 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3))& 3468 & +gm(3,3)*(31.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3469 & +6*gm(2,3)**2*d2gm(2,3)+gm(2,3)*(13.5d0*dgm01(3,3)*dgm10(2,2)& 3470 & +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(2,2)& 3471 & *d2gm(3,3))) 3472 cm(9,19)=12*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+21*gm(2,2)*gm(2,3)& 3473 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(2,2)& 3474 & *dgm10(2,2)-1.5d0*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)& 3475 & **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)& 3476 & *dgm10(3,3)+3*gm(2,2)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(2,3)**2*d2gm(2,2)& 3477 & +gm(2,3)*(24*dgm01(2,3)*dgm10(2,2)+24*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)& 3478 & *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)& 3479 & +9*dgm01(2,2)*dgm10(3,3)+6*gm(2,2)*d2gm(3,3))) 3480 cm(10,19)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(2,2)& 3481 & +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)& 3482 & +1.5d0*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)*d2gm(2,3)-1.5d0*gm(2,2)& 3483 & *d2gm(3,3))+gm(3,3)*(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+21*gm(2,3)& 3484 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)& 3485 & **2*d2gm(3,3)) 3486 cm(1,20)=(gm(1,1)*(gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)& 3487 & *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3))& 3488 & -108*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+180*gm(1,3)& 3489 & **3*d2gm(2,3)+gm(1,3)**2*(270*dgm01(3,3)*dgm10(1,2)+540*dgm01(2,3)& 3490 & *dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)+270*dgm01(1,2)*dgm10(3,3)& 3491 & +270*gm(1,2)*d2gm(3,3))+gm(1,3)*(540*gm(1,2)*dgm01(3,3)*dgm10(1,3)& 3492 & -216*gm(1,1)*dgm01(3,3)*dgm10(2,3)+540*gm(1,2)*dgm01(1,3)*dgm10(3,3)& 3493 & -216*gm(1,1)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,3)*dgm10(1,1)& 3494 & +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))-108*gm(2,3)*(dgm01(3,3)& 3495 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(1,2)& 3496 & *(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)-54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)& 3497 & +dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))))/36.d0 3498 cm(2,20)=(gm(3,3)*(-36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3499 & *dgm10(2,3))+gm(1,2)*(-54*dgm01(3,3)*dgm10(2,2)-144*dgm01(2,3)& 3500 & *dgm10(2,3)-54*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(18*dgm01(3,3)& 3501 & *dgm10(1,2)+180*dgm01(2,3)*dgm10(1,3)+180*dgm01(1,3)*dgm10(2,3)& 3502 & +18*dgm01(1,2)*dgm10(3,3)+180*gm(1,3)*d2gm(2,3)+18*gm(1,2)*d2gm(3,3))& 3503 & +gm(2,2)*(-108*gm(1,2)*dgm01(3,3)*dgm10(3,3)+108*gm(1,3)*(dgm01(3,3)& 3504 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)& 3505 & -36*dgm01(2,3)*dgm10(1,3)-36*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)& 3506 & *dgm10(3,3)-36*gm(1,3)*d2gm(2,3)-54*gm(1,2)*d2gm(3,3)))+gm(2,3)& 3507 & *(144*gm(1,3)*dgm01(3,3)*dgm10(2,2)+720*gm(1,3)*dgm01(2,3)*dgm10(2,3)& 3508 & -36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+144*gm(1,3)*dgm01(2,2)*dgm10(3,3)& 3509 & -36*gm(1,2)*dgm01(2,3)*dgm10(3,3)-72*gm(3,3)*(dgm01(2,3)*dgm10(1,2)& 3510 & +dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+144*gm(2,2)*(dgm01(3,3)& 3511 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))))/12.d0 3512 cm(3,20)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)& 3513 & *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)& 3514 & *dgm10(3,3)+gm(1,3)*d2gm(2,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)& 3515 & *dgm01(3,3)*dgm10(3,3)+15*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3516 & *dgm10(3,3))+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)& 3517 & +gm(1,3)*d2gm(3,3))) 3518 cm(4,20)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)& 3519 & *dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3520 & *dgm10(3,3)))-6*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3521 & *dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)& 3522 & +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)& 3523 & *dgm01(3,3)*dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-9*gm(1,2)& 3524 & *dgm01(3,3)*dgm10(2,3)+12*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,2)& 3525 & *dgm01(2,3)*dgm10(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)& 3526 & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)& 3527 & +18*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+12*gm(2,2)*(dgm01(3,3)& 3528 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))) 3529 cm(5,20)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)& 3530 & *dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3531 & *dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3532 & *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)**2*(10.5d0*dgm01(3,3)& 3533 & *dgm10(2,3)+10.5d0*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)*d2gm(3,3))& 3534 & +gm(3,3)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-10.5d0*gm(1,1)*dgm01(3,3)& 3535 & *dgm10(2,3)+12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-10.5d0*gm(1,1)*dgm01(2,3)& 3536 & *dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)-4.5d0*gm(2,3)*(dgm01(3,3)& 3537 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(1,3)& 3538 & *(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)& 3539 & *dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3))) 3540 cm(6,20)=(2*(90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)& 3541 & -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)& 3542 & *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)& 3543 & +gm(1,2)*dgm01(3,3)))*dgm10(2,3)+3*(-12*gm(2,3)**2*dgm01(1,1)& 3544 & -24*gm(1,2)*gm(3,3)*dgm01(1,2)+30*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)& 3545 & *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)& 3546 & *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)-24*gm(1,1)*dgm01(2,3))-12*gm(1,2)& 3547 & **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)+60*gm(1,3)*dgm01(1,3)& 3548 & -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(-12*gm(2,3)& 3549 & **2*dgm10(1,1)-24*gm(1,2)*gm(3,3)*dgm10(1,2)+30*gm(1,3)**2*dgm10(2,2)& 3550 & -6*gm(1,1)*gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)& 3551 & *(36*gm(1,3)*dgm10(1,2)+36*gm(1,2)*dgm10(1,3)-24*gm(1,1)*dgm10(2,3))& 3552 & -12*gm(1,2)**2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)+60*gm(1,3)& 3553 & *dgm10(1,3)-6*gm(1,1)*dgm10(3,3)))+2*dgm01(2,3)*(90*gm(1,3)**2*dgm10(2,3)& 3554 & +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)& 3555 & *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))& 3556 & -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+2*(90*gm(1,3)& 3557 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3558 & *d2gm(2,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3559 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3560 & *d2gm(3,3))/12.d0 3561 cm(7,20)=5*gm(2,3)**3*d2gm(2,3)+gm(2,3)*(6*gm(2,2)*(dgm01(3,3)& 3562 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(2,3)*dgm10(2,2)& 3563 & +dgm01(2,2)*dgm10(2,3)+gm(2,2)*d2gm(2,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)& 3564 & *dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)& 3565 & +4.5d0*gm(2,2)*d2gm(3,3))+gm(2,2)*(-3*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 3566 & +gm(3,3)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)& 3567 & *dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3))) 3568 cm(8,20)=6*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(2,2)& 3569 & *dgm01(3,3)*dgm10(3,3)+18*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3570 & *dgm10(3,3))+3*gm(2,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)& 3571 & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*(dgm01(2,2)*dgm10(3,3)& 3572 & +gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3))) 3573 cm(9,20)=-3*gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)& 3574 & +gm(2,2)*d2gm(2,3))+gm(2,3)*(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 3575 & +13.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3576 & +1.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(2,2)*(dgm01(3,3)& 3577 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)+gm(2,3)& 3578 & *(7.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)& 3579 & *dgm10(3,3)+7.5d0*gm(2,2)*d2gm(3,3))) 3580 cm(10,20)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 3581 & **2*d2gm(2,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)& 3582 & +3*gm(2,3)*d2gm(3,3))) 3583 cm(1,21)=(270*gm(1,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3584 & -54*gm(1,1)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3585 & +90*gm(1,3)**3*d2gm(3,3)+gm(1,3)*(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)& 3586 & -54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)& 3587 & *d2gm(3,3))))/36.d0 3588 cm(2,21)=((90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)& 3589 & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)& 3590 & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)& 3591 & +gm(1,3)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(2,3)**2*dgm10(1,3)& 3592 & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)& 3593 & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))& 3594 & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+(-36*gm(1,2)& 3595 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3596 & *d2gm(3,3))/12.d0 3597 cm(3,21)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)& 3598 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))) 3599 cm(4,21)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)& 3600 & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(1,2)*d2gm(3,3))& 3601 & +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)& 3602 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)& 3603 & +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))) 3604 cm(5,21)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)& 3605 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)& 3606 & *(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(1,3)& 3607 & +dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(3,3)) 3608 cm(6,21)=((90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)& 3609 & -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)& 3610 & *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)& 3611 & +gm(1,2)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(1,3)**2*dgm10(2,3)& 3612 & +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)& 3613 & *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))& 3614 & -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+(90*gm(1,3)& 3615 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3616 & *d2gm(3,3))/12.d0 3617 cm(7,21)=(270*gm(2,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3618 & -54*gm(2,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3619 & +90*gm(2,3)**3*d2gm(3,3)+gm(2,3)*(-108*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 3620 & -54*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)& 3621 & *d2gm(3,3))))/36.d0 3622 cm(8,21)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)& 3623 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))) 3624 cm(9,21)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)& 3625 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)*d2gm(3,3))+gm(3,3)& 3626 & *(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(2,3)& 3627 & +dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(3,3)) 3628 cm(10,21)=gm(3,3)**2*(6*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3)) 3629 end if 3630 ! 3631 !contraction to output scalar 3632 ! 3633 e2nl=0.d0 3634 do jj=1,((rank+3)*(rank+4))/2 3635 tmp(:)=0.d0 3636 do ii=1,((rank+1)*(rank+2))/2 3637 tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj) 3638 end do 3639 e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj) 3640 end do 3641 !factor of 2 multiplied in to drop call to conjugate contraction 3642 !e2nl=0.5d0*e2nl 3643 3644 ABI_FREE(cm) 3645 3646 end subroutine contstr23