Line data Source code
1 : !!****m* ABINIT/m_metstr
2 : !! NAME
3 : !! m_metstr
4 : !!
5 : !! FUNCTION
6 : !!
7 : !!
8 : !! COPYRIGHT
9 : !! Copyright (C) 2008-2026 ABINIT group ()
10 : !! This file is distributed under the terms of the
11 : !! GNU General Public License, see ~abinit/COPYING
12 : !! or http://www.gnu.org/copyleft/gpl.txt .
13 : !!
14 : !! SOURCE
15 :
16 : #if defined HAVE_CONFIG_H
17 : #include "config.h"
18 : #endif
19 :
20 : #include "abi_common.h"
21 :
22 : module m_metstr
23 :
24 : use defs_basis
25 : use m_errors
26 : use m_abicore
27 :
28 : implicit none
29 :
30 : private
31 : !!***
32 :
33 : public :: metstr
34 : !!***
35 :
36 : contains
37 : !!***
38 :
39 : !!****f* ABINIT/metstr
40 : !! NAME
41 : !! metstr
42 : !!
43 : !! FUNCTION
44 : !! Carries out specialized metric tensor operations needed for
45 : !! the strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander
46 : !! pseudopotential operation. Derivative is wrt a single (symmetric)
47 : !! cartesian strain component.
48 : !! Full advantage is taken of the full permutational symmetry of these
49 : !! tensors.
50 : !!
51 : !! COPYRIGHT
52 : !! Copyright (C) 1998-2026 ABINIT group (DRH, DCA, XG, GMR)
53 : !! This file is distributed under the terms of the
54 : !! GNU General Public License, see ~abinit/COPYING
55 : !! or http://www.gnu.org/copyleft/gpl.txt .
56 : !! For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
57 : !!
58 : !! INPUTS
59 : !! istr=1,...6 specifies cartesian strain component 11,22,33,32,31,21
60 : !! rank=angular momentum
61 : !! iterm=1,2, or 3 as discussed below
62 : !! gmet(3,3)=metric tensor (array is symmetric but stored as 3x3)
63 : !! gprimd(3,3)=reciprocal space dimensional primitive translations
64 : !! aa(2,(rank+3)*(rank+4)/2)=unique elements of complex input tensor
65 : !! active size could be smaller, see rank discussion below
66 : !!
67 : !! OUTPUT
68 : !! bb(2,(rank+3)*(rank+4)/2)=unique elements of complex output tensor,
69 : !! rank discussed below
70 : !!
71 : !! NOTES
72 : !! Based on metcon.f
73 : !! All tensors are stored in a compressed storage mode defined below;
74 : !! input and output conform to this scheme.
75 : !! When tensor elements occur repeatedly due to symmetry, the
76 : !! WEIGHT IS INCLUDED in the output tensor element to simplify later
77 : !! contractions with other tensors of the same rank and form, i.e. the
78 : !! next contraction is then simply a dot product over the unique elements.
79 : !!
80 : !! The matrix elements of the Kleinman-Bylander operator,
81 : !!
82 : !! MKB(K\prim,K) = V_l(|K\prim|) P_l(K\prim,K) V_l(|K|)
83 : !!
84 : !! depend on the strain eps only through gmet. Note that in the above
85 : !! expession V_l=v_l/K^l, where v_l is the l component of the nonlocal
86 : !! potential. Also, P_l is a Legendre polynomial modified to be of
87 : !! homogeneous order in K. For example,
88 : !!
89 : !! P_2 = (3(K\prim*K)^2 - |K\prim|^2|K|^2)/2
90 : !!
91 : !! Thus
92 : !!
93 : !! (d/d eps)MKB(K\prim,K) = (d/d gmet)MKB(K\prim,K) (dgmet/d eps)
94 : !!
95 : !! has 3 terms coresponding to the 3 terms in the MKB product. The rank
96 : !! of the input(K) and output (K\prim) tensors are as follows for each term
97 : !!
98 : !! iterm=1 (d/d gmet)V_l(K\prim) input rank = l, output rank = l+2
99 : !! iterm=2 (d/d gmet)P_l(K\prim,K) input rank = l, output rank = l
100 : !! iterm=3 (d/d gmet)V_l(K) input rank = l+2, output rank = l
101 : !!
102 : !! While playing a similar role to the routine metcon in caclulating
103 : !! the coefficients to be used in constructing the output wavefunctions
104 : !! of the Kleinman-Bylander operation, metstr can contract or expand its
105 : !! tensor arguments, or neither.
106 : !!
107 : !! The compressed storage scheme is based on storing a symmetric 3x3 matrix as
108 : !! $$
109 : !! \left( \begin{array}{ccc}
110 : !! 1 & \cdots & \cdots \
111 : !! 6 & 2 & \cdots \
112 : !! 5 & 4 & 3
113 : !! \end{array} \right)
114 : !! $$
115 : !!
116 : !! SOURCE
117 :
118 16503996 : subroutine metstr(istr,rank,iterm,gmet,gprimd,aa,bb)
119 :
120 : !Arguments ------------------------------------
121 : !scalars
122 : integer,intent(in) :: istr,iterm,rank
123 : !arrays
124 : real(dp),intent(in) :: aa(2,((rank+3)*(rank+4))/2),gmet(3,3),gprimd(3,3)
125 : real(dp),intent(out) :: bb(2,((rank+3)*(rank+4))/2)
126 :
127 : !Local variables-------------------------------
128 : !scalars
129 : integer,parameter :: mrank=3
130 : integer,save :: old_istr=0
131 : integer :: ii,jj,ka,kb,limitin,limitout,rankin,rankout
132 : character(len=500) :: message
133 : !arrays
134 : integer,save :: cm_set(3,0:mrank),idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/)
135 : real(dp),save :: cm(((mrank+3)*(mrank+4))/2,((mrank+3)*(mrank+4))/2,3,0:mrank)
136 : real(dp) :: dgmetds(3,3)
137 :
138 : ! *************************************************************************
139 16503996 : if (iterm <1 .or. iterm>3) then
140 : write(message, '(a,i0,a,a,a)' )&
141 0 : & 'Input iterm=',iterm,' not allowed.',ch10,&
142 0 : & 'Possible values are 1,2,3 only.'
143 0 : ABI_BUG(message)
144 : end if
145 :
146 16503996 : if(istr/=old_istr) then
147 1178413 : cm_set(:,:)=0
148 1178413 : old_istr=istr
149 : end if
150 :
151 16503996 : if(cm_set(iterm,rank)==0) then
152 :
153 3660231 : cm_set(iterm,rank)=1
154 :
155 3660231 : if(istr<1 .or. istr>6) then
156 : write(message,'(a,i0,a,a,a)')&
157 0 : & 'Input istr=',istr,' not allowed.',ch10,&
158 0 : & 'Possible values are 1,2,3,4,5,6 only.'
159 0 : ABI_BUG(message)
160 : end if
161 :
162 3660231 : ka=idx(2*istr-1);kb=idx(2*istr)
163 14640924 : do ii = 1,3
164 47583003 : dgmetds(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii))
165 : end do
166 : ! For historical reasons:
167 47583003 : dgmetds(:,:)=0.5d0*dgmetds(:,:)
168 :
169 : !
170 : ! The code below was written by a Mathematica program and formatted by
171 : ! a combination of editing scripts. It is not intended to be read
172 : ! by human beings, and certainly not to be modified by one. Conceivably
173 : ! it could be shortened somewhat by identifying common subexpressions.
174 : ! However, it is only executed ONCE in each run for a given lattice and
175 : ! strain component, so why worry. Only a small double loop at the end
176 : ! is executed on any but the first call.
177 : !
178 3660231 : if (rank==0) then
179 1251441 : if(iterm==1) then
180 530459 : cm(1,1,1,0)=dgmetds(1,1)
181 530459 : cm(1,2,1,0)=dgmetds(2,2)
182 530459 : cm(1,3,1,0)=dgmetds(3,3)
183 530459 : cm(1,4,1,0)=2.d0*dgmetds(2,3)
184 530459 : cm(1,5,1,0)=2.d0*dgmetds(1,3)
185 530459 : cm(1,6,1,0)=2.d0*dgmetds(1,2)
186 720982 : elseif(iterm==2) then
187 530459 : cm(1,1,2,0)=0.d0
188 190523 : elseif(iterm==3) then
189 190523 : cm(1,1,3,0)= dgmetds(1,1)
190 190523 : cm(2,1,3,0)= dgmetds(2,2)
191 190523 : cm(3,1,3,0)= dgmetds(3,3)
192 190523 : cm(4,1,3,0)= 2.d0*dgmetds(2,3)
193 190523 : cm(5,1,3,0)= 2.d0*dgmetds(1,3)
194 190523 : cm(6,1,3,0)= 2.d0*dgmetds(1,2)
195 : end if
196 :
197 2408790 : elseif(rank==1)then
198 1233591 : if(iterm==1)then
199 521101 : cm(1,1,1,1)=gmet(1,1)*dgmetds(1,1)
200 521101 : cm(2,1,1,1)=gmet(1,2)*dgmetds(1,1)
201 521101 : cm(3,1,1,1)=gmet(1,3)*dgmetds(1,1)
202 521101 : cm(1,2,1,1)=2*gmet(1,2)*dgmetds(1,2)+gmet(1,1)*dgmetds(2,2)
203 521101 : cm(2,2,1,1)=2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2)
204 521101 : cm(3,2,1,1)=2*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,2)
205 521101 : cm(1,3,1,1)=2*gmet(1,3)*dgmetds(1,3)+gmet(1,1)*dgmetds(3,3)
206 521101 : cm(2,3,1,1)=2*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*dgmetds(3,3)
207 521101 : cm(3,3,1,1)=2*gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3)
208 : cm(1,4,1,1)=2*(gmet(1,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(1,3)+gmet(1,1)&
209 521101 : & *dgmetds(2,3))
210 : cm(2,4,1,1)=2*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)*dgmetds(1,3)+gmet(1,2)&
211 521101 : & *dgmetds(2,3))
212 : cm(3,4,1,1)=2*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3)+gmet(1,3)&
213 521101 : & *dgmetds(2,3))
214 521101 : cm(1,5,1,1)=gmet(1,3)*dgmetds(1,1)+2*gmet(1,1)*dgmetds(1,3)
215 521101 : cm(2,5,1,1)=gmet(2,3)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3)
216 521101 : cm(3,5,1,1)=gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,3)
217 521101 : cm(1,6,1,1)=gmet(1,2)*dgmetds(1,1)+2*gmet(1,1)*dgmetds(1,2)
218 521101 : cm(2,6,1,1)=gmet(2,2)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,2)
219 521101 : cm(3,6,1,1)=gmet(2,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,2)
220 521101 : cm(1,7,1,1)=gmet(1,2)*dgmetds(2,2)
221 521101 : cm(2,7,1,1)=gmet(2,2)*dgmetds(2,2)
222 521101 : cm(3,7,1,1)=gmet(2,3)*dgmetds(2,2)
223 521101 : cm(1,8,1,1)=2*gmet(1,3)*dgmetds(2,3)+gmet(1,2)*dgmetds(3,3)
224 521101 : cm(2,8,1,1)=2*gmet(2,3)*dgmetds(2,3)+gmet(2,2)*dgmetds(3,3)
225 521101 : cm(3,8,1,1)=2*gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3)
226 521101 : cm(1,9,1,1)=gmet(1,3)*dgmetds(2,2)+2*gmet(1,2)*dgmetds(2,3)
227 521101 : cm(2,9,1,1)=gmet(2,3)*dgmetds(2,2)+2*gmet(2,2)*dgmetds(2,3)
228 521101 : cm(3,9,1,1)=gmet(3,3)*dgmetds(2,2)+2*gmet(2,3)*dgmetds(2,3)
229 521101 : cm(1,10,1,1)=gmet(1,3)*dgmetds(3,3)
230 521101 : cm(2,10,1,1)=gmet(2,3)*dgmetds(3,3)
231 521101 : cm(3,10,1,1)=gmet(3,3)*dgmetds(3,3)
232 712490 : elseif(iterm==2)then
233 521101 : cm(1,1,2,1)=2*dgmetds(1,1)
234 521101 : cm(2,1,2,1)=2*dgmetds(1,2)
235 521101 : cm(3,1,2,1)=2*dgmetds(1,3)
236 521101 : cm(1,2,2,1)=2*dgmetds(1,2)
237 521101 : cm(2,2,2,1)=2*dgmetds(2,2)
238 521101 : cm(3,2,2,1)=2*dgmetds(2,3)
239 521101 : cm(1,3,2,1)=2*dgmetds(1,3)
240 521101 : cm(2,3,2,1)=2*dgmetds(2,3)
241 521101 : cm(3,3,2,1)=2*dgmetds(3,3)
242 191389 : elseif(iterm==3)then
243 191389 : cm(1,1,3,1)=gmet(1,1)*dgmetds(1,1)
244 191389 : cm(2,1,3,1)=2*gmet(1,2)*dgmetds(1,2)+gmet(1,1)*dgmetds(2,2)
245 191389 : cm(3,1,3,1)=2*gmet(1,3)*dgmetds(1,3)+gmet(1,1)*dgmetds(3,3)
246 : cm(4,1,3,1)=2*(gmet(1,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(1,3)+gmet(1,1)&
247 191389 : & *dgmetds(2,3))
248 191389 : cm(5,1,3,1)=gmet(1,3)*dgmetds(1,1)+2*gmet(1,1)*dgmetds(1,3)
249 191389 : cm(6,1,3,1)=gmet(1,2)*dgmetds(1,1)+2*gmet(1,1)*dgmetds(1,2)
250 191389 : cm(7,1,3,1)=gmet(1,2)*dgmetds(2,2)
251 191389 : cm(8,1,3,1)=2*gmet(1,3)*dgmetds(2,3)+gmet(1,2)*dgmetds(3,3)
252 191389 : cm(9,1,3,1)=gmet(1,3)*dgmetds(2,2)+2*gmet(1,2)*dgmetds(2,3)
253 191389 : cm(10,1,3,1)=gmet(1,3)*dgmetds(3,3)
254 191389 : cm(1,2,3,1)=gmet(1,2)*dgmetds(1,1)
255 191389 : cm(2,2,3,1)=2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2)
256 191389 : cm(3,2,3,1)=2*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*dgmetds(3,3)
257 : cm(4,2,3,1)=2*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)*dgmetds(1,3)+gmet(1,2)&
258 191389 : & *dgmetds(2,3))
259 191389 : cm(5,2,3,1)=gmet(2,3)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3)
260 191389 : cm(6,2,3,1)=gmet(2,2)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,2)
261 191389 : cm(7,2,3,1)=gmet(2,2)*dgmetds(2,2)
262 191389 : cm(8,2,3,1)=2*gmet(2,3)*dgmetds(2,3)+gmet(2,2)*dgmetds(3,3)
263 191389 : cm(9,2,3,1)=gmet(2,3)*dgmetds(2,2)+2*gmet(2,2)*dgmetds(2,3)
264 191389 : cm(10,2,3,1)=gmet(2,3)*dgmetds(3,3)
265 191389 : cm(1,3,3,1)=gmet(1,3)*dgmetds(1,1)
266 191389 : cm(2,3,3,1)=2*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,2)
267 191389 : cm(3,3,3,1)=2*gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3)
268 : cm(4,3,3,1)=2*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3)+gmet(1,3)&
269 191389 : & *dgmetds(2,3))
270 191389 : cm(5,3,3,1)=gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,3)
271 191389 : cm(6,3,3,1)=gmet(2,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,2)
272 191389 : cm(7,3,3,1)=gmet(2,3)*dgmetds(2,2)
273 191389 : cm(8,3,3,1)=2*gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3)
274 191389 : cm(9,3,3,1)=gmet(3,3)*dgmetds(2,2)+2*gmet(2,3)*dgmetds(2,3)
275 191389 : cm(10,3,3,1)=gmet(3,3)*dgmetds(3,3)
276 : end if
277 :
278 1175199 : elseif(rank==2)then
279 1174428 : if(iterm==1)then
280 497236 : cm(1,1,1,2)=gmet(1,1)**2*dgmetds(1,1)
281 : cm(2,1,1,2)=((6*gmet(1,2)**2-2*gmet(1,1)*gmet(2,2))*dgmetds(1,1))&
282 497236 : & /4.d0
283 : cm(3,1,1,2)=((6*gmet(1,3)**2-2*gmet(1,1)*gmet(3,3))*dgmetds(1,1))&
284 497236 : & /4.d0
285 : cm(4,1,1,2)=((6*gmet(1,2)*gmet(1,3)-2*gmet(1,1)*gmet(2,3))*dgmetds(1,1))&
286 497236 : & /2.d0
287 497236 : cm(5,1,1,2)=2*gmet(1,1)*gmet(1,3)*dgmetds(1,1)
288 497236 : cm(6,1,1,2)=2*gmet(1,1)*gmet(1,2)*dgmetds(1,1)
289 : cm(1,2,1,2)=1.5d0*gmet(1,2)**2*dgmetds(1,1)+4*gmet(1,1)*gmet(1,2)&
290 : & *dgmetds(1,2)+gmet(1,1)*(-0.5d0*gmet(2,2)*dgmetds(1,1)+gmet(1,1)&
291 497236 : & *dgmetds(2,2))
292 : cm(2,2,1,2)=gmet(2,2)**2*dgmetds(1,1)+1.5d0*gmet(1,2)**2*dgmetds(2,2)&
293 497236 : & +gmet(2,2)*(4*gmet(1,2)*dgmetds(1,2)-0.5d0*gmet(1,1)*dgmetds(2,2))
294 : cm(3,2,1,2)=1.5d0*gmet(2,3)**2*dgmetds(1,1)-0.5d0*gmet(2,2)*gmet(3,3)&
295 : & *dgmetds(1,1)+6*gmet(1,3)*gmet(2,3)*dgmetds(1,2)-2*gmet(1,2)&
296 : & *gmet(3,3)*dgmetds(1,2)+1.5d0*gmet(1,3)**2*dgmetds(2,2)-0.5d0*gmet(1,1)&
297 497236 : & *gmet(3,3)*dgmetds(2,2)
298 : cm(4,2,1,2)=gmet(2,2)*(2*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2))&
299 : & -gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(2*gmet(2,3)*dgmetds(1,2)&
300 497236 : & +3*gmet(1,3)*dgmetds(2,2))
301 : cm(5,2,1,2)=gmet(2,3)*(3*gmet(1,2)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,2))&
302 : & +gmet(1,3)*(-gmet(2,2)*dgmetds(1,1)+2*(gmet(1,2)*dgmetds(1,2)&
303 497236 : & +gmet(1,1)*dgmetds(2,2)))
304 : cm(6,2,1,2)=2*gmet(1,2)**2*dgmetds(1,2)+6*gmet(1,1)*gmet(2,2)&
305 497236 : & *dgmetds(1,2)+2*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,2))
306 : cm(1,3,1,2)=1.5d0*gmet(1,3)**2*dgmetds(1,1)+4*gmet(1,1)*gmet(1,3)&
307 : & *dgmetds(1,3)+gmet(1,1)*(-0.5d0*gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
308 497236 : & *dgmetds(3,3))
309 : cm(2,3,1,2)=1.5d0*gmet(2,3)**2*dgmetds(1,1)+6*gmet(1,2)*gmet(2,3)&
310 : & *dgmetds(1,3)+1.5d0*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-0.5d0*gmet(3,3)&
311 497236 : & *dgmetds(1,1)-2*gmet(1,3)*dgmetds(1,3)-0.5d0*gmet(1,1)*dgmetds(3,3))
312 : cm(3,3,1,2)=gmet(3,3)**2*dgmetds(1,1)+1.5d0*gmet(1,3)**2*dgmetds(3,3)&
313 497236 : & +gmet(3,3)*(4*gmet(1,3)*dgmetds(1,3)-0.5d0*gmet(1,1)*dgmetds(3,3))
314 : cm(4,3,1,2)=gmet(2,3)*(2*gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,3)&
315 : & -gmet(1,1)*dgmetds(3,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(1,3)&
316 497236 : & +3*gmet(1,3)*dgmetds(3,3))
317 : cm(5,3,1,2)=2*gmet(1,3)**2*dgmetds(1,3)+6*gmet(1,1)*gmet(3,3)&
318 497236 : & *dgmetds(1,3)+2*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
319 : cm(6,3,1,2)=6*gmet(1,1)*gmet(2,3)*dgmetds(1,3)+gmet(1,3)*(3*gmet(2,3)&
320 : & *dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3))+gmet(1,2)*(-gmet(3,3)&
321 497236 : & *dgmetds(1,1)+2*gmet(1,1)*dgmetds(3,3))
322 : cm(1,4,1,2)=gmet(1,2)*(3*gmet(1,3)*dgmetds(1,1)+4*gmet(1,1)*dgmetds(1,3))&
323 : & +gmet(1,1)*(-gmet(2,3)*dgmetds(1,1)+4*gmet(1,3)*dgmetds(1,2)&
324 497236 : & +2*gmet(1,1)*dgmetds(2,3))
325 : cm(2,4,1,2)=gmet(2,2)*(2*gmet(2,3)*dgmetds(1,1)-2*gmet(1,3)*dgmetds(1,2)&
326 : & +4*gmet(1,2)*dgmetds(1,3)-gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(6*gmet(2,3)&
327 497236 : & *dgmetds(1,2)+3*gmet(1,2)*dgmetds(2,3))
328 : cm(3,4,1,2)=4*gmet(1,3)*gmet(3,3)*dgmetds(1,2)+gmet(2,3)*(2*gmet(3,3)&
329 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3))+3*gmet(1,3)**2*dgmetds(2,3)&
330 497236 : & +gmet(3,3)*(-2*gmet(1,2)*dgmetds(1,3)-gmet(1,1)*dgmetds(2,3))
331 : cm(4,4,1,2)=(2*gmet(2,3)**2*dgmetds(1,1)+gmet(2,2)*(6*gmet(3,3)&
332 : & *dgmetds(1,1)+12*gmet(1,3)*dgmetds(1,3))+gmet(2,3)*(4*gmet(1,3)&
333 : & *dgmetds(1,2)+4*gmet(1,2)*dgmetds(1,3)-4*gmet(1,1)*dgmetds(2,3))&
334 : & +12*gmet(1,2)*(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3)))&
335 497236 : & /2.d0
336 : cm(5,4,1,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)**2*dgmetds(1,2)&
337 : & +6*gmet(1,1)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3))&
338 : & +gmet(1,3)*(1*gmet(2,3)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3)&
339 497236 : & +4*gmet(1,1)*dgmetds(2,3))
340 : cm(6,4,1,2)=gmet(1,3)*(3*gmet(2,2)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,2))&
341 : & +2*gmet(1,2)**2*dgmetds(1,3)+6*gmet(1,1)*(gmet(2,3)*dgmetds(1,2)&
342 : & +gmet(2,2)*dgmetds(1,3))+gmet(1,2)*(1*gmet(2,3)*dgmetds(1,1)&
343 497236 : & +4*gmet(1,1)*dgmetds(2,3))
344 497236 : cm(1,5,1,2)=2*gmet(1,1)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
345 : cm(2,5,1,2)=-gmet(1,3)*gmet(2,2)*dgmetds(1,1)+3*gmet(1,2)*gmet(2,3)&
346 : & *dgmetds(1,1)+3*gmet(1,2)**2*dgmetds(1,3)-gmet(1,1)*gmet(2,2)&
347 497236 : & *dgmetds(1,3)
348 : cm(3,5,1,2)=2*gmet(1,3)*gmet(3,3)*dgmetds(1,1)+3*gmet(1,3)**2*dgmetds(1,3)&
349 497236 : & -gmet(1,1)*gmet(3,3)*dgmetds(1,3)
350 : cm(4,5,1,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(1,1)-2*gmet(1,1)*gmet(2,3)&
351 : & *dgmetds(1,3)+gmet(1,3)*(1*gmet(2,3)*dgmetds(1,1)+6*gmet(1,2)&
352 497236 : & *dgmetds(1,3))
353 : cm(5,5,1,2)=gmet(1,3)**2*dgmetds(1,1)+3*gmet(1,1)*gmet(3,3)*dgmetds(1,1)&
354 497236 : & +4*gmet(1,1)*gmet(1,3)*dgmetds(1,3)
355 : cm(6,5,1,2)=3*gmet(1,1)*gmet(2,3)*dgmetds(1,1)+gmet(1,2)*(1*gmet(1,3)&
356 497236 : & *dgmetds(1,1)+4*gmet(1,1)*dgmetds(1,3))
357 497236 : cm(1,6,1,2)=2*gmet(1,1)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
358 : cm(2,6,1,2)=2*gmet(1,2)*gmet(2,2)*dgmetds(1,1)+3*gmet(1,2)**2*dgmetds(1,2)&
359 497236 : & -gmet(1,1)*gmet(2,2)*dgmetds(1,2)
360 : cm(3,6,1,2)=3*gmet(1,3)*gmet(2,3)*dgmetds(1,1)+3*gmet(1,3)**2*dgmetds(1,2)&
361 497236 : & -gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
362 : cm(4,6,1,2)=gmet(2,3)*(1*gmet(1,2)*dgmetds(1,1)-2*gmet(1,1)*dgmetds(1,2))&
363 497236 : & +gmet(1,3)*(3*gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2))
364 : cm(5,6,1,2)=gmet(1,2)*gmet(1,3)*dgmetds(1,1)+gmet(1,1)*(3*gmet(2,3)&
365 497236 : & *dgmetds(1,1)+4*gmet(1,3)*dgmetds(1,2))
366 : cm(6,6,1,2)=gmet(1,2)**2*dgmetds(1,1)+3*gmet(1,1)*gmet(2,2)*dgmetds(1,1)&
367 497236 : & +4*gmet(1,1)*gmet(1,2)*dgmetds(1,2)
368 : cm(1,7,1,2)=3*gmet(1,2)**2*dgmetds(1,2)-gmet(1,1)*gmet(2,2)*dgmetds(1,2)&
369 497236 : & +2*gmet(1,1)*gmet(1,2)*dgmetds(2,2)
370 497236 : cm(2,7,1,2)=2*gmet(2,2)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
371 : cm(3,7,1,2)=3*gmet(2,3)**2*dgmetds(1,2)+3*gmet(1,3)*gmet(2,3)&
372 497236 : & *dgmetds(2,2)-gmet(3,3)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
373 : cm(4,7,1,2)=gmet(1,2)*gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(4*gmet(2,3)&
374 497236 : & *dgmetds(1,2)+3*gmet(1,3)*dgmetds(2,2))
375 : cm(5,7,1,2)=gmet(2,3)*(6*gmet(1,2)*dgmetds(1,2)+3*gmet(1,1)*dgmetds(2,2))&
376 497236 : & +gmet(1,3)*(-2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
377 : cm(6,7,1,2)=4*gmet(1,2)*gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*dgmetds(2,2)&
378 497236 : & +3*gmet(1,1)*gmet(2,2)*dgmetds(2,2)
379 : cm(1,8,1,2)=3*gmet(1,3)**2*dgmetds(1,2)+gmet(1,3)*(6*gmet(1,2)&
380 : & *dgmetds(1,3)+4*gmet(1,1)*dgmetds(2,3))+gmet(1,1)*(-gmet(3,3)&
381 497236 : & *dgmetds(1,2)-2*gmet(2,3)*dgmetds(1,3)+2*gmet(1,2)*dgmetds(3,3))
382 : cm(2,8,1,2)=3*gmet(2,3)**2*dgmetds(1,2)+gmet(2,3)*(4*gmet(2,2)&
383 : & *dgmetds(1,3)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-gmet(3,3)&
384 497236 : & *dgmetds(1,2)-2*gmet(1,3)*dgmetds(2,3)+2*gmet(1,2)*dgmetds(3,3))
385 : cm(3,8,1,2)=2*gmet(3,3)**2*dgmetds(1,2)+3*gmet(1,3)*gmet(2,3)&
386 : & *dgmetds(3,3)+gmet(3,3)*(4*gmet(2,3)*dgmetds(1,3)+4*gmet(1,3)&
387 497236 : & *dgmetds(2,3)-gmet(1,2)*dgmetds(3,3))
388 : cm(4,8,1,2)=2*gmet(2,3)**2*dgmetds(1,3)+6*gmet(1,2)*gmet(3,3)&
389 : & *dgmetds(2,3)+gmet(2,3)*(4*gmet(3,3)*dgmetds(1,2)+2*gmet(1,3)&
390 : & *dgmetds(2,3)+gmet(1,2)*dgmetds(3,3))+gmet(2,2)*(6*gmet(3,3)&
391 497236 : & *dgmetds(1,3)+3*gmet(1,3)*dgmetds(3,3))
392 : cm(5,8,1,2)=6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+2*gmet(1,3)**2*dgmetds(2,3)&
393 : & +gmet(1,3)*(4*gmet(3,3)*dgmetds(1,2)+2*gmet(2,3)*dgmetds(1,3)&
394 : & +gmet(1,2)*dgmetds(3,3))+gmet(1,1)*(6*gmet(3,3)*dgmetds(2,3)&
395 497236 : & +3*gmet(2,3)*dgmetds(3,3))
396 : cm(6,8,1,2)=(2*(6*gmet(1,3)*gmet(2,3)-2*gmet(1,2)*gmet(3,3))*dgmetds(1,2)&
397 : & +4*(3*gmet(1,3)*gmet(2,2)+gmet(1,2)*gmet(2,3))*dgmetds(1,3)+4*(1*gmet(1,2)&
398 : & *gmet(1,3)+3*gmet(1,1)*gmet(2,3))*dgmetds(2,3)+2*(1*gmet(1,2)&
399 497236 : & **2+3*gmet(1,1)*gmet(2,2))*dgmetds(3,3))/2.d0
400 : cm(1,9,1,2)=3*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(-2*gmet(2,3)&
401 : & *dgmetds(1,2)-gmet(2,2)*dgmetds(1,3)+2*gmet(1,3)*dgmetds(2,2))&
402 497236 : & +gmet(1,2)*(6*gmet(1,3)*dgmetds(1,2)+4*gmet(1,1)*dgmetds(2,3))
403 : cm(2,9,1,2)=2*gmet(2,2)**2*dgmetds(1,3)+3*gmet(1,2)*gmet(2,3)&
404 : & *dgmetds(2,2)+gmet(2,2)*(4*gmet(2,3)*dgmetds(1,2)-gmet(1,3)*dgmetds(2,2)&
405 497236 : & +4*gmet(1,2)*dgmetds(2,3))
406 : cm(3,9,1,2)=3*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-gmet(2,2)&
407 : & *dgmetds(1,3)+2*gmet(1,3)*dgmetds(2,2)-2*gmet(1,2)*dgmetds(2,3))&
408 497236 : & +gmet(2,3)*(4*gmet(3,3)*dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3))
409 : cm(4,9,1,2)=2*gmet(2,3)**2*dgmetds(1,2)+3*gmet(1,2)*gmet(3,3)&
410 : & *dgmetds(2,2)+gmet(2,3)*(4*gmet(2,2)*dgmetds(1,3)+gmet(1,3)*dgmetds(2,2)&
411 : & +2*gmet(1,2)*dgmetds(2,3))+6*gmet(2,2)*(gmet(3,3)*dgmetds(1,2)&
412 497236 : & +gmet(1,3)*dgmetds(2,3))
413 : cm(5,9,1,2)=(12*gmet(1,2)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3))&
414 : & +2*gmet(1,3)**2*dgmetds(2,2)+gmet(1,3)*(4*gmet(2,3)*dgmetds(1,2)&
415 : & -4*gmet(2,2)*dgmetds(1,3)+4*gmet(1,2)*dgmetds(2,3))+gmet(1,1)&
416 497236 : & *(6*gmet(3,3)*dgmetds(2,2)+12*gmet(2,3)*dgmetds(2,3)))/2.d0
417 : cm(6,9,1,2)=gmet(1,2)*(2*gmet(2,3)*dgmetds(1,2)+4*gmet(2,2)*dgmetds(1,3))&
418 : & +gmet(1,3)*(6*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))&
419 : & +2*gmet(1,2)**2*dgmetds(2,3)+gmet(1,1)*(3*gmet(2,3)*dgmetds(2,2)&
420 497236 : & +6*gmet(2,2)*dgmetds(2,3))
421 : cm(1,10,1,2)=3*gmet(1,3)**2*dgmetds(1,3)-gmet(1,1)*gmet(3,3)*dgmetds(1,3)&
422 497236 : & +2*gmet(1,1)*gmet(1,3)*dgmetds(3,3)
423 : cm(2,10,1,2)=3*gmet(2,3)**2*dgmetds(1,3)+3*gmet(1,2)*gmet(2,3)&
424 497236 : & *dgmetds(3,3)-gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
425 497236 : cm(3,10,1,2)=2*gmet(3,3)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
426 : cm(4,10,1,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(2,3)*(4*gmet(3,3)&
427 497236 : & *dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
428 : cm(5,10,1,2)=4*gmet(1,3)*gmet(3,3)*dgmetds(1,3)+gmet(1,3)**2*dgmetds(3,3)&
429 497236 : & +3*gmet(1,1)*gmet(3,3)*dgmetds(3,3)
430 : cm(6,10,1,2)=-2*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+3*gmet(1,1)*gmet(2,3)&
431 497236 : & *dgmetds(3,3)+gmet(1,3)*(6*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*dgmetds(3,3))
432 : cm(1,11,1,2)=((6*gmet(1,2)**2-2*gmet(1,1)*gmet(2,2))*dgmetds(2,2))&
433 497236 : & /4.d0
434 497236 : cm(2,11,1,2)=gmet(2,2)**2*dgmetds(2,2)
435 : cm(3,11,1,2)=((6*gmet(2,3)**2-2*gmet(2,2)*gmet(3,3))*dgmetds(2,2))&
436 497236 : & /4.d0
437 497236 : cm(4,11,1,2)=2*gmet(2,2)*gmet(2,3)*dgmetds(2,2)
438 : cm(5,11,1,2)=((-2*gmet(1,3)*gmet(2,2)+6*gmet(1,2)*gmet(2,3))*dgmetds(2,2))&
439 497236 : & /2.d0
440 497236 : cm(6,11,1,2)=2*gmet(1,2)*gmet(2,2)*dgmetds(2,2)
441 : cm(1,12,1,2)=1.5d0*gmet(1,3)**2*dgmetds(2,2)+6*gmet(1,2)*gmet(1,3)&
442 : & *dgmetds(2,3)+1.5d0*gmet(1,2)**2*dgmetds(3,3)+gmet(1,1)*(-0.5d0*gmet(3,3)&
443 497236 : & *dgmetds(2,2)-2*gmet(2,3)*dgmetds(2,3)-0.5d0*gmet(2,2)*dgmetds(3,3))
444 : cm(2,12,1,2)=1.5d0*gmet(2,3)**2*dgmetds(2,2)+4*gmet(2,2)*gmet(2,3)&
445 : & *dgmetds(2,3)+gmet(2,2)*(-0.5d0*gmet(3,3)*dgmetds(2,2)+gmet(2,2)&
446 497236 : & *dgmetds(3,3))
447 : cm(3,12,1,2)=gmet(3,3)**2*dgmetds(2,2)+1.5d0*gmet(2,3)**2*dgmetds(3,3)&
448 497236 : & +gmet(3,3)*(4*gmet(2,3)*dgmetds(2,3)-0.5d0*gmet(2,2)*dgmetds(3,3))
449 : cm(4,12,1,2)=2*gmet(2,3)**2*dgmetds(2,3)+6*gmet(2,2)*gmet(3,3)&
450 497236 : & *dgmetds(2,3)+2*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(3,3))
451 : cm(5,12,1,2)=gmet(1,3)*(2*gmet(3,3)*dgmetds(2,2)+2*gmet(2,3)*dgmetds(2,3)&
452 : & -gmet(2,2)*dgmetds(3,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(2,3)&
453 497236 : & +3*gmet(2,3)*dgmetds(3,3))
454 : cm(6,12,1,2)=gmet(1,3)*(3*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3))&
455 : & +gmet(1,2)*(-gmet(3,3)*dgmetds(2,2)+2*(gmet(2,3)*dgmetds(2,3)&
456 497236 : & +gmet(2,2)*dgmetds(3,3)))
457 : cm(1,13,1,2)=3*gmet(1,2)*gmet(1,3)*dgmetds(2,2)+3*gmet(1,2)**2*dgmetds(2,3)&
458 497236 : & -gmet(1,1)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
459 497236 : cm(2,13,1,2)=2*gmet(2,2)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
460 : cm(3,13,1,2)=2*gmet(2,3)*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)**2*dgmetds(2,3)&
461 497236 : & -gmet(2,2)*gmet(3,3)*dgmetds(2,3)
462 : cm(4,13,1,2)=gmet(2,3)**2*dgmetds(2,2)+3*gmet(2,2)*gmet(3,3)*dgmetds(2,2)&
463 497236 : & +4*gmet(2,2)*gmet(2,3)*dgmetds(2,3)
464 : cm(5,13,1,2)=gmet(1,3)*(1*gmet(2,3)*dgmetds(2,2)-2*gmet(2,2)*dgmetds(2,3))&
465 497236 : & +gmet(1,2)*(3*gmet(3,3)*dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3))
466 : cm(6,13,1,2)=3*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,2)*(1*gmet(2,3)&
467 497236 : & *dgmetds(2,2)+4*gmet(2,2)*dgmetds(2,3))
468 : cm(1,14,1,2)=3*gmet(1,3)**2*dgmetds(2,3)+3*gmet(1,2)*gmet(1,3)&
469 497236 : & *dgmetds(3,3)-gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
470 : cm(2,14,1,2)=3*gmet(2,3)**2*dgmetds(2,3)-gmet(2,2)*gmet(3,3)*dgmetds(2,3)&
471 497236 : & +2*gmet(2,2)*gmet(2,3)*dgmetds(3,3)
472 497236 : cm(3,14,1,2)=2*gmet(3,3)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
473 : cm(4,14,1,2)=4*gmet(2,3)*gmet(3,3)*dgmetds(2,3)+gmet(2,3)**2*dgmetds(3,3)&
474 497236 : & +3*gmet(2,2)*gmet(3,3)*dgmetds(3,3)
475 : cm(5,14,1,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(1,3)*(4*gmet(3,3)&
476 497236 : & *dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
477 : cm(6,14,1,2)=gmet(1,3)*(6*gmet(2,3)*dgmetds(2,3)+3*gmet(2,2)*dgmetds(3,3))&
478 497236 : & +gmet(1,2)*(-2*gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
479 : cm(1,15,1,2)=((6*gmet(1,3)**2-2*gmet(1,1)*gmet(3,3))*dgmetds(3,3))&
480 497236 : & /4.d0
481 : cm(2,15,1,2)=((6*gmet(2,3)**2-2*gmet(2,2)*gmet(3,3))*dgmetds(3,3))&
482 497236 : & /4.d0
483 497236 : cm(3,15,1,2)=gmet(3,3)**2*dgmetds(3,3)
484 497236 : cm(4,15,1,2)=2*gmet(2,3)*gmet(3,3)*dgmetds(3,3)
485 497236 : cm(5,15,1,2)=2*gmet(1,3)*gmet(3,3)*dgmetds(3,3)
486 : cm(6,15,1,2)=((6*gmet(1,3)*gmet(2,3)-2*gmet(1,2)*gmet(3,3))*dgmetds(3,3))&
487 497236 : & /2.d0
488 677192 : elseif(iterm==2)then
489 497236 : cm(1,1,2,2)=4*gmet(1,1)*dgmetds(1,1)
490 : cm(2,1,2,2)=-gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)-gmet(1,1)&
491 497236 : & *dgmetds(2,2)
492 : cm(3,1,2,2)=-gmet(3,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-gmet(1,1)&
493 497236 : & *dgmetds(3,3)
494 : cm(4,1,2,2)=-2*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
495 497236 : & +6*gmet(1,2)*dgmetds(1,3)-2*gmet(1,1)*dgmetds(2,3)
496 497236 : cm(5,1,2,2)=4*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
497 497236 : cm(6,1,2,2)=4*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
498 : cm(1,2,2,2)=-gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)-gmet(1,1)&
499 497236 : & *dgmetds(2,2)
500 497236 : cm(2,2,2,2)=4*gmet(2,2)*dgmetds(2,2)
501 : cm(3,2,2,2)=-gmet(3,3)*dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3)-gmet(2,2)&
502 497236 : & *dgmetds(3,3)
503 497236 : cm(4,2,2,2)=4*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
504 : cm(5,2,2,2)=6*gmet(2,3)*dgmetds(1,2)-2*gmet(2,2)*dgmetds(1,3)&
505 497236 : & -2*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3)
506 497236 : cm(6,2,2,2)=4*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
507 : cm(1,3,2,2)=-gmet(3,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-gmet(1,1)&
508 497236 : & *dgmetds(3,3)
509 : cm(2,3,2,2)=-gmet(3,3)*dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3)-gmet(2,2)&
510 497236 : & *dgmetds(3,3)
511 497236 : cm(3,3,2,2)=4*gmet(3,3)*dgmetds(3,3)
512 497236 : cm(4,3,2,2)=4*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
513 497236 : cm(5,3,2,2)=4*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
514 : cm(6,3,2,2)=-2*gmet(3,3)*dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3)&
515 497236 : & +6*gmet(1,3)*dgmetds(2,3)-2*gmet(1,2)*dgmetds(3,3)
516 : cm(1,4,2,2)=-2*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
517 497236 : & +6*gmet(1,2)*dgmetds(1,3)-2*gmet(1,1)*dgmetds(2,3)
518 497236 : cm(2,4,2,2)=4*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
519 497236 : cm(3,4,2,2)=4*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
520 : cm(4,4,2,2)=6*gmet(3,3)*dgmetds(2,2)+4*gmet(2,3)*dgmetds(2,3)&
521 497236 : & +6*gmet(2,2)*dgmetds(3,3)
522 : cm(5,4,2,2)=6*gmet(3,3)*dgmetds(1,2)+2*gmet(2,3)*dgmetds(1,3)&
523 497236 : & +2*gmet(1,3)*dgmetds(2,3)+6*gmet(1,2)*dgmetds(3,3)
524 : cm(6,4,2,2)=2*gmet(2,3)*dgmetds(1,2)+6*gmet(2,2)*dgmetds(1,3)&
525 497236 : & +6*gmet(1,3)*dgmetds(2,2)+2*gmet(1,2)*dgmetds(2,3)
526 497236 : cm(1,5,2,2)=4*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
527 : cm(2,5,2,2)=6*gmet(2,3)*dgmetds(1,2)-2*gmet(2,2)*dgmetds(1,3)&
528 497236 : & -2*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3)
529 497236 : cm(3,5,2,2)=4*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
530 : cm(4,5,2,2)=6*gmet(3,3)*dgmetds(1,2)+2*gmet(2,3)*dgmetds(1,3)&
531 497236 : & +2*gmet(1,3)*dgmetds(2,3)+6*gmet(1,2)*dgmetds(3,3)
532 : cm(5,5,2,2)=6*gmet(3,3)*dgmetds(1,1)+4*gmet(1,3)*dgmetds(1,3)&
533 497236 : & +6*gmet(1,1)*dgmetds(3,3)
534 : cm(6,5,2,2)=6*gmet(2,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,2)&
535 497236 : & +2*gmet(1,2)*dgmetds(1,3)+6*gmet(1,1)*dgmetds(2,3)
536 497236 : cm(1,6,2,2)=4*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
537 497236 : cm(2,6,2,2)=4*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
538 : cm(3,6,2,2)=-2*gmet(3,3)*dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3)&
539 497236 : & +6*gmet(1,3)*dgmetds(2,3)-2*gmet(1,2)*dgmetds(3,3)
540 : cm(4,6,2,2)=2*gmet(2,3)*dgmetds(1,2)+6*gmet(2,2)*dgmetds(1,3)&
541 497236 : & +6*gmet(1,3)*dgmetds(2,2)+2*gmet(1,2)*dgmetds(2,3)
542 : cm(5,6,2,2)=6*gmet(2,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,2)&
543 497236 : & +2*gmet(1,2)*dgmetds(1,3)+6*gmet(1,1)*dgmetds(2,3)
544 : cm(6,6,2,2)=6*gmet(2,2)*dgmetds(1,1)+4*gmet(1,2)*dgmetds(1,2)&
545 497236 : & +6*gmet(1,1)*dgmetds(2,2)
546 179956 : elseif(iterm==3)then
547 179956 : cm(1,1,3,2)=gmet(1,1)**2*dgmetds(1,1)
548 : cm(2,1,3,2)=1.5d0*gmet(1,2)**2*dgmetds(1,1)+4*gmet(1,1)*gmet(1,2)&
549 : & *dgmetds(1,2)+gmet(1,1)*(-0.5d0*gmet(2,2)*dgmetds(1,1)+gmet(1,1)&
550 179956 : & *dgmetds(2,2))
551 : cm(3,1,3,2)=1.5d0*gmet(1,3)**2*dgmetds(1,1)+4*gmet(1,1)*gmet(1,3)&
552 : & *dgmetds(1,3)+gmet(1,1)*(-0.5d0*gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
553 179956 : & *dgmetds(3,3))
554 : cm(4,1,3,2)=gmet(1,2)*(3*gmet(1,3)*dgmetds(1,1)+4*gmet(1,1)*dgmetds(1,3))&
555 : & +gmet(1,1)*(-gmet(2,3)*dgmetds(1,1)+4*gmet(1,3)*dgmetds(1,2)&
556 179956 : & +2*gmet(1,1)*dgmetds(2,3))
557 179956 : cm(5,1,3,2)=2*gmet(1,1)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
558 179956 : cm(6,1,3,2)=2*gmet(1,1)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
559 : cm(7,1,3,2)=3*gmet(1,2)**2*dgmetds(1,2)-gmet(1,1)*gmet(2,2)*dgmetds(1,2)&
560 179956 : & +2*gmet(1,1)*gmet(1,2)*dgmetds(2,2)
561 : cm(8,1,3,2)=3*gmet(1,3)**2*dgmetds(1,2)+gmet(1,3)*(6*gmet(1,2)&
562 : & *dgmetds(1,3)+4*gmet(1,1)*dgmetds(2,3))+gmet(1,1)*(-gmet(3,3)&
563 179956 : & *dgmetds(1,2)-2*gmet(2,3)*dgmetds(1,3)+2*gmet(1,2)*dgmetds(3,3))
564 : cm(9,1,3,2)=3*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(-2*gmet(2,3)&
565 : & *dgmetds(1,2)-gmet(2,2)*dgmetds(1,3)+2*gmet(1,3)*dgmetds(2,2))&
566 179956 : & +gmet(1,2)*(6*gmet(1,3)*dgmetds(1,2)+4*gmet(1,1)*dgmetds(2,3))
567 : cm(10,1,3,2)=3*gmet(1,3)**2*dgmetds(1,3)-gmet(1,1)*gmet(3,3)*dgmetds(1,3)&
568 179956 : & +2*gmet(1,1)*gmet(1,3)*dgmetds(3,3)
569 : cm(11,1,3,2)=((6*gmet(1,2)**2-2*gmet(1,1)*gmet(2,2))*dgmetds(2,2))&
570 179956 : & /4.d0
571 : cm(12,1,3,2)=1.5d0*gmet(1,3)**2*dgmetds(2,2)+6*gmet(1,2)*gmet(1,3)&
572 : & *dgmetds(2,3)+1.5d0*gmet(1,2)**2*dgmetds(3,3)+gmet(1,1)*(-0.5d0*gmet(3,3)&
573 179956 : & *dgmetds(2,2)-2*gmet(2,3)*dgmetds(2,3)-0.5d0*gmet(2,2)*dgmetds(3,3))
574 : cm(13,1,3,2)=3*gmet(1,2)*gmet(1,3)*dgmetds(2,2)+3*gmet(1,2)**2*dgmetds(2,3)&
575 179956 : & -gmet(1,1)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
576 : cm(14,1,3,2)=3*gmet(1,3)**2*dgmetds(2,3)+3*gmet(1,2)*gmet(1,3)&
577 179956 : & *dgmetds(3,3)-gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
578 : cm(15,1,3,2)=((6*gmet(1,3)**2-2*gmet(1,1)*gmet(3,3))*dgmetds(3,3))&
579 179956 : & /4.d0
580 : cm(1,2,3,2)=((6*gmet(1,2)**2-2*gmet(1,1)*gmet(2,2))*dgmetds(1,1))&
581 179956 : & /4.d0
582 : cm(2,2,3,2)=gmet(2,2)**2*dgmetds(1,1)+1.5d0*gmet(1,2)**2*dgmetds(2,2)&
583 179956 : & +gmet(2,2)*(4*gmet(1,2)*dgmetds(1,2)-0.5d0*gmet(1,1)*dgmetds(2,2))
584 : cm(3,2,3,2)=1.5d0*gmet(2,3)**2*dgmetds(1,1)+6*gmet(1,2)*gmet(2,3)&
585 : & *dgmetds(1,3)+1.5d0*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-0.5d0*gmet(3,3)&
586 179956 : & *dgmetds(1,1)-2*gmet(1,3)*dgmetds(1,3)-0.5d0*gmet(1,1)*dgmetds(3,3))
587 : cm(4,2,3,2)=gmet(2,2)*(2*gmet(2,3)*dgmetds(1,1)-2*gmet(1,3)*dgmetds(1,2)&
588 : & +4*gmet(1,2)*dgmetds(1,3)-gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(6*gmet(2,3)&
589 179956 : & *dgmetds(1,2)+3*gmet(1,2)*dgmetds(2,3))
590 : cm(5,2,3,2)=-gmet(1,3)*gmet(2,2)*dgmetds(1,1)+3*gmet(1,2)*gmet(2,3)&
591 : & *dgmetds(1,1)+3*gmet(1,2)**2*dgmetds(1,3)-gmet(1,1)*gmet(2,2)&
592 179956 : & *dgmetds(1,3)
593 : cm(6,2,3,2)=2*gmet(1,2)*gmet(2,2)*dgmetds(1,1)+3*gmet(1,2)**2*dgmetds(1,2)&
594 179956 : & -gmet(1,1)*gmet(2,2)*dgmetds(1,2)
595 179956 : cm(7,2,3,2)=2*gmet(2,2)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
596 : cm(8,2,3,2)=3*gmet(2,3)**2*dgmetds(1,2)+gmet(2,3)*(4*gmet(2,2)&
597 : & *dgmetds(1,3)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-gmet(3,3)&
598 179956 : & *dgmetds(1,2)-2*gmet(1,3)*dgmetds(2,3)+2*gmet(1,2)*dgmetds(3,3))
599 : cm(9,2,3,2)=2*gmet(2,2)**2*dgmetds(1,3)+3*gmet(1,2)*gmet(2,3)&
600 : & *dgmetds(2,2)+gmet(2,2)*(4*gmet(2,3)*dgmetds(1,2)-gmet(1,3)*dgmetds(2,2)&
601 179956 : & +4*gmet(1,2)*dgmetds(2,3))
602 : cm(10,2,3,2)=3*gmet(2,3)**2*dgmetds(1,3)+3*gmet(1,2)*gmet(2,3)&
603 179956 : & *dgmetds(3,3)-gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
604 179956 : cm(11,2,3,2)=gmet(2,2)**2*dgmetds(2,2)
605 : cm(12,2,3,2)=1.5d0*gmet(2,3)**2*dgmetds(2,2)+4*gmet(2,2)*gmet(2,3)&
606 : & *dgmetds(2,3)+gmet(2,2)*(-0.5d0*gmet(3,3)*dgmetds(2,2)+gmet(2,2)&
607 179956 : & *dgmetds(3,3))
608 179956 : cm(13,2,3,2)=2*gmet(2,2)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
609 : cm(14,2,3,2)=3*gmet(2,3)**2*dgmetds(2,3)-gmet(2,2)*gmet(3,3)*dgmetds(2,3)&
610 179956 : & +2*gmet(2,2)*gmet(2,3)*dgmetds(3,3)
611 : cm(15,2,3,2)=((6*gmet(2,3)**2-2*gmet(2,2)*gmet(3,3))*dgmetds(3,3))&
612 179956 : & /4.d0
613 : cm(1,3,3,2)=((6*gmet(1,3)**2-2*gmet(1,1)*gmet(3,3))*dgmetds(1,1))&
614 179956 : & /4.d0
615 : cm(2,3,3,2)=1.5d0*gmet(2,3)**2*dgmetds(1,1)-0.5d0*gmet(2,2)*gmet(3,3)&
616 : & *dgmetds(1,1)+6*gmet(1,3)*gmet(2,3)*dgmetds(1,2)-2*gmet(1,2)&
617 : & *gmet(3,3)*dgmetds(1,2)+1.5d0*gmet(1,3)**2*dgmetds(2,2)-0.5d0*gmet(1,1)&
618 179956 : & *gmet(3,3)*dgmetds(2,2)
619 : cm(3,3,3,2)=gmet(3,3)**2*dgmetds(1,1)+1.5d0*gmet(1,3)**2*dgmetds(3,3)&
620 179956 : & +gmet(3,3)*(4*gmet(1,3)*dgmetds(1,3)-0.5d0*gmet(1,1)*dgmetds(3,3))
621 : cm(4,3,3,2)=4*gmet(1,3)*gmet(3,3)*dgmetds(1,2)+gmet(2,3)*(2*gmet(3,3)&
622 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3))+3*gmet(1,3)**2*dgmetds(2,3)&
623 179956 : & +gmet(3,3)*(-2*gmet(1,2)*dgmetds(1,3)-gmet(1,1)*dgmetds(2,3))
624 : cm(5,3,3,2)=2*gmet(1,3)*gmet(3,3)*dgmetds(1,1)+3*gmet(1,3)**2*dgmetds(1,3)&
625 179956 : & -gmet(1,1)*gmet(3,3)*dgmetds(1,3)
626 : cm(6,3,3,2)=3*gmet(1,3)*gmet(2,3)*dgmetds(1,1)+3*gmet(1,3)**2*dgmetds(1,2)&
627 179956 : & -gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
628 : cm(7,3,3,2)=3*gmet(2,3)**2*dgmetds(1,2)+3*gmet(1,3)*gmet(2,3)&
629 179956 : & *dgmetds(2,2)-gmet(3,3)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
630 : cm(8,3,3,2)=2*gmet(3,3)**2*dgmetds(1,2)+3*gmet(1,3)*gmet(2,3)&
631 : & *dgmetds(3,3)+gmet(3,3)*(4*gmet(2,3)*dgmetds(1,3)+4*gmet(1,3)&
632 179956 : & *dgmetds(2,3)-gmet(1,2)*dgmetds(3,3))
633 : cm(9,3,3,2)=3*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-gmet(2,2)&
634 : & *dgmetds(1,3)+2*gmet(1,3)*dgmetds(2,2)-2*gmet(1,2)*dgmetds(2,3))&
635 179956 : & +gmet(2,3)*(4*gmet(3,3)*dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3))
636 179956 : cm(10,3,3,2)=2*gmet(3,3)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
637 : cm(11,3,3,2)=((6*gmet(2,3)**2-2*gmet(2,2)*gmet(3,3))*dgmetds(2,2))&
638 179956 : & /4.d0
639 : cm(12,3,3,2)=gmet(3,3)**2*dgmetds(2,2)+1.5d0*gmet(2,3)**2*dgmetds(3,3)&
640 179956 : & +gmet(3,3)*(4*gmet(2,3)*dgmetds(2,3)-0.5d0*gmet(2,2)*dgmetds(3,3))
641 : cm(13,3,3,2)=2*gmet(2,3)*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)**2*dgmetds(2,3)&
642 179956 : & -gmet(2,2)*gmet(3,3)*dgmetds(2,3)
643 179956 : cm(14,3,3,2)=2*gmet(3,3)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
644 179956 : cm(15,3,3,2)=gmet(3,3)**2*dgmetds(3,3)
645 : cm(1,4,3,2)=((6*gmet(1,2)*gmet(1,3)-2*gmet(1,1)*gmet(2,3))*dgmetds(1,1))&
646 179956 : & /2.d0
647 : cm(2,4,3,2)=gmet(2,2)*(2*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2))&
648 : & -gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(2*gmet(2,3)*dgmetds(1,2)&
649 179956 : & +3*gmet(1,3)*dgmetds(2,2))
650 : cm(3,4,3,2)=gmet(2,3)*(2*gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)*dgmetds(1,3)&
651 : & -gmet(1,1)*dgmetds(3,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(1,3)&
652 179956 : & +3*gmet(1,3)*dgmetds(3,3))
653 : cm(4,4,3,2)=(2*gmet(2,3)**2*dgmetds(1,1)+gmet(2,2)*(6*gmet(3,3)&
654 : & *dgmetds(1,1)+12*gmet(1,3)*dgmetds(1,3))+gmet(2,3)*(4*gmet(1,3)&
655 : & *dgmetds(1,2)+4*gmet(1,2)*dgmetds(1,3)-4*gmet(1,1)*dgmetds(2,3))&
656 : & +12*gmet(1,2)*(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3)))&
657 179956 : & /2.d0
658 : cm(5,4,3,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(1,1)-2*gmet(1,1)*gmet(2,3)&
659 : & *dgmetds(1,3)+gmet(1,3)*(1*gmet(2,3)*dgmetds(1,1)+6*gmet(1,2)&
660 179956 : & *dgmetds(1,3))
661 : cm(6,4,3,2)=gmet(2,3)*(1*gmet(1,2)*dgmetds(1,1)-2*gmet(1,1)*dgmetds(1,2))&
662 179956 : & +gmet(1,3)*(3*gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2))
663 : cm(7,4,3,2)=gmet(1,2)*gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(4*gmet(2,3)&
664 179956 : & *dgmetds(1,2)+3*gmet(1,3)*dgmetds(2,2))
665 : cm(8,4,3,2)=2*gmet(2,3)**2*dgmetds(1,3)+6*gmet(1,2)*gmet(3,3)&
666 : & *dgmetds(2,3)+gmet(2,3)*(4*gmet(3,3)*dgmetds(1,2)+2*gmet(1,3)&
667 : & *dgmetds(2,3)+gmet(1,2)*dgmetds(3,3))+gmet(2,2)*(6*gmet(3,3)&
668 179956 : & *dgmetds(1,3)+3*gmet(1,3)*dgmetds(3,3))
669 : cm(9,4,3,2)=2*gmet(2,3)**2*dgmetds(1,2)+3*gmet(1,2)*gmet(3,3)&
670 : & *dgmetds(2,2)+gmet(2,3)*(4*gmet(2,2)*dgmetds(1,3)+gmet(1,3)*dgmetds(2,2)&
671 : & +2*gmet(1,2)*dgmetds(2,3))+6*gmet(2,2)*(gmet(3,3)*dgmetds(1,2)&
672 179956 : & +gmet(1,3)*dgmetds(2,3))
673 : cm(10,4,3,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(2,3)*(4*gmet(3,3)&
674 179956 : & *dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
675 179956 : cm(11,4,3,2)=2*gmet(2,2)*gmet(2,3)*dgmetds(2,2)
676 : cm(12,4,3,2)=2*gmet(2,3)**2*dgmetds(2,3)+6*gmet(2,2)*gmet(3,3)&
677 179956 : & *dgmetds(2,3)+2*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(3,3))
678 : cm(13,4,3,2)=gmet(2,3)**2*dgmetds(2,2)+3*gmet(2,2)*gmet(3,3)*dgmetds(2,2)&
679 179956 : & +4*gmet(2,2)*gmet(2,3)*dgmetds(2,3)
680 : cm(14,4,3,2)=4*gmet(2,3)*gmet(3,3)*dgmetds(2,3)+gmet(2,3)**2*dgmetds(3,3)&
681 179956 : & +3*gmet(2,2)*gmet(3,3)*dgmetds(3,3)
682 179956 : cm(15,4,3,2)=2*gmet(2,3)*gmet(3,3)*dgmetds(3,3)
683 179956 : cm(1,5,3,2)=2*gmet(1,1)*gmet(1,3)*dgmetds(1,1)
684 : cm(2,5,3,2)=gmet(2,3)*(3*gmet(1,2)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,2))&
685 : & +gmet(1,3)*(-gmet(2,2)*dgmetds(1,1)+2*(gmet(1,2)*dgmetds(1,2)&
686 179956 : & +gmet(1,1)*dgmetds(2,2)))
687 : cm(3,5,3,2)=2*gmet(1,3)**2*dgmetds(1,3)+6*gmet(1,1)*gmet(3,3)&
688 179956 : & *dgmetds(1,3)+2*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
689 : cm(4,5,3,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(1,1)+2*gmet(1,3)**2*dgmetds(1,2)&
690 : & +6*gmet(1,1)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3))&
691 : & +gmet(1,3)*(1*gmet(2,3)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3)&
692 179956 : & +4*gmet(1,1)*dgmetds(2,3))
693 : cm(5,5,3,2)=gmet(1,3)**2*dgmetds(1,1)+3*gmet(1,1)*gmet(3,3)*dgmetds(1,1)&
694 179956 : & +4*gmet(1,1)*gmet(1,3)*dgmetds(1,3)
695 : cm(6,5,3,2)=gmet(1,2)*gmet(1,3)*dgmetds(1,1)+gmet(1,1)*(3*gmet(2,3)&
696 179956 : & *dgmetds(1,1)+4*gmet(1,3)*dgmetds(1,2))
697 : cm(7,5,3,2)=gmet(2,3)*(6*gmet(1,2)*dgmetds(1,2)+3*gmet(1,1)*dgmetds(2,2))&
698 179956 : & +gmet(1,3)*(-2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
699 : cm(8,5,3,2)=6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+2*gmet(1,3)**2*dgmetds(2,3)&
700 : & +gmet(1,3)*(4*gmet(3,3)*dgmetds(1,2)+2*gmet(2,3)*dgmetds(1,3)&
701 : & +gmet(1,2)*dgmetds(3,3))+gmet(1,1)*(6*gmet(3,3)*dgmetds(2,3)&
702 179956 : & +3*gmet(2,3)*dgmetds(3,3))
703 : cm(9,5,3,2)=(12*gmet(1,2)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3))&
704 : & +2*gmet(1,3)**2*dgmetds(2,2)+gmet(1,3)*(4*gmet(2,3)*dgmetds(1,2)&
705 : & -4*gmet(2,2)*dgmetds(1,3)+4*gmet(1,2)*dgmetds(2,3))+gmet(1,1)&
706 179956 : & *(6*gmet(3,3)*dgmetds(2,2)+12*gmet(2,3)*dgmetds(2,3)))/2.d0
707 : cm(10,5,3,2)=4*gmet(1,3)*gmet(3,3)*dgmetds(1,3)+gmet(1,3)**2*dgmetds(3,3)&
708 179956 : & +3*gmet(1,1)*gmet(3,3)*dgmetds(3,3)
709 : cm(11,5,3,2)=((-2*gmet(1,3)*gmet(2,2)+6*gmet(1,2)*gmet(2,3))*dgmetds(2,2))&
710 179956 : & /2.d0
711 : cm(12,5,3,2)=gmet(1,3)*(2*gmet(3,3)*dgmetds(2,2)+2*gmet(2,3)*dgmetds(2,3)&
712 : & -gmet(2,2)*dgmetds(3,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(2,3)&
713 179956 : & +3*gmet(2,3)*dgmetds(3,3))
714 : cm(13,5,3,2)=gmet(1,3)*(1*gmet(2,3)*dgmetds(2,2)-2*gmet(2,2)*dgmetds(2,3))&
715 179956 : & +gmet(1,2)*(3*gmet(3,3)*dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3))
716 : cm(14,5,3,2)=3*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(1,3)*(4*gmet(3,3)&
717 179956 : & *dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
718 179956 : cm(15,5,3,2)=2*gmet(1,3)*gmet(3,3)*dgmetds(3,3)
719 179956 : cm(1,6,3,2)=2*gmet(1,1)*gmet(1,2)*dgmetds(1,1)
720 : cm(2,6,3,2)=2*gmet(1,2)**2*dgmetds(1,2)+6*gmet(1,1)*gmet(2,2)&
721 179956 : & *dgmetds(1,2)+2*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,2))
722 : cm(3,6,3,2)=6*gmet(1,1)*gmet(2,3)*dgmetds(1,3)+gmet(1,3)*(3*gmet(2,3)&
723 : & *dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,3))+gmet(1,2)*(-gmet(3,3)&
724 179956 : & *dgmetds(1,1)+2*gmet(1,1)*dgmetds(3,3))
725 : cm(4,6,3,2)=gmet(1,3)*(3*gmet(2,2)*dgmetds(1,1)+2*gmet(1,2)*dgmetds(1,2))&
726 : & +2*gmet(1,2)**2*dgmetds(1,3)+6*gmet(1,1)*(gmet(2,3)*dgmetds(1,2)&
727 : & +gmet(2,2)*dgmetds(1,3))+gmet(1,2)*(1*gmet(2,3)*dgmetds(1,1)&
728 179956 : & +4*gmet(1,1)*dgmetds(2,3))
729 : cm(5,6,3,2)=3*gmet(1,1)*gmet(2,3)*dgmetds(1,1)+gmet(1,2)*(1*gmet(1,3)&
730 179956 : & *dgmetds(1,1)+4*gmet(1,1)*dgmetds(1,3))
731 : cm(6,6,3,2)=gmet(1,2)**2*dgmetds(1,1)+3*gmet(1,1)*gmet(2,2)*dgmetds(1,1)&
732 179956 : & +4*gmet(1,1)*gmet(1,2)*dgmetds(1,2)
733 : cm(7,6,3,2)=4*gmet(1,2)*gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*dgmetds(2,2)&
734 179956 : & +3*gmet(1,1)*gmet(2,2)*dgmetds(2,2)
735 : cm(8,6,3,2)=(2*(6*gmet(1,3)*gmet(2,3)-2*gmet(1,2)*gmet(3,3))*dgmetds(1,2)&
736 : & +4*(3*gmet(1,3)*gmet(2,2)+gmet(1,2)*gmet(2,3))*dgmetds(1,3)+4*(1*gmet(1,2)&
737 : & *gmet(1,3)+3*gmet(1,1)*gmet(2,3))*dgmetds(2,3)+2*(1*gmet(1,2)&
738 179956 : & **2+3*gmet(1,1)*gmet(2,2))*dgmetds(3,3))/2.d0
739 : cm(9,6,3,2)=gmet(1,2)*(2*gmet(2,3)*dgmetds(1,2)+4*gmet(2,2)*dgmetds(1,3))&
740 : & +gmet(1,3)*(6*gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))&
741 : & +2*gmet(1,2)**2*dgmetds(2,3)+gmet(1,1)*(3*gmet(2,3)*dgmetds(2,2)&
742 179956 : & +6*gmet(2,2)*dgmetds(2,3))
743 : cm(10,6,3,2)=-2*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+3*gmet(1,1)*gmet(2,3)&
744 179956 : & *dgmetds(3,3)+gmet(1,3)*(6*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*dgmetds(3,3))
745 179956 : cm(11,6,3,2)=2*gmet(1,2)*gmet(2,2)*dgmetds(2,2)
746 : cm(12,6,3,2)=gmet(1,3)*(3*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3))&
747 : & +gmet(1,2)*(-gmet(3,3)*dgmetds(2,2)+2*(gmet(2,3)*dgmetds(2,3)&
748 179956 : & +gmet(2,2)*dgmetds(3,3)))
749 : cm(13,6,3,2)=3*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,2)*(1*gmet(2,3)&
750 179956 : & *dgmetds(2,2)+4*gmet(2,2)*dgmetds(2,3))
751 : cm(14,6,3,2)=gmet(1,3)*(6*gmet(2,3)*dgmetds(2,3)+3*gmet(2,2)*dgmetds(3,3))&
752 179956 : & +gmet(1,2)*(-2*gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
753 : cm(15,6,3,2)=((6*gmet(1,3)*gmet(2,3)-2*gmet(1,2)*gmet(3,3))*dgmetds(3,3))&
754 179956 : & /2.d0
755 : end if
756 :
757 771 : elseif(rank==3)then
758 771 : if(iterm==1)then
759 289 : cm(1,1,1,3)=gmet(1,1)**3*dgmetds(1,1)
760 : cm(2,1,1,3)=gmet(1,1)*(4.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
761 289 : & *dgmetds(1,1)
762 : cm(3,1,1,3)=gmet(1,1)*(4.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
763 289 : & *dgmetds(1,1)
764 : cm(4,1,1,3)=(gmet(1,1)*(54*gmet(1,2)*gmet(1,3)-18*gmet(1,1)*gmet(2,3))&
765 289 : & *dgmetds(1,1))/6.d0
766 289 : cm(5,1,1,3)=3*gmet(1,1)**2*gmet(1,3)*dgmetds(1,1)
767 289 : cm(6,1,1,3)=3*gmet(1,1)**2*gmet(1,2)*dgmetds(1,1)
768 : cm(7,1,1,3)=gmet(1,2)*(2.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
769 289 : & *dgmetds(1,1)
770 : cm(8,1,1,3)=((-36*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)&
771 289 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(1,1))/12.d0
772 : cm(9,1,1,3)=((90*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)&
773 289 : & *gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(1,1))/12.d0
774 : cm(10,1,1,3)=gmet(1,3)*(2.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
775 289 : & *dgmetds(1,1)
776 : cm(1,2,1,3)=gmet(1,1)*(4.5d0*gmet(1,2)**2*dgmetds(1,1)+6*gmet(1,1)&
777 : & *gmet(1,2)*dgmetds(1,2)+gmet(1,1)*(-1.5d0*gmet(2,2)*dgmetds(1,1)&
778 289 : & +gmet(1,1)*dgmetds(2,2)))
779 : cm(2,2,1,3)=3*gmet(1,2)**3*dgmetds(1,2)+15*gmet(1,1)*gmet(1,2)&
780 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,1)*gmet(2,2)*(6*gmet(2,2)*dgmetds(1,1)&
781 : & -1.5d0*gmet(1,1)*dgmetds(2,2))+gmet(1,2)**2*(3*gmet(2,2)*dgmetds(1,1)&
782 289 : & +4.5d0*gmet(1,1)*dgmetds(2,2))
783 : cm(3,2,1,3)=-3*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,3)*gmet(2,3)&
784 : & *(9*gmet(1,2)*dgmetds(1,1)+24*gmet(1,1)*dgmetds(1,2))+gmet(1,1)&
785 : & *(7.5d0*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)&
786 : & -9*gmet(1,2)*gmet(3,3)*dgmetds(1,2))-1.5d0*gmet(1,1)**2*gmet(3,3)&
787 : & *dgmetds(2,2)+gmet(1,3)**2*(-3*gmet(2,2)*dgmetds(1,1)+3*gmet(1,2)&
788 289 : & *dgmetds(1,2)+4.5d0*gmet(1,1)*dgmetds(2,2))
789 : cm(4,2,1,3)=gmet(1,2)**2*(3*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)&
790 : & *dgmetds(1,2))+gmet(1,1)*(gmet(2,2)*(12*gmet(2,3)*dgmetds(1,1)&
791 : & +24*gmet(1,3)*dgmetds(1,2))-3*gmet(1,1)*gmet(2,3)*dgmetds(2,2))&
792 : & +gmet(1,2)*(6*gmet(1,1)*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*(3*gmet(2,2)&
793 289 : & *dgmetds(1,1)+9*gmet(1,1)*dgmetds(2,2)))
794 : cm(5,2,1,3)=1.5d0*gmet(1,2)**2*gmet(1,3)*dgmetds(1,1)+gmet(1,1)&
795 : & *gmet(1,2)*(12*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2))&
796 : & +gmet(1,1)*(12*gmet(1,1)*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*(-4.5d0*gmet(2,2)&
797 289 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))
798 : cm(6,2,1,3)=1.5d0*gmet(1,2)**3*dgmetds(1,1)+6*gmet(1,1)*gmet(1,2)&
799 : & **2*dgmetds(1,2)+12*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,1)&
800 289 : & *gmet(1,2)*(7.5d0*gmet(2,2)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2))
801 : cm(7,2,1,3)=9*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)-3*gmet(1,1)&
802 : & *gmet(2,2)**2*dgmetds(1,2)+2.5d0*gmet(1,2)**3*dgmetds(2,2)+gmet(1,2)&
803 289 : & *gmet(2,2)*(3*gmet(2,2)*dgmetds(1,1)-1.5d0*gmet(1,1)*dgmetds(2,2))
804 : cm(8,2,1,3)=(6*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
805 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(30*gmet(1,3)**2*gmet(2,2)&
806 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
807 : & *(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(-36*gmet(1,1)&
808 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)&
809 289 : & *gmet(3,3)))*dgmetds(2,2))/24.d0
810 : cm(9,2,1,3)=gmet(2,3)*(3*gmet(1,2)**2*dgmetds(1,2)-9*gmet(1,1)&
811 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,2)*(3*gmet(2,2)*dgmetds(1,1)-3*gmet(1,1)&
812 : & *dgmetds(2,2)))+gmet(1,3)*(6*gmet(2,2)**2*dgmetds(1,1)+7.5d0*gmet(1,2)&
813 : & **2*dgmetds(2,2)+gmet(2,2)*(24*gmet(1,2)*dgmetds(1,2)-1.5d0*gmet(1,1)&
814 289 : & *dgmetds(2,2)))
815 : cm(10,2,1,3)=(1080*gmet(1,3)**2*gmet(2,3)*dgmetds(1,2)-216*gmet(2,3)&
816 : & *gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))+180*gmet(1,3)&
817 : & **3*dgmetds(2,2)+gmet(1,3)*(540*gmet(2,3)**2*dgmetds(1,1)+gmet(3,3)&
818 : & *(-108*gmet(2,2)*dgmetds(1,1)-432*gmet(1,2)*dgmetds(1,2)-108*gmet(1,1)&
819 289 : & *dgmetds(2,2))))/72.d0
820 : cm(1,3,1,3)=gmet(1,1)*(4.5d0*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
821 : & *gmet(1,3)*dgmetds(1,3)+gmet(1,1)*(-1.5d0*gmet(3,3)*dgmetds(1,1)&
822 289 : & +gmet(1,1)*dgmetds(3,3)))
823 : cm(2,3,1,3)=-3*gmet(1,3)**2*gmet(2,2)*dgmetds(1,1)-3*gmet(1,2)&
824 : & **2*gmet(3,3)*dgmetds(1,1)+gmet(1,3)*(9*gmet(1,2)*gmet(2,3)*dgmetds(1,1)&
825 : & +3*gmet(1,2)**2*dgmetds(1,3)-9*gmet(1,1)*gmet(2,2)*dgmetds(1,3))&
826 : & -1.5d0*gmet(1,1)**2*gmet(2,2)*dgmetds(3,3)+gmet(1,1)*(7.5d0*gmet(2,3)&
827 : & **2*dgmetds(1,1)-1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)+24*gmet(1,2)&
828 289 : & *gmet(2,3)*dgmetds(1,3)+4.5d0*gmet(1,2)**2*dgmetds(3,3))
829 : cm(3,3,1,3)=3*gmet(1,3)**3*dgmetds(1,3)+15*gmet(1,1)*gmet(1,3)&
830 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,1)*gmet(3,3)*(6*gmet(3,3)*dgmetds(1,1)&
831 : & -1.5d0*gmet(1,1)*dgmetds(3,3))+gmet(1,3)**2*(3*gmet(3,3)*dgmetds(1,1)&
832 289 : & +4.5d0*gmet(1,1)*dgmetds(3,3))
833 : cm(4,3,1,3)=gmet(1,3)**2*(3*gmet(2,3)*dgmetds(1,1)+6*gmet(1,2)&
834 : & *dgmetds(1,3))+gmet(1,1)*(24*gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
835 : & +gmet(2,3)*(12*gmet(3,3)*dgmetds(1,1)-3*gmet(1,1)*dgmetds(3,3)))&
836 : & +gmet(1,3)*(6*gmet(1,1)*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*(3*gmet(3,3)&
837 289 : & *dgmetds(1,1)+9*gmet(1,1)*dgmetds(3,3)))
838 : cm(5,3,1,3)=1.5d0*gmet(1,3)**3*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)&
839 : & **2*dgmetds(1,3)+12*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)&
840 289 : & *gmet(1,3)*(7.5d0*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3))
841 : cm(6,3,1,3)=12*gmet(1,1)*gmet(2,3)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)&
842 : & *dgmetds(1,3))+gmet(1,2)*(1.5d0*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
843 : & *gmet(1,3)*dgmetds(1,3)+gmet(1,1)*(-4.5d0*gmet(3,3)*dgmetds(1,1)&
844 289 : & +3*gmet(1,1)*dgmetds(3,3)))
845 : cm(7,3,1,3)=(6*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
846 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(-36*gmet(1,2)*gmet(1,3)&
847 : & *gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
848 : & *dgmetds(1,3)+2*(90*gmet(1,2)**3-54*gmet(1,1)*gmet(1,2)*gmet(2,2))&
849 289 : & *dgmetds(3,3))/72.d0
850 : cm(8,3,1,3)=gmet(1,3)**2*(3*gmet(2,3)*dgmetds(1,3)+7.5d0*gmet(1,2)&
851 : & *dgmetds(3,3))+gmet(1,3)*(24*gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
852 : & +gmet(2,3)*(3*gmet(3,3)*dgmetds(1,1)-3*gmet(1,1)*dgmetds(3,3)))&
853 : & +gmet(3,3)*(-9*gmet(1,1)*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*(6*gmet(3,3)&
854 289 : & *dgmetds(1,1)-1.5d0*gmet(1,1)*dgmetds(3,3)))
855 : cm(9,3,1,3)=(6*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
856 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(-12*gmet(1,3)**2*gmet(2,2)&
857 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
858 : & *(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+2*(90*gmet(1,2)&
859 : & **2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)*gmet(2,2)-36*gmet(1,1)*gmet(1,2)&
860 289 : & *gmet(2,3))*dgmetds(3,3))/24.d0
861 : cm(10,3,1,3)=9*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)-3*gmet(1,1)&
862 : & *gmet(3,3)**2*dgmetds(1,3)+2.5d0*gmet(1,3)**3*dgmetds(3,3)+gmet(1,3)&
863 289 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(1,1)-1.5d0*gmet(1,1)*dgmetds(3,3))
864 : cm(1,4,1,3)=gmet(1,1)*(gmet(1,2)*(9*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
865 : & *dgmetds(1,3))+gmet(1,1)*(-3*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)&
866 289 : & *dgmetds(1,2)+2*gmet(1,1)*dgmetds(2,3)))
867 : cm(2,4,1,3)=3*gmet(1,2)**3*dgmetds(1,3)+gmet(1,2)*(3*gmet(1,3)&
868 : & *gmet(2,2)*dgmetds(1,1)+gmet(1,1)*(24*gmet(2,3)*dgmetds(1,2)&
869 : & +15*gmet(2,2)*dgmetds(1,3)))+gmet(1,1)*gmet(2,2)*(12*gmet(2,3)&
870 : & *dgmetds(1,1)-9*gmet(1,3)*dgmetds(1,2)-3*gmet(1,1)*dgmetds(2,3))&
871 : & +gmet(1,2)**2*(3*gmet(2,3)*dgmetds(1,1)+3*gmet(1,3)*dgmetds(1,2)&
872 289 : & +9*gmet(1,1)*dgmetds(2,3))
873 : cm(3,4,1,3)=3*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)*(3*gmet(1,2)&
874 : & *gmet(3,3)*dgmetds(1,1)+gmet(1,1)*(15*gmet(3,3)*dgmetds(1,2)&
875 : & +24*gmet(2,3)*dgmetds(1,3)))+gmet(1,1)*gmet(3,3)*(12*gmet(2,3)&
876 : & *dgmetds(1,1)-9*gmet(1,2)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))&
877 : & +gmet(1,3)**2*(3*gmet(2,3)*dgmetds(1,1)+3*gmet(1,2)*dgmetds(1,3)&
878 289 : & +9*gmet(1,1)*dgmetds(2,3))
879 : cm(4,4,1,3)=9*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,3)**2*(9*gmet(2,2)&
880 : & *dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2))+gmet(1,1)*(9*gmet(2,3)&
881 : & **2*dgmetds(1,1)+15*gmet(2,2)*gmet(3,3)*dgmetds(1,1)+24*gmet(1,2)&
882 : & *gmet(3,3)*dgmetds(1,2)+6*gmet(1,2)*gmet(2,3)*dgmetds(1,3))-6*gmet(1,1)&
883 : & **2*gmet(2,3)*dgmetds(2,3)+gmet(1,3)*(6*gmet(1,2)**2*dgmetds(1,3)&
884 : & +gmet(1,1)*(6*gmet(2,3)*dgmetds(1,2)+24*gmet(2,2)*dgmetds(1,3))&
885 289 : & +gmet(1,2)*(-6*gmet(2,3)*dgmetds(1,1)+18*gmet(1,1)*dgmetds(2,3)))
886 : cm(5,4,1,3)=gmet(1,2)*(3*gmet(1,3)**2*dgmetds(1,1)+12*gmet(1,1)&
887 : & *gmet(3,3)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)*dgmetds(1,3))+gmet(1,1)&
888 : & *(6*gmet(1,3)**2*dgmetds(1,2)+12*gmet(1,1)*(gmet(3,3)*dgmetds(1,2)&
889 : & +gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(3*gmet(2,3)*dgmetds(1,1)&
890 289 : & +6*gmet(1,1)*dgmetds(2,3)))
891 : cm(6,4,1,3)=gmet(1,2)**2*(3*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
892 : & *dgmetds(1,3))+12*gmet(1,1)*(gmet(1,3)*gmet(2,2)*dgmetds(1,1)&
893 : & +gmet(1,1)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)*dgmetds(1,3)))+gmet(1,1)&
894 : & *gmet(1,2)*(3*gmet(2,3)*dgmetds(1,1)+6*(gmet(1,3)*dgmetds(1,2)&
895 289 : & +gmet(1,1)*dgmetds(2,3)))
896 : cm(7,4,1,3)=gmet(1,3)*gmet(2,2)*(-3*gmet(2,2)*dgmetds(1,1)-6*gmet(1,2)&
897 : & *dgmetds(1,2))-3*gmet(1,1)*gmet(2,2)*(gmet(2,3)*dgmetds(1,2)&
898 : & +gmet(2,2)*dgmetds(1,3))+gmet(1,2)**2*(15*gmet(2,3)*dgmetds(1,2)&
899 : & +9*gmet(2,2)*dgmetds(1,3))+5*gmet(1,2)**3*dgmetds(2,3)+gmet(1,2)&
900 289 : & *gmet(2,2)*(9*gmet(2,3)*dgmetds(1,1)-3*gmet(1,1)*dgmetds(2,3))
901 : cm(8,4,1,3)=-6*gmet(1,2)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(-9*gmet(2,3)&
902 : & *gmet(3,3)*dgmetds(1,2)-6*gmet(2,3)**2*dgmetds(1,3)-3*gmet(2,2)&
903 : & *gmet(3,3)*dgmetds(1,3))+gmet(1,2)*gmet(3,3)*(3*gmet(2,3)*dgmetds(1,1)&
904 : & -3*gmet(1,1)*dgmetds(2,3))+gmet(1,3)*(3*gmet(2,3)**2*dgmetds(1,1)&
905 : & +gmet(3,3)*(12*gmet(2,2)*dgmetds(1,1)+24*gmet(1,2)*dgmetds(1,2))&
906 : & +gmet(2,3)*(18*gmet(1,2)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3)))&
907 : & +gmet(1,3)**2*(3*gmet(2,3)*dgmetds(1,2)+15*(gmet(2,2)*dgmetds(1,3)&
908 289 : & +gmet(1,2)*dgmetds(2,3)))
909 : cm(9,4,1,3)=-6*gmet(1,3)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*(15*gmet(3,3)&
910 : & *dgmetds(1,2)+3*gmet(2,3)*dgmetds(1,3))+gmet(1,1)*(-6*gmet(2,3)&
911 : & **2*dgmetds(1,2)-3*gmet(2,2)*gmet(3,3)*dgmetds(1,2)-9*gmet(2,2)&
912 : & *gmet(2,3)*dgmetds(1,3))+gmet(1,2)*(3*gmet(2,3)**2*dgmetds(1,1)&
913 : & +12*gmet(2,2)*gmet(3,3)*dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(2,3))&
914 : & +gmet(1,3)*(gmet(2,2)*(3*gmet(2,3)*dgmetds(1,1)+24*gmet(1,2)&
915 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(18*gmet(2,3)&
916 289 : & *dgmetds(1,2)+15*gmet(1,2)*dgmetds(2,3)))
917 : cm(10,4,1,3)=gmet(1,3)**2*(9*gmet(3,3)*dgmetds(1,2)+15*gmet(2,3)&
918 : & *dgmetds(1,3))-3*gmet(3,3)*(gmet(1,2)*gmet(3,3)*dgmetds(1,1)&
919 : & +gmet(1,1)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3)))+5*gmet(1,3)&
920 : & **3*dgmetds(2,3)+gmet(1,3)*gmet(3,3)*(9*gmet(2,3)*dgmetds(1,1)&
921 289 : & -6*gmet(1,2)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))
922 : cm(1,5,1,3)=gmet(1,1)**2*(3*gmet(1,3)*dgmetds(1,1)+2*gmet(1,1)&
923 289 : & *dgmetds(1,3))
924 : cm(2,5,1,3)=12*gmet(1,1)*gmet(1,2)*gmet(2,3)*dgmetds(1,1)+gmet(1,1)&
925 : & *gmet(2,2)*(-4.5d0*gmet(1,3)*dgmetds(1,1)-3*gmet(1,1)*dgmetds(1,3))&
926 289 : & +gmet(1,2)**2*(1.5d0*gmet(1,3)*dgmetds(1,1)+9*gmet(1,1)*dgmetds(1,3))
927 : cm(3,5,1,3)=1.5d0*gmet(1,3)**3*dgmetds(1,1)+7.5d0*gmet(1,1)*gmet(1,3)&
928 : & *gmet(3,3)*dgmetds(1,1)+9*gmet(1,1)*gmet(1,3)**2*dgmetds(1,3)&
929 289 : & -3*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)
930 : cm(4,5,1,3)=gmet(1,1)*gmet(2,3)*(3*gmet(1,3)*dgmetds(1,1)-6*gmet(1,1)&
931 : & *dgmetds(1,3))+gmet(1,2)*(3*gmet(1,3)**2*dgmetds(1,1)+12*gmet(1,1)&
932 289 : & *gmet(3,3)*dgmetds(1,1)+18*gmet(1,1)*gmet(1,3)*dgmetds(1,3))
933 : cm(5,5,1,3)=gmet(1,1)*(3*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
934 289 : & *gmet(3,3)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)*dgmetds(1,3))
935 : cm(6,5,1,3)=gmet(1,1)*(6*gmet(1,1)*gmet(2,3)*dgmetds(1,1)+gmet(1,2)&
936 289 : & *(3*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,3)))
937 : cm(7,5,1,3)=7.5d0*gmet(1,2)**2*gmet(2,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
938 : & *gmet(2,2)*gmet(2,3)*dgmetds(1,1)+5*gmet(1,2)**3*dgmetds(1,3)&
939 289 : & -3*gmet(1,2)*gmet(2,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
940 : cm(8,5,1,3)=gmet(1,1)*gmet(3,3)*(-4.5d0*gmet(2,3)*dgmetds(1,1)&
941 : & -3*gmet(1,2)*dgmetds(1,3))+gmet(1,3)**2*(1.5d0*gmet(2,3)*dgmetds(1,1)&
942 : & +15*gmet(1,2)*dgmetds(1,3))+gmet(1,3)*(12*gmet(1,2)*gmet(3,3)&
943 289 : & *dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(1,3))
944 : cm(9,5,1,3)=(12*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
945 : & *gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
946 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+8*(90*gmet(1,2)**2*gmet(1,3)&
947 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))&
948 289 : & *dgmetds(1,3))/48.d0
949 : cm(10,5,1,3)=4.5d0*gmet(1,3)**2*gmet(3,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
950 : & *gmet(3,3)**2*dgmetds(1,1)+5*gmet(1,3)**3*dgmetds(1,3)-3*gmet(1,1)&
951 289 : & *gmet(1,3)*gmet(3,3)*dgmetds(1,3)
952 : cm(1,6,1,3)=gmet(1,1)**2*(3*gmet(1,2)*dgmetds(1,1)+2*gmet(1,1)&
953 289 : & *dgmetds(1,2))
954 : cm(2,6,1,3)=1.5d0*gmet(1,2)**3*dgmetds(1,1)+7.5d0*gmet(1,1)*gmet(1,2)&
955 : & *gmet(2,2)*dgmetds(1,1)+9*gmet(1,1)*gmet(1,2)**2*dgmetds(1,2)&
956 289 : & -3*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)
957 : cm(3,6,1,3)=gmet(1,2)*(1.5d0*gmet(1,3)**2-4.5d0*gmet(1,1)*gmet(3,3))&
958 : & *dgmetds(1,1)+gmet(1,1)*(12*gmet(1,3)*gmet(2,3)*dgmetds(1,1)&
959 289 : & +9*gmet(1,3)**2*dgmetds(1,2)-3*gmet(1,1)*gmet(3,3)*dgmetds(1,2))
960 : cm(4,6,1,3)=3*gmet(1,2)**2*gmet(1,3)*dgmetds(1,1)+gmet(1,1)*gmet(1,2)&
961 : & *(3*gmet(2,3)*dgmetds(1,1)+18*gmet(1,3)*dgmetds(1,2))+gmet(1,1)&
962 289 : & *(12*gmet(1,3)*gmet(2,2)*dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(1,2))
963 : cm(5,6,1,3)=gmet(1,1)*(3*gmet(1,2)*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
964 289 : & *(gmet(2,3)*dgmetds(1,1)+gmet(1,3)*dgmetds(1,2)))
965 : cm(6,6,1,3)=gmet(1,1)*(3*gmet(1,2)**2*dgmetds(1,1)+6*gmet(1,1)&
966 289 : & *gmet(2,2)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,2)*dgmetds(1,2))
967 : cm(7,6,1,3)=4.5d0*gmet(1,2)**2*gmet(2,2)*dgmetds(1,1)-1.5d0*gmet(1,1)&
968 : & *gmet(2,2)**2*dgmetds(1,1)+5*gmet(1,2)**3*dgmetds(1,2)-3*gmet(1,1)&
969 289 : & *gmet(1,2)*gmet(2,2)*dgmetds(1,2)
970 : cm(8,6,1,3)=(12*(30*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
971 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
972 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+8*(-36*gmet(1,1)*gmet(1,3)&
973 : & *gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
974 289 : & *dgmetds(1,2))/48.d0
975 : cm(9,6,1,3)=gmet(1,1)*gmet(2,2)*(-4.5d0*gmet(2,3)*dgmetds(1,1)&
976 : & -3*gmet(1,3)*dgmetds(1,2))+gmet(1,2)**2*(1.5d0*gmet(2,3)*dgmetds(1,1)&
977 : & +15*gmet(1,3)*dgmetds(1,2))+gmet(1,2)*(12*gmet(1,3)*gmet(2,2)&
978 289 : & *dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(1,2))
979 : cm(10,6,1,3)=7.5d0*gmet(1,3)**2*gmet(2,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
980 : & *gmet(2,3)*gmet(3,3)*dgmetds(1,1)+5*gmet(1,3)**3*dgmetds(1,2)&
981 289 : & -3*gmet(1,3)*gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
982 : cm(1,7,1,3)=2.5d0*gmet(1,2)**3*dgmetds(1,1)+9*gmet(1,1)*gmet(1,2)&
983 : & **2*dgmetds(1,2)-3*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,1)&
984 289 : & *gmet(1,2)*(-1.5d0*gmet(2,2)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2))
985 : cm(2,7,1,3)=6*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)+12*gmet(1,1)&
986 : & *gmet(2,2)**2*dgmetds(1,2)+1.5d0*gmet(1,2)**3*dgmetds(2,2)+gmet(1,2)&
987 289 : & *gmet(2,2)*(3*gmet(2,2)*dgmetds(1,1)+7.5d0*gmet(1,1)*dgmetds(2,2))
988 : cm(3,7,1,3)=-6*gmet(1,2)**2*gmet(3,3)*dgmetds(1,2)+gmet(1,1)*(15*gmet(2,3)&
989 : & **2-3*gmet(2,2)*gmet(3,3))*dgmetds(1,2)+gmet(1,3)*gmet(2,3)*(-3*gmet(2,2)&
990 : & *dgmetds(1,1)+18*gmet(1,2)*dgmetds(1,2)+12*gmet(1,1)*dgmetds(2,2))&
991 : & +gmet(1,3)**2*(-6*gmet(2,2)*dgmetds(1,2)+1.5d0*gmet(1,2)*dgmetds(2,2))&
992 : & +gmet(1,2)*(7.5d0*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)*gmet(3,3)&
993 289 : & *dgmetds(1,1)-4.5d0*gmet(1,1)*gmet(3,3)*dgmetds(2,2))
994 : cm(4,7,1,3)=gmet(2,3)*(6*gmet(1,2)**2*dgmetds(1,2)+24*gmet(1,1)&
995 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,2)*(9*gmet(2,2)*dgmetds(1,1)+3*gmet(1,1)&
996 : & *dgmetds(2,2)))+gmet(1,3)*(-3*gmet(2,2)**2*dgmetds(1,1)+3*gmet(1,2)&
997 : & **2*dgmetds(2,2)+gmet(2,2)*(6*gmet(1,2)*dgmetds(1,2)+12*gmet(1,1)&
998 289 : & *dgmetds(2,2)))
999 : cm(5,7,1,3)=gmet(1,2)**2*(7.5d0*gmet(2,3)*dgmetds(1,1)+3*gmet(1,3)&
1000 : & *dgmetds(1,2))+gmet(1,1)*(gmet(2,2)*(-1.5d0*gmet(2,3)*dgmetds(1,1)&
1001 : & -9*gmet(1,3)*dgmetds(1,2))+6*gmet(1,1)*gmet(2,3)*dgmetds(2,2))&
1002 : & +gmet(1,2)*(24*gmet(1,1)*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*(-3*gmet(2,2)&
1003 289 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))
1004 : cm(6,7,1,3)=3*gmet(1,2)**3*dgmetds(1,2)+15*gmet(1,1)*gmet(1,2)&
1005 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*(4.5d0*gmet(2,2)*dgmetds(1,1)&
1006 : & +3*gmet(1,1)*dgmetds(2,2))+gmet(1,1)*gmet(2,2)*(-1.5d0*gmet(2,2)&
1007 289 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(2,2))
1008 : cm(7,7,1,3)=gmet(2,2)*(1*gmet(2,2)**2*dgmetds(1,1)+4.5d0*gmet(1,2)&
1009 : & **2*dgmetds(2,2)+gmet(2,2)*(6*gmet(1,2)*dgmetds(1,2)-1.5d0*gmet(1,1)&
1010 289 : & *dgmetds(2,2)))
1011 : cm(8,7,1,3)=(2*gmet(2,2)*(54*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3))&
1012 : & *dgmetds(1,1)+12*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)&
1013 : & *(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(30*gmet(1,3)&
1014 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1015 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))&
1016 289 : & /24.d0
1017 : cm(9,7,1,3)=gmet(2,2)**2*(3*gmet(2,3)*dgmetds(1,1)+12*gmet(1,3)&
1018 : & *dgmetds(1,2))+1.5d0*gmet(1,2)**2*gmet(2,3)*dgmetds(2,2)+gmet(2,2)&
1019 : & *(-4.5d0*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(6*gmet(2,3)&
1020 289 : & *dgmetds(1,2)+12*gmet(1,3)*dgmetds(2,2)))
1021 : cm(10,7,1,3)=(2*(90*gmet(2,3)**3-54*gmet(2,2)*gmet(2,3)*gmet(3,3))&
1022 : & *dgmetds(1,1)+12*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
1023 : & *(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(90*gmet(1,3)&
1024 : & **2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)*gmet(3,3)-18*gmet(1,1)*gmet(2,3)&
1025 289 : & *gmet(3,3))*dgmetds(2,2))/72.d0
1026 : cm(1,8,1,3)=(gmet(1,1)*(216*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)&
1027 : & *(-72*gmet(3,3)*dgmetds(1,2)-144*gmet(2,3)*dgmetds(1,3))+gmet(1,3)&
1028 : & *(-72*gmet(2,3)*dgmetds(1,1)+144*gmet(1,1)*dgmetds(2,3)))+gmet(1,2)&
1029 : & *(180*gmet(1,3)**2*dgmetds(1,1)+432*gmet(1,1)*gmet(1,3)*dgmetds(1,3)&
1030 : & +gmet(1,1)*(-36*gmet(3,3)*dgmetds(1,1)+72*gmet(1,1)*dgmetds(3,3))))&
1031 289 : & /24.d0
1032 : cm(2,8,1,3)=-6*gmet(1,3)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*(-6*gmet(3,3)&
1033 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3))+gmet(1,1)*(15*gmet(2,3)&
1034 : & **2*dgmetds(1,2)-3*gmet(2,2)*gmet(3,3)*dgmetds(1,2)+24*gmet(2,2)&
1035 : & *gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(gmet(2,2)*(12*gmet(2,3)*dgmetds(1,1)&
1036 : & +6*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))+gmet(1,2)&
1037 : & *(18*gmet(2,3)*dgmetds(1,2)+3*gmet(1,2)*dgmetds(2,3)))+1.5d0*gmet(1,2)&
1038 : & **3*dgmetds(3,3)+gmet(1,2)*(1.5d0*gmet(2,3)**2*dgmetds(1,1)-4.5d0*gmet(2,2)&
1039 : & *gmet(3,3)*dgmetds(1,1)+24*gmet(1,1)*gmet(2,3)*dgmetds(2,3)+7.5d0*gmet(1,1)&
1040 289 : & *gmet(2,2)*dgmetds(3,3))
1041 : cm(3,8,1,3)=3*gmet(1,3)**3*dgmetds(2,3)+gmet(1,3)**2*(6*gmet(3,3)&
1042 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3)+1.5d0*gmet(1,2)*dgmetds(3,3))&
1043 : & +gmet(3,3)*(gmet(1,1)*(12*gmet(3,3)*dgmetds(1,2)+24*gmet(2,3)&
1044 : & *dgmetds(1,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(1,1)-4.5d0*gmet(1,1)&
1045 : & *dgmetds(3,3)))+gmet(1,3)*(gmet(3,3)*(6*gmet(1,2)*dgmetds(1,3)&
1046 : & +15*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(3*gmet(3,3)*dgmetds(1,1)&
1047 289 : & +12*gmet(1,1)*dgmetds(3,3)))
1048 : cm(4,8,1,3)=18*gmet(1,2)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(24*gmet(2,3)&
1049 : & *gmet(3,3)*dgmetds(1,2)+18*gmet(2,3)**2*dgmetds(1,3)+30*gmet(2,2)&
1050 : & *gmet(3,3)*dgmetds(1,3))+gmet(1,3)**2*(6*gmet(2,3)*dgmetds(1,2)&
1051 : & +18*gmet(2,2)*dgmetds(1,3)+6*gmet(1,2)*dgmetds(2,3))+gmet(1,2)&
1052 : & *(24*gmet(1,1)*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)*(gmet(3,3)&
1053 : & *dgmetds(1,1)+gmet(1,1)*dgmetds(3,3)))+gmet(1,3)*(3*gmet(2,3)&
1054 : & **2*dgmetds(1,1)+gmet(2,3)*(-12*gmet(1,2)*dgmetds(1,3)+6*gmet(1,1)&
1055 : & *dgmetds(2,3))+12*gmet(2,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
1056 : & *dgmetds(3,3))+gmet(1,2)*(6*gmet(3,3)*dgmetds(1,2)+3*gmet(1,2)&
1057 289 : & *dgmetds(3,3)))
1058 : cm(5,8,1,3)=3*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)**2*(1.5d0*gmet(2,3)&
1059 : & *dgmetds(1,1)+6*(gmet(1,2)*dgmetds(1,3)+gmet(1,1)*dgmetds(2,3)))&
1060 : & +gmet(1,3)*(gmet(1,1)*(15*gmet(3,3)*dgmetds(1,2)+6*gmet(2,3)&
1061 : & *dgmetds(1,3))+gmet(1,2)*(12*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)&
1062 : & *dgmetds(3,3)))+gmet(1,1)*(gmet(3,3)*(24*gmet(1,2)*dgmetds(1,3)&
1063 : & +12*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-4.5d0*gmet(3,3)*dgmetds(1,1)&
1064 289 : & +6*gmet(1,1)*dgmetds(3,3)))
1065 : cm(6,8,1,3)=-3*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,3)**2*(7.5d0*gmet(2,2)&
1066 : & *dgmetds(1,1)+3*gmet(1,2)*dgmetds(1,2))+gmet(1,3)*(6*gmet(1,2)&
1067 : & **2*dgmetds(1,3)+24*gmet(1,1)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)&
1068 : & *dgmetds(1,3))+gmet(1,2)*(9*gmet(2,3)*dgmetds(1,1)+6*gmet(1,1)&
1069 : & *dgmetds(2,3)))+gmet(1,1)*(-3*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)&
1070 : & *gmet(3,3)*dgmetds(1,1)-9*gmet(1,2)*gmet(3,3)*dgmetds(1,2)+6*gmet(1,2)&
1071 : & *gmet(2,3)*dgmetds(1,3)+3*gmet(1,2)**2*dgmetds(3,3))+gmet(1,1)&
1072 289 : & **2*(12*gmet(2,3)*dgmetds(2,3)+6*gmet(2,2)*dgmetds(3,3))
1073 : cm(7,8,1,3)=15*gmet(1,2)*gmet(2,3)*(gmet(2,3)*dgmetds(1,2)+gmet(1,2)&
1074 : & *dgmetds(2,3))+gmet(2,2)**2*(-1.5d0*gmet(3,3)*dgmetds(1,1)-6*gmet(1,3)&
1075 : & *dgmetds(1,3)-1.5d0*gmet(1,1)*dgmetds(3,3))+gmet(2,2)*(4.5d0*gmet(2,3)&
1076 : & **2*dgmetds(1,1)+gmet(2,3)*(-6*gmet(1,3)*dgmetds(1,2)+18*gmet(1,2)&
1077 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(-3*gmet(3,3)&
1078 289 : & *dgmetds(1,2)-6*gmet(1,3)*dgmetds(2,3)+4.5d0*gmet(1,2)*dgmetds(3,3)))
1079 : cm(8,8,1,3)=gmet(2,3)**2*(3*gmet(3,3)*dgmetds(1,1)+6*gmet(1,3)&
1080 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))+gmet(1,2)*gmet(3,3)*(12*gmet(3,3)&
1081 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3))&
1082 : & +gmet(2,2)*(6*gmet(3,3)**2*dgmetds(1,1)+24*gmet(1,3)*gmet(3,3)&
1083 : & *dgmetds(1,3)+7.5d0*gmet(1,3)**2*dgmetds(3,3)-1.5d0*gmet(1,1)&
1084 : & *gmet(3,3)*dgmetds(3,3))+gmet(2,3)*(3*gmet(1,3)**2*dgmetds(2,3)&
1085 : & +gmet(3,3)*(6*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))&
1086 289 : & +gmet(1,3)*(6*gmet(3,3)*dgmetds(1,2)+9*gmet(1,2)*dgmetds(3,3)))
1087 : cm(9,8,1,3)=1.5d0*gmet(2,3)**3*dgmetds(1,1)-6*gmet(1,3)**2*gmet(2,2)&
1088 : & *dgmetds(2,3)+gmet(2,3)**2*(3*gmet(1,3)*dgmetds(1,2)+6*gmet(1,2)&
1089 : & *dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3))+gmet(3,3)*(24*gmet(1,2)&
1090 : & *gmet(2,2)*dgmetds(1,3)+15*gmet(1,2)**2*dgmetds(2,3)-3*gmet(1,1)&
1091 : & *gmet(2,2)*dgmetds(2,3))+gmet(1,3)*gmet(2,2)*(-9*gmet(3,3)*dgmetds(1,2)&
1092 : & +12*gmet(1,2)*dgmetds(3,3))+gmet(2,3)*(gmet(2,2)*(7.5d0*gmet(3,3)&
1093 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-4.5d0*gmet(1,1)*dgmetds(3,3))&
1094 : & +gmet(1,2)*(24*gmet(3,3)*dgmetds(1,2)+18*gmet(1,3)*dgmetds(2,3)&
1095 289 : & +1.5d0*gmet(1,2)*dgmetds(3,3)))
1096 : cm(10,8,1,3)=gmet(2,3)*(3*gmet(3,3)**2*dgmetds(1,1)+7.5d0*gmet(1,3)&
1097 : & **2*dgmetds(3,3)+gmet(3,3)*(18*gmet(1,3)*dgmetds(1,3)-1.5d0*gmet(1,1)&
1098 : & *dgmetds(3,3)))+gmet(3,3)*(9*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)&
1099 : & *(-6*gmet(1,2)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(1,3)&
1100 289 : & *(6*gmet(3,3)*dgmetds(1,2)-3*gmet(1,2)*dgmetds(3,3)))
1101 : cm(1,9,1,3)=(gmet(1,2)**2*(180*gmet(1,3)*dgmetds(1,1)+216*gmet(1,1)&
1102 : & *dgmetds(1,3))+gmet(1,1)*(gmet(1,1)*(-144*gmet(2,3)*dgmetds(1,2)&
1103 : & -72*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-36*gmet(2,2)*dgmetds(1,1)&
1104 : & +72*gmet(1,1)*dgmetds(2,2)))+gmet(1,1)*gmet(1,2)*(-72*gmet(2,3)&
1105 : & *dgmetds(1,1)+432*gmet(1,3)*dgmetds(1,2)+144*gmet(1,1)*dgmetds(2,3)))&
1106 289 : & /24.d0
1107 : cm(2,9,1,3)=6*gmet(1,2)**2*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)*dgmetds(1,3))&
1108 : & +gmet(1,1)*gmet(2,2)*(24*gmet(2,3)*dgmetds(1,2)+12*gmet(2,2)&
1109 : & *dgmetds(1,3))+gmet(1,3)*(6*gmet(2,2)**2*dgmetds(1,1)+1.5d0*gmet(1,2)&
1110 : & **2*dgmetds(2,2)+gmet(2,2)*(6*gmet(1,2)*dgmetds(1,2)-4.5d0*gmet(1,1)&
1111 : & *dgmetds(2,2)))+3*gmet(1,2)**3*dgmetds(2,3)+gmet(1,2)*(3*gmet(2,2)&
1112 : & *gmet(2,3)*dgmetds(1,1)+12*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+15*gmet(1,1)&
1113 289 : & *gmet(2,2)*dgmetds(2,3))
1114 : cm(3,9,1,3)=-6*gmet(1,2)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(24*gmet(2,3)&
1115 : & *gmet(3,3)*dgmetds(1,2)+15*gmet(2,3)**2*dgmetds(1,3)-3*gmet(2,2)&
1116 : & *gmet(3,3)*dgmetds(1,3))+1.5d0*gmet(1,3)**3*dgmetds(2,2)+gmet(1,2)&
1117 : & *gmet(3,3)*(12*gmet(2,3)*dgmetds(1,1)-9*gmet(1,1)*dgmetds(2,3))&
1118 : & +gmet(1,3)**2*(6*gmet(2,3)*dgmetds(1,2)-6*gmet(2,2)*dgmetds(1,3)&
1119 : & +3*gmet(1,2)*dgmetds(2,3))+gmet(1,3)*(1.5d0*gmet(2,3)**2*dgmetds(1,1)&
1120 : & +gmet(3,3)*(-4.5d0*gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)&
1121 : & +7.5d0*gmet(1,1)*dgmetds(2,2))+gmet(2,3)*(18*gmet(1,2)*dgmetds(1,3)&
1122 289 : & +24*gmet(1,1)*dgmetds(2,3)))
1123 : cm(4,9,1,3)=gmet(1,2)**2*(18*gmet(3,3)*dgmetds(1,2)+6*gmet(2,3)&
1124 : & *dgmetds(1,3))+gmet(1,1)*(18*gmet(2,3)**2*dgmetds(1,2)+30*gmet(2,2)&
1125 : & *gmet(3,3)*dgmetds(1,2)+24*gmet(2,2)*gmet(2,3)*dgmetds(1,3))&
1126 : & +gmet(1,3)**2*(18*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)*dgmetds(2,2))&
1127 : & +gmet(1,2)*(3*gmet(2,3)**2*dgmetds(1,1)+12*gmet(3,3)*(gmet(2,2)&
1128 : & *dgmetds(1,1)+gmet(1,1)*dgmetds(2,2))+6*gmet(1,1)*gmet(2,3)*dgmetds(2,3))&
1129 : & +gmet(1,3)*(-12*gmet(1,2)*gmet(2,3)*dgmetds(1,2)+3*gmet(1,1)&
1130 : & *gmet(2,3)*dgmetds(2,2)+6*gmet(1,2)**2*dgmetds(2,3)+gmet(2,2)&
1131 : & *(3*gmet(2,3)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,3)+24*gmet(1,1)&
1132 289 : & *dgmetds(2,3)))
1133 : cm(5,9,1,3)=7.5d0*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
1134 : & *(-3*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)&
1135 : & +24*gmet(1,2)*gmet(3,3)*dgmetds(1,2)+24*gmet(1,2)*gmet(2,3)*dgmetds(1,3))&
1136 : & +gmet(1,3)**2*(-3*gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)&
1137 : & +3*gmet(1,1)*dgmetds(2,2))+gmet(1,1)**2*(6*gmet(3,3)*dgmetds(2,2)&
1138 : & +12*gmet(2,3)*dgmetds(2,3))+gmet(1,3)*(3*gmet(1,2)**2*dgmetds(1,3)&
1139 : & +gmet(1,1)*(6*gmet(2,3)*dgmetds(1,2)-9*gmet(2,2)*dgmetds(1,3))&
1140 289 : & +gmet(1,2)*(9*gmet(2,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(2,3)))
1141 : cm(6,9,1,3)=3*gmet(1,2)**3*dgmetds(1,3)+gmet(1,2)*(gmet(1,1)*(6*gmet(2,3)&
1142 : & *dgmetds(1,2)+15*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(12*gmet(2,2)&
1143 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))+gmet(1,2)**2*(1.5d0*gmet(2,3)&
1144 : & *dgmetds(1,1)+6*(gmet(1,3)*dgmetds(1,2)+gmet(1,1)*dgmetds(2,3)))&
1145 : & +gmet(1,1)*(6*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(-4.5d0*gmet(2,3)&
1146 289 : & *dgmetds(1,1)+24*gmet(1,3)*dgmetds(1,2)+12*gmet(1,1)*dgmetds(2,3)))
1147 : cm(7,9,1,3)=7.5d0*gmet(1,2)**2*gmet(2,3)*dgmetds(2,2)+gmet(2,2)&
1148 : & **2*(3*gmet(2,3)*dgmetds(1,1)-6*gmet(1,3)*dgmetds(1,2)+6*gmet(1,2)&
1149 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(2,2)*(-1.5d0*gmet(1,1)&
1150 : & *gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(18*gmet(2,3)*dgmetds(1,2)&
1151 289 : & -3*gmet(1,3)*dgmetds(2,2))+9*gmet(1,2)**2*dgmetds(2,3))
1152 : cm(8,9,1,3)=1.5d0*gmet(2,3)**3*dgmetds(1,1)+gmet(1,3)*gmet(3,3)&
1153 : & *(24*gmet(2,2)*dgmetds(1,2)+12*gmet(1,2)*dgmetds(2,2))+15*gmet(1,3)&
1154 : & **2*gmet(2,2)*dgmetds(2,3)+gmet(2,3)**2*(6*gmet(1,3)*dgmetds(1,2)&
1155 : & +3*gmet(1,2)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3))+gmet(3,3)&
1156 : & *(-9*gmet(1,2)*gmet(2,2)*dgmetds(1,3)-6*gmet(1,2)**2*dgmetds(2,3)&
1157 : & -3*gmet(1,1)*gmet(2,2)*dgmetds(2,3))+gmet(2,3)*(gmet(2,2)*(7.5d0*gmet(3,3)&
1158 : & *dgmetds(1,1)+24*gmet(1,3)*dgmetds(1,3))+(1.5d0*gmet(1,3)**2-4.5d0*gmet(1,1)&
1159 : & *gmet(3,3))*dgmetds(2,2)+gmet(1,2)*(6*gmet(3,3)*dgmetds(1,2)&
1160 289 : & +18*gmet(1,3)*dgmetds(2,3)))
1161 : cm(9,9,1,3)=gmet(2,2)**2*(6*gmet(3,3)*dgmetds(1,1)+12*gmet(1,3)&
1162 : & *dgmetds(1,3))-3*gmet(1,1)*gmet(2,3)**2*dgmetds(2,2)+gmet(1,2)&
1163 : & *gmet(2,3)*(6*gmet(2,3)*dgmetds(1,2)+9*gmet(1,3)*dgmetds(2,2))&
1164 : & +gmet(1,2)**2*(7.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)*dgmetds(2,3))&
1165 : & +gmet(2,2)*(3*gmet(2,3)**2*dgmetds(1,1)+(-3*gmet(1,3)**2-1.5d0*gmet(1,1)&
1166 : & *gmet(3,3))*dgmetds(2,2)+gmet(2,3)*(6*gmet(1,3)*dgmetds(1,2)&
1167 : & +6*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))+24*gmet(1,2)&
1168 289 : & *(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3)))
1169 : cm(10,9,1,3)=gmet(2,3)**2*(4.5d0*gmet(3,3)*dgmetds(1,1)+15*gmet(1,3)&
1170 : & *dgmetds(1,3))+gmet(2,3)*(18*gmet(1,3)*gmet(3,3)*dgmetds(1,2)&
1171 : & +15*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(-6*gmet(1,2)*dgmetds(1,3)&
1172 : & -3*gmet(1,1)*dgmetds(2,3)))+gmet(3,3)*(gmet(2,2)*(-1.5d0*gmet(3,3)&
1173 : & *dgmetds(1,1)-3*gmet(1,3)*dgmetds(1,3))+(4.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)&
1174 : & *gmet(3,3))*dgmetds(2,2)-6*gmet(1,2)*(gmet(3,3)*dgmetds(1,2)&
1175 289 : & +gmet(1,3)*dgmetds(2,3)))
1176 : cm(1,10,1,3)=2.5d0*gmet(1,3)**3*dgmetds(1,1)+9*gmet(1,1)*gmet(1,3)&
1177 : & **2*dgmetds(1,3)-3*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)&
1178 289 : & *gmet(1,3)*(-1.5d0*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3))
1179 : cm(2,10,1,3)=-6*gmet(1,3)**2*gmet(2,2)*dgmetds(1,3)-6*gmet(1,2)&
1180 : & **2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(15*gmet(2,3)**2-3*gmet(2,2)&
1181 : & *gmet(3,3))*dgmetds(1,3)+gmet(1,2)*gmet(2,3)*(-3*gmet(3,3)*dgmetds(1,1)&
1182 : & +12*gmet(1,1)*dgmetds(3,3))+gmet(1,3)*(7.5d0*gmet(2,3)**2*dgmetds(1,1)&
1183 : & -1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)+18*gmet(1,2)*gmet(2,3)&
1184 : & *dgmetds(1,3)+1.5d0*gmet(1,2)**2*dgmetds(3,3)-4.5d0*gmet(1,1)&
1185 289 : & *gmet(2,2)*dgmetds(3,3))
1186 : cm(3,10,1,3)=6*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)+12*gmet(1,1)&
1187 : & *gmet(3,3)**2*dgmetds(1,3)+1.5d0*gmet(1,3)**3*dgmetds(3,3)+gmet(1,3)&
1188 289 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(1,1)+7.5d0*gmet(1,1)*dgmetds(3,3))
1189 : cm(4,10,1,3)=gmet(1,3)**2*(6*gmet(2,3)*dgmetds(1,3)+3*gmet(1,2)&
1190 : & *dgmetds(3,3))+gmet(1,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
1191 : & +gmet(2,3)*(9*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3)))&
1192 : & +gmet(3,3)*(24*gmet(1,1)*gmet(2,3)*dgmetds(1,3)+gmet(1,2)*(-3*gmet(3,3)&
1193 289 : & *dgmetds(1,1)+12*gmet(1,1)*dgmetds(3,3)))
1194 : cm(5,10,1,3)=3*gmet(1,3)**3*dgmetds(1,3)+15*gmet(1,1)*gmet(1,3)&
1195 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,3)**2*(4.5d0*gmet(3,3)*dgmetds(1,1)&
1196 : & +3*gmet(1,1)*dgmetds(3,3))+gmet(1,1)*gmet(3,3)*(-1.5d0*gmet(3,3)&
1197 289 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(3,3))
1198 : cm(6,10,1,3)=gmet(1,3)**2*(7.5d0*gmet(2,3)*dgmetds(1,1)+3*gmet(1,2)&
1199 : & *dgmetds(1,3))+gmet(1,3)*(24*gmet(1,1)*gmet(2,3)*dgmetds(1,3)&
1200 : & +gmet(1,2)*(-3*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3)))&
1201 : & +gmet(1,1)*(-9*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+gmet(2,3)*(-1.5d0*gmet(3,3)&
1202 289 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(3,3)))
1203 : cm(7,10,1,3)=(180*gmet(2,3)**3*dgmetds(1,1)+1080*gmet(1,2)*gmet(2,3)&
1204 : & **2*dgmetds(1,3)-216*gmet(1,2)*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)&
1205 : & +gmet(1,3)*dgmetds(3,3))+gmet(2,3)*(540*gmet(1,2)**2*dgmetds(3,3)&
1206 : & +gmet(2,2)*(-108*gmet(3,3)*dgmetds(1,1)-432*gmet(1,3)*dgmetds(1,3)&
1207 289 : & -108*gmet(1,1)*dgmetds(3,3))))/72.d0
1208 : cm(8,10,1,3)=12*gmet(1,2)*gmet(3,3)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)&
1209 : & *dgmetds(3,3))+gmet(2,3)*(3*gmet(3,3)**2*dgmetds(1,1)+1.5d0*gmet(1,3)&
1210 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(1,3)*dgmetds(1,3)-4.5d0*gmet(1,1)&
1211 289 : & *dgmetds(3,3)))
1212 : cm(9,10,1,3)=(2*gmet(3,3)*(54*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3))&
1213 : & *dgmetds(1,1)+12*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
1214 : & *(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+6*(-12*gmet(1,3)&
1215 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)&
1216 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
1217 289 : & /24.d0
1218 : cm(10,10,1,3)=gmet(3,3)*(1*gmet(3,3)**2*dgmetds(1,1)+4.5d0*gmet(1,3)&
1219 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(1,3)*dgmetds(1,3)-1.5d0*gmet(1,1)&
1220 289 : & *dgmetds(3,3)))
1221 : cm(1,11,1,3)=5*gmet(1,2)**3*dgmetds(1,2)-3*gmet(1,1)*gmet(1,2)&
1222 : & *gmet(2,2)*dgmetds(1,2)+4.5d0*gmet(1,1)*gmet(1,2)**2*dgmetds(2,2)&
1223 289 : & -1.5d0*gmet(1,1)**2*gmet(2,2)*dgmetds(2,2)
1224 : cm(2,11,1,3)=gmet(2,2)*(6*gmet(1,2)*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
1225 289 : & **2*dgmetds(2,2)+6*gmet(1,1)*gmet(2,2)*dgmetds(2,2))
1226 : cm(3,11,1,3)=(8*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
1227 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+12*(-12*gmet(1,3)**2*gmet(2,2)&
1228 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
1229 289 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))/48.d0
1230 : cm(4,11,1,3)=gmet(1,3)*gmet(2,2)*(-6*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
1231 : & *dgmetds(2,2))+gmet(2,3)*(18*gmet(1,2)*gmet(2,2)*dgmetds(1,2)&
1232 289 : & +3*gmet(1,2)**2*dgmetds(2,2)+12*gmet(1,1)*gmet(2,2)*dgmetds(2,2))
1233 : cm(5,11,1,3)=(8*(-36*gmet(1,2)*gmet(1,3)*gmet(2,2)+90*gmet(1,2)&
1234 : & **2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(1,2)&
1235 : & +12*(6*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)*gmet(2,2)&
1236 289 : & +48*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(2,2))/48.d0
1237 : cm(6,11,1,3)=9*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)-3*gmet(1,1)&
1238 : & *gmet(2,2)**2*dgmetds(1,2)+1.5d0*gmet(1,2)**3*dgmetds(2,2)+7.5d0*gmet(1,1)&
1239 289 : & *gmet(1,2)*gmet(2,2)*dgmetds(2,2)
1240 : cm(7,11,1,3)=gmet(2,2)**2*(2*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
1241 289 : & *dgmetds(2,2))
1242 : cm(8,11,1,3)=-3*gmet(2,2)**2*gmet(3,3)*dgmetds(1,2)+1.5d0*gmet(1,2)&
1243 : & *gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)*(9*gmet(2,3)**2*dgmetds(1,2)&
1244 : & +12*gmet(1,3)*gmet(2,3)*dgmetds(2,2)-4.5d0*gmet(1,2)*gmet(3,3)&
1245 289 : & *dgmetds(2,2))
1246 : cm(9,11,1,3)=gmet(2,2)*(3*gmet(1,2)*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)&
1247 289 : & *(gmet(2,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,2)))
1248 : cm(10,11,1,3)=5*gmet(2,3)**3*dgmetds(1,2)+7.5d0*gmet(1,3)*gmet(2,3)&
1249 : & **2*dgmetds(2,2)-1.5d0*gmet(1,3)*gmet(2,2)*gmet(3,3)*dgmetds(2,2)&
1250 289 : & -3*gmet(2,3)*gmet(3,3)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
1251 : cm(1,12,1,3)=(2*(-36*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)&
1252 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(1,2)+2*(90*gmet(1,2)**2*gmet(1,3)&
1253 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))&
1254 : & *dgmetds(1,3)+gmet(1,1)*(54*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3))&
1255 : & *dgmetds(2,2)+4*gmet(1,1)*(54*gmet(1,2)*gmet(1,3)-18*gmet(1,1)&
1256 : & *gmet(2,3))*dgmetds(2,3)+gmet(1,1)*(54*gmet(1,2)**2-18*gmet(1,1)&
1257 289 : & *gmet(2,2))*dgmetds(3,3))/12.d0
1258 : cm(2,12,1,3)=(2*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
1259 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*gmet(2,2)*(24*gmet(1,3)&
1260 : & *gmet(2,2)+12*gmet(1,2)*gmet(2,3))*dgmetds(1,3)+(-12*gmet(1,3)&
1261 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1262 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)&
1263 : & +4*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)&
1264 : & +24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(2,3)+gmet(2,2)*(12*gmet(1,2)&
1265 289 : & **2+24*gmet(1,1)*gmet(2,2))*dgmetds(3,3))/4.d0
1266 : cm(3,12,1,3)=(2*gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
1267 : & *gmet(3,3))*dgmetds(1,2)+2*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)&
1268 : & +gmet(1,3)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)&
1269 : & +gmet(3,3)*(12*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3))*dgmetds(2,2)&
1270 : & +4*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)*gmet(3,3)&
1271 : & +24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3)+(-12*gmet(1,3)&
1272 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1273 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
1274 289 : & /4.d0
1275 : cm(4,12,1,3)=(2*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
1276 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(6*gmet(1,3)*gmet(2,2)&
1277 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))&
1278 : & *dgmetds(1,3)+(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
1279 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+4*(9*gmet(1,3)&
1280 : & **2*gmet(2,2)-6*gmet(1,2)*gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)&
1281 : & +gmet(1,1)*(9*gmet(2,3)**2+15*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)&
1282 : & +(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)&
1283 289 : & *gmet(2,2)*gmet(2,3))*dgmetds(3,3))/2.d0
1284 : cm(5,12,1,3)=(2*(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)&
1285 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,2)+2*(-12*gmet(1,3)&
1286 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)&
1287 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)&
1288 : & +(6*gmet(1,3)**3+30*gmet(1,1)*gmet(1,3)*gmet(3,3))*dgmetds(2,2)&
1289 : & +4*(6*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2+24*gmet(1,1)&
1290 : & *gmet(3,3)))*dgmetds(2,3)+(6*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)&
1291 : & *gmet(1,3)*gmet(2,2)+48*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(3,3))&
1292 289 : & /4.d0
1293 : cm(6,12,1,3)=(2*(30*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
1294 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
1295 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(48*gmet(1,2)*gmet(1,3)&
1296 : & *gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
1297 : & *dgmetds(1,3)+(48*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)&
1298 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(2,2)+4*(6*gmet(1,2)**2*gmet(1,3)&
1299 : & +24*gmet(1,1)*gmet(1,3)*gmet(2,2)+6*gmet(1,1)*gmet(1,2)*gmet(2,3))&
1300 : & *dgmetds(2,3)+(6*gmet(1,2)**3+30*gmet(1,1)*gmet(1,2)*gmet(2,2))&
1301 289 : & *dgmetds(3,3))/4.d0
1302 : cm(7,12,1,3)=(180*gmet(1,2)*gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)&
1303 : & *(216*gmet(2,3)**2*dgmetds(1,2)-36*gmet(1,2)*gmet(3,3)*dgmetds(2,2)&
1304 : & +gmet(2,3)*(-72*gmet(1,3)*dgmetds(2,2)+432*gmet(1,2)*dgmetds(2,3)))&
1305 : & +gmet(2,2)**2*(-72*gmet(3,3)*dgmetds(1,2)+144*gmet(2,3)*dgmetds(1,3)&
1306 289 : & -144*gmet(1,3)*dgmetds(2,3)+72*gmet(1,2)*dgmetds(3,3)))/24.d0
1307 : cm(8,12,1,3)=3*gmet(2,3)**3*dgmetds(1,3)+gmet(2,3)**2*(6*gmet(3,3)&
1308 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+1.5d0*gmet(1,2)*dgmetds(3,3))&
1309 : & +gmet(3,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(2,2)+gmet(2,2)*(12*gmet(3,3)&
1310 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,3)-4.5d0*gmet(1,2)*dgmetds(3,3)))&
1311 : & +gmet(2,3)*(gmet(3,3)*(3*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))&
1312 289 : & +gmet(2,2)*(15*gmet(3,3)*dgmetds(1,3)+12*gmet(1,3)*dgmetds(3,3)))
1313 : cm(9,12,1,3)=3*gmet(2,3)**3*dgmetds(1,2)+gmet(2,3)**2*(6*gmet(2,2)&
1314 : & *dgmetds(1,3)+1.5d0*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))&
1315 : & +gmet(2,3)*(12*gmet(1,2)*gmet(3,3)*dgmetds(2,2)+gmet(2,2)*(15*gmet(3,3)&
1316 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+3*gmet(1,2)*dgmetds(3,3)))&
1317 : & +gmet(2,2)*(gmet(3,3)*(-4.5d0*gmet(1,3)*dgmetds(2,2)+24*gmet(1,2)&
1318 : & *dgmetds(2,3))+gmet(2,2)*(12*gmet(3,3)*dgmetds(1,3)+6*gmet(1,3)&
1319 289 : & *dgmetds(3,3)))
1320 : cm(10,12,1,3)=gmet(2,3)*gmet(3,3)*(6*gmet(3,3)*dgmetds(1,2)+18*gmet(1,3)&
1321 : & *dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3))+gmet(2,3)**2*(9*gmet(3,3)&
1322 : & *dgmetds(1,3)+7.5d0*gmet(1,3)*dgmetds(3,3))+gmet(3,3)*(gmet(3,3)&
1323 : & *(3*gmet(1,3)*dgmetds(2,2)-6*gmet(1,2)*dgmetds(2,3))+gmet(2,2)&
1324 289 : & *(-3*gmet(3,3)*dgmetds(1,3)-1.5d0*gmet(1,3)*dgmetds(3,3)))
1325 : cm(1,13,1,3)=(180*gmet(1,2)**3*dgmetds(1,3)+gmet(1,1)*gmet(1,2)&
1326 : & *(-216*gmet(2,3)*dgmetds(1,2)-108*gmet(2,2)*dgmetds(1,3)+324*gmet(1,3)&
1327 : & *dgmetds(2,2))+gmet(1,2)**2*(540*gmet(1,3)*dgmetds(1,2)+324*gmet(1,1)&
1328 : & *dgmetds(2,3))-108*gmet(1,1)*(gmet(1,3)*gmet(2,2)*dgmetds(1,2)&
1329 : & +gmet(1,1)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))))&
1330 289 : & /36.d0
1331 : cm(2,13,1,3)=(72*gmet(1,2)*gmet(2,2)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)&
1332 : & *dgmetds(1,3))+gmet(1,3)*gmet(2,2)*(144*gmet(2,2)*dgmetds(1,2)&
1333 : & +36*gmet(1,2)*dgmetds(2,2))+144*gmet(1,1)*gmet(2,2)*(gmet(2,3)&
1334 : & *dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))+gmet(1,2)**2*(36*gmet(2,3)&
1335 289 : & *dgmetds(2,2)+72*gmet(2,2)*dgmetds(2,3)))/12.d0
1336 : cm(3,13,1,3)=(6*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
1337 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(-36*gmet(1,3)*gmet(2,2)&
1338 : & *gmet(2,3)+gmet(1,2)*(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
1339 : & *dgmetds(1,3)+6*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
1340 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+6*(-12*gmet(1,3)&
1341 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1342 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3))&
1343 289 : & /12.d0
1344 : cm(4,13,1,3)=gmet(1,2)*(6*gmet(2,3)**2*dgmetds(1,2)+24*gmet(2,2)&
1345 : & *gmet(3,3)*dgmetds(1,2)+18*gmet(2,2)*gmet(2,3)*dgmetds(1,3))&
1346 : & +9*gmet(1,3)**2*gmet(2,2)*dgmetds(2,2)+gmet(1,2)**2*(9*gmet(3,3)&
1347 : & *dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3))+gmet(1,1)*(9*gmet(2,3)&
1348 : & **2*dgmetds(2,2)+15*gmet(2,2)*gmet(3,3)*dgmetds(2,2)+24*gmet(2,2)&
1349 : & *gmet(2,3)*dgmetds(2,3))+gmet(1,3)*(-6*gmet(2,2)**2*dgmetds(1,3)&
1350 : & -6*gmet(1,2)*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*(gmet(2,3)*dgmetds(1,2)&
1351 289 : & +gmet(1,2)*dgmetds(2,3)))
1352 : cm(5,13,1,3)=(6*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
1353 : & *gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
1354 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(-36*gmet(1,2)*gmet(1,3)&
1355 : & *gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
1356 : & *dgmetds(1,3)+6*(6*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)&
1357 : & **2+24*gmet(1,1)*gmet(3,3)))*dgmetds(2,2)+6*(6*gmet(1,2)**2*gmet(1,3)&
1358 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)+48*gmet(1,1)*gmet(1,2)*gmet(2,3))&
1359 289 : & *dgmetds(2,3))/12.d0
1360 : cm(6,13,1,3)=gmet(1,2)**2*(3*gmet(2,3)*dgmetds(1,2)+9*gmet(2,2)&
1361 : & *dgmetds(1,3)+3*gmet(1,3)*dgmetds(2,2))+gmet(1,1)*gmet(2,2)*(-9*gmet(2,3)&
1362 : & *dgmetds(1,2)-3*gmet(2,2)*dgmetds(1,3)+12*gmet(1,3)*dgmetds(2,2))&
1363 : & +3*gmet(1,2)**3*dgmetds(2,3)+gmet(1,2)*(24*gmet(1,3)*gmet(2,2)&
1364 : & *dgmetds(1,2)+gmet(1,1)*(3*gmet(2,3)*dgmetds(2,2)+15*gmet(2,2)&
1365 289 : & *dgmetds(2,3)))
1366 : cm(7,13,1,3)=gmet(2,2)*(2*gmet(2,2)**2*dgmetds(1,3)+9*gmet(1,2)&
1367 : & *gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(6*gmet(2,3)*dgmetds(1,2)-3*gmet(1,3)&
1368 289 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3)))
1369 : cm(8,13,1,3)=3*gmet(2,3)**3*dgmetds(1,2)+gmet(2,2)*gmet(3,3)*(-3*gmet(2,2)&
1370 : & *dgmetds(1,3)+12*gmet(1,3)*dgmetds(2,2)-9*gmet(1,2)*dgmetds(2,3))&
1371 : & +gmet(2,3)**2*(9*gmet(2,2)*dgmetds(1,3)+3*(gmet(1,3)*dgmetds(2,2)&
1372 : & +gmet(1,2)*dgmetds(2,3)))+gmet(2,3)*(3*gmet(1,2)*gmet(3,3)*dgmetds(2,2)&
1373 289 : & +gmet(2,2)*(15*gmet(3,3)*dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,3)))
1374 : cm(9,13,1,3)=3*gmet(1,2)*gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)**2*(12*gmet(3,3)&
1375 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3)+12*gmet(1,3)*dgmetds(2,3))&
1376 : & +gmet(2,2)*(6*gmet(2,3)**2*dgmetds(1,2)+12*gmet(1,2)*gmet(3,3)&
1377 : & *dgmetds(2,2)+gmet(2,3)*(3*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)&
1378 289 : & *dgmetds(2,3)))
1379 : cm(10,13,1,3)=5*gmet(2,3)**3*dgmetds(1,3)+gmet(2,3)*gmet(3,3)&
1380 : & *(-3*gmet(2,2)*dgmetds(1,3)+9*gmet(1,3)*dgmetds(2,2)-6*gmet(1,2)&
1381 : & *dgmetds(2,3))+gmet(2,3)**2*(9*gmet(3,3)*dgmetds(1,2)+15*gmet(1,3)&
1382 : & *dgmetds(2,3))-3*gmet(3,3)*(gmet(1,2)*gmet(3,3)*dgmetds(2,2)&
1383 289 : & +gmet(2,2)*(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3)))
1384 : cm(1,14,1,3)=(180*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)**2*(540*gmet(1,2)&
1385 : & *dgmetds(1,3)+324*gmet(1,1)*dgmetds(2,3))+gmet(1,1)*gmet(1,3)&
1386 : & *(-108*gmet(3,3)*dgmetds(1,2)-216*gmet(2,3)*dgmetds(1,3)+324*gmet(1,2)&
1387 : & *dgmetds(3,3))-108*gmet(1,1)*(gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
1388 : & +gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))))&
1389 289 : & /36.d0
1390 : cm(2,14,1,3)=(2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
1391 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(48*gmet(1,3)*gmet(2,2)&
1392 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
1393 : & *dgmetds(1,3)+6*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
1394 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(30*gmet(2,3)&
1395 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)+6*(6*gmet(1,2)*gmet(1,3)&
1396 : & *gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)*gmet(2,3))&
1397 289 : & *dgmetds(3,3))/12.d0
1398 : cm(3,14,1,3)=(gmet(1,3)*gmet(3,3)*(72*gmet(3,3)*dgmetds(1,2)+72*gmet(2,3)&
1399 : & *dgmetds(1,3)+36*gmet(1,2)*dgmetds(3,3))+gmet(1,3)**2*(72*gmet(3,3)&
1400 : & *dgmetds(2,3)+36*gmet(2,3)*dgmetds(3,3))+144*gmet(3,3)*(gmet(1,2)&
1401 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)&
1402 289 : & *dgmetds(3,3))))/12.d0
1403 : cm(4,14,1,3)=(2*gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)&
1404 : & *gmet(3,3))*dgmetds(1,2)+6*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
1405 : & *(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+6*(6*gmet(1,3)&
1406 : & **2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)*gmet(3,3)+24*gmet(1,1)*gmet(2,3)&
1407 : & *gmet(3,3))*dgmetds(2,3)+6*(9*gmet(1,3)**2*gmet(2,2)-6*gmet(1,2)&
1408 : & *gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(9*gmet(2,3)&
1409 289 : & **2+15*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/6.d0
1410 : cm(5,14,1,3)=(36*gmet(1,3)**3*dgmetds(2,3)+gmet(1,1)*gmet(3,3)&
1411 : & *(-36*gmet(3,3)*dgmetds(1,2)-108*gmet(2,3)*dgmetds(1,3)+144*gmet(1,2)&
1412 : & *dgmetds(3,3))+gmet(1,3)**2*(108*gmet(3,3)*dgmetds(1,2)+36*(gmet(2,3)&
1413 : & *dgmetds(1,3)+gmet(1,2)*dgmetds(3,3)))+gmet(1,3)*(288*gmet(1,2)&
1414 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(180*gmet(3,3)*dgmetds(2,3)&
1415 289 : & +36*gmet(2,3)*dgmetds(3,3))))/12.d0
1416 : cm(6,14,1,3)=(2*(90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
1417 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,2)+6*(30*gmet(1,3)&
1418 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1419 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)&
1420 : & +6*(48*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)&
1421 : & *gmet(3,3)))*dgmetds(2,3)+6*(6*gmet(1,2)**2*gmet(1,3)+24*gmet(1,1)&
1422 : & *gmet(1,3)*gmet(2,2)+6*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(3,3))&
1423 289 : & /12.d0
1424 : cm(7,14,1,3)=(180*gmet(2,3)**3*dgmetds(1,2)+gmet(2,3)**2*(324*gmet(2,2)&
1425 : & *dgmetds(1,3)+540*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*gmet(2,3)&
1426 : & *(-108*gmet(3,3)*dgmetds(1,2)-216*gmet(1,3)*dgmetds(2,3)+324*gmet(1,2)&
1427 : & *dgmetds(3,3))-108*gmet(2,2)*(gmet(1,2)*gmet(3,3)*dgmetds(2,3)&
1428 : & +gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))))&
1429 289 : & /36.d0
1430 : cm(8,14,1,3)=(gmet(2,3)*gmet(3,3)*(72*gmet(3,3)*dgmetds(1,2)+72*gmet(1,3)&
1431 : & *dgmetds(2,3)+36*gmet(1,2)*dgmetds(3,3))+gmet(2,3)**2*(72*gmet(3,3)&
1432 : & *dgmetds(1,3)+36*gmet(1,3)*dgmetds(3,3))+144*gmet(3,3)*(gmet(1,2)&
1433 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)&
1434 289 : & *dgmetds(3,3))))/12.d0
1435 : cm(9,14,1,3)=(36*gmet(2,3)**3*dgmetds(1,3)+gmet(2,2)*gmet(3,3)&
1436 : & *(-36*gmet(3,3)*dgmetds(1,2)-108*gmet(1,3)*dgmetds(2,3)+144*gmet(1,2)&
1437 : & *dgmetds(3,3))+gmet(2,3)**2*(108*gmet(3,3)*dgmetds(1,2)+36*(gmet(1,3)&
1438 : & *dgmetds(2,3)+gmet(1,2)*dgmetds(3,3)))+gmet(2,3)*(288*gmet(1,2)&
1439 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,2)*(180*gmet(3,3)*dgmetds(1,3)&
1440 289 : & +36*gmet(1,3)*dgmetds(3,3))))/12.d0
1441 : cm(10,14,1,3)=gmet(3,3)*(2*gmet(3,3)**2*dgmetds(1,2)+9*gmet(1,3)&
1442 : & *gmet(2,3)*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(1,3)+6*gmet(1,3)&
1443 289 : & *dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3)))
1444 : cm(1,15,1,3)=5*gmet(1,3)**3*dgmetds(1,3)-3*gmet(1,1)*gmet(1,3)&
1445 : & *gmet(3,3)*dgmetds(1,3)+4.5d0*gmet(1,1)*gmet(1,3)**2*dgmetds(3,3)&
1446 289 : & -1.5d0*gmet(1,1)**2*gmet(3,3)*dgmetds(3,3)
1447 : cm(2,15,1,3)=(8*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
1448 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+12*(-12*gmet(1,3)**2*gmet(2,2)&
1449 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
1450 289 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/48.d0
1451 : cm(3,15,1,3)=gmet(3,3)*(6*gmet(1,3)*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)&
1452 289 : & **2*dgmetds(3,3)+6*gmet(1,1)*gmet(3,3)*dgmetds(3,3))
1453 : cm(4,15,1,3)=3*gmet(1,3)**2*gmet(2,3)*dgmetds(3,3)+gmet(1,3)*gmet(3,3)&
1454 : & *(18*gmet(2,3)*dgmetds(1,3)+3*gmet(1,2)*dgmetds(3,3))+gmet(3,3)&
1455 : & *(-6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+12*gmet(1,1)*gmet(2,3)&
1456 289 : & *dgmetds(3,3))
1457 : cm(5,15,1,3)=9*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)-3*gmet(1,1)&
1458 : & *gmet(3,3)**2*dgmetds(1,3)+1.5d0*gmet(1,3)**3*dgmetds(3,3)+7.5d0*gmet(1,1)&
1459 289 : & *gmet(1,3)*gmet(3,3)*dgmetds(3,3)
1460 : cm(6,15,1,3)=(8*(90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
1461 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,3)+12*(48*gmet(1,1)&
1462 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
1463 289 : & *dgmetds(3,3))/48.d0
1464 : cm(7,15,1,3)=5*gmet(2,3)**3*dgmetds(1,3)+7.5d0*gmet(1,2)*gmet(2,3)&
1465 : & **2*dgmetds(3,3)-1.5d0*gmet(1,2)*gmet(2,2)*gmet(3,3)*dgmetds(3,3)&
1466 289 : & -3*gmet(2,2)*gmet(2,3)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1467 : cm(8,15,1,3)=gmet(3,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(2,3)&
1468 289 : & *(6*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)*dgmetds(3,3)))
1469 : cm(9,15,1,3)=12*gmet(1,2)*gmet(2,3)*gmet(3,3)*dgmetds(3,3)+gmet(2,2)&
1470 : & *gmet(3,3)*(-3*gmet(3,3)*dgmetds(1,3)-4.5d0*gmet(1,3)*dgmetds(3,3))&
1471 289 : & +gmet(2,3)**2*(9*gmet(3,3)*dgmetds(1,3)+1.5d0*gmet(1,3)*dgmetds(3,3))
1472 : cm(10,15,1,3)=gmet(3,3)**2*(2*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)&
1473 289 : & *dgmetds(3,3))
1474 : cm(1,16,1,3)=gmet(1,2)*(2.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
1475 289 : & *dgmetds(2,2)
1476 289 : cm(2,16,1,3)=3*gmet(1,2)*gmet(2,2)**2*dgmetds(2,2)
1477 : cm(3,16,1,3)=((-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
1478 289 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))/12.d0
1479 : cm(4,16,1,3)=(gmet(2,2)*(-18*gmet(1,3)*gmet(2,2)+54*gmet(1,2)&
1480 289 : & *gmet(2,3))*dgmetds(2,2))/6.d0
1481 : cm(5,16,1,3)=((-36*gmet(1,2)*gmet(1,3)*gmet(2,2)+90*gmet(1,2)&
1482 : & **2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(2,2))&
1483 289 : & /12.d0
1484 : cm(6,16,1,3)=gmet(2,2)*(4.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
1485 289 : & *dgmetds(2,2)
1486 289 : cm(7,16,1,3)=gmet(2,2)**3*dgmetds(2,2)
1487 : cm(8,16,1,3)=gmet(2,2)*(4.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
1488 289 : & *dgmetds(2,2)
1489 289 : cm(9,16,1,3)=3*gmet(2,2)**2*gmet(2,3)*dgmetds(2,2)
1490 : cm(10,16,1,3)=gmet(2,3)*(2.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
1491 289 : & *dgmetds(2,2)
1492 : cm(1,17,1,3)=(1080*gmet(1,2)**2*gmet(1,3)*dgmetds(2,3)-216*gmet(1,1)&
1493 : & *gmet(1,3)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))+180*gmet(1,2)&
1494 : & **3*dgmetds(3,3)+gmet(1,2)*(540*gmet(1,3)**2*dgmetds(2,2)+gmet(1,1)&
1495 : & *(-108*gmet(3,3)*dgmetds(2,2)-432*gmet(2,3)*dgmetds(2,3)-108*gmet(2,2)&
1496 289 : & *dgmetds(3,3))))/72.d0
1497 : cm(2,17,1,3)=(288*gmet(1,3)*gmet(2,2)*(gmet(2,3)*dgmetds(2,2)&
1498 : & +gmet(2,2)*dgmetds(2,3))+gmet(1,2)*(36*gmet(2,3)**2*dgmetds(2,2)&
1499 : & +144*gmet(2,2)*gmet(2,3)*dgmetds(2,3)+gmet(2,2)*(-108*gmet(3,3)&
1500 289 : & *dgmetds(2,2)+72*gmet(2,2)*dgmetds(3,3))))/24.d0
1501 : cm(3,17,1,3)=gmet(1,3)*(3*gmet(2,3)**2*dgmetds(2,3)-9*gmet(2,2)&
1502 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,3)*(3*gmet(3,3)*dgmetds(2,2)-3*gmet(2,2)&
1503 : & *dgmetds(3,3)))+gmet(1,2)*(6*gmet(3,3)**2*dgmetds(2,2)+7.5d0*gmet(2,3)&
1504 : & **2*dgmetds(3,3)+gmet(3,3)*(24*gmet(2,3)*dgmetds(2,3)-1.5d0*gmet(2,2)&
1505 289 : & *dgmetds(3,3)))
1506 : cm(4,17,1,3)=gmet(1,3)*(3*gmet(2,3)**2*dgmetds(2,2)+6*gmet(2,2)&
1507 : & *gmet(2,3)*dgmetds(2,3)+gmet(2,2)*(12*gmet(3,3)*dgmetds(2,2)&
1508 : & -3*gmet(2,2)*dgmetds(3,3)))+gmet(1,2)*(6*gmet(2,3)**2*dgmetds(2,3)&
1509 : & +24*gmet(2,2)*gmet(3,3)*dgmetds(2,3)+gmet(2,3)*(3*gmet(3,3)*dgmetds(2,2)&
1510 289 : & +9*gmet(2,2)*dgmetds(3,3)))
1511 : cm(5,17,1,3)=(6*(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)&
1512 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+12*(-12*gmet(1,3)&
1513 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)&
1514 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)&
1515 : & +2*(-36*gmet(1,2)*gmet(1,3)*gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)&
1516 289 : & -18*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(3,3))/24.d0
1517 : cm(6,17,1,3)=7.5d0*gmet(1,3)**2*gmet(2,2)*dgmetds(2,2)+gmet(1,2)&
1518 : & *gmet(1,3)*(9*gmet(2,3)*dgmetds(2,2)+24*gmet(2,2)*dgmetds(2,3))&
1519 : & +gmet(1,2)**2*(-3*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)*dgmetds(2,3)&
1520 : & +4.5d0*gmet(2,2)*dgmetds(3,3))+gmet(1,1)*(-3*gmet(2,3)**2*dgmetds(2,2)&
1521 : & -9*gmet(2,2)*gmet(2,3)*dgmetds(2,3)-1.5d0*gmet(2,2)*(gmet(3,3)&
1522 289 : & *dgmetds(2,2)+gmet(2,2)*dgmetds(3,3)))
1523 : cm(7,17,1,3)=gmet(2,2)*(4.5d0*gmet(2,3)**2*dgmetds(2,2)+6*gmet(2,2)&
1524 : & *gmet(2,3)*dgmetds(2,3)+gmet(2,2)*(-1.5d0*gmet(3,3)*dgmetds(2,2)&
1525 289 : & +gmet(2,2)*dgmetds(3,3)))
1526 : cm(8,17,1,3)=3*gmet(2,3)**3*dgmetds(2,3)+15*gmet(2,2)*gmet(2,3)&
1527 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,2)*gmet(3,3)*(6*gmet(3,3)*dgmetds(2,2)&
1528 : & -1.5d0*gmet(2,2)*dgmetds(3,3))+gmet(2,3)**2*(3*gmet(3,3)*dgmetds(2,2)&
1529 289 : & +4.5d0*gmet(2,2)*dgmetds(3,3))
1530 : cm(9,17,1,3)=1.5d0*gmet(2,3)**3*dgmetds(2,2)+6*gmet(2,2)*gmet(2,3)&
1531 : & **2*dgmetds(2,3)+12*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)+gmet(2,2)&
1532 289 : & *gmet(2,3)*(7.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,2)*dgmetds(3,3))
1533 : cm(10,17,1,3)=9*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)-3*gmet(2,2)&
1534 : & *gmet(3,3)**2*dgmetds(2,3)+2.5d0*gmet(2,3)**3*dgmetds(3,3)+gmet(2,3)&
1535 289 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(2,2)-1.5d0*gmet(2,2)*dgmetds(3,3))
1536 : cm(1,18,1,3)=7.5d0*gmet(1,2)**2*gmet(1,3)*dgmetds(2,2)-1.5d0*gmet(1,1)&
1537 : & *gmet(1,3)*gmet(2,2)*dgmetds(2,2)+5*gmet(1,2)**3*dgmetds(2,3)&
1538 289 : & -3*gmet(1,1)*gmet(1,2)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
1539 : cm(2,18,1,3)=gmet(2,2)*(6*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,2)&
1540 289 : & *(3*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3)))
1541 : cm(3,18,1,3)=gmet(1,3)*(1.5d0*gmet(2,3)**2*dgmetds(2,2)-4.5d0*gmet(2,2)&
1542 : & *gmet(3,3)*dgmetds(2,2)-6*gmet(2,2)*gmet(2,3)*dgmetds(2,3))+gmet(1,2)&
1543 : & *(12*gmet(2,3)*gmet(3,3)*dgmetds(2,2)+15*gmet(2,3)**2*dgmetds(2,3)&
1544 289 : & -3*gmet(2,2)*gmet(3,3)*dgmetds(2,3))
1545 : cm(4,18,1,3)=gmet(1,3)*gmet(2,2)*(3*gmet(2,3)*dgmetds(2,2)-6*gmet(2,2)&
1546 : & *dgmetds(2,3))+gmet(1,2)*(3*gmet(2,3)**2*dgmetds(2,2)+12*gmet(2,2)&
1547 289 : & *gmet(3,3)*dgmetds(2,2)+18*gmet(2,2)*gmet(2,3)*dgmetds(2,3))
1548 : cm(5,18,1,3)=(12*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
1549 : & *gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
1550 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+8*(-36*gmet(1,2)*gmet(1,3)&
1551 : & *gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
1552 289 : & *dgmetds(2,3))/48.d0
1553 : cm(6,18,1,3)=12*gmet(1,2)*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,1)&
1554 : & *gmet(2,2)*(-4.5d0*gmet(2,3)*dgmetds(2,2)-3*gmet(2,2)*dgmetds(2,3))&
1555 289 : & +gmet(1,2)**2*(1.5d0*gmet(2,3)*dgmetds(2,2)+9*gmet(2,2)*dgmetds(2,3))
1556 : cm(7,18,1,3)=gmet(2,2)**2*(3*gmet(2,3)*dgmetds(2,2)+2*gmet(2,2)&
1557 289 : & *dgmetds(2,3))
1558 : cm(8,18,1,3)=1.5d0*gmet(2,3)**3*dgmetds(2,2)+7.5d0*gmet(2,2)*gmet(2,3)&
1559 : & *gmet(3,3)*dgmetds(2,2)+9*gmet(2,2)*gmet(2,3)**2*dgmetds(2,3)&
1560 289 : & -3*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)
1561 : cm(9,18,1,3)=gmet(2,2)*(3*gmet(2,3)**2*dgmetds(2,2)+6*gmet(2,2)&
1562 289 : & *gmet(3,3)*dgmetds(2,2)+6*gmet(2,2)*gmet(2,3)*dgmetds(2,3))
1563 : cm(10,18,1,3)=4.5d0*gmet(2,3)**2*gmet(3,3)*dgmetds(2,2)-1.5d0*gmet(2,2)&
1564 : & *gmet(3,3)**2*dgmetds(2,2)+5*gmet(2,3)**3*dgmetds(2,3)-3*gmet(2,2)&
1565 289 : & *gmet(2,3)*gmet(3,3)*dgmetds(2,3)
1566 : cm(1,19,1,3)=(180*gmet(1,3)**3*dgmetds(2,2)+1080*gmet(1,2)*gmet(1,3)&
1567 : & **2*dgmetds(2,3)-216*gmet(1,1)*gmet(1,2)*(gmet(3,3)*dgmetds(2,3)&
1568 : & +gmet(2,3)*dgmetds(3,3))+gmet(1,3)*(540*gmet(1,2)**2*dgmetds(3,3)&
1569 : & +gmet(1,1)*(-108*gmet(3,3)*dgmetds(2,2)-432*gmet(2,3)*dgmetds(2,3)&
1570 289 : & -108*gmet(2,2)*dgmetds(3,3))))/72.d0
1571 : cm(2,19,1,3)=(2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
1572 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+12*(48*gmet(1,3)*gmet(2,2)&
1573 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
1574 : & *dgmetds(2,3)+6*gmet(2,2)*(24*gmet(1,3)*gmet(2,2)+12*gmet(1,2)&
1575 289 : & *gmet(2,3))*dgmetds(3,3))/24.0d0
1576 : cm(3,19,1,3)=12*gmet(1,2)*gmet(3,3)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)&
1577 : & *dgmetds(3,3))+gmet(1,3)*(3*gmet(3,3)**2*dgmetds(2,2)+1.5d0*gmet(2,3)&
1578 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(2,3)-4.5d0*gmet(2,2)&
1579 289 : & *dgmetds(3,3)))
1580 : cm(4,19,1,3)=gmet(1,3)*(6*gmet(2,3)**2*dgmetds(2,3)+24*gmet(2,2)&
1581 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,3)*(9*gmet(3,3)*dgmetds(2,2)+3*gmet(2,2)&
1582 : & *dgmetds(3,3)))+gmet(1,2)*(-3*gmet(3,3)**2*dgmetds(2,2)+3*gmet(2,3)&
1583 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(2,3)+12*gmet(2,2)&
1584 289 : & *dgmetds(3,3)))
1585 : cm(5,19,1,3)=(2*gmet(3,3)*(54*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3))&
1586 : & *dgmetds(2,2)+12*(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)&
1587 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3)+6*(-12*gmet(1,3)&
1588 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)&
1589 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
1590 289 : & /24.d0
1591 : cm(6,19,1,3)=gmet(1,3)**2*(7.5d0*gmet(2,3)*dgmetds(2,2)+15*gmet(2,2)&
1592 : & *dgmetds(2,3))+gmet(1,2)*gmet(1,3)*(-3*gmet(3,3)*dgmetds(2,2)&
1593 : & +18*gmet(2,3)*dgmetds(2,3)+12*gmet(2,2)*dgmetds(3,3))+gmet(1,2)&
1594 : & **2*(-6*gmet(3,3)*dgmetds(2,3)+1.5d0*gmet(2,3)*dgmetds(3,3))&
1595 : & +gmet(1,1)*(-1.5d0*gmet(2,3)*gmet(3,3)*dgmetds(2,2)-6*gmet(2,3)&
1596 : & **2*dgmetds(2,3)-3*gmet(2,2)*gmet(3,3)*dgmetds(2,3)-4.5d0*gmet(2,2)&
1597 289 : & *gmet(2,3)*dgmetds(3,3))
1598 : cm(7,19,1,3)=2.5d0*gmet(2,3)**3*dgmetds(2,2)+9*gmet(2,2)*gmet(2,3)&
1599 : & **2*dgmetds(2,3)-3*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)+gmet(2,2)&
1600 289 : & *gmet(2,3)*(-1.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,2)*dgmetds(3,3))
1601 : cm(8,19,1,3)=6*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)+12*gmet(2,2)&
1602 : & *gmet(3,3)**2*dgmetds(2,3)+1.5d0*gmet(2,3)**3*dgmetds(3,3)+gmet(2,3)&
1603 289 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(2,2)+7.5d0*gmet(2,2)*dgmetds(3,3))
1604 : cm(9,19,1,3)=3*gmet(2,3)**3*dgmetds(2,3)+15*gmet(2,2)*gmet(2,3)&
1605 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,3)**2*(4.5d0*gmet(3,3)*dgmetds(2,2)&
1606 : & +3*gmet(2,2)*dgmetds(3,3))+gmet(2,2)*gmet(3,3)*(-1.5d0*gmet(3,3)&
1607 289 : & *dgmetds(2,2)+6*gmet(2,2)*dgmetds(3,3))
1608 : cm(10,19,1,3)=gmet(3,3)*(1*gmet(3,3)**2*dgmetds(2,2)+4.5d0*gmet(2,3)&
1609 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(2,3)-1.5d0*gmet(2,2)&
1610 289 : & *dgmetds(3,3)))
1611 : cm(1,20,1,3)=5*gmet(1,3)**3*dgmetds(2,3)+7.5d0*gmet(1,2)*gmet(1,3)&
1612 : & **2*dgmetds(3,3)-1.5d0*gmet(1,1)*gmet(1,2)*gmet(3,3)*dgmetds(3,3)&
1613 289 : & -3*gmet(1,1)*gmet(1,3)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
1614 : cm(2,20,1,3)=(8*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
1615 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)+12*(48*gmet(1,3)*gmet(2,2)&
1616 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
1617 289 : & *dgmetds(3,3))/48.d0
1618 : cm(3,20,1,3)=gmet(3,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(1,3)&
1619 289 : & *(6*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)*dgmetds(3,3)))
1620 : cm(4,20,1,3)=gmet(1,2)*gmet(3,3)*(-6*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
1621 : & *dgmetds(3,3))+gmet(1,3)*(18*gmet(2,3)*gmet(3,3)*dgmetds(2,3)&
1622 289 : & +3*gmet(2,3)**2*dgmetds(3,3)+12*gmet(2,2)*gmet(3,3)*dgmetds(3,3))
1623 : cm(5,20,1,3)=12*gmet(1,2)*gmet(1,3)*gmet(3,3)*dgmetds(3,3)+gmet(1,1)&
1624 : & *gmet(3,3)*(-3*gmet(3,3)*dgmetds(2,3)-4.5d0*gmet(2,3)*dgmetds(3,3))&
1625 289 : & +gmet(1,3)**2*(9*gmet(3,3)*dgmetds(2,3)+1.5d0*gmet(2,3)*dgmetds(3,3))
1626 : cm(6,20,1,3)=(8*(90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
1627 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3)+12*(30*gmet(1,3)&
1628 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
1629 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
1630 289 : & /48.d0
1631 : cm(7,20,1,3)=5*gmet(2,3)**3*dgmetds(2,3)-3*gmet(2,2)*gmet(2,3)&
1632 : & *gmet(3,3)*dgmetds(2,3)+4.5d0*gmet(2,2)*gmet(2,3)**2*dgmetds(3,3)&
1633 289 : & -1.5d0*gmet(2,2)**2*gmet(3,3)*dgmetds(3,3)
1634 : cm(8,20,1,3)=gmet(3,3)*(6*gmet(2,3)*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
1635 289 : & **2*dgmetds(3,3)+6*gmet(2,2)*gmet(3,3)*dgmetds(3,3))
1636 : cm(9,20,1,3)=9*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)-3*gmet(2,2)&
1637 : & *gmet(3,3)**2*dgmetds(2,3)+1.5d0*gmet(2,3)**3*dgmetds(3,3)+7.5d0*gmet(2,2)&
1638 289 : & *gmet(2,3)*gmet(3,3)*dgmetds(3,3)
1639 : cm(10,20,1,3)=gmet(3,3)**2*(2*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
1640 289 : & *dgmetds(3,3))
1641 : cm(1,21,1,3)=gmet(1,3)*(2.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
1642 289 : & *dgmetds(3,3)
1643 : cm(2,21,1,3)=((-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
1644 289 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/12.d0
1645 289 : cm(3,21,1,3)=3*gmet(1,3)*gmet(3,3)**2*dgmetds(3,3)
1646 : cm(4,21,1,3)=(gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)*gmet(3,3))&
1647 289 : & *dgmetds(3,3))/6.d0
1648 : cm(5,21,1,3)=gmet(3,3)*(4.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
1649 289 : & *dgmetds(3,3)
1650 : cm(6,21,1,3)=((90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
1651 289 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(3,3))/12.d0
1652 : cm(7,21,1,3)=gmet(2,3)*(2.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
1653 289 : & *dgmetds(3,3)
1654 289 : cm(8,21,1,3)=3*gmet(2,3)*gmet(3,3)**2*dgmetds(3,3)
1655 : cm(9,21,1,3)=gmet(3,3)*(4.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
1656 289 : & *dgmetds(3,3)
1657 289 : cm(10,21,1,3)=gmet(3,3)**3*dgmetds(3,3)
1658 482 : elseif(iterm==2)then
1659 289 : cm(1,1,2,3)=6*gmet(1,1)**2*dgmetds(1,1)
1660 : cm(2,1,2,3)=9*gmet(1,2)**2*dgmetds(1,1)+18*gmet(1,1)*gmet(1,2)&
1661 : & *dgmetds(1,2)+gmet(1,1)*(-6*gmet(2,2)*dgmetds(1,1)-3*gmet(1,1)&
1662 289 : & *dgmetds(2,2))
1663 : cm(3,1,2,3)=9*gmet(1,3)**2*dgmetds(1,1)+18*gmet(1,1)*gmet(1,3)&
1664 : & *dgmetds(1,3)+gmet(1,1)*(-6*gmet(3,3)*dgmetds(1,1)-3*gmet(1,1)&
1665 289 : & *dgmetds(3,3))
1666 : cm(4,1,2,3)=18*gmet(1,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))&
1667 : & +gmet(1,1)*(-12*gmet(2,3)*dgmetds(1,1)+18*gmet(1,3)*dgmetds(1,2)&
1668 289 : & -6*gmet(1,1)*dgmetds(2,3))
1669 289 : cm(5,1,2,3)=gmet(1,1)*(12*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,3))
1670 289 : cm(6,1,2,3)=gmet(1,1)*(12*gmet(1,2)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,2))
1671 : cm(7,1,2,3)=15*gmet(1,2)**2*dgmetds(1,2)-3*gmet(1,1)*gmet(2,2)&
1672 289 : & *dgmetds(1,2)-3*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,2))
1673 : cm(8,1,2,3)=15*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(-3*gmet(3,3)&
1674 : & *dgmetds(1,2)-6*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(-6*gmet(2,3)&
1675 : & *dgmetds(1,1)+30*gmet(1,2)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3))&
1676 289 : & -3*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1677 : cm(9,1,2,3)=15*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(-6*gmet(2,3)&
1678 : & *dgmetds(1,2)-3*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-3*gmet(2,2)&
1679 : & *dgmetds(1,1)+30*gmet(1,2)*dgmetds(1,2)-3*gmet(1,1)*dgmetds(2,2))&
1680 289 : & -6*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1681 : cm(10,1,2,3)=15*gmet(1,3)**2*dgmetds(1,3)-3*gmet(1,1)*gmet(3,3)&
1682 289 : & *dgmetds(1,3)-3*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1683 : cm(1,2,2,3)=9*gmet(1,2)**2*dgmetds(1,1)+18*gmet(1,1)*gmet(1,2)&
1684 : & *dgmetds(1,2)+gmet(1,1)*(-6*gmet(2,2)*dgmetds(1,1)-3*gmet(1,1)&
1685 289 : & *dgmetds(2,2))
1686 : cm(2,2,2,3)=12*gmet(2,2)**2*dgmetds(1,1)+6*gmet(1,2)**2*dgmetds(2,2)&
1687 289 : & +gmet(2,2)*(12*gmet(1,2)*dgmetds(1,2)+24*gmet(1,1)*dgmetds(2,2))
1688 : cm(3,2,2,3)=15*gmet(2,3)**2*dgmetds(1,1)-12*gmet(1,2)*gmet(3,3)&
1689 : & *dgmetds(1,2)-6*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1690 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1691 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)+30*gmet(1,1)*dgmetds(2,3))&
1692 : & -6*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1693 289 : & -12*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1694 : cm(4,2,2,3)=24*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(12*gmet(2,3)&
1695 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,2))+6*gmet(1,2)**2*dgmetds(2,3)&
1696 : & +gmet(2,2)*(24*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
1697 289 : & +6*gmet(1,2)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))
1698 : cm(5,2,2,3)=3*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(24*gmet(2,3)&
1699 : & *dgmetds(1,2)-9*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-9*gmet(2,2)&
1700 : & *dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)-9*gmet(1,1)*dgmetds(2,2))&
1701 289 : & +24*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1702 : cm(6,2,2,3)=9*gmet(1,2)**2*dgmetds(1,2)+15*gmet(1,1)*gmet(2,2)&
1703 : & *dgmetds(1,2)+15*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)&
1704 289 : & *dgmetds(2,2))
1705 289 : cm(7,2,2,3)=gmet(2,2)*(6*gmet(2,2)*dgmetds(1,2)+12*gmet(1,2)*dgmetds(2,2))
1706 : cm(8,2,2,3)=3*gmet(2,3)**2*dgmetds(1,2)-9*gmet(1,2)*gmet(3,3)&
1707 : & *dgmetds(2,2)+gmet(2,3)*(24*gmet(2,2)*dgmetds(1,3)+24*gmet(1,3)&
1708 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-9*gmet(3,3)&
1709 289 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,3)-9*gmet(1,2)*dgmetds(3,3))
1710 : cm(9,2,2,3)=12*gmet(2,2)**2*dgmetds(1,3)+6*gmet(1,2)*gmet(2,3)&
1711 : & *dgmetds(2,2)+gmet(2,2)*(6*gmet(2,3)*dgmetds(1,2)+24*gmet(1,3)&
1712 289 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))
1713 : cm(10,2,2,3)=15*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-3*gmet(1,3)&
1714 : & *dgmetds(2,2)-6*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(-6*gmet(3,3)&
1715 : & *dgmetds(1,2)+30*gmet(1,3)*dgmetds(2,3)-6*gmet(1,2)*dgmetds(3,3))&
1716 289 : & -3*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1717 : cm(1,3,2,3)=9*gmet(1,3)**2*dgmetds(1,1)+18*gmet(1,1)*gmet(1,3)&
1718 : & *dgmetds(1,3)+gmet(1,1)*(-6*gmet(3,3)*dgmetds(1,1)-3*gmet(1,1)&
1719 289 : & *dgmetds(3,3))
1720 : cm(2,3,2,3)=15*gmet(2,3)**2*dgmetds(1,1)-12*gmet(1,2)*gmet(3,3)&
1721 : & *dgmetds(1,2)-6*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1722 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1723 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)+30*gmet(1,1)*dgmetds(2,3))&
1724 : & -6*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1725 289 : & -12*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1726 : cm(3,3,2,3)=12*gmet(3,3)**2*dgmetds(1,1)+6*gmet(1,3)**2*dgmetds(3,3)&
1727 289 : & +gmet(3,3)*(12*gmet(1,3)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(3,3))
1728 : cm(4,3,2,3)=6*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(6*gmet(1,2)&
1729 : & *dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(24*gmet(3,3)&
1730 : & *dgmetds(1,1)+12*gmet(1,3)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(3,3))&
1731 289 : & +6*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1732 : cm(5,3,2,3)=9*gmet(1,3)**2*dgmetds(1,3)+15*gmet(1,1)*gmet(3,3)&
1733 : & *dgmetds(1,3)+15*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
1734 289 : & *dgmetds(3,3))
1735 : cm(6,3,2,3)=3*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(-9*gmet(3,3)&
1736 : & *dgmetds(1,2)+24*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(24*gmet(2,3)&
1737 : & *dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))&
1738 289 : & -9*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1739 : cm(7,3,2,3)=15*gmet(2,3)**2*dgmetds(1,2)-3*gmet(1,2)*gmet(3,3)&
1740 : & *dgmetds(2,2)+gmet(2,3)*(-6*gmet(2,2)*dgmetds(1,3)-6*gmet(1,3)&
1741 : & *dgmetds(2,2)+30*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-3*gmet(3,3)&
1742 289 : & *dgmetds(1,2)-6*gmet(1,3)*dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3))
1743 : cm(8,3,2,3)=12*gmet(3,3)**2*dgmetds(1,2)+6*gmet(1,3)*gmet(2,3)&
1744 : & *dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(1,3)+6*gmet(1,3)&
1745 289 : & *dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))
1746 : cm(9,3,2,3)=3*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-9*gmet(1,3)&
1747 : & *dgmetds(2,2)+24*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(24*gmet(3,3)&
1748 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))&
1749 289 : & -9*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1750 : cm(10,3,2,3)=gmet(3,3)*(6*gmet(3,3)*dgmetds(1,3)+12*gmet(1,3)&
1751 289 : & *dgmetds(3,3))
1752 : cm(1,4,2,3)=18*gmet(1,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))&
1753 : & +gmet(1,1)*(-12*gmet(2,3)*dgmetds(1,1)+18*gmet(1,3)*dgmetds(1,2)&
1754 289 : & -6*gmet(1,1)*dgmetds(2,3))
1755 : cm(2,4,2,3)=24*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(12*gmet(2,3)&
1756 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,2))+6*gmet(1,2)**2*dgmetds(2,3)&
1757 : & +gmet(2,2)*(24*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
1758 289 : & +6*gmet(1,2)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))
1759 : cm(3,4,2,3)=6*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(6*gmet(1,2)&
1760 : & *dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(24*gmet(3,3)&
1761 : & *dgmetds(1,1)+12*gmet(1,3)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(3,3))&
1762 289 : & +6*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1763 : cm(4,4,2,3)=18*gmet(2,3)**2*dgmetds(1,1)+36*gmet(1,2)*gmet(3,3)&
1764 : & *dgmetds(1,2)+18*gmet(1,3)**2*dgmetds(2,2)+30*gmet(1,1)*gmet(3,3)&
1765 : & *dgmetds(2,2)-12*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(-12*gmet(1,3)&
1766 : & *dgmetds(1,2)-12*gmet(1,2)*dgmetds(1,3)+36*gmet(1,1)*dgmetds(2,3))&
1767 : & +18*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(30*gmet(3,3)*dgmetds(1,1)&
1768 289 : & +36*gmet(1,3)*dgmetds(1,3)+30*gmet(1,1)*dgmetds(3,3))
1769 : cm(5,4,2,3)=6*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(24*gmet(3,3)&
1770 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(6*gmet(2,3)&
1771 : & *dgmetds(1,1)+12*gmet(1,2)*dgmetds(1,3)+6*gmet(1,1)*dgmetds(2,3))&
1772 289 : & +24*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1773 : cm(6,4,2,3)=6*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(6*gmet(2,3)&
1774 : & *dgmetds(1,2)+24*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(24*gmet(2,2)&
1775 : & *dgmetds(1,1)+12*gmet(1,2)*dgmetds(1,2)+24*gmet(1,1)*dgmetds(2,2))&
1776 289 : & +6*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1777 : cm(7,4,2,3)=-6*gmet(2,2)**2*dgmetds(1,3)+18*gmet(1,2)*gmet(2,3)&
1778 : & *dgmetds(2,2)+gmet(2,2)*(18*gmet(2,3)*dgmetds(1,2)-12*gmet(1,3)&
1779 289 : & *dgmetds(2,2)+18*gmet(1,2)*dgmetds(2,3))
1780 : cm(8,4,2,3)=6*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(24*gmet(1,3)&
1781 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(6*gmet(3,3)&
1782 : & *dgmetds(1,2)+12*gmet(1,3)*dgmetds(2,3)+6*gmet(1,2)*dgmetds(3,3))&
1783 289 : & +24*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1784 : cm(9,4,2,3)=6*gmet(2,3)**2*dgmetds(1,2)+24*gmet(1,2)*gmet(3,3)&
1785 : & *dgmetds(2,2)+gmet(2,3)*(6*gmet(2,2)*dgmetds(1,3)+6*gmet(1,3)&
1786 : & *dgmetds(2,2)+12*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(24*gmet(3,3)&
1787 289 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))
1788 : cm(10,4,2,3)=-6*gmet(3,3)**2*dgmetds(1,2)+18*gmet(1,3)*gmet(2,3)&
1789 : & *dgmetds(3,3)+gmet(3,3)*(18*gmet(2,3)*dgmetds(1,3)+18*gmet(1,3)&
1790 289 : & *dgmetds(2,3)-12*gmet(1,2)*dgmetds(3,3))
1791 289 : cm(1,5,2,3)=gmet(1,1)*(12*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,3))
1792 : cm(2,5,2,3)=3*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(24*gmet(2,3)&
1793 : & *dgmetds(1,2)-9*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-9*gmet(2,2)&
1794 : & *dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)-9*gmet(1,1)*dgmetds(2,2))&
1795 289 : & +24*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1796 : cm(3,5,2,3)=9*gmet(1,3)**2*dgmetds(1,3)+15*gmet(1,1)*gmet(3,3)&
1797 : & *dgmetds(1,3)+15*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
1798 289 : & *dgmetds(3,3))
1799 : cm(4,5,2,3)=6*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(24*gmet(3,3)&
1800 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(6*gmet(2,3)&
1801 : & *dgmetds(1,1)+12*gmet(1,2)*dgmetds(1,3)+6*gmet(1,1)*dgmetds(2,3))&
1802 289 : & +24*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1803 : cm(5,5,2,3)=6*gmet(1,3)**2*dgmetds(1,1)+12*gmet(1,1)*gmet(1,3)&
1804 : & *dgmetds(1,3)+gmet(1,1)*(24*gmet(3,3)*dgmetds(1,1)+12*gmet(1,1)&
1805 289 : & *dgmetds(3,3))
1806 : cm(6,5,2,3)=6*gmet(1,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))&
1807 : & +gmet(1,1)*(24*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
1808 289 : & +12*gmet(1,1)*dgmetds(2,3))
1809 : cm(7,5,2,3)=-3*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(30*gmet(2,3)&
1810 : & *dgmetds(1,2)-6*gmet(1,3)*dgmetds(2,2))+15*gmet(1,2)**2*dgmetds(2,3)&
1811 : & +gmet(2,2)*(-3*gmet(2,3)*dgmetds(1,1)-6*gmet(1,3)*dgmetds(1,2)&
1812 289 : & -6*gmet(1,2)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))
1813 : cm(8,5,2,3)=3*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(24*gmet(1,2)&
1814 : & *dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-9*gmet(3,3)&
1815 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(3,3))&
1816 289 : & +24*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1817 : cm(9,5,2,3)=-6*gmet(2,3)**2*dgmetds(1,1)+30*gmet(1,2)*gmet(3,3)&
1818 : & *dgmetds(1,2)-6*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1819 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1820 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)-12*gmet(1,1)*dgmetds(2,3))&
1821 : & +15*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1822 289 : & -12*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1823 : cm(10,5,2,3)=-3*gmet(3,3)**2*dgmetds(1,1)+9*gmet(1,3)**2*dgmetds(3,3)&
1824 289 : & +gmet(3,3)*(18*gmet(1,3)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(3,3))
1825 289 : cm(1,6,2,3)=gmet(1,1)*(12*gmet(1,2)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,2))
1826 : cm(2,6,2,3)=9*gmet(1,2)**2*dgmetds(1,2)+15*gmet(1,1)*gmet(2,2)&
1827 : & *dgmetds(1,2)+15*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)&
1828 289 : & *dgmetds(2,2))
1829 : cm(3,6,2,3)=3*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(-9*gmet(3,3)&
1830 : & *dgmetds(1,2)+24*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(24*gmet(2,3)&
1831 : & *dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,3)+24*gmet(1,1)*dgmetds(2,3))&
1832 289 : & -9*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1833 : cm(4,6,2,3)=6*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(6*gmet(2,3)&
1834 : & *dgmetds(1,2)+24*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(24*gmet(2,2)&
1835 : & *dgmetds(1,1)+12*gmet(1,2)*dgmetds(1,2)+24*gmet(1,1)*dgmetds(2,2))&
1836 289 : & +6*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1837 : cm(5,6,2,3)=6*gmet(1,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))&
1838 : & +gmet(1,1)*(24*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2)&
1839 289 : & +12*gmet(1,1)*dgmetds(2,3))
1840 : cm(6,6,2,3)=6*gmet(1,2)**2*dgmetds(1,1)+12*gmet(1,1)*gmet(1,2)&
1841 : & *dgmetds(1,2)+gmet(1,1)*(24*gmet(2,2)*dgmetds(1,1)+12*gmet(1,1)&
1842 289 : & *dgmetds(2,2))
1843 : cm(7,6,2,3)=-3*gmet(2,2)**2*dgmetds(1,1)+9*gmet(1,2)**2*dgmetds(2,2)&
1844 289 : & +gmet(2,2)*(18*gmet(1,2)*dgmetds(1,2)-6*gmet(1,1)*dgmetds(2,2))
1845 : cm(8,6,2,3)=-6*gmet(2,3)**2*dgmetds(1,1)-12*gmet(1,2)*gmet(3,3)&
1846 : & *dgmetds(1,2)+15*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1847 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1848 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)-12*gmet(1,1)*dgmetds(2,3))&
1849 : & -6*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1850 289 : & +30*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1851 : cm(9,6,2,3)=-9*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(6*gmet(2,3)&
1852 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,2))+3*gmet(1,2)**2*dgmetds(2,3)&
1853 : & +gmet(2,2)*(-9*gmet(2,3)*dgmetds(1,1)+24*gmet(1,3)*dgmetds(1,2)&
1854 289 : & +24*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))
1855 : cm(10,6,2,3)=15*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(-6*gmet(1,2)&
1856 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-3*gmet(3,3)&
1857 : & *dgmetds(1,1)+30*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))&
1858 289 : & -6*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1859 : cm(1,7,2,3)=15*gmet(1,2)**2*dgmetds(1,2)-3*gmet(1,1)*gmet(2,2)&
1860 289 : & *dgmetds(1,2)-3*gmet(1,2)*(gmet(2,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,2))
1861 289 : cm(2,7,2,3)=gmet(2,2)*(6*gmet(2,2)*dgmetds(1,2)+12*gmet(1,2)*dgmetds(2,2))
1862 : cm(3,7,2,3)=15*gmet(2,3)**2*dgmetds(1,2)-3*gmet(1,2)*gmet(3,3)&
1863 : & *dgmetds(2,2)+gmet(2,3)*(-6*gmet(2,2)*dgmetds(1,3)-6*gmet(1,3)&
1864 : & *dgmetds(2,2)+30*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-3*gmet(3,3)&
1865 289 : & *dgmetds(1,2)-6*gmet(1,3)*dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3))
1866 : cm(4,7,2,3)=-6*gmet(2,2)**2*dgmetds(1,3)+18*gmet(1,2)*gmet(2,3)&
1867 : & *dgmetds(2,2)+gmet(2,2)*(18*gmet(2,3)*dgmetds(1,2)-12*gmet(1,3)&
1868 289 : & *dgmetds(2,2)+18*gmet(1,2)*dgmetds(2,3))
1869 : cm(5,7,2,3)=-3*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(30*gmet(2,3)&
1870 : & *dgmetds(1,2)-6*gmet(1,3)*dgmetds(2,2))+15*gmet(1,2)**2*dgmetds(2,3)&
1871 : & +gmet(2,2)*(-3*gmet(2,3)*dgmetds(1,1)-6*gmet(1,3)*dgmetds(1,2)&
1872 289 : & -6*gmet(1,2)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))
1873 : cm(6,7,2,3)=-3*gmet(2,2)**2*dgmetds(1,1)+9*gmet(1,2)**2*dgmetds(2,2)&
1874 289 : & +gmet(2,2)*(18*gmet(1,2)*dgmetds(1,2)-6*gmet(1,1)*dgmetds(2,2))
1875 289 : cm(7,7,2,3)=6*gmet(2,2)**2*dgmetds(2,2)
1876 : cm(8,7,2,3)=9*gmet(2,3)**2*dgmetds(2,2)+18*gmet(2,2)*gmet(2,3)&
1877 : & *dgmetds(2,3)+gmet(2,2)*(-6*gmet(3,3)*dgmetds(2,2)-3*gmet(2,2)&
1878 289 : & *dgmetds(3,3))
1879 289 : cm(9,7,2,3)=gmet(2,2)*(12*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3))
1880 : cm(10,7,2,3)=15*gmet(2,3)**2*dgmetds(2,3)-3*gmet(2,2)*gmet(3,3)&
1881 289 : & *dgmetds(2,3)-3*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(3,3))
1882 : cm(1,8,2,3)=15*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)*(-3*gmet(3,3)&
1883 : & *dgmetds(1,2)-6*gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(-6*gmet(2,3)&
1884 : & *dgmetds(1,1)+30*gmet(1,2)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3))&
1885 289 : & -3*gmet(1,2)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1886 : cm(2,8,2,3)=3*gmet(2,3)**2*dgmetds(1,2)-9*gmet(1,2)*gmet(3,3)&
1887 : & *dgmetds(2,2)+gmet(2,3)*(24*gmet(2,2)*dgmetds(1,3)+24*gmet(1,3)&
1888 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(-9*gmet(3,3)&
1889 289 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,3)-9*gmet(1,2)*dgmetds(3,3))
1890 : cm(3,8,2,3)=12*gmet(3,3)**2*dgmetds(1,2)+6*gmet(1,3)*gmet(2,3)&
1891 : & *dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(1,3)+6*gmet(1,3)&
1892 289 : & *dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))
1893 : cm(4,8,2,3)=6*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(24*gmet(1,3)&
1894 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(6*gmet(3,3)&
1895 : & *dgmetds(1,2)+12*gmet(1,3)*dgmetds(2,3)+6*gmet(1,2)*dgmetds(3,3))&
1896 289 : & +24*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1897 : cm(5,8,2,3)=3*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(24*gmet(1,2)&
1898 : & *dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-9*gmet(3,3)&
1899 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(3,3))&
1900 289 : & +24*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1901 : cm(6,8,2,3)=-6*gmet(2,3)**2*dgmetds(1,1)-12*gmet(1,2)*gmet(3,3)&
1902 : & *dgmetds(1,2)+15*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1903 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1904 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)-12*gmet(1,1)*dgmetds(2,3))&
1905 : & -6*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1906 289 : & +30*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1907 : cm(7,8,2,3)=9*gmet(2,3)**2*dgmetds(2,2)+18*gmet(2,2)*gmet(2,3)&
1908 : & *dgmetds(2,3)+gmet(2,2)*(-6*gmet(3,3)*dgmetds(2,2)-3*gmet(2,2)&
1909 289 : & *dgmetds(3,3))
1910 : cm(8,8,2,3)=12*gmet(3,3)**2*dgmetds(2,2)+6*gmet(2,3)**2*dgmetds(3,3)&
1911 289 : & +gmet(3,3)*(12*gmet(2,3)*dgmetds(2,3)+24*gmet(2,2)*dgmetds(3,3))
1912 : cm(9,8,2,3)=9*gmet(2,3)**2*dgmetds(2,3)+15*gmet(2,2)*gmet(3,3)&
1913 : & *dgmetds(2,3)+15*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)&
1914 289 : & *dgmetds(3,3))
1915 : cm(10,8,2,3)=gmet(3,3)*(6*gmet(3,3)*dgmetds(2,3)+12*gmet(2,3)&
1916 289 : & *dgmetds(3,3))
1917 : cm(1,9,2,3)=15*gmet(1,2)**2*dgmetds(1,3)+gmet(1,1)*(-6*gmet(2,3)&
1918 : & *dgmetds(1,2)-3*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-3*gmet(2,2)&
1919 : & *dgmetds(1,1)+30*gmet(1,2)*dgmetds(1,2)-3*gmet(1,1)*dgmetds(2,2))&
1920 289 : & -6*gmet(1,2)*(gmet(2,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(2,3))
1921 : cm(2,9,2,3)=12*gmet(2,2)**2*dgmetds(1,3)+6*gmet(1,2)*gmet(2,3)&
1922 : & *dgmetds(2,2)+gmet(2,2)*(6*gmet(2,3)*dgmetds(1,2)+24*gmet(1,3)&
1923 289 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))
1924 : cm(3,9,2,3)=3*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-9*gmet(1,3)&
1925 : & *dgmetds(2,2)+24*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(24*gmet(3,3)&
1926 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))&
1927 289 : & -9*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1928 : cm(4,9,2,3)=6*gmet(2,3)**2*dgmetds(1,2)+24*gmet(1,2)*gmet(3,3)&
1929 : & *dgmetds(2,2)+gmet(2,3)*(6*gmet(2,2)*dgmetds(1,3)+6*gmet(1,3)&
1930 : & *dgmetds(2,2)+12*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*(24*gmet(3,3)&
1931 289 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+24*gmet(1,2)*dgmetds(3,3))
1932 : cm(5,9,2,3)=-6*gmet(2,3)**2*dgmetds(1,1)+30*gmet(1,2)*gmet(3,3)&
1933 : & *dgmetds(1,2)-6*gmet(1,3)**2*dgmetds(2,2)-3*gmet(1,1)*gmet(3,3)&
1934 : & *dgmetds(2,2)+18*gmet(1,2)*gmet(1,3)*dgmetds(2,3)+gmet(2,3)*(18*gmet(1,3)&
1935 : & *dgmetds(1,2)+18*gmet(1,2)*dgmetds(1,3)-12*gmet(1,1)*dgmetds(2,3))&
1936 : & +15*gmet(1,2)**2*dgmetds(3,3)+gmet(2,2)*(-3*gmet(3,3)*dgmetds(1,1)&
1937 289 : & -12*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))
1938 : cm(6,9,2,3)=-9*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(6*gmet(2,3)&
1939 : & *dgmetds(1,2)+24*gmet(1,3)*dgmetds(2,2))+3*gmet(1,2)**2*dgmetds(2,3)&
1940 : & +gmet(2,2)*(-9*gmet(2,3)*dgmetds(1,1)+24*gmet(1,3)*dgmetds(1,2)&
1941 289 : & +24*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))
1942 289 : cm(7,9,2,3)=gmet(2,2)*(12*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3))
1943 : cm(8,9,2,3)=9*gmet(2,3)**2*dgmetds(2,3)+15*gmet(2,2)*gmet(3,3)&
1944 : & *dgmetds(2,3)+15*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)&
1945 289 : & *dgmetds(3,3))
1946 : cm(9,9,2,3)=6*gmet(2,3)**2*dgmetds(2,2)+12*gmet(2,2)*gmet(2,3)&
1947 : & *dgmetds(2,3)+gmet(2,2)*(24*gmet(3,3)*dgmetds(2,2)+12*gmet(2,2)&
1948 289 : & *dgmetds(3,3))
1949 : cm(10,9,2,3)=-3*gmet(3,3)**2*dgmetds(2,2)+9*gmet(2,3)**2*dgmetds(3,3)&
1950 289 : & +gmet(3,3)*(18*gmet(2,3)*dgmetds(2,3)-6*gmet(2,2)*dgmetds(3,3))
1951 : cm(1,10,2,3)=15*gmet(1,3)**2*dgmetds(1,3)-3*gmet(1,1)*gmet(3,3)&
1952 289 : & *dgmetds(1,3)-3*gmet(1,3)*(gmet(3,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(3,3))
1953 : cm(2,10,2,3)=15*gmet(2,3)**2*dgmetds(1,3)+gmet(3,3)*(-3*gmet(1,3)&
1954 : & *dgmetds(2,2)-6*gmet(1,2)*dgmetds(2,3))+gmet(2,3)*(-6*gmet(3,3)&
1955 : & *dgmetds(1,2)+30*gmet(1,3)*dgmetds(2,3)-6*gmet(1,2)*dgmetds(3,3))&
1956 289 : & -3*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
1957 : cm(3,10,2,3)=gmet(3,3)*(6*gmet(3,3)*dgmetds(1,3)+12*gmet(1,3)&
1958 289 : & *dgmetds(3,3))
1959 : cm(4,10,2,3)=-6*gmet(3,3)**2*dgmetds(1,2)+18*gmet(1,3)*gmet(2,3)&
1960 : & *dgmetds(3,3)+gmet(3,3)*(18*gmet(2,3)*dgmetds(1,3)+18*gmet(1,3)&
1961 289 : & *dgmetds(2,3)-12*gmet(1,2)*dgmetds(3,3))
1962 : cm(5,10,2,3)=-3*gmet(3,3)**2*dgmetds(1,1)+9*gmet(1,3)**2*dgmetds(3,3)&
1963 289 : & +gmet(3,3)*(18*gmet(1,3)*dgmetds(1,3)-6*gmet(1,1)*dgmetds(3,3))
1964 : cm(6,10,2,3)=15*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)*(-6*gmet(1,2)&
1965 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-3*gmet(3,3)&
1966 : & *dgmetds(1,1)+30*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)*dgmetds(3,3))&
1967 289 : & -6*gmet(1,3)*(gmet(3,3)*dgmetds(1,2)+gmet(1,2)*dgmetds(3,3))
1968 : cm(7,10,2,3)=15*gmet(2,3)**2*dgmetds(2,3)-3*gmet(2,2)*gmet(3,3)&
1969 289 : & *dgmetds(2,3)-3*gmet(2,3)*(gmet(3,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(3,3))
1970 : cm(8,10,2,3)=gmet(3,3)*(6*gmet(3,3)*dgmetds(2,3)+12*gmet(2,3)&
1971 289 : & *dgmetds(3,3))
1972 : cm(9,10,2,3)=-3*gmet(3,3)**2*dgmetds(2,2)+9*gmet(2,3)**2*dgmetds(3,3)&
1973 289 : & +gmet(3,3)*(18*gmet(2,3)*dgmetds(2,3)-6*gmet(2,2)*dgmetds(3,3))
1974 289 : cm(10,10,2,3)=6*gmet(3,3)**2*dgmetds(3,3)
1975 193 : elseif(iterm==3)then
1976 193 : cm(1,1,3,3)=gmet(1,1)**3*dgmetds(1,1)
1977 : cm(2,1,3,3)=gmet(1,1)*(4.5d0*gmet(1,2)**2*dgmetds(1,1)+6*gmet(1,1)&
1978 : & *gmet(1,2)*dgmetds(1,2)+gmet(1,1)*(-1.5d0*gmet(2,2)*dgmetds(1,1)&
1979 193 : & +gmet(1,1)*dgmetds(2,2)))
1980 : cm(3,1,3,3)=gmet(1,1)*(4.5d0*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
1981 : & *gmet(1,3)*dgmetds(1,3)+gmet(1,1)*(-1.5d0*gmet(3,3)*dgmetds(1,1)&
1982 193 : & +gmet(1,1)*dgmetds(3,3)))
1983 : cm(4,1,3,3)=gmet(1,1)*(gmet(1,2)*(9*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
1984 : & *dgmetds(1,3))+gmet(1,1)*(-3*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)&
1985 193 : & *dgmetds(1,2)+2*gmet(1,1)*dgmetds(2,3)))
1986 : cm(5,1,3,3)=gmet(1,1)**2*(3*gmet(1,3)*dgmetds(1,1)+2*gmet(1,1)&
1987 193 : & *dgmetds(1,3))
1988 : cm(6,1,3,3)=gmet(1,1)**2*(3*gmet(1,2)*dgmetds(1,1)+2*gmet(1,1)&
1989 193 : & *dgmetds(1,2))
1990 : cm(7,1,3,3)=2.5d0*gmet(1,2)**3*dgmetds(1,1)+9*gmet(1,1)*gmet(1,2)&
1991 : & **2*dgmetds(1,2)-3*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,1)&
1992 193 : & *gmet(1,2)*(-1.5d0*gmet(2,2)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2))
1993 : cm(8,1,3,3)=(gmet(1,1)*(216*gmet(1,3)**2*dgmetds(1,2)+gmet(1,1)&
1994 : & *(-72*gmet(3,3)*dgmetds(1,2)-144*gmet(2,3)*dgmetds(1,3))+gmet(1,3)&
1995 : & *(-72*gmet(2,3)*dgmetds(1,1)+144*gmet(1,1)*dgmetds(2,3)))+gmet(1,2)&
1996 : & *(180*gmet(1,3)**2*dgmetds(1,1)+432*gmet(1,1)*gmet(1,3)*dgmetds(1,3)&
1997 : & +gmet(1,1)*(-36*gmet(3,3)*dgmetds(1,1)+72*gmet(1,1)*dgmetds(3,3))))&
1998 193 : & /24.d0
1999 : cm(9,1,3,3)=(gmet(1,2)**2*(180*gmet(1,3)*dgmetds(1,1)+216*gmet(1,1)&
2000 : & *dgmetds(1,3))+gmet(1,1)*(gmet(1,1)*(-144*gmet(2,3)*dgmetds(1,2)&
2001 : & -72*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(-36*gmet(2,2)*dgmetds(1,1)&
2002 : & +72*gmet(1,1)*dgmetds(2,2)))+gmet(1,1)*gmet(1,2)*(-72*gmet(2,3)&
2003 : & *dgmetds(1,1)+432*gmet(1,3)*dgmetds(1,2)+144*gmet(1,1)*dgmetds(2,3)))&
2004 193 : & /24.d0
2005 : cm(10,1,3,3)=2.5d0*gmet(1,3)**3*dgmetds(1,1)+9*gmet(1,1)*gmet(1,3)&
2006 : & **2*dgmetds(1,3)-3*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)&
2007 193 : & *gmet(1,3)*(-1.5d0*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3))
2008 : cm(11,1,3,3)=5*gmet(1,2)**3*dgmetds(1,2)-3*gmet(1,1)*gmet(1,2)&
2009 : & *gmet(2,2)*dgmetds(1,2)+4.5d0*gmet(1,1)*gmet(1,2)**2*dgmetds(2,2)&
2010 193 : & -1.5d0*gmet(1,1)**2*gmet(2,2)*dgmetds(2,2)
2011 : cm(12,1,3,3)=(2*(-36*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)&
2012 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(1,2)+2*(90*gmet(1,2)**2*gmet(1,3)&
2013 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))&
2014 : & *dgmetds(1,3)+gmet(1,1)*(54*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3))&
2015 : & *dgmetds(2,2)+4*gmet(1,1)*(54*gmet(1,2)*gmet(1,3)-18*gmet(1,1)&
2016 : & *gmet(2,3))*dgmetds(2,3)+gmet(1,1)*(54*gmet(1,2)**2-18*gmet(1,1)&
2017 193 : & *gmet(2,2))*dgmetds(3,3))/12.d0
2018 : cm(13,1,3,3)=(180*gmet(1,2)**3*dgmetds(1,3)+gmet(1,1)*gmet(1,2)&
2019 : & *(-216*gmet(2,3)*dgmetds(1,2)-108*gmet(2,2)*dgmetds(1,3)+324*gmet(1,3)&
2020 : & *dgmetds(2,2))+gmet(1,2)**2*(540*gmet(1,3)*dgmetds(1,2)+324*gmet(1,1)&
2021 : & *dgmetds(2,3))-108*gmet(1,1)*(gmet(1,3)*gmet(2,2)*dgmetds(1,2)&
2022 : & +gmet(1,1)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))))&
2023 193 : & /36.d0
2024 : cm(14,1,3,3)=(180*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)**2*(540*gmet(1,2)&
2025 : & *dgmetds(1,3)+324*gmet(1,1)*dgmetds(2,3))+gmet(1,1)*gmet(1,3)&
2026 : & *(-108*gmet(3,3)*dgmetds(1,2)-216*gmet(2,3)*dgmetds(1,3)+324*gmet(1,2)&
2027 : & *dgmetds(3,3))-108*gmet(1,1)*(gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
2028 : & +gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))))&
2029 193 : & /36.d0
2030 : cm(15,1,3,3)=5*gmet(1,3)**3*dgmetds(1,3)-3*gmet(1,1)*gmet(1,3)&
2031 : & *gmet(3,3)*dgmetds(1,3)+4.5d0*gmet(1,1)*gmet(1,3)**2*dgmetds(3,3)&
2032 193 : & -1.5d0*gmet(1,1)**2*gmet(3,3)*dgmetds(3,3)
2033 : cm(16,1,3,3)=gmet(1,2)*(2.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
2034 193 : & *dgmetds(2,2)
2035 : cm(17,1,3,3)=(1080*gmet(1,2)**2*gmet(1,3)*dgmetds(2,3)-216*gmet(1,1)&
2036 : & *gmet(1,3)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))+180*gmet(1,2)&
2037 : & **3*dgmetds(3,3)+gmet(1,2)*(540*gmet(1,3)**2*dgmetds(2,2)+gmet(1,1)&
2038 : & *(-108*gmet(3,3)*dgmetds(2,2)-432*gmet(2,3)*dgmetds(2,3)-108*gmet(2,2)&
2039 193 : & *dgmetds(3,3))))/72.d0
2040 : cm(18,1,3,3)=7.5d0*gmet(1,2)**2*gmet(1,3)*dgmetds(2,2)-1.5d0*gmet(1,1)&
2041 : & *gmet(1,3)*gmet(2,2)*dgmetds(2,2)+5*gmet(1,2)**3*dgmetds(2,3)&
2042 193 : & -3*gmet(1,1)*gmet(1,2)*(gmet(2,3)*dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))
2043 : cm(19,1,3,3)=(180*gmet(1,3)**3*dgmetds(2,2)+1080*gmet(1,2)*gmet(1,3)&
2044 : & **2*dgmetds(2,3)-216*gmet(1,1)*gmet(1,2)*(gmet(3,3)*dgmetds(2,3)&
2045 : & +gmet(2,3)*dgmetds(3,3))+gmet(1,3)*(540*gmet(1,2)**2*dgmetds(3,3)&
2046 : & +gmet(1,1)*(-108*gmet(3,3)*dgmetds(2,2)-432*gmet(2,3)*dgmetds(2,3)&
2047 193 : & -108*gmet(2,2)*dgmetds(3,3))))/72.d0
2048 : cm(20,1,3,3)=5*gmet(1,3)**3*dgmetds(2,3)+7.5d0*gmet(1,2)*gmet(1,3)&
2049 : & **2*dgmetds(3,3)-1.5d0*gmet(1,1)*gmet(1,2)*gmet(3,3)*dgmetds(3,3)&
2050 193 : & -3*gmet(1,1)*gmet(1,3)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)*dgmetds(3,3))
2051 : cm(21,1,3,3)=gmet(1,3)*(2.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
2052 193 : & *dgmetds(3,3)
2053 : cm(1,2,3,3)=gmet(1,1)*(4.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
2054 193 : & *dgmetds(1,1)
2055 : cm(2,2,3,3)=3*gmet(1,2)**3*dgmetds(1,2)+15*gmet(1,1)*gmet(1,2)&
2056 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,1)*gmet(2,2)*(6*gmet(2,2)*dgmetds(1,1)&
2057 : & -1.5d0*gmet(1,1)*dgmetds(2,2))+gmet(1,2)**2*(3*gmet(2,2)*dgmetds(1,1)&
2058 193 : & +4.5d0*gmet(1,1)*dgmetds(2,2))
2059 : cm(3,2,3,3)=(6*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2060 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(30*gmet(2,3)&
2061 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(6*gmet(1,2)**2*gmet(1,3)&
2062 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)+48*gmet(1,1)*gmet(1,2)*gmet(2,3))&
2063 : & *dgmetds(1,3)+2*gmet(1,1)*(54*gmet(1,2)**2-18*gmet(1,1)*gmet(2,2))&
2064 193 : & *dgmetds(3,3))/24.d0
2065 : cm(4,2,3,3)=(36*gmet(1,2)**3*dgmetds(1,3)+gmet(1,2)*(36*gmet(1,3)&
2066 : & *gmet(2,2)*dgmetds(1,1)+gmet(1,1)*(288*gmet(2,3)*dgmetds(1,2)&
2067 : & +180*gmet(2,2)*dgmetds(1,3)))+gmet(1,1)*gmet(2,2)*(144*gmet(2,3)&
2068 : & *dgmetds(1,1)-108*gmet(1,3)*dgmetds(1,2)-36*gmet(1,1)*dgmetds(2,3))&
2069 : & +gmet(1,2)**2*(36*gmet(2,3)*dgmetds(1,1)+36*gmet(1,3)*dgmetds(1,2)&
2070 193 : & +108*gmet(1,1)*dgmetds(2,3)))/12.d0
2071 : cm(5,2,3,3)=12*gmet(1,1)*gmet(1,2)*gmet(2,3)*dgmetds(1,1)+gmet(1,1)&
2072 : & *gmet(2,2)*(-4.5d0*gmet(1,3)*dgmetds(1,1)-3*gmet(1,1)*dgmetds(1,3))&
2073 193 : & +gmet(1,2)**2*(1.5d0*gmet(1,3)*dgmetds(1,1)+9*gmet(1,1)*dgmetds(1,3))
2074 : cm(6,2,3,3)=1.5d0*gmet(1,2)**3*dgmetds(1,1)+7.5d0*gmet(1,1)*gmet(1,2)&
2075 : & *gmet(2,2)*dgmetds(1,1)+9*gmet(1,1)*gmet(1,2)**2*dgmetds(1,2)&
2076 193 : & -3*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)
2077 : cm(7,2,3,3)=6*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)+12*gmet(1,1)&
2078 : & *gmet(2,2)**2*dgmetds(1,2)+1.5d0*gmet(1,2)**3*dgmetds(2,2)+gmet(1,2)&
2079 193 : & *gmet(2,2)*(3*gmet(2,2)*dgmetds(1,1)+7.5d0*gmet(1,1)*dgmetds(2,2))
2080 : cm(8,2,3,3)=((48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
2081 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+2*(-12*gmet(1,3)**2*gmet(2,2)&
2082 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2083 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+4*(6*gmet(1,2)&
2084 : & *gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)&
2085 : & *gmet(2,3))*dgmetds(1,3)+2*(6*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)&
2086 : & *gmet(1,3)*gmet(2,2)+48*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(2,3)&
2087 : & +(6*gmet(1,2)**3+30*gmet(1,1)*gmet(1,2)*gmet(2,2))*dgmetds(3,3))&
2088 193 : & /4.d0
2089 : cm(9,2,3,3)=(gmet(2,2)*(24*gmet(1,3)*gmet(2,2)+12*gmet(1,2)*gmet(2,3))&
2090 : & *dgmetds(1,1)+4*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)&
2091 : & **2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(1,2)&
2092 : & +2*gmet(2,2)*(12*gmet(1,2)**2+24*gmet(1,1)*gmet(2,2))*dgmetds(1,3)&
2093 : & +(6*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)*gmet(2,2)+48*gmet(1,1)&
2094 : & *gmet(1,2)*gmet(2,3))*dgmetds(2,2)+2*(6*gmet(1,2)**3+30*gmet(1,1)&
2095 193 : & *gmet(1,2)*gmet(2,2))*dgmetds(2,3))/4.d0
2096 : cm(10,2,3,3)=(2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2097 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(-12*gmet(1,3)**2*gmet(2,2)&
2098 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2099 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+6*(6*gmet(1,2)&
2100 : & **2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)*gmet(2,2)+48*gmet(1,1)*gmet(1,2)&
2101 193 : & *gmet(2,3))*dgmetds(3,3))/24.d0
2102 : cm(11,2,3,3)=gmet(2,2)*(6*gmet(1,2)*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
2103 193 : & **2*dgmetds(2,2)+6*gmet(1,1)*gmet(2,2)*dgmetds(2,2))
2104 : cm(12,2,3,3)=(2*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
2105 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*gmet(2,2)*(24*gmet(1,3)&
2106 : & *gmet(2,2)+12*gmet(1,2)*gmet(2,3))*dgmetds(1,3)+(-12*gmet(1,3)&
2107 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2108 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)&
2109 : & +4*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)&
2110 : & +24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(2,3)+gmet(2,2)*(12*gmet(1,2)&
2111 193 : & **2+24*gmet(1,1)*gmet(2,2))*dgmetds(3,3))/4.d0
2112 : cm(13,2,3,3)=(72*gmet(1,2)*gmet(2,2)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)&
2113 : & *dgmetds(1,3))+gmet(1,3)*gmet(2,2)*(144*gmet(2,2)*dgmetds(1,2)&
2114 : & +36*gmet(1,2)*dgmetds(2,2))+144*gmet(1,1)*gmet(2,2)*(gmet(2,3)&
2115 : & *dgmetds(2,2)+gmet(2,2)*dgmetds(2,3))+gmet(1,2)**2*(36*gmet(2,3)&
2116 193 : & *dgmetds(2,2)+72*gmet(2,2)*dgmetds(2,3)))/12.d0
2117 : cm(14,2,3,3)=(2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2118 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(48*gmet(1,3)*gmet(2,2)&
2119 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2120 : & *dgmetds(1,3)+6*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2121 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(30*gmet(2,3)&
2122 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)+6*(6*gmet(1,2)*gmet(1,3)&
2123 : & *gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)*gmet(2,3))&
2124 193 : & *dgmetds(3,3))/12.d0
2125 : cm(15,2,3,3)=(8*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2126 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+12*(-12*gmet(1,3)**2*gmet(2,2)&
2127 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2128 193 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/48.d0
2129 193 : cm(16,2,3,3)=3*gmet(1,2)*gmet(2,2)**2*dgmetds(2,2)
2130 : cm(17,2,3,3)=(288*gmet(1,3)*gmet(2,2)*(gmet(2,3)*dgmetds(2,2)&
2131 : & +gmet(2,2)*dgmetds(2,3))+gmet(1,2)*(36*gmet(2,3)**2*dgmetds(2,2)&
2132 : & +144*gmet(2,2)*gmet(2,3)*dgmetds(2,3)+gmet(2,2)*(-108*gmet(3,3)&
2133 193 : & *dgmetds(2,2)+72*gmet(2,2)*dgmetds(3,3))))/24.d0
2134 : cm(18,2,3,3)=gmet(2,2)*(6*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,2)&
2135 193 : & *(3*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)*dgmetds(2,3)))
2136 : cm(19,2,3,3)=(2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2137 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+12*(48*gmet(1,3)*gmet(2,2)&
2138 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2139 : & *dgmetds(2,3)+6*gmet(2,2)*(24*gmet(1,3)*gmet(2,2)+12*gmet(1,2)&
2140 193 : & *gmet(2,3))*dgmetds(3,3))/24.0d0
2141 : cm(20,2,3,3)=(8*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2142 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)+12*(48*gmet(1,3)*gmet(2,2)&
2143 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2144 193 : & *dgmetds(3,3))/48.d0
2145 : cm(21,2,3,3)=((-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(90*gmet(2,3)&
2146 193 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/12.d0
2147 : cm(1,3,3,3)=gmet(1,1)*(4.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
2148 193 : & *dgmetds(1,1)
2149 : cm(2,3,3,3)=(6*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2150 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(30*gmet(2,3)&
2151 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(48*gmet(1,1)*gmet(1,3)&
2152 : & *gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2153 : & *dgmetds(1,2)+2*gmet(1,1)*(54*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3))&
2154 193 : & *dgmetds(2,2))/24.d0
2155 : cm(3,3,3,3)=3*gmet(1,3)**3*dgmetds(1,3)+15*gmet(1,1)*gmet(1,3)&
2156 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,1)*gmet(3,3)*(6*gmet(3,3)*dgmetds(1,1)&
2157 : & -1.5d0*gmet(1,1)*dgmetds(3,3))+gmet(1,3)**2*(3*gmet(3,3)*dgmetds(1,1)&
2158 193 : & +4.5d0*gmet(1,1)*dgmetds(3,3))
2159 : cm(4,3,3,3)=(36*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)*(36*gmet(1,2)&
2160 : & *gmet(3,3)*dgmetds(1,1)+gmet(1,1)*(180*gmet(3,3)*dgmetds(1,2)&
2161 : & +288*gmet(2,3)*dgmetds(1,3)))+gmet(1,1)*gmet(3,3)*(144*gmet(2,3)&
2162 : & *dgmetds(1,1)-108*gmet(1,2)*dgmetds(1,3)-36*gmet(1,1)*dgmetds(2,3))&
2163 : & +gmet(1,3)**2*(36*gmet(2,3)*dgmetds(1,1)+36*gmet(1,2)*dgmetds(1,3)&
2164 193 : & +108*gmet(1,1)*dgmetds(2,3)))/12.d0
2165 : cm(5,3,3,3)=1.5d0*gmet(1,3)**3*dgmetds(1,1)+7.5d0*gmet(1,1)*gmet(1,3)&
2166 : & *gmet(3,3)*dgmetds(1,1)+9*gmet(1,1)*gmet(1,3)**2*dgmetds(1,3)&
2167 193 : & -3*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)
2168 : cm(6,3,3,3)=gmet(1,2)*(1.5d0*gmet(1,3)**2-4.5d0*gmet(1,1)*gmet(3,3))&
2169 : & *dgmetds(1,1)+gmet(1,1)*(12*gmet(1,3)*gmet(2,3)*dgmetds(1,1)&
2170 193 : & +9*gmet(1,3)**2*dgmetds(1,2)-3*gmet(1,1)*gmet(3,3)*dgmetds(1,2))
2171 : cm(7,3,3,3)=(2*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
2172 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(-12*gmet(1,3)**2*gmet(2,2)&
2173 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2174 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(48*gmet(1,1)&
2175 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2176 193 : & *dgmetds(2,2))/24.d0
2177 : cm(8,3,3,3)=(gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)*gmet(3,3))&
2178 : & *dgmetds(1,1)+2*gmet(3,3)*(12*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3))&
2179 : & *dgmetds(1,2)+4*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
2180 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,3)+2*(6*gmet(1,3)&
2181 : & **3+30*gmet(1,1)*gmet(1,3)*gmet(3,3))*dgmetds(2,3)+(48*gmet(1,1)&
2182 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2183 193 : & *dgmetds(3,3))/4.d0
2184 : cm(9,3,3,3)=((48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2185 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+4*(6*gmet(1,3)**2*gmet(2,3)&
2186 : & +6*gmet(1,2)*gmet(1,3)*gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))&
2187 : & *dgmetds(1,2)+2*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2188 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(30*gmet(2,3)&
2189 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+(6*gmet(1,3)**3+30*gmet(1,1)&
2190 : & *gmet(1,3)*gmet(3,3))*dgmetds(2,2)+2*(48*gmet(1,1)*gmet(1,3)&
2191 : & *gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2192 193 : & *dgmetds(2,3))/4.d0
2193 : cm(10,3,3,3)=6*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)+12*gmet(1,1)&
2194 : & *gmet(3,3)**2*dgmetds(1,3)+1.5d0*gmet(1,3)**3*dgmetds(3,3)+gmet(1,3)&
2195 193 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(1,1)+7.5d0*gmet(1,1)*dgmetds(3,3))
2196 : cm(11,3,3,3)=(8*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
2197 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+12*(-12*gmet(1,3)**2*gmet(2,2)&
2198 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2199 193 : & *(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))/48.d0
2200 : cm(12,3,3,3)=(2*gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
2201 : & *gmet(3,3))*dgmetds(1,2)+2*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)&
2202 : & +gmet(1,3)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)&
2203 : & +gmet(3,3)*(12*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3))*dgmetds(2,2)&
2204 : & +4*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)*gmet(3,3)&
2205 : & +24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3)+(-12*gmet(1,3)&
2206 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2207 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
2208 193 : & /4.d0
2209 : cm(13,3,3,3)=(6*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2210 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(-36*gmet(1,3)*gmet(2,2)&
2211 : & *gmet(2,3)+gmet(1,2)*(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2212 : & *dgmetds(1,3)+6*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
2213 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+6*(-12*gmet(1,3)&
2214 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2215 : & +gmet(1,1)*(30*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3))&
2216 193 : & /12.d0
2217 : cm(14,3,3,3)=(gmet(1,3)*gmet(3,3)*(72*gmet(3,3)*dgmetds(1,2)+72*gmet(2,3)&
2218 : & *dgmetds(1,3)+36*gmet(1,2)*dgmetds(3,3))+gmet(1,3)**2*(72*gmet(3,3)&
2219 : & *dgmetds(2,3)+36*gmet(2,3)*dgmetds(3,3))+144*gmet(3,3)*(gmet(1,2)&
2220 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(gmet(3,3)*dgmetds(2,3)+gmet(2,3)&
2221 193 : & *dgmetds(3,3))))/12.d0
2222 : cm(15,3,3,3)=gmet(3,3)*(6*gmet(1,3)*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)&
2223 193 : & **2*dgmetds(3,3)+6*gmet(1,1)*gmet(3,3)*dgmetds(3,3))
2224 : cm(16,3,3,3)=((-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
2225 193 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))/12.d0
2226 : cm(17,3,3,3)=(6*gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
2227 : & *gmet(3,3))*dgmetds(2,2)+12*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)&
2228 : & +gmet(1,3)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)&
2229 : & +2*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
2230 193 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/24.d0
2231 : cm(18,3,3,3)=(12*(48*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2232 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+8*(-36*gmet(1,3)*gmet(2,2)&
2233 : & *gmet(2,3)+gmet(1,2)*(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2234 193 : & *dgmetds(2,3))/48.d0
2235 : cm(19,3,3,3)=(288*gmet(1,2)*gmet(3,3)*(gmet(3,3)*dgmetds(2,3)&
2236 : & +gmet(2,3)*dgmetds(3,3))+gmet(1,3)*(72*gmet(3,3)**2*dgmetds(2,2)&
2237 : & +36*gmet(2,3)**2*dgmetds(3,3)+gmet(3,3)*(144*gmet(2,3)*dgmetds(2,3)&
2238 193 : & -108*gmet(2,2)*dgmetds(3,3))))/24.d0
2239 : cm(20,3,3,3)=gmet(3,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(1,3)&
2240 193 : & *(6*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)*dgmetds(3,3)))
2241 193 : cm(21,3,3,3)=3*gmet(1,3)*gmet(3,3)**2*dgmetds(3,3)
2242 : cm(1,4,3,3)=(gmet(1,1)*(54*gmet(1,2)*gmet(1,3)-18*gmet(1,1)*gmet(2,3))&
2243 193 : & *dgmetds(1,1))/6.d0
2244 : cm(2,4,3,3)=(6*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)&
2245 : & +24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(1,1)+12*(6*gmet(1,2)&
2246 : & **2*gmet(1,3)+24*gmet(1,1)*gmet(1,3)*gmet(2,2)+6*gmet(1,1)*gmet(1,2)&
2247 : & *gmet(2,3))*dgmetds(1,2)+2*gmet(1,1)*(54*gmet(1,2)*gmet(1,3)&
2248 193 : & -18*gmet(1,1)*gmet(2,3))*dgmetds(2,2))/12.0d0
2249 : cm(3,4,3,3)=(6*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
2250 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,1)+12*(6*gmet(1,1)&
2251 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3)))&
2252 : & *dgmetds(1,3)+2*gmet(1,1)*(54*gmet(1,2)*gmet(1,3)-18*gmet(1,1)&
2253 193 : & *gmet(2,3))*dgmetds(3,3))/12.0d0
2254 : cm(4,4,3,3)=(6*(9*gmet(1,3)**2*gmet(2,2)-6*gmet(1,2)*gmet(1,3)&
2255 : & *gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(9*gmet(2,3)**2+15*gmet(2,2)&
2256 : & *gmet(3,3)))*dgmetds(1,1)+6*(6*gmet(1,1)*gmet(1,3)*gmet(2,3)&
2257 : & +gmet(1,2)*(6*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3)))*dgmetds(1,2)&
2258 : & +6*(6*gmet(1,2)**2*gmet(1,3)+24*gmet(1,1)*gmet(1,3)*gmet(2,2)&
2259 : & +6*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(1,3)+2*gmet(1,1)*(54*gmet(1,2)&
2260 193 : & *gmet(1,3)-18*gmet(1,1)*gmet(2,3))*dgmetds(2,3))/6.0d0
2261 : cm(5,4,3,3)=gmet(1,1)*gmet(2,3)*(3*gmet(1,3)*dgmetds(1,1)-6*gmet(1,1)&
2262 : & *dgmetds(1,3))+gmet(1,2)*(3*gmet(1,3)**2*dgmetds(1,1)+12*gmet(1,1)&
2263 193 : & *gmet(3,3)*dgmetds(1,1)+18*gmet(1,1)*gmet(1,3)*dgmetds(1,3))
2264 : cm(6,4,3,3)=3*gmet(1,2)**2*gmet(1,3)*dgmetds(1,1)+gmet(1,1)*gmet(1,2)&
2265 : & *(3*gmet(2,3)*dgmetds(1,1)+18*gmet(1,3)*dgmetds(1,2))+gmet(1,1)&
2266 193 : & *(12*gmet(1,3)*gmet(2,2)*dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(1,2))
2267 : cm(7,4,3,3)=(2*gmet(2,2)*(-18*gmet(1,3)*gmet(2,2)+54*gmet(1,2)&
2268 : & *gmet(2,3))*dgmetds(1,1)+12*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)&
2269 : & +6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(1,2)&
2270 : & +6*(6*gmet(1,2)**2*gmet(1,3)+24*gmet(1,1)*gmet(1,3)*gmet(2,2)&
2271 193 : & +6*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(2,2))/12.d0
2272 : cm(8,4,3,3)=((6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2273 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+2*(6*gmet(1,3)**2*gmet(2,3)&
2274 : & +6*gmet(1,2)*gmet(1,3)*gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))&
2275 : & *dgmetds(1,2)+4*(9*gmet(1,3)**2*gmet(2,2)-6*gmet(1,2)*gmet(1,3)&
2276 : & *gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(9*gmet(2,3)**2+15*gmet(2,2)&
2277 : & *gmet(3,3)))*dgmetds(1,3)+2*(6*gmet(1,1)*gmet(1,3)*gmet(2,3)&
2278 : & +gmet(1,2)*(6*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3)))*dgmetds(2,3)&
2279 : & +(6*gmet(1,2)**2*gmet(1,3)+24*gmet(1,1)*gmet(1,3)*gmet(2,2)+6*gmet(1,1)&
2280 193 : & *gmet(1,2)*gmet(2,3))*dgmetds(3,3))/2.d0
2281 : cm(9,4,3,3)=((6*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
2282 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+4*(9*gmet(1,3)**2*gmet(2,2)&
2283 : & -6*gmet(1,2)*gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2284 : & *(9*gmet(2,3)**2+15*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(6*gmet(1,2)&
2285 : & *gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)*gmet(2,2)&
2286 : & *gmet(2,3))*dgmetds(1,3)+(6*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)&
2287 : & *(6*gmet(1,3)**2+24*gmet(1,1)*gmet(3,3)))*dgmetds(2,2)+2*(6*gmet(1,2)&
2288 : & **2*gmet(1,3)+24*gmet(1,1)*gmet(1,3)*gmet(2,2)+6*gmet(1,1)*gmet(1,2)&
2289 193 : & *gmet(2,3))*dgmetds(2,3))/2.d0
2290 : cm(10,4,3,3)=(2*gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)&
2291 : & *gmet(3,3))*dgmetds(1,1)+12*(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)&
2292 : & *gmet(1,3)*gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,3)&
2293 : & +6*(6*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(6*gmet(1,3)**2+24*gmet(1,1)&
2294 193 : & *gmet(3,3)))*dgmetds(3,3))/12.d0
2295 : cm(11,4,3,3)=gmet(1,3)*gmet(2,2)*(-6*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
2296 : & *dgmetds(2,2))+gmet(2,3)*(18*gmet(1,2)*gmet(2,2)*dgmetds(1,2)&
2297 193 : & +3*gmet(1,2)**2*dgmetds(2,2)+12*gmet(1,1)*gmet(2,2)*dgmetds(2,2))
2298 : cm(12,4,3,3)=(2*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2299 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(6*gmet(1,3)*gmet(2,2)&
2300 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))&
2301 : & *dgmetds(1,3)+(6*gmet(1,3)**2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)&
2302 : & *gmet(3,3)+24*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+4*(9*gmet(1,3)&
2303 : & **2*gmet(2,2)-6*gmet(1,2)*gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)&
2304 : & +gmet(1,1)*(9*gmet(2,3)**2+15*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)&
2305 : & +(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)+24*gmet(1,1)&
2306 193 : & *gmet(2,2)*gmet(2,3))*dgmetds(3,3))/2.d0
2307 : cm(13,4,3,3)=(6*(6*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
2308 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*gmet(2,2)*(-18*gmet(1,3)&
2309 : & *gmet(2,2)+54*gmet(1,2)*gmet(2,3))*dgmetds(1,3)+6*(9*gmet(1,3)&
2310 : & **2*gmet(2,2)-6*gmet(1,2)*gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)&
2311 : & +gmet(1,1)*(9*gmet(2,3)**2+15*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)&
2312 : & +6*(6*gmet(1,2)*gmet(1,3)*gmet(2,2)+6*gmet(1,2)**2*gmet(2,3)&
2313 193 : & +24*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(2,3))/6.d0
2314 : cm(14,4,3,3)=(2*gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)&
2315 : & *gmet(3,3))*dgmetds(1,2)+6*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
2316 : & *(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+6*(6*gmet(1,3)&
2317 : & **2*gmet(2,3)+6*gmet(1,2)*gmet(1,3)*gmet(3,3)+24*gmet(1,1)*gmet(2,3)&
2318 : & *gmet(3,3))*dgmetds(2,3)+6*(9*gmet(1,3)**2*gmet(2,2)-6*gmet(1,2)&
2319 : & *gmet(1,3)*gmet(2,3)+9*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(9*gmet(2,3)&
2320 193 : & **2+15*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/6.d0
2321 : cm(15,4,3,3)=3*gmet(1,3)**2*gmet(2,3)*dgmetds(3,3)+gmet(1,3)*gmet(3,3)&
2322 : & *(18*gmet(2,3)*dgmetds(1,3)+3*gmet(1,2)*dgmetds(3,3))+gmet(3,3)&
2323 : & *(-6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+12*gmet(1,1)*gmet(2,3)&
2324 193 : & *dgmetds(3,3))
2325 : cm(16,4,3,3)=(gmet(2,2)*(-18*gmet(1,3)*gmet(2,2)+54*gmet(1,2)&
2326 193 : & *gmet(2,3))*dgmetds(2,2))/6.d0
2327 : cm(17,4,3,3)=(6*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2328 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+12*(6*gmet(1,3)*gmet(2,2)&
2329 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))&
2330 : & *dgmetds(2,3)+2*gmet(2,2)*(-18*gmet(1,3)*gmet(2,2)+54*gmet(1,2)&
2331 193 : & *gmet(2,3))*dgmetds(3,3))/12.0d0
2332 : cm(18,4,3,3)=gmet(1,3)*gmet(2,2)*(3*gmet(2,3)*dgmetds(2,2)-6*gmet(2,2)&
2333 : & *dgmetds(2,3))+gmet(1,2)*(3*gmet(2,3)**2*dgmetds(2,2)+12*gmet(2,2)&
2334 193 : & *gmet(3,3)*dgmetds(2,2)+18*gmet(2,2)*gmet(2,3)*dgmetds(2,3))
2335 : cm(19,4,3,3)=(2*gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)&
2336 : & *gmet(3,3))*dgmetds(2,2)+12*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)&
2337 : & +gmet(1,3)*(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)&
2338 : & +6*(6*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2+24*gmet(2,2)&
2339 193 : & *gmet(3,3)))*dgmetds(3,3))/12.d0
2340 : cm(20,4,3,3)=gmet(1,2)*gmet(3,3)*(-6*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
2341 : & *dgmetds(3,3))+gmet(1,3)*(18*gmet(2,3)*gmet(3,3)*dgmetds(2,3)&
2342 193 : & +3*gmet(2,3)**2*dgmetds(3,3)+12*gmet(2,2)*gmet(3,3)*dgmetds(3,3))
2343 : cm(21,4,3,3)=(gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)*gmet(3,3))&
2344 193 : & *dgmetds(3,3))/6.d0
2345 193 : cm(1,5,3,3)=3*gmet(1,1)**2*gmet(1,3)*dgmetds(1,1)
2346 : cm(2,5,3,3)=1.5d0*gmet(1,2)**2*gmet(1,3)*dgmetds(1,1)+gmet(1,1)&
2347 : & *gmet(1,2)*(12*gmet(2,3)*dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,2))&
2348 : & +gmet(1,1)*(12*gmet(1,1)*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*(-4.5d0*gmet(2,2)&
2349 193 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))
2350 : cm(3,5,3,3)=1.5d0*gmet(1,3)**3*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)&
2351 : & **2*dgmetds(1,3)+12*gmet(1,1)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)&
2352 193 : & *gmet(1,3)*(7.5d0*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3))
2353 : cm(4,5,3,3)=gmet(1,2)*(3*gmet(1,3)**2*dgmetds(1,1)+12*gmet(1,1)&
2354 : & *gmet(3,3)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)*dgmetds(1,3))+gmet(1,1)&
2355 : & *(6*gmet(1,3)**2*dgmetds(1,2)+12*gmet(1,1)*(gmet(3,3)*dgmetds(1,2)&
2356 : & +gmet(2,3)*dgmetds(1,3))+gmet(1,3)*(3*gmet(2,3)*dgmetds(1,1)&
2357 193 : & +6*gmet(1,1)*dgmetds(2,3)))
2358 : cm(5,5,3,3)=gmet(1,1)*(3*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
2359 193 : & *gmet(3,3)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,3)*dgmetds(1,3))
2360 : cm(6,5,3,3)=gmet(1,1)*(3*gmet(1,2)*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
2361 193 : & *(gmet(2,3)*dgmetds(1,1)+gmet(1,3)*dgmetds(1,2)))
2362 : cm(7,5,3,3)=gmet(1,2)**2*(7.5d0*gmet(2,3)*dgmetds(1,1)+3*gmet(1,3)&
2363 : & *dgmetds(1,2))+gmet(1,1)*(gmet(2,2)*(-1.5d0*gmet(2,3)*dgmetds(1,1)&
2364 : & -9*gmet(1,3)*dgmetds(1,2))+6*gmet(1,1)*gmet(2,3)*dgmetds(2,2))&
2365 : & +gmet(1,2)*(24*gmet(1,1)*gmet(2,3)*dgmetds(1,2)+gmet(1,3)*(-3*gmet(2,2)&
2366 193 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))
2367 : cm(8,5,3,3)=3*gmet(1,3)**3*dgmetds(1,2)+gmet(1,3)**2*(1.5d0*gmet(2,3)&
2368 : & *dgmetds(1,1)+6*(gmet(1,2)*dgmetds(1,3)+gmet(1,1)*dgmetds(2,3)))&
2369 : & +gmet(1,3)*(gmet(1,1)*(15*gmet(3,3)*dgmetds(1,2)+6*gmet(2,3)&
2370 : & *dgmetds(1,3))+gmet(1,2)*(12*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)&
2371 : & *dgmetds(3,3)))+gmet(1,1)*(gmet(3,3)*(24*gmet(1,2)*dgmetds(1,3)&
2372 : & +12*gmet(1,1)*dgmetds(2,3))+gmet(2,3)*(-4.5d0*gmet(3,3)*dgmetds(1,1)&
2373 193 : & +6*gmet(1,1)*dgmetds(3,3)))
2374 : cm(9,5,3,3)=7.5d0*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,1)&
2375 : & *(-3*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)&
2376 : & +24*gmet(1,2)*gmet(3,3)*dgmetds(1,2)+24*gmet(1,2)*gmet(2,3)*dgmetds(1,3))&
2377 : & +gmet(1,3)**2*(-3*gmet(2,2)*dgmetds(1,1)+6*gmet(1,2)*dgmetds(1,2)&
2378 : & +3*gmet(1,1)*dgmetds(2,2))+gmet(1,1)**2*(6*gmet(3,3)*dgmetds(2,2)&
2379 : & +12*gmet(2,3)*dgmetds(2,3))+gmet(1,3)*(3*gmet(1,2)**2*dgmetds(1,3)&
2380 : & +gmet(1,1)*(6*gmet(2,3)*dgmetds(1,2)-9*gmet(2,2)*dgmetds(1,3))&
2381 193 : & +gmet(1,2)*(9*gmet(2,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(2,3)))
2382 : cm(10,5,3,3)=3*gmet(1,3)**3*dgmetds(1,3)+15*gmet(1,1)*gmet(1,3)&
2383 : & *gmet(3,3)*dgmetds(1,3)+gmet(1,3)**2*(4.5d0*gmet(3,3)*dgmetds(1,1)&
2384 : & +3*gmet(1,1)*dgmetds(3,3))+gmet(1,1)*gmet(3,3)*(-1.5d0*gmet(3,3)&
2385 193 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(3,3))
2386 : cm(11,5,3,3)=gmet(1,1)*gmet(2,2)*(-3*gmet(2,3)*dgmetds(1,2)-4.5d0*gmet(1,3)&
2387 : & *dgmetds(2,2))+gmet(1,2)**2*(15*gmet(2,3)*dgmetds(1,2)+1.5d0*gmet(1,3)&
2388 : & *dgmetds(2,2))+gmet(1,2)*(-6*gmet(1,3)*gmet(2,2)*dgmetds(1,2)&
2389 193 : & +12*gmet(1,1)*gmet(2,3)*dgmetds(2,2))
2390 : cm(12,5,3,3)=15*gmet(1,2)**2*gmet(3,3)*dgmetds(1,3)+1.5d0*gmet(1,3)&
2391 : & **3*dgmetds(2,2)+gmet(1,3)**2*(3*gmet(2,3)*dgmetds(1,2)-6*gmet(2,2)&
2392 : & *dgmetds(1,3)+6*gmet(1,2)*dgmetds(2,3))+gmet(1,1)*(-9*gmet(2,3)&
2393 : & *gmet(3,3)*dgmetds(1,2)-6*gmet(2,3)**2*dgmetds(1,3)-3*gmet(2,2)&
2394 : & *gmet(3,3)*dgmetds(1,3)+24*gmet(1,2)*gmet(3,3)*dgmetds(2,3)+12*gmet(1,2)&
2395 : & *gmet(2,3)*dgmetds(3,3))+gmet(1,3)*(gmet(1,2)*(24*gmet(3,3)*dgmetds(1,2)&
2396 : & +18*gmet(2,3)*dgmetds(1,3))+1.5d0*gmet(1,2)**2*dgmetds(3,3)+gmet(1,1)&
2397 : & *(7.5d0*gmet(3,3)*dgmetds(2,2)+6*gmet(2,3)*dgmetds(2,3)-4.5d0*gmet(2,2)&
2398 193 : & *dgmetds(3,3)))
2399 : cm(13,5,3,3)=15*gmet(1,2)**2*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)&
2400 : & *dgmetds(1,3))+gmet(1,3)**2*(-6*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
2401 : & *dgmetds(2,2))+gmet(1,1)*(-6*gmet(2,3)**2*dgmetds(1,2)-3*gmet(2,2)&
2402 : & *gmet(3,3)*dgmetds(1,2)-3*gmet(2,2)*gmet(2,3)*dgmetds(1,3)+12*gmet(1,2)&
2403 : & *gmet(3,3)*dgmetds(2,2)+24*gmet(1,2)*gmet(2,3)*dgmetds(2,3))&
2404 : & +gmet(1,3)*(gmet(1,2)*(18*gmet(2,3)*dgmetds(1,2)-6*gmet(2,2)&
2405 : & *dgmetds(1,3))+3*gmet(1,2)**2*dgmetds(2,3)+gmet(1,1)*(3*gmet(2,3)&
2406 193 : & *dgmetds(2,2)-9*gmet(2,2)*dgmetds(2,3)))
2407 : cm(14,5,3,3)=3*gmet(1,3)**3*dgmetds(2,3)+gmet(1,1)*gmet(3,3)*(-3*gmet(3,3)&
2408 : & *dgmetds(1,2)-9*gmet(2,3)*dgmetds(1,3)+12*gmet(1,2)*dgmetds(3,3))&
2409 : & +gmet(1,3)**2*(9*gmet(3,3)*dgmetds(1,2)+3*(gmet(2,3)*dgmetds(1,3)&
2410 : & +gmet(1,2)*dgmetds(3,3)))+gmet(1,3)*(24*gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
2411 193 : & +gmet(1,1)*(15*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)*dgmetds(3,3)))
2412 : cm(15,5,3,3)=9*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)-3*gmet(1,1)&
2413 : & *gmet(3,3)**2*dgmetds(1,3)+1.5d0*gmet(1,3)**3*dgmetds(3,3)+7.5d0*gmet(1,1)&
2414 193 : & *gmet(1,3)*gmet(3,3)*dgmetds(3,3)
2415 : cm(16,5,3,3)=((-36*gmet(1,2)*gmet(1,3)*gmet(2,2)+90*gmet(1,2)&
2416 : & **2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))*dgmetds(2,2))&
2417 193 : & /12.d0
2418 : cm(17,5,3,3)=gmet(1,3)**2*(1.5d0*gmet(2,3)*dgmetds(2,2)-6*gmet(2,2)&
2419 : & *dgmetds(2,3))+gmet(1,2)*gmet(1,3)*(12*gmet(3,3)*dgmetds(2,2)&
2420 : & +18*gmet(2,3)*dgmetds(2,3)-3*gmet(2,2)*dgmetds(3,3))+gmet(1,2)&
2421 : & **2*(15*gmet(3,3)*dgmetds(2,3)+7.5d0*gmet(2,3)*dgmetds(3,3))&
2422 : & +gmet(1,1)*(-4.5d0*gmet(2,3)*gmet(3,3)*dgmetds(2,2)-6*gmet(2,3)&
2423 : & **2*dgmetds(2,3)-3*gmet(2,2)*gmet(3,3)*dgmetds(2,3)-1.5d0*gmet(2,2)&
2424 193 : & *gmet(2,3)*dgmetds(3,3))
2425 : cm(18,5,3,3)=(12*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2426 : & *gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
2427 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2)+8*(-36*gmet(1,2)*gmet(1,3)&
2428 : & *gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
2429 193 : & *dgmetds(2,3))/48.d0
2430 : cm(19,5,3,3)=7.5d0*gmet(1,2)**2*gmet(3,3)*dgmetds(3,3)+gmet(1,3)&
2431 : & **2*(4.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)*dgmetds(2,3)-3*gmet(2,2)&
2432 : & *dgmetds(3,3))+gmet(1,2)*gmet(1,3)*(24*gmet(3,3)*dgmetds(2,3)&
2433 : & +9*gmet(2,3)*dgmetds(3,3))+gmet(1,1)*(-1.5d0*gmet(3,3)**2*dgmetds(2,2)&
2434 : & -9*gmet(2,3)*gmet(3,3)*dgmetds(2,3)-3*gmet(2,3)**2*dgmetds(3,3)&
2435 193 : & -1.5d0*gmet(2,2)*gmet(3,3)*dgmetds(3,3))
2436 : cm(20,5,3,3)=12*gmet(1,2)*gmet(1,3)*gmet(3,3)*dgmetds(3,3)+gmet(1,1)&
2437 : & *gmet(3,3)*(-3*gmet(3,3)*dgmetds(2,3)-4.5d0*gmet(2,3)*dgmetds(3,3))&
2438 193 : & +gmet(1,3)**2*(9*gmet(3,3)*dgmetds(2,3)+1.5d0*gmet(2,3)*dgmetds(3,3))
2439 : cm(21,5,3,3)=gmet(3,3)*(4.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
2440 193 : & *dgmetds(3,3)
2441 193 : cm(1,6,3,3)=3*gmet(1,1)**2*gmet(1,2)*dgmetds(1,1)
2442 : cm(2,6,3,3)=1.5d0*gmet(1,2)**3*dgmetds(1,1)+6*gmet(1,1)*gmet(1,2)&
2443 : & **2*dgmetds(1,2)+12*gmet(1,1)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,1)&
2444 193 : & *gmet(1,2)*(7.5d0*gmet(2,2)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2))
2445 : cm(3,6,3,3)=12*gmet(1,1)*gmet(2,3)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)&
2446 : & *dgmetds(1,3))+gmet(1,2)*(1.5d0*gmet(1,3)**2*dgmetds(1,1)+6*gmet(1,1)&
2447 : & *gmet(1,3)*dgmetds(1,3)+gmet(1,1)*(-4.5d0*gmet(3,3)*dgmetds(1,1)&
2448 193 : & +3*gmet(1,1)*dgmetds(3,3)))
2449 : cm(4,6,3,3)=gmet(1,2)**2*(3*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)&
2450 : & *dgmetds(1,3))+12*gmet(1,1)*(gmet(1,3)*gmet(2,2)*dgmetds(1,1)&
2451 : & +gmet(1,1)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)*dgmetds(1,3)))+gmet(1,1)&
2452 : & *gmet(1,2)*(3*gmet(2,3)*dgmetds(1,1)+6*(gmet(1,3)*dgmetds(1,2)&
2453 193 : & +gmet(1,1)*dgmetds(2,3)))
2454 : cm(5,6,3,3)=gmet(1,1)*(6*gmet(1,1)*gmet(2,3)*dgmetds(1,1)+gmet(1,2)&
2455 193 : & *(3*gmet(1,3)*dgmetds(1,1)+6*gmet(1,1)*dgmetds(1,3)))
2456 : cm(6,6,3,3)=gmet(1,1)*(3*gmet(1,2)**2*dgmetds(1,1)+6*gmet(1,1)&
2457 193 : & *gmet(2,2)*dgmetds(1,1)+6*gmet(1,1)*gmet(1,2)*dgmetds(1,2))
2458 : cm(7,6,3,3)=3*gmet(1,2)**3*dgmetds(1,2)+15*gmet(1,1)*gmet(1,2)&
2459 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*(4.5d0*gmet(2,2)*dgmetds(1,1)&
2460 : & +3*gmet(1,1)*dgmetds(2,2))+gmet(1,1)*gmet(2,2)*(-1.5d0*gmet(2,2)&
2461 193 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(2,2))
2462 : cm(8,6,3,3)=-3*gmet(1,2)**2*gmet(3,3)*dgmetds(1,1)+gmet(1,3)**2*(7.5d0*gmet(2,2)&
2463 : & *dgmetds(1,1)+3*gmet(1,2)*dgmetds(1,2))+gmet(1,3)*(6*gmet(1,2)&
2464 : & **2*dgmetds(1,3)+24*gmet(1,1)*(gmet(2,3)*dgmetds(1,2)+gmet(2,2)&
2465 : & *dgmetds(1,3))+gmet(1,2)*(9*gmet(2,3)*dgmetds(1,1)+6*gmet(1,1)&
2466 : & *dgmetds(2,3)))+gmet(1,1)*(-3*gmet(2,3)**2*dgmetds(1,1)-1.5d0*gmet(2,2)&
2467 : & *gmet(3,3)*dgmetds(1,1)-9*gmet(1,2)*gmet(3,3)*dgmetds(1,2)+6*gmet(1,2)&
2468 : & *gmet(2,3)*dgmetds(1,3)+3*gmet(1,2)**2*dgmetds(3,3))+gmet(1,1)&
2469 193 : & **2*(12*gmet(2,3)*dgmetds(2,3)+6*gmet(2,2)*dgmetds(3,3))
2470 : cm(9,6,3,3)=3*gmet(1,2)**3*dgmetds(1,3)+gmet(1,2)*(gmet(1,1)*(6*gmet(2,3)&
2471 : & *dgmetds(1,2)+15*gmet(2,2)*dgmetds(1,3))+gmet(1,3)*(12*gmet(2,2)&
2472 : & *dgmetds(1,1)+3*gmet(1,1)*dgmetds(2,2)))+gmet(1,2)**2*(1.5d0*gmet(2,3)&
2473 : & *dgmetds(1,1)+6*(gmet(1,3)*dgmetds(1,2)+gmet(1,1)*dgmetds(2,3)))&
2474 : & +gmet(1,1)*(6*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(-4.5d0*gmet(2,3)&
2475 193 : & *dgmetds(1,1)+24*gmet(1,3)*dgmetds(1,2)+12*gmet(1,1)*dgmetds(2,3)))
2476 : cm(10,6,3,3)=gmet(1,3)**2*(7.5d0*gmet(2,3)*dgmetds(1,1)+3*gmet(1,2)&
2477 : & *dgmetds(1,3))+gmet(1,3)*(24*gmet(1,1)*gmet(2,3)*dgmetds(1,3)&
2478 : & +gmet(1,2)*(-3*gmet(3,3)*dgmetds(1,1)+3*gmet(1,1)*dgmetds(3,3)))&
2479 : & +gmet(1,1)*(-9*gmet(1,2)*gmet(3,3)*dgmetds(1,3)+gmet(2,3)*(-1.5d0*gmet(3,3)&
2480 193 : & *dgmetds(1,1)+6*gmet(1,1)*dgmetds(3,3)))
2481 : cm(11,6,3,3)=9*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)-3*gmet(1,1)&
2482 : & *gmet(2,2)**2*dgmetds(1,2)+1.5d0*gmet(1,2)**3*dgmetds(2,2)+7.5d0*gmet(1,1)&
2483 193 : & *gmet(1,2)*gmet(2,2)*dgmetds(2,2)
2484 : cm(12,6,3,3)=gmet(1,3)**2*(15*gmet(2,2)*dgmetds(1,2)+1.5d0*gmet(1,2)&
2485 : & *dgmetds(2,2))+gmet(1,3)*(gmet(1,2)*(18*gmet(2,3)*dgmetds(1,2)&
2486 : & +24*gmet(2,2)*dgmetds(1,3))+6*gmet(1,2)**2*dgmetds(2,3)+gmet(1,1)&
2487 : & *(12*gmet(2,3)*dgmetds(2,2)+24*gmet(2,2)*dgmetds(2,3)))+gmet(1,2)&
2488 : & **2*(-6*gmet(3,3)*dgmetds(1,2)+3*gmet(2,3)*dgmetds(1,3)+1.5d0*gmet(1,2)&
2489 : & *dgmetds(3,3))+gmet(1,1)*(-6*gmet(2,3)**2*dgmetds(1,2)-3*gmet(2,2)&
2490 : & *gmet(3,3)*dgmetds(1,2)-9*gmet(2,2)*gmet(2,3)*dgmetds(1,3)-4.5d0*gmet(1,2)&
2491 : & *gmet(3,3)*dgmetds(2,2)+6*gmet(1,2)*gmet(2,3)*dgmetds(2,3)+7.5d0*gmet(1,2)&
2492 193 : & *gmet(2,2)*dgmetds(3,3))
2493 : cm(13,6,3,3)=gmet(1,2)**2*(3*gmet(2,3)*dgmetds(1,2)+9*gmet(2,2)&
2494 : & *dgmetds(1,3)+3*gmet(1,3)*dgmetds(2,2))+gmet(1,1)*gmet(2,2)*(-9*gmet(2,3)&
2495 : & *dgmetds(1,2)-3*gmet(2,2)*dgmetds(1,3)+12*gmet(1,3)*dgmetds(2,2))&
2496 : & +3*gmet(1,2)**3*dgmetds(2,3)+gmet(1,2)*(24*gmet(1,3)*gmet(2,2)&
2497 : & *dgmetds(1,2)+gmet(1,1)*(3*gmet(2,3)*dgmetds(2,2)+15*gmet(2,2)&
2498 193 : & *dgmetds(2,3)))
2499 : cm(14,6,3,3)=-6*gmet(1,2)**2*gmet(3,3)*dgmetds(1,3)+gmet(1,3)&
2500 : & **2*(15*gmet(2,3)*dgmetds(1,2)+15*gmet(2,2)*dgmetds(1,3)+3*gmet(1,2)&
2501 : & *dgmetds(2,3))+gmet(1,1)*(-3*gmet(2,3)*gmet(3,3)*dgmetds(1,2)&
2502 : & -6*gmet(2,3)**2*dgmetds(1,3)-3*gmet(2,2)*gmet(3,3)*dgmetds(1,3)&
2503 : & -9*gmet(1,2)*gmet(3,3)*dgmetds(2,3)+3*gmet(1,2)*gmet(2,3)*dgmetds(3,3))&
2504 : & +gmet(1,3)*(gmet(1,2)*(-6*gmet(3,3)*dgmetds(1,2)+18*gmet(2,3)&
2505 : & *dgmetds(1,3))+3*gmet(1,2)**2*dgmetds(3,3)+gmet(1,1)*(24*gmet(2,3)&
2506 193 : & *dgmetds(2,3)+12*gmet(2,2)*dgmetds(3,3)))
2507 : cm(15,6,3,3)=gmet(1,1)*gmet(3,3)*(-3*gmet(2,3)*dgmetds(1,3)-4.5d0*gmet(1,2)&
2508 : & *dgmetds(3,3))+gmet(1,3)**2*(15*gmet(2,3)*dgmetds(1,3)+1.5d0*gmet(1,2)&
2509 : & *dgmetds(3,3))+gmet(1,3)*(-6*gmet(1,2)*gmet(3,3)*dgmetds(1,3)&
2510 193 : & +12*gmet(1,1)*gmet(2,3)*dgmetds(3,3))
2511 : cm(16,6,3,3)=gmet(2,2)*(4.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
2512 193 : & *dgmetds(2,2)
2513 : cm(17,6,3,3)=7.5d0*gmet(1,3)**2*gmet(2,2)*dgmetds(2,2)+gmet(1,2)&
2514 : & *gmet(1,3)*(9*gmet(2,3)*dgmetds(2,2)+24*gmet(2,2)*dgmetds(2,3))&
2515 : & +gmet(1,2)**2*(-3*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)*dgmetds(2,3)&
2516 : & +4.5d0*gmet(2,2)*dgmetds(3,3))+gmet(1,1)*(-3*gmet(2,3)**2*dgmetds(2,2)&
2517 : & -9*gmet(2,2)*gmet(2,3)*dgmetds(2,3)-1.5d0*gmet(2,2)*(gmet(3,3)&
2518 193 : & *dgmetds(2,2)+gmet(2,2)*dgmetds(3,3)))
2519 : cm(18,6,3,3)=12*gmet(1,2)*gmet(1,3)*gmet(2,2)*dgmetds(2,2)+gmet(1,1)&
2520 : & *gmet(2,2)*(-4.5d0*gmet(2,3)*dgmetds(2,2)-3*gmet(2,2)*dgmetds(2,3))&
2521 193 : & +gmet(1,2)**2*(1.5d0*gmet(2,3)*dgmetds(2,2)+9*gmet(2,2)*dgmetds(2,3))
2522 : cm(19,6,3,3)=gmet(1,3)**2*(7.5d0*gmet(2,3)*dgmetds(2,2)+15*gmet(2,2)&
2523 : & *dgmetds(2,3))+gmet(1,2)*gmet(1,3)*(-3*gmet(3,3)*dgmetds(2,2)&
2524 : & +18*gmet(2,3)*dgmetds(2,3)+12*gmet(2,2)*dgmetds(3,3))+gmet(1,2)&
2525 : & **2*(-6*gmet(3,3)*dgmetds(2,3)+1.5d0*gmet(2,3)*dgmetds(3,3))&
2526 : & +gmet(1,1)*(-1.5d0*gmet(2,3)*gmet(3,3)*dgmetds(2,2)-6*gmet(2,3)&
2527 : & **2*dgmetds(2,3)-3*gmet(2,2)*gmet(3,3)*dgmetds(2,3)-4.5d0*gmet(2,2)&
2528 193 : & *gmet(2,3)*dgmetds(3,3))
2529 : cm(20,6,3,3)=(8*(90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
2530 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3)+12*(30*gmet(1,3)&
2531 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2532 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))&
2533 193 : & /48.d0
2534 : cm(21,6,3,3)=((90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)&
2535 193 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(3,3))/12.d0
2536 : cm(1,7,3,3)=gmet(1,2)*(2.5d0*gmet(1,2)**2-1.5d0*gmet(1,1)*gmet(2,2))&
2537 193 : & *dgmetds(1,1)
2538 : cm(2,7,3,3)=9*gmet(1,2)**2*gmet(2,2)*dgmetds(1,2)-3*gmet(1,1)&
2539 : & *gmet(2,2)**2*dgmetds(1,2)+2.5d0*gmet(1,2)**3*dgmetds(2,2)+gmet(1,2)&
2540 193 : & *gmet(2,2)*(3*gmet(2,2)*dgmetds(1,1)-1.5d0*gmet(1,1)*dgmetds(2,2))
2541 : cm(3,7,3,3)=(6*(-36*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(90*gmet(2,3)&
2542 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(-36*gmet(1,2)*gmet(1,3)&
2543 : & *gmet(2,2)+90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
2544 : & *dgmetds(1,3)+2*(90*gmet(1,2)**3-54*gmet(1,1)*gmet(1,2)*gmet(2,2))&
2545 193 : & *dgmetds(3,3))/72.d0
2546 : cm(4,7,3,3)=(6*gmet(2,2)*(-18*gmet(1,3)*gmet(2,2)+54*gmet(1,2)&
2547 : & *gmet(2,3))*dgmetds(1,1)+6*(-36*gmet(1,2)*gmet(1,3)*gmet(2,2)&
2548 : & +90*gmet(1,2)**2*gmet(2,3)-18*gmet(1,1)*gmet(2,2)*gmet(2,3))&
2549 : & *dgmetds(1,2)+6*gmet(2,2)*(54*gmet(1,2)**2-18*gmet(1,1)*gmet(2,2))&
2550 : & *dgmetds(1,3)+2*(90*gmet(1,2)**3-54*gmet(1,1)*gmet(1,2)*gmet(2,2))&
2551 193 : & *dgmetds(2,3))/36.d0
2552 : cm(5,7,3,3)=7.5d0*gmet(1,2)**2*gmet(2,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
2553 : & *gmet(2,2)*gmet(2,3)*dgmetds(1,1)+5*gmet(1,2)**3*dgmetds(1,3)&
2554 193 : & -3*gmet(1,2)*gmet(2,2)*(gmet(1,3)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,3))
2555 : cm(6,7,3,3)=4.5d0*gmet(1,2)**2*gmet(2,2)*dgmetds(1,1)-1.5d0*gmet(1,1)&
2556 : & *gmet(2,2)**2*dgmetds(1,1)+5*gmet(1,2)**3*dgmetds(1,2)-3*gmet(1,1)&
2557 193 : & *gmet(1,2)*gmet(2,2)*dgmetds(1,2)
2558 : cm(7,7,3,3)=gmet(2,2)*(1*gmet(2,2)**2*dgmetds(1,1)+4.5d0*gmet(1,2)&
2559 : & **2*dgmetds(2,2)+gmet(2,2)*(6*gmet(1,2)*dgmetds(1,2)-1.5d0*gmet(1,1)&
2560 193 : & *dgmetds(2,2)))
2561 : cm(8,7,3,3)=(180*gmet(1,2)*gmet(2,3)*(gmet(2,3)*dgmetds(1,2)+gmet(1,2)&
2562 : & *dgmetds(2,3))+gmet(2,2)**2*(-18*gmet(3,3)*dgmetds(1,1)-72*gmet(1,3)&
2563 : & *dgmetds(1,3)-18*gmet(1,1)*dgmetds(3,3))+gmet(2,2)*(54*gmet(2,3)&
2564 : & **2*dgmetds(1,1)+gmet(2,3)*(-72*gmet(1,3)*dgmetds(1,2)+216*gmet(1,2)&
2565 : & *dgmetds(1,3)-36*gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(-36*gmet(3,3)&
2566 : & *dgmetds(1,2)-72*gmet(1,3)*dgmetds(2,3)+54*gmet(1,2)*dgmetds(3,3))))&
2567 193 : & /12.d0
2568 : cm(9,7,3,3)=(180*gmet(1,2)**2*gmet(2,3)*dgmetds(2,2)+gmet(2,2)&
2569 : & **2*(72*gmet(2,3)*dgmetds(1,1)-144*gmet(1,3)*dgmetds(1,2)+144*gmet(1,2)&
2570 : & *dgmetds(1,3)-72*gmet(1,1)*dgmetds(2,3))+gmet(2,2)*(-36*gmet(1,1)&
2571 : & *gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(432*gmet(2,3)*dgmetds(1,2)&
2572 193 : & -72*gmet(1,3)*dgmetds(2,2))+216*gmet(1,2)**2*dgmetds(2,3)))/24.d0
2573 : cm(10,7,3,3)=(180*gmet(2,3)**3*dgmetds(1,1)+1080*gmet(1,2)*gmet(2,3)&
2574 : & **2*dgmetds(1,3)-216*gmet(1,2)*gmet(2,2)*(gmet(3,3)*dgmetds(1,3)&
2575 : & +gmet(1,3)*dgmetds(3,3))+gmet(2,3)*(540*gmet(1,2)**2*dgmetds(3,3)&
2576 : & +gmet(2,2)*(-108*gmet(3,3)*dgmetds(1,1)-432*gmet(1,3)*dgmetds(1,3)&
2577 193 : & -108*gmet(1,1)*dgmetds(3,3))))/72.d0
2578 : cm(11,7,3,3)=gmet(2,2)**2*(2*gmet(2,2)*dgmetds(1,2)+3*gmet(1,2)&
2579 193 : & *dgmetds(2,2))
2580 : cm(12,7,3,3)=(180*gmet(1,2)*gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)&
2581 : & *(216*gmet(2,3)**2*dgmetds(1,2)-36*gmet(1,2)*gmet(3,3)*dgmetds(2,2)&
2582 : & +gmet(2,3)*(-72*gmet(1,3)*dgmetds(2,2)+432*gmet(1,2)*dgmetds(2,3)))&
2583 : & +gmet(2,2)**2*(-72*gmet(3,3)*dgmetds(1,2)+144*gmet(2,3)*dgmetds(1,3)&
2584 193 : & -144*gmet(1,3)*dgmetds(2,3)+72*gmet(1,2)*dgmetds(3,3)))/24.d0
2585 : cm(13,7,3,3)=gmet(2,2)*(2*gmet(2,2)**2*dgmetds(1,3)+9*gmet(1,2)&
2586 : & *gmet(2,3)*dgmetds(2,2)+gmet(2,2)*(6*gmet(2,3)*dgmetds(1,2)-3*gmet(1,3)&
2587 193 : & *dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3)))
2588 : cm(14,7,3,3)=(180*gmet(2,3)**3*dgmetds(1,2)+gmet(2,3)**2*(324*gmet(2,2)&
2589 : & *dgmetds(1,3)+540*gmet(1,2)*dgmetds(2,3))+gmet(2,2)*gmet(2,3)&
2590 : & *(-108*gmet(3,3)*dgmetds(1,2)-216*gmet(1,3)*dgmetds(2,3)+324*gmet(1,2)&
2591 : & *dgmetds(3,3))-108*gmet(2,2)*(gmet(1,2)*gmet(3,3)*dgmetds(2,3)&
2592 : & +gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))))&
2593 193 : & /36.d0
2594 : cm(15,7,3,3)=5*gmet(2,3)**3*dgmetds(1,3)+7.5d0*gmet(1,2)*gmet(2,3)&
2595 : & **2*dgmetds(3,3)-1.5d0*gmet(1,2)*gmet(2,2)*gmet(3,3)*dgmetds(3,3)&
2596 193 : & -3*gmet(2,2)*gmet(2,3)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)*dgmetds(3,3))
2597 193 : cm(16,7,3,3)=gmet(2,2)**3*dgmetds(2,2)
2598 : cm(17,7,3,3)=gmet(2,2)*(4.5d0*gmet(2,3)**2*dgmetds(2,2)+6*gmet(2,2)&
2599 : & *gmet(2,3)*dgmetds(2,3)+gmet(2,2)*(-1.5d0*gmet(3,3)*dgmetds(2,2)&
2600 193 : & +gmet(2,2)*dgmetds(3,3)))
2601 : cm(18,7,3,3)=gmet(2,2)**2*(3*gmet(2,3)*dgmetds(2,2)+2*gmet(2,2)&
2602 193 : & *dgmetds(2,3))
2603 : cm(19,7,3,3)=2.5d0*gmet(2,3)**3*dgmetds(2,2)+9*gmet(2,2)*gmet(2,3)&
2604 : & **2*dgmetds(2,3)-3*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)+gmet(2,2)&
2605 193 : & *gmet(2,3)*(-1.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,2)*dgmetds(3,3))
2606 : cm(20,7,3,3)=5*gmet(2,3)**3*dgmetds(2,3)-3*gmet(2,2)*gmet(2,3)&
2607 : & *gmet(3,3)*dgmetds(2,3)+4.5d0*gmet(2,2)*gmet(2,3)**2*dgmetds(3,3)&
2608 193 : & -1.5d0*gmet(2,2)**2*gmet(3,3)*dgmetds(3,3)
2609 : cm(21,7,3,3)=gmet(2,3)*(2.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
2610 193 : & *dgmetds(3,3)
2611 : cm(1,8,3,3)=((-36*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)&
2612 193 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(1,1))/12.d0
2613 : cm(2,8,3,3)=(6*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)&
2614 : & **2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+12*(30*gmet(1,3)**2*gmet(2,2)&
2615 : & +36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)&
2616 : & *(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(-36*gmet(1,1)&
2617 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)&
2618 193 : & *gmet(3,3)))*dgmetds(2,2))/24.d0
2619 : cm(3,8,3,3)=(6*gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
2620 : & *gmet(3,3))*dgmetds(1,1)+12*(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)&
2621 : & *gmet(1,3)*gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,3)&
2622 : & +2*(-36*gmet(1,1)*gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)&
2623 193 : & **2-18*gmet(1,1)*gmet(3,3)))*dgmetds(3,3))/24.d0
2624 : cm(4,8,3,3)=(6*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2625 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+6*(6*gmet(1,3)**2*gmet(2,3)&
2626 : & +48*gmet(1,2)*gmet(1,3)*gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))&
2627 : & *dgmetds(1,2)+6*(30*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2628 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
2629 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+2*(-36*gmet(1,1)*gmet(1,3)&
2630 : & *gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2631 193 : & *dgmetds(2,3))/12.d0
2632 : cm(5,8,3,3)=(12*(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)&
2633 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(1,1)+8*(-36*gmet(1,1)&
2634 : & *gmet(1,3)*gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)&
2635 193 : & *gmet(3,3)))*dgmetds(1,3))/48.d0
2636 : cm(6,8,3,3)=(12*(30*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2637 : & *gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
2638 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+8*(-36*gmet(1,1)*gmet(1,3)&
2639 : & *gmet(2,3)+gmet(1,2)*(90*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3)))&
2640 193 : & *dgmetds(1,2))/48.d0
2641 : cm(7,8,3,3)=(2*gmet(2,2)*(54*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3))&
2642 : & *dgmetds(1,1)+12*(48*gmet(1,3)*gmet(2,2)*gmet(2,3)+gmet(1,2)&
2643 : & *(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(30*gmet(1,3)&
2644 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2645 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,2))&
2646 193 : & /24.d0
2647 : cm(8,8,3,3)=(gmet(3,3)*(12*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3))&
2648 : & *dgmetds(1,1)+2*gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
2649 : & *gmet(3,3))*dgmetds(1,2)+4*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
2650 : & *(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)+2*(6*gmet(1,3)&
2651 : & **2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)*gmet(3,3)-18*gmet(1,1)*gmet(2,3)&
2652 : & *gmet(3,3))*dgmetds(2,3)+(30*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)&
2653 : & *gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
2654 193 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(3,3))/4.d0
2655 : cm(9,8,3,3)=((6*gmet(2,3)**3+30*gmet(2,2)*gmet(2,3)*gmet(3,3))&
2656 : & *dgmetds(1,1)+4*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)*(6*gmet(2,3)&
2657 : & **2+24*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+2*(48*gmet(1,3)*gmet(2,2)&
2658 : & *gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2659 : & *dgmetds(1,3)+(6*gmet(1,3)**2*gmet(2,3)+48*gmet(1,2)*gmet(1,3)&
2660 : & *gmet(3,3)-18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,2)+2*(30*gmet(1,3)&
2661 : & **2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)*gmet(2,3)-12*gmet(1,2)**2*gmet(3,3)&
2662 : & +gmet(1,1)*(-12*gmet(2,3)**2-6*gmet(2,2)*gmet(3,3)))*dgmetds(2,3))&
2663 193 : & /4.d0
2664 : cm(10,8,3,3)=(288*gmet(1,2)*gmet(3,3)*(gmet(3,3)*dgmetds(1,3)&
2665 : & +gmet(1,3)*dgmetds(3,3))+gmet(2,3)*(72*gmet(3,3)**2*dgmetds(1,1)&
2666 : & +36*gmet(1,3)**2*dgmetds(3,3)+gmet(3,3)*(144*gmet(1,3)*dgmetds(1,3)&
2667 193 : & -108*gmet(1,1)*dgmetds(3,3))))/24.d0
2668 : cm(11,8,3,3)=-3*gmet(2,2)**2*gmet(3,3)*dgmetds(1,2)+1.5d0*gmet(1,2)&
2669 : & *gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)*(9*gmet(2,3)**2*dgmetds(1,2)&
2670 : & +12*gmet(1,3)*gmet(2,3)*dgmetds(2,2)-4.5d0*gmet(1,2)*gmet(3,3)&
2671 193 : & *dgmetds(2,2))
2672 : cm(12,8,3,3)=(2*gmet(3,3)*(12*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3))&
2673 : & *dgmetds(1,2)+2*(6*gmet(2,3)**3+30*gmet(2,2)*gmet(2,3)*gmet(3,3))&
2674 : & *dgmetds(1,3)+gmet(3,3)*(12*gmet(1,3)*gmet(2,3)+24*gmet(1,2)&
2675 : & *gmet(3,3))*dgmetds(2,2)+4*(6*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
2676 : & *(6*gmet(2,3)**2+24*gmet(2,2)*gmet(3,3)))*dgmetds(2,3)+(48*gmet(1,3)&
2677 : & *gmet(2,2)*gmet(2,3)+gmet(1,2)*(6*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))&
2678 193 : & *dgmetds(3,3))/4.d0
2679 : cm(13,8,3,3)=(36*gmet(2,3)**3*dgmetds(1,2)+gmet(2,2)*gmet(3,3)&
2680 : & *(-36*gmet(2,2)*dgmetds(1,3)+144*gmet(1,3)*dgmetds(2,2)-108*gmet(1,2)&
2681 : & *dgmetds(2,3))+gmet(2,3)**2*(108*gmet(2,2)*dgmetds(1,3)+36*(gmet(1,3)&
2682 : & *dgmetds(2,2)+gmet(1,2)*dgmetds(2,3)))+gmet(2,3)*(36*gmet(1,2)&
2683 : & *gmet(3,3)*dgmetds(2,2)+gmet(2,2)*(180*gmet(3,3)*dgmetds(1,2)&
2684 193 : & +288*gmet(1,3)*dgmetds(2,3))))/12.d0
2685 : cm(14,8,3,3)=(gmet(2,3)*gmet(3,3)*(72*gmet(3,3)*dgmetds(1,2)+72*gmet(1,3)&
2686 : & *dgmetds(2,3)+36*gmet(1,2)*dgmetds(3,3))+gmet(2,3)**2*(72*gmet(3,3)&
2687 : & *dgmetds(1,3)+36*gmet(1,3)*dgmetds(3,3))+144*gmet(3,3)*(gmet(1,2)&
2688 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,2)*(gmet(3,3)*dgmetds(1,3)+gmet(1,3)&
2689 193 : & *dgmetds(3,3))))/12.d0
2690 : cm(15,8,3,3)=gmet(3,3)*(6*gmet(1,2)*gmet(3,3)*dgmetds(3,3)+gmet(2,3)&
2691 193 : & *(6*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)*dgmetds(3,3)))
2692 : cm(16,8,3,3)=gmet(2,2)*(4.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
2693 193 : & *dgmetds(2,2)
2694 : cm(17,8,3,3)=3*gmet(2,3)**3*dgmetds(2,3)+15*gmet(2,2)*gmet(2,3)&
2695 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,2)*gmet(3,3)*(6*gmet(3,3)*dgmetds(2,2)&
2696 : & -1.5d0*gmet(2,2)*dgmetds(3,3))+gmet(2,3)**2*(3*gmet(3,3)*dgmetds(2,2)&
2697 193 : & +4.5d0*gmet(2,2)*dgmetds(3,3))
2698 : cm(18,8,3,3)=1.5d0*gmet(2,3)**3*dgmetds(2,2)+7.5d0*gmet(2,2)*gmet(2,3)&
2699 : & *gmet(3,3)*dgmetds(2,2)+9*gmet(2,2)*gmet(2,3)**2*dgmetds(2,3)&
2700 193 : & -3*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)
2701 : cm(19,8,3,3)=6*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)+12*gmet(2,2)&
2702 : & *gmet(3,3)**2*dgmetds(2,3)+1.5d0*gmet(2,3)**3*dgmetds(3,3)+gmet(2,3)&
2703 193 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(2,2)+7.5d0*gmet(2,2)*dgmetds(3,3))
2704 : cm(20,8,3,3)=gmet(3,3)*(6*gmet(2,3)*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
2705 193 : & **2*dgmetds(3,3)+6*gmet(2,2)*gmet(3,3)*dgmetds(3,3))
2706 193 : cm(21,8,3,3)=3*gmet(2,3)*gmet(3,3)**2*dgmetds(3,3)
2707 : cm(1,9,3,3)=((90*gmet(1,2)**2*gmet(1,3)-18*gmet(1,1)*gmet(1,3)&
2708 193 : & *gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))*dgmetds(1,1))/12.d0
2709 : cm(2,9,3,3)=gmet(2,3)*(3*gmet(1,2)**2*dgmetds(1,2)-9*gmet(1,1)&
2710 : & *gmet(2,2)*dgmetds(1,2)+gmet(1,2)*(3*gmet(2,2)*dgmetds(1,1)-3*gmet(1,1)&
2711 : & *dgmetds(2,2)))+gmet(1,3)*(6*gmet(2,2)**2*dgmetds(1,1)+7.5d0*gmet(1,2)&
2712 : & **2*dgmetds(2,2)+gmet(2,2)*(24*gmet(1,2)*dgmetds(1,2)-1.5d0*gmet(1,1)&
2713 193 : & *dgmetds(2,2)))
2714 : cm(3,9,3,3)=-6*gmet(1,3)**2*gmet(2,2)*dgmetds(1,3)+15*gmet(1,2)&
2715 : & **2*gmet(3,3)*dgmetds(1,3)+gmet(1,1)*(-6*gmet(2,3)**2-3*gmet(2,2)&
2716 : & *gmet(3,3))*dgmetds(1,3)+gmet(1,2)*gmet(2,3)*(12*gmet(3,3)*dgmetds(1,1)&
2717 : & -3*gmet(1,1)*dgmetds(3,3))+gmet(1,3)*(1.5d0*gmet(2,3)**2*dgmetds(1,1)&
2718 : & -4.5d0*gmet(2,2)*gmet(3,3)*dgmetds(1,1)+18*gmet(1,2)*gmet(2,3)&
2719 : & *dgmetds(1,3)+7.5d0*gmet(1,2)**2*dgmetds(3,3)-1.5d0*gmet(1,1)&
2720 193 : & *gmet(2,2)*dgmetds(3,3))
2721 : cm(4,9,3,3)=-6*gmet(1,3)**2*gmet(2,2)*dgmetds(1,2)+gmet(1,2)**2*(15*gmet(3,3)&
2722 : & *dgmetds(1,2)+3*gmet(2,3)*dgmetds(1,3))+gmet(1,1)*(-6*gmet(2,3)&
2723 : & **2*dgmetds(1,2)-3*gmet(2,2)*gmet(3,3)*dgmetds(1,2)-9*gmet(2,2)&
2724 : & *gmet(2,3)*dgmetds(1,3))+gmet(1,2)*(3*gmet(2,3)**2*dgmetds(1,1)&
2725 : & +12*gmet(2,2)*gmet(3,3)*dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(2,3))&
2726 : & +gmet(1,3)*(gmet(2,2)*(3*gmet(2,3)*dgmetds(1,1)+24*gmet(1,2)&
2727 : & *dgmetds(1,3)-3*gmet(1,1)*dgmetds(2,3))+gmet(1,2)*(18*gmet(2,3)&
2728 193 : & *dgmetds(1,2)+15*gmet(1,2)*dgmetds(2,3)))
2729 : cm(5,9,3,3)=(12*(-12*gmet(1,3)**2*gmet(2,2)+36*gmet(1,2)*gmet(1,3)&
2730 : & *gmet(2,3)+30*gmet(1,2)**2*gmet(3,3)+gmet(1,1)*(-12*gmet(2,3)&
2731 : & **2-6*gmet(2,2)*gmet(3,3)))*dgmetds(1,1)+8*(90*gmet(1,2)**2*gmet(1,3)&
2732 : & -18*gmet(1,1)*gmet(1,3)*gmet(2,2)-36*gmet(1,1)*gmet(1,2)*gmet(2,3))&
2733 193 : & *dgmetds(1,3))/48.d0
2734 : cm(6,9,3,3)=gmet(1,1)*gmet(2,2)*(-4.5d0*gmet(2,3)*dgmetds(1,1)&
2735 : & -3*gmet(1,3)*dgmetds(1,2))+gmet(1,2)**2*(1.5d0*gmet(2,3)*dgmetds(1,1)&
2736 : & +15*gmet(1,3)*dgmetds(1,2))+gmet(1,2)*(12*gmet(1,3)*gmet(2,2)&
2737 193 : & *dgmetds(1,1)-6*gmet(1,1)*gmet(2,3)*dgmetds(1,2))
2738 : cm(7,9,3,3)=gmet(2,2)**2*(3*gmet(2,3)*dgmetds(1,1)+12*gmet(1,3)&
2739 : & *dgmetds(1,2))+1.5d0*gmet(1,2)**2*gmet(2,3)*dgmetds(2,2)+gmet(2,2)&
2740 : & *(-4.5d0*gmet(1,1)*gmet(2,3)*dgmetds(2,2)+gmet(1,2)*(6*gmet(2,3)&
2741 193 : & *dgmetds(1,2)+12*gmet(1,3)*dgmetds(2,2)))
2742 : cm(8,9,3,3)=1.5d0*gmet(2,3)**3*dgmetds(1,1)-6*gmet(1,3)**2*gmet(2,2)&
2743 : & *dgmetds(2,3)+gmet(2,3)**2*(3*gmet(1,3)*dgmetds(1,2)+6*gmet(1,2)&
2744 : & *dgmetds(1,3)-6*gmet(1,1)*dgmetds(2,3))+gmet(3,3)*(24*gmet(1,2)&
2745 : & *gmet(2,2)*dgmetds(1,3)+15*gmet(1,2)**2*dgmetds(2,3)-3*gmet(1,1)&
2746 : & *gmet(2,2)*dgmetds(2,3))+gmet(1,3)*gmet(2,2)*(-9*gmet(3,3)*dgmetds(1,2)&
2747 : & +12*gmet(1,2)*dgmetds(3,3))+gmet(2,3)*(gmet(2,2)*(7.5d0*gmet(3,3)&
2748 : & *dgmetds(1,1)+6*gmet(1,3)*dgmetds(1,3)-4.5d0*gmet(1,1)*dgmetds(3,3))&
2749 : & +gmet(1,2)*(24*gmet(3,3)*dgmetds(1,2)+18*gmet(1,3)*dgmetds(2,3)&
2750 193 : & +1.5d0*gmet(1,2)*dgmetds(3,3)))
2751 : cm(9,9,3,3)=gmet(2,2)**2*(6*gmet(3,3)*dgmetds(1,1)+12*gmet(1,3)&
2752 : & *dgmetds(1,3))-3*gmet(1,1)*gmet(2,3)**2*dgmetds(2,2)+gmet(1,2)&
2753 : & *gmet(2,3)*(6*gmet(2,3)*dgmetds(1,2)+9*gmet(1,3)*dgmetds(2,2))&
2754 : & +gmet(1,2)**2*(7.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,3)*dgmetds(2,3))&
2755 : & +gmet(2,2)*(3*gmet(2,3)**2*dgmetds(1,1)+(-3*gmet(1,3)**2-1.5d0*gmet(1,1)&
2756 : & *gmet(3,3))*dgmetds(2,2)+gmet(2,3)*(6*gmet(1,3)*dgmetds(1,2)&
2757 : & +6*gmet(1,2)*dgmetds(1,3)-9*gmet(1,1)*dgmetds(2,3))+24*gmet(1,2)&
2758 193 : & *(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3)))
2759 : cm(10,9,3,3)=7.5d0*gmet(1,2)**2*gmet(3,3)*dgmetds(3,3)+gmet(2,3)&
2760 : & **2*(4.5d0*gmet(3,3)*dgmetds(1,1)+3*gmet(1,3)*dgmetds(1,3)-3*gmet(1,1)&
2761 : & *dgmetds(3,3))+gmet(1,2)*gmet(2,3)*(24*gmet(3,3)*dgmetds(1,3)&
2762 : & +9*gmet(1,3)*dgmetds(3,3))+gmet(2,2)*(-1.5d0*gmet(3,3)**2*dgmetds(1,1)&
2763 : & -9*gmet(1,3)*gmet(3,3)*dgmetds(1,3)-3*gmet(1,3)**2*dgmetds(3,3)&
2764 193 : & -1.5d0*gmet(1,1)*gmet(3,3)*dgmetds(3,3))
2765 : cm(11,9,3,3)=gmet(2,2)*(3*gmet(1,2)*gmet(2,3)*dgmetds(2,2)+6*gmet(2,2)&
2766 193 : & *(gmet(2,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,2)))
2767 : cm(12,9,3,3)=3*gmet(2,3)**3*dgmetds(1,2)+gmet(2,3)**2*(6*gmet(2,2)&
2768 : & *dgmetds(1,3)+1.5d0*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)*dgmetds(2,3))&
2769 : & +gmet(2,3)*(12*gmet(1,2)*gmet(3,3)*dgmetds(2,2)+gmet(2,2)*(15*gmet(3,3)&
2770 : & *dgmetds(1,2)+6*gmet(1,3)*dgmetds(2,3)+3*gmet(1,2)*dgmetds(3,3)))&
2771 : & +gmet(2,2)*(gmet(3,3)*(-4.5d0*gmet(1,3)*dgmetds(2,2)+24*gmet(1,2)&
2772 : & *dgmetds(2,3))+gmet(2,2)*(12*gmet(3,3)*dgmetds(1,3)+6*gmet(1,3)&
2773 193 : & *dgmetds(3,3)))
2774 : cm(13,9,3,3)=3*gmet(1,2)*gmet(2,3)**2*dgmetds(2,2)+gmet(2,2)**2*(12*gmet(3,3)&
2775 : & *dgmetds(1,2)+6*gmet(2,3)*dgmetds(1,3)+12*gmet(1,3)*dgmetds(2,3))&
2776 : & +gmet(2,2)*(6*gmet(2,3)**2*dgmetds(1,2)+12*gmet(1,2)*gmet(3,3)&
2777 : & *dgmetds(2,2)+gmet(2,3)*(3*gmet(1,3)*dgmetds(2,2)+6*gmet(1,2)&
2778 193 : & *dgmetds(2,3)))
2779 : cm(14,9,3,3)=3*gmet(2,3)**3*dgmetds(1,3)+gmet(2,2)*gmet(3,3)*(-3*gmet(3,3)&
2780 : & *dgmetds(1,2)-9*gmet(1,3)*dgmetds(2,3)+12*gmet(1,2)*dgmetds(3,3))&
2781 : & +gmet(2,3)**2*(9*gmet(3,3)*dgmetds(1,2)+3*(gmet(1,3)*dgmetds(2,3)&
2782 : & +gmet(1,2)*dgmetds(3,3)))+gmet(2,3)*(24*gmet(1,2)*gmet(3,3)*dgmetds(2,3)&
2783 193 : & +gmet(2,2)*(15*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)*dgmetds(3,3)))
2784 : cm(15,9,3,3)=12*gmet(1,2)*gmet(2,3)*gmet(3,3)*dgmetds(3,3)+gmet(2,2)&
2785 : & *gmet(3,3)*(-3*gmet(3,3)*dgmetds(1,3)-4.5d0*gmet(1,3)*dgmetds(3,3))&
2786 193 : & +gmet(2,3)**2*(9*gmet(3,3)*dgmetds(1,3)+1.5d0*gmet(1,3)*dgmetds(3,3))
2787 193 : cm(16,9,3,3)=3*gmet(2,2)**2*gmet(2,3)*dgmetds(2,2)
2788 : cm(17,9,3,3)=1.5d0*gmet(2,3)**3*dgmetds(2,2)+6*gmet(2,2)*gmet(2,3)&
2789 : & **2*dgmetds(2,3)+12*gmet(2,2)**2*gmet(3,3)*dgmetds(2,3)+gmet(2,2)&
2790 193 : & *gmet(2,3)*(7.5d0*gmet(3,3)*dgmetds(2,2)+3*gmet(2,2)*dgmetds(3,3))
2791 : cm(18,9,3,3)=gmet(2,2)*(3*gmet(2,3)**2*dgmetds(2,2)+6*gmet(2,2)&
2792 193 : & *gmet(3,3)*dgmetds(2,2)+6*gmet(2,2)*gmet(2,3)*dgmetds(2,3))
2793 : cm(19,9,3,3)=3*gmet(2,3)**3*dgmetds(2,3)+15*gmet(2,2)*gmet(2,3)&
2794 : & *gmet(3,3)*dgmetds(2,3)+gmet(2,3)**2*(4.5d0*gmet(3,3)*dgmetds(2,2)&
2795 : & +3*gmet(2,2)*dgmetds(3,3))+gmet(2,2)*gmet(3,3)*(-1.5d0*gmet(3,3)&
2796 193 : & *dgmetds(2,2)+6*gmet(2,2)*dgmetds(3,3))
2797 : cm(20,9,3,3)=9*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)-3*gmet(2,2)&
2798 : & *gmet(3,3)**2*dgmetds(2,3)+1.5d0*gmet(2,3)**3*dgmetds(3,3)+7.5d0*gmet(2,2)&
2799 193 : & *gmet(2,3)*gmet(3,3)*dgmetds(3,3)
2800 : cm(21,9,3,3)=gmet(3,3)*(4.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
2801 193 : & *dgmetds(3,3)
2802 : cm(1,10,3,3)=gmet(1,3)*(2.5d0*gmet(1,3)**2-1.5d0*gmet(1,1)*gmet(3,3))&
2803 193 : & *dgmetds(1,1)
2804 : cm(2,10,3,3)=(1080*gmet(1,3)**2*gmet(2,3)*dgmetds(1,2)-216*gmet(2,3)&
2805 : & *gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))+180*gmet(1,3)&
2806 : & **3*dgmetds(2,2)+gmet(1,3)*(540*gmet(2,3)**2*dgmetds(1,1)+gmet(3,3)&
2807 : & *(-108*gmet(2,2)*dgmetds(1,1)-432*gmet(1,2)*dgmetds(1,2)-108*gmet(1,1)&
2808 193 : & *dgmetds(2,2))))/72.d0
2809 : cm(3,10,3,3)=9*gmet(1,3)**2*gmet(3,3)*dgmetds(1,3)-3*gmet(1,1)&
2810 : & *gmet(3,3)**2*dgmetds(1,3)+2.5d0*gmet(1,3)**3*dgmetds(3,3)+gmet(1,3)&
2811 193 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(1,1)-1.5d0*gmet(1,1)*dgmetds(3,3))
2812 : cm(4,10,3,3)=(gmet(1,3)**2*(324*gmet(3,3)*dgmetds(1,2)+540*gmet(2,3)&
2813 : & *dgmetds(1,3))-108*gmet(3,3)*(gmet(1,2)*gmet(3,3)*dgmetds(1,1)&
2814 : & +gmet(1,1)*(gmet(3,3)*dgmetds(1,2)+gmet(2,3)*dgmetds(1,3)))+180*gmet(1,3)&
2815 : & **3*dgmetds(2,3)+gmet(1,3)*gmet(3,3)*(324*gmet(2,3)*dgmetds(1,1)&
2816 193 : & -216*gmet(1,2)*dgmetds(1,3)-108*gmet(1,1)*dgmetds(2,3)))/36.d0
2817 : cm(5,10,3,3)=4.5d0*gmet(1,3)**2*gmet(3,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
2818 : & *gmet(3,3)**2*dgmetds(1,1)+5*gmet(1,3)**3*dgmetds(1,3)-3*gmet(1,1)&
2819 193 : & *gmet(1,3)*gmet(3,3)*dgmetds(1,3)
2820 : cm(6,10,3,3)=7.5d0*gmet(1,3)**2*gmet(2,3)*dgmetds(1,1)-1.5d0*gmet(1,1)&
2821 : & *gmet(2,3)*gmet(3,3)*dgmetds(1,1)+5*gmet(1,3)**3*dgmetds(1,2)&
2822 193 : & -3*gmet(1,3)*gmet(3,3)*(gmet(1,2)*dgmetds(1,1)+gmet(1,1)*dgmetds(1,2))
2823 : cm(7,10,3,3)=(2*(90*gmet(2,3)**3-54*gmet(2,2)*gmet(2,3)*gmet(3,3))&
2824 : & *dgmetds(1,1)+12*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)+gmet(1,3)&
2825 : & *(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,2)+6*(90*gmet(1,3)&
2826 : & **2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)*gmet(3,3)-18*gmet(1,1)*gmet(2,3)&
2827 193 : & *gmet(3,3))*dgmetds(2,2))/72.d0
2828 : cm(8,10,3,3)=(gmet(2,3)*(72*gmet(3,3)**2*dgmetds(1,1)+180*gmet(1,3)&
2829 : & **2*dgmetds(3,3)+gmet(3,3)*(432*gmet(1,3)*dgmetds(1,3)-36*gmet(1,1)&
2830 : & *dgmetds(3,3)))+gmet(3,3)*(216*gmet(1,3)**2*dgmetds(2,3)+gmet(3,3)&
2831 : & *(-144*gmet(1,2)*dgmetds(1,3)-72*gmet(1,1)*dgmetds(2,3))+gmet(1,3)&
2832 193 : & *(144*gmet(3,3)*dgmetds(1,2)-72*gmet(1,2)*dgmetds(3,3))))/24.d0
2833 : cm(9,10,3,3)=(gmet(3,3)*(54*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3))&
2834 : & *dgmetds(1,1)+4*gmet(3,3)*(54*gmet(1,3)*gmet(2,3)-18*gmet(1,2)&
2835 : & *gmet(3,3))*dgmetds(1,2)+2*(-36*gmet(1,2)*gmet(2,3)*gmet(3,3)&
2836 : & +gmet(1,3)*(90*gmet(2,3)**2-18*gmet(2,2)*gmet(3,3)))*dgmetds(1,3)&
2837 : & +gmet(3,3)*(54*gmet(1,3)**2-18*gmet(1,1)*gmet(3,3))*dgmetds(2,2)&
2838 : & +2*(90*gmet(1,3)**2*gmet(2,3)-36*gmet(1,2)*gmet(1,3)*gmet(3,3)&
2839 193 : & -18*gmet(1,1)*gmet(2,3)*gmet(3,3))*dgmetds(2,3))/12.d0
2840 : cm(10,10,3,3)=gmet(3,3)*(1*gmet(3,3)**2*dgmetds(1,1)+4.5d0*gmet(1,3)&
2841 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(1,3)*dgmetds(1,3)-1.5d0*gmet(1,1)&
2842 193 : & *dgmetds(3,3)))
2843 : cm(11,10,3,3)=5*gmet(2,3)**3*dgmetds(1,2)+7.5d0*gmet(1,3)*gmet(2,3)&
2844 : & **2*dgmetds(2,2)-1.5d0*gmet(1,3)*gmet(2,2)*gmet(3,3)*dgmetds(2,2)&
2845 193 : & -3*gmet(2,3)*gmet(3,3)*(gmet(2,2)*dgmetds(1,2)+gmet(1,2)*dgmetds(2,2))
2846 : cm(12,10,3,3)=(gmet(2,3)*gmet(3,3)*(144*gmet(3,3)*dgmetds(1,2)&
2847 : & +432*gmet(1,3)*dgmetds(2,3)-72*gmet(1,2)*dgmetds(3,3))+gmet(2,3)&
2848 : & **2*(216*gmet(3,3)*dgmetds(1,3)+180*gmet(1,3)*dgmetds(3,3))+gmet(3,3)&
2849 : & *(gmet(3,3)*(72*gmet(1,3)*dgmetds(2,2)-144*gmet(1,2)*dgmetds(2,3))&
2850 : & +gmet(2,2)*(-72*gmet(3,3)*dgmetds(1,3)-36*gmet(1,3)*dgmetds(3,3))))&
2851 193 : & /24.d0
2852 : cm(13,10,3,3)=(180*gmet(2,3)**3*dgmetds(1,3)+gmet(2,3)*gmet(3,3)&
2853 : & *(-108*gmet(2,2)*dgmetds(1,3)+324*gmet(1,3)*dgmetds(2,2)-216*gmet(1,2)&
2854 : & *dgmetds(2,3))+gmet(2,3)**2*(324*gmet(3,3)*dgmetds(1,2)+540*gmet(1,3)&
2855 : & *dgmetds(2,3))-108*gmet(3,3)*(gmet(1,2)*gmet(3,3)*dgmetds(2,2)&
2856 : & +gmet(2,2)*(gmet(3,3)*dgmetds(1,2)+gmet(1,3)*dgmetds(2,3))))&
2857 193 : & /36.d0
2858 : cm(14,10,3,3)=gmet(3,3)*(2*gmet(3,3)**2*dgmetds(1,2)+9*gmet(1,3)&
2859 : & *gmet(2,3)*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(1,3)+6*gmet(1,3)&
2860 193 : & *dgmetds(2,3)-3*gmet(1,2)*dgmetds(3,3)))
2861 : cm(15,10,3,3)=gmet(3,3)**2*(2*gmet(3,3)*dgmetds(1,3)+3*gmet(1,3)&
2862 193 : & *dgmetds(3,3))
2863 : cm(16,10,3,3)=gmet(2,3)*(2.5d0*gmet(2,3)**2-1.5d0*gmet(2,2)*gmet(3,3))&
2864 193 : & *dgmetds(2,2)
2865 : cm(17,10,3,3)=9*gmet(2,3)**2*gmet(3,3)*dgmetds(2,3)-3*gmet(2,2)&
2866 : & *gmet(3,3)**2*dgmetds(2,3)+2.5d0*gmet(2,3)**3*dgmetds(3,3)+gmet(2,3)&
2867 193 : & *gmet(3,3)*(3*gmet(3,3)*dgmetds(2,2)-1.5d0*gmet(2,2)*dgmetds(3,3))
2868 : cm(18,10,3,3)=4.5d0*gmet(2,3)**2*gmet(3,3)*dgmetds(2,2)-1.5d0*gmet(2,2)&
2869 : & *gmet(3,3)**2*dgmetds(2,2)+5*gmet(2,3)**3*dgmetds(2,3)-3*gmet(2,2)&
2870 193 : & *gmet(2,3)*gmet(3,3)*dgmetds(2,3)
2871 : cm(19,10,3,3)=gmet(3,3)*(1*gmet(3,3)**2*dgmetds(2,2)+4.5d0*gmet(2,3)&
2872 : & **2*dgmetds(3,3)+gmet(3,3)*(6*gmet(2,3)*dgmetds(2,3)-1.5d0*gmet(2,2)&
2873 193 : & *dgmetds(3,3)))
2874 : cm(20,10,3,3)=gmet(3,3)**2*(2*gmet(3,3)*dgmetds(2,3)+3*gmet(2,3)&
2875 193 : & *dgmetds(3,3))
2876 193 : cm(21,10,3,3)=gmet(3,3)**3*dgmetds(3,3)
2877 :
2878 :
2879 : end if
2880 : end if
2881 : end if !cm_set==0
2882 :
2883 : !
2884 : !this is the part of the routine which gets executed on each call
2885 : !
2886 16503996 : rankin=rank
2887 16503996 : rankout=rank
2888 16503996 : if(iterm==1) rankout=rankout+2
2889 16503996 : if(iterm==3) rankin=rankin+2
2890 16503996 : limitin=(rankin+1)*(rankin+2)/2
2891 16503996 : limitout=(rankout+1)*(rankout+2)/2
2892 : !matrix-vector multiplication is small and probably best left written
2893 : !out be hand rather than using a LAPACK call
2894 111311428 : do jj=1,limitout
2895 284422296 : bb(:,jj)=0.d0
2896 638441008 : do ii=1,limitin
2897 1676196172 : bb(:,jj)=bb(:,jj)+aa(:,ii)*cm(ii,jj,iterm,rank)
2898 : end do
2899 : end do
2900 :
2901 16503996 : end subroutine metstr
2902 : !!***
2903 :
2904 : end module m_metstr
2905 : !!***
|
