TABLE OF CONTENTS
ABINIT/contstr25a [ Functions ]
NAME
contstr25a
FUNCTION
Carries out specialized metric tensor operations needed for contraction of the 2nd strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander pseudopotential operation. Derivatives are wrt a pair of cartesian strain components. Full advantage is taken of the full permutational symmetry of these tensors.
COPYRIGHT
Copyright (C) 1998-2024 ABINIT group (DRH) This file is distributed under the terms of the GNU General Public License, see ~abinit/COPYING or http://www.gnu.org/copyleft/gpl.txt . For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
INPUTS
istr1=1,...6 specifies cartesian strain component 11,22,33,32,31,21 istr2=seccond strain component rank=angular momentum gm(3,3)=metric tensor (array is symmetric but stored as 3x3) gprimd(3,3)=reciprocal space dimensional primitive translations aa(2,*)=unique elements of complex right-hand tensor bb(2,*)=unique elements of complex left-hand tensor
OUTPUT
e2nl=contraction for nonlocal 2nd-order strain derivative energy
NOTES
All tensors are stored in a compressed storage mode defined below; input and output conform to this scheme. When tensor elements occur repeatedly due to symmetry, the WEIGHT IS INCLUDED in the output tensor element to simplify later contractions with other tensors of the same rank and form, i.e. the next contraction is then simply a dot product over the unique elements.
SOURCE
42 #if defined HAVE_CONFIG_H 43 #include "config.h" 44 #endif 45 46 #include "abi_common.h" 47 48 49 module m_contstr25a 50 contains 51 !!** 52 53 54 55 subroutine contstr25a(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb) 56 57 use defs_basis 58 use m_abicore 59 implicit none 60 61 !Arguments ------------------------------------ 62 !scalars 63 integer,intent(in) :: istr1,istr2,rank 64 real(dp),intent(out) :: e2nl 65 !arrays 66 real(dp),intent(in) :: aa(2,((rank+3)*(rank+4))/2),bb(2,((rank+3)*(rank+4))/2) 67 real(dp),intent(in) :: gm(3,3),gprimd(3,3) 68 69 !Local variables------------------------------- 70 !scalars 71 integer,parameter :: mrank=3 72 integer :: ii,jj,ka,kb,kd,kg 73 !arrays 74 integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/) 75 real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2) 76 real(dp),allocatable :: cm(:,:) 77 78 ! ************************************************************************* 79 ABI_MALLOC(cm,(((mrank+3)*(mrank+4))/2,((mrank+3)*(mrank+4))/2)) 80 81 ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2) 82 83 do ii = 1,3 84 dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii)) 85 dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii)) 86 end do 87 88 d2gm(:,:)=0.d0 89 do ii = 1,3 90 if(ka==kg) d2gm(:,ii)=d2gm(:,ii)& 91 & +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii) 92 if(ka==kd) d2gm(:,ii)=d2gm(:,ii)& 93 & +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii) 94 if(kb==kg) d2gm(:,ii)=d2gm(:,ii)& 95 & +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii) 96 if(kb==kd) d2gm(:,ii)=d2gm(:,ii)& 97 & +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii) 98 end do 99 d2gm(:,:)=0.5d0*d2gm(:,:) 100 101 ! 102 !The code below was written by a Mathematica program and formatted by 103 !a combination of editing scripts. It is not intended to be read 104 !by human beings, and certainly not to be modified by one. Conceivably 105 !it could be shortened somewhat by identifying common subexpressions. 106 ! 107 if(rank==3)then 108 cm(1,1)=2*gm(1,1)**3*dgm01(1,1)*dgm10(1,1) 109 cm(2,1)=(gm(1,1)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)& 110 & *dgm10(1,1)+8640*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 111 & *dgm10(1,2))+1440*gm(1,1)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 112 & *dgm10(2,2))))/1440.d0 113 cm(3,1)=(gm(1,1)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 114 & *dgm10(1,1)+8640*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 115 & *dgm10(1,3))+1440*gm(1,1)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 116 & *dgm10(3,3))))/1440.d0 117 cm(4,1)=(gm(1,1)*(240*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 118 & *dgm01(1,1)*dgm10(1,1)+4320*gm(1,1)*gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 119 & +dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)*gm(1,2)*(dgm01(1,3)*dgm10(1,1)& 120 & +dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*(dgm01(2,3)*dgm10(1,1)& 121 & +dgm01(1,1)*dgm10(2,3))))/720.d0 122 cm(5,1)=gm(1,1)**2*(6*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 123 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 124 cm(6,1)=gm(1,1)**2*(6*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 125 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))) 126 cm(7,1)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)& 127 & *dgm10(1,1)+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)& 128 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)**2*gm(1,2)*(dgm01(2,2)& 129 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/1440.d0 130 cm(8,1)=(80*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 131 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+80*gm(1,1)*(54*gm(1,3)& 132 & **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 133 & +160*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)& 134 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2880*gm(1,1)**2*gm(1,3)*(dgm01(2,3)& 135 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1440*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 136 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/480.d0 137 cm(9,1)=(80*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 138 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+160*gm(1,1)& 139 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 140 & +dgm01(1,1)*dgm10(1,2))+80*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 141 & *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)& 142 & **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2880*gm(1,1)& 143 & **2*gm(1,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/480.d0 144 cm(10,1)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)& 145 & *dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)& 146 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4320*gm(1,1)**2*gm(1,3)*(dgm01(3,3)& 147 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/1440.d0 148 cm(11,1)=(160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,2)& 149 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 150 & *gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/2880.d0 151 cm(12,1)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 152 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 153 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 154 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 155 & +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)& 156 & +dgm01(1,1)*dgm10(2,2))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 157 & *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+gm(1,1)& 158 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 159 & *dgm10(3,3)))/12.d0 160 cm(13,1)=(3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 161 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 162 & *dgm10(1,2))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)& 163 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)& 164 & -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 165 & +3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)& 166 & +dgm01(1,1)*dgm10(2,3)))/18.d0 167 cm(14,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)& 168 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 169 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 170 & +dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 171 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)& 172 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 173 & *dgm10(3,3)))/18.d0 174 cm(15,1)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 175 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 176 & *gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/2880.d0 177 cm(16,1)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)& 178 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/36.d0 179 cm(17,1)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 180 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 181 & +6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 182 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 183 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 184 & +dgm01(1,1)*dgm10(3,3)))/36.d0 185 cm(18,1)=(240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 186 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 187 & *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 188 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/2880.d0 189 cm(19,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 190 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 191 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 192 & +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 193 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 194 & *dgm10(3,3)))/36.d0 195 cm(20,1)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 196 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 197 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 198 & +dgm01(1,1)*dgm10(3,3)))/2880.d0 199 cm(21,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)& 200 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/36.d0 201 cm(1,2)=(gm(1,1)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)& 202 & *dgm10(1,1)+8640*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 203 & *dgm10(1,2))+1440*gm(1,1)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 204 & *dgm10(2,2))))/1440.d0 205 cm(2,2)=6*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 206 & +gm(1,1)*(12*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)**2*dgm01(2,2)& 207 & *dgm10(2,2)+gm(1,1)*gm(2,2)*(-3*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)& 208 & *dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))+gm(1,2)**2*(6*gm(2,2)*dgm01(1,1)& 209 & *dgm10(1,1)+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)& 210 & +9*dgm01(1,1)*dgm10(2,2)))+gm(1,1)*gm(1,2)*(30*gm(2,2)*(dgm01(1,2)& 211 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(dgm01(2,2)*dgm10(1,2)& 212 & +dgm01(1,2)*dgm10(2,2))) 213 cm(3,2)=(72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 214 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 215 & *dgm01(1,1)*dgm10(1,1)+72*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 216 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 217 & *dgm10(1,2))+72*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 218 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 219 & *dgm10(1,3))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 220 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)& 221 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 222 & +864*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 223 & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 224 & +dgm01(1,1)*dgm10(3,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)& 225 & +dgm01(1,2)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,2)& 226 & +dgm01(2,2)*dgm10(3,3)))/144.d0 227 cm(4,2)=(72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 228 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)& 229 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)& 230 & +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 231 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 232 & +36*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 233 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 234 & +36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)& 235 & +dgm01(1,1)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 236 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)& 237 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 238 & +dgm01(1,1)*dgm10(2,2))+432*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 239 & +dgm01(1,2)*dgm10(2,2))+432*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)& 240 & +dgm01(1,3)*dgm10(2,2))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 241 & *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)& 242 & **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*gm(1,1)& 243 & **3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 244 cm(5,2)=(144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 245 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)& 246 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 247 & +dgm01(1,1)*dgm10(1,2))+48*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 248 & *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)& 249 & **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)& 250 & **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+576*gm(1,1)& 251 & **3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0 252 cm(6,2)=3*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,2)& 253 & **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*gm(1,2)& 254 & *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)& 255 & +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))+gm(1,1)**2*(9*gm(2,2)& 256 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+2*gm(1,1)*(dgm01(2,2)& 257 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 258 cm(7,2)=gm(1,2)**3*(4*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 259 & +4*dgm01(1,1)*dgm10(2,2))+gm(1,2)*(6*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)& 260 & +6*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+gm(1,1)*gm(2,2)*(6*dgm01(2,2)& 261 & *dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))& 262 & +15*gm(1,2)**2*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 263 & +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+9*gm(1,1)& 264 & *gm(2,2)*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 265 & +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 266 cm(8,2)=(24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 267 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+96*(48*gm(1,1)*gm(1,3)*gm(2,3)& 268 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)& 269 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 270 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 271 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)**2*gm(2,2)& 272 & +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)& 273 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 274 & +48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 275 & *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 276 & +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 277 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 278 & +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 279 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+8*gm(1,1)& 280 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 281 & *dgm10(2,2))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 282 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)& 283 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 284 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)& 285 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 286 & *dgm10(2,3))+288*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 287 & *dgm10(2,3))+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)& 288 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 289 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,1)& 290 & **2*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/48.d0 291 cm(9,2)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 292 & *dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 293 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+24*(48*gm(1,2)& 294 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 295 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+48*(6*gm(1,2)& 296 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 297 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*gm(2,2)*(12*gm(1,2)& 298 & **2+24*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 299 & +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 300 & +dgm01(1,2)*dgm10(1,3))+288*gm(1,1)**2*gm(1,3)*dgm01(2,2)*dgm10(2,2)& 301 & +4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 302 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 303 & +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 304 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 305 & +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)& 306 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 307 & +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 308 & +8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 309 & +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 310 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)& 311 & **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 312 & +288*gm(1,1)**2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 313 & /48.d0 314 cm(10,2)=(24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 315 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+24*(90*gm(1,3)& 316 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 317 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(-12*gm(1,3)& 318 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 319 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 320 & +dgm01(1,1)*dgm10(1,3))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 321 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 322 & *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 323 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 324 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+36*(6*gm(1,2)& 325 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 326 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(1,1)*(12*gm(1,2)& 327 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 328 & *dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 329 & *dgm10(3,3)))/144.d0 330 cm(11,2)=(2304*gm(1,2)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 331 & *dgm10(2,2))+gm(1,2)**2*(2592*gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 332 & *(864*dgm01(2,2)*dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)& 333 & *dgm10(2,2)))+gm(1,1)*gm(2,2)*(-864*gm(1,1)*dgm01(2,2)*dgm10(2,2)& 334 & +gm(2,2)*(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)& 335 & +1728*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*gm(2,2)*(1728*gm(2,2)*(dgm01(1,2)& 336 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3456*gm(1,1)*(dgm01(2,2)*dgm10(1,2)& 337 & +dgm01(1,2)*dgm10(2,2))))/288.d0 338 cm(12,2)=(24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 339 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 340 & *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 341 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 342 & *dgm10(1,2))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 343 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(48*gm(1,2)& 344 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 345 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(1,1)*(54*gm(1,3)& 346 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+3*(-12*gm(1,3)& 347 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 348 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)& 349 & +dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 350 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 351 & *dgm10(2,2))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 352 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 353 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 354 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 355 & +12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 356 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 357 & +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 358 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 359 & +4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)& 360 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 361 & *gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(6*gm(1,2)& 362 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 363 & *dgm10(3,3))+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 364 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0 365 cm(13,2)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 366 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+36*gm(2,2)& 367 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 368 & +dgm01(1,1)*dgm10(1,2))+432*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)& 369 & +dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 370 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)& 371 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)& 372 & +36*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 373 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 374 & +12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 375 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 376 & +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 377 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 378 & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 379 & +dgm01(1,3)*dgm10(2,2))+36*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 380 & *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*(6*gm(1,2)& 381 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 382 & *dgm10(2,3))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 383 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 384 cm(14,2)=(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 385 & *gm(2,3))*gm(3,3))*dgm01(1,2)*dgm10(1,2)+3*(-36*gm(1,2)*gm(2,3)& 386 & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 387 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)& 388 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 389 & +dgm01(1,1)*dgm10(1,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 390 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 391 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(90*gm(1,3)& 392 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 393 & *dgm10(2,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 394 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 395 & +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 396 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 397 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)& 398 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 399 & +dgm01(1,2)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 400 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,2)*gm(1,3)& 401 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 402 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 403 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 404 & +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 405 & *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0 406 cm(15,2)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 407 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 408 & +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 409 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 410 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 411 & +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 412 & *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)& 413 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,1)& 414 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 415 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 416 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 417 cm(16,2)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 418 & *dgm10(2,2)+4320*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 419 & *dgm10(2,2))+240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)& 420 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))/1440.d0 421 cm(17,2)=(24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 422 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(48*gm(1,3)& 423 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 424 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(30*gm(1,3)**2*gm(2,2)& 425 & +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)& 426 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 427 & +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)& 428 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)& 429 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 430 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(90*gm(1,2)**2*gm(1,3)& 431 & -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 432 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 433 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 434 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(90*gm(1,2)& 435 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 436 & *dgm10(3,3)))/144.d0 437 cm(18,2)=(48*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 438 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+72*gm(2,2)& 439 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 440 & +dgm01(1,1)*dgm10(2,2))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 441 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 442 & +dgm01(1,2)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)& 443 & +dgm01(1,1)*dgm10(2,3))+96*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 444 & *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+16*(90*gm(1,2)& 445 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 446 & *dgm10(2,3)))/288.d0 447 cm(19,2)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)& 448 & *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 449 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 450 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 451 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 452 & +18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 453 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(30*gm(1,3)& 454 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 455 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 456 & +dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 457 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 458 & *dgm10(2,3))+9*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 459 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,2)& 460 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 461 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,2)& 462 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 463 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 464 cm(20,2)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 465 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 466 & +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 467 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 468 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 469 & +dgm01(2,2)*dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 470 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 471 & *dgm10(3,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 472 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 473 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,1)& 474 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 475 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 476 cm(21,2)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 477 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 478 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 479 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 480 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)& 481 & +dgm01(2,2)*dgm10(3,3)))/36.d0 482 cm(1,3)=(gm(1,1)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)& 483 & *dgm10(1,1)+8640*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 484 & *dgm10(1,3))+1440*gm(1,1)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 485 & *dgm10(3,3))))/1440.d0 486 cm(2,3)=(72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 487 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 488 & *dgm01(1,1)*dgm10(1,1)+72*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 489 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 490 & *dgm10(1,2))+72*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 491 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 492 & *dgm10(1,3))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 493 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)& 494 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 495 & +864*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 496 & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 497 & +dgm01(1,1)*dgm10(3,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)& 498 & +dgm01(1,2)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,2)& 499 & +dgm01(2,2)*dgm10(3,3)))/144.d0 500 cm(3,3)=6*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 501 & +gm(1,1)*(12*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)**2*dgm01(3,3)& 502 & *dgm10(3,3)+gm(1,1)*gm(3,3)*(-3*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)& 503 & *dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)))+gm(1,3)**2*(6*gm(3,3)*dgm01(1,1)& 504 & *dgm10(1,1)+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)& 505 & +9*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(1,3)*(30*gm(3,3)*(dgm01(1,3)& 506 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 507 & +dgm01(1,3)*dgm10(3,3))) 508 cm(4,3)=(72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 509 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+36*(6*gm(1,3)& 510 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 511 & *dgm10(1,2))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 512 & *dgm01(1,3)*dgm10(1,3)+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 513 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 514 & *dgm10(1,3))+72*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 515 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 516 & +72*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 517 & +dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 518 & *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)& 519 & **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*gm(1,1)& 520 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)& 521 & +dgm01(1,1)*dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)& 522 & +dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 523 & +dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,3)& 524 & +dgm01(2,3)*dgm10(3,3)))/72.d0 525 cm(5,3)=3*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,3)& 526 & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*gm(1,3)& 527 & *(15*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)& 528 & +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)**2*(9*gm(3,3)& 529 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*gm(1,1)*(dgm01(3,3)& 530 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 531 cm(6,3)=(144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 532 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)*(54*gm(1,3)& 533 & **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 534 & +144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,3)& 535 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)**2*gm(1,3)*(dgm01(1,3)& 536 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 537 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**3*(dgm01(3,3)& 538 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0 539 cm(7,3)=(24*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 540 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+72*(-12*gm(1,3)& 541 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 542 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 543 & +dgm01(1,1)*dgm10(1,2))+24*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 544 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)& 545 & +dgm01(1,1)*dgm10(1,3))+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 546 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)& 547 & +dgm01(1,2)*dgm10(1,3))+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 548 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 549 & *dgm10(2,2))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 550 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)& 551 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 552 & *dgm10(3,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 553 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 554 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/144.d0 555 cm(8,3)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 556 & *dgm01(1,1)*dgm10(1,1)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))& 557 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,1)& 558 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(1,3)& 559 & *dgm10(1,3)+24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 560 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 561 & *dgm10(1,3))+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 562 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 563 & *dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 564 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**3+30*gm(1,1)& 565 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 566 & +48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 567 & +dgm01(1,3)*dgm10(2,3))+288*gm(1,1)**2*gm(1,2)*dgm01(3,3)*dgm10(3,3)& 568 & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 569 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(-36*gm(1,1)& 570 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 571 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+8*gm(1,1)*(54*gm(1,3)& 572 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 573 & +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)& 574 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 575 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 576 & +288*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 577 & /48.d0 578 cm(9,3)=(24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 579 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 580 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)& 581 & +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 582 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+24*(-12*gm(1,3)& 583 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 584 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 585 & +dgm01(1,1)*dgm10(1,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 586 & *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)& 587 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*(6*gm(1,1)& 588 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)& 589 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)**3+30*gm(1,1)& 590 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 591 & +24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 592 & +dgm01(1,3)*dgm10(2,2))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 593 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 594 & *dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 595 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+4*(90*gm(1,2)& 596 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 597 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+16*gm(1,1)*(54*gm(1,2)& 598 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 599 & *dgm10(3,3))+8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 600 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**2*gm(1,3)*(dgm01(3,3)& 601 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+288*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 602 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 603 cm(10,3)=gm(1,3)**3*(4*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 604 & +4*dgm01(1,1)*dgm10(3,3))+gm(1,3)*(6*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)& 605 & +6*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+gm(1,1)*gm(3,3)*(6*dgm01(3,3)& 606 & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))& 607 & +15*gm(1,3)**2*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 608 & +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+9*gm(1,1)& 609 & *gm(3,3)*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 610 & +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 611 cm(11,3)=(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 612 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 613 & +12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 614 & *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 615 & +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 616 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 617 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 618 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 619 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 620 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)& 621 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 622 & /36.d0 623 cm(12,3)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 624 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)& 625 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 626 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 627 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 628 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(6*gm(1,3)& 629 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 630 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*gm(3,3)*(12*gm(1,3)& 631 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 632 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 633 & +dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 634 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 635 & *dgm10(2,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 636 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 637 & +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 638 & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 639 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 640 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 641 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 642 & +dgm01(1,2)*dgm10(3,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 643 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 644 & *dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 645 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 646 & *dgm10(3,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 647 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)& 648 & -18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 649 & /12.d0 650 cm(13,3)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 651 & *gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(90*gm(1,2)& 652 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)& 653 & *dgm10(1,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 654 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 655 & +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 656 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 657 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 658 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)& 659 & +dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 660 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 661 & *dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 662 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 663 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,2)& 664 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 665 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(90*gm(1,2)& 666 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 667 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)& 668 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 669 & +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)& 670 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 671 & *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 672 cm(14,3)=(432*gm(1,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 673 & *dgm10(1,2))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 674 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+36*gm(3,3)& 675 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 676 & +dgm01(1,1)*dgm10(1,3))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 677 & *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+36*gm(3,3)& 678 & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 679 & *dgm10(2,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 680 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)*gm(1,3)& 681 & -18*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(6*gm(1,3)**2*gm(2,3)& 682 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 683 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 684 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 685 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 686 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,1)& 687 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 688 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 689 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 690 cm(15,3)=(2304*gm(1,3)**3*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 691 & *dgm10(3,3))+gm(1,3)**2*(2592*gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 692 & *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)& 693 & *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(1,1)*dgm01(3,3)*dgm10(3,3)& 694 & +gm(3,3)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)& 695 & +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(1,3)& 696 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 697 & +dgm01(1,3)*dgm10(3,3))))/288.d0 698 cm(16,3)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 699 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 700 & +6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 701 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 702 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 703 & +dgm01(2,2)*dgm10(3,3)))/36.d0 704 cm(17,3)=(9*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 705 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)& 706 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 707 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+18*(48*gm(1,2)& 708 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 709 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(-12*gm(1,3)**2*gm(2,2)& 710 & +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)& 711 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 712 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 713 & +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 714 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)& 715 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 716 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)& 717 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 718 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(90*gm(1,2)& 719 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 720 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 721 cm(18,3)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 722 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(-12*gm(1,3)& 723 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 724 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 725 & +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 726 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 727 & *dgm10(2,3))+12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 728 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 729 & *dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 730 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 731 & *dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)& 732 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 733 cm(19,3)=(432*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 734 & *dgm10(2,2))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 735 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)& 736 & +24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 737 & +144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 738 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 739 & +24*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 740 & *gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(48*gm(1,2)*gm(2,3)& 741 & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 742 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)& 743 & +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)& 744 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 745 & +4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)& 746 & +dgm01(2,2)*dgm10(3,3))+24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 747 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 748 & *dgm10(3,3)))/144.d0 749 cm(20,3)=(1728*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 750 & *dgm10(2,3))+96*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 751 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 752 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 753 & +72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 754 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*(6*gm(1,3)**2*gm(2,3)& 755 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 756 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**3-54*gm(1,1)& 757 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 758 & /288.d0 759 cm(21,3)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 760 & *dgm10(3,3)+4320*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 761 & *dgm10(3,3))+240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 762 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/1440.d0 763 cm(1,4)=(gm(1,1)*(240*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 764 & *dgm01(1,1)*dgm10(1,1)+4320*gm(1,1)*gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 765 & +dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)*gm(1,2)*(dgm01(1,3)*dgm10(1,1)& 766 & +dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*(dgm01(2,3)*dgm10(1,1)& 767 & +dgm01(1,1)*dgm10(2,3))))/720.d0 768 cm(2,4)=(72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 769 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)& 770 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)& 771 & +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 772 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 773 & +36*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 774 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 775 & +36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)& 776 & +dgm01(1,1)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 777 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*gm(1,1)& 778 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 779 & +dgm01(1,1)*dgm10(2,2))+432*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 780 & +dgm01(1,2)*dgm10(2,2))+432*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)& 781 & +dgm01(1,3)*dgm10(2,2))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 782 & *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)& 783 & **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*gm(1,1)& 784 & **3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 785 cm(3,4)=(72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 786 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+36*(6*gm(1,3)& 787 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 788 & *dgm10(1,2))+144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 789 & *dgm01(1,3)*dgm10(1,3)+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 790 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 791 & *dgm10(1,3))+72*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 792 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 793 & +72*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 794 & +dgm01(1,2)*dgm10(1,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 795 & *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+864*gm(1,1)& 796 & **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*gm(1,1)& 797 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)& 798 & +dgm01(1,1)*dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)& 799 & +dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 800 & +dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**3*(dgm01(3,3)*dgm10(2,3)& 801 & +dgm01(2,3)*dgm10(3,3)))/72.d0 802 cm(4,4)=18*gm(1,2)**2*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)& 803 & **2*(18*gm(2,2)*dgm01(1,1)*dgm10(1,1)+24*gm(1,1)*dgm01(1,2)*dgm10(1,2)& 804 & +12*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)& 805 & *(18*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+30*gm(2,2)*gm(3,3)*dgm01(1,1)& 806 & *dgm10(1,1)+12*gm(1,2)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 807 & *dgm10(1,3))+gm(1,2)*(48*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 808 & *dgm10(1,2))+24*gm(1,2)*dgm01(1,3)*dgm10(1,3)))+8*gm(1,1)**3*dgm01(2,3)& 809 & *dgm10(2,3)+gm(1,1)**2*(48*gm(3,3)*dgm01(1,2)*dgm10(1,2)+48*gm(2,2)& 810 & *dgm01(1,3)*dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+24*gm(1,2)& 811 & *dgm01(1,3)*dgm10(2,3)+gm(2,3)*(-12*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)& 812 & *dgm10(1,2)+48*dgm01(1,2)*dgm10(1,3)-12*dgm01(1,1)*dgm10(2,3)))& 813 & +gm(1,3)*(12*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 814 & +gm(1,2)*(-12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(36*dgm01(2,3)& 815 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)& 816 & +36*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 817 & +dgm01(1,1)*dgm10(1,2))+48*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 818 & *dgm10(1,3))+24*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))) 819 cm(5,4)=(gm(1,2)*(864*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+3456*gm(1,1)& 820 & *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)& 821 & *(gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,3)*dgm10(1,3)))& 822 & +gm(1,1)*(864*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 823 & +gm(1,3)*(864*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(864*dgm01(2,3)& 824 & *dgm10(1,1)+1728*dgm01(1,3)*dgm10(1,2)+1728*dgm01(1,2)*dgm10(1,3)& 825 & +864*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(1728*gm(3,3)*(dgm01(1,2)& 826 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+864*gm(2,3)*(dgm01(1,3)*dgm10(1,1)& 827 & +dgm01(1,1)*dgm10(1,3))+576*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 828 & *dgm10(2,3)))))/144.d0 829 cm(6,4)=(144*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 830 & +6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+3456*gm(1,1)& 831 & **2*gm(1,3)*dgm01(1,2)*dgm10(1,2)+48*gm(1,1)*(54*gm(1,2)*gm(1,3)& 832 & -18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 833 & +72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)& 834 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 835 & *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1728*gm(1,1)& 836 & **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)& 837 & **2*gm(1,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+576*gm(1,1)& 838 & **3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))/144.d0 839 cm(7,4)=(24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 840 & *dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 841 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+12*(-36*gm(1,2)& 842 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 843 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(6*gm(1,2)& 844 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 845 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(2,2)*(54*gm(1,2)& 846 & **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 847 & +72*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 848 & +dgm01(1,2)*dgm10(1,3))+36*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 849 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 850 & *dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 851 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)& 852 & **2+24*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 853 & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)& 854 & +dgm01(1,1)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 855 & *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+432*gm(1,1)& 856 & **2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 857 cm(8,4)=12*gm(1,3)**3*dgm01(1,2)*dgm10(1,2)+gm(1,3)**2*(21*gm(1,2)& 858 & *dgm01(2,3)*dgm10(1,1)+18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)& 859 & *dgm01(2,3)*dgm10(1,2)+9*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 860 & *dgm10(1,2))+18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+33*gm(2,2)*(dgm01(1,3)& 861 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+21*gm(1,2)*dgm01(1,1)*dgm10(2,3)& 862 & +30*gm(1,1)*dgm01(1,2)*dgm10(2,3))+gm(1,2)**2*(12*gm(3,3)*(dgm01(1,3)& 863 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 864 & +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(6*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)& 865 & +30*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+3*gm(1,2)**2*dgm01(3,3)& 866 & *dgm10(1,1)+30*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+60*gm(1,1)& 867 & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)& 868 & +24*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)& 869 & *dgm10(1,3)+48*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)& 870 & **2*dgm01(2,3)*dgm10(2,3)+gm(2,3)*(6*gm(1,2)*(dgm01(1,3)*dgm10(1,1)& 871 & +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(0*dgm01(2,3)*dgm10(1,1)+60*dgm01(1,3)& 872 & *dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)))& 873 & +3*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)*gm(1,2)*dgm01(1,2)& 874 & *dgm10(3,3)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 875 & *(12*dgm01(3,3)*dgm10(1,1)+96*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)& 876 & *dgm10(3,3))))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,3)*dgm10(1,1)& 877 & +dgm01(1,1)*dgm10(1,3))+18*gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(1,2)& 878 & +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(15*gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 879 & +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(2,3)& 880 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3)))+gm(2,2)& 881 & *(27*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)& 882 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))))+gm(1,2)*(gm(2,3)& 883 & *(6*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)& 884 & +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*(gm(3,3)& 885 & *(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)& 886 & *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(2,3)& 887 & +dgm01(2,3)*dgm10(3,3)))) 888 cm(9,4)=12*gm(1,2)**3*dgm01(1,3)*dgm10(1,3)+gm(1,3)**2*(12*gm(2,2)& 889 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(2,2)& 890 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))& 891 & +6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)& 892 & **2*(33*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 893 & +9*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(1,1)& 894 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)& 895 & **2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)& 896 & +60*gm(1,1)*dgm01(1,3)*dgm10(1,3))+gm(1,1)*gm(2,3)*(0*dgm01(2,3)& 897 & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)& 898 & +0*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)& 899 & +96*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+24*gm(1,1)& 900 & *dgm01(2,3)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)& 901 & +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*gm(3,3)*(dgm01(2,2)*dgm10(1,2)& 902 & +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(15*gm(2,2)*(dgm01(1,3)*dgm10(1,1)& 903 & +dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)& 904 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)))+gm(2,2)& 905 & *(27*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*gm(1,1)& 906 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))+gm(1,3)*(gm(1,2)& 907 & **2*(21*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)& 908 & *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(6*gm(2,3)*dgm01(1,1)& 909 & *dgm10(1,1)+30*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 910 & +gm(1,1)*(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)& 911 & *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)*(dgm01(1,2)& 912 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(48*dgm01(2,3)*dgm10(1,2)& 913 & +6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+48*dgm01(1,2)& 914 & *dgm10(2,3)))+gm(1,1)*(gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)& 915 & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(2,2)& 916 & +dgm01(2,2)*dgm10(2,3)))) 917 cm(10,4)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 918 & *dgm01(1,1)*dgm10(1,1)+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 919 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+144*(48*gm(1,1)& 920 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)& 921 & *dgm10(1,3)+12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 922 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 923 & *dgm10(1,3))+72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 924 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 925 & *dgm10(1,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 926 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 927 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 928 & +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 929 & +dgm01(1,3)*dgm10(2,3))+36*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 930 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 931 & *dgm10(3,3))+36*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 932 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)& 933 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 934 & +432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 935 & /72.d0 936 cm(11,4)=(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 937 & +gm(1,1)*gm(2,3)))*dgm01(1,2)*dgm10(1,2)+6*gm(2,2)*(-18*gm(1,3)& 938 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 939 & *dgm10(1,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)& 940 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)& 941 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)& 942 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 943 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 944 & +dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 945 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)& 946 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 947 & *dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 948 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/18.d0 949 cm(12,4)=(12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 950 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+6*(6*gm(1,2)& 951 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 952 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,2)*gm(1,3)*gm(2,2)& 953 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)& 954 & *dgm10(1,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 955 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(30*gm(1,3)& 956 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 957 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 958 & +dgm01(1,2)*dgm10(1,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 959 & *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)& 960 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)& 961 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 962 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(6*gm(1,3)**3+30*gm(1,1)& 963 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 964 & +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 965 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)& 966 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 967 & +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 968 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 969 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 970 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 971 & +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 972 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 973 & *dgm10(2,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 974 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 975 & *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 976 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 977 & *dgm10(2,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 978 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,2)*gm(1,3)*gm(2,2)& 979 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 980 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 981 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 982 & +dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 983 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(54*gm(1,2)& 984 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 985 & /6.d0 986 cm(13,4)=(18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 987 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 988 & *dgm01(1,2)*dgm10(1,2)+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 989 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 990 & +6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)*dgm10(1,3)& 991 & +3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 992 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)& 993 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 994 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 995 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 996 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)& 997 & *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 998 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,1)& 999 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 1000 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 1001 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 1002 & +dgm01(1,3)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 1003 & *dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1004 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)& 1005 & +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1006 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1007 & *dgm10(2,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1008 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1009 & *dgm10(2,3))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 1010 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,2)**3+30*gm(1,1)& 1011 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1012 & +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)& 1013 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/9.d0 1014 cm(14,4)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 1015 & *dgm10(1,2)+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 1016 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*(30*gm(1,3)& 1017 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1018 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 1019 & +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1020 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*(90*gm(1,3)& 1021 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 1022 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)& 1023 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 1024 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1025 & *gm(3,3))*dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1026 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 1027 & +dgm01(1,1)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 1028 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,3)**3+30*gm(1,1)& 1029 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1030 & +9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 1031 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)& 1032 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1033 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(9*gm(1,3)**2*gm(2,2)& 1034 & -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)& 1035 & **2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1036 & +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 1037 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)& 1038 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 1039 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)& 1040 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1041 & *dgm10(3,3)))/9.d0 1042 cm(15,4)=(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 1043 & *gm(2,3))*gm(3,3))*dgm01(1,3)*dgm10(1,3)+6*gm(3,3)*(54*gm(1,3)& 1044 & *gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1045 & *dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)& 1046 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*(90*gm(1,3)**3-54*gm(1,1)& 1047 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1048 & +9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 1049 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1050 & +9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)& 1051 & +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1052 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 1053 & *dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 1054 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 1055 cm(16,4)=(3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 1056 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(-36*gm(1,2)& 1057 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1058 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(1,2)& 1059 & **2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1060 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)& 1061 & +dgm01(2,2)*dgm10(2,3)))/18.d0 1062 cm(17,4)=(9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1063 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,3)& 1064 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 1065 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(30*gm(1,3)& 1066 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1067 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 1068 & +dgm01(1,3)*dgm10(2,2))+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1069 & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 1070 & +18*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 1071 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)& 1072 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1073 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 1074 & +dgm01(1,2)*dgm10(2,3))+18*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1075 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)& 1076 & +dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1077 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1078 & *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 1079 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(-36*gm(1,2)& 1080 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1081 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(54*gm(1,2)& 1082 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1083 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)& 1084 & +dgm01(2,3)*dgm10(3,3)))/18.d0 1085 cm(18,4)=(9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 1086 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(-12*gm(1,3)& 1087 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1088 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 1089 & +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1090 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 1091 & +dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 1092 & *dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 1093 & *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-36*gm(1,2)& 1094 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1095 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(1,2)& 1096 & **2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1097 & +3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 1098 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 1099 & /18.d0 1100 cm(19,4)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 1101 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*gm(3,3)*(54*gm(1,3)& 1102 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 1103 & +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1104 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1105 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1106 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,2)*gm(2,3)*gm(3,3)& 1107 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 1108 & +dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 1109 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1110 & *dgm10(2,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1111 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1112 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)& 1113 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 1114 & +9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 1115 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(-12*gm(1,3)& 1116 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1117 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 1118 & +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1119 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 1120 & +dgm01(1,3)*dgm10(3,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1121 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1122 & *dgm10(3,3)))/18.d0 1123 cm(20,4)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 1124 & *dgm10(2,3)+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 1125 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)& 1126 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1127 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1128 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1129 & +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1130 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(6*gm(1,3)& 1131 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 1132 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)& 1133 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1134 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 1135 & +dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1136 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 1137 & *dgm10(3,3)))/18.d0 1138 cm(21,4)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 1139 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*gm(3,3)*(54*gm(1,3)& 1140 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 1141 & +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1142 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1143 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 1144 & +dgm01(2,3)*dgm10(3,3)))/18.d0 1145 cm(1,5)=gm(1,1)**2*(6*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 1146 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))) 1147 cm(2,5)=(144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1148 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*gm(1,1)& 1149 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 1150 & +dgm01(1,1)*dgm10(1,2))+48*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 1151 & *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)& 1152 & **2*gm(1,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)& 1153 & **2*gm(1,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+576*gm(1,1)& 1154 & **3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0 1155 cm(3,5)=3*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,3)& 1156 & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*gm(1,3)& 1157 & *(15*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)& 1158 & +24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))+gm(1,1)**2*(9*gm(3,3)& 1159 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*gm(1,1)*(dgm01(3,3)& 1160 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 1161 cm(4,5)=gm(1,2)*(6*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+24*gm(1,1)& 1162 & *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(1,1)& 1163 & *(gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,3)*dgm10(1,3)))& 1164 & +gm(1,1)*(6*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1165 & +gm(1,3)*(6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(2,3)& 1166 & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)& 1167 & +6*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)& 1168 & +dgm01(1,1)*dgm10(1,2))+6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1169 & *dgm10(1,3))+4*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))) 1170 cm(5,5)=gm(1,1)*(6*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)& 1171 & *gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)& 1172 & *(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+8*gm(1,1)*dgm01(1,3)*dgm10(1,3))) 1173 cm(6,5)=gm(1,1)*(6*gm(1,2)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1174 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(12*gm(2,3)& 1175 & *dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1176 & *dgm10(1,2))+4*gm(1,1)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)))) 1177 cm(7,5)=(48*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 1178 & +gm(1,1)*gm(2,3)))*dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)& 1179 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)& 1180 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(90*gm(1,2)**3-54*gm(1,1)& 1181 & *gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1182 & +96*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 1183 & +dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)& 1184 & *gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+1728*gm(1,1)& 1185 & **2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/288.d0 1186 cm(8,5)=(48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1187 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)& 1188 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1189 & *dgm10(1,2))+128*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1190 & *dgm01(1,3)*dgm10(1,3)+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1191 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1192 & *dgm10(1,3))+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1193 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1194 & +32*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 1195 & +dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)& 1196 & *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)& 1197 & **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)& 1198 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)& 1199 & +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 1200 & +dgm01(1,3)*dgm10(3,3)))/96.d0 1201 cm(9,5)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1202 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1203 & *dgm01(1,1)*dgm10(1,1)+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1204 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1205 & *dgm10(1,2))+64*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)& 1206 & *dgm10(1,3)+16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1207 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1208 & *dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1209 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1210 & *dgm10(1,3))+64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1211 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)*(12*gm(1,3)& 1212 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1213 & +576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1214 & +48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)& 1215 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)**2*gm(1,2)*(dgm01(2,3)& 1216 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))/96.d0 1217 cm(10,5)=8*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1218 & +gm(1,3)**2*(9*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)& 1219 & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))& 1220 & +gm(1,1)*gm(3,3)*(-3*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(3,3)& 1221 & *dgm10(1,1)-12*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))& 1222 & +gm(1,1)*gm(1,3)*(12*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1223 & *dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 1224 cm(11,5)=(6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1225 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1226 & *dgm10(1,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)& 1227 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1228 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 1229 & +dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 1230 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/36.d0 1231 cm(12,5)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1232 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1233 & *dgm10(1,2))+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1234 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+6*(-12*gm(1,3)& 1235 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1236 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 1237 & +dgm01(1,1)*dgm10(1,3))+4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1238 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 1239 & *dgm10(1,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 1240 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1241 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,1)& 1242 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 1243 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)& 1244 & -18*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1245 & +3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 1246 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1247 & +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)& 1248 & +dgm01(1,3)*dgm10(3,3)))/12.d0 1249 cm(13,5)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1250 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1251 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(90*gm(1,2)& 1252 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,2)& 1253 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1254 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(90*gm(1,2)& 1255 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1256 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,1)*gm(1,3)& 1257 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 1258 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)& 1259 & -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1260 & +9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 1261 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1262 & +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)& 1263 & +dgm01(1,3)*dgm10(2,3)))/18.d0 1264 cm(14,5)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)& 1265 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 1266 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 1267 & +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1268 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1269 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 1270 & +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 1271 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)& 1272 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1273 & +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 1274 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)& 1275 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 1276 & +dgm01(1,3)*dgm10(3,3)))/18.d0 1277 cm(15,5)=(32*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 1278 & *dgm10(1,3)+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)& 1279 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(6*gm(1,3)**3+30*gm(1,1)& 1280 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1281 & +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 1282 & +dgm01(1,3)*dgm10(3,3)))/144.d0 1283 cm(16,5)=(240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1284 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1285 & *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)& 1286 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/2880.d0 1287 cm(17,5)=(9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1288 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1289 & *dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1290 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1291 & +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 1292 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 1293 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)**2*gm(1,3)& 1294 & -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 1295 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 1296 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 1297 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)& 1298 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))& 1299 & /36.d0 1300 cm(18,5)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1301 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1302 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(90*gm(1,2)& 1303 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1304 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)& 1305 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1306 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)& 1307 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 1308 & *dgm10(2,3)))/36.d0 1309 cm(19,5)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 1310 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)& 1311 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1312 & +18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1313 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1314 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1315 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)& 1316 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 1317 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 1318 & +dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1319 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 1320 & *dgm10(3,3)))/36.d0 1321 cm(20,5)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 1322 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 1323 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 1324 & +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 1325 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1326 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1327 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/36.d0 1328 cm(21,5)=(240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 1329 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)& 1330 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))& 1331 & /2880.d0 1332 cm(1,6)=gm(1,1)**2*(6*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)& 1333 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))) 1334 cm(2,6)=3*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+15*gm(1,1)*gm(1,2)& 1335 & **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*gm(1,2)& 1336 & *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)& 1337 & +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))+gm(1,1)**2*(9*gm(2,2)& 1338 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+2*gm(1,1)*(dgm01(2,2)& 1339 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 1340 cm(3,6)=(144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1341 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)*(54*gm(1,3)& 1342 & **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1343 & +144*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(1,3)& 1344 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)**2*gm(1,3)*(dgm01(1,3)& 1345 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+864*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 1346 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**3*(dgm01(3,3)& 1347 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0 1348 cm(4,6)=6*gm(1,2)**2*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1349 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*gm(1,2)& 1350 & *(6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+24*gm(1,3)*(dgm01(1,2)*dgm10(1,1)& 1351 & +dgm01(1,1)*dgm10(1,2))+gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)& 1352 & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))& 1353 & +gm(1,1)*(24*gm(1,3)*(gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*dgm01(1,2)& 1354 & *dgm10(1,2))+gm(1,1)*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1355 & *dgm10(1,2))+12*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1356 & +4*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))) 1357 cm(5,6)=gm(1,1)*(6*gm(1,2)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1358 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(12*gm(2,3)& 1359 & *dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1360 & *dgm10(1,2))+4*gm(1,1)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)))) 1361 cm(6,6)=gm(1,1)*(6*gm(1,2)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)& 1362 & *gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)& 1363 & *(12*gm(2,2)*dgm01(1,1)*dgm10(1,1)+8*gm(1,1)*dgm01(1,2)*dgm10(1,2))) 1364 cm(7,6)=8*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1365 & +gm(1,2)**2*(9*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)& 1366 & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))& 1367 & +gm(1,1)*gm(2,2)*(-3*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(6*dgm01(2,2)& 1368 & *dgm10(1,1)-12*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))& 1369 & +gm(1,1)*gm(1,2)*(12*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1370 & *dgm10(1,2))+6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 1371 cm(8,6)=(48*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1372 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1373 & *dgm01(1,1)*dgm10(1,1)+64*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 1374 & *dgm01(1,2)*dgm10(1,2)+48*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1375 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1376 & *dgm10(1,2))+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1377 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1378 & +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 1379 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1380 & +64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)& 1381 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)& 1382 & +24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1383 & +1152*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1384 & +24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 1385 & +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)& 1386 & +dgm01(1,2)*dgm10(3,3)))/96.d0 1387 cm(9,6)=(288*gm(1,2)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1388 & +gm(1,2)**2*(288*gm(2,3)*dgm01(1,1)*dgm10(1,1)+2016*gm(1,3)*(dgm01(1,2)& 1389 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(576*dgm01(2,3)*dgm10(1,1)& 1390 & +1728*dgm01(1,3)*dgm10(1,2)+1728*dgm01(1,2)*dgm10(1,3)+576*dgm01(1,1)& 1391 & *dgm10(2,3)))+gm(1,1)*(gm(1,1)*(gm(2,3)*(576*dgm01(2,2)*dgm10(1,1)& 1392 & -2304*dgm01(1,2)*dgm10(1,2)+576*dgm01(1,1)*dgm10(2,2))+576*gm(1,3)& 1393 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)*(-864*gm(2,3)& 1394 & *dgm01(1,1)*dgm10(1,1)+2016*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1395 & *dgm10(1,2))+gm(1,1)*(1152*dgm01(2,3)*dgm10(1,1)-576*dgm01(1,3)& 1396 & *dgm10(1,2)-576*dgm01(1,2)*dgm10(1,3)+1152*dgm01(1,1)*dgm10(2,3))))& 1397 & +gm(1,2)*(gm(1,3)*(2304*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1398 & *(288*dgm01(2,2)*dgm10(1,1)+6912*dgm01(1,2)*dgm10(1,2)+288*dgm01(1,1)& 1399 & *dgm10(2,2)))+gm(1,1)*(1440*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1400 & *dgm10(1,3))+1152*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))))& 1401 & /96.d0 1402 cm(10,6)=(48*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 1403 & *gm(2,3))*gm(3,3))*dgm01(1,1)*dgm10(1,1)+16*(90*gm(1,3)**3-54*gm(1,1)& 1404 & *gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1405 & +144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 1406 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*gm(1,1)& 1407 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 1408 & *dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1409 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+1728*gm(1,1)**2*gm(1,3)& 1410 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0 1411 cm(11,6)=(32*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)& 1412 & *dgm10(1,2)+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)& 1413 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+36*(6*gm(1,2)**3+30*gm(1,1)& 1414 & *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1415 & +24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)& 1416 & +dgm01(1,2)*dgm10(2,2)))/144.d0 1417 cm(12,6)=(8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1418 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+6*(30*gm(1,3)& 1419 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1420 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 1421 & +dgm01(1,1)*dgm10(1,2))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1422 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)& 1423 & +dgm01(1,1)*dgm10(1,3))+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1424 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 1425 & *dgm10(1,3))+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1426 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1427 & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)& 1428 & +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 1429 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 1430 & *dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1431 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*(6*gm(1,2)**3+30*gm(1,1)& 1432 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1433 & +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 1434 & +dgm01(1,2)*dgm10(3,3)))/12.d0 1435 cm(13,6)=(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1436 & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+9*(48*gm(1,2)& 1437 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1438 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*gm(2,2)*(54*gm(1,2)& 1439 & **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1440 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 1441 & +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 1442 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1443 & *dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1444 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)& 1445 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1446 & +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)& 1447 & +dgm01(1,2)*dgm10(2,3)))/18.d0 1448 cm(14,6)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)& 1449 & *dgm10(1,2)+3*(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))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1451 & *dgm10(1,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1452 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1453 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(-36*gm(1,1)& 1454 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1455 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)& 1456 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 1457 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1458 & *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,2)& 1459 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 1460 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,2)& 1461 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 1462 & *dgm10(3,3)))/18.d0 1463 cm(15,6)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1464 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1465 & *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 1466 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1467 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 1468 & +dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 1469 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 1470 cm(16,6)=(240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)& 1471 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)& 1472 & *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))& 1473 & /2880.d0 1474 cm(17,6)=(9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1475 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1476 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)& 1477 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1478 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(48*gm(1,2)& 1479 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1480 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)& 1481 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1482 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(2,2)*(54*gm(1,2)& 1483 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1484 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 1485 & +dgm01(1,2)*dgm10(3,3)))/36.d0 1486 cm(18,6)=(9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1487 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1488 & *dgm10(2,2))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 1489 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1490 & *dgm10(2,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 1491 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)**3-54*gm(1,1)& 1492 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))& 1493 & /36.d0 1494 cm(19,6)=(3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1495 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1496 & *dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 1497 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(30*gm(1,3)**2*gm(2,2)& 1498 & +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)& 1499 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1500 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1501 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,2)& 1502 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1503 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)& 1504 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 1505 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 1506 cm(20,6)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1507 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 1508 & *dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 1509 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1510 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1511 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,1)& 1512 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1513 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 1514 cm(21,6)=(240*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1515 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1516 & *dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)& 1517 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/2880.d0 1518 cm(1,7)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)& 1519 & *dgm10(1,1)+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)& 1520 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4320*gm(1,1)**2*gm(1,2)*(dgm01(2,2)& 1521 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/1440.d0 1522 cm(2,7)=gm(1,2)**3*(4*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)& 1523 & +4*dgm01(1,1)*dgm10(2,2))+gm(1,2)*(6*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)& 1524 & +6*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+gm(1,1)*gm(2,2)*(6*dgm01(2,2)& 1525 & *dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)))& 1526 & +15*gm(1,2)**2*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1527 & +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+9*gm(1,1)& 1528 & *gm(2,2)*(gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1529 & +gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 1530 cm(3,7)=(24*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1531 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+72*(-12*gm(1,3)& 1532 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1533 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 1534 & +dgm01(1,1)*dgm10(1,2))+24*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 1535 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)& 1536 & +dgm01(1,1)*dgm10(1,3))+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 1537 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)& 1538 & +dgm01(1,2)*dgm10(1,3))+36*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1539 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1540 & *dgm10(2,2))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1541 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)& 1542 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1543 & *dgm10(3,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 1544 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 1545 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/144.d0 1546 cm(4,7)=(24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 1547 & *dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1548 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+12*(-36*gm(1,2)& 1549 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1550 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(6*gm(1,2)& 1551 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 1552 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(2,2)*(54*gm(1,2)& 1553 & **2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1554 & +72*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 1555 & +dgm01(1,2)*dgm10(1,3))+36*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 1556 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1557 & *dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1558 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+36*gm(1,1)*(12*gm(1,2)& 1559 & **2+24*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1560 & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)& 1561 & +dgm01(1,1)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 1562 & *gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+432*gm(1,1)& 1563 & **2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 1564 cm(5,7)=(48*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 1565 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+144*(6*gm(1,2)& 1566 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 1567 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(90*gm(1,2)& 1568 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1569 & *dgm10(1,3))+96*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)& 1570 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)& 1571 & +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1572 & +1728*gm(1,1)**2*gm(1,2)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))& 1573 & /288.d0 1574 cm(6,7)=(2304*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1575 & +gm(1,2)**2*(2592*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(864*dgm01(2,2)& 1576 & *dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)*dgm10(2,2)))& 1577 & +gm(1,1)*gm(2,2)*(-864*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 1578 & *(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)+1728*dgm01(1,1)& 1579 & *dgm10(2,2)))+gm(1,1)*gm(1,2)*(3456*gm(2,2)*(dgm01(1,2)*dgm10(1,1)& 1580 & +dgm01(1,1)*dgm10(1,2))+1728*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1581 & *dgm10(2,2))))/288.d0 1582 cm(7,7)=2*gm(2,2)**3*dgm01(1,1)*dgm10(1,1)+gm(2,2)**2*(12*gm(1,2)& 1583 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(-3*dgm01(2,2)& 1584 & *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))& 1585 & +6*gm(1,2)**2*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)& 1586 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)*(12*gm(1,1)**2*dgm01(2,2)& 1587 & *dgm10(2,2)+gm(1,2)**2*(9*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)& 1588 & *dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))+30*gm(1,1)*gm(1,2)*(dgm01(2,2)& 1589 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 1590 cm(8,7)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 1591 & *dgm10(1,1)+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1592 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1593 & *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 1594 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1595 & *dgm10(1,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1596 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1597 & +4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 1598 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,2)*gm(1,3)*gm(2,2)& 1599 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 1600 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1601 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1602 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)& 1603 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 1604 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 1605 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 1606 & +dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 1607 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)& 1608 & +dgm01(1,1)*dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1609 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1610 & *dgm10(2,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1611 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)& 1612 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1613 & +6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 1614 & +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))& 1615 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0 1616 cm(9,7)=(288*gm(2,2)**2*gm(2,3)*dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)& 1617 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 1618 & *dgm01(1,2)*dgm10(1,2)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 1619 & *gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*gm(2,2)& 1620 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 1621 & +dgm01(1,1)*dgm10(1,2))+288*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)& 1622 & +dgm01(1,1)*dgm10(1,3))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 1623 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)& 1624 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)& 1625 & +12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 1626 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1627 & +4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 1628 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1629 & +48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 1630 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 1631 & +24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 1632 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 1633 & +24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 1634 & +dgm01(1,3)*dgm10(2,2))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 1635 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*(6*gm(1,2)& 1636 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1637 & *dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)& 1638 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/48.d0 1639 cm(10,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 1640 & *dgm10(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1641 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1642 & +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 1643 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(-12*gm(1,3)& 1644 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1645 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 1646 & +dgm01(1,2)*dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 1647 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 1648 & *dgm10(2,2))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1649 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 1650 & +3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 1651 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1652 & +18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 1653 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 1654 & +9*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)& 1655 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 1656 cm(11,7)=2*gm(2,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1657 & +3*gm(1,2)**3*dgm01(2,2)*dgm10(2,2)+gm(2,2)**2*(gm(1,2)*(3*dgm01(2,2)& 1658 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))& 1659 & +9*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+15*gm(1,2)& 1660 & *gm(2,2)*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)*dgm10(1,2)& 1661 & +dgm01(1,2)*dgm10(2,2))) 1662 cm(12,7)=(96*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1663 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+8*gm(2,2)*(54*gm(2,3)& 1664 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1665 & +288*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1666 & +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,3)& 1667 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1668 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)& 1669 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 1670 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*(30*gm(1,3)& 1671 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1672 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 1673 & +dgm01(1,2)*dgm10(2,2))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1674 & *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)& 1675 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(48*gm(1,2)& 1676 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 1677 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(2,2)*(-18*gm(1,3)& 1678 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 1679 & *dgm10(2,3))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1680 & +24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1681 & *dgm10(2,3))+48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 1682 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1683 & *dgm10(2,3))+144*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1684 & *dgm10(3,3))+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)& 1685 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*(6*gm(1,2)**3+30*gm(1,1)& 1686 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 1687 & /48.d0 1688 cm(13,7)=(144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 1689 & *dgm01(1,2)*dgm10(1,2)+432*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 1690 & +dgm01(1,1)*dgm10(1,2))+144*gm(2,2)**3*(dgm01(1,3)*dgm10(1,1)& 1691 & +dgm01(1,1)*dgm10(1,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)& 1692 & +dgm01(1,2)*dgm10(1,3))+72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 1693 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)& 1694 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 1695 & +dgm01(1,1)*dgm10(2,2))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1696 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 1697 & +dgm01(1,2)*dgm10(2,2))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1698 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 1699 & +dgm01(1,2)*dgm10(2,2))+12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 1700 & *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+432*gm(1,2)& 1701 & *gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*gm(2,2)& 1702 & *(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1703 & *dgm10(2,3))+36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 1704 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 1705 cm(14,7)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 1706 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+(90*gm(2,3)**3-54*gm(2,2)& 1707 & *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1708 & +3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 1709 & +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 1710 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 1711 & *dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 1712 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1713 & *dgm10(2,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1714 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1715 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)& 1716 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 1717 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)& 1718 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1719 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 1720 & +dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1721 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1722 & *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 1723 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)& 1724 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 1725 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)& 1726 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)& 1727 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0 1728 cm(15,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 1729 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 1730 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 1731 & +dgm01(1,2)*dgm10(1,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 1732 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 1733 & *dgm10(2,2))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1734 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1735 & +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 1736 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 1737 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1738 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 1739 & +dgm01(2,2)*dgm10(3,3)))/36.d0 1740 cm(16,7)=gm(2,2)*(9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 1741 & **2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+gm(2,2)*(-3*gm(1,1)& 1742 & *dgm01(2,2)*dgm10(2,2)+6*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1743 & *dgm10(2,2)))) 1744 cm(17,7)=(72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1745 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1746 & *dgm01(2,2)*dgm10(2,2)+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 1747 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(48*gm(1,3)& 1748 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 1749 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)& 1750 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)& 1751 & +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1752 & +72*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 1753 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 1754 & +144*gm(2,2)**3*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1755 & +864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 1756 & +12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 1757 & +dgm01(2,2)*dgm10(3,3)))/144.d0 1758 cm(18,7)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 1759 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+864*gm(2,2)& 1760 & **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+144*gm(2,2)& 1761 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 1762 & +dgm01(1,2)*dgm10(2,2))+576*gm(2,2)**3*(dgm01(2,3)*dgm10(1,1)& 1763 & +dgm01(1,1)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 1764 & +dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 1765 & *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/288.d0 1766 cm(19,7)=(24*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 1767 & *gm(2,3))*gm(3,3))*dgm01(2,2)*dgm10(2,2)+4*(90*gm(2,3)**3-54*gm(2,2)& 1768 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 1769 & +24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 1770 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(2,2)& 1771 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 1772 & *dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 1773 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1774 & +72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 1775 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 1776 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 1777 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)& 1778 & +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 1779 & +36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 1780 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 1781 & /144.d0 1782 cm(20,7)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 1783 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 1784 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 1785 & +dgm01(1,2)*dgm10(2,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 1786 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1787 & *dgm10(2,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 1788 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)& 1789 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 1790 & +dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1791 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1792 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 1793 cm(21,7)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 1794 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 1795 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 1796 & +dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 1797 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 1798 & *dgm10(3,3)))/36.d0 1799 cm(1,8)=(80*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1800 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+80*gm(1,1)*(54*gm(1,3)& 1801 & **2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1802 & +160*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)& 1803 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2880*gm(1,1)**2*gm(1,3)*(dgm01(2,3)& 1804 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1440*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 1805 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/480.d0 1806 cm(2,8)=(24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1807 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+96*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1808 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)& 1809 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 1810 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 1811 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)**2*gm(2,2)& 1812 & +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)& 1813 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1814 & +48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 1815 & *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1816 & +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 1817 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 1818 & +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1819 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+8*gm(1,1)& 1820 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 1821 & *dgm10(2,2))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1822 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)& 1823 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 1824 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)& 1825 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1826 & *dgm10(2,3))+288*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 1827 & *dgm10(2,3))+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)& 1828 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 1829 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,1)& 1830 & **2*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/48.d0 1831 cm(3,8)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 1832 & *dgm01(1,1)*dgm10(1,1)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))& 1833 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,1)& 1834 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(1,3)& 1835 & *dgm10(1,3)+24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1836 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1837 & *dgm10(1,3))+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 1838 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1839 & *dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 1840 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**3+30*gm(1,1)& 1841 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1842 & +48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 1843 & +dgm01(1,3)*dgm10(2,3))+288*gm(1,1)**2*gm(1,2)*dgm01(3,3)*dgm10(3,3)& 1844 & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 1845 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(-36*gm(1,1)& 1846 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 1847 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+8*gm(1,1)*(54*gm(1,3)& 1848 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 1849 & +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)& 1850 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 1851 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1852 & +288*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 1853 & /48.d0 1854 cm(4,8)=(24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 1855 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**3+30*gm(1,1)& 1856 & *gm(1,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+12*(6*gm(1,3)**2*gm(2,3)& 1857 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)& 1858 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1859 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)& 1860 & +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 1861 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+12*(30*gm(1,3)& 1862 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 1863 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 1864 & +dgm01(1,1)*dgm10(1,3))+48*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 1865 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 1866 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(48*gm(1,1)& 1867 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)& 1868 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)& 1869 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 1870 & +dgm01(1,2)*dgm10(1,3))+576*gm(1,1)**2*gm(1,3)*dgm01(2,3)*dgm10(2,3)& 1871 & +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 1872 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,1)& 1873 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 1874 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 1875 & *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(1,1)& 1876 & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1877 & *dgm10(2,3))+16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1878 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)& 1879 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 1880 & *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 1881 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 1882 & *dgm10(3,3))+12*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1883 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(1,1)*(12*gm(1,2)& 1884 & **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 1885 & +144*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 1886 & /24.d0 1887 cm(5,8)=(48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 1888 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)& 1889 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1890 & *dgm10(1,2))+128*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 1891 & *dgm01(1,3)*dgm10(1,3)+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1892 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 1893 & *dgm10(1,3))+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 1894 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1895 & +32*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 1896 & +dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)& 1897 & *gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)& 1898 & **2*gm(1,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)& 1899 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)& 1900 & +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)& 1901 & +dgm01(1,3)*dgm10(3,3)))/96.d0 1902 cm(6,8)=(48*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1903 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1904 & *dgm01(1,1)*dgm10(1,1)+64*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 1905 & *dgm01(1,2)*dgm10(1,2)+48*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1906 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1907 & *dgm10(1,2))+16*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 1908 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1909 & +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 1910 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 1911 & +64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,3)& 1912 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)& 1913 & +24*gm(1,1)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1914 & +1152*gm(1,1)**2*gm(1,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 1915 & +24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 1916 & +dgm01(1,1)*dgm10(3,3))+576*gm(1,1)**2*gm(1,2)*(dgm01(3,3)*dgm10(1,2)& 1917 & +dgm01(1,2)*dgm10(3,3)))/96.d0 1918 cm(7,8)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 1919 & *dgm10(1,1)+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 1920 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 1921 & *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 1922 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 1923 & *dgm10(1,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 1924 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 1925 & +4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 1926 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,2)*gm(1,3)*gm(2,2)& 1927 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 1928 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 1929 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1930 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)& 1931 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 1932 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 1933 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 1934 & +dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 1935 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)& 1936 & +dgm01(1,1)*dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 1937 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1938 & *dgm10(2,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 1939 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)& 1940 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 1941 & +6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 1942 & +dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))& 1943 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0 1944 cm(8,8)=(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)& 1945 & *dgm10(1,1)+4*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(1,2)& 1946 & *dgm10(1,2)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 1947 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(9*gm(1,3)& 1948 & **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)& 1949 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+4*(6*gm(1,2)& 1950 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 1951 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 1952 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 1953 & +dgm01(1,2)*dgm10(1,3))+4*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))& 1954 & *dgm01(2,3)*dgm10(2,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 1955 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 1956 & *dgm10(2,3))+4*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 1957 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)& 1958 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 1959 & +dgm01(1,3)*dgm10(2,3))+gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))& 1960 & *dgm01(3,3)*dgm10(3,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 1961 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 1962 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(48*gm(1,1)& 1963 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 1964 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 1965 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 1966 & +dgm01(1,3)*dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)& 1967 & *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/2.d0 1968 cm(9,8)=(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 1969 & *dgm10(1,1)+16*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 1970 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+2*(48*gm(1,2)& 1971 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 1972 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(6*gm(1,2)*gm(2,3)*gm(3,3)& 1973 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 1974 & +dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 1975 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)& 1976 & +2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 1977 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(6*gm(1,3)& 1978 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 1979 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(-12*gm(1,3)**2*gm(2,2)& 1980 & +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)& 1981 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 1982 & +16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 1983 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 1984 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 1985 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)& 1986 & +dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 1987 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,1)*gm(1,3)& 1988 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 1989 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)*(12*gm(1,2)*gm(1,3)& 1990 & +24*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*(30*gm(1,3)**2*gm(2,2)& 1991 & +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)& 1992 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 1993 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 1994 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 1995 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(48*gm(1,1)*gm(1,3)*gm(2,3)& 1996 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 1997 & +dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 1998 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 1999 & *dgm10(2,3))+8*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 2000 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2001 & *dgm10(2,3))+4*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2002 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2003 & *dgm10(2,3))+2*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)& 2004 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+(48*gm(1,2)*gm(1,3)*gm(2,2)& 2005 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 2006 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 2007 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 2008 & +dgm01(1,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 2009 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(12*gm(1,2)& 2010 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2011 & *dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)& 2012 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/4.d0 2013 cm(10,8)=(288*gm(2,3)*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+288*gm(1,3)& 2014 & *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,3)& 2015 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2016 & *dgm01(1,3)*dgm10(1,3)+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 2017 & *gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(3,3)& 2018 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 2019 & +dgm01(1,1)*dgm10(1,3))+48*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2020 & *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+8*gm(3,3)& 2021 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2022 & *dgm10(2,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 2023 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2024 & +24*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(90*gm(1,3)**2*gm(2,3)& 2025 & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 2026 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2027 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2028 & +dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 2029 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(48*gm(1,1)& 2030 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 2031 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)& 2032 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 2033 & +dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)& 2034 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 2035 cm(11,8)=(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 2036 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)& 2037 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2038 & +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 2039 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(48*gm(1,3)*gm(2,2)*gm(2,3)& 2040 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)& 2041 & +dgm01(1,1)*dgm10(2,2))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2042 & *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)& 2043 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)& 2044 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2045 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(-36*gm(1,2)& 2046 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2047 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(6*gm(1,2)**2*gm(1,3)& 2048 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 2049 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 2050 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)& 2051 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2052 & *dgm10(3,3)))/12.d0 2053 cm(12,8)=(8*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 2054 & *dgm01(1,2)*dgm10(1,2)+2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 2055 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,3)& 2056 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2057 & *dgm10(1,3)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 2058 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,2)*gm(2,3)*gm(3,3)& 2059 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 2060 & +dgm01(1,2)*dgm10(1,3))+8*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2061 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2062 & *dgm10(1,3))+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 2063 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(3,3)*(12*gm(1,3)& 2064 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2065 & +4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 2066 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 2067 & +16*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 2068 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)& 2069 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 2070 & +dgm01(1,1)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 2071 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2072 & *dgm10(2,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 2073 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2074 & *dgm10(2,3))+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2075 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2076 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*(9*gm(1,3)& 2077 & **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)& 2078 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2079 & *dgm10(2,3))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 2080 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*(6*gm(1,2)**3+30*gm(1,1)& 2081 & *gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)& 2082 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 2083 & +dgm01(1,1)*dgm10(3,3))+2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2084 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2085 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*(-12*gm(1,3)& 2086 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2087 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 2088 & +dgm01(1,2)*dgm10(3,3))+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2089 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 2090 & +dgm01(1,3)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2091 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 2092 & +dgm01(1,3)*dgm10(3,3))+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2093 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 2094 & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 2095 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 2096 & +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2097 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2098 & /4.d0 2099 cm(13,8)=(12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2100 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+3*(6*gm(2,3)**3+30*gm(2,2)& 2101 & *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2102 & +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)& 2103 & *dgm10(1,3)+gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 2104 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 2105 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 2106 & +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2107 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2108 & *dgm10(1,3))+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2109 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2110 & +6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 2111 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2112 & +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 2113 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 2114 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2115 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 2116 & +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2117 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-12*gm(1,3)& 2118 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2119 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 2120 & +dgm01(1,2)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2121 & *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)& 2122 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+2*(-36*gm(1,2)& 2123 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2124 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(6*gm(1,2)& 2125 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2126 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(6*gm(1,1)*gm(1,3)& 2127 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 2128 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)*gm(1,3)*gm(2,2)& 2129 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 2130 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 2131 & *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,2)& 2132 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2133 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)& 2134 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2135 & /6.d0 2136 cm(14,8)=(576*gm(1,3)*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+144*gm(2,3)& 2137 & *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)& 2138 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2139 & *dgm10(1,3)+12*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)& 2140 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)& 2141 & -18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 2142 & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)& 2143 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)& 2144 & *gm(1,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+12*gm(3,3)*(12*gm(1,3)& 2145 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2146 & *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 2147 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2148 & *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(6*gm(1,3)& 2149 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2150 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(6*gm(1,3)& 2151 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2152 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(6*gm(1,2)& 2153 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 2154 & *dgm01(3,3)*dgm10(3,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2155 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 2156 & *dgm10(3,3))+4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2157 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2158 & *dgm10(3,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 2159 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2160 & *dgm10(3,3))+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2161 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2162 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(9*gm(1,3)& 2163 & **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)& 2164 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2165 & *dgm10(3,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2166 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 2167 & +24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 2168 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/24.d0 2169 cm(15,8)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2170 & *dgm01(1,3)*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)& 2171 & +dgm01(1,1)*dgm10(1,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)& 2172 & +dgm01(1,2)*dgm10(1,3))+32*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2173 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,1)& 2174 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)& 2175 & *dgm10(3,3)+24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 2176 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)& 2177 & **2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 2178 & +16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2179 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2180 & +96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 2181 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2182 & +48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 2183 & +dgm01(2,3)*dgm10(3,3)))/96.d0 2184 cm(16,8)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 2185 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 2186 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 2187 & +dgm01(1,2)*dgm10(2,2))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 2188 & *gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)& 2189 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2190 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)& 2191 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 2192 & /12.d0 2193 cm(17,8)=(3*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 2194 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(3,3)*(12*gm(1,3)*gm(2,3)& 2195 & +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2196 & +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2197 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(-12*gm(1,3)& 2198 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2199 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 2200 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 2201 & +dgm01(1,1)*dgm10(2,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2202 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2203 & *dgm10(2,3))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2204 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2205 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2206 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2207 & +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 2208 & +gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2209 & +dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2210 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2211 & *dgm10(3,3))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 2212 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(30*gm(1,3)& 2213 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2214 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 2215 & +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2216 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 2217 & +dgm01(2,3)*dgm10(3,3))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 2218 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 2219 & +dgm01(2,3)*dgm10(3,3)))/12.d0 2220 cm(18,8)=(3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 2221 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,2)*gm(2,3)*gm(3,3)& 2222 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 2223 & +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2224 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 2225 & *dgm10(2,2))+8*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 2226 & +gm(1,1)*gm(2,3)))*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)*(54*gm(2,3)& 2227 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 2228 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2229 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*gm(2,2)& 2230 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)& 2231 & +dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2232 & *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)& 2233 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)& 2234 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2235 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*gm(2,2)*(54*gm(1,2)& 2236 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2237 & /12.d0 2238 cm(19,8)=(144*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 2239 & *dgm10(2,2))+288*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2240 & *dgm10(2,2))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2241 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(6*gm(1,3)& 2242 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2243 & *dgm01(2,3)*dgm10(2,3)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 2244 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(3,3)*(12*gm(1,3)& 2245 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2246 & *dgm10(2,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2247 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2248 & +8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 2249 & +dgm01(2,2)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2250 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)& 2251 & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2252 & +dgm01(1,1)*dgm10(3,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2253 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2254 & *dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2255 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2256 & +4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2257 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 2258 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2259 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2260 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)& 2261 & +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)& 2262 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2263 & /48.d0 2264 cm(20,8)=(64*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 2265 & *dgm10(2,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2266 & *dgm10(2,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2267 & *dgm10(2,3))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2268 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(30*gm(1,3)& 2269 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2270 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 2271 & +24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2272 & +dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 2273 & *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+96*(6*gm(1,2)& 2274 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2275 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**2*gm(2,3)& 2276 & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 2277 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2278 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 2279 & +dgm01(2,3)*dgm10(3,3)))/96.d0 2280 cm(21,8)=(80*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 2281 & *gm(2,3))*gm(3,3))*dgm01(3,3)*dgm10(3,3)+1440*gm(2,3)*gm(3,3)& 2282 & **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2880*gm(1,3)& 2283 & *gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+160*gm(3,3)& 2284 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 2285 & +dgm01(1,3)*dgm10(3,3))+80*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2286 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0 2287 cm(1,9)=(80*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 2288 & +2*gm(1,2)*gm(2,3)))*dgm01(1,1)*dgm10(1,1)+160*gm(1,1)*(54*gm(1,2)& 2289 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2290 & *dgm10(1,2))+80*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,3)& 2291 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1440*gm(1,1)**2*gm(1,3)*(dgm01(2,2)& 2292 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2880*gm(1,1)**2*gm(1,2)*(dgm01(2,3)& 2293 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/480.d0 2294 cm(2,9)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 2295 & *dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 2296 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+24*(48*gm(1,2)& 2297 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2298 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+48*(6*gm(1,2)& 2299 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2300 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*gm(2,2)*(12*gm(1,2)& 2301 & **2+24*gm(1,1)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2302 & +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)& 2303 & +dgm01(1,2)*dgm10(1,3))+288*gm(1,1)**2*gm(1,3)*dgm01(2,2)*dgm10(2,2)& 2304 & +4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 2305 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2306 & +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2307 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2308 & +16*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,2)& 2309 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2310 & +24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2311 & +8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 2312 & +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 2313 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)& 2314 & **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 2315 & +288*gm(1,1)**2*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 2316 & /48.d0 2317 cm(3,9)=(24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2318 & *gm(3,3)))*dgm01(1,1)*dgm10(1,1)+48*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 2319 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)& 2320 & +dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2321 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)+24*(-12*gm(1,3)& 2322 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2323 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 2324 & +dgm01(1,1)*dgm10(1,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2325 & *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)& 2326 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+96*(6*gm(1,1)& 2327 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,3)& 2328 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)**3+30*gm(1,1)& 2329 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2330 & +24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 2331 & +dgm01(1,3)*dgm10(2,2))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2332 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2333 & *dgm10(2,3))+48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))& 2334 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+4*(90*gm(1,2)& 2335 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 2336 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+16*gm(1,1)*(54*gm(1,2)& 2337 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2338 & *dgm10(3,3))+8*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 2339 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+144*gm(1,1)**2*gm(1,3)*(dgm01(3,3)& 2340 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+288*gm(1,1)**2*gm(1,2)*(dgm01(3,3)& 2341 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 2342 cm(4,9)=12*gm(1,2)**3*dgm01(1,3)*dgm10(1,3)+gm(1,3)**2*(12*gm(2,2)& 2343 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(2,2)& 2344 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))& 2345 & +6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)& 2346 & **2*(33*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2347 & +9*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(1,1)& 2348 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)& 2349 & **2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(24*gm(3,3)*dgm01(1,1)*dgm10(1,1)& 2350 & +60*gm(1,1)*dgm01(1,3)*dgm10(1,3))+gm(1,1)*gm(2,3)*(0*dgm01(2,3)& 2351 & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,2)+60*dgm01(1,2)*dgm10(1,3)& 2352 & +0*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)& 2353 & +96*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+24*gm(1,1)& 2354 & *dgm01(2,3)*dgm10(2,3)))+gm(1,1)*(12*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)& 2355 & +dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*gm(3,3)*(dgm01(2,2)*dgm10(1,2)& 2356 & +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(15*gm(2,2)*(dgm01(1,3)*dgm10(1,1)& 2357 & +dgm01(1,1)*dgm10(1,3))+12*gm(1,1)*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)& 2358 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)))+gm(2,2)& 2359 & *(27*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*gm(1,1)& 2360 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))+gm(1,3)*(gm(1,2)& 2361 & **2*(21*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)& 2362 & *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(6*gm(2,3)*dgm01(1,1)& 2363 & *dgm10(1,1)+30*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2364 & +gm(1,1)*(21*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)& 2365 & *dgm10(1,3)+21*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(6*gm(2,3)*(dgm01(1,2)& 2366 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(48*dgm01(2,3)*dgm10(1,2)& 2367 & +6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+48*dgm01(1,2)& 2368 & *dgm10(2,3)))+gm(1,1)*(gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)& 2369 & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(2,2)& 2370 & +dgm01(2,2)*dgm10(2,3)))) 2371 cm(5,9)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2372 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2373 & *dgm01(1,1)*dgm10(1,1)+96*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2374 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2375 & *dgm10(1,2))+64*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)& 2376 & *dgm10(1,3)+16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2377 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2378 & *dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2379 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2380 & *dgm10(1,3))+64*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 2381 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)*(12*gm(1,3)& 2382 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2383 & +576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 2384 & +48*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,3)& 2385 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)**2*gm(1,2)*(dgm01(2,3)& 2386 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)))/96.d0 2387 cm(6,9)=(48*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 2388 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1)+128*gm(1,1)& 2389 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)*dgm10(1,2)& 2390 & +16*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 2391 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2392 & +96*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 2393 & *gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2394 & +48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,1)& 2395 & +dgm01(1,1)*dgm10(1,3))+32*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 2396 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)& 2397 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 2398 & +dgm01(1,1)*dgm10(2,2))+576*gm(1,1)**2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 2399 & +dgm01(1,2)*dgm10(2,2))+48*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)& 2400 & *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+1152*gm(1,1)& 2401 & **2*gm(1,2)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))/96.d0 2402 cm(7,9)=(288*gm(2,2)**2*gm(2,3)*dgm01(1,1)*dgm10(1,1)+192*(6*gm(1,2)& 2403 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2404 & *dgm01(1,2)*dgm10(1,2)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 2405 & *gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*gm(2,2)& 2406 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 2407 & +dgm01(1,1)*dgm10(1,2))+288*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)& 2408 & +dgm01(1,1)*dgm10(1,3))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 2409 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)& 2410 & *(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)& 2411 & +12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 2412 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2413 & +4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 2414 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2415 & +48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 2416 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2417 & +24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2418 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2419 & +24*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 2420 & +dgm01(1,3)*dgm10(2,2))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 2421 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*(6*gm(1,2)& 2422 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2423 & *dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)& 2424 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/48.d0 2425 cm(8,9)=(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 2426 & *dgm10(1,1)+16*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 2427 & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+2*(48*gm(1,2)& 2428 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 2429 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(6*gm(1,2)*gm(2,3)*gm(3,3)& 2430 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 2431 & +dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2432 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)& 2433 & +2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2434 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(6*gm(1,3)& 2435 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 2436 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(-12*gm(1,3)**2*gm(2,2)& 2437 & +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)& 2438 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 2439 & +16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 2440 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 2441 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2442 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)& 2443 & +dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 2444 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,1)*gm(1,3)& 2445 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 2446 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2447 & +24*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*(30*gm(1,3)**2*gm(2,2)& 2448 & +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)& 2449 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 2450 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2451 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 2452 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(48*gm(1,1)*gm(1,3)*gm(2,3)& 2453 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 2454 & +dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2455 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2456 & *dgm10(2,3))+8*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 2457 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2458 & *dgm10(2,3))+4*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2459 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2460 & *dgm10(2,3))+2*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)& 2461 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+(48*gm(1,2)*gm(1,3)*gm(2,2)& 2462 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 2463 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 2464 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 2465 & +dgm01(1,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 2466 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(12*gm(1,2)& 2467 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2468 & *dgm10(3,3))+2*gm(1,1)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)& 2469 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/4.d0 2470 cm(9,9)=gm(2,2)**2*(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+48*gm(1,1)& 2471 & *dgm01(1,3)*dgm10(1,3)+24*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2472 & *dgm10(1,3)))+12*gm(1,2)**3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2473 & *dgm10(2,3))+gm(1,2)**2*(24*gm(1,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,3)& 2474 & *dgm01(2,2)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)+gm(3,3)& 2475 & *(15*dgm01(2,2)*dgm10(1,1)+72*dgm01(1,2)*dgm10(1,2)+15*dgm01(1,1)& 2476 & *dgm10(2,2))+24*gm(1,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,1)*dgm01(2,3)& 2477 & *dgm10(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)& 2478 & +24*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(12*gm(2,3)& 2479 & **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,3)& 2480 & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(1,1)& 2481 & *gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*gm(1,1)& 2482 & *gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)& 2483 & *(gm(1,3)*(18*dgm01(2,2)*dgm10(1,1)-48*dgm01(1,2)*dgm10(1,2)& 2484 & +18*dgm01(1,1)*dgm10(2,2))+gm(1,1)*(24*dgm01(2,3)*dgm10(1,2)& 2485 & +48*dgm01(2,2)*dgm10(1,3)+48*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)& 2486 & *dgm10(2,3))))+gm(2,2)*(6*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)-6*gm(1,3)& 2487 & **2*dgm01(2,2)*dgm10(1,1)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)& 2488 & +72*gm(1,3)**2*dgm01(1,2)*dgm10(1,2)+120*gm(1,1)*gm(3,3)*dgm01(1,2)& 2489 & *dgm10(1,2)+96*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)& 2490 & **2*dgm01(1,3)*dgm10(1,3)-18*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)& 2491 & -6*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,1)& 2492 & *dgm10(2,2)-18*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+96*gm(1,1)& 2493 & *gm(1,3)*dgm01(1,2)*dgm10(2,3)+48*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)& 2494 & +gm(2,3)*(12*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2495 & +12*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)& 2496 & *(-18*dgm01(2,3)*dgm10(1,1)+96*dgm01(1,3)*dgm10(1,2)+96*dgm01(1,2)& 2497 & *dgm10(1,3)-18*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(48*gm(3,3)*(dgm01(1,2)& 2498 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)*(48*dgm01(2,3)*dgm10(1,1)& 2499 & +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+48*dgm01(1,1)& 2500 & *dgm10(2,3))+60*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))))& 2501 & +gm(1,1)*((6*gm(1,3)**2+12*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)& 2502 & +gm(2,3)**2*(-6*dgm01(2,2)*dgm10(1,1)+72*dgm01(1,2)*dgm10(1,2)& 2503 & -6*dgm01(1,1)*dgm10(2,2))+gm(2,3)*(12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)& 2504 & +dgm01(1,2)*dgm10(2,2))+24*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 2505 & *dgm10(2,3)))) 2506 cm(10,9)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 2507 & *dgm10(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2508 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)& 2509 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2510 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 2511 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2512 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)& 2513 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2514 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,3)& 2515 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2516 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(54*gm(1,3)& 2517 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2518 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 2519 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 2520 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2521 & *dgm10(2,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2522 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2523 & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2524 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2525 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)& 2526 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 2527 & +dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2528 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2529 & *dgm10(3,3))+3*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 2530 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2531 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2532 & /12.d0 2533 cm(11,9)=(128*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 2534 & *dgm01(1,2)*dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 2535 & +dgm01(1,1)*dgm10(1,2))+1152*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)& 2536 & +dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2537 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+24*gm(2,2)& 2538 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 2539 & +dgm01(1,1)*dgm10(2,2))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 2540 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 2541 & +dgm01(1,2)*dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2542 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 2543 & +dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 2544 & *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+32*gm(2,2)& 2545 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2546 & *dgm10(2,3))+48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 2547 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0 2548 cm(12,9)=(16*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2549 & *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)& 2550 & *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+8*gm(2,2)& 2551 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)& 2552 & +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 2553 & +dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2554 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2555 & *dgm10(1,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2556 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 2557 & +2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)& 2558 & +(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2559 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)& 2560 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2561 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,3)**2*gm(2,3)& 2562 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 2563 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+2*(-12*gm(1,3)**2*gm(2,2)& 2564 & +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)& 2565 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 2566 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2567 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 2568 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 2569 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 2570 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 2571 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(30*gm(1,3)& 2572 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2573 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 2574 & +dgm01(1,2)*dgm10(2,3))+16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 2575 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 2576 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(48*gm(1,2)& 2577 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2578 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+8*(6*gm(1,2)*gm(1,3)& 2579 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 2580 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*(48*gm(1,1)*gm(1,3)*gm(2,3)& 2581 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 2582 & +dgm01(2,2)*dgm10(2,3))+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2583 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 2584 & *dgm10(2,3))+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 2585 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)& 2586 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 2587 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 2588 & *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(6*gm(1,2)& 2589 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 2590 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)& 2591 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2592 & /4.d0 2593 cm(13,9)=gm(1,1)*gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+12*gm(2,3)& 2594 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+12*gm(1,2)**3*dgm01(2,3)& 2595 & *dgm10(2,3)+gm(2,2)**2*(12*gm(1,3)*dgm01(2,3)*dgm10(1,1)+12*gm(1,3)& 2596 & *dgm01(1,3)*dgm10(1,2)+12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2597 & *dgm10(1,2))+12*gm(1,3)*dgm01(1,2)*dgm10(1,3)+24*gm(1,2)*dgm01(1,3)& 2598 & *dgm10(1,3)+18*gm(1,1)*dgm01(2,3)*dgm10(1,3)+6*gm(2,3)*(dgm01(1,3)& 2599 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,3)*dgm01(1,1)*dgm10(2,3)& 2600 & +18*gm(1,1)*dgm01(1,3)*dgm10(2,3))+gm(1,2)**2*(33*gm(3,3)*(dgm01(2,2)& 2601 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,3)*(18*dgm01(2,3)*dgm10(1,2)& 2602 & +21*dgm01(2,2)*dgm10(1,3)+21*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)& 2603 & *dgm10(2,3))+9*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 2604 & +gm(2,2)*(12*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)+27*gm(1,1)*gm(3,3)& 2605 & *dgm01(2,2)*dgm10(1,2)+6*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2606 & *dgm10(1,2))+12*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)+27*gm(1,1)*gm(3,3)& 2607 & *dgm01(1,2)*dgm10(2,2)+15*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)& 2608 & +15*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)+30*gm(1,2)**2*(dgm01(2,3)& 2609 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,3)*(gm(1,3)*(3*dgm01(2,2)& 2610 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))& 2611 & +gm(1,2)*(6*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)& 2612 & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3))+gm(1,1)*(30*dgm01(2,3)*dgm10(1,2)& 2613 & +21*dgm01(2,2)*dgm10(1,3)+21*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)& 2614 & *dgm10(2,3)))+gm(1,2)*(gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+96*dgm01(1,2)& 2615 & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 2616 & +gm(1,3)*(60*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)*dgm10(1,3)+0*dgm01(1,3)& 2617 & *dgm10(2,2)+60*dgm01(1,2)*dgm10(2,3))))+gm(1,2)*((6*gm(1,3)**2+24*gm(1,1)& 2618 & *gm(3,3))*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(3*dgm01(2,2)*dgm10(1,1)& 2619 & +24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(2,3)*(6*gm(1,3)& 2620 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+30*gm(1,1)*(dgm01(2,3)& 2621 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))) 2622 cm(14,9)=(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2623 & *dgm01(1,2)*dgm10(1,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 2624 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,3)& 2625 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 2626 & *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 2627 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 2628 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 2629 & +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2630 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2631 & *dgm10(1,3))+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 2632 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2633 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 2634 & +dgm01(1,3)*dgm10(2,2))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2635 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+3*(48*gm(1,2)& 2636 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 2637 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 2638 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)& 2639 & +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 2640 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2641 & *dgm10(2,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2642 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2643 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)& 2644 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2645 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 2646 & +dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 2647 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,3)*gm(2,2)& 2648 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2649 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)& 2650 & *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 2651 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)& 2652 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 2653 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,1)*gm(1,3)& 2654 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 2655 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 2656 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 2657 & +dgm01(2,3)*dgm10(3,3)))/6.d0 2658 cm(15,9)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2659 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)& 2660 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2661 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)& 2662 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 2663 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,3)& 2664 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2665 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(48*gm(1,2)& 2666 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2667 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 2668 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)& 2669 & +dgm01(1,2)*dgm10(3,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2670 & *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)& 2671 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)& 2672 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2673 & *dgm10(3,3))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2674 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2675 & /12.d0 2676 cm(16,9)=(80*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)& 2677 & +gm(1,1)*gm(2,3)))*dgm01(2,2)*dgm10(2,2)+1440*gm(2,2)**2*gm(2,3)& 2678 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*gm(2,2)*(-18*gm(1,3)& 2679 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 2680 & *dgm10(2,2))+2880*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 2681 & *dgm10(2,2))+80*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 2682 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/480.d0 2683 cm(17,9)=(24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 2684 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+12*(6*gm(2,3)& 2685 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 2686 & *dgm10(2,2))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2687 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2688 & +24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 2689 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(48*gm(1,2)& 2690 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2691 & *dgm01(2,3)*dgm10(2,3)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 2692 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)& 2693 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 2694 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)& 2695 & +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2696 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 2697 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 2698 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*(-12*gm(1,3)**2*gm(2,2)& 2699 & +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)& 2700 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2701 & +144*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 2702 & +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)& 2703 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+288*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 2704 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 2705 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 2706 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 2707 & *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 2708 cm(18,9)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2709 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2710 & *dgm01(2,2)*dgm10(2,2)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 2711 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+96*(6*gm(1,3)& 2712 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 2713 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)& 2714 & +12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 2715 & +64*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)& 2716 & +576*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 2717 & +64*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)& 2718 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+1152*gm(1,2)*gm(2,2)**2*(dgm01(2,3)& 2719 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,2)*gm(1,3)*gm(2,2)& 2720 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 2721 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 2722 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 2723 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0 2724 cm(19,9)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 2725 & *dgm10(2,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 2726 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)& 2727 & -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 2728 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2729 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(30*gm(1,3)& 2730 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2731 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 2732 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 2733 & +dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2734 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 2735 & *dgm10(2,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 2736 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2737 & +2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2738 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2739 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2740 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 2741 & +3*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2742 & +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 2743 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2744 & *dgm10(3,3))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 2745 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-12*gm(1,3)& 2746 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2747 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 2748 & +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 2749 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 2750 & +dgm01(2,3)*dgm10(3,3)))/12.d0 2751 cm(20,9)=(8*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)& 2752 & *gm(2,3))*gm(3,3))*dgm01(2,3)*dgm10(2,3)+2*gm(3,3)*(54*gm(2,3)& 2753 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 2754 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)& 2755 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 2756 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 2757 & +dgm01(1,3)*dgm10(2,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2758 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(2,3)**3+30*gm(2,2)& 2759 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 2760 & +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 2761 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(48*gm(1,3)& 2762 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2763 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2764 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)& 2765 & +dgm01(2,2)*dgm10(3,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 2766 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 2767 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/12.d0 2768 cm(21,9)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 2769 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)& 2770 & -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 2771 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 2772 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)& 2773 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2774 & *dgm10(3,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2775 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 2776 & *dgm10(3,3)))/12.d0 2777 cm(1,10)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)& 2778 & *dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)& 2779 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4320*gm(1,1)**2*gm(1,3)*(dgm01(3,3)& 2780 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/1440.d0 2781 cm(2,10)=(24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2782 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)*dgm10(1,1)+24*(90*gm(1,3)& 2783 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2784 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+72*(-12*gm(1,3)& 2785 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2786 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 2787 & +dgm01(1,1)*dgm10(1,3))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2788 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2789 & *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 2790 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 2791 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+36*(6*gm(1,2)& 2792 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 2793 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(1,1)*(12*gm(1,2)& 2794 & *gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 2795 & *dgm10(3,3))+432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2796 & *dgm10(3,3)))/144.d0 2797 cm(3,10)=gm(1,3)**3*(4*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)& 2798 & +4*dgm01(1,1)*dgm10(3,3))+gm(1,3)*(6*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)& 2799 & +6*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+gm(1,1)*gm(3,3)*(6*dgm01(3,3)& 2800 & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)))& 2801 & +15*gm(1,3)**2*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2802 & +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+9*gm(1,1)& 2803 & *gm(3,3)*(gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2804 & +gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 2805 cm(4,10)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2806 & *dgm01(1,1)*dgm10(1,1)+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 2807 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+144*(48*gm(1,1)& 2808 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)& 2809 & *dgm10(1,3)+12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2810 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2811 & *dgm10(1,3))+72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 2812 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2813 & *dgm10(1,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 2814 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 2815 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 2816 & +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 2817 & +dgm01(1,3)*dgm10(2,3))+36*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 2818 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 2819 & *dgm10(3,3))+36*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 2820 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2821 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2822 & +432*gm(1,1)**2*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2823 & /72.d0 2824 cm(5,10)=(2304*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 2825 & *dgm10(1,3))+gm(1,3)**2*(2592*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)& 2826 & *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)& 2827 & *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(3,3)*dgm01(1,1)*dgm10(1,1)& 2828 & +gm(1,1)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)& 2829 & +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(1,3)*(3456*gm(3,3)*(dgm01(1,3)& 2830 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+1728*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 2831 & +dgm01(1,3)*dgm10(3,3))))/288.d0 2832 cm(6,10)=(48*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 2833 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,1)*dgm10(1,1)+16*(90*gm(1,3)& 2834 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2835 & *dgm10(1,2))+144*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2836 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2837 & +96*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 2838 & +dgm01(1,2)*dgm10(1,3))+72*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)& 2839 & *gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+1728*gm(1,1)& 2840 & **2*gm(1,3)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/288.d0 2841 cm(7,10)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)& 2842 & *dgm10(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 2843 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 2844 & +6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 2845 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(-12*gm(1,3)& 2846 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2847 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 2848 & +dgm01(1,2)*dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 2849 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 2850 & *dgm10(2,2))+18*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2851 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 2852 & +3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 2853 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 2854 & +18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 2855 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 2856 & +9*gm(1,1)*(12*gm(1,2)*gm(1,3)+24*gm(1,1)*gm(2,3))*(dgm01(3,3)& 2857 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 2858 cm(8,10)=(288*gm(2,3)*gm(3,3)**2*dgm01(1,1)*dgm10(1,1)+288*gm(1,3)& 2859 & *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+192*(6*gm(1,3)& 2860 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2861 & *dgm01(1,3)*dgm10(1,3)+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 2862 & *gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(3,3)& 2863 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 2864 & +dgm01(1,1)*dgm10(1,3))+48*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2865 & *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+8*gm(3,3)& 2866 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2867 & *dgm10(2,3))+48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 2868 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2869 & +24*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(90*gm(1,3)**2*gm(2,3)& 2870 & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 2871 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 2872 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 2873 & +dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 2874 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(48*gm(1,1)& 2875 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 2876 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)& 2877 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 2878 & +dgm01(1,3)*dgm10(3,3))+24*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)& 2879 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 2880 cm(9,10)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)& 2881 & *dgm10(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2882 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)& 2883 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2884 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 2885 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 2886 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)& 2887 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2888 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*(6*gm(1,3)& 2889 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2890 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(54*gm(1,3)& 2891 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 2892 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 2893 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 2894 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 2895 & *dgm10(2,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2896 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 2897 & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 2898 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 2899 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)& 2900 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 2901 & +dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 2902 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 2903 & *dgm10(3,3))+3*gm(1,1)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 2904 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*gm(1,1)*(12*gm(1,2)*gm(1,3)& 2905 & +24*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2906 & /12.d0 2907 cm(10,10)=2*gm(3,3)**3*dgm01(1,1)*dgm10(1,1)+gm(3,3)**2*(12*gm(1,3)& 2908 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-3*dgm01(3,3)& 2909 & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)))& 2910 & +6*gm(1,3)**2*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)& 2911 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(12*gm(1,1)**2*dgm01(3,3)& 2912 & *dgm10(3,3)+gm(1,3)**2*(9*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)& 2913 & *dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))+30*gm(1,1)*gm(1,3)*(dgm01(3,3)& 2914 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 2915 cm(11,10)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,2)& 2916 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 2917 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 2918 & +dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2919 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 2920 & *dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 2921 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 2922 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)& 2923 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2924 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)& 2925 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)& 2926 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 2927 cm(12,10)=(288*gm(2,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2928 & *dgm10(1,2))+96*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 2929 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+8*gm(3,3)*(54*gm(2,3)& 2930 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2931 & +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)& 2932 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*gm(1,3)*gm(3,3)**2*(dgm01(2,2)& 2933 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2934 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(3,3)& 2935 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 2936 & +dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 2937 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 2938 & *dgm10(2,3))+24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 2939 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(-36*gm(1,2)& 2940 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2941 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)& 2942 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 2943 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(-12*gm(1,3)& 2944 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 2945 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 2946 & +dgm01(1,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2947 & *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)& 2948 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,3)& 2949 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 2950 & *dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 2951 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 2952 & /48.d0 2953 cm(13,10)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)& 2954 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 2955 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 2956 & +(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 2957 & +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 2958 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 2959 & *dgm10(1,3))+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2960 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)& 2961 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 2962 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)& 2963 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 2964 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)& 2965 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 2966 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 2967 & +dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 2968 & *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)& 2969 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,2)& 2970 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 2971 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,1)*gm(1,3)& 2972 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 2973 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 2974 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 2975 & +dgm01(2,3)*dgm10(3,3)))/18.d0 2976 cm(14,10)=(144*gm(3,3)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 2977 & *dgm10(1,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 2978 & *dgm01(1,3)*dgm10(1,3)+432*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)& 2979 & +dgm01(1,1)*dgm10(1,3))+864*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)& 2980 & +dgm01(1,2)*dgm10(1,3))+432*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)& 2981 & +dgm01(1,1)*dgm10(2,3))+72*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 2982 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,1)& 2983 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)& 2984 & *dgm10(3,3)+12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 2985 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)& 2986 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 2987 & +36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 2988 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2989 & +72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 2990 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 2991 & +36*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 2992 & +dgm01(2,3)*dgm10(3,3)))/72.d0 2993 cm(15,10)=2*gm(3,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 2994 & +3*gm(1,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(1,3)*(3*dgm01(3,3)& 2995 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))& 2996 & +9*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+15*gm(1,3)& 2997 & *gm(3,3)*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(1,3)& 2998 & +dgm01(1,3)*dgm10(3,3))) 2999 cm(16,10)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 3000 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3001 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3002 & +dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 3003 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)& 3004 & +dgm01(2,2)*dgm10(3,3)))/36.d0 3005 cm(17,10)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3006 & *dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3007 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*gm(3,3)*(54*gm(2,3)& 3008 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 3009 & +144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3010 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(90*gm(1,2)& 3011 & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3)& 3012 & *dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 3013 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3014 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 3015 & +dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 3016 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3017 & *dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3018 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3019 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/144.d0 3020 cm(18,10)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 3021 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)& 3022 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3023 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 3024 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,3)& 3025 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3026 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)& 3027 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3028 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 3029 & +dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 3030 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 3031 & +dgm01(2,3)*dgm10(3,3)))/36.d0 3032 cm(19,10)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3033 & *dgm10(2,2))+864*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3034 & *dgm10(2,2))+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3035 & *dgm10(2,3))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3036 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(-12*gm(1,3)& 3037 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3038 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 3039 & +12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 3040 & +dgm01(1,1)*dgm10(3,3))+72*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3041 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3042 & *dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 3043 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 3044 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 3045 & +dgm01(2,3)*dgm10(3,3)))/144.d0 3046 cm(20,10)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3047 & *dgm10(2,3))+3456*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3048 & *dgm10(2,3))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 3049 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+864*gm(2,3)& 3050 & *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*gm(3,3)& 3051 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 3052 & +dgm01(1,3)*dgm10(3,3))+48*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 3053 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 3054 cm(21,10)=gm(3,3)*(9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 3055 & **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+gm(3,3)*(-3*gm(1,1)& 3056 & *dgm01(3,3)*dgm10(3,3)+6*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3057 & *dgm10(3,3)))) 3058 cm(1,11)=(160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,2)& 3059 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 3060 & *gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/2880.d0 3061 cm(2,11)=(2304*gm(1,2)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3062 & *dgm10(2,2))+gm(1,2)**2*(2592*gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 3063 & *(864*dgm01(2,2)*dgm10(1,1)+10368*dgm01(1,2)*dgm10(1,2)+864*dgm01(1,1)& 3064 & *dgm10(2,2)))+gm(1,1)*gm(2,2)*(-864*gm(1,1)*dgm01(2,2)*dgm10(2,2)& 3065 & +gm(2,2)*(1728*dgm01(2,2)*dgm10(1,1)-3456*dgm01(1,2)*dgm10(1,2)& 3066 & +1728*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*gm(2,2)*(1728*gm(2,2)*(dgm01(1,2)& 3067 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3456*gm(1,1)*(dgm01(2,2)*dgm10(1,2)& 3068 & +dgm01(1,2)*dgm10(2,2))))/288.d0 3069 cm(3,11)=(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3070 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3071 & +12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 3072 & *gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 3073 & +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3074 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3075 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3076 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 3077 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 3078 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)& 3079 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 3080 & /36.d0 3081 cm(4,11)=(12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 3082 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+6*gm(2,2)& 3083 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 3084 & +dgm01(1,1)*dgm10(1,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 3085 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)*gm(1,3)& 3086 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)& 3087 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3088 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3089 & +dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 3090 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(90*gm(1,2)& 3091 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3092 & *dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 3093 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/18.d0 3094 cm(5,11)=(6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 3095 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 3096 & *dgm10(1,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)& 3097 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3098 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 3099 & +dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 3100 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/36.d0 3101 cm(6,11)=(32*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)& 3102 & *dgm10(1,2)+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(1,2)& 3103 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+36*(6*gm(1,2)**3+30*gm(1,1)& 3104 & *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3105 & +24*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)& 3106 & +dgm01(1,2)*dgm10(2,2)))/144.d0 3107 cm(7,11)=2*gm(2,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3108 & +3*gm(1,2)**3*dgm01(2,2)*dgm10(2,2)+gm(2,2)**2*(gm(1,2)*(3*dgm01(2,2)& 3109 & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))& 3110 & +9*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+15*gm(1,2)& 3111 & *gm(2,2)*(gm(1,1)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(dgm01(2,2)*dgm10(1,2)& 3112 & +dgm01(1,2)*dgm10(2,2))) 3113 cm(8,11)=(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3114 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)& 3115 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3116 & +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 3117 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(48*gm(1,3)*gm(2,2)*gm(2,3)& 3118 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)& 3119 & +dgm01(1,1)*dgm10(2,2))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3120 & *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)& 3121 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)& 3122 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3123 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(-36*gm(1,2)& 3124 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3125 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(6*gm(1,2)**2*gm(1,3)& 3126 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 3127 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3128 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)& 3129 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3130 & *dgm10(3,3)))/12.d0 3131 cm(9,11)=(128*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 3132 & *dgm01(1,2)*dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 3133 & +dgm01(1,1)*dgm10(1,2))+1152*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)& 3134 & +dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 3135 & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+24*gm(2,2)& 3136 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 3137 & +dgm01(1,1)*dgm10(2,2))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 3138 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3139 & +dgm01(1,2)*dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3140 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3141 & +dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3142 & *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+32*gm(2,2)& 3143 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3144 & *dgm10(2,3))+48*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 3145 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0 3146 cm(10,11)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,2)& 3147 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3148 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 3149 & +dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3150 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3151 & *dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3152 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3153 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)& 3154 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3155 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)& 3156 & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)& 3157 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 3158 cm(11,11)=(gm(2,2)*(4608*gm(2,2)**2*dgm01(1,2)*dgm10(1,2)+288*(12*gm(1,2)& 3159 & **2+24*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,2)+6912*gm(1,2)*gm(2,2)& 3160 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))))/576.d0 3161 cm(12,11)=(64*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3162 & *dgm10(1,2)+1152*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3163 & *dgm10(1,3))+48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3164 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3165 & *dgm01(2,2)*dgm10(2,2)+48*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3166 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3167 & *dgm10(2,2))+16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3168 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3169 & +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)& 3170 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+64*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3171 & +54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3172 & +96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3173 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3174 & +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 3175 & +24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 3176 & +dgm01(2,2)*dgm10(3,3)))/96.d0 3177 cm(13,11)=(3456*gm(2,2)**2*gm(2,3)*dgm01(1,2)*dgm10(1,2)+576*gm(2,2)& 3178 & **3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*(6*gm(1,2)& 3179 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3180 & *dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3181 & *gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)& 3182 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3183 & +dgm01(1,2)*dgm10(2,2))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)& 3184 & +dgm01(1,3)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 3185 & +dgm01(1,2)*dgm10(2,3))+72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3186 & *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/144.d0 3187 cm(14,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3188 & *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 3189 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3190 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 3191 & +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3192 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3193 & *dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3194 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3195 & +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3196 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3197 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3198 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 3199 & +9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3200 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 3201 & /18.d0 3202 cm(15,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 3203 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3204 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3205 & +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3206 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 3207 & *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3208 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3209 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 3210 cm(16,11)=gm(2,2)**2*(6*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 3211 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 3212 cm(17,11)=(144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3213 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*gm(2,2)*(54*gm(2,3)& 3214 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3215 & +3456*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3216 & +144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)& 3217 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+576*gm(2,2)**3*(dgm01(3,3)& 3218 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 3219 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0 3220 cm(18,11)=(gm(2,2)*(288*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3221 & *dgm01(2,2)*dgm10(2,2)+3456*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 3222 & +dgm01(1,2)*dgm10(2,2))+2304*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 3223 & +dgm01(1,2)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)& 3224 & +dgm01(2,2)*dgm10(2,3))))/576.d0 3225 cm(19,11)=(48*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 3226 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+16*(90*gm(2,3)& 3227 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3228 & *dgm10(2,2))+96*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 3229 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)& 3230 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 3231 & +dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,2)& 3232 & +dgm01(1,2)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3233 & *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0 3234 cm(20,11)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 3235 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3236 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 3237 & +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 3238 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,3)& 3239 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 3240 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 3241 cm(21,11)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 3242 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+240*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3243 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 3244 & +dgm01(2,2)*dgm10(3,3)))/2880.d0 3245 cm(1,12)=(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3246 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3247 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 3248 & *gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 3249 & +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)& 3250 & +dgm01(1,1)*dgm10(2,2))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 3251 & *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+gm(1,1)& 3252 & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 3253 & *dgm10(3,3)))/12.d0 3254 cm(2,12)=(24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3255 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3256 & *dgm01(1,2)*dgm10(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3257 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 3258 & *dgm10(1,2))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3259 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(48*gm(1,2)& 3260 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3261 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(1,1)*(54*gm(1,3)& 3262 & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+3*(-12*gm(1,3)& 3263 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3264 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)& 3265 & +dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3266 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3267 & *dgm10(2,2))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3268 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3269 & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 3270 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3271 & +12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3272 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 3273 & +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 3274 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3275 & +4*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)& 3276 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3277 & *gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(6*gm(1,2)& 3278 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 3279 & *dgm10(3,3))+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)& 3280 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/12.d0 3281 cm(3,12)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3282 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+24*(-12*gm(1,3)& 3283 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3284 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 3285 & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3286 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(6*gm(1,3)& 3287 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3288 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*gm(3,3)*(12*gm(1,3)& 3289 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3290 & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 3291 & +dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3292 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3293 & *dgm10(2,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3294 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 3295 & +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 3296 & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3297 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 3298 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 3299 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 3300 & +dgm01(1,2)*dgm10(3,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 3301 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3302 & *dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3303 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3304 & *dgm10(3,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 3305 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*gm(1,1)*(54*gm(1,2)*gm(1,3)& 3306 & -18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3307 & /12.d0 3308 cm(4,12)=(12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 3309 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+6*(6*gm(1,2)& 3310 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)& 3311 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,2)*gm(1,3)*gm(2,2)& 3312 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)& 3313 & *dgm10(1,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3314 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(30*gm(1,3)& 3315 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3316 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 3317 & +dgm01(1,2)*dgm10(1,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3318 & *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)& 3319 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)& 3320 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 3321 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(6*gm(1,3)**3+30*gm(1,1)& 3322 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3323 & +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 3324 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+8*gm(1,1)& 3325 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 3326 & +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 3327 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3328 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 3329 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 3330 & +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3331 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3332 & *dgm10(2,3))+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3333 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3334 & *dgm10(2,3))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 3335 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3336 & *dgm10(2,3))+gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 3337 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,2)*gm(1,3)*gm(2,2)& 3338 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 3339 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3340 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 3341 & +dgm01(1,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))& 3342 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(54*gm(1,2)& 3343 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3344 & /6.d0 3345 cm(5,12)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 3346 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 3347 & *dgm10(1,2))+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 3348 & +2*gm(1,2)*gm(2,3)))*dgm01(1,3)*dgm10(1,3)+6*(-12*gm(1,3)**2*gm(2,2)& 3349 & +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)& 3350 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 3351 & +4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 3352 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(6*gm(1,3)& 3353 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3354 & *dgm10(2,2))+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 3355 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,1)*gm(1,3)*gm(2,3)& 3356 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 3357 & +dgm01(1,1)*dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)& 3358 & *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,2)& 3359 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3360 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*gm(1,1)*(54*gm(1,2)& 3361 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))& 3362 & /12.d0 3363 cm(6,12)=(8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 3364 & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+6*(30*gm(1,3)& 3365 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3366 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)& 3367 & +dgm01(1,1)*dgm10(1,2))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3368 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,1)& 3369 & +dgm01(1,1)*dgm10(1,3))+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 3370 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3371 & *dgm10(1,3))+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3372 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3373 & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)& 3374 & +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 3375 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3376 & *dgm10(2,3))+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 3377 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*(6*gm(1,2)**3+30*gm(1,1)& 3378 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 3379 & +2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 3380 & +dgm01(1,2)*dgm10(3,3)))/12.d0 3381 cm(7,12)=(96*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3382 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+8*gm(2,2)*(54*gm(2,3)& 3383 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3384 & +288*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 3385 & +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,3)& 3386 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(48*gm(1,1)*gm(1,3)*gm(2,3)& 3387 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)& 3388 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3389 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*(30*gm(1,3)& 3390 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3391 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 3392 & +dgm01(1,2)*dgm10(2,2))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3393 & *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)& 3394 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(48*gm(1,2)& 3395 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3396 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(2,2)*(-18*gm(1,3)& 3397 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 3398 & *dgm10(2,3))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3399 & +24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3400 & *dgm10(2,3))+48*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 3401 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3402 & *dgm10(2,3))+144*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 3403 & *dgm10(3,3))+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)& 3404 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*(6*gm(1,2)**3+30*gm(1,1)& 3405 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 3406 & /48.d0 3407 cm(8,12)=(8*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3408 & *dgm01(1,2)*dgm10(1,2)+2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 3409 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+16*(6*gm(1,3)& 3410 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 3411 & *dgm10(1,3)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 3412 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,2)*gm(2,3)*gm(3,3)& 3413 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 3414 & +dgm01(1,2)*dgm10(1,3))+8*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3415 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3416 & *dgm10(1,3))+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3417 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*gm(3,3)*(12*gm(1,3)& 3418 & **2+24*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3419 & +4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 3420 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3421 & +16*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 3422 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)& 3423 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 3424 & +dgm01(1,1)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 3425 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3426 & *dgm10(2,3))+8*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 3427 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3428 & *dgm10(2,3))+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3429 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3430 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*(9*gm(1,3)& 3431 & **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)& 3432 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3433 & *dgm10(2,3))+2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 3434 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*(6*gm(1,2)**3+30*gm(1,1)& 3435 & *gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)& 3436 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 3437 & +dgm01(1,1)*dgm10(3,3))+2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 3438 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 3439 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*(-12*gm(1,3)& 3440 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3441 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 3442 & +dgm01(1,2)*dgm10(3,3))+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3443 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 3444 & +dgm01(1,3)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3445 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 3446 & +dgm01(1,3)*dgm10(3,3))+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3447 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 3448 & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 3449 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 3450 & +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 3451 & *gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3452 & /4.d0 3453 cm(9,12)=(16*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 3454 & *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)& 3455 & *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+8*gm(2,2)& 3456 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(1,3)& 3457 & +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 3458 & +dgm01(1,1)*dgm10(1,3))+4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3459 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3460 & *dgm10(1,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3461 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 3462 & +2*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)& 3463 & +(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3464 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(6*gm(1,3)& 3465 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3466 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(6*gm(1,3)**2*gm(2,3)& 3467 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 3468 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+2*(-12*gm(1,3)**2*gm(2,2)& 3469 & +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)& 3470 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3471 & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 3472 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3473 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 3474 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 3475 & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3476 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(30*gm(1,3)& 3477 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3478 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 3479 & +dgm01(1,2)*dgm10(2,3))+16*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 3480 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 3481 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(48*gm(1,2)& 3482 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3483 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+8*(6*gm(1,2)*gm(1,3)& 3484 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 3485 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*(48*gm(1,1)*gm(1,3)*gm(2,3)& 3486 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 3487 & +dgm01(2,2)*dgm10(2,3))+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 3488 & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3489 & *dgm10(2,3))+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3490 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(6*gm(1,2)*gm(1,3)& 3491 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 3492 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+2*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3493 & *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(6*gm(1,2)& 3494 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3495 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+2*(6*gm(1,2)**3+30*gm(1,1)& 3496 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3497 & /4.d0 3498 cm(10,12)=(288*gm(2,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 3499 & *dgm10(1,2))+96*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3500 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+8*gm(3,3)*(54*gm(2,3)& 3501 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 3502 & +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)& 3503 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*gm(1,3)*gm(3,3)**2*(dgm01(2,2)& 3504 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 3505 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*gm(3,3)& 3506 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 3507 & +dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3508 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 3509 & *dgm10(2,3))+24*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3510 & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+4*(-36*gm(1,2)& 3511 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3512 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(6*gm(1,3)& 3513 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 3514 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*(-12*gm(1,3)& 3515 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3516 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 3517 & +dgm01(1,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3518 & *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)& 3519 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,3)& 3520 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3521 & *dgm10(3,3))+48*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 3522 & **2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3523 & /48.d0 3524 cm(11,12)=(64*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 3525 & *dgm10(1,2)+1152*gm(2,2)**2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3526 & *dgm10(1,3))+48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3527 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3528 & *dgm01(2,2)*dgm10(2,2)+48*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3529 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3530 & *dgm10(2,2))+16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3531 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3532 & +48*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)& 3533 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+64*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3534 & +54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3535 & +96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3536 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3537 & +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 3538 & +24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 3539 & +dgm01(2,2)*dgm10(3,3)))/96.d0 3540 cm(12,12)=(4*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)& 3541 & *dgm10(1,2)+4*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)& 3542 & *dgm10(1,3)+4*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 3543 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 3544 & *gm(3,3))*dgm01(2,2)*dgm10(2,2)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)& 3545 & +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3546 & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3547 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+16*(9*gm(1,3)& 3548 & **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)& 3549 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+8*(6*gm(1,2)& 3550 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3551 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+8*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3552 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 3553 & +dgm01(1,3)*dgm10(2,3))+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 3554 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3555 & *dgm10(2,3))+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3)& 3556 & *dgm10(3,3)+2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3557 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 3558 & +2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)& 3559 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3560 & *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)& 3561 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+4*(6*gm(1,2)& 3562 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3563 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/2.d0 3564 cm(13,12)=(48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3565 & *dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*dgm01(1,3)*dgm10(1,3)+8*gm(2,2)& 3566 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3567 & *dgm10(1,3))+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)& 3568 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 3569 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)& 3570 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3571 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(1,2)& 3572 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3573 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3574 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3575 & +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3576 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3577 & *dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3578 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+24*(48*gm(1,3)& 3579 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3580 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3581 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 3582 & +dgm01(1,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3583 & *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*gm(2,2)& 3584 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)& 3585 & +dgm01(1,3)*dgm10(2,3))+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3586 & *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)& 3587 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(9*gm(1,3)& 3588 & **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)& 3589 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3590 & *dgm10(2,3))+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3591 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,2)*gm(2,2)& 3592 & **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,2)& 3593 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3594 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*gm(2,2)*(12*gm(1,2)& 3595 & **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3596 & /24.d0 3597 cm(14,12)=(288*gm(2,3)**3*dgm01(1,3)*dgm10(1,3)+gm(2,3)**2*(216*gm(1,2)& 3598 & *dgm01(3,3)*dgm10(1,3)+720*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3599 & *dgm10(1,3))+792*gm(1,1)*dgm01(3,3)*dgm10(2,3)+216*gm(1,2)*dgm01(1,3)& 3600 & *dgm10(3,3)+792*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(504*dgm01(3,3)& 3601 & *dgm10(1,2)+432*dgm01(2,3)*dgm10(1,3)+432*dgm01(1,3)*dgm10(2,3)& 3602 & +504*dgm01(1,2)*dgm10(3,3)))+gm(2,3)*(576*gm(3,3)**2*dgm01(1,2)& 3603 & *dgm10(1,2)+(144*gm(1,2)**2+576*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 3604 & +gm(1,3)**2*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)& 3605 & +72*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(1440*gm(2,2)*dgm01(1,3)*dgm10(1,3)& 3606 & +288*gm(1,1)*dgm01(3,3)*dgm10(2,2)+2304*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 3607 & +gm(1,3)*(1152*dgm01(2,3)*dgm10(1,2)+144*dgm01(2,2)*dgm10(1,3)& 3608 & +144*dgm01(1,3)*dgm10(2,2)+1152*dgm01(1,2)*dgm10(2,3))+288*gm(1,1)& 3609 & *dgm01(2,2)*dgm10(3,3)+gm(1,2)*(0*dgm01(3,3)*dgm10(1,2)+1440*dgm01(2,3)& 3610 & *dgm10(1,3)+1440*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)))& 3611 & +gm(1,3)*(720*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3612 & +144*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 3613 & +gm(3,3)*(144*gm(1,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3614 & +gm(1,3)*(144*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3615 & +gm(1,2)*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)& 3616 & +72*dgm01(2,2)*dgm10(3,3)))+288*(gm(1,2)*gm(3,3)*(dgm01(2,3)& 3617 & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)& 3618 & *dgm10(2,3))+gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3619 & *dgm10(2,3))+gm(1,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 3620 & +gm(2,2)*(432*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 3621 & +gm(3,3)*(gm(1,3)*(504*dgm01(3,3)*dgm10(1,2)+720*dgm01(2,3)*dgm10(1,3)& 3622 & +720*dgm01(1,3)*dgm10(2,3)+504*dgm01(1,2)*dgm10(3,3))+360*gm(1,2)& 3623 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+648*gm(1,1)*(dgm01(3,3)& 3624 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(1,3)*(144*gm(1,2)*dgm01(3,3)& 3625 & *dgm10(3,3)+288*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))& 3626 & /24.d0 3627 cm(15,12)=(64*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 3628 & *dgm10(1,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3629 & *dgm10(1,3))+576*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3630 & *dgm10(2,2))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3631 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-12*gm(1,3)& 3632 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3633 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 3634 & +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 3635 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(48*gm(1,2)*gm(2,3)*gm(3,3)& 3636 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 3637 & +dgm01(1,3)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3638 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3639 & *dgm10(3,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 3640 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 3641 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 3642 & +dgm01(2,3)*dgm10(3,3)))/96.d0 3643 cm(16,12)=(80*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 3644 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+80*gm(2,2)*(54*gm(2,3)& 3645 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3646 & +2880*gm(2,2)**2*gm(2,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3647 & +160*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)& 3648 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1440*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 3649 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/480.d0 3650 cm(17,12)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 3651 & *dgm01(2,2)*dgm10(2,2)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 3652 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(2,3)& 3653 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3654 & *dgm10(2,2))+192*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3655 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*(6*gm(2,3)& 3656 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3657 & *dgm10(2,3))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)& 3658 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)& 3659 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 3660 & +dgm01(2,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3661 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3662 & *dgm10(2,3))+288*gm(1,2)*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+8*gm(2,2)& 3663 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 3664 & *dgm10(3,3))+288*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3665 & *dgm10(3,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3666 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 3667 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3668 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*gm(2,2)& 3669 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 3670 & +dgm01(2,3)*dgm10(3,3))+16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 3671 & *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 3672 cm(18,12)=(48*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3673 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*(6*gm(2,3)& 3674 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 3675 & *dgm10(2,2))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 3676 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+128*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3677 & +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+32*gm(2,2)*(54*gm(2,3)& 3678 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3679 & +1152*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 3680 & +16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 3681 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+96*(6*gm(1,3)& 3682 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3683 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)& 3684 & +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 3685 & +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3686 & /96.d0 3687 cm(19,12)=(288*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+288*gm(2,3)& 3688 & *gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+8*gm(3,3)& 3689 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3690 & *dgm10(2,2))+192*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3691 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*gm(3,3)*(12*gm(2,3)& 3692 & **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 3693 & +48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 3694 & +dgm01(1,3)*dgm10(2,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 3695 & *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(3,3)& 3696 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 3697 & +dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3698 & *gm(2,3))*dgm01(3,3)*dgm10(3,3)+24*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)& 3699 & *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*gm(2,2)& 3700 & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3701 & *dgm10(3,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3702 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 3703 & +4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 3704 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*(48*gm(1,3)& 3705 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 3706 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3707 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 3708 & +dgm01(2,3)*dgm10(3,3)))/48.d0 3709 cm(20,12)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3710 & *dgm01(2,3)*dgm10(2,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)& 3711 & +dgm01(1,2)*dgm10(2,3))+32*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 3712 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+576*gm(1,3)& 3713 & *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(48*gm(1,3)& 3714 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)& 3715 & *dgm10(3,3)+48*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)& 3716 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(6*gm(2,3)**3+30*gm(2,2)& 3717 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3718 & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 3719 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 3720 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 3721 & +dgm01(2,3)*dgm10(3,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3722 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 3723 & *dgm10(3,3)))/96.d0 3724 cm(21,12)=(80*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 3725 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+2880*gm(2,3)*gm(3,3)& 3726 & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+80*gm(3,3)& 3727 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 3728 & *dgm10(3,3))+1440*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 3729 & *dgm10(3,3))+160*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3730 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0 3731 cm(1,13)=(3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3732 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 3733 & *dgm10(1,2))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)& 3734 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,2)*gm(1,3)& 3735 & -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3736 & +3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)& 3737 & +dgm01(1,1)*dgm10(2,3)))/18.d0 3738 cm(2,13)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3739 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(1,2)+36*gm(2,2)& 3740 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(1,2)*dgm10(1,1)& 3741 & +dgm01(1,1)*dgm10(1,2))+432*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,1)& 3742 & +dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3743 & *gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*gm(1,1)& 3744 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)& 3745 & +36*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 3746 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3747 & +12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 3748 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3749 & +72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 3750 & *gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3751 & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)& 3752 & +dgm01(1,3)*dgm10(2,2))+36*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3753 & *gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*(6*gm(1,2)& 3754 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3755 & *dgm10(2,3))+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 3756 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 3757 cm(3,13)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3758 & *gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,2)& 3759 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3760 & *dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3761 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 3762 & *dgm10(1,3))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3763 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3764 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)& 3765 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 3766 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,1)*gm(1,3)*gm(2,3)& 3767 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3768 & +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3769 & *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)& 3770 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,2)& 3771 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))& 3772 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(90*gm(1,2)& 3773 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 3774 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)& 3775 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 3776 & +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)& 3777 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)& 3778 & *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 3779 cm(4,13)=(18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3780 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3781 & *dgm01(1,2)*dgm10(1,2)+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 3782 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3783 & +6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)*dgm10(1,3)& 3784 & +3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 3785 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)& 3786 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 3787 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 3788 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,3)& 3789 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)& 3790 & *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 3791 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,1)& 3792 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 3793 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 3794 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 3795 & +dgm01(1,3)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 3796 & *dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3797 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)& 3798 & +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 3799 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3800 & *dgm10(2,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 3801 & +48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3802 & *dgm10(2,3))+(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 3803 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,2)**3+30*gm(1,1)& 3804 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 3805 & +3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(2,3)& 3806 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/9.d0 3807 cm(5,13)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 3808 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 3809 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+4*(90*gm(1,2)& 3810 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)*dgm10(1,3)+3*(-36*gm(1,2)& 3811 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3812 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(90*gm(1,2)& 3813 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 3814 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,1)*gm(1,3)& 3815 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,2)& 3816 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)& 3817 & -18*gm(1,1)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3818 & +9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 3819 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 3820 & +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)& 3821 & +dgm01(1,3)*dgm10(2,3)))/18.d0 3822 cm(6,13)=(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 3823 & +2*gm(1,2)*gm(2,3)))*dgm01(1,2)*dgm10(1,2)+9*(48*gm(1,2)*gm(1,3)& 3824 & *gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(1,2)& 3825 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3826 & *gm(2,2))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(90*gm(1,2)& 3827 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3828 & *dgm10(1,3))+9*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)& 3829 & +6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 3830 & *dgm10(2,2))+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))& 3831 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)**3+30*gm(1,1)& 3832 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 3833 & +6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)& 3834 & +dgm01(1,2)*dgm10(2,3)))/18.d0 3835 cm(7,13)=(144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3836 & *dgm01(1,2)*dgm10(1,2)+432*gm(2,2)**2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)& 3837 & +dgm01(1,1)*dgm10(1,2))+144*gm(2,2)**3*(dgm01(1,3)*dgm10(1,1)& 3838 & +dgm01(1,1)*dgm10(1,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)& 3839 & +dgm01(1,2)*dgm10(1,3))+72*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)& 3840 & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)& 3841 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)& 3842 & +dgm01(1,1)*dgm10(2,2))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3843 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3844 & +dgm01(1,2)*dgm10(2,2))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3845 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3846 & +dgm01(1,2)*dgm10(2,2))+12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3847 & *gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+432*gm(1,2)& 3848 & *gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+72*gm(2,2)& 3849 & *(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 3850 & *dgm10(2,3))+36*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 3851 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/72.d0 3852 cm(8,13)=(12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3853 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+3*(6*gm(2,3)**3+30*gm(2,2)& 3854 & *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 3855 & +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)& 3856 & *dgm10(1,3)+gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 3857 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3858 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 3859 & +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3860 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3861 & *dgm10(1,3))+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 3862 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 3863 & +6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 3864 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 3865 & +12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 3866 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3867 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3868 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)& 3869 & +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 3870 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-12*gm(1,3)& 3871 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3872 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 3873 & +dgm01(1,2)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3874 & *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)& 3875 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+2*(-36*gm(1,2)& 3876 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3877 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(6*gm(1,2)& 3878 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3879 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(6*gm(1,1)*gm(1,3)& 3880 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 3881 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(48*gm(1,2)*gm(1,3)*gm(2,2)& 3882 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 3883 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 3884 & *gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,2)& 3885 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 3886 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(6*gm(1,2)**3+30*gm(1,1)& 3887 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3888 & /6.d0 3889 cm(9,13)=(96*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3890 & *gm(3,3)))*dgm01(1,2)*dgm10(1,2)+12*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)& 3891 & *gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+576*gm(1,2)& 3892 & *gm(2,2)**2*dgm01(1,3)*dgm10(1,3)+144*gm(2,2)**2*gm(2,3)*(dgm01(1,3)& 3893 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)& 3894 & +12*gm(1,2)*gm(2,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 3895 & +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(1,3)& 3896 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,1)*gm(1,3)*gm(2,3)& 3897 & +gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)& 3898 & +12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 3899 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+12*(-12*gm(1,3)& 3900 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 3901 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 3902 & +dgm01(1,2)*dgm10(2,2))+48*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 3903 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 3904 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,2)& 3905 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3906 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,2)& 3907 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3908 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+48*(6*gm(1,2)& 3909 & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3)*dgm10(2,3)+12*gm(2,2)& 3910 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)& 3911 & +dgm01(1,1)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3912 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)& 3913 & +dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 3914 & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)& 3915 & +dgm01(1,2)*dgm10(2,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 3916 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(2,2)*(12*gm(1,2)& 3917 & **2+24*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 3918 & +24*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)& 3919 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 3920 & +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)& 3921 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 3922 & /24.d0 3923 cm(10,13)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,2)& 3924 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3925 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 3926 & +(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 3927 & +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 3928 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3929 & *dgm10(1,3))+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 3930 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)& 3931 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 3932 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)& 3933 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 3934 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)& 3935 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 3936 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 3937 & +dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3938 & *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)& 3939 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,2)& 3940 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 3941 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,1)*gm(1,3)& 3942 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 3943 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 3944 & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 3945 & +dgm01(2,3)*dgm10(3,3)))/18.d0 3946 cm(11,13)=(3456*gm(2,2)**2*gm(2,3)*dgm01(1,2)*dgm10(1,2)+576*gm(2,2)& 3947 & **3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+144*(6*gm(1,2)& 3948 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3949 & *dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3950 & *gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)& 3951 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 3952 & +dgm01(1,2)*dgm10(2,2))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)& 3953 & +dgm01(1,3)*dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 3954 & +dgm01(1,2)*dgm10(2,3))+72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)& 3955 & *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/144.d0 3956 cm(12,13)=(48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 3957 & *dgm10(1,2)+576*gm(2,2)**2*gm(2,3)*dgm01(1,3)*dgm10(1,3)+8*gm(2,2)& 3958 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 3959 & *dgm10(1,3))+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)& 3960 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 3961 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)& 3962 & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 3963 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(1,2)& 3964 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3965 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 3966 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 3967 & +dgm01(1,3)*dgm10(2,2))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 3968 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 3969 & *dgm10(2,2))+96*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 3970 & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+24*(48*gm(1,3)& 3971 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 3972 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)& 3973 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 3974 & +dgm01(1,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 3975 & *gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+16*gm(2,2)& 3976 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)& 3977 & +dgm01(1,3)*dgm10(2,3))+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 3978 & *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)& 3979 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(9*gm(1,3)& 3980 & **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)& 3981 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 3982 & *dgm10(2,3))+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 3983 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(1,2)*gm(2,2)& 3984 & **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*(6*gm(1,2)& 3985 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 3986 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*gm(2,2)*(12*gm(1,2)& 3987 & **2+24*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 3988 & /24.d0 3989 cm(13,13)=(72*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)& 3990 & *dgm10(1,2)+288*gm(2,2)**3*dgm01(1,3)*dgm10(1,3)+864*gm(2,2)& 3991 & **2*gm(2,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*(9*gm(1,3)& 3992 & **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)& 3993 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+72*(6*gm(1,3)& 3994 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 3995 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 3996 & +54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 3997 & +72*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)& 3998 & +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)& 3999 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(2,3)& 4000 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,2)*gm(1,3)*gm(2,2)& 4001 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 4002 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/36.d0 4003 cm(14,13)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 4004 & *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 4005 & *dgm10(1,3)+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4006 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(2,3)**3+30*gm(2,2)& 4007 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4008 & +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,2)& 4009 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)& 4010 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 4011 & +dgm01(1,3)*dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4012 & *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)& 4013 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+9*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4014 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 4015 & +dgm01(1,2)*dgm10(2,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4016 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4017 & *dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4018 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4019 & +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4020 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,3)& 4021 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4022 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)& 4023 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4024 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4025 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4026 & +9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 4027 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4028 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)& 4029 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 4030 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/9.d0 4031 cm(15,13)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 4032 & *dgm10(1,3)+6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 4033 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)& 4034 & -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4035 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4036 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)& 4037 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4038 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4039 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 4040 & +dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 4041 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4042 & *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4043 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4044 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 4045 cm(16,13)=(gm(2,2)*(240*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4046 & *dgm01(2,2)*dgm10(2,2)+4320*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 4047 & +dgm01(1,2)*dgm10(2,2))+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)& 4048 & +dgm01(1,3)*dgm10(2,2))+4320*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)& 4049 & +dgm01(2,2)*dgm10(2,3))))/720.d0 4050 cm(17,13)=(72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4051 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(6*gm(2,3)& 4052 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4053 & *dgm10(2,2))+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4054 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4055 & +12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+72*gm(2,2)*(12*gm(2,3)& 4056 & **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4057 & +864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4058 & +36*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4059 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)& 4060 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4061 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 4062 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(2,2)**3*(dgm01(3,3)& 4063 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4064 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 4065 & +432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 4066 & /72.d0 4067 cm(18,13)=(864*gm(1,2)*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+576*gm(2,2)& 4068 & **3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,2)**2*(864*gm(1,3)& 4069 & *dgm01(2,3)*dgm10(2,2)+1728*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4070 & *dgm10(2,2))+864*gm(1,3)*dgm01(2,2)*dgm10(2,3)+3456*gm(1,2)*dgm01(2,3)& 4071 & *dgm10(2,3)+gm(2,3)*(1728*dgm01(2,3)*dgm10(1,2)+864*dgm01(2,2)& 4072 & *dgm10(1,3)+864*dgm01(1,3)*dgm10(2,2)+1728*dgm01(1,2)*dgm10(2,3)))& 4073 & +gm(2,2)*(3456*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+864*gm(2,3)& 4074 & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,3)*(864*gm(1,3)& 4075 & *dgm01(2,2)*dgm10(2,2)+3456*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4076 & *dgm10(2,3)))))/144.d0 4077 cm(19,13)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4078 & *dgm01(2,2)*dgm10(2,2)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4079 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(90*gm(2,3)& 4080 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4081 & *dgm10(2,2))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4082 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+72*(6*gm(2,3)& 4083 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4084 & *dgm10(2,3))+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 4085 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4086 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 4087 & +dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4088 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4089 & *dgm10(2,3))+36*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)& 4090 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 4091 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)*gm(2,2)*gm(2,3)& 4092 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4093 & +dgm01(2,2)*dgm10(3,3))+36*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 4094 & *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 4095 cm(20,13)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4096 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+6*gm(3,3)*(54*gm(2,3)& 4097 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4098 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 4099 & +dgm01(1,3)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 4100 & *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(2,3)& 4101 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4102 & *dgm10(3,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 4103 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)& 4104 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4105 & +dgm01(2,2)*dgm10(3,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4106 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4107 & *dgm10(3,3)))/18.d0 4108 cm(21,13)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 4109 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(2,3)**3-54*gm(2,2)& 4110 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4111 & +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)& 4112 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4113 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 4114 & +dgm01(2,3)*dgm10(3,3)))/18.d0 4115 cm(1,14)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,2)& 4116 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 4117 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)& 4118 & +dgm01(1,1)*dgm10(1,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 4119 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,2)& 4120 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 4121 & *dgm10(3,3)))/18.d0 4122 cm(2,14)=(12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4123 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(1,2)+3*(-36*gm(1,2)& 4124 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4125 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+9*(48*gm(1,3)& 4126 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)& 4127 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+18*(30*gm(1,3)**2*gm(2,2)& 4128 & +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)& 4129 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4130 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)& 4131 & +dgm01(1,2)*dgm10(2,2))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4132 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4133 & *dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4134 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4135 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(48*gm(1,1)& 4136 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 4137 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4138 & *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,2)& 4139 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4140 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)& 4141 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 4142 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)& 4143 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4144 & *dgm10(3,3)))/18.d0 4145 cm(3,14)=(432*gm(1,3)*gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 4146 & *dgm10(1,2))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4147 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+36*gm(3,3)& 4148 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 4149 & +dgm01(1,1)*dgm10(1,3))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 4150 & *gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+36*gm(3,3)& 4151 & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 4152 & *dgm10(2,3))+72*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 4153 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*gm(1,1)*(54*gm(1,2)*gm(1,3)& 4154 & -18*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)+36*(6*gm(1,3)**2*gm(2,3)& 4155 & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 4156 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 4157 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4158 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 4159 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,1)& 4160 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 4161 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4162 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 4163 cm(4,14)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)& 4164 & *dgm10(1,2)+3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4165 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+18*(30*gm(1,3)& 4166 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4167 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 4168 & +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4169 & *gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3*(90*gm(1,3)& 4170 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4171 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**2*gm(2,3)& 4172 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4173 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4174 & *gm(3,3))*dgm01(2,3)*dgm10(2,3)+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4175 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 4176 & +dgm01(1,1)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))& 4177 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,3)**3+30*gm(1,1)& 4178 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4179 & +9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)& 4180 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,1)& 4181 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4182 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(9*gm(1,3)**2*gm(2,2)& 4183 & -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)& 4184 & **2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4185 & +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 4186 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)& 4187 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 4188 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,2)& 4189 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4190 & *dgm10(3,3)))/9.d0 4191 cm(5,14)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,2)& 4192 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 4193 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)& 4194 & +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4195 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 4196 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)& 4197 & +dgm01(1,2)*dgm10(1,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 4198 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)& 4199 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4200 & +9*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 4201 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)& 4202 & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 4203 & +dgm01(1,3)*dgm10(3,3)))/18.d0 4204 cm(6,14)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)& 4205 & *dgm10(1,2)+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4206 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 4207 & *dgm10(1,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4208 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4209 & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+6*(-36*gm(1,1)& 4210 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4211 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)& 4212 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)& 4213 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4214 & *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(6*gm(1,2)& 4215 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 4216 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,2)& 4217 & *gm(1,3)-18*gm(1,1)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4218 & *dgm10(3,3)))/18.d0 4219 cm(7,14)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4220 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(1,2)+(90*gm(2,3)**3-54*gm(2,2)& 4221 & *gm(2,3)*gm(3,3))*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))& 4222 & +3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 4223 & +dgm01(1,1)*dgm10(1,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4224 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4225 & *dgm10(1,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4226 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4227 & *dgm10(2,2))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4228 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4229 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)& 4230 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4231 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)& 4232 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4233 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 4234 & +dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4235 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4236 & *dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4237 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(6*gm(1,2)& 4238 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4239 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(6*gm(1,2)**2*gm(1,3)& 4240 & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)& 4241 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/18.d0 4242 cm(8,14)=(576*gm(1,3)*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+144*gm(2,3)& 4243 & *gm(3,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+96*(6*gm(1,2)& 4244 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4245 & *dgm10(1,3)+12*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(1,3)& 4246 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)& 4247 & -18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4248 & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(1,3)& 4249 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+48*(6*gm(1,3)**3+30*gm(1,1)& 4250 & *gm(1,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+12*gm(3,3)*(12*gm(1,3)& 4251 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 4252 & *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 4253 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 4254 & *gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(6*gm(1,3)& 4255 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4256 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(6*gm(1,3)& 4257 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4258 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(6*gm(1,2)& 4259 & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))& 4260 & *dgm01(3,3)*dgm10(3,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4261 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 4262 & *dgm10(3,3))+4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4263 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4264 & *dgm10(3,3))+24*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 4265 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4266 & *dgm10(3,3))+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4267 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4268 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+48*(9*gm(1,3)& 4269 & **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)& 4270 & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4271 & *dgm10(3,3))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 4272 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))& 4273 & +24*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)& 4274 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/24.d0 4275 cm(9,14)=(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4276 & *dgm01(1,2)*dgm10(1,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4277 & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*(48*gm(1,3)& 4278 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)& 4279 & *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4280 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4281 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 4282 & +dgm01(1,2)*dgm10(1,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4283 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4284 & *dgm10(1,3))+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 4285 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 4286 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 4287 & +dgm01(1,3)*dgm10(2,2))+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 4288 & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+3*(48*gm(1,2)& 4289 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4290 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)& 4291 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)& 4292 & +dgm01(1,2)*dgm10(2,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 4293 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4294 & *dgm10(2,3))+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4295 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4296 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)& 4297 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4298 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)& 4299 & +dgm01(1,3)*dgm10(2,3))+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))& 4300 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*(6*gm(1,3)*gm(2,2)& 4301 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4302 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)& 4303 & *gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 4304 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+6*(6*gm(1,2)& 4305 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))& 4306 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,1)*gm(1,3)& 4307 & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 4308 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)& 4309 & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 4310 & +dgm01(2,3)*dgm10(3,3)))/6.d0 4311 cm(10,14)=(144*gm(3,3)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)& 4312 & *dgm10(1,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4313 & *dgm01(1,3)*dgm10(1,3)+432*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)& 4314 & +dgm01(1,1)*dgm10(1,3))+864*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)& 4315 & +dgm01(1,2)*dgm10(1,3))+432*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)& 4316 & +dgm01(1,1)*dgm10(2,3))+72*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)& 4317 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(6*gm(1,1)& 4318 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)& 4319 & *dgm10(3,3)+12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4320 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)& 4321 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4322 & +36*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4323 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4324 & +72*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 4325 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4326 & +36*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 4327 & +dgm01(2,3)*dgm10(3,3)))/72.d0 4328 cm(11,14)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)& 4329 & *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 4330 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4331 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 4332 & +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4333 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4334 & *dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4335 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4336 & +9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4337 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4338 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4339 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4340 & +9*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)& 4341 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 4342 & /18.d0 4343 cm(12,14)=(288*gm(2,3)**3*dgm01(1,3)*dgm10(1,3)+gm(2,3)**2*(216*gm(1,2)& 4344 & *dgm01(3,3)*dgm10(1,3)+720*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4345 & *dgm10(1,3))+792*gm(1,1)*dgm01(3,3)*dgm10(2,3)+216*gm(1,2)*dgm01(1,3)& 4346 & *dgm10(3,3)+792*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(504*dgm01(3,3)& 4347 & *dgm10(1,2)+432*dgm01(2,3)*dgm10(1,3)+432*dgm01(1,3)*dgm10(2,3)& 4348 & +504*dgm01(1,2)*dgm10(3,3)))+gm(2,3)*(576*gm(3,3)**2*dgm01(1,2)& 4349 & *dgm10(1,2)+(144*gm(1,2)**2+576*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 4350 & +gm(1,3)**2*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)& 4351 & +72*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(1440*gm(2,2)*dgm01(1,3)*dgm10(1,3)& 4352 & +288*gm(1,1)*dgm01(3,3)*dgm10(2,2)+2304*gm(1,1)*dgm01(2,3)*dgm10(2,3)& 4353 & +gm(1,3)*(1152*dgm01(2,3)*dgm10(1,2)+144*dgm01(2,2)*dgm10(1,3)& 4354 & +144*dgm01(1,3)*dgm10(2,2)+1152*dgm01(1,2)*dgm10(2,3))+288*gm(1,1)& 4355 & *dgm01(2,2)*dgm10(3,3)+gm(1,2)*(0*dgm01(3,3)*dgm10(1,2)+1440*dgm01(2,3)& 4356 & *dgm10(1,3)+1440*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)))& 4357 & +gm(1,3)*(720*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4358 & +144*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 4359 & +gm(3,3)*(144*gm(1,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 4360 & +gm(1,3)*(144*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4361 & +gm(1,2)*(72*dgm01(3,3)*dgm10(2,2)+576*dgm01(2,3)*dgm10(2,3)& 4362 & +72*dgm01(2,2)*dgm10(3,3)))+288*(gm(1,2)*gm(3,3)*(dgm01(2,3)& 4363 & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)& 4364 & *dgm10(2,3))+gm(1,1)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4365 & *dgm10(2,3))+gm(1,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))& 4366 & +gm(2,2)*(432*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4367 & +gm(3,3)*(gm(1,3)*(504*dgm01(3,3)*dgm10(1,2)+720*dgm01(2,3)*dgm10(1,3)& 4368 & +720*dgm01(1,3)*dgm10(2,3)+504*dgm01(1,2)*dgm10(3,3))+360*gm(1,2)& 4369 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+648*gm(1,1)*(dgm01(3,3)& 4370 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(1,3)*(144*gm(1,2)*dgm01(3,3)& 4371 & *dgm10(3,3)+288*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))& 4372 & /24.d0 4373 cm(13,14)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)& 4374 & *dgm10(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 4375 & *dgm10(1,3)+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4376 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(6*gm(2,3)**3+30*gm(2,2)& 4377 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4378 & +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(2,2)& 4379 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)& 4380 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 4381 & +dgm01(1,3)*dgm10(2,2))+18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4382 & *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)& 4383 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+9*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4384 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 4385 & +dgm01(1,2)*dgm10(2,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4386 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4387 & *dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4388 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4389 & +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4390 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(6*gm(1,3)& 4391 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4392 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)& 4393 & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4394 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4395 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4396 & +9*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)& 4397 & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4398 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+9*(6*gm(1,2)*gm(1,3)*gm(2,2)& 4399 & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 4400 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/9.d0 4401 cm(14,14)=(288*gm(3,3)**3*dgm01(1,2)*dgm10(1,2)+72*gm(3,3)*(12*gm(2,3)& 4402 & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+864*gm(2,3)*gm(3,3)& 4403 & **2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+72*gm(3,3)& 4404 & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+864*gm(1,3)& 4405 & *gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+72*gm(3,3)& 4406 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 4407 & +dgm01(1,3)*dgm10(2,3))+72*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)& 4408 & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)& 4409 & *gm(3,3)))*dgm01(3,3)*dgm10(3,3)+24*gm(3,3)*(54*gm(1,3)*gm(2,3)& 4410 & -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4411 & +72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4412 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+72*(6*gm(1,3)& 4413 & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))& 4414 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 4415 cm(15,14)=(576*gm(3,3)**3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4416 & *dgm10(1,3))+864*gm(1,3)**2*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 4417 & **2*(3456*gm(2,3)*dgm01(1,3)*dgm10(1,3)+864*gm(1,2)*dgm01(3,3)& 4418 & *dgm10(1,3)+1728*gm(1,1)*dgm01(3,3)*dgm10(2,3)+864*gm(1,2)*dgm01(1,3)& 4419 & *dgm10(3,3)+1728*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(864*dgm01(3,3)& 4420 & *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)& 4421 & +864*dgm01(1,2)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,1)*gm(2,3)*dgm01(3,3)& 4422 & *dgm10(3,3)+864*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4423 & *dgm10(3,3))+gm(1,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(2,3)& 4424 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/144.d0 4425 cm(16,14)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 4426 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4427 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)& 4428 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4429 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)& 4430 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4431 & *dgm10(3,3)))/18.d0 4432 cm(17,14)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4433 & *dgm10(2,2))+36*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4434 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4435 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 4436 & +24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)& 4437 & +dgm01(1,2)*dgm10(2,3))+72*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))& 4438 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+36*gm(3,3)*(12*gm(1,3)& 4439 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4440 & *dgm10(2,3))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4441 & *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 4442 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(2,2)*(54*gm(2,3)& 4443 & **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4444 & +36*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4445 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*(-36*gm(1,3)& 4446 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4447 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,3)& 4448 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4449 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 4450 cm(18,14)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4451 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(2,3)**3+30*gm(2,2)& 4452 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4453 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4454 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)& 4455 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4456 & +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 4457 & +dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4458 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4459 & *dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4460 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 4461 & +6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)& 4462 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 4463 cm(19,14)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4464 & *dgm10(2,2))+432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4465 & *dgm10(2,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4466 & *dgm01(2,3)*dgm10(2,3)+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)& 4467 & +dgm01(1,2)*dgm10(2,3))+72*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)& 4468 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+432*gm(1,3)& 4469 & *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)& 4470 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)& 4471 & *dgm10(3,3)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 4472 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*(6*gm(2,3)**3+30*gm(2,2)& 4473 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4474 & +12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)& 4475 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+36*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4476 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 4477 & +dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4478 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4479 & *dgm10(3,3)))/72.d0 4480 cm(20,14)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4481 & *dgm10(2,3))+864*gm(1,3)*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 4482 & **2*(3456*gm(1,3)*dgm01(2,3)*dgm10(2,3)+864*gm(1,2)*dgm01(3,3)& 4483 & *dgm10(2,3)+864*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(864*dgm01(3,3)& 4484 & *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)& 4485 & +864*dgm01(1,2)*dgm10(3,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(1,3)& 4486 & +dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,3)*gm(2,2)*dgm01(3,3)& 4487 & *dgm10(3,3)+864*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4488 & *dgm10(3,3))+gm(2,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(1,3)& 4489 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/144.d0 4490 cm(21,14)=(gm(3,3)*(240*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4491 & *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)& 4492 & +dgm01(1,2)*dgm10(3,3))+4320*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)& 4493 & +dgm01(1,3)*dgm10(3,3))+4320*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)& 4494 & +dgm01(2,3)*dgm10(3,3))))/720.d0 4495 cm(1,15)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 4496 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+240*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4497 & *gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/2880.d0 4498 cm(2,15)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4499 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 4500 & +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4501 & *gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))& 4502 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)& 4503 & +dgm01(1,3)*dgm10(2,2))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4504 & *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)& 4505 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,1)& 4506 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)& 4507 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)& 4508 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 4509 cm(3,15)=(2304*gm(1,3)**3*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4510 & *dgm10(3,3))+gm(1,3)**2*(2592*gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 4511 & *(864*dgm01(3,3)*dgm10(1,1)+10368*dgm01(1,3)*dgm10(1,3)+864*dgm01(1,1)& 4512 & *dgm10(3,3)))+gm(1,1)*gm(3,3)*(-864*gm(1,1)*dgm01(3,3)*dgm10(3,3)& 4513 & +gm(3,3)*(1728*dgm01(3,3)*dgm10(1,1)-3456*dgm01(1,3)*dgm10(1,3)& 4514 & +1728*dgm01(1,1)*dgm10(3,3)))+gm(1,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(1,3)& 4515 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+3456*gm(1,1)*(dgm01(3,3)*dgm10(1,3)& 4516 & +dgm01(1,3)*dgm10(3,3))))/288.d0 4517 cm(4,15)=(12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4518 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(1,3)+6*gm(3,3)& 4519 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)& 4520 & +dgm01(1,1)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 4521 & *(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*(90*gm(1,3)& 4522 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 4523 & *dgm10(2,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)& 4524 & +24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 4525 & *dgm10(3,3))+9*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)& 4526 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)& 4527 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 4528 & +dgm01(1,3)*dgm10(3,3))+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 4529 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 4530 cm(5,15)=(32*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)& 4531 & *dgm10(1,3)+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(1,3)& 4532 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+36*(6*gm(1,3)**3+30*gm(1,1)& 4533 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4534 & +24*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 4535 & +dgm01(1,3)*dgm10(3,3)))/144.d0 4536 cm(6,15)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 4537 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)& 4538 & *dgm10(1,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(1,3)& 4539 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)& 4540 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 4541 & +dgm01(1,1)*dgm10(3,3))+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))& 4542 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 4543 cm(7,15)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4544 & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4545 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(1,3)*dgm10(1,2)& 4546 & +dgm01(1,2)*dgm10(1,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 4547 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4548 & *dgm10(2,2))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4549 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4550 & +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4551 & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4552 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,1)*gm(1,3)*gm(2,3)& 4553 & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4554 & +dgm01(2,2)*dgm10(3,3)))/36.d0 4555 cm(8,15)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4556 & *dgm01(1,3)*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)& 4557 & +dgm01(1,1)*dgm10(1,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)& 4558 & +dgm01(1,2)*dgm10(1,3))+32*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 4559 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,1)& 4560 & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)& 4561 & *dgm10(3,3)+24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4562 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)& 4563 & **2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4564 & +16*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4565 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4566 & +96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)& 4567 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4568 & +48*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 4569 & +dgm01(2,3)*dgm10(3,3)))/96.d0 4570 cm(9,15)=(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 4571 & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)& 4572 & **2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 4573 & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(1,3)& 4574 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 4575 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,3)& 4576 & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4577 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(48*gm(1,2)& 4578 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4579 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4580 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)& 4581 & +dgm01(1,2)*dgm10(3,3))+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 4582 & *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)& 4583 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(6*gm(1,3)& 4584 & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4585 & *dgm10(3,3))+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)& 4586 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 4587 & /12.d0 4588 cm(10,15)=2*gm(3,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))& 4589 & +3*gm(1,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(1,3)*(3*dgm01(3,3)& 4590 & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))& 4591 & +9*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+15*gm(1,3)& 4592 & *gm(3,3)*(gm(1,1)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(1,3)& 4593 & +dgm01(1,3)*dgm10(3,3))) 4594 cm(11,15)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(1,3)& 4595 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 4596 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 4597 & +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4598 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4599 & *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4600 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4601 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 4602 cm(12,15)=(64*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)& 4603 & *dgm10(1,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4604 & *dgm10(1,3))+576*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4605 & *dgm10(2,2))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 4606 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-12*gm(1,3)& 4607 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4608 & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 4609 & +48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 4610 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4611 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 4612 & +dgm01(1,3)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4613 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4614 & *dgm10(3,3))+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*(dgm01(3,3)& 4615 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+96*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)& 4616 & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 4617 & +dgm01(2,3)*dgm10(3,3)))/96.d0 4618 cm(13,15)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)& 4619 & *dgm10(1,3)+6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(1,3)& 4620 & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)& 4621 & -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4622 & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 4623 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)& 4624 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4625 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4626 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 4627 & +dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)& 4628 & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4629 & *dgm10(3,3))+9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4630 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4631 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 4632 cm(14,15)=(576*gm(3,3)**3*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)& 4633 & *dgm10(1,3))+864*gm(1,3)**2*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 4634 & **2*(3456*gm(2,3)*dgm01(1,3)*dgm10(1,3)+864*gm(1,2)*dgm01(3,3)& 4635 & *dgm10(1,3)+1728*gm(1,1)*dgm01(3,3)*dgm10(2,3)+864*gm(1,2)*dgm01(1,3)& 4636 & *dgm10(3,3)+1728*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(864*dgm01(3,3)& 4637 & *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)& 4638 & +864*dgm01(1,2)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,1)*gm(2,3)*dgm01(3,3)& 4639 & *dgm10(3,3)+864*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4640 & *dgm10(3,3))+gm(1,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(2,3)& 4641 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/144.d0 4642 cm(15,15)=(gm(3,3)*(4608*gm(3,3)**2*dgm01(1,3)*dgm10(1,3)+288*(12*gm(1,3)& 4643 & **2+24*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+6912*gm(1,3)*gm(3,3)& 4644 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))))/576.d0 4645 cm(16,15)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 4646 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4647 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4648 & +dgm01(2,2)*dgm10(3,3)))/2880.d0 4649 cm(17,15)=(1728*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4650 & *dgm10(2,2))+96*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 4651 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4652 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 4653 & +16*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 4654 & +dgm01(1,3)*dgm10(3,3))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 4655 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+144*(48*gm(1,2)& 4656 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 4657 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 4658 cm(18,15)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4659 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(2,3)**3-54*gm(2,2)& 4660 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4661 & +9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4662 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,3)& 4663 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4664 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 4665 cm(19,15)=(576*gm(3,3)**3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4666 & *dgm10(2,2))+3456*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 4667 & *dgm10(2,3))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4668 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+48*gm(3,3)*(54*gm(2,3)& 4669 & **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 4670 & +864*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 4671 & +144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 4672 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 4673 cm(20,15)=(gm(3,3)*(2304*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 4674 & *dgm10(2,3))+288*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)& 4675 & *dgm10(3,3)+3456*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4676 & *dgm10(3,3))+3456*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 4677 & *dgm10(3,3))))/576.d0 4678 cm(21,15)=gm(3,3)**2*(6*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 4679 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 4680 cm(1,16)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)& 4681 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)))/36.d0 4682 cm(2,16)=(80*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)& 4683 & *dgm10(2,2)+4320*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4684 & *dgm10(2,2))+240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)& 4685 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))/1440.d0 4686 cm(3,16)=(3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4687 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 4688 & +6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 4689 & *gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4690 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 4691 & +dgm01(2,2)*dgm10(3,3)))/36.d0 4692 cm(4,16)=(3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4693 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*(-36*gm(1,2)& 4694 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4695 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(1,2)& 4696 & **2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4697 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)& 4698 & +dgm01(2,2)*dgm10(2,3)))/18.d0 4699 cm(5,16)=(240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4700 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4701 & *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,2)& 4702 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)))/2880.d0 4703 cm(6,16)=(240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,2)& 4704 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)& 4705 & *gm(1,2)*gm(2,2))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))& 4706 & /2880.d0 4707 cm(7,16)=(gm(2,2)*(240*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)& 4708 & *dgm10(2,2)+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4709 & *dgm10(2,2))+8640*gm(1,2)*gm(2,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4710 & *dgm10(2,2))))/1440.d0 4711 cm(8,16)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4712 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4713 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 4714 & +dgm01(1,2)*dgm10(2,2))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 4715 & *gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+2*(-36*gm(1,2)& 4716 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4717 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(54*gm(1,2)& 4718 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))& 4719 & /12.d0 4720 cm(9,16)=(80*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 4721 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+1440*gm(2,2)& 4722 & **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+160*gm(2,2)& 4723 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 4724 & +dgm01(1,2)*dgm10(2,2))+2880*gm(1,2)*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)& 4725 & +dgm01(1,3)*dgm10(2,2))+80*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 4726 & *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/480.d0 4727 cm(10,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 4728 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4729 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 4730 & +dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 4731 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)& 4732 & +dgm01(2,2)*dgm10(3,3)))/36.d0 4733 cm(11,16)=gm(2,2)**2*(6*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 4734 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))) 4735 cm(12,16)=(80*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 4736 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+80*gm(2,2)*(54*gm(2,3)& 4737 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4738 & +2880*gm(2,2)**2*gm(2,3)*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4739 & +160*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)& 4740 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1440*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 4741 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/480.d0 4742 cm(13,16)=(gm(2,2)*(240*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4743 & *dgm01(2,2)*dgm10(2,2)+4320*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 4744 & +dgm01(1,2)*dgm10(2,2))+1440*gm(2,2)**2*(dgm01(2,2)*dgm10(1,3)& 4745 & +dgm01(1,3)*dgm10(2,2))+4320*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)& 4746 & +dgm01(2,2)*dgm10(2,3))))/720.d0 4747 cm(14,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 4748 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4749 & *gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+3*(-36*gm(1,3)& 4750 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4751 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)*(-18*gm(1,3)& 4752 & *gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4753 & *dgm10(3,3)))/18.d0 4754 cm(15,16)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 4755 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 4756 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4757 & +dgm01(2,2)*dgm10(3,3)))/2880.d0 4758 cm(16,16)=2*gm(2,2)**3*dgm01(2,2)*dgm10(2,2) 4759 cm(17,16)=(gm(2,2)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 4760 & *dgm10(2,2)+8640*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4761 & *dgm10(2,3))+1440*gm(2,2)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4762 & *dgm10(3,3))))/1440.d0 4763 cm(18,16)=gm(2,2)**2*(6*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 4764 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))) 4765 cm(19,16)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 4766 & *dgm10(2,2)+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 4767 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+4320*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 4768 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/1440.d0 4769 cm(20,16)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 4770 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 4771 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/2880.d0 4772 cm(21,16)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 4773 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 4774 cm(1,17)=(3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 4775 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 4776 & +6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 4777 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 4778 & +(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)& 4779 & +dgm01(1,1)*dgm10(3,3)))/36.d0 4780 cm(2,17)=(24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 4781 & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(48*gm(1,3)& 4782 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 4783 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(30*gm(1,3)**2*gm(2,2)& 4784 & +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)& 4785 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4786 & +72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)& 4787 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)& 4788 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 4789 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+24*(90*gm(1,2)**2*gm(1,3)& 4790 & -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 4791 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 4792 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 4793 & *gm(2,2))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+4*(90*gm(1,2)& 4794 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 4795 & *dgm10(3,3)))/144.d0 4796 cm(3,17)=(9*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4797 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(6*gm(1,3)& 4798 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4799 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+18*(48*gm(1,2)& 4800 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4801 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(-12*gm(1,3)**2*gm(2,2)& 4802 & +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)& 4803 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4804 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 4805 & +3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4806 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)& 4807 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4808 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)& 4809 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4810 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(90*gm(1,2)& 4811 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 4812 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 4813 cm(4,17)=(9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4814 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(6*gm(1,3)& 4815 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4816 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(30*gm(1,3)& 4817 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4818 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 4819 & +dgm01(1,3)*dgm10(2,2))+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)& 4820 & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,3)& 4821 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4822 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+18*(-12*gm(1,3)**2*gm(2,2)& 4823 & +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)& 4824 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4825 & +18*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 4826 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4827 & +3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 4828 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3*gm(2,2)& 4829 & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)& 4830 & +dgm01(1,1)*dgm10(3,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 4831 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)& 4832 & +dgm01(1,2)*dgm10(3,3))+3*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))& 4833 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+(90*gm(1,2)**3-54*gm(1,1)& 4834 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 4835 & /18.d0 4836 cm(5,17)=(9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4837 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4838 & *dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 4839 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 4840 & +18*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)& 4841 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4842 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)**2*gm(1,3)& 4843 & -18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,3)& 4844 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+3*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 4845 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 4846 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)& 4847 & *gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))& 4848 & /36.d0 4849 cm(6,17)=(9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4850 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4851 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)& 4852 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 4853 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(48*gm(1,2)& 4854 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4855 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(90*gm(1,2)& 4856 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 4857 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+3*gm(2,2)*(54*gm(1,2)& 4858 & **2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4859 & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)*dgm10(1,2)& 4860 & +dgm01(1,2)*dgm10(3,3)))/36.d0 4861 cm(7,17)=(72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 4862 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 4863 & *dgm01(2,2)*dgm10(2,2)+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 4864 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+72*(48*gm(1,3)& 4865 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 4866 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)& 4867 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4868 & +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4869 & +72*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 4870 & *gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 4871 & +144*gm(2,2)**3*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4872 & +864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 4873 & +12*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,2)& 4874 & +dgm01(2,2)*dgm10(3,3)))/144.d0 4875 cm(8,17)=(3*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4876 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*gm(3,3)*(12*gm(1,3)*gm(2,3)& 4877 & +24*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4878 & +12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 4879 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(-12*gm(1,3)& 4880 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 4881 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 4882 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 4883 & +dgm01(1,1)*dgm10(2,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4884 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4885 & *dgm10(2,3))+24*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4886 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4887 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 4888 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 4889 & +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)& 4890 & +gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 4891 & +dgm01(1,1)*dgm10(3,3))+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 4892 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4893 & *dgm10(3,3))+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4894 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(30*gm(1,3)& 4895 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 4896 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 4897 & +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 4898 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 4899 & +dgm01(2,3)*dgm10(3,3))+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 4900 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 4901 & +dgm01(2,3)*dgm10(3,3)))/12.d0 4902 cm(9,17)=(24*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 4903 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+12*(6*gm(2,3)& 4904 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4905 & *dgm10(2,2))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4906 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4907 & +24*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4908 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(48*gm(1,2)& 4909 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4910 & *dgm01(2,3)*dgm10(2,3)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 4911 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+96*(6*gm(1,3)& 4912 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4913 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4914 & +12*gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4915 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 4916 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4917 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*(-12*gm(1,3)**2*gm(2,2)& 4918 & +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)& 4919 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 4920 & +144*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 4921 & +16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)& 4922 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+288*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 4923 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 4924 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)& 4925 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 4926 & *gm(2,2))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 4927 cm(10,17)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 4928 & *dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4929 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*gm(3,3)*(54*gm(2,3)& 4930 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 4931 & +144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 4932 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(-36*gm(1,2)& 4933 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 4934 & *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 4935 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+24*(-36*gm(1,3)& 4936 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 4937 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)& 4938 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 4939 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(-12*gm(1,3)& 4940 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 4941 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 4942 & +dgm01(2,3)*dgm10(3,3)))/144.d0 4943 cm(11,17)=(144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4944 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*gm(2,2)*(54*gm(2,3)& 4945 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 4946 & +3456*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4947 & +144*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,3)& 4948 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+576*gm(2,2)**3*(dgm01(3,3)& 4949 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+864*gm(1,2)*gm(2,2)**2*(dgm01(3,3)& 4950 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0 4951 cm(12,17)=(24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 4952 & *dgm01(2,2)*dgm10(2,2)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 4953 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+24*(6*gm(2,3)& 4954 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 4955 & *dgm10(2,2))+192*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4956 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*(6*gm(2,3)& 4957 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 4958 & *dgm10(2,3))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)& 4959 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4960 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 4961 & +dgm01(2,2)*dgm10(2,3))+48*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 4962 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4963 & *dgm10(2,3))+288*gm(1,2)*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+8*gm(2,2)& 4964 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 4965 & *dgm10(3,3))+288*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 4966 & *dgm10(3,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 4967 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 4968 & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 4969 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*gm(2,2)& 4970 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 4971 & +dgm01(2,3)*dgm10(3,3))+16*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 4972 & *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/48.d0 4973 cm(13,17)=(72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 4974 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+36*(6*gm(2,3)& 4975 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4976 & *dgm10(2,2))+12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4977 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*gm(2,2)*(24*gm(1,3)*gm(2,2)& 4978 & +12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+72*gm(2,2)*(12*gm(2,3)& 4979 & **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 4980 & +864*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 4981 & +36*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 4982 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)& 4983 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 4984 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 4985 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+144*gm(2,2)**3*(dgm01(3,3)& 4986 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 4987 & +54*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 4988 & +432*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 4989 & /72.d0 4990 cm(14,17)=(432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 4991 & *dgm10(2,2))+36*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 4992 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)& 4993 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 4994 & +24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)& 4995 & +dgm01(1,2)*dgm10(2,3))+72*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))& 4996 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+36*gm(3,3)*(12*gm(1,3)& 4997 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 4998 & *dgm10(2,3))+24*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))& 4999 & *dgm01(3,3)*dgm10(3,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 5000 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+12*gm(2,2)*(54*gm(2,3)& 5001 & **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5002 & +36*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 5003 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+12*(-36*gm(1,3)& 5004 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5005 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,3)& 5006 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5007 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 5008 cm(15,17)=(1728*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5009 & *dgm10(2,2))+96*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5010 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,3)*gm(2,2)*gm(2,3)& 5011 & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 5012 & +16*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 5013 & +dgm01(1,3)*dgm10(3,3))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 5014 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+144*(48*gm(1,2)& 5015 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5016 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 5017 cm(16,17)=(gm(2,2)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)& 5018 & *dgm10(2,2)+8640*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5019 & *dgm10(2,3))+1440*gm(2,2)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5020 & *dgm10(3,3))))/1440.d0 5021 cm(17,17)=6*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5022 & +gm(2,2)*(12*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)**2*dgm01(3,3)& 5023 & *dgm10(3,3)+gm(2,2)*gm(3,3)*(-3*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)& 5024 & *dgm10(2,3)-3*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(6*gm(3,3)*dgm01(2,2)& 5025 & *dgm10(2,2)+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)& 5026 & +9*dgm01(2,2)*dgm10(3,3)))+gm(2,2)*gm(2,3)*(30*gm(3,3)*(dgm01(2,3)& 5027 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+12*gm(2,2)*(dgm01(3,3)*dgm10(2,3)& 5028 & +dgm01(2,3)*dgm10(3,3))) 5029 cm(18,17)=3*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+15*gm(2,2)*gm(2,3)& 5030 & **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*gm(2,3)& 5031 & *(15*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)& 5032 & +24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))+gm(2,2)**2*(9*gm(3,3)& 5033 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)& 5034 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5035 cm(19,17)=gm(2,3)**3*(4*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)& 5036 & *dgm10(2,3)+4*dgm01(2,2)*dgm10(3,3))+gm(2,3)*(6*gm(3,3)**2*dgm01(2,2)& 5037 & *dgm10(2,2)+6*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+gm(2,2)*gm(3,3)& 5038 & *(6*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)& 5039 & *dgm10(3,3)))+15*gm(2,3)**2*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5040 & *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5041 & +9*gm(2,2)*gm(3,3)*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5042 & *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5043 cm(20,17)=(2304*gm(2,3)**3*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5044 & *dgm10(3,3))+gm(2,3)**2*(2592*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 5045 & *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)& 5046 & *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 5047 & +gm(3,3)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)& 5048 & +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(2,3)& 5049 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3456*gm(2,2)*(dgm01(3,3)*dgm10(2,3)& 5050 & +dgm01(2,3)*dgm10(3,3))))/288.d0 5051 cm(21,17)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5052 & *dgm10(3,3)+4320*gm(2,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5053 & *dgm10(3,3))+240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5054 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/1440.d0 5055 cm(1,18)=(240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 5056 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5057 & *dgm10(2,2))+160*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)& 5058 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)))/2880.d0 5059 cm(2,18)=(48*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)& 5060 & +2*gm(1,2)*gm(2,3)))*dgm01(2,2)*dgm10(2,2)+72*gm(2,2)*(24*gm(1,3)& 5061 & *gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5062 & *dgm10(2,2))+144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5063 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5064 & *dgm10(2,2))+1728*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5065 & *dgm10(2,3))+96*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 5066 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+16*(90*gm(1,2)**3-54*gm(1,1)& 5067 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 5068 & /288.d0 5069 cm(3,18)=(9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 5070 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(-12*gm(1,3)& 5071 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5072 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 5073 & +dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5074 & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5075 & *dgm10(2,3))+12*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 5076 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 5077 & *dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 5078 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5079 & *dgm10(3,3))+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(3,3)& 5080 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 5081 cm(4,18)=(9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 5082 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+9*(-12*gm(1,3)& 5083 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5084 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 5085 & +dgm01(1,2)*dgm10(2,2))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 5086 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)& 5087 & +dgm01(1,3)*dgm10(2,2))+4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))& 5088 & *dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)& 5089 & *gm(2,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*(-36*gm(1,2)& 5090 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5091 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(1,2)& 5092 & **2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5093 & +3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)& 5094 & *gm(1,2)*gm(2,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))& 5095 & /18.d0 5096 cm(5,18)=(9*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5097 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5098 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(90*gm(1,2)& 5099 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 5100 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+6*(-36*gm(1,2)& 5101 & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5102 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)& 5103 & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 5104 & *dgm10(2,3)))/36.d0 5105 cm(6,18)=(9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5106 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5107 & *dgm10(2,2))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)& 5108 & -36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5109 & *dgm10(2,2))+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(2,3)& 5110 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,2)**3-54*gm(1,1)& 5111 & *gm(1,2)*gm(2,2))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3)))& 5112 & /36.d0 5113 cm(7,18)=(144*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5114 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2)+864*gm(2,2)& 5115 & **2*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+144*gm(2,2)& 5116 & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,2)& 5117 & +dgm01(1,2)*dgm10(2,2))+576*gm(2,2)**3*(dgm01(2,3)*dgm10(1,1)& 5118 & +dgm01(1,1)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 5119 & +dgm01(1,2)*dgm10(2,3))+48*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)& 5120 & *gm(2,2))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/288.d0 5121 cm(8,18)=(3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)& 5122 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(48*gm(1,2)*gm(2,3)*gm(3,3)& 5123 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)& 5124 & +dgm01(1,2)*dgm10(2,2))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5125 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5126 & *dgm10(2,2))+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)& 5127 & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)& 5128 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5129 & *dgm10(2,3))+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)& 5130 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5131 & +8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)& 5132 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+6*(-12*gm(1,3)**2*gm(2,2)& 5133 & +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)& 5134 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5135 & +3*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)& 5136 & *gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5137 & +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*(dgm01(3,3)*dgm10(2,3)& 5138 & +dgm01(2,3)*dgm10(3,3)))/12.d0 5139 cm(9,18)=(48*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5140 & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5141 & *dgm01(2,2)*dgm10(2,2)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 5142 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+96*(6*gm(1,3)& 5143 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,2)& 5144 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+48*gm(2,2)*(24*gm(1,3)*gm(2,2)& 5145 & +12*gm(1,2)*gm(2,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 5146 & +64*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(2,3)& 5147 & +576*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 5148 & +64*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(2,3)& 5149 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+1152*gm(1,2)*gm(2,2)**2*(dgm01(2,3)& 5150 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(48*gm(1,2)*gm(1,3)*gm(2,2)& 5151 & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 5152 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+16*(-36*gm(1,2)*gm(1,3)*gm(2,2)& 5153 & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(2,3)& 5154 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))/96.d0 5155 cm(10,18)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 5156 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+18*(48*gm(1,2)*gm(2,3)*gm(3,3)& 5157 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,3)& 5158 & +dgm01(1,3)*dgm10(2,2))+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))& 5159 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,3)& 5160 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5161 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)& 5162 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5163 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 5164 & +dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)& 5165 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 5166 & +dgm01(2,3)*dgm10(3,3)))/36.d0 5167 cm(11,18)=(gm(2,2)*(288*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 5168 & *dgm01(2,2)*dgm10(2,2)+3456*gm(2,2)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)& 5169 & +dgm01(1,2)*dgm10(2,2))+2304*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)& 5170 & +dgm01(1,2)*dgm10(2,3))+3456*gm(1,2)*gm(2,2)*(dgm01(2,3)*dgm10(2,2)& 5171 & +dgm01(2,2)*dgm10(2,3))))/576.d0 5172 cm(12,18)=(48*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5173 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+48*(6*gm(2,3)& 5174 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5175 & *dgm10(2,2))+48*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(2,2)& 5176 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+128*gm(2,2)*(-18*gm(1,3)*gm(2,2)& 5177 & +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(2,3)+32*gm(2,2)*(54*gm(2,3)& 5178 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5179 & +1152*gm(2,2)**2*gm(2,3)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5180 & +16*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 5181 & *gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+96*(6*gm(1,3)& 5182 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)& 5183 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)& 5184 & +12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5185 & +576*gm(1,2)*gm(2,2)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5186 & /96.d0 5187 cm(13,18)=6*gm(1,2)*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+4*gm(2,2)& 5188 & **3*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+gm(2,2)**2*(6*gm(1,3)& 5189 & *dgm01(2,3)*dgm10(2,2)+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5190 & *dgm10(2,2))+6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+24*gm(1,2)*dgm01(2,3)& 5191 & *dgm10(2,3)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)& 5192 & +6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)))+gm(2,2)*(24*gm(1,2)& 5193 & *gm(3,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,3)**2*(dgm01(2,2)*dgm10(1,2)& 5194 & +dgm01(1,2)*dgm10(2,2))+gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)& 5195 & +24*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))) 5196 cm(14,18)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 5197 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*(6*gm(2,3)**3+30*gm(2,2)& 5198 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 5199 & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)& 5200 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)& 5201 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5202 & +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 5203 & +dgm01(1,3)*dgm10(2,3))+9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5204 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5205 & *dgm10(2,3))+9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5206 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5207 & +6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*(dgm01(3,3)& 5208 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/18.d0 5209 cm(15,18)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 5210 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+4*(90*gm(2,3)**3-54*gm(2,2)& 5211 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5212 & +9*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)& 5213 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+6*(-36*gm(1,3)& 5214 & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5215 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/36.d0 5216 cm(16,18)=gm(2,2)**2*(6*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)& 5217 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))) 5218 cm(17,18)=3*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+15*gm(2,2)*gm(2,3)& 5219 & **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*gm(2,3)& 5220 & *(15*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)& 5221 & +24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))+gm(2,2)**2*(9*gm(3,3)& 5222 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)& 5223 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5224 cm(18,18)=gm(2,2)*(6*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+12*gm(2,2)& 5225 & *gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)& 5226 & *(12*gm(3,3)*dgm01(2,2)*dgm10(2,2)+8*gm(2,2)*dgm01(2,3)*dgm10(2,3))) 5227 cm(19,18)=8*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5228 & +gm(2,3)**2*(9*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)& 5229 & *dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))& 5230 & +gm(2,2)*gm(3,3)*(-3*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(6*dgm01(3,3)& 5231 & *dgm10(2,2)-12*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)*dgm10(3,3)))& 5232 & +gm(2,2)*gm(2,3)*(12*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5233 & *dgm10(2,3))+6*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5234 cm(20,18)=(32*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5235 & *dgm10(2,3)+24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5236 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+36*(6*gm(2,3)**3+30*gm(2,2)& 5237 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5238 & +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 5239 & +dgm01(2,3)*dgm10(3,3)))/144.d0 5240 cm(21,18)=(240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5241 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+160*(90*gm(2,3)**3-54*gm(2,2)& 5242 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5243 & /2880.d0 5244 cm(1,19)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 5245 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 5246 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 5247 & +dgm01(1,1)*dgm10(2,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 5248 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 5249 & *dgm10(3,3)))/36.d0 5250 cm(2,19)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)& 5251 & *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5252 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))& 5253 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5254 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 5255 & +18*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)& 5256 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+36*(30*gm(1,3)& 5257 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5258 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 5259 & +dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5260 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5261 & *dgm10(2,3))+9*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 5262 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,2)& 5263 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5264 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,2)& 5265 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 5266 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 5267 cm(3,19)=(432*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5268 & *dgm10(2,2))+24*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 5269 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+72*gm(3,3)*(12*gm(1,3)*gm(2,3)& 5270 & +24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 5271 & +144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5272 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5273 & +24*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)& 5274 & *gm(2,3)))*dgm01(3,3)*dgm10(3,3)+36*(48*gm(1,2)*gm(2,3)*gm(3,3)& 5275 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 5276 & +dgm01(1,1)*dgm10(3,3))+72*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 5277 & *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)& 5278 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4*(90*gm(1,3)& 5279 & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5280 & *dgm10(3,3))+24*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)& 5281 & **2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5282 & /144.d0 5283 cm(4,19)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5284 & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+3*gm(3,3)*(54*gm(1,3)& 5285 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 5286 & +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5287 & *gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 5288 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5289 & *gm(3,3)))*dgm01(2,3)*dgm10(2,3)+18*(6*gm(1,2)*gm(2,3)*gm(3,3)& 5290 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)& 5291 & +dgm01(1,1)*dgm10(2,3))+18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)& 5292 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5293 & *dgm10(2,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5294 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5295 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+(90*gm(1,3)**3-54*gm(1,1)& 5296 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5297 & +9*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)& 5298 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(-12*gm(1,3)& 5299 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5300 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 5301 & +dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 5302 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)& 5303 & +dgm01(1,3)*dgm10(3,3))+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 5304 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5305 & *dgm10(3,3)))/18.d0 5306 cm(5,19)=(3*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,2)& 5307 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)& 5308 & *gm(1,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))& 5309 & +18*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5310 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 5311 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5312 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+9*(-12*gm(1,3)& 5313 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5314 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 5315 & +dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)& 5316 & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5317 & *dgm10(3,3)))/36.d0 5318 cm(6,19)=(3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5319 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5320 & *dgm10(2,2))+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,2)& 5321 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*(30*gm(1,3)**2*gm(2,2)& 5322 & +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)& 5323 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 5324 & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5325 & *gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(48*gm(1,2)& 5326 & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))& 5327 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(90*gm(1,2)& 5328 & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))& 5329 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 5330 cm(7,19)=(24*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5331 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,2)+4*(90*gm(2,3)& 5332 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5333 & *dgm10(2,2))+24*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5334 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 5335 & +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 5336 & +dgm01(1,1)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5337 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5338 & *dgm10(2,3))+72*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5339 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5340 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+432*gm(2,2)**2*gm(2,3)& 5341 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)& 5342 & *gm(2,2)+12*gm(1,2)*gm(2,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 5343 & *dgm10(3,3))+36*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)& 5344 & -18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5345 & *dgm10(3,3)))/144.d0 5346 cm(8,19)=(144*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5347 & *dgm10(2,2))+288*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5348 & *dgm10(2,2))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5349 & *(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+96*(6*gm(1,3)& 5350 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5351 & *dgm01(2,3)*dgm10(2,3)+24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))& 5352 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+48*gm(3,3)*(12*gm(1,3)& 5353 & *gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5354 & *dgm10(2,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5355 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5356 & +8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 5357 & +dgm01(2,2)*dgm10(2,3))+24*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 5358 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)& 5359 & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 5360 & +dgm01(1,1)*dgm10(3,3))+24*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5361 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 5362 & *dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5363 & **2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5364 & +4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5365 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5366 & +24*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 5367 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5368 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+24*(-12*gm(1,3)**2*gm(2,2)& 5369 & +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)& 5370 & **2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5371 & /48.d0 5372 cm(9,19)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)& 5373 & *dgm10(2,2)+gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)& 5374 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)& 5375 & -18*gm(1,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))& 5376 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5377 & *gm(3,3)))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+24*(30*gm(1,3)& 5378 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5379 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)& 5380 & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)& 5381 & +dgm01(1,1)*dgm10(2,3))+24*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5382 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5383 & *dgm10(2,3))+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5384 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5385 & +2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5386 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5387 & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5388 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5389 & +3*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 5390 & +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5391 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 5392 & *dgm10(3,3))+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))& 5393 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+3*(-12*gm(1,3)& 5394 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5395 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 5396 & +dgm01(2,2)*dgm10(3,3))+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)& 5397 & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*(dgm01(3,3)*dgm10(2,3)& 5398 & +dgm01(2,3)*dgm10(3,3)))/12.d0 5399 cm(10,19)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)& 5400 & *dgm10(2,2))+864*gm(1,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5401 & *dgm10(2,2))+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5402 & *dgm10(2,3))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 5403 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+72*(-12*gm(1,3)& 5404 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)& 5405 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 5406 & +12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 5407 & +dgm01(1,1)*dgm10(3,3))+72*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5408 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5409 & *dgm10(3,3))+12*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 5410 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+72*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 5411 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 5412 & +dgm01(2,3)*dgm10(3,3)))/144.d0 5413 cm(11,19)=(48*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5414 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2)+16*(90*gm(2,3)& 5415 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5416 & *dgm10(2,2))+96*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5417 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)& 5418 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 5419 & +dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)**2*gm(2,3)*(dgm01(3,3)*dgm10(1,2)& 5420 & +dgm01(1,2)*dgm10(3,3))+72*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 5421 & *gm(2,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/288.d0 5422 cm(12,19)=(288*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(2,2)+288*gm(2,3)& 5423 & *gm(3,3)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+8*gm(3,3)& 5424 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5425 & *dgm10(2,2))+192*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5426 & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+48*gm(3,3)*(12*gm(2,3)& 5427 & **2+24*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5428 & +48*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 5429 & +dgm01(1,3)*dgm10(2,3))+16*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5430 & *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+24*gm(3,3)& 5431 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 5432 & +dgm01(2,2)*dgm10(2,3))+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 5433 & *gm(2,3))*dgm01(3,3)*dgm10(3,3)+24*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)& 5434 & *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+24*gm(2,2)& 5435 & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5436 & *dgm10(3,3))+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5437 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5438 & +4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5439 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+24*(48*gm(1,3)& 5440 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5441 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)*gm(2,2)*gm(2,3)& 5442 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 5443 & +dgm01(2,3)*dgm10(3,3)))/48.d0 5444 cm(13,19)=(24*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5445 & *dgm01(2,2)*dgm10(2,2)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 5446 & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4*(90*gm(2,3)& 5447 & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5448 & *dgm10(2,2))+144*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5449 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+72*(6*gm(2,3)& 5450 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5451 & *dgm10(2,3))+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5452 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5453 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 5454 & +dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5455 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5456 & *dgm10(2,3))+36*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5457 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+432*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 5458 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+36*(6*gm(1,3)*gm(2,2)*gm(2,3)& 5459 & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 5460 & +dgm01(2,2)*dgm10(3,3))+36*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)& 5461 & *gm(2,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/72.d0 5462 cm(14,19)=(144*gm(3,3)**3*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)& 5463 & *dgm10(2,2))+432*gm(2,3)*gm(3,3)**2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5464 & *dgm10(2,2))+144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))& 5465 & *dgm01(2,3)*dgm10(2,3)+864*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)& 5466 & +dgm01(1,2)*dgm10(2,3))+72*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)& 5467 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+432*gm(1,3)& 5468 & *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+72*(6*gm(1,3)& 5469 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)& 5470 & *dgm10(3,3)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5471 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+36*(6*gm(2,3)**3+30*gm(2,2)& 5472 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5473 & +12*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)& 5474 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+36*(48*gm(1,2)*gm(2,3)*gm(3,3)& 5475 & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 5476 & +dgm01(2,3)*dgm10(3,3))+72*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5477 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5478 & *dgm10(3,3)))/72.d0 5479 cm(15,19)=(576*gm(3,3)**3*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)& 5480 & *dgm10(2,2))+3456*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 5481 & *dgm10(2,3))+144*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)& 5482 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+48*gm(3,3)*(54*gm(2,3)& 5483 & **2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5484 & +864*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5485 & +144*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 5486 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 5487 cm(16,19)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)& 5488 & *dgm10(2,2)+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5489 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+4320*gm(2,2)**2*gm(2,3)*(dgm01(3,3)& 5490 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/1440.d0 5491 cm(17,19)=gm(2,3)**3*(4*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)& 5492 & *dgm10(2,3)+4*dgm01(2,2)*dgm10(3,3))+gm(2,3)*(6*gm(3,3)**2*dgm01(2,2)& 5493 & *dgm10(2,2)+6*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+gm(2,2)*gm(3,3)& 5494 & *(6*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)& 5495 & *dgm10(3,3)))+15*gm(2,3)**2*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5496 & *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5497 & +9*gm(2,2)*gm(3,3)*(gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5498 & *dgm10(2,3))+gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5499 cm(18,19)=(2304*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5500 & *dgm10(2,3))+gm(2,3)**2*(2592*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)& 5501 & *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)& 5502 & *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(3,3)*dgm01(2,2)*dgm10(2,2)& 5503 & +gm(2,2)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)& 5504 & +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,2)*gm(2,3)*(3456*gm(3,3)*(dgm01(2,3)& 5505 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(2,3)& 5506 & +dgm01(2,3)*dgm10(3,3))))/288.d0 5507 cm(19,19)=2*gm(3,3)**3*dgm01(2,2)*dgm10(2,2)+gm(3,3)**2*(12*gm(2,3)& 5508 & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(-3*dgm01(3,3)& 5509 & *dgm10(2,2)+48*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)*dgm10(3,3)))& 5510 & +6*gm(2,3)**2*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)& 5511 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(3,3)*(12*gm(2,2)**2*dgm01(3,3)& 5512 & *dgm10(3,3)+gm(2,3)**2*(9*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)& 5513 & *dgm10(2,3)+9*dgm01(2,2)*dgm10(3,3))+30*gm(2,2)*gm(2,3)*(dgm01(3,3)& 5514 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5515 cm(20,19)=2*gm(3,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5516 & +3*gm(2,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(2,3)*(3*dgm01(3,3)& 5517 & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))& 5518 & +9*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+15*gm(2,3)& 5519 & *gm(3,3)*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)*dgm10(2,3)& 5520 & +dgm01(2,3)*dgm10(3,3))) 5521 cm(21,19)=gm(3,3)*(9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 5522 & **2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-3*gm(2,2)& 5523 & *dgm01(3,3)*dgm10(3,3)+6*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5524 & *dgm10(3,3)))) 5525 cm(1,20)=(160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 5526 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 5527 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)& 5528 & +dgm01(1,1)*dgm10(3,3)))/2880.d0 5529 cm(2,20)=(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5530 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))& 5531 & +12*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5532 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5533 & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)& 5534 & +dgm01(2,2)*dgm10(2,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5535 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 5536 & *dgm10(3,3))+18*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)& 5537 & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))& 5538 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+3*(-36*gm(1,1)& 5539 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 5540 & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 5541 cm(3,20)=(1728*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5542 & *dgm10(2,3))+96*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 5543 & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(-36*gm(1,1)*gm(1,3)*gm(2,3)& 5544 & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 5545 & +72*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 5546 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*(6*gm(1,3)**2*gm(2,3)& 5547 & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 5548 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**3-54*gm(1,1)& 5549 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5550 & /288.d0 5551 cm(4,20)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)& 5552 & *dgm10(2,3)+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5553 & *(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)& 5554 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5555 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5556 & *gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5557 & +9*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)& 5558 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+9*(6*gm(1,3)& 5559 & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))& 5560 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)& 5561 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5562 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)& 5563 & +dgm01(1,3)*dgm10(3,3))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)& 5564 & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5565 & *dgm10(3,3)))/18.d0 5566 cm(5,20)=(6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)& 5567 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)& 5568 & *gm(1,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))& 5569 & +9*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5570 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 5571 & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)& 5572 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/36.d0 5573 cm(6,20)=(6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5574 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5575 & *dgm10(2,3))+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(2,3)& 5576 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)& 5577 & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5578 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,1)& 5579 & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))& 5580 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/36.d0 5581 cm(7,20)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 5582 & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3))+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5583 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(1,2)& 5584 & +dgm01(1,2)*dgm10(2,3))+6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 5585 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)& 5586 & *dgm10(2,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5587 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+18*(48*gm(1,3)*gm(2,2)*gm(2,3)& 5588 & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 5589 & +dgm01(1,2)*dgm10(3,3))+9*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)& 5590 & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)& 5591 & *gm(3,3)))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 5592 cm(8,20)=(64*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)& 5593 & *dgm10(2,3)+576*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5594 & *dgm10(2,3))+1152*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5595 & *dgm10(2,3))+64*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5596 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+48*(30*gm(1,3)& 5597 & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)& 5598 & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)& 5599 & +24*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 5600 & +dgm01(1,1)*dgm10(3,3))+48*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)& 5601 & *gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+96*(6*gm(1,2)& 5602 & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5603 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+16*(90*gm(1,3)**2*gm(2,3)& 5604 & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 5605 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+48*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)& 5606 & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 5607 & +dgm01(2,3)*dgm10(3,3)))/96.d0 5608 cm(9,20)=(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5609 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(2,3)+2*gm(3,3)& 5610 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5611 & *dgm10(2,3))+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5612 & *(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+4*(-36*gm(1,2)& 5613 & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))& 5614 & *(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+2*gm(3,3)*(54*gm(1,3)& 5615 & **2-18*gm(1,1)*gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5616 & +3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)& 5617 & +dgm01(1,1)*dgm10(3,3))+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5618 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 5619 & *dgm10(3,3))+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)& 5620 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5621 & +3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5622 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5623 & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)& 5624 & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5625 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/12.d0 5626 cm(10,20)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)& 5627 & *dgm10(2,3))+3456*gm(1,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 5628 & *dgm10(2,3))+144*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)& 5629 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+864*gm(2,3)& 5630 & *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+144*gm(3,3)& 5631 & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 5632 & +dgm01(1,3)*dgm10(3,3))+48*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 5633 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/288.d0 5634 cm(11,20)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 5635 & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5636 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(2,3)*dgm10(2,2)& 5637 & +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))& 5638 & *(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+9*(48*gm(1,3)& 5639 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)& 5640 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 5641 cm(12,20)=(128*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5642 & *dgm01(2,3)*dgm10(2,3)+1152*gm(2,3)*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)& 5643 & +dgm01(1,2)*dgm10(2,3))+32*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)& 5644 & *gm(3,3))*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))+576*gm(1,3)& 5645 & *gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+48*(48*gm(1,3)& 5646 & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)& 5647 & *dgm10(3,3)+48*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5648 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+48*(6*gm(2,3)**3+30*gm(2,2)& 5649 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5650 & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*(dgm01(3,3)& 5651 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+16*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5652 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 5653 & +dgm01(2,3)*dgm10(3,3))+96*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)& 5654 & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5655 & *dgm10(3,3)))/96.d0 5656 cm(13,20)=(12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5657 & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(2,3)+6*gm(3,3)*(54*gm(2,3)& 5658 & **2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)*dgm10(2,3))& 5659 & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)*dgm10(1,3)& 5660 & +dgm01(1,3)*dgm10(2,3))+6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)& 5661 & *gm(3,3))*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*(6*gm(2,3)& 5662 & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)& 5663 & *dgm10(3,3))+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5664 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*(6*gm(1,2)*gm(2,3)*gm(3,3)& 5665 & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 5666 & +dgm01(2,2)*dgm10(3,3))+9*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)& 5667 & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5668 & *dgm10(3,3)))/18.d0 5669 cm(14,20)=(576*gm(3,3)**3*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)& 5670 & *dgm10(2,3))+864*gm(1,3)*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 5671 & **2*(3456*gm(1,3)*dgm01(2,3)*dgm10(2,3)+864*gm(1,2)*dgm01(3,3)& 5672 & *dgm10(2,3)+864*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(864*dgm01(3,3)& 5673 & *dgm10(1,2)+1728*dgm01(2,3)*dgm10(1,3)+1728*dgm01(1,3)*dgm10(2,3)& 5674 & +864*dgm01(1,2)*dgm10(3,3))+1728*gm(2,2)*(dgm01(3,3)*dgm10(1,3)& 5675 & +dgm01(1,3)*dgm10(3,3)))+gm(3,3)*(3456*gm(1,3)*gm(2,2)*dgm01(3,3)& 5676 & *dgm10(3,3)+864*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5677 & *dgm10(3,3))+gm(2,3)*(864*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3456*gm(1,3)& 5678 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/144.d0 5679 cm(15,20)=(gm(3,3)*(2304*gm(3,3)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)& 5680 & *dgm10(2,3))+288*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)& 5681 & *dgm10(3,3)+3456*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5682 & *dgm10(3,3))+3456*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5683 & *dgm10(3,3))))/576.d0 5684 cm(16,20)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(2,3)& 5685 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+240*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)& 5686 & *gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/2880.d0 5687 cm(17,20)=(2304*gm(2,3)**3*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5688 & *dgm10(3,3))+gm(2,3)**2*(2592*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)& 5689 & *(864*dgm01(3,3)*dgm10(2,2)+10368*dgm01(2,3)*dgm10(2,3)+864*dgm01(2,2)& 5690 & *dgm10(3,3)))+gm(2,2)*gm(3,3)*(-864*gm(2,2)*dgm01(3,3)*dgm10(3,3)& 5691 & +gm(3,3)*(1728*dgm01(3,3)*dgm10(2,2)-3456*dgm01(2,3)*dgm10(2,3)& 5692 & +1728*dgm01(2,2)*dgm10(3,3)))+gm(2,3)*gm(3,3)*(1728*gm(3,3)*(dgm01(2,3)& 5693 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+3456*gm(2,2)*(dgm01(3,3)*dgm10(2,3)& 5694 & +dgm01(2,3)*dgm10(3,3))))/288.d0 5695 cm(18,20)=(32*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)& 5696 & *dgm10(2,3)+24*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(2,3)& 5697 & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+36*(6*gm(2,3)**3+30*gm(2,2)& 5698 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))& 5699 & +24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 5700 & +dgm01(2,3)*dgm10(3,3)))/144.d0 5701 cm(19,20)=2*gm(3,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))& 5702 & +3*gm(2,3)**3*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(gm(2,3)*(3*dgm01(3,3)& 5703 & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))& 5704 & +9*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+15*gm(2,3)& 5705 & *gm(3,3)*(gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(dgm01(3,3)*dgm10(2,3)& 5706 & +dgm01(2,3)*dgm10(3,3))) 5707 cm(20,20)=(gm(3,3)*(4608*gm(3,3)**2*dgm01(2,3)*dgm10(2,3)+288*(12*gm(2,3)& 5708 & **2+24*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+6912*gm(2,3)*gm(3,3)& 5709 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))/576.d0 5710 cm(21,20)=gm(3,3)**2*(6*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 5711 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5712 cm(1,21)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)& 5713 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)))/36.d0 5714 cm(2,21)=(3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5715 & **2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))& 5716 & +6*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5717 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 5718 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)& 5719 & +dgm01(2,2)*dgm10(3,3)))/36.d0 5720 cm(3,21)=(80*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)& 5721 & *dgm10(3,3)+4320*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 5722 & *dgm10(3,3))+240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 5723 & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))/1440.d0 5724 cm(4,21)=(3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5725 & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+3*gm(3,3)*(54*gm(1,3)& 5726 & **2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 5727 & +3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)& 5728 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5729 & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)& 5730 & +dgm01(2,3)*dgm10(3,3)))/18.d0 5731 cm(5,21)=(240*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)& 5732 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)& 5733 & *gm(1,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))& 5734 & /2880.d0 5735 cm(6,21)=(240*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5736 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 5737 & *dgm10(3,3))+160*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*(dgm01(3,3)& 5738 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))/2880.d0 5739 cm(7,21)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 5740 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5741 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(1,2)& 5742 & +dgm01(1,2)*dgm10(3,3))+3*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)& 5743 & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5744 & *dgm10(3,3)))/36.d0 5745 cm(8,21)=(80*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5746 & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3)+1440*gm(2,3)& 5747 & *gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+2880*gm(1,3)& 5748 & *gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+160*gm(3,3)& 5749 & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)& 5750 & +dgm01(1,3)*dgm10(3,3))+80*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)& 5751 & *gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0 5752 cm(9,21)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5753 & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+4*gm(3,3)*(54*gm(1,3)*gm(2,3)& 5754 & -18*gm(1,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))& 5755 & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)& 5756 & *gm(3,3)))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)& 5757 & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5758 & *dgm10(3,3))+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)& 5759 & -18*gm(1,1)*gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5760 & *dgm10(3,3)))/12.d0 5761 cm(10,21)=(gm(3,3)*(240*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)& 5762 & *dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)& 5763 & *dgm10(3,3))+8640*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5764 & *dgm10(3,3))))/1440.d0 5765 cm(11,21)=(160*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 5766 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+240*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5767 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,2)& 5768 & +dgm01(2,2)*dgm10(3,3)))/2880.d0 5769 cm(12,21)=(80*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)& 5770 & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3)+2880*gm(2,3)*gm(3,3)& 5771 & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+80*gm(3,3)& 5772 & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)& 5773 & *dgm10(3,3))+1440*gm(1,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5774 & *dgm10(3,3))+160*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5775 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/480.d0 5776 cm(13,21)=(3*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5777 & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+(90*gm(2,3)**3-54*gm(2,2)& 5778 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))& 5779 & +3*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*(dgm01(3,3)& 5780 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)& 5781 & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*(dgm01(3,3)*dgm10(2,3)& 5782 & +dgm01(2,3)*dgm10(3,3)))/18.d0 5783 cm(14,21)=(gm(3,3)*(240*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))& 5784 & *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(1,2)& 5785 & +dgm01(1,2)*dgm10(3,3))+4320*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)& 5786 & +dgm01(1,3)*dgm10(3,3))+4320*gm(1,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)& 5787 & +dgm01(2,3)*dgm10(3,3))))/720.d0 5788 cm(15,21)=gm(3,3)**2*(6*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 5789 & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))) 5790 cm(16,21)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*(dgm01(3,3)& 5791 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)))/36.d0 5792 cm(17,21)=(80*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)& 5793 & *dgm10(3,3)+4320*gm(2,3)*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5794 & *dgm10(3,3))+240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5795 & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))/1440.d0 5796 cm(18,21)=(240*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*(dgm01(3,3)& 5797 & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+160*(90*gm(2,3)**3-54*gm(2,2)& 5798 & *gm(2,3)*gm(3,3))*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))& 5799 & /2880.d0 5800 cm(19,21)=(gm(3,3)*(240*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)& 5801 & *dgm10(3,3)+1440*gm(3,3)**2*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)& 5802 & *dgm10(3,3))+8640*gm(2,3)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)& 5803 & *dgm10(3,3))))/1440.d0 5804 cm(20,21)=gm(3,3)**2*(6*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)& 5805 & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))) 5806 cm(21,21)=2*gm(3,3)**3*dgm01(3,3)*dgm10(3,3) 5807 end if 5808 ! 5809 !contraction to output scalar 5810 ! 5811 e2nl=0.d0 5812 do jj=1,((rank+3)*(rank+4))/2 5813 tmp(:)=0.d0 5814 do ii=1,((rank+3)*(rank+4))/2 5815 tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj) 5816 end do 5817 e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj) 5818 end do 5819 e2nl=0.25d0*e2nl 5820 5821 ABI_FREE(cm) 5822 5823 end subroutine contstr25a