TABLE OF CONTENTS
ABINIT/contstr21 [ Functions ]
NAME
contstr21
FUNCTION
Carries out specialized metric tensor operations needed for contraction of the 2nd strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander pseudopotential operation. Derivatives are wrt a pair of cartesian strain components. Full advantage is taken of the full permutational symmetry of these tensors.
COPYRIGHT
Copyright (C) 1998-2018 ABINIT group (DRH) This file is distributed under the terms of the GNU General Public License, see ~abinit/COPYING or http://www.gnu.org/copyleft/gpl.txt . For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
INPUTS
istr1=1,...6 specifies cartesian strain component 11,22,33,32,31,21 istr2=seccond strain component rank=angular momentum gm(3,3)=metric tensor (array is symmetric but stored as 3x3) gprimd(3,3)=reciprocal space dimensional primitive translations aa(2,*)=unique elements of complex right-hand tensor bb(2,*)=unique elements of complex left-hand tensor
OUTPUT
e2nl=contraction for nonlocal 2nd-order strain derivative energy
NOTES
All tensors are stored in a compressed storage mode defined below; input and output conform to this scheme. When tensor elements occur repeatedly due to symmetry, the WEIGHT IS INCLUDED in the output tensor element to simplify later contractions with other tensors of the same rank and form, i.e. the next contraction is then simply a dot product over the unique elements.
PARENTS
nonlop_pl
CHILDREN
SOURCE
48 #if defined HAVE_CONFIG_H 49 #include "config.h" 50 #endif 51 52 #include "abi_common.h" 53 54 subroutine contstr21(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb) 55 56 use m_profiling_abi 57 58 use defs_basis 59 60 !This section has been created automatically by the script Abilint (TD). 61 !Do not modify the following lines by hand. 62 #undef ABI_FUNC 63 #define ABI_FUNC 'contstr21' 64 !End of the abilint section 65 66 implicit none 67 68 !Arguments ------------------------------------ 69 !scalars 70 integer,intent(in) :: istr1,istr2,rank 71 real(dp),intent(out) :: e2nl 72 !arrays 73 real(dp),intent(in) :: aa(2,((rank+1)*(rank+2))/2),bb(2,((rank+6)*(rank+5))/2) 74 real(dp),intent(in) :: gm(3,3),gprimd(3,3) 75 76 !Local variables------------------------------- 77 !scalars 78 integer,parameter :: mrank=3 79 integer :: ii,jj,ka,kb,kd,kg 80 !arrays 81 integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/) 82 real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2) 83 real(dp),allocatable :: cm(:,:) 84 85 ! ************************************************************************* 86 ABI_ALLOCATE(cm,(((mrank+1)*(mrank+2))/2,((mrank+5)*(mrank+6))/2)) 87 88 ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2) 89 90 do ii = 1,3 91 dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii)) 92 dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii)) 93 end do 94 95 d2gm(:,:)=0.d0 96 do ii = 1,3 97 if(ka==kg) d2gm(:,ii)=d2gm(:,ii)& 98 & +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii) 99 if(ka==kd) d2gm(:,ii)=d2gm(:,ii)& 100 & +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii) 101 if(kb==kg) d2gm(:,ii)=d2gm(:,ii)& 102 & +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii) 103 if(kb==kd) d2gm(:,ii)=d2gm(:,ii)& 104 & +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii) 105 end do 106 d2gm(:,:)=0.5d0*d2gm(:,:) 107 108 ! 109 !The code below was written by a Mathematica program and formatted by 110 !a combination of editing scripts. It is not intended to be read 111 !by human beings, and certainly not to be modified by one. Conceivably 112 !it could be shortened somewhat by identifying common subexpressions. 113 ! 114 115 if(rank==0)then 116 cm(1,1)=dgm01(1,1)*dgm10(1,1) 117 cm(1,2)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 118 & *dgm10(2,2) 119 cm(1,3)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 120 & *dgm10(3,3) 121 cm(1,4)=2*(dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)& 122 & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)) 123 cm(1,5)=2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)) 124 cm(1,6)=2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)) 125 cm(1,7)=2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)) 126 cm(1,8)=2*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)& 127 & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)) 128 cm(1,9)=2*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 129 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)) 130 cm(1,10)=2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)) 131 cm(1,11)=dgm01(2,2)*dgm10(2,2) 132 cm(1,12)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 133 & *dgm10(3,3) 134 cm(1,13)=2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)) 135 cm(1,14)=2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)) 136 cm(1,15)=dgm01(3,3)*dgm10(3,3) 137 elseif(rank==1)then 138 cm(1,1)=gm(1,1)*dgm01(1,1)*dgm10(1,1) 139 cm(2,1)=gm(1,2)*dgm01(1,1)*dgm10(1,1) 140 cm(3,1)=gm(1,3)*dgm01(1,1)*dgm10(1,1) 141 cm(1,2)=2*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 142 & +gm(1,1)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 143 & *dgm10(2,2)) 144 cm(2,2)=2*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 145 & +gm(1,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 146 & *dgm10(2,2)) 147 cm(3,2)=2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 148 & +gm(1,3)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)& 149 & *dgm10(2,2)) 150 cm(1,3)=2*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 151 & +gm(1,1)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 152 & *dgm10(3,3)) 153 cm(2,3)=2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 154 & +gm(1,2)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 155 & *dgm10(3,3)) 156 cm(3,3)=2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 157 & +gm(1,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)& 158 & *dgm10(3,3)) 159 cm(1,4)=2*((gm(1,3)*dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))& 160 & *dgm10(1,1)+(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(1,2)& 161 & +(gm(1,2)*dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(1,3)+gm(1,1)& 162 & *dgm01(1,1)*dgm10(2,3)) 163 cm(2,4)=2*((gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))& 164 & *dgm10(1,1)+(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(1,2)& 165 & +(gm(2,2)*dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(1,3)+gm(1,2)& 166 & *dgm01(1,1)*dgm10(2,3)) 167 cm(3,4)=2*((gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))& 168 & *dgm10(1,1)+(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(1,2)& 169 & +(gm(2,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(1,3)+gm(1,3)& 170 & *dgm01(1,1)*dgm10(2,3)) 171 cm(1,5)=gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*(dgm01(1,3)& 172 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)) 173 cm(2,5)=gm(2,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,2)*(dgm01(1,3)& 174 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)) 175 cm(3,5)=gm(3,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,3)*(dgm01(1,3)& 176 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)) 177 cm(1,6)=gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*(dgm01(1,2)& 178 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)) 179 cm(2,6)=gm(2,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,2)*(dgm01(1,2)& 180 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)) 181 cm(3,6)=gm(2,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,3)*(dgm01(1,2)& 182 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)) 183 cm(1,7)=gm(1,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)& 184 & +dgm01(1,1)*dgm10(2,2))+2*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 185 & *dgm10(2,2)) 186 cm(2,7)=gm(2,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)& 187 & +dgm01(1,1)*dgm10(2,2))+2*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 188 & *dgm10(2,2)) 189 cm(3,7)=gm(2,3)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)& 190 & +dgm01(1,1)*dgm10(2,2))+2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 191 & *dgm10(2,2)) 192 cm(1,8)=2*gm(1,3)*dgm01(2,3)*dgm10(1,1)+gm(1,2)*dgm01(3,3)*dgm10(1,1)& 193 & +2*(2*gm(1,3)*dgm01(1,3)+gm(1,1)*dgm01(3,3))*dgm10(1,2)+4*(gm(1,3)& 194 & *dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))*dgm10(1,3)& 195 & +2*(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(2,3)+(gm(1,2)& 196 & *dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(3,3) 197 cm(2,8)=2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+gm(2,2)*dgm01(3,3)*dgm10(1,1)& 198 & +2*(2*gm(2,3)*dgm01(1,3)+gm(1,2)*dgm01(3,3))*dgm10(1,2)+4*(gm(2,3)& 199 & *dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))*dgm10(1,3)& 200 & +2*(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(2,3)+(gm(2,2)& 201 & *dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(3,3) 202 cm(3,8)=2*gm(3,3)*dgm01(2,3)*dgm10(1,1)+gm(2,3)*dgm01(3,3)*dgm10(1,1)& 203 & +2*(2*gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))*dgm10(1,2)+4*(gm(3,3)& 204 & *dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))*dgm10(1,3)& 205 & +2*(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(2,3)+(gm(2,3)& 206 & *dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(3,3) 207 cm(1,9)=gm(1,3)*dgm01(2,2)*dgm10(1,1)+2*gm(1,2)*dgm01(2,3)*dgm10(1,1)& 208 & +4*(gm(1,3)*dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))& 209 & *dgm10(1,2)+2*(2*gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))*dgm10(1,3)& 210 & +(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(2,2)+2*(gm(1,2)& 211 & *dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(2,3) 212 cm(2,9)=gm(2,3)*dgm01(2,2)*dgm10(1,1)+2*gm(2,2)*dgm01(2,3)*dgm10(1,1)& 213 & +4*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))& 214 & *dgm10(1,2)+2*(2*gm(2,2)*dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,3)& 215 & +(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(2,2)+2*(gm(2,2)& 216 & *dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(2,3) 217 cm(3,9)=gm(3,3)*dgm01(2,2)*dgm10(1,1)+2*gm(2,3)*dgm01(2,3)*dgm10(1,1)& 218 & +4*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))& 219 & *dgm10(1,2)+2*(2*gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2))*dgm10(1,3)& 220 & +(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(2,2)+2*(gm(2,3)& 221 & *dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(2,3) 222 cm(1,10)=gm(1,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)& 223 & +dgm01(1,1)*dgm10(3,3))+2*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 224 & *dgm10(3,3)) 225 cm(2,10)=gm(2,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)& 226 & +dgm01(1,1)*dgm10(3,3))+2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 227 & *dgm10(3,3)) 228 cm(3,10)=gm(3,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)& 229 & +dgm01(1,1)*dgm10(3,3))+2*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 230 & *dgm10(3,3)) 231 cm(1,11)=gm(1,1)*dgm01(2,2)*dgm10(2,2)+2*gm(1,2)*(dgm01(2,2)& 232 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)) 233 cm(2,11)=gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,2)& 234 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)) 235 cm(3,11)=gm(1,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,3)*(dgm01(2,2)& 236 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)) 237 cm(1,12)=2*gm(1,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)& 238 & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(1,2)*(dgm01(3,3)& 239 & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)& 240 & *dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 241 & +dgm01(2,2)*dgm10(3,3)) 242 cm(2,12)=2*gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)& 243 & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)& 244 & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)& 245 & *dgm10(3,3))+gm(1,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 246 & +dgm01(2,2)*dgm10(3,3)) 247 cm(3,12)=2*gm(3,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)& 248 & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(2,3)*(dgm01(3,3)& 249 & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)& 250 & *dgm10(3,3))+gm(1,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 251 & +dgm01(2,2)*dgm10(3,3)) 252 cm(1,13)=2*(gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 253 & +gm(1,2)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 254 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,1)*(dgm01(2,3)*dgm10(2,2)& 255 & +dgm01(2,2)*dgm10(2,3))) 256 cm(2,13)=2*(gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 257 & +gm(2,2)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 258 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,2)*(dgm01(2,3)*dgm10(2,2)& 259 & +dgm01(2,2)*dgm10(2,3))) 260 cm(3,13)=2*(gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 261 & +gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 262 & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,3)*(dgm01(2,3)*dgm10(2,2)& 263 & +dgm01(2,2)*dgm10(2,3))) 264 cm(1,14)=2*(gm(1,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)& 265 & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(1,2)*(dgm01(3,3)& 266 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(2,3)& 267 & +dgm01(2,3)*dgm10(3,3))) 268 cm(2,14)=2*(gm(2,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)& 269 & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(dgm01(3,3)& 270 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,2)*(dgm01(3,3)*dgm10(2,3)& 271 & +dgm01(2,3)*dgm10(3,3))) 272 cm(3,14)=2*(gm(3,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)& 273 & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(2,3)*(dgm01(3,3)& 274 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,3)*(dgm01(3,3)*dgm10(2,3)& 275 & +dgm01(2,3)*dgm10(3,3))) 276 cm(1,15)=gm(1,1)*dgm01(3,3)*dgm10(3,3)+2*gm(1,3)*(dgm01(3,3)& 277 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)) 278 cm(2,15)=gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(2,3)*(dgm01(3,3)& 279 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)) 280 cm(3,15)=gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)& 281 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)) 282 cm(1,16)=gm(1,2)*dgm01(2,2)*dgm10(2,2) 283 cm(2,16)=gm(2,2)*dgm01(2,2)*dgm10(2,2) 284 cm(3,16)=gm(2,3)*dgm01(2,2)*dgm10(2,2) 285 cm(1,17)=2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 286 & +gm(1,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 287 & *dgm10(3,3)) 288 cm(2,17)=2*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 289 & +gm(2,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 290 & *dgm10(3,3)) 291 cm(3,17)=2*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 292 & +gm(2,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)& 293 & *dgm10(3,3)) 294 cm(1,18)=gm(1,3)*dgm01(2,2)*dgm10(2,2)+2*gm(1,2)*(dgm01(2,3)& 295 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)) 296 cm(2,18)=gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,3)& 297 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)) 298 cm(3,18)=gm(3,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,3)*(dgm01(2,3)& 299 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)) 300 cm(1,19)=gm(1,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 301 & +dgm01(2,2)*dgm10(3,3))+2*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 302 & *dgm10(3,3)) 303 cm(2,19)=gm(2,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 304 & +dgm01(2,2)*dgm10(3,3))+2*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 305 & *dgm10(3,3)) 306 cm(3,19)=gm(3,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)& 307 & +dgm01(2,2)*dgm10(3,3))+2*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 308 & *dgm10(3,3)) 309 cm(1,20)=gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(1,3)*(dgm01(3,3)& 310 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)) 311 cm(2,20)=gm(2,2)*dgm01(3,3)*dgm10(3,3)+2*gm(2,3)*(dgm01(3,3)& 312 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)) 313 cm(3,20)=gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)& 314 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)) 315 cm(1,21)=gm(1,3)*dgm01(3,3)*dgm10(3,3) 316 cm(2,21)=gm(2,3)*dgm01(3,3)*dgm10(3,3) 317 cm(3,21)=gm(3,3)*dgm01(3,3)*dgm10(3,3) 318 elseif(rank==2)then 319 cm(1,1)=gm(1,1)**2*dgm01(1,1)*dgm10(1,1) 320 cm(2,1)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,1))& 321 & /4.d0 322 cm(3,1)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,1))& 323 & /4.d0 324 cm(4,1)=((6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,1))& 325 & /2.d0 326 cm(5,1)=2*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(1,1) 327 cm(6,1)=2*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(1,1) 328 cm(1,2)=(12*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)& 329 & *gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(1,1)+384*gm(1,1)& 330 & *(gm(1,2)*dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(1,2)+96*gm(1,1)& 331 & **2*dgm01(1,1)*dgm10(2,2))/96.d0 332 cm(2,2)=(3*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)& 333 & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)+4*(24*gm(1,2)& 334 & *gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))& 335 & *dgm10(1,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,2))& 336 & /24.d0 337 cm(3,2)=(6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)& 338 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)& 339 & *gm(3,3))*dgm01(2,2))*dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 340 & *gm(3,3))*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))& 341 & *dgm10(1,2)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,2))& 342 & /24.d0 343 cm(4,2)=(3*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)& 344 & +gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 345 & *dgm01(2,2))*dgm10(1,1)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 346 & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))& 347 & *dgm10(1,2)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)& 348 & *dgm10(2,2))/12.d0 349 cm(5,2)=(12*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))& 350 & +gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)& 351 & *dgm01(2,2))))*dgm10(1,1)+16*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 352 & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(1,2)& 353 & +96*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(2,2))/48.d0 354 cm(6,2)=(12*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)& 355 & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(1,1)& 356 & +16*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)& 357 & *gm(1,2)*dgm01(1,2))*dgm10(1,2)+96*gm(1,1)*gm(1,2)*dgm01(1,1)& 358 & *dgm10(2,2))/48.d0 359 cm(1,3)=(12*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)+32*gm(1,1)& 360 & *gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(1,1)+384*gm(1,1)& 361 & *(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(1,3)+96*gm(1,1)& 362 & **2*dgm01(1,1)*dgm10(3,3))/96.d0 363 cm(2,3)=(6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)& 364 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)& 365 & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 366 & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))& 367 & *dgm10(1,3)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(3,3))& 368 & /24.d0 369 cm(3,3)=(3*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)& 370 & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(24*gm(1,3)& 371 & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))& 372 & *dgm10(1,3)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(3,3))& 373 & /24.d0 374 cm(4,3)=(3*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)& 375 & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)& 376 & *dgm01(3,3)))*dgm10(1,1)+4*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 377 & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))& 378 & *dgm10(1,3)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)& 379 & *dgm10(3,3))/12.d0 380 cm(5,3)=(12*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)& 381 & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(1,1)& 382 & +16*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)& 383 & *gm(1,3)*dgm01(1,3))*dgm10(1,3)+96*gm(1,1)*gm(1,3)*dgm01(1,1)& 384 & *dgm10(3,3))/48.d0 385 cm(6,3)=(12*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 386 & +8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)& 387 & *gm(1,2)*dgm01(3,3))*dgm10(1,1)+16*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 388 & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,3)& 389 & +96*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(3,3))/48.d0 390 cm(1,4)=(12*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))& 391 & +gm(1,1)*(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)& 392 & *dgm01(2,3)))*dgm10(1,1)+192*gm(1,1)*(gm(1,3)*dgm01(1,1)+gm(1,1)& 393 & *dgm01(1,3))*dgm10(1,2)+192*gm(1,1)*(gm(1,2)*dgm01(1,1)+gm(1,1)& 394 & *dgm01(1,2))*dgm10(1,3)+96*gm(1,1)**2*dgm01(1,1)*dgm10(2,3))& 395 & /48.d0 396 cm(2,4)=(3*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)*dgm01(1,2)& 397 & +16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)*(24*gm(2,3)& 398 & *dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,1)+2*(6*(-2*gm(1,3)& 399 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)& 400 & *gm(2,2))*dgm01(1,3))*dgm10(1,2)+2*(24*gm(1,2)*gm(2,2)*dgm01(1,1)& 401 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))*dgm10(1,3)+6*(6*gm(1,2)& 402 & **2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,3))/12.d0 403 cm(3,4)=(3*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)& 404 & *dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 405 & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(1,1)+2*(24*gm(1,3)& 406 & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))& 407 & *dgm10(1,2)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 408 & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(1,3)+6*(6*gm(1,3)& 409 & **2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,3))/12.d0 410 cm(4,4)=(3*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)& 411 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 412 & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 413 & *dgm01(2,3))*dgm10(1,1)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 414 & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))& 415 & *dgm10(1,2)+2*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)& 416 & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(1,3)& 417 & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(2,3))& 418 & /6.d0 419 cm(5,4)=(12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)& 420 & +4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)& 421 & +3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))& 422 & *dgm10(1,1)+8*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)& 423 & +24*gm(1,1)*gm(1,3)*dgm01(1,3))*dgm10(1,2)+8*(6*(1*gm(1,2)*gm(1,3)& 424 & +3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))& 425 & *dgm10(1,3)+96*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(2,3))/24.d0 426 cm(6,4)=(12*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)& 427 & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)& 428 & **2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))& 429 & *dgm10(1,1)+8*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 430 & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,2)+8*(6*(1*gm(1,2)**2+3*gm(1,1)& 431 & *gm(2,2))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(1,3)& 432 & +96*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(2,3))/24.d0 433 cm(1,5)=2*gm(1,1)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(dgm01(1,3)& 434 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 435 cm(2,5)=((6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)& 436 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(1,1)+6*(6*gm(1,2)& 437 & **2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,3))/12.d0 438 cm(3,5)=((24*gm(1,3)*gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)& 439 & *gm(3,3))*dgm01(1,3))*dgm10(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))& 440 & *dgm01(1,1)*dgm10(1,3))/12.d0 441 cm(4,5)=((6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)& 442 & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))*dgm10(1,1)& 443 & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,3))& 444 & /6.d0 445 cm(5,5)=(20*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)& 446 & *gm(1,3)*dgm01(1,3))*dgm10(1,1)+480*gm(1,1)*gm(1,3)*dgm01(1,1)& 447 & *dgm10(1,3))/120.d0 448 cm(6,5)=(20*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 449 & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,1)+480*gm(1,1)*gm(1,2)& 450 & *dgm01(1,1)*dgm10(1,3))/120.d0 451 cm(1,6)=2*gm(1,1)*(gm(1,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(dgm01(1,2)& 452 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))) 453 cm(2,6)=((24*gm(1,2)*gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)& 454 & *gm(2,2))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))& 455 & *dgm01(1,1)*dgm10(1,2))/12.d0 456 cm(3,6)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 457 & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,3)& 458 & **2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/12.d0 459 cm(4,6)=((6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)& 460 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,2)& 461 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,2))/6.d0 462 cm(5,6)=(20*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 463 & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(1,1)+480*gm(1,1)*gm(1,3)& 464 & *dgm01(1,1)*dgm10(1,2))/120.d0 465 cm(6,6)=(20*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)& 466 & *gm(1,2)*dgm01(1,2))*dgm10(1,1)+480*gm(1,1)*gm(1,2)*dgm01(1,1)& 467 & *dgm10(1,2))/120.d0 468 cm(1,7)=((6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)+24*gm(1,1)& 469 & *gm(1,2)*dgm01(2,2))*dgm10(1,1)+3*(2*(6*gm(1,2)**2-2*gm(1,1)& 470 & *gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)& 471 & **2*dgm01(2,2))*dgm10(1,2)+24*gm(1,1)*(gm(1,2)*dgm01(1,1)+gm(1,1)& 472 & *dgm01(1,2))*dgm10(2,2))/12.d0 473 cm(2,7)=(24*gm(2,2)*(gm(2,2)*dgm01(1,2)+gm(1,2)*dgm01(2,2))& 474 & *dgm10(1,1)+3*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)& 475 & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,2)+(24*gm(1,2)& 476 & *gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))& 477 & *dgm10(2,2))/12.d0 478 cm(3,7)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)& 479 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,1)+6*((6*gm(2,3)& 480 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 481 & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))& 482 & *dgm10(1,2)+(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 483 & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(2,2))/12.d0 484 cm(4,7)=((24*gm(2,2)*gm(2,3)*dgm01(1,2)+6*(3*gm(1,3)*gm(2,2)& 485 & +gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,1)+3*(8*gm(2,2)*gm(2,3)& 486 & *dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)& 487 & +2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,2)& 488 & +(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)& 489 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(2,2))/6.d0 490 cm(5,7)=((6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)& 491 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,1)& 492 & +3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)& 493 & *(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))& 494 & *dgm10(1,2)+(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 495 & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(2,2))/6.d0 496 cm(6,7)=((24*gm(1,2)*gm(2,2)*dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)& 497 & *gm(2,2))*dgm01(2,2))*dgm10(1,1)+3*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)& 498 & *gm(2,2)*dgm01(1,2)+8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))& 499 & *dgm10(1,2)+(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)& 500 & *gm(1,2)*dgm01(1,2))*dgm10(2,2))/6.d0 501 cm(1,8)=(6*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)& 502 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)& 503 & +8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(1,1)+6*(2*(6*gm(1,3)**2-2*gm(1,1)& 504 & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)& 505 & **2*dgm01(3,3))*dgm10(1,2)+12*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)& 506 & +16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)& 507 & *dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+96*gm(1,1)*(gm(1,3)& 508 & *dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(2,3)+48*gm(1,1)*(gm(1,2)& 509 & *dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(3,3))/24.d0 510 cm(2,8)=(3*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+16*gm(2,2)& 511 & *gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))& 512 & *dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(1,1)+6*((6*gm(2,3)& 513 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 514 & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 515 & *dgm10(1,2)+6*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)*dgm01(1,2)& 516 & +16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)*(24*gm(2,3)& 517 & *dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,3)+2*(6*(-2*gm(1,3)& 518 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)& 519 & *gm(2,2))*dgm01(1,3))*dgm10(2,3)+(24*gm(1,2)*gm(2,2)*dgm01(1,1)& 520 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))*dgm10(3,3))/12.d0 521 cm(3,8)=(6*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)*gm(2,3)*dgm01(3,3)& 522 & +gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)*dgm01(2,3)-4*gm(1,2)& 523 & *dgm01(3,3)))*dgm10(1,1)+6*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)& 524 & *gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))& 525 & *dgm10(1,2)+12*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)& 526 & *dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 527 & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(1,3)+4*(24*gm(1,3)& 528 & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))& 529 & *dgm10(2,3)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 530 & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(3,3))/24.d0 531 cm(4,8)=(6*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)& 532 & *gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 533 & *dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))& 534 & *dgm10(1,1)+6*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)& 535 & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)& 536 & *dgm01(3,3)))*dgm10(1,2)+12*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))& 537 & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)& 538 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)& 539 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+4*(6*(1*gm(1,3)& 540 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 541 & *gm(2,3))*dgm01(1,3))*dgm10(2,3)+2*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)& 542 & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 543 & *dgm01(1,2))*dgm10(3,3))/12.d0 544 cm(5,8)=(6*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)& 545 & +3*gm(1,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))& 546 & *dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))& 547 & *dgm10(1,1)+6*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)& 548 & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(1,2)& 549 & +12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)& 550 & **2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 551 & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(1,3)& 552 & +4*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)& 553 & *gm(1,3)*dgm01(1,3))*dgm10(2,3)+2*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 554 & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(3,3))& 555 & /12.d0 556 cm(6,8)=(6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)& 557 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)& 558 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)& 559 & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 560 & *gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 561 & *dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(1,2)+12*(2*(3*gm(1,3)& 562 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 563 & *gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,3)& 564 & +8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,3)+4*(6*(1*gm(1,2)*gm(1,3)& 565 & +3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,3))& 566 & *dgm10(2,3)+2*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)& 567 & +24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(3,3))/12.d0 568 cm(1,9)=(6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)& 569 & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,3)& 570 & *dgm01(2,2)+16*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,1)+12*(gm(1,2)& 571 & *(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)& 572 & *dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(1,2)& 573 & +6*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)& 574 & *gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(1,3)+48*gm(1,1)& 575 & *(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(2,2)+96*gm(1,1)& 576 & *(gm(1,2)*dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(2,3))/24.d0 577 cm(2,9)=(6*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)*gm(2,3)*dgm01(2,2)& 578 & +gm(2,2)*(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)*dgm01(2,2)+16*gm(1,2)& 579 & *dgm01(2,3)))*dgm10(1,1)+12*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)& 580 & *dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)& 581 & *(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+6*(8*gm(2,2)& 582 & **2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)& 583 & *gm(2,2))*dgm01(2,2))*dgm10(1,3)+2*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 584 & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))& 585 & *dgm10(2,2)+4*(24*gm(1,2)*gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)& 586 & *gm(2,2))*dgm01(1,2))*dgm10(2,3))/24.d0 587 cm(3,9)=(3*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)& 588 & *gm(3,3))*dgm01(1,3)+8*gm(1,3)*gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)& 589 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))*dgm10(1,1)+6*(8*gm(2,3)& 590 & *gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)& 591 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)& 592 & *gm(3,3))*dgm01(2,3))*dgm10(1,2)+6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 593 & *dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)& 594 & +(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(1,3)+(24*gm(1,3)& 595 & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))& 596 & *dgm10(2,2)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 597 & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(2,3))/12.d0 598 cm(4,9)=(6*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)+8*gm(2,2)& 599 & *gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)& 600 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)& 601 & +12*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)& 602 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 603 & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 604 & *dgm01(2,3))*dgm10(1,2)+6*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)& 605 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 606 & *gm(2,3))*dgm01(2,2))*dgm10(1,3)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)& 607 & *gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 608 & *dgm01(1,3))*dgm10(2,2)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 609 & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))& 610 & *dgm10(2,3))/12.d0 611 cm(5,9)=(6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)& 612 & +2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)& 613 & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 614 & *gm(2,3))*dgm01(2,3))*dgm10(1,1)+12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)& 615 & *gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)& 616 & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)& 617 & *gm(1,3)*dgm01(2,3))*dgm10(1,2)+6*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)& 618 & +24*gm(1,1)*dgm01(1,2))+gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)& 619 & *dgm01(1,2)+gm(1,1)*dgm01(2,2))))*dgm10(1,3)+2*(6*(1*gm(1,3)& 620 & **2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,3))& 621 & *dgm10(2,2)+4*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 622 & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(2,3))/12.d0 623 cm(6,9)=(6*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)& 624 & +8*gm(1,2)*gm(2,2)*dgm01(1,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 625 & *gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))& 626 & *dgm10(1,1)+12*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)& 627 & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)& 628 & **2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))& 629 & *dgm10(1,2)+6*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)& 630 & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(1,3)& 631 & +2*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)& 632 & *gm(1,2)*dgm01(1,3))*dgm10(2,2)+4*(6*(1*gm(1,2)**2+3*gm(1,1)& 633 & *gm(2,2))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(2,3))& 634 & /12.d0 635 cm(1,10)=((6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)& 636 & *gm(1,3)*dgm01(3,3))*dgm10(1,1)+3*(2*(6*gm(1,3)**2-2*gm(1,1)& 637 & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)& 638 & **2*dgm01(3,3))*dgm10(1,3)+24*gm(1,1)*(gm(1,3)*dgm01(1,1)+gm(1,1)& 639 & *dgm01(1,3))*dgm10(3,3))/12.d0 640 cm(2,10)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)& 641 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+6*((6*gm(2,3)& 642 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 643 & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 644 & *dgm10(1,3)+(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)& 645 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(3,3))/12.d0 646 cm(3,10)=(24*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))& 647 & *dgm10(1,1)+3*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)& 648 & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(24*gm(1,3)& 649 & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))& 650 & *dgm10(3,3))/12.d0 651 cm(4,10)=((24*gm(2,3)*gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)& 652 & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+3*(gm(2,3)*(8*gm(3,3)& 653 & *dgm01(1,1)+8*gm(1,3)*dgm01(1,3)-4*gm(1,1)*dgm01(3,3))+gm(1,2)& 654 & *(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)*dgm01(3,3)))*dgm10(1,3)+(6*(1*gm(1,3)& 655 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 656 & *gm(2,3))*dgm01(1,3))*dgm10(3,3))/6.d0 657 cm(5,10)=((24*gm(1,3)*gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)& 658 & *gm(3,3))*dgm01(3,3))*dgm10(1,1)+3*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)& 659 & *gm(3,3)*dgm01(1,3)+8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))& 660 & *dgm10(1,3)+(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)& 661 & *gm(1,3)*dgm01(1,3))*dgm10(3,3))/6.d0 662 cm(6,10)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 663 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,1)& 664 & +3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)& 665 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))& 666 & *dgm10(1,3)+(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)& 667 & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(3,3))/6.d0 668 cm(1,11)=(6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,1)& 669 & +4*(6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)+24*gm(1,1)& 670 & *gm(1,2)*dgm01(2,2))*dgm10(1,2)+3*(2*(6*gm(1,2)**2-2*gm(1,1)& 671 & *gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)& 672 & **2*dgm01(2,2))*dgm10(2,2))/24.d0 673 cm(2,11)=(96*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+384*gm(2,2)*(gm(2,2)& 674 & *dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,2)+12*(8*gm(2,2)**2*dgm01(1,1)& 675 & +32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))& 676 & *dgm01(2,2))*dgm10(2,2))/96.d0 677 cm(3,11)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)& 678 & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)& 679 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,2)+6*((6*gm(2,3)& 680 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 681 & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))& 682 & *dgm10(2,2))/24.d0 683 cm(4,11)=(96*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(1,1)+16*(24*gm(2,2)& 684 & *gm(2,3)*dgm01(1,2)+6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2))& 685 & *dgm10(1,2)+12*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)& 686 & +gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 687 & *dgm01(2,2))*dgm10(2,2))/48.d0 688 cm(5,11)=(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)& 689 & *dgm10(1,1)+4*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)& 690 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,2)& 691 & +3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)& 692 & *(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))& 693 & *dgm10(2,2))/12.d0 694 cm(6,11)=(96*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,1)+16*(24*gm(1,2)& 695 & *gm(2,2)*dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2))& 696 & *dgm10(1,2)+12*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)& 697 & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(2,2))& 698 & /48.d0 699 cm(1,12)=(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(1,1)& 700 & +8*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(1,1)& 701 & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(1,1)+4*(2*(6*gm(1,3)& 702 & **2-2*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 703 & *gm(2,3))*dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)+8*gm(1,1)& 704 & *gm(1,2)*dgm01(3,3))*dgm10(1,2)+4*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 705 & *gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3)& 706 & +8*gm(1,1)*gm(1,3)*dgm01(2,2)+16*gm(1,1)*gm(1,2)*dgm01(2,3))& 707 & *dgm10(1,3)+(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)+32*gm(1,1)& 708 & *gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(2,2)+4*(gm(1,2)& 709 & *(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)& 710 & *dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(2,3)& 711 & +(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)& 712 & *dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(3,3))/8.d0 713 cm(2,12)=(4*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)& 714 & +64*gm(2,2)*gm(2,3)*dgm01(2,3)*dgm10(1,1)+16*gm(2,2)**2*dgm01(3,3)& 715 & *dgm10(1,1)+8*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)& 716 & +16*gm(2,2)*gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 717 & *gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(1,2)& 718 & +8*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)& 719 & *(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)*dgm01(2,2)+16*gm(1,2)*dgm01(2,3)))& 720 & *dgm10(1,3)+4*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)& 721 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)& 722 & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+8*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)& 723 & -8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))& 724 & +gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(2,3)& 725 & +2*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)& 726 & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(3,3))/16.d0 727 cm(3,12)=(16*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+64*gm(2,3)*gm(3,3)& 728 & *dgm01(2,3)*dgm10(1,1)+4*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)& 729 & *dgm10(1,1)+8*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)*gm(2,3)*dgm01(3,3)& 730 & +gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)*dgm01(2,3)-4*gm(1,2)& 731 & *dgm01(3,3)))*dgm10(1,2)+8*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)& 732 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+8*gm(1,3)*gm(3,3)*dgm01(2,2)& 733 & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))*dgm10(1,3)& 734 & +2*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)& 735 & **2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+8*(8*gm(2,3)*gm(3,3)& 736 & *dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)& 737 & -2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))& 738 & *dgm01(2,3))*dgm10(2,3)+4*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)& 739 & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+(6*gm(1,3)& 740 & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/16.d0 741 cm(4,12)=(16*gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+16*(1*gm(2,3)& 742 & **2+3*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+16*gm(2,2)*gm(2,3)& 743 & *dgm01(3,3)*dgm10(1,1)+8*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)& 744 & **2+3*gm(2,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)& 745 & *gm(3,3))*dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))& 746 & *dgm10(1,2)+8*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)& 747 & +8*gm(2,2)*gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)& 748 & *gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))& 749 & *dgm10(1,3)+2*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)& 750 & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)& 751 & *dgm01(3,3)))*dgm10(2,2)+8*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))& 752 & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)& 753 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)& 754 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+2*(8*gm(2,2)& 755 & *gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)& 756 & +2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(3,3))& 757 & /8.d0 758 cm(5,12)=(16*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+16*(1*gm(1,3)& 759 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+4*(-2*gm(1,3)& 760 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+8*(8*gm(1,3)& 761 & *gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,3)& 762 & +4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)& 763 & +3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+8*(4*(1*gm(1,3)*gm(2,3)& 764 & +3*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 765 & *gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,2)& 766 & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(1,3)& 767 & +2*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)+8*gm(1,3)& 768 & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)+8*(2*(1*gm(1,3)& 769 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)& 770 & *gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 771 & *dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(2,3)+2*(gm(2,3)& 772 & *(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)*(-4*gm(2,2)& 773 & *dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))*dgm10(3,3))& 774 & /8.d0 775 cm(6,12)=(4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)& 776 & *dgm10(1,1)+16*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3)& 777 & *dgm10(1,1)+16*gm(1,2)*gm(2,2)*dgm01(3,3)*dgm10(1,1)+8*(2*(6*gm(1,3)& 778 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 779 & *gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 780 & *dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)& 781 & +8*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)& 782 & *gm(2,2)*dgm01(1,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)& 783 & +4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+2*(2*(6*gm(1,3)& 784 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 785 & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(2,2)& 786 & +8*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)& 787 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)& 788 & *gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(2,3)& 789 & +2*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)+8*gm(1,2)& 790 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3))/8.d0 791 cm(1,13)=(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)& 792 & *dgm10(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(1,1)& 793 & +6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)& 794 & **2-2*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,2)& 795 & +16*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,2)+2*(6*(6*gm(1,2)**2-2*gm(1,1)& 796 & *gm(2,2))*dgm01(1,2)+24*gm(1,1)*gm(1,2)*dgm01(2,2))*dgm10(1,3)& 797 & +3*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)& 798 & *(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))& 799 & *dgm10(2,2)+3*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)& 800 & +32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(2,3))& 801 & /12.d0 802 cm(2,13)=(48*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(1,1)+48*gm(2,2)& 803 & **2*dgm01(2,3)*dgm10(1,1)+12*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)& 804 & *gm(2,3)*dgm01(2,2)+gm(2,2)*(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)& 805 & *dgm01(2,2)+16*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+96*gm(2,2)*(gm(2,2)& 806 & *dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,3)+6*(gm(2,2)*(8*gm(2,3)& 807 & *dgm01(1,1)-8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)& 808 & *dgm01(2,3))+gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))& 809 & *dgm10(2,2)+6*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)& 810 & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(2,3))/24.d0 811 cm(3,13)=(48*gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*(6*gm(2,3)& 812 & **2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+12*(16*gm(2,3)*gm(3,3)& 813 & *dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+8*gm(1,3)& 814 & *gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))& 815 & *dgm10(1,2)+4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)& 816 & +6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,3)& 817 & +6*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)& 818 & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)& 819 & **2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(2,2)+12*((6*gm(2,3)& 820 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 821 & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))& 822 & *dgm10(2,3))/24.d0 823 cm(4,13)=(12*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)& 824 & +48*gm(2,2)*gm(2,3)*dgm01(2,3)*dgm10(1,1)+12*(4*(1*gm(2,3)**2+3*gm(2,2)& 825 & *gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)& 826 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 827 & *gm(2,3))*dgm01(2,3))*dgm10(1,2)+4*(24*gm(2,2)*gm(2,3)*dgm01(1,2)& 828 & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,3)& 829 & +6*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)& 830 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 831 & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 832 & *dgm01(2,3))*dgm10(2,2)+6*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)& 833 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 834 & *gm(2,3))*dgm01(2,2))*dgm10(2,3))/12.d0 835 cm(5,13)=(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)& 836 & *dgm10(1,1)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)& 837 & *dgm10(1,1)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)& 838 & +2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)& 839 & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 840 & *gm(2,3))*dgm01(2,3))*dgm10(1,2)+2*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 841 & *gm(2,3))*dgm01(1,2)+6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 842 & *dgm01(2,2))*dgm10(1,3)+3*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 843 & *dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)& 844 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))& 845 & *dgm10(2,2)+3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))& 846 & +gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)& 847 & *dgm01(2,2))))*dgm10(2,3))/6.d0 848 cm(6,13)=(12*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)& 849 & *dgm10(1,1)+48*gm(1,2)*gm(2,2)*dgm01(2,3)*dgm10(1,1)+12*(4*(3*gm(1,3)& 850 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3)& 851 & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)& 852 & **2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+4*(24*gm(1,2)*gm(2,2)& 853 & *dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,3)& 854 & +6*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)& 855 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)& 856 & *gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(2,2)& 857 & +6*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)+8*gm(1,2)& 858 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0 859 cm(1,14)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(1,1)& 860 & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(1,1)& 861 & +2*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)& 862 & *gm(1,3)*dgm01(3,3))*dgm10(1,2)+6*(2*(6*gm(1,3)**2-2*gm(1,1)& 863 & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 864 & *dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))& 865 & *dgm10(1,3)+3*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)& 866 & +32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(2,3)& 867 & +3*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)& 868 & *(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))& 869 & *dgm10(3,3))/12.d0 870 cm(2,14)=(12*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)& 871 & +48*gm(2,2)*gm(2,3)*dgm01(3,3)*dgm10(1,1)+4*(6*(6*gm(2,3)**2-2*gm(2,2)& 872 & *gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))& 873 & *dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 874 & *dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)& 875 & +6*gm(1,2)*gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))& 876 & *dgm10(1,3)+12*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)& 877 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)& 878 & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+6*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)& 879 & -8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))& 880 & +gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(3,3))& 881 & /24.d0 882 cm(3,14)=(48*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+48*gm(2,3)*gm(3,3)& 883 & *dgm01(3,3)*dgm10(1,1)+96*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)& 884 & *dgm01(3,3))*dgm10(1,2)+12*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)& 885 & *gm(2,3)*dgm01(3,3)+gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)& 886 & *dgm01(2,3)-4*gm(1,2)*dgm01(3,3)))*dgm10(1,3)+6*(8*gm(3,3)**2*dgm01(1,1)& 887 & +32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))& 888 & *dgm01(3,3))*dgm10(2,3)+6*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)& 889 & *gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 890 & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(3,3))/24.d0 891 cm(4,14)=(48*gm(2,3)*gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*(1*gm(2,3)& 892 & **2+3*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*(24*gm(2,3)*gm(3,3)& 893 & *dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))& 894 & *dgm10(1,2)+12*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)& 895 & *gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 896 & *dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))& 897 & *dgm10(1,3)+6*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)& 898 & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)& 899 & *dgm01(3,3)))*dgm10(2,3)+6*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))& 900 & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)& 901 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)& 902 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/12.d0 903 cm(5,14)=(48*gm(1,3)*gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*(1*gm(1,3)& 904 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*(24*gm(1,3)& 905 & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(3,3))& 906 & *dgm10(1,2)+12*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)& 907 & +3*gm(1,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))& 908 & *dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))& 909 & *dgm10(1,3)+6*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)& 910 & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,3)& 911 & +6*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)& 912 & **2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 913 & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(3,3))& 914 & /12.d0 915 cm(6,14)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)& 916 & *dgm10(1,1)+6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)& 917 & *dgm10(1,1)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 918 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)& 919 & +6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)& 920 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 921 & *gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))& 922 & *dgm10(1,3)+3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)& 923 & +8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)& 924 & *gm(1,2)*dgm01(3,3))*dgm10(2,3)+3*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)& 925 & *gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 926 & *dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)& 927 & *gm(1,2)*dgm01(2,3))*dgm10(3,3))/6.d0 928 cm(1,15)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(1,1)& 929 & +4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)& 930 & *gm(1,3)*dgm01(3,3))*dgm10(1,3)+3*(2*(6*gm(1,3)**2-2*gm(1,1)& 931 & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)& 932 & **2*dgm01(3,3))*dgm10(3,3))/24.d0 933 cm(2,15)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)& 934 & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)& 935 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+6*((6*gm(2,3)& 936 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 937 & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 938 & *dgm10(3,3))/24.d0 939 cm(3,15)=(96*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+384*gm(3,3)*(gm(3,3)& 940 & *dgm01(1,3)+gm(1,3)*dgm01(3,3))*dgm10(1,3)+12*(8*gm(3,3)**2*dgm01(1,1)& 941 & +32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))& 942 & *dgm01(3,3))*dgm10(3,3))/96.d0 943 cm(4,15)=(96*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(1,1)+16*(24*gm(2,3)& 944 & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))& 945 & *dgm10(1,3)+12*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)& 946 & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)& 947 & *dgm01(3,3)))*dgm10(3,3))/48.d0 948 cm(5,15)=(96*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,1)+16*(24*gm(1,3)& 949 & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(3,3))& 950 & *dgm10(1,3)+12*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)& 951 & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(3,3))& 952 & /48.d0 953 cm(6,15)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)& 954 & *dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 955 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,3)& 956 & +3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)& 957 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))& 958 & *dgm10(3,3))/12.d0 959 cm(1,16)=(120*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,2)& 960 & +120*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(2,2)+480*gm(1,1)& 961 & *gm(1,2)*dgm01(2,2)*dgm10(2,2))/240.d0 962 cm(2,16)=2*gm(2,2)*(gm(1,2)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(dgm01(2,2)& 963 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 964 cm(3,16)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,2)& 965 & +(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(2,2)+(6*gm(1,3)& 966 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)*dgm10(2,2))/2.d0 967 cm(4,16)=(120*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 968 & *(360*gm(1,3)*dgm01(2,2)*dgm10(2,2)+480*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 969 & +dgm01(1,2)*dgm10(2,2))))/120.d0 970 cm(5,16)=(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,2)& 971 & +(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(2,2)& 972 & +(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2) 973 cm(6,16)=(480*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,2)+480*gm(1,2)& 974 & *gm(2,2)*dgm01(1,2)*dgm10(2,2)+120*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))& 975 & *dgm01(2,2)*dgm10(2,2))/120.d0 976 cm(1,17)=(12*((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)& 977 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)& 978 & *gm(2,2))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 979 & *gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))& 980 & *dgm10(1,3)+6*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2)& 981 & +4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))*dgm10(2,2)& 982 & +6*gm(1,1)*(16*gm(1,3)*dgm01(2,3)+8*gm(1,2)*dgm01(3,3))*dgm10(2,2)& 983 & +12*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)& 984 & **2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+12*gm(1,1)*(8*gm(1,3)& 985 & *dgm01(2,2)+16*gm(1,2)*dgm01(2,3))*dgm10(2,3)+12*(6*gm(1,2)**2-2*gm(1,1)& 986 & *gm(2,2))*dgm01(1,2)*dgm10(3,3)+48*gm(1,1)*gm(1,2)*dgm01(2,2)& 987 & *dgm10(3,3))/24.d0 988 cm(2,17)=(6*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)+32*gm(2,2)& 989 & *gm(2,3)*dgm01(2,3)+8*gm(2,2)**2*dgm01(3,3))*dgm10(1,2)+96*gm(2,2)& 990 & *(gm(2,3)*dgm01(2,2)+gm(2,2)*dgm01(2,3))*dgm10(1,3)+6*(2*(6*gm(2,3)& 991 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3))& 992 & *dgm10(2,2)+6*(4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)& 993 & +8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(2,2)+12*gm(2,2)*(16*gm(2,3)& 994 & *dgm01(1,2)+8*gm(2,2)*dgm01(1,3))*dgm10(2,3)+12*(2*(-2*gm(1,3)& 995 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)+16*gm(1,2)*gm(2,2)*dgm01(2,3))& 996 & *dgm10(2,3)+48*gm(2,2)**2*dgm01(1,2)*dgm10(3,3)+48*gm(1,2)*gm(2,2)& 997 & *dgm01(2,2)*dgm10(3,3))/24.d0 998 cm(3,17)=(3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)& 999 & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+2*(24*gm(2,3)& 1000 & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))& 1001 & *dgm10(1,3)+3*gm(3,3)*(8*gm(3,3)*dgm01(1,2)+16*gm(2,3)*dgm01(1,3))& 1002 & *dgm10(2,2)+3*(16*gm(1,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(1,3)*gm(2,3)& 1003 & -2*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+6*(16*gm(2,3)*gm(3,3)& 1004 & *dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)& 1005 & +6*(8*gm(1,3)*gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 1006 & *gm(3,3))*dgm01(2,3))*dgm10(2,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1007 & *dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))& 1008 & *dgm01(2,2)*dgm10(3,3))/12.d0 1009 cm(4,17)=(6*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)& 1010 & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,2)& 1011 & +4*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)& 1012 & *gm(2,3)*dgm01(2,3))*dgm10(1,3)+6*(8*gm(2,3)*gm(3,3)*dgm01(1,2)& 1013 & +4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+6*(4*(1*gm(1,3)& 1014 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)& 1015 & *gm(2,3))*dgm01(3,3))*dgm10(2,2)+12*(4*(1*gm(2,3)**2+3*gm(2,2)& 1016 & *gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,3)& 1017 & +12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)& 1018 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+48*gm(2,2)*gm(2,3)& 1019 & *dgm01(1,2)*dgm10(3,3)+12*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 1020 & *dgm01(2,2)*dgm10(3,3))/12.d0 1021 cm(5,17)=(3*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)& 1022 & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)& 1023 & *dgm01(3,3)))*dgm10(1,2)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 1024 & *dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))& 1025 & *dgm10(1,3)+3*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)& 1026 & +3*gm(1,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+3*(4*(1*gm(1,3)**2+3*gm(1,1)& 1027 & *gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))& 1028 & *dgm01(3,3))*dgm10(2,2)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 1029 & *dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3))& 1030 & *dgm10(2,3)+6*(2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,2)& 1031 & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(2,3)& 1032 & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)& 1033 & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(3,3))& 1034 & /6.d0 1035 cm(6,17)=(6*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))& 1036 & +gm(1,2)*(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)& 1037 & *dgm01(3,3))))*dgm10(1,2)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 1038 & *dgm01(2,2)+24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,3)+6*(2*(6*gm(1,3)& 1039 & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)& 1040 & *gm(2,3))*dgm01(1,3))*dgm10(2,2)+6*(4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 1041 & *gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))& 1042 & *dgm10(2,2)+12*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)& 1043 & +8*gm(1,2)*gm(2,2)*dgm01(1,3))*dgm10(2,3)+12*(2*(1*gm(1,2)*gm(1,3)& 1044 & +3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))& 1045 & *dgm01(2,3))*dgm10(2,3)+48*gm(1,2)*gm(2,2)*dgm01(1,2)*dgm10(3,3)& 1046 & +12*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/12.d0 1047 cm(1,18)=(8*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)& 1048 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+24*(6*gm(1,2)& 1049 & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+12*(4*(6*gm(1,2)& 1050 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)& 1051 & *gm(2,2))*dgm01(1,3))*dgm10(2,2)+12*gm(1,1)*(8*gm(1,3)*dgm01(2,2)& 1052 & +16*gm(1,2)*dgm01(2,3))*dgm10(2,2)+48*(6*gm(1,2)**2-2*gm(1,1)& 1053 & *gm(2,2))*dgm01(1,2)*dgm10(2,3)+192*gm(1,1)*gm(1,2)*dgm01(2,2)& 1054 & *dgm10(2,3))/48.d0 1055 cm(2,18)=(144*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 1056 & **2*(192*dgm01(2,3)*dgm10(1,2)+96*dgm01(2,2)*dgm10(1,3)+96*dgm01(1,3)& 1057 & *dgm10(2,2)+192*dgm01(1,2)*dgm10(2,3))+gm(2,2)*(-48*gm(1,3)*dgm01(2,2)& 1058 & *dgm10(2,2)+192*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 1059 & +192*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))))& 1060 & /48.d0 1061 cm(3,18)=(2*(24*gm(2,3)*gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)& 1062 & *gm(3,3))*dgm01(2,3))*dgm10(1,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1063 & *dgm01(2,2)*dgm10(1,3)+3*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)& 1064 & **2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+3*(8*gm(1,3)*gm(3,3)& 1065 & *dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))& 1066 & *dgm10(2,2)+12*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(2,3)& 1067 & +12*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)*dgm10(2,3))& 1068 & /12.d0 1069 cm(4,18)=(8*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)& 1070 & *gm(2,3)*dgm01(2,3))*dgm10(1,2)+96*gm(2,2)*gm(2,3)*dgm01(2,2)& 1071 & *dgm10(1,3)+12*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)& 1072 & +8*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,2)+12*(2*(1*gm(1,3)*gm(2,3)& 1073 & +3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 1074 & *dgm01(2,3))*dgm10(2,2)+192*gm(2,2)*gm(2,3)*dgm01(1,2)*dgm10(2,3)& 1075 & +48*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))& 1076 & /24.d0 1077 cm(5,18)=(2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)& 1078 & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)& 1079 & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,3)& 1080 & +3*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)& 1081 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)+3*(2*(1*gm(1,3)& 1082 & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 1083 & *gm(2,3))*dgm01(2,3))*dgm10(2,2)+12*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)& 1084 & *gm(2,3))*dgm01(1,2)*dgm10(2,3)+12*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 1085 & *gm(2,3))*dgm01(2,2)*dgm10(2,3))/6.d0 1086 cm(6,18)=(8*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)& 1087 & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,2)+96*gm(1,2)*gm(2,2)& 1088 & *dgm01(2,2)*dgm10(1,3)+12*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 1089 & *dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3))*dgm10(2,2)+12*(2*(1*gm(1,2)& 1090 & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)& 1091 & *gm(2,2))*dgm01(2,3))*dgm10(2,2)+192*gm(1,2)*gm(2,2)*dgm01(1,2)& 1092 & *dgm10(2,3)+48*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))& 1093 & /24.d0 1094 cm(1,19)=(4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)& 1095 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*((6*gm(1,3)& 1096 & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 1097 & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 1098 & *dgm10(1,3)+12*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,2)& 1099 & +48*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)+12*(2*(6*gm(1,3)**2-2*gm(1,1)& 1100 & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 1101 & *dgm01(1,3))*dgm10(2,3)+12*gm(1,1)*(16*gm(1,3)*dgm01(2,3)+8*gm(1,2)& 1102 & *dgm01(3,3))*dgm10(2,3)+6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))& 1103 & *dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(3,3)& 1104 & +6*gm(1,1)*(8*gm(1,3)*dgm01(2,2)+16*gm(1,2)*dgm01(2,3))*dgm10(3,3))& 1105 & /24.d0 1106 cm(2,19)=(2*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)& 1107 & *gm(2,3)*dgm01(3,3))*dgm10(1,2)+3*(2*(6*gm(2,3)**2-2*gm(2,2)& 1108 & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)& 1109 & **2*dgm01(3,3))*dgm10(1,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1110 & *dgm01(1,3)*dgm10(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))& 1111 & *dgm01(3,3)*dgm10(2,2)+6*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1112 & *dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,3)+6*(4*(-2*gm(1,3)& 1113 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))& 1114 & *dgm10(2,3)+3*gm(2,2)*(16*gm(2,3)*dgm01(1,2)+8*gm(2,2)*dgm01(1,3))& 1115 & *dgm10(3,3)+3*(2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)& 1116 & +16*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/12.d0 1117 cm(3,19)=(96*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))& 1118 & *dgm10(1,2)+6*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)& 1119 & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+48*gm(3,3)& 1120 & **2*dgm01(1,3)*dgm10(2,2)+48*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)& 1121 & +12*gm(3,3)*(8*gm(3,3)*dgm01(1,2)+16*gm(2,3)*dgm01(1,3))*dgm10(2,3)& 1122 & +12*(16*gm(1,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)& 1123 & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+6*(16*gm(2,3)*gm(3,3)*dgm01(1,2)& 1124 & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(3,3)+6*(8*gm(1,3)& 1125 & *gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))& 1126 & *dgm10(3,3))/24.d0 1127 cm(4,19)=(4*(24*gm(2,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)& 1128 & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+6*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)& 1129 & *gm(3,3)*dgm01(2,3)+8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))& 1130 & *dgm10(1,3)+48*gm(2,3)*gm(3,3)*dgm01(1,3)*dgm10(2,2)+12*(1*gm(1,3)& 1131 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(2,2)+12*(8*gm(2,3)& 1132 & *gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,3))& 1133 & *dgm10(2,3)+12*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)& 1134 & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)& 1135 & +6*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)& 1136 & *dgm01(1,3))*dgm10(3,3)+6*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 1137 & *dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))& 1138 & *dgm10(3,3))/12.d0 1139 cm(5,19)=(4*(24*gm(1,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)& 1140 & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+6*(gm(1,3)*(8*gm(3,3)& 1141 & *dgm01(2,2)+8*gm(2,3)*dgm01(2,3)-4*gm(2,2)*dgm01(3,3))+gm(1,2)& 1142 & *(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)*dgm01(3,3)))*dgm10(1,3)+48*gm(1,3)& 1143 & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+12*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))& 1144 & *dgm01(3,3)*dgm10(2,2)+12*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)& 1145 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+12*(4*(1*gm(1,3)& 1146 & **2+3*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)& 1147 & *gm(2,3))*dgm01(3,3))*dgm10(2,3)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)& 1148 & *gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))& 1149 & *dgm01(1,3))*dgm10(3,3)+6*(2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))& 1150 & *dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))& 1151 & *dgm10(3,3))/12.d0 1152 cm(6,19)=(2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)& 1153 & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)& 1154 & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)& 1155 & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))& 1156 & *dgm10(1,3)+6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)& 1157 & *dgm10(2,2)+6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)& 1158 & *dgm10(2,2)+6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)& 1159 & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)& 1160 & +6*(4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)& 1161 & **2+3*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+3*(4*(3*gm(1,3)& 1162 & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3))& 1163 & *dgm10(3,3)+3*(2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)& 1164 & +4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/6.d0 1165 cm(1,20)=(gm(1,3)**2*(144*dgm01(3,3)*dgm10(1,2)+288*dgm01(2,3)& 1166 & *dgm10(1,3)+288*dgm01(1,3)*dgm10(2,3)+144*dgm01(1,2)*dgm10(3,3))& 1167 & +gm(1,1)*(96*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(-48*dgm01(3,3)& 1168 & *dgm10(1,2)-96*dgm01(2,3)*dgm10(1,3)-96*dgm01(1,3)*dgm10(2,3)& 1169 & -48*dgm01(1,2)*dgm10(3,3))-96*gm(2,3)*(dgm01(3,3)*dgm10(1,3)& 1170 & +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(288*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 1171 & +dgm01(1,3)*dgm10(3,3))+192*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1172 & *dgm10(3,3))))/48.d0 1173 cm(2,20)=(gm(2,3)**2*(144*dgm01(3,3)*dgm10(1,2)+288*dgm01(2,3)& 1174 & *dgm10(1,3)+288*dgm01(1,3)*dgm10(2,3)+144*dgm01(1,2)*dgm10(3,3))& 1175 & +gm(2,3)*(192*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1176 & +288*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(2,2)& 1177 & *(96*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(-48*dgm01(3,3)*dgm10(1,2)& 1178 & -96*dgm01(2,3)*dgm10(1,3)-96*dgm01(1,3)*dgm10(2,3)-48*dgm01(1,2)& 1179 & *dgm10(3,3))-96*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 1180 & /48.d0 1181 cm(3,20)=(144*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 1182 & **2*(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)*dgm10(1,3)+192*dgm01(1,3)& 1183 & *dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-48*gm(1,2)*dgm01(3,3)& 1184 & *dgm10(3,3)+192*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1185 & +192*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 1186 & /48.d0 1187 cm(4,20)=(48*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1188 & +144*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 1189 & +gm(2,2)*(72*gm(1,3)*dgm01(3,3)*dgm10(3,3)+144*gm(3,3)*(dgm01(3,3)& 1190 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(2,3)*(24*gm(1,2)*dgm01(3,3)& 1191 & *dgm10(3,3)+gm(3,3)*(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)& 1192 & *dgm10(1,3)+192*dgm01(1,3)*dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))& 1193 & +48*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))/24.d0 1194 cm(5,20)=(144*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 1195 & *dgm10(3,3))+48*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1196 & *dgm10(3,3))+gm(1,3)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 1197 & *(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)*dgm10(1,3)+192*dgm01(1,3)& 1198 & *dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))+48*gm(2,3)*(dgm01(3,3)& 1199 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(1,1)*(72*gm(2,3)*dgm01(3,3)& 1200 & *dgm10(3,3)+144*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 1201 & /24.d0 1202 cm(6,20)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,2)& 1203 & +2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,3)& 1204 & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(1,3)& 1205 & +2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(2,3)& 1206 & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(2,3)& 1207 & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)*dgm10(3,3)& 1208 & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(3,3)& 1209 & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(3,3)& 1210 & +(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3) 1211 cm(1,21)=(120*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(1,3)& 1212 & +120*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+480*gm(1,1)& 1213 & *gm(1,3)*dgm01(3,3)*dgm10(3,3))/240.d0 1214 cm(2,21)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,3)& 1215 & +(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+(-2*gm(1,3)& 1216 & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3))/2.d0 1217 cm(3,21)=2*gm(3,3)*(gm(1,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(dgm01(3,3)& 1218 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 1219 cm(4,21)=(360*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)+gm(2,3)& 1220 & *(120*gm(1,3)*dgm01(3,3)*dgm10(3,3)+480*gm(3,3)*(dgm01(3,3)*dgm10(1,3)& 1221 & +dgm01(1,3)*dgm10(3,3))))/120.d0 1222 cm(5,21)=(480*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,3)+480*gm(1,3)& 1223 & *gm(3,3)*dgm01(1,3)*dgm10(3,3)+120*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))& 1224 & *dgm01(3,3)*dgm10(3,3))/120.d0 1225 cm(6,21)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,3)& 1226 & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)& 1227 & +(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3) 1228 cm(1,22)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,2))& 1229 & /4.d0 1230 cm(2,22)=gm(2,2)**2*dgm01(2,2)*dgm10(2,2) 1231 cm(3,22)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(2,2))& 1232 & /4.d0 1233 cm(4,22)=2*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2) 1234 cm(5,22)=((-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)& 1235 & *dgm10(2,2))/2.d0 1236 cm(6,22)=2*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(2,2) 1237 cm(1,23)=(6*((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)& 1238 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)& 1239 & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 1240 & *gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))& 1241 & *dgm10(2,3)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))& 1242 & /24.d0 1243 cm(2,23)=(12*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)& 1244 & +32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)**2*dgm01(3,3))*dgm10(2,2)& 1245 & +384*gm(2,2)*(gm(2,3)*dgm01(2,2)+gm(2,2)*dgm01(2,3))*dgm10(2,3)& 1246 & +96*gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/96.d0 1247 cm(3,23)=(3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)& 1248 & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(24*gm(2,3)& 1249 & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))& 1250 & *dgm10(2,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(3,3))& 1251 & /24.d0 1252 cm(4,23)=(12*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)& 1253 & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(2,2)& 1254 & +16*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)& 1255 & *gm(2,3)*dgm01(2,3))*dgm10(2,3)+96*gm(2,2)*gm(2,3)*dgm01(2,2)& 1256 & *dgm10(3,3))/48.d0 1257 cm(5,23)=(3*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)& 1258 & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)& 1259 & *dgm01(3,3)))*dgm10(2,2)+4*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))& 1260 & *dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))& 1261 & *dgm10(2,3)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)& 1262 & *dgm10(3,3))/12.d0 1263 cm(6,23)=(12*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))& 1264 & +gm(1,2)*(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)& 1265 & *dgm01(3,3))))*dgm10(2,2)+16*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))& 1266 & *dgm01(2,2)+24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+96*gm(1,2)& 1267 & *gm(2,2)*dgm01(2,2)*dgm10(3,3))/48.d0 1268 cm(1,24)=((6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)& 1269 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+6*(6*gm(1,2)& 1270 & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/12.d0 1271 cm(2,24)=2*gm(2,2)*(gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(dgm01(2,3)& 1272 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))) 1273 cm(3,24)=((24*gm(2,3)*gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)& 1274 & *gm(3,3))*dgm01(2,3))*dgm10(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1275 & *dgm01(2,2)*dgm10(2,3))/12.d0 1276 cm(4,24)=(20*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)& 1277 & +24*gm(2,2)*gm(2,3)*dgm01(2,3))*dgm10(2,2)+480*gm(2,2)*gm(2,3)& 1278 & *dgm01(2,2)*dgm10(2,3))/120.d0 1279 cm(5,24)=((6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)& 1280 & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)& 1281 & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))& 1282 & /6.d0 1283 cm(6,24)=(20*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)& 1284 & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,2)+480*gm(1,2)*gm(2,2)& 1285 & *dgm01(2,2)*dgm10(2,3))/120.d0 1286 cm(1,25)=((6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)& 1287 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+6*((6*gm(1,3)& 1288 & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 1289 & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 1290 & *dgm10(2,3)+(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)& 1291 & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/12.d0 1292 cm(2,25)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)& 1293 & *gm(2,3)*dgm01(3,3))*dgm10(2,2)+3*(2*(6*gm(2,3)**2-2*gm(2,2)& 1294 & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)& 1295 & **2*dgm01(3,3))*dgm10(2,3)+24*gm(2,2)*(gm(2,3)*dgm01(2,2)+gm(2,2)& 1296 & *dgm01(2,3))*dgm10(3,3))/12.d0 1297 cm(3,25)=(24*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))& 1298 & *dgm10(2,2)+3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)& 1299 & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+(24*gm(2,3)& 1300 & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))& 1301 & *dgm10(3,3))/12.d0 1302 cm(4,25)=((24*gm(2,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)& 1303 & *gm(3,3))*dgm01(3,3))*dgm10(2,2)+3*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)& 1304 & *gm(3,3)*dgm01(2,3)+8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))& 1305 & *dgm10(2,3)+(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)& 1306 & *gm(2,3)*dgm01(2,3))*dgm10(3,3))/6.d0 1307 cm(5,25)=((24*gm(1,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)& 1308 & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+3*(gm(1,3)*(8*gm(3,3)& 1309 & *dgm01(2,2)+8*gm(2,3)*dgm01(2,3)-4*gm(2,2)*dgm01(3,3))+gm(1,2)& 1310 & *(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)*dgm01(3,3)))*dgm10(2,3)+(6*(1*gm(1,3)& 1311 & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)& 1312 & +6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/6.d0 1313 cm(6,25)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)& 1314 & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)& 1315 & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)& 1316 & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))& 1317 & *dgm10(2,3)+(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)& 1318 & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/6.d0 1319 cm(1,26)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,2)& 1320 & +4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)& 1321 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+6*((6*gm(1,3)& 1322 & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)& 1323 & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))& 1324 & *dgm10(3,3))/24.d0 1325 cm(2,26)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(2,2)& 1326 & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)& 1327 & *gm(2,3)*dgm01(3,3))*dgm10(2,3)+3*(2*(6*gm(2,3)**2-2*gm(2,2)& 1328 & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)& 1329 & **2*dgm01(3,3))*dgm10(3,3))/24.d0 1330 cm(3,26)=(96*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+384*gm(3,3)*(gm(3,3)& 1331 & *dgm01(2,3)+gm(2,3)*dgm01(3,3))*dgm10(2,3)+12*(8*gm(3,3)**2*dgm01(2,2)& 1332 & +32*gm(2,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))& 1333 & *dgm01(3,3))*dgm10(3,3))/96.d0 1334 cm(4,26)=(96*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)+16*(24*gm(2,3)& 1335 & *gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(3,3))& 1336 & *dgm10(2,3)+12*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)& 1337 & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(3,3))& 1338 & /48.d0 1339 cm(5,26)=(96*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)+16*(24*gm(1,3)& 1340 & *gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))& 1341 & *dgm10(2,3)+12*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)& 1342 & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)& 1343 & *dgm01(3,3)))*dgm10(3,3))/48.d0 1344 cm(6,26)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)& 1345 & *dgm10(2,2)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)& 1346 & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)& 1347 & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)& 1348 & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))& 1349 & *dgm10(3,3))/12.d0 1350 cm(1,27)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,3)& 1351 & +(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+(6*gm(1,2)& 1352 & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3))/2.d0 1353 cm(2,27)=(120*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(2,3)& 1354 & +120*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+480*gm(2,2)& 1355 & *gm(2,3)*dgm01(3,3)*dgm10(3,3))/240.d0 1356 cm(3,27)=2*gm(3,3)*(gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(dgm01(3,3)& 1357 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 1358 cm(4,27)=(480*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,3)+480*gm(2,3)& 1359 & *gm(3,3)*dgm01(2,3)*dgm10(3,3)+120*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))& 1360 & *dgm01(3,3)*dgm10(3,3))/120.d0 1361 cm(5,27)=(360*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)& 1362 & *(120*gm(2,3)*dgm01(3,3)*dgm10(3,3)+480*gm(3,3)*(dgm01(3,3)*dgm10(2,3)& 1363 & +dgm01(2,3)*dgm10(3,3))))/120.d0 1364 cm(6,27)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(2,3)& 1365 & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(3,3)& 1366 & +(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3) 1367 cm(1,28)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(3,3))& 1368 & /4.d0 1369 cm(2,28)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3))& 1370 & /4.d0 1371 cm(3,28)=gm(3,3)**2*dgm01(3,3)*dgm10(3,3) 1372 cm(4,28)=2*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(3,3) 1373 cm(5,28)=2*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(3,3) 1374 cm(6,28)=((6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3))& 1375 & /2.d0 1376 elseif(rank==3)then 1377 cm(1,1)=gm(1,1)**3*dgm01(1,1)*dgm10(1,1) 1378 cm(2,1)=(gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)& 1379 & *dgm10(1,1))/12.d0 1380 cm(3,1)=(gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 1381 & *dgm10(1,1))/12.d0 1382 cm(4,1)=(gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,1)& 1383 & *dgm10(1,1))/6.d0 1384 cm(5,1)=3*gm(1,1)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1) 1385 cm(6,1)=3*gm(1,1)**2*gm(1,2)*dgm01(1,1)*dgm10(1,1) 1386 cm(7,1)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)& 1387 & *dgm10(1,1))/36.d0 1388 cm(8,1)=((-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1389 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1))/12.d0 1390 cm(9,1)=((90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 1391 & *gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1))/12.d0 1392 cm(10,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)& 1393 & *dgm10(1,1))/36.d0 1394 cm(1,2)=(gm(1,1)*(20*(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)& 1395 & +432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(1,1)& 1396 & +20*gm(1,1)*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))*dgm10(1,2)& 1397 & +1440*gm(1,1)**2*dgm01(1,1)*dgm10(2,2)))/1440.d0 1398 cm(2,2)=((72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)& 1399 & *dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)-36*gm(1,1)& 1400 & *dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)*dgm01(2,2)))& 1401 & *dgm10(1,1)+(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)& 1402 & *dgm01(1,1)+432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)& 1403 & *dgm01(1,2))*dgm10(1,2)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 1404 & *dgm01(1,1)*dgm10(2,2))/24.d0 1405 cm(3,2)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1406 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1407 & *dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1408 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1409 & *gm(3,3))*dgm01(2,2))*dgm10(1,1)+(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)& 1410 & *gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)& 1411 & +432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(1,2)& 1412 & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,2))& 1413 & /24.d0 1414 cm(4,2)=gm(1,2)**2*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,3)& 1415 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(gm(2,2)& 1416 & *(12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+24*gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 1417 & +dgm01(1,1)*dgm10(1,2)))+gm(1,1)*gm(2,3)*(-3*dgm01(2,2)*dgm10(1,1)& 1418 & -12*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*(6*gm(1,1)& 1419 & *gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)& 1420 & *(3*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)& 1421 & +36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)))) 1422 cm(5,2)=1.5d0*gm(1,2)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1423 & *gm(1,2)*(12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)& 1424 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(12*gm(1,1)*gm(2,3)& 1425 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)*(-4.5d0*gm(2,2)& 1426 & *dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)& 1427 & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))) 1428 cm(6,2)=1.5d0*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,2)& 1429 & **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)& 1430 & **2*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)& 1431 & *gm(1,2)*(7.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)& 1432 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))) 1433 cm(7,2)=((648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)& 1434 & **2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)& 1435 & *dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,1)+(648*gm(1,2)& 1436 & **2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)& 1437 & **3*dgm01(1,2)-432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(1,2)& 1438 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(2,2))& 1439 & /72.d0 1440 cm(8,2)=((6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1441 & *gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1442 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1443 & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1444 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)+(12*(30*gm(1,3)& 1445 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1446 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)& 1447 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1448 & *dgm01(1,2))*dgm10(1,2)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1449 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(2,2))/24.d0 1450 cm(9,2)=((gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)& 1451 & *dgm01(1,2)+gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))& 1452 & +gm(1,3)*(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)& 1453 & +gm(2,2)*(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(1,1)& 1454 & +(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))& 1455 & +gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)& 1456 & *(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))& 1457 & *dgm10(1,2)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1458 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(2,2))/24.d0 1459 cm(10,2)=((6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1460 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)& 1461 & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)& 1462 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(1,1)+(12*(90*gm(1,3)& 1463 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)& 1464 & +8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,2)& 1465 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(2,2))& 1466 & /72.d0 1467 cm(1,3)=(gm(1,1)*(20*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 1468 & +432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(1,1)& 1469 & +20*gm(1,1)*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(1,3)& 1470 & +1440*gm(1,1)**2*dgm01(1,1)*dgm10(3,3)))/1440.d0 1471 cm(2,3)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1472 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1473 & *dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1474 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)& 1475 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+(576*gm(1,1)*gm(1,2)& 1476 & *gm(2,3)*dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)& 1477 & -144*gm(1,1)*dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)& 1478 & *dgm01(1,3)))*dgm10(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 1479 & *gm(2,2))*dgm01(1,1)*dgm10(3,3))/24.d0 1480 cm(3,3)=((72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)& 1481 & *dgm01(1,3)+gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)& 1482 & *dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))& 1483 & *dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)*gm(1,3)*gm(3,3)& 1484 & *dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)-144*gm(1,1)**2*gm(3,3)& 1485 & *dgm01(1,3))*dgm10(1,3)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 1486 & *dgm01(1,1)*dgm10(3,3))/24.d0 1487 cm(4,3)=gm(1,3)**2*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,2)& 1488 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(24*gm(1,2)& 1489 & *gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(2,3)& 1490 & *(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(-3*dgm01(3,3)*dgm10(1,1)& 1491 & -12*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3))))+gm(1,3)& 1492 & *(6*gm(1,1)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1493 & +gm(1,2)*(3*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(9*dgm01(3,3)& 1494 & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3)))) 1495 cm(5,3)=1.5d0*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)& 1496 & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)& 1497 & **2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)& 1498 & *gm(1,3)*(7.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)& 1499 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))) 1500 cm(6,3)=12*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1501 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,2)*(1.5d0*gm(1,3)& 1502 & **2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)& 1503 & +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-4.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)& 1504 & +gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)& 1505 & *dgm10(3,3)))) 1506 cm(7,3)=((6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1507 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)& 1508 & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)& 1509 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+(12*(90*gm(1,2)& 1510 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)& 1511 & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,3)& 1512 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(3,3))& 1513 & /72.d0 1514 cm(8,3)=((gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+180*gm(1,2)*dgm01(3,3))& 1515 & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(72*gm(3,3)& 1516 & *dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)*(-216*gm(1,1)*gm(2,3)& 1517 & *dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))& 1518 & *dgm10(1,1)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)& 1519 & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))& 1520 & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)& 1521 & *dgm01(1,3)))*dgm10(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1522 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(3,3))/24.d0 1523 cm(9,3)=((6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1524 & *gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1525 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1526 & *gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1527 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+(12*(-12*gm(1,3)& 1528 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1529 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)& 1530 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1531 & *dgm01(1,3))*dgm10(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1532 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(3,3))/24.d0 1533 cm(10,3)=((648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)& 1534 & **2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)& 1535 & *dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,1)+(648*gm(1,3)& 1536 & **2*gm(3,3)*dgm01(1,1)-216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)& 1537 & **3*dgm01(1,3)-432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,3)& 1538 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(3,3))& 1539 & /72.d0 1540 cm(1,4)=(gm(1,1)*(1440*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)& 1541 & *dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)& 1542 & +gm(1,1)*dgm01(2,3)))*dgm10(1,1)+10*gm(1,1)*(432*gm(1,3)*dgm01(1,1)& 1543 & +288*gm(1,1)*dgm01(1,3))*dgm10(1,2)+10*gm(1,1)*(432*gm(1,2)*dgm01(1,1)& 1544 & +288*gm(1,1)*dgm01(1,2))*dgm10(1,3)+1440*gm(1,1)**2*dgm01(1,1)& 1545 & *dgm10(2,3)))/720.d0 1546 cm(2,4)=(2*(36*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)& 1547 & *dgm01(1,1)+gm(1,1)*(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))& 1548 & +gm(1,1)*gm(2,2)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)& 1549 & -36*gm(1,1)*dgm01(2,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)& 1550 & *dgm01(1,2)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+(576*gm(1,1)& 1551 & *gm(1,2)*gm(2,3)*dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)& 1552 & -144*gm(1,1)*dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)& 1553 & *dgm01(1,3)))*dgm10(1,2)+(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)& 1554 & *gm(1,2)*gm(2,2)*dgm01(1,1)+432*gm(1,1)*gm(1,2)**2*dgm01(1,2)& 1555 & -144*gm(1,1)**2*gm(2,2)*dgm01(1,2))*dgm10(1,3)+4*gm(1,1)*(54*gm(1,2)& 1556 & **2-18*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,3))/24.d0 1557 cm(3,4)=(2*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)& 1558 & *dgm01(1,1)+gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))& 1559 & +gm(1,1)*gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)& 1560 & -36*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)& 1561 & *dgm01(1,3)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,1)& 1562 & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)& 1563 & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(1,2)+(gm(1,2)*(72*gm(1,3)& 1564 & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)& 1565 & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))& 1566 & *dgm10(1,3)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 1567 & *dgm10(2,3))/24.d0 1568 cm(4,4)=9*gm(1,2)**2*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)**2*(9*gm(2,2)& 1569 & *dgm01(1,1)*dgm10(1,1)+6*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1570 & *dgm10(1,2)))+gm(1,1)*(9*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(3,3)& 1571 & *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+24*gm(1,2)*(dgm01(1,2)*dgm10(1,1)& 1572 & +dgm01(1,1)*dgm10(1,2)))+6*gm(1,2)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)& 1573 & +dgm01(1,1)*dgm10(1,3)))+gm(1,1)**2*gm(2,3)*(-6*dgm01(2,3)*dgm10(1,1)& 1574 & -12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-6*dgm01(1,1)& 1575 & *dgm10(2,3))+gm(1,3)*(6*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1576 & *dgm10(1,3))+gm(1,1)*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1577 & *dgm10(1,2))+24*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))& 1578 & +gm(1,2)*(-6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(18*dgm01(2,3)& 1579 & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,2)+36*dgm01(1,2)*dgm10(1,3)& 1580 & +18*dgm01(1,1)*dgm10(2,3)))) 1581 cm(5,4)=gm(1,2)*(3*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)& 1582 & *gm(3,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)& 1583 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(6*gm(1,3)**2*(dgm01(1,2)& 1584 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(gm(3,3)*(dgm01(1,2)& 1585 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(2,3)*(dgm01(1,3)*dgm10(1,1)& 1586 & +dgm01(1,1)*dgm10(1,3)))+gm(1,3)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)& 1587 & +gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1588 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))) 1589 cm(6,4)=gm(1,2)**2*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1590 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+12*gm(1,1)*(gm(1,3)& 1591 & *gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 1592 & +dgm01(1,1)*dgm10(1,2))+gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1593 & *dgm10(1,3))))+gm(1,1)*gm(1,2)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)& 1594 & +6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)& 1595 & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1596 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3))) 1597 cm(7,4)=(2*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 1598 & *dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 1599 & +gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 1600 & *gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 1601 & *dgm01(2,3))*dgm10(1,1)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 1602 & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)& 1603 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,2)+(648*gm(1,2)& 1604 & **2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)& 1605 & **3*dgm01(1,2)-432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(1,3)& 1606 & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(2,3))& 1607 & /72.d0 1608 cm(8,4)=(2*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 1609 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 1610 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)& 1611 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1612 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)& 1613 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1614 & *dgm01(2,3))*dgm10(1,1)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)& 1615 & -144*gm(1,2)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)& 1616 & *dgm01(1,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)& 1617 & *gm(2,3)*dgm01(1,3)))*dgm10(1,2)+(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1618 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1619 & *gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1620 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(1,3)+4*(-36*gm(1,1)& 1621 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1622 & *dgm01(1,1)*dgm10(2,3))/24.d0 1623 cm(9,4)=(2*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1624 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)**2*gm(2,2)& 1625 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 1626 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)& 1627 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)& 1628 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 1629 & *gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)+(12*(-12*gm(1,3)**2*gm(2,2)& 1630 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 1631 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1632 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(1,2)& 1633 & +(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))& 1634 & +gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)& 1635 & *(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))& 1636 & *dgm10(1,3)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1637 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(2,3))/24.d0 1638 cm(10,4)=(2*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 1639 & *dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 1640 & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 1641 & *gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 1642 & *dgm01(2,3))*dgm10(1,1)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)& 1643 & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)& 1644 & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,2)+(12*(90*gm(1,3)**2*gm(2,3)& 1645 & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)& 1646 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,3)+4*(90*gm(1,3)& 1647 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(2,3))/72.d0 1648 cm(1,5)=gm(1,1)**2*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 1649 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 1650 cm(2,5)=(30*(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)+gm(1,1)& 1651 & *gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))+gm(1,2)& 1652 & **2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(1,1)& 1653 & +240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,3))& 1654 & /1440.d0 1655 cm(3,5)=1.5d0*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)& 1656 & *gm(1,3)*gm(3,3)*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*gm(1,3)**2*(dgm01(1,3)& 1657 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-3*gm(1,1)**2*gm(3,3)*(dgm01(1,3)& 1658 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)) 1659 cm(4,5)=gm(1,1)*gm(2,3)*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)-6*gm(1,1)& 1660 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,2)*(3*gm(1,3)& 1661 & **2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(1,1)& 1662 & +18*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 1663 cm(5,5)=gm(1,1)*(3*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1664 & *gm(3,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)& 1665 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 1666 cm(6,5)=gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,2)& 1667 & *(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*(dgm01(1,3)*dgm10(1,1)& 1668 & +dgm01(1,1)*dgm10(1,3)))) 1669 cm(7,5)=(30*(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 1670 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)& 1671 & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,2)**3-54*gm(1,1)& 1672 & *gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(1,3))/4320.d0 1673 cm(8,5)=(30*(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)& 1674 & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))& 1675 & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)& 1676 & *dgm01(1,3)))*dgm10(1,1)+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1677 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,3))/1440.d0 1678 cm(9,5)=(30*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1679 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1680 & *dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1681 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,2)& 1682 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1683 & *dgm01(1,1)*dgm10(1,3))/1440.d0 1684 cm(10,5)=(30*(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)& 1685 & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)& 1686 & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,3)**3-54*gm(1,1)& 1687 & *gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(1,3))/4320.d0 1688 cm(1,6)=gm(1,1)**2*(3*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 1689 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))) 1690 cm(2,6)=1.5d0*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)& 1691 & *gm(1,2)*gm(2,2)*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*gm(1,2)**2*(dgm01(1,2)& 1692 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-3*gm(1,1)**2*gm(2,2)*(dgm01(1,2)& 1693 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)) 1694 cm(3,6)=(30*(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)*gm(3,3))*dgm01(1,1)& 1695 & +gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)& 1696 & -144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)& 1697 & **2-18*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/1440.d0 1698 cm(4,6)=3*gm(1,2)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*gm(1,2)& 1699 & *(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+18*gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 1700 & +dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(12*gm(1,3)*gm(2,2)*dgm01(1,1)& 1701 & *dgm10(1,1)-6*gm(1,1)*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1702 & *dgm10(1,2))) 1703 cm(5,6)=gm(1,1)*(3*gm(1,2)*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1704 & *(gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 1705 & +dgm01(1,1)*dgm10(1,2)))) 1706 cm(6,6)=gm(1,1)*(3*gm(1,2)**2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)& 1707 & *gm(2,2)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,2)*(dgm01(1,2)& 1708 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))) 1709 cm(7,6)=(30*(648*gm(1,2)**2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)& 1710 & **2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)-432*gm(1,1)*gm(1,2)& 1711 & *gm(2,2)*dgm01(1,2))*dgm10(1,1)+240*(90*gm(1,2)**3-54*gm(1,1)& 1712 & *gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(1,2))/4320.d0 1713 cm(8,6)=(30*(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1714 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1715 & *dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1716 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(1,1)+240*(-36*gm(1,1)& 1717 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1718 & *dgm01(1,1)*dgm10(1,2))/1440.d0 1719 cm(9,6)=(30*(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)& 1720 & *dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))& 1721 & +gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)& 1722 & *dgm01(1,2)))*dgm10(1,1)+240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1723 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,2))& 1724 & /1440.d0 1725 cm(10,6)=(30*(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)& 1726 & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)**3-54*gm(1,1)& 1727 & *gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,1)+240*(90*gm(1,3)**3-54*gm(1,1)& 1728 & *gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/4320.d0 1729 cm(1,7)=(2*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)& 1730 & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)& 1731 & **2*gm(1,2)*dgm01(2,2))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)& 1732 & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)& 1733 & **2*dgm01(2,2))*dgm10(1,2)+gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)& 1734 & +288*gm(1,1)*dgm01(1,2))*dgm10(2,2))/144.d0 1735 cm(2,7)=(2*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)& 1736 & **2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)& 1737 & *dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))*dgm10(1,1)+4*(72*gm(1,2)& 1738 & **3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)& 1739 & *gm(2,2)*(144*gm(2,2)*dgm01(1,1)-36*gm(1,1)*dgm01(2,2))+gm(1,2)& 1740 & **2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)& 1741 & +(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)& 1742 & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))& 1743 & *dgm10(2,2))/48.d0 1744 cm(3,7)=(2*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1745 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)& 1746 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 1747 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1748 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)& 1749 & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 1750 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)& 1751 & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 1752 & *gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 1753 & *dgm01(2,2))*dgm10(1,2)+(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)*gm(3,3))& 1754 & *dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)+432*gm(1,3)& 1755 & **2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(2,2))/48.d0 1756 cm(4,7)=gm(2,3)*(6*gm(1,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1757 & *dgm10(1,2))+gm(1,2)*(9*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1758 & *(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 1759 & *dgm10(2,2)))+gm(1,1)*(24*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1760 & *dgm10(1,2))-6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))))& 1761 & +gm(1,3)*(-3*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(6*gm(1,2)& 1762 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(12*dgm01(2,2)& 1763 & *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)))& 1764 & +gm(1,2)*(gm(1,2)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1765 & +3*dgm01(1,1)*dgm10(2,2))+18*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1766 & *dgm10(2,2)))) 1767 cm(5,7)=(2*(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))& 1768 & +gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))& 1769 & +144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)& 1770 & *dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))& 1771 & *dgm10(1,1)+4*(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)& 1772 & *(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)& 1773 & *gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)& 1774 & *dgm01(2,2))))*dgm10(1,2)+gm(1,1)*(144*gm(1,2)*gm(1,3)*dgm01(1,1)& 1775 & +288*gm(1,1)*(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))*dgm10(2,2))& 1776 & /48.d0 1777 cm(6,7)=3*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1778 & +gm(1,2)**2*(4.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)& 1779 & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))& 1780 & +gm(1,1)*gm(2,2)*(-1.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1781 & *(6*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)& 1782 & *dgm10(2,2)))+gm(1,1)*gm(1,2)*(15*gm(2,2)*(dgm01(1,2)*dgm10(1,1)& 1783 & +dgm01(1,1)*dgm10(1,2))+6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1784 & *dgm10(2,2))) 1785 cm(7,7)=(2*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)& 1786 & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,1)& 1787 & +4*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)& 1788 & +180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)& 1789 & -108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)+(648*gm(1,2)**2*gm(2,2)& 1790 & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)& 1791 & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(2,2))/144.d0 1792 cm(8,7)=(2*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 1793 & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1794 & *gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1795 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1796 & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)& 1797 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)& 1798 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1799 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)& 1800 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1801 & *dgm01(2,2))*dgm10(1,2)+(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1802 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1803 & *gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1804 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(2,2))& 1805 & /48.d0 1806 cm(9,7)=(2*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))& 1807 & +36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)& 1808 & *dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))& 1809 & *dgm10(1,1)+4*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)& 1810 & *gm(2,2)*dgm01(1,2)+gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)& 1811 & *dgm01(2,2)))+gm(1,3)*(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)& 1812 & **2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))& 1813 & *dgm10(1,2)+(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)& 1814 & *dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))& 1815 & +gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)& 1816 & *dgm01(1,2)))*dgm10(2,2))/48.d0 1817 cm(10,7)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 1818 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1819 & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 1820 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(1,1)+4*(6*(-36*gm(1,2)& 1821 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 1822 & *dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 1823 & *gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)& 1824 & *gm(3,3))*dgm01(2,2))*dgm10(1,2)+(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 1825 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)**3-54*gm(1,1)& 1826 & *gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(2,2))/144.d0 1827 cm(1,8)=(6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1828 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1829 & *gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 1830 & *gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)& 1831 & **2*gm(1,2)*dgm01(3,3))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)& 1832 & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)& 1833 & **2*dgm01(3,3))*dgm10(1,2)+576*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)& 1834 & *dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)& 1835 & +3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))*dgm10(1,3)+2*gm(1,1)& 1836 & **2*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(2,3)& 1837 & +gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))*dgm10(3,3))& 1838 & /144.d0 1839 cm(2,8)=(12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1840 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)& 1841 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 1842 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)& 1843 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)& 1844 & +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 1845 & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)& 1846 & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-12*gm(1,3)**2*gm(2,2)& 1847 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 1848 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1849 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)& 1850 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+8*(36*gm(1,2)& 1851 & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)& 1852 & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)& 1853 & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))& 1854 & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)& 1855 & *dgm01(2,3)))*dgm10(1,3)+2*(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)& 1856 & +gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))& 1857 & +gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(2,3)& 1858 & +(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)& 1859 & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))& 1860 & *dgm10(3,3))/48.d0 1861 cm(3,8)=(6*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)& 1862 & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)& 1863 & *(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)& 1864 & *(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)& 1865 & *(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)& 1866 & *dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(1,1)+4*(72*gm(1,3)& 1867 & **3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)& 1868 & *gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))+gm(1,3)& 1869 & **2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(1,2)& 1870 & +8*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)& 1871 & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)& 1872 & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)& 1873 & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)& 1874 & +108*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,1)& 1875 & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)& 1876 & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(2,3)+(gm(1,2)*(72*gm(1,3)& 1877 & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)& 1878 & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))& 1879 & *dgm10(3,3))/48.d0 1880 cm(4,8)=18*gm(1,2)**2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1881 & *dgm10(1,3))+gm(1,3)**2*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1882 & *dgm10(1,2))+18*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1883 & +gm(1,2)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1884 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(gm(1,1)*gm(3,3)& 1885 & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)& 1886 & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(3*gm(3,3)*dgm01(1,1)& 1887 & *dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 1888 & +3*dgm01(1,1)*dgm10(3,3))))+gm(1,1)*(18*gm(2,3)**2*(dgm01(1,3)& 1889 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(2,2)*gm(3,3)*(dgm01(1,3)& 1890 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(2,3)*(24*gm(3,3)*(dgm01(1,2)& 1891 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(-6*dgm01(3,3)*dgm10(1,2)& 1892 & -12*dgm01(2,3)*dgm10(1,3)-12*dgm01(1,3)*dgm10(2,3)-6*dgm01(1,2)& 1893 & *dgm10(3,3))))+gm(1,3)*(3*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(2,3)& 1894 & *(-12*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)& 1895 & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 1896 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(2,2)*(12*gm(3,3)*dgm01(1,1)& 1897 & *dgm10(1,1)+gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)& 1898 & +12*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*(6*gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 1899 & +dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)& 1900 & *dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))+gm(1,1)*(18*dgm01(3,3)*dgm10(1,2)& 1901 & +36*dgm01(2,3)*dgm10(1,3)+36*dgm01(1,3)*dgm10(2,3)+18*dgm01(1,2)& 1902 & *dgm10(3,3)))) 1903 cm(5,8)=(6*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)& 1904 & *dgm01(1,1)+48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)& 1905 & *(gm(1,1)*(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)& 1906 & *(96*gm(3,3)*dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)& 1907 & *(192*gm(1,2)*dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)& 1908 & *dgm01(1,1)+48*gm(1,1)*dgm01(3,3))))*dgm10(1,1)+4*(36*gm(1,3)& 1909 & **3*dgm01(1,1)+144*gm(1,1)*gm(1,3)**2*dgm01(1,3)+288*gm(1,1)& 1910 & **2*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(1,3)*(180*gm(3,3)*dgm01(1,1)& 1911 & +72*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+8*(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)& 1912 & +144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)*gm(1,3)*dgm01(1,3))& 1913 & +gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)*(gm(3,3)*dgm01(1,2)& 1914 & +gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)& 1915 & *dgm01(2,3))))*dgm10(1,3)+2*gm(1,1)*(144*gm(1,3)**2*dgm01(1,1)& 1916 & +288*gm(1,1)*gm(3,3)*dgm01(1,1)+288*gm(1,1)*gm(1,3)*dgm01(1,3))& 1917 & *dgm10(2,3)+gm(1,1)*(144*gm(1,2)*gm(1,3)*dgm01(1,1)+288*gm(1,1)& 1918 & *(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))*dgm10(3,3))/48.d0 1919 cm(6,8)=(6*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)& 1920 & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)& 1921 & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)& 1922 & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)& 1923 & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)& 1924 & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))& 1925 & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(1,1)& 1926 & +4*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))& 1927 & +gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(1,3)*dgm01(1,3)& 1928 & +gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))))*dgm10(1,2)& 1929 & +8*(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)+72*gm(1,1)*dgm01(1,3))& 1930 & +144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)& 1931 & +gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)& 1932 & +72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))*dgm10(1,3)+2*gm(1,1)& 1933 & *(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)*dgm01(1,1)& 1934 & +288*gm(1,1)*dgm01(1,3)))*dgm10(2,3)+gm(1,1)*(144*gm(1,2)**2*dgm01(1,1)& 1935 & +288*gm(1,1)*gm(2,2)*dgm01(1,1)+288*gm(1,1)*gm(1,2)*dgm01(1,2))& 1936 & *dgm10(3,3))/48.d0 1937 cm(7,8)=(12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 1938 & +2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 1939 & *gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 1940 & *gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 1941 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 1942 & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 1943 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)& 1944 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)& 1945 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)& 1946 & +8*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)& 1947 & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)& 1948 & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 1949 & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))& 1950 & *dgm10(1,3)+2*(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 1951 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)& 1952 & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+(648*gm(1,2)**2*gm(2,2)& 1953 & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)& 1954 & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(3,3))/144.d0 1955 cm(8,8)=(12*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)& 1956 & +2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)& 1957 & +4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1958 & *gm(3,3)))*dgm01(1,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 1959 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)& 1960 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 1961 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(gm(1,3)**2*(72*gm(2,3)& 1962 & *dgm01(1,3)+180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)& 1963 & *dgm01(1,3)+gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))& 1964 & +gm(3,3)*(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)& 1965 & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+8*(6*(6*gm(1,2)& 1966 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)& 1967 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1968 & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1969 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1970 & *gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1971 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(1,3)+2*(gm(1,1)& 1972 & *gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)*dgm01(1,3))+gm(1,3)& 1973 & **2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,2)& 1974 & *gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,3)))*dgm10(2,3)& 1975 & +(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 1976 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)& 1977 & +8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1978 & *gm(3,3)))*dgm01(1,2))*dgm10(3,3))/48.d0 1979 cm(9,8)=(12*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 1980 & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1981 & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1982 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)& 1983 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 1984 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)& 1985 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 1986 & *dgm10(1,1)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 1987 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)& 1988 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 1989 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1990 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)& 1991 & +8*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 1992 & *gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1993 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1994 & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1995 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)& 1996 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1997 & *dgm01(2,3))*dgm10(1,3)+2*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1998 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1999 & *gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2000 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+(gm(1,1)& 2001 & *gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))+gm(1,2)& 2002 & **2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)*(576*gm(1,3)& 2003 & *gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))*dgm10(3,3))& 2004 & /48.d0 2005 cm(10,8)=(6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)& 2006 & **2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2007 & *dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 2008 & +2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 2009 & *gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)& 2010 & -216*gm(1,1)*gm(3,3)**2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)& 2011 & +gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))& 2012 & *dgm10(1,2)+8*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2013 & *dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 2014 & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 2015 & *gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 2016 & *dgm01(2,3))*dgm10(1,3)+2*(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)& 2017 & -216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)& 2018 & -432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+(12*(90*gm(1,3)& 2019 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)& 2020 & +8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(3,3))& 2021 & /144.d0 2022 cm(1,9)=(6*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 2023 & +2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)& 2024 & -18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 2025 & *gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)+144*gm(1,1)& 2026 & **2*gm(1,2)*dgm01(2,3))*dgm10(1,1)+576*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)& 2027 & *dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)& 2028 & +3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))*dgm10(1,2)+4*gm(1,1)& 2029 & *(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)+432*gm(1,1)& 2030 & *gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(1,3)+gm(1,1)& 2031 & **2*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(2,2)& 2032 & +2*gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))& 2033 & *dgm10(2,3))/144.d0 2034 cm(2,9)=(6*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))& 2035 & +gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))& 2036 & +gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)& 2037 & *(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)& 2038 & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)& 2039 & +120*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(36*gm(1,2)**3*dgm01(1,3)& 2040 & +gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(288*gm(2,3)& 2041 & *dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)*(144*gm(2,3)& 2042 & *dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))+gm(1,2)& 2043 & **2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)& 2044 & *dgm01(2,3)))*dgm10(1,2)+4*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)& 2045 & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)& 2046 & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)& 2047 & *dgm01(2,2)))*dgm10(1,3)+(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)& 2048 & +gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))& 2049 & +gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(2,2)& 2050 & +2*(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)& 2051 & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))& 2052 & *dgm10(2,3))/48.d0 2053 cm(3,9)=(6*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)& 2054 & *gm(3,3)*dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)& 2055 & *dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)& 2056 & *dgm01(1,1)-72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)& 2057 & -48*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)& 2058 & **2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)& 2059 & +60*gm(1,1)*dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)& 2060 & *dgm01(2,3))))*dgm10(1,1)+8*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)& 2061 & *(36*gm(1,2)*gm(3,3)*dgm01(1,1)+gm(1,1)*(180*gm(3,3)*dgm01(1,2)& 2062 & +288*gm(2,3)*dgm01(1,3)))+gm(1,1)*gm(3,3)*(144*gm(2,3)*dgm01(1,1)& 2063 & -108*gm(1,2)*dgm01(1,3)-36*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)& 2064 & *dgm01(1,1)+36*gm(1,2)*dgm01(1,3)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,2)& 2065 & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2066 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2067 & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 2068 & *gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2069 & *dgm01(2,2))*dgm10(1,3)+(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)& 2070 & *gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)& 2071 & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(gm(1,2)*(72*gm(1,3)& 2072 & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)& 2073 & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))& 2074 & *dgm10(2,3))/48.d0 2075 cm(4,9)=gm(1,2)**2*(18*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2076 & *dgm10(1,2))+6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))& 2077 & +gm(1,3)**2*(18*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2078 & +gm(1,2)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)& 2079 & *dgm10(2,2)))+gm(1,2)*(3*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(3,3)& 2080 & *(12*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(12*dgm01(2,2)*dgm10(1,1)& 2081 & +48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)))+gm(1,1)& 2082 & *gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)& 2083 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(18*gm(2,3)**2*(dgm01(1,2)& 2084 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+30*gm(2,2)*gm(3,3)*(dgm01(1,2)& 2085 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(2,3)*(24*gm(2,2)*(dgm01(1,3)& 2086 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-12*dgm01(2,3)*dgm10(1,2)& 2087 & -6*dgm01(2,2)*dgm10(1,3)-6*dgm01(1,3)*dgm10(2,2)-12*dgm01(1,2)& 2088 & *dgm10(2,3))))+gm(1,3)*(gm(1,1)*gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)& 2089 & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(1,2)**2*(6*dgm01(2,3)& 2090 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)& 2091 & +6*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)& 2092 & +6*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)& 2093 & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)& 2094 & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(-12*gm(2,3)*(dgm01(1,2)& 2095 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(36*dgm01(2,3)*dgm10(1,2)& 2096 & +18*dgm01(2,2)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)+36*dgm01(1,2)& 2097 & *dgm10(2,3)))) 2098 cm(5,9)=(6*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,1)*(-24*gm(2,3)& 2099 & **2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)+192*gm(1,2)*dgm01(1,2))& 2100 & +192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)& 2101 & +48*gm(1,2)*dgm01(1,2)+24*gm(1,1)*dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)& 2102 & *dgm01(2,2)+96*gm(2,3)*dgm01(2,3))+gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)& 2103 & +gm(1,1)*(48*gm(2,3)*dgm01(1,2)-72*gm(2,2)*dgm01(1,3))+gm(1,2)& 2104 & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(gm(1,2)& 2105 & *(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)& 2106 & *gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)& 2107 & *(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)& 2108 & *dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+4*(36*gm(1,2)& 2109 & **2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)& 2110 & +144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)& 2111 & +gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(1,3)& 2112 & +gm(1,1)*(144*gm(1,3)**2*dgm01(1,1)+288*gm(1,1)*gm(3,3)*dgm01(1,1)& 2113 & +288*gm(1,1)*gm(1,3)*dgm01(1,3))*dgm10(2,2)+2*gm(1,1)*(144*gm(1,2)& 2114 & *gm(1,3)*dgm01(1,1)+288*gm(1,1)*(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))& 2115 & *dgm10(2,3))/48.d0 2116 cm(6,9)=(6*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)& 2117 & *dgm01(1,2)+120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)& 2118 & +24*gm(1,1)*dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)& 2119 & *dgm01(1,2)+gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)& 2120 & *dgm01(2,2)+gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)& 2121 & +96*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(gm(1,2)**2*(36*gm(1,3)& 2122 & *dgm01(1,1)+72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)& 2123 & *dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))& 2124 & +gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)& 2125 & +gm(1,1)*dgm01(2,3))))*dgm10(1,2)+4*(36*gm(1,2)**3*dgm01(1,1)& 2126 & +144*gm(1,1)*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)**2*gm(2,2)*dgm01(1,2)& 2127 & +gm(1,1)*gm(1,2)*(180*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))& 2128 & *dgm10(1,3)+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)& 2129 & *dgm01(1,1)+288*gm(1,1)*dgm01(1,3)))*dgm10(2,2)+2*gm(1,1)*(144*gm(1,2)& 2130 & **2*dgm01(1,1)+288*gm(1,1)*gm(2,2)*dgm01(1,1)+288*gm(1,1)*gm(1,2)& 2131 & *dgm01(1,2))*dgm10(2,3))/48.d0 2132 cm(7,9)=(6*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)& 2133 & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)& 2134 & *dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)& 2135 & *(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))& 2136 & *dgm10(1,1)+8*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 2137 & *dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 2138 & +gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 2139 & *gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 2140 & *dgm01(2,3))*dgm10(1,2)+4*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)& 2141 & -216*gm(1,1)*gm(2,2)**2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)& 2142 & +gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))& 2143 & *dgm10(1,3)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 2144 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)& 2145 & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,2)+2*(648*gm(1,2)**2*gm(2,2)& 2146 & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)& 2147 & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(2,3))/144.d0 2148 cm(8,9)=(6*(12*gm(2,3)**3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)& 2149 & *dgm01(1,2)+96*gm(1,2)*dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)& 2150 & +gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)& 2151 & *dgm01(2,3))+gm(3,3)*(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)& 2152 & **2*dgm01(2,3)-24*gm(1,1)*gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)& 2153 & *(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)& 2154 & *gm(3,3))*dgm01(2,2)+gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)& 2155 & *dgm01(2,3))))*dgm10(1,1)+8*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2156 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)& 2157 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)& 2158 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2159 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2160 & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2161 & *gm(3,3)))*dgm01(2,3))*dgm10(1,2)+4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)& 2162 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)& 2163 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2164 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)& 2165 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 2166 & *dgm01(2,2))*dgm10(1,3)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)& 2167 & -144*gm(1,2)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)& 2168 & *dgm01(1,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)& 2169 & *gm(2,3)*dgm01(1,3)))*dgm10(2,2)+2*(12*(30*gm(1,3)**2*gm(2,2)& 2170 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 2171 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 2172 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(2,3))& 2173 & /48.d0 2174 cm(9,9)=(6*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))& 2175 & -24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)& 2176 & *dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)& 2177 & +24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)& 2178 & **2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)& 2179 & +48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)& 2180 & *dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(1,1)+8*(6*(6*gm(1,3)& 2181 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2182 & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2183 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2184 & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 2185 & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2186 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)& 2187 & +4*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)& 2188 & +gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)& 2189 & *(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)& 2190 & *(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(1,3)& 2191 & +(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2192 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2193 & +8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 2194 & *gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)+2*(gm(1,1)*gm(2,2)*(-216*gm(2,3)& 2195 & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)& 2196 & +720*gm(1,3)*dgm01(1,2))+gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)& 2197 & -288*gm(1,1)*gm(2,3)*dgm01(1,2)))*dgm10(2,3))/48.d0 2198 cm(10,9)=(12*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 2199 & +4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)& 2200 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2201 & *gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2202 & *dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 2203 & *gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(1,1)+8*(6*gm(3,3)*(54*gm(1,3)& 2204 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)& 2205 & **2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 2206 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)& 2207 & *gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(1,2)+4*(6*(-36*gm(1,2)*gm(2,3)& 2208 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2209 & +12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 2210 & *gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 2211 & *dgm01(2,2))*dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)& 2212 & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)& 2213 & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(12*(90*gm(1,3)**2*gm(2,3)& 2214 & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)& 2215 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(2,3))/144.d0 2216 cm(1,10)=(2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)& 2217 & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)& 2218 & **2*gm(1,3)*dgm01(3,3))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)& 2219 & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)& 2220 & **2*dgm01(3,3))*dgm10(1,3)+gm(1,1)**2*(432*gm(1,3)*dgm01(1,1)& 2221 & +288*gm(1,1)*dgm01(1,3))*dgm10(3,3))/144.d0 2222 cm(2,10)=(2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2223 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)& 2224 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 2225 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2226 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)& 2227 & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2228 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2229 & +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2230 & *gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 2231 & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(576*gm(1,1)*gm(1,2)*gm(2,3)& 2232 & *dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)& 2233 & *dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))& 2234 & *dgm10(3,3))/48.d0 2235 cm(3,10)=(2*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)& 2236 & **2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)& 2237 & *dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(1,1)+4*(72*gm(1,3)& 2238 & **3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)& 2239 & *gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))+gm(1,3)& 2240 & **2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)& 2241 & +(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)& 2242 & +432*gm(1,1)*gm(1,3)**2*dgm01(1,3)-144*gm(1,1)**2*gm(3,3)*dgm01(1,3))& 2243 & *dgm10(3,3))/48.d0 2244 cm(4,10)=gm(1,3)**2*(6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2245 & *dgm10(1,3))+gm(1,2)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 2246 & +3*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*gm(3,3)*(-3*gm(3,3)*dgm01(1,1)& 2247 & *dgm10(1,1)+gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)& 2248 & +12*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(2,3)*(24*gm(3,3)*(dgm01(1,3)& 2249 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 2250 & +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(gm(2,3)*(9*gm(3,3)*dgm01(1,1)& 2251 & *dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 2252 & +3*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*(6*gm(3,3)*(dgm01(1,3)*dgm10(1,1)& 2253 & +dgm01(1,1)*dgm10(1,3))+18*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2254 & *dgm10(3,3)))) 2255 cm(5,10)=3*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2256 & +gm(1,3)**2*(4.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)& 2257 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))& 2258 & +gm(1,1)*gm(3,3)*(-1.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 2259 & *(6*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)& 2260 & *dgm10(3,3)))+gm(1,1)*gm(1,3)*(15*gm(3,3)*(dgm01(1,3)*dgm10(1,1)& 2261 & +dgm01(1,1)*dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2262 & *dgm10(3,3))) 2263 cm(6,10)=(2*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))& 2264 & +gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(-72*gm(3,3)& 2265 & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)*gm(3,3)& 2266 & *dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))& 2267 & *dgm10(1,1)+4*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)+gm(1,1)& 2268 & *dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(1,3)& 2269 & *dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))))& 2270 & *dgm10(1,3)+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)& 2271 & *dgm01(1,1)+288*gm(1,1)*dgm01(1,3)))*dgm10(3,3))/48.d0 2272 cm(7,10)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 2273 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2274 & *gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 2275 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))*dgm10(1,1)+4*(6*(-36*gm(1,3)& 2276 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2277 & *dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 2278 & +gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 2279 & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 2280 & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)& 2281 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(3,3))/144.d0 2282 cm(8,10)=(2*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)& 2283 & *dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)& 2284 & +gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,1)& 2285 & +4*(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+180*gm(1,2)*dgm01(3,3))& 2286 & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(72*gm(3,3)& 2287 & *dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)*(-216*gm(1,1)*gm(2,3)& 2288 & *dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))& 2289 & *dgm10(1,3)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)& 2290 & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))& 2291 & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)& 2292 & *dgm01(1,3)))*dgm10(3,3))/48.d0 2293 cm(9,10)=(2*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 2294 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2295 & *gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2296 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2297 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)& 2298 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 2299 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2300 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)& 2301 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 2302 & *dgm01(3,3))*dgm10(1,3)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2303 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2304 & *gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2305 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(3,3))& 2306 & /48.d0 2307 cm(10,10)=(2*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)& 2308 & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,1)& 2309 & +4*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)& 2310 & +180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)& 2311 & -108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)& 2312 & *dgm01(1,1)-216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)& 2313 & -432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(3,3))/144.d0 2314 cm(1,11)=((8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)& 2315 & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)& 2316 & +4*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)& 2317 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)& 2318 & *dgm01(2,2))*dgm10(1,2)+2*gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)& 2319 & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)& 2320 & **2*dgm01(2,2))*dgm10(2,2))/144.d0 2321 cm(2,11)=(gm(2,2)*(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)& 2322 & **2+24*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)+4*(144*gm(1,2)& 2323 & **2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)& 2324 & **3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)& 2325 & *dgm01(2,2)))*dgm10(1,2)+2*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)& 2326 & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)& 2327 & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)& 2328 & *dgm01(2,2)))*dgm10(2,2))/48.d0 2329 cm(3,11)=((8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2330 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+12*(-12*gm(1,3)**2*gm(2,2)& 2331 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 2332 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*(-36*gm(1,3)& 2333 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2334 & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2335 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2336 & *dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2337 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,2)+2*(6*(-12*gm(1,3)& 2338 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2339 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)& 2340 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)& 2341 & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(2,2))& 2342 & /48.d0 2343 cm(4,11)=((8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 2344 & *dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2345 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))*dgm10(1,1)+4*(gm(2,3)& 2346 & *(72*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)& 2347 & *(108*gm(2,2)*dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)& 2348 & **2*dgm01(1,1)+36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)& 2349 & +144*gm(1,1)*dgm01(2,2))))*dgm10(1,2)+2*(gm(1,2)**2*(36*gm(2,3)& 2350 & *dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)& 2351 & *dgm01(1,1)+288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))& 2352 & +gm(1,2)*(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)& 2353 & +108*gm(1,1)*dgm01(2,2))))*dgm10(2,2))/24.d0 2354 cm(5,11)=((8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2355 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)& 2356 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))& 2357 & *dgm10(1,1)+4*(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)& 2358 & *dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)& 2359 & *dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)& 2360 & *gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)& 2361 & *dgm01(2,2))))*dgm10(1,2)+2*(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)& 2362 & +gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))& 2363 & +gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)& 2364 & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,2))/48.d0 2365 cm(6,11)=((8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)& 2366 & +12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2))*dgm10(1,1)& 2367 & +4*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)& 2368 & +gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)& 2369 & *gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(1,2)& 2370 & +2*(36*gm(1,2)**3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)& 2371 & +288*gm(1,1)**2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)& 2372 & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))*dgm10(2,2))/48.d0 2373 cm(7,11)=(gm(2,2)**2*(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))& 2374 & *dgm10(1,1)+4*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)& 2375 & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)& 2376 & +2*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)& 2377 & +180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)& 2378 & -108*gm(1,1)*dgm01(2,2)))*dgm10(2,2))/144.d0 2379 cm(8,11)=((8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 2380 & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2381 & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 2382 & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2383 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)& 2384 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 2385 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,2)+2*(6*(48*gm(1,3)& 2386 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2387 & +12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2388 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2389 & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2390 & *gm(3,3)))*dgm01(2,2))*dgm10(2,2))/48.d0 2391 cm(9,11)=(gm(2,2)*(144*gm(1,2)*gm(2,3)*dgm01(2,2)+288*gm(2,2)& 2392 & *(gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2)))*dgm10(1,1)+4*(gm(2,2)& 2393 & **2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))+36*gm(1,2)& 2394 & **2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)*dgm01(2,2)& 2395 & +gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))*dgm10(1,2)& 2396 & +2*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)& 2397 & +gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)& 2398 & *(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)& 2399 & *(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(2,2))& 2400 & /48.d0 2401 cm(10,11)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 2402 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2403 & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*(90*gm(2,3)**3-54*gm(2,2)& 2404 & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 2405 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)& 2406 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))& 2407 & *dgm10(1,2)+2*(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2408 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)& 2409 & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)& 2410 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(2,2))/144.d0 2411 cm(1,12)=(6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2412 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)**2*gm(1,3)& 2413 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)+gm(1,1)& 2414 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)*(54*gm(1,2)& 2415 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 2416 & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 2417 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)& 2418 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)& 2419 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)& 2420 & *dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))*dgm10(1,2)+6*(2*(90*gm(1,2)& 2421 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)& 2422 & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)& 2423 & +4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)& 2424 & **2*gm(1,3)*dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(1,3)& 2425 & +gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)+432*gm(1,1)& 2426 & *gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(2,2)+288*gm(1,1)& 2427 & *(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)& 2428 & *(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))& 2429 & *dgm10(2,3)+gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)& 2430 & +432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(3,3))& 2431 & /72.d0 2432 cm(2,12)=(6*(2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2433 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*gm(2,2)*(24*gm(1,3)*gm(2,2)& 2434 & +12*gm(1,2)*gm(2,3))*dgm01(1,3)+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2435 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 2436 & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2437 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)& 2438 & **2+24*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+12*((48*gm(1,3)& 2439 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2440 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2441 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2442 & +4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 2443 & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2444 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)& 2445 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+6*(48*gm(1,2)& 2446 & **2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)& 2447 & *dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)& 2448 & +12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)& 2449 & *dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)& 2450 & *dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))& 2451 & *dgm10(1,3)+(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2452 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2453 & *dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2454 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)& 2455 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(36*gm(1,2)& 2456 & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)& 2457 & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)& 2458 & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))& 2459 & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)& 2460 & *dgm01(2,3)))*dgm10(2,3)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)& 2461 & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)& 2462 & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)& 2463 & *dgm01(2,2)))*dgm10(3,3))/24.d0 2464 cm(3,12)=(6*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 2465 & *dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2466 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2467 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 2468 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)& 2469 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2470 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)& 2471 & +6*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)& 2472 & +48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)*(gm(1,1)& 2473 & *(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)*(48*gm(3,3)& 2474 & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)*(48*gm(1,2)& 2475 & *dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)*dgm01(1,1)& 2476 & +96*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+6*(-48*gm(1,2)**2*gm(3,3)& 2477 & *dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)+120*gm(2,3)& 2478 & **2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)& 2479 & +gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)*dgm01(2,3))& 2480 & +gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)+24*gm(1,2)& 2481 & *dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)& 2482 & *dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))+gm(2,3)& 2483 & *(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(1,3)& 2484 & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)& 2485 & +gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))& 2486 & +gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)& 2487 & +4*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)& 2488 & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)& 2489 & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)& 2490 & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)& 2491 & +108*gm(1,1)*dgm01(2,3)))*dgm10(2,3)+(6*(-12*gm(1,3)**2*gm(2,2)& 2492 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 2493 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)& 2494 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)& 2495 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/24.d0 2496 cm(4,12)=(6*(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2497 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)& 2498 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)& 2499 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2500 & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 2501 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 2502 & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 2503 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+6*(72*gm(1,2)**2*gm(3,3)& 2504 & *dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)*dgm01(1,2)+72*gm(2,3)& 2505 & **2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)& 2506 & *dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,2)& 2507 & *(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)*(gm(3,3)*dgm01(1,1)& 2508 & +gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)& 2509 & *(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))+48*gm(2,2)*(gm(3,3)& 2510 & *dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,2)& 2511 & +12*gm(1,2)*dgm01(3,3))))*dgm10(1,2)+6*(gm(1,2)**2*(72*gm(3,3)& 2512 & *dgm01(1,2)+24*gm(2,3)*dgm01(1,3))+gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)& 2513 & +120*gm(2,2)*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(2,3)*dgm01(1,3))& 2514 & +gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)+12*gm(1,2)*dgm01(2,2))+gm(1,2)& 2515 & *(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)*(gm(2,2)*dgm01(1,1)+gm(1,1)& 2516 & *dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))+gm(1,3)*(-48*gm(1,2)& 2517 & *gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)+24*gm(1,2)& 2518 & **2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)*dgm01(1,3)& 2519 & +96*gm(1,1)*dgm01(2,3))))*dgm10(1,3)+(gm(1,3)**2*(36*gm(2,3)& 2520 & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,1)*(288*gm(1,2)*gm(3,3)& 2521 & *dgm01(1,3)+gm(2,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))& 2522 & +gm(1,3)*(72*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)& 2523 & +108*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+4*(54*gm(1,2)**2*gm(3,3)& 2524 & *dgm01(1,1)+gm(1,3)**2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))& 2525 & +gm(1,1)*(54*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)& 2526 & +144*gm(1,2)*dgm01(1,2))+36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)& 2527 & **2*gm(2,3)*dgm01(2,3)+gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)& 2528 & *(36*gm(2,3)*dgm01(1,2)+144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)& 2529 & *dgm01(1,1)+108*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(gm(1,2)**2*(36*gm(2,3)& 2530 & *dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)& 2531 & *dgm01(1,1)+288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))& 2532 & +gm(1,2)*(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)& 2533 & +108*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/12.d0 2534 cm(5,12)=(6*(2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 2535 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+2*(-12*gm(1,3)**2*gm(2,2)& 2536 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 2537 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 2538 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2539 & **2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2540 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)& 2541 & +6*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)& 2542 & +48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)& 2543 & *(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)& 2544 & *dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)& 2545 & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)& 2546 & +48*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+6*(60*gm(1,2)**2*gm(3,3)& 2547 & *dgm01(1,1)+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)& 2548 & *dgm01(1,1)+192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))& 2549 & +gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)& 2550 & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))& 2551 & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)& 2552 & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)& 2553 & *dgm01(2,3))))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)& 2554 & *gm(1,3)**2*dgm01(1,3)+288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)& 2555 & *gm(1,3)*(180*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(2,2)& 2556 & +4*(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)& 2557 & +72*gm(1,1)*gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)& 2558 & +144*gm(1,1)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)& 2559 & *(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(36*gm(1,2)& 2560 & **2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)& 2561 & +144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)& 2562 & +gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(3,3))& 2563 & /24.d0 2564 cm(6,12)=(6*(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2565 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2566 & *dgm01(1,2)+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2567 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)& 2568 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)& 2569 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2570 & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))& 2571 & *dgm10(1,1)+6*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)& 2572 & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)& 2573 & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)& 2574 & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)& 2575 & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)& 2576 & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))& 2577 & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(1,2)& 2578 & +6*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)& 2579 & +120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)& 2580 & *dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)& 2581 & +gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)& 2582 & +gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)& 2583 & *dgm01(2,3))))*dgm10(1,3)+(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)& 2584 & +gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)& 2585 & *gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)& 2586 & *dgm01(3,3))))*dgm10(2,2)+4*(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)& 2587 & +72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)& 2588 & +gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)& 2589 & *(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))& 2590 & *dgm10(2,3)+(36*gm(1,2)**3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)& 2591 & +288*gm(1,1)**2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)& 2592 & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))*dgm10(3,3))/24.d0 2593 cm(7,12)=(3*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)*(216*gm(2,3)& 2594 & **2*dgm01(1,2)-36*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(-72*gm(1,3)& 2595 & *dgm01(2,2)+432*gm(1,2)*dgm01(2,3)))+gm(2,2)**2*(-72*gm(3,3)& 2596 & *dgm01(1,2)+144*gm(2,3)*dgm01(1,3)-144*gm(1,3)*dgm01(2,3)+72*gm(1,2)& 2597 & *dgm01(3,3)))*dgm10(1,1)+12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 2598 & *gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2599 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 2600 & +54*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 2601 & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)& 2602 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+6*(180*gm(1,2)& 2603 & **2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)& 2604 & *dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)& 2605 & *(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)& 2606 & -72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))*dgm10(1,3)& 2607 & +(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2608 & *gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 2609 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)& 2610 & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*gm(2,2)*(-18*gm(1,3)& 2611 & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)& 2612 & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)& 2613 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)& 2614 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+(648*gm(1,2)& 2615 & **2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)+180*gm(1,2)& 2616 & **3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)-108*gm(1,1)& 2617 & *dgm01(2,2)))*dgm10(3,3))/72.d0 2618 cm(8,12)=(6*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)& 2619 & +2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+gm(3,3)& 2620 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)& 2621 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)& 2622 & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2623 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+12*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)& 2624 & *gm(3,3))*dgm01(1,1)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 2625 & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2626 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2627 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)& 2628 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2629 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)& 2630 & +6*(12*gm(2,3)**3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)& 2631 & +96*gm(1,2)*dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)& 2632 & **2*(48*gm(1,3)*dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))& 2633 & +gm(3,3)*(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)& 2634 & -24*gm(1,1)*gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)& 2635 & *dgm01(1,1)+192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)& 2636 & *gm(3,3))*dgm01(2,2)+gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)& 2637 & *dgm01(2,3))))*dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)& 2638 & +180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)& 2639 & +gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)& 2640 & *(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)& 2641 & -36*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+4*(6*(6*gm(1,2)*gm(2,3)& 2642 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2643 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2644 & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2645 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2646 & *gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2647 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(2,3)+(6*(48*gm(1,3)& 2648 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2649 & +12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2650 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2651 & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2652 & *gm(3,3)))*dgm01(2,2))*dgm10(3,3))/24.d0 2653 cm(9,12)=(6*(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 2654 & +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+(48*gm(1,2)& 2655 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)& 2656 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 2657 & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 2658 & *gm(2,3))*dgm01(3,3))*dgm10(1,1)+12*((6*gm(2,3)**3+30*gm(2,2)& 2659 & *gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2660 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)& 2661 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2662 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2663 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)& 2664 & +(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 2665 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+6*(gm(2,2)**2*(48*gm(3,3)& 2666 & *dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)*gm(2,3)**2*dgm01(2,2)& 2667 & +gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)+72*gm(1,3)*dgm01(2,2))& 2668 & +gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)*dgm01(2,3))+gm(2,2)& 2669 & *(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)*gm(3,3))& 2670 & *dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)*dgm01(1,3)& 2671 & -72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)+gm(1,3)& 2672 & *dgm01(2,3))))*dgm10(1,3)+(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2673 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 2674 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2675 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)& 2676 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 2677 & *dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2678 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)& 2679 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2680 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)& 2681 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2682 & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2683 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+(gm(2,3)& 2684 & *(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)& 2685 & *(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)*(144*gm(2,2)& 2686 & **2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)& 2687 & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/24.d0 2688 cm(10,12)=(3*(144*gm(2,3)*gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)& 2689 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)& 2690 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)& 2691 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2692 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)& 2693 & +144*gm(1,3)*gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)& 2694 & -18*gm(1,2)*gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2695 & *gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)& 2696 & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(1,2)+12*(gm(3,3)& 2697 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)& 2698 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)& 2699 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2700 & +gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)& 2701 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))& 2702 & *dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)& 2703 & **2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)& 2704 & *dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+4*(6*gm(3,3)& 2705 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)& 2706 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)& 2707 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)& 2708 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(2,3)& 2709 & +(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2710 & *gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 2711 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)& 2712 & *gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/72.d0 2713 cm(1,13)=((6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 2714 & +2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 2715 & *gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 2716 & *gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 2717 & *dgm01(2,3))*dgm10(1,1)+3*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2718 & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)& 2719 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)& 2720 & **2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)& 2721 & +144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(1,2)+(2*(90*gm(1,2)& 2722 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,2)& 2723 & **2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)*dgm01(2,2))& 2724 & *dgm10(1,3)+72*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)& 2725 & *dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)& 2726 & +gm(1,1)*dgm01(2,3)))*dgm10(2,2)+gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)& 2727 & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)& 2728 & **2*dgm01(2,2))*dgm10(2,3))/36.d0 2729 cm(2,13)=((6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 2730 & *dgm01(1,2)+72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)& 2731 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)& 2732 & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,1)& 2733 & +3*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)& 2734 & *gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)& 2735 & *(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)& 2736 & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)& 2737 & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)& 2738 & +120*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(144*gm(1,2)**2*gm(2,2)& 2739 & *dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)& 2740 & +gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))& 2741 & *dgm10(1,3)+(36*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)& 2742 & *dgm01(1,1)+gm(1,1)*(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))& 2743 & +gm(1,1)*gm(2,2)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)& 2744 & -36*gm(1,1)*dgm01(2,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)& 2745 & *dgm01(1,2)+108*gm(1,1)*dgm01(2,3)))*dgm10(2,2)+(72*gm(1,2)**3*dgm01(1,2)& 2746 & +360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)& 2747 & *dgm01(1,1)-36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)& 2748 & +108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0 2749 cm(3,13)=((6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2750 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 2751 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)& 2752 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2753 & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2754 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2755 & *dgm01(2,3))*dgm10(1,1)+3*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)& 2756 & +gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)& 2757 & -24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)+gm(1,2)& 2758 & *gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)*dgm01(2,3))+gm(1,3)& 2759 & **2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))& 2760 & +gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)*dgm01(1,1)& 2761 & +48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))+gm(2,3)*(144*gm(1,2)& 2762 & *dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(2*(-36*gm(1,3)& 2763 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2764 & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2765 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2766 & *dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2767 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,2)& 2768 & +gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)+gm(1,1)*(180*gm(3,3)& 2769 & *dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)*gm(3,3)*(144*gm(2,3)& 2770 & *dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)*dgm01(2,3))+gm(1,3)& 2771 & **2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)+108*gm(1,1)& 2772 & *dgm01(2,3)))*dgm10(2,2)+(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2773 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 2774 & *gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2775 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)& 2776 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(2,3))/12.d0 2777 cm(4,13)=((6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 2778 & *gm(3,3)))*dgm01(1,2)+2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 2779 & *gm(2,3))*dgm01(1,3)+6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 2780 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 2781 & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2782 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)& 2783 & +3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))& 2784 & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)& 2785 & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)& 2786 & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)& 2787 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))& 2788 & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)& 2789 & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)& 2790 & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(gm(2,3)*(72*gm(1,2)& 2791 & **2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)& 2792 & *dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)& 2793 & +36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)& 2794 & *dgm01(2,2))))*dgm10(1,3)+(54*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)& 2795 & **2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))+gm(1,1)*(54*gm(2,3)& 2796 & **2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)+144*gm(1,2)*dgm01(1,2))& 2797 & +36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)**2*gm(2,3)*dgm01(2,3)& 2798 & +gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(36*gm(2,3)*dgm01(1,2)& 2799 & +144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)*dgm01(1,1)+108*gm(1,1)& 2800 & *dgm01(2,3))))*dgm10(2,2)+(gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)& 2801 & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)*dgm01(1,1)& 2802 & +288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)& 2803 & *(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)& 2804 & +108*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/6.d0 2805 cm(5,13)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2806 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2807 & *dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2808 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+6*(6*gm(1,1)*gm(1,3)& 2809 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)& 2810 & +6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2811 & *gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)+3*(60*gm(1,2)**2*gm(3,3)& 2812 & *dgm01(1,1)+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)& 2813 & *dgm01(1,1)+192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))& 2814 & +gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)& 2815 & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))& 2816 & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)& 2817 & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)& 2818 & *dgm01(2,3))))*dgm10(1,2)+(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)& 2819 & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)& 2820 & -216*gm(1,3)*dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)& 2821 & *(576*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)& 2822 & +72*gm(1,1)*dgm01(2,2))))*dgm10(1,3)+(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)& 2823 & +144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)*gm(1,3)*dgm01(1,3))& 2824 & +gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)*(gm(3,3)*dgm01(1,2)& 2825 & +gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)& 2826 & *dgm01(2,3))))*dgm10(2,2)+(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)+gm(1,1)& 2827 & *gm(1,2)*(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))+gm(1,1)& 2828 & *(288*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)*dgm01(1,1)& 2829 & +72*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/12.d0 2830 cm(6,13)=((6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2831 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)& 2832 & **2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 2833 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)& 2834 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,1)+3*(24*gm(1,2)& 2835 & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)& 2836 & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))& 2837 & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)& 2838 & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)& 2839 & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))& 2840 & *dgm10(1,2)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)& 2841 & *dgm01(1,2)+gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))& 2842 & +gm(1,1)*gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))& 2843 & *dgm10(1,3)+(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)+72*gm(1,1)*dgm01(1,3))& 2844 & +144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)& 2845 & +gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)& 2846 & +72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))*dgm10(2,2)+(36*gm(1,2)& 2847 & **3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)& 2848 & **2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)*dgm01(1,1)& 2849 & +72*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0 2850 cm(7,13)=(72*gm(2,2)*(1*gm(2,2)**2*dgm01(1,3)+4.5d0*gm(1,2)& 2851 & *gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)*dgm01(1,2)-1.5d0*gm(1,3)& 2852 & *dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,1)+3*(180*gm(1,2)& 2853 & **2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)& 2854 & *dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)& 2855 & *(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)& 2856 & -72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))*dgm10(1,2)& 2857 & +gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)& 2858 & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,3)& 2859 & +(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)& 2860 & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)& 2861 & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 2862 & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))& 2863 & *dgm10(2,2)+(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)& 2864 & **2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)& 2865 & *dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/36.d0 2866 cm(8,13)=((6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 2867 & +2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)& 2868 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)& 2869 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2870 & *gm(3,3)))*dgm01(2,3))*dgm10(1,1)+3*(12*gm(2,3)**3*dgm01(1,1)& 2871 & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))& 2872 & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)& 2873 & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)& 2874 & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)& 2875 & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)& 2876 & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)& 2877 & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(1,2)& 2878 & +(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)& 2879 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2880 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2881 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))& 2882 & *dgm10(1,3)+(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2883 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2884 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)& 2885 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2886 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)& 2887 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 2888 & *dgm01(2,3))*dgm10(2,2)+(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2889 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)& 2890 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2891 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)& 2892 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 2893 & *dgm01(2,2))*dgm10(2,3))/12.d0 2894 cm(9,13)=((36*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)& 2895 & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)& 2896 & *(72*gm(2,3)**2*dgm01(1,2)+144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)& 2897 & *(36*gm(1,3)*dgm01(2,2)+72*gm(1,2)*dgm01(2,3))))*dgm10(1,1)+3*(gm(2,2)& 2898 & **2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)& 2899 & *gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)& 2900 & +72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)& 2901 & *dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)& 2902 & *gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)& 2903 & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)& 2904 & +gm(1,3)*dgm01(2,3))))*dgm10(1,2)+(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)& 2905 & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)& 2906 & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)& 2907 & +288*gm(1,3)*dgm01(2,2))))*dgm10(1,3)+(6*(6*gm(1,3)*gm(2,2)*gm(2,3)& 2908 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)& 2909 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2910 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)& 2911 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2912 & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2913 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+(gm(2,3)& 2914 & *(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)& 2915 & *(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)*(144*gm(2,2)& 2916 & **2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)& 2917 & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/12.d0 2918 cm(10,13)=((6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 2919 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)& 2920 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)& 2921 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2922 & *dgm01(2,3))*dgm10(1,1)+6*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 2923 & *gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 2924 & *gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2925 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2926 & *gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)& 2927 & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(1,2)+(2*(90*gm(2,3)& 2928 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)& 2929 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 2930 & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 2931 & *gm(3,3))*dgm01(2,2))*dgm10(1,3)+(6*gm(3,3)*(54*gm(1,3)*gm(2,3)& 2932 & -18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2933 & *gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)& 2934 & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)& 2935 & *gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(2,2)+(6*(-36*gm(1,2)*gm(2,3)& 2936 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 2937 & +12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))& 2938 & *gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 2939 & *dgm01(2,2))*dgm10(2,3))/36.d0 2940 cm(1,14)=((2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)& 2941 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2942 & *gm(3,3)))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2943 & *dgm01(2,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 2944 & *dgm01(3,3))*dgm10(1,1)+(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)& 2945 & *gm(3,3))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2946 & *dgm01(1,3)+216*gm(1,1)**2*gm(1,3)*dgm01(3,3))*dgm10(1,2)+3*(2*(-36*gm(1,1)& 2947 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 2948 & *dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 2949 & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)& 2950 & +144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))& 2951 & *dgm10(1,3)+gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 2952 & +432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(2,3)& 2953 & +72*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)*dgm01(1,3))& 2954 & +gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)+gm(1,1)& 2955 & *dgm01(2,3)))*dgm10(3,3))/36.d0 2956 cm(2,14)=((2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2957 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)& 2958 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)& 2959 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2960 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)& 2961 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2962 & *dgm01(3,3))*dgm10(1,1)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2963 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 2964 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2965 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)& 2966 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 2967 & *dgm01(3,3))*dgm10(1,2)+6*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2968 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)& 2969 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2970 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)& 2971 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2972 & *dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2973 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)& 2974 & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(6*(-12*gm(1,3)**2*gm(2,2)& 2975 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 2976 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2977 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)& 2978 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+(36*gm(1,2)& 2979 & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)& 2980 & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)& 2981 & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))& 2982 & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)& 2983 & *dgm01(2,3)))*dgm10(3,3))/12.d0 2984 cm(3,14)=((gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,2)+72*gm(2,3)& 2985 & *dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(2,3)& 2986 & +36*gm(2,3)*dgm01(3,3))+144*gm(3,3)*(gm(1,2)*gm(3,3)*dgm01(1,3)& 2987 & +gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))))*dgm10(1,1)& 2988 & +(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)& 2989 & +36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)& 2990 & +180*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+3*(24*gm(1,3)**3*dgm01(2,3)& 2991 & +gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)& 2992 & *dgm01(3,3))+gm(3,3)*(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)& 2993 & *dgm01(1,3))+gm(1,2)*(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))& 2994 & +gm(1,3)*(gm(3,3)*(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))& 2995 & +gm(2,3)*(24*gm(3,3)*dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(1,3)& 2996 & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)& 2997 & +gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))& 2998 & +gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(2,3)& 2999 & +(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)& 3000 & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)& 3001 & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)& 3002 & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)& 3003 & +108*gm(1,1)*dgm01(2,3)))*dgm10(3,3))/12.d0 3004 cm(4,14)=((2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3005 & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 3006 & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3007 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)& 3008 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 3009 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(gm(1,3)& 3010 & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)& 3011 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)& 3012 & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 3013 & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(1,2)& 3014 & +3*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)& 3015 & *dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))& 3016 & +gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)& 3017 & *dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)& 3018 & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)& 3019 & **2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))& 3020 & +48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)& 3021 & *dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(1,3)+(gm(1,3)**2*(36*gm(2,3)& 3022 & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,1)*(288*gm(1,2)*gm(3,3)& 3023 & *dgm01(1,3)+gm(2,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))& 3024 & +gm(1,3)*(72*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)& 3025 & +108*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(54*gm(1,2)**2*gm(3,3)& 3026 & *dgm01(1,1)+gm(1,3)**2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))& 3027 & +gm(1,1)*(54*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)& 3028 & +144*gm(1,2)*dgm01(1,2))+36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)& 3029 & **2*gm(2,3)*dgm01(2,3)+gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)& 3030 & *(36*gm(2,3)*dgm01(1,2)+144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)& 3031 & *dgm01(1,1)+108*gm(1,1)*dgm01(2,3))))*dgm10(3,3))/6.d0 3032 cm(5,14)=((2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 3033 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 3034 & *gm(2,3)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 3035 & *gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3036 & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,3)& 3037 & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)& 3038 & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)*gm(3,3)*(-36*gm(3,3)& 3039 & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+3*(24*gm(1,3)& 3040 & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)& 3041 & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)& 3042 & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)& 3043 & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)& 3044 & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)& 3045 & *dgm01(3,3))))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)& 3046 & *gm(1,3)**2*dgm01(1,3)+288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)& 3047 & *gm(1,3)*(180*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(2,3)& 3048 & +(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)& 3049 & +72*gm(1,1)*gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)& 3050 & +144*gm(1,1)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)& 3051 & *(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(3,3))& 3052 & /12.d0 3053 cm(6,14)=((2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 3054 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)& 3055 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 3056 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)& 3057 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)& 3058 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 3059 & *dgm01(3,3))*dgm10(1,1)+(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)& 3060 & *dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 3061 & *(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)& 3062 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)& 3063 & *dgm01(3,3))))*dgm10(1,2)+3*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)& 3064 & +gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)& 3065 & *(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)& 3066 & *dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))& 3067 & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)& 3068 & -72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)& 3069 & +24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)& 3070 & +48*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+(288*gm(1,1)*gm(2,3)*(gm(1,3)& 3071 & *dgm01(1,1)+gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)& 3072 & +144*gm(1,1)*gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)& 3073 & +72*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(gm(1,2)**2*(36*gm(1,3)& 3074 & *dgm01(1,1)+72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)& 3075 & *dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))& 3076 & +gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)& 3077 & +gm(1,1)*dgm01(2,3))))*dgm10(3,3))/12.d0 3078 cm(7,14)=((2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3079 & +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)& 3080 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3081 & *dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 3082 & *dgm01(3,3))*dgm10(1,1)+(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)& 3083 & *gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3084 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)& 3085 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))& 3086 & *dgm10(1,2)+6*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 3087 & +2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3088 & *gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 3089 & *gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 3090 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3091 & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3092 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)& 3093 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)& 3094 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,3)& 3095 & +(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)& 3096 & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)& 3097 & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 3098 & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))& 3099 & *dgm10(3,3))/36.d0 3100 cm(8,14)=((72*gm(2,3)*gm(3,3)**2*dgm01(1,2)+6*gm(3,3)*(12*gm(2,3)& 3101 & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+6*gm(3,3)*(12*gm(1,3)*gm(2,3)& 3102 & +24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)& 3103 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)& 3104 & +(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))& 3105 & +gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)& 3106 & *(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,2)& 3107 & +6*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)& 3108 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)& 3109 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3110 & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 3111 & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3112 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 3113 & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)& 3114 & +180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)& 3115 & +gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)& 3116 & *(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)& 3117 & -36*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(6*(6*gm(1,2)*gm(2,3)*gm(3,3)& 3118 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)& 3119 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3120 & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3121 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3122 & *dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3123 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0 3124 cm(9,14)=((2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3125 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*(48*gm(1,2)& 3126 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)& 3127 & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3128 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 3129 & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3130 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)& 3131 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 3132 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+6*((6*gm(2,3)& 3133 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)& 3134 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3135 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3136 & *gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 3137 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 3138 & *gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3139 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+(6*(48*gm(1,2)& 3140 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 3141 & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3142 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3143 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 3144 & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(6*(6*gm(1,3)*gm(2,2)& 3145 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)& 3146 & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3147 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3148 & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3149 & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3150 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))& 3151 & /12.d0 3152 cm(10,14)=(72*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)+4.5d0*gm(1,3)& 3153 & *gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)+3*gm(1,3)*dgm01(2,3)& 3154 & -1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,1)+gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)& 3155 & +324*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)& 3156 & *dgm01(3,3)))*dgm10(1,2)+3*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)& 3157 & +144*gm(1,3)*gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)& 3158 & -18*gm(1,2)*gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 3159 & *gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)& 3160 & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(648*gm(1,3)& 3161 & **2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)+180*gm(1,3)& 3162 & **3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)-108*gm(1,1)& 3163 & *dgm01(3,3)))*dgm10(2,3)+(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 3164 & *gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 3165 & *dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 3166 & *gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)& 3167 & *gm(3,3))*dgm01(2,3))*dgm10(3,3))/36.d0 3168 cm(1,15)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 3169 & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)& 3170 & +4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)& 3171 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)& 3172 & *dgm01(3,3))*dgm10(1,3)+2*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)& 3173 & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)& 3174 & **2*dgm01(3,3))*dgm10(3,3))/144.d0 3175 cm(2,15)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 3176 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)& 3177 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 3178 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*(-36*gm(1,2)& 3179 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3180 & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3181 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3182 & *dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3183 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+2*(6*(-12*gm(1,3)& 3184 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3185 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)& 3186 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3187 & *dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))& 3188 & *dgm10(3,3))/48.d0 3189 cm(3,15)=(gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)& 3190 & **2+24*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(144*gm(1,3)& 3191 & **2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)& 3192 & **3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)& 3193 & *dgm01(3,3)))*dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)& 3194 & *gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)& 3195 & -36*gm(1,1)*dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)& 3196 & *dgm01(3,3)))*dgm10(3,3))/48.d0 3197 cm(4,15)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3198 & *dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 3199 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(gm(1,3)& 3200 & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)& 3201 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)& 3202 & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 3203 & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(1,3)& 3204 & +2*(gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))& 3205 & +gm(1,1)*(288*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(144*gm(3,3)& 3206 & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(72*gm(1,1)*gm(2,3)& 3207 & *dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3))))& 3208 & *dgm10(3,3))/24.d0 3209 cm(5,15)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)& 3210 & +12*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,1)& 3211 & +4*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)& 3212 & +gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)& 3213 & *gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(1,3)& 3214 & +2*(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)*gm(1,3)**2*dgm01(1,3)& 3215 & +288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(1,3)*(180*gm(3,3)& 3216 & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(3,3))/48.d0 3217 cm(6,15)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 3218 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)& 3219 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))& 3220 & *dgm10(1,1)+4*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)& 3221 & *dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 3222 & *(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)& 3223 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)& 3224 & *dgm01(3,3))))*dgm10(1,3)+2*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)& 3225 & +gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)& 3226 & *gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)& 3227 & *dgm01(3,3))))*dgm10(3,3))/48.d0 3228 cm(7,15)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 3229 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3230 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*(90*gm(2,3)**3-54*gm(2,2)& 3231 & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3232 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)& 3233 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))& 3234 & *dgm10(1,3)+2*(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3235 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)& 3236 & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)& 3237 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/144.d0 3238 cm(8,15)=(gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)& 3239 & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(288*gm(1,2)& 3240 & *gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)& 3241 & **2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)& 3242 & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,3)+2*(gm(1,3)**2*(72*gm(2,3)& 3243 & *dgm01(1,3)+180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)& 3244 & *dgm01(1,3)+gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))& 3245 & +gm(3,3)*(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)& 3246 & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/48.d0 3247 cm(9,15)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 3248 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3249 & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 3250 & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3251 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)& 3252 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 3253 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(6*(48*gm(1,2)& 3254 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)& 3255 & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3256 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3257 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 3258 & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))/48.d0 3259 cm(10,15)=(gm(3,3)**2*(288*gm(3,3)*dgm01(1,3)+432*gm(1,3)*dgm01(3,3))& 3260 & *dgm10(1,1)+4*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)& 3261 & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)& 3262 & +2*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)& 3263 & +180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)& 3264 & -108*gm(1,1)*dgm01(3,3)))*dgm10(3,3))/144.d0 3265 cm(1,16)=(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 3266 & *dgm10(1,1)+(8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)& 3267 & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,2)& 3268 & +(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)& 3269 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)& 3270 & *dgm01(2,2))*dgm10(2,2))/72.d0 3271 cm(2,16)=(1440*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)& 3272 & *(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)**2+24*gm(1,1)& 3273 & *gm(2,2))*dgm01(2,2))*dgm10(1,2)+20*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)& 3274 & +288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)+gm(1,2)& 3275 & *gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))*dgm10(2,2))& 3276 & /480.d0 3277 cm(3,16)=(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3278 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+(8*(-36*gm(1,3)& 3279 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3280 & *dgm01(1,2)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3281 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3282 & *dgm01(2,2))*dgm10(1,2)+(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3283 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 3284 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3285 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)& 3286 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))& 3287 & *dgm10(2,2))/24.d0 3288 cm(4,16)=(2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 3289 & *dgm01(2,2)*dgm10(1,1)+(8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 3290 & *gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3291 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))*dgm10(1,2)& 3292 & +(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)& 3293 & +gm(1,2)*(108*gm(2,2)*dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)& 3294 & *(-36*gm(2,2)**2*dgm01(1,1)+36*gm(1,2)**2*dgm01(2,2)+gm(2,2)& 3295 & *(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)*dgm01(2,2))))*dgm10(2,2))& 3296 & /12.d0 3297 cm(5,16)=(2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 3298 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,1)+(8*(-36*gm(1,2)& 3299 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3300 & *dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3301 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,2)+(gm(1,2)& 3302 & **2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)& 3303 & *(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))+144*gm(1,1)& 3304 & *gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)*dgm01(1,2)& 3305 & +gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,2))& 3306 & /24.d0 3307 cm(6,16)=(2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)& 3308 & *dgm10(1,1)+(8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)& 3309 & +12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2))*dgm10(1,2)& 3310 & +(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)& 3311 & +gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)& 3312 & *gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(2,2))& 3313 & /24.d0 3314 cm(7,16)=(gm(2,2)*(1440*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)& 3315 & *(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))*dgm10(1,2)+20*(72*gm(2,2)& 3316 & **2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(432*gm(1,2)& 3317 & *dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,2)))/1440.d0 3318 cm(8,16)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 3319 & *dgm10(1,1)+(8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3320 & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 3321 & *gm(3,3)))*dgm01(2,2))*dgm10(1,2)+(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 3322 & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3323 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)& 3324 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 3325 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(2,2))/24.d0 3326 cm(9,16)=(1440*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)& 3327 & *(144*gm(1,2)*gm(2,3)*dgm01(2,2)+288*gm(2,2)*(gm(2,3)*dgm01(1,2)& 3328 & +gm(1,3)*dgm01(2,2)))*dgm10(1,2)+20*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)& 3329 & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)& 3330 & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)& 3331 & +288*gm(1,3)*dgm01(2,2))))*dgm10(2,2))/480.d0 3332 cm(10,16)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 3333 & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3334 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 3335 & *gm(3,3)))*dgm01(2,2))*dgm10(1,2)+(2*(90*gm(2,3)**3-54*gm(2,2)& 3336 & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3337 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)& 3338 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))& 3339 & *dgm10(2,2))/72.d0 3340 cm(1,17)=(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3341 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(90*gm(1,2)& 3342 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)& 3343 & *dgm10(1,1)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)& 3344 & *dgm10(1,1)+12*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3345 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)**2*gm(1,3)& 3346 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)+gm(1,1)& 3347 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)*(54*gm(1,2)& 3348 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 3349 & *gm(2,2))*dgm01(3,3))*dgm10(1,2)+4*(6*(90*gm(1,2)**2*gm(1,3)& 3350 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)& 3351 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)& 3352 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)& 3353 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+3*(2*(-36*gm(1,1)& 3354 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 3355 & *dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 3356 & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)& 3357 & +144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))& 3358 & *dgm10(2,2)+6*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 3359 & +2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)& 3360 & -18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 3361 & *gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)+144*gm(1,1)& 3362 & **2*gm(1,2)*dgm01(2,3))*dgm10(2,3)+(2*(90*gm(1,2)**3-54*gm(1,1)& 3363 & *gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 3364 & *gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)*dgm01(2,2))*dgm10(3,3))& 3365 & /72.d0 3366 cm(2,17)=(12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3367 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+24*gm(2,2)*(24*gm(1,3)& 3368 & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)+144*gm(1,2)& 3369 & *gm(2,2)**2*dgm01(3,3)*dgm10(1,1)+24*(2*(48*gm(1,3)*gm(2,2)*gm(2,3)& 3370 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*gm(2,2)& 3371 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)+(-12*gm(1,3)& 3372 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3373 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)& 3374 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3375 & *dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3))& 3376 & *dgm10(1,2)+8*(6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3377 & *dgm01(1,2)+72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)& 3378 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)& 3379 & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)& 3380 & +12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 3381 & *gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 3382 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 3383 & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3384 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)& 3385 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3386 & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))& 3387 & *dgm10(2,2)+12*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))& 3388 & +gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))& 3389 & +gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)& 3390 & *(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)& 3391 & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)& 3392 & +120*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+2*(144*gm(1,2)**2*gm(2,2)& 3393 & *dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)& 3394 & +gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))& 3395 & *dgm10(3,3))/48.d0 3396 cm(3,17)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3397 & *dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3398 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+2*(-36*gm(1,3)& 3399 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3400 & *dgm01(3,3)*dgm10(1,1)+12*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 3401 & *gm(3,3))*dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3402 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 3403 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3404 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)& 3405 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3406 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)& 3407 & +4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3408 & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3409 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)& 3410 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 3411 & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3412 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3413 & *dgm01(2,3))*dgm10(1,3)+3*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)& 3414 & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)& 3415 & *(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)& 3416 & *(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)& 3417 & *(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)& 3418 & *dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+6*(-48*gm(1,2)& 3419 & **2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)& 3420 & +120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)& 3421 & **3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)& 3422 & *dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)& 3423 & +24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)& 3424 & *(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))& 3425 & +gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(2,3)& 3426 & +(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3427 & *gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 3428 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 3429 & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3430 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(3,3))/24.d0 3431 cm(4,17)=(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 3432 & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3433 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)& 3434 & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3)& 3435 & *dgm10(1,1)+12*(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3436 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3437 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)& 3438 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 3439 & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 3440 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 3441 & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3442 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(1,3)*gm(2,2)& 3443 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3444 & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)& 3445 & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 3446 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)& 3447 & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3448 & *gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(72*gm(1,2)**2*gm(3,3)& 3449 & *dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)*dgm01(1,2)+72*gm(2,3)& 3450 & **2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)& 3451 & *dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,2)& 3452 & *(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)*(gm(3,3)*dgm01(1,1)& 3453 & +gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)& 3454 & *(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))+48*gm(2,2)*(gm(3,3)& 3455 & *dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,2)& 3456 & +12*gm(1,2)*dgm01(3,3))))*dgm10(2,2)+6*(gm(1,2)**2*(72*gm(3,3)& 3457 & *dgm01(1,2)+24*gm(2,3)*dgm01(1,3))+gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)& 3458 & +120*gm(2,2)*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(2,3)*dgm01(1,3))& 3459 & +gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)+12*gm(1,2)*dgm01(2,2))+gm(1,2)& 3460 & *(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)*(gm(2,2)*dgm01(1,1)+gm(1,1)& 3461 & *dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))+gm(1,3)*(-48*gm(1,2)& 3462 & *gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)+24*gm(1,2)& 3463 & **2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)*dgm01(1,3)& 3464 & +96*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)& 3465 & +288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)*dgm01(1,1)& 3466 & +36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)+36*gm(1,2)& 3467 & **2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)*dgm01(2,2))))& 3468 & *dgm10(3,3))/12.d0 3469 cm(5,17)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 3470 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(1,1)+12*(-12*gm(1,3)& 3471 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3472 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)& 3473 & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3474 & *gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+12*(2*(6*gm(1,3)**2*gm(2,3)& 3475 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3476 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3477 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3478 & +(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)& 3479 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)& 3480 & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 3481 & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+4*(6*(-12*gm(1,3)**2*gm(2,2)& 3482 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 3483 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 3484 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)& 3485 & +6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 3486 & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 3487 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(24*gm(1,3)& 3488 & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)& 3489 & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)& 3490 & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)& 3491 & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)& 3492 & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)& 3493 & *dgm01(3,3))))*dgm10(2,2)+6*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)& 3494 & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)& 3495 & +192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)& 3496 & **2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)& 3497 & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))& 3498 & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)& 3499 & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)& 3500 & *dgm01(2,3))))*dgm10(2,3)+(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)& 3501 & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)& 3502 & -216*gm(1,3)*dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)& 3503 & *(576*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)& 3504 & +72*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/24.d0 3505 cm(6,17)=(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3506 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3507 & *dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3508 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)& 3509 & +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(1,1)& 3510 & +12*(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3511 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3512 & +2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3513 & *gm(2,2)*gm(2,3))*dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3514 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)& 3515 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)& 3516 & +(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)& 3517 & +4*(6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3518 & *gm(2,2)*gm(2,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3519 & *gm(2,2))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 3520 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)& 3521 & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+3*(-24*gm(1,2)**2*gm(3,3)& 3522 & *dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)*dgm01(1,2))& 3523 & +gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)*dgm01(1,2)& 3524 & +gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)& 3525 & *dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)*gm(3,3)& 3526 & *dgm01(1,1)-72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)*gm(2,3)& 3527 & *dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)& 3528 & *dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+6*(24*gm(1,2)& 3529 & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)& 3530 & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))& 3531 & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)& 3532 & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)& 3533 & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))& 3534 & *dgm10(2,3)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)& 3535 & *dgm01(1,2)+gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))& 3536 & +gm(1,1)*gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))& 3537 & *dgm10(3,3))/24.d0 3538 cm(7,17)=(12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 3539 & *dgm10(1,1)+864*gm(2,2)**2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+144*gm(2,2)& 3540 & **3*dgm01(3,3)*dgm10(1,1)+12*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)& 3541 & +gm(2,2)*(216*gm(2,3)**2*dgm01(1,2)-36*gm(1,2)*gm(3,3)*dgm01(2,2)& 3542 & +gm(2,3)*(-72*gm(1,3)*dgm01(2,2)+432*gm(1,2)*dgm01(2,3)))+gm(2,2)& 3543 & **2*(-72*gm(3,3)*dgm01(1,2)+144*gm(2,3)*dgm01(1,3)-144*gm(1,3)& 3544 & *dgm01(2,3)+72*gm(1,2)*dgm01(3,3)))*dgm10(1,2)+576*gm(2,2)*(1*gm(2,2)& 3545 & **2*dgm01(1,3)+4.5d0*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)& 3546 & *dgm01(1,2)-1.5d0*gm(1,3)*dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,3)& 3547 & +12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)& 3548 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3549 & *dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 3550 & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 3551 & +gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3552 & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+12*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)& 3553 & +gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)& 3554 & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)& 3555 & *dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))& 3556 & +216*gm(1,2)**2*dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(72*gm(2,2)& 3557 & **2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(432*gm(1,2)& 3558 & *dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(3,3))/144.d0 3559 cm(8,17)=(6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,2)& 3560 & *dgm10(1,1)+12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 3561 & *dgm10(1,1)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 3562 & *dgm10(1,1)+12*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 3563 & *dgm01(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 3564 & +gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)& 3565 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)& 3566 & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 3567 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(2,3)**3+30*gm(2,2)& 3568 & *gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 3569 & *gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3570 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)& 3571 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(1,3)& 3572 & +6*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)& 3573 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)& 3574 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3575 & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 3576 & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3577 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 3578 & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+6*(12*gm(2,3)**3*dgm01(1,1)& 3579 & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))& 3580 & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)& 3581 & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)& 3582 & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)& 3583 & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)& 3584 & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)& 3585 & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(2,3)& 3586 & +(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)& 3587 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3588 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3589 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))& 3590 & *dgm10(3,3))/24.d0 3591 cm(9,17)=(12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 3592 & *dgm10(1,1)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,3)& 3593 & *dgm10(1,1)+144*gm(2,2)**2*gm(2,3)*dgm01(3,3)*dgm10(1,1)+24*(2*(6*gm(2,3)& 3594 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(12*gm(2,3)& 3595 & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+(48*gm(1,2)*gm(2,3)*gm(3,3)& 3596 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)& 3597 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)& 3598 & +gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))& 3599 & *dgm10(1,2)+8*(36*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)& 3600 & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)& 3601 & *(72*gm(2,3)**2*dgm01(1,2)+144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)& 3602 & *(36*gm(1,3)*dgm01(2,2)+72*gm(1,2)*dgm01(2,3))))*dgm10(1,3)+12*((6*gm(2,3)& 3603 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)& 3604 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3605 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3606 & *gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 3607 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 3608 & *gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3609 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+12*(gm(2,2)& 3610 & **2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)& 3611 & *gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)& 3612 & +72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)& 3613 & *dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)& 3614 & *gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)& 3615 & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)& 3616 & +gm(1,3)*dgm01(2,3))))*dgm10(2,3)+2*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)& 3617 & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)& 3618 & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)& 3619 & +288*gm(1,3)*dgm01(2,2))))*dgm10(3,3))/48.d0 3620 cm(10,17)=(432*gm(2,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)& 3621 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+4*(90*gm(2,3)& 3622 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+12*(144*gm(2,3)& 3623 & *gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 3624 & *dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)& 3625 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)& 3626 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))& 3627 & *dgm10(1,2)+8*(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3628 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)& 3629 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)& 3630 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3631 & *dgm01(2,3))*dgm10(1,3)+6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)& 3632 & *gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 3633 & *gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 3634 & *dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 3635 & *gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(2,2)+24*(gm(3,3)*(54*gm(2,3)& 3636 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)& 3637 & -18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3638 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)& 3639 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)& 3640 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))& 3641 & *dgm10(2,3)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 3642 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 3643 & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 3644 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(3,3))/144.d0 3645 cm(1,18)=(6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 3646 & +2*gm(1,2)*gm(2,3)))*dgm01(2,2)*dgm10(1,1)+4*(90*gm(1,2)**3-54*gm(1,1)& 3647 & *gm(1,2)*gm(2,2))*dgm01(2,3)*dgm10(1,1)+4*(6*(90*gm(1,2)**2*gm(1,3)& 3648 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)& 3649 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)& 3650 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)& 3651 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+(8*(90*gm(1,2)& 3652 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)+12*gm(1,1)*(54*gm(1,2)& 3653 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,3)+3*(2*(90*gm(1,2)& 3654 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)& 3655 & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)& 3656 & +4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)& 3657 & **2*gm(1,3)*dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(2,2)& 3658 & +2*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)& 3659 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)& 3660 & *dgm01(2,2))*dgm10(2,3))/72.d0 3661 cm(2,18)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3662 & *dgm01(2,2)*dgm10(1,1)+576*gm(1,2)*gm(2,2)**2*dgm01(2,3)*dgm10(1,1)& 3663 & +16*(6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,2)& 3664 & +72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)& 3665 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)& 3666 & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)& 3667 & +4*gm(2,2)*(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)**2+24*gm(1,1)& 3668 & *gm(2,2))*dgm01(2,2))*dgm10(1,3)+12*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)& 3669 & +gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)& 3670 & +96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)& 3671 & **2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))& 3672 & +24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)& 3673 & +gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))*dgm10(2,2)& 3674 & +8*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)& 3675 & +36*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)& 3676 & +180*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/96.d0 3677 cm(3,18)=(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3678 & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3679 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)& 3680 & +4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3681 & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3682 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)& 3683 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 3684 & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3685 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3686 & *dgm01(2,3))*dgm10(1,2)+(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3687 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+12*(-12*gm(1,3)& 3688 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3689 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)& 3690 & +3*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)& 3691 & *dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))& 3692 & +12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)& 3693 & -72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)& 3694 & *dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)& 3695 & +gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)& 3696 & *dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))& 3697 & *dgm10(2,2)+2*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3698 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)& 3699 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 3700 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)& 3701 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(2,3))& 3702 & /24.d0 3703 cm(4,18)=(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3704 & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3705 & +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,2)& 3706 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3707 & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)& 3708 & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 3709 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)& 3710 & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3711 & *gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(-18*gm(1,3)& 3712 & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)& 3713 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))& 3714 & *dgm10(1,3)+3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))& 3715 & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)& 3716 & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)& 3717 & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)& 3718 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))& 3719 & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)& 3720 & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)& 3721 & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(gm(2,3)*(72*gm(1,2)& 3722 & **2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)& 3723 & *dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)& 3724 & +36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)& 3725 & *dgm01(2,2))))*dgm10(2,3))/12.d0 3726 cm(5,18)=(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3727 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3728 & *dgm01(2,2)*dgm10(1,1)+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 3729 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)& 3730 & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3731 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3732 & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3733 & *gm(2,2)*gm(2,3))*dgm01(1,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3734 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)& 3735 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))& 3736 & *dgm10(1,2)+(8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 3737 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)& 3738 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))& 3739 & *dgm10(1,3)+3*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,1)*(-24*gm(2,3)& 3740 & **2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)+192*gm(1,2)*dgm01(1,2))& 3741 & +192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)& 3742 & +48*gm(1,2)*dgm01(1,2)+24*gm(1,1)*dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)& 3743 & *dgm01(2,2)+96*gm(2,3)*dgm01(2,3))+gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)& 3744 & +gm(1,1)*(48*gm(2,3)*dgm01(1,2)-72*gm(2,2)*dgm01(1,3))+gm(1,2)& 3745 & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(gm(1,2)& 3746 & **2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)& 3747 & *(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))+144*gm(1,1)& 3748 & *gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)*dgm01(1,2)& 3749 & +gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,3))& 3750 & /24.d0 3751 cm(6,18)=(6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3752 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,1)+4*gm(2,2)& 3753 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(1,1)+4*(6*(48*gm(1,2)& 3754 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3755 & *dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)& 3756 & +6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 3757 & *gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)& 3758 & *gm(2,2))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3759 & *gm(2,2))*dgm01(1,2)+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 3760 & *dgm01(2,2))*dgm10(1,3)+3*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)& 3761 & *(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)& 3762 & *dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)& 3763 & +48*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)& 3764 & *gm(2,3)*dgm01(2,2)+gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)& 3765 & *dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(72*gm(1,2)& 3766 & **3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,2)& 3767 & **2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)*gm(2,2)& 3768 & *(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(2,3))& 3769 & /24.d0 3770 cm(7,18)=(864*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,1)+576*gm(2,2)& 3771 & **3*dgm01(2,3)*dgm10(1,1)+1152*gm(2,2)*(1*gm(2,2)**2*dgm01(1,3)& 3772 & +4.5d0*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)*dgm01(1,2)& 3773 & -1.5d0*gm(1,3)*dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)& 3774 & **2*(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))*dgm10(1,3)& 3775 & +12*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)& 3776 & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)& 3777 & *dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)& 3778 & *(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))& 3779 & *dgm10(2,2)+8*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)& 3780 & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))& 3781 & /288.d0 3782 cm(8,18)=(6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 3783 & *dgm10(1,1)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 3784 & *dgm10(1,1)+4*(6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3785 & +2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)& 3786 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)& 3787 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 3788 & *gm(3,3)))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 3789 & *gm(3,3))*dgm01(1,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3790 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+3*(12*gm(2,3)& 3791 & **3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)& 3792 & *dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)& 3793 & *dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)& 3794 & *(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)& 3795 & *gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)& 3796 & +192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)& 3797 & +gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(2,2)& 3798 & +2*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)& 3799 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3800 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3801 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))& 3802 & *dgm10(2,3))/24.d0 3803 cm(9,18)=(24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,2)& 3804 & *dgm10(1,1)+576*gm(2,2)**2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+16*(36*gm(1,2)& 3805 & *gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)*dgm01(1,2)+72*gm(2,3)& 3806 & *dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)& 3807 & +144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(36*gm(1,3)*dgm01(2,2)& 3808 & +72*gm(1,2)*dgm01(2,3))))*dgm10(1,2)+4*gm(2,2)*(144*gm(1,2)*gm(2,3)& 3809 & *dgm01(2,2)+288*gm(2,2)*(gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2)))& 3810 & *dgm10(1,3)+12*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)& 3811 & *dgm01(1,3))-24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)& 3812 & *(48*gm(2,3)*dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)& 3813 & *dgm01(2,2)+24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)& 3814 & +(-24*gm(1,3)**2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)& 3815 & *dgm01(1,2)+48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)& 3816 & *(gm(3,3)*dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(2,2)+8*(gm(2,2)& 3817 & **2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))+36*gm(1,2)& 3818 & **2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)*dgm01(2,2)& 3819 & +gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))*dgm10(2,3))& 3820 & /96.d0 3821 cm(10,18)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 3822 & *dgm10(1,1)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 3823 & *dgm10(1,1)+4*(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3824 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)& 3825 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)& 3826 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3827 & *dgm01(2,3))*dgm10(1,2)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)& 3828 & *gm(3,3))*dgm01(1,2)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3829 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+6*(gm(3,3)& 3830 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)& 3831 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)& 3832 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3833 & +gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)& 3834 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))& 3835 & *dgm10(2,2)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 3836 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 3837 & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)& 3838 & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(2,3))/72.d0 3839 cm(1,19)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)& 3840 & *dgm10(1,1)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3841 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(90*gm(1,2)& 3842 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3)& 3843 & *dgm10(1,1)+4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)& 3844 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 3845 & *gm(3,3)))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 3846 & *dgm01(2,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 3847 & *dgm01(3,3))*dgm10(1,2)+12*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3848 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)& 3849 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)& 3850 & +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)& 3851 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)& 3852 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)& 3853 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,3)& 3854 & **2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)*dgm01(3,3))& 3855 & *dgm10(2,2)+6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3856 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 3857 & *gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 3858 & *gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)& 3859 & **2*gm(1,2)*dgm01(3,3))*dgm10(2,3)+3*(2*(90*gm(1,2)**2*gm(1,3)& 3860 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)& 3861 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)& 3862 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)& 3863 & *dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(3,3))/72.d0 3864 cm(2,19)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 3865 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,3)& 3866 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)& 3867 & *dgm10(1,1)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3868 & *dgm01(3,3)*dgm10(1,1)+4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3869 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)& 3870 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3871 & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3872 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)& 3873 & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3874 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*(2*(48*gm(1,3)*gm(2,2)& 3875 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3876 & +2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)& 3877 & +(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3878 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)& 3879 & +4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3880 & *gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3881 & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3882 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 3883 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3884 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)& 3885 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3886 & *dgm01(3,3))*dgm10(2,2)+12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3887 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)& 3888 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3889 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)& 3890 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3891 & *dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3892 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)& 3893 & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+3*(48*gm(1,2)**2*(gm(2,3)& 3894 & *dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)& 3895 & *dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)& 3896 & +12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)& 3897 & *dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)& 3898 & *dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))& 3899 & *dgm10(3,3))/24.d0 3900 cm(3,19)=(144*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)& 3901 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)& 3902 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3903 & *gm(3,3)))*dgm01(3,3)*dgm10(1,1)+8*(gm(1,3)*gm(3,3)*(72*gm(3,3)& 3904 & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)& 3905 & **2*(72*gm(3,3)*dgm01(2,3)+36*gm(2,3)*dgm01(3,3))+144*gm(3,3)& 3906 & *(gm(1,2)*gm(3,3)*dgm01(1,3)+gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)& 3907 & *dgm01(3,3))))*dgm10(1,2)+24*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 3908 & *gm(3,3))*dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3909 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 3910 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3911 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)& 3912 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3913 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)& 3914 & +2*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)& 3915 & +36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)& 3916 & +180*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+12*(24*gm(1,3)**3*dgm01(2,3)& 3917 & +gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)& 3918 & *dgm01(3,3))+gm(3,3)*(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)& 3919 & *dgm01(1,3))+gm(1,2)*(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))& 3920 & +gm(1,3)*(gm(3,3)*(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))& 3921 & +gm(2,3)*(24*gm(3,3)*dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(2,3)& 3922 & +6*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)& 3923 & *dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))& 3924 & +12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)& 3925 & -72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)& 3926 & *dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)& 3927 & +gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)& 3928 & *dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))& 3929 & *dgm10(3,3))/48.d0 3930 cm(4,19)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3931 & *dgm01(2,2)*dgm10(1,1)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3932 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(6*gm(1,3)& 3933 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)& 3934 & *dgm10(1,1)+4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3935 & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 3936 & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3937 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)& 3938 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 3939 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(1,2)& 3940 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)& 3941 & +2*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3942 & *gm(3,3)))*dgm01(1,3)+(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3943 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+4*(9*gm(1,3)& 3944 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 3945 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)*gm(1,3)& 3946 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 3947 & *dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))& 3948 & +gm(1,3)*(72*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)& 3949 & *dgm01(1,1)+36*gm(1,1)*dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)& 3950 & *dgm01(1,3)+gm(1,2)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))& 3951 & *dgm10(2,2)+6*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)& 3952 & *gm(3,3)*dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)& 3953 & *dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)& 3954 & +24*gm(1,2)*dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)& 3955 & +12*gm(2,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)& 3956 & *(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)& 3957 & *dgm01(2,3))+48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))& 3958 & +gm(1,2)*(24*gm(3,3)*dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(2,3)& 3959 & +3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))& 3960 & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)& 3961 & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)& 3962 & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)& 3963 & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))& 3964 & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)& 3965 & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)& 3966 & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(3,3))/12.d0 3967 cm(5,19)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 3968 & *dgm10(1,1)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 3969 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+6*(-12*gm(1,3)& 3970 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3971 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)& 3972 & +4*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)& 3973 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3974 & *dgm01(1,3)+6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 3975 & +6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 3976 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(1,3)**2*gm(2,3)& 3977 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3978 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 3979 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3980 & +(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)& 3981 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)& 3982 & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 3983 & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+(72*gm(1,3)**3*dgm01(1,3)& 3984 & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)& 3985 & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)*gm(3,3)*(-36*gm(3,3)& 3986 & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+6*(24*gm(1,3)& 3987 & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)& 3988 & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)& 3989 & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)& 3990 & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)& 3991 & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)& 3992 & *dgm01(3,3))))*dgm10(2,3)+3*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)& 3993 & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)& 3994 & +192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)& 3995 & **2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)& 3996 & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))& 3997 & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)& 3998 & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)& 3999 & *dgm01(2,3))))*dgm10(3,3))/24.d0 4000 cm(6,19)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4001 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(1,1)+12*(30*gm(1,3)& 4002 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4003 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)& 4004 & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 4005 & *gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+4*(2*(90*gm(1,3)**2*gm(2,3)& 4006 & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)& 4007 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4008 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4009 & +6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 4010 & *gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 4011 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*(2*(30*gm(1,3)& 4012 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4013 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(48*gm(1,2)& 4014 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4015 & *dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 4016 & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 4017 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)& 4018 & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(180*gm(2,3)& 4019 & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)& 4020 & *dgm01(1,3)+gm(1,2)*(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))& 4021 & +gm(1,1)*(-216*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)& 4022 & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+6*(-24*gm(1,2)& 4023 & **2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)& 4024 & *dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)& 4025 & *dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)& 4026 & +48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)& 4027 & *gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)& 4028 & *gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)& 4029 & *dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(2,3)+3*(24*gm(1,2)& 4030 & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)& 4031 & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))& 4032 & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)& 4033 & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)& 4034 & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))& 4035 & *dgm10(3,3))/24.d0 4036 cm(7,19)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 4037 & *dgm10(1,1)+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 4038 & *dgm10(1,1)+432*gm(2,2)**2*gm(2,3)*dgm01(3,3)*dgm10(1,1)+8*(2*(90*gm(2,3)& 4039 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)& 4040 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4041 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)& 4042 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)& 4043 & +12*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)*(216*gm(2,3)**2*dgm01(1,2)& 4044 & -36*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(-72*gm(1,3)*dgm01(2,2)& 4045 & +432*gm(1,2)*dgm01(2,3)))+gm(2,2)**2*(-72*gm(3,3)*dgm01(1,2)& 4046 & +144*gm(2,3)*dgm01(1,3)-144*gm(1,3)*dgm01(2,3)+72*gm(1,2)*dgm01(3,3)))& 4047 & *dgm10(1,3)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 4048 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4049 & *gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)& 4050 & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))*dgm10(2,2)+24*(gm(2,2)& 4051 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)& 4052 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4053 & *dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4054 & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 4055 & +gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 4056 & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+6*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)& 4057 & +gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)& 4058 & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)& 4059 & *dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))& 4060 & +216*gm(1,2)**2*dgm01(2,3)))*dgm10(3,3))/144.d0 4061 cm(8,19)=(144*gm(2,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)& 4062 & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+12*(6*gm(2,3)& 4063 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+8*(72*gm(2,3)& 4064 & *gm(3,3)**2*dgm01(1,2)+6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 4065 & *dgm01(1,3)+6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4066 & *dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4067 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+24*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)& 4068 & *gm(3,3))*dgm01(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))& 4069 & *dgm01(1,3)+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)& 4070 & +4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4071 & *gm(3,3)))*dgm01(2,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4072 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(288*gm(1,2)& 4073 & *gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)& 4074 & **2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)& 4075 & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+24*(gm(3,3)& 4076 & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)*(12*gm(1,3)& 4077 & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(2,3)& 4078 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4079 & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4080 & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4081 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 4082 & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+6*(12*gm(2,3)**3*dgm01(1,1)& 4083 & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))& 4084 & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)& 4085 & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)& 4086 & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)& 4087 & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)& 4088 & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)& 4089 & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(3,3))& 4090 & /48.d0 4091 cm(9,19)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 4092 & *dgm10(1,1)+12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 4093 & *dgm10(1,1)+6*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(3,3)& 4094 & *dgm10(1,1)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 4095 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*(48*gm(1,2)& 4096 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)& 4097 & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 4098 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(2,3)**3+30*gm(2,2)& 4099 & *gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)& 4100 & *gm(3,3))*dgm01(1,3)+(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4101 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)& 4102 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+gm(2,2)& 4103 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)& 4104 & +(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)& 4105 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4106 & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 4107 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4108 & *dgm10(2,2)+12*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 4109 & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4110 & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4111 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)& 4112 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4113 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)& 4114 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 4115 & *dgm10(2,3)+3*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))& 4116 & -24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)& 4117 & *dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)& 4118 & +24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)& 4119 & **2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)& 4120 & +48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)& 4121 & *dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(3,3))/24.d0 4122 cm(10,19)=(144*gm(3,3)**3*dgm01(2,2)*dgm10(1,1)+864*gm(2,3)& 4123 & *gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 4124 & *gm(3,3))*dgm01(3,3)*dgm10(1,1)+576*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)& 4125 & +4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)& 4126 & +3*gm(1,3)*dgm01(2,3)-1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,2)+12*(144*gm(2,3)& 4127 & *gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4128 & *dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)& 4129 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)& 4130 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4131 & *dgm10(1,3)+2*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)& 4132 & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)& 4133 & +12*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)**2*dgm01(1,2)& 4134 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)& 4135 & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)& 4136 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))& 4137 & *dgm10(2,3)+12*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 4138 & +4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)& 4139 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4140 & *gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 4141 & *dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 4142 & *gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(3,3))/144.d0 4143 cm(1,20)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 4144 & *dgm10(1,1)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 4145 & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*(90*gm(1,3)& 4146 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)+12*gm(1,1)*(54*gm(1,3)& 4147 & **2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(1,3)& 4148 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)+6*(-36*gm(1,1)*gm(1,3)& 4149 & *gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)& 4150 & +6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+6*gm(1,1)& 4151 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,3)& 4152 & +2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)& 4153 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)& 4154 & *dgm01(3,3))*dgm10(2,3)+3*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4155 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)& 4156 & **2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)& 4157 & -18*gm(1,1)*gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)& 4158 & +72*gm(1,1)**2*gm(1,2)*dgm01(3,3))*dgm10(3,3))/72.d0 4159 cm(2,20)=(4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4160 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(48*gm(1,3)& 4161 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)& 4162 & *dgm10(1,1)+(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4163 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)& 4164 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 4165 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(-36*gm(1,2)& 4166 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4167 & *dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4168 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)& 4169 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 4170 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)& 4171 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 4172 & *dgm10(1,3)+2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4173 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)& 4174 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 4175 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 4176 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)& 4177 & +6*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4178 & *gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 4179 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 4180 & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 4181 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)& 4182 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 4183 & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))& 4184 & *dgm10(3,3))/24.d0 4185 cm(3,20)=(576*gm(1,3)*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+24*gm(3,3)& 4186 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)& 4187 & +4*gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)**2+24*gm(1,1)& 4188 & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+16*(gm(1,3)*gm(3,3)*(72*gm(3,3)& 4189 & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)& 4190 & **2*(72*gm(3,3)*dgm01(2,3)+36*gm(2,3)*dgm01(3,3))+144*gm(3,3)& 4191 & *(gm(1,2)*gm(3,3)*dgm01(1,3)+gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)& 4192 & *dgm01(3,3))))*dgm10(1,3)+8*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)& 4193 & +288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)& 4194 & *gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(2,3)& 4195 & +12*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)& 4196 & +48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)*(gm(1,1)& 4197 & *(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)*(48*gm(3,3)& 4198 & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)*(48*gm(1,2)& 4199 & *dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)*dgm01(1,1)& 4200 & +96*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/96.d0 4201 cm(4,20)=(4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4202 & *dgm01(2,3)*dgm10(1,1)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4203 & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)& 4204 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)& 4205 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))& 4206 & *dgm10(1,2)+4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4207 & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4208 & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 4209 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)& 4210 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 4211 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(gm(1,3)& 4212 & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)& 4213 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)& 4214 & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 4215 & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(2,3)& 4216 & +3*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)& 4217 & *dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))& 4218 & +gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)& 4219 & *dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)& 4220 & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)& 4221 & **2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))& 4222 & +48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)& 4223 & *dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(3,3))/12.d0 4224 cm(5,20)=(4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 4225 & *dgm10(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4226 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)& 4227 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)& 4228 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+4*(2*gm(3,3)& 4229 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)**2*gm(2,3)& 4230 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)& 4231 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)& 4232 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))& 4233 & *dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)& 4234 & *dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))& 4235 & +gm(1,1)*gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))& 4236 & *dgm10(2,3)+3*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)& 4237 & *dgm01(1,1)+48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)& 4238 & *(gm(1,1)*(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)& 4239 & *(96*gm(3,3)*dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)& 4240 & *(192*gm(1,2)*dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)& 4241 & *dgm01(1,1)+48*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/24.d0 4242 cm(6,20)=(4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4243 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+6*(30*gm(1,3)& 4244 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4245 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)& 4246 & +(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4247 & *gm(2,3)*gm(3,3))*dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4248 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(1,3)& 4249 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4250 & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4251 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4252 & *dgm01(1,3)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 4253 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 4254 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)& 4255 & +2*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))& 4256 & +gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(-72*gm(3,3)& 4257 & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)*gm(3,3)& 4258 & *dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))& 4259 & *dgm10(2,3)+3*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)& 4260 & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)& 4261 & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)& 4262 & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)& 4263 & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)& 4264 & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))& 4265 & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(3,3))& 4266 & /24.d0 4267 cm(7,20)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 4268 & *dgm10(1,1)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 4269 & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 4270 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4271 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(2,3)**3-54*gm(2,2)& 4272 & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4273 & *gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4274 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4275 & +54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+2*(2*(90*gm(2,3)& 4276 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)& 4277 & *gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4278 & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)& 4279 & *gm(2,3)))*dgm01(3,3))*dgm10(2,3)+6*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4280 & *gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4281 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4282 & +54*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)& 4283 & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)& 4284 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/72.d0 4285 cm(8,20)=(576*gm(2,3)*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+24*gm(3,3)& 4286 & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*gm(3,3)& 4287 & *(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 4288 & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+16*(72*gm(2,3)*gm(3,3)**2*dgm01(1,2)& 4289 & +6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+6*gm(3,3)& 4290 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)& 4291 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4292 & *dgm10(1,3)+8*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)& 4293 & *dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)& 4294 & +gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(2,3)& 4295 & +24*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)& 4296 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)& 4297 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4298 & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4299 & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4300 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 4301 & *gm(3,3)))*dgm01(3,3))*dgm10(3,3))/96.d0 4302 cm(9,20)=(4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 4303 & *dgm10(1,1)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 4304 & *dgm10(1,1)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 4305 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4306 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 4307 & *gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))& 4308 & *dgm01(1,3)+6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4309 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)& 4310 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)& 4311 & +2*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)& 4312 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4313 & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 4314 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4315 & *dgm10(2,3)+6*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 4316 & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4317 & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4318 & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)& 4319 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4320 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)& 4321 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 4322 & *dgm10(3,3))/24.d0 4323 cm(10,20)=(576*gm(3,3)**3*dgm01(2,3)*dgm10(1,1)+864*gm(2,3)& 4324 & *gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+4*gm(3,3)**2*(288*gm(3,3)*dgm01(1,3)& 4325 & +432*gm(1,3)*dgm01(3,3))*dgm10(1,2)+1152*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)& 4326 & +4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)& 4327 & +3*gm(1,3)*dgm01(2,3)-1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,3)+8*gm(3,3)& 4328 & *(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)+gm(3,3)& 4329 & *(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,3)& 4330 & +12*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)**2*dgm01(1,2)& 4331 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)& 4332 & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)& 4333 & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))& 4334 & *dgm10(3,3))/288.d0 4335 cm(1,21)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 4336 & *dgm10(1,1)+(8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 4337 & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,3)& 4338 & +(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)& 4339 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)& 4340 & *dgm01(3,3))*dgm10(3,3))/72.d0 4341 cm(2,21)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4342 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*(-36*gm(1,2)& 4343 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4344 & *dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4345 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4346 & *dgm01(3,3))*dgm10(1,3)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4347 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)& 4348 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4349 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)& 4350 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 4351 & *dgm01(3,3))*dgm10(3,3))/24.d0 4352 cm(3,21)=(1440*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)& 4353 & *(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)**2+24*gm(1,1)& 4354 & *gm(3,3))*dgm01(3,3))*dgm10(1,3)+20*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)& 4355 & +288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)& 4356 & *gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(3,3))& 4357 & /480.d0 4358 cm(4,21)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4359 & *dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 4360 & *gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 4361 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)& 4362 & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)& 4363 & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)& 4364 & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)& 4365 & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(3,3))& 4366 & /12.d0 4367 cm(5,21)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 4368 & *dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)& 4369 & +12*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,3)& 4370 & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)& 4371 & +gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)& 4372 & *gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(3,3))& 4373 & /24.d0 4374 cm(6,21)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4375 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+(8*(90*gm(1,3)& 4376 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4377 & *dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 4378 & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(180*gm(2,3)& 4379 & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)& 4380 & *dgm01(1,3)+gm(1,2)*(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))& 4381 & +gm(1,1)*(-216*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)& 4382 & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/24.d0 4383 cm(7,21)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 4384 & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 4385 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4386 & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(2,3)**3-54*gm(2,2)& 4387 & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4388 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)& 4389 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))& 4390 & *dgm10(3,3))/72.d0 4391 cm(8,21)=(1440*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)& 4392 & *(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 4393 & *gm(3,3))*dgm01(3,3))*dgm10(1,3)+20*(288*gm(1,2)*gm(3,3)*(gm(3,3)& 4394 & *dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)& 4395 & +36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)& 4396 & *dgm01(3,3))))*dgm10(3,3))/480.d0 4397 cm(9,21)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 4398 & *dgm10(1,1)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 4399 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4400 & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 4401 & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4402 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)& 4403 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4404 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))/24.d0 4405 cm(10,21)=(gm(3,3)*(1440*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)& 4406 & *(288*gm(3,3)*dgm01(1,3)+432*gm(1,3)*dgm01(3,3))*dgm10(1,3)+20*(72*gm(3,3)& 4407 & **2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(1,3)& 4408 & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(3,3)))/1440.d0 4409 cm(1,22)=(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 4410 & *dgm10(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)& 4411 & *dgm10(2,2)+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)& 4412 & *dgm10(2,2))/36.d0 4413 cm(2,22)=(gm(2,2)*(8640*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,2)& 4414 & +8640*gm(1,2)*gm(2,2)*dgm01(1,2)*dgm10(2,2)+360*(12*gm(1,2)**2+24*gm(1,1)& 4415 & *gm(2,2))*dgm01(2,2)*dgm10(2,2)))/1440.d0 4416 cm(3,22)=(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4417 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,2)+2*(-36*gm(1,3)& 4418 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4419 & *dgm01(1,2)*dgm10(2,2)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 4420 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 4421 & *gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0 4422 cm(4,22)=(2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4423 & *dgm01(2,2)*dgm10(1,2)+2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 4424 & *gm(2,3))*dgm01(1,2)*dgm10(2,2)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)& 4425 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)& 4426 & *dgm10(2,2))/6.d0 4427 cm(5,22)=(2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4428 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,2)+2*(-36*gm(1,2)& 4429 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4430 & *dgm01(1,2)*dgm10(2,2)+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 4431 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2))/12.d0 4432 cm(6,22)=(2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)& 4433 & *dgm10(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)& 4434 & *dgm10(2,2)+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 4435 & *dgm10(2,2))/12.d0 4436 cm(7,22)=gm(2,2)**2*(3*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 4437 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 4438 cm(8,22)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 4439 & *dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 4440 & *dgm10(2,2)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4441 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0 4442 cm(9,22)=(gm(2,2)*(4320*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)& 4443 & +8640*gm(2,2)*(gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)*(dgm01(2,2)& 4444 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))))/1440.d0 4445 cm(10,22)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 4446 & *dgm10(1,2)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 4447 & *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4448 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2))/36.d0 4449 cm(1,23)=(2*(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 4450 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)& 4451 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)& 4452 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+(12*(90*gm(1,2)& 4453 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)& 4454 & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,3)& 4455 & +3*(4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 4456 & *gm(3,3)))*dgm01(1,2)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)& 4457 & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3))*dgm10(2,2)+6*gm(1,1)& 4458 & *((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(54*gm(1,2)& 4459 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+(54*gm(1,2)**2-18*gm(1,1)& 4460 & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*(90*gm(1,2)**2*gm(1,3)& 4461 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)& 4462 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+24*gm(1,1)& 4463 & *((54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)& 4464 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+4*(90*gm(1,2)& 4465 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)*dgm10(3,3)+6*gm(1,1)& 4466 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/72.d0 4467 cm(2,23)=(8*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4468 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4469 & +12*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))& 4470 & *dgm10(1,2)+4*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 4471 & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,3)+12*(4*(48*gm(1,3)& 4472 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 4473 & +4*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))& 4474 & *dgm10(2,2)+24*((-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4475 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4476 & *dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4477 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 4478 & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)*(144*gm(1,3)*gm(2,2)& 4479 & *dgm01(1,2)+72*gm(1,2)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))& 4480 & *dgm10(2,3)+16*(6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4481 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)& 4482 & **2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+576*gm(1,2)*gm(2,2)& 4483 & **2*dgm01(1,2)*dgm10(3,3)+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 4484 & *gm(2,2))*dgm01(2,2)*dgm10(3,3))/96.d0 4485 cm(3,23)=(2*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)& 4486 & *dgm01(2,3)+gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))& 4487 & +gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)& 4488 & +gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(1,2)& 4489 & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)& 4490 & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)& 4491 & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))& 4492 & *dgm10(1,3)+3*(gm(1,2)*gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)& 4493 & *dgm01(1,3))+gm(1,3)*(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)& 4494 & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)+6*(gm(3,3)& 4495 & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)& 4496 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)& 4497 & +(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4498 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4499 & *dgm10(2,2)+4*(gm(1,3)*(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)& 4500 & *gm(3,3)*dgm01(1,2)-72*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)& 4501 & *gm(3,3)*dgm01(1,2)+180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)& 4502 & *dgm01(1,3)))*dgm10(2,3)+4*(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4503 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)& 4504 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4505 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(2,3)& 4506 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4507 & *gm(3,3)))*dgm01(1,2)*dgm10(3,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4508 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 4509 & *gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0 4510 cm(4,23)=(2*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)& 4511 & *dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))& 4512 & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)& 4513 & +gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(1,2)& 4514 & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))& 4515 & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)& 4516 & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(1,3)+3*(gm(1,3)*(24*gm(2,3)& 4517 & **2*dgm01(1,2)+96*gm(2,2)*gm(3,3)*dgm01(1,2)+24*gm(2,2)*gm(2,3)& 4518 & *dgm01(1,3))+gm(1,2)*(24*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)& 4519 & **2*dgm01(1,3)+96*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)+6*((6*gm(1,3)& 4520 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4521 & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 4522 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 4523 & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 4524 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+4*(gm(1,3)*gm(2,2)*(36*gm(2,3)& 4525 & *dgm01(1,2)-36*gm(2,2)*dgm01(1,3))+gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)& 4526 & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)*dgm01(1,3)))& 4527 & *dgm10(2,3)+4*(6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 4528 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 4529 & *dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4530 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+4*gm(2,2)& 4531 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)& 4532 & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 4533 & *gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(3,3))/12.d0 4534 cm(5,23)=(2*(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4535 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)& 4536 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4537 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 4538 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 4539 & *dgm10(1,2)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4540 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4541 & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4542 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(4*(6*gm(1,3)& 4543 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4544 & *dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4545 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4546 & *dgm01(1,3))*dgm10(2,2)+6*((6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 4547 & *dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 4548 & *gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 4549 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+4*(6*(-12*gm(1,3)& 4550 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 4551 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)& 4552 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4553 & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4554 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)& 4555 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))& 4556 & *dgm10(2,3)+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4557 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,2)& 4558 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 4559 & *dgm01(2,2)*dgm10(3,3))/24.d0 4560 cm(6,23)=(2*(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4561 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4562 & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4563 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)& 4564 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+(576*gm(1,2)*gm(1,3)& 4565 & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)& 4566 & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)& 4567 & *dgm01(2,3)))*dgm10(1,3)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4568 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 4569 & *gm(3,3)))*dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 4570 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)& 4571 & +6*((48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 4572 & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 4573 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)& 4574 & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(288*gm(1,2)*gm(1,3)& 4575 & *gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)& 4576 & -36*gm(2,2)*dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)& 4577 & *dgm01(1,3)))*dgm10(2,3)+4*(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 4578 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)& 4579 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+4*gm(2,2)& 4580 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,2)& 4581 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/24.d0 4582 cm(7,23)=(8*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 4583 & +432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)**2*dgm01(3,3))*dgm10(1,2)& 4584 & +4*gm(2,2)**2*(432*gm(2,3)*dgm01(2,2)+288*gm(2,2)*dgm01(2,3))& 4585 & *dgm10(1,3)+12*gm(2,2)*(4*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4586 & *dgm01(1,2)+144*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,2)+12*(2*(-36*gm(1,3)& 4587 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4588 & *dgm01(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4589 & *dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)& 4590 & **2*(216*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3))*dgm10(2,3)& 4591 & +16*gm(2,2)*(6*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)& 4592 & +216*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+576*gm(2,2)**3*dgm01(1,2)& 4593 & *dgm10(3,3)+864*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/288.d0 4594 cm(8,23)=(2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)& 4595 & *dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)& 4596 & *dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))& 4597 & *dgm10(1,2)+(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)& 4598 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)& 4599 & *dgm01(2,3))*dgm10(1,3)+3*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)+96*gm(2,2)& 4600 & *gm(3,3)**2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)*gm(2,3)& 4601 & *gm(3,3)*dgm01(1,3))*dgm10(2,2)+6*(gm(3,3)*(12*gm(1,3)*gm(2,3)& 4602 & +24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)& 4603 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,3)& 4604 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))& 4605 & *dgm10(2,2)+4*(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)*gm(2,3)*gm(3,3)& 4606 & *dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)**2*gm(3,3)& 4607 & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4608 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(48*gm(1,3)& 4609 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3))& 4610 & *dgm10(2,3)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 4611 & *dgm10(3,3)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4612 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0 4613 cm(9,23)=(8*(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)& 4614 & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)& 4615 & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(1,2)+4*gm(2,2)*(144*gm(2,3)& 4616 & **2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)+288*gm(2,2)*gm(2,3)& 4617 & *dgm01(2,3))*dgm10(1,3)+12*(24*gm(2,3)**3*dgm01(1,2)+120*gm(2,2)& 4618 & *gm(2,3)*gm(3,3)*dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)& 4619 & +96*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+24*((48*gm(1,2)& 4620 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4621 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 4622 & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 4623 & *gm(2,3))*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)& 4624 & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)*dgm01(1,3))& 4625 & *dgm10(2,3)+16*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4626 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4627 & +12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+576*gm(2,2)**2*gm(2,3)& 4628 & *dgm01(1,2)*dgm10(3,3)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 4629 & *gm(2,3))*dgm01(2,2)*dgm10(3,3))/96.d0 4630 cm(10,23)=(2*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)& 4631 & *gm(3,3)**2*dgm01(2,3)+180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)& 4632 & *(216*gm(3,3)*dgm01(2,2)-108*gm(2,2)*dgm01(3,3)))*dgm10(1,2)& 4633 & +(648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)& 4634 & +720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))& 4635 & *dgm10(1,3)+3*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)& 4636 & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+3*(72*gm(1,3)& 4637 & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 4638 & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4639 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(324*gm(2,3)& 4640 & **2*gm(3,3)*dgm01(1,2)-108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)& 4641 & **3*dgm01(1,3)-108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)& 4642 & +4*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)& 4643 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4644 & *gm(3,3)))*dgm01(2,3))*dgm10(2,3)+4*(90*gm(2,3)**3-54*gm(2,2)& 4645 & *gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+6*(-36*gm(1,2)*gm(2,3)& 4646 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4647 & *dgm10(3,3))/72.d0 4648 cm(1,24)=((12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 4649 & +2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 4650 & *gm(2,2))*dgm01(2,3))*dgm10(1,2)+4*(90*gm(1,2)**3-54*gm(1,1)& 4651 & *gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+2*(6*(90*gm(1,2)**2*gm(1,3)& 4652 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)& 4653 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,2)+12*gm(1,1)& 4654 & *((54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)& 4655 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+8*(90*gm(1,2)& 4656 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)*dgm10(2,3)+12*gm(1,1)& 4657 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/72.d0 4658 cm(2,24)=(10*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 4659 & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,2)+1440*gm(1,2)& 4660 & *gm(2,2)**2*dgm01(2,2)*dgm10(1,3)+20*gm(2,2)*(144*gm(1,3)*gm(2,2)& 4661 & *dgm01(1,2)+72*gm(1,2)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))& 4662 & *dgm10(2,2)+20*(6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4663 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)& 4664 & **2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+2880*gm(1,2)*gm(2,2)& 4665 & **2*dgm01(1,2)*dgm10(2,3)+120*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 4666 & *gm(2,2))*dgm01(2,2)*dgm10(2,3))/240.d0 4667 cm(3,24)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)& 4668 & *dgm01(2,2)-288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)& 4669 & *gm(3,3)*dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)& 4670 & *dgm01(2,3)))*dgm10(1,2)+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4671 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,3)+2*(gm(1,3)& 4672 & *(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)*gm(3,3)*dgm01(1,2)-72*gm(2,2)& 4673 & *gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)*gm(3,3)*dgm01(1,2)& 4674 & +180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)& 4675 & +2*(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 4676 & *gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4677 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 4678 & *gm(3,3)))*dgm01(2,3))*dgm10(2,2)+8*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4679 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(2,3)& 4680 & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4681 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4682 & *dgm10(2,3))/24.d0 4683 cm(4,24)=((gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)& 4684 & *dgm01(2,3))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)& 4685 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)& 4686 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,3)& 4687 & +2*(gm(1,3)*gm(2,2)*(36*gm(2,3)*dgm01(1,2)-36*gm(2,2)*dgm01(1,3))& 4688 & +gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)+144*gm(2,2)*gm(3,3)*dgm01(1,2)& 4689 & +108*gm(2,2)*gm(2,3)*dgm01(1,3)))*dgm10(2,2)+2*(6*(9*gm(1,3)& 4690 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 4691 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)& 4692 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))& 4693 & *dgm10(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4694 & *dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 4695 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))& 4696 & /12.d0 4697 cm(5,24)=((12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4698 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4699 & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4700 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)+4*(-36*gm(1,2)& 4701 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4702 & *dgm01(2,2)*dgm10(1,3)+2*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4703 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 4704 & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 4705 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)& 4706 & +2*(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 4707 & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 4708 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+8*(-36*gm(1,2)& 4709 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4710 & *dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 4711 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/24.d0 4712 cm(6,24)=((576*gm(1,2)*gm(1,3)*gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)& 4713 & *(-216*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)& 4714 & *dgm01(2,2)+432*gm(2,2)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)*(54*gm(1,2)& 4715 & **2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+2*(288*gm(1,2)& 4716 & *gm(1,3)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)& 4717 & -36*gm(2,2)*dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)& 4718 & *dgm01(1,3)))*dgm10(2,2)+2*(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 4719 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)& 4720 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+8*gm(2,2)& 4721 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)& 4722 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/24.d0 4723 cm(7,24)=(gm(2,2)*(6480*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)& 4724 & +gm(2,2)**2*(2880*dgm01(2,3)*dgm10(1,2)+1440*dgm01(2,2)*dgm10(1,3)& 4725 & +1440*dgm01(1,3)*dgm10(2,2)+2880*dgm01(1,2)*dgm10(2,3))+gm(2,2)& 4726 & *(-2160*gm(1,3)*dgm01(2,2)*dgm10(2,2)+4320*gm(2,3)*(dgm01(2,2)& 4727 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4320*gm(1,2)*(dgm01(2,3)*dgm10(2,2)& 4728 & +dgm01(2,2)*dgm10(2,3)))))/720.d0 4729 cm(8,24)=((72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)& 4730 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)& 4731 & *dgm01(2,3))*dgm10(1,2)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4732 & *dgm01(2,2)*dgm10(1,3)+2*(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)& 4733 & *gm(2,3)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)& 4734 & -36*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(6*(6*gm(1,2)& 4735 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4736 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4737 & *gm(3,3)))*dgm01(2,3))*dgm10(2,2)+8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4738 & *gm(3,3))*dgm01(1,2)*dgm10(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 4739 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))& 4740 & /24.d0 4741 cm(9,24)=(10*gm(2,2)*(144*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)& 4742 & *gm(3,3)*dgm01(2,2)+288*gm(2,2)*gm(2,3)*dgm01(2,3))*dgm10(1,2)& 4743 & +1440*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,3)+20*gm(2,2)*(72*gm(2,3)& 4744 & **2*dgm01(1,2)+144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)& 4745 & *dgm01(1,3))*dgm10(2,2)+20*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4746 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)& 4747 & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+2880*gm(2,2)& 4748 & **2*gm(2,3)*dgm01(1,2)*dgm10(2,3)+120*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4749 & +12*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/240.d0 4750 cm(10,24)=((648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)& 4751 & **2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)*gm(2,3)& 4752 & *gm(3,3)*dgm01(2,3))*dgm10(1,2)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)& 4753 & *gm(3,3))*dgm01(2,2)*dgm10(1,3)+2*(324*gm(2,3)**2*gm(3,3)*dgm01(1,2)& 4754 & -108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)**3*dgm01(1,3)& 4755 & -108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(6*gm(3,3)& 4756 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)& 4757 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4758 & *dgm01(2,3))*dgm10(2,2)+8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 4759 & *dgm01(1,2)*dgm10(2,3)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4760 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))/72.d0 4761 cm(1,25)=((2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)& 4762 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 4763 & *gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)& 4764 & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))*dgm10(1,2)+(6*(-36*gm(1,1)& 4765 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4766 & *dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 4767 & +2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 4768 & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)**3-54*gm(1,1)& 4769 & *gm(1,3)*gm(3,3))*dgm01(1,2)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4770 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3))*dgm10(2,2)+6*gm(1,1)& 4771 & *((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+(54*gm(1,2)*gm(1,3)& 4772 & -18*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+3*(4*(-36*gm(1,1)& 4773 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4774 & *dgm01(1,2)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 4775 & +2*gm(1,2)*gm(2,3)))*dgm01(1,3))*dgm10(2,3)+6*gm(1,1)*((54*gm(1,3)& 4776 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 4777 & *gm(2,3))*dgm01(2,3)+(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))& 4778 & *dgm10(2,3)+(6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 4779 & +2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 4780 & *gm(2,2))*dgm01(1,3))*dgm10(3,3)+6*gm(1,1)*((54*gm(1,2)*gm(1,3)& 4781 & -18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 4782 & *dgm01(2,3))*dgm10(3,3))/36.d0 4783 cm(2,25)=((2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4784 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 4785 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)& 4786 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)& 4787 & +(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4788 & *gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 4789 & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(1,3)& 4790 & +(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4791 & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4792 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3))*dgm10(2,2)+(6*(-12*gm(1,3)& 4793 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4794 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)& 4795 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4796 & *dgm01(3,3))*dgm10(2,2)+3*(4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4797 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(24*gm(1,3)& 4798 & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+6*((-12*gm(1,3)& 4799 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4800 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)& 4801 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4802 & *dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3))& 4803 & *dgm10(2,3)+gm(2,2)*(144*gm(1,3)*gm(2,2)*dgm01(1,2)+72*gm(1,2)& 4804 & *(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))*dgm10(3,3)+(6*(6*gm(1,2)& 4805 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4806 & *dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))& 4807 & *dgm10(3,3))/12.d0 4808 cm(3,25)=((288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))& 4809 & +gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)& 4810 & *(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(1,2)& 4811 & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)& 4812 & +gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)& 4813 & *(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)+gm(3,3)& 4814 & *(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(1,3)& 4815 & +gm(3,3)*(144*gm(1,2)*gm(3,3)*dgm01(1,3)+72*gm(1,3)*(gm(3,3)& 4816 & *dgm01(1,2)+gm(2,3)*dgm01(1,3)))*dgm10(2,2)+(6*gm(3,3)*(12*gm(1,3)& 4817 & **2+24*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4818 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)& 4819 & +3*(gm(1,2)*gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))& 4820 & +gm(1,3)*(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)& 4821 & -72*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,3)+6*(gm(3,3)*(12*gm(1,3)& 4822 & **2+24*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4823 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)& 4824 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4825 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)& 4826 & +(gm(1,3)*(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)*gm(3,3)*dgm01(1,2)& 4827 & -72*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)*gm(3,3)& 4828 & *dgm01(1,2)+180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)*dgm01(1,3)))& 4829 & *dgm10(3,3)+(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 4830 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)& 4831 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)& 4832 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0 4833 cm(4,25)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)& 4834 & *dgm01(2,3)+gm(2,3)*(108*gm(3,3)*dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))& 4835 & +gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)& 4836 & +gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)*dgm01(3,3))))*dgm10(1,2)& 4837 & +(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)*dgm01(2,3)& 4838 & +gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))+gm(1,2)& 4839 & *(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)& 4840 & *(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(1,3)& 4841 & +(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)& 4842 & +6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4843 & *gm(3,3)))*dgm01(1,3))*dgm10(2,2)+(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4844 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)& 4845 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 4846 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(gm(1,3)& 4847 & *(24*gm(2,3)**2*dgm01(1,2)+96*gm(2,2)*gm(3,3)*dgm01(1,2)+24*gm(2,2)& 4848 & *gm(2,3)*dgm01(1,3))+gm(1,2)*(24*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)& 4849 & **2*dgm01(1,3)+96*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,3)+6*((6*gm(1,3)& 4850 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4851 & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 4852 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 4853 & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 4854 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(gm(1,3)*gm(2,2)*(36*gm(2,3)& 4855 & *dgm01(1,2)-36*gm(2,2)*dgm01(1,3))+gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)& 4856 & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)*dgm01(1,3)))& 4857 & *dgm10(3,3)+(6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)& 4858 & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))& 4859 & *dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4860 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/6.d0 4861 cm(5,25)=((2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 4862 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4863 & *gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4864 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 4865 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 4866 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)& 4867 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 4868 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)& 4869 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4870 & *dgm01(3,3))*dgm10(1,3)+(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 4871 & *gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 4872 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+(6*(6*gm(1,3)& 4873 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)& 4874 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))& 4875 & *dgm10(2,2)+3*(4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4876 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)& 4877 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4878 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3))*dgm10(2,3)+6*((6*gm(1,3)& 4879 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)& 4880 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)& 4881 & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 4882 & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(6*(-12*gm(1,3)**2*gm(2,2)& 4883 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4884 & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 4885 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))& 4886 & *dgm10(3,3)+(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 4887 & **2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 4888 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))& 4889 & /12.d0 4890 cm(6,25)=((2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4891 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)& 4892 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 4893 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)& 4894 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 4895 & *dgm10(1,2)+(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4896 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4897 & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4898 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)& 4899 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)& 4900 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4901 & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4902 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4903 & *dgm01(1,3))*dgm10(2,2)+(6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4904 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)& 4905 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))& 4906 & *dgm10(2,2)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4907 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4908 & *dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 4909 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+6*((48*gm(1,1)& 4910 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)& 4911 & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 4912 & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)& 4913 & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+(288*gm(1,2)*gm(1,3)*gm(2,2)& 4914 & *dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)-36*gm(2,2)& 4915 & *dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)*dgm01(1,3)))& 4916 & *dgm10(3,3)+(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 4917 & +6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)& 4918 & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/12.d0 4919 cm(7,25)=((2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 4920 & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)& 4921 & **2*gm(2,3)*dgm01(3,3))*dgm10(1,2)+gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)& 4922 & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)& 4923 & **2*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)& 4924 & *gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4925 & *dgm01(1,3))*dgm10(2,2)+(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4926 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)& 4927 & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+3*gm(2,2)& 4928 & *(4*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)+144*gm(2,2)& 4929 & *gm(2,3)*dgm01(1,3))*dgm10(2,3)+3*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4930 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+8*gm(2,2)& 4931 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)& 4932 & *gm(2,2)**2*dgm01(3,3))*dgm10(2,3)+gm(2,2)**2*(216*gm(2,3)*dgm01(1,2)& 4933 & +72*gm(2,2)*dgm01(1,3))*dgm10(3,3)+gm(2,2)*(6*(-18*gm(1,3)*gm(2,2)& 4934 & +54*gm(1,2)*gm(2,3))*dgm01(2,2)+216*gm(1,2)*gm(2,2)*dgm01(2,3))& 4935 & *dgm10(3,3))/36.d0 4936 cm(8,25)=((144*gm(2,3)**2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)& 4937 & **2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)& 4938 & *dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(1,2)+(72*gm(2,3)**3*dgm01(2,3)& 4939 & +360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)& 4940 & *dgm01(2,2)-36*gm(2,2)*dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)& 4941 & +108*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+gm(3,3)*(72*gm(2,3)*gm(3,3)& 4942 & *dgm01(1,2)+6*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3))& 4943 & *dgm10(2,2)+(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4944 & *dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4945 & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)& 4946 & +96*gm(2,2)*gm(3,3)**2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)& 4947 & *gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+6*(gm(3,3)*(12*gm(1,3)& 4948 & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)& 4949 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)& 4950 & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4951 & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)& 4952 & *gm(2,3)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)& 4953 & -36*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(3,3)+(6*(6*gm(1,2)*gm(2,3)& 4954 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4955 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4956 & *gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0 4957 cm(9,25)=((72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)& 4958 & *dgm01(2,3)+gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))& 4959 & +gm(2,2)*gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))& 4960 & *dgm10(1,2)+(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)& 4961 & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)& 4962 & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+(2*gm(3,3)*(54*gm(2,3)& 4963 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)& 4964 & *gm(2,3)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+(6*(48*gm(1,2)*gm(2,3)& 4965 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)& 4966 & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 4967 & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(24*gm(2,3)**3*dgm01(1,2)& 4968 & +120*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)& 4969 & +96*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,3)+6*((48*gm(1,2)& 4970 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)& 4971 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 4972 & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 4973 & *gm(2,3))*dgm01(3,3))*dgm10(2,3)+gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)& 4974 & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)*dgm01(1,3))& 4975 & *dgm10(3,3)+(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4976 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4977 & +12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/12.d0 4978 cm(10,25)=(gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)& 4979 & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(1,2)& 4980 & +(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)& 4981 & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)& 4982 & -108*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+gm(3,3)**2*(72*gm(3,3)*dgm01(1,2)& 4983 & +216*gm(2,3)*dgm01(1,3))*dgm10(2,2)+gm(3,3)*(216*gm(1,3)*gm(3,3)& 4984 & *dgm01(2,3)+6*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3))& 4985 & *dgm10(2,2)+3*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)& 4986 & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+3*(72*gm(1,3)& 4987 & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 4988 & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4989 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(324*gm(2,3)& 4990 & **2*gm(3,3)*dgm01(1,2)-108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)& 4991 & **3*dgm01(1,3)-108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(3,3)& 4992 & +(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)& 4993 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4994 & *gm(3,3)))*dgm01(2,3))*dgm10(3,3))/36.d0 4995 cm(1,26)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 4996 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 4997 & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(2*(90*gm(1,3)**3-54*gm(1,1)& 4998 & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 4999 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)& 5000 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))& 5001 & *dgm10(1,3)+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 5002 & *dgm10(2,2)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5003 & *dgm10(2,2)+4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)& 5004 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5005 & *gm(3,3)))*dgm01(1,3))*dgm10(2,3)+24*gm(1,1)*((54*gm(1,3)**2-18*gm(1,1)& 5006 & *gm(3,3))*dgm01(2,3)+(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 5007 & *dgm01(3,3))*dgm10(2,3)+3*(4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5008 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+4*(90*gm(1,2)& 5009 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3))& 5010 & *dgm10(3,3)+6*gm(1,1)*((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 5011 & +4*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+(54*gm(1,2)& 5012 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/72.d0 5013 cm(2,26)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5014 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 5015 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)& 5016 & +2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5017 & *gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5018 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)& 5019 & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+4*(-36*gm(1,2)& 5020 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5021 & *dgm01(1,3)*dgm10(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5022 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 5023 & *gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5024 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)& 5025 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3))& 5026 & *dgm10(2,3)+4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5027 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5028 & *dgm01(2,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5029 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+3*(4*(48*gm(1,3)& 5030 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)& 5031 & +4*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))& 5032 & *dgm10(3,3)+6*((-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5033 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5034 & *dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5035 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 5036 & *gm(2,2))*dgm01(3,3))*dgm10(3,3))/24.d0 5037 cm(3,26)=(4*gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)& 5038 & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+8*(288*gm(1,2)& 5039 & *gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)& 5040 & **2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)& 5041 & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(1,3)+576*gm(1,3)& 5042 & *gm(3,3)**2*dgm01(1,3)*dgm10(2,2)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 5043 & *gm(3,3))*dgm01(3,3)*dgm10(2,2)+16*gm(3,3)*(144*gm(1,2)*gm(3,3)& 5044 & *dgm01(1,3)+72*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)))& 5045 & *dgm10(2,3)+16*(6*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))& 5046 & *dgm01(2,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 5047 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+12*(gm(1,2)& 5048 & *gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,3)& 5049 & *(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)-72*gm(2,2)& 5050 & *gm(3,3)*dgm01(1,3)))*dgm10(3,3)+24*(gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 5051 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 5052 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)& 5053 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5054 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))& 5055 & /96.d0 5056 cm(4,26)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5057 & *dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5058 & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(gm(1,3)*(72*gm(2,3)& 5059 & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)& 5060 & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)& 5061 & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)& 5062 & *dgm01(3,3))))*dgm10(1,3)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5063 & *gm(3,3))*dgm01(1,3)*dgm10(2,2)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 5064 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)& 5065 & +4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)& 5066 & +6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 5067 & *gm(3,3)))*dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,3)**2*gm(2,3)& 5068 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5069 & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 5070 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))& 5071 & *dgm10(2,3)+3*(gm(1,3)*(24*gm(2,3)**2*dgm01(1,2)+96*gm(2,2)*gm(3,3)& 5072 & *dgm01(1,2)+24*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(24*gm(2,3)& 5073 & *gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)+96*gm(2,2)*gm(3,3)& 5074 & *dgm01(1,3)))*dgm10(3,3)+6*((6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 5075 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+4*(9*gm(1,3)& 5076 & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)& 5077 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)*gm(1,3)& 5078 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 5079 & *dgm10(3,3))/12.d0 5080 cm(5,26)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5081 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5082 & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+2*(2*gm(3,3)*(54*gm(1,3)& 5083 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 5084 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)& 5085 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5086 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)& 5087 & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,2)& 5088 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)& 5089 & +4*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)& 5090 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5091 & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 5092 & *gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 5093 & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+3*(4*(6*gm(1,3)& 5094 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5095 & *dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5096 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5097 & *dgm01(1,3))*dgm10(3,3)+6*((6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 5098 & *dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 5099 & *gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 5100 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))& 5101 & /24.d0 5102 cm(6,26)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5103 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)& 5104 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 5105 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(2*(90*gm(1,3)& 5106 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5107 & *dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5108 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5109 & *dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5110 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+4*(90*gm(1,3)& 5111 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5112 & *dgm01(1,3)*dgm10(2,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5113 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(90*gm(1,3)& 5114 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5115 & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5116 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5117 & *dgm01(1,3))*dgm10(2,3)+4*(6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5118 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)& 5119 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))& 5120 & *dgm10(2,3)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5121 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5122 & *dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5123 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(3,3)+6*((48*gm(1,1)& 5124 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)& 5125 & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 5126 & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)& 5127 & *gm(2,2))*dgm01(3,3))*dgm10(3,3))/24.d0 5128 cm(7,26)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5129 & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)& 5130 & +2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)& 5131 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)& 5132 & *dgm01(3,3))*dgm10(1,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 5133 & *dgm01(1,3)*dgm10(2,2)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5134 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(90*gm(2,3)& 5135 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)& 5136 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+4*(6*(-36*gm(1,3)& 5137 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5138 & *dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 5139 & *dgm01(3,3))*dgm10(2,3)+3*gm(2,2)*(4*(54*gm(2,3)**2-18*gm(2,2)& 5140 & *gm(3,3))*dgm01(1,2)+144*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(3,3)& 5141 & +3*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 5142 & *gm(3,3)))*dgm01(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 5143 & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(3,3))& 5144 & /72.d0 5145 cm(8,26)=(4*gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)& 5146 & **2+24*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+8*(144*gm(2,3)& 5147 & **2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)& 5148 & **3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)& 5149 & *dgm01(3,3)))*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*dgm01(1,3)*dgm10(2,2)& 5150 & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)& 5151 & *dgm10(2,2)+16*gm(3,3)*(72*gm(2,3)*gm(3,3)*dgm01(1,2)+6*(12*gm(2,3)& 5152 & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+16*(6*gm(3,3)& 5153 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)& 5154 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))& 5155 & *dgm10(2,3)+12*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(3,3)& 5156 & **2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)*gm(2,3)*gm(3,3)& 5157 & *dgm01(1,3))*dgm10(3,3)+24*(gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 5158 & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5159 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)& 5160 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))& 5161 & /96.d0 5162 cm(9,26)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 5163 & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)& 5164 & +2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)& 5165 & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)& 5166 & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(1,3)& 5167 & +4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(2,2)& 5168 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 5169 & *gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 5170 & *gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))& 5171 & *dgm01(1,3))*dgm10(2,3)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5172 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,3)*gm(2,2)& 5173 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))& 5174 & *dgm10(2,3)+3*(24*gm(2,3)**3*dgm01(1,2)+120*gm(2,2)*gm(2,3)*gm(3,3)& 5175 & *dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)+96*gm(2,2)**2*gm(3,3)& 5176 & *dgm01(1,3))*dgm10(3,3)+6*((48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5177 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)*gm(2,2)& 5178 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)& 5179 & +gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))& 5180 & *dgm10(3,3))/24.d0 5181 cm(10,26)=(4*gm(3,3)**2*(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)& 5182 & *dgm01(3,3))*dgm10(1,2)+8*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)& 5183 & **2*dgm01(3,3)+gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))& 5184 & *dgm10(1,3)+576*gm(3,3)**3*dgm01(1,3)*dgm10(2,2)+864*gm(1,3)& 5185 & *gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+16*gm(3,3)**2*(72*gm(3,3)*dgm01(1,2)& 5186 & +216*gm(2,3)*dgm01(1,3))*dgm10(2,3)+16*gm(3,3)*(216*gm(1,3)*gm(3,3)& 5187 & *dgm01(2,3)+6*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3))& 5188 & *dgm10(2,3)+12*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)& 5189 & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(3,3)+12*(72*gm(1,3)& 5190 & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5191 & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5192 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))/288.d0 5193 cm(1,27)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5194 & *dgm10(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 5195 & *dgm10(1,3)+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 5196 & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)& 5197 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*gm(1,1)& 5198 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+(90*gm(1,3)& 5199 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(-36*gm(1,1)& 5200 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 5201 & *dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 5202 & *dgm01(2,3)*dgm10(3,3)+3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 5203 & *gm(2,3))*dgm01(3,3)*dgm10(3,3))/18.d0 5204 cm(2,27)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5205 & *gm(3,3)))*dgm01(3,3)*dgm10(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5206 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,3)& 5207 & +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 5208 & *gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5209 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(2,3)& 5210 & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 5211 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)& 5212 & *dgm10(2,3)+(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5213 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(3,3)+3*(48*gm(1,3)& 5214 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 5215 & *dgm10(3,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5216 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5217 & *dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 5218 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3))& 5219 & /6.d0 5220 cm(3,27)=(gm(1,3)*gm(3,3)*(720*gm(1,2)*dgm01(3,3)*dgm10(3,3)& 5221 & +gm(3,3)*(1440*dgm01(3,3)*dgm10(1,2)+2880*dgm01(2,3)*dgm10(1,3)& 5222 & +2880*dgm01(1,3)*dgm10(2,3)+1440*dgm01(1,2)*dgm10(3,3))+1440*gm(2,3)& 5223 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(1,3)**2*(720*gm(2,3)& 5224 & *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5225 & *dgm10(3,3)))+2880*gm(3,3)*(gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)& 5226 & +dgm01(1,3)*dgm10(3,3))+gm(1,1)*(gm(2,3)*dgm01(3,3)*dgm10(3,3)& 5227 & +gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/240.d0 5228 cm(4,27)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3)& 5229 & *dgm10(1,2)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5230 & *dgm01(2,3)*dgm10(1,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5231 & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)& 5232 & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*(6*gm(1,3)& 5233 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 5234 & *dgm01(3,3)*dgm10(2,3)+gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5235 & *gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)& 5236 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(3,3)& 5237 & +3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 5238 & *gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+3*(9*gm(1,3)**2*gm(2,2)& 5239 & -6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)& 5240 & **2+15*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/3.d0 5241 cm(5,27)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5242 & *dgm10(1,2)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5243 & *dgm10(1,3)+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 5244 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,3)+2*gm(3,3)& 5245 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*(6*gm(1,3)& 5246 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+gm(3,3)& 5247 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(1,3)& 5248 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5249 & *dgm01(1,3)*dgm10(3,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 5250 & *dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 5251 & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/6.d0 5252 cm(6,27)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5253 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,2)+2*(90*gm(1,3)& 5254 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5255 & *dgm01(2,3)*dgm10(1,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5256 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5257 & *gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 5258 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(2,3)& 5259 & +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 5260 & *gm(3,3)))*dgm01(3,3)*dgm10(2,3)+(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 5261 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)& 5262 & +3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 5263 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)& 5264 & *dgm10(3,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 5265 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)**2*gm(1,3)& 5266 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)& 5267 & *dgm10(3,3))/6.d0 5268 cm(7,27)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5269 & *dgm10(1,2)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5270 & *dgm10(1,3)+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5271 & *dgm10(1,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 5272 & *dgm10(2,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 5273 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+(90*gm(2,3)**3-54*gm(2,2)& 5274 & *gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*gm(2,2)*(54*gm(2,3)& 5275 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(-36*gm(1,3)& 5276 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5277 & *dgm01(2,3)*dgm10(3,3)+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 5278 & *gm(2,3))*dgm01(3,3)*dgm10(3,3))/18.d0 5279 cm(8,27)=(gm(2,3)**2*(720*gm(1,3)*dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)& 5280 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(2,3)*gm(3,3)& 5281 & *(720*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(1440*dgm01(3,3)& 5282 & *dgm10(1,2)+2880*dgm01(2,3)*dgm10(1,3)+2880*dgm01(1,3)*dgm10(2,3)& 5283 & +1440*dgm01(1,2)*dgm10(3,3))+1440*gm(1,3)*(dgm01(3,3)*dgm10(2,3)& 5284 & +dgm01(2,3)*dgm10(3,3)))+2880*gm(3,3)*(gm(1,2)*gm(3,3)*(dgm01(3,3)& 5285 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,2)*(gm(1,3)*dgm01(3,3)& 5286 & *dgm10(3,3)+gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))& 5287 & /240.d0 5288 cm(9,27)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5289 & *dgm10(1,2)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 5290 & *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5291 & *dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 5292 & *dgm10(2,3)+3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5293 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+gm(3,3)*(54*gm(2,3)& 5294 & **2-18*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(2,3)**3+30*gm(2,2)& 5295 & *gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(48*gm(1,2)*gm(2,3)& 5296 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)& 5297 & *dgm10(3,3)+3*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 5298 & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/6.d0 5299 cm(10,27)=2*gm(3,3)*(4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)& 5300 & +gm(3,3)**2*(1*dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)& 5301 & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-1.5d0*gm(1,2)& 5302 & *dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5303 & *dgm10(3,3))+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))) 5304 cm(1,28)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5305 & *dgm10(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 5306 & *dgm10(3,3)+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5307 & *dgm10(3,3))/36.d0 5308 cm(2,28)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5309 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(-36*gm(1,2)& 5310 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5311 & *dgm01(1,3)*dgm10(3,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5312 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 5313 & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5314 cm(3,28)=(gm(3,3)*(8640*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,3)& 5315 & +8640*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(3,3)+360*(12*gm(1,3)**2+24*gm(1,1)& 5316 & *gm(3,3))*dgm01(3,3)*dgm10(3,3)))/1440.d0 5317 cm(4,28)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5318 & *dgm01(3,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5319 & *gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 5320 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))& 5321 & /6.d0 5322 cm(5,28)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5323 & *dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)& 5324 & *dgm10(3,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5325 & *dgm10(3,3))/12.d0 5326 cm(6,28)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5327 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)& 5328 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5329 & *dgm01(1,3)*dgm10(3,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5330 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5331 cm(7,28)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5332 & *dgm10(1,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 5333 & *dgm10(3,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 5334 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/36.d0 5335 cm(8,28)=(gm(3,3)*(8640*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)& 5336 & +gm(2,3)*(4320*gm(1,3)*dgm01(3,3)*dgm10(3,3)+8640*gm(3,3)*(dgm01(3,3)& 5337 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/1440.d0 5338 cm(9,28)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5339 & *dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 5340 & *dgm10(3,3)+3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5341 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5342 cm(10,28)=gm(3,3)**2*(3*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 5343 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 5344 cm(1,29)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 5345 & *dgm10(2,2))/36.d0 5346 cm(2,29)=3*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(2,2) 5347 cm(3,29)=((-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 5348 & *gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0 5349 cm(4,29)=(gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)& 5350 & *dgm10(2,2))/6.d0 5351 cm(5,29)=((-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 5352 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2))/12.d0 5353 cm(6,29)=(gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)& 5354 & *dgm10(2,2))/12.d0 5355 cm(7,29)=gm(2,2)**3*dgm01(2,2)*dgm10(2,2) 5356 cm(8,29)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 5357 & *dgm10(2,2))/12.d0 5358 cm(9,29)=3*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(2,2) 5359 cm(10,29)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 5360 & *dgm10(2,2))/36.d0 5361 cm(1,30)=((6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 5362 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)& 5363 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)& 5364 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+(12*(90*gm(1,2)& 5365 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)& 5366 & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)& 5367 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(3,3))& 5368 & /72.d0 5369 cm(2,30)=(20*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5370 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)& 5371 & +12*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))& 5372 & *dgm10(2,2)+20*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 5373 & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+1440*gm(1,2)& 5374 & *gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/480.d0 5375 cm(3,30)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)& 5376 & *dgm01(2,3)+gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))& 5377 & +gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)& 5378 & +gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(2,2)& 5379 & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)& 5380 & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)& 5381 & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))& 5382 & *dgm10(2,3)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 5383 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0 5384 cm(4,30)=((gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)& 5385 & *dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))& 5386 & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)& 5387 & +gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(2,2)& 5388 & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))& 5389 & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)& 5390 & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(-18*gm(1,3)& 5391 & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(3,3))/12.d0 5392 cm(5,30)=((6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 5393 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)& 5394 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 5395 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 5396 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 5397 & *dgm10(2,2)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5398 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5399 & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 5400 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+2*(-36*gm(1,2)& 5401 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5402 & *dgm01(2,2)*dgm10(3,3))/24.d0 5403 cm(6,30)=((6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5404 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5405 & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5406 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)& 5407 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+(576*gm(1,2)*gm(1,3)& 5408 & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)& 5409 & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)& 5410 & *dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 5411 & *gm(2,2))*dgm01(2,2)*dgm10(3,3))/24.d0 5412 cm(7,30)=(gm(2,2)*(20*(6*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 5413 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)**2*dgm01(3,3))& 5414 & *dgm10(2,2)+20*gm(2,2)*(432*gm(2,3)*dgm01(2,2)+288*gm(2,2)*dgm01(2,3))& 5415 & *dgm10(2,3)+1440*gm(2,2)**2*dgm01(2,2)*dgm10(3,3)))/1440.d0 5416 cm(8,30)=((72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)& 5417 & *dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)& 5418 & *dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))& 5419 & *dgm10(2,2)+(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)& 5420 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)& 5421 & *dgm01(2,3))*dgm10(2,3)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 5422 & *dgm01(2,2)*dgm10(3,3))/24.d0 5423 cm(9,30)=1.5d0*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)*gm(2,3)& 5424 & **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+12*gm(2,2)& 5425 & **2*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)& 5426 & *gm(2,3)*(7.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)& 5427 & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))) 5428 cm(10,30)=((648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)& 5429 & **2*dgm01(2,3)+180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)& 5430 & *dgm01(2,2)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+(648*gm(2,3)& 5431 & **2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)+720*gm(2,3)& 5432 & **3*dgm01(2,3)-432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(2,3)& 5433 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(3,3))& 5434 & /72.d0 5435 cm(1,31)=(30*(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)& 5436 & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)**3-54*gm(1,1)& 5437 & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+240*(90*gm(1,2)**3-54*gm(1,1)& 5438 & *gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/4320.d0 5439 cm(2,31)=(gm(2,2)*(30*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 5440 & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,2)+8640*gm(1,2)& 5441 & *gm(2,2)*dgm01(2,2)*dgm10(2,3)))/1440.d0 5442 cm(3,31)=(30*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)& 5443 & *gm(3,3)*dgm01(2,2)-288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)& 5444 & *gm(3,3)*dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)& 5445 & *dgm01(2,3)))*dgm10(2,2)+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5446 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))/1440.d0 5447 cm(4,31)=(30*(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)& 5448 & *dgm01(2,3))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)& 5449 & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(2,2)+240*gm(2,2)& 5450 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))& 5451 & /720.d0 5452 cm(5,31)=(30*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5453 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5454 & *gm(3,3)))*dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 5455 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)& 5456 & +240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 5457 & *gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/1440.d0 5458 cm(6,31)=(30*(576*gm(1,2)*gm(1,3)*gm(2,2)*dgm01(2,2)+gm(1,1)& 5459 & *gm(2,2)*(-216*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))+gm(1,2)& 5460 & **2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)*dgm01(2,3)))*dgm10(2,2)& 5461 & +240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))& 5462 & /1440.d0 5463 cm(7,31)=gm(2,2)**2*(3*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 5464 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))) 5465 cm(8,31)=1.5d0*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+7.5d0*gm(2,2)& 5466 & *gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+9*gm(2,2)*gm(2,3)**2*(dgm01(2,3)& 5467 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))-3*gm(2,2)**2*gm(3,3)*(dgm01(2,3)& 5468 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)) 5469 cm(9,31)=gm(2,2)*(3*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)& 5470 & *gm(3,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)*gm(2,3)*(dgm01(2,3)& 5471 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))) 5472 cm(10,31)=(30*(648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)& 5473 & *gm(3,3)**2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)& 5474 & *gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(2,2)+240*(90*gm(2,3)**3-54*gm(2,2)& 5475 & *gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,3))/4320.d0 5476 cm(1,32)=(2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)& 5477 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5478 & *gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)& 5479 & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))*dgm10(2,2)+4*(6*(-36*gm(1,1)& 5480 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 5481 & *dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 5482 & +2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)& 5483 & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 5484 & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)& 5485 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/144.d0 5486 cm(2,32)=(2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5487 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 5488 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)& 5489 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)& 5490 & +4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 5491 & *gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 5492 & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(2,3)& 5493 & +gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,2)& 5494 & +288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/48.d0 5495 cm(3,32)=(2*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)& 5496 & *dgm01(3,3))+gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)& 5497 & +gm(3,3)*(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(2,2)& 5498 & +4*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)& 5499 & +gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)& 5500 & *(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)+gm(3,3)& 5501 & *(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(2,3)& 5502 & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)& 5503 & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)& 5504 & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))& 5505 & *dgm10(3,3))/48.d0 5506 cm(4,32)=(2*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)& 5507 & *dgm01(2,3)+gm(2,3)*(108*gm(3,3)*dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))& 5508 & +gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)& 5509 & +gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)*dgm01(3,3))))*dgm10(2,2)& 5510 & +4*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)*dgm01(2,3)& 5511 & +gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))+gm(1,2)& 5512 & *(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)& 5513 & *(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(2,3)& 5514 & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))& 5515 & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)& 5516 & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(3,3))/24.d0 5517 cm(5,32)=(2*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 5518 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5519 & *gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 5520 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5521 & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,3)**2*gm(2,3)& 5522 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)& 5523 & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 5524 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)& 5525 & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 5526 & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(12*(-12*gm(1,3)**2*gm(2,2)& 5527 & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 5528 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 5529 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))& 5530 & *dgm10(3,3))/48.d0 5531 cm(6,32)=(2*(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5532 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)& 5533 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 5534 & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)& 5535 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))& 5536 & *dgm10(2,2)+4*(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5537 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5538 & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5539 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)& 5540 & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+(576*gm(1,2)*gm(1,3)& 5541 & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)& 5542 & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)& 5543 & *dgm01(2,3)))*dgm10(3,3))/48.d0 5544 cm(7,32)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 5545 & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)& 5546 & **2*gm(2,3)*dgm01(3,3))*dgm10(2,2)+4*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)& 5547 & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)& 5548 & **2*dgm01(3,3))*dgm10(2,3)+gm(2,2)**2*(432*gm(2,3)*dgm01(2,2)& 5549 & +288*gm(2,2)*dgm01(2,3))*dgm10(3,3))/144.d0 5550 cm(8,32)=(2*(144*gm(2,3)**2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)& 5551 & **2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)& 5552 & *dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+4*(72*gm(2,3)& 5553 & **3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)& 5554 & *gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3))+gm(2,3)& 5555 & **2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)& 5556 & +(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,2)& 5557 & +432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)*dgm01(2,3))& 5558 & *dgm10(3,3))/48.d0 5559 cm(9,32)=3*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5560 & +gm(2,3)**2*(4.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)& 5561 & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))& 5562 & +gm(2,2)*gm(3,3)*(-1.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 5563 & *(6*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)& 5564 & *dgm10(3,3)))+gm(2,2)*gm(2,3)*(15*gm(3,3)*(dgm01(2,3)*dgm10(2,2)& 5565 & +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5566 & *dgm10(3,3))) 5567 cm(10,32)=(2*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)& 5568 & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,2)& 5569 & +4*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)& 5570 & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)& 5571 & -108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)+(648*gm(2,3)**2*gm(3,3)& 5572 & *dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)& 5573 & -432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(3,3))/144.d0 5574 cm(1,33)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 5575 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5576 & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(2*(90*gm(1,3)**3-54*gm(1,1)& 5577 & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 5578 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)& 5579 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))& 5580 & *dgm10(2,3)+2*(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 5581 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)& 5582 & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)& 5583 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/144.d0 5584 cm(2,33)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5585 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 5586 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)& 5587 & +4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5588 & *gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5589 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)& 5590 & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+2*(6*(48*gm(1,3)& 5591 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)& 5592 & +12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3)& 5593 & +72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(3,3))/48.d0 5594 cm(3,33)=(gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)& 5595 & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(288*gm(1,2)& 5596 & *gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)& 5597 & **2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)& 5598 & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(2,3)+2*(gm(1,3)*(72*gm(2,3)& 5599 & **2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(72*gm(3,3)& 5600 & *dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)& 5601 & +180*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)& 5602 & *dgm01(3,3))))*dgm10(3,3))/48.d0 5603 cm(4,33)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5604 & *dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5605 & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(gm(1,3)*(72*gm(2,3)& 5606 & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)& 5607 & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)& 5608 & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)& 5609 & *dgm01(3,3))))*dgm10(2,3)+2*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)& 5610 & +72*gm(2,2)*gm(2,3)*dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)& 5611 & -36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)& 5612 & *gm(3,3)*dgm01(2,3)+gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)& 5613 & *dgm01(3,3))))*dgm10(3,3))/24.d0 5614 cm(5,33)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5615 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5616 & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(2*gm(3,3)*(54*gm(1,3)& 5617 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 5618 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)& 5619 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5620 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)& 5621 & +2*(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5622 & *gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 5623 & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5624 & *gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 5625 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))& 5626 & /48.d0 5627 cm(6,33)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5628 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)& 5629 & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)& 5630 & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(2*(90*gm(1,3)& 5631 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5632 & *dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5633 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5634 & *dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5635 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+2*(6*(30*gm(1,3)& 5636 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5637 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,2)& 5638 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5639 & *dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))& 5640 & *dgm10(3,3))/48.d0 5641 cm(7,33)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5642 & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)& 5643 & +4*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)& 5644 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)& 5645 & *dgm01(3,3))*dgm10(2,3)+2*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)& 5646 & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)& 5647 & **2*dgm01(3,3))*dgm10(3,3))/144.d0 5648 cm(8,33)=(gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)& 5649 & **2+24*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(144*gm(2,3)& 5650 & **2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)& 5651 & **3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)& 5652 & *dgm01(3,3)))*dgm10(2,3)+2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)& 5653 & *gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)& 5654 & -36*gm(2,2)*dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)& 5655 & *dgm01(3,3)))*dgm10(3,3))/48.d0 5656 cm(9,33)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 5657 & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)& 5658 & +4*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)& 5659 & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)& 5660 & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(2,3)& 5661 & +2*(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)& 5662 & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)& 5663 & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(3,3))/48.d0 5664 cm(10,33)=(gm(3,3)**2*(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)*dgm01(3,3))& 5665 & *dgm10(2,2)+4*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)& 5666 & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)& 5667 & +2*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)& 5668 & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)& 5669 & -108*gm(2,2)*dgm01(3,3)))*dgm10(3,3))/144.d0 5670 cm(1,34)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5671 & *dgm10(2,2)+(8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 5672 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5673 & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(2*(90*gm(1,3)**3-54*gm(1,1)& 5674 & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 5675 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)& 5676 & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))& 5677 & *dgm10(3,3))/72.d0 5678 cm(2,34)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5679 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+(8*(-36*gm(1,2)& 5680 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5681 & *dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5682 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(2*(-36*gm(1,2)& 5683 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5684 & *dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5685 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)& 5686 & +12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))/24.d0 5687 cm(3,34)=(1440*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)& 5688 & *(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 5689 & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+20*(288*gm(1,2)*gm(3,3)*(gm(3,3)& 5690 & *dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)& 5691 & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)& 5692 & *dgm01(3,3))))*dgm10(3,3))/480.d0 5693 cm(4,34)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5694 & *dgm01(3,3)*dgm10(2,2)+(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5695 & *gm(3,3))*dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5696 & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(gm(1,3)*(72*gm(2,3)& 5697 & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)& 5698 & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)& 5699 & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)& 5700 & *dgm01(3,3))))*dgm10(3,3))/12.d0 5701 cm(5,34)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5702 & *dgm10(2,2)+(8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5703 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5704 & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+(2*gm(3,3)*(54*gm(1,3)& 5705 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 5706 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)& 5707 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5708 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))& 5709 & /24.d0 5710 cm(6,34)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5711 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)+(8*(90*gm(1,3)& 5712 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5713 & *dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5714 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5715 & *dgm01(3,3))*dgm10(2,3)+(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 5716 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)& 5717 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5718 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)& 5719 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5720 & *dgm01(3,3))*dgm10(3,3))/24.d0 5721 cm(7,34)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5722 & *dgm10(2,2)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5723 & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,3)& 5724 & +(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)& 5725 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)& 5726 & *dgm01(3,3))*dgm10(3,3))/72.d0 5727 cm(8,34)=(1440*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)& 5728 & *(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)**2+24*gm(2,2)& 5729 & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+20*(144*gm(2,3)**2*gm(3,3)*dgm01(2,3)& 5730 & +288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)& 5731 & *gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(3,3))& 5732 & /480.d0 5733 cm(9,34)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5734 & *dgm10(2,2)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 5735 & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)& 5736 & +(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)& 5737 & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)& 5738 & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(3,3))& 5739 & /24.d0 5740 cm(10,34)=(gm(3,3)*(1440*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)& 5741 & *(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)*dgm01(3,3))*dgm10(2,3)+20*(72*gm(3,3)& 5742 & **2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(2,3)& 5743 & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(3,3)))/1440.d0 5744 cm(1,35)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5745 & *dgm10(2,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 5746 & *dgm10(3,3)+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 5747 & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/36.d0 5748 cm(2,35)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5749 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+2*(-36*gm(1,2)& 5750 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5751 & *dgm01(2,3)*dgm10(3,3)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5752 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5753 cm(3,35)=(gm(3,3)*(8640*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)& 5754 & +gm(1,3)*(4320*gm(2,3)*dgm01(3,3)*dgm10(3,3)+8640*gm(3,3)*(dgm01(3,3)& 5755 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/1440.d0 5756 cm(4,35)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5757 & *dgm01(3,3)*dgm10(2,3)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5758 & *gm(3,3))*dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)& 5759 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))& 5760 & /6.d0 5761 cm(5,35)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5762 & *dgm10(2,3)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5763 & *dgm10(3,3)+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 5764 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))/12.d0 5765 cm(6,35)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5766 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+2*(90*gm(1,3)& 5767 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5768 & *dgm01(2,3)*dgm10(3,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5769 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5770 & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5771 cm(7,35)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5772 & *dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5773 & *dgm10(3,3)+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5774 & *dgm10(3,3))/36.d0 5775 cm(8,35)=(gm(3,3)*(8640*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,3)& 5776 & +8640*gm(2,3)*gm(3,3)*dgm01(2,3)*dgm10(3,3)+360*(12*gm(2,3)**2+24*gm(2,2)& 5777 & *gm(3,3))*dgm01(3,3)*dgm10(3,3)))/1440.d0 5778 cm(9,35)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5779 & *dgm10(2,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)& 5780 & *dgm10(3,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5781 & *dgm10(3,3))/12.d0 5782 cm(10,35)=gm(3,3)**2*(3*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 5783 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5784 cm(1,36)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5785 & *dgm10(3,3))/36.d0 5786 cm(2,36)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5787 & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0 5788 cm(3,36)=3*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(3,3) 5789 cm(4,36)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3)& 5790 & *dgm10(3,3))/6.d0 5791 cm(5,36)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5792 & *dgm10(3,3))/12.d0 5793 cm(6,36)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5794 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))/12.d0 5795 cm(7,36)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5796 & *dgm10(3,3))/36.d0 5797 cm(8,36)=3*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(3,3) 5798 cm(9,36)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5799 & *dgm10(3,3))/12.d0 5800 cm(10,36)=gm(3,3)**3*dgm01(3,3)*dgm10(3,3) 5801 end if 5802 ! 5803 !contraction to output scalar 5804 ! 5805 e2nl=0.d0 5806 do jj=1,((rank+5)*(rank+6))/2 5807 tmp(:)=0.d0 5808 do ii=1,((rank+1)*(rank+2))/2 5809 tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj) 5810 end do 5811 e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj) 5812 end do 5813 !factor of 2 multiplied in along with dropping call to conjugate contraction 5814 e2nl=0.5d0*e2nl 5815 5816 ABI_DEALLOCATE(cm) 5817 5818 end subroutine contstr21