Line data Source code
1 : !!****f* ABINIT/contstr23
2 : !! NAME
3 : !! contstr23
4 : !!
5 : !! FUNCTION
6 : !! Carries out specialized metric tensor operations needed for contraction
7 : !! of the 2nd strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander
8 : !! pseudopotential operation. Derivatives are wrt a pair of cartesian
9 : !! strain components.
10 : !! Full advantage is taken of the full permutational symmetry of these
11 : !! tensors.
12 : !!
13 : !! COPYRIGHT
14 : !! Copyright (C) 1998-2026 ABINIT group (DRH)
15 : !! This file is distributed under the terms of the
16 : !! GNU General Public License, see ~abinit/COPYING
17 : !! or http://www.gnu.org/copyleft/gpl.txt .
18 : !! For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
19 : !!
20 : !! INPUTS
21 : !! istr1=1,...6 specifies cartesian strain component 11,22,33,32,31,21
22 : !! istr2=seccond strain component
23 : !! rank=angular momentum
24 : !! gm(3,3)=metric tensor (array is symmetric but stored as 3x3)
25 : !! gprimd(3,3)=reciprocal space dimensional primitive translations
26 : !! aa(2,*)=unique elements of complex right-hand tensor
27 : !! bb(2,*)=unique elements of complex left-hand tensor
28 : !!
29 : !! OUTPUT
30 : !! e2nl=contraction for nonlocal 2nd-order strain derivative energy
31 : !!
32 : !! NOTES
33 : !! All tensors are stored in a compressed storage mode defined below;
34 : !! input and output conform to this scheme.
35 : !! When tensor elements occur repeatedly due to symmetry, the
36 : !! WEIGHT IS INCLUDED in the output tensor element to simplify later
37 : !! contractions with other tensors of the same rank and form, i.e. the
38 : !! next contraction is then simply a dot product over the unique elements.
39 : !!
40 : !! SOURCE
41 :
42 : #if defined HAVE_CONFIG_H
43 : #include "config.h"
44 : #endif
45 :
46 : #include "abi_common.h"
47 :
48 :
49 : module m_contstr23
50 : contains
51 : !!**
52 :
53 :
54 :
55 5922144 : subroutine contstr23(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb)
56 :
57 :
58 : use defs_basis
59 : use m_abicore
60 : implicit none
61 :
62 : !Arguments ------------------------------------
63 : !scalars
64 : integer,intent(in) :: istr1,istr2,rank
65 : real(dp),intent(out) :: e2nl
66 : !arrays
67 : real(dp),intent(in) :: aa(2,((rank+1)*(rank+2))/2),bb(2,((rank+3)*(rank+4))/2)
68 : real(dp),intent(in) :: gm(3,3),gprimd(3,3)
69 :
70 : !Local variables-------------------------------
71 : !scalars
72 : integer,parameter :: mrank=3
73 : integer :: ii,jj,ka,kb,kd,kg
74 : !arrays
75 : integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/)
76 : real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2)
77 5922144 : real(dp),allocatable :: cm(:,:)
78 :
79 : ! *************************************************************************
80 5922144 : ABI_MALLOC(cm,(((mrank+1)*(mrank+2))/2,((mrank+3)*(mrank+4))/2))
81 :
82 5922144 : ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2)
83 :
84 23688576 : do ii = 1,3
85 71065728 : dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii))
86 76987872 : dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii))
87 : end do
88 :
89 5922144 : d2gm(:,:)=0.d0
90 23688576 : do ii = 1,3
91 17766432 : if(ka==kg) d2gm(:,ii)=d2gm(:,ii)&
92 27636672 : & +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii)
93 17766432 : if(ka==kd) d2gm(:,ii)=d2gm(:,ii)&
94 19740480 : & +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii)
95 17766432 : if(kb==kg) d2gm(:,ii)=d2gm(:,ii)&
96 19740480 : & +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii)
97 17766432 : if(kb==kd) d2gm(:,ii)=d2gm(:,ii)&
98 33558816 : & +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii)
99 : end do
100 76987872 : d2gm(:,:)=0.5d0*d2gm(:,:)
101 :
102 : !
103 : !The code below was written by a Mathematica program and formatted by
104 : !a combination of editing scripts. It is not intended to be read
105 : !by human beings, and certainly not to be modified by one. Conceivably
106 : !it could be shortened somewhat by identifying common subexpressions.
107 : !
108 5922144 : if(rank==0)then
109 2039616 : cm(1,1)=d2gm(1,1)
110 2039616 : cm(1,2)=d2gm(2,2)
111 2039616 : cm(1,3)=d2gm(3,3)
112 2039616 : cm(1,4)=2*d2gm(2,3)
113 2039616 : cm(1,5)=2*d2gm(1,3)
114 2039616 : cm(1,6)=2*d2gm(1,2)
115 3882528 : elseif(rank==1)then
116 1978272 : cm(1,1)=2*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1)
117 : cm(2,1)=dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
118 1978272 : & *d2gm(1,1)
119 : cm(3,1)=dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)&
120 1978272 : & *d2gm(1,1)
121 : cm(1,2)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
122 1978272 : & *dgm10(2,2)+2*gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2)
123 : cm(2,2)=3*dgm01(2,2)*dgm10(1,2)+3*dgm01(1,2)*dgm10(2,2)+2*gm(2,2)&
124 1978272 : & *d2gm(1,2)+gm(1,2)*d2gm(2,2)
125 : cm(3,2)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
126 : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+2*gm(2,3)*d2gm(1,2)+gm(1,3)&
127 1978272 : & *d2gm(2,2)
128 : cm(1,3)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
129 1978272 : & *dgm10(3,3)+2*gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3)
130 : cm(2,3)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
131 : & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(2,3)*d2gm(1,3)+gm(1,2)&
132 1978272 : & *d2gm(3,3)
133 : cm(3,3)=3*dgm01(3,3)*dgm10(1,3)+3*dgm01(1,3)*dgm10(3,3)+2*gm(3,3)&
134 1978272 : & *d2gm(1,3)+gm(1,3)*d2gm(3,3)
135 : cm(1,4)=2*(dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
136 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(1,3)*d2gm(1,2)+gm(1,2)*d2gm(1,3)&
137 1978272 : & +gm(1,1)*d2gm(2,3))
138 : cm(2,4)=2*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
139 : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(2,2)&
140 1978272 : & *d2gm(1,3)+gm(1,2)*d2gm(2,3))
141 : cm(3,4)=2*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
142 : & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2)+gm(2,3)*d2gm(1,3)&
143 1978272 : & +gm(1,3)*d2gm(2,3))
144 : cm(1,5)=3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)+gm(1,3)&
145 1978272 : & *d2gm(1,1)+2*gm(1,1)*d2gm(1,3)
146 : cm(2,5)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
147 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,2)&
148 1978272 : & *d2gm(1,3)
149 : cm(3,5)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
150 1978272 : & *dgm10(3,3)+gm(3,3)*d2gm(1,1)+2*gm(1,3)*d2gm(1,3)
151 : cm(1,6)=3*dgm01(1,2)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,2)+gm(1,2)&
152 1978272 : & *d2gm(1,1)+2*gm(1,1)*d2gm(1,2)
153 : cm(2,6)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
154 1978272 : & *dgm10(2,2)+gm(2,2)*d2gm(1,1)+2*gm(1,2)*d2gm(1,2)
155 : cm(3,6)=dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
156 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+gm(2,3)*d2gm(1,1)+2*gm(1,3)&
157 1978272 : & *d2gm(1,2)
158 : cm(1,7)=dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)&
159 1978272 : & *d2gm(2,2)
160 1978272 : cm(2,7)=2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2)
161 : cm(3,7)=dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)&
162 1978272 : & *d2gm(2,2)
163 : cm(1,8)=dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
164 : & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)&
165 1978272 : & *d2gm(3,3)
166 : cm(2,8)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
167 1978272 : & *dgm10(3,3)+2*gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3)
168 : cm(3,8)=3*dgm01(3,3)*dgm10(2,3)+3*dgm01(2,3)*dgm10(3,3)+2*gm(3,3)&
169 1978272 : & *d2gm(2,3)+gm(2,3)*d2gm(3,3)
170 : cm(1,9)=2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
171 : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+gm(1,3)*d2gm(2,2)+2*gm(1,2)&
172 1978272 : & *d2gm(2,3)
173 : cm(2,9)=3*dgm01(2,3)*dgm10(2,2)+3*dgm01(2,2)*dgm10(2,3)+gm(2,3)&
174 1978272 : & *d2gm(2,2)+2*gm(2,2)*d2gm(2,3)
175 : cm(3,9)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
176 1978272 : & *dgm10(3,3)+gm(3,3)*d2gm(2,2)+2*gm(2,3)*d2gm(2,3)
177 : cm(1,10)=dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)&
178 1978272 : & *d2gm(3,3)
179 : cm(2,10)=dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)&
180 1978272 : & *d2gm(3,3)
181 1978272 : cm(3,10)=2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3)
182 1904256 : elseif(rank==2)then
183 1903680 : cm(1,1)=gm(1,1)*(4*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1))
184 : cm(2,1)=3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
185 : & -0.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2))&
186 : & +1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)&
187 1903680 : & *d2gm(1,1))
188 : cm(3,1)=3*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
189 : & -0.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))&
190 : & +1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)-0.5d0*gm(1,1)&
191 1903680 : & *d2gm(1,1))
192 : cm(4,1)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)&
193 : & *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,1)+dgm01(1,1)*(-2*gm(2,3)&
194 : & *dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)&
195 : & *dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,1))&
196 1903680 : & /2.d0
197 : cm(5,1)=2*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
198 1903680 : & +gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))
199 : cm(6,1)=2*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
200 1903680 : & +gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))
201 : cm(1,2)=1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-dgm01(1,1)*dgm10(1,1)&
202 : & -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)&
203 : & *dgm10(1,2)+4*gm(1,1)*d2gm(1,2))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)&
204 : & +8*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)&
205 1903680 : & *d2gm(2,2))
206 : cm(2,2)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*(dgm01(2,2)&
207 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*d2gm(1,1)+1.5d0*gm(1,2)&
208 : & **2*d2gm(2,2)+gm(2,2)*(1.5d0*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)&
209 : & *dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+4*gm(1,2)*d2gm(1,2)-0.5d0*gm(1,1)&
210 1903680 : & *d2gm(2,2))
211 : cm(3,2)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
212 : & *dgm01(3,3))*dgm10(1,1)+4*(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)&
213 : & +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)&
214 : & *dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(2,2)&
215 : & +dgm01(2,2)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)&
216 : & *dgm10(3,3))+4*dgm01(1,2)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)&
217 : & +6*gm(1,3)*dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+dgm01(1,1)*(-2*gm(3,3)&
218 : & *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)&
219 : & **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
220 : & *gm(3,3))*d2gm(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(2,2))&
221 1903680 : & /4.d0
222 : cm(4,2)=9*gm(1,3)*dgm01(2,2)*dgm10(1,2)+2*gm(1,2)*dgm01(2,3)&
223 : & *dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,3)*dgm01(1,2)&
224 : & *dgm10(2,2)+3*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)&
225 : & *dgm10(2,2)+2*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)&
226 : & *dgm10(2,3)+gm(2,2)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
227 : & +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2))&
228 : & +3*gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(1*dgm01(2,2)*dgm10(1,1)&
229 : & +4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)&
230 1903680 : & +2*gm(1,2)*d2gm(1,2)-gm(1,1)*d2gm(2,2))
231 : cm(5,2)=gm(1,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
232 : & +4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+2*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
233 : & +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+2*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
234 : & +2*gm(1,1)*dgm01(2,2)*dgm10(1,3)+gm(1,3)*dgm01(1,1)*dgm10(2,2)&
235 : & +2*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
236 : & +6*gm(1,1)*dgm01(1,2)*dgm10(2,3)-gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
237 : & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,2)&
238 : & +gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
239 1903680 : & *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,1)*gm(1,3)*d2gm(2,2)
240 : cm(6,2)=8*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
241 : & +2*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(8*dgm01(1,2)*dgm10(1,1)+8*dgm01(1,1)&
242 : & *dgm10(1,2)+2*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)&
243 : & *(4*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+4*dgm01(1,1)&
244 1903680 : & *dgm10(2,2)+2*gm(1,1)*d2gm(2,2))
245 : cm(1,3)=1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-dgm01(1,1)*dgm10(1,1)&
246 : & -0.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)&
247 : & *dgm10(1,3)+4*gm(1,1)*d2gm(1,3))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)&
248 : & +8*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)&
249 1903680 : & *d2gm(3,3))
250 : cm(2,3)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
251 : & *dgm01(3,3))*dgm10(1,1)+4*(6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)&
252 : & -2*gm(1,3)*dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,3)+dgm01(3,3)&
253 : & *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))&
254 : & +4*dgm01(1,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)&
255 : & *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)&
256 : & *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(1,1)*(-2*gm(3,3)&
257 : & *dgm10(2,2)+12*gm(2,3)*dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)&
258 : & **2-2*gm(2,2)*gm(3,3))*d2gm(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
259 : & *gm(2,3))*d2gm(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))&
260 1903680 : & /4.d0
261 : cm(3,3)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+7*gm(1,3)*(dgm01(3,3)&
262 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*d2gm(1,1)+1.5d0*gm(1,3)&
263 : & **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)&
264 : & *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+4*gm(1,3)*d2gm(1,3)-0.5d0*gm(1,1)&
265 1903680 : & *d2gm(3,3))
266 : cm(4,3)=3*gm(1,3)*dgm01(3,3)*dgm10(1,2)+2*gm(1,3)*dgm01(2,3)&
267 : & *dgm10(1,3)+9*gm(1,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(1,3)&
268 : & *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+3*gm(1,3)*dgm01(1,2)&
269 : & *dgm10(3,3)+9*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)&
270 : & *dgm10(3,3)+gm(3,3)*(2*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
271 : & +6*dgm01(1,2)*dgm10(1,3)+2*dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)&
272 : & +6*gm(1,2)*d2gm(1,3))+3*gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)&
273 : & *dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)*dgm10(3,3)+2*gm(1,3)&
274 1903680 : & *d2gm(1,3)-gm(1,1)*d2gm(3,3))
275 : cm(5,3)=8*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
276 : & +2*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(8*dgm01(1,3)*dgm10(1,1)+8*dgm01(1,1)&
277 : & *dgm10(1,3)+2*gm(1,3)*d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+gm(1,3)&
278 : & *(4*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+4*dgm01(1,1)&
279 1903680 : & *dgm10(3,3)+2*gm(1,1)*d2gm(3,3))
280 : cm(6,3)=3*gm(1,3)*dgm01(2,3)*dgm10(1,1)+gm(1,2)*dgm01(3,3)*dgm10(1,1)&
281 : & +2*gm(1,3)*dgm01(1,3)*dgm10(1,2)+2*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
282 : & +2*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
283 : & +6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)*dgm10(2,3)&
284 : & +6*gm(1,1)*dgm01(1,3)*dgm10(2,3)+gm(1,2)*dgm01(1,1)*dgm10(3,3)&
285 : & +2*gm(1,1)*dgm01(1,2)*dgm10(3,3)-gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
286 : & +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+2*gm(1,2)*gm(1,3)*d2gm(1,3)&
287 : & +gm(2,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
288 1903680 : & *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+2*gm(1,1)*gm(1,2)*d2gm(3,3)
289 : cm(1,4)=7*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)&
290 : & *dgm10(1,1)+8*gm(1,1)*dgm01(1,3)*dgm10(1,2)+7*gm(1,2)*dgm01(1,1)&
291 : & *dgm10(1,3)+8*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)&
292 : & *dgm10(2,3)+gm(2,3)*(-2*dgm01(1,1)*dgm10(1,1)-gm(1,1)*d2gm(1,1))&
293 : & +gm(1,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
294 : & *d2gm(1,1)+4*gm(1,1)*d2gm(1,2))+4*gm(1,1)*gm(1,2)*d2gm(1,3)+2*gm(1,1)&
295 1903680 : & **2*d2gm(2,3)
296 : cm(2,4)=-2*gm(1,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)&
297 : & *dgm10(1,2)+4*gm(1,2)*dgm01(2,2)*dgm10(1,3)-2*gm(1,3)*dgm01(1,2)&
298 : & *dgm10(2,2)+4*gm(1,2)*dgm01(1,3)*dgm10(2,2)-gm(1,1)*dgm01(2,3)&
299 : & *dgm10(2,2)+12*gm(1,2)*dgm01(1,2)*dgm10(2,3)-gm(1,1)*dgm01(2,2)&
300 : & *dgm10(2,3)+gm(2,3)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
301 : & +2*dgm01(1,1)*dgm10(2,2)+2*gm(2,2)*d2gm(1,1)+6*gm(1,2)*d2gm(1,2))&
302 : & +3*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)&
303 : & *dgm10(1,2)+2*dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3)-2*gm(1,3)&
304 1903680 : & *d2gm(1,2)+4*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3))
305 : cm(3,4)=4*gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,3)&
306 : & *dgm10(1,3)-2*gm(1,2)*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)&
307 : & *dgm10(2,3)-gm(1,1)*dgm01(3,3)*dgm10(2,3)+4*gm(1,3)*dgm01(1,2)&
308 : & *dgm10(3,3)-2*gm(1,2)*dgm01(1,3)*dgm10(3,3)-gm(1,1)*dgm01(2,3)&
309 : & *dgm10(3,3)+gm(2,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
310 : & +2*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3))+3*gm(1,3)**2*d2gm(2,3)&
311 : & +gm(3,3)*(1*dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
312 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3)+2*gm(2,3)*d2gm(1,1)+4*gm(1,3)&
313 1903680 : & *d2gm(1,2)-2*gm(1,2)*d2gm(1,3)-gm(1,1)*d2gm(2,3))
314 : cm(4,4)=3*gm(2,2)*dgm01(3,3)*dgm10(1,1)+8*gm(1,3)*dgm01(2,3)&
315 : & *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(2,2)*dgm01(1,3)&
316 : & *dgm10(1,3)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+8*gm(1,2)*dgm01(2,3)&
317 : & *dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)&
318 : & *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)-4*gm(1,1)*dgm01(2,3)&
319 : & *dgm10(2,3)+3*gm(2,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,2)*dgm01(1,2)&
320 : & *dgm10(3,3)+gm(2,3)**2*d2gm(1,1)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)&
321 : & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)&
322 : & +6*gm(1,2)*d2gm(1,2))+6*gm(1,3)*gm(2,2)*d2gm(1,3)+6*gm(1,2)*gm(1,3)&
323 : & *d2gm(2,3)+gm(2,3)*(0*dgm01(2,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,2)&
324 : & +4*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)*d2gm(1,2)&
325 1903680 : & +2*gm(1,2)*d2gm(1,3)-2*gm(1,1)*d2gm(2,3))
326 : cm(5,4)=5*gm(1,3)*dgm01(2,3)*dgm10(1,1)+3*gm(1,2)*dgm01(3,3)&
327 : & *dgm10(1,1)+6*gm(1,3)*dgm01(1,3)*dgm10(1,2)+6*gm(1,1)*dgm01(3,3)&
328 : & *dgm10(1,2)+6*gm(1,3)*dgm01(1,2)*dgm10(1,3)+4*gm(1,2)*dgm01(1,3)&
329 : & *dgm10(1,3)+10*gm(1,1)*dgm01(2,3)*dgm10(1,3)+5*gm(1,3)*dgm01(1,1)&
330 : & *dgm10(2,3)+10*gm(1,1)*dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)&
331 : & *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)**2*d2gm(1,2)&
332 : & +gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)&
333 : & *d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)*gm(1,3)*d2gm(1,3)+gm(2,3)&
334 : & *(7*dgm01(1,3)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1)&
335 1903680 : & +6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,3)*d2gm(2,3)
336 : cm(6,4)=3*gm(1,3)*dgm01(2,2)*dgm10(1,1)+5*gm(1,2)*dgm01(2,3)&
337 : & *dgm10(1,1)+4*gm(1,3)*dgm01(1,2)*dgm10(1,2)+6*gm(1,2)*dgm01(1,3)&
338 : & *dgm10(1,2)+10*gm(1,1)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(1,2)&
339 : & *dgm10(1,3)+6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,3)*dgm01(1,1)&
340 : & *dgm10(2,2)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+5*gm(1,2)*dgm01(1,1)&
341 : & *dgm10(2,3)+10*gm(1,1)*dgm01(1,2)*dgm10(2,3)+2*gm(1,2)*gm(1,3)&
342 : & *d2gm(1,2)+gm(2,3)*(7*dgm01(1,2)*dgm10(1,1)+7*dgm01(1,1)*dgm10(1,2)&
343 : & +gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+2*gm(1,2)**2*d2gm(1,3)&
344 : & +gm(2,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
345 1903680 : & *d2gm(1,1)+6*gm(1,1)*d2gm(1,3))+4*gm(1,1)*gm(1,2)*d2gm(2,3)
346 : cm(1,5)=gm(1,3)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))&
347 : & +gm(1,1)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)+2*gm(1,1)&
348 1903680 : & *d2gm(1,3))
349 : cm(2,5)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)&
350 : & *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,2)*dgm01(1,1)&
351 : & +12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(1,3)+dgm01(1,3)&
352 : & *(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))&
353 : & +dgm01(1,1)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)&
354 : & *dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
355 : & *gm(2,3))*d2gm(1,1)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(1,3))&
356 1903680 : & /2.d0
357 : cm(3,5)=gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
358 : & +2*dgm01(1,1)*dgm10(3,3))-gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
359 : & *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(1*dgm01(1,3)*dgm10(1,1)&
360 1903680 : & +dgm01(1,1)*dgm10(1,3)+2*gm(1,3)*d2gm(1,1)-gm(1,1)*d2gm(1,3))
361 : cm(4,5)=(3*gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3)&
362 : & +3*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)&
363 : & *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(1,3)&
364 : & +dgm01(1,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
365 : & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(3*gm(3,3)*dgm10(1,2)&
366 : & +gm(2,3)*dgm10(1,3)+gm(1,3)*dgm10(2,3)+3*gm(1,2)*dgm10(3,3))&
367 : & +(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*d2gm(1,1)+(6*gm(1,2)*gm(1,3)&
368 1903680 : & -2*gm(1,1)*gm(2,3))*d2gm(1,3)
369 : cm(5,5)=gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)&
370 : & +3*dgm01(1,1)*dgm10(3,3))+gm(1,3)**2*d2gm(1,1)+gm(3,3)*(6*dgm01(1,1)&
371 : & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)*(6*dgm01(1,3)*dgm10(1,1)&
372 1903680 : & +6*dgm01(1,1)*dgm10(1,3)+4*gm(1,1)*d2gm(1,3))
373 : cm(6,5)=5*gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)&
374 : & *dgm10(1,1)+4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+5*gm(1,2)*dgm01(1,1)&
375 : & *dgm10(1,3)+4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)&
376 : & *dgm10(2,3)+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
377 : & +gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
378 1903680 : & *d2gm(1,1))+4*gm(1,1)*gm(1,2)*d2gm(1,3)
379 : cm(1,6)=gm(1,2)*(4*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*d2gm(1,1))&
380 : & +gm(1,1)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)+2*gm(1,1)&
381 1903680 : & *d2gm(1,2))
382 : cm(2,6)=gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
383 : & +2*dgm01(1,1)*dgm10(2,2))-gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
384 : & *dgm10(2,2))+3*gm(1,2)**2*d2gm(1,2)+gm(2,2)*(1*dgm01(1,2)*dgm10(1,1)&
385 1903680 : & +dgm01(1,1)*dgm10(1,2)+2*gm(1,2)*d2gm(1,1)-gm(1,1)*d2gm(1,2))
386 : cm(3,6)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)&
387 : & *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(1,1)+(-2*gm(3,3)*dgm01(1,1)&
388 : & +12*gm(1,3)*dgm01(1,3)-2*gm(1,1)*dgm01(3,3))*dgm10(1,2)+dgm01(1,2)&
389 : & *(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))&
390 : & +dgm01(1,1)*(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)&
391 : & *dgm10(2,3)-2*gm(1,2)*dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
392 : & *gm(3,3))*d2gm(1,1)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*d2gm(1,2))&
393 1903680 : & /2.d0
394 : cm(4,6)=(1*gm(2,3)*dgm01(1,2)+3*gm(2,2)*dgm01(1,3)+3*gm(1,3)&
395 : & *dgm01(2,2)+gm(1,2)*dgm01(2,3))*dgm10(1,1)+(-2*gm(2,3)*dgm01(1,1)&
396 : & +6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))&
397 : & *dgm10(1,2)+dgm01(1,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)&
398 : & +6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+dgm01(1,1)*(1*gm(2,3)&
399 : & *dgm10(1,2)+3*gm(2,2)*dgm10(1,3)+3*gm(1,3)*dgm10(2,2)+gm(1,2)&
400 : & *dgm10(2,3))+(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*d2gm(1,1)+(6*gm(1,2)&
401 1903680 : & *gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(1,2)
402 : cm(5,6)=gm(1,2)*dgm01(1,3)*dgm10(1,1)+3*gm(1,1)*dgm01(2,3)*dgm10(1,1)&
403 : & +4*gm(1,1)*dgm01(1,3)*dgm10(1,2)+gm(1,2)*dgm01(1,1)*dgm10(1,3)&
404 : & +4*gm(1,1)*dgm01(1,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,1)*dgm10(2,3)&
405 : & +gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,3)&
406 : & *(5*dgm01(1,2)*dgm10(1,1)+5*dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1)&
407 1903680 : & +4*gm(1,1)*d2gm(1,2))
408 : cm(6,6)=gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)&
409 : & +3*dgm01(1,1)*dgm10(2,2))+gm(1,2)**2*d2gm(1,1)+gm(2,2)*(6*dgm01(1,1)&
410 : & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,2)*(6*dgm01(1,2)*dgm10(1,1)&
411 1903680 : & +6*dgm01(1,1)*dgm10(1,2)+4*gm(1,1)*d2gm(1,2))
412 : cm(1,7)=gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
413 : & +3*gm(1,2)**2*d2gm(1,2)-gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
414 : & *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,2)*(2*dgm01(2,2)*dgm10(1,1)&
415 1903680 : & +12*dgm01(1,2)*dgm10(1,2)+2*dgm01(1,1)*dgm10(2,2)+2*gm(1,1)*d2gm(2,2))
416 : cm(2,7)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)**2*d2gm(1,2)&
417 : & +gm(2,2)*(6*dgm01(2,2)*dgm10(1,2)+6*dgm01(1,2)*dgm10(2,2)+2*gm(1,2)&
418 1903680 : & *d2gm(2,2))
419 : cm(3,7)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
420 : & *dgm01(3,3))*dgm10(1,2)+(-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)&
421 : & +6*gm(1,3)*dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(2,2)+dgm01(2,2)&
422 : & *(-2*gm(3,3)*dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)&
423 : & -2*gm(1,2)*dgm10(3,3))+dgm01(1,2)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)&
424 : & *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
425 1903680 : & *d2gm(1,2)+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(2,2))/2.d0
426 : cm(4,7)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*dgm01(2,3)*dgm10(2,2)&
427 : & +gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(5*dgm01(2,2)*dgm10(1,2)&
428 : & +5*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)*d2gm(1,2)+gm(1,2)*d2gm(2,2))&
429 : & +gm(2,2)*(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
430 1903680 : & *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2))
431 : cm(5,7)=-gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)&
432 : & *dgm10(1,2)+gm(1,2)*dgm01(2,2)*dgm10(1,3)-gm(1,3)*dgm01(1,2)&
433 : & *dgm10(2,2)+gm(1,2)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)*dgm01(2,3)&
434 : & *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+3*gm(1,1)*dgm01(2,2)&
435 : & *dgm10(2,3)-2*gm(2,2)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)&
436 : & +gm(1,3)*d2gm(1,2))+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)&
437 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)&
438 1903680 : & +6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))
439 : cm(6,7)=6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+6*gm(1,2)*(dgm01(2,2)&
440 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(1,2)**2*d2gm(2,2)+gm(2,2)&
441 : & *(3*dgm01(2,2)*dgm10(1,1)+8*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
442 1903680 : & *dgm10(2,2)+4*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))
443 : cm(1,8)=4*gm(1,3)*dgm01(2,3)*dgm10(1,1)+2*gm(1,2)*dgm01(3,3)&
444 : & *dgm10(1,1)+12*gm(1,3)*dgm01(1,3)*dgm10(1,2)+gm(1,1)*dgm01(3,3)&
445 : & *dgm10(1,2)+12*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)*dgm01(1,3)&
446 : & *dgm10(1,3)+2*gm(1,1)*dgm01(2,3)*dgm10(1,3)+4*gm(1,3)*dgm01(1,1)&
447 : & *dgm10(2,3)+2*gm(1,1)*dgm01(1,3)*dgm10(2,3)+2*gm(1,2)*dgm01(1,1)&
448 : & *dgm10(3,3)+gm(1,1)*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)&
449 : & -gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
450 : & *d2gm(1,2))+6*gm(1,2)*gm(1,3)*d2gm(1,3)-2*gm(2,3)*(dgm01(1,3)&
451 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+4*gm(1,1)&
452 1903680 : & *gm(1,3)*d2gm(2,3)+2*gm(1,1)*gm(1,2)*d2gm(3,3)
453 : cm(2,8)=gm(2,2)*dgm01(3,3)*dgm10(1,2)+2*gm(2,2)*dgm01(2,3)*dgm10(1,3)&
454 : & -2*gm(1,3)*dgm01(2,3)*dgm10(2,2)+2*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
455 : & +2*gm(2,2)*dgm01(1,3)*dgm10(2,3)-2*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
456 : & +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+gm(2,2)*dgm01(1,2)*dgm10(3,3)&
457 : & +2*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,2)-gm(3,3)&
458 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))&
459 : & -2*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)&
460 : & +4*dgm01(2,2)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
461 : & *dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+2*gm(1,2)&
462 1903680 : & *gm(2,2)*d2gm(3,3)
463 : cm(3,8)=7*gm(1,3)*dgm01(3,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,3)&
464 : & *dgm10(3,3)-2*gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,2)&
465 : & +gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)+8*dgm01(2,3)*dgm10(1,3)+8*dgm01(1,3)&
466 : & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+4*gm(1,3)&
467 : & *d2gm(2,3)-gm(1,2)*d2gm(3,3))+gm(2,3)*(7*dgm01(3,3)*dgm10(1,3)&
468 1903680 : & +7*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*d2gm(3,3))
469 : cm(4,8)=9*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)&
470 : & *dgm10(2,2)+4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+7*gm(1,2)*dgm01(3,3)&
471 : & *dgm10(2,3)+9*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)&
472 : & *dgm10(3,3)+7*gm(1,2)*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,3)&
473 : & +gm(3,3)*(10*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)&
474 : & *dgm10(2,2)+10*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)+6*gm(2,2)&
475 : & *d2gm(1,3)+6*gm(1,2)*d2gm(2,3))+3*gm(1,3)*gm(2,2)*d2gm(3,3)+gm(2,3)&
476 : & *(5*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
477 : & *dgm10(2,3)+5*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)*d2gm(2,3)+gm(1,2)&
478 1903680 : & *d2gm(3,3))
479 : cm(5,8)=5*gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)&
480 : & *dgm10(1,3)+7*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
481 : & *dgm10(2,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(1,2)&
482 : & *dgm10(3,3)+7*gm(1,2)*dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)&
483 : & *dgm10(3,3)+2*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,1)&
484 : & +10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)&
485 : & *dgm10(2,3)+4*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
486 : & *d2gm(2,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)&
487 : & +4*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+2*gm(1,3)*d2gm(1,3)&
488 1903680 : & +3*gm(1,1)*d2gm(3,3))
489 : cm(6,8)=-4*gm(3,3)*dgm01(1,2)*dgm10(1,2)+8*gm(1,3)*dgm01(2,3)&
490 : & *dgm10(1,2)+0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)&
491 : & *dgm10(1,3)+4*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
492 : & *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+8*gm(1,3)*dgm01(1,2)&
493 : & *dgm10(2,3)+4*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)&
494 : & *dgm10(2,3)+0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)&
495 : & *dgm10(3,3)-2*gm(1,2)*gm(3,3)*d2gm(1,2)+2*gm(1,2)*gm(1,3)*d2gm(2,3)&
496 : & +gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,2)+8*dgm01(1,2)&
497 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+2*gm(1,2)&
498 : & *d2gm(1,3)+6*gm(1,1)*d2gm(2,3))+gm(1,2)**2*d2gm(3,3)+gm(2,2)&
499 : & *(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)&
500 1903680 : & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
501 : cm(1,9)=2*gm(1,3)*dgm01(2,2)*dgm10(1,1)+4*gm(1,2)*dgm01(2,3)&
502 : & *dgm10(1,1)+12*gm(1,3)*dgm01(1,2)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)&
503 : & *dgm10(1,2)+2*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,2)&
504 : & *dgm10(1,3)+gm(1,1)*dgm01(2,2)*dgm10(1,3)+2*gm(1,3)*dgm01(1,1)&
505 : & *dgm10(2,2)+gm(1,1)*dgm01(1,3)*dgm10(2,2)+4*gm(1,2)*dgm01(1,1)&
506 : & *dgm10(2,3)+2*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*gm(1,3)&
507 : & *d2gm(1,2)-2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
508 : & +gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)-gm(2,2)*(dgm01(1,3)&
509 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+2*gm(1,1)&
510 1903680 : & *gm(1,3)*d2gm(2,2)+4*gm(1,1)*gm(1,2)*d2gm(2,3)
511 : cm(2,9)=-2*gm(1,3)*dgm01(2,2)*dgm10(2,2)+7*gm(1,2)*dgm01(2,3)&
512 : & *dgm10(2,2)+7*gm(1,2)*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)**2*d2gm(1,3)&
513 : & +gm(2,3)*(7*dgm01(2,2)*dgm10(1,2)+7*dgm01(1,2)*dgm10(2,2)+4*gm(2,2)&
514 : & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(8*dgm01(2,3)*dgm10(1,2)&
515 : & +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+8*dgm01(1,2)&
516 1903680 : & *dgm10(2,3)-gm(1,3)*d2gm(2,2)+4*gm(1,2)*d2gm(2,3))
517 : cm(3,9)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+2*gm(1,3)*dgm01(3,3)&
518 : & *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-2*gm(1,2)*dgm01(3,3)&
519 : & *dgm10(2,3)-gm(2,2)*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)*dgm01(2,2)&
520 : & *dgm10(3,3)-2*gm(1,2)*dgm01(2,3)*dgm10(3,3)+3*gm(2,3)**2*d2gm(1,3)&
521 : & +gm(3,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
522 : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+4*gm(2,3)*d2gm(1,2)-gm(2,2)&
523 : & *d2gm(1,3)+2*gm(1,3)*d2gm(2,2)-2*gm(1,2)*d2gm(2,3))+gm(2,3)*(4*dgm01(3,3)&
524 : & *dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)&
525 1903680 : & +4*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3))
526 : cm(4,9)=6*gm(2,2)*dgm01(3,3)*dgm10(1,2)+10*gm(2,2)*dgm01(2,3)&
527 : & *dgm10(1,3)+7*gm(1,3)*dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*dgm01(3,3)&
528 : & *dgm10(2,2)+10*gm(2,2)*dgm01(1,3)*dgm10(2,3)+7*gm(1,3)*dgm01(2,2)&
529 : & *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+6*gm(2,2)*dgm01(1,2)&
530 : & *dgm10(3,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+2*gm(2,3)**2*d2gm(1,2)&
531 : & +gm(3,3)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)&
532 : & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+6*gm(1,3)*gm(2,2)*d2gm(2,3)+gm(2,3)&
533 : & *(6*dgm01(2,3)*dgm10(1,2)+5*dgm01(2,2)*dgm10(1,3)+5*dgm01(1,3)&
534 : & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+4*gm(2,2)*d2gm(1,3)+gm(1,3)&
535 1903680 : & *d2gm(2,2)+2*gm(1,2)*d2gm(2,3))
536 : cm(5,9)=4*gm(1,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*dgm01(3,3)&
537 : & *dgm10(1,2)-4*gm(2,2)*dgm01(1,3)*dgm10(1,3)+0*gm(1,3)*dgm01(2,2)&
538 : & *dgm10(1,3)+8*gm(1,2)*dgm01(2,3)*dgm10(1,3)+0*gm(1,3)*dgm01(1,3)&
539 : & *dgm10(2,2)+3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+4*gm(1,3)*dgm01(1,2)&
540 : & *dgm10(2,3)+8*gm(1,2)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*dgm01(2,3)&
541 : & *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)+3*gm(1,1)*dgm01(2,2)&
542 : & *dgm10(3,3)-2*gm(1,3)*gm(2,2)*d2gm(1,3)+gm(1,3)**2*d2gm(2,2)&
543 : & +gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
544 : & *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+2*gm(1,2)&
545 : & *gm(1,3)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+8*dgm01(1,3)&
546 : & *dgm10(1,2)+8*dgm01(1,2)*dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+2*gm(1,3)&
547 1903680 : & *d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3))
548 : cm(6,9)=7*gm(1,3)*dgm01(2,2)*dgm10(1,2)+6*gm(1,2)*dgm01(2,3)&
549 : & *dgm10(1,2)+5*gm(1,2)*dgm01(2,2)*dgm10(1,3)+7*gm(1,3)*dgm01(1,2)&
550 : & *dgm10(2,2)+5*gm(1,2)*dgm01(1,3)*dgm10(2,2)+9*gm(1,1)*dgm01(2,3)&
551 : & *dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)+9*gm(1,1)*dgm01(2,2)&
552 : & *dgm10(2,3)+gm(1,2)*gm(1,3)*d2gm(2,2)+gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)&
553 : & +4*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+2*gm(1,2)*d2gm(1,2)&
554 : & +3*gm(1,1)*d2gm(2,2))+2*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(6*dgm01(2,3)&
555 : & *dgm10(1,1)+10*dgm01(1,3)*dgm10(1,2)+10*dgm01(1,2)*dgm10(1,3)&
556 : & +6*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+4*gm(1,2)*d2gm(1,3)&
557 1903680 : & +6*gm(1,1)*d2gm(2,3))
558 : cm(1,10)=gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
559 : & +3*gm(1,3)**2*d2gm(1,3)-gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
560 : & *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(2*dgm01(3,3)*dgm10(1,1)&
561 1903680 : & +12*dgm01(1,3)*dgm10(1,3)+2*dgm01(1,1)*dgm10(3,3)+2*gm(1,1)*d2gm(3,3))
562 : cm(2,10)=((-2*gm(3,3)*dgm01(2,2)+12*gm(2,3)*dgm01(2,3)-2*gm(2,2)&
563 : & *dgm01(3,3))*dgm10(1,3)+dgm01(3,3)*(6*gm(2,3)*dgm10(1,2)-2*gm(2,2)&
564 : & *dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)*dgm10(2,3))+(6*gm(2,3)&
565 : & *dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)*dgm01(2,2)+6*gm(1,2)&
566 : & *dgm01(2,3))*dgm10(3,3)+dgm01(1,3)*(-2*gm(3,3)*dgm10(2,2)+12*gm(2,3)&
567 : & *dgm10(2,3)-2*gm(2,2)*dgm10(3,3))+(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
568 : & *d2gm(1,3)+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(3,3))&
569 1903680 : & /2.d0
570 : cm(3,10)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(1,3)&
571 : & +gm(3,3)*(6*dgm01(3,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(3,3)+2*gm(1,3)&
572 1903680 : & *d2gm(3,3))
573 : cm(4,10)=gm(1,3)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(2,3)*dgm10(3,3)&
574 : & +6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)*dgm10(1,2)&
575 : & +4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
576 : & *dgm10(3,3)+4*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)&
577 1903680 : & *(5*dgm01(3,3)*dgm10(1,3)+5*dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
578 : cm(5,10)=6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+6*gm(1,3)*(dgm01(3,3)&
579 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,3)**2*d2gm(3,3)+gm(3,3)&
580 : & *(3*dgm01(3,3)*dgm10(1,1)+8*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)&
581 1903680 : & *dgm10(3,3)+4*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
582 : cm(6,10)=gm(1,3)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,3)&
583 : & *dgm10(1,3)-gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)&
584 : & *dgm10(2,3)+3*gm(1,1)*dgm01(3,3)*dgm10(2,3)+gm(1,3)*dgm01(1,2)&
585 : & *dgm10(3,3)-gm(1,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*dgm01(2,3)&
586 : & *dgm10(3,3)-2*gm(3,3)*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)&
587 : & +gm(1,2)*d2gm(1,3))+gm(1,2)*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)&
588 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)&
589 1903680 : & +6*gm(1,3)*d2gm(1,3)+3*gm(1,1)*d2gm(3,3))
590 : cm(1,11)=-gm(1,1)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,2)&
591 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2)&
592 : & -0.5d0*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
593 1903680 : & *d2gm(2,2))
594 1903680 : cm(2,11)=gm(2,2)*(4*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2))
595 : cm(3,11)=3*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
596 : & -0.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))&
597 : & +1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)-0.5d0*gm(2,2)&
598 1903680 : & *d2gm(2,2))
599 : cm(4,11)=2*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
600 1903680 : & +gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2))
601 : cm(5,11)=((6*gm(2,3)*dgm01(1,2)-2*gm(2,2)*dgm01(1,3)-2*gm(1,3)&
602 : & *dgm01(2,2)+6*gm(1,2)*dgm01(2,3))*dgm10(2,2)+dgm01(2,2)*(6*gm(2,3)&
603 : & *dgm10(1,2)-2*gm(2,2)*dgm10(1,3)-2*gm(1,3)*dgm10(2,2)+6*gm(1,2)&
604 : & *dgm10(2,3))+(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*d2gm(2,2))&
605 1903680 : & /2.d0
606 : cm(6,11)=4*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,2)&
607 1903680 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))
608 : cm(1,12)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)&
609 : & *dgm01(3,3))*dgm10(2,2)+dgm01(3,3)*(-2*gm(2,2)*dgm10(1,1)+12*gm(1,2)&
610 : & *dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+4*(-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)&
611 : & *dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,3)&
612 : & +4*dgm01(2,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
613 : & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,2)*dgm01(1,1)+12*gm(1,2)&
614 : & *dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(3,3)+dgm01(2,2)*(-2*gm(3,3)&
615 : & *dgm10(1,1)+12*gm(1,3)*dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)&
616 : & **2-2*gm(1,1)*gm(3,3))*d2gm(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
617 : & *gm(2,3))*d2gm(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(3,3))&
618 1903680 : & /4.d0
619 : cm(2,12)=1.5d0*gm(2,3)**2*d2gm(2,2)+gm(3,3)*(-dgm01(2,2)*dgm10(2,2)&
620 : & -0.5d0*gm(2,2)*d2gm(2,2))+gm(2,3)*(7*dgm01(2,3)*dgm10(2,2)+7*dgm01(2,2)&
621 : & *dgm10(2,3)+4*gm(2,2)*d2gm(2,3))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)&
622 : & +8*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)&
623 1903680 : & *d2gm(3,3))
624 : cm(3,12)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+7*gm(2,3)*(dgm01(3,3)&
625 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*d2gm(2,2)+1.5d0*gm(2,3)&
626 : & **2*d2gm(3,3)+gm(3,3)*(1.5d0*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)&
627 : & *dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+4*gm(2,3)*d2gm(2,3)-0.5d0*gm(2,2)&
628 1903680 : & *d2gm(3,3))
629 : cm(4,12)=8*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
630 : & +2*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(8*dgm01(2,3)*dgm10(2,2)+8*dgm01(2,2)&
631 : & *dgm10(2,3)+2*gm(2,3)*d2gm(2,2)+6*gm(2,2)*d2gm(2,3))+gm(2,3)&
632 : & *(4*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+4*dgm01(2,2)&
633 1903680 : & *dgm10(3,3)+2*gm(2,2)*d2gm(3,3))
634 : cm(5,12)=-gm(2,2)*dgm01(3,3)*dgm10(1,3)+gm(1,3)*dgm01(3,3)*dgm10(2,2)&
635 : & +4*gm(1,3)*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
636 : & -gm(2,2)*dgm01(1,3)*dgm10(3,3)+gm(1,3)*dgm01(2,2)*dgm10(3,3)&
637 : & +9*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)&
638 : & +2*dgm01(2,2)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
639 : & *dgm10(2,3)+2*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))-gm(1,3)&
640 : & *gm(2,2)*d2gm(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)&
641 : & *dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+2*gm(1,3)&
642 1903680 : & *d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
643 : cm(6,12)=2*gm(2,2)*dgm01(3,3)*dgm10(1,2)+6*gm(2,2)*dgm01(2,3)&
644 : & *dgm10(1,3)+9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+gm(1,2)*dgm01(3,3)&
645 : & *dgm10(2,2)+6*gm(2,2)*dgm01(1,3)*dgm10(2,3)+9*gm(1,3)*dgm01(2,2)&
646 : & *dgm10(2,3)+4*gm(1,2)*dgm01(2,3)*dgm10(2,3)+2*gm(2,2)*dgm01(1,2)&
647 : & *dgm10(3,3)+gm(1,2)*dgm01(2,2)*dgm10(3,3)-gm(3,3)*(dgm01(2,2)&
648 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+6*gm(1,3)&
649 : & *gm(2,2)*d2gm(2,3)+gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
650 : & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)&
651 1903680 : & *d2gm(2,2)+2*gm(1,2)*d2gm(2,3))+2*gm(1,2)*gm(2,2)*d2gm(3,3)
652 : cm(1,13)=((-2*gm(2,3)*dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)&
653 : & *dgm01(1,3)-2*gm(1,1)*dgm01(2,3))*dgm10(2,2)+dgm01(2,3)*(-2*gm(2,2)&
654 : & *dgm10(1,1)+12*gm(1,2)*dgm10(1,2)-2*gm(1,1)*dgm10(2,2))+(-2*gm(2,2)&
655 : & *dgm01(1,1)+12*gm(1,2)*dgm01(1,2)-2*gm(1,1)*dgm01(2,2))*dgm10(2,3)&
656 : & +dgm01(2,2)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)*dgm10(1,2)+6*gm(1,2)&
657 : & *dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
658 : & *gm(2,3))*d2gm(2,2)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*d2gm(2,3))&
659 1903680 : & /2.d0
660 : cm(2,13)=gm(2,3)*(4*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*d2gm(2,2))&
661 : & +gm(2,2)*(6*dgm01(2,3)*dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)+2*gm(2,2)&
662 1903680 : & *d2gm(2,3))
663 : cm(3,13)=gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
664 : & +2*dgm01(2,2)*dgm10(3,3))-gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
665 : & *dgm10(3,3))+3*gm(2,3)**2*d2gm(2,3)+gm(3,3)*(1*dgm01(2,3)*dgm10(2,2)&
666 1903680 : & +dgm01(2,2)*dgm10(2,3)+2*gm(2,3)*d2gm(2,2)-gm(2,2)*d2gm(2,3))
667 : cm(4,13)=gm(2,2)*(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)&
668 : & +3*dgm01(2,2)*dgm10(3,3))+gm(2,3)**2*d2gm(2,2)+gm(3,3)*(6*dgm01(2,2)&
669 : & *dgm10(2,2)+3*gm(2,2)*d2gm(2,2))+gm(2,3)*(6*dgm01(2,3)*dgm10(2,2)&
670 1903680 : & +6*dgm01(2,2)*dgm10(2,3)+4*gm(2,2)*d2gm(2,3))
671 : cm(5,13)=-2*gm(2,2)*dgm01(2,3)*dgm10(1,3)-gm(1,3)*dgm01(2,3)&
672 : & *dgm10(2,2)+3*gm(1,2)*dgm01(3,3)*dgm10(2,2)-2*gm(2,2)*dgm01(1,3)&
673 : & *dgm10(2,3)-gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)&
674 : & *dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)+3*gm(3,3)*(dgm01(2,2)&
675 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-2*gm(1,3)&
676 : & *gm(2,2)*d2gm(2,3)+gm(2,3)*(6*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
677 : & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+gm(1,3)&
678 1903680 : & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3))
679 : cm(6,13)=6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+5*gm(1,2)*dgm01(2,3)&
680 : & *dgm10(2,2)+5*gm(1,2)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(dgm01(2,2)&
681 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)&
682 : & *(4*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
683 : & *dgm10(2,2)+4*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+4*gm(1,2)&
684 1903680 : & *d2gm(2,3))
685 : cm(1,14)=((-2*gm(3,3)*dgm01(1,1)+12*gm(1,3)*dgm01(1,3)-2*gm(1,1)&
686 : & *dgm01(3,3))*dgm10(2,3)+dgm01(3,3)*(-2*gm(2,3)*dgm10(1,1)+6*gm(1,3)&
687 : & *dgm10(1,2)+6*gm(1,2)*dgm10(1,3)-2*gm(1,1)*dgm10(2,3))+(-2*gm(2,3)&
688 : & *dgm01(1,1)+6*gm(1,3)*dgm01(1,2)+6*gm(1,2)*dgm01(1,3)-2*gm(1,1)&
689 : & *dgm01(2,3))*dgm10(3,3)+dgm01(2,3)*(-2*gm(3,3)*dgm10(1,1)+12*gm(1,3)&
690 : & *dgm10(1,3)-2*gm(1,1)*dgm10(3,3))+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
691 1903680 : & *d2gm(2,3)+(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*d2gm(3,3))/2.d0
692 : cm(2,14)=gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
693 : & +3*gm(2,3)**2*d2gm(2,3)-gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
694 : & *dgm10(2,3)+gm(2,2)*d2gm(2,3))+gm(2,3)*(2*dgm01(3,3)*dgm10(2,2)&
695 1903680 : & +12*dgm01(2,3)*dgm10(2,3)+2*dgm01(2,2)*dgm10(3,3)+2*gm(2,2)*d2gm(3,3))
696 : cm(3,14)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)**2*d2gm(2,3)&
697 : & +gm(3,3)*(6*dgm01(3,3)*dgm10(2,3)+6*dgm01(2,3)*dgm10(3,3)+2*gm(2,3)&
698 1903680 : & *d2gm(3,3))
699 : cm(4,14)=6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+6*gm(2,3)*(dgm01(3,3)&
700 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)**2*d2gm(3,3)+gm(3,3)&
701 : & *(3*dgm01(3,3)*dgm10(2,2)+8*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)&
702 1903680 : & *dgm10(3,3)+4*gm(2,3)*d2gm(2,3)+3*gm(2,2)*d2gm(3,3))
703 : cm(5,14)=5*gm(1,3)*dgm01(3,3)*dgm10(2,3)+5*gm(1,3)*dgm01(2,3)&
704 : & *dgm10(3,3)+6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(3*dgm01(3,3)&
705 : & *dgm10(1,2)+4*dgm01(2,3)*dgm10(1,3)+4*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
706 : & *dgm10(3,3)+4*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,3)&
707 1903680 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
708 : cm(6,14)=3*gm(2,2)*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*dgm01(3,3)&
709 : & *dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)-gm(1,2)*dgm01(3,3)&
710 : & *dgm10(2,3)+3*gm(2,2)*dgm01(1,3)*dgm10(3,3)+3*gm(1,3)*dgm01(2,2)&
711 : & *dgm10(3,3)-gm(1,2)*dgm01(2,3)*dgm10(3,3)-2*gm(3,3)*(dgm01(2,3)&
712 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(1,3)&
713 : & *gm(2,2)*d2gm(3,3)+gm(2,3)*(1*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)&
714 : & *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3)+6*gm(1,3)&
715 1903680 : & *d2gm(2,3)+gm(1,2)*d2gm(3,3))
716 : cm(1,15)=-gm(1,1)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)&
717 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3)&
718 : & -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
719 1903680 : & *d2gm(3,3))
720 : cm(2,15)=-gm(2,2)*dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)&
721 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3)&
722 : & -0.5d0*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)&
723 1903680 : & *d2gm(3,3))
724 1903680 : cm(3,15)=gm(3,3)*(4*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3))
725 : cm(4,15)=4*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
726 1903680 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))
727 : cm(5,15)=4*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
728 1903680 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))
729 : cm(6,15)=((-2*gm(3,3)*dgm01(1,2)+6*gm(2,3)*dgm01(1,3)+6*gm(1,3)&
730 : & *dgm01(2,3)-2*gm(1,2)*dgm01(3,3))*dgm10(3,3)+dgm01(3,3)*(-2*gm(3,3)&
731 : & *dgm10(1,2)+6*gm(2,3)*dgm10(1,3)+6*gm(1,3)*dgm10(2,3)-2*gm(1,2)&
732 : & *dgm10(3,3))+(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*d2gm(3,3))&
733 1903680 : & /2.d0
734 576 : elseif(rank==3)then
735 576 : cm(1,1)=gm(1,1)**2*(6*dgm01(1,1)*dgm10(1,1)+gm(1,1)*d2gm(1,1))
736 : cm(2,1)=9*gm(1,1)*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
737 : & *dgm10(1,2))+gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)&
738 : & *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
739 : & *dgm10(2,2))+gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
740 576 : & *d2gm(1,1)))
741 : cm(3,1)=9*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
742 : & *dgm10(1,3))+gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)&
743 : & *d2gm(1,1))+gm(1,1)*(-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
744 : & *dgm10(3,3))+gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
745 576 : & *d2gm(1,1)))
746 : cm(4,1)=gm(1,1)*(9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
747 : & *dgm10(1,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3))&
748 : & +gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1)))+gm(1,2)&
749 : & *(9*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,3)&
750 576 : & *(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*d2gm(1,1)))
751 : cm(5,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
752 576 : & *dgm10(1,3))+gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))
753 : cm(6,1)=gm(1,1)*(3*gm(1,1)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
754 576 : & *dgm10(1,2))+gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))
755 : cm(7,1)=(270*gm(1,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
756 : & -54*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
757 : & +90*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(-54*gm(1,1)*(dgm01(2,2)*dgm10(1,1)&
758 : & +dgm01(1,1)*dgm10(2,2))+gm(2,2)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)&
759 576 : & *d2gm(1,1))))/36.d0
760 : cm(8,1)=((90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
761 : & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
762 : & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
763 : & +gm(1,1)*dgm01(3,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,3)**2*dgm10(1,2)&
764 : & +gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)&
765 : & *(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))&
766 : & -18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+(-36*gm(1,1)&
767 : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
768 576 : & *d2gm(1,1))/12.d0
769 : cm(9,1)=((90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)&
770 : & -18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)&
771 : & *dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)&
772 : & +gm(1,1)*dgm01(2,3)))*dgm10(1,1)+dgm01(1,1)*(90*gm(1,2)**2*dgm10(1,3)&
773 : & +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)&
774 : & *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))&
775 : & -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+(90*gm(1,2)&
776 : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
777 576 : & *d2gm(1,1))/12.d0
778 : cm(10,1)=(270*gm(1,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
779 : & -54*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
780 : & +90*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(-54*gm(1,1)*(dgm01(3,3)*dgm10(1,1)&
781 : & +dgm01(1,1)*dgm10(3,3))+gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)&
782 576 : & *d2gm(1,1))))/36.d0
783 : cm(1,2)=gm(1,2)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))&
784 : & +gm(1,1)*gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)&
785 : & +6*gm(1,1)*d2gm(1,2))+gm(1,1)*(gm(2,2)*(-6*dgm01(1,1)*dgm10(1,1)&
786 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)&
787 : & +12*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)+gm(1,1)&
788 576 : & *d2gm(2,2)))
789 : cm(2,2)=-3*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+24*gm(1,1)*gm(1,2)&
790 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(12*dgm01(1,1)&
791 : & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)&
792 : & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
793 : & *dgm10(2,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(2,2)*(3*gm(1,2)**2*d2gm(1,1)&
794 : & +gm(1,2)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)&
795 : & *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)&
796 576 : & +9*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
797 : cm(3,2)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+1.5d0*gm(1,3)&
798 : & **2*dgm01(2,2)*dgm10(1,1)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
799 : & +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)&
800 : & *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)&
801 : & **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
802 : & +6*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)&
803 : & *dgm10(1,2)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
804 : & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
805 : & +1.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)&
806 : & *dgm01(1,1)*dgm10(2,2)+9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
807 : & -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
808 : & *dgm10(2,3)+24*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)&
809 : & **2*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
810 : & -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
811 : & *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
812 : & *d2gm(1,1))+gm(2,2)*(-6*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
813 : & *dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
814 : & *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
815 : & -1.5d0*gm(1,1)*d2gm(1,1)))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)-9*gm(1,1)&
816 : & *gm(1,2)*gm(3,3)*d2gm(1,2)+gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)&
817 : & +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
818 : & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3))&
819 : & +gm(1,3)*(33*dgm01(1,2)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)&
820 : & *d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+4.5d0*gm(1,1)*gm(1,3)**2*d2gm(2,2)&
821 576 : & -1.5d0*gm(1,1)**2*gm(3,3)*d2gm(2,2)
822 : cm(4,2)=gm(1,2)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
823 : & +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)&
824 : & +6*gm(1,3)*d2gm(1,2))+gm(2,2)*(3*gm(1,2)*dgm01(1,3)*dgm10(1,1)&
825 : & +12*gm(1,1)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*dgm01(1,3)*dgm10(1,2)&
826 : & +3*gm(1,2)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*dgm01(1,2)*dgm10(1,3)&
827 : & +12*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)&
828 : & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)&
829 : & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2)))+gm(1,1)&
830 : & *(33*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(1,1)&
831 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(6*dgm01(2,2)&
832 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
833 : & -3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(1,1)*(6*dgm01(2,3)*dgm10(1,2)&
834 : & +9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
835 : & *dgm10(2,3))+gm(2,3)*(12*dgm01(1,2)*dgm10(1,1)+12*dgm01(1,1)&
836 : & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
837 : & +24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+9*gm(1,1)&
838 576 : & *d2gm(2,2)))
839 : cm(5,2)=1.5d0*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
840 : & +gm(1,2)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
841 : & +6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
842 : & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(-4.5d0*gm(2,2)*(dgm01(1,3)&
843 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,2)&
844 : & +3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
845 : & *dgm10(2,3))+gm(2,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)&
846 : & *dgm10(1,2)+12*gm(1,1)*d2gm(1,2)))+gm(1,3)*(1.5d0*gm(1,2)**2*d2gm(1,1)&
847 : & +gm(2,2)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)&
848 : & *(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))&
849 : & +gm(1,1)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
850 576 : & +1.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))
851 : cm(6,2)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(10.5d0*dgm01(1,2)&
852 : & *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2))&
853 : & +gm(1,1)*(15*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
854 : & +gm(2,2)*(31.5d0*dgm01(1,2)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,2)&
855 : & +12*gm(1,1)*d2gm(1,2)))+gm(1,2)*(gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)&
856 : & +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(2,2)*dgm10(1,1)&
857 : & +24*dgm01(1,2)*dgm10(1,2)+13.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)&
858 576 : & *d2gm(2,2)))
859 : cm(7,2)=gm(2,2)**2*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,2)&
860 : & +3*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,2)*(-3*gm(1,1)&
861 : & *dgm01(2,2)*dgm10(2,2)+16.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
862 : & +dgm01(1,2)*dgm10(2,2))+2.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(-7.5d0*gm(1,1)&
863 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)&
864 : & +gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)&
865 576 : & +4.5d0*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
866 : cm(8,2)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
867 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+22.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
868 : & -4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)&
869 : & *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+15*gm(1,2)&
870 : & *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
871 : & +22.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,1)*gm(3,3)&
872 : & *dgm01(1,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
873 : & -3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,2)&
874 : & *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
875 : & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)&
876 : & *dgm10(3,3)-1.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
877 : & **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(-4.5d0*dgm01(1,2)*dgm10(1,1)&
878 : & -4.5d0*dgm01(1,1)*dgm10(1,2)+1.5d0*gm(1,2)*d2gm(1,1)-6*gm(1,1)&
879 : & *d2gm(1,2))+gm(2,2)*(-4.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)&
880 : & *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(12*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)&
881 : & *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))&
882 : & -4.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
883 : & +15*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)*dgm10(1,1)&
884 : & -7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)&
885 : & *d2gm(1,2)))+7.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(1,1)&
886 : & *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(3*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
887 : & +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)-12*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
888 : & +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)-3*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
889 : & -3*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
890 : & -12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+12*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
891 : & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)&
892 : & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)&
893 576 : & +18*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2)))
894 : cm(9,2)=gm(1,1)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(2,3)&
895 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+6*gm(2,2)**2*(dgm01(1,3)&
896 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)&
897 : & **2*(3*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)&
898 : & *dgm10(2,2)+3*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+7.5d0*gm(1,3)&
899 : & *d2gm(2,2))+gm(1,2)*(39*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
900 : & *dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
901 : & +gm(2,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+0*dgm01(1,1)&
902 : & *dgm10(2,2)-3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(3*gm(1,2)*dgm01(2,3)&
903 : & *dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-9*gm(1,1)*dgm01(2,3)&
904 : & *dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(2,2)&
905 : & *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+3*gm(1,2)*dgm01(1,1)&
906 : & *dgm10(2,3)-9*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(-6*dgm01(1,2)&
907 : & *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
908 : & *d2gm(1,2))+gm(1,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
909 : & *dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)&
910 576 : & -1.5d0*gm(1,1)*d2gm(2,2)))
911 : cm(10,2)=(3*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
912 : & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
913 : & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
914 : & +gm(1,3)*dgm01(3,3)))*dgm10(1,1)+6*(90*gm(1,3)**2*dgm01(2,3)&
915 : & +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)&
916 : & *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))&
917 : & -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(1,2)&
918 : & +(270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)-54*gm(1,3)&
919 : & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)&
920 : & *(270*gm(1,3)**2*dgm10(1,3)-54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)&
921 : & *(gm(3,3)*dgm10(1,1)+gm(1,1)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(1,3)&
922 : & **2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))&
923 : & +gm(2,3)*(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)&
924 : & *dgm10(3,3))-36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))&
925 : & +3*dgm01(1,1)*(90*gm(2,3)**2*dgm10(1,3)+gm(3,3)*(-18*gm(1,3)&
926 : & *dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)*(-36*gm(3,3)*dgm10(1,2)&
927 : & +180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))-18*gm(2,2)*(gm(3,3)&
928 : & *dgm10(1,3)+gm(1,3)*dgm10(3,3)))+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
929 : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,3)&
930 : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(1,2)&
931 576 : & +(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*d2gm(2,2))/36.d0
932 : cm(1,3)=gm(1,3)**2*(9*dgm01(1,1)*dgm10(1,1)+4.5d0*gm(1,1)*d2gm(1,1))&
933 : & +gm(1,1)*gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)&
934 : & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(gm(3,3)*(-6*dgm01(1,1)*dgm10(1,1)&
935 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)&
936 : & +12*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)+gm(1,1)&
937 576 : & *d2gm(3,3)))
938 : cm(2,3)=-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)&
939 : & *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)&
940 : & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
941 : & -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*gm(1,3)*dgm01(1,3)&
942 : & *dgm10(1,2)+9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
943 : & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
944 : & -9*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)*dgm01(2,3)&
945 : & *dgm10(1,3)-3*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)&
946 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
947 : & -1.5d0*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
948 : & *dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+1.5d0*gm(1,2)&
949 : & **2*dgm01(1,1)*dgm10(3,3)+9*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
950 : & -1.5d0*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
951 : & *d2gm(1,1)+gm(2,3)**2*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
952 : & *d2gm(1,1))+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)*(15*dgm01(2,3)&
953 : & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)&
954 : & +15*dgm01(1,1)*dgm10(2,3))+9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
955 : & *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)&
956 : & +33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+4.5d0*gm(1,1)&
957 : & *gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)&
958 : & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)&
959 : & *dgm10(1,1)-15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3))+gm(1,1)&
960 : & *(-4.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)&
961 576 : & *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
962 : cm(3,3)=-3*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+24*gm(1,1)*gm(1,3)&
963 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(1,1)&
964 : & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)&
965 : & **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
966 : & *dgm10(3,3)+4.5d0*gm(1,1)*d2gm(3,3))+gm(3,3)*(3*gm(1,3)**2*d2gm(1,1)&
967 : & +gm(1,3)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)&
968 : & *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)&
969 576 : & +9*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
970 : cm(4,3)=27*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+12*gm(1,1)&
971 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
972 : & *dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)&
973 : & *gm(3,3)*dgm01(1,2)*dgm10(1,3)+33*gm(1,1)*gm(1,2)*dgm01(3,3)&
974 : & *dgm10(1,3)+12*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)&
975 : & **2*dgm01(3,3)*dgm10(2,3)+33*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
976 : & -3*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*gm(3,3)&
977 : & *d2gm(1,3)+gm(1,3)**2*(3*dgm01(2,3)*dgm10(1,1)+6*dgm01(1,3)*dgm10(1,2)&
978 : & +6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3))&
979 : & +gm(2,3)*(3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
980 : & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)&
981 : & *dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)&
982 : & +12*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))&
983 : & +gm(1,3)*(gm(1,1)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
984 : & +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3))+3*gm(3,3)*(dgm01(1,2)&
985 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)&
986 : & *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
987 576 : & *dgm10(3,3)+9*gm(1,1)*d2gm(3,3)))
988 : cm(5,3)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(10.5d0*dgm01(1,3)&
989 : & *dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))&
990 : & +gm(1,1)*(15*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
991 : & +gm(3,3)*(31.5d0*dgm01(1,3)*dgm10(1,1)+31.5d0*dgm01(1,1)*dgm10(1,3)&
992 : & +12*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)&
993 : & +7.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(13.5d0*dgm01(3,3)*dgm10(1,1)&
994 : & +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
995 576 : & *d2gm(3,3)))
996 : cm(6,3)=1.5d0*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
997 : & +gm(1,2)*d2gm(1,1))+gm(1,3)*(gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)&
998 : & +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)&
999 : & *dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))&
1000 : & +gm(1,2)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)&
1001 : & *d2gm(1,3)))+gm(1,1)*(-4.5d0*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1002 : & *dgm10(1,2))+gm(1,1)*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)&
1003 : & +12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3))+gm(2,3)*(36*dgm01(1,3)&
1004 : & *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)*d2gm(1,3)))+gm(1,2)&
1005 : & *(gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))&
1006 : & +gm(1,1)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
1007 576 : & +1.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
1008 : cm(7,3)=(3*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)&
1009 : & +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)&
1010 : & *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)&
1011 : & -18*gm(1,2)*dgm01(3,3)))*dgm10(1,1)+6*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)&
1012 : & +gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)&
1013 : & **2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)&
1014 : & -36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+dgm01(3,3)&
1015 : & *(270*gm(1,2)**2*dgm10(1,2)-54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)&
1016 : & *(gm(2,2)*dgm10(1,1)+gm(1,1)*dgm10(2,2)))+6*dgm01(1,3)*(-18*gm(1,1)&
1017 : & *gm(2,3)*dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)&
1018 : & *dgm10(2,2))+90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)&
1019 : & -36*gm(1,3)*dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))&
1020 : & +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)&
1021 : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(1,1)&
1022 : & *(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)&
1023 : & *(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))&
1024 : & +gm(2,2)*(-18*gm(3,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)&
1025 : & *dgm10(3,3)))+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1026 : & **2-18*gm(2,2)*gm(3,3)))*d2gm(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
1027 : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(1,3)+(90*gm(1,2)**3-54*gm(1,1)&
1028 576 : & *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0
1029 : cm(8,3)=gm(1,1)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(2,3)&
1030 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(1,2)&
1031 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)&
1032 : & **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)&
1033 : & *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(2,3)*d2gm(1,3)+7.5d0*gm(1,2)&
1034 : & *d2gm(3,3))+gm(3,3)*(10.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-1.5d0*gm(1,1)&
1035 : & *dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)*dgm10(1,3)-9*gm(1,1)&
1036 : & *dgm01(2,3)*dgm10(1,3)-9*gm(1,1)*dgm01(1,3)*dgm10(2,3)+10.5d0*gm(1,2)&
1037 : & *dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)&
1038 : & *(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
1039 : & *d2gm(1,1)-9*gm(1,1)*d2gm(1,3))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)&
1040 : & +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)&
1041 : & *dgm10(2,3)+24*gm(1,2)*d2gm(1,3))-1.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))&
1042 : & +gm(1,3)*(39*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1043 : & -3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)&
1044 : & *(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)&
1045 576 : & *dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))
1046 : cm(9,3)=-4.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)&
1047 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)*gm(3,3)*dgm01(1,3)&
1048 : & *dgm10(1,2)+15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)&
1049 : & *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
1050 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)&
1051 : & *dgm10(1,3)+22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,3)&
1052 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)&
1053 : & -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)*gm(1,3)&
1054 : & *dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
1055 : & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)&
1056 : & *dgm10(2,3)+15*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)+22.5d0*gm(1,2)&
1057 : & **2*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
1058 : & -3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)&
1059 : & *d2gm(1,3)+gm(2,3)**2*(-4.5d0*dgm01(1,3)*dgm10(1,1)-4.5d0*dgm01(1,1)&
1060 : & *dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+7.5d0*gm(1,2)&
1061 : & **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1062 : & -3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1063 : & -12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1064 : & +9*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1065 : & +12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
1066 : & *d2gm(1,1))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)&
1067 : & +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)&
1068 : & *d2gm(1,3))-3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-4.5d0*gm(1,1)&
1069 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)&
1070 : & +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)&
1071 : & -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)&
1072 : & *dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)&
1073 576 : & -1.5d0*gm(1,1)*d2gm(3,3)))
1074 : cm(10,3)=gm(3,3)**2*(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)&
1075 : & +3*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-3*gm(1,1)&
1076 : & *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
1077 : & +dgm01(1,3)*dgm10(3,3))+2.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(1,1)&
1078 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)&
1079 : & +gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1080 576 : & +4.5d0*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
1081 : cm(1,4)=gm(1,2)*(gm(1,3)*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)&
1082 : & *d2gm(1,1))+gm(1,1)*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)*dgm10(1,3)&
1083 : & +6*gm(1,1)*d2gm(1,3)))+gm(1,1)*(gm(2,3)*(-12*dgm01(1,1)*dgm10(1,1)&
1084 : & -3*gm(1,1)*d2gm(1,1))+gm(1,3)*(21*dgm01(1,2)*dgm10(1,1)+21*dgm01(1,1)&
1085 : & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))+gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)&
1086 : & +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)&
1087 576 : & *dgm10(2,3)+2*gm(1,1)*d2gm(2,3)))
1088 : cm(2,4)=gm(1,1)*(gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
1089 : & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
1090 : & +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1091 : & *dgm10(2,3)))+gm(1,2)*(gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
1092 : & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(1,1)*(42*dgm01(2,3)*dgm10(1,2)&
1093 : & +15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)+42*dgm01(1,2)&
1094 : & *dgm10(2,3))+gm(2,3)*(30*dgm01(1,2)*dgm10(1,1)+30*dgm01(1,1)&
1095 : & *dgm10(1,2)+24*gm(1,1)*d2gm(1,2)))+3*gm(1,2)**3*d2gm(1,3)+gm(1,2)&
1096 : & **2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1097 : & *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)*d2gm(1,1)+3*gm(1,3)&
1098 : & *d2gm(1,2)+9*gm(1,1)*d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(1,3)&
1099 : & *dgm10(1,1)+6*gm(1,1)*dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*dgm01(1,3)&
1100 : & *dgm10(1,2)+18*gm(1,2)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*dgm01(1,2)&
1101 : & *dgm10(1,3)+6*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(24*dgm01(1,1)&
1102 : & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,3)*(-6*dgm01(1,2)*dgm10(1,1)&
1103 : & -6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)*d2gm(1,2))&
1104 576 : & +15*gm(1,1)*gm(1,2)*d2gm(1,3)-3*gm(1,1)**2*d2gm(2,3))
1105 : cm(3,4)=-6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)&
1106 : & *dgm01(2,3)*dgm10(1,1)+6*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
1107 : & -6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*gm(3,3)*dgm01(1,2)&
1108 : & *dgm10(1,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)+6*gm(1,1)&
1109 : & *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)&
1110 : & -9*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,1)**2*dgm01(2,3)&
1111 : & *dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+gm(1,3)*(gm(1,2)*(3*dgm01(3,3)&
1112 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))&
1113 : & +gm(1,1)*(15*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)&
1114 : & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(18*dgm01(1,2)&
1115 : & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+15*gm(1,1)&
1116 : & *d2gm(1,2)))-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(2,3)*(gm(1,1)&
1117 : & *(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
1118 : & *dgm10(3,3))+3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
1119 : & +12*gm(1,1)*d2gm(1,1))+gm(1,3)*(30*dgm01(1,3)*dgm10(1,1)+30*dgm01(1,1)&
1120 : & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))-3*gm(1,1)**2*gm(3,3)*d2gm(2,3)&
1121 : & +gm(1,3)**2*(12*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)&
1122 : & +12*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)+3*gm(1,2)&
1123 576 : & *d2gm(1,3)+9*gm(1,1)*d2gm(2,3))
1124 : cm(4,4)=42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+9*gm(1,3)**2*dgm01(2,2)&
1125 : & *dgm10(1,1)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*gm(1,2)&
1126 : & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+9*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1127 : & +42*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)&
1128 : & *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+24*gm(1,2)&
1129 : & *gm(1,3)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*gm(1,3)*dgm01(2,3)&
1130 : & *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)&
1131 : & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
1132 : & +24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)*gm(1,2)&
1133 : & *dgm01(2,3)*dgm10(1,3)+9*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+15*gm(1,1)&
1134 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)*dgm01(1,3)&
1135 : & *dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(1,1)*dgm10(2,3)+24*gm(1,1)&
1136 : & *gm(1,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,1)*gm(1,2)*dgm01(1,3)&
1137 : & *dgm10(2,3)-12*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,1)&
1138 : & *dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)&
1139 : & **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(18*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)&
1140 : & *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)&
1141 : & *gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)&
1142 : & *(15*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)&
1143 : & *dgm10(3,3))+9*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(30*dgm01(1,1)*dgm10(1,1)&
1144 : & +15*gm(1,1)*d2gm(1,1))+gm(1,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)&
1145 : & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3)))+18*gm(1,1)*gm(1,2)*gm(1,3)&
1146 : & *d2gm(2,3)+gm(2,3)*(gm(1,3)*(0*dgm01(1,2)*dgm10(1,1)+0*dgm01(1,1)&
1147 : & *dgm10(1,2)-6*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,2)&
1148 : & *(0*dgm01(1,3)*dgm10(1,1)+0*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))&
1149 : & +gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1150 576 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3)))
1151 : cm(5,4)=gm(1,2)*(12*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,3)&
1152 : & *dgm10(1,3)+dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)&
1153 : & +12*gm(1,1)*d2gm(1,1)))+gm(1,3)**2*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)&
1154 : & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))+gm(1,1)&
1155 : & *(gm(1,1)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)&
1156 : & +18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(1,2)&
1157 : & *dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)*d2gm(1,2))+gm(2,3)&
1158 : & *(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,3)+12*gm(1,1)&
1159 : & *d2gm(1,3)))+gm(1,3)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1160 : & *d2gm(1,1))+gm(1,2)*(12*dgm01(1,3)*dgm10(1,1)+12*dgm01(1,1)*dgm10(1,3)&
1161 : & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1162 : & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
1163 576 : & +6*gm(1,1)*d2gm(2,3)))
1164 : cm(6,4)=gm(1,3)*(12*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,2)&
1165 : & *dgm10(1,2)+dgm01(1,1)*dgm10(2,2))+3*gm(1,2)**2*d2gm(1,1)+gm(2,2)&
1166 : & *(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1))+gm(1,2)*(12*dgm01(1,2)&
1167 : & *dgm10(1,1)+12*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2)))+gm(1,2)&
1168 : & **2*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)&
1169 : & *d2gm(1,3))+gm(1,1)*(gm(1,1)*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
1170 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3))&
1171 : & +gm(2,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,1)&
1172 : & *d2gm(1,2))+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,3)&
1173 : & +12*gm(1,1)*d2gm(1,3)))+gm(1,2)*(gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)&
1174 : & +3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1175 : & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
1176 576 : & +6*gm(1,1)*d2gm(2,3)))
1177 : cm(7,4)=-3*gm(1,1)*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1178 : & *dgm10(2,2))+gm(1,2)*(gm(2,3)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)&
1179 : & *dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))-6*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
1180 : & +dgm01(1,2)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
1181 : & *dgm10(2,3)))+gm(1,2)**2*(30*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)&
1182 : & *dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)&
1183 : & +15*gm(2,3)*d2gm(1,2))+gm(2,2)**2*(-6*dgm01(1,3)*dgm10(1,1)-6*dgm01(1,1)&
1184 : & *dgm10(1,3)-3*(gm(1,3)*d2gm(1,1)+gm(1,1)*d2gm(1,3)))+5*gm(1,2)&
1185 : & **3*d2gm(2,3)+gm(2,2)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+12*gm(1,2)&
1186 : & *dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)&
1187 : & *dgm01(1,2)*dgm10(1,3)-6*gm(1,1)*dgm01(2,2)*dgm10(1,3)-6*gm(1,1)&
1188 : & *dgm01(1,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)&
1189 : & *dgm01(1,2)*dgm10(2,3)+gm(2,3)*(6*dgm01(1,2)*dgm10(1,1)+6*dgm01(1,1)&
1190 : & *dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))+gm(1,3)&
1191 : & *(-6*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)&
1192 : & *dgm10(2,2)-6*gm(1,2)*d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)-3*gm(1,1)&
1193 576 : & *gm(1,2)*d2gm(2,3))
1194 : cm(8,4)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+0*gm(1,2)*gm(3,3)&
1195 : & *dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1196 : & +12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)&
1197 : & *dgm10(1,2)-12*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)&
1198 : & *gm(1,3)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(1,2)&
1199 : & *dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)-3*gm(1,1)*gm(3,3)&
1200 : & *dgm01(2,2)*dgm10(1,3)+48*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1201 : & -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)&
1202 : & *dgm10(2,2)+15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)&
1203 : & *dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
1204 : & +18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)-12*gm(1,1)*gm(3,3)*dgm01(1,2)&
1205 : & *dgm10(2,3)+48*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)-12*gm(1,1)&
1206 : & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
1207 : & +24*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)&
1208 : & *dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)&
1209 : & *gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)&
1210 : & **2*(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)&
1211 : & *d2gm(1,1)-6*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(12*dgm01(3,3)&
1212 : & *dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))&
1213 : & -3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)&
1214 : & **2*d2gm(1,3)+gm(3,3)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)&
1215 : & +12*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+15*gm(1,2)*gm(1,3)&
1216 : & **2*d2gm(2,3)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)*(3*gm(1,2)&
1217 : & *dgm01(3,3)*dgm10(1,1)-9*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)&
1218 : & *dgm01(1,3)*dgm10(1,3)-18*gm(1,1)*dgm01(2,3)*dgm10(1,3)-18*gm(1,1)&
1219 : & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)-9*gm(1,1)&
1220 : & *dgm01(1,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-6*dgm01(1,2)&
1221 : & *dgm10(1,1)-6*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
1222 : & *d2gm(1,2))+gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)&
1223 : & +24*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)&
1224 576 : & *d2gm(1,3)-6*gm(1,1)*d2gm(2,3)))
1225 : cm(9,4)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)&
1226 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1227 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+48*gm(1,2)*gm(1,3)*dgm01(2,3)&
1228 : & *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)*gm(1,3)&
1229 : & *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)&
1230 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
1231 : & -3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,3)&
1232 : & *dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+48*gm(1,2)&
1233 : & *gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)&
1234 : & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-12*gm(1,1)*gm(1,2)*dgm01(2,3)&
1235 : & *dgm10(2,3)+15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+15*gm(1,2)**2*gm(3,3)&
1236 : & *d2gm(1,2)+gm(2,3)**2*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)&
1237 : & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2))+15*gm(1,2)&
1238 : & **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(0*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
1239 : & +24*gm(1,2)*dgm01(1,3)*dgm10(1,2)-18*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
1240 : & +24*gm(1,2)*dgm01(1,2)*dgm10(1,3)-9*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
1241 : & -9*gm(1,1)*dgm01(1,3)*dgm10(2,2)+0*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
1242 : & -18*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)&
1243 : & +36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)&
1244 : & *d2gm(1,2))+3*gm(1,2)**2*d2gm(1,3)+gm(2,2)*(-6*dgm01(1,3)*dgm10(1,1)&
1245 : & -6*dgm01(1,1)*dgm10(1,3)+3*gm(1,3)*d2gm(1,1)-9*gm(1,1)*d2gm(1,3))&
1246 : & -6*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)&
1247 : & *dgm10(1,1)-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)&
1248 : & *dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)-12*gm(1,1)*dgm01(1,3)&
1249 : & *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)&
1250 : & *dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(9*dgm01(1,2)*dgm10(1,1)&
1251 : & +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2))&
1252 : & +gm(1,3)*(0*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1253 : & *dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)&
1254 576 : & *d2gm(2,3)))
1255 : cm(10,4)=-3*gm(1,1)*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1256 : & *dgm10(3,3))+gm(1,3)*(gm(2,3)*(9*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)&
1257 : & *dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
1258 : & +dgm01(1,3)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1259 : & *dgm10(3,3)))+gm(3,3)**2*(-6*dgm01(1,2)*dgm10(1,1)-6*dgm01(1,1)&
1260 : & *dgm10(1,2)-3*(gm(1,2)*d2gm(1,1)+gm(1,1)*d2gm(1,2)))+gm(1,3)&
1261 : & **2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)&
1262 : & *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+15*gm(2,3)*d2gm(1,3))+5*gm(1,3)&
1263 : & **3*d2gm(2,3)+gm(3,3)*(-6*gm(1,2)*dgm01(3,3)*dgm10(1,1)-6*gm(1,1)&
1264 : & *dgm01(3,3)*dgm10(1,2)-12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-6*gm(1,1)&
1265 : & *dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)*dgm10(2,3)-6*gm(1,2)&
1266 : & *dgm01(1,1)*dgm10(3,3)-6*gm(1,1)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)&
1267 : & **2*d2gm(1,2)+gm(2,3)*(6*dgm01(1,3)*dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)&
1268 : & +9*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3))+gm(1,3)*(6*dgm01(2,3)&
1269 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
1270 576 : & +6*dgm01(1,1)*dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))
1271 : cm(1,5)=gm(1,1)*(gm(1,3)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1272 : & *d2gm(1,1))+gm(1,1)*(9*dgm01(1,3)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,3)&
1273 576 : & +2*gm(1,1)*d2gm(1,3)))
1274 : cm(2,5)=gm(1,3)*(3*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1275 : & *dgm10(1,2))-4.5d0*gm(1,1)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
1276 : & *dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(-9*dgm01(1,1)&
1277 : & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)&
1278 : & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
1279 : & +12*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)&
1280 : & +12*gm(1,1)*d2gm(1,1)))+gm(1,2)**2*(10.5d0*dgm01(1,3)*dgm10(1,1)&
1281 : & +10.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))+gm(1,1)*(12*gm(2,3)&
1282 : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-3*gm(1,1)*(dgm01(2,2)&
1283 : & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2))+gm(2,2)*(-10.5d0*dgm01(1,3)&
1284 576 : & *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1285 : cm(3,5)=1.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)*(gm(1,1)*(7.5d0*dgm01(3,3)&
1286 : & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3))&
1287 : & +gm(3,3)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))&
1288 : & +gm(1,3)**2*(13.5d0*dgm01(1,3)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,3)&
1289 : & +9*gm(1,1)*d2gm(1,3))+gm(1,1)*(-3*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
1290 : & +dgm01(1,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(1,3)*dgm10(1,1)&
1291 576 : & +1.5d0*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1292 : cm(4,5)=3*gm(1,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
1293 : & +gm(1,2)*d2gm(1,1))+gm(1,2)*(gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)&
1294 : & +36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)&
1295 : & *dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(3,3)*(dgm01(1,2)&
1296 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)&
1297 : & +dgm01(1,3)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)&
1298 : & *dgm10(1,3)-6*gm(1,1)*d2gm(1,3)))+gm(1,3)*(gm(1,1)*(3*dgm01(2,3)&
1299 : & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
1300 : & +3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1301 : & *d2gm(1,1))+gm(1,2)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)&
1302 576 : & +18*gm(1,1)*d2gm(1,3)))
1303 : cm(5,5)=gm(1,3)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
1304 : & +gm(1,1)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
1305 : & +6*dgm01(1,1)*dgm10(3,3))+gm(3,3)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1306 : & *d2gm(1,1)))+gm(1,1)*gm(1,3)*(18*dgm01(1,3)*dgm10(1,1)+18*dgm01(1,1)&
1307 576 : & *dgm10(1,3)+6*gm(1,1)*d2gm(1,3))
1308 : cm(6,5)=gm(1,1)*(3*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1309 : & *dgm10(1,2))+6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)&
1310 : & +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
1311 : & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1)))+gm(1,2)*(gm(1,3)*(6*dgm01(1,1)&
1312 : & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1))+gm(1,1)*(15*dgm01(1,3)*dgm10(1,1)&
1313 576 : & +15*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3)))
1314 : cm(7,5)=(3*(-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)&
1315 : & *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)&
1316 : & *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)&
1317 : & -18*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+2*(270*gm(1,2)**2*dgm01(1,2)&
1318 : & -54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)*(gm(2,2)*dgm01(1,1)&
1319 : & +gm(1,1)*dgm01(2,2)))*dgm10(1,3)+2*dgm01(1,3)*(270*gm(1,2)**2*dgm10(1,2)&
1320 : & -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)&
1321 : & +gm(1,1)*dgm10(2,2)))+3*dgm01(1,1)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)&
1322 : & +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)&
1323 : & **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)&
1324 : & -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)&
1325 : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(1,1)&
1326 576 : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*d2gm(1,3))/36.d0
1327 : cm(8,5)=9*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-4.5d0*gm(1,1)&
1328 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
1329 : & +9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(1,2)&
1330 : & *dgm10(1,3)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)&
1331 : & *gm(3,3)*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
1332 : & +gm(1,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3))&
1333 : & +gm(1,2)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
1334 : & *dgm10(3,3))+12*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
1335 : & +gm(1,2)*d2gm(1,1)))-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(1,3)&
1336 : & **2*(1.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)&
1337 : & *dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3))&
1338 : & +gm(2,3)*(gm(1,1)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-12*dgm01(1,3)&
1339 : & *dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(1,1)&
1340 : & +gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)&
1341 : & *(-3*dgm01(1,3)*dgm10(1,1)-3*dgm01(1,1)*dgm10(1,3)-6*gm(1,1)&
1342 576 : & *d2gm(1,3)))
1343 : cm(9,5)=15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-3*gm(1,3)**2*dgm01(2,2)&
1344 : & *dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+9*gm(1,2)&
1345 : & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1346 : & +15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,2)*gm(1,3)&
1347 : & *dgm01(1,3)*dgm10(1,2)+30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)&
1348 : & +30*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)*gm(1,3)*dgm01(2,2)&
1349 : & *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(1,3)-3*gm(1,3)&
1350 : & **2*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
1351 : & -3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(1,1)&
1352 : & *dgm10(2,3)-6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)&
1353 : & **2*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)*d2gm(1,1)&
1354 : & +gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+15*gm(1,2)&
1355 : & **2*gm(1,3)*d2gm(1,3)+gm(2,3)*(-6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)&
1356 : & +dgm01(1,3)*dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))&
1357 : & +9*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)&
1358 : & *d2gm(1,1))+gm(1,2)*(3*dgm01(1,3)*dgm10(1,1)+3*dgm01(1,1)*dgm10(1,3)&
1359 : & -6*gm(1,1)*d2gm(1,3)))+gm(2,2)*(gm(1,1)*(-1.5d0*dgm01(3,3)*dgm10(1,1)&
1360 : & -6*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,3)&
1361 : & **2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
1362 : & *d2gm(1,1))+gm(1,3)*(-9*dgm01(1,3)*dgm10(1,1)-9*dgm01(1,1)*dgm10(1,3)&
1363 576 : & -3*gm(1,1)*d2gm(1,3)))
1364 : cm(10,5)=gm(3,3)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)&
1365 : & *d2gm(1,1))+gm(1,3)*(gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)&
1366 : & *dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)&
1367 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+5*gm(1,3)**2*d2gm(1,3))+gm(3,3)&
1368 : & *(gm(1,1)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)&
1369 : & *dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(1,1)+gm(1,3)*(6*dgm01(1,3)&
1370 576 : & *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*d2gm(1,3)))
1371 : cm(1,6)=gm(1,1)*(gm(1,2)*(12*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)&
1372 : & *d2gm(1,1))+gm(1,1)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)&
1373 576 : & +2*gm(1,1)*d2gm(1,2)))
1374 : cm(2,6)=1.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)*(gm(1,1)*(7.5d0*dgm01(2,2)&
1375 : & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2))&
1376 : & +gm(2,2)*(15*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)*d2gm(1,1)))&
1377 : & +gm(1,2)**2*(13.5d0*dgm01(1,2)*dgm10(1,1)+13.5d0*dgm01(1,1)*dgm10(1,2)&
1378 : & +9*gm(1,1)*d2gm(1,2))+gm(1,1)*(-3*gm(1,1)*(dgm01(2,2)*dgm10(1,2)&
1379 : & +dgm01(1,2)*dgm10(2,2))+gm(2,2)*(1.5d0*dgm01(1,2)*dgm10(1,1)&
1380 576 : & +1.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1381 : cm(3,6)=gm(1,2)*(-4.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1382 : & *dgm10(3,3))+gm(3,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)&
1383 : & *d2gm(1,1)))+gm(1,3)*(3*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1384 : & *dgm10(1,3))+gm(1,1)*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
1385 : & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3))&
1386 : & +gm(2,3)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*d2gm(1,1)))+gm(1,3)&
1387 : & **2*(10.5d0*dgm01(1,2)*dgm10(1,1)+10.5d0*dgm01(1,1)*dgm10(1,2)&
1388 : & +1.5d0*gm(1,2)*d2gm(1,1)+9*gm(1,1)*d2gm(1,2))+gm(1,1)*(12*gm(2,3)&
1389 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-3*gm(1,1)*(dgm01(3,3)&
1390 : & *dgm10(1,2)+dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(1,2)&
1391 576 : & *dgm10(1,1)-10.5d0*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1392 : cm(4,6)=3*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1393 : & +gm(1,2)*(gm(1,1)*(3*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)&
1394 : & +18*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(6*dgm01(1,1)&
1395 : & *dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))+gm(1,1)*(12*gm(2,2)*(dgm01(1,3)&
1396 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)&
1397 : & +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-9*dgm01(1,2)*dgm10(1,1)-9*dgm01(1,1)&
1398 : & *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(1,3)*(gm(1,1)*(12*dgm01(2,2)&
1399 : & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))&
1400 : & +3*gm(1,2)**2*d2gm(1,1)+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)&
1401 : & *d2gm(1,1))+gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)&
1402 576 : & +18*gm(1,1)*d2gm(1,2)))
1403 : cm(5,6)=gm(1,2)*(3*gm(1,1)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1404 : & *dgm10(1,3))+gm(1,3)*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1)))&
1405 : & +gm(1,1)*(6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)&
1406 : & +dgm01(1,2)*dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(2,3)*(24*dgm01(1,1)&
1407 : & *dgm10(1,1)+6*gm(1,1)*d2gm(1,1))+gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)&
1408 576 : & +15*dgm01(1,1)*dgm10(1,2)+6*gm(1,1)*d2gm(1,2)))
1409 : cm(6,6)=gm(1,2)**2*(6*dgm01(1,1)*dgm10(1,1)+3*gm(1,1)*d2gm(1,1))&
1410 : & +gm(1,1)*(gm(1,1)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1411 : & +6*dgm01(1,1)*dgm10(2,2))+gm(2,2)*(24*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1412 : & *d2gm(1,1)))+gm(1,1)*gm(1,2)*(18*dgm01(1,2)*dgm10(1,1)+18*dgm01(1,1)&
1413 576 : & *dgm10(1,2)+6*gm(1,1)*d2gm(1,2))
1414 : cm(7,6)=gm(2,2)**2*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))&
1415 : & +gm(1,2)*(gm(1,2)*(4.5d0*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)&
1416 : & *dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,1)*(dgm01(2,2)&
1417 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+5*gm(1,2)**2*d2gm(1,2))+gm(2,2)&
1418 : & *(gm(1,1)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
1419 : & *dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(1,1)+gm(1,2)*(6*dgm01(1,2)&
1420 576 : & *dgm10(1,1)+6*dgm01(1,1)*dgm10(1,2)-3*gm(1,1)*d2gm(1,2)))
1421 : cm(8,6)=-9*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)&
1422 : & **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
1423 : & +9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)-3*gm(1,2)**2*dgm01(3,3)&
1424 : & *dgm10(1,1)-9*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+30*gm(1,3)&
1425 : & **2*dgm01(1,2)*dgm10(1,2)-6*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1426 : & +30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)&
1427 : & *dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)&
1428 : & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)&
1429 : & -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
1430 : & *dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
1431 : & -3*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*gm(1,2)*dgm01(1,2)&
1432 : & *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)&
1433 : & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(2,2)*(15*gm(1,3)*(dgm01(1,3)&
1434 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-1.5d0*gm(1,1)*(dgm01(3,3)&
1435 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+7.5d0*gm(1,3)**2*d2gm(1,1)&
1436 : & +gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1)))&
1437 : & +15*gm(1,2)*gm(1,3)**2*d2gm(1,2)-3*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)&
1438 : & +gm(2,3)*(9*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1439 : & -6*gm(1,1)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
1440 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3))+gm(1,3)*(3*dgm01(1,2)*dgm10(1,1)&
1441 576 : & +3*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)-6*gm(1,1)*d2gm(1,2)))
1442 : cm(9,6)=gm(1,1)*(gm(2,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)&
1443 : & *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2))-3*gm(1,3)*(dgm01(2,2)&
1444 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(1.5d0*dgm01(2,3)&
1445 : & *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)&
1446 : & +1.5d0*dgm01(1,1)*dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+15*gm(1,3)&
1447 : & *d2gm(1,2))+gm(1,2)*(gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)&
1448 : & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2))-6*gm(1,1)*(dgm01(2,3)*dgm10(1,2)&
1449 : & +dgm01(1,2)*dgm10(2,3))+gm(2,3)*(-3*dgm01(1,2)*dgm10(1,1)-3*dgm01(1,1)&
1450 : & *dgm10(1,2)-6*gm(1,1)*d2gm(1,2)))+gm(2,2)*(12*gm(1,2)*dgm01(1,3)&
1451 : & *dgm10(1,1)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-3*gm(1,1)*dgm01(1,3)&
1452 : & *dgm10(1,2)+12*gm(1,2)*dgm01(1,1)*dgm10(1,3)-3*gm(1,1)*dgm01(1,2)&
1453 : & *dgm10(1,3)-4.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)&
1454 : & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,2)*dgm10(1,1)&
1455 576 : & +9*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)*d2gm(1,1)-3*gm(1,1)*d2gm(1,2)))
1456 : cm(10,6)=(gm(1,3)**2*(270*dgm01(2,3)*dgm10(1,1)+540*dgm01(1,3)&
1457 : & *dgm10(1,2)+540*dgm01(1,2)*dgm10(1,3)+270*dgm01(1,1)*dgm10(2,3))&
1458 : & +gm(3,3)*(-108*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1459 : & +gm(1,1)*(-54*dgm01(2,3)*dgm10(1,1)-108*dgm01(1,3)*dgm10(1,2)&
1460 : & -108*dgm01(1,2)*dgm10(1,3)-54*dgm01(1,1)*dgm10(2,3)))+gm(2,3)&
1461 : & *(540*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-54*gm(1,1)&
1462 : & *(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3))+270*gm(1,3)**2*d2gm(1,1)&
1463 : & +gm(3,3)*(-108*dgm01(1,1)*dgm10(1,1)-54*gm(1,1)*d2gm(1,1)))+180*gm(1,3)&
1464 : & **3*d2gm(1,2)+gm(1,3)*(-108*(gm(1,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
1465 : & *dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)))&
1466 : & +gm(3,3)*(-216*dgm01(1,2)*dgm10(1,1)-216*dgm01(1,1)*dgm10(1,2)&
1467 576 : & -108*gm(1,2)*d2gm(1,1)-108*gm(1,1)*d2gm(1,2))))/36.d0
1468 : cm(1,7)=-7.5d0*gm(1,1)*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1469 : & *dgm10(1,2))+2.5d0*gm(1,2)**3*d2gm(1,1)+gm(1,2)**2*(16.5d0*dgm01(1,2)&
1470 : & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+9*gm(1,1)*d2gm(1,2))&
1471 : & +gm(1,1)**2*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)&
1472 : & -3*gm(2,2)*d2gm(1,2))+gm(1,2)*(gm(2,2)*(-3*dgm01(1,1)*dgm10(1,1)&
1473 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(2,2)*dgm10(1,1)&
1474 : & +36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)&
1475 576 : & *d2gm(2,2)))
1476 : cm(2,7)=gm(2,2)**2*(15*dgm01(1,2)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,2)&
1477 : & +3*gm(1,2)*d2gm(1,1)+12*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)&
1478 : & *dgm01(2,2)*dgm10(2,2)+10.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
1479 : & +dgm01(1,2)*dgm10(2,2))+1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(31.5d0*gm(1,1)&
1480 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,2)**2*d2gm(1,2)&
1481 : & +gm(1,2)*(13.5d0*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)&
1482 576 : & +13.5d0*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2)))
1483 : cm(3,7)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
1484 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1485 : & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+18*gm(1,2)*gm(1,3)&
1486 : & *dgm01(2,3)*dgm10(1,2)-6*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+3*gm(1,2)&
1487 : & *gm(1,3)*dgm01(2,2)*dgm10(1,3)-6*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)&
1488 : & -4.5d0*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)&
1489 : & *dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
1490 : & +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,2)&
1491 : & *dgm01(3,3)*dgm10(2,2)+18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
1492 : & +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)-6*gm(1,2)**2*dgm01(1,2)&
1493 : & *dgm10(3,3)-4.5d0*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
1494 : & **2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(22.5d0*dgm01(1,2)*dgm10(1,1)&
1495 : & +22.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)&
1496 : & *d2gm(1,2))+gm(2,2)*(-1.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)-3*gm(1,1)&
1497 : & *dgm01(3,3)*dgm10(1,2)+gm(1,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)&
1498 : & *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3))&
1499 : & -1.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1500 : & -6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-4.5d0*dgm01(1,2)*dgm10(1,1)&
1501 : & -4.5d0*dgm01(1,1)*dgm10(1,2)-1.5d0*gm(1,2)*d2gm(1,1)-3*gm(1,1)&
1502 : & *d2gm(1,2)))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)&
1503 : & *gm(1,2)*gm(3,3)*d2gm(2,2)+gm(2,3)*(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
1504 : & +18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
1505 : & +18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
1506 : & +12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+15*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
1507 : & +30*gm(1,1)*dgm01(1,2)*dgm10(2,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)&
1508 : & +dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,3)*(9*dgm01(2,2)&
1509 : & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2)&
1510 576 : & +18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2)))
1511 : cm(4,7)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(2,3)&
1512 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)&
1513 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,3)*d2gm(1,1))+gm(1,2)&
1514 : & **2*(6*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
1515 : & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)+3*gm(1,3)&
1516 : & *d2gm(2,2))+gm(1,2)*(12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1517 : & *dgm10(2,2))+3*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1518 : & +gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
1519 : & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(2,2)*(9*gm(1,2)*dgm01(2,3)&
1520 : & *dgm10(1,1)+6*gm(1,2)*dgm01(1,3)*dgm10(1,2)+24*gm(1,1)*dgm01(2,3)&
1521 : & *dgm10(1,2)+6*gm(1,2)*dgm01(1,2)*dgm10(1,3)+12*gm(1,1)*dgm01(2,2)&
1522 : & *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,2)+9*gm(1,2)*dgm01(1,1)&
1523 : & *dgm10(2,3)+24*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(33*dgm01(1,2)&
1524 : & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1525 : & *d2gm(1,2))+gm(1,3)*(6*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1526 576 : & +6*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2)))
1527 : cm(5,7)=gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)+3*dgm01(1,3)&
1528 : & *dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)&
1529 : & +7.5d0*gm(2,3)*d2gm(1,1)+3*gm(1,3)*d2gm(1,2))+gm(2,2)*(-3*gm(1,2)&
1530 : & *dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)&
1531 : & *dgm01(1,3)*dgm10(1,2)-3*gm(1,2)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)&
1532 : & *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,1)*dgm01(1,1)*dgm10(2,3)+gm(2,3)&
1533 : & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-12*dgm01(1,2)&
1534 : & *dgm10(1,1)-12*dgm01(1,1)*dgm10(1,2)-3*gm(1,2)*d2gm(1,1)-9*gm(1,1)&
1535 : & *d2gm(1,2)))+gm(1,2)*(gm(1,1)*(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
1536 : & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))&
1537 : & +gm(2,3)*(39*dgm01(1,2)*dgm10(1,1)+39*dgm01(1,1)*dgm10(1,2)+24*gm(1,1)&
1538 : & *d2gm(1,2))+gm(1,3)*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1539 : & +0*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)*(-6*gm(1,3)&
1540 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+6*gm(1,1)*(dgm01(2,3)&
1541 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(10.5d0*dgm01(2,2)&
1542 : & *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+10.5d0*dgm01(1,1)*dgm10(2,2)&
1543 576 : & +6*gm(1,1)*d2gm(2,2)))
1544 : cm(6,7)=12*gm(1,1)**2*dgm01(2,2)*dgm10(2,2)+21*gm(1,1)*gm(1,2)&
1545 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+gm(2,2)**2*(-3*dgm01(1,1)&
1546 : & *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,2)**3*d2gm(1,2)+gm(1,2)&
1547 : & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+18*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
1548 : & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2))+gm(2,2)*(4.5d0*gm(1,2)**2*d2gm(1,1)&
1549 : & +gm(1,2)*(24*dgm01(1,2)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,2)+15*gm(1,1)&
1550 : & *d2gm(1,2))+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)&
1551 576 : & +9*dgm01(1,1)*dgm10(2,2)+6*gm(1,1)*d2gm(2,2)))
1552 : cm(7,7)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)**3*d2gm(1,1)&
1553 : & +gm(2,2)**2*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1554 : & +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
1555 : & *d2gm(2,2))+gm(2,2)*(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)&
1556 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)&
1557 576 : & **2*d2gm(2,2))
1558 : cm(8,7)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)&
1559 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
1560 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(2,3)&
1561 : & *dgm10(2,2)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
1562 : & *dgm01(2,2)*dgm10(2,3)-3*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)&
1563 : & **2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(3,3)*d2gm(1,1))&
1564 : & -3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(1.5d0*dgm01(2,2)&
1565 : & *dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+1.5d0*dgm01(1,1)*dgm10(2,2)&
1566 : & +4.5d0*gm(2,2)*d2gm(1,1)+3*gm(1,2)*d2gm(1,2)-3*gm(1,1)*d2gm(2,2))&
1567 : & +gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,2)-1.5d0*gm(1,1)*dgm01(3,3)&
1568 : & *dgm10(2,2)+gm(1,3)*(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)&
1569 : & +15*dgm01(1,3)*dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3))-9*gm(1,2)&
1570 : & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,3)&
1571 : & **2*d2gm(2,2)+gm(3,3)*(-4.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)&
1572 : & *dgm10(1,2)-4.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
1573 : & *d2gm(2,2)))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+9*gm(1,2)&
1574 : & *dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)&
1575 : & *dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-6*gm(1,1)&
1576 : & *dgm01(2,2)*dgm10(2,3)+gm(2,2)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
1577 : & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)&
1578 : & +24*gm(1,3)*d2gm(1,2))+gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)&
1579 576 : & *dgm10(2,2)+9*gm(1,2)*d2gm(2,2)))
1580 : cm(9,7)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)&
1581 : & *dgm01(2,2)*dgm10(2,2)+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1582 : & *dgm10(2,2)))+gm(2,2)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
1583 : & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)&
1584 : & +3*gm(2,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,2))+1.5d0*gm(1,2)**2*(dgm01(2,3)&
1585 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)&
1586 : & *(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
1587 : & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
1588 : & +6*gm(1,2)*dgm01(1,2)*dgm10(2,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
1589 : & +gm(2,3)*(1.5d0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1590 : & +1.5d0*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)&
1591 : & *d2gm(2,2))+gm(1,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)&
1592 576 : & +12*gm(1,2)*d2gm(2,2)))
1593 : cm(10,7)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)&
1594 : & -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)&
1595 : & +6*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
1596 : & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
1597 : & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
1598 : & +gm(1,3)*dgm01(3,3)))*dgm10(1,2)+3*(90*gm(1,3)**2*dgm01(2,3)&
1599 : & +gm(3,3)*(-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3))+gm(2,3)&
1600 : & *(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)*dgm01(1,3)-18*gm(1,1)*dgm01(3,3))&
1601 : & -36*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(1,2)*dgm01(3,3)))*dgm10(2,2)&
1602 : & +3*dgm01(2,2)*(90*gm(1,3)**2*dgm10(2,3)+gm(3,3)*(-36*gm(1,2)&
1603 : & *dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)*(-18*gm(3,3)*dgm10(1,1)&
1604 : & +180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))-36*gm(1,3)*(gm(3,3)&
1605 : & *dgm10(1,2)+gm(1,2)*dgm10(3,3)))+6*dgm01(1,2)*(90*gm(2,3)**2*dgm10(1,3)&
1606 : & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
1607 : & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
1608 : & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+dgm01(1,1)&
1609 : & *(270*gm(2,3)**2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)&
1610 : & *(gm(3,3)*dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)&
1611 : & *gm(2,3)*gm(3,3))*d2gm(1,1)+6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
1612 : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*d2gm(1,2)+3*(90*gm(1,3)&
1613 : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*d2gm(2,2))&
1614 576 : & /36.d0
1615 : cm(1,8)=-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,1)-15*gm(1,1)&
1616 : & *gm(2,3)*dgm01(1,3)*dgm10(1,1)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)&
1617 : & *dgm10(1,2)+0*gm(1,1)**2*dgm01(3,3)*dgm10(1,2)-15*gm(1,1)*gm(2,3)&
1618 : & *dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,3)+0*gm(1,1)&
1619 : & **2*dgm01(1,3)*dgm10(2,3)+0*gm(1,1)**2*dgm01(1,2)*dgm10(3,3)&
1620 : & -3*gm(1,1)**2*gm(3,3)*d2gm(1,2)+gm(1,3)**2*(16.5d0*dgm01(1,2)&
1621 : & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)+7.5d0*gm(1,2)*d2gm(1,1)&
1622 : & +9*gm(1,1)*d2gm(1,2))-6*gm(1,1)**2*gm(2,3)*d2gm(1,3)+gm(1,3)&
1623 : & *(gm(2,3)*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,2)&
1624 : & *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+18*gm(1,1)&
1625 : & *d2gm(1,3))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,2)&
1626 : & +36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*d2gm(2,3)))&
1627 : & +gm(1,2)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))&
1628 : & +gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1629 576 : & +4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
1630 : cm(2,8)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
1631 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1632 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)&
1633 : & *dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+6*gm(1,2)&
1634 : & *gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)&
1635 : & -4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,2)&
1636 : & *dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+6*gm(1,2)&
1637 : & *gm(1,3)*dgm01(1,3)*dgm10(2,2)-9*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
1638 : & +7.5d0*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)&
1639 : & *dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-9*gm(1,1)&
1640 : & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)&
1641 : & *dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+7.5d0*gm(1,1)&
1642 : & *gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(1,2)&
1643 : & +gm(2,3)**2*(16.5d0*dgm01(1,2)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,2)&
1644 : & +1.5d0*gm(1,2)*d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+3*gm(1,2)**2*gm(1,3)&
1645 : & *d2gm(2,3)+gm(2,3)*(27*gm(1,2)*dgm01(2,3)*dgm10(1,1)+30*gm(1,2)&
1646 : & *dgm01(1,3)*dgm10(1,2)+54*gm(1,1)*dgm01(2,3)*dgm10(1,2)+30*gm(1,2)&
1647 : & *dgm01(1,2)*dgm10(1,3)+24*gm(1,1)*dgm01(2,2)*dgm10(1,3)+24*gm(1,1)&
1648 : & *dgm01(1,3)*dgm10(2,2)+27*gm(1,2)*dgm01(1,1)*dgm10(2,3)+54*gm(1,1)&
1649 : & *dgm01(1,2)*dgm10(2,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)&
1650 : & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)*d2gm(1,2))+6*gm(1,2)&
1651 : & **2*d2gm(1,3)+gm(2,2)*(36*dgm01(1,3)*dgm10(1,1)+36*dgm01(1,1)&
1652 : & *dgm10(1,3)+12*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+24*gm(1,1)&
1653 : & *gm(1,2)*d2gm(2,3))+1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(3*gm(1,2)&
1654 : & *dgm01(3,3)*dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)&
1655 : & *dgm01(1,3)*dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)&
1656 : & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)&
1657 : & *dgm01(1,2)*dgm10(3,3)-6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(-7.5d0*dgm01(1,2)&
1658 : & *dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,2)-4.5d0*gm(1,2)*d2gm(1,1)&
1659 : & -3*gm(1,1)*d2gm(1,2))+gm(1,3)*(3*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)&
1660 : & *dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)&
1661 576 : & *d2gm(1,3)-9*gm(1,1)*d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))
1662 : cm(3,8)=gm(1,1)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(2,3)&
1663 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(3,3)**2*(18*dgm01(1,2)&
1664 : & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,2)+6*gm(1,2)*d2gm(1,1)+12*gm(1,1)&
1665 : & *d2gm(1,2))+3*gm(1,3)**3*d2gm(2,3)+gm(1,3)**2*(7.5d0*dgm01(3,3)&
1666 : & *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)&
1667 : & +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+1.5d0*gm(1,2)&
1668 : & *d2gm(3,3))+gm(3,3)*(7.5d0*gm(1,2)*dgm01(3,3)*dgm10(1,1)+19.5d0*gm(1,1)&
1669 : & *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+39*gm(1,1)&
1670 : & *dgm01(2,3)*dgm10(1,3)+39*gm(1,1)*dgm01(1,3)*dgm10(2,3)+7.5d0*gm(1,2)&
1671 : & *dgm01(1,1)*dgm10(3,3)+19.5d0*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)&
1672 : & **2*d2gm(1,2)+gm(2,3)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)&
1673 : & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)&
1674 : & *(18*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)&
1675 : & *dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+15*gm(1,1)&
1676 : & *d2gm(2,3))-4.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(9*gm(1,2)&
1677 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+27*gm(1,1)*(dgm01(3,3)&
1678 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,1)&
1679 : & +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)&
1680 576 : & *d2gm(3,3)))
1681 : cm(4,8)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+27*gm(1,2)&
1682 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)&
1683 : & *dgm10(1,2)+42*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,3)&
1684 : & **2*dgm01(2,3)*dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)&
1685 : & +12*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+42*gm(1,2)*gm(3,3)&
1686 : & *dgm01(1,2)*dgm10(1,3)+18*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)&
1687 : & *gm(3,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1688 : & +21*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,1)&
1689 : & *dgm10(2,2)+18*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+30*gm(1,1)*gm(3,3)&
1690 : & *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
1691 : & +27*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+12*gm(1,3)**2*dgm01(1,2)&
1692 : & *dgm10(2,3)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)&
1693 : & *gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(2,3)&
1694 : & *dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+12*gm(1,2)&
1695 : & *gm(1,3)*dgm01(1,2)*dgm10(3,3)+21*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)&
1696 : & +12*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,1)*gm(1,2)&
1697 : & *dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)+18*gm(1,2)&
1698 : & **2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(21*dgm01(1,3)*dgm10(1,1)+21*dgm01(1,1)&
1699 : & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+18*gm(1,1)*d2gm(1,3))+6*gm(1,2)&
1700 : & *gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+3*gm(1,2)&
1701 : & **2*gm(1,3)*d2gm(3,3)+gm(2,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1702 : & +27*gm(1,1)*dgm01(3,3)*dgm10(1,2)-24*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1703 : & +42*gm(1,1)*dgm01(2,3)*dgm10(1,3)+42*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1704 : & +6*gm(1,2)*dgm01(1,1)*dgm10(3,3)+27*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1705 : & +6*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)&
1706 : & *dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)&
1707 : & *(12*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)&
1708 : & *dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)-12*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
1709 : & *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(42*gm(1,1)&
1710 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,3)**2*d2gm(1,3)&
1711 : & +gm(3,3)*(42*dgm01(1,3)*dgm10(1,1)+42*dgm01(1,1)*dgm10(1,3)+12*gm(1,3)&
1712 : & *d2gm(1,1)+30*gm(1,1)*d2gm(1,3))+gm(1,3)*(24*dgm01(3,3)*dgm10(1,1)&
1713 : & +72*dgm01(1,3)*dgm10(1,3)+24*dgm01(1,1)*dgm10(3,3)+12*gm(1,1)&
1714 576 : & *d2gm(3,3)))
1715 : cm(5,8)=36*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)&
1716 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*gm(3,3)*dgm01(1,3)&
1717 : & *dgm10(1,2)+36*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)+39*gm(1,1)&
1718 : & *gm(3,3)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)*gm(1,2)*dgm01(3,3)&
1719 : & *dgm10(1,3)+19.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,1)&
1720 : & **2*dgm01(3,3)*dgm10(2,3)+27*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
1721 : & +18*gm(1,1)**2*dgm01(2,3)*dgm10(3,3)+3*gm(1,3)**3*d2gm(1,2)+24*gm(1,1)&
1722 : & *gm(1,2)*gm(3,3)*d2gm(1,3)+12*gm(1,1)**2*gm(3,3)*d2gm(2,3)+gm(1,3)&
1723 : & **2*(7.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)&
1724 : & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+6*gm(1,1)&
1725 : & *d2gm(2,3))+gm(1,3)*(18*gm(1,1)*(dgm01(3,3)*dgm10(1,2)+dgm01(2,3)&
1726 : & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(3,3)&
1727 : & *(27*dgm01(1,2)*dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)&
1728 : & *d2gm(1,1)+15*gm(1,1)*d2gm(1,2))+gm(1,2)*(15*dgm01(3,3)*dgm10(1,1)&
1729 : & +24*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
1730 : & *d2gm(3,3)))+gm(2,3)*(1.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-9*dgm01(1,1)&
1731 : & *dgm10(1,1)-4.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(9*dgm01(1,3)*dgm10(1,1)&
1732 : & +9*dgm01(1,1)*dgm10(1,3)+6*gm(1,1)*d2gm(1,3))+gm(1,1)*(7.5d0*dgm01(3,3)&
1733 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)&
1734 576 : & +6*gm(1,1)*d2gm(3,3)))
1735 : cm(6,8)=-15*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+7.5d0*gm(1,3)&
1736 : & **2*dgm01(2,2)*dgm10(1,1)-1.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)&
1737 : & +15*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,1)+0*gm(1,2)**2*dgm01(3,3)&
1738 : & *dgm10(1,1)-15*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+6*gm(1,3)&
1739 : & **2*dgm01(1,2)*dgm10(1,2)-18*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1740 : & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(1,2)+30*gm(1,1)*gm(1,3)&
1741 : & *dgm01(2,3)*dgm10(1,2)-3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)&
1742 : & +18*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(1,3)&
1743 : & *dgm10(1,3)+24*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,1)&
1744 : & *gm(1,2)*dgm01(2,3)*dgm10(1,3)+7.5d0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)&
1745 : & -1.5d0*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+24*gm(1,1)*gm(1,3)&
1746 : & *dgm01(1,3)*dgm10(2,2)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)&
1747 : & *gm(1,3)*dgm01(1,1)*dgm10(2,3)+30*gm(1,1)*gm(1,3)*dgm01(1,2)&
1748 : & *dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)&
1749 : & **2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)&
1750 : & -3*gm(1,1)*gm(1,2)*dgm01(1,2)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)&
1751 : & *dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)&
1752 : & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+3*gm(1,2)*gm(1,3)**2*d2gm(1,2)&
1753 : & -9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,2)+6*gm(1,2)**2*gm(1,3)*d2gm(1,3)&
1754 : & +6*gm(1,1)*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(33*dgm01(1,2)&
1755 : & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1756 : & *d2gm(1,2))+gm(1,2)*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)*dgm10(1,3)&
1757 : & +6*gm(1,1)*d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)&
1758 : & *dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)&
1759 : & +12*gm(1,1)*d2gm(2,3)))+3*gm(1,1)*gm(1,2)**2*d2gm(3,3)+gm(2,2)&
1760 : & *(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
1761 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)&
1762 : & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)&
1763 : & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
1764 576 : & +6*gm(1,1)*d2gm(3,3)))
1765 : cm(7,8)=gm(1,2)*(-3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1766 : & *dgm10(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
1767 : & +gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
1768 : & +4.5d0*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)&
1769 : & +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+4.5d0*gm(2,2)&
1770 : & *d2gm(1,1)+15*gm(1,2)*d2gm(1,2))+gm(2,3)*(60*gm(1,2)*dgm01(2,3)&
1771 : & *dgm10(1,2)+18*gm(1,2)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(1,3)&
1772 : & *dgm10(2,2)-3*gm(1,1)*dgm01(2,3)*dgm10(2,2)-6*gm(1,3)*(dgm01(2,2)&
1773 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+60*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
1774 : & -3*gm(1,1)*dgm01(2,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(2,3)+gm(2,2)&
1775 : & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1776 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)-6*gm(1,3)*d2gm(1,2)+18*gm(1,2)&
1777 : & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,2)**2*(-3*dgm01(3,3)*dgm10(1,1)&
1778 : & -12*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-1.5d0*gm(3,3)&
1779 : & *d2gm(1,1)-6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3))+gm(2,2)&
1780 : & *(6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,3)*dgm10(1,3)&
1781 : & -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)*dgm01(1,3)*dgm10(2,3)&
1782 : & -6*gm(1,1)*dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)&
1783 : & -3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)*(-3*dgm01(2,2)*dgm10(1,1)&
1784 : & -6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-3*gm(1,2)*d2gm(1,2))&
1785 : & +gm(1,3)*(-12*dgm01(2,3)*dgm10(1,2)-12*dgm01(2,2)*dgm10(1,3)&
1786 : & -12*dgm01(1,3)*dgm10(2,2)-12*dgm01(1,2)*dgm10(2,3)-6*gm(1,2)&
1787 576 : & *d2gm(2,3))+4.5d0*gm(1,2)**2*d2gm(3,3))
1788 : cm(8,8)=39*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+7.5d0*gm(1,3)&
1789 : & **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
1790 : & +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+39*gm(1,3)*gm(2,2)&
1791 : & *dgm01(1,3)*dgm10(3,3)+7.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)&
1792 : & +33*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)&
1793 : & *dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)&
1794 : & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
1795 : & +6*gm(2,2)*d2gm(1,1)+12*gm(1,2)*d2gm(1,2))+7.5d0*gm(1,3)**2*gm(2,2)&
1796 : & *d2gm(3,3)+gm(2,3)**2*(0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)&
1797 : & *dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-3*gm(1,1)&
1798 : & *d2gm(3,3))+gm(3,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)&
1799 : & *dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
1800 : & *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)&
1801 : & *dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
1802 : & *dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)&
1803 : & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(2,3)&
1804 : & **2*d2gm(1,1)+24*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(-3*dgm01(2,3)&
1805 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
1806 : & -3*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)&
1807 : & -9*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(10.5d0*dgm01(3,3)&
1808 : & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
1809 : & +24*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(15*gm(1,2)&
1810 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)*(dgm01(3,3)&
1811 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)+gm(1,3)&
1812 : & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
1813 576 : & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
1814 : cm(9,8)=-9*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+54*gm(1,2)&
1815 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*gm(3,3)*dgm01(2,2)&
1816 : & *dgm10(1,3)-9*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+24*gm(1,2)&
1817 : & *gm(3,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
1818 : & -3*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)&
1819 : & *dgm10(2,2)+54*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)&
1820 : & **2*dgm01(2,2)*dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
1821 : & +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+16.5d0*gm(1,2)**2*dgm01(3,3)&
1822 : & *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+16.5d0*gm(1,2)&
1823 : & **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+15*gm(1,2)&
1824 : & **2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(-1.5d0*dgm01(2,3)*dgm10(1,1)&
1825 : & +9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)*dgm10(1,3)-1.5d0*dgm01(1,1)&
1826 : & *dgm10(2,3)+3*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-6*gm(1,1)&
1827 : & *d2gm(2,3))+gm(2,3)*(24*gm(1,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)&
1828 : & *dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
1829 : & *dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)&
1830 : & *dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
1831 : & *dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)&
1832 : & *dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
1833 : & *(7.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
1834 : & *dgm10(2,2)+7.5d0*gm(2,2)*d2gm(1,1)+24*gm(1,2)*d2gm(1,2))+18*gm(1,2)&
1835 : & *gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(3*dgm01(3,3)&
1836 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)&
1837 : & +6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)*d2gm(3,3)))+gm(2,2)*(36*gm(1,2)&
1838 : & *dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)+36*gm(1,2)&
1839 : & *dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)&
1840 : & **2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)*dgm10(1,1)+15*dgm01(1,3)&
1841 : & *dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(2,3)&
1842 : & -9*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))&
1843 : & +gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)&
1844 576 : & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
1845 : cm(10,8)=-3*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(-6*gm(1,2)&
1846 : & *dgm01(3,3)*dgm10(3,3)+33*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1847 : & *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,1)+0*dgm01(1,3)&
1848 : & *dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)*dgm10(2,3)+3*gm(2,3)&
1849 : & *d2gm(1,1)+6*gm(1,3)*d2gm(1,2)-6*gm(1,2)*d2gm(1,3)-3*gm(1,1)&
1850 : & *d2gm(2,3))+gm(1,3)**2*(16.5d0*dgm01(3,3)*dgm10(2,3)+16.5d0*dgm01(2,3)&
1851 : & *dgm10(3,3)+7.5d0*gm(2,3)*d2gm(3,3))+gm(3,3)*(-15*gm(1,2)*dgm01(3,3)&
1852 : & *dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)-15*gm(1,2)*dgm01(1,3)&
1853 : & *dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)&
1854 : & +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)&
1855 : & +4.5d0*dgm01(1,1)*dgm10(3,3)+18*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)&
1856 : & *d2gm(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+36*dgm01(2,3)*dgm10(1,3)&
1857 576 : & +36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3)))
1858 : cm(1,9)=-15*gm(1,1)*gm(2,3)*dgm01(1,2)*dgm10(1,1)-7.5d0*gm(1,1)&
1859 : & *gm(2,2)*dgm01(1,3)*dgm10(1,1)-15*gm(1,1)*gm(2,3)*dgm01(1,1)&
1860 : & *dgm10(1,2)+0*gm(1,1)**2*dgm01(2,3)*dgm10(1,2)-7.5d0*gm(1,1)&
1861 : & *gm(2,2)*dgm01(1,1)*dgm10(1,3)+0*gm(1,1)**2*dgm01(2,2)*dgm10(1,3)&
1862 : & +0*gm(1,1)**2*dgm01(1,3)*dgm10(2,2)+0*gm(1,1)**2*dgm01(1,2)*dgm10(2,3)&
1863 : & -6*gm(1,1)**2*gm(2,3)*d2gm(1,2)-3*gm(1,1)**2*gm(2,2)*d2gm(1,3)&
1864 : & +gm(1,2)**2*(16.5d0*dgm01(1,3)*dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)&
1865 : & +9*gm(1,1)*d2gm(1,3))+gm(1,3)*(7.5d0*gm(1,2)**2*d2gm(1,1)+gm(2,2)&
1866 : & *(-3*dgm01(1,1)*dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+gm(1,2)*(33*dgm01(1,2)&
1867 : & *dgm10(1,1)+33*dgm01(1,1)*dgm10(1,2)+18*gm(1,1)*d2gm(1,2))+gm(1,1)&
1868 : & *(4.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)&
1869 : & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,2)*(gm(2,3)*(-6*dgm01(1,1)&
1870 : & *dgm10(1,1)-3*gm(1,1)*d2gm(1,1))+gm(1,1)*(9*dgm01(2,3)*dgm10(1,1)&
1871 : & +36*dgm01(1,3)*dgm10(1,2)+36*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
1872 576 : & *dgm10(2,3)+6*gm(1,1)*d2gm(2,3)))
1873 : cm(2,9)=gm(1,1)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(2,3)&
1874 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(2,2)**2*(18*dgm01(1,3)&
1875 : & *dgm10(1,1)+18*dgm01(1,1)*dgm10(1,3)+6*gm(1,3)*d2gm(1,1)+12*gm(1,1)&
1876 : & *d2gm(1,3))+gm(1,2)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)&
1877 : & *dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)&
1878 : & +6*gm(2,3)*d2gm(1,2)+1.5d0*gm(1,3)*d2gm(2,2))+gm(1,2)*(9*gm(1,3)&
1879 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+27*gm(1,1)*(dgm01(2,3)&
1880 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,1)&
1881 : & +24*dgm01(1,2)*dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+12*gm(1,1)&
1882 : & *d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)*(18*gm(1,2)*dgm01(2,3)&
1883 : & *dgm10(1,1)+18*gm(1,2)*dgm01(1,3)*dgm10(1,2)+39*gm(1,1)*dgm01(2,3)&
1884 : & *dgm10(1,2)+18*gm(1,2)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)*dgm01(2,2)&
1885 : & *dgm10(1,3)+19.5d0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)&
1886 : & *dgm10(2,3)+39*gm(1,1)*dgm01(1,2)*dgm10(2,3)+gm(2,3)*(27*dgm01(1,2)&
1887 : & *dgm10(1,1)+27*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+24*gm(1,1)&
1888 : & *d2gm(1,2))+6*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(7.5d0*dgm01(2,2)&
1889 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)&
1890 : & +6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)&
1891 576 : & *d2gm(2,3))
1892 : cm(3,9)=3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+3*gm(1,2)*gm(3,3)&
1893 : & *dgm01(2,3)*dgm10(1,1)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,2)&
1894 : & -6*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)**2*dgm01(2,3)&
1895 : & *dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)+6*gm(1,2)&
1896 : & *gm(1,3)*dgm01(3,3)*dgm10(1,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)&
1897 : & -1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)+4.5d0*gm(1,1)*gm(3,3)&
1898 : & *dgm01(2,2)*dgm10(1,3)+24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(1,3)&
1899 : & -6*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)+3*gm(1,3)*gm(3,3)*dgm01(1,1)&
1900 : & *dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)+4.5d0*gm(1,1)&
1901 : & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+7.5d0*gm(1,1)*gm(1,3)*dgm01(3,3)&
1902 : & *dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)+9*gm(1,3)&
1903 : & **2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)&
1904 : & +24*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)&
1905 : & *dgm01(2,3)*dgm10(2,3)-9*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
1906 : & +6*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(1,3)&
1907 : & *dgm10(3,3)+7.5d0*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,1)&
1908 : & *gm(1,2)*dgm01(2,3)*dgm10(3,3)+6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)&
1909 : & -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(16.5d0*dgm01(1,3)&
1910 : & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+1.5d0*gm(1,3)*d2gm(1,1)&
1911 : & +15*gm(1,1)*d2gm(1,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)&
1912 : & -24*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3))-3*gm(1,1)&
1913 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)&
1914 : & +gm(3,3)*(-7.5d0*dgm01(1,3)*dgm10(1,1)-7.5d0*dgm01(1,1)*dgm10(1,3)&
1915 : & -4.5d0*gm(1,3)*d2gm(1,1)-3*gm(1,1)*d2gm(1,3)))+1.5d0*gm(1,3)&
1916 : & **3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)+3*gm(1,2)&
1917 : & *gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)+gm(2,3)&
1918 : & *(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)+24*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
1919 : & +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+54*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
1920 : & +54*gm(1,1)*dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)&
1921 : & +24*gm(1,1)*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)**2*d2gm(1,2)+gm(3,3)&
1922 : & *(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)+12*gm(1,2)&
1923 : & *d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+gm(1,3)*(27*dgm01(2,3)*dgm10(1,1)&
1924 : & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+27*dgm01(1,1)&
1925 576 : & *dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)*d2gm(2,3)))
1926 : cm(4,9)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+72*gm(1,2)&
1927 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+21*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
1928 : & +42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)&
1929 : & *dgm10(1,2)+18*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*gm(1,3)&
1930 : & *dgm01(2,2)*dgm10(1,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+24*gm(1,2)&
1931 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)+21*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
1932 : & +42*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)*gm(1,3)&
1933 : & *dgm01(1,3)*dgm10(2,2)+27*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
1934 : & +12*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,2)&
1935 : & *dgm10(2,3)+12*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)+27*gm(1,1)*gm(1,3)&
1936 : & *dgm01(2,2)*dgm10(2,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
1937 : & +18*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)&
1938 : & *dgm10(3,3)+18*gm(1,2)**2*gm(3,3)*d2gm(1,2)+gm(2,3)**2*(21*dgm01(1,2)&
1939 : & *dgm10(1,1)+21*dgm01(1,1)*dgm10(1,2)+3*gm(1,2)*d2gm(1,1)+18*gm(1,1)&
1940 : & *d2gm(1,2))+3*gm(1,2)*gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)&
1941 : & *gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)*(12*gm(1,2)&
1942 : & *dgm01(2,3)*dgm10(1,1)+0*gm(1,2)*dgm01(1,3)*dgm10(1,2)+42*gm(1,1)&
1943 : & *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*dgm01(1,2)*dgm10(1,3)+27*gm(1,1)&
1944 : & *dgm01(2,2)*dgm10(1,3)+27*gm(1,1)*dgm01(1,3)*dgm10(2,2)+12*gm(1,2)&
1945 : & *dgm01(1,1)*dgm10(2,3)+42*gm(1,1)*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)&
1946 : & **2*d2gm(1,3)+gm(2,2)*(27*dgm01(1,3)*dgm10(1,1)+27*dgm01(1,1)&
1947 : & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)&
1948 : & *(6*dgm01(2,2)*dgm10(1,1)-24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)&
1949 : & *dgm10(2,2)-12*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+6*gm(1,1)&
1950 : & *gm(1,2)*d2gm(2,3))+gm(2,2)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,1)&
1951 : & +30*gm(1,1)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)&
1952 : & +48*gm(1,1)*dgm01(2,3)*dgm10(1,3)+48*gm(1,1)*dgm01(1,3)*dgm10(2,3)&
1953 : & +12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+30*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
1954 : & +18*gm(1,3)**2*d2gm(1,2)+gm(3,3)*(42*dgm01(1,2)*dgm10(1,1)+42*dgm01(1,1)&
1955 : & *dgm10(1,2)+12*gm(1,2)*d2gm(1,1)+30*gm(1,1)*d2gm(1,2))+gm(1,3)&
1956 : & *(27*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)&
1957 : & *dgm10(1,3)+27*dgm01(1,1)*dgm10(2,3)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
1958 576 : & *d2gm(2,3)))
1959 : cm(5,9)=39*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,1)+0*gm(1,3)**2*dgm01(2,2)&
1960 : & *dgm10(1,1)+10.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+15*gm(1,2)&
1961 : & *gm(1,3)*dgm01(2,3)*dgm10(1,1)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,1)&
1962 : & +39*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,2)+12*gm(1,3)**2*dgm01(1,2)&
1963 : & *dgm10(1,2)+48*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(1,2)+18*gm(1,2)&
1964 : & *gm(1,3)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*gm(1,3)*dgm01(2,3)&
1965 : & *dgm10(1,2)+24*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,2)+18*gm(1,2)&
1966 : & *gm(1,3)*dgm01(1,2)*dgm10(1,3)+6*gm(1,2)**2*dgm01(1,3)*dgm10(1,3)&
1967 : & -3*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,1)*gm(1,2)*dgm01(2,3)&
1968 : & *dgm10(1,3)+0*gm(1,3)**2*dgm01(1,1)*dgm10(2,2)+10.5d0*gm(1,1)&
1969 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
1970 : & +6*gm(1,1)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(1,1)&
1971 : & *dgm10(2,3)+12*gm(1,1)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,1)&
1972 : & *gm(1,2)*dgm01(1,3)*dgm10(2,3)+24*gm(1,1)**2*dgm01(2,3)*dgm10(2,3)&
1973 : & +7.5d0*gm(1,2)**2*dgm01(1,1)*dgm10(3,3)+24*gm(1,1)*gm(1,2)*dgm01(1,2)&
1974 : & *dgm10(3,3)+6*gm(1,1)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)&
1975 : & **2*gm(3,3)*d2gm(1,1)+gm(2,3)**2*(-6*dgm01(1,1)*dgm10(1,1)-3*gm(1,1)&
1976 : & *d2gm(1,1))+6*gm(1,2)*gm(1,3)**2*d2gm(1,2)+24*gm(1,1)*gm(1,2)&
1977 : & *gm(3,3)*d2gm(1,2)+3*gm(1,2)**2*gm(1,3)*d2gm(1,3)+gm(2,2)*(gm(1,1)&
1978 : & *(-1.5d0*dgm01(3,3)*dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)&
1979 : & *dgm10(3,3))-3*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
1980 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(-15*dgm01(1,3)*dgm10(1,1)&
1981 : & -15*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*d2gm(1,3)))+3*gm(1,1)*gm(1,3)&
1982 : & **2*d2gm(2,2)+6*gm(1,1)**2*gm(3,3)*d2gm(2,2)+6*gm(1,1)*gm(1,2)&
1983 : & *gm(1,3)*d2gm(2,3)+gm(2,3)*(gm(1,3)*(15*dgm01(1,2)*dgm10(1,1)&
1984 : & +15*dgm01(1,1)*dgm10(1,2)+9*gm(1,2)*d2gm(1,1)+6*gm(1,1)*d2gm(1,2))&
1985 : & +gm(1,2)*(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+24*gm(1,1)&
1986 : & *d2gm(1,3))+gm(1,1)*(18*dgm01(2,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)&
1987 : & +30*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)*dgm10(2,3)+12*gm(1,1)&
1988 576 : & *d2gm(2,3)))
1989 : cm(6,9)=3*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(18*gm(1,1)*(dgm01(2,3)&
1990 : & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
1991 : & *dgm10(2,3))+gm(2,3)*(9*dgm01(1,2)*dgm10(1,1)+9*dgm01(1,1)*dgm10(1,2)&
1992 : & +6*gm(1,1)*d2gm(1,2))+gm(1,3)*(15*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)&
1993 : & *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+gm(1,1)&
1994 : & *(27*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+18*gm(1,1)&
1995 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(7.5d0*dgm01(2,2)&
1996 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)*dgm10(2,2)&
1997 : & +6*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(7.5d0*dgm01(2,3)*dgm10(1,1)&
1998 : & +15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)&
1999 : & *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(1,1)+6*gm(1,3)*d2gm(1,2)+6*gm(1,1)&
2000 : & *d2gm(2,3))+gm(2,2)*(27*gm(1,2)*dgm01(1,3)*dgm10(1,1)+19.5d0*gm(1,1)&
2001 : & *dgm01(2,3)*dgm10(1,1)+39*gm(1,1)*dgm01(1,3)*dgm10(1,2)+27*gm(1,2)&
2002 : & *dgm01(1,1)*dgm10(1,3)+39*gm(1,1)*dgm01(1,2)*dgm10(1,3)+19.5d0*gm(1,1)&
2003 : & *dgm01(1,1)*dgm10(2,3)+gm(2,3)*(-9*dgm01(1,1)*dgm10(1,1)-4.5d0*gm(1,1)&
2004 : & *d2gm(1,1))+gm(1,3)*(36*dgm01(1,2)*dgm10(1,1)+36*dgm01(1,1)*dgm10(1,2)&
2005 : & +12*gm(1,2)*d2gm(1,1)+24*gm(1,1)*d2gm(1,2))+15*gm(1,1)*gm(1,2)&
2006 576 : & *d2gm(1,3)+12*gm(1,1)**2*d2gm(2,3))
2007 : cm(7,9)=-3*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(-6*gm(1,3)&
2008 : & *dgm01(2,2)*dgm10(2,2)+33*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2009 : & *dgm10(2,2)))+gm(1,2)**2*(16.5d0*dgm01(2,3)*dgm10(2,2)+16.5d0*dgm01(2,2)&
2010 : & *dgm10(2,3)+7.5d0*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(0*dgm01(2,3)&
2011 : & *dgm10(1,1)+0*dgm01(1,3)*dgm10(1,2)+0*dgm01(1,2)*dgm10(1,3)+0*dgm01(1,1)&
2012 : & *dgm10(2,3)+3*gm(2,3)*d2gm(1,1)-6*gm(1,3)*d2gm(1,2)+6*gm(1,2)&
2013 : & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3))+gm(2,2)*(36*gm(1,2)*dgm01(2,3)&
2014 : & *dgm10(1,2)+9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)&
2015 : & *dgm10(2,2)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)+36*gm(1,2)*dgm01(1,2)&
2016 : & *dgm10(2,3)-7.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)*(4.5d0*dgm01(2,2)&
2017 : & *dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)&
2018 : & +18*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(-15*dgm01(2,2)&
2019 : & *dgm10(1,2)-15*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*d2gm(2,2))+9*gm(1,2)&
2020 576 : & **2*d2gm(2,3))
2021 : cm(8,9)=36*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)*gm(3,3)&
2022 : & *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2023 : & +36*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)*gm(3,3)*dgm01(1,3)&
2024 : & *dgm10(2,2)+16.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-7.5d0*gm(1,1)&
2025 : & *gm(3,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*gm(1,3)*dgm01(3,3)&
2026 : & *dgm10(2,2)-6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+16.5d0*gm(1,3)&
2027 : & **2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
2028 : & +36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)&
2029 : & *dgm10(2,3)+12*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)&
2030 : & **2*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)**3*d2gm(1,1)+12*gm(1,2)&
2031 : & *gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)&
2032 : & **2*(-1.5d0*dgm01(2,3)*dgm10(1,1)+9*dgm01(1,3)*dgm10(1,2)+9*dgm01(1,2)&
2033 : & *dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+3*gm(1,2)&
2034 : & *d2gm(1,3)-6*gm(1,1)*d2gm(2,3))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)&
2035 : & *dgm10(1,2)+6*gm(1,2)*dgm01(3,3)*dgm10(1,2)+27*gm(1,3)*dgm01(2,2)&
2036 : & *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+27*gm(1,3)*dgm01(1,3)&
2037 : & *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(1,2)&
2038 : & *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)&
2039 : & *dgm10(2,3)+6*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
2040 : & *dgm10(3,3)+gm(2,2)*(7.5d0*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)&
2041 : & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)*d2gm(1,3))&
2042 : & +1.5d0*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(3*dgm01(2,2)*dgm10(1,1)&
2043 : & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)+7.5d0*gm(2,2)&
2044 : & *d2gm(1,1)+6*gm(1,2)*d2gm(1,2)-4.5d0*gm(1,1)*d2gm(2,2))+18*gm(1,2)&
2045 : & *gm(1,3)*d2gm(2,3))+gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
2046 : & -3*gm(1,1)*dgm01(3,3)*dgm10(2,3)-9*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
2047 : & -3*gm(1,1)*dgm01(2,3)*dgm10(3,3)+gm(1,3)*(24*dgm01(3,3)*dgm10(1,2)&
2048 : & +54*dgm01(2,3)*dgm10(1,3)+54*dgm01(1,3)*dgm10(2,3)+24*dgm01(1,2)&
2049 : & *dgm10(3,3))+15*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(4.5d0*dgm01(2,3)&
2050 : & *dgm10(1,1)+15*dgm01(1,3)*dgm10(1,2)+15*dgm01(1,2)*dgm10(1,3)&
2051 : & +4.5d0*dgm01(1,1)*dgm10(2,3)+24*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)&
2052 576 : & -3*gm(1,1)*d2gm(2,3)))
2053 : cm(9,9)=39*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+39*gm(1,2)&
2054 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2055 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)&
2056 : & *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)&
2057 : & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
2058 : & +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(6*dgm01(3,3)&
2059 : & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)&
2060 : & +6*gm(3,3)*d2gm(1,1)+12*gm(1,3)*d2gm(1,3))+7.5d0*gm(1,2)**2*gm(3,3)&
2061 : & *d2gm(2,2)+gm(2,3)**2*(0*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2062 : & *dgm10(1,2)+0*dgm01(1,1)*dgm10(2,2)+3*gm(2,2)*d2gm(1,1)+6*gm(1,2)&
2063 : & *d2gm(1,2)-3*gm(1,1)*d2gm(2,2))+gm(2,3)*(18*gm(1,2)*dgm01(2,3)&
2064 : & *dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)&
2065 : & *dgm10(2,2)-15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)&
2066 : & *dgm10(2,3)-15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(1,3)*(15*dgm01(2,2)&
2067 : & *dgm10(1,2)+15*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2))+3*gm(1,2)&
2068 : & **2*d2gm(2,3)+gm(2,2)*(-3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
2069 : & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)&
2070 : & +6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3)))&
2071 : & +gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+30*gm(1,2)*dgm01(2,3)&
2072 : & *dgm10(1,3)-1.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,3)&
2073 : & *dgm10(2,3)-18*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)&
2074 : & *dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)**2*d2gm(2,2)&
2075 : & +gm(3,3)*(10.5d0*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)&
2076 : & +10.5d0*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
2077 : & *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)&
2078 : & +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)&
2079 576 : & *d2gm(2,3)))
2080 : cm(10,9)=gm(1,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2081 : & *dgm10(3,3))+gm(1,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)&
2082 : & *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)&
2083 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)&
2084 : & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)&
2085 : & +15*gm(1,3)*d2gm(1,3))+gm(3,3)**2*(-3*dgm01(2,2)*dgm10(1,1)-12*dgm01(1,2)&
2086 : & *dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(2,2)*d2gm(1,1)-6*gm(1,2)&
2087 : & *d2gm(1,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(gm(1,3)*(18*dgm01(3,3)&
2088 : & *dgm10(1,2)+60*dgm01(2,3)*dgm10(1,3)+60*dgm01(1,3)*dgm10(2,3)&
2089 : & +18*dgm01(1,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2090 : & *dgm10(3,3))-3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
2091 : & +15*gm(1,3)**2*d2gm(2,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
2092 : & -12*gm(1,2)*dgm01(3,3)*dgm10(1,2)+6*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
2093 : & -12*gm(1,2)*dgm01(2,3)*dgm10(1,3)+6*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
2094 : & -3*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
2095 : & -12*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
2096 : & -12*gm(1,2)*dgm01(1,2)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
2097 : & +4.5d0*gm(2,3)**2*d2gm(1,1)+gm(2,2)*(-3*dgm01(3,3)*dgm10(1,1)&
2098 : & -6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3)-3*gm(1,3)*d2gm(1,3))&
2099 : & +4.5d0*gm(1,3)**2*d2gm(2,2)-6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)&
2100 : & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
2101 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)-6*gm(1,2)&
2102 576 : & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))
2103 : cm(1,10)=-7.5d0*gm(1,1)*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2104 : & *dgm10(1,3))+2.5d0*gm(1,3)**3*d2gm(1,1)+gm(1,3)**2*(16.5d0*dgm01(1,3)&
2105 : & *dgm10(1,1)+16.5d0*dgm01(1,1)*dgm10(1,3)+9*gm(1,1)*d2gm(1,3))&
2106 : & +gm(1,1)**2*(0*dgm01(3,3)*dgm10(1,3)+0*dgm01(1,3)*dgm10(3,3)&
2107 : & -3*gm(3,3)*d2gm(1,3))+gm(1,3)*(gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
2108 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,1)*(4.5d0*dgm01(3,3)*dgm10(1,1)&
2109 : & +36*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)&
2110 576 : & *d2gm(3,3)))
2111 : cm(2,10)=-1.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-3*gm(1,2)&
2112 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,2)*gm(3,3)*dgm01(1,3)&
2113 : & *dgm10(1,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)-12*gm(1,2)&
2114 : & *gm(3,3)*dgm01(1,2)*dgm10(1,3)-6*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
2115 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*gm(1,3)*dgm01(2,3)&
2116 : & *dgm10(1,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,3)&
2117 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-6*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)&
2118 : & -3*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,1)*gm(1,3)&
2119 : & *dgm01(3,3)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,3)&
2120 : & +18*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,1)*gm(1,2)&
2121 : & *dgm01(3,3)*dgm10(2,3)+3*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)&
2122 : & -4.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*gm(1,3)&
2123 : & *dgm01(2,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2124 : & -6*gm(1,2)**2*gm(3,3)*d2gm(1,3)+gm(2,3)**2*(22.5d0*dgm01(1,3)&
2125 : & *dgm10(1,1)+22.5d0*dgm01(1,1)*dgm10(1,3)+7.5d0*gm(1,3)*d2gm(1,1)&
2126 : & +15*gm(1,1)*d2gm(1,3))+1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)&
2127 : & *(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
2128 : & +36*gm(1,2)*dgm01(1,3)*dgm10(1,3)+30*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
2129 : & +30*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)*dgm10(3,3)&
2130 : & +12*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
2131 : & +dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)*(15*dgm01(2,3)&
2132 : & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
2133 : & +15*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)&
2134 : & *d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2135 : & *dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)+gm(3,3)*(-4.5d0*dgm01(1,3)&
2136 : & *dgm10(1,1)-4.5d0*dgm01(1,1)*dgm10(1,3)-1.5d0*gm(1,3)*d2gm(1,1)&
2137 : & -3*gm(1,1)*d2gm(1,3))+gm(1,3)*(-6*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)&
2138 576 : & *dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3)))
2139 : cm(3,10)=gm(3,3)**2*(15*dgm01(1,3)*dgm10(1,1)+15*dgm01(1,1)&
2140 : & *dgm10(1,3)+3*gm(1,3)*d2gm(1,1)+12*gm(1,1)*d2gm(1,3))+gm(1,3)&
2141 : & *(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(1,3)*(dgm01(3,3)&
2142 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+1.5d0*gm(1,3)**2*d2gm(3,3))&
2143 : & +gm(3,3)*(31.5d0*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2144 : & +6*gm(1,3)**2*d2gm(1,3)+gm(1,3)*(13.5d0*dgm01(3,3)*dgm10(1,1)&
2145 : & +24*dgm01(1,3)*dgm10(1,3)+13.5d0*dgm01(1,1)*dgm10(3,3)+7.5d0*gm(1,1)&
2146 576 : & *d2gm(3,3)))
2147 : cm(4,10)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(2,3)&
2148 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)&
2149 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,3)&
2150 : & **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
2151 : & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(2,3)*d2gm(1,3)+3*gm(1,2)&
2152 : & *d2gm(3,3))+gm(3,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(1,1)+12*gm(1,1)&
2153 : & *dgm01(3,3)*dgm10(1,2)+12*gm(1,2)*dgm01(1,3)*dgm10(1,3)+24*gm(1,1)&
2154 : & *dgm01(2,3)*dgm10(1,3)+24*gm(1,1)*dgm01(1,3)*dgm10(2,3)+6*gm(1,2)&
2155 : & *dgm01(1,1)*dgm10(3,3)+12*gm(1,1)*dgm01(1,2)*dgm10(3,3)+gm(2,3)&
2156 : & *(33*dgm01(1,3)*dgm10(1,1)+33*dgm01(1,1)*dgm10(1,3)+9*gm(1,3)&
2157 : & *d2gm(1,1)+24*gm(1,1)*d2gm(1,3))+gm(1,3)*(9*dgm01(2,3)*dgm10(1,1)&
2158 : & +6*dgm01(1,3)*dgm10(1,2)+6*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
2159 : & *dgm10(2,3)+6*gm(1,2)*d2gm(1,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))&
2160 : & +gm(1,3)*(12*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
2161 : & +3*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)&
2162 : & *(12*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2163 576 : & *dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
2164 : cm(5,10)=12*gm(1,1)**2*dgm01(3,3)*dgm10(3,3)+21*gm(1,1)*gm(1,3)&
2165 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(1,1)&
2166 : & *dgm10(1,1)-1.5d0*gm(1,1)*d2gm(1,1))+3*gm(1,3)**3*d2gm(1,3)+gm(1,3)&
2167 : & **2*(7.5d0*dgm01(3,3)*dgm10(1,1)+18*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
2168 : & *dgm10(3,3)+3*gm(1,1)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)**2*d2gm(1,1)&
2169 : & +gm(1,3)*(24*dgm01(1,3)*dgm10(1,1)+24*dgm01(1,1)*dgm10(1,3)+15*gm(1,1)&
2170 : & *d2gm(1,3))+gm(1,1)*(9*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)&
2171 576 : & +9*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)*d2gm(3,3)))
2172 : cm(6,10)=-12*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,1)-1.5d0*gm(1,1)&
2173 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)-9*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(1,2)&
2174 : & -12*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(1,3)-9*gm(1,1)*gm(3,3)*dgm01(1,2)&
2175 : & *dgm10(1,3)-6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(1,3)-1.5d0*gm(1,1)&
2176 : & *gm(3,3)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)**2*dgm01(3,3)*dgm10(2,3)&
2177 : & -6*gm(1,1)*gm(1,2)*dgm01(1,3)*dgm10(3,3)+6*gm(1,1)**2*dgm01(2,3)&
2178 : & *dgm10(3,3)-9*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(1,3)+gm(1,3)**2*(7.5d0*dgm01(2,3)&
2179 : & *dgm10(1,1)+3*dgm01(1,3)*dgm10(1,2)+3*dgm01(1,2)*dgm10(1,3)+7.5d0*dgm01(1,1)&
2180 : & *dgm10(2,3)+3*gm(1,2)*d2gm(1,3))+gm(1,3)*(gm(1,1)*(3*dgm01(3,3)&
2181 : & *dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)&
2182 : & +3*dgm01(1,2)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2183 : & *dgm10(1,2)+gm(1,2)*d2gm(1,1))+gm(1,2)*(0*dgm01(3,3)*dgm10(1,1)&
2184 : & +12*dgm01(1,3)*dgm10(1,3)+0*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))&
2185 : & +gm(2,3)*(7.5d0*gm(1,3)**2*d2gm(1,1)+gm(3,3)*(-3*dgm01(1,1)*dgm10(1,1)&
2186 : & -1.5d0*gm(1,1)*d2gm(1,1))+gm(1,3)*(39*dgm01(1,3)*dgm10(1,1)+39*dgm01(1,1)&
2187 : & *dgm10(1,3)+24*gm(1,1)*d2gm(1,3))+gm(1,1)*(10.5d0*dgm01(3,3)&
2188 : & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+10.5d0*dgm01(1,1)*dgm10(3,3)&
2189 576 : & +6*gm(1,1)*d2gm(3,3)))
2190 : cm(7,10)=((270*gm(2,3)**2*dgm01(2,3)-54*gm(2,2)*gm(3,3)*dgm01(2,3)&
2191 : & -54*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,1)&
2192 : & +6*(90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)&
2193 : & *(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)*dgm01(2,3))&
2194 : & +gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)-18*gm(1,2)&
2195 : & *dgm01(3,3)))*dgm10(1,3)+3*dgm01(3,3)*(-18*gm(1,1)*gm(2,3)*dgm10(2,2)&
2196 : & +gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))+90*gm(1,2)&
2197 : & **2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)*dgm10(1,2)&
2198 : & -36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+3*(-18*gm(1,1)&
2199 : & *gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)*dgm01(1,2)-36*gm(1,3)&
2200 : & *dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(-18*gm(2,3)*dgm01(1,1)&
2201 : & -36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)-18*gm(1,1)*dgm01(2,3)))&
2202 : & *dgm10(3,3)+6*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,2)-18*gm(1,2)&
2203 : & *gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)-36*gm(1,3)&
2204 : & *dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)*dgm10(1,2)&
2205 : & -36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+dgm01(1,1)*(270*gm(2,3)&
2206 : & **2*dgm10(2,3)-54*gm(2,2)*gm(3,3)*dgm10(2,3)-54*gm(2,3)*(gm(3,3)&
2207 : & *dgm10(2,2)+gm(2,2)*dgm10(3,3)))+(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
2208 : & *gm(3,3))*d2gm(1,1)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
2209 : & **2-18*gm(2,2)*gm(3,3)))*d2gm(1,3)+3*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
2210 576 : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*d2gm(3,3))/36.d0
2211 : cm(8,10)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)&
2212 : & *dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2213 : & *dgm10(3,3)))+gm(3,3)**2*(3*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)&
2214 : & *dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+3*dgm01(1,1)*dgm10(2,3)&
2215 : & +3*gm(2,3)*d2gm(1,1)+12*gm(1,2)*d2gm(1,3))+1.5d0*gm(1,3)**2*(dgm01(3,3)&
2216 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3))+gm(3,3)&
2217 : & *(36*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
2218 : & +36*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
2219 : & +gm(2,3)*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2220 : & +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-4.5d0*gm(1,1)&
2221 : & *d2gm(3,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
2222 : & +6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)&
2223 576 : & *d2gm(3,3)))
2224 : cm(9,10)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)-3*gm(1,3)&
2225 : & **2*dgm01(3,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)&
2226 : & -15*gm(1,3)*gm(2,2)*dgm01(1,3)*dgm10(3,3)-3*gm(1,3)**2*dgm01(2,2)&
2227 : & *dgm10(3,3)+9*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)&
2228 : & **2*dgm01(3,3)*dgm10(3,3)-3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
2229 : & -1.5d0*gm(3,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
2230 : & +gm(2,2)*d2gm(1,1))-3*gm(1,3)**2*gm(2,2)*d2gm(3,3)+gm(2,3)**2*(1.5d0*dgm01(3,3)&
2231 : & *dgm10(1,1)+6*dgm01(1,3)*dgm10(1,3)+1.5d0*dgm01(1,1)*dgm10(3,3)&
2232 : & +3*gm(1,3)*d2gm(1,3)-3*gm(1,1)*d2gm(3,3))+gm(3,3)*(15*gm(1,2)&
2233 : & *dgm01(3,3)*dgm10(1,2)-9*gm(1,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)&
2234 : & *dgm01(2,3)*dgm10(1,3)-9*gm(1,3)*dgm01(1,3)*dgm10(2,2)-1.5d0*gm(1,1)&
2235 : & *dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+15*gm(1,2)&
2236 : & *dgm01(1,2)*dgm10(3,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+4.5d0*gm(2,3)&
2237 : & **2*d2gm(1,1)+gm(2,3)*(9*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)&
2238 : & *dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)*dgm10(2,3)&
2239 : & +24*gm(1,2)*d2gm(1,3))+7.5d0*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-4.5d0*dgm01(3,3)&
2240 : & *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-4.5d0*dgm01(1,1)*dgm10(3,3)&
2241 : & -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)&
2242 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,1)*(dgm01(3,3)&
2243 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)&
2244 : & +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)&
2245 576 : & *dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
2246 : cm(10,10)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(1,1)&
2247 : & +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2248 : & +1.5d0*dgm01(1,1)*dgm10(3,3)+6*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)&
2249 : & *d2gm(3,3))+gm(3,3)*(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)&
2250 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)&
2251 576 : & **2*d2gm(3,3))
2252 : cm(1,11)=5*gm(1,2)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(2,2)&
2253 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))-3*gm(2,2)*(dgm01(1,2)*dgm10(1,1)&
2254 : & +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2)))+gm(1,2)**2*(4.5d0*dgm01(2,2)&
2255 : & *dgm10(1,1)+30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)&
2256 : & +4.5d0*gm(1,1)*d2gm(2,2))+gm(1,1)*(-3*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
2257 : & +gm(2,2)*(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
2258 576 : & *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2)))
2259 : cm(2,11)=6*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,1)&
2260 : & *dgm01(2,2)*dgm10(2,2)+18*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2261 : & *dgm10(2,2))+3*gm(1,2)**2*d2gm(2,2))+gm(2,2)**2*(6*dgm01(2,2)&
2262 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+6*(dgm01(1,1)*dgm10(2,2)&
2263 576 : & +gm(1,2)*d2gm(1,2)+gm(1,1)*d2gm(2,2)))
2264 : cm(3,11)=(-108*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-108*gm(1,2)&
2265 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-72*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2266 : & -36*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+108*gm(1,2)*gm(1,3)&
2267 : & *dgm01(2,3)*dgm10(2,2)-36*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+108*gm(1,2)&
2268 : & *gm(1,3)*dgm01(2,2)*dgm10(2,3)-36*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)&
2269 : & -36*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)**2*(90*dgm01(2,2)*dgm10(1,1)&
2270 : & +360*dgm01(1,2)*dgm10(1,2)+90*dgm01(1,1)*dgm10(2,2)+180*gm(1,2)&
2271 : & *d2gm(1,2)+90*gm(1,1)*d2gm(2,2))+gm(2,2)*(-36*gm(1,2)*dgm01(3,3)&
2272 : & *dgm10(1,2)-18*gm(1,1)*dgm01(3,3)*dgm10(2,2)-72*gm(1,3)*(dgm01(2,3)&
2273 : & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
2274 : & *dgm10(2,3))-36*gm(1,2)*dgm01(1,2)*dgm10(3,3)-18*gm(1,1)*dgm01(2,2)&
2275 : & *dgm10(3,3)-36*gm(1,3)**2*d2gm(2,2)+gm(3,3)*(-18*dgm01(2,2)*dgm10(1,1)&
2276 : & -72*dgm01(1,2)*dgm10(1,2)-18*dgm01(1,1)*dgm10(2,2)-36*gm(1,2)&
2277 : & *d2gm(1,2)-18*gm(1,1)*d2gm(2,2)))+gm(2,3)*(360*gm(1,2)*dgm01(2,3)&
2278 : & *dgm10(1,2)+108*gm(1,2)*dgm01(2,2)*dgm10(1,3)+108*gm(1,2)*dgm01(1,3)&
2279 : & *dgm10(2,2)+180*gm(1,1)*dgm01(2,3)*dgm10(2,2)+360*gm(1,2)*dgm01(1,2)&
2280 : & *dgm10(2,3)+180*gm(1,1)*dgm01(2,2)*dgm10(2,3)-72*gm(2,2)*(dgm01(1,3)&
2281 : & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,3)*d2gm(1,2))+gm(1,3)&
2282 : & *(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)*dgm10(2,2)+108*gm(1,2)&
2283 576 : & *d2gm(2,2))))/12.d0
2284 : cm(4,11)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)&
2285 : & *dgm01(2,2)*dgm10(2,2)+24*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2286 : & *dgm10(2,2)))-6*gm(2,2)**2*(dgm01(1,3)*dgm10(1,2)+dgm01(1,2)&
2287 : & *dgm10(1,3)+gm(1,3)*d2gm(1,2))+3*gm(1,2)**2*(dgm01(2,3)*dgm10(2,2)&
2288 : & +dgm01(2,2)*dgm10(2,3)+gm(2,3)*d2gm(2,2))+gm(2,2)*(18*gm(1,2)&
2289 : & *dgm01(2,3)*dgm10(1,2)+3*gm(1,2)*dgm01(2,2)*dgm10(1,3)+3*gm(1,2)&
2290 : & *dgm01(1,3)*dgm10(2,2)+12*gm(1,1)*dgm01(2,3)*dgm10(2,2)+18*gm(1,2)&
2291 : & *dgm01(1,2)*dgm10(2,3)+12*gm(1,1)*dgm01(2,2)*dgm10(2,3)+gm(2,3)&
2292 : & *(12*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
2293 : & *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)&
2294 : & *(-9*dgm01(2,2)*dgm10(1,2)-9*dgm01(1,2)*dgm10(2,2)+3*gm(1,2)&
2295 576 : & *d2gm(2,2)))
2296 : cm(5,11)=(gm(1,1)*(-108*gm(1,3)*dgm01(2,2)*dgm10(2,2)+108*gm(2,3)&
2297 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))+gm(1,2)**2*(180*dgm01(2,3)&
2298 : & *dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)&
2299 : & +180*dgm01(1,2)*dgm10(2,3)+180*gm(2,3)*d2gm(1,2)+18*gm(1,3)*d2gm(2,2))&
2300 : & +gm(2,2)*(-72*gm(1,2)*dgm01(1,3)*dgm10(1,2)-36*gm(1,1)*dgm01(2,3)&
2301 : & *dgm10(1,2)-72*gm(1,2)*dgm01(1,2)*dgm10(1,3)-54*gm(1,1)*dgm01(2,2)&
2302 : & *dgm10(1,3)-54*gm(1,1)*dgm01(1,3)*dgm10(2,2)-36*gm(1,1)*dgm01(1,2)&
2303 : & *dgm10(2,3)-36*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2304 : & +gm(1,1)*d2gm(1,2))+gm(1,3)*(-54*dgm01(2,2)*dgm10(1,1)-144*dgm01(1,2)&
2305 : & *dgm10(1,2)-54*dgm01(1,1)*dgm10(2,2)-72*gm(1,2)*d2gm(1,2)-54*gm(1,1)&
2306 : & *d2gm(2,2)))+gm(1,2)*(-36*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2307 : & *dgm10(2,2))+144*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2308 : & +gm(2,3)*(144*dgm01(2,2)*dgm10(1,1)+720*dgm01(1,2)*dgm10(1,2)&
2309 576 : & +144*dgm01(1,1)*dgm10(2,2)+144*gm(1,1)*d2gm(2,2))))/12.d0
2310 : cm(6,11)=-3*gm(2,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2311 : & +gm(1,1)*d2gm(1,2))+gm(1,2)*(15*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
2312 : & +13.5d0*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
2313 : & +1.5d0*gm(1,2)**2*d2gm(2,2))+gm(2,2)*(1.5d0*gm(1,1)*(dgm01(2,2)&
2314 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+9*gm(1,2)**2*d2gm(1,2)+gm(1,2)&
2315 : & *(7.5d0*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
2316 576 : & *dgm10(2,2)+7.5d0*gm(1,1)*d2gm(2,2)))
2317 : cm(7,11)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
2318 : & **2*d2gm(1,2)+gm(2,2)*(9*dgm01(2,2)*dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)&
2319 576 : & +3*gm(1,2)*d2gm(2,2)))
2320 : cm(8,11)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)&
2321 : & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(3,3)*d2gm(1,2))&
2322 : & +gm(2,3)**2*(10.5d0*dgm01(2,2)*dgm10(1,2)+10.5d0*dgm01(1,2)*dgm10(2,2)&
2323 : & +9*gm(2,2)*d2gm(1,2)+1.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(12*gm(1,3)&
2324 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))-4.5d0*gm(1,2)&
2325 : & *(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-10.5d0*dgm01(2,2)&
2326 : & *dgm10(1,2)-10.5d0*dgm01(1,2)*dgm10(2,2)-4.5d0*gm(1,2)*d2gm(2,2)))&
2327 : & +gm(2,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)&
2328 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)&
2329 : & +12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)&
2330 576 : & *dgm10(2,3)+12*gm(1,3)*d2gm(2,2)))
2331 : cm(9,11)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)**2*(dgm01(2,3)&
2332 : & *dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)&
2333 : & *dgm10(2,3)+gm(2,3)*d2gm(1,2)+gm(1,3)*d2gm(2,2))+gm(2,2)*(24*gm(1,3)&
2334 : & *dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2335 : & *dgm10(2,3))+gm(2,3)*(15*dgm01(2,2)*dgm10(1,2)+15*dgm01(1,2)&
2336 576 : & *dgm10(2,2)+3*gm(1,2)*d2gm(2,2)))
2337 : cm(10,11)=(-108*gm(3,3)*(gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)&
2338 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+180*gm(2,3)**3*d2gm(1,2)&
2339 : & +gm(2,3)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)*dgm10(1,3)&
2340 : & +270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3)+270*gm(1,3)&
2341 : & *d2gm(2,2))+gm(2,3)*(540*gm(1,3)*dgm01(2,3)*dgm10(2,2)-108*gm(1,2)&
2342 : & *dgm01(3,3)*dgm10(2,2)+540*gm(1,3)*dgm01(2,2)*dgm10(2,3)-108*gm(1,2)&
2343 : & *dgm01(2,2)*dgm10(3,3)-108*gm(2,2)*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)&
2344 : & *dgm10(3,3))+gm(3,3)*(-216*dgm01(2,2)*dgm10(1,2)-216*dgm01(1,2)&
2345 : & *dgm10(2,2)-108*gm(2,2)*d2gm(1,2)-108*gm(1,2)*d2gm(2,2)))+gm(2,2)&
2346 : & *(-54*gm(1,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)&
2347 : & *(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)-54*dgm01(1,3)&
2348 : & *dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)-54*gm(1,3)*d2gm(2,2))))&
2349 576 : & /36.d0
2350 : cm(1,12)=gm(1,2)*(gm(1,1)*(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2351 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3))&
2352 : & -3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
2353 : & *d2gm(1,2))-6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
2354 : & +gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(2,2)*dgm10(1,1)&
2355 : & +30*dgm01(1,2)*dgm10(1,2)+4.5d0*dgm01(1,1)*dgm10(2,2)+15*gm(1,2)&
2356 : & *d2gm(1,2)+4.5d0*gm(1,1)*d2gm(2,2))+gm(1,3)*(18*gm(1,2)*dgm01(2,3)&
2357 : & *dgm10(1,1)+60*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)&
2358 : & *dgm10(1,2)+60*gm(1,2)*dgm01(1,2)*dgm10(1,3)+6*gm(1,1)*dgm01(2,2)&
2359 : & *dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,1)&
2360 : & *dgm10(2,3)+12*gm(1,1)*dgm01(1,2)*dgm10(2,3)-6*gm(2,3)*(dgm01(1,2)&
2361 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+15*gm(1,2)&
2362 : & **2*d2gm(1,3)-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
2363 : & +gm(1,1)*d2gm(1,3))+18*gm(1,1)*gm(1,2)*d2gm(2,3))+gm(1,1)*(-3*gm(2,2)&
2364 : & *dgm01(3,3)*dgm10(1,1)-6*gm(2,2)*dgm01(1,3)*dgm10(1,3)-3*gm(1,1)&
2365 : & *dgm01(3,3)*dgm10(2,2)-12*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(2,2)&
2366 : & *dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
2367 : & *(-3*dgm01(2,2)*dgm10(1,1)-6*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)&
2368 : & *dgm10(2,2)-1.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)*(-12*dgm01(2,3)&
2369 : & *dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)&
2370 : & -12*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*d2gm(2,3))-1.5d0*gm(1,1)&
2371 : & *gm(2,2)*d2gm(3,3))+gm(1,2)**2*(4.5d0*dgm01(3,3)*dgm10(1,1)+30*dgm01(1,3)&
2372 576 : & *dgm10(1,3)+4.5d0*(dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))
2373 : cm(2,12)=-15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-15*gm(1,2)&
2374 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2375 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*gm(1,3)*dgm01(2,3)&
2376 : & *dgm10(2,2)+0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,2)*gm(1,3)&
2377 : & *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)&
2378 : & **2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)&
2379 : & **2*(7.5d0*dgm01(2,2)*dgm10(1,1)+6*dgm01(1,2)*dgm10(1,2)+7.5d0*dgm01(1,1)&
2380 : & *dgm10(2,2)+3*gm(1,2)*d2gm(1,2)+7.5d0*gm(1,1)*d2gm(2,2))+gm(2,3)&
2381 : & *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
2382 : & +15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+39*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
2383 : & +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+39*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
2384 : & +gm(1,3)*(33*dgm01(2,2)*dgm10(1,2)+33*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)&
2385 : & *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)&
2386 : & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)&
2387 : & *dgm10(2,3)+24*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2388 : & *d2gm(2,3)))+gm(2,2)**2*(6*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)&
2389 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(3,3)+12*gm(1,3)*d2gm(1,3)+6*gm(1,1)&
2390 : & *d2gm(3,3))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+12*gm(1,2)&
2391 : & *dgm01(2,3)*dgm10(1,3)+10.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+12*gm(1,2)&
2392 : & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)&
2393 : & *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)&
2394 : & **2*d2gm(2,2)+gm(3,3)*(-1.5d0*dgm01(2,2)*dgm10(1,1)-18*dgm01(1,2)&
2395 : & *dgm10(1,2)-1.5d0*dgm01(1,1)*dgm10(2,2)-9*gm(1,2)*d2gm(1,2)-1.5d0*gm(1,1)&
2396 : & *d2gm(2,2))+gm(1,3)*(30*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)*dgm10(1,3)&
2397 : & +18*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)&
2398 576 : & *d2gm(2,3))+3*gm(1,2)**2*d2gm(3,3))
2399 : cm(3,12)=-15*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+0*gm(1,3)&
2400 : & **2*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
2401 : & +15*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-15*gm(1,3)*gm(2,2)&
2402 : & *dgm01(1,3)*dgm10(3,3)+0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+15*gm(1,2)&
2403 : & *gm(1,3)*dgm01(2,3)*dgm10(3,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)&
2404 : & -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)**2*(6*dgm01(2,2)&
2405 : & *dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)*dgm10(2,2)&
2406 : & +12*gm(1,2)*d2gm(1,2)+6*gm(1,1)*d2gm(2,2))-3*gm(1,3)**2*gm(2,2)&
2407 : & *d2gm(3,3)+gm(2,3)**2*(7.5d0*dgm01(3,3)*dgm10(1,1)+6*dgm01(1,3)&
2408 : & *dgm10(1,3)+7.5d0*dgm01(1,1)*dgm10(3,3)+3*gm(1,3)*d2gm(1,3)+7.5d0*gm(1,1)&
2409 : & *d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(1,2)+18*gm(1,2)&
2410 : & *dgm01(3,3)*dgm10(1,2)-3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)&
2411 : & *dgm01(2,3)*dgm10(1,3)-3*gm(1,3)*dgm01(1,3)*dgm10(2,2)+10.5d0*gm(1,1)&
2412 : & *dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(1,2)*dgm10(2,3)+30*gm(1,2)&
2413 : & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+18*gm(1,2)&
2414 : & *dgm01(1,2)*dgm10(3,3)+10.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)&
2415 : & **2*d2gm(2,2)+6*gm(1,2)*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*dgm01(2,3)&
2416 : & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)&
2417 : & +24*dgm01(1,1)*dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)&
2418 : & +24*gm(1,1)*d2gm(2,3))-3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(-1.5d0*dgm01(3,3)&
2419 : & *dgm10(1,1)-18*dgm01(1,3)*dgm10(1,3)-1.5d0*dgm01(1,1)*dgm10(3,3)&
2420 : & -9*gm(1,3)*d2gm(1,3)-1.5d0*gm(1,1)*d2gm(3,3)))+gm(2,3)*(33*gm(1,2)&
2421 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+39*gm(1,1)*(dgm01(3,3)&
2422 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+6*gm(1,3)**2*d2gm(2,3)+gm(1,3)&
2423 : & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
2424 576 : & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
2425 : cm(4,12)=27*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)&
2426 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+27*gm(1,2)*gm(3,3)*dgm01(2,2)&
2427 : & *dgm10(1,3)+27*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+27*gm(1,2)&
2428 : & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+21*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
2429 : & +42*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*gm(1,3)*dgm01(3,3)&
2430 : & *dgm10(2,2)+42*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+21*gm(1,3)&
2431 : & **2*dgm01(2,2)*dgm10(2,3)+42*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)&
2432 : & -24*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+21*gm(1,2)**2*dgm01(3,3)&
2433 : & *dgm10(2,3)+6*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)+21*gm(1,2)&
2434 : & **2*dgm01(2,3)*dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)&
2435 : & +18*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(18*dgm01(2,3)*dgm10(1,1)&
2436 : & +12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)+18*dgm01(1,1)&
2437 : & *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+18*gm(1,1)&
2438 : & *d2gm(2,3))+gm(2,3)*(0*gm(1,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)&
2439 : & *dgm01(3,3)*dgm10(1,2)+12*gm(1,3)*dgm01(2,2)*dgm10(1,3)+0*gm(1,2)&
2440 : & *dgm01(2,3)*dgm10(1,3)+12*gm(1,3)*dgm01(1,3)*dgm10(2,2)+24*gm(1,1)&
2441 : & *dgm01(3,3)*dgm10(2,2)+0*gm(1,3)*dgm01(1,2)*dgm10(2,3)+0*gm(1,2)&
2442 : & *dgm01(1,3)*dgm10(2,3)+72*gm(1,1)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)&
2443 : & *dgm01(1,2)*dgm10(3,3)+24*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)&
2444 : & **2*d2gm(2,2)+gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2445 : & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)&
2446 : & *d2gm(2,2))-12*gm(1,2)*gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)&
2447 : & +gm(2,2)*(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2448 : & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)&
2449 : & *(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
2450 : & +27*gm(1,2)*dgm01(1,3)*dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
2451 : & +18*gm(1,3)**2*d2gm(2,3)+gm(3,3)*(30*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)&
2452 : & *dgm10(1,2)+48*dgm01(1,2)*dgm10(1,3)+30*dgm01(1,1)*dgm10(2,3)&
2453 : & +24*gm(1,3)*d2gm(1,2)+24*gm(1,2)*d2gm(1,3)+30*gm(1,1)*d2gm(2,3))&
2454 : & +gm(1,3)*(27*dgm01(3,3)*dgm10(1,2)+42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)&
2455 576 : & *dgm10(2,3)+27*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2456 : cm(5,12)=7.5d0*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+24*gm(1,2)&
2457 : & *gm(3,3)*dgm01(2,3)*dgm10(1,1)+48*gm(1,3)*gm(3,3)*dgm01(1,2)&
2458 : & *dgm10(1,2)+54*gm(1,2)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+9*gm(1,3)&
2459 : & **2*dgm01(2,3)*dgm10(1,2)+15*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,2)&
2460 : & +27*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)+54*gm(1,2)*gm(3,3)&
2461 : & *dgm01(1,2)*dgm10(1,3)-1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,3)&
2462 : & +4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+30*gm(1,2)*gm(1,3)&
2463 : & *dgm01(2,3)*dgm10(1,3)+16.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)&
2464 : & +7.5d0*gm(1,3)*gm(3,3)*dgm01(1,1)*dgm10(2,2)-1.5d0*gm(1,3)**2*dgm01(1,3)&
2465 : & *dgm10(2,2)+4.5d0*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,2)+3*gm(1,1)&
2466 : & *gm(1,3)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(3,3)*dgm01(1,1)&
2467 : & *dgm10(2,3)+9*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)+15*gm(1,1)*gm(3,3)&
2468 : & *dgm01(1,2)*dgm10(2,3)+30*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,3)&
2469 : & +12*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)+36*gm(1,1)*gm(1,2)&
2470 : & *dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(3,3)&
2471 : & +16.5d0*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*gm(1,3)*dgm01(2,2)&
2472 : & *dgm10(3,3)+36*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)+24*gm(1,2)&
2473 : & *gm(1,3)*gm(3,3)*d2gm(1,2)+15*gm(1,2)**2*gm(3,3)*d2gm(1,3)-6*gm(2,3)&
2474 : & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2475 : & +1.5d0*gm(1,3)**3*d2gm(2,2)+7.5d0*gm(1,1)*gm(1,3)*gm(3,3)*d2gm(2,2)&
2476 : & +6*gm(1,2)*gm(1,3)**2*d2gm(2,3)+24*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,3)&
2477 : & +1.5d0*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(12*gm(1,2)*dgm01(3,3)&
2478 : & *dgm10(1,1)+3*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)*dgm01(1,3)&
2479 : & *dgm10(1,3)-6*gm(1,1)*dgm01(2,3)*dgm10(1,3)-6*gm(1,1)*dgm01(1,3)&
2480 : & *dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*dgm01(1,2)&
2481 : & *dgm10(3,3)+3*gm(1,3)**2*d2gm(1,2)-9*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
2482 : & +dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(6*dgm01(2,3)&
2483 : & *dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)&
2484 : & +6*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+6*gm(1,1)*d2gm(2,3))&
2485 : & +12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(-7.5d0*gm(1,1)*(dgm01(3,3)&
2486 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-6*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)&
2487 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2488 : & +gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(1,1)-24*dgm01(1,3)*dgm10(1,3)&
2489 576 : & -4.5d0*dgm01(1,1)*dgm10(3,3)-4.5d0*gm(1,1)*d2gm(3,3)))
2490 : cm(6,12)=-4.5d0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)-24*gm(1,2)&
2491 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)+16.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
2492 : & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)*gm(1,3)&
2493 : & *dgm01(2,3)*dgm10(1,2)-1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)&
2494 : & +27*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)**2*dgm01(2,3)&
2495 : & *dgm10(1,3)-4.5d0*gm(1,2)*gm(3,3)*dgm01(1,1)*dgm10(2,2)+16.5d0*gm(1,3)&
2496 : & **2*dgm01(1,2)*dgm10(2,2)-7.5d0*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)&
2497 : & +27*gm(1,2)*gm(1,3)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)*gm(1,3)&
2498 : & *dgm01(2,3)*dgm10(2,2)+3*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
2499 : & +30*gm(1,2)*gm(1,3)*dgm01(1,2)*dgm10(2,3)+9*gm(1,2)**2*dgm01(1,3)&
2500 : & *dgm10(2,3)+36*gm(1,1)*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,1)&
2501 : & *gm(1,2)*dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)&
2502 : & +3*gm(1,1)*gm(1,2)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*gm(3,3)&
2503 : & *d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2504 : & +gm(1,1)*d2gm(1,2))+1.5d0*gm(1,2)*gm(1,3)**2*d2gm(2,2)-4.5d0*gm(1,1)&
2505 : & *gm(1,2)*gm(3,3)*d2gm(2,2)+6*gm(1,2)**2*gm(1,3)*d2gm(2,3)+gm(2,3)&
2506 : & *(6*gm(1,2)*dgm01(2,3)*dgm10(1,1)+24*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
2507 : & -6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+24*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
2508 : & +3*gm(1,1)*dgm01(2,2)*dgm10(1,3)+3*gm(1,1)*dgm01(1,3)*dgm10(2,2)&
2509 : & +6*gm(1,2)*dgm01(1,1)*dgm10(2,3)-6*gm(1,1)*dgm01(1,2)*dgm10(2,3)&
2510 : & +3*gm(1,2)**2*d2gm(1,3)-9*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2511 : & *dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
2512 : & +36*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+18*gm(1,2)&
2513 : & *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+6*gm(1,1)*gm(1,2)*d2gm(2,3))&
2514 : & +1.5d0*gm(1,2)**3*d2gm(3,3)+gm(2,2)*(7.5d0*gm(1,2)*dgm01(3,3)&
2515 : & *dgm10(1,1)+4.5d0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)*dgm01(1,3)&
2516 : & *dgm10(1,3)+15*gm(1,1)*dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(1,3)&
2517 : & *dgm10(2,3)+7.5d0*gm(1,2)*dgm01(1,1)*dgm10(3,3)+4.5d0*gm(1,1)&
2518 : & *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)&
2519 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)&
2520 : & *(24*dgm01(2,3)*dgm10(1,1)+54*dgm01(1,3)*dgm10(1,2)+54*dgm01(1,2)&
2521 : & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2522 576 : & *d2gm(2,3))+7.5d0*gm(1,1)*gm(1,2)*d2gm(3,3))
2523 : cm(7,12)=-3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(16.5d0*dgm01(2,2)&
2524 : & *dgm10(1,2)+16.5d0*dgm01(1,2)*dgm10(2,2)+9*gm(2,2)*d2gm(1,2)&
2525 : & +7.5d0*gm(1,2)*d2gm(2,2))+gm(2,2)*(-15*gm(1,3)*(dgm01(2,3)*dgm10(2,2)&
2526 : & +dgm01(2,2)*dgm10(2,3))+gm(1,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)&
2527 : & +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))+gm(3,3)&
2528 : & *(-7.5d0*dgm01(2,2)*dgm10(1,2)-7.5d0*dgm01(1,2)*dgm10(2,2)-1.5d0*gm(1,2)&
2529 : & *d2gm(2,2)))+gm(2,3)*(-6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)&
2530 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)&
2531 : & +gm(2,2)*(36*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)&
2532 : & *dgm10(2,2)+36*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)*d2gm(2,2)+18*gm(1,2)&
2533 : & *d2gm(2,3)))+gm(2,2)**2*(0*dgm01(3,3)*dgm10(1,2)+0*dgm01(2,3)&
2534 : & *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)&
2535 576 : & *d2gm(1,2)-6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
2536 : cm(8,12)=gm(2,2)*(-9*gm(1,2)*dgm01(3,3)*dgm10(3,3)+36*gm(1,3)&
2537 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+3*gm(2,3)**3*d2gm(1,3)&
2538 : & +gm(3,3)**2*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)&
2539 : & +12*gm(2,2)*d2gm(1,2)+6*gm(1,2)*d2gm(2,2))+gm(2,3)**2*(7.5d0*dgm01(3,3)&
2540 : & *dgm10(1,2)+15*dgm01(2,3)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,3)&
2541 : & +7.5d0*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+1.5d0*gm(1,2)&
2542 : & *d2gm(3,3))+gm(3,3)*(27*gm(1,3)*dgm01(2,3)*dgm10(2,2)+7.5d0*gm(1,2)&
2543 : & *dgm01(3,3)*dgm10(2,2)+27*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)&
2544 : & *dgm01(2,3)*dgm10(2,3)+7.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)&
2545 : & **2*d2gm(1,2)+gm(2,3)*(18*dgm01(2,3)*dgm10(1,2)+18*dgm01(2,2)&
2546 : & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)&
2547 : & +15*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))&
2548 : & +gm(2,2)*(19.5d0*dgm01(3,3)*dgm10(1,2)+39*dgm01(2,3)*dgm10(1,3)&
2549 : & +39*dgm01(1,3)*dgm10(2,3)+19.5d0*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)&
2550 : & *d2gm(2,3)-4.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(15*dgm01(3,3)&
2551 : & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+15*dgm01(2,2)*dgm10(3,3))&
2552 : & +9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,2)&
2553 : & *(27*dgm01(3,3)*dgm10(1,3)+27*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)&
2554 576 : & *d2gm(3,3)))
2555 : cm(9,12)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+36*gm(1,2)&
2556 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)&
2557 : & +gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)&
2558 : & +7.5d0*dgm01(1,3)*dgm10(2,2)+15*dgm01(1,2)*dgm10(2,3)+6*gm(2,2)&
2559 : & *d2gm(1,3)+1.5d0*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)&
2560 : & *(gm(1,3)*(7.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
2561 : & +7.5d0*dgm01(2,2)*dgm10(3,3))+27*gm(1,2)*(dgm01(3,3)*dgm10(2,3)&
2562 : & +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(39*dgm01(2,3)*dgm10(1,2)+19.5d0*dgm01(2,2)&
2563 : & *dgm10(1,3)+19.5d0*dgm01(1,3)*dgm10(2,2)+39*dgm01(1,2)*dgm10(2,3)&
2564 : & -4.5d0*gm(1,3)*d2gm(2,2)+24*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(18*dgm01(3,3)&
2565 : & *dgm10(1,3)+18*dgm01(1,3)*dgm10(3,3)+12*gm(3,3)*d2gm(1,3)+6*gm(1,3)&
2566 : & *d2gm(3,3))+gm(2,3)*(9*gm(1,3)*dgm01(2,3)*dgm10(2,2)+15*gm(1,2)&
2567 : & *dgm01(3,3)*dgm10(2,2)+9*gm(1,3)*dgm01(2,2)*dgm10(2,3)+24*gm(1,2)&
2568 : & *dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(3,3)&
2569 : & *(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)&
2570 : & *d2gm(1,2)+12*gm(1,2)*d2gm(2,2))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,2)&
2571 : & +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+18*dgm01(1,2)&
2572 576 : & *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3)))
2573 : cm(10,12)=-3*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(-6*gm(1,2)&
2574 : & *dgm01(3,3)*dgm10(3,3)+33*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2575 : & *dgm10(3,3)))+gm(3,3)**2*(0*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)&
2576 : & *dgm10(1,3)+0*dgm01(1,3)*dgm10(2,2)+0*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)&
2577 : & *d2gm(1,2)-3*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)-6*gm(1,2)&
2578 : & *d2gm(2,3))+gm(2,3)**2*(16.5d0*dgm01(3,3)*dgm10(1,3)+16.5d0*dgm01(1,3)&
2579 : & *dgm10(3,3)+7.5d0*gm(1,3)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(1,3)*dgm01(3,3)&
2580 : & *dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-15*gm(1,2)*dgm01(3,3)&
2581 : & *dgm10(2,3)+4.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)-15*gm(1,2)*dgm01(2,3)&
2582 : & *dgm10(3,3)+9*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(9*dgm01(3,3)*dgm10(1,2)&
2583 : & +36*dgm01(2,3)*dgm10(1,3)+36*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)&
2584 : & *dgm10(3,3)+18*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))+gm(2,2)&
2585 : & *(-7.5d0*dgm01(3,3)*dgm10(1,3)-7.5d0*dgm01(1,3)*dgm10(3,3)-1.5d0*gm(1,3)&
2586 576 : & *d2gm(3,3)))
2587 : cm(1,13)=5*gm(1,2)**3*d2gm(1,3)+gm(1,2)*(gm(1,1)*(12*dgm01(2,3)&
2588 : & *dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)&
2589 : & *dgm10(2,3))-6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)&
2590 : & +gm(1,1)*d2gm(1,2))-3*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2591 : & *dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)*(6*gm(1,1)*(dgm01(2,2)&
2592 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+15*gm(1,2)**2*d2gm(1,2)-3*gm(2,2)&
2593 : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))&
2594 : & +gm(1,2)*(9*dgm01(2,2)*dgm10(1,1)+60*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)&
2595 : & *dgm10(2,2)+9*gm(1,1)*d2gm(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(1,1)&
2596 : & +30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)+9*dgm01(1,1)&
2597 : & *dgm10(2,3)+9*gm(1,1)*d2gm(2,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(2,3)&
2598 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(-6*dgm01(2,2)*dgm10(1,1)&
2599 : & -12*dgm01(1,2)*dgm10(1,2)-6*dgm01(1,1)*dgm10(2,2)-3*gm(1,1)*d2gm(2,2))&
2600 : & +gm(2,2)*(-6*dgm01(2,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)&
2601 576 : & *dgm10(1,3)-6*dgm01(1,1)*dgm10(2,3)-3*gm(1,1)*d2gm(2,3)))
2602 : cm(2,13)=24*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(6*gm(1,3)&
2603 : & *dgm01(2,2)*dgm10(2,2)+12*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2604 : & *dgm10(2,2)))+gm(1,2)**2*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)&
2605 : & *dgm10(2,3)+3*gm(2,3)*d2gm(2,2))+gm(2,2)**2*(12*dgm01(2,3)*dgm10(1,1)&
2606 : & +18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)&
2607 : & *dgm10(2,3)+12*gm(1,3)*d2gm(1,2)+6*gm(1,2)*d2gm(1,3)+12*gm(1,1)&
2608 : & *d2gm(2,3))+gm(2,2)*(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)&
2609 : & *dgm01(2,2)*dgm10(1,3)+15*gm(1,2)*dgm01(1,3)*dgm10(2,2)+36*gm(1,1)&
2610 : & *dgm01(2,3)*dgm10(2,2)+18*gm(1,2)*dgm01(1,2)*dgm10(2,3)+36*gm(1,1)&
2611 : & *dgm01(2,2)*dgm10(2,3)+gm(2,3)*(12*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
2612 : & *dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+12*gm(1,1)&
2613 : & *d2gm(2,2))+gm(1,3)*(27*dgm01(2,2)*dgm10(1,2)+27*dgm01(1,2)*dgm10(2,2)&
2614 576 : & +3*gm(1,2)*d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3))
2615 : cm(3,13)=-6*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+12*gm(1,2)&
2616 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2617 : & -6*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(3,3)*dgm01(1,3)&
2618 : & *dgm10(2,2)-3*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)+9*gm(1,1)*gm(3,3)&
2619 : & *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2620 : & +12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-3*gm(1,3)**2*dgm01(2,2)&
2621 : & *dgm10(2,3)+9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
2622 : & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
2623 : & +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-6*gm(1,2)**2*dgm01(2,3)&
2624 : & *dgm10(3,3)+3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)&
2625 : & *d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
2626 : & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)&
2627 : & +3*gm(1,3)*d2gm(1,2)+15*gm(1,2)*d2gm(1,3)+15*gm(1,1)*d2gm(2,3))&
2628 : & +gm(2,2)*(gm(1,3)*(-9*dgm01(3,3)*dgm10(1,2)-18*dgm01(2,3)*dgm10(1,3)&
2629 : & -18*dgm01(1,3)*dgm10(2,3)-9*dgm01(1,2)*dgm10(3,3))-3*(gm(1,2)&
2630 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(dgm01(3,3)&
2631 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(1,3)**2*d2gm(2,3)+gm(3,3)&
2632 : & *(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)&
2633 : & *dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)-9*gm(1,3)*d2gm(1,2)-3*gm(1,2)&
2634 : & *d2gm(1,3)-3*gm(1,1)*d2gm(2,3)))+gm(2,3)*(24*gm(1,2)*dgm01(3,3)&
2635 : & *dgm10(1,2)-12*gm(2,2)*dgm01(1,3)*dgm10(1,3)+48*gm(1,2)*dgm01(2,3)&
2636 : & *dgm10(1,3)+12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,2)*dgm01(1,3)&
2637 : & *dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)*dgm01(1,2)&
2638 : & *dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)+3*gm(1,3)**2*d2gm(2,2)&
2639 : & +gm(3,3)*(12*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)&
2640 : & *dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+gm(1,3)&
2641 : & *(24*dgm01(2,3)*dgm10(1,2)+0*dgm01(2,2)*dgm10(1,3)+0*dgm01(1,3)&
2642 : & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)-6*gm(2,2)*d2gm(1,3)+18*gm(1,2)&
2643 576 : & *d2gm(2,3)))
2644 : cm(4,13)=42*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+42*gm(1,2)&
2645 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+18*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
2646 : & +30*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(2,3)&
2647 : & *dgm10(2,2)+9*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+0*gm(1,2)*gm(1,3)&
2648 : & *dgm01(2,2)*dgm10(2,3)+12*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)+9*gm(1,2)&
2649 : & **2*dgm01(2,2)*dgm10(3,3)+gm(2,2)**2*(-12*dgm01(1,3)*dgm10(1,3)&
2650 : & -6*gm(1,3)*d2gm(1,3))+9*gm(1,2)**2*gm(3,3)*d2gm(2,2)+gm(2,3)&
2651 : & **2*(9*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)&
2652 : & *dgm10(2,2)+6*gm(1,2)*d2gm(1,2)+9*gm(1,1)*d2gm(2,2))+gm(2,3)&
2653 : & *(24*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
2654 : & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)+42*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
2655 : & +24*gm(1,2)*dgm01(1,2)*dgm10(2,3)+42*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
2656 : & +gm(1,3)*(0*dgm01(2,2)*dgm10(1,2)+0*dgm01(1,2)*dgm10(2,2)-6*gm(1,2)&
2657 : & *d2gm(2,2))+6*gm(1,2)**2*d2gm(2,3)+gm(2,2)*(24*dgm01(2,3)*dgm10(1,1)&
2658 : & +24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)*dgm10(1,3)+24*dgm01(1,1)&
2659 : & *dgm10(2,3)+6*gm(1,3)*d2gm(1,2)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2660 : & *d2gm(2,3)))+gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,2)&
2661 : & *dgm01(2,3)*dgm10(1,3)+15*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)&
2662 : & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*dgm01(2,3)*dgm10(2,3)+24*gm(1,2)&
2663 : & *dgm01(1,2)*dgm10(3,3)+15*gm(1,1)*dgm01(2,2)*dgm10(3,3)+9*gm(1,3)&
2664 : & **2*d2gm(2,2)+gm(3,3)*(15*dgm01(2,2)*dgm10(1,1)+48*dgm01(1,2)&
2665 : & *dgm10(1,2)+15*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)*d2gm(1,2)+15*gm(1,1)&
2666 : & *d2gm(2,2))+gm(1,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)&
2667 576 : & +6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(1,2)*d2gm(2,3)))
2668 : cm(5,13)=12*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+60*gm(1,2)&
2669 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-3*gm(1,3)**2*dgm01(2,2)*dgm10(1,2)&
2670 : & +9*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+24*gm(1,2)*gm(1,3)*dgm01(2,3)&
2671 : & *dgm10(1,2)+15*gm(1,2)**2*dgm01(3,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)&
2672 : & *dgm01(2,2)*dgm10(1,3)+18*gm(1,2)**2*dgm01(2,3)*dgm10(1,3)+12*gm(1,2)&
2673 : & *gm(3,3)*dgm01(1,1)*dgm10(2,2)-3*gm(1,3)**2*dgm01(1,2)*dgm10(2,2)&
2674 : & +9*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+0*gm(1,2)*gm(1,3)*dgm01(1,3)&
2675 : & *dgm10(2,2)-6*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,1)&
2676 : & *gm(1,2)*dgm01(3,3)*dgm10(2,2)+24*gm(1,2)*gm(1,3)*dgm01(1,2)&
2677 : & *dgm10(2,3)+18*gm(1,2)**2*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)*gm(1,3)&
2678 : & *dgm01(2,2)*dgm10(2,3)+48*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
2679 : & +15*gm(1,2)**2*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*gm(1,2)*dgm01(2,2)&
2680 : & *dgm10(3,3)+15*gm(1,2)**2*gm(3,3)*d2gm(1,2)-6*gm(2,3)**2*(dgm01(1,2)&
2681 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,2)&
2682 : & *gm(1,3)**2*d2gm(2,2)+12*gm(1,1)*gm(1,2)*gm(3,3)*d2gm(2,2)+3*gm(1,2)&
2683 : & **2*gm(1,3)*d2gm(2,3)+gm(2,3)*(24*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
2684 : & +48*gm(1,2)*dgm01(1,3)*dgm10(1,2)+12*gm(1,1)*dgm01(2,3)*dgm10(1,2)&
2685 : & +48*gm(1,2)*dgm01(1,2)*dgm10(1,3)+0*gm(1,1)*dgm01(2,2)*dgm10(1,3)&
2686 : & +0*gm(1,1)*dgm01(1,3)*dgm10(2,2)+24*gm(1,2)*dgm01(1,1)*dgm10(2,3)&
2687 : & +12*gm(1,1)*dgm01(1,2)*dgm10(2,3)+15*gm(1,2)**2*d2gm(1,3)-3*gm(2,2)&
2688 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2689 : & +gm(1,3)*(3*dgm01(2,2)*dgm10(1,1)+36*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
2690 : & *dgm10(2,2)+18*gm(1,2)*d2gm(1,2)+3*gm(1,1)*d2gm(2,2))+24*gm(1,1)&
2691 : & *gm(1,2)*d2gm(2,3))+gm(2,2)*(-3*gm(1,1)*dgm01(3,3)*dgm10(1,2)&
2692 : & -12*gm(1,2)*dgm01(1,3)*dgm10(1,3)-12*gm(1,1)*dgm01(2,3)*dgm10(1,3)&
2693 : & -12*gm(1,1)*dgm01(1,3)*dgm10(2,3)-3*gm(1,1)*dgm01(1,2)*dgm10(3,3)&
2694 : & -6*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2695 : & *dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)*(-9*dgm01(2,3)*dgm10(1,1)&
2696 : & -18*dgm01(1,3)*dgm10(1,2)-18*dgm01(1,2)*dgm10(1,3)-9*dgm01(1,1)&
2697 576 : & *dgm10(2,3)-6*gm(1,2)*d2gm(1,3)-9*gm(1,1)*d2gm(2,3)))
2698 : cm(6,13)=gm(1,1)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(2,3)&
2699 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))-3*gm(2,2)**2*(dgm01(1,3)&
2700 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,2)&
2701 : & **2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)&
2702 : & *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+3*gm(2,3)*d2gm(1,2)+3*gm(1,3)&
2703 : & *d2gm(2,2))+gm(1,2)*(30*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
2704 : & *dgm10(2,2))+18*gm(1,1)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
2705 : & +gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
2706 : & *dgm10(2,2)+3*gm(1,1)*d2gm(2,2)))+3*gm(1,2)**3*d2gm(2,3)+gm(2,2)&
2707 : & *(15*gm(1,2)*dgm01(2,3)*dgm10(1,1)+42*gm(1,2)*dgm01(1,3)*dgm10(1,2)&
2708 : & +6*gm(1,1)*dgm01(2,3)*dgm10(1,2)+42*gm(1,2)*dgm01(1,2)*dgm10(1,3)&
2709 : & +6*gm(1,1)*dgm01(2,2)*dgm10(1,3)+6*gm(1,1)*dgm01(1,3)*dgm10(2,2)&
2710 : & +15*gm(1,2)*dgm01(1,1)*dgm10(2,3)+6*gm(1,1)*dgm01(1,2)*dgm10(2,3)&
2711 : & -9*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)&
2712 : & *d2gm(1,2))+9*gm(1,2)**2*d2gm(1,3)+gm(1,3)*(12*dgm01(2,2)*dgm10(1,1)&
2713 : & +48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)+24*gm(1,2)&
2714 576 : & *d2gm(1,2)+12*gm(1,1)*d2gm(2,2))+15*gm(1,1)*gm(1,2)*d2gm(2,3))
2715 : cm(7,13)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
2716 : & **3*d2gm(1,3)+gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+21*gm(1,2)&
2717 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,3)*(21*dgm01(2,2)&
2718 : & *dgm10(1,2)+21*dgm01(1,2)*dgm10(2,2)+9*gm(1,2)*d2gm(2,2)))+gm(2,2)&
2719 : & **2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
2720 : & *dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)+6*gm(2,3)*d2gm(1,2)-3*gm(1,3)&
2721 576 : & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3))
2722 : cm(8,13)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)-6*gm(1,2)&
2723 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+3*gm(2,3)**3*d2gm(1,2)&
2724 : & -3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(3,3)&
2725 : & *d2gm(1,3))+gm(2,3)**2*(12*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
2726 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
2727 : & +9*gm(2,2)*d2gm(1,3)+3*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))&
2728 : & +gm(2,2)*(gm(1,3)*(12*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)*dgm10(2,3)&
2729 : & +12*dgm01(2,2)*dgm10(3,3))-9*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2730 : & *dgm10(3,3))+gm(3,3)*(6*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)*dgm10(1,3)&
2731 : & +6*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)&
2732 : & -9*gm(1,2)*d2gm(2,3)))+gm(2,3)*(30*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
2733 : & +3*gm(1,2)*dgm01(3,3)*dgm10(2,2)+30*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
2734 : & +12*gm(1,2)*dgm01(2,3)*dgm10(2,3)+3*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
2735 : & +gm(3,3)*(18*dgm01(2,2)*dgm10(1,2)+18*dgm01(1,2)*dgm10(2,2)+15*gm(2,2)&
2736 : & *d2gm(1,2)+3*gm(1,2)*d2gm(2,2))+gm(2,2)*(15*dgm01(3,3)*dgm10(1,2)&
2737 : & +42*dgm01(2,3)*dgm10(1,3)+42*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)&
2738 576 : & *dgm10(3,3)+24*gm(1,3)*d2gm(2,3)))
2739 : cm(9,13)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)**2*(9*dgm01(2,2)&
2740 : & *dgm10(1,2)+9*dgm01(1,2)*dgm10(2,2)+6*gm(2,2)*d2gm(1,2)+3*gm(1,2)&
2741 : & *d2gm(2,2))+gm(2,2)*(27*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2742 : & *dgm10(2,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,3)*dgm10(2,3)&
2743 : & +dgm01(2,2)*dgm10(3,3))+gm(3,3)*(36*dgm01(2,2)*dgm10(1,2)+36*dgm01(1,2)&
2744 : & *dgm10(2,2)+12*gm(1,2)*d2gm(2,2)))+gm(2,2)**2*(12*dgm01(3,3)&
2745 : & *dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)&
2746 : & +12*dgm01(1,2)*dgm10(3,3)+12*gm(3,3)*d2gm(1,2)+12*gm(1,3)*d2gm(2,3))&
2747 : & +gm(2,3)*(6*gm(1,3)*dgm01(2,2)*dgm10(2,2)+12*gm(1,2)*(dgm01(2,3)&
2748 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+6*gm(2,2)**2*d2gm(1,3)+gm(2,2)&
2749 : & *(18*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)&
2750 : & *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)&
2751 576 : & *d2gm(2,3)))
2752 : cm(10,13)=-3*gm(1,3)*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2753 : & *dgm10(3,3))+gm(2,3)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2754 : & *dgm10(3,3))+gm(1,3)*(9*dgm01(3,3)*dgm10(2,2)+60*dgm01(2,3)*dgm10(2,3)&
2755 : & +9*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2756 : & *dgm10(3,3)))+5*gm(2,3)**3*d2gm(1,3)+gm(3,3)**2*(-6*dgm01(2,2)&
2757 : & *dgm10(1,2)-6*dgm01(1,2)*dgm10(2,2)-3*(gm(2,2)*d2gm(1,2)+gm(1,2)&
2758 : & *d2gm(2,2)))+gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,2)+30*dgm01(2,3)&
2759 : & *dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)&
2760 : & +15*gm(1,3)*d2gm(2,3))+gm(3,3)*(6*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
2761 : & -6*gm(1,2)*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
2762 : & -12*gm(1,2)*dgm01(2,3)*dgm10(2,3)-6*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
2763 : & +9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(12*dgm01(2,3)*dgm10(1,2)+6*dgm01(2,2)&
2764 : & *dgm10(1,3)+6*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
2765 : & -3*gm(2,2)*d2gm(1,3)+9*gm(1,3)*d2gm(2,2)-6*gm(1,2)*d2gm(2,3))&
2766 : & +gm(2,2)*(-6*dgm01(3,3)*dgm10(1,2)-6*dgm01(2,3)*dgm10(1,3)-6*dgm01(1,3)&
2767 576 : & *dgm10(2,3)-6*dgm01(1,2)*dgm10(3,3)-3*gm(1,3)*d2gm(2,3)))
2768 : cm(1,14)=5*gm(1,3)**3*d2gm(1,2)+gm(1,2)*(6*gm(1,1)*(dgm01(3,3)&
2769 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2770 : & +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(9*dgm01(2,3)&
2771 : & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,2)+30*dgm01(1,2)*dgm10(1,3)&
2772 : & +9*dgm01(1,1)*dgm10(2,3)+15*gm(1,2)*d2gm(1,3)+9*gm(1,1)*d2gm(2,3))&
2773 : & +gm(1,3)*(9*gm(1,2)*dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)&
2774 : & *dgm10(1,2)+60*gm(1,2)*dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)&
2775 : & *dgm10(1,3)+12*gm(1,1)*dgm01(1,3)*dgm10(2,3)+9*gm(1,2)*dgm01(1,1)&
2776 : & *dgm10(3,3)+6*gm(1,1)*dgm01(1,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(1,2)&
2777 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))-6*gm(2,3)&
2778 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2779 : & +9*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,1)*(-6*gm(1,1)*(dgm01(3,3)&
2780 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,1)&
2781 : & -6*dgm01(1,3)*dgm10(1,2)-6*dgm01(1,2)*dgm10(1,3)-6*dgm01(1,1)&
2782 : & *dgm10(2,3)-3*gm(1,1)*d2gm(2,3))+gm(2,3)*(-6*dgm01(3,3)*dgm10(1,1)&
2783 576 : & -12*dgm01(1,3)*dgm10(1,3)-6*dgm01(1,1)*dgm10(3,3)-3*gm(1,1)*d2gm(3,3)))
2784 : cm(2,14)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-18*gm(1,2)&
2785 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
2786 : & -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-9*gm(1,2)*gm(3,3)*dgm01(1,3)&
2787 : & *dgm10(2,2)-6*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)&
2788 : & *dgm01(2,3)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2789 : & -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)-6*gm(1,3)**2*dgm01(2,2)&
2790 : & *dgm10(2,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
2791 : & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
2792 : & +3*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*dgm01(2,3)&
2793 : & *dgm10(3,3)-6*gm(1,2)**2*gm(3,3)*d2gm(2,3)+gm(2,3)**2*(15*dgm01(2,3)&
2794 : & *dgm10(1,1)+18*dgm01(1,3)*dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)&
2795 : & +15*dgm01(1,1)*dgm10(2,3)+15*gm(1,3)*d2gm(1,2)+3*gm(1,2)*d2gm(1,3)&
2796 : & +15*gm(1,1)*d2gm(2,3))+gm(2,3)*(48*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
2797 : & +0*gm(1,2)*dgm01(3,3)*dgm10(1,2)+24*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
2798 : & +24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
2799 : & +12*gm(1,1)*dgm01(3,3)*dgm10(2,2)+48*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
2800 : & +24*gm(1,2)*dgm01(1,3)*dgm10(2,3)+60*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
2801 : & +0*gm(1,2)*dgm01(1,2)*dgm10(3,3)+12*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
2802 : & +gm(3,3)*(-12*dgm01(1,2)*dgm10(1,2)-6*gm(1,2)*d2gm(1,2))+18*gm(1,2)&
2803 : & *gm(1,3)*d2gm(2,3)+3*gm(1,2)**2*d2gm(3,3)+gm(2,2)*(12*dgm01(3,3)&
2804 : & *dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)&
2805 : & +24*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(2,2)*(-6*gm(1,2)&
2806 : & *dgm01(3,3)*dgm10(1,3)+9*gm(1,1)*dgm01(3,3)*dgm10(2,3)-6*gm(1,2)&
2807 : & *dgm01(1,3)*dgm10(3,3)+9*gm(1,1)*dgm01(2,3)*dgm10(3,3)-6*gm(1,3)&
2808 : & **2*d2gm(2,3)+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,1)-12*dgm01(1,3)&
2809 : & *dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-3*dgm01(1,1)*dgm10(2,3)&
2810 : & -3*gm(1,3)*d2gm(1,2)-9*gm(1,2)*d2gm(1,3)-3*gm(1,1)*d2gm(2,3))&
2811 : & +gm(1,3)*(0*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)&
2812 576 : & *dgm10(2,3)+0*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2813 : cm(3,14)=24*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(6*gm(1,2)&
2814 : & *dgm01(3,3)*dgm10(3,3)+12*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2815 : & *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,1)+18*dgm01(1,3)&
2816 : & *dgm10(1,2)+18*dgm01(1,2)*dgm10(1,3)+12*dgm01(1,1)*dgm10(2,3)&
2817 : & +6*gm(1,3)*d2gm(1,2)+12*gm(1,2)*d2gm(1,3)+12*gm(1,1)*d2gm(2,3))&
2818 : & +gm(1,3)**2*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)&
2819 : & +3*gm(2,3)*d2gm(3,3))+gm(3,3)*(27*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
2820 : & +36*gm(1,1)*dgm01(3,3)*dgm10(2,3)+27*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
2821 : & +36*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)+gm(2,3)&
2822 : & *(12*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2823 : & *dgm10(3,3)+6*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3))+gm(1,3)&
2824 : & *(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
2825 576 : & *dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2826 : cm(4,14)=-12*gm(3,3)**2*dgm01(1,2)*dgm10(1,2)+24*gm(1,3)*gm(3,3)&
2827 : & *dgm01(2,3)*dgm10(1,2)+6*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(1,2)&
2828 : & +24*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+12*gm(1,2)*gm(3,3)&
2829 : & *dgm01(2,3)*dgm10(1,3)+24*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(2,2)&
2830 : & +9*gm(1,3)**2*dgm01(3,3)*dgm10(2,2)+15*gm(1,1)*gm(3,3)*dgm01(3,3)&
2831 : & *dgm10(2,2)+24*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+12*gm(1,2)&
2832 : & *gm(3,3)*dgm01(1,3)*dgm10(2,3)+12*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
2833 : & +48*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(3,3)&
2834 : & *dgm10(2,3)+6*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+9*gm(1,3)&
2835 : & **2*dgm01(2,2)*dgm10(3,3)+15*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(3,3)&
2836 : & +0*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(3,3)+18*gm(1,2)**2*dgm01(3,3)&
2837 : & *dgm10(3,3)-6*gm(1,2)*gm(3,3)**2*d2gm(1,2)+6*gm(1,2)*gm(1,3)&
2838 : & *gm(3,3)*d2gm(2,3)+9*gm(1,2)**2*gm(3,3)*d2gm(3,3)+gm(2,3)**2*(9*dgm01(3,3)&
2839 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3)&
2840 : & +6*gm(1,3)*d2gm(1,3)+9*gm(1,1)*d2gm(3,3))+gm(2,2)*(30*gm(1,1)&
2841 : & *dgm01(3,3)*dgm10(3,3)+42*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2842 : & *dgm10(3,3))+9*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(15*dgm01(3,3)*dgm10(1,1)&
2843 : & +48*dgm01(1,3)*dgm10(1,3)+15*dgm01(1,1)*dgm10(3,3)+24*gm(1,3)&
2844 : & *d2gm(1,3)+15*gm(1,1)*d2gm(3,3)))+gm(2,3)*(0*gm(1,2)*dgm01(3,3)&
2845 : & *dgm10(1,3)+42*gm(1,1)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*dgm01(1,3)&
2846 : & *dgm10(3,3)+42*gm(1,1)*dgm01(2,3)*dgm10(3,3)+6*gm(1,3)**2*d2gm(2,3)&
2847 : & +gm(3,3)*(24*dgm01(2,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,2)+24*dgm01(1,2)&
2848 : & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)*d2gm(1,2)+6*gm(1,2)&
2849 : & *d2gm(1,3)+24*gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)&
2850 : & +24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
2851 576 : & *dgm10(3,3)-6*gm(1,2)*d2gm(3,3)))
2852 : cm(5,14)=gm(1,1)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(2,3)&
2853 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(1,2)&
2854 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+3*gm(1,3)&
2855 : & **3*d2gm(2,3)+gm(1,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2856 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
2857 : & +3*gm(2,3)*d2gm(1,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(12*gm(1,2)&
2858 : & *dgm01(3,3)*dgm10(1,1)+6*gm(1,1)*dgm01(3,3)*dgm10(1,2)+48*gm(1,2)&
2859 : & *dgm01(1,3)*dgm10(1,3)+6*gm(1,1)*dgm01(2,3)*dgm10(1,3)+6*gm(1,1)&
2860 : & *dgm01(1,3)*dgm10(2,3)+12*gm(1,2)*dgm01(1,1)*dgm10(3,3)+6*gm(1,1)&
2861 : & *dgm01(1,2)*dgm10(3,3)+9*gm(1,3)**2*d2gm(1,2)-9*gm(2,3)*(dgm01(1,3)&
2862 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)&
2863 : & *(15*dgm01(2,3)*dgm10(1,1)+42*dgm01(1,3)*dgm10(1,2)+42*dgm01(1,2)&
2864 : & *dgm10(1,3)+15*dgm01(1,1)*dgm10(2,3)+24*gm(1,2)*d2gm(1,3)+15*gm(1,1)&
2865 : & *d2gm(2,3))+12*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(1,3)*(30*gm(1,2)&
2866 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+18*gm(1,1)*(dgm01(3,3)&
2867 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(3*dgm01(3,3)*dgm10(1,1)&
2868 576 : & +12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)+3*gm(1,1)*d2gm(3,3)))
2869 : cm(6,14)=-9*gm(1,2)*gm(3,3)*dgm01(2,3)*dgm10(1,1)-12*gm(1,3)&
2870 : & *gm(3,3)*dgm01(1,2)*dgm10(1,2)-18*gm(1,2)*gm(3,3)*dgm01(1,3)&
2871 : & *dgm10(1,2)+18*gm(1,3)**2*dgm01(2,3)*dgm10(1,2)-12*gm(1,1)*gm(3,3)&
2872 : & *dgm01(2,3)*dgm10(1,2)+0*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(1,2)&
2873 : & -18*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+15*gm(1,3)**2*dgm01(2,2)&
2874 : & *dgm10(1,3)-3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(1,3)+24*gm(1,2)&
2875 : & *gm(1,3)*dgm01(2,3)*dgm10(1,3)-3*gm(1,2)**2*dgm01(3,3)*dgm10(1,3)&
2876 : & +15*gm(1,3)**2*dgm01(1,3)*dgm10(2,2)-3*gm(1,1)*gm(3,3)*dgm01(1,3)&
2877 : & *dgm10(2,2)+12*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)-9*gm(1,2)&
2878 : & *gm(3,3)*dgm01(1,1)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)*dgm10(2,3)&
2879 : & -12*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*gm(1,3)&
2880 : & *dgm01(1,3)*dgm10(2,3)+48*gm(1,1)*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
2881 : & -6*gm(1,1)*gm(1,2)*dgm01(3,3)*dgm10(2,3)+0*gm(1,2)*gm(1,3)*dgm01(1,2)&
2882 : & *dgm10(3,3)-3*gm(1,2)**2*dgm01(1,3)*dgm10(3,3)+12*gm(1,1)*gm(1,3)&
2883 : & *dgm01(2,2)*dgm10(3,3)-6*gm(1,1)*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2884 : & -6*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(1,2)-6*gm(1,2)**2*gm(3,3)*d2gm(1,3)&
2885 : & -6*gm(2,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)&
2886 : & *d2gm(1,3))+3*gm(1,2)*gm(1,3)**2*d2gm(2,3)-9*gm(1,1)*gm(1,2)&
2887 : & *gm(3,3)*d2gm(2,3)+3*gm(1,2)**2*gm(1,3)*d2gm(3,3)+gm(2,3)*(3*gm(1,2)&
2888 : & *dgm01(3,3)*dgm10(1,1)+0*gm(1,1)*dgm01(3,3)*dgm10(1,2)+36*gm(1,2)&
2889 : & *dgm01(1,3)*dgm10(1,3)+12*gm(1,1)*dgm01(2,3)*dgm10(1,3)+12*gm(1,1)&
2890 : & *dgm01(1,3)*dgm10(2,3)+3*gm(1,2)*dgm01(1,1)*dgm10(3,3)+0*gm(1,1)&
2891 : & *dgm01(1,2)*dgm10(3,3)+15*gm(1,3)**2*d2gm(1,2)-3*gm(3,3)*(dgm01(1,2)&
2892 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)+gm(1,1)*d2gm(1,2))+gm(1,3)&
2893 : & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)&
2894 : & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)+18*gm(1,2)*d2gm(1,3)+24*gm(1,1)&
2895 : & *d2gm(2,3))+3*gm(1,1)*gm(1,2)*d2gm(3,3))+gm(2,2)*(9*gm(1,1)*(dgm01(3,3)&
2896 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+15*gm(1,3)**2*d2gm(1,3)-3*gm(3,3)&
2897 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))&
2898 : & +gm(1,3)*(12*dgm01(3,3)*dgm10(1,1)+60*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)&
2899 576 : & *dgm10(3,3)+12*gm(1,1)*d2gm(3,3)))
2900 : cm(7,14)=-3*gm(1,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
2901 : & *dgm10(2,3))+5*gm(2,3)**3*d2gm(1,2)+gm(2,3)**2*(30*dgm01(2,3)&
2902 : & *dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)*dgm10(2,2)+30*dgm01(1,2)&
2903 : & *dgm10(2,3)+9*gm(2,2)*d2gm(1,3)+15*gm(1,2)*d2gm(2,3))+gm(2,2)&
2904 : & *(gm(1,3)*(-6*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)*dgm10(2,3)&
2905 : & -6*dgm01(2,2)*dgm10(3,3))+6*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2906 : & *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,3)*dgm10(1,2)-6*dgm01(2,2)*dgm10(1,3)&
2907 : & -6*dgm01(1,3)*dgm10(2,2)-6*dgm01(1,2)*dgm10(2,3)-3*gm(1,2)*d2gm(2,3)))&
2908 : & +gm(2,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*dgm01(3,3)&
2909 : & *dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)&
2910 : & *dgm10(2,3)+9*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)&
2911 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+gm(2,2)&
2912 : & *(6*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)&
2913 : & *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-6*gm(1,3)*d2gm(2,3)+9*gm(1,2)&
2914 : & *d2gm(3,3)))+gm(2,2)**2*(-6*dgm01(3,3)*dgm10(1,3)-6*dgm01(1,3)&
2915 576 : & *dgm10(3,3)-3*(gm(3,3)*d2gm(1,3)+gm(1,3)*d2gm(3,3)))
2916 : cm(8,14)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)&
2917 : & *dgm01(3,3)*dgm10(3,3)+12*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
2918 : & *dgm10(3,3)))+gm(3,3)**2*(18*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)&
2919 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)&
2920 : & +6*gm(2,3)*d2gm(1,2)+12*gm(2,2)*d2gm(1,3)+12*gm(1,2)*d2gm(2,3))&
2921 : & +gm(2,3)**2*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)&
2922 : & +3*gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
2923 : & +12*gm(1,3)*dgm01(2,3)*dgm10(2,3)+27*gm(1,2)*dgm01(3,3)*dgm10(2,3)&
2924 : & +12*gm(1,3)*dgm01(2,2)*dgm10(3,3)+27*gm(1,2)*dgm01(2,3)*dgm10(3,3)&
2925 : & +6*gm(2,3)**2*d2gm(1,3)+gm(2,3)*(15*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
2926 : & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+15*dgm01(1,2)*dgm10(3,3)&
2927 : & +6*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(2,2)*(36*dgm01(3,3)&
2928 576 : & *dgm10(1,3)+36*dgm01(1,3)*dgm10(3,3)+12*gm(1,3)*d2gm(3,3)))
2929 : cm(9,14)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)-6*gm(1,3)&
2930 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)&
2931 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(2,2)*d2gm(1,2))+3*gm(2,3)&
2932 : & **3*d2gm(1,3)+gm(2,3)**2*(12*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2933 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
2934 : & +3*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+gm(3,3)*(-9*gm(1,3)&
2935 : & *dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)-9*gm(1,3)&
2936 : & *dgm01(2,2)*dgm10(2,3)+48*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)&
2937 : & *dgm01(2,2)*dgm10(3,3)+9*gm(2,3)**2*d2gm(1,2)+gm(2,3)*(42*dgm01(2,3)&
2938 : & *dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)*dgm10(2,2)&
2939 : & +42*dgm01(1,2)*dgm10(2,3)+15*gm(2,2)*d2gm(1,3)+24*gm(1,2)*d2gm(2,3))&
2940 : & +gm(2,2)*(6*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
2941 : & *dgm10(2,3)+6*dgm01(1,2)*dgm10(3,3)-9*gm(1,3)*d2gm(2,3)+12*gm(1,2)&
2942 : & *d2gm(3,3)))+gm(2,3)*(gm(1,3)*(3*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)&
2943 : & *dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3))+30*gm(1,2)*(dgm01(3,3)*dgm10(2,3)&
2944 : & +dgm01(2,3)*dgm10(3,3))+gm(2,2)*(18*dgm01(3,3)*dgm10(1,3)+18*dgm01(1,3)&
2945 576 : & *dgm10(3,3)+3*gm(1,3)*d2gm(3,3)))
2946 : cm(10,14)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
2947 : & **3*d2gm(1,2)+gm(3,3)**2*(3*dgm01(3,3)*dgm10(1,2)+12*dgm01(2,3)&
2948 : & *dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)&
2949 : & +6*gm(2,3)*d2gm(1,3)+6*gm(1,3)*d2gm(2,3)-3*gm(1,2)*d2gm(3,3))&
2950 : & +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+21*gm(1,3)*(dgm01(3,3)&
2951 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,3)*(21*dgm01(3,3)*dgm10(1,3)&
2952 576 : & +21*dgm01(1,3)*dgm10(3,3)+9*gm(1,3)*d2gm(3,3)))
2953 : cm(1,15)=5*gm(1,3)**3*d2gm(1,3)+gm(1,3)*(6*gm(1,1)*(dgm01(3,3)&
2954 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2955 : & +dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3)))+gm(1,3)**2*(4.5d0*dgm01(3,3)&
2956 : & *dgm10(1,1)+30*dgm01(1,3)*dgm10(1,3)+4.5d0*dgm01(1,1)*dgm10(3,3)&
2957 : & +4.5d0*gm(1,1)*d2gm(3,3))+gm(1,1)*(-3*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
2958 : & +gm(3,3)*(-3*dgm01(3,3)*dgm10(1,1)-6*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)&
2959 576 : & *dgm10(3,3)-1.5d0*gm(1,1)*d2gm(3,3)))
2960 : cm(2,15)=(2*(90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
2961 : & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
2962 : & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
2963 : & +gm(1,3)*dgm01(3,3)))*dgm10(1,3)+3*(30*gm(2,3)**2*dgm01(1,1)&
2964 : & -24*gm(1,2)*gm(3,3)*dgm01(1,2)-12*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)&
2965 : & *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)&
2966 : & *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)+60*gm(1,1)*dgm01(2,3))-12*gm(1,2)&
2967 : & **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)-24*gm(1,3)*dgm01(1,3)&
2968 : & -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(30*gm(2,3)**2*dgm10(1,1)&
2969 : & -24*gm(1,2)*gm(3,3)*dgm10(1,2)-12*gm(1,3)**2*dgm10(2,2)-6*gm(1,1)&
2970 : & *gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)*(36*gm(1,3)&
2971 : & *dgm10(1,2)+36*gm(1,2)*dgm10(1,3)+60*gm(1,1)*dgm10(2,3))-12*gm(1,2)&
2972 : & **2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)-24*gm(1,3)*dgm10(1,3)&
2973 : & -6*gm(1,1)*dgm10(3,3)))+2*dgm01(1,3)*(90*gm(2,3)**2*dgm10(1,3)&
2974 : & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
2975 : & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
2976 : & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+2*(-36*gm(1,2)&
2977 : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2978 : & *d2gm(1,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2979 : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2980 576 : & *d2gm(3,3))/12.d0
2981 : cm(3,15)=6*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(1,1)&
2982 : & *dgm01(3,3)*dgm10(3,3)+18*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2983 : & *dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)&
2984 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+6*(dgm01(1,1)*dgm10(3,3)&
2985 576 : & +gm(1,3)*d2gm(1,3)+gm(1,1)*d2gm(3,3)))
2986 : cm(4,15)=gm(1,3)*(6*gm(1,2)*dgm01(3,3)*dgm10(3,3)+3*gm(1,3)&
2987 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-6*gm(3,3)**2*(dgm01(1,3)&
2988 : & *dgm10(1,2)+dgm01(1,2)*dgm10(1,3)+gm(1,2)*d2gm(1,3))+gm(2,3)&
2989 : & *(24*gm(1,1)*dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
2990 : & +dgm01(1,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(12*dgm01(3,3)&
2991 : & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+12*dgm01(1,1)*dgm10(3,3)&
2992 : & +18*gm(1,3)*d2gm(1,3)+12*gm(1,1)*d2gm(3,3)))+gm(3,3)*(-9*gm(1,2)&
2993 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+12*gm(1,1)*(dgm01(3,3)&
2994 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(1,3)*(3*dgm01(3,3)*dgm10(1,2)&
2995 : & +18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
2996 576 : & *dgm10(3,3)+3*gm(1,2)*d2gm(3,3)))
2997 : cm(5,15)=-3*gm(3,3)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)&
2998 : & +gm(1,1)*d2gm(1,3))+gm(1,3)*(15*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
2999 : & +13.5d0*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3000 : & +1.5d0*gm(1,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(1,1)*(dgm01(3,3)&
3001 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+9*gm(1,3)**2*d2gm(1,3)+gm(1,3)&
3002 : & *(7.5d0*dgm01(3,3)*dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+7.5d0*dgm01(1,1)&
3003 576 : & *dgm10(3,3)+7.5d0*gm(1,1)*d2gm(3,3)))
3004 : cm(6,15)=(-72*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(1,2)+18*gm(1,3)&
3005 : & **2*dgm01(3,3)*dgm10(1,2)-54*gm(1,1)*gm(3,3)*dgm01(3,3)*dgm10(1,2)&
3006 : & -72*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(1,3)+180*gm(1,3)**2*dgm01(2,3)&
3007 : & *dgm10(1,3)-36*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(1,3)+180*gm(1,3)&
3008 : & **2*dgm01(1,3)*dgm10(2,3)-36*gm(1,1)*gm(3,3)*dgm01(1,3)*dgm10(2,3)&
3009 : & +144*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,3)+18*gm(1,3)**2*dgm01(1,2)&
3010 : & *dgm10(3,3)-54*gm(1,1)*gm(3,3)*dgm01(1,2)*dgm10(3,3)+144*gm(1,1)&
3011 : & *gm(1,3)*dgm01(2,3)*dgm10(3,3)+gm(1,2)*(-108*gm(1,1)*dgm01(3,3)&
3012 : & *dgm10(3,3)-36*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3013 : & +18*gm(1,3)**2*d2gm(3,3)+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,1)-144*dgm01(1,3)&
3014 : & *dgm10(1,3)-54*dgm01(1,1)*dgm10(3,3)-72*gm(1,3)*d2gm(1,3)-54*gm(1,1)&
3015 : & *d2gm(3,3)))+gm(2,3)*(108*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3016 : & *dgm10(3,3))+180*gm(1,3)**2*d2gm(1,3)-36*gm(3,3)*(dgm01(1,3)&
3017 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)+gm(1,1)*d2gm(1,3))+gm(1,3)&
3018 : & *(144*dgm01(3,3)*dgm10(1,1)+720*dgm01(1,3)*dgm10(1,3)+144*dgm01(1,1)&
3019 576 : & *dgm10(3,3)+144*gm(1,1)*d2gm(3,3))))/12.d0
3020 : cm(7,15)=(-54*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3021 : & *dgm10(3,3))+180*gm(2,3)**3*d2gm(1,3)+gm(2,3)**2*(270*dgm01(3,3)&
3022 : & *dgm10(1,2)+540*dgm01(2,3)*dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)&
3023 : & +270*dgm01(1,2)*dgm10(3,3)+270*gm(1,2)*d2gm(3,3))+gm(2,2)*(-108*(gm(1,2)&
3024 : & *dgm01(3,3)*dgm10(3,3)+gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3025 : & *dgm10(3,3)))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)&
3026 : & *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3)&
3027 : & -54*gm(1,2)*d2gm(3,3)))+gm(2,3)*(-108*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
3028 : & +540*gm(1,2)*dgm01(3,3)*dgm10(2,3)-108*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3029 : & +540*gm(1,2)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,2)*dgm10(1,3)&
3030 : & +dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))+gm(2,2)*(-216*dgm01(3,3)&
3031 : & *dgm10(1,3)-216*dgm01(1,3)*dgm10(3,3)-108*gm(1,3)*d2gm(3,3))))&
3032 576 : & /36.d0
3033 : cm(8,15)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)&
3034 : & *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
3035 : & *dgm10(3,3)+gm(2,3)*d2gm(1,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)&
3036 : & *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3037 : & *dgm10(3,3))+gm(2,3)*(15*dgm01(3,3)*dgm10(1,3)+15*dgm01(1,3)&
3038 576 : & *dgm10(3,3)+3*gm(1,3)*d2gm(3,3)))
3039 : cm(9,15)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)&
3040 : & **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(2,2)*d2gm(1,3))&
3041 : & +gm(2,3)**2*(10.5d0*dgm01(3,3)*dgm10(1,3)+10.5d0*dgm01(1,3)*dgm10(3,3)&
3042 : & +9*gm(3,3)*d2gm(1,3)+1.5d0*gm(1,3)*d2gm(3,3))+gm(2,3)*(24*gm(1,2)&
3043 : & *dgm01(3,3)*dgm10(3,3)+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3044 : & *dgm10(3,3))+gm(3,3)*(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
3045 : & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)&
3046 : & +12*gm(1,2)*d2gm(3,3)))+gm(3,3)*(-4.5d0*gm(1,3)*(dgm01(3,3)*dgm10(2,2)&
3047 : & +dgm01(2,2)*dgm10(3,3))+12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3048 : & *dgm10(3,3))+gm(2,2)*(-10.5d0*dgm01(3,3)*dgm10(1,3)-10.5d0*dgm01(1,3)&
3049 576 : & *dgm10(3,3)-4.5d0*gm(1,3)*d2gm(3,3)))
3050 : cm(10,15)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
3051 : & **2*d2gm(1,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(1,3)+9*dgm01(1,3)*dgm10(3,3)&
3052 576 : & +3*gm(1,3)*d2gm(3,3)))
3053 : cm(1,16)=(270*gm(1,2)**2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3054 : & -54*gm(1,1)*gm(2,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3055 : & +90*gm(1,2)**3*d2gm(2,2)+gm(1,2)*(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)&
3056 : & -54*gm(2,2)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3057 576 : & *d2gm(2,2))))/36.d0
3058 : cm(2,16)=gm(2,2)*(12*gm(1,2)*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)&
3059 576 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))
3060 : cm(3,16)=((90*gm(2,3)**2*dgm01(1,2)-18*gm(1,2)*gm(3,3)*dgm01(2,2)&
3061 : & +gm(2,3)*(-36*gm(2,2)*dgm01(1,3)-36*gm(1,3)*dgm01(2,2)+180*gm(1,2)&
3062 : & *dgm01(2,3))+gm(2,2)*(-18*gm(3,3)*dgm01(1,2)-36*gm(1,3)*dgm01(2,3)&
3063 : & -18*gm(1,2)*dgm01(3,3)))*dgm10(2,2)+dgm01(2,2)*(90*gm(2,3)**2*dgm10(1,2)&
3064 : & -18*gm(1,2)*gm(3,3)*dgm10(2,2)+gm(2,3)*(-36*gm(2,2)*dgm10(1,3)&
3065 : & -36*gm(1,3)*dgm10(2,2)+180*gm(1,2)*dgm10(2,3))+gm(2,2)*(-18*gm(3,3)&
3066 : & *dgm10(1,2)-36*gm(1,3)*dgm10(2,3)-18*gm(1,2)*dgm10(3,3)))+(-36*gm(1,3)&
3067 : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3068 576 : & *d2gm(2,2))/12.d0
3069 : cm(4,16)=18*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)-3*gm(2,2)&
3070 : & **2*(dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+gm(1,3)*d2gm(2,2))&
3071 : & +gm(2,2)*(-12*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)&
3072 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+9*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
3073 576 : & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))
3074 : cm(5,16)=((-18*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(180*gm(2,3)&
3075 : & *dgm01(1,2)-36*gm(1,3)*dgm01(2,2))+90*gm(1,2)**2*dgm01(2,3)+gm(2,2)&
3076 : & *(-18*gm(2,3)*dgm01(1,1)-36*gm(1,3)*dgm01(1,2)-36*gm(1,2)*dgm01(1,3)&
3077 : & -18*gm(1,1)*dgm01(2,3)))*dgm10(2,2)+dgm01(2,2)*(-18*gm(1,1)*gm(2,3)&
3078 : & *dgm10(2,2)+gm(1,2)*(180*gm(2,3)*dgm10(1,2)-36*gm(1,3)*dgm10(2,2))&
3079 : & +90*gm(1,2)**2*dgm10(2,3)+gm(2,2)*(-18*gm(2,3)*dgm10(1,1)-36*gm(1,3)&
3080 : & *dgm10(1,2)-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3)))+(-36*gm(1,2)&
3081 : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3082 576 : & *d2gm(2,2))/12.d0
3083 : cm(6,16)=9*gm(1,2)**2*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)**2*(dgm01(2,2)&
3084 : & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(2,2)&
3085 : & *(-6*gm(1,1)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,2)*dgm10(1,2)&
3086 576 : & +dgm01(1,2)*dgm10(2,2))+4.5d0*gm(1,2)**2*d2gm(2,2))
3087 576 : cm(7,16)=gm(2,2)**2*(6*dgm01(2,2)*dgm10(2,2)+gm(2,2)*d2gm(2,2))
3088 : cm(8,16)=9*gm(2,2)*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3089 : & *dgm10(2,3))+gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)&
3090 : & *d2gm(2,2))+gm(2,2)*(-1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)&
3091 : & *dgm10(3,3))+gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)&
3092 576 : & *d2gm(2,2)))
3093 : cm(9,16)=gm(2,2)*(3*gm(2,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3094 576 : & *dgm10(2,3))+gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2)))
3095 : cm(10,16)=(270*gm(2,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3096 : & *dgm10(2,3))-54*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3097 : & *dgm10(2,3))+90*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(-54*gm(2,2)*(dgm01(3,3)&
3098 : & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3))+gm(3,3)*(-108*dgm01(2,2)*dgm10(2,2)&
3099 576 : & -54*gm(2,2)*d2gm(2,2))))/36.d0
3100 : cm(1,17)=(3*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
3101 : & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
3102 : & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
3103 : & +gm(1,1)*dgm01(3,3)))*dgm10(2,2)+dgm01(3,3)*(270*gm(1,2)**2*dgm10(1,2)&
3104 : & -54*gm(1,1)*gm(2,2)*dgm10(1,2)-54*gm(1,2)*(gm(2,2)*dgm10(1,1)&
3105 : & +gm(1,1)*dgm10(2,2)))+6*(90*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)&
3106 : & *dgm01(1,2)-18*gm(2,2)*dgm01(1,3))+gm(1,3)*(-18*gm(2,2)*dgm01(1,1)&
3107 : & +180*gm(1,2)*dgm01(1,2)-18*gm(1,1)*dgm01(2,2))-36*gm(1,2)*(gm(2,3)&
3108 : & *dgm01(1,1)+gm(1,1)*dgm01(2,3)))*dgm10(2,3)+6*dgm01(2,3)*(90*gm(1,2)&
3109 : & **2*dgm10(1,3)+gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))&
3110 : & +gm(1,3)*(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)&
3111 : & *dgm10(2,2))-36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))&
3112 : & +(270*gm(1,2)**2*dgm01(1,2)-54*gm(1,1)*gm(2,2)*dgm01(1,2)-54*gm(1,2)&
3113 : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3)+3*dgm01(2,2)&
3114 : & *(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)*dgm10(1,2)-36*gm(2,3)&
3115 : & *dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)+180*gm(1,2)*dgm10(1,3)&
3116 : & -36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)*dgm10(1,1)+gm(1,1)&
3117 : & *dgm10(3,3)))+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3118 : & **2-18*gm(1,1)*gm(3,3)))*d2gm(2,2)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3119 : & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*d2gm(2,3)+(90*gm(1,2)**3-54*gm(1,1)&
3120 576 : & *gm(1,2)*gm(2,2))*d2gm(3,3))/36.d0
3121 : cm(2,17)=-9*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+1.5d0*gm(2,3)&
3122 : & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))&
3123 : & +gm(2,2)*(36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3124 : & +gm(1,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3125 : & +1.5d0*dgm01(2,2)*dgm10(3,3))-4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
3126 : & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2)))+gm(2,3)*(24*gm(1,3)&
3127 : & *dgm01(2,2)*dgm10(2,2)+9*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3128 : & *dgm10(2,3))+gm(2,2)*(6*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)&
3129 : & +12*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)&
3130 : & *d2gm(2,2)+6*gm(1,2)*d2gm(2,3)))+gm(2,2)**2*(3*dgm01(3,3)*dgm10(1,2)&
3131 : & +12*dgm01(2,3)*dgm10(1,3)+12*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)&
3132 576 : & *dgm10(3,3)+12*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))
3133 : cm(3,17)=gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(3,3)-12*gm(1,3)&
3134 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+6*gm(3,3)**2*(dgm01(2,2)&
3135 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)&
3136 : & **2*(7.5d0*dgm01(3,3)*dgm10(1,2)+3*dgm01(2,3)*dgm10(1,3)+3*dgm01(1,3)&
3137 : & *dgm10(2,3)+7.5d0*dgm01(1,2)*dgm10(3,3)+3*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)&
3138 : & *d2gm(3,3))+gm(3,3)*(-6*gm(1,3)*dgm01(2,3)*dgm10(2,2)+10.5d0*gm(1,2)&
3139 : & *dgm01(3,3)*dgm10(2,2)-6*gm(1,3)*dgm01(2,2)*dgm10(2,3)+48*gm(1,2)&
3140 : & *dgm01(2,3)*dgm10(2,3)+10.5d0*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)&
3141 : & *(24*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
3142 : & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+24*gm(1,2)&
3143 : & *d2gm(2,3))+gm(2,2)*(-1.5d0*dgm01(3,3)*dgm10(1,2)-9*dgm01(2,3)&
3144 : & *dgm10(1,3)-9*dgm01(1,3)*dgm10(2,3)-1.5d0*dgm01(1,2)*dgm10(3,3)&
3145 : & -9*gm(1,3)*d2gm(2,3)-1.5d0*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)&
3146 : & *(0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+0*dgm01(2,2)&
3147 : & *dgm10(3,3))+39*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3148 : & -3*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)&
3149 576 : & *d2gm(3,3)))
3150 : cm(4,17)=gm(3,3)*(24*gm(1,3)*dgm01(2,2)*dgm10(2,2)+27*gm(1,2)&
3151 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(6*dgm01(2,3)&
3152 : & *dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+6*dgm01(1,2)&
3153 : & *dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+6*gm(1,2)*d2gm(2,3))+gm(2,2)&
3154 : & *(gm(1,3)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)&
3155 : & *dgm10(3,3))+33*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3156 : & +gm(3,3)*(24*dgm01(2,3)*dgm10(1,2)+12*dgm01(2,2)*dgm10(1,3)+12*dgm01(1,3)&
3157 : & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+12*gm(1,3)*d2gm(2,2)+24*gm(1,2)&
3158 : & *d2gm(2,3)))-3*gm(2,2)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)&
3159 : & +gm(1,3)*d2gm(3,3))+gm(2,3)*(12*gm(1,3)*dgm01(2,3)*dgm10(2,2)&
3160 : & +12*gm(1,2)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,2)*dgm10(2,3)&
3161 : & +24*gm(1,2)*dgm01(2,3)*dgm10(2,3)+12*gm(1,2)*dgm01(2,2)*dgm10(3,3)&
3162 : & +3*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)&
3163 : & *d2gm(2,2))+gm(2,2)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)&
3164 : & +6*dgm01(1,3)*dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)&
3165 576 : & +9*gm(1,2)*d2gm(3,3)))
3166 : cm(5,17)=12*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+30*gm(1,2)&
3167 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*gm(3,3)*dgm01(2,2)&
3168 : & *dgm10(1,3)+12*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)+12*gm(1,2)&
3169 : & *gm(3,3)*dgm01(1,3)*dgm10(2,2)-4.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)&
3170 : & -7.5d0*gm(1,1)*gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)&
3171 : & *dgm01(3,3)*dgm10(2,2)+30*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)&
3172 : & -4.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(2,3)-7.5d0*gm(1,1)*gm(3,3)&
3173 : & *dgm01(2,2)*dgm10(2,3)+36*gm(1,2)*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3174 : & +22.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)+9*gm(1,2)*gm(1,3)*dgm01(2,2)&
3175 : & *dgm10(3,3)+22.5d0*gm(1,2)**2*dgm01(2,3)*dgm10(3,3)+12*gm(1,2)&
3176 : & *gm(1,3)*gm(3,3)*d2gm(2,2)+15*gm(1,2)**2*gm(3,3)*d2gm(2,3)-6*gm(2,3)&
3177 : & **2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))&
3178 : & +gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)+15*gm(1,2)*dgm01(3,3)&
3179 : & *dgm10(1,2)+3*gm(1,3)*dgm01(2,2)*dgm10(1,3)+18*gm(1,2)*dgm01(2,3)&
3180 : & *dgm10(1,3)+3*gm(1,3)*dgm01(1,3)*dgm10(2,2)-6*gm(1,1)*dgm01(3,3)&
3181 : & *dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)+18*gm(1,2)*dgm01(1,3)&
3182 : & *dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)+15*gm(1,2)*dgm01(1,2)&
3183 : & *dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)+1.5d0*gm(1,3)**2*d2gm(2,2)&
3184 : & -4.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3185 : & *d2gm(2,2))+18*gm(1,2)*gm(1,3)*d2gm(2,3)+7.5d0*gm(1,2)**2*d2gm(3,3)&
3186 : & -1.5d0*gm(2,2)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
3187 : & *d2gm(3,3)))+gm(2,2)*(-3*gm(1,2)*dgm01(3,3)*dgm10(1,3)-4.5d0*gm(1,1)&
3188 : & *dgm01(3,3)*dgm10(2,3)-3*gm(1,2)*dgm01(1,3)*dgm10(3,3)-4.5d0*gm(1,1)&
3189 : & *dgm01(2,3)*dgm10(3,3)-6*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)&
3190 : & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)&
3191 : & *(-3*dgm01(3,3)*dgm10(1,2)-12*dgm01(2,3)*dgm10(1,3)-12*dgm01(1,3)&
3192 576 : & *dgm10(2,3)-3*dgm01(1,2)*dgm10(3,3)-3*gm(1,2)*d2gm(3,3)))
3193 : cm(6,17)=-6*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-6*gm(1,2)&
3194 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)+15*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
3195 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+33*gm(1,2)*gm(1,3)*dgm01(2,3)&
3196 : & *dgm10(2,2)+1.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+33*gm(1,2)&
3197 : & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+6*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
3198 : & +1.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)-3*gm(1,2)**2*gm(3,3)&
3199 : & *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
3200 : & +gm(1,1)*d2gm(2,2))+gm(2,3)*(6*gm(1,2)*dgm01(2,3)*dgm10(1,2)&
3201 : & +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)&
3202 : & -15*gm(1,1)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
3203 : & -15*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
3204 : & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+3*gm(1,2)**2*d2gm(2,3)&
3205 : & -9*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3206 : & *d2gm(2,3)))-1.5d0*gm(2,2)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3207 : & *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(2,2)*(9*gm(1,2)*dgm01(3,3)&
3208 : & *dgm10(1,2)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)-4.5d0*gm(1,1)*dgm01(3,3)&
3209 : & *dgm10(2,2)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)&
3210 : & *dgm10(2,3)+9*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
3211 : & *dgm10(3,3)+7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)&
3212 : & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+gm(1,3)&
3213 : & *(24*dgm01(2,3)*dgm10(1,2)+15*dgm01(2,2)*dgm10(1,3)+15*dgm01(1,3)&
3214 : & *dgm10(2,2)+24*dgm01(1,2)*dgm10(2,3)+24*gm(1,2)*d2gm(2,3))+4.5d0*gm(1,2)&
3215 576 : & **2*d2gm(3,3))
3216 : cm(7,17)=gm(2,3)**2*(9*dgm01(2,2)*dgm10(2,2)+4.5d0*gm(2,2)*d2gm(2,2))&
3217 : & +gm(2,2)*gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)&
3218 : & +6*gm(2,2)*d2gm(2,3))+gm(2,2)*(gm(3,3)*(-6*dgm01(2,2)*dgm10(2,2)&
3219 : & -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(1.5d0*dgm01(3,3)*dgm10(2,2)&
3220 : & +12*dgm01(2,3)*dgm10(2,3)+1.5d0*dgm01(2,2)*dgm10(3,3)+gm(2,2)&
3221 576 : & *d2gm(3,3)))
3222 : cm(8,17)=-3*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+24*gm(2,2)*gm(2,3)&
3223 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(12*dgm01(2,2)&
3224 : & *dgm10(2,2)+6*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)&
3225 : & **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3226 : & *dgm10(3,3)+4.5d0*gm(2,2)*d2gm(3,3))+gm(3,3)*(3*gm(2,3)**2*d2gm(2,2)&
3227 : & +gm(2,3)*(21*dgm01(2,3)*dgm10(2,2)+21*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)&
3228 : & *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
3229 576 : & +9*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3230 : cm(9,17)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(10.5d0*dgm01(2,3)&
3231 : & *dgm10(2,2)+10.5d0*dgm01(2,2)*dgm10(2,3)+6*gm(2,2)*d2gm(2,3))&
3232 : & +gm(2,2)*(15*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3233 : & +gm(3,3)*(31.5d0*dgm01(2,3)*dgm10(2,2)+31.5d0*dgm01(2,2)*dgm10(2,3)&
3234 : & +12*gm(2,2)*d2gm(2,3)))+gm(2,3)*(gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)&
3235 : & +7.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(13.5d0*dgm01(3,3)*dgm10(2,2)&
3236 : & +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)&
3237 576 : & *d2gm(3,3)))
3238 : cm(10,17)=gm(3,3)**2*(0*dgm01(2,3)*dgm10(2,2)+0*dgm01(2,2)*dgm10(2,3)&
3239 : & +3*gm(2,3)*d2gm(2,2)-3*gm(2,2)*d2gm(2,3))+gm(2,3)*(-3*gm(2,2)&
3240 : & *dgm01(3,3)*dgm10(3,3)+16.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
3241 : & +dgm01(2,3)*dgm10(3,3))+2.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(-7.5d0*gm(2,2)&
3242 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)&
3243 : & +gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)&
3244 576 : & +4.5d0*dgm01(2,2)*dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3245 : cm(1,18)=(gm(1,2)**2*(540*dgm01(2,3)*dgm10(1,2)+270*dgm01(2,2)&
3246 : & *dgm10(1,3)+270*dgm01(1,3)*dgm10(2,2)+540*dgm01(1,2)*dgm10(2,3))&
3247 : & +gm(1,1)*(-108*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
3248 : & +gm(2,2)*(-108*dgm01(2,3)*dgm10(1,2)-54*dgm01(2,2)*dgm10(1,3)&
3249 : & -54*dgm01(1,3)*dgm10(2,2)-108*dgm01(1,2)*dgm10(2,3)))+gm(1,3)&
3250 : & *(-108*gm(1,1)*dgm01(2,2)*dgm10(2,2)+540*gm(1,2)*(dgm01(2,2)&
3251 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+270*gm(1,2)**2*d2gm(2,2)-54*gm(2,2)&
3252 : & *(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2)))&
3253 : & +180*gm(1,2)**3*d2gm(2,3)+gm(1,2)*(-216*gm(1,1)*(dgm01(2,3)*dgm10(2,2)&
3254 : & +dgm01(2,2)*dgm10(2,3))-108*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3255 : & *dgm10(2,2)+gm(1,1)*d2gm(2,2))-108*gm(2,2)*(dgm01(2,3)*dgm10(1,1)&
3256 576 : & +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))))/36.d0
3257 : cm(2,18)=6*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(24*gm(1,3)&
3258 : & *dgm01(2,2)*dgm10(2,2)+15*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3259 : & *dgm10(2,3))+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3260 : & +gm(1,2)*d2gm(2,2)))+6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(2,2)&
3261 : & *dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)+gm(1,3)&
3262 576 : & *d2gm(2,2)+gm(1,2)*d2gm(2,3))
3263 : cm(3,18)=gm(3,3)*(-9*gm(1,3)*dgm01(2,2)*dgm10(2,2)+9*gm(1,2)&
3264 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(15*dgm01(2,3)&
3265 : & *dgm10(1,2)+1.5d0*dgm01(2,2)*dgm10(1,3)+1.5d0*dgm01(1,3)*dgm10(2,2)&
3266 : & +15*dgm01(1,2)*dgm10(2,3)+1.5d0*gm(1,3)*d2gm(2,2)+15*gm(1,2)&
3267 : & *d2gm(2,3))+gm(2,2)*(gm(1,3)*(-4.5d0*dgm01(3,3)*dgm10(2,2)-12*dgm01(2,3)&
3268 : & *dgm10(2,3)-4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(1,2)*(dgm01(3,3)&
3269 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-3*dgm01(2,3)*dgm10(1,2)&
3270 : & -4.5d0*dgm01(2,2)*dgm10(1,3)-4.5d0*dgm01(1,3)*dgm10(2,2)-3*dgm01(1,2)&
3271 : & *dgm10(2,3)-4.5d0*gm(1,3)*d2gm(2,2)-3*gm(1,2)*d2gm(2,3)))+gm(2,3)&
3272 : & *(-3*gm(1,3)*dgm01(2,3)*dgm10(2,2)+12*gm(1,2)*dgm01(3,3)*dgm10(2,2)&
3273 : & -3*gm(1,3)*dgm01(2,2)*dgm10(2,3)+60*gm(1,2)*dgm01(2,3)*dgm10(2,3)&
3274 : & +12*gm(1,2)*dgm01(2,2)*dgm10(3,3)+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)&
3275 : & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))-6*gm(2,2)*(dgm01(2,3)&
3276 576 : & *dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+gm(1,3)*d2gm(2,3)))
3277 : cm(4,18)=24*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(2,3)&
3278 : & **2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))&
3279 : & +gm(2,2)*(-9*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3280 : & +gm(1,2)*(12*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)&
3281 : & *dgm10(3,3))+12*gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3282 : & +gm(1,2)*d2gm(2,2)))-6*gm(2,2)**2*(dgm01(2,3)*dgm10(1,3)+dgm01(1,3)&
3283 : & *dgm10(2,3)+gm(1,3)*d2gm(2,3))+gm(2,3)*(6*gm(1,3)*dgm01(2,2)&
3284 : & *dgm10(2,2)+24*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
3285 : & +gm(2,2)*(18*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)*dgm10(1,3)+3*dgm01(1,3)&
3286 : & *dgm10(2,2)+18*dgm01(1,2)*dgm10(2,3)+3*gm(1,3)*d2gm(2,2)+18*gm(1,2)&
3287 576 : & *d2gm(2,3)))
3288 : cm(5,18)=15*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,2)+15*gm(1,2)&
3289 : & *gm(3,3)*dgm01(1,2)*dgm10(2,2)-6*gm(1,3)**2*dgm01(2,2)*dgm10(2,2)&
3290 : & -3*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+3*gm(1,2)*gm(1,3)*dgm01(2,3)&
3291 : & *dgm10(2,2)+7.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,2)+3*gm(1,2)&
3292 : & *gm(1,3)*dgm01(2,2)*dgm10(2,3)+30*gm(1,2)**2*dgm01(2,3)*dgm10(2,3)&
3293 : & +7.5d0*gm(1,2)**2*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(1,2)**2*gm(3,3)&
3294 : & *d2gm(2,2)-3*gm(2,3)**2*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)&
3295 : & +gm(1,1)*d2gm(2,2))+gm(2,3)*(30*gm(1,2)*dgm01(2,3)*dgm10(1,2)&
3296 : & +9*gm(1,2)*dgm01(2,2)*dgm10(1,3)+9*gm(1,2)*dgm01(1,3)*dgm10(2,2)&
3297 : & -9*gm(1,1)*dgm01(2,3)*dgm10(2,2)+30*gm(1,2)*dgm01(1,2)*dgm10(2,3)&
3298 : & -9*gm(1,1)*dgm01(2,2)*dgm10(2,3)+9*gm(1,3)*(dgm01(2,2)*dgm10(1,2)&
3299 : & +dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+15*gm(1,2)**2*d2gm(2,3)&
3300 : & -3*gm(2,2)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3301 : & *d2gm(2,3)))+gm(2,2)*(-6*gm(1,2)*dgm01(2,3)*dgm10(1,3)-1.5d0*gm(1,1)&
3302 : & *dgm01(3,3)*dgm10(2,2)-6*gm(1,2)*dgm01(1,3)*dgm10(2,3)-6*gm(1,1)&
3303 : & *dgm01(2,3)*dgm10(2,3)-1.5d0*gm(1,1)*dgm01(2,2)*dgm10(3,3)-3*gm(1,3)&
3304 : & **2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)&
3305 : & *dgm10(2,2)+gm(1,1)*d2gm(2,2))-6*gm(1,3)*(dgm01(2,3)*dgm10(1,2)&
3306 : & +dgm01(2,2)*dgm10(1,3)+dgm01(1,3)*dgm10(2,2)+dgm01(1,2)*dgm10(2,3)&
3307 576 : & +gm(1,2)*d2gm(2,3)))
3308 : cm(6,18)=-9*gm(1,1)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(1,2)*(24*gm(1,3)&
3309 : & *dgm01(2,2)*dgm10(2,2)+3*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
3310 : & *dgm10(2,2)))+gm(1,2)**2*(10.5d0*dgm01(2,3)*dgm10(2,2)+10.5d0*dgm01(2,2)&
3311 : & *dgm10(2,3)+1.5d0*gm(2,3)*d2gm(2,2))-3*gm(2,2)**2*(dgm01(2,3)&
3312 : & *dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(2,2)&
3313 : & *(18*gm(1,2)*dgm01(2,3)*dgm10(1,2)+12*gm(1,2)*dgm01(2,2)*dgm10(1,3)&
3314 : & +12*gm(1,2)*dgm01(1,3)*dgm10(2,2)-10.5d0*gm(1,1)*dgm01(2,3)*dgm10(2,2)&
3315 : & +18*gm(1,2)*dgm01(1,2)*dgm10(2,3)-10.5d0*gm(1,1)*dgm01(2,2)*dgm10(2,3)&
3316 : & -4.5d0*gm(2,3)*(dgm01(2,2)*dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)&
3317 : & *d2gm(2,2))+12*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)&
3318 576 : & +gm(1,2)*d2gm(2,2))+9*gm(1,2)**2*d2gm(2,3))
3319 : cm(7,18)=gm(2,2)*(gm(2,3)*(12*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)&
3320 : & *d2gm(2,2))+gm(2,2)*(9*dgm01(2,3)*dgm10(2,2)+9*dgm01(2,2)*dgm10(2,3)&
3321 576 : & +2*gm(2,2)*d2gm(2,3)))
3322 : cm(8,18)=1.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)*(gm(2,2)*(7.5d0*dgm01(3,3)&
3323 : & *dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)*dgm10(3,3))&
3324 : & +gm(3,3)*(15*dgm01(2,2)*dgm10(2,2)+7.5d0*gm(2,2)*d2gm(2,2)))&
3325 : & +gm(2,3)**2*(13.5d0*dgm01(2,3)*dgm10(2,2)+13.5d0*dgm01(2,2)*dgm10(2,3)&
3326 : & +9*gm(2,2)*d2gm(2,3))+gm(2,2)*(-3*gm(2,2)*(dgm01(3,3)*dgm10(2,3)&
3327 : & +dgm01(2,3)*dgm10(3,3))+gm(3,3)*(1.5d0*dgm01(2,3)*dgm10(2,2)&
3328 576 : & +1.5d0*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3)))
3329 : cm(9,18)=gm(2,3)**2*(6*dgm01(2,2)*dgm10(2,2)+3*gm(2,2)*d2gm(2,2))&
3330 : & +gm(2,2)*(gm(2,2)*(6*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3331 : & +6*dgm01(2,2)*dgm10(3,3))+gm(3,3)*(24*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)&
3332 : & *d2gm(2,2)))+gm(2,2)*gm(2,3)*(18*dgm01(2,3)*dgm10(2,2)+18*dgm01(2,2)&
3333 576 : & *dgm10(2,3)+6*gm(2,2)*d2gm(2,3))
3334 : cm(10,18)=gm(3,3)**2*(-3*dgm01(2,2)*dgm10(2,2)-1.5d0*gm(2,2)&
3335 : & *d2gm(2,2))+gm(2,3)*(gm(2,3)*(4.5d0*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)&
3336 : & *dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3))-3*gm(2,2)*(dgm01(3,3)&
3337 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+5*gm(2,3)**2*d2gm(2,3))+gm(3,3)&
3338 : & *(gm(2,2)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)&
3339 : & *dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(2,2)+gm(2,3)*(6*dgm01(2,3)&
3340 576 : & *dgm10(2,2)+6*dgm01(2,2)*dgm10(2,3)-3*gm(2,2)*d2gm(2,3)))
3341 : cm(1,19)=((270*gm(1,3)**2*dgm01(1,3)-54*gm(1,1)*gm(3,3)*dgm01(1,3)&
3342 : & -54*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)&
3343 : & +6*(90*gm(1,3)**2*dgm01(1,2)+gm(1,1)*(-18*gm(3,3)*dgm01(1,2)&
3344 : & -36*gm(2,3)*dgm01(1,3))+gm(1,3)*(-36*gm(2,3)*dgm01(1,1)+180*gm(1,2)&
3345 : & *dgm01(1,3)-36*gm(1,1)*dgm01(2,3))-18*gm(1,2)*(gm(3,3)*dgm01(1,1)&
3346 : & +gm(1,1)*dgm01(3,3)))*dgm10(2,3)+3*dgm01(3,3)*(90*gm(1,2)**2*dgm10(1,3)&
3347 : & +gm(1,1)*(-36*gm(2,3)*dgm10(1,2)-18*gm(2,2)*dgm10(1,3))+gm(1,3)&
3348 : & *(-18*gm(2,2)*dgm10(1,1)+180*gm(1,2)*dgm10(1,2)-18*gm(1,1)*dgm10(2,2))&
3349 : & -36*gm(1,2)*(gm(2,3)*dgm10(1,1)+gm(1,1)*dgm10(2,3)))+3*(90*gm(1,2)&
3350 : & **2*dgm01(1,3)+gm(1,1)*(-36*gm(2,3)*dgm01(1,2)-18*gm(2,2)*dgm01(1,3))&
3351 : & +gm(1,3)*(-18*gm(2,2)*dgm01(1,1)+180*gm(1,2)*dgm01(1,2)-18*gm(1,1)&
3352 : & *dgm01(2,2))-36*gm(1,2)*(gm(2,3)*dgm01(1,1)+gm(1,1)*dgm01(2,3)))&
3353 : & *dgm10(3,3)+6*dgm01(2,3)*(90*gm(1,3)**2*dgm10(1,2)+gm(1,1)*(-18*gm(3,3)&
3354 : & *dgm10(1,2)-36*gm(2,3)*dgm10(1,3))+gm(1,3)*(-36*gm(2,3)*dgm10(1,1)&
3355 : & +180*gm(1,2)*dgm10(1,3)-36*gm(1,1)*dgm10(2,3))-18*gm(1,2)*(gm(3,3)&
3356 : & *dgm10(1,1)+gm(1,1)*dgm10(3,3)))+dgm01(2,2)*(270*gm(1,3)**2*dgm10(1,3)&
3357 : & -54*gm(1,1)*gm(3,3)*dgm10(1,3)-54*gm(1,3)*(gm(3,3)*dgm10(1,1)&
3358 : & +gm(1,1)*dgm10(3,3)))+(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
3359 : & *d2gm(2,2)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3360 : & **2-18*gm(1,1)*gm(3,3)))*d2gm(2,3)+3*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3361 576 : & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*d2gm(3,3))/36.d0
3362 : cm(2,19)=gm(3,3)*(-3*gm(1,3)*dgm01(2,2)*dgm10(2,2)-12*gm(1,2)&
3363 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))+gm(2,3)**2*(3*dgm01(2,3)&
3364 : & *dgm10(1,2)+7.5d0*dgm01(2,2)*dgm10(1,3)+7.5d0*dgm01(1,3)*dgm10(2,2)&
3365 : & +3*dgm01(1,2)*dgm10(2,3)+7.5d0*gm(1,3)*d2gm(2,2)+3*gm(1,2)*d2gm(2,3))&
3366 : & +gm(2,2)*(gm(1,3)*(10.5d0*dgm01(3,3)*dgm10(2,2)+48*dgm01(2,3)&
3367 : & *dgm10(2,3)+10.5d0*dgm01(2,2)*dgm10(3,3))-6*gm(1,2)*(dgm01(3,3)&
3368 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-9*dgm01(2,3)*dgm10(1,2)&
3369 : & -1.5d0*dgm01(2,2)*dgm10(1,3)-1.5d0*dgm01(1,3)*dgm10(2,2)-9*dgm01(1,2)&
3370 : & *dgm10(2,3)-1.5d0*gm(1,3)*d2gm(2,2)-9*gm(1,2)*d2gm(2,3)))+6*gm(2,2)&
3371 : & **2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))&
3372 : & +gm(2,3)*(39*gm(1,3)*dgm01(2,3)*dgm10(2,2)+0*gm(1,2)*dgm01(3,3)&
3373 : & *dgm10(2,2)+39*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)*dgm01(2,3)&
3374 : & *dgm10(2,3)+0*gm(1,2)*dgm01(2,2)*dgm10(3,3)-3*gm(3,3)*(dgm01(2,2)&
3375 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,2)&
3376 : & *(3*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)+24*dgm01(1,3)&
3377 : & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)*d2gm(2,3)+3*gm(1,2)&
3378 576 : & *d2gm(3,3)))
3379 : cm(3,19)=-9*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(24*gm(1,2)&
3380 : & *dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3381 : & *dgm10(3,3)))+gm(3,3)**2*(12*dgm01(2,3)*dgm10(1,2)+3*dgm01(2,2)&
3382 : & *dgm10(1,3)+3*dgm01(1,3)*dgm10(2,2)+12*dgm01(1,2)*dgm10(2,3)&
3383 : & +3*gm(1,3)*d2gm(2,2)+12*gm(1,2)*d2gm(2,3))+1.5d0*gm(2,3)**2*(dgm01(3,3)&
3384 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)&
3385 : & *(1.5d0*gm(1,3)*dgm01(3,3)*dgm10(2,2)+12*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3386 : & +36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+1.5d0*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3387 : & +36*gm(1,2)*dgm01(2,3)*dgm10(3,3)+gm(2,3)*(12*dgm01(3,3)*dgm10(1,2)&
3388 : & +6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
3389 : & *dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+12*gm(1,2)*d2gm(3,3))-4.5d0*gm(2,2)&
3390 576 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3391 : cm(4,19)=gm(2,2)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+27*gm(1,3)&
3392 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,2)&
3393 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)+gm(1,2)*d2gm(2,2))+gm(2,3)&
3394 : & **2*(3*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
3395 : & *dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)+6*gm(1,3)*d2gm(2,3)+3*gm(1,2)&
3396 : & *d2gm(3,3))+gm(3,3)*(33*gm(1,3)*dgm01(2,3)*dgm10(2,2)+6*gm(1,2)&
3397 : & *dgm01(3,3)*dgm10(2,2)+33*gm(1,3)*dgm01(2,2)*dgm10(2,3)+12*gm(1,2)&
3398 : & *dgm01(2,3)*dgm10(2,3)+6*gm(1,2)*dgm01(2,2)*dgm10(3,3)+gm(2,3)&
3399 : & *(6*dgm01(2,3)*dgm10(1,2)+9*dgm01(2,2)*dgm10(1,3)+9*dgm01(1,3)&
3400 : & *dgm10(2,2)+6*dgm01(1,2)*dgm10(2,3)+9*gm(1,3)*d2gm(2,2)+6*gm(1,2)&
3401 : & *d2gm(2,3))+gm(2,2)*(12*dgm01(3,3)*dgm10(1,2)+24*dgm01(2,3)*dgm10(1,3)&
3402 : & +24*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+24*gm(1,3)&
3403 : & *d2gm(2,3)+12*gm(1,2)*d2gm(3,3)))+gm(2,3)*(gm(1,3)*(12*dgm01(3,3)&
3404 : & *dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+12*dgm01(2,2)*dgm10(3,3))&
3405 : & +12*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(2,2)&
3406 576 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3407 : cm(5,19)=-6*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(1,3)+1.5d0*gm(1,3)&
3408 : & **2*dgm01(3,3)*dgm10(2,2)+6*gm(1,3)**2*dgm01(2,3)*dgm10(2,3)&
3409 : & +33*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,3)-6*gm(1,3)*gm(2,2)*dgm01(1,3)&
3410 : & *dgm10(3,3)+1.5d0*gm(1,3)**2*dgm01(2,2)*dgm10(3,3)+33*gm(1,2)&
3411 : & *gm(1,3)*dgm01(2,3)*dgm10(3,3)+15*gm(1,2)**2*dgm01(3,3)*dgm10(3,3)&
3412 : & -3*gm(1,1)*gm(2,2)*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(2,2)&
3413 : & *dgm10(1,1)+dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))-3*gm(1,3)&
3414 : & **2*gm(2,2)*d2gm(3,3)-3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)&
3415 : & *dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)*(24*gm(1,3)*dgm01(2,3)&
3416 : & *dgm10(1,2)+15*gm(1,2)*dgm01(3,3)*dgm10(1,2)+9*gm(1,3)*dgm01(2,2)&
3417 : & *dgm10(1,3)+24*gm(1,2)*dgm01(2,3)*dgm10(1,3)+9*gm(1,3)*dgm01(1,3)&
3418 : & *dgm10(2,2)-4.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,2)+24*gm(1,3)*dgm01(1,2)&
3419 : & *dgm10(2,3)+24*gm(1,2)*dgm01(1,3)*dgm10(2,3)-18*gm(1,1)*dgm01(2,3)&
3420 : & *dgm10(2,3)+15*gm(1,2)*dgm01(1,2)*dgm10(3,3)-4.5d0*gm(1,1)*dgm01(2,2)&
3421 : & *dgm10(3,3)+4.5d0*gm(1,3)**2*d2gm(2,2)+24*gm(1,2)*gm(1,3)*d2gm(2,3)&
3422 : & -9*gm(2,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)+gm(1,1)&
3423 : & *d2gm(2,3))+7.5d0*gm(1,2)**2*d2gm(3,3)-1.5d0*gm(2,2)*(dgm01(3,3)&
3424 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,3)&
3425 : & *(9*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))-15*gm(1,1)&
3426 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+3*gm(1,3)**2*d2gm(2,3)&
3427 : & +gm(1,3)*(9*dgm01(3,3)*dgm10(1,2)+6*dgm01(2,3)*dgm10(1,3)+6*dgm01(1,3)&
3428 576 : & *dgm10(2,3)+9*dgm01(1,2)*dgm10(3,3)+9*gm(1,2)*d2gm(3,3)))
3429 : cm(6,19)=-3*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,2)-12*gm(1,2)&
3430 : & *gm(3,3)*dgm01(2,3)*dgm10(1,2)-3*gm(1,2)*gm(3,3)*dgm01(2,2)*dgm10(1,3)&
3431 : & -3*gm(1,3)*gm(3,3)*dgm01(1,2)*dgm10(2,2)-3*gm(1,2)*gm(3,3)*dgm01(1,3)&
3432 : & *dgm10(2,2)+22.5d0*gm(1,3)**2*dgm01(2,3)*dgm10(2,2)-4.5d0*gm(1,1)&
3433 : & *gm(3,3)*dgm01(2,3)*dgm10(2,2)+9*gm(1,2)*gm(1,3)*dgm01(3,3)*dgm10(2,2)&
3434 : & -12*gm(1,2)*gm(3,3)*dgm01(1,2)*dgm10(2,3)+22.5d0*gm(1,3)**2*dgm01(2,2)&
3435 : & *dgm10(2,3)-4.5d0*gm(1,1)*gm(3,3)*dgm01(2,2)*dgm10(2,3)+36*gm(1,2)&
3436 : & *gm(1,3)*dgm01(2,3)*dgm10(2,3)-4.5d0*gm(1,2)**2*dgm01(3,3)*dgm10(2,3)&
3437 : & +9*gm(1,2)*gm(1,3)*dgm01(2,2)*dgm10(3,3)-4.5d0*gm(1,2)**2*dgm01(2,3)&
3438 : & *dgm10(3,3)-3*gm(1,2)*gm(1,3)*gm(3,3)*d2gm(2,2)-6*gm(1,2)**2*gm(3,3)&
3439 : & *d2gm(2,3)-6*gm(2,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)*dgm10(2,3)&
3440 : & +gm(1,1)*d2gm(2,3))+gm(2,3)*(18*gm(1,3)*dgm01(2,3)*dgm10(1,2)&
3441 : & +3*gm(1,2)*dgm01(3,3)*dgm10(1,2)+15*gm(1,3)*dgm01(2,2)*dgm10(1,3)&
3442 : & +18*gm(1,2)*dgm01(2,3)*dgm10(1,3)+15*gm(1,3)*dgm01(1,3)*dgm10(2,2)&
3443 : & -6*gm(1,1)*dgm01(3,3)*dgm10(2,2)+18*gm(1,3)*dgm01(1,2)*dgm10(2,3)&
3444 : & +18*gm(1,2)*dgm01(1,3)*dgm10(2,3)-24*gm(1,1)*dgm01(2,3)*dgm10(2,3)&
3445 : & +3*gm(1,2)*dgm01(1,2)*dgm10(3,3)-6*gm(1,1)*dgm01(2,2)*dgm10(3,3)&
3446 : & +7.5d0*gm(1,3)**2*d2gm(2,2)-1.5d0*gm(3,3)*(dgm01(2,2)*dgm10(1,1)&
3447 : & +dgm01(1,1)*dgm10(2,2)+gm(1,1)*d2gm(2,2))+18*gm(1,2)*gm(1,3)&
3448 : & *d2gm(2,3)+1.5d0*gm(1,2)**2*d2gm(3,3)-4.5d0*gm(2,2)*(dgm01(3,3)&
3449 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(2,2)&
3450 : & *(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-7.5d0*gm(1,1)*dgm01(3,3)*dgm10(2,3)&
3451 : & +12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-7.5d0*gm(1,1)*dgm01(2,3)*dgm10(3,3)&
3452 : & +15*gm(1,3)**2*d2gm(2,3)-3*gm(3,3)*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3453 : & *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)*(12*dgm01(3,3)*dgm10(1,2)&
3454 : & +30*dgm01(2,3)*dgm10(1,3)+30*dgm01(1,3)*dgm10(2,3)+12*dgm01(1,2)&
3455 576 : & *dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
3456 : cm(7,19)=-7.5d0*gm(2,2)*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3457 : & *dgm10(2,3))+2.5d0*gm(2,3)**3*d2gm(2,2)+gm(2,3)**2*(16.5d0*dgm01(2,3)&
3458 : & *dgm10(2,2)+16.5d0*dgm01(2,2)*dgm10(2,3)+9*gm(2,2)*d2gm(2,3))&
3459 : & +gm(2,2)**2*(0*dgm01(3,3)*dgm10(2,3)+0*dgm01(2,3)*dgm10(3,3)&
3460 : & -3*gm(3,3)*d2gm(2,3))+gm(2,3)*(gm(3,3)*(-3*dgm01(2,2)*dgm10(2,2)&
3461 : & -1.5d0*gm(2,2)*d2gm(2,2))+gm(2,2)*(4.5d0*dgm01(3,3)*dgm10(2,2)&
3462 : & +36*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)+3*gm(2,2)&
3463 576 : & *d2gm(3,3)))
3464 : cm(8,19)=gm(3,3)**2*(15*dgm01(2,3)*dgm10(2,2)+15*dgm01(2,2)&
3465 : & *dgm10(2,3)+3*gm(2,3)*d2gm(2,2)+12*gm(2,2)*d2gm(2,3))+gm(2,3)&
3466 : & *(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)+10.5d0*gm(2,3)*(dgm01(3,3)&
3467 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+1.5d0*gm(2,3)**2*d2gm(3,3))&
3468 : & +gm(3,3)*(31.5d0*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3469 : & +6*gm(2,3)**2*d2gm(2,3)+gm(2,3)*(13.5d0*dgm01(3,3)*dgm10(2,2)&
3470 : & +24*dgm01(2,3)*dgm10(2,3)+13.5d0*dgm01(2,2)*dgm10(3,3)+7.5d0*gm(2,2)&
3471 576 : & *d2gm(3,3)))
3472 : cm(9,19)=12*gm(2,2)**2*dgm01(3,3)*dgm10(3,3)+21*gm(2,2)*gm(2,3)&
3473 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)**2*(-3*dgm01(2,2)&
3474 : & *dgm10(2,2)-1.5d0*gm(2,2)*d2gm(2,2))+3*gm(2,3)**3*d2gm(2,3)+gm(2,3)&
3475 : & **2*(7.5d0*dgm01(3,3)*dgm10(2,2)+18*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3476 : & *dgm10(3,3)+3*gm(2,2)*d2gm(3,3))+gm(3,3)*(4.5d0*gm(2,3)**2*d2gm(2,2)&
3477 : & +gm(2,3)*(24*dgm01(2,3)*dgm10(2,2)+24*dgm01(2,2)*dgm10(2,3)+15*gm(2,2)&
3478 : & *d2gm(2,3))+gm(2,2)*(9*dgm01(3,3)*dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)&
3479 576 : & +9*dgm01(2,2)*dgm10(3,3)+6*gm(2,2)*d2gm(3,3)))
3480 : cm(10,19)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)**3*d2gm(2,2)&
3481 : & +gm(3,3)**2*(1.5d0*dgm01(3,3)*dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)&
3482 : & +1.5d0*dgm01(2,2)*dgm10(3,3)+6*gm(2,3)*d2gm(2,3)-1.5d0*gm(2,2)&
3483 : & *d2gm(3,3))+gm(3,3)*(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+21*gm(2,3)&
3484 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)&
3485 576 : & **2*d2gm(3,3))
3486 : cm(1,20)=(gm(1,1)*(gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)-108*dgm01(2,3)&
3487 : & *dgm10(1,3)-108*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)*dgm10(3,3))&
3488 : & -108*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+180*gm(1,3)&
3489 : & **3*d2gm(2,3)+gm(1,3)**2*(270*dgm01(3,3)*dgm10(1,2)+540*dgm01(2,3)&
3490 : & *dgm10(1,3)+540*dgm01(1,3)*dgm10(2,3)+270*dgm01(1,2)*dgm10(3,3)&
3491 : & +270*gm(1,2)*d2gm(3,3))+gm(1,3)*(540*gm(1,2)*dgm01(3,3)*dgm10(1,3)&
3492 : & -216*gm(1,1)*dgm01(3,3)*dgm10(2,3)+540*gm(1,2)*dgm01(1,3)*dgm10(3,3)&
3493 : & -216*gm(1,1)*dgm01(2,3)*dgm10(3,3)-108*gm(3,3)*(dgm01(2,3)*dgm10(1,1)&
3494 : & +dgm01(1,1)*dgm10(2,3)+gm(1,1)*d2gm(2,3))-108*gm(2,3)*(dgm01(3,3)&
3495 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3)))+gm(1,2)&
3496 : & *(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)-54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)&
3497 576 : & +dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))))/36.d0
3498 : cm(2,20)=(gm(3,3)*(-36*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)&
3499 : & *dgm10(2,3))+gm(1,2)*(-54*dgm01(3,3)*dgm10(2,2)-144*dgm01(2,3)&
3500 : & *dgm10(2,3)-54*dgm01(2,2)*dgm10(3,3)))+gm(2,3)**2*(18*dgm01(3,3)&
3501 : & *dgm10(1,2)+180*dgm01(2,3)*dgm10(1,3)+180*dgm01(1,3)*dgm10(2,3)&
3502 : & +18*dgm01(1,2)*dgm10(3,3)+180*gm(1,3)*d2gm(2,3)+18*gm(1,2)*d2gm(3,3))&
3503 : & +gm(2,2)*(-108*gm(1,2)*dgm01(3,3)*dgm10(3,3)+108*gm(1,3)*(dgm01(3,3)&
3504 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(3,3)*(-54*dgm01(3,3)*dgm10(1,2)&
3505 : & -36*dgm01(2,3)*dgm10(1,3)-36*dgm01(1,3)*dgm10(2,3)-54*dgm01(1,2)&
3506 : & *dgm10(3,3)-36*gm(1,3)*d2gm(2,3)-54*gm(1,2)*d2gm(3,3)))+gm(2,3)&
3507 : & *(144*gm(1,3)*dgm01(3,3)*dgm10(2,2)+720*gm(1,3)*dgm01(2,3)*dgm10(2,3)&
3508 : & -36*gm(1,2)*dgm01(3,3)*dgm10(2,3)+144*gm(1,3)*dgm01(2,2)*dgm10(3,3)&
3509 : & -36*gm(1,2)*dgm01(2,3)*dgm10(3,3)-72*gm(3,3)*(dgm01(2,3)*dgm10(1,2)&
3510 : & +dgm01(1,2)*dgm10(2,3)+gm(1,2)*d2gm(2,3))+144*gm(2,2)*(dgm01(3,3)&
3511 576 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))))/12.d0
3512 : cm(3,20)=6*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+6*gm(3,3)**2*(dgm01(3,3)&
3513 : & *dgm10(1,2)+dgm01(2,3)*dgm10(1,3)+dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
3514 : & *dgm10(3,3)+gm(1,3)*d2gm(2,3)+gm(1,2)*d2gm(3,3))+gm(3,3)*(24*gm(1,2)&
3515 : & *dgm01(3,3)*dgm10(3,3)+15*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3516 : & *dgm10(3,3))+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)&
3517 576 : & +gm(1,3)*d2gm(3,3)))
3518 : cm(4,20)=24*gm(1,3)*gm(2,2)*dgm01(3,3)*dgm10(3,3)+gm(2,3)*(6*gm(1,2)&
3519 : & *dgm01(3,3)*dgm10(3,3)+24*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3520 : & *dgm10(3,3)))-6*gm(3,3)**2*(dgm01(2,3)*dgm10(1,2)+dgm01(1,2)&
3521 : & *dgm10(2,3)+gm(1,2)*d2gm(2,3))+3*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)&
3522 : & +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3))+gm(3,3)*(12*gm(1,3)&
3523 : & *dgm01(3,3)*dgm10(2,2)+36*gm(1,3)*dgm01(2,3)*dgm10(2,3)-9*gm(1,2)&
3524 : & *dgm01(3,3)*dgm10(2,3)+12*gm(1,3)*dgm01(2,2)*dgm10(3,3)-9*gm(1,2)&
3525 : & *dgm01(2,3)*dgm10(3,3)+gm(2,3)*(3*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)&
3526 : & *dgm10(1,3)+18*dgm01(1,3)*dgm10(2,3)+3*dgm01(1,2)*dgm10(3,3)&
3527 : & +18*gm(1,3)*d2gm(2,3)+3*gm(1,2)*d2gm(3,3))+12*gm(2,2)*(dgm01(3,3)&
3528 576 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3529 : cm(5,20)=-9*gm(1,1)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)*(24*gm(1,2)&
3530 : & *dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
3531 : & *dgm10(3,3)))-3*gm(3,3)**2*(dgm01(2,3)*dgm10(1,1)+dgm01(1,1)&
3532 : & *dgm10(2,3)+gm(1,1)*d2gm(2,3))+gm(1,3)**2*(10.5d0*dgm01(3,3)&
3533 : & *dgm10(2,3)+10.5d0*dgm01(2,3)*dgm10(3,3)+1.5d0*gm(2,3)*d2gm(3,3))&
3534 : & +gm(3,3)*(12*gm(1,2)*dgm01(3,3)*dgm10(1,3)-10.5d0*gm(1,1)*dgm01(3,3)&
3535 : & *dgm10(2,3)+12*gm(1,2)*dgm01(1,3)*dgm10(3,3)-10.5d0*gm(1,1)*dgm01(2,3)&
3536 : & *dgm10(3,3)+9*gm(1,3)**2*d2gm(2,3)-4.5d0*gm(2,3)*(dgm01(3,3)&
3537 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(1,3)&
3538 : & *(12*dgm01(3,3)*dgm10(1,2)+18*dgm01(2,3)*dgm10(1,3)+18*dgm01(1,3)&
3539 576 : & *dgm10(2,3)+12*dgm01(1,2)*dgm10(3,3)+12*gm(1,2)*d2gm(3,3)))
3540 : cm(6,20)=(2*(90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)&
3541 : & -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)&
3542 : & *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)&
3543 : & +gm(1,2)*dgm01(3,3)))*dgm10(2,3)+3*(-12*gm(2,3)**2*dgm01(1,1)&
3544 : & -24*gm(1,2)*gm(3,3)*dgm01(1,2)+30*gm(1,3)**2*dgm01(2,2)-6*gm(1,1)&
3545 : & *gm(3,3)*dgm01(2,2)+36*gm(1,2)*gm(1,3)*dgm01(2,3)+gm(2,3)*(36*gm(1,3)&
3546 : & *dgm01(1,2)+36*gm(1,2)*dgm01(1,3)-24*gm(1,1)*dgm01(2,3))-12*gm(1,2)&
3547 : & **2*dgm01(3,3)+gm(2,2)*(-6*gm(3,3)*dgm01(1,1)+60*gm(1,3)*dgm01(1,3)&
3548 : & -6*gm(1,1)*dgm01(3,3)))*dgm10(3,3)+3*dgm01(3,3)*(-12*gm(2,3)&
3549 : & **2*dgm10(1,1)-24*gm(1,2)*gm(3,3)*dgm10(1,2)+30*gm(1,3)**2*dgm10(2,2)&
3550 : & -6*gm(1,1)*gm(3,3)*dgm10(2,2)+36*gm(1,2)*gm(1,3)*dgm10(2,3)+gm(2,3)&
3551 : & *(36*gm(1,3)*dgm10(1,2)+36*gm(1,2)*dgm10(1,3)-24*gm(1,1)*dgm10(2,3))&
3552 : & -12*gm(1,2)**2*dgm10(3,3)+gm(2,2)*(-6*gm(3,3)*dgm10(1,1)+60*gm(1,3)&
3553 : & *dgm10(1,3)-6*gm(1,1)*dgm10(3,3)))+2*dgm01(2,3)*(90*gm(1,3)**2*dgm10(2,3)&
3554 : & +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)&
3555 : & *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))&
3556 : & -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+2*(90*gm(1,3)&
3557 : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3558 : & *d2gm(2,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3559 : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3560 576 : & *d2gm(3,3))/12.d0
3561 : cm(7,20)=5*gm(2,3)**3*d2gm(2,3)+gm(2,3)*(6*gm(2,2)*(dgm01(3,3)&
3562 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))-3*gm(3,3)*(dgm01(2,3)*dgm10(2,2)&
3563 : & +dgm01(2,2)*dgm10(2,3)+gm(2,2)*d2gm(2,3)))+gm(2,3)**2*(4.5d0*dgm01(3,3)&
3564 : & *dgm10(2,2)+30*dgm01(2,3)*dgm10(2,3)+4.5d0*dgm01(2,2)*dgm10(3,3)&
3565 : & +4.5d0*gm(2,2)*d2gm(3,3))+gm(2,2)*(-3*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3566 : & +gm(3,3)*(-3*dgm01(3,3)*dgm10(2,2)-6*dgm01(2,3)*dgm10(2,3)-3*dgm01(2,2)&
3567 576 : & *dgm10(3,3)-1.5d0*gm(2,2)*d2gm(3,3)))
3568 : cm(8,20)=6*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(24*gm(2,2)&
3569 : & *dgm01(3,3)*dgm10(3,3)+18*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
3570 : & *dgm10(3,3))+3*gm(2,3)**2*d2gm(3,3))+gm(3,3)**2*(6*dgm01(3,3)&
3571 : & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+6*(dgm01(2,2)*dgm10(3,3)&
3572 576 : & +gm(2,3)*d2gm(2,3)+gm(2,2)*d2gm(3,3)))
3573 : cm(9,20)=-3*gm(3,3)**2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)&
3574 : & +gm(2,2)*d2gm(2,3))+gm(2,3)*(15*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3575 : & +13.5d0*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3576 : & +1.5d0*gm(2,3)**2*d2gm(3,3))+gm(3,3)*(1.5d0*gm(2,2)*(dgm01(3,3)&
3577 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)**2*d2gm(2,3)+gm(2,3)&
3578 : & *(7.5d0*dgm01(3,3)*dgm10(2,2)+36*dgm01(2,3)*dgm10(2,3)+7.5d0*dgm01(2,2)&
3579 576 : & *dgm10(3,3)+7.5d0*gm(2,2)*d2gm(3,3)))
3580 : cm(10,20)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
3581 : & **2*d2gm(2,3)+gm(3,3)*(9*dgm01(3,3)*dgm10(2,3)+9*dgm01(2,3)*dgm10(3,3)&
3582 576 : & +3*gm(2,3)*d2gm(3,3)))
3583 : cm(1,21)=(270*gm(1,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3584 : & -54*gm(1,1)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
3585 : & +90*gm(1,3)**3*d2gm(3,3)+gm(1,3)*(-108*gm(1,1)*dgm01(3,3)*dgm10(3,3)&
3586 : & -54*gm(3,3)*(dgm01(3,3)*dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)&
3587 576 : & *d2gm(3,3))))/36.d0
3588 : cm(2,21)=((90*gm(2,3)**2*dgm01(1,3)+gm(3,3)*(-18*gm(1,3)*dgm01(2,2)&
3589 : & -36*gm(1,2)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,2)+180*gm(1,3)&
3590 : & *dgm01(2,3)-36*gm(1,2)*dgm01(3,3))-18*gm(2,2)*(gm(3,3)*dgm01(1,3)&
3591 : & +gm(1,3)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(2,3)**2*dgm10(1,3)&
3592 : & +gm(3,3)*(-18*gm(1,3)*dgm10(2,2)-36*gm(1,2)*dgm10(2,3))+gm(2,3)&
3593 : & *(-36*gm(3,3)*dgm10(1,2)+180*gm(1,3)*dgm10(2,3)-36*gm(1,2)*dgm10(3,3))&
3594 : & -18*gm(2,2)*(gm(3,3)*dgm10(1,3)+gm(1,3)*dgm10(3,3)))+(-36*gm(1,2)&
3595 : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3596 576 : & *d2gm(3,3))/12.d0
3597 : cm(3,21)=gm(3,3)*(12*gm(1,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)&
3598 576 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3599 : cm(4,21)=18*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)-3*gm(3,3)&
3600 : & **2*(dgm01(3,3)*dgm10(1,2)+dgm01(1,2)*dgm10(3,3)+gm(1,2)*d2gm(3,3))&
3601 : & +gm(3,3)*(-12*gm(1,2)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)&
3602 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+9*gm(2,3)*(dgm01(3,3)*dgm10(1,3)&
3603 576 : & +dgm01(1,3)*dgm10(3,3)+gm(1,3)*d2gm(3,3)))
3604 : cm(5,21)=9*gm(1,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)&
3605 : & *dgm10(1,1)+dgm01(1,1)*dgm10(3,3)+gm(1,1)*d2gm(3,3))+gm(3,3)&
3606 : & *(-6*gm(1,1)*dgm01(3,3)*dgm10(3,3)+9*gm(1,3)*(dgm01(3,3)*dgm10(1,3)&
3607 576 : & +dgm01(1,3)*dgm10(3,3))+4.5d0*gm(1,3)**2*d2gm(3,3))
3608 : cm(6,21)=((90*gm(1,3)**2*dgm01(2,3)+gm(3,3)*(-36*gm(1,2)*dgm01(1,3)&
3609 : & -18*gm(1,1)*dgm01(2,3))+gm(2,3)*(-18*gm(3,3)*dgm01(1,1)+180*gm(1,3)&
3610 : & *dgm01(1,3)-18*gm(1,1)*dgm01(3,3))-36*gm(1,3)*(gm(3,3)*dgm01(1,2)&
3611 : & +gm(1,2)*dgm01(3,3)))*dgm10(3,3)+dgm01(3,3)*(90*gm(1,3)**2*dgm10(2,3)&
3612 : & +gm(3,3)*(-36*gm(1,2)*dgm10(1,3)-18*gm(1,1)*dgm10(2,3))+gm(2,3)&
3613 : & *(-18*gm(3,3)*dgm10(1,1)+180*gm(1,3)*dgm10(1,3)-18*gm(1,1)*dgm10(3,3))&
3614 : & -36*gm(1,3)*(gm(3,3)*dgm10(1,2)+gm(1,2)*dgm10(3,3)))+(90*gm(1,3)&
3615 : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3616 576 : & *d2gm(3,3))/12.d0
3617 : cm(7,21)=(270*gm(2,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3618 : & -54*gm(2,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
3619 : & +90*gm(2,3)**3*d2gm(3,3)+gm(2,3)*(-108*gm(2,2)*dgm01(3,3)*dgm10(3,3)&
3620 : & -54*gm(3,3)*(dgm01(3,3)*dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)&
3621 576 : & *d2gm(3,3))))/36.d0
3622 : cm(8,21)=gm(3,3)*(12*gm(2,3)*dgm01(3,3)*dgm10(3,3)+3*gm(3,3)&
3623 576 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)+gm(2,3)*d2gm(3,3)))
3624 : cm(9,21)=9*gm(2,3)**2*dgm01(3,3)*dgm10(3,3)-1.5d0*gm(3,3)**2*(dgm01(3,3)&
3625 : & *dgm10(2,2)+dgm01(2,2)*dgm10(3,3)+gm(2,2)*d2gm(3,3))+gm(3,3)&
3626 : & *(-6*gm(2,2)*dgm01(3,3)*dgm10(3,3)+9*gm(2,3)*(dgm01(3,3)*dgm10(2,3)&
3627 576 : & +dgm01(2,3)*dgm10(3,3))+4.5d0*gm(2,3)**2*d2gm(3,3))
3628 576 : cm(10,21)=gm(3,3)**2*(6*dgm01(3,3)*dgm10(3,3)+gm(3,3)*d2gm(3,3))
3629 : end if
3630 : !
3631 : !contraction to output scalar
3632 : !
3633 5922144 : e2nl=0.d0
3634 66509856 : do jj=1,((rank+3)*(rank+4))/2
3635 60587712 : tmp(:)=0.d0
3636 303625728 : do ii=1,((rank+1)*(rank+2))/2
3637 789701760 : tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj)
3638 : end do
3639 66509856 : e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj)
3640 : end do
3641 : !factor of 2 multiplied in to drop call to conjugate contraction
3642 : !e2nl=0.5d0*e2nl
3643 :
3644 5922144 : ABI_FREE(cm)
3645 :
3646 5922144 : end subroutine contstr23
3647 : !!***
3648 :
3649 : end module m_contstr23
3650 : !!***
|
