TABLE OF CONTENTS
ABINIT/contistr03 [ Functions ]
NAME
contistr03
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
istr=1,...6 specifies cartesian strain component 11,22,33,32,31,21 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
eisnl(3)=contraction for nonlocal internal 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
47 #if defined HAVE_CONFIG_H 48 #include "config.h" 49 #endif 50 51 #include "abi_common.h" 52 53 subroutine contistr03(istr,rank,gm,gprimd,eisnl,aa,bb) 54 55 use defs_basis 56 use m_profiling_abi 57 58 !This section has been created automatically by the script Abilint (TD). 59 !Do not modify the following lines by hand. 60 #undef ABI_FUNC 61 #define ABI_FUNC 'contistr03' 62 !End of the abilint section 63 64 implicit none 65 66 !Arguments ------------------------------------ 67 !scalars 68 integer,intent(in) :: istr,rank 69 !arrays 70 real(dp),intent(in) :: aa(2,((rank+1)*(rank+2))/2),bb(2,((rank+4)*(rank+5))/2) 71 real(dp),intent(in) :: gm(3,3),gprimd(3,3) 72 real(dp),intent(out) :: eisnl(3) 73 74 !Local variables------------------------------- 75 !scalars 76 integer :: ii,jj,ka,kb 77 !arrays 78 integer,parameter :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/) 79 real(dp) :: dgm(3,3),tmp(2,3) 80 real(dp),allocatable :: cm(:,:,:) 81 82 ! ************************************************************************* 83 84 ABI_ALLOCATE(cm,(3,((rank+1)*(rank+2))/2,((rank+4)*(rank+5))/2)) 85 86 ka=idx(2*istr-1);kb=idx(2*istr) 87 88 do ii = 1,3 89 dgm(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii)) 90 end do 91 92 cm(:,:,:)=0.d0 93 ! 94 !The code below was written by a Mathematica program and formatted by 95 !a combination of editing scripts. It is not intended to be read 96 !by human beings, and certainly not to be modified by one. Conceivably 97 !it could be shortened somewhat by identifying common subexpressions. 98 ! 99 100 if(rank==0)then 101 cm(1,1,1)=dgm(1,1) 102 cm(1,1,2)=dgm(2,2) 103 cm(1,1,3)=dgm(3,3) 104 cm(1,1,4)=2*dgm(2,3) 105 cm(1,1,5)=2*dgm(1,3) 106 cm(1,1,6)=2*dgm(1,2) 107 cm(2,1,2)=2*dgm(1,2) 108 cm(2,1,4)=2*dgm(1,3) 109 cm(2,1,6)=dgm(1,1) 110 cm(2,1,7)=dgm(2,2) 111 cm(2,1,8)=dgm(3,3) 112 cm(2,1,9)=2*dgm(2,3) 113 cm(3,1,3)=2*dgm(1,3) 114 cm(3,1,4)=2*dgm(1,2) 115 cm(3,1,5)=dgm(1,1) 116 cm(3,1,8)=2*dgm(2,3) 117 cm(3,1,9)=dgm(2,2) 118 cm(3,1,10)=dgm(3,3) 119 elseif(rank==1)then 120 cm(1,1,1)=gm(1,1)*dgm(1,1) 121 cm(1,2,1)=gm(1,2)*dgm(1,1) 122 cm(1,3,1)=gm(1,3)*dgm(1,1) 123 cm(1,1,2)=2*gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2) 124 cm(1,2,2)=2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2) 125 cm(1,3,2)=2*gm(2,3)*dgm(1,2)+gm(1,3)*dgm(2,2) 126 cm(1,1,3)=2*gm(1,3)*dgm(1,3)+gm(1,1)*dgm(3,3) 127 cm(1,2,3)=2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3) 128 cm(1,3,3)=2*gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3) 129 cm(1,1,4)=2*(gm(1,3)*dgm(1,2)+gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)) 130 cm(1,2,4)=2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3)) 131 cm(1,3,4)=2*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3)+gm(1,3)*dgm(2,3)) 132 cm(1,1,5)=gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3) 133 cm(1,2,5)=gm(2,3)*dgm(1,1)+2*gm(1,2)*dgm(1,3) 134 cm(1,3,5)=gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3) 135 cm(1,1,6)=gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2) 136 cm(1,2,6)=gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2) 137 cm(1,3,6)=gm(2,3)*dgm(1,1)+2*gm(1,3)*dgm(1,2) 138 cm(1,1,7)=gm(1,2)*dgm(2,2) 139 cm(1,2,7)=gm(2,2)*dgm(2,2) 140 cm(1,3,7)=gm(2,3)*dgm(2,2) 141 cm(1,1,8)=2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3) 142 cm(1,2,8)=2*gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3) 143 cm(1,3,8)=2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3) 144 cm(1,1,9)=gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3) 145 cm(1,2,9)=gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3) 146 cm(1,3,9)=gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3) 147 cm(1,1,10)=gm(1,3)*dgm(3,3) 148 cm(1,2,10)=gm(2,3)*dgm(3,3) 149 cm(1,3,10)=gm(3,3)*dgm(3,3) 150 cm(2,1,2)=gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2) 151 cm(2,2,2)=gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2) 152 cm(2,3,2)=gm(2,3)*dgm(1,1)+2*gm(1,3)*dgm(1,2) 153 cm(2,1,4)=gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3) 154 cm(2,2,4)=gm(2,3)*dgm(1,1)+2*gm(1,2)*dgm(1,3) 155 cm(2,3,4)=gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3) 156 cm(2,1,6)=gm(1,1)*dgm(1,1) 157 cm(2,2,6)=gm(1,2)*dgm(1,1) 158 cm(2,3,6)=gm(1,3)*dgm(1,1) 159 cm(2,1,7)=2*gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2) 160 cm(2,2,7)=2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2) 161 cm(2,3,7)=2*gm(2,3)*dgm(1,2)+gm(1,3)*dgm(2,2) 162 cm(2,1,8)=2*gm(1,3)*dgm(1,3)+gm(1,1)*dgm(3,3) 163 cm(2,2,8)=2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3) 164 cm(2,3,8)=2*gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3) 165 cm(2,1,9)=2*(gm(1,3)*dgm(1,2)+gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)) 166 cm(2,2,9)=2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3)) 167 cm(2,3,9)=2*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3)+gm(1,3)*dgm(2,3)) 168 cm(2,1,11)=gm(1,2)*dgm(2,2) 169 cm(2,2,11)=gm(2,2)*dgm(2,2) 170 cm(2,3,11)=gm(2,3)*dgm(2,2) 171 cm(2,1,12)=2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3) 172 cm(2,2,12)=2*gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3) 173 cm(2,3,12)=2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3) 174 cm(2,1,13)=gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3) 175 cm(2,2,13)=gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3) 176 cm(2,3,13)=gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3) 177 cm(2,1,14)=gm(1,3)*dgm(3,3) 178 cm(2,2,14)=gm(2,3)*dgm(3,3) 179 cm(2,3,14)=gm(3,3)*dgm(3,3) 180 cm(3,1,3)=gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3) 181 cm(3,2,3)=gm(2,3)*dgm(1,1)+2*gm(1,2)*dgm(1,3) 182 cm(3,3,3)=gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3) 183 cm(3,1,4)=gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2) 184 cm(3,2,4)=gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2) 185 cm(3,3,4)=gm(2,3)*dgm(1,1)+2*gm(1,3)*dgm(1,2) 186 cm(3,1,5)=gm(1,1)*dgm(1,1) 187 cm(3,2,5)=gm(1,2)*dgm(1,1) 188 cm(3,3,5)=gm(1,3)*dgm(1,1) 189 cm(3,1,8)=2*(gm(1,3)*dgm(1,2)+gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)) 190 cm(3,2,8)=2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3)) 191 cm(3,3,8)=2*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3)+gm(1,3)*dgm(2,3)) 192 cm(3,1,9)=2*gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2) 193 cm(3,2,9)=2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2) 194 cm(3,3,9)=2*gm(2,3)*dgm(1,2)+gm(1,3)*dgm(2,2) 195 cm(3,1,10)=2*gm(1,3)*dgm(1,3)+gm(1,1)*dgm(3,3) 196 cm(3,2,10)=2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3) 197 cm(3,3,10)=2*gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3) 198 cm(3,1,12)=gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3) 199 cm(3,2,12)=gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3) 200 cm(3,3,12)=gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3) 201 cm(3,1,13)=gm(1,2)*dgm(2,2) 202 cm(3,2,13)=gm(2,2)*dgm(2,2) 203 cm(3,3,13)=gm(2,3)*dgm(2,2) 204 cm(3,1,14)=2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3) 205 cm(3,2,14)=2*gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3) 206 cm(3,3,14)=2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3) 207 cm(3,1,15)=gm(1,3)*dgm(3,3) 208 cm(3,2,15)=gm(2,3)*dgm(3,3) 209 cm(3,3,15)=gm(3,3)*dgm(3,3) 210 elseif(rank==2)then 211 cm(1,1,1)=gm(1,1)**2*dgm(1,1) 212 cm(1,2,1)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(1,1))/4.d0 213 cm(1,3,1)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(1,1))/4.d0 214 cm(1,4,1)=((6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm(1,1))/2.d0 215 cm(1,5,1)=2*gm(1,1)*gm(1,3)*dgm(1,1) 216 cm(1,6,1)=2*gm(1,1)*gm(1,2)*dgm(1,1) 217 cm(1,1,2)=1.5d0*gm(1,2)**2*dgm(1,1)+4*gm(1,1)*gm(1,2)*dgm(1,2)& 218 & +gm(1,1)*(-0.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 219 cm(1,2,2)=gm(2,2)**2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)& 220 & *(4*gm(1,2)*dgm(1,2)-0.5d0*gm(1,1)*dgm(2,2)) 221 cm(1,3,2)=1.5d0*gm(2,3)**2*dgm(1,1)-0.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 222 & +6*gm(1,3)*gm(2,3)*dgm(1,2)-2*gm(1,2)*gm(3,3)*dgm(1,2)+1.5d0*gm(1,3)& 223 & **2*dgm(2,2)-0.5d0*gm(1,1)*gm(3,3)*dgm(2,2) 224 cm(1,4,2)=gm(2,2)*(2*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))-gm(1,1)& 225 & *gm(2,3)*dgm(2,2)+gm(1,2)*(2*gm(2,3)*dgm(1,2)+3*gm(1,3)*dgm(2,2)) 226 cm(1,5,2)=gm(2,3)*(3*gm(1,2)*dgm(1,1)+6*gm(1,1)*dgm(1,2))+gm(1,3)& 227 & *(-gm(2,2)*dgm(1,1)+2*(gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2))) 228 cm(1,6,2)=2*gm(1,2)**2*dgm(1,2)+6*gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,2)& 229 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 230 cm(1,1,3)=1.5d0*gm(1,3)**2*dgm(1,1)+4*gm(1,1)*gm(1,3)*dgm(1,3)& 231 & +gm(1,1)*(-0.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 232 cm(1,2,3)=1.5d0*gm(2,3)**2*dgm(1,1)+6*gm(1,2)*gm(2,3)*dgm(1,3)& 233 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(2,2)*(-0.5d0*gm(3,3)*dgm(1,1)-2*gm(1,3)& 234 & *dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 235 cm(1,3,3)=gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 236 & *(4*gm(1,3)*dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 237 cm(1,4,3)=gm(2,3)*(2*gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3)-gm(1,1)& 238 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 239 cm(1,5,3)=2*gm(1,3)**2*dgm(1,3)+6*gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,3)& 240 & *(gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 241 cm(1,6,3)=6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 242 & +2*gm(1,2)*dgm(1,3))+gm(1,2)*(-gm(3,3)*dgm(1,1)+2*gm(1,1)*dgm(3,3)) 243 cm(1,1,4)=gm(1,2)*(3*gm(1,3)*dgm(1,1)+4*gm(1,1)*dgm(1,3))+gm(1,1)& 244 & *(-gm(2,3)*dgm(1,1)+4*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3)) 245 cm(1,2,4)=gm(2,2)*(2*gm(2,3)*dgm(1,1)-2*gm(1,3)*dgm(1,2)+4*gm(1,2)& 246 & *dgm(1,3)-gm(1,1)*dgm(2,3))+gm(1,2)*(6*gm(2,3)*dgm(1,2)+3*gm(1,2)& 247 & *dgm(2,3)) 248 cm(1,3,4)=4*gm(1,3)*gm(3,3)*dgm(1,2)+gm(2,3)*(2*gm(3,3)*dgm(1,1)& 249 & +6*gm(1,3)*dgm(1,3))+3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-2*gm(1,2)& 250 & *dgm(1,3)-gm(1,1)*dgm(2,3)) 251 cm(1,4,4)=gm(2,3)**2*dgm(1,1)+gm(2,2)*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)& 252 & *dgm(1,3))+gm(2,3)*(2*gm(1,3)*dgm(1,2)+2*gm(1,2)*dgm(1,3)-2*gm(1,1)& 253 & *dgm(2,3))+6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 254 cm(1,5,4)=3*gm(1,2)*gm(3,3)*dgm(1,1)+2*gm(1,3)**2*dgm(1,2)+6*gm(1,1)& 255 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(1*gm(2,3)*dgm(1,1)& 256 & +2*gm(1,2)*dgm(1,3)+4*gm(1,1)*dgm(2,3)) 257 cm(1,6,4)=gm(1,3)*(3*gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2))+2*gm(1,2)& 258 & **2*dgm(1,3)+6*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 259 & *(1*gm(2,3)*dgm(1,1)+4*gm(1,1)*dgm(2,3)) 260 cm(1,1,5)=2*gm(1,1)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3)) 261 cm(1,2,5)=-gm(1,3)*gm(2,2)*dgm(1,1)+3*gm(1,2)*gm(2,3)*dgm(1,1)& 262 & +3*gm(1,2)**2*dgm(1,3)-gm(1,1)*gm(2,2)*dgm(1,3) 263 cm(1,3,5)=2*gm(1,3)*gm(3,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,3)-gm(1,1)& 264 & *gm(3,3)*dgm(1,3) 265 cm(1,4,5)=3*gm(1,2)*gm(3,3)*dgm(1,1)-2*gm(1,1)*gm(2,3)*dgm(1,3)& 266 & +gm(1,3)*(1*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)) 267 cm(1,5,5)=gm(1,3)**2*dgm(1,1)+3*gm(1,1)*gm(3,3)*dgm(1,1)+4*gm(1,1)& 268 & *gm(1,3)*dgm(1,3) 269 cm(1,6,5)=3*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(1*gm(1,3)*dgm(1,1)& 270 & +4*gm(1,1)*dgm(1,3)) 271 cm(1,1,6)=2*gm(1,1)*(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 272 cm(1,2,6)=2*gm(1,2)*gm(2,2)*dgm(1,1)+3*gm(1,2)**2*dgm(1,2)-gm(1,1)& 273 & *gm(2,2)*dgm(1,2) 274 cm(1,3,6)=3*gm(1,3)*gm(2,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,2)-gm(3,3)& 275 & *(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 276 cm(1,4,6)=gm(2,3)*(1*gm(1,2)*dgm(1,1)-2*gm(1,1)*dgm(1,2))+gm(1,3)& 277 & *(3*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)) 278 cm(1,5,6)=gm(1,2)*gm(1,3)*dgm(1,1)+gm(1,1)*(3*gm(2,3)*dgm(1,1)& 279 & +4*gm(1,3)*dgm(1,2)) 280 cm(1,6,6)=gm(1,2)**2*dgm(1,1)+3*gm(1,1)*gm(2,2)*dgm(1,1)+4*gm(1,1)& 281 & *gm(1,2)*dgm(1,2) 282 cm(1,1,7)=3*gm(1,2)**2*dgm(1,2)-gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,1)& 283 & *gm(1,2)*dgm(2,2) 284 cm(1,2,7)=2*gm(2,2)*(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 285 cm(1,3,7)=3*gm(2,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(2,2)-gm(3,3)& 286 & *(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 287 cm(1,4,7)=gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)*(4*gm(2,3)*dgm(1,2)& 288 & +3*gm(1,3)*dgm(2,2)) 289 cm(1,5,7)=gm(2,3)*(6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,3)& 290 & *(-2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 291 cm(1,6,7)=4*gm(1,2)*gm(2,2)*dgm(1,2)+gm(1,2)**2*dgm(2,2)+3*gm(1,1)& 292 & *gm(2,2)*dgm(2,2) 293 cm(1,1,8)=3*gm(1,3)**2*dgm(1,2)+gm(1,3)*(6*gm(1,2)*dgm(1,3)+4*gm(1,1)& 294 & *dgm(2,3))+gm(1,1)*(-gm(3,3)*dgm(1,2)-2*gm(2,3)*dgm(1,3)+2*gm(1,2)& 295 & *dgm(3,3)) 296 cm(1,2,8)=3*gm(2,3)**2*dgm(1,2)+gm(2,3)*(4*gm(2,2)*dgm(1,3)+6*gm(1,2)& 297 & *dgm(2,3))+gm(2,2)*(-gm(3,3)*dgm(1,2)-2*gm(1,3)*dgm(2,3)+2*gm(1,2)& 298 & *dgm(3,3)) 299 cm(1,3,8)=2*gm(3,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(3,3)+gm(3,3)& 300 & *(4*gm(2,3)*dgm(1,3)+4*gm(1,3)*dgm(2,3)-gm(1,2)*dgm(3,3)) 301 cm(1,4,8)=2*gm(2,3)**2*dgm(1,3)+6*gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,3)& 302 & *(4*gm(3,3)*dgm(1,2)+2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3))+gm(2,2)& 303 & *(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 304 cm(1,5,8)=6*gm(1,2)*gm(3,3)*dgm(1,3)+2*gm(1,3)**2*dgm(2,3)+gm(1,3)& 305 & *(4*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3))+gm(1,1)& 306 & *(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 307 cm(1,6,8)=gm(1,2)*(-2*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3))+gm(1,3)& 308 & *(6*gm(2,3)*dgm(1,2)+6*gm(2,2)*dgm(1,3)+2*gm(1,2)*dgm(2,3))+gm(1,2)& 309 & **2*dgm(3,3)+gm(1,1)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3)) 310 cm(1,1,9)=3*gm(1,2)**2*dgm(1,3)+gm(1,1)*(-2*gm(2,3)*dgm(1,2)-gm(2,2)& 311 & *dgm(1,3)+2*gm(1,3)*dgm(2,2))+gm(1,2)*(6*gm(1,3)*dgm(1,2)+4*gm(1,1)& 312 & *dgm(2,3)) 313 cm(1,2,9)=2*gm(2,2)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)& 314 & *(4*gm(2,3)*dgm(1,2)-gm(1,3)*dgm(2,2)+4*gm(1,2)*dgm(2,3)) 315 cm(1,3,9)=3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-gm(2,2)*dgm(1,3)+2*gm(1,3)& 316 & *dgm(2,2)-2*gm(1,2)*dgm(2,3))+gm(2,3)*(4*gm(3,3)*dgm(1,2)+6*gm(1,3)& 317 & *dgm(2,3)) 318 cm(1,4,9)=2*gm(2,3)**2*dgm(1,2)+3*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)& 319 & *(4*gm(2,2)*dgm(1,3)+gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3))+6*gm(2,2)& 320 & *(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 321 cm(1,5,9)=6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)& 322 & **2*dgm(2,2)+gm(1,3)*(2*gm(2,3)*dgm(1,2)-2*gm(2,2)*dgm(1,3)+2*gm(1,2)& 323 & *dgm(2,3))+gm(1,1)*(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 324 cm(1,6,9)=gm(1,2)*(2*gm(2,3)*dgm(1,2)+4*gm(2,2)*dgm(1,3))+gm(1,3)& 325 & *(6*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2))+2*gm(1,2)**2*dgm(2,3)& 326 & +gm(1,1)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3)) 327 cm(1,1,10)=3*gm(1,3)**2*dgm(1,3)-gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,1)& 328 & *gm(1,3)*dgm(3,3) 329 cm(1,2,10)=3*gm(2,3)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(3,3)-gm(2,2)& 330 & *(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 331 cm(1,3,10)=2*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 332 cm(1,4,10)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(4*gm(3,3)*dgm(1,3)& 333 & +gm(1,3)*dgm(3,3)) 334 cm(1,5,10)=4*gm(1,3)*gm(3,3)*dgm(1,3)+gm(1,3)**2*dgm(3,3)+3*gm(1,1)& 335 & *gm(3,3)*dgm(3,3) 336 cm(1,6,10)=-2*gm(1,2)*gm(3,3)*dgm(1,3)+3*gm(1,1)*gm(2,3)*dgm(3,3)& 337 & +gm(1,3)*(6*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3)) 338 cm(1,1,11)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(2,2))/4.d0 339 cm(1,2,11)=gm(2,2)**2*dgm(2,2) 340 cm(1,3,11)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(2,2))/4.d0 341 cm(1,4,11)=2*gm(2,2)*gm(2,3)*dgm(2,2) 342 cm(1,5,11)=((-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm(2,2))/2.d0 343 cm(1,6,11)=2*gm(1,2)*gm(2,2)*dgm(2,2) 344 cm(1,1,12)=1.5d0*gm(1,3)**2*dgm(2,2)+6*gm(1,2)*gm(1,3)*dgm(2,3)& 345 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(1,1)*(-0.5d0*gm(3,3)*dgm(2,2)-2*gm(2,3)& 346 & *dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 347 cm(1,2,12)=1.5d0*gm(2,3)**2*dgm(2,2)+4*gm(2,2)*gm(2,3)*dgm(2,3)& 348 & +gm(2,2)*(-0.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 349 cm(1,3,12)=gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 350 & *(4*gm(2,3)*dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 351 cm(1,4,12)=2*gm(2,3)**2*dgm(2,3)+6*gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,3)& 352 & *(gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 353 cm(1,5,12)=gm(1,3)*(2*gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3)-gm(2,2)& 354 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 355 cm(1,6,12)=gm(1,3)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3))+gm(1,2)& 356 & *(-gm(3,3)*dgm(2,2)+2*(gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3))) 357 cm(1,1,13)=3*gm(1,2)*gm(1,3)*dgm(2,2)+3*gm(1,2)**2*dgm(2,3)-gm(1,1)& 358 & *(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 359 cm(1,2,13)=2*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 360 cm(1,3,13)=2*gm(2,3)*gm(3,3)*dgm(2,2)+3*gm(2,3)**2*dgm(2,3)-gm(2,2)& 361 & *gm(3,3)*dgm(2,3) 362 cm(1,4,13)=gm(2,3)**2*dgm(2,2)+3*gm(2,2)*gm(3,3)*dgm(2,2)+4*gm(2,2)& 363 & *gm(2,3)*dgm(2,3) 364 cm(1,5,13)=gm(1,3)*(1*gm(2,3)*dgm(2,2)-2*gm(2,2)*dgm(2,3))+gm(1,2)& 365 & *(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 366 cm(1,6,13)=3*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(1*gm(2,3)*dgm(2,2)& 367 & +4*gm(2,2)*dgm(2,3)) 368 cm(1,1,14)=3*gm(1,3)**2*dgm(2,3)+3*gm(1,2)*gm(1,3)*dgm(3,3)-gm(1,1)& 369 & *(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 370 cm(1,2,14)=3*gm(2,3)**2*dgm(2,3)-gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,2)& 371 & *gm(2,3)*dgm(3,3) 372 cm(1,3,14)=2*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 373 cm(1,4,14)=4*gm(2,3)*gm(3,3)*dgm(2,3)+gm(2,3)**2*dgm(3,3)+3*gm(2,2)& 374 & *gm(3,3)*dgm(3,3) 375 cm(1,5,14)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(4*gm(3,3)*dgm(2,3)& 376 & +gm(2,3)*dgm(3,3)) 377 cm(1,6,14)=gm(1,3)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3))+gm(1,2)& 378 & *(-2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 379 cm(1,1,15)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(3,3))/4.d0 380 cm(1,2,15)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(3,3))/4.d0 381 cm(1,3,15)=gm(3,3)**2*dgm(3,3) 382 cm(1,4,15)=2*gm(2,3)*gm(3,3)*dgm(3,3) 383 cm(1,5,15)=2*gm(1,3)*gm(3,3)*dgm(3,3) 384 cm(1,6,15)=((6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm(3,3))/2.d0 385 cm(2,1,2)=2*gm(1,1)*(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 386 cm(2,2,2)=2*gm(1,2)*gm(2,2)*dgm(1,1)+3*gm(1,2)**2*dgm(1,2)-gm(1,1)& 387 & *gm(2,2)*dgm(1,2) 388 cm(2,3,2)=3*gm(1,3)*gm(2,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,2)-gm(3,3)& 389 & *(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 390 cm(2,4,2)=gm(2,3)*(1*gm(1,2)*dgm(1,1)-2*gm(1,1)*dgm(1,2))+gm(1,3)& 391 & *(3*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)) 392 cm(2,5,2)=gm(1,2)*gm(1,3)*dgm(1,1)+gm(1,1)*(3*gm(2,3)*dgm(1,1)& 393 & +4*gm(1,3)*dgm(1,2)) 394 cm(2,6,2)=gm(1,2)**2*dgm(1,1)+3*gm(1,1)*gm(2,2)*dgm(1,1)+4*gm(1,1)& 395 & *gm(1,2)*dgm(1,2) 396 cm(2,1,4)=2*gm(1,1)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3)) 397 cm(2,2,4)=-gm(1,3)*gm(2,2)*dgm(1,1)+3*gm(1,2)*gm(2,3)*dgm(1,1)& 398 & +3*gm(1,2)**2*dgm(1,3)-gm(1,1)*gm(2,2)*dgm(1,3) 399 cm(2,3,4)=2*gm(1,3)*gm(3,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,3)-gm(1,1)& 400 & *gm(3,3)*dgm(1,3) 401 cm(2,4,4)=3*gm(1,2)*gm(3,3)*dgm(1,1)-2*gm(1,1)*gm(2,3)*dgm(1,3)& 402 & +gm(1,3)*(1*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)) 403 cm(2,5,4)=gm(1,3)**2*dgm(1,1)+3*gm(1,1)*gm(3,3)*dgm(1,1)+4*gm(1,1)& 404 & *gm(1,3)*dgm(1,3) 405 cm(2,6,4)=3*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(1*gm(1,3)*dgm(1,1)& 406 & +4*gm(1,1)*dgm(1,3)) 407 cm(2,1,6)=gm(1,1)**2*dgm(1,1) 408 cm(2,2,6)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(1,1))/4.d0 409 cm(2,3,6)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(1,1))/4.d0 410 cm(2,4,6)=((6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm(1,1))/2.d0 411 cm(2,5,6)=2*gm(1,1)*gm(1,3)*dgm(1,1) 412 cm(2,6,6)=2*gm(1,1)*gm(1,2)*dgm(1,1) 413 cm(2,1,7)=1.5d0*gm(1,2)**2*dgm(1,1)+4*gm(1,1)*gm(1,2)*dgm(1,2)& 414 & +gm(1,1)*(-0.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 415 cm(2,2,7)=gm(2,2)**2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)& 416 & *(4*gm(1,2)*dgm(1,2)-0.5d0*gm(1,1)*dgm(2,2)) 417 cm(2,3,7)=1.5d0*gm(2,3)**2*dgm(1,1)-0.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 418 & +6*gm(1,3)*gm(2,3)*dgm(1,2)-2*gm(1,2)*gm(3,3)*dgm(1,2)+1.5d0*gm(1,3)& 419 & **2*dgm(2,2)-0.5d0*gm(1,1)*gm(3,3)*dgm(2,2) 420 cm(2,4,7)=gm(2,2)*(2*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))-gm(1,1)& 421 & *gm(2,3)*dgm(2,2)+gm(1,2)*(2*gm(2,3)*dgm(1,2)+3*gm(1,3)*dgm(2,2)) 422 cm(2,5,7)=gm(2,3)*(3*gm(1,2)*dgm(1,1)+6*gm(1,1)*dgm(1,2))+gm(1,3)& 423 & *(-gm(2,2)*dgm(1,1)+2*(gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2))) 424 cm(2,6,7)=2*gm(1,2)**2*dgm(1,2)+6*gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,2)& 425 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 426 cm(2,1,8)=1.5d0*gm(1,3)**2*dgm(1,1)+4*gm(1,1)*gm(1,3)*dgm(1,3)& 427 & +gm(1,1)*(-0.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 428 cm(2,2,8)=1.5d0*gm(2,3)**2*dgm(1,1)+6*gm(1,2)*gm(2,3)*dgm(1,3)& 429 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(2,2)*(-0.5d0*gm(3,3)*dgm(1,1)-2*gm(1,3)& 430 & *dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 431 cm(2,3,8)=gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 432 & *(4*gm(1,3)*dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 433 cm(2,4,8)=gm(2,3)*(2*gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3)-gm(1,1)& 434 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 435 cm(2,5,8)=2*gm(1,3)**2*dgm(1,3)+6*gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,3)& 436 & *(gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 437 cm(2,6,8)=6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 438 & +2*gm(1,2)*dgm(1,3))+gm(1,2)*(-gm(3,3)*dgm(1,1)+2*gm(1,1)*dgm(3,3)) 439 cm(2,1,9)=gm(1,2)*(3*gm(1,3)*dgm(1,1)+4*gm(1,1)*dgm(1,3))+gm(1,1)& 440 & *(-gm(2,3)*dgm(1,1)+4*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3)) 441 cm(2,2,9)=gm(2,2)*(2*gm(2,3)*dgm(1,1)-2*gm(1,3)*dgm(1,2)+4*gm(1,2)& 442 & *dgm(1,3)-gm(1,1)*dgm(2,3))+gm(1,2)*(6*gm(2,3)*dgm(1,2)+3*gm(1,2)& 443 & *dgm(2,3)) 444 cm(2,3,9)=4*gm(1,3)*gm(3,3)*dgm(1,2)+gm(2,3)*(2*gm(3,3)*dgm(1,1)& 445 & +6*gm(1,3)*dgm(1,3))+3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-2*gm(1,2)& 446 & *dgm(1,3)-gm(1,1)*dgm(2,3)) 447 cm(2,4,9)=gm(2,3)**2*dgm(1,1)+gm(2,2)*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)& 448 & *dgm(1,3))+gm(2,3)*(2*gm(1,3)*dgm(1,2)+2*gm(1,2)*dgm(1,3)-2*gm(1,1)& 449 & *dgm(2,3))+6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 450 cm(2,5,9)=3*gm(1,2)*gm(3,3)*dgm(1,1)+2*gm(1,3)**2*dgm(1,2)+6*gm(1,1)& 451 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(1*gm(2,3)*dgm(1,1)& 452 & +2*gm(1,2)*dgm(1,3)+4*gm(1,1)*dgm(2,3)) 453 cm(2,6,9)=gm(1,3)*(3*gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2))+2*gm(1,2)& 454 & **2*dgm(1,3)+6*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 455 & *(1*gm(2,3)*dgm(1,1)+4*gm(1,1)*dgm(2,3)) 456 cm(2,1,11)=3*gm(1,2)**2*dgm(1,2)-gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,1)& 457 & *gm(1,2)*dgm(2,2) 458 cm(2,2,11)=2*gm(2,2)*(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 459 cm(2,3,11)=3*gm(2,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(2,2)-gm(3,3)& 460 & *(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 461 cm(2,4,11)=gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)*(4*gm(2,3)*dgm(1,2)& 462 & +3*gm(1,3)*dgm(2,2)) 463 cm(2,5,11)=gm(2,3)*(6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,3)& 464 & *(-2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 465 cm(2,6,11)=4*gm(1,2)*gm(2,2)*dgm(1,2)+gm(1,2)**2*dgm(2,2)+3*gm(1,1)& 466 & *gm(2,2)*dgm(2,2) 467 cm(2,1,12)=3*gm(1,3)**2*dgm(1,2)+gm(1,3)*(6*gm(1,2)*dgm(1,3)+4*gm(1,1)& 468 & *dgm(2,3))+gm(1,1)*(-gm(3,3)*dgm(1,2)-2*gm(2,3)*dgm(1,3)+2*gm(1,2)& 469 & *dgm(3,3)) 470 cm(2,2,12)=3*gm(2,3)**2*dgm(1,2)+gm(2,3)*(4*gm(2,2)*dgm(1,3)+6*gm(1,2)& 471 & *dgm(2,3))+gm(2,2)*(-gm(3,3)*dgm(1,2)-2*gm(1,3)*dgm(2,3)+2*gm(1,2)& 472 & *dgm(3,3)) 473 cm(2,3,12)=2*gm(3,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(3,3)+gm(3,3)& 474 & *(4*gm(2,3)*dgm(1,3)+4*gm(1,3)*dgm(2,3)-gm(1,2)*dgm(3,3)) 475 cm(2,4,12)=2*gm(2,3)**2*dgm(1,3)+6*gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,3)& 476 & *(4*gm(3,3)*dgm(1,2)+2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3))+gm(2,2)& 477 & *(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 478 cm(2,5,12)=6*gm(1,2)*gm(3,3)*dgm(1,3)+2*gm(1,3)**2*dgm(2,3)+gm(1,3)& 479 & *(4*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3))+gm(1,1)& 480 & *(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 481 cm(2,6,12)=gm(1,2)*(-2*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3))+gm(1,3)& 482 & *(6*gm(2,3)*dgm(1,2)+6*gm(2,2)*dgm(1,3)+2*gm(1,2)*dgm(2,3))+gm(1,2)& 483 & **2*dgm(3,3)+gm(1,1)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3)) 484 cm(2,1,13)=3*gm(1,2)**2*dgm(1,3)+gm(1,1)*(-2*gm(2,3)*dgm(1,2)& 485 & -gm(2,2)*dgm(1,3)+2*gm(1,3)*dgm(2,2))+gm(1,2)*(6*gm(1,3)*dgm(1,2)& 486 & +4*gm(1,1)*dgm(2,3)) 487 cm(2,2,13)=2*gm(2,2)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)& 488 & *(4*gm(2,3)*dgm(1,2)-gm(1,3)*dgm(2,2)+4*gm(1,2)*dgm(2,3)) 489 cm(2,3,13)=3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-gm(2,2)*dgm(1,3)+2*gm(1,3)& 490 & *dgm(2,2)-2*gm(1,2)*dgm(2,3))+gm(2,3)*(4*gm(3,3)*dgm(1,2)+6*gm(1,3)& 491 & *dgm(2,3)) 492 cm(2,4,13)=2*gm(2,3)**2*dgm(1,2)+3*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)& 493 & *(4*gm(2,2)*dgm(1,3)+gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3))+6*gm(2,2)& 494 & *(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 495 cm(2,5,13)=6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)& 496 & **2*dgm(2,2)+gm(1,3)*(2*gm(2,3)*dgm(1,2)-2*gm(2,2)*dgm(1,3)+2*gm(1,2)& 497 & *dgm(2,3))+gm(1,1)*(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 498 cm(2,6,13)=gm(1,2)*(2*gm(2,3)*dgm(1,2)+4*gm(2,2)*dgm(1,3))+gm(1,3)& 499 & *(6*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2))+2*gm(1,2)**2*dgm(2,3)& 500 & +gm(1,1)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3)) 501 cm(2,1,14)=3*gm(1,3)**2*dgm(1,3)-gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,1)& 502 & *gm(1,3)*dgm(3,3) 503 cm(2,2,14)=3*gm(2,3)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(3,3)-gm(2,2)& 504 & *(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 505 cm(2,3,14)=2*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 506 cm(2,4,14)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(4*gm(3,3)*dgm(1,3)& 507 & +gm(1,3)*dgm(3,3)) 508 cm(2,5,14)=4*gm(1,3)*gm(3,3)*dgm(1,3)+gm(1,3)**2*dgm(3,3)+3*gm(1,1)& 509 & *gm(3,3)*dgm(3,3) 510 cm(2,6,14)=-2*gm(1,2)*gm(3,3)*dgm(1,3)+3*gm(1,1)*gm(2,3)*dgm(3,3)& 511 & +gm(1,3)*(6*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3)) 512 cm(2,1,16)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(2,2))/4.d0 513 cm(2,2,16)=gm(2,2)**2*dgm(2,2) 514 cm(2,3,16)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(2,2))/4.d0 515 cm(2,4,16)=2*gm(2,2)*gm(2,3)*dgm(2,2) 516 cm(2,5,16)=((-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm(2,2))/2.d0 517 cm(2,6,16)=2*gm(1,2)*gm(2,2)*dgm(2,2) 518 cm(2,1,17)=1.5d0*gm(1,3)**2*dgm(2,2)+6*gm(1,2)*gm(1,3)*dgm(2,3)& 519 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(1,1)*(-0.5d0*gm(3,3)*dgm(2,2)-2*gm(2,3)& 520 & *dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 521 cm(2,2,17)=1.5d0*gm(2,3)**2*dgm(2,2)+4*gm(2,2)*gm(2,3)*dgm(2,3)& 522 & +gm(2,2)*(-0.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 523 cm(2,3,17)=gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 524 & *(4*gm(2,3)*dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 525 cm(2,4,17)=2*gm(2,3)**2*dgm(2,3)+6*gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,3)& 526 & *(gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 527 cm(2,5,17)=gm(1,3)*(2*gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3)-gm(2,2)& 528 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 529 cm(2,6,17)=gm(1,3)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3))+gm(1,2)& 530 & *(-gm(3,3)*dgm(2,2)+2*(gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3))) 531 cm(2,1,18)=3*gm(1,2)*gm(1,3)*dgm(2,2)+3*gm(1,2)**2*dgm(2,3)-gm(1,1)& 532 & *(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 533 cm(2,2,18)=2*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 534 cm(2,3,18)=2*gm(2,3)*gm(3,3)*dgm(2,2)+3*gm(2,3)**2*dgm(2,3)-gm(2,2)& 535 & *gm(3,3)*dgm(2,3) 536 cm(2,4,18)=gm(2,3)**2*dgm(2,2)+3*gm(2,2)*gm(3,3)*dgm(2,2)+4*gm(2,2)& 537 & *gm(2,3)*dgm(2,3) 538 cm(2,5,18)=gm(1,3)*(1*gm(2,3)*dgm(2,2)-2*gm(2,2)*dgm(2,3))+gm(1,2)& 539 & *(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 540 cm(2,6,18)=3*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(1*gm(2,3)*dgm(2,2)& 541 & +4*gm(2,2)*dgm(2,3)) 542 cm(2,1,19)=3*gm(1,3)**2*dgm(2,3)+3*gm(1,2)*gm(1,3)*dgm(3,3)-gm(1,1)& 543 & *(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 544 cm(2,2,19)=3*gm(2,3)**2*dgm(2,3)-gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,2)& 545 & *gm(2,3)*dgm(3,3) 546 cm(2,3,19)=2*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 547 cm(2,4,19)=4*gm(2,3)*gm(3,3)*dgm(2,3)+gm(2,3)**2*dgm(3,3)+3*gm(2,2)& 548 & *gm(3,3)*dgm(3,3) 549 cm(2,5,19)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(4*gm(3,3)*dgm(2,3)& 550 & +gm(2,3)*dgm(3,3)) 551 cm(2,6,19)=gm(1,3)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3))+gm(1,2)& 552 & *(-2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 553 cm(2,1,20)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(3,3))/4.d0 554 cm(2,2,20)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(3,3))/4.d0 555 cm(2,3,20)=gm(3,3)**2*dgm(3,3) 556 cm(2,4,20)=2*gm(2,3)*gm(3,3)*dgm(3,3) 557 cm(2,5,20)=2*gm(1,3)*gm(3,3)*dgm(3,3) 558 cm(2,6,20)=((6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm(3,3))/2.d0 559 cm(3,1,3)=2*gm(1,1)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3)) 560 cm(3,2,3)=-gm(1,3)*gm(2,2)*dgm(1,1)+3*gm(1,2)*gm(2,3)*dgm(1,1)& 561 & +3*gm(1,2)**2*dgm(1,3)-gm(1,1)*gm(2,2)*dgm(1,3) 562 cm(3,3,3)=2*gm(1,3)*gm(3,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,3)-gm(1,1)& 563 & *gm(3,3)*dgm(1,3) 564 cm(3,4,3)=3*gm(1,2)*gm(3,3)*dgm(1,1)-2*gm(1,1)*gm(2,3)*dgm(1,3)& 565 & +gm(1,3)*(1*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)) 566 cm(3,5,3)=gm(1,3)**2*dgm(1,1)+3*gm(1,1)*gm(3,3)*dgm(1,1)+4*gm(1,1)& 567 & *gm(1,3)*dgm(1,3) 568 cm(3,6,3)=3*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(1*gm(1,3)*dgm(1,1)& 569 & +4*gm(1,1)*dgm(1,3)) 570 cm(3,1,4)=2*gm(1,1)*(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 571 cm(3,2,4)=2*gm(1,2)*gm(2,2)*dgm(1,1)+3*gm(1,2)**2*dgm(1,2)-gm(1,1)& 572 & *gm(2,2)*dgm(1,2) 573 cm(3,3,4)=3*gm(1,3)*gm(2,3)*dgm(1,1)+3*gm(1,3)**2*dgm(1,2)-gm(3,3)& 574 & *(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2)) 575 cm(3,4,4)=gm(2,3)*(1*gm(1,2)*dgm(1,1)-2*gm(1,1)*dgm(1,2))+gm(1,3)& 576 & *(3*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)) 577 cm(3,5,4)=gm(1,2)*gm(1,3)*dgm(1,1)+gm(1,1)*(3*gm(2,3)*dgm(1,1)& 578 & +4*gm(1,3)*dgm(1,2)) 579 cm(3,6,4)=gm(1,2)**2*dgm(1,1)+3*gm(1,1)*gm(2,2)*dgm(1,1)+4*gm(1,1)& 580 & *gm(1,2)*dgm(1,2) 581 cm(3,1,5)=gm(1,1)**2*dgm(1,1) 582 cm(3,2,5)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(1,1))/4.d0 583 cm(3,3,5)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(1,1))/4.d0 584 cm(3,4,5)=((6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm(1,1))/2.d0 585 cm(3,5,5)=2*gm(1,1)*gm(1,3)*dgm(1,1) 586 cm(3,6,5)=2*gm(1,1)*gm(1,2)*dgm(1,1) 587 cm(3,1,8)=gm(1,2)*(3*gm(1,3)*dgm(1,1)+4*gm(1,1)*dgm(1,3))+gm(1,1)& 588 & *(-gm(2,3)*dgm(1,1)+4*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3)) 589 cm(3,2,8)=gm(2,2)*(2*gm(2,3)*dgm(1,1)-2*gm(1,3)*dgm(1,2)+4*gm(1,2)& 590 & *dgm(1,3)-gm(1,1)*dgm(2,3))+gm(1,2)*(6*gm(2,3)*dgm(1,2)+3*gm(1,2)& 591 & *dgm(2,3)) 592 cm(3,3,8)=4*gm(1,3)*gm(3,3)*dgm(1,2)+gm(2,3)*(2*gm(3,3)*dgm(1,1)& 593 & +6*gm(1,3)*dgm(1,3))+3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-2*gm(1,2)& 594 & *dgm(1,3)-gm(1,1)*dgm(2,3)) 595 cm(3,4,8)=gm(2,3)**2*dgm(1,1)+gm(2,2)*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)& 596 & *dgm(1,3))+gm(2,3)*(2*gm(1,3)*dgm(1,2)+2*gm(1,2)*dgm(1,3)-2*gm(1,1)& 597 & *dgm(2,3))+6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 598 cm(3,5,8)=3*gm(1,2)*gm(3,3)*dgm(1,1)+2*gm(1,3)**2*dgm(1,2)+6*gm(1,1)& 599 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(1*gm(2,3)*dgm(1,1)& 600 & +2*gm(1,2)*dgm(1,3)+4*gm(1,1)*dgm(2,3)) 601 cm(3,6,8)=gm(1,3)*(3*gm(2,2)*dgm(1,1)+2*gm(1,2)*dgm(1,2))+2*gm(1,2)& 602 & **2*dgm(1,3)+6*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 603 & *(1*gm(2,3)*dgm(1,1)+4*gm(1,1)*dgm(2,3)) 604 cm(3,1,9)=1.5d0*gm(1,2)**2*dgm(1,1)+4*gm(1,1)*gm(1,2)*dgm(1,2)& 605 & +gm(1,1)*(-0.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 606 cm(3,2,9)=gm(2,2)**2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)& 607 & *(4*gm(1,2)*dgm(1,2)-0.5d0*gm(1,1)*dgm(2,2)) 608 cm(3,3,9)=1.5d0*gm(2,3)**2*dgm(1,1)-0.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 609 & +6*gm(1,3)*gm(2,3)*dgm(1,2)-2*gm(1,2)*gm(3,3)*dgm(1,2)+1.5d0*gm(1,3)& 610 & **2*dgm(2,2)-0.5d0*gm(1,1)*gm(3,3)*dgm(2,2) 611 cm(3,4,9)=gm(2,2)*(2*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))-gm(1,1)& 612 & *gm(2,3)*dgm(2,2)+gm(1,2)*(2*gm(2,3)*dgm(1,2)+3*gm(1,3)*dgm(2,2)) 613 cm(3,5,9)=gm(2,3)*(3*gm(1,2)*dgm(1,1)+6*gm(1,1)*dgm(1,2))+gm(1,3)& 614 & *(-gm(2,2)*dgm(1,1)+2*(gm(1,2)*dgm(1,2)+gm(1,1)*dgm(2,2))) 615 cm(3,6,9)=2*gm(1,2)**2*dgm(1,2)+6*gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,2)& 616 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2)) 617 cm(3,1,10)=1.5d0*gm(1,3)**2*dgm(1,1)+4*gm(1,1)*gm(1,3)*dgm(1,3)& 618 & +gm(1,1)*(-0.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 619 cm(3,2,10)=1.5d0*gm(2,3)**2*dgm(1,1)+6*gm(1,2)*gm(2,3)*dgm(1,3)& 620 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(2,2)*(-0.5d0*gm(3,3)*dgm(1,1)-2*gm(1,3)& 621 & *dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 622 cm(3,3,10)=gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 623 & *(4*gm(1,3)*dgm(1,3)-0.5d0*gm(1,1)*dgm(3,3)) 624 cm(3,4,10)=gm(2,3)*(2*gm(3,3)*dgm(1,1)+2*gm(1,3)*dgm(1,3)-gm(1,1)& 625 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 626 cm(3,5,10)=2*gm(1,3)**2*dgm(1,3)+6*gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,3)& 627 & *(gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3)) 628 cm(3,6,10)=6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 629 & +2*gm(1,2)*dgm(1,3))+gm(1,2)*(-gm(3,3)*dgm(1,1)+2*gm(1,1)*dgm(3,3)) 630 cm(3,1,12)=3*gm(1,2)**2*dgm(1,3)+gm(1,1)*(-2*gm(2,3)*dgm(1,2)& 631 & -gm(2,2)*dgm(1,3)+2*gm(1,3)*dgm(2,2))+gm(1,2)*(6*gm(1,3)*dgm(1,2)& 632 & +4*gm(1,1)*dgm(2,3)) 633 cm(3,2,12)=2*gm(2,2)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)& 634 & *(4*gm(2,3)*dgm(1,2)-gm(1,3)*dgm(2,2)+4*gm(1,2)*dgm(2,3)) 635 cm(3,3,12)=3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-gm(2,2)*dgm(1,3)+2*gm(1,3)& 636 & *dgm(2,2)-2*gm(1,2)*dgm(2,3))+gm(2,3)*(4*gm(3,3)*dgm(1,2)+6*gm(1,3)& 637 & *dgm(2,3)) 638 cm(3,4,12)=2*gm(2,3)**2*dgm(1,2)+3*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)& 639 & *(4*gm(2,2)*dgm(1,3)+gm(1,3)*dgm(2,2)+2*gm(1,2)*dgm(2,3))+6*gm(2,2)& 640 & *(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3)) 641 cm(3,5,12)=6*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)& 642 & **2*dgm(2,2)+gm(1,3)*(2*gm(2,3)*dgm(1,2)-2*gm(2,2)*dgm(1,3)+2*gm(1,2)& 643 & *dgm(2,3))+gm(1,1)*(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 644 cm(3,6,12)=gm(1,2)*(2*gm(2,3)*dgm(1,2)+4*gm(2,2)*dgm(1,3))+gm(1,3)& 645 & *(6*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2))+2*gm(1,2)**2*dgm(2,3)& 646 & +gm(1,1)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3)) 647 cm(3,1,13)=3*gm(1,2)**2*dgm(1,2)-gm(1,1)*gm(2,2)*dgm(1,2)+2*gm(1,1)& 648 & *gm(1,2)*dgm(2,2) 649 cm(3,2,13)=2*gm(2,2)*(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 650 cm(3,3,13)=3*gm(2,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(2,2)-gm(3,3)& 651 & *(gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 652 cm(3,4,13)=gm(1,2)*gm(2,3)*dgm(2,2)+gm(2,2)*(4*gm(2,3)*dgm(1,2)& 653 & +3*gm(1,3)*dgm(2,2)) 654 cm(3,5,13)=gm(2,3)*(6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,3)& 655 & *(-2*gm(2,2)*dgm(1,2)+gm(1,2)*dgm(2,2)) 656 cm(3,6,13)=4*gm(1,2)*gm(2,2)*dgm(1,2)+gm(1,2)**2*dgm(2,2)+3*gm(1,1)& 657 & *gm(2,2)*dgm(2,2) 658 cm(3,1,14)=3*gm(1,3)**2*dgm(1,2)+gm(1,3)*(6*gm(1,2)*dgm(1,3)+4*gm(1,1)& 659 & *dgm(2,3))+gm(1,1)*(-gm(3,3)*dgm(1,2)-2*gm(2,3)*dgm(1,3)+2*gm(1,2)& 660 & *dgm(3,3)) 661 cm(3,2,14)=3*gm(2,3)**2*dgm(1,2)+gm(2,3)*(4*gm(2,2)*dgm(1,3)+6*gm(1,2)& 662 & *dgm(2,3))+gm(2,2)*(-gm(3,3)*dgm(1,2)-2*gm(1,3)*dgm(2,3)+2*gm(1,2)& 663 & *dgm(3,3)) 664 cm(3,3,14)=2*gm(3,3)**2*dgm(1,2)+3*gm(1,3)*gm(2,3)*dgm(3,3)+gm(3,3)& 665 & *(4*gm(2,3)*dgm(1,3)+4*gm(1,3)*dgm(2,3)-gm(1,2)*dgm(3,3)) 666 cm(3,4,14)=2*gm(2,3)**2*dgm(1,3)+6*gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,3)& 667 & *(4*gm(3,3)*dgm(1,2)+2*gm(1,3)*dgm(2,3)+gm(1,2)*dgm(3,3))+gm(2,2)& 668 & *(6*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 669 cm(3,5,14)=6*gm(1,2)*gm(3,3)*dgm(1,3)+2*gm(1,3)**2*dgm(2,3)+gm(1,3)& 670 & *(4*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3))+gm(1,1)& 671 & *(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 672 cm(3,6,14)=gm(1,2)*(-2*gm(3,3)*dgm(1,2)+2*gm(2,3)*dgm(1,3))+gm(1,3)& 673 & *(6*gm(2,3)*dgm(1,2)+6*gm(2,2)*dgm(1,3)+2*gm(1,2)*dgm(2,3))+gm(1,2)& 674 & **2*dgm(3,3)+gm(1,1)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3)) 675 cm(3,1,15)=3*gm(1,3)**2*dgm(1,3)-gm(1,1)*gm(3,3)*dgm(1,3)+2*gm(1,1)& 676 & *gm(1,3)*dgm(3,3) 677 cm(3,2,15)=3*gm(2,3)**2*dgm(1,3)+3*gm(1,2)*gm(2,3)*dgm(3,3)-gm(2,2)& 678 & *(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 679 cm(3,3,15)=2*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3)) 680 cm(3,4,15)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(4*gm(3,3)*dgm(1,3)& 681 & +gm(1,3)*dgm(3,3)) 682 cm(3,5,15)=4*gm(1,3)*gm(3,3)*dgm(1,3)+gm(1,3)**2*dgm(3,3)+3*gm(1,1)& 683 & *gm(3,3)*dgm(3,3) 684 cm(3,6,15)=-2*gm(1,2)*gm(3,3)*dgm(1,3)+3*gm(1,1)*gm(2,3)*dgm(3,3)& 685 & +gm(1,3)*(6*gm(2,3)*dgm(1,3)+gm(1,2)*dgm(3,3)) 686 cm(3,1,17)=3*gm(1,2)*gm(1,3)*dgm(2,2)+3*gm(1,2)**2*dgm(2,3)-gm(1,1)& 687 & *(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 688 cm(3,2,17)=2*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3)) 689 cm(3,3,17)=2*gm(2,3)*gm(3,3)*dgm(2,2)+3*gm(2,3)**2*dgm(2,3)-gm(2,2)& 690 & *gm(3,3)*dgm(2,3) 691 cm(3,4,17)=gm(2,3)**2*dgm(2,2)+3*gm(2,2)*gm(3,3)*dgm(2,2)+4*gm(2,2)& 692 & *gm(2,3)*dgm(2,3) 693 cm(3,5,17)=gm(1,3)*(1*gm(2,3)*dgm(2,2)-2*gm(2,2)*dgm(2,3))+gm(1,2)& 694 & *(3*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3)) 695 cm(3,6,17)=3*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(1*gm(2,3)*dgm(2,2)& 696 & +4*gm(2,2)*dgm(2,3)) 697 cm(3,1,18)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm(2,2))/4.d0 698 cm(3,2,18)=gm(2,2)**2*dgm(2,2) 699 cm(3,3,18)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(2,2))/4.d0 700 cm(3,4,18)=2*gm(2,2)*gm(2,3)*dgm(2,2) 701 cm(3,5,18)=((-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm(2,2))/2.d0 702 cm(3,6,18)=2*gm(1,2)*gm(2,2)*dgm(2,2) 703 cm(3,1,19)=1.5d0*gm(1,3)**2*dgm(2,2)+6*gm(1,2)*gm(1,3)*dgm(2,3)& 704 & +1.5d0*gm(1,2)**2*dgm(3,3)+gm(1,1)*(-0.5d0*gm(3,3)*dgm(2,2)-2*gm(2,3)& 705 & *dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 706 cm(3,2,19)=1.5d0*gm(2,3)**2*dgm(2,2)+4*gm(2,2)*gm(2,3)*dgm(2,3)& 707 & +gm(2,2)*(-0.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 708 cm(3,3,19)=gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 709 & *(4*gm(2,3)*dgm(2,3)-0.5d0*gm(2,2)*dgm(3,3)) 710 cm(3,4,19)=2*gm(2,3)**2*dgm(2,3)+6*gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,3)& 711 & *(gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3)) 712 cm(3,5,19)=gm(1,3)*(2*gm(3,3)*dgm(2,2)+2*gm(2,3)*dgm(2,3)-gm(2,2)& 713 & *dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 714 cm(3,6,19)=gm(1,3)*(3*gm(2,3)*dgm(2,2)+6*gm(2,2)*dgm(2,3))+gm(1,2)& 715 & *(-gm(3,3)*dgm(2,2)+2*(gm(2,3)*dgm(2,3)+gm(2,2)*dgm(3,3))) 716 cm(3,1,20)=3*gm(1,3)**2*dgm(2,3)+3*gm(1,2)*gm(1,3)*dgm(3,3)-gm(1,1)& 717 & *(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 718 cm(3,2,20)=3*gm(2,3)**2*dgm(2,3)-gm(2,2)*gm(3,3)*dgm(2,3)+2*gm(2,2)& 719 & *gm(2,3)*dgm(3,3) 720 cm(3,3,20)=2*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 721 cm(3,4,20)=4*gm(2,3)*gm(3,3)*dgm(2,3)+gm(2,3)**2*dgm(3,3)+3*gm(2,2)& 722 & *gm(3,3)*dgm(3,3) 723 cm(3,5,20)=3*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(4*gm(3,3)*dgm(2,3)& 724 & +gm(2,3)*dgm(3,3)) 725 cm(3,6,20)=gm(1,3)*(6*gm(2,3)*dgm(2,3)+3*gm(2,2)*dgm(3,3))+gm(1,2)& 726 & *(-2*gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3)) 727 cm(3,1,21)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm(3,3))/4.d0 728 cm(3,2,21)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm(3,3))/4.d0 729 cm(3,3,21)=gm(3,3)**2*dgm(3,3) 730 cm(3,4,21)=2*gm(2,3)*gm(3,3)*dgm(3,3) 731 cm(3,5,21)=2*gm(1,3)*gm(3,3)*dgm(3,3) 732 cm(3,6,21)=((6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm(3,3))/2.d0 733 elseif(rank==3)then 734 cm(1,1,1)=gm(1,1)**3*dgm(1,1) 735 cm(1,2,1)=gm(1,1)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 736 cm(1,3,1)=gm(1,1)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 737 cm(1,4,1)=(gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(1,1))& 738 & /6.d0 739 cm(1,5,1)=3*gm(1,1)**2*gm(1,3)*dgm(1,1) 740 cm(1,6,1)=3*gm(1,1)**2*gm(1,2)*dgm(1,1) 741 cm(1,7,1)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 742 cm(1,8,1)=((-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 743 & *gm(3,3)))*dgm(1,1))/12.d0 744 cm(1,9,1)=((90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 745 & *gm(1,2)*gm(2,3))*dgm(1,1))/12.d0 746 cm(1,10,1)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 747 cm(1,1,2)=gm(1,1)*(4.5d0*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(1,2)& 748 & *dgm(1,2)+gm(1,1)*(-1.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))) 749 cm(1,2,2)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 750 & +gm(1,1)*gm(2,2)*(6*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*dgm(2,2))& 751 & +gm(1,2)**2*(3*gm(2,2)*dgm(1,1)+4.5d0*gm(1,1)*dgm(2,2)) 752 cm(1,3,2)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)*gm(2,3)*(9*gm(1,2)& 753 & *dgm(1,1)+24*gm(1,1)*dgm(1,2))+gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)& 754 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2))-1.5d0*gm(1,1)& 755 & **2*gm(3,3)*dgm(2,2)+gm(1,3)**2*(-3*gm(2,2)*dgm(1,1)+3*gm(1,2)& 756 & *dgm(1,2)+4.5d0*gm(1,1)*dgm(2,2)) 757 cm(1,4,2)=gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)& 758 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2))-3*gm(1,1)& 759 & *gm(2,3)*dgm(2,2))+gm(1,2)*(6*gm(1,1)*gm(2,3)*dgm(1,2)+gm(1,3)& 760 & *(3*gm(2,2)*dgm(1,1)+9*gm(1,1)*dgm(2,2))) 761 cm(1,5,2)=1.5d0*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(12*gm(2,3)& 762 & *dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,1)*gm(2,3)*dgm(1,2)& 763 & +gm(1,3)*(-4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 764 cm(1,6,2)=1.5d0*gm(1,2)**3*dgm(1,1)+6*gm(1,1)*gm(1,2)**2*dgm(1,2)& 765 & +12*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(7.5d0*gm(2,2)& 766 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 767 cm(1,7,2)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 768 & +2.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 769 & -1.5d0*gm(1,1)*dgm(2,2)) 770 cm(1,8,2)=(3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 771 & *gm(3,3)))*dgm(1,1)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 772 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 773 & *gm(3,3)))*dgm(1,2)+(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 774 & **2-18*gm(1,1)*gm(3,3)))*dgm(2,2))/12.d0 775 cm(1,9,2)=gm(2,3)*(3*gm(1,2)**2*dgm(1,2)-9*gm(1,1)*gm(2,2)*dgm(1,2)& 776 & +gm(1,2)*(3*gm(2,2)*dgm(1,1)-3*gm(1,1)*dgm(2,2)))+gm(1,3)*(6*gm(2,2)& 777 & **2*dgm(1,1)+7.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(24*gm(1,2)*dgm(1,2)& 778 & -1.5d0*gm(1,1)*dgm(2,2))) 779 cm(1,10,2)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 780 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,1)+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 781 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+(90*gm(1,3)& 782 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm(2,2))/36.d0 783 cm(1,1,3)=gm(1,1)*(4.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)& 784 & *dgm(1,3)+gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3))) 785 cm(1,2,3)=-3*gm(1,3)**2*gm(2,2)*dgm(1,1)-3*gm(1,2)**2*gm(3,3)& 786 & *dgm(1,1)+gm(1,3)*(9*gm(1,2)*gm(2,3)*dgm(1,1)+3*gm(1,2)**2*dgm(1,3)& 787 & -9*gm(1,1)*gm(2,2)*dgm(1,3))-1.5d0*gm(1,1)**2*gm(2,2)*dgm(3,3)& 788 & +gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 789 & +24*gm(1,2)*gm(2,3)*dgm(1,3)+4.5d0*gm(1,2)**2*dgm(3,3)) 790 cm(1,3,3)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 791 & +gm(1,1)*gm(3,3)*(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))& 792 & +gm(1,3)**2*(3*gm(3,3)*dgm(1,1)+4.5d0*gm(1,1)*dgm(3,3)) 793 cm(1,4,3)=gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3))+gm(1,1)& 794 & *(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(12*gm(3,3)*dgm(1,1)-3*gm(1,1)& 795 & *dgm(3,3)))+gm(1,3)*(6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)*(3*gm(3,3)& 796 & *dgm(1,1)+9*gm(1,1)*dgm(3,3))) 797 cm(1,5,3)=1.5d0*gm(1,3)**3*dgm(1,1)+6*gm(1,1)*gm(1,3)**2*dgm(1,3)& 798 & +12*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(7.5d0*gm(3,3)& 799 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 800 cm(1,6,3)=12*gm(1,1)*gm(2,3)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3))& 801 & +gm(1,2)*(1.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)*dgm(1,3)& 802 & +gm(1,1)*(-4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 803 cm(1,7,3)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 804 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,1)+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 805 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+(90*gm(1,2)& 806 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))/36.d0 807 cm(1,8,3)=gm(1,3)**2*(3*gm(2,3)*dgm(1,3)+7.5d0*gm(1,2)*dgm(3,3))& 808 & +gm(1,3)*(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(3*gm(3,3)*dgm(1,1)& 809 & -3*gm(1,1)*dgm(3,3)))+gm(3,3)*(-9*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 810 & *(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))) 811 cm(1,9,3)=(3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 812 & *gm(3,3)))*dgm(1,1)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 813 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 814 & *gm(3,3)))*dgm(1,3)+(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 815 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/12.d0 816 cm(1,10,3)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 817 & +2.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 818 & -1.5d0*gm(1,1)*dgm(3,3)) 819 cm(1,1,4)=gm(1,1)*(gm(1,2)*(9*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))& 820 & +gm(1,1)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3))) 821 cm(1,2,4)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(3*gm(1,3)*gm(2,2)*dgm(1,1)& 822 & +gm(1,1)*(24*gm(2,3)*dgm(1,2)+15*gm(2,2)*dgm(1,3)))+gm(1,1)*gm(2,2)& 823 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2)-3*gm(1,1)*dgm(2,3))& 824 & +gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2)+9*gm(1,1)& 825 & *dgm(2,3)) 826 cm(1,3,4)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)*(3*gm(1,2)*gm(3,3)*dgm(1,1)& 827 & +gm(1,1)*(15*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3)))+gm(1,1)*gm(3,3)& 828 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 829 & +gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3)+9*gm(1,1)& 830 & *dgm(2,3)) 831 cm(1,4,4)=9*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(9*gm(2,2)& 832 & *dgm(1,1)+6*gm(1,2)*dgm(1,2))+gm(1,1)*(9*gm(2,3)**2*dgm(1,1)& 833 & +15*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 834 & *gm(2,3)*dgm(1,3))-6*gm(1,1)**2*gm(2,3)*dgm(2,3)+gm(1,3)*(6*gm(1,2)& 835 & **2*dgm(1,3)+gm(1,1)*(6*gm(2,3)*dgm(1,2)+24*gm(2,2)*dgm(1,3))& 836 & +gm(1,2)*(-6*gm(2,3)*dgm(1,1)+18*gm(1,1)*dgm(2,3))) 837 cm(1,5,4)=gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)& 838 & +6*gm(1,1)*gm(1,3)*dgm(1,3))+gm(1,1)*(6*gm(1,3)**2*dgm(1,2)+12*gm(1,1)& 839 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 840 & +6*gm(1,1)*dgm(2,3))) 841 cm(1,6,4)=gm(1,2)**2*(3*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))+12*gm(1,1)& 842 & *(gm(1,3)*gm(2,2)*dgm(1,1)+gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)& 843 & *dgm(1,3)))+gm(1,1)*gm(1,2)*(3*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 844 & +gm(1,1)*dgm(2,3))) 845 cm(1,7,4)=gm(1,3)*gm(2,2)*(-3*gm(2,2)*dgm(1,1)-6*gm(1,2)*dgm(1,2))& 846 & -3*gm(1,1)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 847 & **2*(15*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3))+5*gm(1,2)**3*dgm(2,3)& 848 & +gm(1,2)*gm(2,2)*(9*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3)) 849 cm(1,8,4)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(-9*gm(2,3)*gm(3,3)& 850 & *dgm(1,2)-6*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))+gm(1,2)& 851 & *gm(3,3)*(3*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3))+gm(1,3)*(3*gm(2,3)& 852 & **2*dgm(1,1)+gm(3,3)*(12*gm(2,2)*dgm(1,1)+24*gm(1,2)*dgm(1,2))& 853 & +gm(2,3)*(18*gm(1,2)*dgm(1,3)-6*gm(1,1)*dgm(2,3)))+gm(1,3)**2*(3*gm(2,3)& 854 & *dgm(1,2)+15*(gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3))) 855 cm(1,9,4)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(15*gm(3,3)& 856 & *dgm(1,2)+3*gm(2,3)*dgm(1,3))+gm(1,1)*(-6*gm(2,3)**2*dgm(1,2)& 857 & -3*gm(2,2)*gm(3,3)*dgm(1,2)-9*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,2)& 858 & *(3*gm(2,3)**2*dgm(1,1)+12*gm(2,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)& 859 & *gm(2,3)*dgm(2,3))+gm(1,3)*(gm(2,2)*(3*gm(2,3)*dgm(1,1)+24*gm(1,2)& 860 & *dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(18*gm(2,3)*dgm(1,2)+15*gm(1,2)& 861 & *dgm(2,3))) 862 cm(1,10,4)=gm(1,3)**2*(9*gm(3,3)*dgm(1,2)+15*gm(2,3)*dgm(1,3))& 863 & -3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,1)+gm(1,1)*(gm(3,3)*dgm(1,2)& 864 & +gm(2,3)*dgm(1,3)))+5*gm(1,3)**3*dgm(2,3)+gm(1,3)*gm(3,3)*(9*gm(2,3)& 865 & *dgm(1,1)-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)) 866 cm(1,1,5)=gm(1,1)**2*(3*gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3)) 867 cm(1,2,5)=12*gm(1,1)*gm(1,2)*gm(2,3)*dgm(1,1)+gm(1,1)*gm(2,2)& 868 & *(-4.5d0*gm(1,3)*dgm(1,1)-3*gm(1,1)*dgm(1,3))+gm(1,2)**2*(1.5d0*gm(1,3)& 869 & *dgm(1,1)+9*gm(1,1)*dgm(1,3)) 870 cm(1,3,5)=1.5d0*gm(1,3)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)& 871 & *dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)-3*gm(1,1)**2*gm(3,3)& 872 & *dgm(1,3) 873 cm(1,4,5)=gm(1,1)*gm(2,3)*(3*gm(1,3)*dgm(1,1)-6*gm(1,1)*dgm(1,3))& 874 & +gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)+18*gm(1,1)& 875 & *gm(1,3)*dgm(1,3)) 876 cm(1,5,5)=gm(1,1)*(3*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(3,3)*dgm(1,1)& 877 & +6*gm(1,1)*gm(1,3)*dgm(1,3)) 878 cm(1,6,5)=gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(3*gm(1,3)& 879 & *dgm(1,1)+6*gm(1,1)*dgm(1,3))) 880 cm(1,7,5)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 881 & *gm(2,3)*dgm(1,1)+5*gm(1,2)**3*dgm(1,3)-3*gm(1,2)*gm(2,2)*(gm(1,3)& 882 & *dgm(1,1)+gm(1,1)*dgm(1,3)) 883 cm(1,8,5)=gm(1,1)*gm(3,3)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,2)*dgm(1,3))& 884 & +gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,2)*dgm(1,3))+gm(1,3)& 885 & *(12*gm(1,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,3)) 886 cm(1,9,5)=(60*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 887 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 888 & *dgm(1,1)+40*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 889 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3))/240.d0 890 cm(1,10,5)=4.5d0*gm(1,3)**2*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(3,3)& 891 & **2*dgm(1,1)+5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)& 892 & *dgm(1,3) 893 cm(1,1,6)=gm(1,1)**2*(3*gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2)) 894 cm(1,2,6)=1.5d0*gm(1,2)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)& 895 & *dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)-3*gm(1,1)**2*gm(2,2)& 896 & *dgm(1,2) 897 cm(1,3,6)=gm(1,2)*(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)*gm(3,3))*dgm(1,1)& 898 & +gm(1,1)*(12*gm(1,3)*gm(2,3)*dgm(1,1)+9*gm(1,3)**2*dgm(1,2)-3*gm(1,1)& 899 & *gm(3,3)*dgm(1,2)) 900 cm(1,4,6)=3*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(3*gm(2,3)& 901 & *dgm(1,1)+18*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,3)*gm(2,2)*dgm(1,1)& 902 & -6*gm(1,1)*gm(2,3)*dgm(1,2)) 903 cm(1,5,6)=gm(1,1)*(3*gm(1,2)*gm(1,3)*dgm(1,1)+6*gm(1,1)*(gm(2,3)& 904 & *dgm(1,1)+gm(1,3)*dgm(1,2))) 905 cm(1,6,6)=gm(1,1)*(3*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(2,2)*dgm(1,1)& 906 & +6*gm(1,1)*gm(1,2)*dgm(1,2)) 907 cm(1,7,6)=4.5d0*gm(1,2)**2*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 908 & **2*dgm(1,1)+5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)& 909 & *dgm(1,2) 910 cm(1,8,6)=(60*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 911 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 912 & *dgm(1,1)+40*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 913 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2))/240.d0 914 cm(1,9,6)=gm(1,1)*gm(2,2)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,3)*dgm(1,2))& 915 & +gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,3)*dgm(1,2))+gm(1,2)& 916 & *(12*gm(1,3)*gm(2,2)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,2)) 917 cm(1,10,6)=7.5d0*gm(1,3)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,3)& 918 & *gm(3,3)*dgm(1,1)+5*gm(1,3)**3*dgm(1,2)-3*gm(1,3)*gm(3,3)*(gm(1,2)& 919 & *dgm(1,1)+gm(1,1)*dgm(1,2)) 920 cm(1,1,7)=2.5d0*gm(1,2)**3*dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)& 921 & -3*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(-1.5d0*gm(2,2)& 922 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 923 cm(1,2,7)=6*gm(1,2)**2*gm(2,2)*dgm(1,2)+12*gm(1,1)*gm(2,2)**2*dgm(1,2)& 924 & +1.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 925 & +7.5d0*gm(1,1)*dgm(2,2)) 926 cm(1,3,7)=-6*gm(1,2)**2*gm(3,3)*dgm(1,2)+gm(1,1)*(15*gm(2,3)**2-3*gm(2,2)& 927 & *gm(3,3))*dgm(1,2)+gm(1,3)*gm(2,3)*(-3*gm(2,2)*dgm(1,1)+18*gm(1,2)& 928 & *dgm(1,2)+12*gm(1,1)*dgm(2,2))+gm(1,3)**2*(-6*gm(2,2)*dgm(1,2)& 929 & +1.5d0*gm(1,2)*dgm(2,2))+gm(1,2)*(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)& 930 & *gm(3,3)*dgm(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm(2,2)) 931 cm(1,4,7)=gm(2,3)*(6*gm(1,2)**2*dgm(1,2)+24*gm(1,1)*gm(2,2)*dgm(1,2)& 932 & +gm(1,2)*(9*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,3)*(-3*gm(2,2)& 933 & **2*dgm(1,1)+3*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 934 & +12*gm(1,1)*dgm(2,2))) 935 cm(1,5,7)=gm(1,2)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2))& 936 & +gm(1,1)*(gm(2,2)*(-1.5d0*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2))& 937 & +6*gm(1,1)*gm(2,3)*dgm(2,2))+gm(1,2)*(24*gm(1,1)*gm(2,3)*dgm(1,2)& 938 & +gm(1,3)*(-3*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 939 cm(1,6,7)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 940 & +gm(1,2)**2*(4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))+gm(1,1)& 941 & *gm(2,2)*(-1.5d0*gm(2,2)*dgm(1,1)+6*gm(1,1)*dgm(2,2)) 942 cm(1,7,7)=gm(2,2)*(1*gm(2,2)**2*dgm(1,1)+4.5d0*gm(1,2)**2*dgm(2,2)& 943 & +gm(2,2)*(6*gm(1,2)*dgm(1,2)-1.5d0*gm(1,1)*dgm(2,2))) 944 cm(1,8,7)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 945 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 946 & *gm(3,3)))*dgm(1,2)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 947 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 948 & *gm(3,3)))*dgm(2,2))/12.d0 949 cm(1,9,7)=gm(2,2)**2*(3*gm(2,3)*dgm(1,1)+12*gm(1,3)*dgm(1,2))& 950 & +1.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)*(-4.5d0*gm(1,1)*gm(2,3)& 951 & *dgm(2,2)+gm(1,2)*(6*gm(2,3)*dgm(1,2)+12*gm(1,3)*dgm(2,2))) 952 cm(1,10,7)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,1)& 953 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 954 & *gm(3,3)))*dgm(1,2)+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 955 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2))/36.d0 956 cm(1,1,8)=gm(1,1)*(9*gm(1,3)**2*dgm(1,2)+gm(1,1)*(-3*gm(3,3)*dgm(1,2)& 957 & -6*gm(2,3)*dgm(1,3))+gm(1,3)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,1)*dgm(2,3)))& 958 & +gm(1,2)*(7.5d0*gm(1,3)**2*dgm(1,1)+18*gm(1,1)*gm(1,3)*dgm(1,3)& 959 & +gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 960 cm(1,2,8)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(-6*gm(3,3)& 961 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,1)*(15*gm(2,3)**2*dgm(1,2)& 962 & -3*gm(2,2)*gm(3,3)*dgm(1,2)+24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)& 963 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)-9*gm(1,1)*dgm(2,3))& 964 & +gm(1,2)*(18*gm(2,3)*dgm(1,2)+3*gm(1,2)*dgm(2,3)))+1.5d0*gm(1,2)& 965 & **3*dgm(3,3)+gm(1,2)*(1.5d0*gm(2,3)**2*dgm(1,1)-4.5d0*gm(2,2)& 966 & *gm(3,3)*dgm(1,1)+24*gm(1,1)*gm(2,3)*dgm(2,3)+7.5d0*gm(1,1)*gm(2,2)& 967 & *dgm(3,3)) 968 cm(1,3,8)=3*gm(1,3)**3*dgm(2,3)+gm(1,3)**2*(6*gm(3,3)*dgm(1,2)& 969 & +6*gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(gm(1,1)& 970 & *(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))+gm(1,2)*(6*gm(3,3)& 971 & *dgm(1,1)-4.5d0*gm(1,1)*dgm(3,3)))+gm(1,3)*(gm(3,3)*(6*gm(1,2)& 972 & *dgm(1,3)+15*gm(1,1)*dgm(2,3))+gm(2,3)*(3*gm(3,3)*dgm(1,1)+12*gm(1,1)& 973 & *dgm(3,3))) 974 cm(1,4,8)=18*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)*gm(3,3)& 975 & *dgm(1,2)+18*gm(2,3)**2*dgm(1,3)+30*gm(2,2)*gm(3,3)*dgm(1,3))& 976 & +gm(1,3)**2*(6*gm(2,3)*dgm(1,2)+18*gm(2,2)*dgm(1,3)+6*gm(1,2)& 977 & *dgm(2,3))+gm(1,2)*(24*gm(1,1)*gm(3,3)*dgm(2,3)+3*gm(2,3)*(gm(3,3)& 978 & *dgm(1,1)+gm(1,1)*dgm(3,3)))+gm(1,3)*(3*gm(2,3)**2*dgm(1,1)+gm(2,3)& 979 & *(-12*gm(1,2)*dgm(1,3)+6*gm(1,1)*dgm(2,3))+12*gm(2,2)*(gm(3,3)& 980 & *dgm(1,1)+gm(1,1)*dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,2)+3*gm(1,2)& 981 & *dgm(3,3))) 982 cm(1,5,8)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)& 983 & +6*(gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)))+gm(1,3)*(gm(1,1)*(15*gm(3,3)& 984 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,2)*(12*gm(3,3)*dgm(1,1)+3*gm(1,1)& 985 & *dgm(3,3)))+gm(1,1)*(gm(3,3)*(24*gm(1,2)*dgm(1,3)+12*gm(1,1)& 986 & *dgm(2,3))+gm(2,3)*(-4.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 987 cm(1,6,8)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(7.5d0*gm(2,2)& 988 & *dgm(1,1)+3*gm(1,2)*dgm(1,2))+gm(1,3)*(6*gm(1,2)**2*dgm(1,3)& 989 & +24*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 990 & *dgm(1,1)+6*gm(1,1)*dgm(2,3)))+gm(1,1)*(-3*gm(2,3)**2*dgm(1,1)& 991 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 992 & *gm(2,3)*dgm(1,3)+3*gm(1,2)**2*dgm(3,3))+gm(1,1)**2*(12*gm(2,3)& 993 & *dgm(2,3)+6*gm(2,2)*dgm(3,3)) 994 cm(1,7,8)=15*gm(1,2)*gm(2,3)*(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))& 995 & +gm(2,2)**2*(-1.5d0*gm(3,3)*dgm(1,1)-6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)& 996 & *dgm(3,3))+gm(2,2)*(4.5d0*gm(2,3)**2*dgm(1,1)+gm(2,3)*(-6*gm(1,3)& 997 & *dgm(1,2)+18*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(-3*gm(3,3)& 998 & *dgm(1,2)-6*gm(1,3)*dgm(2,3)+4.5d0*gm(1,2)*dgm(3,3))) 999 cm(1,8,8)=gm(2,3)**2*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)*dgm(1,3)-3*gm(1,1)& 1000 & *dgm(3,3))+gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 1001 & -3*gm(1,2)*dgm(3,3))+gm(2,2)*(6*gm(3,3)**2*dgm(1,1)+24*gm(1,3)& 1002 & *gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)*gm(3,3)& 1003 & *dgm(3,3))+gm(2,3)*(3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(6*gm(1,2)& 1004 & *dgm(1,3)-9*gm(1,1)*dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 1005 & *dgm(3,3))) 1006 cm(1,9,8)=1.5d0*gm(2,3)**3*dgm(1,1)-6*gm(1,3)**2*gm(2,2)*dgm(2,3)& 1007 & +gm(2,3)**2*(3*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-6*gm(1,1)& 1008 & *dgm(2,3))+gm(3,3)*(24*gm(1,2)*gm(2,2)*dgm(1,3)+15*gm(1,2)**2*dgm(2,3)& 1009 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(1,3)*gm(2,2)*(-9*gm(3,3)*dgm(1,2)& 1010 & +12*gm(1,2)*dgm(3,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)*dgm(1,1)& 1011 & +6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))+gm(1,2)*(24*gm(3,3)& 1012 & *dgm(1,2)+18*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))) 1013 cm(1,10,8)=gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+7.5d0*gm(1,3)**2*dgm(3,3)& 1014 & +gm(3,3)*(18*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3)))+gm(3,3)& 1015 & *(9*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)& 1016 & *dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)-3*gm(1,2)*dgm(3,3))) 1017 cm(1,1,9)=gm(1,2)**2*(7.5d0*gm(1,3)*dgm(1,1)+9*gm(1,1)*dgm(1,3))& 1018 & +gm(1,1)*(gm(1,1)*(-6*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3))+gm(1,3)& 1019 & *(-1.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,1)*gm(1,2)& 1020 & *(-3*gm(2,3)*dgm(1,1)+18*gm(1,3)*dgm(1,2)+6*gm(1,1)*dgm(2,3)) 1021 cm(1,2,9)=6*gm(1,2)**2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,1)& 1022 & *gm(2,2)*(24*gm(2,3)*dgm(1,2)+12*gm(2,2)*dgm(1,3))+gm(1,3)*(6*gm(2,2)& 1023 & **2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 1024 & -4.5d0*gm(1,1)*dgm(2,2)))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(3*gm(2,2)& 1025 & *gm(2,3)*dgm(1,1)+12*gm(1,1)*gm(2,3)*dgm(2,2)+15*gm(1,1)*gm(2,2)& 1026 & *dgm(2,3)) 1027 cm(1,3,9)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)*gm(3,3)& 1028 & *dgm(1,2)+15*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))& 1029 & +1.5d0*gm(1,3)**3*dgm(2,2)+gm(1,2)*gm(3,3)*(12*gm(2,3)*dgm(1,1)& 1030 & -9*gm(1,1)*dgm(2,3))+gm(1,3)**2*(6*gm(2,3)*dgm(1,2)-6*gm(2,2)& 1031 & *dgm(1,3)+3*gm(1,2)*dgm(2,3))+gm(1,3)*(1.5d0*gm(2,3)**2*dgm(1,1)& 1032 & +gm(3,3)*(-4.5d0*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)+7.5d0*gm(1,1)& 1033 & *dgm(2,2))+gm(2,3)*(18*gm(1,2)*dgm(1,3)+24*gm(1,1)*dgm(2,3))) 1034 cm(1,4,9)=gm(1,2)**2*(18*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3))& 1035 & +gm(1,1)*(18*gm(2,3)**2*dgm(1,2)+30*gm(2,2)*gm(3,3)*dgm(1,2)& 1036 & +24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(18*gm(2,2)*dgm(1,2)& 1037 & +3*gm(1,2)*dgm(2,2))+gm(1,2)*(3*gm(2,3)**2*dgm(1,1)+12*gm(3,3)& 1038 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))+6*gm(1,1)*gm(2,3)*dgm(2,3))& 1039 & +gm(1,3)*(-12*gm(1,2)*gm(2,3)*dgm(1,2)+3*gm(1,1)*gm(2,3)*dgm(2,2)& 1040 & +6*gm(1,2)**2*dgm(2,3)+gm(2,2)*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)& 1041 & *dgm(1,3)+24*gm(1,1)*dgm(2,3))) 1042 cm(1,5,9)=7.5d0*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,1)*(-3*gm(2,3)& 1043 & **2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)& 1044 & *dgm(1,2)+24*gm(1,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(-3*gm(2,2)& 1045 & *dgm(1,1)+6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,1)**2*(6*gm(3,3)& 1046 & *dgm(2,2)+12*gm(2,3)*dgm(2,3))+gm(1,3)*(3*gm(1,2)**2*dgm(1,3)& 1047 & +gm(1,1)*(6*gm(2,3)*dgm(1,2)-9*gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 1048 & *dgm(1,1)+6*gm(1,1)*dgm(2,3))) 1049 cm(1,6,9)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(gm(1,1)*(6*gm(2,3)*dgm(1,2)& 1050 & +15*gm(2,2)*dgm(1,3))+gm(1,3)*(12*gm(2,2)*dgm(1,1)+3*gm(1,1)& 1051 & *dgm(2,2)))+gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 1052 & +gm(1,1)*dgm(2,3)))+gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(2,2)+gm(2,2)& 1053 & *(-4.5d0*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2)+12*gm(1,1)*dgm(2,3))) 1054 cm(1,7,9)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)**2*(3*gm(2,3)& 1055 & *dgm(1,1)-6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 1056 & +gm(2,2)*(-1.5d0*gm(1,1)*gm(2,3)*dgm(2,2)+gm(1,2)*(18*gm(2,3)& 1057 & *dgm(1,2)-3*gm(1,3)*dgm(2,2))+9*gm(1,2)**2*dgm(2,3)) 1058 cm(1,8,9)=1.5d0*gm(2,3)**3*dgm(1,1)+gm(1,3)*gm(3,3)*(24*gm(2,2)& 1059 & *dgm(1,2)+12*gm(1,2)*dgm(2,2))+15*gm(1,3)**2*gm(2,2)*dgm(2,3)& 1060 & +gm(2,3)**2*(6*gm(1,3)*dgm(1,2)+3*gm(1,2)*dgm(1,3)-6*gm(1,1)& 1061 & *dgm(2,3))+gm(3,3)*(-9*gm(1,2)*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*dgm(2,3)& 1062 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)& 1063 & *dgm(1,1)+24*gm(1,3)*dgm(1,3))+(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)& 1064 & *gm(3,3))*dgm(2,2)+gm(1,2)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3))) 1065 cm(1,9,9)=gm(2,2)**2*(6*gm(3,3)*dgm(1,1)+12*gm(1,3)*dgm(1,3))& 1066 & -3*gm(1,1)*gm(2,3)**2*dgm(2,2)+gm(1,2)*gm(2,3)*(6*gm(2,3)*dgm(1,2)& 1067 & +9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(7.5d0*gm(3,3)*dgm(2,2)+3*gm(2,3)& 1068 & *dgm(2,3))+gm(2,2)*(3*gm(2,3)**2*dgm(1,1)+(-3*gm(1,3)**2-1.5d0*gm(1,1)& 1069 & *gm(3,3))*dgm(2,2)+gm(2,3)*(6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)& 1070 & -9*gm(1,1)*dgm(2,3))+24*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 1071 cm(1,10,9)=gm(2,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+15*gm(1,3)*dgm(1,3))& 1072 & +gm(2,3)*(18*gm(1,3)*gm(3,3)*dgm(1,2)+15*gm(1,3)**2*dgm(2,3)& 1073 & +gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)))+gm(3,3)*(gm(2,2)& 1074 & *(-1.5d0*gm(3,3)*dgm(1,1)-3*gm(1,3)*dgm(1,3))+(4.5d0*gm(1,3)& 1075 & **2-1.5d0*gm(1,1)*gm(3,3))*dgm(2,2)-6*gm(1,2)*(gm(3,3)*dgm(1,2)& 1076 & +gm(1,3)*dgm(2,3))) 1077 cm(1,1,10)=2.5d0*gm(1,3)**3*dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)& 1078 & -3*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(-1.5d0*gm(3,3)& 1079 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 1080 cm(1,2,10)=-6*gm(1,3)**2*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*gm(3,3)& 1081 & *dgm(1,3)+gm(1,1)*(15*gm(2,3)**2-3*gm(2,2)*gm(3,3))*dgm(1,3)& 1082 & +gm(1,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))+gm(1,3)& 1083 & *(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+18*gm(1,2)& 1084 & *gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)**2*dgm(3,3)-4.5d0*gm(1,1)*gm(2,2)& 1085 & *dgm(3,3)) 1086 cm(1,3,10)=6*gm(1,3)**2*gm(3,3)*dgm(1,3)+12*gm(1,1)*gm(3,3)**2*dgm(1,3)& 1087 & +1.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 1088 & +7.5d0*gm(1,1)*dgm(3,3)) 1089 cm(1,4,10)=gm(1,3)**2*(6*gm(2,3)*dgm(1,3)+3*gm(1,2)*dgm(3,3))& 1090 & +gm(1,3)*(6*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(9*gm(3,3)*dgm(1,1)& 1091 & +3*gm(1,1)*dgm(3,3)))+gm(3,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 1092 & *(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))) 1093 cm(1,5,10)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 1094 & +gm(1,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))+gm(1,1)& 1095 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3)) 1096 cm(1,6,10)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3))& 1097 & +gm(1,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)*(-3*gm(3,3)*dgm(1,1)& 1098 & +3*gm(1,1)*dgm(3,3)))+gm(1,1)*(-9*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)& 1099 & *(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 1100 cm(1,7,10)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,1)& 1101 & +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 1102 & *gm(3,3)))*dgm(1,3)+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 1103 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))/36.d0 1104 cm(1,8,10)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))& 1105 & +gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 1106 & *(6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))) 1107 cm(1,9,10)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 1108 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1109 & *gm(3,3)))*dgm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1110 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1111 & *gm(3,3)))*dgm(3,3))/12.d0 1112 cm(1,10,10)=gm(3,3)*(1*gm(3,3)**2*dgm(1,1)+4.5d0*gm(1,3)**2*dgm(3,3)& 1113 & +gm(3,3)*(6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3))) 1114 cm(1,1,11)=5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 1115 & +4.5d0*gm(1,1)*gm(1,2)**2*dgm(2,2)-1.5d0*gm(1,1)**2*gm(2,2)*dgm(2,2) 1116 cm(1,2,11)=gm(2,2)*(6*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)& 1117 & +6*gm(1,1)*gm(2,2)*dgm(2,2)) 1118 cm(1,3,11)=(16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1119 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,2)+24*(-12*gm(1,3)**2*gm(2,2)& 1120 & +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)& 1121 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,2))/96.d0 1122 cm(1,4,11)=gm(1,3)*gm(2,2)*(-6*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))& 1123 & +gm(2,3)*(18*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)+12*gm(1,1)& 1124 & *gm(2,2)*dgm(2,2)) 1125 cm(1,5,11)=(16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1126 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,2)+24*(6*gm(1,2)**2*gm(1,3)& 1127 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(2,2))& 1128 & /96.d0 1129 cm(1,6,11)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 1130 & +1.5d0*gm(1,2)**3*dgm(2,2)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)*dgm(2,2) 1131 cm(1,7,11)=gm(2,2)**2*(2*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2)) 1132 cm(1,8,11)=-3*gm(2,2)**2*gm(3,3)*dgm(1,2)+1.5d0*gm(1,2)*gm(2,3)& 1133 & **2*dgm(2,2)+gm(2,2)*(9*gm(2,3)**2*dgm(1,2)+12*gm(1,3)*gm(2,3)& 1134 & *dgm(2,2)-4.5d0*gm(1,2)*gm(3,3)*dgm(2,2)) 1135 cm(1,9,11)=gm(2,2)*(3*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)*(gm(2,3)& 1136 & *dgm(1,2)+gm(1,3)*dgm(2,2))) 1137 cm(1,10,11)=5*gm(2,3)**3*dgm(1,2)+7.5d0*gm(1,3)*gm(2,3)**2*dgm(2,2)& 1138 & -1.5d0*gm(1,3)*gm(2,2)*gm(3,3)*dgm(2,2)-3*gm(2,3)*gm(3,3)*(gm(2,2)& 1139 & *dgm(1,2)+gm(1,2)*dgm(2,2)) 1140 cm(1,1,12)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1141 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1142 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3)+gm(1,1)& 1143 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)+4*gm(1,1)*(54*gm(1,2)& 1144 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 1145 & *gm(2,2))*dgm(3,3))/12.d0 1146 cm(1,2,12)=(2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1147 & *gm(3,3)))*dgm(1,2)+2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 1148 & *gm(2,3))*dgm(1,3)+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1149 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 1150 & *gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1151 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 1152 & *gm(2,2))*dgm(3,3))/4.d0 1153 cm(1,3,12)=gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))& 1154 & -3*gm(1,2)**2*gm(3,3)*dgm(3,3)+gm(1,3)**2*(3*gm(3,3)*dgm(2,2)& 1155 & +6*gm(2,3)*dgm(2,3)-3*gm(2,2)*dgm(3,3))+gm(1,1)*(6*gm(3,3)**2*dgm(2,2)& 1156 & +24*gm(2,3)*gm(3,3)*dgm(2,3)+7.5d0*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)& 1157 & *gm(3,3)*dgm(3,3))+gm(1,3)*(3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-9*gm(2,2)& 1158 & *dgm(1,3)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 1159 & *dgm(3,3))) 1160 cm(1,4,12)=(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1161 & *gm(3,3)))*dgm(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1162 & **2+24*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1163 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+4*(9*gm(1,3)& 1164 & **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)& 1165 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)*gm(1,3)& 1166 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 1167 & /2.d0 1168 cm(1,5,12)=(2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1169 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+2*(-12*gm(1,3)**2*gm(2,2)& 1170 & +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)& 1171 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 1172 & *gm(3,3))*dgm(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1173 & **2+24*gm(1,1)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1174 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/4.d0 1175 cm(1,6,12)=(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1176 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1177 & *dgm(1,2)+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1178 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)& 1179 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)& 1180 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 1181 & *dgm(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))& 1182 & /4.d0 1183 cm(1,7,12)=(360*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)*(432*gm(2,3)& 1184 & **2*dgm(1,2)-72*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(-144*gm(1,3)& 1185 & *dgm(2,2)+864*gm(1,2)*dgm(2,3)))+gm(2,2)**2*(-144*gm(3,3)*dgm(1,2)& 1186 & +288*gm(2,3)*dgm(1,3)-288*gm(1,3)*dgm(2,3)+144*gm(1,2)*dgm(3,3)))& 1187 & /48.d0 1188 cm(1,8,12)=3*gm(2,3)**3*dgm(1,3)+gm(2,3)**2*(6*gm(3,3)*dgm(1,2)& 1189 & +6*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(6*gm(1,2)& 1190 & *gm(3,3)*dgm(2,2)+gm(2,2)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 1191 & -4.5d0*gm(1,2)*dgm(3,3)))+gm(2,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)& 1192 & +6*gm(1,2)*dgm(2,3))+gm(2,2)*(15*gm(3,3)*dgm(1,3)+12*gm(1,3)& 1193 & *dgm(3,3))) 1194 cm(1,9,12)=3*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(6*gm(2,2)*dgm(1,3)& 1195 & +1.5d0*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(12*gm(1,2)& 1196 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 1197 & +3*gm(1,2)*dgm(3,3)))+gm(2,2)*(gm(3,3)*(-4.5d0*gm(1,3)*dgm(2,2)& 1198 & +24*gm(1,2)*dgm(2,3))+gm(2,2)*(12*gm(3,3)*dgm(1,3)+6*gm(1,3)& 1199 & *dgm(3,3))) 1200 cm(1,10,12)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3)& 1201 & -3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)& 1202 & *dgm(3,3))+gm(3,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))& 1203 & +gm(2,2)*(-3*gm(3,3)*dgm(1,3)-1.5d0*gm(1,3)*dgm(3,3))) 1204 cm(1,1,13)=5*gm(1,2)**3*dgm(1,3)+gm(1,1)*gm(1,2)*(-6*gm(2,3)*dgm(1,2)& 1205 & -3*gm(2,2)*dgm(1,3)+9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(15*gm(1,3)& 1206 & *dgm(1,2)+9*gm(1,1)*dgm(2,3))-3*gm(1,1)*(gm(1,3)*gm(2,2)*dgm(1,2)& 1207 & +gm(1,1)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))) 1208 cm(1,2,13)=6*gm(1,2)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))& 1209 & +gm(1,3)*gm(2,2)*(12*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))+12*gm(1,1)& 1210 & *gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))+gm(1,2)**2*(3*gm(2,3)& 1211 & *dgm(2,2)+6*gm(2,2)*dgm(2,3)) 1212 cm(1,3,13)=(3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1213 & *gm(3,3)))*dgm(1,2)+(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1214 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1215 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+3*(-12*gm(1,3)& 1216 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1217 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm(2,3))/6.d0 1218 cm(1,4,13)=gm(1,2)*(6*gm(2,3)**2*dgm(1,2)+24*gm(2,2)*gm(3,3)*dgm(1,2)& 1219 & +18*gm(2,2)*gm(2,3)*dgm(1,3))+9*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)& 1220 & **2*(9*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3))+gm(1,1)*(9*gm(2,3)& 1221 & **2*dgm(2,2)+15*gm(2,2)*gm(3,3)*dgm(2,2)+24*gm(2,2)*gm(2,3)*dgm(2,3))& 1222 & +gm(1,3)*(-6*gm(2,2)**2*dgm(1,3)-6*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)& 1223 & *(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))) 1224 cm(1,5,13)=(3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1225 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1226 & *dgm(1,2)+(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1227 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)& 1228 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm(2,2)+3*(6*gm(1,2)& 1229 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 1230 & *dgm(2,3))/6.d0 1231 cm(1,6,13)=gm(1,2)**2*(3*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3)+3*gm(1,3)& 1232 & *dgm(2,2))+gm(1,1)*gm(2,2)*(-9*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3)& 1233 & +12*gm(1,3)*dgm(2,2))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(24*gm(1,3)& 1234 & *gm(2,2)*dgm(1,2)+gm(1,1)*(3*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))) 1235 cm(1,7,13)=gm(2,2)*(2*gm(2,2)**2*dgm(1,3)+9*gm(1,2)*gm(2,3)*dgm(2,2)& 1236 & +gm(2,2)*(6*gm(2,3)*dgm(1,2)-3*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))) 1237 cm(1,8,13)=3*gm(2,3)**3*dgm(1,2)+gm(2,2)*gm(3,3)*(-3*gm(2,2)*dgm(1,3)& 1238 & +12*gm(1,3)*dgm(2,2)-9*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(2,2)& 1239 & *dgm(1,3)+3*(gm(1,3)*dgm(2,2)+gm(1,2)*dgm(2,3)))+gm(2,3)*(3*gm(1,2)& 1240 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3))) 1241 cm(1,9,13)=3*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)**2*(12*gm(3,3)& 1242 & *dgm(1,2)+6*gm(2,3)*dgm(1,3)+12*gm(1,3)*dgm(2,3))+gm(2,2)*(6*gm(2,3)& 1243 & **2*dgm(1,2)+12*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(3*gm(1,3)*dgm(2,2)& 1244 & +6*gm(1,2)*dgm(2,3))) 1245 cm(1,10,13)=5*gm(2,3)**3*dgm(1,3)+gm(2,3)*gm(3,3)*(-3*gm(2,2)& 1246 & *dgm(1,3)+9*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(3,3)& 1247 & *dgm(1,2)+15*gm(1,3)*dgm(2,3))-3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,2)& 1248 & +gm(2,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 1249 cm(1,1,14)=5*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(15*gm(1,2)*dgm(1,3)& 1250 & +9*gm(1,1)*dgm(2,3))+gm(1,1)*gm(1,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(2,3)& 1251 & *dgm(1,3)+9*gm(1,2)*dgm(3,3))-3*gm(1,1)*(gm(1,2)*gm(3,3)*dgm(1,3)& 1252 & +gm(1,1)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))) 1253 cm(1,2,14)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1254 & *gm(3,3)))*dgm(1,2)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1255 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1256 & *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)& 1257 & *gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1258 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))/6.d0 1259 cm(1,3,14)=gm(1,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3)& 1260 & +3*gm(1,2)*dgm(3,3))+gm(1,3)**2*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)& 1261 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,3)+gm(1,1)*(gm(3,3)& 1262 & *dgm(2,3)+gm(2,3)*dgm(3,3))) 1263 cm(1,4,14)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(1,2)& 1264 & +3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1265 & *gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 1266 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+3*(9*gm(1,3)**2*gm(2,2)& 1267 & -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)& 1268 & **2+15*gm(2,2)*gm(3,3)))*dgm(3,3))/3.d0 1269 cm(1,5,14)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(1,2)& 1270 & +3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1271 & *gm(2,3)*gm(3,3))*dgm(1,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 1272 & *gm(3,3))*dgm(2,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1273 & **2+24*gm(1,1)*gm(3,3)))*dgm(3,3))/6.d0 1274 cm(1,6,14)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1275 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+3*(30*gm(1,3)**2*gm(2,2)& 1276 & +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)& 1277 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1278 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)& 1279 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 1280 & *dgm(3,3))/6.d0 1281 cm(1,7,14)=5*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(9*gm(2,2)*dgm(1,3)& 1282 & +15*gm(1,2)*dgm(2,3))+gm(2,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(1,3)& 1283 & *dgm(2,3)+9*gm(1,2)*dgm(3,3))-3*gm(2,2)*(gm(1,2)*gm(3,3)*dgm(2,3)& 1284 & +gm(2,2)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))) 1285 cm(1,8,14)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 1286 & +3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)& 1287 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,2)*(gm(3,3)& 1288 & *dgm(1,3)+gm(1,3)*dgm(3,3))) 1289 cm(1,9,14)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,2)& 1290 & +3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,3)+3*(48*gm(1,2)& 1291 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(2,3)& 1292 & +3*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 1293 & *gm(3,3)))*dgm(3,3))/6.d0 1294 cm(1,10,14)=gm(3,3)*(2*gm(3,3)**2*dgm(1,2)+9*gm(1,3)*gm(2,3)*dgm(3,3)& 1295 & +gm(3,3)*(6*gm(2,3)*dgm(1,3)+6*gm(1,3)*dgm(2,3)-3*gm(1,2)*dgm(3,3))) 1296 cm(1,1,15)=5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 1297 & +4.5d0*gm(1,1)*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)**2*gm(3,3)*dgm(3,3) 1298 cm(1,2,15)=(16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1299 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+24*(-12*gm(1,3)**2*gm(2,2)& 1300 & +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)& 1301 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/96.d0 1302 cm(1,3,15)=gm(3,3)*(6*gm(1,3)*gm(3,3)*dgm(1,3)+3*gm(1,3)**2*dgm(3,3)& 1303 & +6*gm(1,1)*gm(3,3)*dgm(3,3)) 1304 cm(1,4,15)=3*gm(1,3)**2*gm(2,3)*dgm(3,3)+gm(1,3)*gm(3,3)*(18*gm(2,3)& 1305 & *dgm(1,3)+3*gm(1,2)*dgm(3,3))+gm(3,3)*(-6*gm(1,2)*gm(3,3)*dgm(1,3)& 1306 & +12*gm(1,1)*gm(2,3)*dgm(3,3)) 1307 cm(1,5,15)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 1308 & +1.5d0*gm(1,3)**3*dgm(3,3)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*dgm(3,3) 1309 cm(1,6,15)=(16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1310 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,3)+24*(48*gm(1,1)*gm(1,3)& 1311 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(3,3))& 1312 & /96.d0 1313 cm(1,7,15)=5*gm(2,3)**3*dgm(1,3)+7.5d0*gm(1,2)*gm(2,3)**2*dgm(3,3)& 1314 & -1.5d0*gm(1,2)*gm(2,2)*gm(3,3)*dgm(3,3)-3*gm(2,2)*gm(2,3)*(gm(3,3)& 1315 & *dgm(1,3)+gm(1,3)*dgm(3,3)) 1316 cm(1,8,15)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(6*gm(3,3)& 1317 & *dgm(1,3)+3*gm(1,3)*dgm(3,3))) 1318 cm(1,9,15)=12*gm(1,2)*gm(2,3)*gm(3,3)*dgm(3,3)+gm(2,2)*gm(3,3)& 1319 & *(-3*gm(3,3)*dgm(1,3)-4.5d0*gm(1,3)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)& 1320 & *dgm(1,3)+1.5d0*gm(1,3)*dgm(3,3)) 1321 cm(1,10,15)=gm(3,3)**2*(2*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 1322 cm(1,1,16)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 1323 cm(1,2,16)=3*gm(1,2)*gm(2,2)**2*dgm(2,2) 1324 cm(1,3,16)=((-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 1325 & *gm(3,3)))*dgm(2,2))/12.d0 1326 cm(1,4,16)=(gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm(2,2))& 1327 & /6.d0 1328 cm(1,5,16)=((-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1329 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,2))/12.d0 1330 cm(1,6,16)=gm(2,2)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 1331 cm(1,7,16)=gm(2,2)**3*dgm(2,2) 1332 cm(1,8,16)=gm(2,2)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 1333 cm(1,9,16)=3*gm(2,2)**2*gm(2,3)*dgm(2,2) 1334 cm(1,10,16)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 1335 cm(1,1,17)=(1080*gm(1,2)**2*gm(1,3)*dgm(2,3)-216*gm(1,1)*gm(1,3)& 1336 & *(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))+180*gm(1,2)**3*dgm(3,3)& 1337 & +gm(1,2)*(540*gm(1,3)**2*dgm(2,2)+gm(1,1)*(-108*gm(3,3)*dgm(2,2)& 1338 & -432*gm(2,3)*dgm(2,3)-108*gm(2,2)*dgm(3,3))))/72.d0 1339 cm(1,2,17)=(288*gm(1,3)*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))& 1340 & +gm(1,2)*(36*gm(2,3)**2*dgm(2,2)+144*gm(2,2)*gm(2,3)*dgm(2,3)& 1341 & +gm(2,2)*(-108*gm(3,3)*dgm(2,2)+72*gm(2,2)*dgm(3,3))))/24.d0 1342 cm(1,3,17)=gm(1,3)*(3*gm(2,3)**2*dgm(2,3)-9*gm(2,2)*gm(3,3)*dgm(2,3)& 1343 & +gm(2,3)*(3*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(3,3)& 1344 & **2*dgm(2,2)+7.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)*(24*gm(2,3)*dgm(2,3)& 1345 & -1.5d0*gm(2,2)*dgm(3,3))) 1346 cm(1,4,17)=gm(1,3)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)*dgm(2,3)& 1347 & +gm(2,2)*(12*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(2,3)& 1348 & **2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)+gm(2,3)*(3*gm(3,3)*dgm(2,2)& 1349 & +9*gm(2,2)*dgm(3,3))) 1350 cm(1,5,17)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1351 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+12*(-12*gm(1,3)**2*gm(2,2)& 1352 & +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)& 1353 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 1354 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 1355 & /24.d0 1356 cm(1,6,17)=7.5d0*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)*gm(1,3)*(9*gm(2,3)& 1357 & *dgm(2,2)+24*gm(2,2)*dgm(2,3))+gm(1,2)**2*(-3*gm(3,3)*dgm(2,2)& 1358 & +3*gm(2,3)*dgm(2,3)+4.5d0*gm(2,2)*dgm(3,3))+gm(1,1)*(-3*gm(2,3)& 1359 & **2*dgm(2,2)-9*gm(2,2)*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*(gm(3,3)& 1360 & *dgm(2,2)+gm(2,2)*dgm(3,3))) 1361 cm(1,7,17)=gm(2,2)*(4.5d0*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)& 1362 & *dgm(2,3)+gm(2,2)*(-1.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3))) 1363 cm(1,8,17)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 1364 & +gm(2,2)*gm(3,3)*(6*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*dgm(3,3))& 1365 & +gm(2,3)**2*(3*gm(3,3)*dgm(2,2)+4.5d0*gm(2,2)*dgm(3,3)) 1366 cm(1,9,17)=1.5d0*gm(2,3)**3*dgm(2,2)+6*gm(2,2)*gm(2,3)**2*dgm(2,3)& 1367 & +12*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(7.5d0*gm(3,3)& 1368 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 1369 cm(1,10,17)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 1370 & +2.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 1371 & -1.5d0*gm(2,2)*dgm(3,3)) 1372 cm(1,1,18)=7.5d0*gm(1,2)**2*gm(1,3)*dgm(2,2)-1.5d0*gm(1,1)*gm(1,3)& 1373 & *gm(2,2)*dgm(2,2)+5*gm(1,2)**3*dgm(2,3)-3*gm(1,1)*gm(1,2)*(gm(2,3)& 1374 & *dgm(2,2)+gm(2,2)*dgm(2,3)) 1375 cm(1,2,18)=gm(2,2)*(6*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(3*gm(2,3)& 1376 & *dgm(2,2)+6*gm(2,2)*dgm(2,3))) 1377 cm(1,3,18)=gm(1,3)*(1.5d0*gm(2,3)**2*dgm(2,2)-4.5d0*gm(2,2)*gm(3,3)& 1378 & *dgm(2,2)-6*gm(2,2)*gm(2,3)*dgm(2,3))+gm(1,2)*(12*gm(2,3)*gm(3,3)& 1379 & *dgm(2,2)+15*gm(2,3)**2*dgm(2,3)-3*gm(2,2)*gm(3,3)*dgm(2,3)) 1380 cm(1,4,18)=gm(1,3)*gm(2,2)*(3*gm(2,3)*dgm(2,2)-6*gm(2,2)*dgm(2,3))& 1381 & +gm(1,2)*(3*gm(2,3)**2*dgm(2,2)+12*gm(2,2)*gm(3,3)*dgm(2,2)+18*gm(2,2)& 1382 & *gm(2,3)*dgm(2,3)) 1383 cm(1,5,18)=(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1384 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1385 & *dgm(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1386 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3))/48.d0 1387 cm(1,6,18)=12*gm(1,2)*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,1)*gm(2,2)& 1388 & *(-4.5d0*gm(2,3)*dgm(2,2)-3*gm(2,2)*dgm(2,3))+gm(1,2)**2*(1.5d0*gm(2,3)& 1389 & *dgm(2,2)+9*gm(2,2)*dgm(2,3)) 1390 cm(1,7,18)=gm(2,2)**2*(3*gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3)) 1391 cm(1,8,18)=1.5d0*gm(2,3)**3*dgm(2,2)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)& 1392 & *dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)-3*gm(2,2)**2*gm(3,3)& 1393 & *dgm(2,3) 1394 cm(1,9,18)=gm(2,2)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(3,3)*dgm(2,2)& 1395 & +6*gm(2,2)*gm(2,3)*dgm(2,3)) 1396 cm(1,10,18)=4.5d0*gm(2,3)**2*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*gm(3,3)& 1397 & **2*dgm(2,2)+5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)& 1398 & *dgm(2,3) 1399 cm(1,1,19)=(180*gm(1,3)**3*dgm(2,2)+1080*gm(1,2)*gm(1,3)**2*dgm(2,3)& 1400 & -216*gm(1,1)*gm(1,2)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))+gm(1,3)& 1401 & *(540*gm(1,2)**2*dgm(3,3)+gm(1,1)*(-108*gm(3,3)*dgm(2,2)-432*gm(2,3)& 1402 & *dgm(2,3)-108*gm(2,2)*dgm(3,3))))/72.d0 1403 cm(1,2,19)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1404 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 1405 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+6*gm(2,2)& 1406 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm(3,3))/24.d0 1407 cm(1,3,19)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))& 1408 & +gm(1,3)*(3*gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 1409 & *(6*gm(2,3)*dgm(2,3)-4.5d0*gm(2,2)*dgm(3,3))) 1410 cm(1,4,19)=gm(1,3)*(6*gm(2,3)**2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)& 1411 & +gm(2,3)*(9*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3)))+gm(1,2)*(-3*gm(3,3)& 1412 & **2*dgm(2,2)+3*gm(2,3)**2*dgm(3,3)+gm(3,3)*(6*gm(2,3)*dgm(2,3)& 1413 & +12*gm(2,2)*dgm(3,3))) 1414 cm(1,5,19)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)& 1415 & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1416 & *gm(2,3)*gm(3,3))*dgm(2,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1417 & *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)& 1418 & *gm(3,3)))*dgm(3,3))/24.d0 1419 cm(1,6,19)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))& 1420 & +gm(1,2)*gm(1,3)*(-3*gm(3,3)*dgm(2,2)+18*gm(2,3)*dgm(2,3)+12*gm(2,2)& 1421 & *dgm(3,3))+gm(1,2)**2*(-6*gm(3,3)*dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3))& 1422 & +gm(1,1)*(-1.5d0*gm(2,3)*gm(3,3)*dgm(2,2)-6*gm(2,3)**2*dgm(2,3)& 1423 & -3*gm(2,2)*gm(3,3)*dgm(2,3)-4.5d0*gm(2,2)*gm(2,3)*dgm(3,3)) 1424 cm(1,7,19)=2.5d0*gm(2,3)**3*dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)& 1425 & -3*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(-1.5d0*gm(3,3)& 1426 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 1427 cm(1,8,19)=6*gm(2,3)**2*gm(3,3)*dgm(2,3)+12*gm(2,2)*gm(3,3)**2*dgm(2,3)& 1428 & +1.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 1429 & +7.5d0*gm(2,2)*dgm(3,3)) 1430 cm(1,9,19)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 1431 & +gm(2,3)**2*(4.5d0*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3))+gm(2,2)& 1432 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(2,2)+6*gm(2,2)*dgm(3,3)) 1433 cm(1,10,19)=gm(3,3)*(1*gm(3,3)**2*dgm(2,2)+4.5d0*gm(2,3)**2*dgm(3,3)& 1434 & +gm(3,3)*(6*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*dgm(3,3))) 1435 cm(1,1,20)=5*gm(1,3)**3*dgm(2,3)+7.5d0*gm(1,2)*gm(1,3)**2*dgm(3,3)& 1436 & -1.5d0*gm(1,1)*gm(1,2)*gm(3,3)*dgm(3,3)-3*gm(1,1)*gm(1,3)*(gm(3,3)& 1437 & *dgm(2,3)+gm(2,3)*dgm(3,3)) 1438 cm(1,2,20)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1439 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)& 1440 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(3,3))/48.d0 1441 cm(1,3,20)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(6*gm(3,3)& 1442 & *dgm(2,3)+3*gm(2,3)*dgm(3,3))) 1443 cm(1,4,20)=gm(1,2)*gm(3,3)*(-6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3))& 1444 & +gm(1,3)*(18*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)+12*gm(2,2)& 1445 & *gm(3,3)*dgm(3,3)) 1446 cm(1,5,20)=12*gm(1,2)*gm(1,3)*gm(3,3)*dgm(3,3)+gm(1,1)*gm(3,3)& 1447 & *(-3*gm(3,3)*dgm(2,3)-4.5d0*gm(2,3)*dgm(3,3))+gm(1,3)**2*(9*gm(3,3)& 1448 & *dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3)) 1449 cm(1,6,20)=(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1450 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+12*(30*gm(1,3)**2*gm(2,2)& 1451 & +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)& 1452 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/48.d0 1453 cm(1,7,20)=5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 1454 & +4.5d0*gm(2,2)*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)**2*gm(3,3)*dgm(3,3) 1455 cm(1,8,20)=gm(3,3)*(6*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)& 1456 & +6*gm(2,2)*gm(3,3)*dgm(3,3)) 1457 cm(1,9,20)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 1458 & +1.5d0*gm(2,3)**3*dgm(3,3)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)*dgm(3,3) 1459 cm(1,10,20)=gm(3,3)**2*(2*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 1460 cm(1,1,21)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 1461 cm(1,2,21)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1462 & *gm(3,3)))*dgm(3,3))/12.d0 1463 cm(1,3,21)=3*gm(1,3)*gm(3,3)**2*dgm(3,3) 1464 cm(1,4,21)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(3,3))& 1465 & /6.d0 1466 cm(1,5,21)=gm(3,3)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 1467 cm(1,6,21)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1468 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(3,3))/12.d0 1469 cm(1,7,21)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 1470 cm(1,8,21)=3*gm(2,3)*gm(3,3)**2*dgm(3,3) 1471 cm(1,9,21)=gm(3,3)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 1472 cm(1,10,21)=gm(3,3)**3*dgm(3,3) 1473 cm(2,1,2)=gm(1,1)**2*(3*gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2)) 1474 cm(2,2,2)=1.5d0*gm(1,2)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)& 1475 & *dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)-3*gm(1,1)**2*gm(2,2)& 1476 & *dgm(1,2) 1477 cm(2,3,2)=gm(1,2)*(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)*gm(3,3))*dgm(1,1)& 1478 & +gm(1,1)*(12*gm(1,3)*gm(2,3)*dgm(1,1)+9*gm(1,3)**2*dgm(1,2)-3*gm(1,1)& 1479 & *gm(3,3)*dgm(1,2)) 1480 cm(2,4,2)=3*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(3*gm(2,3)& 1481 & *dgm(1,1)+18*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,3)*gm(2,2)*dgm(1,1)& 1482 & -6*gm(1,1)*gm(2,3)*dgm(1,2)) 1483 cm(2,5,2)=gm(1,1)*(3*gm(1,2)*gm(1,3)*dgm(1,1)+6*gm(1,1)*(gm(2,3)& 1484 & *dgm(1,1)+gm(1,3)*dgm(1,2))) 1485 cm(2,6,2)=gm(1,1)*(3*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(2,2)*dgm(1,1)& 1486 & +6*gm(1,1)*gm(1,2)*dgm(1,2)) 1487 cm(2,7,2)=4.5d0*gm(1,2)**2*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 1488 & **2*dgm(1,1)+5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)& 1489 & *dgm(1,2) 1490 cm(2,8,2)=(24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1491 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1492 & *dgm(1,1)+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1493 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2))/96.d0 1494 cm(2,9,2)=gm(1,1)*gm(2,2)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,3)*dgm(1,2))& 1495 & +gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,3)*dgm(1,2))+gm(1,2)& 1496 & *(12*gm(1,3)*gm(2,2)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,2)) 1497 cm(2,10,2)=7.5d0*gm(1,3)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,3)& 1498 & *gm(3,3)*dgm(1,1)+5*gm(1,3)**3*dgm(1,2)-3*gm(1,3)*gm(3,3)*(gm(1,2)& 1499 & *dgm(1,1)+gm(1,1)*dgm(1,2)) 1500 cm(2,1,4)=gm(1,1)**2*(3*gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3)) 1501 cm(2,2,4)=12*gm(1,1)*gm(1,2)*gm(2,3)*dgm(1,1)+gm(1,1)*gm(2,2)& 1502 & *(-4.5d0*gm(1,3)*dgm(1,1)-3*gm(1,1)*dgm(1,3))+gm(1,2)**2*(1.5d0*gm(1,3)& 1503 & *dgm(1,1)+9*gm(1,1)*dgm(1,3)) 1504 cm(2,3,4)=1.5d0*gm(1,3)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)& 1505 & *dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)-3*gm(1,1)**2*gm(3,3)& 1506 & *dgm(1,3) 1507 cm(2,4,4)=gm(1,1)*gm(2,3)*(3*gm(1,3)*dgm(1,1)-6*gm(1,1)*dgm(1,3))& 1508 & +gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)+18*gm(1,1)& 1509 & *gm(1,3)*dgm(1,3)) 1510 cm(2,5,4)=gm(1,1)*(3*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(3,3)*dgm(1,1)& 1511 & +6*gm(1,1)*gm(1,3)*dgm(1,3)) 1512 cm(2,6,4)=gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(3*gm(1,3)& 1513 & *dgm(1,1)+6*gm(1,1)*dgm(1,3))) 1514 cm(2,7,4)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 1515 & *gm(2,3)*dgm(1,1)+5*gm(1,2)**3*dgm(1,3)-3*gm(1,2)*gm(2,2)*(gm(1,3)& 1516 & *dgm(1,1)+gm(1,1)*dgm(1,3)) 1517 cm(2,8,4)=gm(1,1)*gm(3,3)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,2)*dgm(1,3))& 1518 & +gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,2)*dgm(1,3))+gm(1,3)& 1519 & *(12*gm(1,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,3)) 1520 cm(2,9,4)=(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1521 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1522 & *dgm(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1523 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3))/48.d0 1524 cm(2,10,4)=4.5d0*gm(1,3)**2*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(3,3)& 1525 & **2*dgm(1,1)+5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)& 1526 & *dgm(1,3) 1527 cm(2,1,6)=gm(1,1)**3*dgm(1,1) 1528 cm(2,2,6)=gm(1,1)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 1529 cm(2,3,6)=gm(1,1)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 1530 cm(2,4,6)=(gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(1,1))& 1531 & /6.d0 1532 cm(2,5,6)=3*gm(1,1)**2*gm(1,3)*dgm(1,1) 1533 cm(2,6,6)=3*gm(1,1)**2*gm(1,2)*dgm(1,1) 1534 cm(2,7,6)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 1535 cm(2,8,6)=((-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1536 & *gm(3,3)))*dgm(1,1))/12.d0 1537 cm(2,9,6)=((90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 1538 & *gm(1,2)*gm(2,3))*dgm(1,1))/12.d0 1539 cm(2,10,6)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 1540 cm(2,1,7)=gm(1,1)*(4.5d0*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(1,2)& 1541 & *dgm(1,2)+gm(1,1)*(-1.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))) 1542 cm(2,2,7)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 1543 & +gm(1,1)*gm(2,2)*(6*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*dgm(2,2))& 1544 & +gm(1,2)**2*(3*gm(2,2)*dgm(1,1)+4.5d0*gm(1,1)*dgm(2,2)) 1545 cm(2,3,7)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)*gm(2,3)*(9*gm(1,2)& 1546 & *dgm(1,1)+24*gm(1,1)*dgm(1,2))+gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)& 1547 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2))-1.5d0*gm(1,1)& 1548 & **2*gm(3,3)*dgm(2,2)+gm(1,3)**2*(-3*gm(2,2)*dgm(1,1)+3*gm(1,2)& 1549 & *dgm(1,2)+4.5d0*gm(1,1)*dgm(2,2)) 1550 cm(2,4,7)=gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)& 1551 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2))-3*gm(1,1)& 1552 & *gm(2,3)*dgm(2,2))+gm(1,2)*(6*gm(1,1)*gm(2,3)*dgm(1,2)+gm(1,3)& 1553 & *(3*gm(2,2)*dgm(1,1)+9*gm(1,1)*dgm(2,2))) 1554 cm(2,5,7)=1.5d0*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(12*gm(2,3)& 1555 & *dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,1)*gm(2,3)*dgm(1,2)& 1556 & +gm(1,3)*(-4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 1557 cm(2,6,7)=1.5d0*gm(1,2)**3*dgm(1,1)+6*gm(1,1)*gm(1,2)**2*dgm(1,2)& 1558 & +12*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(7.5d0*gm(2,2)& 1559 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 1560 cm(2,7,7)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 1561 & +2.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 1562 & -1.5d0*gm(1,1)*dgm(2,2)) 1563 cm(2,8,7)=(3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1564 & *gm(3,3)))*dgm(1,1)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1565 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1566 & *gm(3,3)))*dgm(1,2)+(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1567 & **2-18*gm(1,1)*gm(3,3)))*dgm(2,2))/12.d0 1568 cm(2,9,7)=gm(2,3)*(3*gm(1,2)**2*dgm(1,2)-9*gm(1,1)*gm(2,2)*dgm(1,2)& 1569 & +gm(1,2)*(3*gm(2,2)*dgm(1,1)-3*gm(1,1)*dgm(2,2)))+gm(1,3)*(6*gm(2,2)& 1570 & **2*dgm(1,1)+7.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(24*gm(1,2)*dgm(1,2)& 1571 & -1.5d0*gm(1,1)*dgm(2,2))) 1572 cm(2,10,7)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1573 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,1)+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 1574 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+(90*gm(1,3)& 1575 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm(2,2))/36.d0 1576 cm(2,1,8)=gm(1,1)*(4.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)& 1577 & *dgm(1,3)+gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3))) 1578 cm(2,2,8)=-3*gm(1,3)**2*gm(2,2)*dgm(1,1)-3*gm(1,2)**2*gm(3,3)& 1579 & *dgm(1,1)+gm(1,3)*(9*gm(1,2)*gm(2,3)*dgm(1,1)+3*gm(1,2)**2*dgm(1,3)& 1580 & -9*gm(1,1)*gm(2,2)*dgm(1,3))-1.5d0*gm(1,1)**2*gm(2,2)*dgm(3,3)& 1581 & +gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 1582 & +24*gm(1,2)*gm(2,3)*dgm(1,3)+4.5d0*gm(1,2)**2*dgm(3,3)) 1583 cm(2,3,8)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 1584 & +gm(1,1)*gm(3,3)*(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))& 1585 & +gm(1,3)**2*(3*gm(3,3)*dgm(1,1)+4.5d0*gm(1,1)*dgm(3,3)) 1586 cm(2,4,8)=gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3))+gm(1,1)& 1587 & *(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(12*gm(3,3)*dgm(1,1)-3*gm(1,1)& 1588 & *dgm(3,3)))+gm(1,3)*(6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)*(3*gm(3,3)& 1589 & *dgm(1,1)+9*gm(1,1)*dgm(3,3))) 1590 cm(2,5,8)=1.5d0*gm(1,3)**3*dgm(1,1)+6*gm(1,1)*gm(1,3)**2*dgm(1,3)& 1591 & +12*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(7.5d0*gm(3,3)& 1592 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 1593 cm(2,6,8)=12*gm(1,1)*gm(2,3)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3))& 1594 & +gm(1,2)*(1.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)*dgm(1,3)& 1595 & +gm(1,1)*(-4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 1596 cm(2,7,8)=(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1597 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,1)+12*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 1598 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+2*(90*gm(1,2)& 1599 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))/72.d0 1600 cm(2,8,8)=gm(1,3)**2*(3*gm(2,3)*dgm(1,3)+7.5d0*gm(1,2)*dgm(3,3))& 1601 & +gm(1,3)*(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(3*gm(3,3)*dgm(1,1)& 1602 & -3*gm(1,1)*dgm(3,3)))+gm(3,3)*(-9*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 1603 & *(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))) 1604 cm(2,9,8)=(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1605 & *gm(3,3)))*dgm(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1606 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1607 & *gm(3,3)))*dgm(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1608 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/24.d0 1609 cm(2,10,8)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 1610 & +2.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 1611 & -1.5d0*gm(1,1)*dgm(3,3)) 1612 cm(2,1,9)=gm(1,1)*(gm(1,2)*(9*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))& 1613 & +gm(1,1)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3))) 1614 cm(2,2,9)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(3*gm(1,3)*gm(2,2)*dgm(1,1)& 1615 & +gm(1,1)*(24*gm(2,3)*dgm(1,2)+15*gm(2,2)*dgm(1,3)))+gm(1,1)*gm(2,2)& 1616 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2)-3*gm(1,1)*dgm(2,3))& 1617 & +gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2)+9*gm(1,1)& 1618 & *dgm(2,3)) 1619 cm(2,3,9)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)*(3*gm(1,2)*gm(3,3)*dgm(1,1)& 1620 & +gm(1,1)*(15*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3)))+gm(1,1)*gm(3,3)& 1621 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 1622 & +gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3)+9*gm(1,1)& 1623 & *dgm(2,3)) 1624 cm(2,4,9)=9*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(9*gm(2,2)& 1625 & *dgm(1,1)+6*gm(1,2)*dgm(1,2))+gm(1,1)*(9*gm(2,3)**2*dgm(1,1)& 1626 & +15*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 1627 & *gm(2,3)*dgm(1,3))-6*gm(1,1)**2*gm(2,3)*dgm(2,3)+gm(1,3)*(6*gm(1,2)& 1628 & **2*dgm(1,3)+gm(1,1)*(6*gm(2,3)*dgm(1,2)+24*gm(2,2)*dgm(1,3))& 1629 & +gm(1,2)*(-6*gm(2,3)*dgm(1,1)+18*gm(1,1)*dgm(2,3))) 1630 cm(2,5,9)=gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)& 1631 & +6*gm(1,1)*gm(1,3)*dgm(1,3))+gm(1,1)*(6*gm(1,3)**2*dgm(1,2)+12*gm(1,1)& 1632 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 1633 & +6*gm(1,1)*dgm(2,3))) 1634 cm(2,6,9)=gm(1,2)**2*(3*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))+12*gm(1,1)& 1635 & *(gm(1,3)*gm(2,2)*dgm(1,1)+gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)& 1636 & *dgm(1,3)))+gm(1,1)*gm(1,2)*(3*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 1637 & +gm(1,1)*dgm(2,3))) 1638 cm(2,7,9)=gm(1,3)*gm(2,2)*(-3*gm(2,2)*dgm(1,1)-6*gm(1,2)*dgm(1,2))& 1639 & -3*gm(1,1)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 1640 & **2*(15*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3))+5*gm(1,2)**3*dgm(2,3)& 1641 & +gm(1,2)*gm(2,2)*(9*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3)) 1642 cm(2,8,9)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(-9*gm(2,3)*gm(3,3)& 1643 & *dgm(1,2)-6*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))+gm(1,2)& 1644 & *gm(3,3)*(3*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3))+gm(1,3)*(3*gm(2,3)& 1645 & **2*dgm(1,1)+gm(3,3)*(12*gm(2,2)*dgm(1,1)+24*gm(1,2)*dgm(1,2))& 1646 & +gm(2,3)*(18*gm(1,2)*dgm(1,3)-6*gm(1,1)*dgm(2,3)))+gm(1,3)**2*(3*gm(2,3)& 1647 & *dgm(1,2)+15*(gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3))) 1648 cm(2,9,9)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(15*gm(3,3)& 1649 & *dgm(1,2)+3*gm(2,3)*dgm(1,3))+gm(1,1)*(-6*gm(2,3)**2*dgm(1,2)& 1650 & -3*gm(2,2)*gm(3,3)*dgm(1,2)-9*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,2)& 1651 & *(3*gm(2,3)**2*dgm(1,1)+12*gm(2,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)& 1652 & *gm(2,3)*dgm(2,3))+gm(1,3)*(gm(2,2)*(3*gm(2,3)*dgm(1,1)+24*gm(1,2)& 1653 & *dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(18*gm(2,3)*dgm(1,2)+15*gm(1,2)& 1654 & *dgm(2,3))) 1655 cm(2,10,9)=gm(1,3)**2*(9*gm(3,3)*dgm(1,2)+15*gm(2,3)*dgm(1,3))& 1656 & -3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,1)+gm(1,1)*(gm(3,3)*dgm(1,2)& 1657 & +gm(2,3)*dgm(1,3)))+5*gm(1,3)**3*dgm(2,3)+gm(1,3)*gm(3,3)*(9*gm(2,3)& 1658 & *dgm(1,1)-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)) 1659 cm(2,1,11)=2.5d0*gm(1,2)**3*dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)& 1660 & -3*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(-1.5d0*gm(2,2)& 1661 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 1662 cm(2,2,11)=6*gm(1,2)**2*gm(2,2)*dgm(1,2)+12*gm(1,1)*gm(2,2)**2*dgm(1,2)& 1663 & +1.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 1664 & +7.5d0*gm(1,1)*dgm(2,2)) 1665 cm(2,3,11)=-6*gm(1,2)**2*gm(3,3)*dgm(1,2)+gm(1,1)*(15*gm(2,3)& 1666 & **2-3*gm(2,2)*gm(3,3))*dgm(1,2)+gm(1,3)*gm(2,3)*(-3*gm(2,2)*dgm(1,1)& 1667 & +18*gm(1,2)*dgm(1,2)+12*gm(1,1)*dgm(2,2))+gm(1,3)**2*(-6*gm(2,2)& 1668 & *dgm(1,2)+1.5d0*gm(1,2)*dgm(2,2))+gm(1,2)*(7.5d0*gm(2,3)**2*dgm(1,1)& 1669 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm(2,2)) 1670 cm(2,4,11)=gm(2,3)*(6*gm(1,2)**2*dgm(1,2)+24*gm(1,1)*gm(2,2)*dgm(1,2)& 1671 & +gm(1,2)*(9*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,3)*(-3*gm(2,2)& 1672 & **2*dgm(1,1)+3*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 1673 & +12*gm(1,1)*dgm(2,2))) 1674 cm(2,5,11)=gm(1,2)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2))& 1675 & +gm(1,1)*(gm(2,2)*(-1.5d0*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2))& 1676 & +6*gm(1,1)*gm(2,3)*dgm(2,2))+gm(1,2)*(24*gm(1,1)*gm(2,3)*dgm(1,2)& 1677 & +gm(1,3)*(-3*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 1678 cm(2,6,11)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 1679 & +gm(1,2)**2*(4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))+gm(1,1)& 1680 & *gm(2,2)*(-1.5d0*gm(2,2)*dgm(1,1)+6*gm(1,1)*dgm(2,2)) 1681 cm(2,7,11)=gm(2,2)*(1*gm(2,2)**2*dgm(1,1)+4.5d0*gm(1,2)**2*dgm(2,2)& 1682 & +gm(2,2)*(6*gm(1,2)*dgm(1,2)-1.5d0*gm(1,1)*dgm(2,2))) 1683 cm(2,8,11)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 1684 & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1685 & *gm(3,3)))*dgm(1,2)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1686 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1687 & *gm(3,3)))*dgm(2,2))/12.d0 1688 cm(2,9,11)=gm(2,2)**2*(3*gm(2,3)*dgm(1,1)+12*gm(1,3)*dgm(1,2))& 1689 & +1.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)*(-4.5d0*gm(1,1)*gm(2,3)& 1690 & *dgm(2,2)+gm(1,2)*(6*gm(2,3)*dgm(1,2)+12*gm(1,3)*dgm(2,2))) 1691 cm(2,10,11)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,1)& 1692 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1693 & *gm(3,3)))*dgm(1,2)+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 1694 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2))/36.d0 1695 cm(2,1,12)=gm(1,1)*(9*gm(1,3)**2*dgm(1,2)+gm(1,1)*(-3*gm(3,3)& 1696 & *dgm(1,2)-6*gm(2,3)*dgm(1,3))+gm(1,3)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,1)& 1697 & *dgm(2,3)))+gm(1,2)*(7.5d0*gm(1,3)**2*dgm(1,1)+18*gm(1,1)*gm(1,3)& 1698 & *dgm(1,3)+gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 1699 cm(2,2,12)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(-6*gm(3,3)& 1700 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,1)*(15*gm(2,3)**2*dgm(1,2)& 1701 & -3*gm(2,2)*gm(3,3)*dgm(1,2)+24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)& 1702 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)-9*gm(1,1)*dgm(2,3))& 1703 & +gm(1,2)*(18*gm(2,3)*dgm(1,2)+3*gm(1,2)*dgm(2,3)))+1.5d0*gm(1,2)& 1704 & **3*dgm(3,3)+gm(1,2)*(1.5d0*gm(2,3)**2*dgm(1,1)-4.5d0*gm(2,2)& 1705 & *gm(3,3)*dgm(1,1)+24*gm(1,1)*gm(2,3)*dgm(2,3)+7.5d0*gm(1,1)*gm(2,2)& 1706 & *dgm(3,3)) 1707 cm(2,3,12)=3*gm(1,3)**3*dgm(2,3)+gm(1,3)**2*(6*gm(3,3)*dgm(1,2)& 1708 & +6*gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(gm(1,1)& 1709 & *(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))+gm(1,2)*(6*gm(3,3)& 1710 & *dgm(1,1)-4.5d0*gm(1,1)*dgm(3,3)))+gm(1,3)*(gm(3,3)*(6*gm(1,2)& 1711 & *dgm(1,3)+15*gm(1,1)*dgm(2,3))+gm(2,3)*(3*gm(3,3)*dgm(1,1)+12*gm(1,1)& 1712 & *dgm(3,3))) 1713 cm(2,4,12)=18*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)& 1714 & *gm(3,3)*dgm(1,2)+18*gm(2,3)**2*dgm(1,3)+30*gm(2,2)*gm(3,3)*dgm(1,3))& 1715 & +gm(1,3)**2*(6*gm(2,3)*dgm(1,2)+18*gm(2,2)*dgm(1,3)+6*gm(1,2)& 1716 & *dgm(2,3))+gm(1,2)*(24*gm(1,1)*gm(3,3)*dgm(2,3)+3*gm(2,3)*(gm(3,3)& 1717 & *dgm(1,1)+gm(1,1)*dgm(3,3)))+gm(1,3)*(3*gm(2,3)**2*dgm(1,1)+gm(2,3)& 1718 & *(-12*gm(1,2)*dgm(1,3)+6*gm(1,1)*dgm(2,3))+12*gm(2,2)*(gm(3,3)& 1719 & *dgm(1,1)+gm(1,1)*dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,2)+3*gm(1,2)& 1720 & *dgm(3,3))) 1721 cm(2,5,12)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)& 1722 & +6*(gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)))+gm(1,3)*(gm(1,1)*(15*gm(3,3)& 1723 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,2)*(12*gm(3,3)*dgm(1,1)+3*gm(1,1)& 1724 & *dgm(3,3)))+gm(1,1)*(gm(3,3)*(24*gm(1,2)*dgm(1,3)+12*gm(1,1)& 1725 & *dgm(2,3))+gm(2,3)*(-4.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 1726 cm(2,6,12)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(7.5d0*gm(2,2)& 1727 & *dgm(1,1)+3*gm(1,2)*dgm(1,2))+gm(1,3)*(6*gm(1,2)**2*dgm(1,3)& 1728 & +24*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 1729 & *dgm(1,1)+6*gm(1,1)*dgm(2,3)))+gm(1,1)*(-3*gm(2,3)**2*dgm(1,1)& 1730 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 1731 & *gm(2,3)*dgm(1,3)+3*gm(1,2)**2*dgm(3,3))+gm(1,1)**2*(12*gm(2,3)& 1732 & *dgm(2,3)+6*gm(2,2)*dgm(3,3)) 1733 cm(2,7,12)=15*gm(1,2)*gm(2,3)*(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))& 1734 & +gm(2,2)**2*(-1.5d0*gm(3,3)*dgm(1,1)-6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)& 1735 & *dgm(3,3))+gm(2,2)*(4.5d0*gm(2,3)**2*dgm(1,1)+gm(2,3)*(-6*gm(1,3)& 1736 & *dgm(1,2)+18*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(-3*gm(3,3)& 1737 & *dgm(1,2)-6*gm(1,3)*dgm(2,3)+4.5d0*gm(1,2)*dgm(3,3))) 1738 cm(2,8,12)=gm(2,3)**2*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)*dgm(1,3)-3*gm(1,1)& 1739 & *dgm(3,3))+gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 1740 & -3*gm(1,2)*dgm(3,3))+gm(2,2)*(6*gm(3,3)**2*dgm(1,1)+24*gm(1,3)& 1741 & *gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)*gm(3,3)& 1742 & *dgm(3,3))+gm(2,3)*(3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(6*gm(1,2)& 1743 & *dgm(1,3)-9*gm(1,1)*dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 1744 & *dgm(3,3))) 1745 cm(2,9,12)=1.5d0*gm(2,3)**3*dgm(1,1)-6*gm(1,3)**2*gm(2,2)*dgm(2,3)& 1746 & +gm(2,3)**2*(3*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-6*gm(1,1)& 1747 & *dgm(2,3))+gm(3,3)*(24*gm(1,2)*gm(2,2)*dgm(1,3)+15*gm(1,2)**2*dgm(2,3)& 1748 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(1,3)*gm(2,2)*(-9*gm(3,3)*dgm(1,2)& 1749 & +12*gm(1,2)*dgm(3,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)*dgm(1,1)& 1750 & +6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))+gm(1,2)*(24*gm(3,3)& 1751 & *dgm(1,2)+18*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))) 1752 cm(2,10,12)=gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+7.5d0*gm(1,3)**2*dgm(3,3)& 1753 & +gm(3,3)*(18*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3)))+gm(3,3)& 1754 & *(9*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)& 1755 & *dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)-3*gm(1,2)*dgm(3,3))) 1756 cm(2,1,13)=gm(1,2)**2*(7.5d0*gm(1,3)*dgm(1,1)+9*gm(1,1)*dgm(1,3))& 1757 & +gm(1,1)*(gm(1,1)*(-6*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3))+gm(1,3)& 1758 & *(-1.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,1)*gm(1,2)& 1759 & *(-3*gm(2,3)*dgm(1,1)+18*gm(1,3)*dgm(1,2)+6*gm(1,1)*dgm(2,3)) 1760 cm(2,2,13)=6*gm(1,2)**2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,1)& 1761 & *gm(2,2)*(24*gm(2,3)*dgm(1,2)+12*gm(2,2)*dgm(1,3))+gm(1,3)*(6*gm(2,2)& 1762 & **2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 1763 & -4.5d0*gm(1,1)*dgm(2,2)))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(3*gm(2,2)& 1764 & *gm(2,3)*dgm(1,1)+12*gm(1,1)*gm(2,3)*dgm(2,2)+15*gm(1,1)*gm(2,2)& 1765 & *dgm(2,3)) 1766 cm(2,3,13)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)& 1767 & *gm(3,3)*dgm(1,2)+15*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))& 1768 & +1.5d0*gm(1,3)**3*dgm(2,2)+gm(1,2)*gm(3,3)*(12*gm(2,3)*dgm(1,1)& 1769 & -9*gm(1,1)*dgm(2,3))+gm(1,3)**2*(6*gm(2,3)*dgm(1,2)-6*gm(2,2)& 1770 & *dgm(1,3)+3*gm(1,2)*dgm(2,3))+gm(1,3)*(1.5d0*gm(2,3)**2*dgm(1,1)& 1771 & +gm(3,3)*(-4.5d0*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)+7.5d0*gm(1,1)& 1772 & *dgm(2,2))+gm(2,3)*(18*gm(1,2)*dgm(1,3)+24*gm(1,1)*dgm(2,3))) 1773 cm(2,4,13)=gm(1,2)**2*(18*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3))& 1774 & +gm(1,1)*(18*gm(2,3)**2*dgm(1,2)+30*gm(2,2)*gm(3,3)*dgm(1,2)& 1775 & +24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(18*gm(2,2)*dgm(1,2)& 1776 & +3*gm(1,2)*dgm(2,2))+gm(1,2)*(3*gm(2,3)**2*dgm(1,1)+12*gm(3,3)& 1777 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))+6*gm(1,1)*gm(2,3)*dgm(2,3))& 1778 & +gm(1,3)*(-12*gm(1,2)*gm(2,3)*dgm(1,2)+3*gm(1,1)*gm(2,3)*dgm(2,2)& 1779 & +6*gm(1,2)**2*dgm(2,3)+gm(2,2)*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)& 1780 & *dgm(1,3)+24*gm(1,1)*dgm(2,3))) 1781 cm(2,5,13)=7.5d0*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,1)*(-3*gm(2,3)& 1782 & **2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)& 1783 & *dgm(1,2)+24*gm(1,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(-3*gm(2,2)& 1784 & *dgm(1,1)+6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,1)**2*(6*gm(3,3)& 1785 & *dgm(2,2)+12*gm(2,3)*dgm(2,3))+gm(1,3)*(3*gm(1,2)**2*dgm(1,3)& 1786 & +gm(1,1)*(6*gm(2,3)*dgm(1,2)-9*gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 1787 & *dgm(1,1)+6*gm(1,1)*dgm(2,3))) 1788 cm(2,6,13)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(gm(1,1)*(6*gm(2,3)*dgm(1,2)& 1789 & +15*gm(2,2)*dgm(1,3))+gm(1,3)*(12*gm(2,2)*dgm(1,1)+3*gm(1,1)& 1790 & *dgm(2,2)))+gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 1791 & +gm(1,1)*dgm(2,3)))+gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(2,2)+gm(2,2)& 1792 & *(-4.5d0*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2)+12*gm(1,1)*dgm(2,3))) 1793 cm(2,7,13)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)**2*(3*gm(2,3)& 1794 & *dgm(1,1)-6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 1795 & +gm(2,2)*(-1.5d0*gm(1,1)*gm(2,3)*dgm(2,2)+gm(1,2)*(18*gm(2,3)& 1796 & *dgm(1,2)-3*gm(1,3)*dgm(2,2))+9*gm(1,2)**2*dgm(2,3)) 1797 cm(2,8,13)=1.5d0*gm(2,3)**3*dgm(1,1)+gm(1,3)*gm(3,3)*(24*gm(2,2)& 1798 & *dgm(1,2)+12*gm(1,2)*dgm(2,2))+15*gm(1,3)**2*gm(2,2)*dgm(2,3)& 1799 & +gm(2,3)**2*(6*gm(1,3)*dgm(1,2)+3*gm(1,2)*dgm(1,3)-6*gm(1,1)& 1800 & *dgm(2,3))+gm(3,3)*(-9*gm(1,2)*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*dgm(2,3)& 1801 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)& 1802 & *dgm(1,1)+24*gm(1,3)*dgm(1,3))+(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)& 1803 & *gm(3,3))*dgm(2,2)+gm(1,2)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3))) 1804 cm(2,9,13)=gm(2,2)**2*(6*gm(3,3)*dgm(1,1)+12*gm(1,3)*dgm(1,3))& 1805 & -3*gm(1,1)*gm(2,3)**2*dgm(2,2)+gm(1,2)*gm(2,3)*(6*gm(2,3)*dgm(1,2)& 1806 & +9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(7.5d0*gm(3,3)*dgm(2,2)+3*gm(2,3)& 1807 & *dgm(2,3))+gm(2,2)*(3*gm(2,3)**2*dgm(1,1)+(-3*gm(1,3)**2-1.5d0*gm(1,1)& 1808 & *gm(3,3))*dgm(2,2)+gm(2,3)*(6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)& 1809 & -9*gm(1,1)*dgm(2,3))+24*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 1810 cm(2,10,13)=gm(2,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+15*gm(1,3)*dgm(1,3))& 1811 & +gm(2,3)*(18*gm(1,3)*gm(3,3)*dgm(1,2)+15*gm(1,3)**2*dgm(2,3)& 1812 & +gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)))+gm(3,3)*(gm(2,2)& 1813 & *(-1.5d0*gm(3,3)*dgm(1,1)-3*gm(1,3)*dgm(1,3))+(4.5d0*gm(1,3)& 1814 & **2-1.5d0*gm(1,1)*gm(3,3))*dgm(2,2)-6*gm(1,2)*(gm(3,3)*dgm(1,2)& 1815 & +gm(1,3)*dgm(2,3))) 1816 cm(2,1,14)=2.5d0*gm(1,3)**3*dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)& 1817 & -3*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(-1.5d0*gm(3,3)& 1818 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 1819 cm(2,2,14)=-6*gm(1,3)**2*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*gm(3,3)& 1820 & *dgm(1,3)+gm(1,1)*(15*gm(2,3)**2-3*gm(2,2)*gm(3,3))*dgm(1,3)& 1821 & +gm(1,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))+gm(1,3)& 1822 & *(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+18*gm(1,2)& 1823 & *gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)**2*dgm(3,3)-4.5d0*gm(1,1)*gm(2,2)& 1824 & *dgm(3,3)) 1825 cm(2,3,14)=6*gm(1,3)**2*gm(3,3)*dgm(1,3)+12*gm(1,1)*gm(3,3)**2*dgm(1,3)& 1826 & +1.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 1827 & +7.5d0*gm(1,1)*dgm(3,3)) 1828 cm(2,4,14)=gm(1,3)**2*(6*gm(2,3)*dgm(1,3)+3*gm(1,2)*dgm(3,3))& 1829 & +gm(1,3)*(6*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(9*gm(3,3)*dgm(1,1)& 1830 & +3*gm(1,1)*dgm(3,3)))+gm(3,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 1831 & *(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))) 1832 cm(2,5,14)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 1833 & +gm(1,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))+gm(1,1)& 1834 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3)) 1835 cm(2,6,14)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3))& 1836 & +gm(1,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)*(-3*gm(3,3)*dgm(1,1)& 1837 & +3*gm(1,1)*dgm(3,3)))+gm(1,1)*(-9*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)& 1838 & *(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 1839 cm(2,7,14)=(180*gm(2,3)**3*dgm(1,1)+1080*gm(1,2)*gm(2,3)**2*dgm(1,3)& 1840 & -216*gm(1,2)*gm(2,2)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))+gm(2,3)& 1841 & *(540*gm(1,2)**2*dgm(3,3)+gm(2,2)*(-108*gm(3,3)*dgm(1,1)-432*gm(1,3)& 1842 & *dgm(1,3)-108*gm(1,1)*dgm(3,3))))/72.d0 1843 cm(2,8,14)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))& 1844 & +gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 1845 & *(6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))) 1846 cm(2,9,14)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 1847 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1848 & *gm(3,3)))*dgm(1,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1849 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1850 & *gm(3,3)))*dgm(3,3))/24.d0 1851 cm(2,10,14)=gm(3,3)*(1*gm(3,3)**2*dgm(1,1)+4.5d0*gm(1,3)**2*dgm(3,3)& 1852 & +gm(3,3)*(6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3))) 1853 cm(2,1,16)=5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 1854 & +4.5d0*gm(1,1)*gm(1,2)**2*dgm(2,2)-1.5d0*gm(1,1)**2*gm(2,2)*dgm(2,2) 1855 cm(2,2,16)=gm(2,2)*(6*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)& 1856 & +6*gm(1,1)*gm(2,2)*dgm(2,2)) 1857 cm(2,3,16)=(40*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1858 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,2)+60*(-12*gm(1,3)**2*gm(2,2)& 1859 & +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)& 1860 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,2))/240.d0 1861 cm(2,4,16)=gm(1,3)*gm(2,2)*(-6*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))& 1862 & +gm(2,3)*(18*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)+12*gm(1,1)& 1863 & *gm(2,2)*dgm(2,2)) 1864 cm(2,5,16)=(40*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1865 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,2)+60*(6*gm(1,2)**2*gm(1,3)& 1866 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(2,2))& 1867 & /240.d0 1868 cm(2,6,16)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 1869 & +1.5d0*gm(1,2)**3*dgm(2,2)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)*dgm(2,2) 1870 cm(2,7,16)=gm(2,2)**2*(2*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2)) 1871 cm(2,8,16)=-3*gm(2,2)**2*gm(3,3)*dgm(1,2)+1.5d0*gm(1,2)*gm(2,3)& 1872 & **2*dgm(2,2)+gm(2,2)*(9*gm(2,3)**2*dgm(1,2)+12*gm(1,3)*gm(2,3)& 1873 & *dgm(2,2)-4.5d0*gm(1,2)*gm(3,3)*dgm(2,2)) 1874 cm(2,9,16)=gm(2,2)*(3*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)*(gm(2,3)& 1875 & *dgm(1,2)+gm(1,3)*dgm(2,2))) 1876 cm(2,10,16)=5*gm(2,3)**3*dgm(1,2)+7.5d0*gm(1,3)*gm(2,3)**2*dgm(2,2)& 1877 & -1.5d0*gm(1,3)*gm(2,2)*gm(3,3)*dgm(2,2)-3*gm(2,3)*gm(3,3)*(gm(2,2)& 1878 & *dgm(1,2)+gm(1,2)*dgm(2,2)) 1879 cm(2,1,17)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1880 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1881 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3)+gm(1,1)& 1882 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)+4*gm(1,1)*(54*gm(1,2)& 1883 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 1884 & *gm(2,2))*dgm(3,3))/12.d0 1885 cm(2,2,17)=(2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1886 & *gm(3,3)))*dgm(1,2)+2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 1887 & *gm(2,3))*dgm(1,3)+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1888 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 1889 & *gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1890 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 1891 & *gm(2,2))*dgm(3,3))/4.d0 1892 cm(2,3,17)=gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))& 1893 & -3*gm(1,2)**2*gm(3,3)*dgm(3,3)+gm(1,3)**2*(3*gm(3,3)*dgm(2,2)& 1894 & +6*gm(2,3)*dgm(2,3)-3*gm(2,2)*dgm(3,3))+gm(1,1)*(6*gm(3,3)**2*dgm(2,2)& 1895 & +24*gm(2,3)*gm(3,3)*dgm(2,3)+7.5d0*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)& 1896 & *gm(3,3)*dgm(3,3))+gm(1,3)*(3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-9*gm(2,2)& 1897 & *dgm(1,3)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 1898 & *dgm(3,3))) 1899 cm(2,4,17)=(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1900 & *gm(3,3)))*dgm(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1901 & **2+24*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1902 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+4*(9*gm(1,3)& 1903 & **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)& 1904 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)*gm(1,3)& 1905 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 1906 & /2.d0 1907 cm(2,5,17)=(2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1908 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+2*(-12*gm(1,3)**2*gm(2,2)& 1909 & +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)& 1910 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 1911 & *gm(3,3))*dgm(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1912 & **2+24*gm(1,1)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1913 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/4.d0 1914 cm(2,6,17)=(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1915 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1916 & *dgm(1,2)+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1917 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)& 1918 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)& 1919 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 1920 & *dgm(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))& 1921 & /4.d0 1922 cm(2,7,17)=7.5d0*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)*(9*gm(2,3)& 1923 & **2*dgm(1,2)-1.5d0*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(-3*gm(1,3)& 1924 & *dgm(2,2)+18*gm(1,2)*dgm(2,3)))+gm(2,2)**2*(-3*gm(3,3)*dgm(1,2)& 1925 & +6*gm(2,3)*dgm(1,3)-6*gm(1,3)*dgm(2,3)+3*gm(1,2)*dgm(3,3)) 1926 cm(2,8,17)=3*gm(2,3)**3*dgm(1,3)+gm(2,3)**2*(6*gm(3,3)*dgm(1,2)& 1927 & +6*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(6*gm(1,2)& 1928 & *gm(3,3)*dgm(2,2)+gm(2,2)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 1929 & -4.5d0*gm(1,2)*dgm(3,3)))+gm(2,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)& 1930 & +6*gm(1,2)*dgm(2,3))+gm(2,2)*(15*gm(3,3)*dgm(1,3)+12*gm(1,3)& 1931 & *dgm(3,3))) 1932 cm(2,9,17)=3*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(6*gm(2,2)*dgm(1,3)& 1933 & +1.5d0*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(12*gm(1,2)& 1934 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 1935 & +3*gm(1,2)*dgm(3,3)))+gm(2,2)*(gm(3,3)*(-4.5d0*gm(1,3)*dgm(2,2)& 1936 & +24*gm(1,2)*dgm(2,3))+gm(2,2)*(12*gm(3,3)*dgm(1,3)+6*gm(1,3)& 1937 & *dgm(3,3))) 1938 cm(2,10,17)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3)& 1939 & -3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)& 1940 & *dgm(3,3))+gm(3,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))& 1941 & +gm(2,2)*(-3*gm(3,3)*dgm(1,3)-1.5d0*gm(1,3)*dgm(3,3))) 1942 cm(2,1,18)=5*gm(1,2)**3*dgm(1,3)+gm(1,1)*gm(1,2)*(-6*gm(2,3)*dgm(1,2)& 1943 & -3*gm(2,2)*dgm(1,3)+9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(15*gm(1,3)& 1944 & *dgm(1,2)+9*gm(1,1)*dgm(2,3))-3*gm(1,1)*(gm(1,3)*gm(2,2)*dgm(1,2)& 1945 & +gm(1,1)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))) 1946 cm(2,2,18)=6*gm(1,2)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))& 1947 & +gm(1,3)*gm(2,2)*(12*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))+12*gm(1,1)& 1948 & *gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))+gm(1,2)**2*(3*gm(2,3)& 1949 & *dgm(2,2)+6*gm(2,2)*dgm(2,3)) 1950 cm(2,3,18)=(3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 1951 & *gm(3,3)))*dgm(1,2)+(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1952 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1953 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+3*(-12*gm(1,3)& 1954 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1955 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm(2,3))/6.d0 1956 cm(2,4,18)=gm(1,2)*(6*gm(2,3)**2*dgm(1,2)+24*gm(2,2)*gm(3,3)*dgm(1,2)& 1957 & +18*gm(2,2)*gm(2,3)*dgm(1,3))+9*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)& 1958 & **2*(9*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3))+gm(1,1)*(9*gm(2,3)& 1959 & **2*dgm(2,2)+15*gm(2,2)*gm(3,3)*dgm(2,2)+24*gm(2,2)*gm(2,3)*dgm(2,3))& 1960 & +gm(1,3)*(-6*gm(2,2)**2*dgm(1,3)-6*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)& 1961 & *(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))) 1962 cm(2,5,18)=(3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1963 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1964 & *dgm(1,2)+(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1965 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)& 1966 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm(2,2)+3*(6*gm(1,2)& 1967 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 1968 & *dgm(2,3))/6.d0 1969 cm(2,6,18)=gm(1,2)**2*(3*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3)+3*gm(1,3)& 1970 & *dgm(2,2))+gm(1,1)*gm(2,2)*(-9*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3)& 1971 & +12*gm(1,3)*dgm(2,2))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(24*gm(1,3)& 1972 & *gm(2,2)*dgm(1,2)+gm(1,1)*(3*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))) 1973 cm(2,7,18)=gm(2,2)*(2*gm(2,2)**2*dgm(1,3)+9*gm(1,2)*gm(2,3)*dgm(2,2)& 1974 & +gm(2,2)*(6*gm(2,3)*dgm(1,2)-3*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))) 1975 cm(2,8,18)=3*gm(2,3)**3*dgm(1,2)+gm(2,2)*gm(3,3)*(-3*gm(2,2)*dgm(1,3)& 1976 & +12*gm(1,3)*dgm(2,2)-9*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(2,2)& 1977 & *dgm(1,3)+3*(gm(1,3)*dgm(2,2)+gm(1,2)*dgm(2,3)))+gm(2,3)*(3*gm(1,2)& 1978 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3))) 1979 cm(2,9,18)=3*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)**2*(12*gm(3,3)& 1980 & *dgm(1,2)+6*gm(2,3)*dgm(1,3)+12*gm(1,3)*dgm(2,3))+gm(2,2)*(6*gm(2,3)& 1981 & **2*dgm(1,2)+12*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(3*gm(1,3)*dgm(2,2)& 1982 & +6*gm(1,2)*dgm(2,3))) 1983 cm(2,10,18)=5*gm(2,3)**3*dgm(1,3)+gm(2,3)*gm(3,3)*(-3*gm(2,2)& 1984 & *dgm(1,3)+9*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(3,3)& 1985 & *dgm(1,2)+15*gm(1,3)*dgm(2,3))-3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,2)& 1986 & +gm(2,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 1987 cm(2,1,19)=5*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(15*gm(1,2)*dgm(1,3)& 1988 & +9*gm(1,1)*dgm(2,3))+gm(1,1)*gm(1,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(2,3)& 1989 & *dgm(1,3)+9*gm(1,2)*dgm(3,3))-3*gm(1,1)*(gm(1,2)*gm(3,3)*dgm(1,3)& 1990 & +gm(1,1)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))) 1991 cm(2,2,19)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1992 & *gm(3,3)))*dgm(1,2)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1993 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1994 & *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)& 1995 & *gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1996 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))/6.d0 1997 cm(2,3,19)=gm(1,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3)& 1998 & +3*gm(1,2)*dgm(3,3))+gm(1,3)**2*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)& 1999 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,3)+gm(1,1)*(gm(3,3)& 2000 & *dgm(2,3)+gm(2,3)*dgm(3,3))) 2001 cm(2,4,19)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(1,2)& 2002 & +3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2003 & *gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 2004 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+3*(9*gm(1,3)**2*gm(2,2)& 2005 & -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)& 2006 & **2+15*gm(2,2)*gm(3,3)))*dgm(3,3))/3.d0 2007 cm(2,5,19)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(1,2)& 2008 & +3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2009 & *gm(2,3)*gm(3,3))*dgm(1,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 2010 & *gm(3,3))*dgm(2,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2011 & **2+24*gm(1,1)*gm(3,3)))*dgm(3,3))/6.d0 2012 cm(2,6,19)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2013 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+3*(30*gm(1,3)**2*gm(2,2)& 2014 & +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)& 2015 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)& 2016 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)& 2017 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2018 & *dgm(3,3))/6.d0 2019 cm(2,7,19)=5*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(9*gm(2,2)*dgm(1,3)& 2020 & +15*gm(1,2)*dgm(2,3))+gm(2,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(1,3)& 2021 & *dgm(2,3)+9*gm(1,2)*dgm(3,3))-3*gm(2,2)*(gm(1,2)*gm(3,3)*dgm(2,3)& 2022 & +gm(2,2)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))) 2023 cm(2,8,19)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 2024 & +3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)& 2025 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,2)*(gm(3,3)& 2026 & *dgm(1,3)+gm(1,3)*dgm(3,3))) 2027 cm(2,9,19)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,2)& 2028 & +3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,3)+3*(48*gm(1,2)& 2029 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(2,3)& 2030 & +3*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 2031 & *gm(3,3)))*dgm(3,3))/6.d0 2032 cm(2,10,19)=gm(3,3)*(2*gm(3,3)**2*dgm(1,2)+9*gm(1,3)*gm(2,3)*dgm(3,3)& 2033 & +gm(3,3)*(6*gm(2,3)*dgm(1,3)+6*gm(1,3)*dgm(2,3)-3*gm(1,2)*dgm(3,3))) 2034 cm(2,1,20)=5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 2035 & +4.5d0*gm(1,1)*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)**2*gm(3,3)*dgm(3,3) 2036 cm(2,2,20)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2037 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+12*(-12*gm(1,3)**2*gm(2,2)& 2038 & +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)& 2039 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/48.d0 2040 cm(2,3,20)=gm(3,3)*(6*gm(1,3)*gm(3,3)*dgm(1,3)+3*gm(1,3)**2*dgm(3,3)& 2041 & +6*gm(1,1)*gm(3,3)*dgm(3,3)) 2042 cm(2,4,20)=3*gm(1,3)**2*gm(2,3)*dgm(3,3)+gm(1,3)*gm(3,3)*(18*gm(2,3)& 2043 & *dgm(1,3)+3*gm(1,2)*dgm(3,3))+gm(3,3)*(-6*gm(1,2)*gm(3,3)*dgm(1,3)& 2044 & +12*gm(1,1)*gm(2,3)*dgm(3,3)) 2045 cm(2,5,20)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 2046 & +1.5d0*gm(1,3)**3*dgm(3,3)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*dgm(3,3) 2047 cm(2,6,20)=(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2048 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,3)+12*(48*gm(1,1)*gm(1,3)& 2049 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(3,3))& 2050 & /48.d0 2051 cm(2,7,20)=5*gm(2,3)**3*dgm(1,3)+7.5d0*gm(1,2)*gm(2,3)**2*dgm(3,3)& 2052 & -1.5d0*gm(1,2)*gm(2,2)*gm(3,3)*dgm(3,3)-3*gm(2,2)*gm(2,3)*(gm(3,3)& 2053 & *dgm(1,3)+gm(1,3)*dgm(3,3)) 2054 cm(2,8,20)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(6*gm(3,3)& 2055 & *dgm(1,3)+3*gm(1,3)*dgm(3,3))) 2056 cm(2,9,20)=12*gm(1,2)*gm(2,3)*gm(3,3)*dgm(3,3)+gm(2,2)*gm(3,3)& 2057 & *(-3*gm(3,3)*dgm(1,3)-4.5d0*gm(1,3)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)& 2058 & *dgm(1,3)+1.5d0*gm(1,3)*dgm(3,3)) 2059 cm(2,10,20)=gm(3,3)**2*(2*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 2060 cm(2,1,22)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 2061 cm(2,2,22)=3*gm(1,2)*gm(2,2)**2*dgm(2,2) 2062 cm(2,3,22)=((-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2063 & *gm(3,3)))*dgm(2,2))/12.d0 2064 cm(2,4,22)=(gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm(2,2))& 2065 & /6.d0 2066 cm(2,5,22)=((-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2067 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,2))/12.d0 2068 cm(2,6,22)=gm(2,2)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 2069 cm(2,7,22)=gm(2,2)**3*dgm(2,2) 2070 cm(2,8,22)=gm(2,2)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 2071 cm(2,9,22)=3*gm(2,2)**2*gm(2,3)*dgm(2,2) 2072 cm(2,10,22)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 2073 cm(2,1,23)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2074 & **2-18*gm(1,1)*gm(3,3)))*dgm(2,2)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2075 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(2,3)+(90*gm(1,2)& 2076 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))/36.d0 2077 cm(2,2,23)=12*gm(1,3)*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))& 2078 & +gm(1,2)*(1.5d0*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)*dgm(2,3)& 2079 & +gm(2,2)*(-4.5d0*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3))) 2080 cm(2,3,23)=gm(1,3)*(3*gm(2,3)**2*dgm(2,3)-9*gm(2,2)*gm(3,3)*dgm(2,3)& 2081 & +gm(2,3)*(3*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(3,3)& 2082 & **2*dgm(2,2)+7.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)*(24*gm(2,3)*dgm(2,3)& 2083 & -1.5d0*gm(2,2)*dgm(3,3))) 2084 cm(2,4,23)=gm(1,3)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)*dgm(2,3)& 2085 & +gm(2,2)*(12*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(2,3)& 2086 & **2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)+gm(2,3)*(3*gm(3,3)*dgm(2,2)& 2087 & +9*gm(2,2)*dgm(3,3))) 2088 cm(2,5,23)=(3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 2089 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+6*(-12*gm(1,3)**2*gm(2,2)& 2090 & +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)& 2091 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,3)+(-36*gm(1,2)*gm(1,3)*gm(2,2)& 2092 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 2093 & /12.d0 2094 cm(2,6,23)=7.5d0*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)*gm(1,3)*(9*gm(2,3)& 2095 & *dgm(2,2)+24*gm(2,2)*dgm(2,3))+gm(1,2)**2*(-3*gm(3,3)*dgm(2,2)& 2096 & +3*gm(2,3)*dgm(2,3)+4.5d0*gm(2,2)*dgm(3,3))+gm(1,1)*(-3*gm(2,3)& 2097 & **2*dgm(2,2)-9*gm(2,2)*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*(gm(3,3)& 2098 & *dgm(2,2)+gm(2,2)*dgm(3,3))) 2099 cm(2,7,23)=gm(2,2)*(4.5d0*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)& 2100 & *dgm(2,3)+gm(2,2)*(-1.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3))) 2101 cm(2,8,23)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2102 & +gm(2,2)*gm(3,3)*(6*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*dgm(3,3))& 2103 & +gm(2,3)**2*(3*gm(3,3)*dgm(2,2)+4.5d0*gm(2,2)*dgm(3,3)) 2104 cm(2,9,23)=1.5d0*gm(2,3)**3*dgm(2,2)+6*gm(2,2)*gm(2,3)**2*dgm(2,3)& 2105 & +12*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(7.5d0*gm(3,3)& 2106 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 2107 cm(2,10,23)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2108 & +2.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 2109 & -1.5d0*gm(2,2)*dgm(3,3)) 2110 cm(2,1,24)=7.5d0*gm(1,2)**2*gm(1,3)*dgm(2,2)-1.5d0*gm(1,1)*gm(1,3)& 2111 & *gm(2,2)*dgm(2,2)+5*gm(1,2)**3*dgm(2,3)-3*gm(1,1)*gm(1,2)*(gm(2,3)& 2112 & *dgm(2,2)+gm(2,2)*dgm(2,3)) 2113 cm(2,2,24)=gm(2,2)*(6*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(3*gm(2,3)& 2114 & *dgm(2,2)+6*gm(2,2)*dgm(2,3))) 2115 cm(2,3,24)=gm(1,3)*(1.5d0*gm(2,3)**2*dgm(2,2)-4.5d0*gm(2,2)*gm(3,3)& 2116 & *dgm(2,2)-6*gm(2,2)*gm(2,3)*dgm(2,3))+gm(1,2)*(12*gm(2,3)*gm(3,3)& 2117 & *dgm(2,2)+15*gm(2,3)**2*dgm(2,3)-3*gm(2,2)*gm(3,3)*dgm(2,3)) 2118 cm(2,4,24)=gm(1,3)*gm(2,2)*(3*gm(2,3)*dgm(2,2)-6*gm(2,2)*dgm(2,3))& 2119 & +gm(1,2)*(3*gm(2,3)**2*dgm(2,2)+12*gm(2,2)*gm(3,3)*dgm(2,2)+18*gm(2,2)& 2120 & *gm(2,3)*dgm(2,3)) 2121 cm(2,5,24)=(60*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2122 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2123 & *dgm(2,2)+40*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2124 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3))/240.d0 2125 cm(2,6,24)=12*gm(1,2)*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,1)*gm(2,2)& 2126 & *(-4.5d0*gm(2,3)*dgm(2,2)-3*gm(2,2)*dgm(2,3))+gm(1,2)**2*(1.5d0*gm(2,3)& 2127 & *dgm(2,2)+9*gm(2,2)*dgm(2,3)) 2128 cm(2,7,24)=gm(2,2)**2*(3*gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3)) 2129 cm(2,8,24)=1.5d0*gm(2,3)**3*dgm(2,2)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)& 2130 & *dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)-3*gm(2,2)**2*gm(3,3)& 2131 & *dgm(2,3) 2132 cm(2,9,24)=gm(2,2)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(3,3)*dgm(2,2)& 2133 & +6*gm(2,2)*gm(2,3)*dgm(2,3)) 2134 cm(2,10,24)=4.5d0*gm(2,3)**2*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*gm(3,3)& 2135 & **2*dgm(2,2)+5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)& 2136 & *dgm(2,3) 2137 cm(2,1,25)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm(2,2)& 2138 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2139 & *gm(3,3)))*dgm(2,3)+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2140 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/36.d0 2141 cm(2,2,25)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2142 & *gm(3,3)))*dgm(2,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2143 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+3*gm(2,2)*(24*gm(1,3)*gm(2,2)& 2144 & +12*gm(1,2)*gm(2,3))*dgm(3,3))/12.d0 2145 cm(2,3,25)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))& 2146 & +gm(1,3)*(3*gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 2147 & *(6*gm(2,3)*dgm(2,3)-4.5d0*gm(2,2)*dgm(3,3))) 2148 cm(2,4,25)=gm(1,3)*(6*gm(2,3)**2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)& 2149 & +gm(2,3)*(9*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3)))+gm(1,2)*(-3*gm(3,3)& 2150 & **2*dgm(2,2)+3*gm(2,3)**2*dgm(3,3)+gm(3,3)*(6*gm(2,3)*dgm(2,3)& 2151 & +12*gm(2,2)*dgm(3,3))) 2152 cm(2,5,25)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)& 2153 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2154 & *gm(2,3)*gm(3,3))*dgm(2,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2155 & *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)& 2156 & *gm(3,3)))*dgm(3,3))/12.d0 2157 cm(2,6,25)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))& 2158 & +gm(1,2)*gm(1,3)*(-3*gm(3,3)*dgm(2,2)+18*gm(2,3)*dgm(2,3)+12*gm(2,2)& 2159 & *dgm(3,3))+gm(1,2)**2*(-6*gm(3,3)*dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3))& 2160 & +gm(1,1)*(-1.5d0*gm(2,3)*gm(3,3)*dgm(2,2)-6*gm(2,3)**2*dgm(2,3)& 2161 & -3*gm(2,2)*gm(3,3)*dgm(2,3)-4.5d0*gm(2,2)*gm(2,3)*dgm(3,3)) 2162 cm(2,7,25)=2.5d0*gm(2,3)**3*dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)& 2163 & -3*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(-1.5d0*gm(3,3)& 2164 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 2165 cm(2,8,25)=6*gm(2,3)**2*gm(3,3)*dgm(2,3)+12*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2166 & +1.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 2167 & +7.5d0*gm(2,2)*dgm(3,3)) 2168 cm(2,9,25)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2169 & +gm(2,3)**2*(4.5d0*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3))+gm(2,2)& 2170 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(2,2)+6*gm(2,2)*dgm(3,3)) 2171 cm(2,10,25)=gm(3,3)*(1*gm(3,3)**2*dgm(2,2)+4.5d0*gm(2,3)**2*dgm(3,3)& 2172 & +gm(3,3)*(6*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*dgm(3,3))) 2173 cm(2,1,26)=5*gm(1,3)**3*dgm(2,3)+7.5d0*gm(1,2)*gm(1,3)**2*dgm(3,3)& 2174 & -1.5d0*gm(1,1)*gm(1,2)*gm(3,3)*dgm(3,3)-3*gm(1,1)*gm(1,3)*(gm(3,3)& 2175 & *dgm(2,3)+gm(2,3)*dgm(3,3)) 2176 cm(2,2,26)=(16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2177 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+24*(48*gm(1,3)*gm(2,2)*gm(2,3)& 2178 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(3,3))/96.d0 2179 cm(2,3,26)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(6*gm(3,3)& 2180 & *dgm(2,3)+3*gm(2,3)*dgm(3,3))) 2181 cm(2,4,26)=gm(1,2)*gm(3,3)*(-6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3))& 2182 & +gm(1,3)*(18*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)+12*gm(2,2)& 2183 & *gm(3,3)*dgm(3,3)) 2184 cm(2,5,26)=12*gm(1,2)*gm(1,3)*gm(3,3)*dgm(3,3)+gm(1,1)*gm(3,3)& 2185 & *(-3*gm(3,3)*dgm(2,3)-4.5d0*gm(2,3)*dgm(3,3))+gm(1,3)**2*(9*gm(3,3)& 2186 & *dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3)) 2187 cm(2,6,26)=(16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2188 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+24*(30*gm(1,3)**2*gm(2,2)& 2189 & +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)& 2190 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/96.d0 2191 cm(2,7,26)=5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2192 & +4.5d0*gm(2,2)*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)**2*gm(3,3)*dgm(3,3) 2193 cm(2,8,26)=gm(3,3)*(6*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)& 2194 & +6*gm(2,2)*gm(3,3)*dgm(3,3)) 2195 cm(2,9,26)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2196 & +1.5d0*gm(2,3)**3*dgm(3,3)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)*dgm(3,3) 2197 cm(2,10,26)=gm(3,3)**2*(2*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 2198 cm(2,1,27)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 2199 cm(2,2,27)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2200 & *gm(3,3)))*dgm(3,3))/12.d0 2201 cm(2,3,27)=3*gm(1,3)*gm(3,3)**2*dgm(3,3) 2202 cm(2,4,27)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(3,3))& 2203 & /6.d0 2204 cm(2,5,27)=gm(3,3)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 2205 cm(2,6,27)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2206 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(3,3))/12.d0 2207 cm(2,7,27)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 2208 cm(2,8,27)=3*gm(2,3)*gm(3,3)**2*dgm(3,3) 2209 cm(2,9,27)=gm(3,3)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 2210 cm(2,10,27)=gm(3,3)**3*dgm(3,3) 2211 cm(3,1,3)=gm(1,1)**2*(3*gm(1,3)*dgm(1,1)+2*gm(1,1)*dgm(1,3)) 2212 cm(3,2,3)=12*gm(1,1)*gm(1,2)*gm(2,3)*dgm(1,1)+gm(1,1)*gm(2,2)& 2213 & *(-4.5d0*gm(1,3)*dgm(1,1)-3*gm(1,1)*dgm(1,3))+gm(1,2)**2*(1.5d0*gm(1,3)& 2214 & *dgm(1,1)+9*gm(1,1)*dgm(1,3)) 2215 cm(3,3,3)=1.5d0*gm(1,3)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)& 2216 & *dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)-3*gm(1,1)**2*gm(3,3)& 2217 & *dgm(1,3) 2218 cm(3,4,3)=gm(1,1)*gm(2,3)*(3*gm(1,3)*dgm(1,1)-6*gm(1,1)*dgm(1,3))& 2219 & +gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)+18*gm(1,1)& 2220 & *gm(1,3)*dgm(1,3)) 2221 cm(3,5,3)=gm(1,1)*(3*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(3,3)*dgm(1,1)& 2222 & +6*gm(1,1)*gm(1,3)*dgm(1,3)) 2223 cm(3,6,3)=gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(1,1)+gm(1,2)*(3*gm(1,3)& 2224 & *dgm(1,1)+6*gm(1,1)*dgm(1,3))) 2225 cm(3,7,3)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 2226 & *gm(2,3)*dgm(1,1)+5*gm(1,2)**3*dgm(1,3)-3*gm(1,2)*gm(2,2)*(gm(1,3)& 2227 & *dgm(1,1)+gm(1,1)*dgm(1,3)) 2228 cm(3,8,3)=gm(1,1)*gm(3,3)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,2)*dgm(1,3))& 2229 & +gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,2)*dgm(1,3))+gm(1,3)& 2230 & *(12*gm(1,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,3)) 2231 cm(3,9,3)=(24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2232 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2233 & *dgm(1,1)+16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2234 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3))/96.d0 2235 cm(3,10,3)=4.5d0*gm(1,3)**2*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(3,3)& 2236 & **2*dgm(1,1)+5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)& 2237 & *dgm(1,3) 2238 cm(3,1,4)=gm(1,1)**2*(3*gm(1,2)*dgm(1,1)+2*gm(1,1)*dgm(1,2)) 2239 cm(3,2,4)=1.5d0*gm(1,2)**3*dgm(1,1)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)& 2240 & *dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)-3*gm(1,1)**2*gm(2,2)& 2241 & *dgm(1,2) 2242 cm(3,3,4)=gm(1,2)*(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)*gm(3,3))*dgm(1,1)& 2243 & +gm(1,1)*(12*gm(1,3)*gm(2,3)*dgm(1,1)+9*gm(1,3)**2*dgm(1,2)-3*gm(1,1)& 2244 & *gm(3,3)*dgm(1,2)) 2245 cm(3,4,4)=3*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(3*gm(2,3)& 2246 & *dgm(1,1)+18*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,3)*gm(2,2)*dgm(1,1)& 2247 & -6*gm(1,1)*gm(2,3)*dgm(1,2)) 2248 cm(3,5,4)=gm(1,1)*(3*gm(1,2)*gm(1,3)*dgm(1,1)+6*gm(1,1)*(gm(2,3)& 2249 & *dgm(1,1)+gm(1,3)*dgm(1,2))) 2250 cm(3,6,4)=gm(1,1)*(3*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(2,2)*dgm(1,1)& 2251 & +6*gm(1,1)*gm(1,2)*dgm(1,2)) 2252 cm(3,7,4)=4.5d0*gm(1,2)**2*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,2)& 2253 & **2*dgm(1,1)+5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)& 2254 & *dgm(1,2) 2255 cm(3,8,4)=(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2256 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2257 & *dgm(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2258 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2))/48.d0 2259 cm(3,9,4)=gm(1,1)*gm(2,2)*(-4.5d0*gm(2,3)*dgm(1,1)-3*gm(1,3)*dgm(1,2))& 2260 & +gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+15*gm(1,3)*dgm(1,2))+gm(1,2)& 2261 & *(12*gm(1,3)*gm(2,2)*dgm(1,1)-6*gm(1,1)*gm(2,3)*dgm(1,2)) 2262 cm(3,10,4)=7.5d0*gm(1,3)**2*gm(2,3)*dgm(1,1)-1.5d0*gm(1,1)*gm(2,3)& 2263 & *gm(3,3)*dgm(1,1)+5*gm(1,3)**3*dgm(1,2)-3*gm(1,3)*gm(3,3)*(gm(1,2)& 2264 & *dgm(1,1)+gm(1,1)*dgm(1,2)) 2265 cm(3,1,5)=gm(1,1)**3*dgm(1,1) 2266 cm(3,2,5)=gm(1,1)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 2267 cm(3,3,5)=gm(1,1)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 2268 cm(3,4,5)=(gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(1,1))& 2269 & /6.d0 2270 cm(3,5,5)=3*gm(1,1)**2*gm(1,3)*dgm(1,1) 2271 cm(3,6,5)=3*gm(1,1)**2*gm(1,2)*dgm(1,1) 2272 cm(3,7,5)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(1,1) 2273 cm(3,8,5)=((-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2274 & *gm(3,3)))*dgm(1,1))/12.d0 2275 cm(3,9,5)=((90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 2276 & *gm(1,2)*gm(2,3))*dgm(1,1))/12.d0 2277 cm(3,10,5)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(1,1) 2278 cm(3,1,8)=gm(1,1)*(gm(1,2)*(9*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))& 2279 & +gm(1,1)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2)+2*gm(1,1)*dgm(2,3))) 2280 cm(3,2,8)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(3*gm(1,3)*gm(2,2)*dgm(1,1)& 2281 & +gm(1,1)*(24*gm(2,3)*dgm(1,2)+15*gm(2,2)*dgm(1,3)))+gm(1,1)*gm(2,2)& 2282 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2)-3*gm(1,1)*dgm(2,3))& 2283 & +gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2)+9*gm(1,1)& 2284 & *dgm(2,3)) 2285 cm(3,3,8)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)*(3*gm(1,2)*gm(3,3)*dgm(1,1)& 2286 & +gm(1,1)*(15*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3)))+gm(1,1)*gm(3,3)& 2287 & *(12*gm(2,3)*dgm(1,1)-9*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 2288 & +gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3)+9*gm(1,1)& 2289 & *dgm(2,3)) 2290 cm(3,4,8)=9*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(9*gm(2,2)& 2291 & *dgm(1,1)+6*gm(1,2)*dgm(1,2))+gm(1,1)*(9*gm(2,3)**2*dgm(1,1)& 2292 & +15*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 2293 & *gm(2,3)*dgm(1,3))-6*gm(1,1)**2*gm(2,3)*dgm(2,3)+gm(1,3)*(6*gm(1,2)& 2294 & **2*dgm(1,3)+gm(1,1)*(6*gm(2,3)*dgm(1,2)+24*gm(2,2)*dgm(1,3))& 2295 & +gm(1,2)*(-6*gm(2,3)*dgm(1,1)+18*gm(1,1)*dgm(2,3))) 2296 cm(3,5,8)=gm(1,2)*(3*gm(1,3)**2*dgm(1,1)+12*gm(1,1)*gm(3,3)*dgm(1,1)& 2297 & +6*gm(1,1)*gm(1,3)*dgm(1,3))+gm(1,1)*(6*gm(1,3)**2*dgm(1,2)+12*gm(1,1)& 2298 & *(gm(3,3)*dgm(1,2)+gm(2,3)*dgm(1,3))+gm(1,3)*(3*gm(2,3)*dgm(1,1)& 2299 & +6*gm(1,1)*dgm(2,3))) 2300 cm(3,6,8)=gm(1,2)**2*(3*gm(1,3)*dgm(1,1)+6*gm(1,1)*dgm(1,3))+12*gm(1,1)& 2301 & *(gm(1,3)*gm(2,2)*dgm(1,1)+gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)& 2302 & *dgm(1,3)))+gm(1,1)*gm(1,2)*(3*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 2303 & +gm(1,1)*dgm(2,3))) 2304 cm(3,7,8)=gm(1,3)*gm(2,2)*(-3*gm(2,2)*dgm(1,1)-6*gm(1,2)*dgm(1,2))& 2305 & -3*gm(1,1)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)& 2306 & **2*(15*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3))+5*gm(1,2)**3*dgm(2,3)& 2307 & +gm(1,2)*gm(2,2)*(9*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3)) 2308 cm(3,8,8)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(-9*gm(2,3)*gm(3,3)& 2309 & *dgm(1,2)-6*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))+gm(1,2)& 2310 & *gm(3,3)*(3*gm(2,3)*dgm(1,1)-3*gm(1,1)*dgm(2,3))+gm(1,3)*(3*gm(2,3)& 2311 & **2*dgm(1,1)+gm(3,3)*(12*gm(2,2)*dgm(1,1)+24*gm(1,2)*dgm(1,2))& 2312 & +gm(2,3)*(18*gm(1,2)*dgm(1,3)-6*gm(1,1)*dgm(2,3)))+gm(1,3)**2*(3*gm(2,3)& 2313 & *dgm(1,2)+15*(gm(2,2)*dgm(1,3)+gm(1,2)*dgm(2,3))) 2314 cm(3,9,8)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(15*gm(3,3)& 2315 & *dgm(1,2)+3*gm(2,3)*dgm(1,3))+gm(1,1)*(-6*gm(2,3)**2*dgm(1,2)& 2316 & -3*gm(2,2)*gm(3,3)*dgm(1,2)-9*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,2)& 2317 & *(3*gm(2,3)**2*dgm(1,1)+12*gm(2,2)*gm(3,3)*dgm(1,1)-6*gm(1,1)& 2318 & *gm(2,3)*dgm(2,3))+gm(1,3)*(gm(2,2)*(3*gm(2,3)*dgm(1,1)+24*gm(1,2)& 2319 & *dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(18*gm(2,3)*dgm(1,2)+15*gm(1,2)& 2320 & *dgm(2,3))) 2321 cm(3,10,8)=gm(1,3)**2*(9*gm(3,3)*dgm(1,2)+15*gm(2,3)*dgm(1,3))& 2322 & -3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,1)+gm(1,1)*(gm(3,3)*dgm(1,2)& 2323 & +gm(2,3)*dgm(1,3)))+5*gm(1,3)**3*dgm(2,3)+gm(1,3)*gm(3,3)*(9*gm(2,3)& 2324 & *dgm(1,1)-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)) 2325 cm(3,1,9)=gm(1,1)*(4.5d0*gm(1,2)**2*dgm(1,1)+6*gm(1,1)*gm(1,2)& 2326 & *dgm(1,2)+gm(1,1)*(-1.5d0*gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))) 2327 cm(3,2,9)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 2328 & +gm(1,1)*gm(2,2)*(6*gm(2,2)*dgm(1,1)-1.5d0*gm(1,1)*dgm(2,2))& 2329 & +gm(1,2)**2*(3*gm(2,2)*dgm(1,1)+4.5d0*gm(1,1)*dgm(2,2)) 2330 cm(3,3,9)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)*gm(2,3)*(9*gm(1,2)& 2331 & *dgm(1,1)+24*gm(1,1)*dgm(1,2))+gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)& 2332 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2))-1.5d0*gm(1,1)& 2333 & **2*gm(3,3)*dgm(2,2)+gm(1,3)**2*(-3*gm(2,2)*dgm(1,1)+3*gm(1,2)& 2334 & *dgm(1,2)+4.5d0*gm(1,1)*dgm(2,2)) 2335 cm(3,4,9)=gm(1,2)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)& 2336 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2))-3*gm(1,1)& 2337 & *gm(2,3)*dgm(2,2))+gm(1,2)*(6*gm(1,1)*gm(2,3)*dgm(1,2)+gm(1,3)& 2338 & *(3*gm(2,2)*dgm(1,1)+9*gm(1,1)*dgm(2,2))) 2339 cm(3,5,9)=1.5d0*gm(1,2)**2*gm(1,3)*dgm(1,1)+gm(1,1)*gm(1,2)*(12*gm(2,3)& 2340 & *dgm(1,1)+6*gm(1,3)*dgm(1,2))+gm(1,1)*(12*gm(1,1)*gm(2,3)*dgm(1,2)& 2341 & +gm(1,3)*(-4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 2342 cm(3,6,9)=1.5d0*gm(1,2)**3*dgm(1,1)+6*gm(1,1)*gm(1,2)**2*dgm(1,2)& 2343 & +12*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(7.5d0*gm(2,2)& 2344 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 2345 cm(3,7,9)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 2346 & +2.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 2347 & -1.5d0*gm(1,1)*dgm(2,2)) 2348 cm(3,8,9)=(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2349 & *gm(3,3)))*dgm(1,1)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2350 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2351 & *gm(3,3)))*dgm(1,2)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2352 & **2-18*gm(1,1)*gm(3,3)))*dgm(2,2))/24.d0 2353 cm(3,9,9)=gm(2,3)*(3*gm(1,2)**2*dgm(1,2)-9*gm(1,1)*gm(2,2)*dgm(1,2)& 2354 & +gm(1,2)*(3*gm(2,2)*dgm(1,1)-3*gm(1,1)*dgm(2,2)))+gm(1,3)*(6*gm(2,2)& 2355 & **2*dgm(1,1)+7.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(24*gm(1,2)*dgm(1,2)& 2356 & -1.5d0*gm(1,1)*dgm(2,2))) 2357 cm(3,10,9)=(1080*gm(1,3)**2*gm(2,3)*dgm(1,2)-216*gm(2,3)*gm(3,3)& 2358 & *(gm(1,2)*dgm(1,1)+gm(1,1)*dgm(1,2))+180*gm(1,3)**3*dgm(2,2)& 2359 & +gm(1,3)*(540*gm(2,3)**2*dgm(1,1)+gm(3,3)*(-108*gm(2,2)*dgm(1,1)& 2360 & -432*gm(1,2)*dgm(1,2)-108*gm(1,1)*dgm(2,2))))/72.d0 2361 cm(3,1,10)=gm(1,1)*(4.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)& 2362 & *dgm(1,3)+gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+gm(1,1)*dgm(3,3))) 2363 cm(3,2,10)=-3*gm(1,3)**2*gm(2,2)*dgm(1,1)-3*gm(1,2)**2*gm(3,3)& 2364 & *dgm(1,1)+gm(1,3)*(9*gm(1,2)*gm(2,3)*dgm(1,1)+3*gm(1,2)**2*dgm(1,3)& 2365 & -9*gm(1,1)*gm(2,2)*dgm(1,3))-1.5d0*gm(1,1)**2*gm(2,2)*dgm(3,3)& 2366 & +gm(1,1)*(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)& 2367 & +24*gm(1,2)*gm(2,3)*dgm(1,3)+4.5d0*gm(1,2)**2*dgm(3,3)) 2368 cm(3,3,10)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 2369 & +gm(1,1)*gm(3,3)*(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))& 2370 & +gm(1,3)**2*(3*gm(3,3)*dgm(1,1)+4.5d0*gm(1,1)*dgm(3,3)) 2371 cm(3,4,10)=gm(1,3)**2*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3))& 2372 & +gm(1,1)*(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(12*gm(3,3)*dgm(1,1)& 2373 & -3*gm(1,1)*dgm(3,3)))+gm(1,3)*(6*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 2374 & *(3*gm(3,3)*dgm(1,1)+9*gm(1,1)*dgm(3,3))) 2375 cm(3,5,10)=1.5d0*gm(1,3)**3*dgm(1,1)+6*gm(1,1)*gm(1,3)**2*dgm(1,3)& 2376 & +12*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(7.5d0*gm(3,3)& 2377 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 2378 cm(3,6,10)=12*gm(1,1)*gm(2,3)*(gm(1,3)*dgm(1,1)+gm(1,1)*dgm(1,3))& 2379 & +gm(1,2)*(1.5d0*gm(1,3)**2*dgm(1,1)+6*gm(1,1)*gm(1,3)*dgm(1,3)& 2380 & +gm(1,1)*(-4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 2381 cm(3,7,10)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2382 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,1)+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 2383 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+(90*gm(1,2)& 2384 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))/36.d0 2385 cm(3,8,10)=gm(1,3)**2*(3*gm(2,3)*dgm(1,3)+7.5d0*gm(1,2)*dgm(3,3))& 2386 & +gm(1,3)*(24*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(3*gm(3,3)*dgm(1,1)& 2387 & -3*gm(1,1)*dgm(3,3)))+gm(3,3)*(-9*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 2388 & *(6*gm(3,3)*dgm(1,1)-1.5d0*gm(1,1)*dgm(3,3))) 2389 cm(3,9,10)=(3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2390 & *gm(3,3)))*dgm(1,1)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2391 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2392 & *gm(3,3)))*dgm(1,3)+(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2393 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/12.d0 2394 cm(3,10,10)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 2395 & +2.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 2396 & -1.5d0*gm(1,1)*dgm(3,3)) 2397 cm(3,1,12)=gm(1,2)**2*(7.5d0*gm(1,3)*dgm(1,1)+9*gm(1,1)*dgm(1,3))& 2398 & +gm(1,1)*(gm(1,1)*(-6*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3))+gm(1,3)& 2399 & *(-1.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,1)*gm(1,2)& 2400 & *(-3*gm(2,3)*dgm(1,1)+18*gm(1,3)*dgm(1,2)+6*gm(1,1)*dgm(2,3)) 2401 cm(3,2,12)=6*gm(1,2)**2*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,1)& 2402 & *gm(2,2)*(24*gm(2,3)*dgm(1,2)+12*gm(2,2)*dgm(1,3))+gm(1,3)*(6*gm(2,2)& 2403 & **2*dgm(1,1)+1.5d0*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 2404 & -4.5d0*gm(1,1)*dgm(2,2)))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(3*gm(2,2)& 2405 & *gm(2,3)*dgm(1,1)+12*gm(1,1)*gm(2,3)*dgm(2,2)+15*gm(1,1)*gm(2,2)& 2406 & *dgm(2,3)) 2407 cm(3,3,12)=-6*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)& 2408 & *gm(3,3)*dgm(1,2)+15*gm(2,3)**2*dgm(1,3)-3*gm(2,2)*gm(3,3)*dgm(1,3))& 2409 & +1.5d0*gm(1,3)**3*dgm(2,2)+gm(1,2)*gm(3,3)*(12*gm(2,3)*dgm(1,1)& 2410 & -9*gm(1,1)*dgm(2,3))+gm(1,3)**2*(6*gm(2,3)*dgm(1,2)-6*gm(2,2)& 2411 & *dgm(1,3)+3*gm(1,2)*dgm(2,3))+gm(1,3)*(1.5d0*gm(2,3)**2*dgm(1,1)& 2412 & +gm(3,3)*(-4.5d0*gm(2,2)*dgm(1,1)+6*gm(1,2)*dgm(1,2)+7.5d0*gm(1,1)& 2413 & *dgm(2,2))+gm(2,3)*(18*gm(1,2)*dgm(1,3)+24*gm(1,1)*dgm(2,3))) 2414 cm(3,4,12)=gm(1,2)**2*(18*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3))& 2415 & +gm(1,1)*(18*gm(2,3)**2*dgm(1,2)+30*gm(2,2)*gm(3,3)*dgm(1,2)& 2416 & +24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(18*gm(2,2)*dgm(1,2)& 2417 & +3*gm(1,2)*dgm(2,2))+gm(1,2)*(3*gm(2,3)**2*dgm(1,1)+12*gm(3,3)& 2418 & *(gm(2,2)*dgm(1,1)+gm(1,1)*dgm(2,2))+6*gm(1,1)*gm(2,3)*dgm(2,3))& 2419 & +gm(1,3)*(-12*gm(1,2)*gm(2,3)*dgm(1,2)+3*gm(1,1)*gm(2,3)*dgm(2,2)& 2420 & +6*gm(1,2)**2*dgm(2,3)+gm(2,2)*(3*gm(2,3)*dgm(1,1)+6*gm(1,2)& 2421 & *dgm(1,3)+24*gm(1,1)*dgm(2,3))) 2422 cm(3,5,12)=7.5d0*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,1)*(-3*gm(2,3)& 2423 & **2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+24*gm(1,2)*gm(3,3)& 2424 & *dgm(1,2)+24*gm(1,2)*gm(2,3)*dgm(1,3))+gm(1,3)**2*(-3*gm(2,2)& 2425 & *dgm(1,1)+6*gm(1,2)*dgm(1,2)+3*gm(1,1)*dgm(2,2))+gm(1,1)**2*(6*gm(3,3)& 2426 & *dgm(2,2)+12*gm(2,3)*dgm(2,3))+gm(1,3)*(3*gm(1,2)**2*dgm(1,3)& 2427 & +gm(1,1)*(6*gm(2,3)*dgm(1,2)-9*gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 2428 & *dgm(1,1)+6*gm(1,1)*dgm(2,3))) 2429 cm(3,6,12)=3*gm(1,2)**3*dgm(1,3)+gm(1,2)*(gm(1,1)*(6*gm(2,3)*dgm(1,2)& 2430 & +15*gm(2,2)*dgm(1,3))+gm(1,3)*(12*gm(2,2)*dgm(1,1)+3*gm(1,1)& 2431 & *dgm(2,2)))+gm(1,2)**2*(1.5d0*gm(2,3)*dgm(1,1)+6*(gm(1,3)*dgm(1,2)& 2432 & +gm(1,1)*dgm(2,3)))+gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm(2,2)+gm(2,2)& 2433 & *(-4.5d0*gm(2,3)*dgm(1,1)+24*gm(1,3)*dgm(1,2)+12*gm(1,1)*dgm(2,3))) 2434 cm(3,7,12)=7.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)**2*(3*gm(2,3)& 2435 & *dgm(1,1)-6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))& 2436 & +gm(2,2)*(-1.5d0*gm(1,1)*gm(2,3)*dgm(2,2)+gm(1,2)*(18*gm(2,3)& 2437 & *dgm(1,2)-3*gm(1,3)*dgm(2,2))+9*gm(1,2)**2*dgm(2,3)) 2438 cm(3,8,12)=1.5d0*gm(2,3)**3*dgm(1,1)+gm(1,3)*gm(3,3)*(24*gm(2,2)& 2439 & *dgm(1,2)+12*gm(1,2)*dgm(2,2))+15*gm(1,3)**2*gm(2,2)*dgm(2,3)& 2440 & +gm(2,3)**2*(6*gm(1,3)*dgm(1,2)+3*gm(1,2)*dgm(1,3)-6*gm(1,1)& 2441 & *dgm(2,3))+gm(3,3)*(-9*gm(1,2)*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*dgm(2,3)& 2442 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)& 2443 & *dgm(1,1)+24*gm(1,3)*dgm(1,3))+(1.5d0*gm(1,3)**2-4.5d0*gm(1,1)& 2444 & *gm(3,3))*dgm(2,2)+gm(1,2)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3))) 2445 cm(3,9,12)=gm(2,2)**2*(6*gm(3,3)*dgm(1,1)+12*gm(1,3)*dgm(1,3))& 2446 & -3*gm(1,1)*gm(2,3)**2*dgm(2,2)+gm(1,2)*gm(2,3)*(6*gm(2,3)*dgm(1,2)& 2447 & +9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(7.5d0*gm(3,3)*dgm(2,2)+3*gm(2,3)& 2448 & *dgm(2,3))+gm(2,2)*(3*gm(2,3)**2*dgm(1,1)+(-3*gm(1,3)**2-1.5d0*gm(1,1)& 2449 & *gm(3,3))*dgm(2,2)+gm(2,3)*(6*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)& 2450 & -9*gm(1,1)*dgm(2,3))+24*gm(1,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 2451 cm(3,10,12)=gm(2,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+15*gm(1,3)*dgm(1,3))& 2452 & +gm(2,3)*(18*gm(1,3)*gm(3,3)*dgm(1,2)+15*gm(1,3)**2*dgm(2,3)& 2453 & +gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3)))+gm(3,3)*(gm(2,2)& 2454 & *(-1.5d0*gm(3,3)*dgm(1,1)-3*gm(1,3)*dgm(1,3))+(4.5d0*gm(1,3)& 2455 & **2-1.5d0*gm(1,1)*gm(3,3))*dgm(2,2)-6*gm(1,2)*(gm(3,3)*dgm(1,2)& 2456 & +gm(1,3)*dgm(2,3))) 2457 cm(3,1,13)=2.5d0*gm(1,2)**3*dgm(1,1)+9*gm(1,1)*gm(1,2)**2*dgm(1,2)& 2458 & -3*gm(1,1)**2*gm(2,2)*dgm(1,2)+gm(1,1)*gm(1,2)*(-1.5d0*gm(2,2)& 2459 & *dgm(1,1)+3*gm(1,1)*dgm(2,2)) 2460 cm(3,2,13)=6*gm(1,2)**2*gm(2,2)*dgm(1,2)+12*gm(1,1)*gm(2,2)**2*dgm(1,2)& 2461 & +1.5d0*gm(1,2)**3*dgm(2,2)+gm(1,2)*gm(2,2)*(3*gm(2,2)*dgm(1,1)& 2462 & +7.5d0*gm(1,1)*dgm(2,2)) 2463 cm(3,3,13)=-6*gm(1,2)**2*gm(3,3)*dgm(1,2)+gm(1,1)*(15*gm(2,3)& 2464 & **2-3*gm(2,2)*gm(3,3))*dgm(1,2)+gm(1,3)*gm(2,3)*(-3*gm(2,2)*dgm(1,1)& 2465 & +18*gm(1,2)*dgm(1,2)+12*gm(1,1)*dgm(2,2))+gm(1,3)**2*(-6*gm(2,2)& 2466 & *dgm(1,2)+1.5d0*gm(1,2)*dgm(2,2))+gm(1,2)*(7.5d0*gm(2,3)**2*dgm(1,1)& 2467 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm(2,2)) 2468 cm(3,4,13)=gm(2,3)*(6*gm(1,2)**2*dgm(1,2)+24*gm(1,1)*gm(2,2)*dgm(1,2)& 2469 & +gm(1,2)*(9*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2)))+gm(1,3)*(-3*gm(2,2)& 2470 & **2*dgm(1,1)+3*gm(1,2)**2*dgm(2,2)+gm(2,2)*(6*gm(1,2)*dgm(1,2)& 2471 & +12*gm(1,1)*dgm(2,2))) 2472 cm(3,5,13)=gm(1,2)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,3)*dgm(1,2))& 2473 & +gm(1,1)*(gm(2,2)*(-1.5d0*gm(2,3)*dgm(1,1)-9*gm(1,3)*dgm(1,2))& 2474 & +6*gm(1,1)*gm(2,3)*dgm(2,2))+gm(1,2)*(24*gm(1,1)*gm(2,3)*dgm(1,2)& 2475 & +gm(1,3)*(-3*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))) 2476 cm(3,6,13)=3*gm(1,2)**3*dgm(1,2)+15*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 2477 & +gm(1,2)**2*(4.5d0*gm(2,2)*dgm(1,1)+3*gm(1,1)*dgm(2,2))+gm(1,1)& 2478 & *gm(2,2)*(-1.5d0*gm(2,2)*dgm(1,1)+6*gm(1,1)*dgm(2,2)) 2479 cm(3,7,13)=gm(2,2)*(1*gm(2,2)**2*dgm(1,1)+4.5d0*gm(1,2)**2*dgm(2,2)& 2480 & +gm(2,2)*(6*gm(1,2)*dgm(1,2)-1.5d0*gm(1,1)*dgm(2,2))) 2481 cm(3,8,13)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 2482 & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2483 & *gm(3,3)))*dgm(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2484 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2485 & *gm(3,3)))*dgm(2,2))/24.d0 2486 cm(3,9,13)=gm(2,2)**2*(3*gm(2,3)*dgm(1,1)+12*gm(1,3)*dgm(1,2))& 2487 & +1.5d0*gm(1,2)**2*gm(2,3)*dgm(2,2)+gm(2,2)*(-4.5d0*gm(1,1)*gm(2,3)& 2488 & *dgm(2,2)+gm(1,2)*(6*gm(2,3)*dgm(1,2)+12*gm(1,3)*dgm(2,2))) 2489 cm(3,10,13)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,1)& 2490 & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2491 & *gm(3,3)))*dgm(1,2)+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 2492 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2))/72.d0 2493 cm(3,1,14)=gm(1,1)*(9*gm(1,3)**2*dgm(1,2)+gm(1,1)*(-3*gm(3,3)& 2494 & *dgm(1,2)-6*gm(2,3)*dgm(1,3))+gm(1,3)*(-3*gm(2,3)*dgm(1,1)+6*gm(1,1)& 2495 & *dgm(2,3)))+gm(1,2)*(7.5d0*gm(1,3)**2*dgm(1,1)+18*gm(1,1)*gm(1,3)& 2496 & *dgm(1,3)+gm(1,1)*(-1.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))) 2497 cm(3,2,14)=-6*gm(1,3)**2*gm(2,2)*dgm(1,2)+gm(1,2)**2*(-6*gm(3,3)& 2498 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,1)*(15*gm(2,3)**2*dgm(1,2)& 2499 & -3*gm(2,2)*gm(3,3)*dgm(1,2)+24*gm(2,2)*gm(2,3)*dgm(1,3))+gm(1,3)& 2500 & *(gm(2,2)*(12*gm(2,3)*dgm(1,1)+6*gm(1,2)*dgm(1,3)-9*gm(1,1)*dgm(2,3))& 2501 & +gm(1,2)*(18*gm(2,3)*dgm(1,2)+3*gm(1,2)*dgm(2,3)))+1.5d0*gm(1,2)& 2502 & **3*dgm(3,3)+gm(1,2)*(1.5d0*gm(2,3)**2*dgm(1,1)-4.5d0*gm(2,2)& 2503 & *gm(3,3)*dgm(1,1)+24*gm(1,1)*gm(2,3)*dgm(2,3)+7.5d0*gm(1,1)*gm(2,2)& 2504 & *dgm(3,3)) 2505 cm(3,3,14)=3*gm(1,3)**3*dgm(2,3)+gm(1,3)**2*(6*gm(3,3)*dgm(1,2)& 2506 & +6*gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(gm(1,1)& 2507 & *(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))+gm(1,2)*(6*gm(3,3)& 2508 & *dgm(1,1)-4.5d0*gm(1,1)*dgm(3,3)))+gm(1,3)*(gm(3,3)*(6*gm(1,2)& 2509 & *dgm(1,3)+15*gm(1,1)*dgm(2,3))+gm(2,3)*(3*gm(3,3)*dgm(1,1)+12*gm(1,1)& 2510 & *dgm(3,3))) 2511 cm(3,4,14)=18*gm(1,2)**2*gm(3,3)*dgm(1,3)+gm(1,1)*(24*gm(2,3)& 2512 & *gm(3,3)*dgm(1,2)+18*gm(2,3)**2*dgm(1,3)+30*gm(2,2)*gm(3,3)*dgm(1,3))& 2513 & +gm(1,3)**2*(6*gm(2,3)*dgm(1,2)+18*gm(2,2)*dgm(1,3)+6*gm(1,2)& 2514 & *dgm(2,3))+gm(1,2)*(24*gm(1,1)*gm(3,3)*dgm(2,3)+3*gm(2,3)*(gm(3,3)& 2515 & *dgm(1,1)+gm(1,1)*dgm(3,3)))+gm(1,3)*(3*gm(2,3)**2*dgm(1,1)+gm(2,3)& 2516 & *(-12*gm(1,2)*dgm(1,3)+6*gm(1,1)*dgm(2,3))+12*gm(2,2)*(gm(3,3)& 2517 & *dgm(1,1)+gm(1,1)*dgm(3,3))+gm(1,2)*(6*gm(3,3)*dgm(1,2)+3*gm(1,2)& 2518 & *dgm(3,3))) 2519 cm(3,5,14)=3*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(1.5d0*gm(2,3)*dgm(1,1)& 2520 & +6*(gm(1,2)*dgm(1,3)+gm(1,1)*dgm(2,3)))+gm(1,3)*(gm(1,1)*(15*gm(3,3)& 2521 & *dgm(1,2)+6*gm(2,3)*dgm(1,3))+gm(1,2)*(12*gm(3,3)*dgm(1,1)+3*gm(1,1)& 2522 & *dgm(3,3)))+gm(1,1)*(gm(3,3)*(24*gm(1,2)*dgm(1,3)+12*gm(1,1)& 2523 & *dgm(2,3))+gm(2,3)*(-4.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 2524 cm(3,6,14)=-3*gm(1,2)**2*gm(3,3)*dgm(1,1)+gm(1,3)**2*(7.5d0*gm(2,2)& 2525 & *dgm(1,1)+3*gm(1,2)*dgm(1,2))+gm(1,3)*(6*gm(1,2)**2*dgm(1,3)& 2526 & +24*gm(1,1)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))+gm(1,2)*(9*gm(2,3)& 2527 & *dgm(1,1)+6*gm(1,1)*dgm(2,3)))+gm(1,1)*(-3*gm(2,3)**2*dgm(1,1)& 2528 & -1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)-9*gm(1,2)*gm(3,3)*dgm(1,2)+6*gm(1,2)& 2529 & *gm(2,3)*dgm(1,3)+3*gm(1,2)**2*dgm(3,3))+gm(1,1)**2*(12*gm(2,3)& 2530 & *dgm(2,3)+6*gm(2,2)*dgm(3,3)) 2531 cm(3,7,14)=15*gm(1,2)*gm(2,3)*(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))& 2532 & +gm(2,2)**2*(-1.5d0*gm(3,3)*dgm(1,1)-6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)& 2533 & *dgm(3,3))+gm(2,2)*(4.5d0*gm(2,3)**2*dgm(1,1)+gm(2,3)*(-6*gm(1,3)& 2534 & *dgm(1,2)+18*gm(1,2)*dgm(1,3)-3*gm(1,1)*dgm(2,3))+gm(1,2)*(-3*gm(3,3)& 2535 & *dgm(1,2)-6*gm(1,3)*dgm(2,3)+4.5d0*gm(1,2)*dgm(3,3))) 2536 cm(3,8,14)=gm(2,3)**2*(3*gm(3,3)*dgm(1,1)+6*gm(1,3)*dgm(1,3)-3*gm(1,1)& 2537 & *dgm(3,3))+gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 2538 & -3*gm(1,2)*dgm(3,3))+gm(2,2)*(6*gm(3,3)**2*dgm(1,1)+24*gm(1,3)& 2539 & *gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)*gm(3,3)& 2540 & *dgm(3,3))+gm(2,3)*(3*gm(1,3)**2*dgm(2,3)+gm(3,3)*(6*gm(1,2)& 2541 & *dgm(1,3)-9*gm(1,1)*dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 2542 & *dgm(3,3))) 2543 cm(3,9,14)=1.5d0*gm(2,3)**3*dgm(1,1)-6*gm(1,3)**2*gm(2,2)*dgm(2,3)& 2544 & +gm(2,3)**2*(3*gm(1,3)*dgm(1,2)+6*gm(1,2)*dgm(1,3)-6*gm(1,1)& 2545 & *dgm(2,3))+gm(3,3)*(24*gm(1,2)*gm(2,2)*dgm(1,3)+15*gm(1,2)**2*dgm(2,3)& 2546 & -3*gm(1,1)*gm(2,2)*dgm(2,3))+gm(1,3)*gm(2,2)*(-9*gm(3,3)*dgm(1,2)& 2547 & +12*gm(1,2)*dgm(3,3))+gm(2,3)*(gm(2,2)*(7.5d0*gm(3,3)*dgm(1,1)& 2548 & +6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))+gm(1,2)*(24*gm(3,3)& 2549 & *dgm(1,2)+18*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))) 2550 cm(3,10,14)=gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+7.5d0*gm(1,3)**2*dgm(3,3)& 2551 & +gm(3,3)*(18*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3)))+gm(3,3)& 2552 & *(9*gm(1,3)**2*dgm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm(1,3)-3*gm(1,1)& 2553 & *dgm(2,3))+gm(1,3)*(6*gm(3,3)*dgm(1,2)-3*gm(1,2)*dgm(3,3))) 2554 cm(3,1,15)=2.5d0*gm(1,3)**3*dgm(1,1)+9*gm(1,1)*gm(1,3)**2*dgm(1,3)& 2555 & -3*gm(1,1)**2*gm(3,3)*dgm(1,3)+gm(1,1)*gm(1,3)*(-1.5d0*gm(3,3)& 2556 & *dgm(1,1)+3*gm(1,1)*dgm(3,3)) 2557 cm(3,2,15)=-6*gm(1,3)**2*gm(2,2)*dgm(1,3)-6*gm(1,2)**2*gm(3,3)& 2558 & *dgm(1,3)+gm(1,1)*(15*gm(2,3)**2-3*gm(2,2)*gm(3,3))*dgm(1,3)& 2559 & +gm(1,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))+gm(1,3)& 2560 & *(7.5d0*gm(2,3)**2*dgm(1,1)-1.5d0*gm(2,2)*gm(3,3)*dgm(1,1)+18*gm(1,2)& 2561 & *gm(2,3)*dgm(1,3)+1.5d0*gm(1,2)**2*dgm(3,3)-4.5d0*gm(1,1)*gm(2,2)& 2562 & *dgm(3,3)) 2563 cm(3,3,15)=6*gm(1,3)**2*gm(3,3)*dgm(1,3)+12*gm(1,1)*gm(3,3)**2*dgm(1,3)& 2564 & +1.5d0*gm(1,3)**3*dgm(3,3)+gm(1,3)*gm(3,3)*(3*gm(3,3)*dgm(1,1)& 2565 & +7.5d0*gm(1,1)*dgm(3,3)) 2566 cm(3,4,15)=gm(1,3)**2*(6*gm(2,3)*dgm(1,3)+3*gm(1,2)*dgm(3,3))& 2567 & +gm(1,3)*(6*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)*(9*gm(3,3)*dgm(1,1)& 2568 & +3*gm(1,1)*dgm(3,3)))+gm(3,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)& 2569 & *(-3*gm(3,3)*dgm(1,1)+12*gm(1,1)*dgm(3,3))) 2570 cm(3,5,15)=3*gm(1,3)**3*dgm(1,3)+15*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 2571 & +gm(1,3)**2*(4.5d0*gm(3,3)*dgm(1,1)+3*gm(1,1)*dgm(3,3))+gm(1,1)& 2572 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3)) 2573 cm(3,6,15)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(1,1)+3*gm(1,2)*dgm(1,3))& 2574 & +gm(1,3)*(24*gm(1,1)*gm(2,3)*dgm(1,3)+gm(1,2)*(-3*gm(3,3)*dgm(1,1)& 2575 & +3*gm(1,1)*dgm(3,3)))+gm(1,1)*(-9*gm(1,2)*gm(3,3)*dgm(1,3)+gm(2,3)& 2576 & *(-1.5d0*gm(3,3)*dgm(1,1)+6*gm(1,1)*dgm(3,3))) 2577 cm(3,7,15)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,1)& 2578 & +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2579 & *gm(3,3)))*dgm(1,3)+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 2580 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))/36.d0 2581 cm(3,8,15)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))& 2582 & +gm(2,3)*(3*gm(3,3)**2*dgm(1,1)+1.5d0*gm(1,3)**2*dgm(3,3)+gm(3,3)& 2583 & *(6*gm(1,3)*dgm(1,3)-4.5d0*gm(1,1)*dgm(3,3))) 2584 cm(3,9,15)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,1)& 2585 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2586 & *gm(3,3)))*dgm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2587 & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2588 & *gm(3,3)))*dgm(3,3))/12.d0 2589 cm(3,10,15)=gm(3,3)*(1*gm(3,3)**2*dgm(1,1)+4.5d0*gm(1,3)**2*dgm(3,3)& 2590 & +gm(3,3)*(6*gm(1,3)*dgm(1,3)-1.5d0*gm(1,1)*dgm(3,3))) 2591 cm(3,1,17)=5*gm(1,2)**3*dgm(1,3)+gm(1,1)*gm(1,2)*(-6*gm(2,3)*dgm(1,2)& 2592 & -3*gm(2,2)*dgm(1,3)+9*gm(1,3)*dgm(2,2))+gm(1,2)**2*(15*gm(1,3)& 2593 & *dgm(1,2)+9*gm(1,1)*dgm(2,3))-3*gm(1,1)*(gm(1,3)*gm(2,2)*dgm(1,2)& 2594 & +gm(1,1)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))) 2595 cm(3,2,17)=6*gm(1,2)*gm(2,2)*(gm(2,3)*dgm(1,2)+gm(2,2)*dgm(1,3))& 2596 & +gm(1,3)*gm(2,2)*(12*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))+12*gm(1,1)& 2597 & *gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))+gm(1,2)**2*(3*gm(2,3)& 2598 & *dgm(2,2)+6*gm(2,2)*dgm(2,3)) 2599 cm(3,3,17)=(3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2600 & *gm(3,3)))*dgm(1,2)+(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2601 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 2602 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+3*(-12*gm(1,3)& 2603 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2604 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm(2,3))/6.d0 2605 cm(3,4,17)=gm(1,2)*(6*gm(2,3)**2*dgm(1,2)+24*gm(2,2)*gm(3,3)*dgm(1,2)& 2606 & +18*gm(2,2)*gm(2,3)*dgm(1,3))+9*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)& 2607 & **2*(9*gm(3,3)*dgm(2,2)+6*gm(2,3)*dgm(2,3))+gm(1,1)*(9*gm(2,3)& 2608 & **2*dgm(2,2)+15*gm(2,2)*gm(3,3)*dgm(2,2)+24*gm(2,2)*gm(2,3)*dgm(2,3))& 2609 & +gm(1,3)*(-6*gm(2,2)**2*dgm(1,3)-6*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)& 2610 & *(gm(2,3)*dgm(1,2)+gm(1,2)*dgm(2,3))) 2611 cm(3,5,17)=(3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2612 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2613 & *dgm(1,2)+(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2614 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)& 2615 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm(2,2)+3*(6*gm(1,2)& 2616 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 2617 & *dgm(2,3))/6.d0 2618 cm(3,6,17)=gm(1,2)**2*(3*gm(2,3)*dgm(1,2)+9*gm(2,2)*dgm(1,3)+3*gm(1,3)& 2619 & *dgm(2,2))+gm(1,1)*gm(2,2)*(-9*gm(2,3)*dgm(1,2)-3*gm(2,2)*dgm(1,3)& 2620 & +12*gm(1,3)*dgm(2,2))+3*gm(1,2)**3*dgm(2,3)+gm(1,2)*(24*gm(1,3)& 2621 & *gm(2,2)*dgm(1,2)+gm(1,1)*(3*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))) 2622 cm(3,7,17)=gm(2,2)*(2*gm(2,2)**2*dgm(1,3)+9*gm(1,2)*gm(2,3)*dgm(2,2)& 2623 & +gm(2,2)*(6*gm(2,3)*dgm(1,2)-3*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))) 2624 cm(3,8,17)=3*gm(2,3)**3*dgm(1,2)+gm(2,2)*gm(3,3)*(-3*gm(2,2)*dgm(1,3)& 2625 & +12*gm(1,3)*dgm(2,2)-9*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(2,2)& 2626 & *dgm(1,3)+3*(gm(1,3)*dgm(2,2)+gm(1,2)*dgm(2,3)))+gm(2,3)*(3*gm(1,2)& 2627 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3))) 2628 cm(3,9,17)=3*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)**2*(12*gm(3,3)& 2629 & *dgm(1,2)+6*gm(2,3)*dgm(1,3)+12*gm(1,3)*dgm(2,3))+gm(2,2)*(6*gm(2,3)& 2630 & **2*dgm(1,2)+12*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(3*gm(1,3)*dgm(2,2)& 2631 & +6*gm(1,2)*dgm(2,3))) 2632 cm(3,10,17)=5*gm(2,3)**3*dgm(1,3)+gm(2,3)*gm(3,3)*(-3*gm(2,2)& 2633 & *dgm(1,3)+9*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))+gm(2,3)**2*(9*gm(3,3)& 2634 & *dgm(1,2)+15*gm(1,3)*dgm(2,3))-3*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,2)& 2635 & +gm(2,2)*(gm(3,3)*dgm(1,2)+gm(1,3)*dgm(2,3))) 2636 cm(3,1,18)=5*gm(1,2)**3*dgm(1,2)-3*gm(1,1)*gm(1,2)*gm(2,2)*dgm(1,2)& 2637 & +4.5d0*gm(1,1)*gm(1,2)**2*dgm(2,2)-1.5d0*gm(1,1)**2*gm(2,2)*dgm(2,2) 2638 cm(3,2,18)=gm(2,2)*(6*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)& 2639 & +6*gm(1,1)*gm(2,2)*dgm(2,2)) 2640 cm(3,3,18)=(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2641 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,2)+12*(-12*gm(1,3)**2*gm(2,2)& 2642 & +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)& 2643 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,2))/48.d0 2644 cm(3,4,18)=gm(1,3)*gm(2,2)*(-6*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2))& 2645 & +gm(2,3)*(18*gm(1,2)*gm(2,2)*dgm(1,2)+3*gm(1,2)**2*dgm(2,2)+12*gm(1,1)& 2646 & *gm(2,2)*dgm(2,2)) 2647 cm(3,5,18)=(8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2648 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,2)+12*(6*gm(1,2)**2*gm(1,3)& 2649 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(2,2))& 2650 & /48.d0 2651 cm(3,6,18)=9*gm(1,2)**2*gm(2,2)*dgm(1,2)-3*gm(1,1)*gm(2,2)**2*dgm(1,2)& 2652 & +1.5d0*gm(1,2)**3*dgm(2,2)+7.5d0*gm(1,1)*gm(1,2)*gm(2,2)*dgm(2,2) 2653 cm(3,7,18)=gm(2,2)**2*(2*gm(2,2)*dgm(1,2)+3*gm(1,2)*dgm(2,2)) 2654 cm(3,8,18)=-3*gm(2,2)**2*gm(3,3)*dgm(1,2)+1.5d0*gm(1,2)*gm(2,3)& 2655 & **2*dgm(2,2)+gm(2,2)*(9*gm(2,3)**2*dgm(1,2)+12*gm(1,3)*gm(2,3)& 2656 & *dgm(2,2)-4.5d0*gm(1,2)*gm(3,3)*dgm(2,2)) 2657 cm(3,9,18)=gm(2,2)*(3*gm(1,2)*gm(2,3)*dgm(2,2)+6*gm(2,2)*(gm(2,3)& 2658 & *dgm(1,2)+gm(1,3)*dgm(2,2))) 2659 cm(3,10,18)=5*gm(2,3)**3*dgm(1,2)+7.5d0*gm(1,3)*gm(2,3)**2*dgm(2,2)& 2660 & -1.5d0*gm(1,3)*gm(2,2)*gm(3,3)*dgm(2,2)-3*gm(2,3)*gm(3,3)*(gm(2,2)& 2661 & *dgm(1,2)+gm(1,2)*dgm(2,2)) 2662 cm(3,1,19)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2663 & **2-18*gm(1,1)*gm(3,3)))*dgm(1,2)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2664 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(1,3)+gm(1,1)& 2665 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)+4*gm(1,1)*(54*gm(1,2)& 2666 & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 2667 & *gm(2,2))*dgm(3,3))/12.d0 2668 cm(3,2,19)=(2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2669 & *gm(3,3)))*dgm(1,2)+2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 2670 & *gm(2,3))*dgm(1,3)+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2671 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)& 2672 & *gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2673 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 2674 & *gm(2,2))*dgm(3,3))/4.d0 2675 cm(3,3,19)=gm(1,2)*gm(3,3)*(12*gm(3,3)*dgm(1,2)+24*gm(2,3)*dgm(1,3))& 2676 & -3*gm(1,2)**2*gm(3,3)*dgm(3,3)+gm(1,3)**2*(3*gm(3,3)*dgm(2,2)& 2677 & +6*gm(2,3)*dgm(2,3)-3*gm(2,2)*dgm(3,3))+gm(1,1)*(6*gm(3,3)**2*dgm(2,2)& 2678 & +24*gm(2,3)*gm(3,3)*dgm(2,3)+7.5d0*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)& 2679 & *gm(3,3)*dgm(3,3))+gm(1,3)*(3*gm(2,3)**2*dgm(1,3)+gm(3,3)*(-9*gm(2,2)& 2680 & *dgm(1,3)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(6*gm(3,3)*dgm(1,2)+9*gm(1,2)& 2681 & *dgm(3,3))) 2682 cm(3,4,19)=(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2683 & *gm(3,3)))*dgm(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2684 & **2+24*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 2685 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+4*(9*gm(1,3)& 2686 & **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)& 2687 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)*gm(1,3)& 2688 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 2689 & /2.d0 2690 cm(3,5,19)=(2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 2691 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+2*(-12*gm(1,3)**2*gm(2,2)& 2692 & +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)& 2693 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 2694 & *gm(3,3))*dgm(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2695 & **2+24*gm(1,1)*gm(3,3)))*dgm(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2696 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/4.d0 2697 cm(3,6,19)=(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2698 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2699 & *dgm(1,2)+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2700 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)& 2701 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,2)+4*(6*gm(1,2)& 2702 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2703 & *dgm(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))& 2704 & /4.d0 2705 cm(3,7,19)=7.5d0*gm(1,2)*gm(2,3)**2*dgm(2,2)+gm(2,2)*(9*gm(2,3)& 2706 & **2*dgm(1,2)-1.5d0*gm(1,2)*gm(3,3)*dgm(2,2)+gm(2,3)*(-3*gm(1,3)& 2707 & *dgm(2,2)+18*gm(1,2)*dgm(2,3)))+gm(2,2)**2*(-3*gm(3,3)*dgm(1,2)& 2708 & +6*gm(2,3)*dgm(1,3)-6*gm(1,3)*dgm(2,3)+3*gm(1,2)*dgm(3,3)) 2709 cm(3,8,19)=3*gm(2,3)**3*dgm(1,3)+gm(2,3)**2*(6*gm(3,3)*dgm(1,2)& 2710 & +6*gm(1,3)*dgm(2,3)+1.5d0*gm(1,2)*dgm(3,3))+gm(3,3)*(6*gm(1,2)& 2711 & *gm(3,3)*dgm(2,2)+gm(2,2)*(12*gm(3,3)*dgm(1,2)+24*gm(1,3)*dgm(2,3)& 2712 & -4.5d0*gm(1,2)*dgm(3,3)))+gm(2,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)& 2713 & +6*gm(1,2)*dgm(2,3))+gm(2,2)*(15*gm(3,3)*dgm(1,3)+12*gm(1,3)& 2714 & *dgm(3,3))) 2715 cm(3,9,19)=3*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(6*gm(2,2)*dgm(1,3)& 2716 & +1.5d0*gm(1,3)*dgm(2,2)+6*gm(1,2)*dgm(2,3))+gm(2,3)*(12*gm(1,2)& 2717 & *gm(3,3)*dgm(2,2)+gm(2,2)*(15*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 2718 & +3*gm(1,2)*dgm(3,3)))+gm(2,2)*(gm(3,3)*(-4.5d0*gm(1,3)*dgm(2,2)& 2719 & +24*gm(1,2)*dgm(2,3))+gm(2,2)*(12*gm(3,3)*dgm(1,3)+6*gm(1,3)& 2720 & *dgm(3,3))) 2721 cm(3,10,19)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+18*gm(1,3)*dgm(2,3)& 2722 & -3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)*dgm(1,3)+7.5d0*gm(1,3)& 2723 & *dgm(3,3))+gm(3,3)*(gm(3,3)*(3*gm(1,3)*dgm(2,2)-6*gm(1,2)*dgm(2,3))& 2724 & +gm(2,2)*(-3*gm(3,3)*dgm(1,3)-1.5d0*gm(1,3)*dgm(3,3))) 2725 cm(3,1,20)=5*gm(1,3)**3*dgm(1,2)+gm(1,3)**2*(15*gm(1,2)*dgm(1,3)& 2726 & +9*gm(1,1)*dgm(2,3))+gm(1,1)*gm(1,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(2,3)& 2727 & *dgm(1,3)+9*gm(1,2)*dgm(3,3))-3*gm(1,1)*(gm(1,2)*gm(3,3)*dgm(1,3)& 2728 & +gm(1,1)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))) 2729 cm(3,2,20)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2730 & *gm(3,3)))*dgm(1,2)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2731 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2732 & *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)& 2733 & *gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2734 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))/6.d0 2735 cm(3,3,20)=gm(1,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(2,3)*dgm(1,3)& 2736 & +3*gm(1,2)*dgm(3,3))+gm(1,3)**2*(6*gm(3,3)*dgm(2,3)+3*gm(2,3)& 2737 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(1,3)+gm(1,1)*(gm(3,3)& 2738 & *dgm(2,3)+gm(2,3)*dgm(3,3))) 2739 cm(3,4,20)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(1,2)& 2740 & +3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2741 & *gm(3,3)))*dgm(1,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 2742 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+3*(9*gm(1,3)**2*gm(2,2)& 2743 & -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)& 2744 & **2+15*gm(2,2)*gm(3,3)))*dgm(3,3))/3.d0 2745 cm(3,5,20)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(1,2)& 2746 & +3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2747 & *gm(2,3)*gm(3,3))*dgm(1,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)& 2748 & *gm(3,3))*dgm(2,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2749 & **2+24*gm(1,1)*gm(3,3)))*dgm(3,3))/6.d0 2750 cm(3,6,20)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2751 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,2)+3*(30*gm(1,3)**2*gm(2,2)& 2752 & +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)& 2753 & **2-6*gm(2,2)*gm(3,3)))*dgm(1,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)& 2754 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(2,3)+3*(6*gm(1,2)& 2755 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2756 & *dgm(3,3))/6.d0 2757 cm(3,7,20)=5*gm(2,3)**3*dgm(1,2)+gm(2,3)**2*(9*gm(2,2)*dgm(1,3)& 2758 & +15*gm(1,2)*dgm(2,3))+gm(2,2)*gm(2,3)*(-3*gm(3,3)*dgm(1,2)-6*gm(1,3)& 2759 & *dgm(2,3)+9*gm(1,2)*dgm(3,3))-3*gm(2,2)*(gm(1,2)*gm(3,3)*dgm(2,3)& 2760 & +gm(2,2)*(gm(3,3)*dgm(1,3)+gm(1,3)*dgm(3,3))) 2761 cm(3,8,20)=gm(2,3)*gm(3,3)*(6*gm(3,3)*dgm(1,2)+6*gm(1,3)*dgm(2,3)& 2762 & +3*gm(1,2)*dgm(3,3))+gm(2,3)**2*(6*gm(3,3)*dgm(1,3)+3*gm(1,3)& 2763 & *dgm(3,3))+12*gm(3,3)*(gm(1,2)*gm(3,3)*dgm(2,3)+gm(2,2)*(gm(3,3)& 2764 & *dgm(1,3)+gm(1,3)*dgm(3,3))) 2765 cm(3,9,20)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm(1,2)& 2766 & +3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm(1,3)+3*(48*gm(1,2)& 2767 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(2,3)& 2768 & +3*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 2769 & *gm(3,3)))*dgm(3,3))/6.d0 2770 cm(3,10,20)=gm(3,3)*(2*gm(3,3)**2*dgm(1,2)+9*gm(1,3)*gm(2,3)*dgm(3,3)& 2771 & +gm(3,3)*(6*gm(2,3)*dgm(1,3)+6*gm(1,3)*dgm(2,3)-3*gm(1,2)*dgm(3,3))) 2772 cm(3,1,21)=5*gm(1,3)**3*dgm(1,3)-3*gm(1,1)*gm(1,3)*gm(3,3)*dgm(1,3)& 2773 & +4.5d0*gm(1,1)*gm(1,3)**2*dgm(3,3)-1.5d0*gm(1,1)**2*gm(3,3)*dgm(3,3) 2774 cm(3,2,21)=(40*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2775 & **2-18*gm(2,2)*gm(3,3)))*dgm(1,3)+60*(-12*gm(1,3)**2*gm(2,2)& 2776 & +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)& 2777 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/240.d0 2778 cm(3,3,21)=gm(3,3)*(6*gm(1,3)*gm(3,3)*dgm(1,3)+3*gm(1,3)**2*dgm(3,3)& 2779 & +6*gm(1,1)*gm(3,3)*dgm(3,3)) 2780 cm(3,4,21)=3*gm(1,3)**2*gm(2,3)*dgm(3,3)+gm(1,3)*gm(3,3)*(18*gm(2,3)& 2781 & *dgm(1,3)+3*gm(1,2)*dgm(3,3))+gm(3,3)*(-6*gm(1,2)*gm(3,3)*dgm(1,3)& 2782 & +12*gm(1,1)*gm(2,3)*dgm(3,3)) 2783 cm(3,5,21)=9*gm(1,3)**2*gm(3,3)*dgm(1,3)-3*gm(1,1)*gm(3,3)**2*dgm(1,3)& 2784 & +1.5d0*gm(1,3)**3*dgm(3,3)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*dgm(3,3) 2785 cm(3,6,21)=(40*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2786 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(1,3)+60*(48*gm(1,1)*gm(1,3)& 2787 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm(3,3))& 2788 & /240.d0 2789 cm(3,7,21)=5*gm(2,3)**3*dgm(1,3)+7.5d0*gm(1,2)*gm(2,3)**2*dgm(3,3)& 2790 & -1.5d0*gm(1,2)*gm(2,2)*gm(3,3)*dgm(3,3)-3*gm(2,2)*gm(2,3)*(gm(3,3)& 2791 & *dgm(1,3)+gm(1,3)*dgm(3,3)) 2792 cm(3,8,21)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(2,3)*(6*gm(3,3)& 2793 & *dgm(1,3)+3*gm(1,3)*dgm(3,3))) 2794 cm(3,9,21)=12*gm(1,2)*gm(2,3)*gm(3,3)*dgm(3,3)+gm(2,2)*gm(3,3)& 2795 & *(-3*gm(3,3)*dgm(1,3)-4.5d0*gm(1,3)*dgm(3,3))+gm(2,3)**2*(9*gm(3,3)& 2796 & *dgm(1,3)+1.5d0*gm(1,3)*dgm(3,3)) 2797 cm(3,10,21)=gm(3,3)**2*(2*gm(3,3)*dgm(1,3)+3*gm(1,3)*dgm(3,3)) 2798 cm(3,1,23)=7.5d0*gm(1,2)**2*gm(1,3)*dgm(2,2)-1.5d0*gm(1,1)*gm(1,3)& 2799 & *gm(2,2)*dgm(2,2)+5*gm(1,2)**3*dgm(2,3)-3*gm(1,1)*gm(1,2)*(gm(2,3)& 2800 & *dgm(2,2)+gm(2,2)*dgm(2,3)) 2801 cm(3,2,23)=gm(2,2)*(6*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,2)*(3*gm(2,3)& 2802 & *dgm(2,2)+6*gm(2,2)*dgm(2,3))) 2803 cm(3,3,23)=gm(1,3)*(1.5d0*gm(2,3)**2*dgm(2,2)-4.5d0*gm(2,2)*gm(3,3)& 2804 & *dgm(2,2)-6*gm(2,2)*gm(2,3)*dgm(2,3))+gm(1,2)*(12*gm(2,3)*gm(3,3)& 2805 & *dgm(2,2)+15*gm(2,3)**2*dgm(2,3)-3*gm(2,2)*gm(3,3)*dgm(2,3)) 2806 cm(3,4,23)=gm(1,3)*gm(2,2)*(3*gm(2,3)*dgm(2,2)-6*gm(2,2)*dgm(2,3))& 2807 & +gm(1,2)*(3*gm(2,3)**2*dgm(2,2)+12*gm(2,2)*gm(3,3)*dgm(2,2)+18*gm(2,2)& 2808 & *gm(2,3)*dgm(2,3)) 2809 cm(3,5,23)=(24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2810 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2811 & *dgm(2,2)+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2812 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,3))/96.d0 2813 cm(3,6,23)=12*gm(1,2)*gm(1,3)*gm(2,2)*dgm(2,2)+gm(1,1)*gm(2,2)& 2814 & *(-4.5d0*gm(2,3)*dgm(2,2)-3*gm(2,2)*dgm(2,3))+gm(1,2)**2*(1.5d0*gm(2,3)& 2815 & *dgm(2,2)+9*gm(2,2)*dgm(2,3)) 2816 cm(3,7,23)=gm(2,2)**2*(3*gm(2,3)*dgm(2,2)+2*gm(2,2)*dgm(2,3)) 2817 cm(3,8,23)=1.5d0*gm(2,3)**3*dgm(2,2)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)& 2818 & *dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)-3*gm(2,2)**2*gm(3,3)& 2819 & *dgm(2,3) 2820 cm(3,9,23)=gm(2,2)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(3,3)*dgm(2,2)& 2821 & +6*gm(2,2)*gm(2,3)*dgm(2,3)) 2822 cm(3,10,23)=4.5d0*gm(2,3)**2*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*gm(3,3)& 2823 & **2*dgm(2,2)+5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)& 2824 & *dgm(2,3) 2825 cm(3,1,24)=gm(1,2)*(2.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 2826 cm(3,2,24)=3*gm(1,2)*gm(2,2)**2*dgm(2,2) 2827 cm(3,3,24)=((-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2828 & *gm(3,3)))*dgm(2,2))/12.d0 2829 cm(3,4,24)=(gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm(2,2))& 2830 & /6.d0 2831 cm(3,5,24)=((-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 2832 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(2,2))/12.d0 2833 cm(3,6,24)=gm(2,2)*(4.5d0*gm(1,2)**2-1.5d0*gm(1,1)*gm(2,2))*dgm(2,2) 2834 cm(3,7,24)=gm(2,2)**3*dgm(2,2) 2835 cm(3,8,24)=gm(2,2)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 2836 cm(3,9,24)=3*gm(2,2)**2*gm(2,3)*dgm(2,2) 2837 cm(3,10,24)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(2,2) 2838 cm(3,1,25)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 2839 & **2-18*gm(1,1)*gm(3,3)))*dgm(2,2)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2840 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(2,3)+(90*gm(1,2)& 2841 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm(3,3))/36.d0 2842 cm(3,2,25)=12*gm(1,3)*gm(2,2)*(gm(2,3)*dgm(2,2)+gm(2,2)*dgm(2,3))& 2843 & +gm(1,2)*(1.5d0*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)*dgm(2,3)& 2844 & +gm(2,2)*(-4.5d0*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3))) 2845 cm(3,3,25)=gm(1,3)*(3*gm(2,3)**2*dgm(2,3)-9*gm(2,2)*gm(3,3)*dgm(2,3)& 2846 & +gm(2,3)*(3*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(3,3)& 2847 & **2*dgm(2,2)+7.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)*(24*gm(2,3)*dgm(2,3)& 2848 & -1.5d0*gm(2,2)*dgm(3,3))) 2849 cm(3,4,25)=gm(1,3)*(3*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)*dgm(2,3)& 2850 & +gm(2,2)*(12*gm(3,3)*dgm(2,2)-3*gm(2,2)*dgm(3,3)))+gm(1,2)*(6*gm(2,3)& 2851 & **2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)+gm(2,3)*(3*gm(3,3)*dgm(2,2)& 2852 & +9*gm(2,2)*dgm(3,3))) 2853 cm(3,5,25)=(3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 2854 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,2)+6*(-12*gm(1,3)**2*gm(2,2)& 2855 & +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)& 2856 & **2-6*gm(2,2)*gm(3,3)))*dgm(2,3)+(-36*gm(1,2)*gm(1,3)*gm(2,2)& 2857 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm(3,3))& 2858 & /12.d0 2859 cm(3,6,25)=7.5d0*gm(1,3)**2*gm(2,2)*dgm(2,2)+gm(1,2)*gm(1,3)*(9*gm(2,3)& 2860 & *dgm(2,2)+24*gm(2,2)*dgm(2,3))+gm(1,2)**2*(-3*gm(3,3)*dgm(2,2)& 2861 & +3*gm(2,3)*dgm(2,3)+4.5d0*gm(2,2)*dgm(3,3))+gm(1,1)*(-3*gm(2,3)& 2862 & **2*dgm(2,2)-9*gm(2,2)*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*(gm(3,3)& 2863 & *dgm(2,2)+gm(2,2)*dgm(3,3))) 2864 cm(3,7,25)=gm(2,2)*(4.5d0*gm(2,3)**2*dgm(2,2)+6*gm(2,2)*gm(2,3)& 2865 & *dgm(2,3)+gm(2,2)*(-1.5d0*gm(3,3)*dgm(2,2)+gm(2,2)*dgm(3,3))) 2866 cm(3,8,25)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2867 & +gm(2,2)*gm(3,3)*(6*gm(3,3)*dgm(2,2)-1.5d0*gm(2,2)*dgm(3,3))& 2868 & +gm(2,3)**2*(3*gm(3,3)*dgm(2,2)+4.5d0*gm(2,2)*dgm(3,3)) 2869 cm(3,9,25)=1.5d0*gm(2,3)**3*dgm(2,2)+6*gm(2,2)*gm(2,3)**2*dgm(2,3)& 2870 & +12*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(7.5d0*gm(3,3)& 2871 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 2872 cm(3,10,25)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2873 & +2.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 2874 & -1.5d0*gm(2,2)*dgm(3,3)) 2875 cm(3,1,26)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm(2,2)& 2876 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 2877 & *gm(3,3)))*dgm(2,3)+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2878 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm(3,3))/36.d0 2879 cm(3,2,26)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2880 & *gm(3,3)))*dgm(2,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2881 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+3*gm(2,2)*(24*gm(1,3)*gm(2,2)& 2882 & +12*gm(1,2)*gm(2,3))*dgm(3,3))/12.d0 2883 cm(3,3,26)=12*gm(1,2)*gm(3,3)*(gm(3,3)*dgm(2,3)+gm(2,3)*dgm(3,3))& 2884 & +gm(1,3)*(3*gm(3,3)**2*dgm(2,2)+1.5d0*gm(2,3)**2*dgm(3,3)+gm(3,3)& 2885 & *(6*gm(2,3)*dgm(2,3)-4.5d0*gm(2,2)*dgm(3,3))) 2886 cm(3,4,26)=gm(1,3)*(6*gm(2,3)**2*dgm(2,3)+24*gm(2,2)*gm(3,3)*dgm(2,3)& 2887 & +gm(2,3)*(9*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3)))+gm(1,2)*(-3*gm(3,3)& 2888 & **2*dgm(2,2)+3*gm(2,3)**2*dgm(3,3)+gm(3,3)*(6*gm(2,3)*dgm(2,3)& 2889 & +12*gm(2,2)*dgm(3,3))) 2890 cm(3,5,26)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm(2,2)& 2891 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2892 & *gm(2,3)*gm(3,3))*dgm(2,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2893 & *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)& 2894 & *gm(3,3)))*dgm(3,3))/12.d0 2895 cm(3,6,26)=gm(1,3)**2*(7.5d0*gm(2,3)*dgm(2,2)+15*gm(2,2)*dgm(2,3))& 2896 & +gm(1,2)*gm(1,3)*(-3*gm(3,3)*dgm(2,2)+18*gm(2,3)*dgm(2,3)+12*gm(2,2)& 2897 & *dgm(3,3))+gm(1,2)**2*(-6*gm(3,3)*dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3))& 2898 & +gm(1,1)*(-1.5d0*gm(2,3)*gm(3,3)*dgm(2,2)-6*gm(2,3)**2*dgm(2,3)& 2899 & -3*gm(2,2)*gm(3,3)*dgm(2,3)-4.5d0*gm(2,2)*gm(2,3)*dgm(3,3)) 2900 cm(3,7,26)=2.5d0*gm(2,3)**3*dgm(2,2)+9*gm(2,2)*gm(2,3)**2*dgm(2,3)& 2901 & -3*gm(2,2)**2*gm(3,3)*dgm(2,3)+gm(2,2)*gm(2,3)*(-1.5d0*gm(3,3)& 2902 & *dgm(2,2)+3*gm(2,2)*dgm(3,3)) 2903 cm(3,8,26)=6*gm(2,3)**2*gm(3,3)*dgm(2,3)+12*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2904 & +1.5d0*gm(2,3)**3*dgm(3,3)+gm(2,3)*gm(3,3)*(3*gm(3,3)*dgm(2,2)& 2905 & +7.5d0*gm(2,2)*dgm(3,3)) 2906 cm(3,9,26)=3*gm(2,3)**3*dgm(2,3)+15*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2907 & +gm(2,3)**2*(4.5d0*gm(3,3)*dgm(2,2)+3*gm(2,2)*dgm(3,3))+gm(2,2)& 2908 & *gm(3,3)*(-1.5d0*gm(3,3)*dgm(2,2)+6*gm(2,2)*dgm(3,3)) 2909 cm(3,10,26)=gm(3,3)*(1*gm(3,3)**2*dgm(2,2)+4.5d0*gm(2,3)**2*dgm(3,3)& 2910 & +gm(3,3)*(6*gm(2,3)*dgm(2,3)-1.5d0*gm(2,2)*dgm(3,3))) 2911 cm(3,1,27)=5*gm(1,3)**3*dgm(2,3)+7.5d0*gm(1,2)*gm(1,3)**2*dgm(3,3)& 2912 & -1.5d0*gm(1,1)*gm(1,2)*gm(3,3)*dgm(3,3)-3*gm(1,1)*gm(1,3)*(gm(3,3)& 2913 & *dgm(2,3)+gm(2,3)*dgm(3,3)) 2914 cm(3,2,27)=(40*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2915 & **2-18*gm(2,2)*gm(3,3)))*dgm(2,3)+60*(48*gm(1,3)*gm(2,2)*gm(2,3)& 2916 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm(3,3))/240.d0 2917 cm(3,3,27)=gm(3,3)*(6*gm(1,2)*gm(3,3)*dgm(3,3)+gm(1,3)*(6*gm(3,3)& 2918 & *dgm(2,3)+3*gm(2,3)*dgm(3,3))) 2919 cm(3,4,27)=gm(1,2)*gm(3,3)*(-6*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3))& 2920 & +gm(1,3)*(18*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)+12*gm(2,2)& 2921 & *gm(3,3)*dgm(3,3)) 2922 cm(3,5,27)=12*gm(1,2)*gm(1,3)*gm(3,3)*dgm(3,3)+gm(1,1)*gm(3,3)& 2923 & *(-3*gm(3,3)*dgm(2,3)-4.5d0*gm(2,3)*dgm(3,3))+gm(1,3)**2*(9*gm(3,3)& 2924 & *dgm(2,3)+1.5d0*gm(2,3)*dgm(3,3)) 2925 cm(3,6,27)=(40*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2926 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(2,3)+60*(30*gm(1,3)**2*gm(2,2)& 2927 & +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)& 2928 & **2-6*gm(2,2)*gm(3,3)))*dgm(3,3))/240.d0 2929 cm(3,7,27)=5*gm(2,3)**3*dgm(2,3)-3*gm(2,2)*gm(2,3)*gm(3,3)*dgm(2,3)& 2930 & +4.5d0*gm(2,2)*gm(2,3)**2*dgm(3,3)-1.5d0*gm(2,2)**2*gm(3,3)*dgm(3,3) 2931 cm(3,8,27)=gm(3,3)*(6*gm(2,3)*gm(3,3)*dgm(2,3)+3*gm(2,3)**2*dgm(3,3)& 2932 & +6*gm(2,2)*gm(3,3)*dgm(3,3)) 2933 cm(3,9,27)=9*gm(2,3)**2*gm(3,3)*dgm(2,3)-3*gm(2,2)*gm(3,3)**2*dgm(2,3)& 2934 & +1.5d0*gm(2,3)**3*dgm(3,3)+7.5d0*gm(2,2)*gm(2,3)*gm(3,3)*dgm(3,3) 2935 cm(3,10,27)=gm(3,3)**2*(2*gm(3,3)*dgm(2,3)+3*gm(2,3)*dgm(3,3)) 2936 cm(3,1,28)=gm(1,3)*(2.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 2937 cm(3,2,28)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2938 & *gm(3,3)))*dgm(3,3))/12.d0 2939 cm(3,3,28)=3*gm(1,3)*gm(3,3)**2*dgm(3,3) 2940 cm(3,4,28)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm(3,3))& 2941 & /6.d0 2942 cm(3,5,28)=gm(3,3)*(4.5d0*gm(1,3)**2-1.5d0*gm(1,1)*gm(3,3))*dgm(3,3) 2943 cm(3,6,28)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2944 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm(3,3))/12.d0 2945 cm(3,7,28)=gm(2,3)*(2.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 2946 cm(3,8,28)=3*gm(2,3)*gm(3,3)**2*dgm(3,3) 2947 cm(3,9,28)=gm(3,3)*(4.5d0*gm(2,3)**2-1.5d0*gm(2,2)*gm(3,3))*dgm(3,3) 2948 cm(3,10,28)=gm(3,3)**3*dgm(3,3) 2949 end if 2950 ! 2951 !contraction to output 3-vector 2952 ! 2953 eisnl(:)=0.d0 2954 do jj=1,((rank+4)*(rank+5))/2 2955 tmp(:,:)=0.d0 2956 do ii=1,((rank+1)*(rank+2))/2 2957 tmp(:,1)=tmp(:,1)+aa(:,ii)*cm(1,ii,jj) 2958 tmp(:,2)=tmp(:,2)+aa(:,ii)*cm(2,ii,jj) 2959 tmp(:,3)=tmp(:,3)+aa(:,ii)*cm(3,ii,jj) 2960 end do 2961 eisnl(:)=eisnl(:)+tmp(1,:)*bb(1,jj)+tmp(2,:)*bb(2,jj) 2962 end do 2963 !factor of 2 multiplied in to drop call to conjugate contraction 2964 !eisnl(:)=0.5d0*eisnl(:) 2965 2966 ABI_DEALLOCATE(cm) 2967 2968 end subroutine contistr03