Branch data Line data Source code
1 : : !!****f* ABINIT/contstr21
2 : : !! NAME
3 : : !! contstr21
4 : : !!
5 : : !! FUNCTION
6 : : !! Carries out specialized metric tensor operations needed for contraction
7 : : !! of the 2nd strain derivative of the l=0,1,2,3 nonlocal Kleinman-Bylander
8 : : !! pseudopotential operation. Derivatives are wrt a pair of cartesian
9 : : !! strain components.
10 : : !! Full advantage is taken of the full permutational symmetry of these
11 : : !! tensors.
12 : : !!
13 : : !! COPYRIGHT
14 : : !! Copyright (C) 1998-2026 ABINIT group (DRH)
15 : : !! This file is distributed under the terms of the
16 : : !! GNU General Public License, see ~abinit/COPYING
17 : : !! or http://www.gnu.org/copyleft/gpl.txt .
18 : : !! For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
19 : : !!
20 : : !! INPUTS
21 : : !! istr1=1,...6 specifies cartesian strain component 11,22,33,32,31,21
22 : : !! istr2=seccond strain component
23 : : !! rank=angular momentum
24 : : !! gm(3,3)=metric tensor (array is symmetric but stored as 3x3)
25 : : !! gprimd(3,3)=reciprocal space dimensional primitive translations
26 : : !! aa(2,*)=unique elements of complex right-hand tensor
27 : : !! bb(2,*)=unique elements of complex left-hand tensor
28 : : !!
29 : : !! OUTPUT
30 : : !! e2nl=contraction for nonlocal 2nd-order strain derivative energy
31 : : !!
32 : : !! NOTES
33 : : !! All tensors are stored in a compressed storage mode defined below;
34 : : !! input and output conform to this scheme.
35 : : !! When tensor elements occur repeatedly due to symmetry, the
36 : : !! WEIGHT IS INCLUDED in the output tensor element to simplify later
37 : : !! contractions with other tensors of the same rank and form, i.e. the
38 : : !! next contraction is then simply a dot product over the unique elements.
39 : : !!
40 : : !! SOURCE
41 : :
42 : : #if defined HAVE_CONFIG_H
43 : : #include "config.h"
44 : : #endif
45 : :
46 : : #include "abi_common.h"
47 : :
48 : :
49 : : module m_contstr21
50 : : contains
51 : : !!**
52 : :
53 : :
54 : :
55 : 5922144 : subroutine contstr21(istr1,istr2,rank,gm,gprimd,e2nl,aa,bb)
56 : :
57 : : use defs_basis
58 : : use m_abicore
59 : : implicit none
60 : :
61 : : !Arguments ------------------------------------
62 : : !scalars
63 : : integer,intent(in) :: istr1,istr2,rank
64 : : real(dp),intent(out) :: e2nl
65 : : !arrays
66 : : real(dp),intent(in) :: aa(2,((rank+1)*(rank+2))/2),bb(2,((rank+6)*(rank+5))/2)
67 : : real(dp),intent(in) :: gm(3,3),gprimd(3,3)
68 : :
69 : : !Local variables-------------------------------
70 : : !scalars
71 : : integer,parameter :: mrank=3
72 : : integer :: ii,jj,ka,kb,kd,kg
73 : : !arrays
74 : : integer,save :: idx(12)=(/1,1,2,2,3,3,3,2,3,1,2,1/)
75 : : real(dp) :: d2gm(3,3),dgm01(3,3),dgm10(3,3),tmp(2)
76 : 5922144 : real(dp),allocatable :: cm(:,:)
77 : :
78 : : ! *************************************************************************
79 [ - + ]: 5922144 : ABI_MALLOC(cm,(((mrank+1)*(mrank+2))/2,((mrank+5)*(mrank+6))/2))
80 : :
81 : 5922144 : ka=idx(2*istr1-1);kb=idx(2*istr1);kg=idx(2*istr2-1);kd=idx(2*istr2)
82 : :
83 [ + + ]: 23688576 : do ii = 1,3
84 [ + + ]: 71065728 : dgm01(:,ii)=-(gprimd(ka,:)*gprimd(kb,ii)+gprimd(kb,:)*gprimd(ka,ii))
85 [ + + ]: 76987872 : dgm10(:,ii)=-(gprimd(kg,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kg,ii))
86 : : end do
87 : :
88 : : d2gm(:,:)=0.d0
89 : 5922144 : do ii = 1,3
90 : : if(ka==kg) d2gm(:,ii)=d2gm(:,ii)&
91 : : & +gprimd(kb,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(kb,ii)
92 : : if(ka==kd) d2gm(:,ii)=d2gm(:,ii)&
93 : : & +gprimd(kb,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(kb,ii)
94 : : if(kb==kg) d2gm(:,ii)=d2gm(:,ii)&
95 : : & +gprimd(ka,:)*gprimd(kd,ii)+gprimd(kd,:)*gprimd(ka,ii)
96 : : if(kb==kd) d2gm(:,ii)=d2gm(:,ii)&
97 : : & +gprimd(ka,:)*gprimd(kg,ii)+gprimd(kg,:)*gprimd(ka,ii)
98 : : end do
99 : : d2gm(:,:)=0.5d0*d2gm(:,:)
100 : :
101 : : !
102 : : !The code below was written by a Mathematica program and formatted by
103 : : !a combination of editing scripts. It is not intended to be read
104 : : !by human beings, and certainly not to be modified by one. Conceivably
105 : : !it could be shortened somewhat by identifying common subexpressions.
106 : : !
107 : :
108 [ + + ]: 5922144 : if(rank==0)then
109 : 2039616 : cm(1,1)=dgm01(1,1)*dgm10(1,1)
110 : : cm(1,2)=dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
111 : 2039616 : & *dgm10(2,2)
112 : : cm(1,3)=dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
113 : 2039616 : & *dgm10(3,3)
114 : : cm(1,4)=2*(dgm01(2,3)*dgm10(1,1)+2*dgm01(1,3)*dgm10(1,2)+2*dgm01(1,2)&
115 : 2039616 : & *dgm10(1,3)+dgm01(1,1)*dgm10(2,3))
116 : 2039616 : cm(1,5)=2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))
117 : 2039616 : cm(1,6)=2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))
118 : 2039616 : cm(1,7)=2*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))
119 : : cm(1,8)=2*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)&
120 : 2039616 : & *dgm10(2,3)+dgm01(1,2)*dgm10(3,3))
121 : : cm(1,9)=2*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
122 : 2039616 : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))
123 : 2039616 : cm(1,10)=2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))
124 : 2039616 : cm(1,11)=dgm01(2,2)*dgm10(2,2)
125 : : cm(1,12)=dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
126 : 2039616 : & *dgm10(3,3)
127 : 2039616 : cm(1,13)=2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))
128 : 2039616 : cm(1,14)=2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))
129 : 2039616 : cm(1,15)=dgm01(3,3)*dgm10(3,3)
130 [ + + ]: 3882528 : elseif(rank==1)then
131 : 1978272 : cm(1,1)=gm(1,1)*dgm01(1,1)*dgm10(1,1)
132 : 1978272 : cm(2,1)=gm(1,2)*dgm01(1,1)*dgm10(1,1)
133 : 1978272 : cm(3,1)=gm(1,3)*dgm01(1,1)*dgm10(1,1)
134 : : cm(1,2)=2*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
135 : : & +gm(1,1)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
136 : 1978272 : & *dgm10(2,2))
137 : : cm(2,2)=2*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
138 : : & +gm(1,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
139 : 1978272 : & *dgm10(2,2))
140 : : cm(3,2)=2*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
141 : : & +gm(1,3)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)+dgm01(1,1)&
142 : 1978272 : & *dgm10(2,2))
143 : : cm(1,3)=2*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
144 : : & +gm(1,1)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
145 : 1978272 : & *dgm10(3,3))
146 : : cm(2,3)=2*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
147 : : & +gm(1,2)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
148 : 1978272 : & *dgm10(3,3))
149 : : cm(3,3)=2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
150 : : & +gm(1,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)+dgm01(1,1)&
151 : 1978272 : & *dgm10(3,3))
152 : : cm(1,4)=2*((gm(1,3)*dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))&
153 : : & *dgm10(1,1)+(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(1,2)&
154 : : & +(gm(1,2)*dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(1,3)+gm(1,1)&
155 : 1978272 : & *dgm01(1,1)*dgm10(2,3))
156 : : cm(2,4)=2*((gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))&
157 : : & *dgm10(1,1)+(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(1,2)&
158 : : & +(gm(2,2)*dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(1,3)+gm(1,2)&
159 : 1978272 : & *dgm01(1,1)*dgm10(2,3))
160 : : cm(3,4)=2*((gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))&
161 : : & *dgm10(1,1)+(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(1,2)&
162 : : & +(gm(2,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(1,3)+gm(1,3)&
163 : 1978272 : & *dgm01(1,1)*dgm10(2,3))
164 : : cm(1,5)=gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*(dgm01(1,3)&
165 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))
166 : : cm(2,5)=gm(2,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,2)*(dgm01(1,3)&
167 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))
168 : : cm(3,5)=gm(3,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,3)*(dgm01(1,3)&
169 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))
170 : : cm(1,6)=gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)*(dgm01(1,2)&
171 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))
172 : : cm(2,6)=gm(2,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,2)*(dgm01(1,2)&
173 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))
174 : : cm(3,6)=gm(2,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,3)*(dgm01(1,2)&
175 : 1978272 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))
176 : : cm(1,7)=gm(1,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)&
177 : : & +dgm01(1,1)*dgm10(2,2))+2*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
178 : 1978272 : & *dgm10(2,2))
179 : : cm(2,7)=gm(2,2)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)&
180 : : & +dgm01(1,1)*dgm10(2,2))+2*gm(1,2)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
181 : 1978272 : & *dgm10(2,2))
182 : : cm(3,7)=gm(2,3)*(dgm01(2,2)*dgm10(1,1)+4*dgm01(1,2)*dgm10(1,2)&
183 : : & +dgm01(1,1)*dgm10(2,2))+2*gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
184 : 1978272 : & *dgm10(2,2))
185 : : cm(1,8)=2*gm(1,3)*dgm01(2,3)*dgm10(1,1)+gm(1,2)*dgm01(3,3)*dgm10(1,1)&
186 : : & +2*(2*gm(1,3)*dgm01(1,3)+gm(1,1)*dgm01(3,3))*dgm10(1,2)+4*(gm(1,3)&
187 : : & *dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))*dgm10(1,3)&
188 : : & +2*(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(2,3)+(gm(1,2)&
189 : 1978272 : & *dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(3,3)
190 : : cm(2,8)=2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+gm(2,2)*dgm01(3,3)*dgm10(1,1)&
191 : : & +2*(2*gm(2,3)*dgm01(1,3)+gm(1,2)*dgm01(3,3))*dgm10(1,2)+4*(gm(2,3)&
192 : : & *dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))*dgm10(1,3)&
193 : : & +2*(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(2,3)+(gm(2,2)&
194 : 1978272 : & *dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(3,3)
195 : : cm(3,8)=2*gm(3,3)*dgm01(2,3)*dgm10(1,1)+gm(2,3)*dgm01(3,3)*dgm10(1,1)&
196 : : & +2*(2*gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))*dgm10(1,2)+4*(gm(3,3)&
197 : : & *dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))*dgm10(1,3)&
198 : : & +2*(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(2,3)+(gm(2,3)&
199 : 1978272 : & *dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(3,3)
200 : : cm(1,9)=gm(1,3)*dgm01(2,2)*dgm10(1,1)+2*gm(1,2)*dgm01(2,3)*dgm10(1,1)&
201 : : & +4*(gm(1,3)*dgm01(1,2)+gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3))&
202 : : & *dgm10(1,2)+2*(2*gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))*dgm10(1,3)&
203 : : & +(gm(1,3)*dgm01(1,1)+2*gm(1,1)*dgm01(1,3))*dgm10(2,2)+2*(gm(1,2)&
204 : 1978272 : & *dgm01(1,1)+2*gm(1,1)*dgm01(1,2))*dgm10(2,3)
205 : : cm(2,9)=gm(2,3)*dgm01(2,2)*dgm10(1,1)+2*gm(2,2)*dgm01(2,3)*dgm10(1,1)&
206 : : & +4*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)+gm(1,2)*dgm01(2,3))&
207 : : & *dgm10(1,2)+2*(2*gm(2,2)*dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,3)&
208 : : & +(gm(2,3)*dgm01(1,1)+2*gm(1,2)*dgm01(1,3))*dgm10(2,2)+2*(gm(2,2)&
209 : 1978272 : & *dgm01(1,1)+2*gm(1,2)*dgm01(1,2))*dgm10(2,3)
210 : : cm(3,9)=gm(3,3)*dgm01(2,2)*dgm10(1,1)+2*gm(2,3)*dgm01(2,3)*dgm10(1,1)&
211 : : & +4*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)+gm(1,3)*dgm01(2,3))&
212 : : & *dgm10(1,2)+2*(2*gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2))*dgm10(1,3)&
213 : : & +(gm(3,3)*dgm01(1,1)+2*gm(1,3)*dgm01(1,3))*dgm10(2,2)+2*(gm(2,3)&
214 : 1978272 : & *dgm01(1,1)+2*gm(1,3)*dgm01(1,2))*dgm10(2,3)
215 : : cm(1,10)=gm(1,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)&
216 : : & +dgm01(1,1)*dgm10(3,3))+2*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
217 : 1978272 : & *dgm10(3,3))
218 : : cm(2,10)=gm(2,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)&
219 : : & +dgm01(1,1)*dgm10(3,3))+2*gm(1,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
220 : 1978272 : & *dgm10(3,3))
221 : : cm(3,10)=gm(3,3)*(dgm01(3,3)*dgm10(1,1)+4*dgm01(1,3)*dgm10(1,3)&
222 : : & +dgm01(1,1)*dgm10(3,3))+2*gm(1,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
223 : 1978272 : & *dgm10(3,3))
224 : : cm(1,11)=gm(1,1)*dgm01(2,2)*dgm10(2,2)+2*gm(1,2)*(dgm01(2,2)&
225 : 1978272 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))
226 : : cm(2,11)=gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,2)&
227 : 1978272 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))
228 : : cm(3,11)=gm(1,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,3)*(dgm01(2,2)&
229 : 1978272 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))
230 : : cm(1,12)=2*gm(1,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)&
231 : : & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(1,2)*(dgm01(3,3)&
232 : : & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
233 : : & *dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
234 : 1978272 : & +dgm01(2,2)*dgm10(3,3))
235 : : cm(2,12)=2*gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)&
236 : : & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(2,2)*(dgm01(3,3)&
237 : : & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
238 : : & *dgm10(3,3))+gm(1,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
239 : 1978272 : & +dgm01(2,2)*dgm10(3,3))
240 : : cm(3,12)=2*gm(3,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)&
241 : : & +dgm01(1,3)*dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+2*gm(2,3)*(dgm01(3,3)&
242 : : & *dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)+2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)&
243 : : & *dgm10(3,3))+gm(1,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
244 : 1978272 : & +dgm01(2,2)*dgm10(3,3))
245 : : cm(1,13)=2*(gm(1,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
246 : : & +gm(1,2)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
247 : : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,1)*(dgm01(2,3)*dgm10(2,2)&
248 : 1978272 : & +dgm01(2,2)*dgm10(2,3)))
249 : : cm(2,13)=2*(gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
250 : : & +gm(2,2)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
251 : : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,2)*(dgm01(2,3)*dgm10(2,2)&
252 : 1978272 : & +dgm01(2,2)*dgm10(2,3)))
253 : : cm(3,13)=2*(gm(3,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
254 : : & +gm(2,3)*(2*dgm01(2,3)*dgm10(1,2)+dgm01(2,2)*dgm10(1,3)+dgm01(1,3)&
255 : : & *dgm10(2,2)+2*dgm01(1,2)*dgm10(2,3))+gm(1,3)*(dgm01(2,3)*dgm10(2,2)&
256 : 1978272 : & +dgm01(2,2)*dgm10(2,3)))
257 : : cm(1,14)=2*(gm(1,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)&
258 : : & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(1,2)*(dgm01(3,3)&
259 : : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,1)*(dgm01(3,3)*dgm10(2,3)&
260 : 1978272 : & +dgm01(2,3)*dgm10(3,3)))
261 : : cm(2,14)=2*(gm(2,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)&
262 : : & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(2,2)*(dgm01(3,3)&
263 : : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,2)*(dgm01(3,3)*dgm10(2,3)&
264 : 1978272 : & +dgm01(2,3)*dgm10(3,3)))
265 : : cm(3,14)=2*(gm(3,3)*(dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)&
266 : : & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(2,3)*(dgm01(3,3)&
267 : : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))+gm(1,3)*(dgm01(3,3)*dgm10(2,3)&
268 : 1978272 : & +dgm01(2,3)*dgm10(3,3)))
269 : : cm(1,15)=gm(1,1)*dgm01(3,3)*dgm10(3,3)+2*gm(1,3)*(dgm01(3,3)&
270 : 1978272 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))
271 : : cm(2,15)=gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(2,3)*(dgm01(3,3)&
272 : 1978272 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))
273 : : cm(3,15)=gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
274 : 1978272 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3))
275 : 1978272 : cm(1,16)=gm(1,2)*dgm01(2,2)*dgm10(2,2)
276 : 1978272 : cm(2,16)=gm(2,2)*dgm01(2,2)*dgm10(2,2)
277 : 1978272 : cm(3,16)=gm(2,3)*dgm01(2,2)*dgm10(2,2)
278 : : cm(1,17)=2*gm(1,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
279 : : & +gm(1,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
280 : 1978272 : & *dgm10(3,3))
281 : : cm(2,17)=2*gm(2,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
282 : : & +gm(2,2)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
283 : 1978272 : & *dgm10(3,3))
284 : : cm(3,17)=2*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
285 : : & +gm(2,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)+dgm01(2,2)&
286 : 1978272 : & *dgm10(3,3))
287 : : cm(1,18)=gm(1,3)*dgm01(2,2)*dgm10(2,2)+2*gm(1,2)*(dgm01(2,3)&
288 : 1978272 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))
289 : : cm(2,18)=gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)*(dgm01(2,3)&
290 : 1978272 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))
291 : : cm(3,18)=gm(3,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,3)*(dgm01(2,3)&
292 : 1978272 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))
293 : : cm(1,19)=gm(1,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
294 : : & +dgm01(2,2)*dgm10(3,3))+2*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
295 : 1978272 : & *dgm10(3,3))
296 : : cm(2,19)=gm(2,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
297 : : & +dgm01(2,2)*dgm10(3,3))+2*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
298 : 1978272 : & *dgm10(3,3))
299 : : cm(3,19)=gm(3,3)*(dgm01(3,3)*dgm10(2,2)+4*dgm01(2,3)*dgm10(2,3)&
300 : : & +dgm01(2,2)*dgm10(3,3))+2*gm(2,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
301 : 1978272 : & *dgm10(3,3))
302 : : cm(1,20)=gm(1,2)*dgm01(3,3)*dgm10(3,3)+2*gm(1,3)*(dgm01(3,3)&
303 : 1978272 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))
304 : : cm(2,20)=gm(2,2)*dgm01(3,3)*dgm10(3,3)+2*gm(2,3)*(dgm01(3,3)&
305 : 1978272 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))
306 : : cm(3,20)=gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)*(dgm01(3,3)&
307 : 1978272 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))
308 : 1978272 : cm(1,21)=gm(1,3)*dgm01(3,3)*dgm10(3,3)
309 : 1978272 : cm(2,21)=gm(2,3)*dgm01(3,3)*dgm10(3,3)
310 : 1978272 : cm(3,21)=gm(3,3)*dgm01(3,3)*dgm10(3,3)
311 [ + + ]: 1904256 : elseif(rank==2)then
312 : 1903680 : cm(1,1)=gm(1,1)**2*dgm01(1,1)*dgm10(1,1)
313 : : cm(2,1)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,1))&
314 : 1903680 : & /4.d0
315 : : cm(3,1)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,1))&
316 : 1903680 : & /4.d0
317 : : cm(4,1)=((6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,1))&
318 : 1903680 : & /2.d0
319 : 1903680 : cm(5,1)=2*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(1,1)
320 : 1903680 : cm(6,1)=2*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(1,1)
321 : : cm(1,2)=(12*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)&
322 : : & *gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(1,1)+384*gm(1,1)&
323 : : & *(gm(1,2)*dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(1,2)+96*gm(1,1)&
324 : 1903680 : & **2*dgm01(1,1)*dgm10(2,2))/96.d0
325 : : cm(2,2)=(3*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)&
326 : : & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)+4*(24*gm(1,2)&
327 : : & *gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))&
328 : : & *dgm10(1,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,2))&
329 : 1903680 : & /24.d0
330 : : cm(3,2)=(6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)&
331 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)&
332 : : & *gm(3,3))*dgm01(2,2))*dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
333 : : & *gm(3,3))*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))&
334 : : & *dgm10(1,2)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,2))&
335 : 1903680 : & /24.d0
336 : : cm(4,2)=(3*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)&
337 : : & +gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
338 : : & *dgm01(2,2))*dgm10(1,1)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
339 : : & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))&
340 : : & *dgm10(1,2)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)&
341 : 1903680 : & *dgm10(2,2))/12.d0
342 : : cm(5,2)=(12*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))&
343 : : & +gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)&
344 : : & *dgm01(2,2))))*dgm10(1,1)+16*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
345 : : & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(1,2)&
346 : 1903680 : & +96*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(2,2))/48.d0
347 : : cm(6,2)=(12*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)&
348 : : & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(1,1)&
349 : : & +16*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)&
350 : : & *gm(1,2)*dgm01(1,2))*dgm10(1,2)+96*gm(1,1)*gm(1,2)*dgm01(1,1)&
351 : 1903680 : & *dgm10(2,2))/48.d0
352 : : cm(1,3)=(12*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)+32*gm(1,1)&
353 : : & *gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(1,1)+384*gm(1,1)&
354 : : & *(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(1,3)+96*gm(1,1)&
355 : 1903680 : & **2*dgm01(1,1)*dgm10(3,3))/96.d0
356 : : cm(2,3)=(6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)&
357 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)&
358 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
359 : : & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))&
360 : : & *dgm10(1,3)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(3,3))&
361 : 1903680 : & /24.d0
362 : : cm(3,3)=(3*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)&
363 : : & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(24*gm(1,3)&
364 : : & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))&
365 : : & *dgm10(1,3)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(3,3))&
366 : 1903680 : & /24.d0
367 : : cm(4,3)=(3*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)&
368 : : & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)&
369 : : & *dgm01(3,3)))*dgm10(1,1)+4*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
370 : : & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))&
371 : : & *dgm10(1,3)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)&
372 : 1903680 : & *dgm10(3,3))/12.d0
373 : : cm(5,3)=(12*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
374 : : & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(1,1)&
375 : : & +16*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)&
376 : : & *gm(1,3)*dgm01(1,3))*dgm10(1,3)+96*gm(1,1)*gm(1,3)*dgm01(1,1)&
377 : 1903680 : & *dgm10(3,3))/48.d0
378 : : cm(6,3)=(12*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
379 : : & +8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)&
380 : : & *gm(1,2)*dgm01(3,3))*dgm10(1,1)+16*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
381 : : & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,3)&
382 : 1903680 : & +96*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(3,3))/48.d0
383 : : cm(1,4)=(12*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))&
384 : : & +gm(1,1)*(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)&
385 : : & *dgm01(2,3)))*dgm10(1,1)+192*gm(1,1)*(gm(1,3)*dgm01(1,1)+gm(1,1)&
386 : : & *dgm01(1,3))*dgm10(1,2)+192*gm(1,1)*(gm(1,2)*dgm01(1,1)+gm(1,1)&
387 : : & *dgm01(1,2))*dgm10(1,3)+96*gm(1,1)**2*dgm01(1,1)*dgm10(2,3))&
388 : 1903680 : & /48.d0
389 : : cm(2,4)=(3*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)*dgm01(1,2)&
390 : : & +16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)*(24*gm(2,3)&
391 : : & *dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,1)+2*(6*(-2*gm(1,3)&
392 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)&
393 : : & *gm(2,2))*dgm01(1,3))*dgm10(1,2)+2*(24*gm(1,2)*gm(2,2)*dgm01(1,1)&
394 : : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))*dgm10(1,3)+6*(6*gm(1,2)&
395 : 1903680 : & **2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,3))/12.d0
396 : : cm(3,4)=(3*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)&
397 : : & *dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
398 : : & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(1,1)+2*(24*gm(1,3)&
399 : : & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))&
400 : : & *dgm10(1,2)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
401 : : & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(1,3)+6*(6*gm(1,3)&
402 : 1903680 : & **2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,3))/12.d0
403 : : cm(4,4)=(3*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)&
404 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
405 : : & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
406 : : & *dgm01(2,3))*dgm10(1,1)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
407 : : & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))&
408 : : & *dgm10(1,2)+2*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)&
409 : : & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(1,3)&
410 : : & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(2,3))&
411 : 1903680 : & /6.d0
412 : : cm(5,4)=(12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)&
413 : : & +4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)&
414 : : & +3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))&
415 : : & *dgm10(1,1)+8*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)&
416 : : & +24*gm(1,1)*gm(1,3)*dgm01(1,3))*dgm10(1,2)+8*(6*(1*gm(1,2)*gm(1,3)&
417 : : & +3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))&
418 : 1903680 : & *dgm10(1,3)+96*gm(1,1)*gm(1,3)*dgm01(1,1)*dgm10(2,3))/24.d0
419 : : cm(6,4)=(12*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)&
420 : : & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)&
421 : : & **2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))&
422 : : & *dgm10(1,1)+8*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
423 : : & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,2)+8*(6*(1*gm(1,2)**2+3*gm(1,1)&
424 : : & *gm(2,2))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(1,3)&
425 : 1903680 : & +96*gm(1,1)*gm(1,2)*dgm01(1,1)*dgm10(2,3))/24.d0
426 : : cm(1,5)=2*gm(1,1)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(dgm01(1,3)&
427 : 1903680 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
428 : : cm(2,5)=((6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)&
429 : : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(1,1)+6*(6*gm(1,2)&
430 : 1903680 : & **2-2*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,3))/12.d0
431 : : cm(3,5)=((24*gm(1,3)*gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)&
432 : : & *gm(3,3))*dgm01(1,3))*dgm10(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
433 : 1903680 : & *dgm01(1,1)*dgm10(1,3))/12.d0
434 : : cm(4,5)=((6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)&
435 : : & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))*dgm10(1,1)&
436 : : & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,3))&
437 : 1903680 : & /6.d0
438 : : cm(5,5)=(20*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)&
439 : : & *gm(1,3)*dgm01(1,3))*dgm10(1,1)+480*gm(1,1)*gm(1,3)*dgm01(1,1)&
440 : 1903680 : & *dgm10(1,3))/120.d0
441 : : cm(6,5)=(20*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
442 : : & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(1,1)+480*gm(1,1)*gm(1,2)&
443 : 1903680 : & *dgm01(1,1)*dgm10(1,3))/120.d0
444 : : cm(1,6)=2*gm(1,1)*(gm(1,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(dgm01(1,2)&
445 : 1903680 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))
446 : : cm(2,6)=((24*gm(1,2)*gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)&
447 : : & *gm(2,2))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))&
448 : 1903680 : & *dgm01(1,1)*dgm10(1,2))/12.d0
449 : : cm(3,6)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
450 : : & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,3)&
451 : 1903680 : & **2-2*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/12.d0
452 : : cm(4,6)=((6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)&
453 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(1,1)+6*(6*gm(1,2)&
454 : 1903680 : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,1)*dgm10(1,2))/6.d0
455 : : cm(5,6)=(20*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
456 : : & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(1,1)+480*gm(1,1)*gm(1,3)&
457 : 1903680 : & *dgm01(1,1)*dgm10(1,2))/120.d0
458 : : cm(6,6)=(20*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)&
459 : : & *gm(1,2)*dgm01(1,2))*dgm10(1,1)+480*gm(1,1)*gm(1,2)*dgm01(1,1)&
460 : 1903680 : & *dgm10(1,2))/120.d0
461 : : cm(1,7)=((6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)+24*gm(1,1)&
462 : : & *gm(1,2)*dgm01(2,2))*dgm10(1,1)+3*(2*(6*gm(1,2)**2-2*gm(1,1)&
463 : : & *gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)&
464 : : & **2*dgm01(2,2))*dgm10(1,2)+24*gm(1,1)*(gm(1,2)*dgm01(1,1)+gm(1,1)&
465 : 1903680 : & *dgm01(1,2))*dgm10(2,2))/12.d0
466 : : cm(2,7)=(24*gm(2,2)*(gm(2,2)*dgm01(1,2)+gm(1,2)*dgm01(2,2))&
467 : : & *dgm10(1,1)+3*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)&
468 : : & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,2)+(24*gm(1,2)&
469 : : & *gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))&
470 : 1903680 : & *dgm10(2,2))/12.d0
471 : : cm(3,7)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)&
472 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,1)+6*((6*gm(2,3)&
473 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
474 : : & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))&
475 : : & *dgm10(1,2)+(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
476 : 1903680 : & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(2,2))/12.d0
477 : : cm(4,7)=((24*gm(2,2)*gm(2,3)*dgm01(1,2)+6*(3*gm(1,3)*gm(2,2)&
478 : : & +gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,1)+3*(8*gm(2,2)*gm(2,3)&
479 : : & *dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)&
480 : : & +2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,2)&
481 : : & +(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)&
482 : 1903680 : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))*dgm10(2,2))/6.d0
483 : : cm(5,7)=((6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)&
484 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,1)&
485 : : & +3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)&
486 : : & *(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))&
487 : : & *dgm10(1,2)+(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
488 : 1903680 : & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(2,2))/6.d0
489 : : cm(6,7)=((24*gm(1,2)*gm(2,2)*dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)&
490 : : & *gm(2,2))*dgm01(2,2))*dgm10(1,1)+3*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)&
491 : : & *gm(2,2)*dgm01(1,2)+8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))&
492 : : & *dgm10(1,2)+(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)+24*gm(1,1)&
493 : 1903680 : & *gm(1,2)*dgm01(1,2))*dgm10(2,2))/6.d0
494 : : cm(1,8)=(6*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)&
495 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)&
496 : : & +8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(1,1)+6*(2*(6*gm(1,3)**2-2*gm(1,1)&
497 : : & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)&
498 : : & **2*dgm01(3,3))*dgm10(1,2)+12*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)&
499 : : & +16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)&
500 : : & *dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+96*gm(1,1)*(gm(1,3)&
501 : : & *dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(2,3)+48*gm(1,1)*(gm(1,2)&
502 : 1903680 : & *dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(3,3))/24.d0
503 : : cm(2,8)=(3*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+16*gm(2,2)&
504 : : & *gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))&
505 : : & *dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(1,1)+6*((6*gm(2,3)&
506 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
507 : : & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
508 : : & *dgm10(1,2)+6*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)*dgm01(1,2)&
509 : : & +16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)*(24*gm(2,3)&
510 : : & *dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,3)+2*(6*(-2*gm(1,3)&
511 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)&
512 : : & *gm(2,2))*dgm01(1,3))*dgm10(2,3)+(24*gm(1,2)*gm(2,2)*dgm01(1,1)&
513 : 1903680 : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2))*dgm10(3,3))/12.d0
514 : : cm(3,8)=(6*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)*gm(2,3)*dgm01(3,3)&
515 : : & +gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)*dgm01(2,3)-4*gm(1,2)&
516 : : & *dgm01(3,3)))*dgm10(1,1)+6*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)&
517 : : & *gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))&
518 : : & *dgm10(1,2)+12*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)&
519 : : & *dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
520 : : & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(1,3)+4*(24*gm(1,3)&
521 : : & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))&
522 : : & *dgm10(2,3)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
523 : 1903680 : & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(3,3))/24.d0
524 : : cm(4,8)=(6*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)&
525 : : & *gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
526 : : & *dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))&
527 : : & *dgm10(1,1)+6*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)&
528 : : & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)&
529 : : & *dgm01(3,3)))*dgm10(1,2)+12*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))&
530 : : & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)&
531 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)&
532 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+4*(6*(1*gm(1,3)&
533 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
534 : : & *gm(2,3))*dgm01(1,3))*dgm10(2,3)+2*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)&
535 : : & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
536 : 1903680 : & *dgm01(1,2))*dgm10(3,3))/12.d0
537 : : cm(5,8)=(6*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)&
538 : : & +3*gm(1,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))&
539 : : & *dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))&
540 : : & *dgm10(1,1)+6*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
541 : : & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(1,2)&
542 : : & +12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)&
543 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
544 : : & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(1,3)&
545 : : & +4*(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)&
546 : : & *gm(1,3)*dgm01(1,3))*dgm10(2,3)+2*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
547 : : & *gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(3,3))&
548 : 1903680 : & /12.d0
549 : : cm(6,8)=(6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)&
550 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)&
551 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)&
552 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
553 : : & *gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
554 : : & *dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(1,2)+12*(2*(3*gm(1,3)&
555 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
556 : : & *gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,3)&
557 : : & +8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,3)+4*(6*(1*gm(1,2)*gm(1,3)&
558 : : & +3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,3))&
559 : : & *dgm10(2,3)+2*(6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,1)&
560 : 1903680 : & +24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(3,3))/12.d0
561 : : cm(1,9)=(6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)&
562 : : & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,3)&
563 : : & *dgm01(2,2)+16*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,1)+12*(gm(1,2)&
564 : : & *(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)&
565 : : & *dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(1,2)&
566 : : & +6*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)&
567 : : & *gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(1,3)+48*gm(1,1)&
568 : : & *(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))*dgm10(2,2)+96*gm(1,1)&
569 : 1903680 : & *(gm(1,2)*dgm01(1,1)+gm(1,1)*dgm01(1,2))*dgm10(2,3))/24.d0
570 : : cm(2,9)=(6*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)*gm(2,3)*dgm01(2,2)&
571 : : & +gm(2,2)*(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)*dgm01(2,2)+16*gm(1,2)&
572 : : & *dgm01(2,3)))*dgm10(1,1)+12*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)-8*gm(1,3)&
573 : : & *dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))+gm(1,2)&
574 : : & *(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+6*(8*gm(2,2)&
575 : : & **2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)&
576 : : & *gm(2,2))*dgm01(2,2))*dgm10(1,3)+2*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
577 : : & *gm(2,3))*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))&
578 : : & *dgm10(2,2)+4*(24*gm(1,2)*gm(2,2)*dgm01(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)&
579 : 1903680 : & *gm(2,2))*dgm01(1,2))*dgm10(2,3))/24.d0
580 : : cm(3,9)=(3*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)&
581 : : & *gm(3,3))*dgm01(1,3)+8*gm(1,3)*gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)&
582 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))*dgm10(1,1)+6*(8*gm(2,3)&
583 : : & *gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)&
584 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)&
585 : : & *gm(3,3))*dgm01(2,3))*dgm10(1,2)+6*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
586 : : & *dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)&
587 : : & +(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(1,3)+(24*gm(1,3)&
588 : : & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))&
589 : : & *dgm10(2,2)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
590 : 1903680 : & +6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2))*dgm10(2,3))/12.d0
591 : : cm(4,9)=(6*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)+8*gm(2,2)&
592 : : & *gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)&
593 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)&
594 : : & +12*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)&
595 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
596 : : & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
597 : : & *dgm01(2,3))*dgm10(1,2)+6*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)&
598 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
599 : : & *gm(2,3))*dgm01(2,2))*dgm10(1,3)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)&
600 : : & *gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
601 : : & *dgm01(1,3))*dgm10(2,2)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
602 : : & *dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2))&
603 : 1903680 : & *dgm10(2,3))/12.d0
604 : : cm(5,9)=(6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)&
605 : : & +2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)&
606 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
607 : : & *gm(2,3))*dgm01(2,3))*dgm10(1,1)+12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)&
608 : : & *gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)&
609 : : & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)&
610 : : & *gm(1,3)*dgm01(2,3))*dgm10(1,2)+6*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)&
611 : : & +24*gm(1,1)*dgm01(1,2))+gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)&
612 : : & *dgm01(1,2)+gm(1,1)*dgm01(2,2))))*dgm10(1,3)+2*(6*(1*gm(1,3)&
613 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)*gm(1,3)*dgm01(1,3))&
614 : : & *dgm10(2,2)+4*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
615 : 1903680 : & +24*gm(1,1)*gm(1,3)*dgm01(1,2))*dgm10(2,3))/12.d0
616 : : cm(6,9)=(6*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)&
617 : : & +8*gm(1,2)*gm(2,2)*dgm01(1,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
618 : : & *gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))&
619 : : & *dgm10(1,1)+12*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)&
620 : : & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)&
621 : : & **2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))&
622 : : & *dgm10(1,2)+6*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)&
623 : : & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(1,3)&
624 : : & +2*(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)+24*gm(1,1)&
625 : : & *gm(1,2)*dgm01(1,3))*dgm10(2,2)+4*(6*(1*gm(1,2)**2+3*gm(1,1)&
626 : : & *gm(2,2))*dgm01(1,1)+24*gm(1,1)*gm(1,2)*dgm01(1,2))*dgm10(2,3))&
627 : 1903680 : & /12.d0
628 : : cm(1,10)=((6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)&
629 : : & *gm(1,3)*dgm01(3,3))*dgm10(1,1)+3*(2*(6*gm(1,3)**2-2*gm(1,1)&
630 : : & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)&
631 : : & **2*dgm01(3,3))*dgm10(1,3)+24*gm(1,1)*(gm(1,3)*dgm01(1,1)+gm(1,1)&
632 : 1903680 : & *dgm01(1,3))*dgm10(3,3))/12.d0
633 : : cm(2,10)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)&
634 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+6*((6*gm(2,3)&
635 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
636 : : & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
637 : : & *dgm10(1,3)+(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,1)&
638 : 1903680 : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(3,3))/12.d0
639 : : cm(3,10)=(24*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))&
640 : : & *dgm10(1,1)+3*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)&
641 : : & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(24*gm(1,3)&
642 : : & *gm(3,3)*dgm01(1,1)+6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3))&
643 : 1903680 : & *dgm10(3,3))/12.d0
644 : : cm(4,10)=((24*gm(2,3)*gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)&
645 : : & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+3*(gm(2,3)*(8*gm(3,3)&
646 : : & *dgm01(1,1)+8*gm(1,3)*dgm01(1,3)-4*gm(1,1)*dgm01(3,3))+gm(1,2)&
647 : : & *(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)*dgm01(3,3)))*dgm10(1,3)+(6*(1*gm(1,3)&
648 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
649 : 1903680 : & *gm(2,3))*dgm01(1,3))*dgm10(3,3))/6.d0
650 : : cm(5,10)=((24*gm(1,3)*gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)&
651 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,1)+3*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)&
652 : : & *gm(3,3)*dgm01(1,3)+8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))&
653 : : & *dgm10(1,3)+(6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,1)+24*gm(1,1)&
654 : 1903680 : & *gm(1,3)*dgm01(1,3))*dgm10(3,3))/6.d0
655 : : cm(6,10)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
656 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,1)&
657 : : & +3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)&
658 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))&
659 : : & *dgm10(1,3)+(6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,1)&
660 : 1903680 : & +24*gm(1,1)*gm(1,2)*dgm01(1,3))*dgm10(3,3))/6.d0
661 : : cm(1,11)=(6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,1)&
662 : : & +4*(6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)+24*gm(1,1)&
663 : : & *gm(1,2)*dgm01(2,2))*dgm10(1,2)+3*(2*(6*gm(1,2)**2-2*gm(1,1)&
664 : : & *gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)&
665 : 1903680 : & **2*dgm01(2,2))*dgm10(2,2))/24.d0
666 : : cm(2,11)=(96*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+384*gm(2,2)*(gm(2,2)&
667 : : & *dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,2)+12*(8*gm(2,2)**2*dgm01(1,1)&
668 : : & +32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))&
669 : 1903680 : & *dgm01(2,2))*dgm10(2,2))/96.d0
670 : : cm(3,11)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)&
671 : : & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)&
672 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,2)+6*((6*gm(2,3)&
673 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
674 : : & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))&
675 : 1903680 : & *dgm10(2,2))/24.d0
676 : : cm(4,11)=(96*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(1,1)+16*(24*gm(2,2)&
677 : : & *gm(2,3)*dgm01(1,2)+6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2))&
678 : : & *dgm10(1,2)+12*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)&
679 : : & +gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
680 : 1903680 : & *dgm01(2,2))*dgm10(2,2))/48.d0
681 : : cm(5,11)=(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)&
682 : : & *dgm10(1,1)+4*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)&
683 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(1,2)&
684 : : & +3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)&
685 : : & *(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))&
686 : 1903680 : & *dgm10(2,2))/12.d0
687 : : cm(6,11)=(96*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,1)+16*(24*gm(1,2)&
688 : : & *gm(2,2)*dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2))&
689 : : & *dgm10(1,2)+12*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)&
690 : : & +8*gm(1,2)*(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(2,2))&
691 : 1903680 : & /48.d0
692 : : cm(1,12)=(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)*dgm10(1,1)&
693 : : & +8*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(1,1)&
694 : : & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(1,1)+4*(2*(6*gm(1,3)&
695 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
696 : : & *gm(2,3))*dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)+8*gm(1,1)&
697 : : & *gm(1,2)*dgm01(3,3))*dgm10(1,2)+4*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
698 : : & *gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3)&
699 : : & +8*gm(1,1)*gm(1,3)*dgm01(2,2)+16*gm(1,1)*gm(1,2)*dgm01(2,3))&
700 : : & *dgm10(1,3)+(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)+32*gm(1,1)&
701 : : & *gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(2,2)+4*(gm(1,2)&
702 : : & *(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)*(-4*gm(2,3)&
703 : : & *dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))*dgm10(2,3)&
704 : : & +(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)+32*gm(1,1)*gm(1,2)&
705 : 1903680 : & *dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(3,3))/8.d0
706 : : cm(2,12)=(4*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)&
707 : : & +64*gm(2,2)*gm(2,3)*dgm01(2,3)*dgm10(1,1)+16*gm(2,2)**2*dgm01(3,3)&
708 : : & *dgm10(1,1)+8*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)&
709 : : & +16*gm(2,2)*gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
710 : : & *gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(1,2)&
711 : : & +8*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)&
712 : : & *(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)*dgm01(2,2)+16*gm(1,2)*dgm01(2,3)))&
713 : : & *dgm10(1,3)+4*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)&
714 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)&
715 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+8*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)&
716 : : & -8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))&
717 : : & +gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(2,3)&
718 : : & +2*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)+2*(6*gm(1,2)&
719 : 1903680 : & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(3,3))/16.d0
720 : : cm(3,12)=(16*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+64*gm(2,3)*gm(3,3)&
721 : : & *dgm01(2,3)*dgm10(1,1)+4*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)&
722 : : & *dgm10(1,1)+8*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)*gm(2,3)*dgm01(3,3)&
723 : : & +gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)*dgm01(2,3)-4*gm(1,2)&
724 : : & *dgm01(3,3)))*dgm10(1,2)+8*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)&
725 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+8*gm(1,3)*gm(3,3)*dgm01(2,2)&
726 : : & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))*dgm10(1,3)&
727 : : & +2*(8*gm(3,3)**2*dgm01(1,1)+32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)&
728 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+8*(8*gm(2,3)*gm(3,3)&
729 : : & *dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)&
730 : : & -2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
731 : : & *dgm01(2,3))*dgm10(2,3)+4*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)&
732 : : & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+(6*gm(1,3)&
733 : 1903680 : & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/16.d0
734 : : cm(4,12)=(16*gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+16*(1*gm(2,3)&
735 : : & **2+3*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+16*gm(2,2)*gm(2,3)&
736 : : & *dgm01(3,3)*dgm10(1,1)+8*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)&
737 : : & **2+3*gm(2,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)&
738 : : & *gm(3,3))*dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))&
739 : : & *dgm10(1,2)+8*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)&
740 : : & +8*gm(2,2)*gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)&
741 : : & *gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))&
742 : : & *dgm10(1,3)+2*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)&
743 : : & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)&
744 : : & *dgm01(3,3)))*dgm10(2,2)+8*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))&
745 : : & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)&
746 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)&
747 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+2*(8*gm(2,2)&
748 : : & *gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)&
749 : : & +2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2))*dgm10(3,3))&
750 : 1903680 : & /8.d0
751 : : cm(5,12)=(16*gm(1,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+16*(1*gm(1,3)&
752 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+4*(-2*gm(1,3)&
753 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+8*(8*gm(1,3)&
754 : : & *gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,3)&
755 : : & +4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)&
756 : : & +3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+8*(4*(1*gm(1,3)*gm(2,3)&
757 : : & +3*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
758 : : & *gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,2)&
759 : : & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(1,3)&
760 : : & +2*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)+8*gm(1,3)&
761 : : & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,2)+8*(2*(1*gm(1,3)&
762 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)&
763 : : & *gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
764 : : & *dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(2,3)+2*(gm(2,3)&
765 : : & *(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))+gm(1,3)*(-4*gm(2,2)&
766 : : & *dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)*dgm01(2,2))))*dgm10(3,3))&
767 : 1903680 : & /8.d0
768 : : cm(6,12)=(4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)&
769 : : & *dgm10(1,1)+16*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3)&
770 : : & *dgm10(1,1)+16*gm(1,2)*gm(2,2)*dgm01(3,3)*dgm10(1,1)+8*(2*(6*gm(1,3)&
771 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
772 : : & *gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
773 : : & *dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)&
774 : : & +8*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)&
775 : : & *gm(2,2)*dgm01(1,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)&
776 : : & +4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+2*(2*(6*gm(1,3)&
777 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
778 : : & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))*dgm10(2,2)&
779 : : & +8*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)&
780 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)&
781 : : & *gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(2,3)&
782 : : & +2*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)+8*gm(1,2)&
783 : 1903680 : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(3,3))/8.d0
784 : : cm(1,13)=(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)&
785 : : & *dgm10(1,1)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(1,1)&
786 : : & +6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)&
787 : : & **2-2*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,2)&
788 : : & +16*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(1,2)+2*(6*(6*gm(1,2)**2-2*gm(1,1)&
789 : : & *gm(2,2))*dgm01(1,2)+24*gm(1,1)*gm(1,2)*dgm01(2,2))*dgm10(1,3)&
790 : : & +3*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)&
791 : : & *(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))&
792 : : & *dgm10(2,2)+3*(2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,1)&
793 : : & +32*gm(1,1)*gm(1,2)*dgm01(1,2)+8*gm(1,1)**2*dgm01(2,2))*dgm10(2,3))&
794 : 1903680 : & /12.d0
795 : : cm(2,13)=(48*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(1,1)+48*gm(2,2)&
796 : : & **2*dgm01(2,3)*dgm10(1,1)+12*(8*gm(2,2)**2*dgm01(1,3)+12*gm(1,2)&
797 : : & *gm(2,3)*dgm01(2,2)+gm(2,2)*(16*gm(2,3)*dgm01(1,2)-4*gm(1,3)&
798 : : & *dgm01(2,2)+16*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+96*gm(2,2)*(gm(2,2)&
799 : : & *dgm01(1,2)+gm(1,2)*dgm01(2,2))*dgm10(1,3)+6*(gm(2,2)*(8*gm(2,3)&
800 : : & *dgm01(1,1)-8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)&
801 : : & *dgm01(2,3))+gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))&
802 : : & *dgm10(2,2)+6*(8*gm(2,2)**2*dgm01(1,1)+32*gm(1,2)*gm(2,2)*dgm01(1,2)&
803 : 1903680 : & +2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(2,3))/24.d0
804 : : cm(3,13)=(48*gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(1,1)+12*(6*gm(2,3)&
805 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+12*(16*gm(2,3)*gm(3,3)&
806 : : & *dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+8*gm(1,3)&
807 : : & *gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))&
808 : : & *dgm10(1,2)+4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)&
809 : : & +6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2))*dgm10(1,3)&
810 : : & +6*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)*gm(3,3)*dgm01(1,2)&
811 : : & +4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)+2*(6*gm(1,3)&
812 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(2,2)+12*((6*gm(2,3)&
813 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
814 : : & *gm(3,3))*dgm01(1,2)+(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2))&
815 : 1903680 : & *dgm10(2,3))/24.d0
816 : : cm(4,13)=(12*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,1)&
817 : : & +48*gm(2,2)*gm(2,3)*dgm01(2,3)*dgm10(1,1)+12*(4*(1*gm(2,3)**2+3*gm(2,2)&
818 : : & *gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)*dgm01(1,3)+2*(1*gm(1,3)&
819 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
820 : : & *gm(2,3))*dgm01(2,3))*dgm10(1,2)+4*(24*gm(2,2)*gm(2,3)*dgm01(1,2)&
821 : : & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,3)&
822 : : & +6*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)&
823 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
824 : : & *gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
825 : : & *dgm01(2,3))*dgm10(2,2)+6*(8*gm(2,2)*gm(2,3)*dgm01(1,1)+8*(3*gm(1,3)&
826 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
827 : 1903680 : & *gm(2,3))*dgm01(2,2))*dgm10(2,3))/12.d0
828 : : cm(5,13)=(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)&
829 : : & *dgm10(1,1)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)&
830 : : & *dgm10(1,1)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)&
831 : : & +2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(1*gm(1,3)&
832 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
833 : : & *gm(2,3))*dgm01(2,3))*dgm10(1,2)+2*(6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
834 : : & *gm(2,3))*dgm01(1,2)+6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
835 : : & *dgm01(2,2))*dgm10(1,3)+3*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
836 : : & *dgm01(1,1)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)&
837 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))&
838 : : & *dgm10(2,2)+3*(gm(2,3)*(12*gm(1,2)*dgm01(1,1)+24*gm(1,1)*dgm01(1,2))&
839 : : & +gm(1,3)*(-4*gm(2,2)*dgm01(1,1)+8*(gm(1,2)*dgm01(1,2)+gm(1,1)&
840 : 1903680 : & *dgm01(2,2))))*dgm10(2,3))/6.d0
841 : : cm(6,13)=(12*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)&
842 : : & *dgm10(1,1)+48*gm(1,2)*gm(2,2)*dgm01(2,3)*dgm10(1,1)+12*(4*(3*gm(1,3)&
843 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3)&
844 : : & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)&
845 : : & **2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+4*(24*gm(1,2)*gm(2,2)&
846 : : & *dgm01(1,2)+6*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,3)&
847 : : & +6*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)&
848 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)&
849 : : & *gm(2,2))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(2,3))*dgm10(2,2)&
850 : : & +6*(8*gm(1,2)**2*dgm01(1,2)+24*gm(1,1)*gm(2,2)*dgm01(1,2)+8*gm(1,2)&
851 : 1903680 : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0
852 : : cm(1,14)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(1,1)&
853 : : & +6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(1,1)&
854 : : & +2*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)&
855 : : & *gm(1,3)*dgm01(3,3))*dgm10(1,2)+6*(2*(6*gm(1,3)**2-2*gm(1,1)&
856 : : & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
857 : : & *dgm01(1,3)+16*gm(1,1)*gm(1,3)*dgm01(2,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))&
858 : : & *dgm10(1,3)+3*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,1)&
859 : : & +32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)**2*dgm01(3,3))*dgm10(2,3)&
860 : : & +3*(gm(1,2)*(12*gm(1,3)*dgm01(1,1)+16*gm(1,1)*dgm01(1,3))+gm(1,1)&
861 : : & *(-4*gm(2,3)*dgm01(1,1)+16*gm(1,3)*dgm01(1,2)+8*gm(1,1)*dgm01(2,3)))&
862 : 1903680 : & *dgm10(3,3))/12.d0
863 : : cm(2,14)=(12*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)&
864 : : & +48*gm(2,2)*gm(2,3)*dgm01(3,3)*dgm10(1,1)+4*(6*(6*gm(2,3)**2-2*gm(2,2)&
865 : : & *gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))&
866 : : & *dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
867 : : & *dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3)+4*(-2*gm(1,3)*gm(2,2)&
868 : : & +6*gm(1,2)*gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))&
869 : : & *dgm10(1,3)+12*((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)&
870 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)&
871 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+6*(gm(2,2)*(8*gm(2,3)*dgm01(1,1)&
872 : : & -8*gm(1,3)*dgm01(1,2)+16*gm(1,2)*dgm01(1,3)-4*gm(1,1)*dgm01(2,3))&
873 : : & +gm(1,2)*(24*gm(2,3)*dgm01(1,2)+12*gm(1,2)*dgm01(2,3)))*dgm10(3,3))&
874 : 1903680 : & /24.d0
875 : : cm(3,14)=(48*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+48*gm(2,3)*gm(3,3)&
876 : : & *dgm01(3,3)*dgm10(1,1)+96*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)&
877 : : & *dgm01(3,3))*dgm10(1,2)+12*(8*gm(3,3)**2*dgm01(1,2)+12*gm(1,3)&
878 : : & *gm(2,3)*dgm01(3,3)+gm(3,3)*(16*gm(2,3)*dgm01(1,3)+16*gm(1,3)&
879 : : & *dgm01(2,3)-4*gm(1,2)*dgm01(3,3)))*dgm10(1,3)+6*(8*gm(3,3)**2*dgm01(1,1)&
880 : : & +32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
881 : : & *dgm01(3,3))*dgm10(2,3)+6*(8*gm(2,3)*gm(3,3)*dgm01(1,1)+16*gm(1,3)&
882 : : & *gm(3,3)*dgm01(1,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
883 : 1903680 : & +2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3))*dgm10(3,3))/24.d0
884 : : cm(4,14)=(48*gm(2,3)*gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*(1*gm(2,3)&
885 : : & **2+3*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*(24*gm(2,3)*gm(3,3)&
886 : : & *dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))&
887 : : & *dgm10(1,2)+12*(8*gm(2,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)&
888 : : & *gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
889 : : & *dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))&
890 : : & *dgm10(1,3)+6*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)&
891 : : & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)&
892 : : & *dgm01(3,3)))*dgm10(2,3)+6*(2*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))&
893 : : & *dgm01(1,1)+4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)&
894 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)&
895 : 1903680 : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/12.d0
896 : : cm(5,14)=(48*gm(1,3)*gm(3,3)*dgm01(2,3)*dgm10(1,1)+12*(1*gm(1,3)&
897 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*(24*gm(1,3)&
898 : : & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(3,3))&
899 : : & *dgm10(1,2)+12*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)&
900 : : & +3*gm(1,2)*gm(3,3))*dgm01(1,3)+4*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))&
901 : : & *dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))&
902 : : & *dgm10(1,3)+6*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
903 : : & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(2,3)&
904 : : & +6*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,1)+4*(1*gm(1,3)&
905 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(1,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
906 : : & *gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,3)*dgm01(2,3))*dgm10(3,3))&
907 : 1903680 : & /12.d0
908 : : cm(6,14)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)&
909 : : & *dgm10(1,1)+6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)&
910 : : & *dgm10(1,1)+2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
911 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)&
912 : : & +6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)&
913 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
914 : : & *gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))&
915 : : & *dgm10(1,3)+3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)&
916 : : & +8*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)&
917 : : & *gm(1,2)*dgm01(3,3))*dgm10(2,3)+3*(2*(3*gm(1,3)*gm(2,2)+gm(1,2)&
918 : : & *gm(2,3))*dgm01(1,1)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
919 : : & *dgm01(1,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(1,3)+8*gm(1,1)&
920 : 1903680 : & *gm(1,2)*dgm01(2,3))*dgm10(3,3))/6.d0
921 : : cm(1,15)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(1,1)&
922 : : & +4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)+24*gm(1,1)&
923 : : & *gm(1,3)*dgm01(3,3))*dgm10(1,3)+3*(2*(6*gm(1,3)**2-2*gm(1,1)&
924 : : & *gm(3,3))*dgm01(1,1)+32*gm(1,1)*gm(1,3)*dgm01(1,3)+8*gm(1,1)&
925 : 1903680 : & **2*dgm01(3,3))*dgm10(3,3))/24.d0
926 : : cm(2,15)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)&
927 : : & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-2*gm(1,3)&
928 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+6*((6*gm(2,3)&
929 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,1)+4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
930 : : & *gm(2,3))*dgm01(1,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
931 : 1903680 : & *dgm10(3,3))/24.d0
932 : : cm(3,15)=(96*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+384*gm(3,3)*(gm(3,3)&
933 : : & *dgm01(1,3)+gm(1,3)*dgm01(3,3))*dgm10(1,3)+12*(8*gm(3,3)**2*dgm01(1,1)&
934 : : & +32*gm(1,3)*gm(3,3)*dgm01(1,3)+2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))&
935 : 1903680 : & *dgm01(3,3))*dgm10(3,3))/96.d0
936 : : cm(4,15)=(96*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(1,1)+16*(24*gm(2,3)&
937 : : & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))&
938 : : & *dgm10(1,3)+12*(gm(2,3)*(8*gm(3,3)*dgm01(1,1)+8*gm(1,3)*dgm01(1,3)&
939 : : & -4*gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,3)+12*gm(1,3)&
940 : 1903680 : & *dgm01(3,3)))*dgm10(3,3))/48.d0
941 : : cm(5,15)=(96*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,1)+16*(24*gm(1,3)&
942 : : & *gm(3,3)*dgm01(1,3)+6*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(3,3))&
943 : : & *dgm10(1,3)+12*(8*gm(1,3)**2*dgm01(1,3)+24*gm(1,1)*gm(3,3)*dgm01(1,3)&
944 : : & +8*gm(1,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))*dgm10(3,3))&
945 : 1903680 : & /48.d0
946 : : cm(6,15)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)&
947 : : & *dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
948 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,3)&
949 : : & +3*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,1)+8*(1*gm(1,2)&
950 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(1,3)+8*gm(1,1)*gm(1,2)*dgm01(3,3))&
951 : 1903680 : & *dgm10(3,3))/12.d0
952 : : cm(1,16)=(120*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,2)&
953 : : & +120*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(2,2)+480*gm(1,1)&
954 : 1903680 : & *gm(1,2)*dgm01(2,2)*dgm10(2,2))/240.d0
955 : : cm(2,16)=2*gm(2,2)*(gm(1,2)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(dgm01(2,2)&
956 : 1903680 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
957 : : cm(3,16)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(1,2)&
958 : : & +(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(2,2)+(6*gm(1,3)&
959 : 1903680 : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)*dgm10(2,2))/2.d0
960 : : cm(4,16)=(120*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
961 : : & *(360*gm(1,3)*dgm01(2,2)*dgm10(2,2)+480*gm(2,3)*(dgm01(2,2)*dgm10(1,2)&
962 : 1903680 : & +dgm01(1,2)*dgm10(2,2))))/120.d0
963 : : cm(5,16)=(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,2)&
964 : : & +(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(2,2)&
965 : 1903680 : & +(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(2,2)
966 : : cm(6,16)=(480*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,2)+480*gm(1,2)&
967 : : & *gm(2,2)*dgm01(1,2)*dgm10(2,2)+120*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))&
968 : 1903680 : & *dgm01(2,2)*dgm10(2,2))/120.d0
969 : : cm(1,17)=(12*((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)&
970 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)&
971 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
972 : : & *gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))&
973 : : & *dgm10(1,3)+6*(2*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,2)&
974 : : & +4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,3))*dgm10(2,2)&
975 : : & +6*gm(1,1)*(16*gm(1,3)*dgm01(2,3)+8*gm(1,2)*dgm01(3,3))*dgm10(2,2)&
976 : : & +12*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)&
977 : : & **2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+12*gm(1,1)*(8*gm(1,3)&
978 : : & *dgm01(2,2)+16*gm(1,2)*dgm01(2,3))*dgm10(2,3)+12*(6*gm(1,2)**2-2*gm(1,1)&
979 : : & *gm(2,2))*dgm01(1,2)*dgm10(3,3)+48*gm(1,1)*gm(1,2)*dgm01(2,2)&
980 : 1903680 : & *dgm10(3,3))/24.d0
981 : : cm(2,17)=(6*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)+32*gm(2,2)&
982 : : & *gm(2,3)*dgm01(2,3)+8*gm(2,2)**2*dgm01(3,3))*dgm10(1,2)+96*gm(2,2)&
983 : : & *(gm(2,3)*dgm01(2,2)+gm(2,2)*dgm01(2,3))*dgm10(1,3)+6*(2*(6*gm(2,3)&
984 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3))&
985 : : & *dgm10(2,2)+6*(4*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)&
986 : : & +8*gm(1,2)*gm(2,2)*dgm01(3,3))*dgm10(2,2)+12*gm(2,2)*(16*gm(2,3)&
987 : : & *dgm01(1,2)+8*gm(2,2)*dgm01(1,3))*dgm10(2,3)+12*(2*(-2*gm(1,3)&
988 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)+16*gm(1,2)*gm(2,2)*dgm01(2,3))&
989 : : & *dgm10(2,3)+48*gm(2,2)**2*dgm01(1,2)*dgm10(3,3)+48*gm(1,2)*gm(2,2)&
990 : 1903680 : & *dgm01(2,2)*dgm10(3,3))/24.d0
991 : : cm(3,17)=(3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)&
992 : : & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+2*(24*gm(2,3)&
993 : : & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))&
994 : : & *dgm10(1,3)+3*gm(3,3)*(8*gm(3,3)*dgm01(1,2)+16*gm(2,3)*dgm01(1,3))&
995 : : & *dgm10(2,2)+3*(16*gm(1,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(1,3)*gm(2,3)&
996 : : & -2*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+6*(16*gm(2,3)*gm(3,3)&
997 : : & *dgm01(1,2)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)&
998 : : & +6*(8*gm(1,3)*gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
999 : : & *gm(3,3))*dgm01(2,3))*dgm10(2,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1000 : : & *dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))&
1001 : 1903680 : & *dgm01(2,2)*dgm10(3,3))/12.d0
1002 : : cm(4,17)=(6*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)&
1003 : : & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(1,2)&
1004 : : & +4*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)&
1005 : : & *gm(2,3)*dgm01(2,3))*dgm10(1,3)+6*(8*gm(2,3)*gm(3,3)*dgm01(1,2)&
1006 : : & +4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+6*(4*(1*gm(1,3)&
1007 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(3*gm(1,3)*gm(2,2)+gm(1,2)&
1008 : : & *gm(2,3))*dgm01(3,3))*dgm10(2,2)+12*(4*(1*gm(2,3)**2+3*gm(2,2)&
1009 : : & *gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,3)&
1010 : : & +12*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)&
1011 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+48*gm(2,2)*gm(2,3)&
1012 : : & *dgm01(1,2)*dgm10(3,3)+12*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
1013 : 1903680 : & *dgm01(2,2)*dgm10(3,3))/12.d0
1014 : : cm(5,17)=(3*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)&
1015 : : & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)&
1016 : : & *dgm01(3,3)))*dgm10(1,2)+2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
1017 : : & *dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))&
1018 : : & *dgm10(1,3)+3*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)*gm(2,3)&
1019 : : & +3*gm(1,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+3*(4*(1*gm(1,3)**2+3*gm(1,1)&
1020 : : & *gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))&
1021 : : & *dgm01(3,3))*dgm10(2,2)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
1022 : : & *dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3))&
1023 : : & *dgm10(2,3)+6*(2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))*dgm01(2,2)&
1024 : : & +4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))*dgm10(2,3)&
1025 : : & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)&
1026 : : & +6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)*dgm10(3,3))&
1027 : 1903680 : & /6.d0
1028 : : cm(6,17)=(6*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))&
1029 : : & +gm(1,2)*(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)&
1030 : : & *dgm01(3,3))))*dgm10(1,2)+4*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
1031 : : & *dgm01(2,2)+24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,3)+6*(2*(6*gm(1,3)&
1032 : : & *gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)&
1033 : : & *gm(2,3))*dgm01(1,3))*dgm10(2,2)+6*(4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
1034 : : & *gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3))&
1035 : : & *dgm10(2,2)+12*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)&
1036 : : & +8*gm(1,2)*gm(2,2)*dgm01(1,3))*dgm10(2,3)+12*(2*(1*gm(1,2)*gm(1,3)&
1037 : : & +3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))&
1038 : : & *dgm01(2,3))*dgm10(2,3)+48*gm(1,2)*gm(2,2)*dgm01(1,2)*dgm10(3,3)&
1039 : 1903680 : & +12*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/12.d0
1040 : : cm(1,18)=(8*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)&
1041 : : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+24*(6*gm(1,2)&
1042 : : & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+12*(4*(6*gm(1,2)&
1043 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)&
1044 : : & *gm(2,2))*dgm01(1,3))*dgm10(2,2)+12*gm(1,1)*(8*gm(1,3)*dgm01(2,2)&
1045 : : & +16*gm(1,2)*dgm01(2,3))*dgm10(2,2)+48*(6*gm(1,2)**2-2*gm(1,1)&
1046 : : & *gm(2,2))*dgm01(1,2)*dgm10(2,3)+192*gm(1,1)*gm(1,2)*dgm01(2,2)&
1047 : 1903680 : & *dgm10(2,3))/48.d0
1048 : : cm(2,18)=(144*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
1049 : : & **2*(192*dgm01(2,3)*dgm10(1,2)+96*dgm01(2,2)*dgm10(1,3)+96*dgm01(1,3)&
1050 : : & *dgm10(2,2)+192*dgm01(1,2)*dgm10(2,3))+gm(2,2)*(-48*gm(1,3)*dgm01(2,2)&
1051 : : & *dgm10(2,2)+192*gm(2,3)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))&
1052 : : & +192*gm(1,2)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))))&
1053 : 1903680 : & /48.d0
1054 : : cm(3,18)=(2*(24*gm(2,3)*gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)&
1055 : : & *gm(3,3))*dgm01(2,3))*dgm10(1,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1056 : : & *dgm01(2,2)*dgm10(1,3)+3*(16*gm(2,3)*gm(3,3)*dgm01(1,2)+2*(6*gm(2,3)&
1057 : : & **2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+3*(8*gm(1,3)*gm(3,3)&
1058 : : & *dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))&
1059 : : & *dgm10(2,2)+12*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(2,3)&
1060 : : & +12*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,2)*dgm10(2,3))&
1061 : 1903680 : & /12.d0
1062 : : cm(4,18)=(8*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)&
1063 : : & *gm(2,3)*dgm01(2,3))*dgm10(1,2)+96*gm(2,2)*gm(2,3)*dgm01(2,2)&
1064 : : & *dgm10(1,3)+12*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)&
1065 : : & +8*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,2)+12*(2*(1*gm(1,3)*gm(2,3)&
1066 : : & +3*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
1067 : : & *dgm01(2,3))*dgm10(2,2)+192*gm(2,2)*gm(2,3)*dgm01(1,2)*dgm10(2,3)&
1068 : : & +48*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))&
1069 : 1903680 : & /24.d0
1070 : : cm(5,18)=(2*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)&
1071 : : & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)&
1072 : : & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,3)&
1073 : : & +3*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)&
1074 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)+3*(2*(1*gm(1,3)&
1075 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
1076 : : & *gm(2,3))*dgm01(2,3))*dgm10(2,2)+12*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)&
1077 : : & *gm(2,3))*dgm01(1,2)*dgm10(2,3)+12*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
1078 : 1903680 : & *gm(2,3))*dgm01(2,2)*dgm10(2,3))/6.d0
1079 : : cm(6,18)=(8*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)&
1080 : : & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,2)+96*gm(1,2)*gm(2,2)&
1081 : : & *dgm01(2,2)*dgm10(1,3)+12*(4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
1082 : : & *dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3))*dgm10(2,2)+12*(2*(1*gm(1,2)&
1083 : : & *gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)+4*(1*gm(1,2)**2+3*gm(1,1)&
1084 : : & *gm(2,2))*dgm01(2,3))*dgm10(2,2)+192*gm(1,2)*gm(2,2)*dgm01(1,2)&
1085 : : & *dgm10(2,3)+48*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))&
1086 : 1903680 : & /24.d0
1087 : : cm(1,19)=(4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)&
1088 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*((6*gm(1,3)&
1089 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
1090 : : & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
1091 : : & *dgm10(1,3)+12*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,2)&
1092 : : & +48*gm(1,1)*gm(1,3)*dgm01(3,3)*dgm10(2,2)+12*(2*(6*gm(1,3)**2-2*gm(1,1)&
1093 : : & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
1094 : : & *dgm01(1,3))*dgm10(2,3)+12*gm(1,1)*(16*gm(1,3)*dgm01(2,3)+8*gm(1,2)&
1095 : : & *dgm01(3,3))*dgm10(2,3)+6*(4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))&
1096 : : & *dgm01(1,2)+2*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(1,3))*dgm10(3,3)&
1097 : : & +6*gm(1,1)*(8*gm(1,3)*dgm01(2,2)+16*gm(1,2)*dgm01(2,3))*dgm10(3,3))&
1098 : 1903680 : & /24.d0
1099 : : cm(2,19)=(2*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)&
1100 : : & *gm(2,3)*dgm01(3,3))*dgm10(1,2)+3*(2*(6*gm(2,3)**2-2*gm(2,2)&
1101 : : & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)&
1102 : : & **2*dgm01(3,3))*dgm10(1,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1103 : : & *dgm01(1,3)*dgm10(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))&
1104 : : & *dgm01(3,3)*dgm10(2,2)+6*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1105 : : & *dgm01(1,2)+16*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,3)+6*(4*(-2*gm(1,3)&
1106 : : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3)+8*gm(1,2)*gm(2,2)*dgm01(3,3))&
1107 : : & *dgm10(2,3)+3*gm(2,2)*(16*gm(2,3)*dgm01(1,2)+8*gm(2,2)*dgm01(1,3))&
1108 : : & *dgm10(3,3)+3*(2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)&
1109 : 1903680 : & +16*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/12.d0
1110 : : cm(3,19)=(96*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))&
1111 : : & *dgm10(1,2)+6*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)&
1112 : : & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+48*gm(3,3)&
1113 : : & **2*dgm01(1,3)*dgm10(2,2)+48*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)&
1114 : : & +12*gm(3,3)*(8*gm(3,3)*dgm01(1,2)+16*gm(2,3)*dgm01(1,3))*dgm10(2,3)&
1115 : : & +12*(16*gm(1,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)&
1116 : : & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+6*(16*gm(2,3)*gm(3,3)*dgm01(1,2)&
1117 : : & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(3,3)+6*(8*gm(1,3)&
1118 : : & *gm(3,3)*dgm01(2,2)+4*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3))&
1119 : 1903680 : & *dgm10(3,3))/24.d0
1120 : : cm(4,19)=(4*(24*gm(2,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)&
1121 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+6*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)&
1122 : : & *gm(3,3)*dgm01(2,3)+8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))&
1123 : : & *dgm10(1,3)+48*gm(2,3)*gm(3,3)*dgm01(1,3)*dgm10(2,2)+12*(1*gm(1,3)&
1124 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(2,2)+12*(8*gm(2,3)&
1125 : : & *gm(3,3)*dgm01(1,2)+4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,3))&
1126 : : & *dgm10(2,3)+12*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,3)&
1127 : : & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)&
1128 : : & +6*(4*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(1,2)+8*gm(2,2)*gm(2,3)&
1129 : : & *dgm01(1,3))*dgm10(3,3)+6*(2*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
1130 : : & *dgm01(2,2)+4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,3))&
1131 : 1903680 : & *dgm10(3,3))/12.d0
1132 : : cm(5,19)=(4*(24*gm(1,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)&
1133 : : & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+6*(gm(1,3)*(8*gm(3,3)&
1134 : : & *dgm01(2,2)+8*gm(2,3)*dgm01(2,3)-4*gm(2,2)*dgm01(3,3))+gm(1,2)&
1135 : : & *(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)*dgm01(3,3)))*dgm10(1,3)+48*gm(1,3)&
1136 : : & *gm(3,3)*dgm01(1,3)*dgm10(2,2)+12*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))&
1137 : : & *dgm01(3,3)*dgm10(2,2)+12*(8*gm(1,3)*gm(3,3)*dgm01(1,2)+4*(1*gm(1,3)&
1138 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+12*(4*(1*gm(1,3)&
1139 : : & **2+3*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)&
1140 : : & *gm(2,3))*dgm01(3,3))*dgm10(2,3)+6*(4*(1*gm(1,3)*gm(2,3)+3*gm(1,2)&
1141 : : & *gm(3,3))*dgm01(1,2)+2*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))&
1142 : : & *dgm01(1,3))*dgm10(3,3)+6*(2*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))&
1143 : : & *dgm01(2,2)+4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3))&
1144 : 1903680 : & *dgm10(3,3))/12.d0
1145 : : cm(6,19)=(2*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)&
1146 : : & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)&
1147 : : & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)&
1148 : : & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))&
1149 : : & *dgm10(1,3)+6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)&
1150 : : & *dgm10(2,2)+6*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)&
1151 : : & *dgm10(2,2)+6*(2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)&
1152 : : & +4*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)&
1153 : : & +6*(4*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)+2*(1*gm(1,2)&
1154 : : & **2+3*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+3*(4*(3*gm(1,3)&
1155 : : & *gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,2)+8*gm(1,2)*gm(2,2)*dgm01(1,3))&
1156 : : & *dgm10(3,3)+3*(2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,2)&
1157 : 1903680 : & +4*(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/6.d0
1158 : : cm(1,20)=(gm(1,3)**2*(144*dgm01(3,3)*dgm10(1,2)+288*dgm01(2,3)&
1159 : : & *dgm10(1,3)+288*dgm01(1,3)*dgm10(2,3)+144*dgm01(1,2)*dgm10(3,3))&
1160 : : & +gm(1,1)*(96*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(-48*dgm01(3,3)&
1161 : : & *dgm10(1,2)-96*dgm01(2,3)*dgm10(1,3)-96*dgm01(1,3)*dgm10(2,3)&
1162 : : & -48*dgm01(1,2)*dgm10(3,3))-96*gm(2,3)*(dgm01(3,3)*dgm10(1,3)&
1163 : : & +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(288*gm(1,2)*(dgm01(3,3)*dgm10(1,3)&
1164 : : & +dgm01(1,3)*dgm10(3,3))+192*gm(1,1)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1165 : 1903680 : & *dgm10(3,3))))/48.d0
1166 : : cm(2,20)=(gm(2,3)**2*(144*dgm01(3,3)*dgm10(1,2)+288*dgm01(2,3)&
1167 : : & *dgm10(1,3)+288*dgm01(1,3)*dgm10(2,3)+144*dgm01(1,2)*dgm10(3,3))&
1168 : : & +gm(2,3)*(192*gm(2,2)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1169 : : & +288*gm(1,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))+gm(2,2)&
1170 : : & *(96*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(-48*dgm01(3,3)*dgm10(1,2)&
1171 : : & -96*dgm01(2,3)*dgm10(1,3)-96*dgm01(1,3)*dgm10(2,3)-48*dgm01(1,2)&
1172 : : & *dgm10(3,3))-96*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
1173 : 1903680 : & /48.d0
1174 : : cm(3,20)=(144*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
1175 : : & **2*(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)*dgm10(1,3)+192*dgm01(1,3)&
1176 : : & *dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-48*gm(1,2)*dgm01(3,3)&
1177 : : & *dgm10(3,3)+192*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1178 : : & +192*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
1179 : 1903680 : & /48.d0
1180 : : cm(4,20)=(48*gm(2,3)**2*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3))&
1181 : : & +144*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))&
1182 : : & +gm(2,2)*(72*gm(1,3)*dgm01(3,3)*dgm10(3,3)+144*gm(3,3)*(dgm01(3,3)&
1183 : : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(2,3)*(24*gm(1,2)*dgm01(3,3)&
1184 : : & *dgm10(3,3)+gm(3,3)*(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)&
1185 : : & *dgm10(1,3)+192*dgm01(1,3)*dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))&
1186 : 1903680 : & +48*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))/24.d0
1187 : : cm(5,20)=(144*gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
1188 : : & *dgm10(3,3))+48*gm(1,3)**2*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
1189 : : & *dgm10(3,3))+gm(1,3)*(24*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)&
1190 : : & *(96*dgm01(3,3)*dgm10(1,2)+192*dgm01(2,3)*dgm10(1,3)+192*dgm01(1,3)&
1191 : : & *dgm10(2,3)+96*dgm01(1,2)*dgm10(3,3))+48*gm(2,3)*(dgm01(3,3)&
1192 : : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(1,1)*(72*gm(2,3)*dgm01(3,3)&
1193 : : & *dgm10(3,3)+144*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))&
1194 : 1903680 : & /24.d0
1195 : : cm(6,20)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,2)&
1196 : : & +2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,3)&
1197 : : & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(1,3)&
1198 : : & +2*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(2,3)&
1199 : : & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(2,3)&
1200 : : & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,2)*dgm10(3,3)&
1201 : : & +2*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(1,3)*dgm10(3,3)&
1202 : : & +2*(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(2,3)*dgm10(3,3)&
1203 : 1903680 : & +(1*gm(1,2)**2+3*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(3,3)
1204 : : cm(1,21)=(120*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(1,3)&
1205 : : & +120*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+480*gm(1,1)&
1206 : 1903680 : & *gm(1,3)*dgm01(3,3)*dgm10(3,3))/240.d0
1207 : : cm(2,21)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,3)&
1208 : : & +(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+(-2*gm(1,3)&
1209 : 1903680 : & *gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3))/2.d0
1210 : : cm(3,21)=2*gm(3,3)*(gm(1,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(dgm01(3,3)&
1211 : 1903680 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
1212 : : cm(4,21)=(360*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)+gm(2,3)&
1213 : : & *(120*gm(1,3)*dgm01(3,3)*dgm10(3,3)+480*gm(3,3)*(dgm01(3,3)*dgm10(1,3)&
1214 : 1903680 : & +dgm01(1,3)*dgm10(3,3))))/120.d0
1215 : : cm(5,21)=(480*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,3)+480*gm(1,3)&
1216 : : & *gm(3,3)*dgm01(1,3)*dgm10(3,3)+120*(1*gm(1,3)**2+3*gm(1,1)*gm(3,3))&
1217 : 1903680 : & *dgm01(3,3)*dgm10(3,3))/120.d0
1218 : : cm(6,21)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,3)&
1219 : : & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)&
1220 : 1903680 : & +(1*gm(1,2)*gm(1,3)+3*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3)
1221 : : cm(1,22)=((6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,2))&
1222 : 1903680 : & /4.d0
1223 : 1903680 : cm(2,22)=gm(2,2)**2*dgm01(2,2)*dgm10(2,2)
1224 : : cm(3,22)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(2,2))&
1225 : 1903680 : & /4.d0
1226 : 1903680 : cm(4,22)=2*gm(2,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)
1227 : : cm(5,22)=((-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)&
1228 : 1903680 : & *dgm10(2,2))/2.d0
1229 : 1903680 : cm(6,22)=2*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(2,2)
1230 : : cm(1,23)=(6*((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)&
1231 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)&
1232 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
1233 : : & *gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))&
1234 : : & *dgm10(2,3)+6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))&
1235 : 1903680 : & /24.d0
1236 : : cm(2,23)=(12*(2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)&
1237 : : & +32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)**2*dgm01(3,3))*dgm10(2,2)&
1238 : : & +384*gm(2,2)*(gm(2,3)*dgm01(2,2)+gm(2,2)*dgm01(2,3))*dgm10(2,3)&
1239 : 1903680 : & +96*gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/96.d0
1240 : : cm(3,23)=(3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)&
1241 : : & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(24*gm(2,3)&
1242 : : & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))&
1243 : : & *dgm10(2,3)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,2)*dgm10(3,3))&
1244 : 1903680 : & /24.d0
1245 : : cm(4,23)=(12*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)&
1246 : : & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(2,2)&
1247 : : & +16*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)&
1248 : : & *gm(2,3)*dgm01(2,3))*dgm10(2,3)+96*gm(2,2)*gm(2,3)*dgm01(2,2)&
1249 : 1903680 : & *dgm10(3,3))/48.d0
1250 : : cm(5,23)=(3*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)&
1251 : : & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)&
1252 : : & *dgm01(3,3)))*dgm10(2,2)+4*(6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))&
1253 : : & *dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))&
1254 : : & *dgm10(2,3)+6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)&
1255 : 1903680 : & *dgm10(3,3))/12.d0
1256 : : cm(6,23)=(12*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))&
1257 : : & +gm(1,2)*(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)&
1258 : : & *dgm01(3,3))))*dgm10(2,2)+16*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))&
1259 : : & *dgm01(2,2)+24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+96*gm(1,2)&
1260 : 1903680 : & *gm(2,2)*dgm01(2,2)*dgm10(3,3))/48.d0
1261 : : cm(1,24)=((6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)&
1262 : : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+6*(6*gm(1,2)&
1263 : 1903680 : & **2-2*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/12.d0
1264 : : cm(2,24)=2*gm(2,2)*(gm(2,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(dgm01(2,3)&
1265 : 1903680 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))
1266 : : cm(3,24)=((24*gm(2,3)*gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)&
1267 : : & *gm(3,3))*dgm01(2,3))*dgm10(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1268 : 1903680 : & *dgm01(2,2)*dgm10(2,3))/12.d0
1269 : : cm(4,24)=(20*(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)&
1270 : : & +24*gm(2,2)*gm(2,3)*dgm01(2,3))*dgm10(2,2)+480*gm(2,2)*gm(2,3)&
1271 : 1903680 : & *dgm01(2,2)*dgm10(2,3))/120.d0
1272 : : cm(5,24)=((6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)&
1273 : : & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)&
1274 : : & +6*(-2*gm(1,3)*gm(2,2)+6*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))&
1275 : 1903680 : & /6.d0
1276 : : cm(6,24)=(20*(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)&
1277 : : & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,2)+480*gm(1,2)*gm(2,2)&
1278 : 1903680 : & *dgm01(2,2)*dgm10(2,3))/120.d0
1279 : : cm(1,25)=((6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)&
1280 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+6*((6*gm(1,3)&
1281 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
1282 : : & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
1283 : : & *dgm10(2,3)+(6*(6*gm(1,2)*gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(2,2)&
1284 : 1903680 : & +6*(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/12.d0
1285 : : cm(2,25)=((6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)&
1286 : : & *gm(2,3)*dgm01(3,3))*dgm10(2,2)+3*(2*(6*gm(2,3)**2-2*gm(2,2)&
1287 : : & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)&
1288 : : & **2*dgm01(3,3))*dgm10(2,3)+24*gm(2,2)*(gm(2,3)*dgm01(2,2)+gm(2,2)&
1289 : 1903680 : & *dgm01(2,3))*dgm10(3,3))/12.d0
1290 : : cm(3,25)=(24*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))&
1291 : : & *dgm10(2,2)+3*(8*gm(3,3)**2*dgm01(2,2)+32*gm(2,3)*gm(3,3)*dgm01(2,3)&
1292 : : & +2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+(24*gm(2,3)&
1293 : : & *gm(3,3)*dgm01(2,2)+6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3))&
1294 : 1903680 : & *dgm10(3,3))/12.d0
1295 : : cm(4,25)=((24*gm(2,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)&
1296 : : & *gm(3,3))*dgm01(3,3))*dgm10(2,2)+3*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)&
1297 : : & *gm(3,3)*dgm01(2,3)+8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))&
1298 : : & *dgm10(2,3)+(6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(2,2)+24*gm(2,2)&
1299 : 1903680 : & *gm(2,3)*dgm01(2,3))*dgm10(3,3))/6.d0
1300 : : cm(5,25)=((24*gm(1,3)*gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)&
1301 : : & +3*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+3*(gm(1,3)*(8*gm(3,3)&
1302 : : & *dgm01(2,2)+8*gm(2,3)*dgm01(2,3)-4*gm(2,2)*dgm01(3,3))+gm(1,2)&
1303 : : & *(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)*dgm01(3,3)))*dgm10(2,3)+(6*(1*gm(1,3)&
1304 : : & *gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-2*gm(1,3)*gm(2,2)&
1305 : 1903680 : & +6*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/6.d0
1306 : : cm(6,25)=((6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)&
1307 : : & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)&
1308 : : & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)&
1309 : : & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))&
1310 : : & *dgm10(2,3)+(6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(2,2)&
1311 : 1903680 : & +24*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/6.d0
1312 : : cm(1,26)=(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,2)&
1313 : : & +4*(6*(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)&
1314 : : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+6*((6*gm(1,3)&
1315 : : & **2-2*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)-2*gm(1,1)&
1316 : : & *gm(2,3))*dgm01(2,3)+(6*gm(1,2)**2-2*gm(1,1)*gm(2,2))*dgm01(3,3))&
1317 : 1903680 : & *dgm10(3,3))/24.d0
1318 : : cm(2,26)=(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(2,2)&
1319 : : & +4*(6*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)+24*gm(2,2)&
1320 : : & *gm(2,3)*dgm01(3,3))*dgm10(2,3)+3*(2*(6*gm(2,3)**2-2*gm(2,2)&
1321 : : & *gm(3,3))*dgm01(2,2)+32*gm(2,2)*gm(2,3)*dgm01(2,3)+8*gm(2,2)&
1322 : 1903680 : & **2*dgm01(3,3))*dgm10(3,3))/24.d0
1323 : : cm(3,26)=(96*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+384*gm(3,3)*(gm(3,3)&
1324 : : & *dgm01(2,3)+gm(2,3)*dgm01(3,3))*dgm10(2,3)+12*(8*gm(3,3)**2*dgm01(2,2)&
1325 : : & +32*gm(2,3)*gm(3,3)*dgm01(2,3)+2*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))&
1326 : 1903680 : & *dgm01(3,3))*dgm10(3,3))/96.d0
1327 : : cm(4,26)=(96*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)+16*(24*gm(2,3)&
1328 : : & *gm(3,3)*dgm01(2,3)+6*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))*dgm01(3,3))&
1329 : : & *dgm10(2,3)+12*(8*gm(2,3)**2*dgm01(2,3)+24*gm(2,2)*gm(3,3)*dgm01(2,3)&
1330 : : & +8*gm(2,3)*(gm(3,3)*dgm01(2,2)+gm(2,2)*dgm01(3,3)))*dgm10(3,3))&
1331 : 1903680 : & /48.d0
1332 : : cm(5,26)=(96*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(2,2)+16*(24*gm(1,3)&
1333 : : & *gm(3,3)*dgm01(2,3)+6*(1*gm(1,3)*gm(2,3)+3*gm(1,2)*gm(3,3))*dgm01(3,3))&
1334 : : & *dgm10(2,3)+12*(gm(1,3)*(8*gm(3,3)*dgm01(2,2)+8*gm(2,3)*dgm01(2,3)&
1335 : : & -4*gm(2,2)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(2,3)+12*gm(2,3)&
1336 : 1903680 : & *dgm01(3,3)))*dgm10(3,3))/48.d0
1337 : : cm(6,26)=(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)&
1338 : : & *dgm10(2,2)+4*(6*(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)&
1339 : : & +6*(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)&
1340 : : & +3*(gm(1,3)*(12*gm(2,3)*dgm01(2,2)+24*gm(2,2)*dgm01(2,3))+gm(1,2)&
1341 : : & *(-4*gm(3,3)*dgm01(2,2)+8*(gm(2,3)*dgm01(2,3)+gm(2,2)*dgm01(3,3))))&
1342 : 1903680 : & *dgm10(3,3))/12.d0
1343 : : cm(1,27)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,3)&
1344 : : & +(6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+(6*gm(1,2)&
1345 : 1903680 : & *gm(1,3)-2*gm(1,1)*gm(2,3))*dgm01(3,3)*dgm10(3,3))/2.d0
1346 : : cm(2,27)=(120*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(2,3)&
1347 : : & +120*(6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+480*gm(2,2)&
1348 : 1903680 : & *gm(2,3)*dgm01(3,3)*dgm10(3,3))/240.d0
1349 : : cm(3,27)=2*gm(3,3)*(gm(2,3)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(dgm01(3,3)&
1350 : 1903680 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
1351 : : cm(4,27)=(480*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,3)+480*gm(2,3)&
1352 : : & *gm(3,3)*dgm01(2,3)*dgm10(3,3)+120*(1*gm(2,3)**2+3*gm(2,2)*gm(3,3))&
1353 : 1903680 : & *dgm01(3,3)*dgm10(3,3))/120.d0
1354 : : cm(5,27)=(360*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)+gm(1,3)&
1355 : : & *(120*gm(2,3)*dgm01(3,3)*dgm10(3,3)+480*gm(3,3)*(dgm01(3,3)*dgm10(2,3)&
1356 : 1903680 : & +dgm01(2,3)*dgm10(3,3))))/120.d0
1357 : : cm(6,27)=(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(2,3)&
1358 : : & +(6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(3,3)&
1359 : 1903680 : & +(3*gm(1,3)*gm(2,2)+gm(1,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3)
1360 : : cm(1,28)=((6*gm(1,3)**2-2*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(3,3))&
1361 : 1903680 : & /4.d0
1362 : : cm(2,28)=((6*gm(2,3)**2-2*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3))&
1363 : 1903680 : & /4.d0
1364 : 1903680 : cm(3,28)=gm(3,3)**2*dgm01(3,3)*dgm10(3,3)
1365 : 1903680 : cm(4,28)=2*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(3,3)
1366 : 1903680 : cm(5,28)=2*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(3,3)
1367 : : cm(6,28)=((6*gm(1,3)*gm(2,3)-2*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(3,3))&
1368 : 1903680 : & /2.d0
1369 [ + - ]: 576 : elseif(rank==3)then
1370 : 576 : cm(1,1)=gm(1,1)**3*dgm01(1,1)*dgm10(1,1)
1371 : : cm(2,1)=(gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)&
1372 : 576 : & *dgm10(1,1))/12.d0
1373 : : cm(3,1)=(gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
1374 : 576 : & *dgm10(1,1))/12.d0
1375 : : cm(4,1)=(gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,1)&
1376 : 576 : & *dgm10(1,1))/6.d0
1377 : 576 : cm(5,1)=3*gm(1,1)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1)
1378 : 576 : cm(6,1)=3*gm(1,1)**2*gm(1,2)*dgm01(1,1)*dgm10(1,1)
1379 : : cm(7,1)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)&
1380 : 576 : & *dgm10(1,1))/36.d0
1381 : : cm(8,1)=((-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1382 : 576 : & *gm(3,3)))*dgm01(1,1)*dgm10(1,1))/12.d0
1383 : : cm(9,1)=((90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
1384 : 576 : & *gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,1))/12.d0
1385 : : cm(10,1)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)&
1386 : 576 : & *dgm10(1,1))/36.d0
1387 : : cm(1,2)=(gm(1,1)*(20*(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)&
1388 : : & +432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(1,1)&
1389 : : & +20*gm(1,1)*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))*dgm10(1,2)&
1390 : 576 : & +1440*gm(1,1)**2*dgm01(1,1)*dgm10(2,2)))/1440.d0
1391 : : cm(2,2)=((72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)&
1392 : : & *dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)-36*gm(1,1)&
1393 : : & *dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)*dgm01(2,2)))&
1394 : : & *dgm10(1,1)+(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)&
1395 : : & *dgm01(1,1)+432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)&
1396 : : & *dgm01(1,2))*dgm10(1,2)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
1397 : 576 : & *dgm01(1,1)*dgm10(2,2))/24.d0
1398 : : cm(3,2)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1399 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1400 : : & *dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
1401 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1402 : : & *gm(3,3))*dgm01(2,2))*dgm10(1,1)+(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)&
1403 : : & *gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)&
1404 : : & +432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(1,2)&
1405 : : & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(2,2))&
1406 : 576 : & /24.d0
1407 : : cm(4,2)=gm(1,2)**2*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,3)&
1408 : : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(gm(2,2)&
1409 : : & *(12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+24*gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
1410 : : & +dgm01(1,1)*dgm10(1,2)))+gm(1,1)*gm(2,3)*(-3*dgm01(2,2)*dgm10(1,1)&
1411 : : & -12*dgm01(1,2)*dgm10(1,2)-3*dgm01(1,1)*dgm10(2,2)))+gm(1,2)*(6*gm(1,1)&
1412 : : & *gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)&
1413 : : & *(3*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(9*dgm01(2,2)*dgm10(1,1)&
1414 : 576 : & +36*dgm01(1,2)*dgm10(1,2)+9*dgm01(1,1)*dgm10(2,2))))
1415 : : cm(5,2)=1.5d0*gm(1,2)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1416 : : & *gm(1,2)*(12*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,3)*(dgm01(1,2)&
1417 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(12*gm(1,1)*gm(2,3)&
1418 : : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,3)*(-4.5d0*gm(2,2)&
1419 : : & *dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)&
1420 : 576 : & *dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))))
1421 : : cm(6,2)=1.5d0*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,2)&
1422 : : & **2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)&
1423 : : & **2*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)&
1424 : : & *gm(1,2)*(7.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)&
1425 : 576 : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))
1426 : : cm(7,2)=((648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)&
1427 : : & **2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)&
1428 : : & *dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,1)+(648*gm(1,2)&
1429 : : & **2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)&
1430 : : & **3*dgm01(1,2)-432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(1,2)&
1431 : : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(2,2))&
1432 : 576 : & /72.d0
1433 : : cm(8,2)=((6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
1434 : : & *gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1435 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1436 : : & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1437 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)+(12*(30*gm(1,3)&
1438 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1439 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)&
1440 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1441 : : & *dgm01(1,2))*dgm10(1,2)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1442 : 576 : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(2,2))/24.d0
1443 : : cm(9,2)=((gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)&
1444 : : & *dgm01(1,2)+gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))&
1445 : : & +gm(1,3)*(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)&
1446 : : & +gm(2,2)*(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(1,1)&
1447 : : & +(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))&
1448 : : & +gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)&
1449 : : & *(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))&
1450 : : & *dgm10(1,2)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1451 : 576 : & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(2,2))/24.d0
1452 : : cm(10,2)=((6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
1453 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)&
1454 : : & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)&
1455 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(1,1)+(12*(90*gm(1,3)&
1456 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)&
1457 : : & +8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,2)&
1458 : : & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(2,2))&
1459 : 576 : & /72.d0
1460 : : cm(1,3)=(gm(1,1)*(20*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
1461 : : & +432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(1,1)&
1462 : : & +20*gm(1,1)*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(1,3)&
1463 : 576 : & +1440*gm(1,1)**2*dgm01(1,1)*dgm10(3,3)))/1440.d0
1464 : : cm(2,3)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1465 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1466 : : & *dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1467 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)&
1468 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+(576*gm(1,1)*gm(1,2)&
1469 : : & *gm(2,3)*dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)&
1470 : : & -144*gm(1,1)*dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)&
1471 : : & *dgm01(1,3)))*dgm10(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
1472 : 576 : & *gm(2,2))*dgm01(1,1)*dgm10(3,3))/24.d0
1473 : : cm(3,3)=((72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)&
1474 : : & *dgm01(1,3)+gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)&
1475 : : & *dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))&
1476 : : & *dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)*gm(1,3)*gm(3,3)&
1477 : : & *dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)-144*gm(1,1)**2*gm(3,3)&
1478 : : & *dgm01(1,3))*dgm10(1,3)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
1479 : 576 : & *dgm01(1,1)*dgm10(3,3))/24.d0
1480 : : cm(4,3)=gm(1,3)**2*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,2)&
1481 : : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(24*gm(1,2)&
1482 : : & *gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(2,3)&
1483 : : & *(12*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(-3*dgm01(3,3)*dgm10(1,1)&
1484 : : & -12*dgm01(1,3)*dgm10(1,3)-3*dgm01(1,1)*dgm10(3,3))))+gm(1,3)&
1485 : : & *(6*gm(1,1)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1486 : : & +gm(1,2)*(3*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(9*dgm01(3,3)&
1487 : 576 : & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,3)+9*dgm01(1,1)*dgm10(3,3))))
1488 : : cm(5,3)=1.5d0*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)&
1489 : : & **2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+12*gm(1,1)&
1490 : : & **2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)&
1491 : : & *gm(1,3)*(7.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)&
1492 : 576 : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))
1493 : : cm(6,3)=12*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1494 : : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,2)*(1.5d0*gm(1,3)&
1495 : : & **2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)&
1496 : : & +dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-4.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)&
1497 : : & +gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)&
1498 : 576 : & *dgm10(3,3))))
1499 : : cm(7,3)=((6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1500 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)&
1501 : : & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)&
1502 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+(12*(90*gm(1,2)&
1503 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)&
1504 : : & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,3)&
1505 : : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(3,3))&
1506 : 576 : & /72.d0
1507 : : cm(8,3)=((gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+180*gm(1,2)*dgm01(3,3))&
1508 : : & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(72*gm(3,3)&
1509 : : & *dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)*(-216*gm(1,1)*gm(2,3)&
1510 : : & *dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))&
1511 : : & *dgm10(1,1)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)&
1512 : : & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))&
1513 : : & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)&
1514 : : & *dgm01(1,3)))*dgm10(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1515 : 576 : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(3,3))/24.d0
1516 : : cm(9,3)=((6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
1517 : : & *gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1518 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1519 : : & *gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1520 : : & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+(12*(-12*gm(1,3)&
1521 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
1522 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)&
1523 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1524 : : & *dgm01(1,3))*dgm10(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1525 : 576 : & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(3,3))/24.d0
1526 : : cm(10,3)=((648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)&
1527 : : & **2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)&
1528 : : & *dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,1)+(648*gm(1,3)&
1529 : : & **2*gm(3,3)*dgm01(1,1)-216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)&
1530 : : & **3*dgm01(1,3)-432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,3)&
1531 : : & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(3,3))&
1532 : 576 : & /72.d0
1533 : : cm(1,4)=(gm(1,1)*(1440*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)&
1534 : : & *dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)&
1535 : : & +gm(1,1)*dgm01(2,3)))*dgm10(1,1)+10*gm(1,1)*(432*gm(1,3)*dgm01(1,1)&
1536 : : & +288*gm(1,1)*dgm01(1,3))*dgm10(1,2)+10*gm(1,1)*(432*gm(1,2)*dgm01(1,1)&
1537 : : & +288*gm(1,1)*dgm01(1,2))*dgm10(1,3)+1440*gm(1,1)**2*dgm01(1,1)&
1538 : 576 : & *dgm10(2,3)))/720.d0
1539 : : cm(2,4)=(2*(36*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)&
1540 : : & *dgm01(1,1)+gm(1,1)*(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))&
1541 : : & +gm(1,1)*gm(2,2)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)&
1542 : : & -36*gm(1,1)*dgm01(2,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)&
1543 : : & *dgm01(1,2)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+(576*gm(1,1)&
1544 : : & *gm(1,2)*gm(2,3)*dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)&
1545 : : & -144*gm(1,1)*dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)&
1546 : : & *dgm01(1,3)))*dgm10(1,2)+(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)&
1547 : : & *gm(1,2)*gm(2,2)*dgm01(1,1)+432*gm(1,1)*gm(1,2)**2*dgm01(1,2)&
1548 : : & -144*gm(1,1)**2*gm(2,2)*dgm01(1,2))*dgm10(1,3)+4*gm(1,1)*(54*gm(1,2)&
1549 : 576 : & **2-18*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(2,3))/24.d0
1550 : : cm(3,4)=(2*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)&
1551 : : & *dgm01(1,1)+gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))&
1552 : : & +gm(1,1)*gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)&
1553 : : & -36*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)&
1554 : : & *dgm01(1,3)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,1)&
1555 : : & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)&
1556 : : & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(1,2)+(gm(1,2)*(72*gm(1,3)&
1557 : : & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)&
1558 : : & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))&
1559 : : & *dgm10(1,3)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
1560 : 576 : & *dgm10(2,3))/24.d0
1561 : : cm(4,4)=9*gm(1,2)**2*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)**2*(9*gm(2,2)&
1562 : : & *dgm01(1,1)*dgm10(1,1)+6*gm(1,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1563 : : & *dgm10(1,2)))+gm(1,1)*(9*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(3,3)&
1564 : : & *(15*gm(2,2)*dgm01(1,1)*dgm10(1,1)+24*gm(1,2)*(dgm01(1,2)*dgm10(1,1)&
1565 : : & +dgm01(1,1)*dgm10(1,2)))+6*gm(1,2)*gm(2,3)*(dgm01(1,3)*dgm10(1,1)&
1566 : : & +dgm01(1,1)*dgm10(1,3)))+gm(1,1)**2*gm(2,3)*(-6*dgm01(2,3)*dgm10(1,1)&
1567 : : & -12*dgm01(1,3)*dgm10(1,2)-12*dgm01(1,2)*dgm10(1,3)-6*dgm01(1,1)&
1568 : : & *dgm10(2,3))+gm(1,3)*(6*gm(1,2)**2*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1569 : : & *dgm10(1,3))+gm(1,1)*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1570 : : & *dgm10(1,2))+24*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))&
1571 : : & +gm(1,2)*(-6*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(18*dgm01(2,3)&
1572 : : & *dgm10(1,1)+36*dgm01(1,3)*dgm10(1,2)+36*dgm01(1,2)*dgm10(1,3)&
1573 : 576 : & +18*dgm01(1,1)*dgm10(2,3))))
1574 : : cm(5,4)=gm(1,2)*(3*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)&
1575 : : & *gm(3,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)&
1576 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,1)*(6*gm(1,3)**2*(dgm01(1,2)&
1577 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+12*gm(1,1)*(gm(3,3)*(dgm01(1,2)&
1578 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(2,3)*(dgm01(1,3)*dgm10(1,1)&
1579 : : & +dgm01(1,1)*dgm10(1,3)))+gm(1,3)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)&
1580 : : & +gm(1,1)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1581 : 576 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3))))
1582 : : cm(6,4)=gm(1,2)**2*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1583 : : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+12*gm(1,1)*(gm(1,3)&
1584 : : & *gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(gm(2,3)*(dgm01(1,2)*dgm10(1,1)&
1585 : : & +dgm01(1,1)*dgm10(1,2))+gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1586 : : & *dgm10(1,3))))+gm(1,1)*gm(1,2)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)&
1587 : : & +6*gm(1,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)&
1588 : : & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1589 : 576 : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))
1590 : : cm(7,4)=(2*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
1591 : : & *dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
1592 : : & +gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
1593 : : & *gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
1594 : : & *dgm01(2,3))*dgm10(1,1)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
1595 : : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)&
1596 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,2)+(648*gm(1,2)&
1597 : : & **2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)&
1598 : : & **3*dgm01(1,2)-432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(1,3)&
1599 : : & +4*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(2,3))&
1600 : 576 : & /72.d0
1601 : : cm(8,4)=(2*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
1602 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
1603 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)&
1604 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1605 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)&
1606 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1607 : : & *dgm01(2,3))*dgm10(1,1)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)&
1608 : : & -144*gm(1,2)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)&
1609 : : & *dgm01(1,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)&
1610 : : & *gm(2,3)*dgm01(1,3)))*dgm10(1,2)+(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1611 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1612 : : & *gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1613 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(1,3)+4*(-36*gm(1,1)&
1614 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1615 : 576 : & *dgm01(1,1)*dgm10(2,3))/24.d0
1616 : : cm(9,4)=(2*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
1617 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)**2*gm(2,2)&
1618 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1619 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)&
1620 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)&
1621 : : & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
1622 : : & *gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)+(12*(-12*gm(1,3)**2*gm(2,2)&
1623 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1624 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1625 : : & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(1,2)&
1626 : : & +(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))&
1627 : : & +gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)&
1628 : : & *(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))&
1629 : : & *dgm10(1,3)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1630 : 576 : & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(2,3))/24.d0
1631 : : cm(10,4)=(2*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
1632 : : & *dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
1633 : : & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
1634 : : & *gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
1635 : : & *dgm01(2,3))*dgm10(1,1)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)&
1636 : : & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)&
1637 : : & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,2)+(12*(90*gm(1,3)**2*gm(2,3)&
1638 : : & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)&
1639 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,3)+4*(90*gm(1,3)&
1640 : 576 : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(2,3))/72.d0
1641 : : cm(1,5)=gm(1,1)**2*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
1642 : 576 : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
1643 : : cm(2,5)=(30*(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)+gm(1,1)&
1644 : : & *gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))+gm(1,2)&
1645 : : & **2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(1,1)&
1646 : : & +240*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)*dgm10(1,3))&
1647 : 576 : & /1440.d0
1648 : : cm(3,5)=1.5d0*gm(1,3)**3*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
1649 : : & *gm(1,3)*gm(3,3)*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*gm(1,3)**2*(dgm01(1,3)&
1650 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-3*gm(1,1)**2*gm(3,3)*(dgm01(1,3)&
1651 : 576 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))
1652 : : cm(4,5)=gm(1,1)*gm(2,3)*(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)-6*gm(1,1)&
1653 : : & *(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))+gm(1,2)*(3*gm(1,3)&
1654 : : & **2*dgm01(1,1)*dgm10(1,1)+12*gm(1,1)*gm(3,3)*dgm01(1,1)*dgm10(1,1)&
1655 : 576 : & +18*gm(1,1)*gm(1,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
1656 : : cm(5,5)=gm(1,1)*(3*gm(1,3)**2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1657 : : & *gm(3,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,3)*(dgm01(1,3)&
1658 : 576 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))
1659 : : cm(6,5)=gm(1,1)*(6*gm(1,1)*gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,2)&
1660 : : & *(3*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*(dgm01(1,3)*dgm10(1,1)&
1661 : 576 : & +dgm01(1,1)*dgm10(1,3))))
1662 : : cm(7,5)=(30*(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
1663 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)&
1664 : : & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,2)**3-54*gm(1,1)&
1665 : 576 : & *gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(1,3))/4320.d0
1666 : : cm(8,5)=(30*(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)&
1667 : : & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))&
1668 : : & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)&
1669 : : & *dgm01(1,3)))*dgm10(1,1)+240*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1670 : 576 : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)*dgm10(1,3))/1440.d0
1671 : : cm(9,5)=(30*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1672 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1673 : : & *dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
1674 : : & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,2)&
1675 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1676 : 576 : & *dgm01(1,1)*dgm10(1,3))/1440.d0
1677 : : cm(10,5)=(30*(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)&
1678 : : & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)&
1679 : : & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(1,1)+240*(90*gm(1,3)**3-54*gm(1,1)&
1680 : 576 : & *gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(1,3))/4320.d0
1681 : : cm(1,6)=gm(1,1)**2*(3*gm(1,2)*dgm01(1,1)*dgm10(1,1)+2*gm(1,1)&
1682 : 576 : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))
1683 : : cm(2,6)=1.5d0*gm(1,2)**3*dgm01(1,1)*dgm10(1,1)+7.5d0*gm(1,1)&
1684 : : & *gm(1,2)*gm(2,2)*dgm01(1,1)*dgm10(1,1)+9*gm(1,1)*gm(1,2)**2*(dgm01(1,2)&
1685 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))-3*gm(1,1)**2*gm(2,2)*(dgm01(1,2)&
1686 : 576 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))
1687 : : cm(3,6)=(30*(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)*gm(3,3))*dgm01(1,1)&
1688 : : & +gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)&
1689 : : & -144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(1,1)+240*gm(1,1)*(54*gm(1,3)&
1690 : 576 : & **2-18*gm(1,1)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/1440.d0
1691 : : cm(4,6)=3*gm(1,2)**2*gm(1,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*gm(1,2)&
1692 : : & *(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)+18*gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
1693 : : & +dgm01(1,1)*dgm10(1,2)))+gm(1,1)*(12*gm(1,3)*gm(2,2)*dgm01(1,1)&
1694 : : & *dgm10(1,1)-6*gm(1,1)*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1695 : 576 : & *dgm10(1,2)))
1696 : : cm(5,6)=gm(1,1)*(3*gm(1,2)*gm(1,3)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1697 : : & *(gm(2,3)*dgm01(1,1)*dgm10(1,1)+gm(1,3)*(dgm01(1,2)*dgm10(1,1)&
1698 : 576 : & +dgm01(1,1)*dgm10(1,2))))
1699 : : cm(6,6)=gm(1,1)*(3*gm(1,2)**2*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)&
1700 : : & *gm(2,2)*dgm01(1,1)*dgm10(1,1)+6*gm(1,1)*gm(1,2)*(dgm01(1,2)&
1701 : 576 : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2)))
1702 : : cm(7,6)=(30*(648*gm(1,2)**2*gm(2,2)*dgm01(1,1)-216*gm(1,1)*gm(2,2)&
1703 : : & **2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)-432*gm(1,1)*gm(1,2)&
1704 : : & *gm(2,2)*dgm01(1,2))*dgm10(1,1)+240*(90*gm(1,2)**3-54*gm(1,1)&
1705 : 576 : & *gm(1,2)*gm(2,2))*dgm01(1,1)*dgm10(1,2))/4320.d0
1706 : : cm(8,6)=(30*(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
1707 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
1708 : : & *dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1709 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(1,1)+240*(-36*gm(1,1)&
1710 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1711 : 576 : & *dgm01(1,1)*dgm10(1,2))/1440.d0
1712 : : cm(9,6)=(30*(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)&
1713 : : & *dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))&
1714 : : & +gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)&
1715 : : & *dgm01(1,2)))*dgm10(1,1)+240*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1716 : : & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,1)*dgm10(1,2))&
1717 : 576 : & /1440.d0
1718 : : cm(10,6)=(30*(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)&
1719 : : & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)**3-54*gm(1,1)&
1720 : : & *gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(1,1)+240*(90*gm(1,3)**3-54*gm(1,1)&
1721 : 576 : & *gm(1,3)*gm(3,3))*dgm01(1,1)*dgm10(1,2))/4320.d0
1722 : : cm(1,7)=(2*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)&
1723 : : & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)&
1724 : : & **2*gm(1,2)*dgm01(2,2))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)&
1725 : : & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)&
1726 : : & **2*dgm01(2,2))*dgm10(1,2)+gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)&
1727 : 576 : & +288*gm(1,1)*dgm01(1,2))*dgm10(2,2))/144.d0
1728 : : cm(2,7)=(2*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)&
1729 : : & **2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)&
1730 : : & *dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))*dgm10(1,1)+4*(72*gm(1,2)&
1731 : : & **3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)&
1732 : : & *gm(2,2)*(144*gm(2,2)*dgm01(1,1)-36*gm(1,1)*dgm01(2,2))+gm(1,2)&
1733 : : & **2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)&
1734 : : & +(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)&
1735 : : & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))&
1736 : 576 : & *dgm10(2,2))/48.d0
1737 : : cm(3,7)=(2*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
1738 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)&
1739 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
1740 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)&
1741 : : & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)&
1742 : : & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
1743 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)&
1744 : : & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
1745 : : & *gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
1746 : : & *dgm01(2,2))*dgm10(1,2)+(gm(1,2)*(72*gm(1,3)**2-216*gm(1,1)*gm(3,3))&
1747 : : & *dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)*dgm01(1,1)+432*gm(1,3)&
1748 : 576 : & **2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))*dgm10(2,2))/48.d0
1749 : : cm(4,7)=gm(2,3)*(6*gm(1,2)**2*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1750 : : & *dgm10(1,2))+gm(1,2)*(9*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1751 : : & *(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
1752 : : & *dgm10(2,2)))+gm(1,1)*(24*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1753 : : & *dgm10(1,2))-6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2))))&
1754 : : & +gm(1,3)*(-3*gm(2,2)**2*dgm01(1,1)*dgm10(1,1)+gm(2,2)*(6*gm(1,2)&
1755 : : & *(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(12*dgm01(2,2)&
1756 : : & *dgm10(1,1)+48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)))&
1757 : : & +gm(1,2)*(gm(1,2)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)&
1758 : : & +3*dgm01(1,1)*dgm10(2,2))+18*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1759 : 576 : & *dgm10(2,2))))
1760 : : cm(5,7)=(2*(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))&
1761 : : & +gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))&
1762 : : & +144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)&
1763 : : & *dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))&
1764 : : & *dgm10(1,1)+4*(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)&
1765 : : & *(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)&
1766 : : & *gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)&
1767 : : & *dgm01(2,2))))*dgm10(1,2)+gm(1,1)*(144*gm(1,2)*gm(1,3)*dgm01(1,1)&
1768 : : & +288*gm(1,1)*(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))*dgm10(2,2))&
1769 : 576 : & /48.d0
1770 : : cm(6,7)=3*gm(1,2)**3*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
1771 : : & +gm(1,2)**2*(4.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(2,2)&
1772 : : & *dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2)))&
1773 : : & +gm(1,1)*gm(2,2)*(-1.5d0*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
1774 : : & *(6*dgm01(2,2)*dgm10(1,1)+24*dgm01(1,2)*dgm10(1,2)+6*dgm01(1,1)&
1775 : : & *dgm10(2,2)))+gm(1,1)*gm(1,2)*(15*gm(2,2)*(dgm01(1,2)*dgm10(1,1)&
1776 : : & +dgm01(1,1)*dgm10(1,2))+6*gm(1,1)*(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)&
1777 : 576 : & *dgm10(2,2)))
1778 : : cm(7,7)=(2*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)&
1779 : : & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,1)&
1780 : : & +4*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)&
1781 : : & +180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)&
1782 : : & -108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)+(648*gm(1,2)**2*gm(2,2)&
1783 : : & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)&
1784 : 576 : & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(2,2))/144.d0
1785 : : cm(8,7)=(2*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
1786 : : & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
1787 : : & *gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1788 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1789 : : & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)&
1790 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)&
1791 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
1792 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)&
1793 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
1794 : : & *dgm01(2,2))*dgm10(1,2)+(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1795 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1796 : : & *gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1797 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(2,2))&
1798 : 576 : & /48.d0
1799 : : cm(9,7)=(2*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))&
1800 : : & +36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)&
1801 : : & *dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))&
1802 : : & *dgm10(1,1)+4*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)&
1803 : : & *gm(2,2)*dgm01(1,2)+gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)&
1804 : : & *dgm01(2,2)))+gm(1,3)*(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)&
1805 : : & **2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))&
1806 : : & *dgm10(1,2)+(gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)&
1807 : : & *dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))&
1808 : : & +gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)&
1809 : 576 : & *dgm01(1,2)))*dgm10(2,2))/48.d0
1810 : : cm(10,7)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
1811 : : & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
1812 : : & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
1813 : : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(1,1)+4*(6*(-36*gm(1,2)&
1814 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
1815 : : & *dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
1816 : : & *gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)&
1817 : : & *gm(3,3))*dgm01(2,2))*dgm10(1,2)+(12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
1818 : : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)**3-54*gm(1,1)&
1819 : 576 : & *gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(2,2))/144.d0
1820 : : cm(1,8)=(6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
1821 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
1822 : : & *gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
1823 : : & *gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)&
1824 : : & **2*gm(1,2)*dgm01(3,3))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)&
1825 : : & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)&
1826 : : & **2*dgm01(3,3))*dgm10(1,2)+576*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)&
1827 : : & *dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)&
1828 : : & +3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))*dgm10(1,3)+2*gm(1,1)&
1829 : : & **2*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(2,3)&
1830 : : & +gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))*dgm10(3,3))&
1831 : 576 : & /144.d0
1832 : : cm(2,8)=(12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
1833 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)&
1834 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
1835 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)&
1836 : : & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)&
1837 : : & +2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
1838 : : & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)&
1839 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-12*gm(1,3)**2*gm(2,2)&
1840 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
1841 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1842 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)&
1843 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+8*(36*gm(1,2)&
1844 : : & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)&
1845 : : & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)&
1846 : : & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))&
1847 : : & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)&
1848 : : & *dgm01(2,3)))*dgm10(1,3)+2*(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)&
1849 : : & +gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))&
1850 : : & +gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(2,3)&
1851 : : & +(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)&
1852 : : & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))&
1853 : 576 : & *dgm10(3,3))/48.d0
1854 : : cm(3,8)=(6*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)&
1855 : : & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)&
1856 : : & *(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)&
1857 : : & *(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)&
1858 : : & *(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)&
1859 : : & *dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(1,1)+4*(72*gm(1,3)&
1860 : : & **3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)&
1861 : : & *gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))+gm(1,3)&
1862 : : & **2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(1,2)&
1863 : : & +8*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)&
1864 : : & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)&
1865 : : & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)&
1866 : : & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)&
1867 : : & +108*gm(1,1)*dgm01(2,3)))*dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,1)&
1868 : : & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)&
1869 : : & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(2,3)+(gm(1,2)*(72*gm(1,3)&
1870 : : & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)&
1871 : : & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))&
1872 : 576 : & *dgm10(3,3))/48.d0
1873 : : cm(4,8)=18*gm(1,2)**2*gm(3,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
1874 : : & *dgm10(1,3))+gm(1,3)**2*(6*gm(2,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
1875 : : & *dgm10(1,2))+18*gm(2,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
1876 : : & +gm(1,2)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1877 : : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(gm(1,1)*gm(3,3)&
1878 : : & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)&
1879 : : & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3))+gm(2,3)*(3*gm(3,3)*dgm01(1,1)&
1880 : : & *dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
1881 : : & +3*dgm01(1,1)*dgm10(3,3))))+gm(1,1)*(18*gm(2,3)**2*(dgm01(1,3)&
1882 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+30*gm(2,2)*gm(3,3)*(dgm01(1,3)&
1883 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(2,3)*(24*gm(3,3)*(dgm01(1,2)&
1884 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(-6*dgm01(3,3)*dgm10(1,2)&
1885 : : & -12*dgm01(2,3)*dgm10(1,3)-12*dgm01(1,3)*dgm10(2,3)-6*dgm01(1,2)&
1886 : : & *dgm10(3,3))))+gm(1,3)*(3*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(2,3)&
1887 : : & *(-12*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)&
1888 : : & *(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
1889 : : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(2,2)*(12*gm(3,3)*dgm01(1,1)&
1890 : : & *dgm10(1,1)+gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)&
1891 : : & +12*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*(6*gm(3,3)*(dgm01(1,2)*dgm10(1,1)&
1892 : : & +dgm01(1,1)*dgm10(1,2))+gm(1,2)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)&
1893 : : & *dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3))+gm(1,1)*(18*dgm01(3,3)*dgm10(1,2)&
1894 : : & +36*dgm01(2,3)*dgm10(1,3)+36*dgm01(1,3)*dgm10(2,3)+18*dgm01(1,2)&
1895 : 576 : & *dgm10(3,3))))
1896 : : cm(5,8)=(6*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)&
1897 : : & *dgm01(1,1)+48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)&
1898 : : & *(gm(1,1)*(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)&
1899 : : & *(96*gm(3,3)*dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)&
1900 : : & *(192*gm(1,2)*dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)&
1901 : : & *dgm01(1,1)+48*gm(1,1)*dgm01(3,3))))*dgm10(1,1)+4*(36*gm(1,3)&
1902 : : & **3*dgm01(1,1)+144*gm(1,1)*gm(1,3)**2*dgm01(1,3)+288*gm(1,1)&
1903 : : & **2*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(1,3)*(180*gm(3,3)*dgm01(1,1)&
1904 : : & +72*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+8*(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)&
1905 : : & +144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)*gm(1,3)*dgm01(1,3))&
1906 : : & +gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)*(gm(3,3)*dgm01(1,2)&
1907 : : & +gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)&
1908 : : & *dgm01(2,3))))*dgm10(1,3)+2*gm(1,1)*(144*gm(1,3)**2*dgm01(1,1)&
1909 : : & +288*gm(1,1)*gm(3,3)*dgm01(1,1)+288*gm(1,1)*gm(1,3)*dgm01(1,3))&
1910 : : & *dgm10(2,3)+gm(1,1)*(144*gm(1,2)*gm(1,3)*dgm01(1,1)+288*gm(1,1)&
1911 : 576 : & *(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))*dgm10(3,3))/48.d0
1912 : : cm(6,8)=(6*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)&
1913 : : & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)&
1914 : : & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)&
1915 : : & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)&
1916 : : & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)&
1917 : : & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))&
1918 : : & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(1,1)&
1919 : : & +4*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)+gm(1,1)*dgm01(1,3))&
1920 : : & +gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(1,3)*dgm01(1,3)&
1921 : : & +gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))))*dgm10(1,2)&
1922 : : & +8*(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)+72*gm(1,1)*dgm01(1,3))&
1923 : : & +144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)&
1924 : : & +gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)&
1925 : : & +72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))*dgm10(1,3)+2*gm(1,1)&
1926 : : & *(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)*dgm01(1,1)&
1927 : : & +288*gm(1,1)*dgm01(1,3)))*dgm10(2,3)+gm(1,1)*(144*gm(1,2)**2*dgm01(1,1)&
1928 : : & +288*gm(1,1)*gm(2,2)*dgm01(1,1)+288*gm(1,1)*gm(1,2)*dgm01(1,2))&
1929 : 576 : & *dgm10(3,3))/48.d0
1930 : : cm(7,8)=(12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
1931 : : & +2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
1932 : : & *gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
1933 : : & *gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
1934 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
1935 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+4*(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
1936 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)&
1937 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)&
1938 : : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)&
1939 : : & +8*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)&
1940 : : & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)&
1941 : : & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
1942 : : & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))&
1943 : : & *dgm10(1,3)+2*(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
1944 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)&
1945 : : & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+(648*gm(1,2)**2*gm(2,2)&
1946 : : & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)&
1947 : 576 : & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(3,3))/144.d0
1948 : : cm(8,8)=(12*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)&
1949 : : & +2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)&
1950 : : & +4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
1951 : : & *gm(3,3)))*dgm01(1,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
1952 : : & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)&
1953 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1954 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(gm(1,3)**2*(72*gm(2,3)&
1955 : : & *dgm01(1,3)+180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)&
1956 : : & *dgm01(1,3)+gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))&
1957 : : & +gm(3,3)*(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)&
1958 : : & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+8*(6*(6*gm(1,2)&
1959 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)&
1960 : : & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
1961 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1962 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1963 : : & *gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
1964 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(1,3)+2*(gm(1,1)&
1965 : : & *gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)*dgm01(1,3))+gm(1,3)&
1966 : : & **2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,2)&
1967 : : & *gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,3)))*dgm10(2,3)&
1968 : : & +(12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
1969 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)&
1970 : : & +8*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
1971 : 576 : & *gm(3,3)))*dgm01(1,2))*dgm10(3,3))/48.d0
1972 : : cm(9,8)=(12*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
1973 : : & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
1974 : : & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
1975 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)&
1976 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1977 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)&
1978 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
1979 : : & *dgm10(1,1)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
1980 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)&
1981 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
1982 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
1983 : : & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)&
1984 : : & +8*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
1985 : : & *gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
1986 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1987 : : & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
1988 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)&
1989 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
1990 : : & *dgm01(2,3))*dgm10(1,3)+2*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
1991 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
1992 : : & *gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
1993 : : & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+(gm(1,1)&
1994 : : & *gm(2,2)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2))+gm(1,2)&
1995 : : & **2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,3)*dgm01(1,2))+gm(1,2)*(576*gm(1,3)&
1996 : : & *gm(2,2)*dgm01(1,1)-288*gm(1,1)*gm(2,3)*dgm01(1,2)))*dgm10(3,3))&
1997 : 576 : & /48.d0
1998 : : cm(10,8)=(6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)&
1999 : : & **2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2000 : : & *dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
2001 : : & +2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
2002 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)&
2003 : : & -216*gm(1,1)*gm(3,3)**2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)&
2004 : : & +gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))&
2005 : : & *dgm10(1,2)+8*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2006 : : & *dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
2007 : : & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
2008 : : & *gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
2009 : : & *dgm01(2,3))*dgm10(1,3)+2*(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)&
2010 : : & -216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)&
2011 : : & -432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+(12*(90*gm(1,3)&
2012 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)&
2013 : : & +8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(3,3))&
2014 : 576 : & /144.d0
2015 : : cm(1,9)=(6*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
2016 : : & +2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)&
2017 : : & -18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
2018 : : & *gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)+144*gm(1,1)&
2019 : : & **2*gm(1,2)*dgm01(2,3))*dgm10(1,1)+576*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)&
2020 : : & *dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)&
2021 : : & +3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))*dgm10(1,2)+4*gm(1,1)&
2022 : : & *(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)+432*gm(1,1)&
2023 : : & *gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(1,3)+gm(1,1)&
2024 : : & **2*(432*gm(1,3)*dgm01(1,1)+288*gm(1,1)*dgm01(1,3))*dgm10(2,2)&
2025 : : & +2*gm(1,1)**2*(432*gm(1,2)*dgm01(1,1)+288*gm(1,1)*dgm01(1,2))&
2026 : 576 : & *dgm10(2,3))/144.d0
2027 : : cm(2,9)=(6*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))&
2028 : : & +gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))&
2029 : : & +gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)&
2030 : : & *(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)&
2031 : : & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)&
2032 : : & +120*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(36*gm(1,2)**3*dgm01(1,3)&
2033 : : & +gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(288*gm(2,3)&
2034 : : & *dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)*(144*gm(2,3)&
2035 : : & *dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))+gm(1,2)&
2036 : : & **2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)&
2037 : : & *dgm01(2,3)))*dgm10(1,2)+4*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)&
2038 : : & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)&
2039 : : & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)&
2040 : : & *dgm01(2,2)))*dgm10(1,3)+(576*gm(1,1)*gm(1,2)*gm(2,3)*dgm01(1,1)&
2041 : : & +gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)*dgm01(1,3))&
2042 : : & +gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))*dgm10(2,2)&
2043 : : & +2*(72*gm(1,2)**3*dgm01(1,1)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,1)&
2044 : : & +432*gm(1,1)*gm(1,2)**2*dgm01(1,2)-144*gm(1,1)**2*gm(2,2)*dgm01(1,2))&
2045 : 576 : & *dgm10(2,3))/48.d0
2046 : : cm(3,9)=(6*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)&
2047 : : & *gm(3,3)*dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)&
2048 : : & *dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)&
2049 : : & *dgm01(1,1)-72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)&
2050 : : & -48*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)&
2051 : : & **2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)&
2052 : : & +60*gm(1,1)*dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)&
2053 : : & *dgm01(2,3))))*dgm10(1,1)+8*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)&
2054 : : & *(36*gm(1,2)*gm(3,3)*dgm01(1,1)+gm(1,1)*(180*gm(3,3)*dgm01(1,2)&
2055 : : & +288*gm(2,3)*dgm01(1,3)))+gm(1,1)*gm(3,3)*(144*gm(2,3)*dgm01(1,1)&
2056 : : & -108*gm(1,2)*dgm01(1,3)-36*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)&
2057 : : & *dgm01(1,1)+36*gm(1,2)*dgm01(1,3)+108*gm(1,1)*dgm01(2,3)))*dgm10(1,2)&
2058 : : & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2059 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2060 : : & +12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
2061 : : & *gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2062 : : & *dgm01(2,2))*dgm10(1,3)+(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)&
2063 : : & *gm(1,3)*gm(3,3)*dgm01(1,1)+432*gm(1,1)*gm(1,3)**2*dgm01(1,3)&
2064 : : & -144*gm(1,1)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(gm(1,2)*(72*gm(1,3)&
2065 : : & **2-216*gm(1,1)*gm(3,3))*dgm01(1,1)+gm(1,1)*(576*gm(1,3)*gm(2,3)&
2066 : : & *dgm01(1,1)+432*gm(1,3)**2*dgm01(1,2)-144*gm(1,1)*gm(3,3)*dgm01(1,2)))&
2067 : 576 : & *dgm10(2,3))/48.d0
2068 : : cm(4,9)=gm(1,2)**2*(18*gm(3,3)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)&
2069 : : & *dgm10(1,2))+6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3)))&
2070 : : & +gm(1,3)**2*(18*gm(2,2)*(dgm01(1,2)*dgm10(1,1)+dgm01(1,1)*dgm10(1,2))&
2071 : : & +gm(1,2)*(3*dgm01(2,2)*dgm10(1,1)+12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)&
2072 : : & *dgm10(2,2)))+gm(1,2)*(3*gm(2,3)**2*dgm01(1,1)*dgm10(1,1)+gm(3,3)&
2073 : : & *(12*gm(2,2)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(12*dgm01(2,2)*dgm10(1,1)&
2074 : : & +48*dgm01(1,2)*dgm10(1,2)+12*dgm01(1,1)*dgm10(2,2)))+gm(1,1)&
2075 : : & *gm(2,3)*(6*dgm01(2,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)&
2076 : : & *dgm10(1,3)+6*dgm01(1,1)*dgm10(2,3)))+gm(1,1)*(18*gm(2,3)**2*(dgm01(1,2)&
2077 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+30*gm(2,2)*gm(3,3)*(dgm01(1,2)&
2078 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(2,3)*(24*gm(2,2)*(dgm01(1,3)&
2079 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)*(-12*dgm01(2,3)*dgm10(1,2)&
2080 : : & -6*dgm01(2,2)*dgm10(1,3)-6*dgm01(1,3)*dgm10(2,2)-12*dgm01(1,2)&
2081 : : & *dgm10(2,3))))+gm(1,3)*(gm(1,1)*gm(2,3)*(3*dgm01(2,2)*dgm10(1,1)&
2082 : : & +12*dgm01(1,2)*dgm10(1,2)+3*dgm01(1,1)*dgm10(2,2))+gm(1,2)**2*(6*dgm01(2,3)&
2083 : : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,2)+12*dgm01(1,2)*dgm10(1,3)&
2084 : : & +6*dgm01(1,1)*dgm10(2,3))+gm(2,2)*(3*gm(2,3)*dgm01(1,1)*dgm10(1,1)&
2085 : : & +6*gm(1,2)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))+gm(1,1)&
2086 : : & *(24*dgm01(2,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,2)+48*dgm01(1,2)&
2087 : : & *dgm10(1,3)+24*dgm01(1,1)*dgm10(2,3)))+gm(1,2)*(-12*gm(2,3)*(dgm01(1,2)&
2088 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,2))+gm(1,1)*(36*dgm01(2,3)*dgm10(1,2)&
2089 : : & +18*dgm01(2,2)*dgm10(1,3)+18*dgm01(1,3)*dgm10(2,2)+36*dgm01(1,2)&
2090 : 576 : & *dgm10(2,3))))
2091 : : cm(5,9)=(6*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,1)*(-24*gm(2,3)&
2092 : : & **2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)+192*gm(1,2)*dgm01(1,2))&
2093 : : & +192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)&
2094 : : & +48*gm(1,2)*dgm01(1,2)+24*gm(1,1)*dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)&
2095 : : & *dgm01(2,2)+96*gm(2,3)*dgm01(2,3))+gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)&
2096 : : & +gm(1,1)*(48*gm(2,3)*dgm01(1,2)-72*gm(2,2)*dgm01(1,3))+gm(1,2)&
2097 : : & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(gm(1,2)&
2098 : : & *(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)&
2099 : : & *gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)&
2100 : : & *(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)&
2101 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+4*(36*gm(1,2)&
2102 : : & **2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)&
2103 : : & +144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)&
2104 : : & +gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(1,3)&
2105 : : & +gm(1,1)*(144*gm(1,3)**2*dgm01(1,1)+288*gm(1,1)*gm(3,3)*dgm01(1,1)&
2106 : : & +288*gm(1,1)*gm(1,3)*dgm01(1,3))*dgm10(2,2)+2*gm(1,1)*(144*gm(1,2)&
2107 : : & *gm(1,3)*dgm01(1,1)+288*gm(1,1)*(gm(2,3)*dgm01(1,1)+gm(1,3)*dgm01(1,2)))&
2108 : 576 : & *dgm10(2,3))/48.d0
2109 : : cm(6,9)=(6*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)&
2110 : : & *dgm01(1,2)+120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)&
2111 : : & +24*gm(1,1)*dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)&
2112 : : & *dgm01(1,2)+gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)&
2113 : : & *dgm01(2,2)+gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)&
2114 : : & +96*gm(1,1)*dgm01(2,3))))*dgm10(1,1)+8*(gm(1,2)**2*(36*gm(1,3)&
2115 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)&
2116 : : & *dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))&
2117 : : & +gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)&
2118 : : & +gm(1,1)*dgm01(2,3))))*dgm10(1,2)+4*(36*gm(1,2)**3*dgm01(1,1)&
2119 : : & +144*gm(1,1)*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)**2*gm(2,2)*dgm01(1,2)&
2120 : : & +gm(1,1)*gm(1,2)*(180*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))&
2121 : : & *dgm10(1,3)+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)&
2122 : : & *dgm01(1,1)+288*gm(1,1)*dgm01(1,3)))*dgm10(2,2)+2*gm(1,1)*(144*gm(1,2)&
2123 : : & **2*dgm01(1,1)+288*gm(1,1)*gm(2,2)*dgm01(1,1)+288*gm(1,1)*gm(1,2)&
2124 : 576 : & *dgm01(1,2))*dgm10(2,3))/48.d0
2125 : : cm(7,9)=(6*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)&
2126 : : & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)&
2127 : : & *dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)&
2128 : : & *(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))&
2129 : : & *dgm10(1,1)+8*(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
2130 : : & *dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
2131 : : & +gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
2132 : : & *gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))&
2133 : : & *dgm01(2,3))*dgm10(1,2)+4*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)&
2134 : : & -216*gm(1,1)*gm(2,2)**2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)&
2135 : : & +gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))&
2136 : : & *dgm10(1,3)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
2137 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)**3-54*gm(1,1)&
2138 : : & *gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,2)+2*(648*gm(1,2)**2*gm(2,2)&
2139 : : & *dgm01(1,1)-216*gm(1,1)*gm(2,2)**2*dgm01(1,1)+720*gm(1,2)**3*dgm01(1,2)&
2140 : 576 : & -432*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2))*dgm10(2,3))/144.d0
2141 : : cm(8,9)=(6*(12*gm(2,3)**3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)&
2142 : : & *dgm01(1,2)+96*gm(1,2)*dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)&
2143 : : & +gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)&
2144 : : & *dgm01(2,3))+gm(3,3)*(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)&
2145 : : & **2*dgm01(2,3)-24*gm(1,1)*gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)&
2146 : : & *(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)&
2147 : : & *gm(3,3))*dgm01(2,2)+gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)&
2148 : : & *dgm01(2,3))))*dgm10(1,1)+8*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2149 : : & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)&
2150 : : & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)&
2151 : : & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2152 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2153 : : & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
2154 : : & *gm(3,3)))*dgm01(2,3))*dgm10(1,2)+4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)&
2155 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)&
2156 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2157 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)&
2158 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
2159 : : & *dgm01(2,2))*dgm10(1,3)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)&
2160 : : & -144*gm(1,2)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)&
2161 : : & *dgm01(1,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)&
2162 : : & *gm(2,3)*dgm01(1,3)))*dgm10(2,2)+2*(12*(30*gm(1,3)**2*gm(2,2)&
2163 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2164 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+8*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
2165 : : & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2))*dgm10(2,3))&
2166 : 576 : & /48.d0
2167 : : cm(9,9)=(6*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))&
2168 : : & -24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)&
2169 : : & *dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)&
2170 : : & +24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)&
2171 : : & **2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)&
2172 : : & +48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)&
2173 : : & *dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(1,1)+8*(6*(6*gm(1,3)&
2174 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2175 : : & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2176 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2177 : : & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
2178 : : & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2179 : : & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)&
2180 : : & +4*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)&
2181 : : & +gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)&
2182 : : & *(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)&
2183 : : & *(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(1,3)&
2184 : : & +(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2185 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2186 : : & +8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
2187 : : & *gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)+2*(gm(1,1)*gm(2,2)*(-216*gm(2,3)&
2188 : : & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2))+gm(1,2)**2*(72*gm(2,3)*dgm01(1,1)&
2189 : : & +720*gm(1,3)*dgm01(1,2))+gm(1,2)*(576*gm(1,3)*gm(2,2)*dgm01(1,1)&
2190 : 576 : & -288*gm(1,1)*gm(2,3)*dgm01(1,2)))*dgm10(2,3))/48.d0
2191 : : cm(10,9)=(12*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
2192 : : & +4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)&
2193 : : & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2194 : : & *gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2195 : : & *dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
2196 : : & *gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(1,1)+8*(6*gm(3,3)*(54*gm(1,3)&
2197 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)&
2198 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
2199 : : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)&
2200 : : & *gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(1,2)+4*(6*(-36*gm(1,2)*gm(2,3)&
2201 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2202 : : & +12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
2203 : : & *gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
2204 : : & *dgm01(2,2))*dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,1)-216*gm(1,1)&
2205 : : & *gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)-432*gm(1,1)&
2206 : : & *gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(12*(90*gm(1,3)**2*gm(2,3)&
2207 : : & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,1)+8*(90*gm(1,3)&
2208 : 576 : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2))*dgm10(2,3))/144.d0
2209 : : cm(1,10)=(2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)&
2210 : : & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)&
2211 : : & **2*gm(1,3)*dgm01(3,3))*dgm10(1,1)+4*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)&
2212 : : & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)&
2213 : : & **2*dgm01(3,3))*dgm10(1,3)+gm(1,1)**2*(432*gm(1,3)*dgm01(1,1)&
2214 : 576 : & +288*gm(1,1)*dgm01(1,3))*dgm10(3,3))/144.d0
2215 : : cm(2,10)=(2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2216 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)&
2217 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
2218 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2219 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)&
2220 : : & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2221 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2222 : : & +12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2223 : : & *gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
2224 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(576*gm(1,1)*gm(1,2)*gm(2,3)&
2225 : : & *dgm01(1,1)+gm(1,1)*gm(2,2)*(-216*gm(1,3)*dgm01(1,1)-144*gm(1,1)&
2226 : : & *dgm01(1,3))+gm(1,2)**2*(72*gm(1,3)*dgm01(1,1)+432*gm(1,1)*dgm01(1,3)))&
2227 : 576 : & *dgm10(3,3))/48.d0
2228 : : cm(3,10)=(2*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)&
2229 : : & **2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)&
2230 : : & *dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(1,1)+4*(72*gm(1,3)&
2231 : : & **3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)&
2232 : : & *gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))+gm(1,3)&
2233 : : & **2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)&
2234 : : & +(72*gm(1,3)**3*dgm01(1,1)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,1)&
2235 : : & +432*gm(1,1)*gm(1,3)**2*dgm01(1,3)-144*gm(1,1)**2*gm(3,3)*dgm01(1,3))&
2236 : 576 : & *dgm10(3,3))/48.d0
2237 : : cm(4,10)=gm(1,3)**2*(6*gm(2,3)*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)&
2238 : : & *dgm10(1,3))+gm(1,2)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2239 : : & +3*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*gm(3,3)*(-3*gm(3,3)*dgm01(1,1)&
2240 : : & *dgm10(1,1)+gm(1,1)*(12*dgm01(3,3)*dgm10(1,1)+48*dgm01(1,3)*dgm10(1,3)&
2241 : : & +12*dgm01(1,1)*dgm10(3,3)))+gm(1,1)*gm(2,3)*(24*gm(3,3)*(dgm01(1,3)&
2242 : : & *dgm10(1,1)+dgm01(1,1)*dgm10(1,3))-6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)&
2243 : : & +dgm01(1,3)*dgm10(3,3)))+gm(1,3)*(gm(2,3)*(9*gm(3,3)*dgm01(1,1)&
2244 : : & *dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)*dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)&
2245 : : & +3*dgm01(1,1)*dgm10(3,3)))+gm(1,2)*(6*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2246 : : & +dgm01(1,1)*dgm10(1,3))+18*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2247 : 576 : & *dgm10(3,3))))
2248 : : cm(5,10)=3*gm(1,3)**3*(dgm01(1,3)*dgm10(1,1)+dgm01(1,1)*dgm10(1,3))&
2249 : : & +gm(1,3)**2*(4.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)*(3*dgm01(3,3)&
2250 : : & *dgm10(1,1)+12*dgm01(1,3)*dgm10(1,3)+3*dgm01(1,1)*dgm10(3,3)))&
2251 : : & +gm(1,1)*gm(3,3)*(-1.5d0*gm(3,3)*dgm01(1,1)*dgm10(1,1)+gm(1,1)&
2252 : : & *(6*dgm01(3,3)*dgm10(1,1)+24*dgm01(1,3)*dgm10(1,3)+6*dgm01(1,1)&
2253 : : & *dgm10(3,3)))+gm(1,1)*gm(1,3)*(15*gm(3,3)*(dgm01(1,3)*dgm10(1,1)&
2254 : : & +dgm01(1,1)*dgm10(1,3))+6*gm(1,1)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
2255 : 576 : & *dgm10(3,3)))
2256 : : cm(6,10)=(2*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))&
2257 : : & +gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(-72*gm(3,3)&
2258 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)*gm(3,3)&
2259 : : & *dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))&
2260 : : & *dgm10(1,1)+4*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)+gm(1,1)&
2261 : : & *dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(1,3)&
2262 : : & *dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))))&
2263 : : & *dgm10(1,3)+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,1)+gm(1,2)*(144*gm(1,3)&
2264 : 576 : & *dgm01(1,1)+288*gm(1,1)*dgm01(1,3)))*dgm10(3,3))/48.d0
2265 : : cm(7,10)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
2266 : : & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
2267 : : & *gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
2268 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))*dgm10(1,1)+4*(6*(-36*gm(1,3)&
2269 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2270 : : & *dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
2271 : : & +gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
2272 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
2273 : : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,1)+8*(90*gm(1,2)&
2274 : 576 : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(3,3))/144.d0
2275 : : cm(8,10)=(2*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)&
2276 : : & *dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)&
2277 : : & +gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,1)&
2278 : : & +4*(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+180*gm(1,2)*dgm01(3,3))&
2279 : : & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(72*gm(3,3)&
2280 : : & *dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)*(-216*gm(1,1)*gm(2,3)&
2281 : : & *dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))&
2282 : : & *dgm10(1,3)+(gm(1,1)*gm(3,3)*(-216*gm(2,3)*dgm01(1,1)-144*gm(1,2)&
2283 : : & *dgm01(1,3))+gm(1,3)**2*(72*gm(2,3)*dgm01(1,1)+720*gm(1,2)*dgm01(1,3))&
2284 : : & +gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,1)-288*gm(1,1)*gm(2,3)&
2285 : 576 : & *dgm01(1,3)))*dgm10(3,3))/48.d0
2286 : : cm(9,10)=(2*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
2287 : : & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
2288 : : & *gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
2289 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2290 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)&
2291 : : & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
2292 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2293 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)&
2294 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
2295 : : & *dgm01(3,3))*dgm10(1,3)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2296 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2297 : : & *gm(3,3)))*dgm01(1,1)+8*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
2298 : : & *gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(3,3))&
2299 : 576 : & /48.d0
2300 : : cm(10,10)=(2*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)&
2301 : : & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,1)&
2302 : : & +4*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)&
2303 : : & +180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)&
2304 : : & -108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)&
2305 : : & *dgm01(1,1)-216*gm(1,1)*gm(3,3)**2*dgm01(1,1)+720*gm(1,3)**3*dgm01(1,3)&
2306 : 576 : & -432*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3))*dgm10(3,3))/144.d0
2307 : : cm(1,11)=((8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)&
2308 : : & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)&
2309 : : & +4*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)&
2310 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)&
2311 : : & *dgm01(2,2))*dgm10(1,2)+2*gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)&
2312 : : & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)&
2313 : 576 : & **2*dgm01(2,2))*dgm10(2,2))/144.d0
2314 : : cm(2,11)=(gm(2,2)*(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)&
2315 : : & **2+24*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,1)+4*(144*gm(1,2)&
2316 : : & **2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)&
2317 : : & **3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)&
2318 : : & *dgm01(2,2)))*dgm10(1,2)+2*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)&
2319 : : & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)&
2320 : : & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)&
2321 : 576 : & *dgm01(2,2)))*dgm10(2,2))/48.d0
2322 : : cm(3,11)=((8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
2323 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+12*(-12*gm(1,3)**2*gm(2,2)&
2324 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
2325 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*(-36*gm(1,3)&
2326 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2327 : : & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2328 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2329 : : & *dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2330 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,2)+2*(6*(-12*gm(1,3)&
2331 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2332 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)&
2333 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)&
2334 : : & +2*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(2,2))&
2335 : 576 : & /48.d0
2336 : : cm(4,11)=((8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
2337 : : & *dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
2338 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))*dgm10(1,1)+4*(gm(2,3)&
2339 : : & *(72*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)&
2340 : : & *(108*gm(2,2)*dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)&
2341 : : & **2*dgm01(1,1)+36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)&
2342 : : & +144*gm(1,1)*dgm01(2,2))))*dgm10(1,2)+2*(gm(1,2)**2*(36*gm(2,3)&
2343 : : & *dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)&
2344 : : & *dgm01(1,1)+288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))&
2345 : : & +gm(1,2)*(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)&
2346 : 576 : & +108*gm(1,1)*dgm01(2,2))))*dgm10(2,2))/24.d0
2347 : : cm(5,11)=((8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
2348 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)&
2349 : : & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))&
2350 : : & *dgm10(1,1)+4*(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)&
2351 : : & *dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)&
2352 : : & *dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)&
2353 : : & *gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)&
2354 : : & *dgm01(2,2))))*dgm10(1,2)+2*(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)&
2355 : : & +gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))&
2356 : : & +gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)&
2357 : 576 : & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,2))/48.d0
2358 : : cm(6,11)=((8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)&
2359 : : & +12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2))*dgm10(1,1)&
2360 : : & +4*(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)&
2361 : : & +gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)&
2362 : : & *gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(1,2)&
2363 : : & +2*(36*gm(1,2)**3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)&
2364 : : & +288*gm(1,1)**2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)&
2365 : 576 : & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))*dgm10(2,2))/48.d0
2366 : : cm(7,11)=(gm(2,2)**2*(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))&
2367 : : & *dgm10(1,1)+4*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)&
2368 : : & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,2)&
2369 : : & +2*(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)&
2370 : : & +180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)&
2371 : 576 : & -108*gm(1,1)*dgm01(2,2)))*dgm10(2,2))/144.d0
2372 : : cm(8,11)=((8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
2373 : : & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2374 : : & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
2375 : : & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2376 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)&
2377 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2378 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,2)+2*(6*(48*gm(1,3)&
2379 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2380 : : & +12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2381 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2382 : : & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
2383 : 576 : & *gm(3,3)))*dgm01(2,2))*dgm10(2,2))/48.d0
2384 : : cm(9,11)=(gm(2,2)*(144*gm(1,2)*gm(2,3)*dgm01(2,2)+288*gm(2,2)&
2385 : : & *(gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2)))*dgm10(1,1)+4*(gm(2,2)&
2386 : : & **2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))+36*gm(1,2)&
2387 : : & **2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)*dgm01(2,2)&
2388 : : & +gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))*dgm10(1,2)&
2389 : : & +2*(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)&
2390 : : & +gm(1,2)*(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)&
2391 : : & *(144*gm(2,2)**2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)&
2392 : : & *(576*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(2,2))&
2393 : 576 : & /48.d0
2394 : : cm(10,11)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
2395 : : & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2396 : : & *gm(3,3)))*dgm01(2,2))*dgm10(1,1)+4*(2*(90*gm(2,3)**3-54*gm(2,2)&
2397 : : & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
2398 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)&
2399 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))&
2400 : : & *dgm10(1,2)+2*(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2401 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)&
2402 : : & -18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)&
2403 : 576 : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(2,2))/144.d0
2404 : : cm(1,12)=(6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
2405 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)**2*gm(1,3)&
2406 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)+gm(1,1)&
2407 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)*(54*gm(1,2)&
2408 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
2409 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,1)+6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
2410 : : & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)&
2411 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)&
2412 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)&
2413 : : & *dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))*dgm10(1,2)+6*(2*(90*gm(1,2)&
2414 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)&
2415 : : & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)&
2416 : : & +4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)&
2417 : : & **2*gm(1,3)*dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(1,3)&
2418 : : & +gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)+432*gm(1,1)&
2419 : : & *gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(2,2)+288*gm(1,1)&
2420 : : & *(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)*dgm01(1,3))+gm(1,1)&
2421 : : & *(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))&
2422 : : & *dgm10(2,3)+gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,1)&
2423 : : & +432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)**2*dgm01(2,2))*dgm10(3,3))&
2424 : 576 : & /72.d0
2425 : : cm(2,12)=(6*(2*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
2426 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*gm(2,2)*(24*gm(1,3)*gm(2,2)&
2427 : : & +12*gm(1,2)*gm(2,3))*dgm01(1,3)+(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2428 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2429 : : & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2430 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)&
2431 : : & **2+24*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,1)+12*((48*gm(1,3)&
2432 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2433 : : & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2434 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2435 : : & +4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
2436 : : & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2437 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)&
2438 : : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+6*(48*gm(1,2)&
2439 : : & **2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)&
2440 : : & *dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)&
2441 : : & +12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)&
2442 : : & *dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)&
2443 : : & *dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))&
2444 : : & *dgm10(1,3)+(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2445 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2446 : : & *dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2447 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)&
2448 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(36*gm(1,2)&
2449 : : & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)&
2450 : : & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)&
2451 : : & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))&
2452 : : & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)&
2453 : : & *dgm01(2,3)))*dgm10(2,3)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)&
2454 : : & *gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)*dgm01(1,1)&
2455 : : & -36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)+108*gm(1,1)&
2456 : 576 : & *dgm01(2,2)))*dgm10(3,3))/24.d0
2457 : : cm(3,12)=(6*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
2458 : : & *dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2459 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
2460 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
2461 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)&
2462 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2463 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)&
2464 : : & +6*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)&
2465 : : & +48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)*(gm(1,1)&
2466 : : & *(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)*(48*gm(3,3)&
2467 : : & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)*(48*gm(1,2)&
2468 : : & *dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)*dgm01(1,1)&
2469 : : & +96*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+6*(-48*gm(1,2)**2*gm(3,3)&
2470 : : & *dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)+120*gm(2,3)&
2471 : : & **2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)&
2472 : : & +gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)*dgm01(2,3))&
2473 : : & +gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)+24*gm(1,2)&
2474 : : & *dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)&
2475 : : & *dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))+gm(2,3)&
2476 : : & *(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(1,3)&
2477 : : & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)&
2478 : : & +gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))&
2479 : : & +gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)&
2480 : : & +4*(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)&
2481 : : & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)&
2482 : : & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)&
2483 : : & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)&
2484 : : & +108*gm(1,1)*dgm01(2,3)))*dgm10(2,3)+(6*(-12*gm(1,3)**2*gm(2,2)&
2485 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
2486 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)&
2487 : : & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)&
2488 : 576 : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/24.d0
2489 : : cm(4,12)=(6*(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2490 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)&
2491 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)&
2492 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2493 : : & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
2494 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
2495 : : & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
2496 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)+6*(72*gm(1,2)**2*gm(3,3)&
2497 : : & *dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)*dgm01(1,2)+72*gm(2,3)&
2498 : : & **2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)&
2499 : : & *dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,2)&
2500 : : & *(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)*(gm(3,3)*dgm01(1,1)&
2501 : : & +gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)&
2502 : : & *(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))+48*gm(2,2)*(gm(3,3)&
2503 : : & *dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,2)&
2504 : : & +12*gm(1,2)*dgm01(3,3))))*dgm10(1,2)+6*(gm(1,2)**2*(72*gm(3,3)&
2505 : : & *dgm01(1,2)+24*gm(2,3)*dgm01(1,3))+gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)&
2506 : : & +120*gm(2,2)*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(2,3)*dgm01(1,3))&
2507 : : & +gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)+12*gm(1,2)*dgm01(2,2))+gm(1,2)&
2508 : : & *(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)*(gm(2,2)*dgm01(1,1)+gm(1,1)&
2509 : : & *dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))+gm(1,3)*(-48*gm(1,2)&
2510 : : & *gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)+24*gm(1,2)&
2511 : : & **2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)*dgm01(1,3)&
2512 : : & +96*gm(1,1)*dgm01(2,3))))*dgm10(1,3)+(gm(1,3)**2*(36*gm(2,3)&
2513 : : & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,1)*(288*gm(1,2)*gm(3,3)&
2514 : : & *dgm01(1,3)+gm(2,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))&
2515 : : & +gm(1,3)*(72*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)&
2516 : : & +108*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+4*(54*gm(1,2)**2*gm(3,3)&
2517 : : & *dgm01(1,1)+gm(1,3)**2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))&
2518 : : & +gm(1,1)*(54*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)&
2519 : : & +144*gm(1,2)*dgm01(1,2))+36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)&
2520 : : & **2*gm(2,3)*dgm01(2,3)+gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)&
2521 : : & *(36*gm(2,3)*dgm01(1,2)+144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)&
2522 : : & *dgm01(1,1)+108*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(gm(1,2)**2*(36*gm(2,3)&
2523 : : & *dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)&
2524 : : & *dgm01(1,1)+288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))&
2525 : : & +gm(1,2)*(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)&
2526 : 576 : & +108*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/12.d0
2527 : : cm(5,12)=(6*(2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
2528 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+2*(-12*gm(1,3)**2*gm(2,2)&
2529 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
2530 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)&
2531 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2532 : : & **2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2533 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,1)&
2534 : : & +6*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)&
2535 : : & +48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)&
2536 : : & *(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)&
2537 : : & *dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)&
2538 : : & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)&
2539 : : & +48*gm(1,1)*dgm01(3,3))))*dgm10(1,2)+6*(60*gm(1,2)**2*gm(3,3)&
2540 : : & *dgm01(1,1)+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)&
2541 : : & *dgm01(1,1)+192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))&
2542 : : & +gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)&
2543 : : & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))&
2544 : : & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)&
2545 : : & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)&
2546 : : & *dgm01(2,3))))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)&
2547 : : & *gm(1,3)**2*dgm01(1,3)+288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)&
2548 : : & *gm(1,3)*(180*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(2,2)&
2549 : : & +4*(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)&
2550 : : & +72*gm(1,1)*gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)&
2551 : : & +144*gm(1,1)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)&
2552 : : & *(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(36*gm(1,2)&
2553 : : & **2*gm(1,3)*dgm01(1,1)+gm(1,1)*gm(1,2)*(288*gm(2,3)*dgm01(1,1)&
2554 : : & +144*gm(1,3)*dgm01(1,2))+gm(1,1)*(288*gm(1,1)*gm(2,3)*dgm01(1,2)&
2555 : : & +gm(1,3)*(-108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(3,3))&
2556 : 576 : & /24.d0
2557 : : cm(6,12)=(6*(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2558 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2559 : : & *dgm01(1,2)+2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
2560 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)&
2561 : : & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)&
2562 : : & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
2563 : : & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))&
2564 : : & *dgm10(1,1)+6*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)&
2565 : : & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)&
2566 : : & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)&
2567 : : & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)&
2568 : : & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)&
2569 : : & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))&
2570 : : & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(1,2)&
2571 : : & +6*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)&
2572 : : & +120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)&
2573 : : & *dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)&
2574 : : & +gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)&
2575 : : & +gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)&
2576 : : & *dgm01(2,3))))*dgm10(1,3)+(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)&
2577 : : & +gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)&
2578 : : & *gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)&
2579 : : & *dgm01(3,3))))*dgm10(2,2)+4*(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)&
2580 : : & +72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)&
2581 : : & +gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)&
2582 : : & *(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))&
2583 : : & *dgm10(2,3)+(36*gm(1,2)**3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)&
2584 : : & +288*gm(1,1)**2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)&
2585 : 576 : & *dgm01(1,1)+72*gm(1,1)*dgm01(2,2)))*dgm10(3,3))/24.d0
2586 : : cm(7,12)=(3*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)*(216*gm(2,3)&
2587 : : & **2*dgm01(1,2)-36*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(-72*gm(1,3)&
2588 : : & *dgm01(2,2)+432*gm(1,2)*dgm01(2,3)))+gm(2,2)**2*(-72*gm(3,3)&
2589 : : & *dgm01(1,2)+144*gm(2,3)*dgm01(1,3)-144*gm(1,3)*dgm01(2,3)+72*gm(1,2)&
2590 : : & *dgm01(3,3)))*dgm10(1,1)+12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
2591 : : & *gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
2592 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
2593 : : & +54*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
2594 : : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)&
2595 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+6*(180*gm(1,2)&
2596 : : & **2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)&
2597 : : & *dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)&
2598 : : & *(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)&
2599 : : & -72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))*dgm10(1,3)&
2600 : : & +(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
2601 : : & *gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
2602 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)&
2603 : : & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*gm(2,2)*(-18*gm(1,3)&
2604 : : & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)+6*(90*gm(1,2)**2*gm(2,3)&
2605 : : & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,2)+6*gm(2,2)&
2606 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+2*(90*gm(1,2)&
2607 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+(648*gm(1,2)&
2608 : : & **2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)**2*dgm01(1,2)+180*gm(1,2)&
2609 : : & **3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)*dgm01(1,1)-108*gm(1,1)&
2610 : 576 : & *dgm01(2,2)))*dgm10(3,3))/72.d0
2611 : : cm(8,12)=(6*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,2)&
2612 : : & +2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+gm(3,3)&
2613 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)&
2614 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)&
2615 : : & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2616 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+12*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)&
2617 : : & *gm(3,3))*dgm01(1,1)+2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
2618 : : & *gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2619 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2620 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)&
2621 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2622 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)&
2623 : : & +6*(12*gm(2,3)**3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)&
2624 : : & +96*gm(1,2)*dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)&
2625 : : & **2*(48*gm(1,3)*dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))&
2626 : : & +gm(3,3)*(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)&
2627 : : & -24*gm(1,1)*gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)&
2628 : : & *dgm01(1,1)+192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)&
2629 : : & *gm(3,3))*dgm01(2,2)+gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)&
2630 : : & *dgm01(2,3))))*dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)&
2631 : : & +180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)&
2632 : : & +gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)&
2633 : : & *(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)&
2634 : : & -36*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+4*(6*(6*gm(1,2)*gm(2,3)&
2635 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2636 : : & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
2637 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2638 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
2639 : : & *gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2640 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(2,3)+(6*(48*gm(1,3)&
2641 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2642 : : & +12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2643 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2644 : : & +2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
2645 : 576 : & *gm(3,3)))*dgm01(2,2))*dgm10(3,3))/24.d0
2646 : : cm(9,12)=(6*(2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
2647 : : & +2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+(48*gm(1,2)&
2648 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)&
2649 : : & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
2650 : : & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
2651 : : & *gm(2,3))*dgm01(3,3))*dgm10(1,1)+12*((6*gm(2,3)**3+30*gm(2,2)&
2652 : : & *gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2653 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)&
2654 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2655 : : & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
2656 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)&
2657 : : & +(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
2658 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+6*(gm(2,2)**2*(48*gm(3,3)&
2659 : : & *dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)*gm(2,3)**2*dgm01(2,2)&
2660 : : & +gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)+72*gm(1,3)*dgm01(2,2))&
2661 : : & +gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)*dgm01(2,3))+gm(2,2)&
2662 : : & *(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)*gm(3,3))&
2663 : : & *dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)*dgm01(1,3)&
2664 : : & -72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)+gm(1,3)&
2665 : : & *dgm01(2,3))))*dgm10(1,3)+(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2666 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
2667 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2668 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(90*gm(1,2)&
2669 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))&
2670 : : & *dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2671 : : & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)&
2672 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2673 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)&
2674 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2675 : : & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2676 : : & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+(gm(2,3)&
2677 : : & *(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)&
2678 : : & *(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)*(144*gm(2,2)&
2679 : : & **2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)&
2680 : 576 : & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/24.d0
2681 : : cm(10,12)=(3*(144*gm(2,3)*gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)&
2682 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)&
2683 : : & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)&
2684 : : & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2685 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)&
2686 : : & +144*gm(1,3)*gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)&
2687 : : & -18*gm(1,2)*gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2688 : : & *gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)&
2689 : : & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(1,2)+12*(gm(3,3)&
2690 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)&
2691 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)&
2692 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
2693 : : & +gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)&
2694 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))&
2695 : : & *dgm10(1,3)+(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)&
2696 : : & **2*dgm01(1,3)+180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)&
2697 : : & *dgm01(1,1)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+4*(6*gm(3,3)&
2698 : : & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)&
2699 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)&
2700 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)&
2701 : : & +2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(2,3)&
2702 : : & +(6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
2703 : : & *gm(3,3)))*dgm01(1,1)+12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
2704 : : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)&
2705 : 576 : & *gm(1,3)*gm(3,3))*dgm01(2,2))*dgm10(3,3))/72.d0
2706 : : cm(1,13)=((6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
2707 : : & +2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
2708 : : & *gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
2709 : : & *gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
2710 : : & *dgm01(2,3))*dgm10(1,1)+3*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2711 : : & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)&
2712 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)&
2713 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)&
2714 : : & +144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(1,2)+(2*(90*gm(1,2)&
2715 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,2)&
2716 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)*dgm01(2,2))&
2717 : : & *dgm10(1,3)+72*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)&
2718 : : & *dgm01(1,3))+gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)&
2719 : : & +gm(1,1)*dgm01(2,3)))*dgm10(2,2)+gm(1,1)*(6*(54*gm(1,2)**2-18*gm(1,1)&
2720 : : & *gm(2,2))*dgm01(1,1)+432*gm(1,1)*gm(1,2)*dgm01(1,2)+72*gm(1,1)&
2721 : 576 : & **2*dgm01(2,2))*dgm10(2,3))/36.d0
2722 : : cm(2,13)=((6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
2723 : : & *dgm01(1,2)+72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)&
2724 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)&
2725 : : & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,1)&
2726 : : & +3*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)&
2727 : : & *gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)&
2728 : : & *(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)&
2729 : : & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)&
2730 : : & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)&
2731 : : & +120*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(144*gm(1,2)**2*gm(2,2)&
2732 : : & *dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)&
2733 : : & +gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))&
2734 : : & *dgm10(1,3)+(36*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)&
2735 : : & *dgm01(1,1)+gm(1,1)*(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))&
2736 : : & +gm(1,1)*gm(2,2)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)&
2737 : : & -36*gm(1,1)*dgm01(2,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)&
2738 : : & *dgm01(1,2)+108*gm(1,1)*dgm01(2,3)))*dgm10(2,2)+(72*gm(1,2)**3*dgm01(1,2)&
2739 : : & +360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(144*gm(2,2)&
2740 : : & *dgm01(1,1)-36*gm(1,1)*dgm01(2,2))+gm(1,2)**2*(72*gm(2,2)*dgm01(1,1)&
2741 : 576 : & +108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0
2742 : : cm(3,13)=((6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2743 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
2744 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)&
2745 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
2746 : : & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2747 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2748 : : & *dgm01(2,3))*dgm10(1,1)+3*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)&
2749 : : & +gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)&
2750 : : & -24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)**3*dgm01(2,2)+gm(1,2)&
2751 : : & *gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)*dgm01(2,3))+gm(1,3)&
2752 : : & **2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))&
2753 : : & +gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-36*gm(2,2)*dgm01(1,1)&
2754 : : & +48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))+gm(2,3)*(144*gm(1,2)&
2755 : : & *dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(2*(-36*gm(1,3)&
2756 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2757 : : & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2758 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2759 : : & *dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
2760 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,2)&
2761 : : & +gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)+gm(1,1)*(180*gm(3,3)&
2762 : : & *dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)*gm(3,3)*(144*gm(2,3)&
2763 : : & *dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)*dgm01(2,3))+gm(1,3)&
2764 : : & **2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)+108*gm(1,1)&
2765 : : & *dgm01(2,3)))*dgm10(2,2)+(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
2766 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
2767 : : & *gm(3,3)))*dgm01(1,1)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
2768 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*gm(1,1)*(54*gm(1,3)&
2769 : 576 : & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2))*dgm10(2,3))/12.d0
2770 : : cm(4,13)=((6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
2771 : : & *gm(3,3)))*dgm01(1,2)+2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
2772 : : & *gm(2,3))*dgm01(1,3)+6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)&
2773 : : & *gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)&
2774 : : & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
2775 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)&
2776 : : & +3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))&
2777 : : & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)&
2778 : : & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)&
2779 : : & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)&
2780 : : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))&
2781 : : & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)&
2782 : : & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)&
2783 : : & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(1,2)+(gm(2,3)*(72*gm(1,2)&
2784 : : & **2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)&
2785 : : & *dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)&
2786 : : & +36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)&
2787 : : & *dgm01(2,2))))*dgm10(1,3)+(54*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)&
2788 : : & **2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))+gm(1,1)*(54*gm(2,3)&
2789 : : & **2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)+144*gm(1,2)*dgm01(1,2))&
2790 : : & +36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)**2*gm(2,3)*dgm01(2,3)&
2791 : : & +gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(36*gm(2,3)*dgm01(1,2)&
2792 : : & +144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)*dgm01(1,1)+108*gm(1,1)&
2793 : : & *dgm01(2,3))))*dgm10(2,2)+(gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)&
2794 : : & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(144*gm(2,3)*dgm01(1,1)&
2795 : : & +288*gm(1,3)*dgm01(1,2))-36*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)&
2796 : : & *(72*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(36*gm(2,2)*dgm01(1,1)&
2797 : 576 : & +108*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/6.d0
2798 : : cm(5,13)=((6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
2799 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
2800 : : & *dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
2801 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+6*(6*gm(1,1)*gm(1,3)&
2802 : : & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)&
2803 : : & +6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
2804 : : & *gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,1)+3*(60*gm(1,2)**2*gm(3,3)&
2805 : : & *dgm01(1,1)+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)&
2806 : : & *dgm01(1,1)+192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))&
2807 : : & +gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)&
2808 : : & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))&
2809 : : & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)&
2810 : : & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)&
2811 : : & *dgm01(2,3))))*dgm10(1,2)+(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)&
2812 : : & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)&
2813 : : & -216*gm(1,3)*dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)&
2814 : : & *(576*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)&
2815 : : & +72*gm(1,1)*dgm01(2,2))))*dgm10(1,3)+(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)&
2816 : : & +144*gm(1,1)*gm(3,3)*dgm01(1,1)+72*gm(1,1)*gm(1,3)*dgm01(1,3))&
2817 : : & +gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)+144*gm(1,1)*(gm(3,3)*dgm01(1,2)&
2818 : : & +gm(2,3)*dgm01(1,3))+gm(1,3)*(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)&
2819 : : & *dgm01(2,3))))*dgm10(2,2)+(36*gm(1,2)**2*gm(1,3)*dgm01(1,1)+gm(1,1)&
2820 : : & *gm(1,2)*(288*gm(2,3)*dgm01(1,1)+144*gm(1,3)*dgm01(1,2))+gm(1,1)&
2821 : : & *(288*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-108*gm(2,2)*dgm01(1,1)&
2822 : 576 : & +72*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/12.d0
2823 : : cm(6,13)=((6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
2824 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)&
2825 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
2826 : : & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)&
2827 : : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,1)+3*(24*gm(1,2)&
2828 : : & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)&
2829 : : & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))&
2830 : : & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)&
2831 : : & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)&
2832 : : & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))&
2833 : : & *dgm10(1,2)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)&
2834 : : & *dgm01(1,2)+gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))&
2835 : : & +gm(1,1)*gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))&
2836 : : & *dgm10(1,3)+(gm(1,2)**2*(36*gm(1,3)*dgm01(1,1)+72*gm(1,1)*dgm01(1,3))&
2837 : : & +144*gm(1,1)*(gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)&
2838 : : & +gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)&
2839 : : & +72*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3))))*dgm10(2,2)+(36*gm(1,2)&
2840 : : & **3*dgm01(1,1)+144*gm(1,1)*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)&
2841 : : & **2*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(1,2)*(180*gm(2,2)*dgm01(1,1)&
2842 : 576 : & +72*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/12.d0
2843 : : cm(7,13)=(72*gm(2,2)*(1*gm(2,2)**2*dgm01(1,3)+4.5d0*gm(1,2)&
2844 : : & *gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)*dgm01(1,2)-1.5d0*gm(1,3)&
2845 : : & *dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,1)+3*(180*gm(1,2)&
2846 : : & **2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)&
2847 : : & *dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)&
2848 : : & *(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)&
2849 : : & -72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))*dgm10(1,2)&
2850 : : & +gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)&
2851 : : & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(1,3)&
2852 : : & +(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)&
2853 : : & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)&
2854 : : & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
2855 : : & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))&
2856 : : & *dgm10(2,2)+(648*gm(1,2)**2*gm(2,2)*dgm01(1,2)-216*gm(1,1)*gm(2,2)&
2857 : : & **2*dgm01(1,2)+180*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(216*gm(2,2)&
2858 : 576 : & *dgm01(1,1)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/36.d0
2859 : : cm(8,13)=((6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
2860 : : & +2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)&
2861 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)&
2862 : : & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
2863 : : & *gm(3,3)))*dgm01(2,3))*dgm10(1,1)+3*(12*gm(2,3)**3*dgm01(1,1)&
2864 : : & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))&
2865 : : & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)&
2866 : : & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)&
2867 : : & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)&
2868 : : & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)&
2869 : : & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)&
2870 : : & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(1,2)&
2871 : : & +(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)&
2872 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2873 : : & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
2874 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))&
2875 : : & *dgm10(1,3)+(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
2876 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
2877 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)&
2878 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2879 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-36*gm(1,1)&
2880 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
2881 : : & *dgm01(2,3))*dgm10(2,2)+(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2882 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(30*gm(1,3)&
2883 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2884 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,1)&
2885 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
2886 : 576 : & *dgm01(2,2))*dgm10(2,3))/12.d0
2887 : : cm(9,13)=((36*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)&
2888 : : & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)&
2889 : : & *(72*gm(2,3)**2*dgm01(1,2)+144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)&
2890 : : & *(36*gm(1,3)*dgm01(2,2)+72*gm(1,2)*dgm01(2,3))))*dgm10(1,1)+3*(gm(2,2)&
2891 : : & **2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)&
2892 : : & *gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)&
2893 : : & +72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)&
2894 : : & *dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)&
2895 : : & *gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)&
2896 : : & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)&
2897 : : & +gm(1,3)*dgm01(2,3))))*dgm10(1,2)+(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)&
2898 : : & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)&
2899 : : & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)&
2900 : : & +288*gm(1,3)*dgm01(2,2))))*dgm10(1,3)+(6*(6*gm(1,3)*gm(2,2)*gm(2,3)&
2901 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(-12*gm(1,3)&
2902 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
2903 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,2)&
2904 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
2905 : : & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2906 : : & -36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+(gm(2,3)&
2907 : : & *(72*gm(1,2)**2*dgm01(1,2)-216*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)&
2908 : : & *(72*gm(2,2)*dgm01(1,1)-72*gm(1,1)*dgm01(2,2)))+gm(1,3)*(144*gm(2,2)&
2909 : : & **2*dgm01(1,1)+180*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(576*gm(1,2)&
2910 : 576 : & *dgm01(1,2)-36*gm(1,1)*dgm01(2,2))))*dgm10(2,3))/12.d0
2911 : : cm(10,13)=((6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
2912 : : & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)&
2913 : : & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)&
2914 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
2915 : : & *dgm01(2,3))*dgm10(1,1)+6*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
2916 : : & *gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
2917 : : & *gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2918 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2919 : : & *gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)&
2920 : : & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(1,2)+(2*(90*gm(2,3)&
2921 : : & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)&
2922 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
2923 : : & +6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
2924 : : & *gm(3,3))*dgm01(2,2))*dgm10(1,3)+(6*gm(3,3)*(54*gm(1,3)*gm(2,3)&
2925 : : & -18*gm(1,2)*gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
2926 : : & *gm(3,3))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)&
2927 : : & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)&
2928 : : & *gm(1,3)*gm(3,3))*dgm01(2,3))*dgm10(2,2)+(6*(-36*gm(1,2)*gm(2,3)&
2929 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
2930 : : & +12*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))&
2931 : : & *gm(3,3))*dgm01(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))&
2932 : 576 : & *dgm01(2,2))*dgm10(2,3))/36.d0
2933 : : cm(1,14)=((2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)&
2934 : : & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
2935 : : & *gm(3,3)))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2936 : : & *dgm01(2,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
2937 : : & *dgm01(3,3))*dgm10(1,1)+(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)&
2938 : : & *gm(3,3))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
2939 : : & *dgm01(1,3)+216*gm(1,1)**2*gm(1,3)*dgm01(3,3))*dgm10(1,2)+3*(2*(-36*gm(1,1)&
2940 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
2941 : : & *dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
2942 : : & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)&
2943 : : & +144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))&
2944 : : & *dgm10(1,3)+gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,1)&
2945 : : & +432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)**2*dgm01(3,3))*dgm10(2,3)&
2946 : : & +72*gm(1,1)*(gm(1,2)*(4.5d0*gm(1,3)*dgm01(1,1)+3*gm(1,1)*dgm01(1,3))&
2947 : : & +gm(1,1)*(-1.5d0*gm(2,3)*dgm01(1,1)+3*gm(1,3)*dgm01(1,2)+gm(1,1)&
2948 : 576 : & *dgm01(2,3)))*dgm10(3,3))/36.d0
2949 : : cm(2,14)=((2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
2950 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)&
2951 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)&
2952 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2953 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)&
2954 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2955 : : & *dgm01(3,3))*dgm10(1,1)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
2956 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
2957 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2958 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)&
2959 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
2960 : : & *dgm01(3,3))*dgm10(1,2)+6*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
2961 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)&
2962 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
2963 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)&
2964 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
2965 : : & *dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
2966 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)&
2967 : : & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(6*(-12*gm(1,3)**2*gm(2,2)&
2968 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
2969 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
2970 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(1,3)+2*gm(1,1)&
2971 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+(36*gm(1,2)&
2972 : : & **3*dgm01(1,3)+gm(1,2)*(36*gm(1,3)*gm(2,2)*dgm01(1,1)+gm(1,1)&
2973 : : & *(288*gm(2,3)*dgm01(1,2)+180*gm(2,2)*dgm01(1,3)))+gm(1,1)*gm(2,2)&
2974 : : & *(144*gm(2,3)*dgm01(1,1)-108*gm(1,3)*dgm01(1,2)-36*gm(1,1)*dgm01(2,3))&
2975 : : & +gm(1,2)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,3)*dgm01(1,2)+108*gm(1,1)&
2976 : 576 : & *dgm01(2,3)))*dgm10(3,3))/12.d0
2977 : : cm(3,14)=((gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,2)+72*gm(2,3)&
2978 : : & *dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(2,3)&
2979 : : & +36*gm(2,3)*dgm01(3,3))+144*gm(3,3)*(gm(1,2)*gm(3,3)*dgm01(1,3)&
2980 : : & +gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))))*dgm10(1,1)&
2981 : : & +(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)&
2982 : : & +36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)&
2983 : : & +180*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+3*(24*gm(1,3)**3*dgm01(2,3)&
2984 : : & +gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)&
2985 : : & *dgm01(3,3))+gm(3,3)*(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)&
2986 : : & *dgm01(1,3))+gm(1,2)*(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))&
2987 : : & +gm(1,3)*(gm(3,3)*(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))&
2988 : : & +gm(2,3)*(24*gm(3,3)*dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(1,3)&
2989 : : & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)&
2990 : : & +gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3))&
2991 : : & +gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3)))*dgm10(2,3)&
2992 : : & +(36*gm(1,3)**3*dgm01(1,2)+gm(1,3)*(36*gm(1,2)*gm(3,3)*dgm01(1,1)&
2993 : : & +gm(1,1)*(180*gm(3,3)*dgm01(1,2)+288*gm(2,3)*dgm01(1,3)))+gm(1,1)&
2994 : : & *gm(3,3)*(144*gm(2,3)*dgm01(1,1)-108*gm(1,2)*dgm01(1,3)-36*gm(1,1)&
2995 : : & *dgm01(2,3))+gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+36*gm(1,2)*dgm01(1,3)&
2996 : 576 : & +108*gm(1,1)*dgm01(2,3)))*dgm10(3,3))/12.d0
2997 : : cm(4,14)=((2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
2998 : : & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
2999 : : & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3000 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)&
3001 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3002 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(gm(1,3)&
3003 : : & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)&
3004 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)&
3005 : : & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
3006 : : & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(1,2)&
3007 : : & +3*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)&
3008 : : & *dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))&
3009 : : & +gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)&
3010 : : & *dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)&
3011 : : & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)&
3012 : : & **2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))&
3013 : : & +48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)&
3014 : : & *dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(1,3)+(gm(1,3)**2*(36*gm(2,3)&
3015 : : & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,1)*(288*gm(1,2)*gm(3,3)&
3016 : : & *dgm01(1,3)+gm(2,3)*(144*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))&
3017 : : & +gm(1,3)*(72*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)&
3018 : : & +108*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(54*gm(1,2)**2*gm(3,3)&
3019 : : & *dgm01(1,1)+gm(1,3)**2*(54*gm(2,2)*dgm01(1,1)+36*gm(1,2)*dgm01(1,2))&
3020 : : & +gm(1,1)*(54*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(90*gm(2,2)*dgm01(1,1)&
3021 : : & +144*gm(1,2)*dgm01(1,2))+36*gm(1,2)*gm(2,3)*dgm01(1,3))-36*gm(1,1)&
3022 : : & **2*gm(2,3)*dgm01(2,3)+gm(1,3)*(36*gm(1,2)**2*dgm01(1,3)+gm(1,1)&
3023 : : & *(36*gm(2,3)*dgm01(1,2)+144*gm(2,2)*dgm01(1,3))+gm(1,2)*(-36*gm(2,3)&
3024 : 576 : & *dgm01(1,1)+108*gm(1,1)*dgm01(2,3))))*dgm10(3,3))/6.d0
3025 : : cm(5,14)=((2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
3026 : : & +6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
3027 : : & *gm(2,3)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)&
3028 : : & *gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3029 : : & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(72*gm(1,3)**3*dgm01(1,3)&
3030 : : & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)&
3031 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)*gm(3,3)*(-36*gm(3,3)&
3032 : : & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(1,2)+3*(24*gm(1,3)&
3033 : : & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)&
3034 : : & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)&
3035 : : & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)&
3036 : : & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)&
3037 : : & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)&
3038 : : & *dgm01(3,3))))*dgm10(1,3)+(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)&
3039 : : & *gm(1,3)**2*dgm01(1,3)+288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)&
3040 : : & *gm(1,3)*(180*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(2,3)&
3041 : : & +(gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)*gm(3,3)*dgm01(1,1)&
3042 : : & +72*gm(1,1)*gm(1,3)*dgm01(1,3))+gm(1,1)*(72*gm(1,3)**2*dgm01(1,2)&
3043 : : & +144*gm(1,1)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3))+gm(1,3)&
3044 : : & *(36*gm(2,3)*dgm01(1,1)+72*gm(1,1)*dgm01(2,3))))*dgm10(3,3))&
3045 : 576 : & /12.d0
3046 : : cm(6,14)=((2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
3047 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)&
3048 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3049 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)&
3050 : : & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)&
3051 : : & **2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))&
3052 : : & *dgm01(3,3))*dgm10(1,1)+(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)&
3053 : : & *dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
3054 : : & *(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)&
3055 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)&
3056 : : & *dgm01(3,3))))*dgm10(1,2)+3*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)&
3057 : : & +gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)&
3058 : : & *(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)&
3059 : : & *dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))&
3060 : : & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)&
3061 : : & -72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)&
3062 : : & +24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)&
3063 : : & +48*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+(288*gm(1,1)*gm(2,3)*(gm(1,3)&
3064 : : & *dgm01(1,1)+gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)&
3065 : : & +144*gm(1,1)*gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)&
3066 : : & +72*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(gm(1,2)**2*(36*gm(1,3)&
3067 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(1,3))+144*gm(1,1)*(gm(1,3)*gm(2,2)&
3068 : : & *dgm01(1,1)+gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))&
3069 : : & +gm(1,1)*gm(1,2)*(36*gm(2,3)*dgm01(1,1)+72*(gm(1,3)*dgm01(1,2)&
3070 : 576 : & +gm(1,1)*dgm01(2,3))))*dgm10(3,3))/12.d0
3071 : : cm(7,14)=((2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3072 : : & +6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)&
3073 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3074 : : & *dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
3075 : : & *dgm01(3,3))*dgm10(1,1)+(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
3076 : : & *gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3077 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)&
3078 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))&
3079 : : & *dgm10(1,2)+6*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
3080 : : & +2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3081 : : & *gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
3082 : : & *gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
3083 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3084 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3085 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)&
3086 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)&
3087 : : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,3)&
3088 : : & +(6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,1)&
3089 : : & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)&
3090 : : & *gm(2,3)))*dgm01(1,2)+6*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
3091 : : & *dgm01(1,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))&
3092 : 576 : & *dgm10(3,3))/36.d0
3093 : : cm(8,14)=((72*gm(2,3)*gm(3,3)**2*dgm01(1,2)+6*gm(3,3)*(12*gm(2,3)&
3094 : : & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+6*gm(3,3)*(12*gm(1,3)*gm(2,3)&
3095 : : & +24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)&
3096 : : & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)&
3097 : : & +(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))&
3098 : : & +gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)&
3099 : : & *(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,2)&
3100 : : & +6*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)&
3101 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)&
3102 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3103 : : & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
3104 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3105 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3106 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)&
3107 : : & +180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)*dgm01(1,3)&
3108 : : & +gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))+gm(3,3)&
3109 : : & *(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)*dgm01(1,1)&
3110 : : & -36*gm(1,1)*dgm01(3,3))))*dgm10(2,3)+(6*(6*gm(1,2)*gm(2,3)*gm(3,3)&
3111 : : & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)+6*(6*gm(1,3)&
3112 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3113 : : & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3114 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3115 : : & *dgm01(1,3)+2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3116 : 576 : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0
3117 : : cm(9,14)=((2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3118 : : & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*(48*gm(1,2)&
3119 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)&
3120 : : & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3121 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
3122 : : & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3123 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)&
3124 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3125 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+6*((6*gm(2,3)&
3126 : : & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)&
3127 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3128 : : & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3129 : : & *gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
3130 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3131 : : & *gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3132 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+(6*(48*gm(1,2)&
3133 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
3134 : : & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3135 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3136 : : & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
3137 : : & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(6*(6*gm(1,3)*gm(2,2)&
3138 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,1)&
3139 : : & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3140 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3141 : : & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3142 : : & *gm(2,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
3143 : : & *gm(1,3)*gm(2,2)-36*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))&
3144 : 576 : & /12.d0
3145 : : cm(10,14)=(72*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)+4.5d0*gm(1,3)&
3146 : : & *gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)+3*gm(1,3)*dgm01(2,3)&
3147 : : & -1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,1)+gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)&
3148 : : & +324*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)&
3149 : : & *dgm01(3,3)))*dgm10(1,2)+3*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)&
3150 : : & +144*gm(1,3)*gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)&
3151 : : & -18*gm(1,2)*gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
3152 : : & *gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)&
3153 : : & +gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(648*gm(1,3)&
3154 : : & **2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)+180*gm(1,3)&
3155 : : & **3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)-108*gm(1,1)&
3156 : : & *dgm01(3,3)))*dgm10(2,3)+(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
3157 : : & *gm(3,3))*dgm01(1,1)+6*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
3158 : : & *dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
3159 : : & *gm(2,3))*gm(3,3))*dgm01(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)&
3160 : 576 : & *gm(3,3))*dgm01(2,3))*dgm10(3,3))/36.d0
3161 : : cm(1,15)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
3162 : : & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)&
3163 : : & +4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)&
3164 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)&
3165 : : & *dgm01(3,3))*dgm10(1,3)+2*gm(1,1)*(6*(54*gm(1,3)**2-18*gm(1,1)&
3166 : : & *gm(3,3))*dgm01(1,1)+432*gm(1,1)*gm(1,3)*dgm01(1,3)+72*gm(1,1)&
3167 : 576 : & **2*dgm01(3,3))*dgm10(3,3))/144.d0
3168 : : cm(2,15)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
3169 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)&
3170 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
3171 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*(-36*gm(1,2)&
3172 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3173 : : & *dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3174 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3175 : : & *dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3176 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+2*(6*(-12*gm(1,3)&
3177 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3178 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(6*gm(1,2)&
3179 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3180 : : & *dgm01(1,3)+2*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))&
3181 : 576 : & *dgm10(3,3))/48.d0
3182 : : cm(3,15)=(gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)&
3183 : : & **2+24*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(144*gm(1,3)&
3184 : : & **2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)&
3185 : : & **3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)&
3186 : : & *dgm01(3,3)))*dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)&
3187 : : & *gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(3,3)*(144*gm(3,3)*dgm01(1,1)&
3188 : : & -36*gm(1,1)*dgm01(3,3))+gm(1,3)**2*(72*gm(3,3)*dgm01(1,1)+108*gm(1,1)&
3189 : 576 : & *dgm01(3,3)))*dgm10(3,3))/48.d0
3190 : : cm(4,15)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3191 : : & *dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
3192 : : & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(gm(1,3)&
3193 : : & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)&
3194 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)&
3195 : : & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
3196 : : & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(1,3)&
3197 : : & +2*(gm(1,3)**2*(36*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))&
3198 : : & +gm(1,1)*(288*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(144*gm(3,3)&
3199 : : & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(72*gm(1,1)*gm(2,3)&
3200 : : & *dgm01(1,3)+gm(1,2)*(36*gm(3,3)*dgm01(1,1)+108*gm(1,1)*dgm01(3,3))))&
3201 : 576 : & *dgm10(3,3))/24.d0
3202 : : cm(5,15)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)&
3203 : : & +12*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,1)&
3204 : : & +4*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)&
3205 : : & +gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)&
3206 : : & *gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(1,3)&
3207 : : & +2*(36*gm(1,3)**3*dgm01(1,1)+144*gm(1,1)*gm(1,3)**2*dgm01(1,3)&
3208 : : & +288*gm(1,1)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*gm(1,3)*(180*gm(3,3)&
3209 : 576 : & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))*dgm10(3,3))/48.d0
3210 : : cm(6,15)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
3211 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)&
3212 : : & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))&
3213 : : & *dgm10(1,1)+4*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)&
3214 : : & *dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
3215 : : & *(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)&
3216 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)&
3217 : : & *dgm01(3,3))))*dgm10(1,3)+2*(288*gm(1,1)*gm(2,3)*(gm(1,3)*dgm01(1,1)&
3218 : : & +gm(1,1)*dgm01(1,3))+gm(1,2)*(36*gm(1,3)**2*dgm01(1,1)+144*gm(1,1)&
3219 : : & *gm(1,3)*dgm01(1,3)+gm(1,1)*(-108*gm(3,3)*dgm01(1,1)+72*gm(1,1)&
3220 : 576 : & *dgm01(3,3))))*dgm10(3,3))/48.d0
3221 : : cm(7,15)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
3222 : : & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3223 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*(90*gm(2,3)**3-54*gm(2,2)&
3224 : : & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3225 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)&
3226 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))&
3227 : : & *dgm10(1,3)+2*(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3228 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(90*gm(1,2)**2*gm(2,3)&
3229 : : & -18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(1,3)+2*(90*gm(1,2)&
3230 : 576 : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/144.d0
3231 : : cm(8,15)=(gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)&
3232 : : & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,1)+4*(288*gm(1,2)&
3233 : : & *gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)&
3234 : : & **2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)&
3235 : : & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(1,3)+2*(gm(1,3)**2*(72*gm(2,3)&
3236 : : & *dgm01(1,3)+180*gm(1,2)*dgm01(3,3))+gm(1,3)*(576*gm(1,2)*gm(3,3)&
3237 : : & *dgm01(1,3)+gm(2,3)*(72*gm(3,3)*dgm01(1,1)-72*gm(1,1)*dgm01(3,3)))&
3238 : : & +gm(3,3)*(-216*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(144*gm(3,3)&
3239 : 576 : & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/48.d0
3240 : : cm(9,15)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
3241 : : & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3242 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,1)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
3243 : : & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3244 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)&
3245 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3246 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(6*(48*gm(1,2)&
3247 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)&
3248 : : & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3249 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3250 : : & +2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)-36*gm(1,1)&
3251 : 576 : & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))/48.d0
3252 : : cm(10,15)=(gm(3,3)**2*(288*gm(3,3)*dgm01(1,3)+432*gm(1,3)*dgm01(3,3))&
3253 : : & *dgm10(1,1)+4*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)&
3254 : : & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(1,3)&
3255 : : & +2*(648*gm(1,3)**2*gm(3,3)*dgm01(1,3)-216*gm(1,1)*gm(3,3)**2*dgm01(1,3)&
3256 : : & +180*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(216*gm(3,3)*dgm01(1,1)&
3257 : 576 : & -108*gm(1,1)*dgm01(3,3)))*dgm10(3,3))/144.d0
3258 : : cm(1,16)=(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
3259 : : & *dgm10(1,1)+(8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)&
3260 : : & +12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,2)&
3261 : : & +(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)&
3262 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)&
3263 : 576 : & *dgm01(2,2))*dgm10(2,2))/72.d0
3264 : : cm(2,16)=(1440*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)&
3265 : : & *(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)**2+24*gm(1,1)&
3266 : : & *gm(2,2))*dgm01(2,2))*dgm10(1,2)+20*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)&
3267 : : & +288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)+gm(1,2)&
3268 : : & *gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))*dgm10(2,2))&
3269 : 576 : & /480.d0
3270 : : cm(3,16)=(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3271 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+(8*(-36*gm(1,3)&
3272 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3273 : : & *dgm01(1,2)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3274 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3275 : : & *dgm01(2,2))*dgm10(1,2)+(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3276 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
3277 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3278 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)&
3279 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))&
3280 : 576 : & *dgm10(2,2))/24.d0
3281 : : cm(4,16)=(2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
3282 : : & *dgm01(2,2)*dgm10(1,1)+(8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
3283 : : & *gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3284 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))*dgm10(1,2)&
3285 : : & +(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)&
3286 : : & +gm(1,2)*(108*gm(2,2)*dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)&
3287 : : & *(-36*gm(2,2)**2*dgm01(1,1)+36*gm(1,2)**2*dgm01(2,2)+gm(2,2)&
3288 : : & *(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)*dgm01(2,2))))*dgm10(2,2))&
3289 : 576 : & /12.d0
3290 : : cm(5,16)=(2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
3291 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,1)+(8*(-36*gm(1,2)&
3292 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3293 : : & *dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3294 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))*dgm10(1,2)+(gm(1,2)&
3295 : : & **2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)&
3296 : : & *(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))+144*gm(1,1)&
3297 : : & *gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)*dgm01(1,2)&
3298 : : & +gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,2))&
3299 : 576 : & /24.d0
3300 : : cm(6,16)=(2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)&
3301 : : & *dgm10(1,1)+(8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)&
3302 : : & +12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2))*dgm10(1,2)&
3303 : : & +(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)&
3304 : : & +gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)&
3305 : : & *gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(2,2))&
3306 : 576 : & /24.d0
3307 : : cm(7,16)=(gm(2,2)*(1440*gm(2,2)**2*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)&
3308 : : & *(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))*dgm10(1,2)+20*(72*gm(2,2)&
3309 : : & **2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(432*gm(1,2)&
3310 : 576 : & *dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,2)))/1440.d0
3311 : : cm(8,16)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
3312 : : & *dgm10(1,1)+(8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3313 : : & +12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
3314 : : & *gm(3,3)))*dgm01(2,2))*dgm10(1,2)+(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
3315 : : & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3316 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)&
3317 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3318 : 576 : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(2,2))/24.d0
3319 : : cm(9,16)=(1440*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,1)+20*gm(2,2)&
3320 : : & *(144*gm(1,2)*gm(2,3)*dgm01(2,2)+288*gm(2,2)*(gm(2,3)*dgm01(1,2)&
3321 : : & +gm(1,3)*dgm01(2,2)))*dgm10(1,2)+20*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)&
3322 : : & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)&
3323 : : & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)&
3324 : 576 : & +288*gm(1,3)*dgm01(2,2))))*dgm10(2,2))/480.d0
3325 : : cm(10,16)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
3326 : : & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3327 : : & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
3328 : : & *gm(3,3)))*dgm01(2,2))*dgm10(1,2)+(2*(90*gm(2,3)**3-54*gm(2,2)&
3329 : : & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3330 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)&
3331 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))&
3332 : 576 : & *dgm10(2,2))/72.d0
3333 : : cm(1,17)=(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3334 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(90*gm(1,2)&
3335 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)&
3336 : : & *dgm10(1,1)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3)&
3337 : : & *dgm10(1,1)+12*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3338 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)**2*gm(1,3)&
3339 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)+gm(1,1)&
3340 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)*(54*gm(1,2)&
3341 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
3342 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,2)+4*(6*(90*gm(1,2)**2*gm(1,3)&
3343 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)&
3344 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)&
3345 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)&
3346 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+3*(2*(-36*gm(1,1)&
3347 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
3348 : : & *dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)&
3349 : : & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,3)&
3350 : : & +144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)**2*gm(1,2)*dgm01(3,3))&
3351 : : & *dgm10(2,2)+6*(2*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
3352 : : & +2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)&
3353 : : & -18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
3354 : : & *gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)*dgm01(2,2)+144*gm(1,1)&
3355 : : & **2*gm(1,2)*dgm01(2,3))*dgm10(2,3)+(2*(90*gm(1,2)**3-54*gm(1,1)&
3356 : : & *gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)&
3357 : : & *gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)*dgm01(2,2))*dgm10(3,3))&
3358 : 576 : & /72.d0
3359 : : cm(2,17)=(12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3360 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+24*gm(2,2)*(24*gm(1,3)&
3361 : : & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)+144*gm(1,2)&
3362 : : & *gm(2,2)**2*dgm01(3,3)*dgm10(1,1)+24*(2*(48*gm(1,3)*gm(2,2)*gm(2,3)&
3363 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*gm(2,2)&
3364 : : & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)+(-12*gm(1,3)&
3365 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3366 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)&
3367 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3368 : : & *dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3))&
3369 : : & *dgm10(1,2)+8*(6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3370 : : & *dgm01(1,2)+72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)&
3371 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)&
3372 : : & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,3)&
3373 : : & +12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
3374 : : & *gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
3375 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3376 : : & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3377 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)&
3378 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3379 : : & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))&
3380 : : & *dgm10(2,2)+12*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))&
3381 : : & +gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)+96*gm(2,2)*dgm01(1,3))&
3382 : : & +gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)**2*dgm01(2,2)+gm(2,2)&
3383 : : & *(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)&
3384 : : & +gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)&
3385 : : & +120*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+2*(144*gm(1,2)**2*gm(2,2)&
3386 : : & *dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)+36*gm(1,2)**3*dgm01(2,2)&
3387 : : & +gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)+180*gm(1,1)*dgm01(2,2)))&
3388 : 576 : & *dgm10(3,3))/48.d0
3389 : : cm(3,17)=(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
3390 : : & *dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3391 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+2*(-36*gm(1,3)&
3392 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3393 : : & *dgm01(3,3)*dgm10(1,1)+12*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
3394 : : & *gm(3,3))*dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3395 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
3396 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3397 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)&
3398 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3399 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)&
3400 : : & +4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3401 : : & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3402 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)&
3403 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
3404 : : & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3405 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3406 : : & *dgm01(2,3))*dgm10(1,3)+3*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)&
3407 : : & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)&
3408 : : & *(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)&
3409 : : & *(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)&
3410 : : & *(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)&
3411 : : & *dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+6*(-48*gm(1,2)&
3412 : : & **2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)*dgm01(1,2)&
3413 : : & +120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))+12*gm(1,3)&
3414 : : & **3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)-72*gm(1,1)&
3415 : : & *dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)*dgm01(1,3)&
3416 : : & +24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(3,3)&
3417 : : & *(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)*dgm01(2,2))&
3418 : : & +gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))*dgm10(2,3)&
3419 : : & +(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
3420 : : & *gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
3421 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
3422 : : & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
3423 : 576 : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(3,3))/24.d0
3424 : : cm(4,17)=(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
3425 : : & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3426 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)&
3427 : : & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3)&
3428 : : & *dgm10(1,1)+12*(2*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3429 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(6*gm(1,3)*gm(2,2)*gm(2,3)&
3430 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+(6*gm(1,3)&
3431 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
3432 : : & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
3433 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
3434 : : & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3435 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(1,3)*gm(2,2)&
3436 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3437 : : & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)&
3438 : : & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
3439 : : & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)&
3440 : : & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3441 : : & *gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(72*gm(1,2)**2*gm(3,3)&
3442 : : & *dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)*dgm01(1,2)+72*gm(2,3)&
3443 : : & **2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)&
3444 : : & *dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,2)&
3445 : : & *(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)*(gm(3,3)*dgm01(1,1)&
3446 : : & +gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)&
3447 : : & *(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))+48*gm(2,2)*(gm(3,3)&
3448 : : & *dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)*dgm01(1,2)&
3449 : : & +12*gm(1,2)*dgm01(3,3))))*dgm10(2,2)+6*(gm(1,2)**2*(72*gm(3,3)&
3450 : : & *dgm01(1,2)+24*gm(2,3)*dgm01(1,3))+gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)&
3451 : : & +120*gm(2,2)*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(2,3)*dgm01(1,3))&
3452 : : & +gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)+12*gm(1,2)*dgm01(2,2))+gm(1,2)&
3453 : : & *(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)*(gm(2,2)*dgm01(1,1)+gm(1,1)&
3454 : : & *dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))+gm(1,3)*(-48*gm(1,2)&
3455 : : & *gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)+24*gm(1,2)&
3456 : : & **2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)*dgm01(1,3)&
3457 : : & +96*gm(1,1)*dgm01(2,3))))*dgm10(2,3)+(gm(2,3)*(72*gm(1,2)**2*dgm01(1,2)&
3458 : : & +288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)*dgm01(1,1)&
3459 : : & +36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)+36*gm(1,2)&
3460 : : & **2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)*dgm01(2,2))))&
3461 : 576 : & *dgm10(3,3))/12.d0
3462 : : cm(5,17)=(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
3463 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(1,1)+12*(-12*gm(1,3)&
3464 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3465 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)&
3466 : : & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3467 : : & *gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+12*(2*(6*gm(1,3)**2*gm(2,3)&
3468 : : & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3469 : : & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3470 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3471 : : & +(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)&
3472 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)&
3473 : : & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
3474 : : & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+4*(6*(-12*gm(1,3)**2*gm(2,2)&
3475 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
3476 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
3477 : : & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)&
3478 : : & +6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
3479 : : & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
3480 : : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(24*gm(1,3)&
3481 : : & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)&
3482 : : & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)&
3483 : : & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)&
3484 : : & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)&
3485 : : & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)&
3486 : : & *dgm01(3,3))))*dgm10(2,2)+6*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)&
3487 : : & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)&
3488 : : & +192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)&
3489 : : & **2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)&
3490 : : & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))&
3491 : : & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)&
3492 : : & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)&
3493 : : & *dgm01(2,3))))*dgm10(2,3)+(gm(1,2)**2*(180*gm(2,3)*dgm01(1,1)&
3494 : : & +72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)*(-36*gm(2,3)*dgm01(1,1)&
3495 : : & -216*gm(1,3)*dgm01(1,2))+144*gm(1,1)*gm(2,3)*dgm01(2,2))+gm(1,2)&
3496 : : & *(576*gm(1,1)*gm(2,3)*dgm01(1,2)+gm(1,3)*(-72*gm(2,2)*dgm01(1,1)&
3497 : 576 : & +72*gm(1,1)*dgm01(2,2))))*dgm10(3,3))/24.d0
3498 : : cm(6,17)=(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3499 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3500 : : & *dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
3501 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)&
3502 : : & +2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3)*dgm10(1,1)&
3503 : : & +12*(2*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3504 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3505 : : & +2*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3506 : : & *gm(2,2)*gm(2,3))*dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3507 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)&
3508 : : & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)&
3509 : : & +(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)&
3510 : : & +4*(6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3511 : : & *gm(2,2)*gm(2,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3512 : : & *gm(2,2))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
3513 : : & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)&
3514 : : & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,3)+3*(-24*gm(1,2)**2*gm(3,3)&
3515 : : & *dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)*dgm01(1,2))&
3516 : : & +gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)*dgm01(1,2)&
3517 : : & +gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)&
3518 : : & *dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)*gm(3,3)&
3519 : : & *dgm01(1,1)-72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)*gm(2,3)&
3520 : : & *dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)&
3521 : : & *dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+6*(24*gm(1,2)&
3522 : : & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)&
3523 : : & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))&
3524 : : & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)&
3525 : : & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)&
3526 : : & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))&
3527 : : & *dgm10(2,3)+(72*gm(1,2)**3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)&
3528 : : & *dgm01(1,2)+gm(1,2)**2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))&
3529 : : & +gm(1,1)*gm(2,2)*(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))&
3530 : 576 : & *dgm10(3,3))/24.d0
3531 : : cm(7,17)=(12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
3532 : : & *dgm10(1,1)+864*gm(2,2)**2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+144*gm(2,2)&
3533 : : & **3*dgm01(3,3)*dgm10(1,1)+12*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)&
3534 : : & +gm(2,2)*(216*gm(2,3)**2*dgm01(1,2)-36*gm(1,2)*gm(3,3)*dgm01(2,2)&
3535 : : & +gm(2,3)*(-72*gm(1,3)*dgm01(2,2)+432*gm(1,2)*dgm01(2,3)))+gm(2,2)&
3536 : : & **2*(-72*gm(3,3)*dgm01(1,2)+144*gm(2,3)*dgm01(1,3)-144*gm(1,3)&
3537 : : & *dgm01(2,3)+72*gm(1,2)*dgm01(3,3)))*dgm10(1,2)+576*gm(2,2)*(1*gm(2,2)&
3538 : : & **2*dgm01(1,3)+4.5d0*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)&
3539 : : & *dgm01(1,2)-1.5d0*gm(1,3)*dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,3)&
3540 : : & +12*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)&
3541 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3542 : : & *dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
3543 : : & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
3544 : : & +gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3545 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+12*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)&
3546 : : & +gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)&
3547 : : & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)&
3548 : : & *dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))&
3549 : : & +216*gm(1,2)**2*dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(72*gm(2,2)&
3550 : : & **2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(432*gm(1,2)&
3551 : 576 : & *dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(3,3))/144.d0
3552 : : cm(8,17)=(6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,2)&
3553 : : & *dgm10(1,1)+12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
3554 : : & *dgm10(1,1)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
3555 : : & *dgm10(1,1)+12*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
3556 : : & *dgm01(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
3557 : : & +gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)&
3558 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)&
3559 : : & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
3560 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(6*(6*gm(2,3)**3+30*gm(2,2)&
3561 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
3562 : : & *gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3563 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)&
3564 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(1,3)&
3565 : : & +6*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)&
3566 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)&
3567 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3568 : : & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
3569 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
3570 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3571 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+6*(12*gm(2,3)**3*dgm01(1,1)&
3572 : : & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))&
3573 : : & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)&
3574 : : & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)&
3575 : : & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)&
3576 : : & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)&
3577 : : & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)&
3578 : : & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(2,3)&
3579 : : & +(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)&
3580 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3581 : : & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3582 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))&
3583 : 576 : & *dgm10(3,3))/24.d0
3584 : : cm(9,17)=(12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
3585 : : & *dgm10(1,1)+24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,3)&
3586 : : & *dgm10(1,1)+144*gm(2,2)**2*gm(2,3)*dgm01(3,3)*dgm10(1,1)+24*(2*(6*gm(2,3)&
3587 : : & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(12*gm(2,3)&
3588 : : & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+(48*gm(1,2)*gm(2,3)*gm(3,3)&
3589 : : & +gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)&
3590 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)&
3591 : : & +gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))&
3592 : : & *dgm10(1,2)+8*(36*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)&
3593 : : & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)&
3594 : : & *(72*gm(2,3)**2*dgm01(1,2)+144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)&
3595 : : & *(36*gm(1,3)*dgm01(2,2)+72*gm(1,2)*dgm01(2,3))))*dgm10(1,3)+12*((6*gm(2,3)&
3596 : : & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+2*(48*gm(1,2)*gm(2,3)&
3597 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3598 : : & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3599 : : & *gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
3600 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
3601 : : & *gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3602 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+12*(gm(2,2)&
3603 : : & **2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))-24*gm(1,1)&
3604 : : & *gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)*dgm01(1,2)&
3605 : : & +72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)+24*gm(2,3)&
3606 : : & *dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)**2-12*gm(1,1)&
3607 : : & *gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)+48*gm(1,2)&
3608 : : & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)*dgm01(1,2)&
3609 : : & +gm(1,3)*dgm01(2,3))))*dgm10(2,3)+2*(gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)&
3610 : : & +288*gm(1,3)*dgm01(1,2))+36*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)&
3611 : : & *(-108*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)*(144*gm(2,3)*dgm01(1,2)&
3612 : 576 : & +288*gm(1,3)*dgm01(2,2))))*dgm10(3,3))/48.d0
3613 : : cm(10,17)=(432*gm(2,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)&
3614 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+4*(90*gm(2,3)&
3615 : : & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+12*(144*gm(2,3)&
3616 : : & *gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
3617 : : & *dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)&
3618 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)&
3619 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))&
3620 : : & *dgm10(1,2)+8*(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3621 : : & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)&
3622 : : & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)&
3623 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3624 : : & *dgm01(2,3))*dgm10(1,3)+6*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)&
3625 : : & *gm(3,3)**2*dgm01(1,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
3626 : : & *gm(3,3))*dgm01(1,3)+4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
3627 : : & *dgm01(2,3)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
3628 : : & *gm(2,3))*gm(3,3))*dgm01(3,3))*dgm10(2,2)+24*(gm(3,3)*(54*gm(2,3)&
3629 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)&
3630 : : & -18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3631 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)&
3632 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)&
3633 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))&
3634 : : & *dgm10(2,3)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
3635 : : & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
3636 : : & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
3637 : 576 : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(3,3))/144.d0
3638 : : cm(1,18)=(6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
3639 : : & +2*gm(1,2)*gm(2,3)))*dgm01(2,2)*dgm10(1,1)+4*(90*gm(1,2)**3-54*gm(1,1)&
3640 : : & *gm(1,2)*gm(2,2))*dgm01(2,3)*dgm10(1,1)+4*(6*(90*gm(1,2)**2*gm(1,3)&
3641 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)&
3642 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,2)&
3643 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+6*gm(1,1)*(54*gm(1,2)&
3644 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)+(8*(90*gm(1,2)&
3645 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)+12*gm(1,1)*(54*gm(1,2)&
3646 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,2))*dgm10(1,3)+3*(2*(90*gm(1,2)&
3647 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)&
3648 : : & +8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)&
3649 : : & +4*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)&
3650 : : & **2*gm(1,3)*dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(2,2)&
3651 : : & +2*(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,1)+12*gm(1,1)&
3652 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)+216*gm(1,1)**2*gm(1,2)&
3653 : 576 : & *dgm01(2,2))*dgm10(2,3))/72.d0
3654 : : cm(2,18)=(24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3655 : : & *dgm01(2,2)*dgm10(1,1)+576*gm(1,2)*gm(2,2)**2*dgm01(2,3)*dgm10(1,1)&
3656 : : & +16*(6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,2)&
3657 : : & +72*gm(1,2)*gm(2,2)**2*dgm01(1,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)&
3658 : : & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)&
3659 : : & +6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(1,2)&
3660 : : & +4*gm(2,2)*(288*gm(1,2)*gm(2,2)*dgm01(1,2)+12*(12*gm(1,2)**2+24*gm(1,1)&
3661 : : & *gm(2,2))*dgm01(2,2))*dgm10(1,3)+12*(48*gm(1,2)**2*(gm(2,3)*dgm01(1,2)&
3662 : : & +gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)*dgm01(1,2)&
3663 : : & +96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)+12*gm(1,2)&
3664 : : & **2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)*dgm01(2,2)))&
3665 : : & +24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)*dgm01(2,2)&
3666 : : & +gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))*dgm10(2,2)&
3667 : : & +8*(144*gm(1,2)**2*gm(2,2)*dgm01(1,2)+288*gm(1,1)*gm(2,2)**2*dgm01(1,2)&
3668 : : & +36*gm(1,2)**3*dgm01(2,2)+gm(1,2)*gm(2,2)*(72*gm(2,2)*dgm01(1,1)&
3669 : 576 : & +180*gm(1,1)*dgm01(2,2)))*dgm10(2,3))/96.d0
3670 : : cm(3,18)=(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3671 : : & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
3672 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)&
3673 : : & +4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3674 : : & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3675 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)&
3676 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
3677 : : & *dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3678 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3679 : : & *dgm01(2,3))*dgm10(1,2)+(8*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3680 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+12*(-12*gm(1,3)&
3681 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3682 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)&
3683 : : & +3*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)&
3684 : : & *dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))&
3685 : : & +12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)&
3686 : : & -72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)&
3687 : : & *dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)&
3688 : : & +gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)&
3689 : : & *dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))&
3690 : : & *dgm10(2,2)+2*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
3691 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)&
3692 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
3693 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)&
3694 : : & +gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2))*dgm10(2,3))&
3695 : 576 : & /24.d0
3696 : : cm(4,18)=(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3697 : : & *gm(3,3)))*dgm01(2,2)*dgm10(1,1)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
3698 : : & +54*gm(1,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)+4*(6*(6*gm(1,3)*gm(2,2)&
3699 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3700 : : & +2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,3)&
3701 : : & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
3702 : : & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)&
3703 : : & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3704 : : & *gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(-18*gm(1,3)&
3705 : : & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)*gm(1,3)&
3706 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2))&
3707 : : & *dgm10(1,3)+3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))&
3708 : : & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)&
3709 : : & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)&
3710 : : & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)&
3711 : : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))&
3712 : : & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)&
3713 : : & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)&
3714 : : & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(gm(2,3)*(72*gm(1,2)&
3715 : : & **2*dgm01(1,2)+288*gm(1,1)*gm(2,2)*dgm01(1,2)+gm(1,2)*(108*gm(2,2)&
3716 : : & *dgm01(1,1)+36*gm(1,1)*dgm01(2,2)))+gm(1,3)*(-36*gm(2,2)**2*dgm01(1,1)&
3717 : : & +36*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(72*gm(1,2)*dgm01(1,2)+144*gm(1,1)&
3718 : 576 : & *dgm01(2,2))))*dgm10(2,3))/12.d0
3719 : : cm(5,18)=(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
3720 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
3721 : : & *dgm01(2,2)*dgm10(1,1)+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
3722 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)*dgm10(1,1)&
3723 : : & +4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3724 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3725 : : & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3726 : : & *gm(2,2)*gm(2,3))*dgm01(1,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3727 : : & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)&
3728 : : & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))&
3729 : : & *dgm10(1,2)+(8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
3730 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)+12*(6*gm(1,2)**2*gm(1,3)&
3731 : : & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2))&
3732 : : & *dgm10(1,3)+3*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,1)*(-24*gm(2,3)&
3733 : : & **2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)+192*gm(1,2)*dgm01(1,2))&
3734 : : & +192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(-24*gm(2,2)*dgm01(1,1)&
3735 : : & +48*gm(1,2)*dgm01(1,2)+24*gm(1,1)*dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)&
3736 : : & *dgm01(2,2)+96*gm(2,3)*dgm01(2,3))+gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)&
3737 : : & +gm(1,1)*(48*gm(2,3)*dgm01(1,2)-72*gm(2,2)*dgm01(1,3))+gm(1,2)&
3738 : : & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(gm(1,2)&
3739 : : & **2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,3)*dgm01(1,2))+gm(1,1)*(gm(2,2)&
3740 : : & *(-36*gm(2,3)*dgm01(1,1)-216*gm(1,3)*dgm01(1,2))+144*gm(1,1)&
3741 : : & *gm(2,3)*dgm01(2,2))+gm(1,2)*(576*gm(1,1)*gm(2,3)*dgm01(1,2)&
3742 : : & +gm(1,3)*(-72*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))))*dgm10(2,3))&
3743 : 576 : & /24.d0
3744 : : cm(6,18)=(6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
3745 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,1)+4*gm(2,2)&
3746 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,3)*dgm10(1,1)+4*(6*(48*gm(1,2)&
3747 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
3748 : : & *dgm01(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)&
3749 : : & +6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
3750 : : & *gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)&
3751 : : & *gm(2,2))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
3752 : : & *gm(2,2))*dgm01(1,2)+12*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))&
3753 : : & *dgm01(2,2))*dgm10(1,3)+3*(24*gm(1,2)**3*dgm01(1,3)+gm(1,2)*(gm(1,1)&
3754 : : & *(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)*dgm01(1,3))+gm(1,3)*(96*gm(2,2)&
3755 : : & *dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))+gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)&
3756 : : & +48*(gm(1,3)*dgm01(1,2)+gm(1,1)*dgm01(2,3)))+gm(1,1)*(48*gm(1,1)&
3757 : : & *gm(2,3)*dgm01(2,2)+gm(2,2)*(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)&
3758 : : & *dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))*dgm10(2,2)+2*(72*gm(1,2)&
3759 : : & **3*dgm01(1,2)+360*gm(1,1)*gm(1,2)*gm(2,2)*dgm01(1,2)+gm(1,2)&
3760 : : & **2*(108*gm(2,2)*dgm01(1,1)+72*gm(1,1)*dgm01(2,2))+gm(1,1)*gm(2,2)&
3761 : : & *(-36*gm(2,2)*dgm01(1,1)+144*gm(1,1)*dgm01(2,2)))*dgm10(2,3))&
3762 : 576 : & /24.d0
3763 : : cm(7,18)=(864*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,1)+576*gm(2,2)&
3764 : : & **3*dgm01(2,3)*dgm10(1,1)+1152*gm(2,2)*(1*gm(2,2)**2*dgm01(1,3)&
3765 : : & +4.5d0*gm(1,2)*gm(2,3)*dgm01(2,2)+gm(2,2)*(3*gm(2,3)*dgm01(1,2)&
3766 : : & -1.5d0*gm(1,3)*dgm01(2,2)+3*gm(1,2)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)&
3767 : : & **2*(288*gm(2,2)*dgm01(1,2)+432*gm(1,2)*dgm01(2,2))*dgm10(1,3)&
3768 : : & +12*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)+gm(2,2)**2*(72*gm(2,3)&
3769 : : & *dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)*dgm01(1,3)-72*gm(1,1)&
3770 : : & *dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(1,2)&
3771 : : & *(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))+216*gm(1,2)**2*dgm01(2,3)))&
3772 : : & *dgm10(2,2)+8*gm(2,2)*(72*gm(2,2)**2*dgm01(1,1)+324*gm(1,2)**2*dgm01(2,2)&
3773 : : & +gm(2,2)*(432*gm(1,2)*dgm01(1,2)-108*gm(1,1)*dgm01(2,2)))*dgm10(2,3))&
3774 : 576 : & /288.d0
3775 : : cm(8,18)=(6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
3776 : : & *dgm10(1,1)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
3777 : : & *dgm10(1,1)+4*(6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3778 : : & +2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(6*gm(1,2)&
3779 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)&
3780 : : & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
3781 : : & *gm(3,3)))*dgm01(2,3))*dgm10(1,2)+(8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
3782 : : & *gm(3,3))*dgm01(1,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
3783 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+3*(12*gm(2,3)&
3784 : : & **3*dgm01(1,1)+gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)&
3785 : : & *dgm01(2,2))+120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)&
3786 : : & *dgm01(1,2)+24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)&
3787 : : & *(-72*gm(1,2)*gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)&
3788 : : & *gm(2,2)*dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)&
3789 : : & +192*gm(1,3)*dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)&
3790 : : & +gm(1,2)*(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(2,2)&
3791 : : & +2*(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,3)&
3792 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3793 : : & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3794 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2))&
3795 : 576 : & *dgm10(2,3))/24.d0
3796 : : cm(9,18)=(24*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,2)&
3797 : : & *dgm10(1,1)+576*gm(2,2)**2*gm(2,3)*dgm01(2,3)*dgm10(1,1)+16*(36*gm(1,2)&
3798 : : & *gm(2,3)**2*dgm01(2,2)+gm(2,2)**2*(144*gm(3,3)*dgm01(1,2)+72*gm(2,3)&
3799 : : & *dgm01(1,3)+144*gm(1,3)*dgm01(2,3))+gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)&
3800 : : & +144*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(36*gm(1,3)*dgm01(2,2)&
3801 : : & +72*gm(1,2)*dgm01(2,3))))*dgm10(1,2)+4*gm(2,2)*(144*gm(1,2)*gm(2,3)&
3802 : : & *dgm01(2,2)+288*gm(2,2)*(gm(2,3)*dgm01(1,2)+gm(1,3)*dgm01(2,2)))&
3803 : : & *dgm10(1,3)+12*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)&
3804 : : & *dgm01(1,3))-24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)&
3805 : : & *(48*gm(2,3)*dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)&
3806 : : & *dgm01(2,2)+24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)&
3807 : : & +(-24*gm(1,3)**2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)&
3808 : : & *dgm01(1,2)+48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)&
3809 : : & *(gm(3,3)*dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(2,2)+8*(gm(2,2)&
3810 : : & **2*(72*gm(2,3)*dgm01(1,1)+288*gm(1,3)*dgm01(1,2))+36*gm(1,2)&
3811 : : & **2*gm(2,3)*dgm01(2,2)+gm(2,2)*(-108*gm(1,1)*gm(2,3)*dgm01(2,2)&
3812 : : & +gm(1,2)*(144*gm(2,3)*dgm01(1,2)+288*gm(1,3)*dgm01(2,2))))*dgm10(2,3))&
3813 : 576 : & /96.d0
3814 : : cm(10,18)=(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
3815 : : & *dgm10(1,1)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
3816 : : & *dgm10(1,1)+4*(6*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
3817 : : & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*gm(3,3)&
3818 : : & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)&
3819 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
3820 : : & *dgm01(2,3))*dgm10(1,2)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
3821 : : & *gm(3,3))*dgm01(1,2)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3822 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2))*dgm10(1,3)+6*(gm(3,3)&
3823 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+4*gm(3,3)*(54*gm(1,3)&
3824 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)+2*(-36*gm(1,2)*gm(2,3)&
3825 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3826 : : & +gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+2*(90*gm(1,3)&
3827 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,3))&
3828 : : & *dgm10(2,2)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
3829 : : & +12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
3830 : : & *gm(3,3)))*dgm01(1,2)+6*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)&
3831 : 576 : & *gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(2,2))*dgm10(2,3))/72.d0
3832 : : cm(1,19)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)&
3833 : : & *dgm10(1,1)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3834 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(90*gm(1,2)&
3835 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3)&
3836 : : & *dgm10(1,1)+4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)&
3837 : : & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
3838 : : & *gm(3,3)))*dgm01(1,3)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
3839 : : & *dgm01(2,3)+6*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
3840 : : & *dgm01(3,3))*dgm10(1,2)+12*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
3841 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+2*(90*gm(1,2)&
3842 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3)&
3843 : : & +gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*gm(1,1)&
3844 : : & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+gm(1,1)*(54*gm(1,2)&
3845 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)&
3846 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)*(54*gm(1,3)&
3847 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)*dgm01(3,3))&
3848 : : & *dgm10(2,2)+6*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
3849 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)&
3850 : : & *gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
3851 : : & *gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)+72*gm(1,1)&
3852 : : & **2*gm(1,2)*dgm01(3,3))*dgm10(2,3)+3*(2*(90*gm(1,2)**2*gm(1,3)&
3853 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,1)+8*gm(1,1)&
3854 : : & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(1,2)+4*gm(1,1)&
3855 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,3)+72*gm(1,1)**2*gm(1,3)&
3856 : 576 : & *dgm01(2,2)+144*gm(1,1)**2*gm(1,2)*dgm01(2,3))*dgm10(3,3))/72.d0
3857 : : cm(2,19)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
3858 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,1)+12*(48*gm(1,3)&
3859 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)&
3860 : : & *dgm10(1,1)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
3861 : : & *dgm01(3,3)*dgm10(1,1)+4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3862 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)&
3863 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3864 : : & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3865 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)&
3866 : : & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3867 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*(2*(48*gm(1,3)*gm(2,2)&
3868 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3869 : : & +2*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3)&
3870 : : & +(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
3871 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)&
3872 : : & +4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
3873 : : & *gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
3874 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
3875 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
3876 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3877 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)&
3878 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
3879 : : & *dgm01(3,3))*dgm10(2,2)+12*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
3880 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)&
3881 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3882 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)&
3883 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
3884 : : & *dgm01(1,3)+2*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)&
3885 : : & +48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)&
3886 : : & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+3*(48*gm(1,2)**2*(gm(2,3)&
3887 : : & *dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,1)*gm(2,2)*(192*gm(2,3)&
3888 : : & *dgm01(1,2)+96*gm(2,2)*dgm01(1,3))+gm(1,3)*(48*gm(2,2)**2*dgm01(1,1)&
3889 : : & +12*gm(1,2)**2*dgm01(2,2)+gm(2,2)*(48*gm(1,2)*dgm01(1,2)-36*gm(1,1)&
3890 : : & *dgm01(2,2)))+24*gm(1,2)**3*dgm01(2,3)+gm(1,2)*(96*gm(1,1)*gm(2,3)&
3891 : : & *dgm01(2,2)+gm(2,2)*(24*gm(2,3)*dgm01(1,1)+120*gm(1,1)*dgm01(2,3))))&
3892 : 576 : & *dgm10(3,3))/24.d0
3893 : : cm(3,19)=(144*gm(1,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)&
3894 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)&
3895 : : & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
3896 : : & *gm(3,3)))*dgm01(3,3)*dgm10(1,1)+8*(gm(1,3)*gm(3,3)*(72*gm(3,3)&
3897 : : & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)&
3898 : : & **2*(72*gm(3,3)*dgm01(2,3)+36*gm(2,3)*dgm01(3,3))+144*gm(3,3)&
3899 : : & *(gm(1,2)*gm(3,3)*dgm01(1,3)+gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)&
3900 : : & *dgm01(3,3))))*dgm10(1,2)+24*(2*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
3901 : : & *gm(3,3))*dgm01(1,2)+2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
3902 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
3903 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3904 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)&
3905 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3906 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)&
3907 : : & +2*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)+288*gm(1,1)*gm(3,3)**2*dgm01(1,3)&
3908 : : & +36*gm(1,3)**3*dgm01(3,3)+gm(1,3)*gm(3,3)*(72*gm(3,3)*dgm01(1,1)&
3909 : : & +180*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+12*(24*gm(1,3)**3*dgm01(2,3)&
3910 : : & +gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3)+12*gm(1,2)&
3911 : : & *dgm01(3,3))+gm(3,3)*(gm(1,1)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)&
3912 : : & *dgm01(1,3))+gm(1,2)*(48*gm(3,3)*dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))&
3913 : : & +gm(1,3)*(gm(3,3)*(48*gm(1,2)*dgm01(1,3)+120*gm(1,1)*dgm01(2,3))&
3914 : : & +gm(2,3)*(24*gm(3,3)*dgm01(1,1)+96*gm(1,1)*dgm01(3,3))))*dgm10(2,3)&
3915 : : & +6*(-48*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(192*gm(2,3)*gm(3,3)&
3916 : : & *dgm01(1,2)+120*gm(2,3)**2*dgm01(1,3)-24*gm(2,2)*gm(3,3)*dgm01(1,3))&
3917 : : & +12*gm(1,3)**3*dgm01(2,2)+gm(1,2)*gm(3,3)*(96*gm(2,3)*dgm01(1,1)&
3918 : : & -72*gm(1,1)*dgm01(2,3))+gm(1,3)**2*(48*gm(2,3)*dgm01(1,2)-48*gm(2,2)&
3919 : : & *dgm01(1,3)+24*gm(1,2)*dgm01(2,3))+gm(1,3)*(12*gm(2,3)**2*dgm01(1,1)&
3920 : : & +gm(3,3)*(-36*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+60*gm(1,1)&
3921 : : & *dgm01(2,2))+gm(2,3)*(144*gm(1,2)*dgm01(1,3)+192*gm(1,1)*dgm01(2,3))))&
3922 : 576 : & *dgm10(3,3))/48.d0
3923 : : cm(4,19)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3924 : : & *dgm01(2,2)*dgm10(1,1)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
3925 : : & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(6*gm(1,3)&
3926 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)&
3927 : : & *dgm10(1,1)+4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
3928 : : & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
3929 : : & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3930 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)&
3931 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3932 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(1,2)&
3933 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,2)&
3934 : : & +2*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
3935 : : & *gm(3,3)))*dgm01(1,3)+(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
3936 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+4*(9*gm(1,3)&
3937 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
3938 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)*gm(1,3)&
3939 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
3940 : : & *dgm10(1,3)+(gm(1,3)**2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))&
3941 : : & +gm(1,3)*(72*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)&
3942 : : & *dgm01(1,1)+36*gm(1,1)*dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)&
3943 : : & *dgm01(1,3)+gm(1,2)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))&
3944 : : & *dgm10(2,2)+6*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)&
3945 : : & *gm(3,3)*dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)&
3946 : : & *dgm01(1,3))+gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)&
3947 : : & +24*gm(1,2)*dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)&
3948 : : & +12*gm(2,3)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)&
3949 : : & *(12*gm(2,3)**2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)&
3950 : : & *dgm01(2,3))+48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))&
3951 : : & +gm(1,2)*(24*gm(3,3)*dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(2,3)&
3952 : : & +3*(gm(1,2)**2*(72*gm(3,3)*dgm01(1,2)+24*gm(2,3)*dgm01(1,3))&
3953 : : & +gm(1,1)*(72*gm(2,3)**2*dgm01(1,2)+120*gm(2,2)*gm(3,3)*dgm01(1,2)&
3954 : : & +96*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,3)**2*(72*gm(2,2)*dgm01(1,2)&
3955 : : & +12*gm(1,2)*dgm01(2,2))+gm(1,2)*(12*gm(2,3)**2*dgm01(1,1)+48*gm(3,3)&
3956 : : & *(gm(2,2)*dgm01(1,1)+gm(1,1)*dgm01(2,2))+24*gm(1,1)*gm(2,3)*dgm01(2,3))&
3957 : : & +gm(1,3)*(-48*gm(1,2)*gm(2,3)*dgm01(1,2)+12*gm(1,1)*gm(2,3)*dgm01(2,2)&
3958 : : & +24*gm(1,2)**2*dgm01(2,3)+gm(2,2)*(12*gm(2,3)*dgm01(1,1)+24*gm(1,2)&
3959 : 576 : & *dgm01(1,3)+96*gm(1,1)*dgm01(2,3))))*dgm10(3,3))/12.d0
3960 : : cm(5,19)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
3961 : : & *dgm10(1,1)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
3962 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+6*(-12*gm(1,3)&
3963 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
3964 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)&
3965 : : & +4*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)&
3966 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
3967 : : & *dgm01(1,3)+6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
3968 : : & +6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
3969 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(1,3)**2*gm(2,3)&
3970 : : & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)&
3971 : : & +2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
3972 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
3973 : : & +(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)&
3974 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)&
3975 : : & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
3976 : : & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+(72*gm(1,3)**3*dgm01(1,3)&
3977 : : & +360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)&
3978 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)*gm(3,3)*(-36*gm(3,3)&
3979 : : & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(2,2)+6*(24*gm(1,3)&
3980 : : & **3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,2)&
3981 : : & *dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)*(gm(1,1)*(120*gm(3,3)&
3982 : : & *dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)*(96*gm(3,3)*dgm01(1,1)&
3983 : : & +24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)*(192*gm(1,2)*dgm01(1,3)&
3984 : : & +96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+48*gm(1,1)&
3985 : : & *dgm01(3,3))))*dgm10(2,3)+3*(60*gm(1,2)**2*gm(3,3)*dgm01(1,1)&
3986 : : & +gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)+gm(3,3)*(-12*gm(2,2)*dgm01(1,1)&
3987 : : & +192*gm(1,2)*dgm01(1,2))+192*gm(1,2)*gm(2,3)*dgm01(1,3))+gm(1,3)&
3988 : : & **2*(-24*gm(2,2)*dgm01(1,1)+48*gm(1,2)*dgm01(1,2)+24*gm(1,1)&
3989 : : & *dgm01(2,2))+gm(1,1)**2*(48*gm(3,3)*dgm01(2,2)+96*gm(2,3)*dgm01(2,3))&
3990 : : & +gm(1,3)*(24*gm(1,2)**2*dgm01(1,3)+gm(1,1)*(48*gm(2,3)*dgm01(1,2)&
3991 : : & -72*gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)&
3992 : 576 : & *dgm01(2,3))))*dgm10(3,3))/24.d0
3993 : : cm(6,19)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
3994 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(1,1)+12*(30*gm(1,3)&
3995 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
3996 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)&
3997 : : & +6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
3998 : : & *gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(1,1)+4*(2*(90*gm(1,3)**2*gm(2,3)&
3999 : : & -36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)&
4000 : : & +6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4001 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4002 : : & +6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
4003 : : & *gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
4004 : : & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)+12*(2*(30*gm(1,3)&
4005 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4006 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(48*gm(1,2)&
4007 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4008 : : & *dgm01(1,3)+(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
4009 : : & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
4010 : : & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)&
4011 : : & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(180*gm(2,3)&
4012 : : & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)&
4013 : : & *dgm01(1,3)+gm(1,2)*(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))&
4014 : : & +gm(1,1)*(-216*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)&
4015 : : & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+6*(-24*gm(1,2)&
4016 : : & **2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)*dgm01(1,1)+24*gm(1,2)&
4017 : : & *dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)+192*gm(1,1)*(gm(2,3)&
4018 : : & *dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)*(72*gm(2,3)*dgm01(1,1)&
4019 : : & +48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)**2*dgm01(1,1)-12*gm(2,2)&
4020 : : & *gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)*dgm01(1,2)+48*gm(1,2)&
4021 : : & *gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))+gm(1,1)**2*(96*gm(2,3)&
4022 : : & *dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(2,3)+3*(24*gm(1,2)&
4023 : : & **3*dgm01(1,3)+gm(1,2)*(gm(1,1)*(48*gm(2,3)*dgm01(1,2)+120*gm(2,2)&
4024 : : & *dgm01(1,3))+gm(1,3)*(96*gm(2,2)*dgm01(1,1)+24*gm(1,1)*dgm01(2,2)))&
4025 : : & +gm(1,2)**2*(12*gm(2,3)*dgm01(1,1)+48*(gm(1,3)*dgm01(1,2)+gm(1,1)&
4026 : : & *dgm01(2,3)))+gm(1,1)*(48*gm(1,1)*gm(2,3)*dgm01(2,2)+gm(2,2)&
4027 : : & *(-36*gm(2,3)*dgm01(1,1)+192*gm(1,3)*dgm01(1,2)+96*gm(1,1)*dgm01(2,3))))&
4028 : 576 : & *dgm10(3,3))/24.d0
4029 : : cm(7,19)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
4030 : : & *dgm10(1,1)+24*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
4031 : : & *dgm10(1,1)+432*gm(2,2)**2*gm(2,3)*dgm01(3,3)*dgm10(1,1)+8*(2*(90*gm(2,3)&
4032 : : & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)&
4033 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4034 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)&
4035 : : & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)&
4036 : : & +12*(180*gm(1,2)*gm(2,3)**2*dgm01(2,2)+gm(2,2)*(216*gm(2,3)**2*dgm01(1,2)&
4037 : : & -36*gm(1,2)*gm(3,3)*dgm01(2,2)+gm(2,3)*(-72*gm(1,3)*dgm01(2,2)&
4038 : : & +432*gm(1,2)*dgm01(2,3)))+gm(2,2)**2*(-72*gm(3,3)*dgm01(1,2)&
4039 : : & +144*gm(2,3)*dgm01(1,3)-144*gm(1,3)*dgm01(2,3)+72*gm(1,2)*dgm01(3,3)))&
4040 : : & *dgm10(1,3)+2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
4041 : : & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4042 : : & *gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)&
4043 : : & *gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))*dgm10(2,2)+24*(gm(2,2)&
4044 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)&
4045 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4046 : : & *dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4047 : : & *dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)&
4048 : : & +gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
4049 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+6*(180*gm(1,2)**2*gm(2,3)*dgm01(2,2)&
4050 : : & +gm(2,2)**2*(72*gm(2,3)*dgm01(1,1)-144*gm(1,3)*dgm01(1,2)+144*gm(1,2)&
4051 : : & *dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+gm(2,2)*(-36*gm(1,1)*gm(2,3)&
4052 : : & *dgm01(2,2)+gm(1,2)*(432*gm(2,3)*dgm01(1,2)-72*gm(1,3)*dgm01(2,2))&
4053 : 576 : & +216*gm(1,2)**2*dgm01(2,3)))*dgm10(3,3))/144.d0
4054 : : cm(8,19)=(144*gm(2,3)*gm(3,3)**2*dgm01(2,2)*dgm10(1,1)+24*gm(3,3)&
4055 : : & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+12*(6*gm(2,3)&
4056 : : & **3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+8*(72*gm(2,3)&
4057 : : & *gm(3,3)**2*dgm01(1,2)+6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))&
4058 : : & *dgm01(1,3)+6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4059 : : & *dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4060 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+24*(2*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)&
4061 : : & *gm(3,3))*dgm01(1,2)+2*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))&
4062 : : & *dgm01(1,3)+gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)&
4063 : : & +4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4064 : : & *gm(3,3)))*dgm01(2,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4065 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(288*gm(1,2)&
4066 : : & *gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)&
4067 : : & **2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)&
4068 : : & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(2,2)+24*(gm(3,3)&
4069 : : & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)*(12*gm(1,3)&
4070 : : & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)*gm(2,3)&
4071 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4072 : : & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4073 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4074 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
4075 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+6*(12*gm(2,3)**3*dgm01(1,1)&
4076 : : & +gm(1,3)*gm(3,3)*(192*gm(2,2)*dgm01(1,2)+96*gm(1,2)*dgm01(2,2))&
4077 : : & +120*gm(1,3)**2*gm(2,2)*dgm01(2,3)+gm(2,3)**2*(48*gm(1,3)*dgm01(1,2)&
4078 : : & +24*gm(1,2)*dgm01(1,3)-48*gm(1,1)*dgm01(2,3))+gm(3,3)*(-72*gm(1,2)&
4079 : : & *gm(2,2)*dgm01(1,3)-48*gm(1,2)**2*dgm01(2,3)-24*gm(1,1)*gm(2,2)&
4080 : : & *dgm01(2,3))+gm(2,3)*(gm(2,2)*(60*gm(3,3)*dgm01(1,1)+192*gm(1,3)&
4081 : : & *dgm01(1,3))+(12*gm(1,3)**2-36*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(1,2)&
4082 : : & *(48*gm(3,3)*dgm01(1,2)+144*gm(1,3)*dgm01(2,3))))*dgm10(3,3))&
4083 : 576 : & /48.d0
4084 : : cm(9,19)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
4085 : : & *dgm10(1,1)+12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
4086 : : & *dgm10(1,1)+6*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(3,3)&
4087 : : & *dgm10(1,1)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
4088 : : & +6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)+6*(48*gm(1,2)&
4089 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)&
4090 : : & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
4091 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+12*(2*(6*gm(2,3)**3+30*gm(2,2)&
4092 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)+2*gm(2,2)*(12*gm(2,3)**2+24*gm(2,2)&
4093 : : & *gm(3,3))*dgm01(1,3)+(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4094 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)&
4095 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+gm(2,2)&
4096 : : & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)&
4097 : : & +(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)&
4098 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4099 : : & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
4100 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4101 : : & *dgm10(2,2)+12*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
4102 : : & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4103 : : & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4104 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)&
4105 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4106 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)&
4107 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
4108 : : & *dgm10(2,3)+3*(gm(2,2)**2*(48*gm(3,3)*dgm01(1,1)+96*gm(1,3)*dgm01(1,3))&
4109 : : & -24*gm(1,1)*gm(2,3)**2*dgm01(2,2)+gm(1,2)*gm(2,3)*(48*gm(2,3)&
4110 : : & *dgm01(1,2)+72*gm(1,3)*dgm01(2,2))+gm(1,2)**2*(60*gm(3,3)*dgm01(2,2)&
4111 : : & +24*gm(2,3)*dgm01(2,3))+gm(2,2)*(24*gm(2,3)**2*dgm01(1,1)+(-24*gm(1,3)&
4112 : : & **2-12*gm(1,1)*gm(3,3))*dgm01(2,2)+gm(2,3)*(48*gm(1,3)*dgm01(1,2)&
4113 : : & +48*gm(1,2)*dgm01(1,3)-72*gm(1,1)*dgm01(2,3))+192*gm(1,2)*(gm(3,3)&
4114 : 576 : & *dgm01(1,2)+gm(1,3)*dgm01(2,3))))*dgm10(3,3))/24.d0
4115 : : cm(10,19)=(144*gm(3,3)**3*dgm01(2,2)*dgm10(1,1)+864*gm(2,3)&
4116 : : & *gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+12*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
4117 : : & *gm(3,3))*dgm01(3,3)*dgm10(1,1)+576*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)&
4118 : : & +4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)&
4119 : : & +3*gm(1,3)*dgm01(2,3)-1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,2)+12*(144*gm(2,3)&
4120 : : & *gm(3,3)**2*dgm01(1,2)+4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4121 : : & *dgm01(1,3)+72*gm(1,3)*gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)&
4122 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)&
4123 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4124 : : & *dgm10(1,3)+2*gm(3,3)*(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)&
4125 : : & +gm(3,3)*(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,2)&
4126 : : & +12*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)**2*dgm01(1,2)&
4127 : : & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)&
4128 : : & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)&
4129 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))&
4130 : : & *dgm10(2,3)+12*(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)&
4131 : : & +4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)&
4132 : : & +2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4133 : : & *gm(3,3)))*dgm01(1,3)+gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
4134 : : & *dgm01(2,2)+2*(90*gm(1,3)**2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)&
4135 : 576 : & *gm(2,3))*gm(3,3))*dgm01(2,3))*dgm10(3,3))/144.d0
4136 : : cm(1,20)=(4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
4137 : : & *dgm10(1,1)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
4138 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*(90*gm(1,3)&
4139 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)+12*gm(1,1)*(54*gm(1,3)&
4140 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(1,3)&
4141 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)+6*(-36*gm(1,1)*gm(1,3)&
4142 : : & *gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3)&
4143 : : & +6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+6*gm(1,1)&
4144 : : & *(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(1,3)&
4145 : : & +2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)&
4146 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)&
4147 : : & *dgm01(3,3))*dgm10(2,3)+3*(2*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4148 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,1)+4*gm(1,1)*(54*gm(1,3)&
4149 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+8*gm(1,1)*(54*gm(1,2)*gm(1,3)&
4150 : : & -18*gm(1,1)*gm(2,3))*dgm01(1,3)+144*gm(1,1)**2*gm(1,3)*dgm01(2,3)&
4151 : 576 : & +72*gm(1,1)**2*gm(1,2)*dgm01(3,3))*dgm10(3,3))/72.d0
4152 : : cm(2,20)=(4*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4153 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,1)+6*(48*gm(1,3)&
4154 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)&
4155 : : & *dgm10(1,1)+(8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4156 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)&
4157 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
4158 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(-36*gm(1,2)&
4159 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4160 : : & *dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4161 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)&
4162 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
4163 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)&
4164 : : & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
4165 : : & *dgm10(1,3)+2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4166 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)**2*gm(2,2)&
4167 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
4168 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
4169 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)&
4170 : : & +6*((48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4171 : : & *gm(3,3)))*dgm01(1,1)+2*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
4172 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4173 : : & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
4174 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3)+2*(6*gm(1,2)&
4175 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
4176 : : & *dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))&
4177 : 576 : & *dgm10(3,3))/24.d0
4178 : : cm(3,20)=(576*gm(1,3)*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+24*gm(3,3)&
4179 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)&
4180 : : & +4*gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)**2+24*gm(1,1)&
4181 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+16*(gm(1,3)*gm(3,3)*(72*gm(3,3)&
4182 : : & *dgm01(1,2)+72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)&
4183 : : & **2*(72*gm(3,3)*dgm01(2,3)+36*gm(2,3)*dgm01(3,3))+144*gm(3,3)&
4184 : : & *(gm(1,2)*gm(3,3)*dgm01(1,3)+gm(1,1)*(gm(3,3)*dgm01(2,3)+gm(2,3)&
4185 : : & *dgm01(3,3))))*dgm10(1,3)+8*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)&
4186 : : & +288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)&
4187 : : & *gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(2,3)&
4188 : : & +12*(24*gm(1,3)**3*dgm01(2,3)+gm(1,3)**2*(48*gm(3,3)*dgm01(1,2)&
4189 : : & +48*gm(2,3)*dgm01(1,3)+12*gm(1,2)*dgm01(3,3))+gm(3,3)*(gm(1,1)&
4190 : : & *(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,2)*(48*gm(3,3)&
4191 : : & *dgm01(1,1)-36*gm(1,1)*dgm01(3,3)))+gm(1,3)*(gm(3,3)*(48*gm(1,2)&
4192 : : & *dgm01(1,3)+120*gm(1,1)*dgm01(2,3))+gm(2,3)*(24*gm(3,3)*dgm01(1,1)&
4193 : 576 : & +96*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/96.d0
4194 : : cm(4,20)=(4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4195 : : & *dgm01(2,3)*dgm10(1,1)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4196 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)&
4197 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)&
4198 : : & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))&
4199 : : & *dgm10(1,2)+4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4200 : : & *dgm01(1,2)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4201 : : & *gm(3,3)))*dgm01(1,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
4202 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)&
4203 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
4204 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+2*(gm(1,3)&
4205 : : & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)&
4206 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)&
4207 : : & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
4208 : : & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(2,3)&
4209 : : & +3*(72*gm(1,2)**2*gm(3,3)*dgm01(1,3)+gm(1,1)*(96*gm(2,3)*gm(3,3)&
4210 : : & *dgm01(1,2)+72*gm(2,3)**2*dgm01(1,3)+120*gm(2,2)*gm(3,3)*dgm01(1,3))&
4211 : : & +gm(1,3)**2*(24*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3)+24*gm(1,2)&
4212 : : & *dgm01(2,3))+gm(1,2)*(96*gm(1,1)*gm(3,3)*dgm01(2,3)+12*gm(2,3)&
4213 : : & *(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3)))+gm(1,3)*(12*gm(2,3)&
4214 : : & **2*dgm01(1,1)+gm(2,3)*(-48*gm(1,2)*dgm01(1,3)+24*gm(1,1)*dgm01(2,3))&
4215 : : & +48*gm(2,2)*(gm(3,3)*dgm01(1,1)+gm(1,1)*dgm01(3,3))+gm(1,2)*(24*gm(3,3)&
4216 : 576 : & *dgm01(1,2)+12*gm(1,2)*dgm01(3,3))))*dgm10(3,3))/12.d0
4217 : : cm(5,20)=(4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
4218 : : & *dgm10(1,1)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4219 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)&
4220 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)&
4221 : : & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+4*(2*gm(3,3)&
4222 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)**2*gm(2,3)&
4223 : : & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)&
4224 : : & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)&
4225 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))&
4226 : : & *dgm10(1,3)+2*(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)&
4227 : : & *dgm01(1,3)+gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))&
4228 : : & +gm(1,1)*gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))&
4229 : : & *dgm10(2,3)+3*(24*gm(1,3)**3*dgm01(1,2)+gm(1,3)**2*(12*gm(2,3)&
4230 : : & *dgm01(1,1)+48*(gm(1,2)*dgm01(1,3)+gm(1,1)*dgm01(2,3)))+gm(1,3)&
4231 : : & *(gm(1,1)*(120*gm(3,3)*dgm01(1,2)+48*gm(2,3)*dgm01(1,3))+gm(1,2)&
4232 : : & *(96*gm(3,3)*dgm01(1,1)+24*gm(1,1)*dgm01(3,3)))+gm(1,1)*(gm(3,3)&
4233 : : & *(192*gm(1,2)*dgm01(1,3)+96*gm(1,1)*dgm01(2,3))+gm(2,3)*(-36*gm(3,3)&
4234 : 576 : & *dgm01(1,1)+48*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/24.d0
4235 : : cm(6,20)=(4*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4236 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(1,1)+6*(30*gm(1,3)&
4237 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4238 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)&
4239 : : & +(8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4240 : : & *gm(2,3)*gm(3,3))*dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4241 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(1,3)&
4242 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4243 : : & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4244 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4245 : : & *dgm01(1,3)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
4246 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
4247 : : & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)&
4248 : : & +2*(gm(1,3)**2*(180*gm(2,3)*dgm01(1,1)+72*gm(1,2)*dgm01(1,3))&
4249 : : & +gm(1,3)*(576*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)*(-72*gm(3,3)&
4250 : : & *dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))+gm(1,1)*(-216*gm(1,2)*gm(3,3)&
4251 : : & *dgm01(1,3)+gm(2,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))&
4252 : : & *dgm10(2,3)+3*(-24*gm(1,2)**2*gm(3,3)*dgm01(1,1)+gm(1,3)**2*(60*gm(2,2)&
4253 : : & *dgm01(1,1)+24*gm(1,2)*dgm01(1,2))+gm(1,3)*(48*gm(1,2)**2*dgm01(1,3)&
4254 : : & +192*gm(1,1)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3))+gm(1,2)&
4255 : : & *(72*gm(2,3)*dgm01(1,1)+48*gm(1,1)*dgm01(2,3)))+gm(1,1)*(-24*gm(2,3)&
4256 : : & **2*dgm01(1,1)-12*gm(2,2)*gm(3,3)*dgm01(1,1)-72*gm(1,2)*gm(3,3)&
4257 : : & *dgm01(1,2)+48*gm(1,2)*gm(2,3)*dgm01(1,3)+24*gm(1,2)**2*dgm01(3,3))&
4258 : : & +gm(1,1)**2*(96*gm(2,3)*dgm01(2,3)+48*gm(2,2)*dgm01(3,3)))*dgm10(3,3))&
4259 : 576 : & /24.d0
4260 : : cm(7,20)=(4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
4261 : : & *dgm10(1,1)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
4262 : : & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
4263 : : & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4264 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*(90*gm(2,3)**3-54*gm(2,2)&
4265 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4266 : : & *gm(3,3))*dgm01(1,3)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4267 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4268 : : & +54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+2*(2*(90*gm(2,3)&
4269 : : & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)&
4270 : : & *gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4271 : : & +6*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)&
4272 : : & *gm(2,3)))*dgm01(3,3))*dgm10(2,3)+6*(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4273 : : & *gm(3,3))*dgm01(1,1)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4274 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(-18*gm(1,3)*gm(2,2)&
4275 : : & +54*gm(1,2)*gm(2,3))*dgm01(1,3)+2*(90*gm(1,2)**2*gm(2,3)-18*gm(2,2)&
4276 : : & *(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(2,3)+gm(2,2)*(54*gm(1,2)&
4277 : 576 : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/72.d0
4278 : : cm(8,20)=(576*gm(2,3)*gm(3,3)**2*dgm01(2,3)*dgm10(1,1)+24*gm(3,3)&
4279 : : & *(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+4*gm(3,3)&
4280 : : & *(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
4281 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,2)+16*(72*gm(2,3)*gm(3,3)**2*dgm01(1,2)&
4282 : : & +6*gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3)+6*gm(3,3)&
4283 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)&
4284 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4285 : : & *dgm10(1,3)+8*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(1,3)+gm(1,3)&
4286 : : & *dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)+36*gm(1,3)**2*dgm01(3,3)&
4287 : : & +gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3))))*dgm10(2,3)&
4288 : : & +24*(gm(3,3)*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,1)+2*gm(3,3)&
4289 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(1,2)+4*(6*gm(1,2)&
4290 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4291 : : & +2*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4292 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4293 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
4294 : 576 : & *gm(3,3)))*dgm01(3,3))*dgm10(3,3))/96.d0
4295 : : cm(9,20)=(4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
4296 : : & *dgm10(1,1)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
4297 : : & *dgm10(1,1)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
4298 : : & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4299 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
4300 : : & *gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))&
4301 : : & *dgm01(1,3)+6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4302 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,3)*gm(2,2)*gm(2,3)&
4303 : : & +gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)&
4304 : : & +2*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)&
4305 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
4306 : : & +6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
4307 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4308 : : & *dgm10(2,3)+6*((6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,1)&
4309 : : & +2*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4310 : : & *gm(3,3)))*dgm01(1,2)+4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4311 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)+2*(-12*gm(1,3)**2*gm(2,2)&
4312 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4313 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,2)*gm(1,3)*gm(2,2)&
4314 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
4315 : 576 : & *dgm10(3,3))/24.d0
4316 : : cm(10,20)=(576*gm(3,3)**3*dgm01(2,3)*dgm10(1,1)+864*gm(2,3)&
4317 : : & *gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+4*gm(3,3)**2*(288*gm(3,3)*dgm01(1,3)&
4318 : : & +432*gm(1,3)*dgm01(3,3))*dgm10(1,2)+1152*gm(3,3)*(1*gm(3,3)**2*dgm01(1,2)&
4319 : : & +4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)+gm(3,3)*(3*gm(2,3)*dgm01(1,3)&
4320 : : & +3*gm(1,3)*dgm01(2,3)-1.5d0*gm(1,2)*dgm01(3,3)))*dgm10(1,3)+8*gm(3,3)&
4321 : : & *(72*gm(3,3)**2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)+gm(3,3)&
4322 : : & *(432*gm(1,3)*dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(2,3)&
4323 : : & +12*(72*gm(2,3)*gm(3,3)**2*dgm01(1,1)+144*gm(1,3)*gm(3,3)**2*dgm01(1,2)&
4324 : : & +8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)&
4325 : : & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+2*(90*gm(1,3)&
4326 : : & **2*gm(2,3)-18*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3))*gm(3,3))*dgm01(3,3))&
4327 : 576 : & *dgm10(3,3))/288.d0
4328 : : cm(1,21)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
4329 : : & *dgm10(1,1)+(8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
4330 : : & +12*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3))*dgm10(1,3)&
4331 : : & +(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,1)+12*gm(1,1)&
4332 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)+216*gm(1,1)**2*gm(1,3)&
4333 : 576 : & *dgm01(3,3))*dgm10(3,3))/72.d0
4334 : : cm(2,21)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4335 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,1)+(8*(-36*gm(1,2)&
4336 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4337 : : & *dgm01(1,3)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4338 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4339 : : & *dgm01(3,3))*dgm10(1,3)+(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4340 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,1)+12*(-12*gm(1,3)&
4341 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4342 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(6*gm(1,2)&
4343 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
4344 : 576 : & *dgm01(3,3))*dgm10(3,3))/24.d0
4345 : : cm(3,21)=(1440*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)&
4346 : : & *(288*gm(1,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)**2+24*gm(1,1)&
4347 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,3)+20*(144*gm(1,3)**2*gm(3,3)*dgm01(1,3)&
4348 : : & +288*gm(1,1)*gm(3,3)**2*dgm01(1,3)+36*gm(1,3)**3*dgm01(3,3)+gm(1,3)&
4349 : : & *gm(3,3)*(72*gm(3,3)*dgm01(1,1)+180*gm(1,1)*dgm01(3,3)))*dgm10(3,3))&
4350 : 576 : & /480.d0
4351 : : cm(4,21)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
4352 : : & *dgm01(3,3)*dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
4353 : : & *gm(3,3))*dgm01(1,3)+12*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
4354 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)&
4355 : : & **2*(72*gm(2,3)*dgm01(1,3)+36*gm(1,2)*dgm01(3,3))+gm(1,3)*(72*gm(1,2)&
4356 : : & *gm(3,3)*dgm01(1,3)+gm(2,3)*(108*gm(3,3)*dgm01(1,1)+36*gm(1,1)&
4357 : : & *dgm01(3,3)))+gm(3,3)*(288*gm(1,1)*gm(2,3)*dgm01(1,3)+gm(1,2)&
4358 : : & *(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(3,3))&
4359 : 576 : & /12.d0
4360 : : cm(5,21)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
4361 : : & *dgm10(1,1)+(8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)&
4362 : : & +12*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3))*dgm10(1,3)&
4363 : : & +(72*gm(1,3)**3*dgm01(1,3)+360*gm(1,1)*gm(1,3)*gm(3,3)*dgm01(1,3)&
4364 : : & +gm(1,3)**2*(108*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3))+gm(1,1)&
4365 : : & *gm(3,3)*(-36*gm(3,3)*dgm01(1,1)+144*gm(1,1)*dgm01(3,3)))*dgm10(3,3))&
4366 : 576 : & /24.d0
4367 : : cm(6,21)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4368 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,1)+(8*(90*gm(1,3)&
4369 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4370 : : & *dgm01(1,3)+12*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
4371 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(gm(1,3)**2*(180*gm(2,3)&
4372 : : & *dgm01(1,1)+72*gm(1,2)*dgm01(1,3))+gm(1,3)*(576*gm(1,1)*gm(2,3)&
4373 : : & *dgm01(1,3)+gm(1,2)*(-72*gm(3,3)*dgm01(1,1)+72*gm(1,1)*dgm01(3,3)))&
4374 : : & +gm(1,1)*(-216*gm(1,2)*gm(3,3)*dgm01(1,3)+gm(2,3)*(-36*gm(3,3)&
4375 : 576 : & *dgm01(1,1)+144*gm(1,1)*dgm01(3,3))))*dgm10(3,3))/24.d0
4376 : : cm(7,21)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
4377 : : & *dgm10(1,1)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
4378 : : & +12*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4379 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(2,3)**3-54*gm(2,2)&
4380 : : & *gm(2,3)*gm(3,3))*dgm01(1,1)+12*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4381 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(90*gm(1,2)&
4382 : : & **2*gm(2,3)-18*gm(2,2)*(2*gm(1,2)*gm(1,3)+gm(1,1)*gm(2,3)))*dgm01(3,3))&
4383 : 576 : & *dgm10(3,3))/72.d0
4384 : : cm(8,21)=(1440*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)&
4385 : : & *(288*gm(2,3)*gm(3,3)*dgm01(1,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
4386 : : & *gm(3,3))*dgm01(3,3))*dgm10(1,3)+20*(288*gm(1,2)*gm(3,3)*(gm(3,3)&
4387 : : & *dgm01(1,3)+gm(1,3)*dgm01(3,3))+gm(2,3)*(72*gm(3,3)**2*dgm01(1,1)&
4388 : : & +36*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(1,3)*dgm01(1,3)-108*gm(1,1)&
4389 : 576 : & *dgm01(3,3))))*dgm10(3,3))/480.d0
4390 : : cm(9,21)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
4391 : : & *dgm10(1,1)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
4392 : : & +12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
4393 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,3)+(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
4394 : : & *gm(3,3))*dgm01(1,1)+12*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
4395 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)+6*(-12*gm(1,3)**2*gm(2,2)&
4396 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4397 : 576 : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))/24.d0
4398 : : cm(10,21)=(gm(3,3)*(1440*gm(3,3)**2*dgm01(3,3)*dgm10(1,1)+20*gm(3,3)&
4399 : : & *(288*gm(3,3)*dgm01(1,3)+432*gm(1,3)*dgm01(3,3))*dgm10(1,3)+20*(72*gm(3,3)&
4400 : : & **2*dgm01(1,1)+324*gm(1,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(1,3)&
4401 : 576 : & *dgm01(1,3)-108*gm(1,1)*dgm01(3,3)))*dgm10(3,3)))/1440.d0
4402 : : cm(1,22)=(2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
4403 : : & *dgm10(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)&
4404 : : & *dgm10(2,2)+3*gm(1,1)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)&
4405 : 576 : & *dgm10(2,2))/36.d0
4406 : : cm(2,22)=(gm(2,2)*(8640*gm(1,2)*gm(2,2)*dgm01(2,2)*dgm10(1,2)&
4407 : : & +8640*gm(1,2)*gm(2,2)*dgm01(1,2)*dgm10(2,2)+360*(12*gm(1,2)**2+24*gm(1,1)&
4408 : 576 : & *gm(2,2))*dgm01(2,2)*dgm10(2,2)))/1440.d0
4409 : : cm(3,22)=(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
4410 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,2)+2*(-36*gm(1,3)&
4411 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4412 : : & *dgm01(1,2)*dgm10(2,2)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
4413 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4414 : 576 : & *gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0
4415 : : cm(4,22)=(2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4416 : : & *dgm01(2,2)*dgm10(1,2)+2*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
4417 : : & *gm(2,3))*dgm01(1,2)*dgm10(2,2)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)&
4418 : : & +6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)&
4419 : 576 : & *dgm10(2,2))/6.d0
4420 : : cm(5,22)=(2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4421 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(1,2)+2*(-36*gm(1,2)&
4422 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4423 : : & *dgm01(1,2)*dgm10(2,2)+3*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
4424 : 576 : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2))/12.d0
4425 : : cm(6,22)=(2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)&
4426 : : & *dgm10(1,2)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)&
4427 : : & *dgm10(2,2)+3*(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
4428 : 576 : & *dgm10(2,2))/12.d0
4429 : : cm(7,22)=gm(2,2)**2*(3*gm(1,2)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
4430 : 576 : & *(dgm01(2,2)*dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))
4431 : : cm(8,22)=(2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
4432 : : & *dgm10(1,2)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
4433 : : & *dgm10(2,2)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4434 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0
4435 : : cm(9,22)=(gm(2,2)*(4320*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)&
4436 : : & +8640*gm(2,2)*(gm(1,3)*dgm01(2,2)*dgm10(2,2)+gm(2,3)*(dgm01(2,2)&
4437 : 576 : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2)))))/1440.d0
4438 : : cm(10,22)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
4439 : : & *dgm10(1,2)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)&
4440 : : & *dgm10(2,2)+3*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4441 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,2))/36.d0
4442 : : cm(1,23)=(2*(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
4443 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)&
4444 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)&
4445 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+(12*(90*gm(1,2)&
4446 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)&
4447 : : & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(1,3)&
4448 : : & +3*(4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4449 : : & *gm(3,3)))*dgm01(1,2)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)&
4450 : : & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3))*dgm10(2,2)+6*gm(1,1)&
4451 : : & *((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(54*gm(1,2)&
4452 : : & *gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+(54*gm(1,2)**2-18*gm(1,1)&
4453 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(6*(90*gm(1,2)**2*gm(1,3)&
4454 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)&
4455 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,3)+24*gm(1,1)&
4456 : : & *((54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)&
4457 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+4*(90*gm(1,2)&
4458 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)*dgm10(3,3)+6*gm(1,1)&
4459 : 576 : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/72.d0
4460 : : cm(2,23)=(8*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4461 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4462 : : & +12*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))&
4463 : : & *dgm10(1,2)+4*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
4464 : : & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,3)+12*(4*(48*gm(1,3)&
4465 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
4466 : : & +4*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))&
4467 : : & *dgm10(2,2)+24*((-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4468 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4469 : : & *dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4470 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
4471 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)*(144*gm(1,3)*gm(2,2)&
4472 : : & *dgm01(1,2)+72*gm(1,2)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))&
4473 : : & *dgm10(2,3)+16*(6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4474 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)&
4475 : : & **2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+576*gm(1,2)*gm(2,2)&
4476 : : & **2*dgm01(1,2)*dgm10(3,3)+24*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
4477 : 576 : & *gm(2,2))*dgm01(2,2)*dgm10(3,3))/96.d0
4478 : : cm(3,23)=(2*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)&
4479 : : & *dgm01(2,3)+gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))&
4480 : : & +gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)&
4481 : : & +gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(1,2)&
4482 : : & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)&
4483 : : & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)&
4484 : : & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))&
4485 : : & *dgm10(1,3)+3*(gm(1,2)*gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)&
4486 : : & *dgm01(1,3))+gm(1,3)*(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)&
4487 : : & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)+6*(gm(3,3)&
4488 : : & *(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)&
4489 : : & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)&
4490 : : & +(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4491 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4492 : : & *dgm10(2,2)+4*(gm(1,3)*(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)&
4493 : : & *gm(3,3)*dgm01(1,2)-72*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)&
4494 : : & *gm(3,3)*dgm01(1,2)+180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)&
4495 : : & *dgm01(1,3)))*dgm10(2,3)+4*(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4496 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)&
4497 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4498 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(2,3)&
4499 : : & +4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
4500 : : & *gm(3,3)))*dgm01(1,2)*dgm10(3,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4501 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4502 : 576 : & *gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0
4503 : : cm(4,23)=(2*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)&
4504 : : & *dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))&
4505 : : & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)&
4506 : : & +gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(1,2)&
4507 : : & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))&
4508 : : & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)&
4509 : : & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(1,3)+3*(gm(1,3)*(24*gm(2,3)&
4510 : : & **2*dgm01(1,2)+96*gm(2,2)*gm(3,3)*dgm01(1,2)+24*gm(2,2)*gm(2,3)&
4511 : : & *dgm01(1,3))+gm(1,2)*(24*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)&
4512 : : & **2*dgm01(1,3)+96*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)+6*((6*gm(1,3)&
4513 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4514 : : & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
4515 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
4516 : : & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
4517 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+4*(gm(1,3)*gm(2,2)*(36*gm(2,3)&
4518 : : & *dgm01(1,2)-36*gm(2,2)*dgm01(1,3))+gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)&
4519 : : & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)*dgm01(1,3)))&
4520 : : & *dgm10(2,3)+4*(6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
4521 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
4522 : : & *dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4523 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+4*gm(2,2)&
4524 : : & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)&
4525 : : & +6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
4526 : 576 : & *gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(3,3))/12.d0
4527 : : cm(5,23)=(2*(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4528 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)&
4529 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4530 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
4531 : : & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
4532 : : & *dgm10(1,2)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4533 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4534 : : & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4535 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,3)+3*(4*(6*gm(1,3)&
4536 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4537 : : & *dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4538 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4539 : : & *dgm01(1,3))*dgm10(2,2)+6*((6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
4540 : : & *dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
4541 : : & *gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
4542 : : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+4*(6*(-12*gm(1,3)&
4543 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
4544 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)&
4545 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4546 : : & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4547 : : & *(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)&
4548 : : & -18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))&
4549 : : & *dgm10(2,3)+4*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4550 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,2)&
4551 : : & **2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))&
4552 : 576 : & *dgm01(2,2)*dgm10(3,3))/24.d0
4553 : : cm(6,23)=(2*(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4554 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4555 : : & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4556 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)&
4557 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,2)+(576*gm(1,2)*gm(1,3)&
4558 : : & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)&
4559 : : & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)&
4560 : : & *dgm01(2,3)))*dgm10(1,3)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4561 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
4562 : : & *gm(3,3)))*dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
4563 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)&
4564 : : & +6*((48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
4565 : : & *gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)&
4566 : : & *gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)&
4567 : : & *gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+4*(288*gm(1,2)*gm(1,3)&
4568 : : & *gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)&
4569 : : & -36*gm(2,2)*dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)&
4570 : : & *dgm01(1,3)))*dgm10(2,3)+4*(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
4571 : : & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)&
4572 : : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)+4*gm(2,2)&
4573 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(3,3)+6*(6*gm(1,2)&
4574 : 576 : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(3,3))/24.d0
4575 : : cm(7,23)=(8*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
4576 : : & +432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)**2*dgm01(3,3))*dgm10(1,2)&
4577 : : & +4*gm(2,2)**2*(432*gm(2,3)*dgm01(2,2)+288*gm(2,2)*dgm01(2,3))&
4578 : : & *dgm10(1,3)+12*gm(2,2)*(4*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4579 : : & *dgm01(1,2)+144*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(2,2)+12*(2*(-36*gm(1,3)&
4580 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4581 : : & *dgm01(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4582 : : & *dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)&
4583 : : & **2*(216*gm(2,3)*dgm01(1,2)+72*gm(2,2)*dgm01(1,3))*dgm10(2,3)&
4584 : : & +16*gm(2,2)*(6*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)&
4585 : : & +216*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+576*gm(2,2)**3*dgm01(1,2)&
4586 : 576 : & *dgm10(3,3)+864*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/288.d0
4587 : : cm(8,23)=(2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)&
4588 : : & *dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)&
4589 : : & *dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))&
4590 : : & *dgm10(1,2)+(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)&
4591 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)&
4592 : : & *dgm01(2,3))*dgm10(1,3)+3*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)+96*gm(2,2)&
4593 : : & *gm(3,3)**2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)*gm(2,3)&
4594 : : & *gm(3,3)*dgm01(1,3))*dgm10(2,2)+6*(gm(3,3)*(12*gm(1,3)*gm(2,3)&
4595 : : & +24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)&
4596 : : & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,3)&
4597 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))&
4598 : : & *dgm10(2,2)+4*(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)*gm(2,3)*gm(3,3)&
4599 : : & *dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)**2*gm(3,3)&
4600 : : & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4601 : : & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(48*gm(1,3)&
4602 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3))&
4603 : : & *dgm10(2,3)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)&
4604 : : & *dgm10(3,3)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4605 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0
4606 : : cm(9,23)=(8*(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)&
4607 : : & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)&
4608 : : & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(1,2)+4*gm(2,2)*(144*gm(2,3)&
4609 : : & **2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)+288*gm(2,2)*gm(2,3)&
4610 : : & *dgm01(2,3))*dgm10(1,3)+12*(24*gm(2,3)**3*dgm01(1,2)+120*gm(2,2)&
4611 : : & *gm(2,3)*gm(3,3)*dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)&
4612 : : & +96*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+24*((48*gm(1,2)&
4613 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4614 : : & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
4615 : : & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
4616 : : & *gm(2,3))*dgm01(3,3))*dgm10(2,2)+16*gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)&
4617 : : & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)*dgm01(1,3))&
4618 : : & *dgm10(2,3)+16*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4619 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4620 : : & +12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+576*gm(2,2)**2*gm(2,3)&
4621 : : & *dgm01(1,2)*dgm10(3,3)+24*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
4622 : 576 : & *gm(2,3))*dgm01(2,2)*dgm10(3,3))/96.d0
4623 : : cm(10,23)=(2*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)&
4624 : : & *gm(3,3)**2*dgm01(2,3)+180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)&
4625 : : & *(216*gm(3,3)*dgm01(2,2)-108*gm(2,2)*dgm01(3,3)))*dgm10(1,2)&
4626 : : & +(648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)&
4627 : : & +720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))&
4628 : : & *dgm10(1,3)+3*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)&
4629 : : & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+3*(72*gm(1,3)&
4630 : : & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
4631 : : & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4632 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(324*gm(2,3)&
4633 : : & **2*gm(3,3)*dgm01(1,2)-108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)&
4634 : : & **3*dgm01(1,3)-108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)&
4635 : : & +4*(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)&
4636 : : & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4637 : : & *gm(3,3)))*dgm01(2,3))*dgm10(2,3)+4*(90*gm(2,3)**3-54*gm(2,2)&
4638 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+6*(-36*gm(1,2)*gm(2,3)&
4639 : : & *gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4640 : 576 : & *dgm10(3,3))/72.d0
4641 : : cm(1,24)=((12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
4642 : : & +2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
4643 : : & *gm(2,2))*dgm01(2,3))*dgm10(1,2)+4*(90*gm(1,2)**3-54*gm(1,1)&
4644 : : & *gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+2*(6*(90*gm(1,2)**2*gm(1,3)&
4645 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)&
4646 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,3))*dgm10(2,2)+12*gm(1,1)&
4647 : : & *((54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)&
4648 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+8*(90*gm(1,2)&
4649 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(1,2)*dgm10(2,3)+12*gm(1,1)&
4650 : 576 : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/72.d0
4651 : : cm(2,24)=(10*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
4652 : : & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(1,2)+1440*gm(1,2)&
4653 : : & *gm(2,2)**2*dgm01(2,2)*dgm10(1,3)+20*gm(2,2)*(144*gm(1,3)*gm(2,2)&
4654 : : & *dgm01(1,2)+72*gm(1,2)*(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))&
4655 : : & *dgm10(2,2)+20*(6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4656 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)&
4657 : : & **2+24*gm(1,1)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+2880*gm(1,2)*gm(2,2)&
4658 : : & **2*dgm01(1,2)*dgm10(2,3)+120*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
4659 : 576 : & *gm(2,2))*dgm01(2,2)*dgm10(2,3))/240.d0
4660 : : cm(3,24)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)&
4661 : : & *dgm01(2,2)-288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)&
4662 : : & *gm(3,3)*dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)&
4663 : : & *dgm01(2,3)))*dgm10(1,2)+4*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4664 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(1,3)+2*(gm(1,3)&
4665 : : & *(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)*gm(3,3)*dgm01(1,2)-72*gm(2,2)&
4666 : : & *gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)*gm(3,3)*dgm01(1,2)&
4667 : : & +180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,2)&
4668 : : & +2*(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
4669 : : & *gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4670 : : & *gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
4671 : : & *gm(3,3)))*dgm01(2,3))*dgm10(2,2)+8*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4672 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(2,3)&
4673 : : & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
4674 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4675 : 576 : & *dgm10(2,3))/24.d0
4676 : : cm(4,24)=((gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)&
4677 : : & *dgm01(2,3))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)&
4678 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)&
4679 : : & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(1,3)&
4680 : : & +2*(gm(1,3)*gm(2,2)*(36*gm(2,3)*dgm01(1,2)-36*gm(2,2)*dgm01(1,3))&
4681 : : & +gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)+144*gm(2,2)*gm(3,3)*dgm01(1,2)&
4682 : : & +108*gm(2,2)*gm(2,3)*dgm01(1,3)))*dgm10(2,2)+2*(6*(9*gm(1,3)&
4683 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
4684 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)&
4685 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))&
4686 : : & *dgm10(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
4687 : : & *dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
4688 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))&
4689 : 576 : & /12.d0
4690 : : cm(5,24)=((12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4691 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4692 : : & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
4693 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(1,2)+4*(-36*gm(1,2)&
4694 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4695 : : & *dgm01(2,2)*dgm10(1,3)+2*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4696 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
4697 : : & *gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
4698 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,2)&
4699 : : & +2*(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
4700 : : & *gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
4701 : : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+8*(-36*gm(1,2)&
4702 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4703 : : & *dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
4704 : 576 : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/24.d0
4705 : : cm(6,24)=((576*gm(1,2)*gm(1,3)*gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)&
4706 : : & *(-216*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)&
4707 : : & *dgm01(2,2)+432*gm(2,2)*dgm01(2,3)))*dgm10(1,2)+4*gm(2,2)*(54*gm(1,2)&
4708 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(1,3)+2*(288*gm(1,2)&
4709 : : & *gm(1,3)*gm(2,2)*dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)&
4710 : : & -36*gm(2,2)*dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)&
4711 : : & *dgm01(1,3)))*dgm10(2,2)+2*(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)&
4712 : : & *gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)&
4713 : : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+8*gm(2,2)&
4714 : : & *(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(1,2)*dgm10(2,3)+12*(6*gm(1,2)&
4715 : 576 : & **3+30*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/24.d0
4716 : : cm(7,24)=(gm(2,2)*(6480*gm(1,2)*gm(2,3)*dgm01(2,2)*dgm10(2,2)&
4717 : : & +gm(2,2)**2*(2880*dgm01(2,3)*dgm10(1,2)+1440*dgm01(2,2)*dgm10(1,3)&
4718 : : & +1440*dgm01(1,3)*dgm10(2,2)+2880*dgm01(1,2)*dgm10(2,3))+gm(2,2)&
4719 : : & *(-2160*gm(1,3)*dgm01(2,2)*dgm10(2,2)+4320*gm(2,3)*(dgm01(2,2)&
4720 : : & *dgm10(1,2)+dgm01(1,2)*dgm10(2,2))+4320*gm(1,2)*(dgm01(2,3)*dgm10(2,2)&
4721 : 576 : & +dgm01(2,2)*dgm10(2,3)))))/720.d0
4722 : : cm(8,24)=((72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)&
4723 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)&
4724 : : & *dgm01(2,3))*dgm10(1,2)+4*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4725 : : & *dgm01(2,2)*dgm10(1,3)+2*(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)&
4726 : : & *gm(2,3)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)&
4727 : : & -36*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(6*(6*gm(1,2)&
4728 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4729 : : & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4730 : : & *gm(3,3)))*dgm01(2,3))*dgm10(2,2)+8*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)&
4731 : : & *gm(3,3))*dgm01(1,2)*dgm10(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)&
4732 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))&
4733 : 576 : & /24.d0
4734 : : cm(9,24)=(10*gm(2,2)*(144*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)&
4735 : : & *gm(3,3)*dgm01(2,2)+288*gm(2,2)*gm(2,3)*dgm01(2,3))*dgm10(1,2)&
4736 : : & +1440*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(1,3)+20*gm(2,2)*(72*gm(2,3)&
4737 : : & **2*dgm01(1,2)+144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)&
4738 : : & *dgm01(1,3))*dgm10(2,2)+20*(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4739 : : & *(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)&
4740 : : & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)+2880*gm(2,2)&
4741 : : & **2*gm(2,3)*dgm01(1,2)*dgm10(2,3)+120*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4742 : 576 : & +12*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/240.d0
4743 : : cm(10,24)=((648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)&
4744 : : & **2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)*gm(2,3)&
4745 : : & *gm(3,3)*dgm01(2,3))*dgm10(1,2)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
4746 : : & *gm(3,3))*dgm01(2,2)*dgm10(1,3)+2*(324*gm(2,3)**2*gm(3,3)*dgm01(1,2)&
4747 : : & -108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)**3*dgm01(1,3)&
4748 : : & -108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,2)+2*(6*gm(3,3)&
4749 : : & *(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)+6*(-36*gm(1,2)&
4750 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
4751 : : & *dgm01(2,3))*dgm10(2,2)+8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
4752 : : & *dgm01(1,2)*dgm10(2,3)+12*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
4753 : 576 : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))/72.d0
4754 : : cm(1,25)=((2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)&
4755 : : & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4756 : : & *gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)&
4757 : : & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))*dgm10(1,2)+(6*(-36*gm(1,1)&
4758 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4759 : : & *dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
4760 : : & +2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
4761 : : & *gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)**3-54*gm(1,1)&
4762 : : & *gm(1,3)*gm(3,3))*dgm01(1,2)+6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4763 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,3))*dgm10(2,2)+6*gm(1,1)&
4764 : : & *((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)+(54*gm(1,2)*gm(1,3)&
4765 : : & -18*gm(1,1)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+3*(4*(-36*gm(1,1)&
4766 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
4767 : : & *dgm01(1,2)+4*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
4768 : : & +2*gm(1,2)*gm(2,3)))*dgm01(1,3))*dgm10(2,3)+6*gm(1,1)*((54*gm(1,3)&
4769 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
4770 : : & *gm(2,3))*dgm01(2,3)+(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))&
4771 : : & *dgm10(2,3)+(6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
4772 : : & +2*gm(1,2)*gm(2,3)))*dgm01(1,2)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
4773 : : & *gm(2,2))*dgm01(1,3))*dgm10(3,3)+6*gm(1,1)*((54*gm(1,2)*gm(1,3)&
4774 : : & -18*gm(1,1)*gm(2,3))*dgm01(2,2)+(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))&
4775 : 576 : & *dgm01(2,3))*dgm10(3,3))/36.d0
4776 : : cm(2,25)=((2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4777 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)&
4778 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)&
4779 : : & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,2)&
4780 : : & +(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4781 : : & *gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
4782 : : & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(1,3)&
4783 : : & +(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4784 : : & *gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4785 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,3))*dgm10(2,2)+(6*(-12*gm(1,3)&
4786 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4787 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)&
4788 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4789 : : & *dgm01(3,3))*dgm10(2,2)+3*(4*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4790 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+4*gm(2,2)*(24*gm(1,3)&
4791 : : & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+6*((-12*gm(1,3)&
4792 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4793 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,2)&
4794 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4795 : : & *dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(3,3))&
4796 : : & *dgm10(2,3)+gm(2,2)*(144*gm(1,3)*gm(2,2)*dgm01(1,2)+72*gm(1,2)&
4797 : : & *(gm(2,3)*dgm01(1,2)+gm(2,2)*dgm01(1,3)))*dgm10(3,3)+(6*(6*gm(1,2)&
4798 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))&
4799 : : & *dgm01(2,2)+6*gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)*gm(2,2))*dgm01(2,3))&
4800 : 576 : & *dgm10(3,3))/12.d0
4801 : : cm(3,25)=((288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))&
4802 : : & +gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)&
4803 : : & *(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(1,2)&
4804 : : & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)&
4805 : : & +gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)&
4806 : : & *(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)+gm(3,3)&
4807 : : & *(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(1,3)&
4808 : : & +gm(3,3)*(144*gm(1,2)*gm(3,3)*dgm01(1,3)+72*gm(1,3)*(gm(3,3)&
4809 : : & *dgm01(1,2)+gm(2,3)*dgm01(1,3)))*dgm10(2,2)+(6*gm(3,3)*(12*gm(1,3)&
4810 : : & **2+24*gm(1,1)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4811 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)&
4812 : : & +3*(gm(1,2)*gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))&
4813 : : & +gm(1,3)*(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)&
4814 : : & -72*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,3)+6*(gm(3,3)*(12*gm(1,3)&
4815 : : & **2+24*gm(1,1)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4816 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)&
4817 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
4818 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)&
4819 : : & +(gm(1,3)*(36*gm(2,3)**2*dgm01(1,2)-108*gm(2,2)*gm(3,3)*dgm01(1,2)&
4820 : : & -72*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(288*gm(2,3)*gm(3,3)&
4821 : : & *dgm01(1,2)+180*gm(2,3)**2*dgm01(1,3)-36*gm(2,2)*gm(3,3)*dgm01(1,3)))&
4822 : : & *dgm10(3,3)+(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
4823 : : & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+6*(-12*gm(1,3)**2*gm(2,2)&
4824 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)&
4825 : 576 : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0
4826 : : cm(4,25)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)&
4827 : : & *dgm01(2,3)+gm(2,3)*(108*gm(3,3)*dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))&
4828 : : & +gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)&
4829 : : & +gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)*dgm01(3,3))))*dgm10(1,2)&
4830 : : & +(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)*dgm01(2,3)&
4831 : : & +gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))+gm(1,2)&
4832 : : & *(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)&
4833 : : & *(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(1,3)&
4834 : : & +(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)&
4835 : : & +6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4836 : : & *gm(3,3)))*dgm01(1,3))*dgm10(2,2)+(6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
4837 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(9*gm(1,3)&
4838 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
4839 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(gm(1,3)&
4840 : : & *(24*gm(2,3)**2*dgm01(1,2)+96*gm(2,2)*gm(3,3)*dgm01(1,2)+24*gm(2,2)&
4841 : : & *gm(2,3)*dgm01(1,3))+gm(1,2)*(24*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)&
4842 : : & **2*dgm01(1,3)+96*gm(2,2)*gm(3,3)*dgm01(1,3)))*dgm10(2,3)+6*((6*gm(1,3)&
4843 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
4844 : : & *dgm01(2,2)+4*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
4845 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
4846 : : & *dgm01(2,3)+(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)&
4847 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(gm(1,3)*gm(2,2)*(36*gm(2,3)&
4848 : : & *dgm01(1,2)-36*gm(2,2)*dgm01(1,3))+gm(1,2)*(36*gm(2,3)**2*dgm01(1,2)&
4849 : : & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)*dgm01(1,3)))&
4850 : : & *dgm10(3,3)+(6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)&
4851 : : & +9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))&
4852 : : & *dgm01(2,2)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4853 : 576 : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/6.d0
4854 : : cm(5,25)=((2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
4855 : : & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
4856 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
4857 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
4858 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
4859 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)&
4860 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
4861 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)&
4862 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
4863 : : & *dgm01(3,3))*dgm10(1,3)+(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)&
4864 : : & *gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)&
4865 : : & *gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+(6*(6*gm(1,3)&
4866 : : & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)&
4867 : : & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))&
4868 : : & *dgm10(2,2)+3*(4*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
4869 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)&
4870 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4871 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,3))*dgm10(2,3)+6*((6*gm(1,3)&
4872 : : & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)&
4873 : : & *gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)*gm(3,3)))*dgm01(2,3)&
4874 : : & +(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)*gm(2,2)+48*gm(1,1)&
4875 : : & *gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(6*(-12*gm(1,3)**2*gm(2,2)&
4876 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4877 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(1,2)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
4878 : : & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))&
4879 : : & *dgm10(3,3)+(6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
4880 : : & **2+24*gm(1,1)*gm(3,3)))*dgm01(2,2)+6*(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
4881 : : & *gm(1,3)*gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))&
4882 : 576 : & /12.d0
4883 : : cm(6,25)=((2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
4884 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)&
4885 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
4886 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)&
4887 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
4888 : : & *dgm10(1,2)+(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4889 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4890 : : & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4891 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)&
4892 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(1,3)&
4893 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
4894 : : & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4895 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4896 : : & *dgm01(1,3))*dgm10(2,2)+(6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
4897 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)&
4898 : : & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))&
4899 : : & *dgm10(2,2)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
4900 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
4901 : : & *dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
4902 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(2,3)+6*((48*gm(1,1)&
4903 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)&
4904 : : & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
4905 : : & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)&
4906 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+(288*gm(1,2)*gm(1,3)*gm(2,2)&
4907 : : & *dgm01(1,2)+gm(1,1)*gm(2,2)*(-108*gm(2,3)*dgm01(1,2)-36*gm(2,2)&
4908 : : & *dgm01(1,3))+gm(1,2)**2*(36*gm(2,3)*dgm01(1,2)+108*gm(2,2)*dgm01(1,3)))&
4909 : : & *dgm10(3,3)+(6*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)&
4910 : : & +6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(2,2)+6*(6*gm(1,2)**3+30*gm(1,1)&
4911 : 576 : & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/12.d0
4912 : : cm(7,25)=((2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
4913 : : & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)&
4914 : : & **2*gm(2,3)*dgm01(3,3))*dgm10(1,2)+gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)&
4915 : : & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)&
4916 : : & **2*dgm01(3,3))*dgm10(1,3)+(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)&
4917 : : & *gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
4918 : : & *dgm01(1,3))*dgm10(2,2)+(6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
4919 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)&
4920 : : & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)+3*gm(2,2)&
4921 : : & *(4*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,2)+144*gm(2,2)&
4922 : : & *gm(2,3)*dgm01(1,3))*dgm10(2,3)+3*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)&
4923 : : & +gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+8*gm(2,2)&
4924 : : & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)&
4925 : : & *gm(2,2)**2*dgm01(3,3))*dgm10(2,3)+gm(2,2)**2*(216*gm(2,3)*dgm01(1,2)&
4926 : : & +72*gm(2,2)*dgm01(1,3))*dgm10(3,3)+gm(2,2)*(6*(-18*gm(1,3)*gm(2,2)&
4927 : : & +54*gm(1,2)*gm(2,3))*dgm01(2,2)+216*gm(1,2)*gm(2,2)*dgm01(2,3))&
4928 : 576 : & *dgm10(3,3))/36.d0
4929 : : cm(8,25)=((144*gm(2,3)**2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)&
4930 : : & **2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)&
4931 : : & *dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(1,2)+(72*gm(2,3)**3*dgm01(2,3)&
4932 : : & +360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)&
4933 : : & *dgm01(2,2)-36*gm(2,2)*dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)&
4934 : : & +108*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+gm(3,3)*(72*gm(2,3)*gm(3,3)&
4935 : : & *dgm01(1,2)+6*(12*gm(2,3)**2+24*gm(2,2)*gm(3,3))*dgm01(1,3))&
4936 : : & *dgm10(2,2)+(6*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))&
4937 : : & *dgm01(2,3)+6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
4938 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)&
4939 : : & +96*gm(2,2)*gm(3,3)**2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)&
4940 : : & *gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+6*(gm(3,3)*(12*gm(1,3)&
4941 : : & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)&
4942 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)&
4943 : : & +(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4944 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(36*gm(2,3)**3*dgm01(1,2)+180*gm(2,2)&
4945 : : & *gm(2,3)*gm(3,3)*dgm01(1,2)+108*gm(2,2)*gm(2,3)**2*dgm01(1,3)&
4946 : : & -36*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(3,3)+(6*(6*gm(1,2)*gm(2,3)&
4947 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4948 : : & +6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
4949 : 576 : & *gm(3,3)))*dgm01(2,3))*dgm10(3,3))/12.d0
4950 : : cm(9,25)=((72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)&
4951 : : & *dgm01(2,3)+gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))&
4952 : : & +gm(2,2)*gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))&
4953 : : & *dgm10(1,2)+(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)&
4954 : : & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)&
4955 : : & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+(2*gm(3,3)*(54*gm(2,3)&
4956 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)&
4957 : : & *gm(2,3)*gm(3,3))*dgm01(1,3))*dgm10(2,2)+(6*(48*gm(1,2)*gm(2,3)&
4958 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)&
4959 : : & +6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
4960 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+3*(24*gm(2,3)**3*dgm01(1,2)&
4961 : : & +120*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)&
4962 : : & +96*gm(2,2)**2*gm(3,3)*dgm01(1,3))*dgm10(2,3)+6*((48*gm(1,2)&
4963 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)&
4964 : : & +4*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
4965 : : & *gm(3,3)))*dgm01(2,3)+gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
4966 : : & *gm(2,3))*dgm01(3,3))*dgm10(2,3)+gm(2,2)*(72*gm(2,3)**2*dgm01(1,2)&
4967 : : & +144*gm(2,2)*gm(3,3)*dgm01(1,2)+72*gm(2,2)*gm(2,3)*dgm01(1,3))&
4968 : : & *dgm10(3,3)+(6*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
4969 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,2)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)&
4970 : 576 : & +12*gm(1,2)*gm(2,3))*dgm01(2,3))*dgm10(3,3))/12.d0
4971 : : cm(10,25)=(gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)&
4972 : : & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(1,2)&
4973 : : & +(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)&
4974 : : & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)&
4975 : : & -108*gm(2,2)*dgm01(3,3)))*dgm10(1,3)+gm(3,3)**2*(72*gm(3,3)*dgm01(1,2)&
4976 : : & +216*gm(2,3)*dgm01(1,3))*dgm10(2,2)+gm(3,3)*(216*gm(1,3)*gm(3,3)&
4977 : : & *dgm01(2,3)+6*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3))&
4978 : : & *dgm10(2,2)+3*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)&
4979 : : & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(2,3)+3*(72*gm(1,3)&
4980 : : & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
4981 : : & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
4982 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(324*gm(2,3)&
4983 : : & **2*gm(3,3)*dgm01(1,2)-108*gm(2,2)*gm(3,3)**2*dgm01(1,2)+180*gm(2,3)&
4984 : : & **3*dgm01(1,3)-108*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(1,3))*dgm10(3,3)&
4985 : : & +(6*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(2,2)&
4986 : : & +6*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
4987 : 576 : & *gm(3,3)))*dgm01(2,3))*dgm10(3,3))/36.d0
4988 : : cm(1,26)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
4989 : : & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4990 : : & *gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(2*(90*gm(1,3)**3-54*gm(1,1)&
4991 : : & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
4992 : : & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)&
4993 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))&
4994 : : & *dgm10(1,3)+4*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
4995 : : & *dgm10(2,2)+6*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
4996 : : & *dgm10(2,2)+4*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)&
4997 : : & +6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
4998 : : & *gm(3,3)))*dgm01(1,3))*dgm10(2,3)+24*gm(1,1)*((54*gm(1,3)**2-18*gm(1,1)&
4999 : : & *gm(3,3))*dgm01(2,3)+(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))&
5000 : : & *dgm01(3,3))*dgm10(2,3)+3*(4*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5001 : : & *(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(1,2)+4*(90*gm(1,2)&
5002 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(1,3))&
5003 : : & *dgm10(3,3)+6*gm(1,1)*((54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
5004 : : & +4*(54*gm(1,2)*gm(1,3)-18*gm(1,1)*gm(2,3))*dgm01(2,3)+(54*gm(1,2)&
5005 : 576 : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/72.d0
5006 : : cm(2,26)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5007 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)&
5008 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)&
5009 : : & +2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5010 : : & *gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5011 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)&
5012 : : & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+4*(-36*gm(1,2)&
5013 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5014 : : & *dgm01(1,3)*dgm10(2,2)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5015 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
5016 : : & *gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5017 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)+6*(48*gm(1,3)&
5018 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3))&
5019 : : & *dgm10(2,3)+4*(6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5020 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5021 : : & *dgm01(2,3)+6*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5022 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+3*(4*(48*gm(1,3)&
5023 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)&
5024 : : & +4*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(1,3))&
5025 : : & *dgm10(3,3)+6*((-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5026 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5027 : : & *dgm01(2,2)+4*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5028 : : & +24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+gm(2,2)*(12*gm(1,2)**2+24*gm(1,1)&
5029 : 576 : & *gm(2,2))*dgm01(3,3))*dgm10(3,3))/24.d0
5030 : : cm(3,26)=(4*gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)&
5031 : : & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+8*(288*gm(1,2)&
5032 : : & *gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)&
5033 : : & **2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)&
5034 : : & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(1,3)+576*gm(1,3)&
5035 : : & *gm(3,3)**2*dgm01(1,3)*dgm10(2,2)+24*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
5036 : : & *gm(3,3))*dgm01(3,3)*dgm10(2,2)+16*gm(3,3)*(144*gm(1,2)*gm(3,3)&
5037 : : & *dgm01(1,3)+72*gm(1,3)*(gm(3,3)*dgm01(1,2)+gm(2,3)*dgm01(1,3)))&
5038 : : & *dgm10(2,3)+16*(6*gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)*gm(3,3))&
5039 : : & *dgm01(2,3)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)&
5040 : : & +24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+12*(gm(1,2)&
5041 : : & *gm(3,3)*(96*gm(3,3)*dgm01(1,2)+192*gm(2,3)*dgm01(1,3))+gm(1,3)&
5042 : : & *(48*gm(2,3)*gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)-72*gm(2,2)&
5043 : : & *gm(3,3)*dgm01(1,3)))*dgm10(3,3)+24*(gm(3,3)*(12*gm(1,3)**2+24*gm(1,1)&
5044 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
5045 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+(-12*gm(1,3)&
5046 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5047 : : & +gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))&
5048 : 576 : & /96.d0
5049 : : cm(4,26)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5050 : : & *dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5051 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(gm(1,3)*(72*gm(2,3)&
5052 : : & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)&
5053 : : & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)&
5054 : : & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)&
5055 : : & *dgm01(3,3))))*dgm10(1,3)+4*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5056 : : & *gm(3,3))*dgm01(1,3)*dgm10(2,2)+6*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
5057 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)&
5058 : : & +4*(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,2)&
5059 : : & +6*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)&
5060 : : & *gm(3,3)))*dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,3)**2*gm(2,3)&
5061 : : & +6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5062 : : & +6*(9*gm(1,3)**2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)&
5063 : : & **2*gm(3,3)+gm(1,1)*(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(3,3))&
5064 : : & *dgm10(2,3)+3*(gm(1,3)*(24*gm(2,3)**2*dgm01(1,2)+96*gm(2,2)*gm(3,3)&
5065 : : & *dgm01(1,2)+24*gm(2,2)*gm(2,3)*dgm01(1,3))+gm(1,2)*(24*gm(2,3)&
5066 : : & *gm(3,3)*dgm01(1,2)+24*gm(2,3)**2*dgm01(1,3)+96*gm(2,2)*gm(3,3)&
5067 : : & *dgm01(1,3)))*dgm10(3,3)+6*((6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)&
5068 : : & *gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+4*(9*gm(1,3)&
5069 : : & **2*gm(2,2)-6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)&
5070 : : & *(9*gm(2,3)**2+15*gm(2,2)*gm(3,3)))*dgm01(2,3)+(6*gm(1,2)*gm(1,3)&
5071 : : & *gm(2,2)+6*gm(1,2)**2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
5072 : 576 : & *dgm10(3,3))/12.d0
5073 : : cm(5,26)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5074 : : & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5075 : : & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+2*(2*gm(3,3)*(54*gm(1,3)&
5076 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
5077 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)&
5078 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5079 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,3)&
5080 : : & +4*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,2)&
5081 : : & +6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)&
5082 : : & +4*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)+6*(6*gm(1,3)&
5083 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5084 : : & *dgm01(1,3))*dgm10(2,3)+4*(6*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)&
5085 : : & *gm(3,3))*dgm01(2,3)+6*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
5086 : : & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+3*(4*(6*gm(1,3)&
5087 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5088 : : & *dgm01(1,2)+4*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5089 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5090 : : & *dgm01(1,3))*dgm10(3,3)+6*((6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
5091 : : & *dgm01(2,2)+4*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2+24*gm(1,1)&
5092 : : & *gm(3,3)))*dgm01(2,3)+(6*gm(1,2)**2*gm(1,3)-18*gm(1,1)*gm(1,3)&
5093 : : & *gm(2,2)+48*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))&
5094 : 576 : & /24.d0
5095 : : cm(6,26)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5096 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)&
5097 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5098 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(1,2)+2*(2*(90*gm(1,3)&
5099 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5100 : : & *dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5101 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5102 : : & *dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5103 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(1,3)+4*(90*gm(1,3)&
5104 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5105 : : & *dgm01(1,3)*dgm10(2,2)+6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5106 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(90*gm(1,3)&
5107 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5108 : : & *dgm01(1,2)+6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5109 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5110 : : & *dgm01(1,3))*dgm10(2,3)+4*(6*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5111 : : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,2)**2*gm(1,3)&
5112 : : & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3))&
5113 : : & *dgm10(2,3)+3*(4*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5114 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5115 : : & *dgm01(1,2)+4*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5116 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(1,3))*dgm10(3,3)+6*((48*gm(1,1)&
5117 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)&
5118 : : & +4*(6*gm(1,2)**2*gm(1,3)+24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)&
5119 : : & *gm(1,2)*gm(2,3))*dgm01(2,3)+(6*gm(1,2)**3+30*gm(1,1)*gm(1,2)&
5120 : 576 : & *gm(2,2))*dgm01(3,3))*dgm10(3,3))/24.d0
5121 : : cm(7,26)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5122 : : & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)&
5123 : : & +2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)&
5124 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)&
5125 : : & *dgm01(3,3))*dgm10(1,3)+4*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))&
5126 : : & *dgm01(1,3)*dgm10(2,2)+6*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5127 : : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*(90*gm(2,3)&
5128 : : & **3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,2)+6*gm(2,2)*(54*gm(2,3)&
5129 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+4*(6*(-36*gm(1,3)&
5130 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5131 : : & *dgm01(2,3)+6*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))&
5132 : : & *dgm01(3,3))*dgm10(2,3)+3*gm(2,2)*(4*(54*gm(2,3)**2-18*gm(2,2)&
5133 : : & *gm(3,3))*dgm01(1,2)+144*gm(2,2)*gm(2,3)*dgm01(1,3))*dgm10(3,3)&
5134 : : & +3*(2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
5135 : : & *gm(3,3)))*dgm01(2,2)+8*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
5136 : : & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(3,3))&
5137 : 576 : & /72.d0
5138 : : cm(8,26)=(4*gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)&
5139 : : & **2+24*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(1,2)+8*(144*gm(2,3)&
5140 : : & **2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)&
5141 : : & **3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)&
5142 : : & *dgm01(3,3)))*dgm10(1,3)+576*gm(2,3)*gm(3,3)**2*dgm01(1,3)*dgm10(2,2)&
5143 : : & +24*gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3)&
5144 : : & *dgm10(2,2)+16*gm(3,3)*(72*gm(2,3)*gm(3,3)*dgm01(1,2)+6*(12*gm(2,3)&
5145 : : & **2+24*gm(2,2)*gm(3,3))*dgm01(1,3))*dgm10(2,3)+16*(6*gm(3,3)&
5146 : : & *(12*gm(1,3)*gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(2,3)+6*(6*gm(1,2)&
5147 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))&
5148 : : & *dgm10(2,3)+12*(48*gm(2,3)**2*gm(3,3)*dgm01(1,2)+96*gm(2,2)*gm(3,3)&
5149 : : & **2*dgm01(1,2)+24*gm(2,3)**3*dgm01(1,3)+120*gm(2,2)*gm(2,3)*gm(3,3)&
5150 : : & *dgm01(1,3))*dgm10(3,3)+24*(gm(3,3)*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
5151 : : & *gm(3,3))*dgm01(2,2)+4*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5152 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)+(48*gm(1,3)*gm(2,2)*gm(2,3)&
5153 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))&
5154 : 576 : & /96.d0
5155 : : cm(9,26)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
5156 : : & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(1,2)&
5157 : : & +2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)&
5158 : : & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)&
5159 : : & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(1,3)&
5160 : : & +4*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(2,2)&
5161 : : & +6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)&
5162 : : & *gm(3,3)))*dgm01(3,3)*dgm10(2,2)+4*(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)&
5163 : : & *gm(3,3))*dgm01(1,2)+6*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))&
5164 : : & *dgm01(1,3))*dgm10(2,3)+4*(6*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5165 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(6*gm(1,3)*gm(2,2)&
5166 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))&
5167 : : & *dgm10(2,3)+3*(24*gm(2,3)**3*dgm01(1,2)+120*gm(2,2)*gm(2,3)*gm(3,3)&
5168 : : & *dgm01(1,2)+48*gm(2,2)*gm(2,3)**2*dgm01(1,3)+96*gm(2,2)**2*gm(3,3)&
5169 : : & *dgm01(1,3))*dgm10(3,3)+6*((48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)&
5170 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+4*(6*gm(1,3)*gm(2,2)&
5171 : : & *gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(2,3)&
5172 : : & +gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))&
5173 : 576 : & *dgm10(3,3))/24.d0
5174 : : cm(10,26)=(4*gm(3,3)**2*(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)&
5175 : : & *dgm01(3,3))*dgm10(1,2)+8*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)&
5176 : : & **2*dgm01(3,3)+gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))&
5177 : : & *dgm10(1,3)+576*gm(3,3)**3*dgm01(1,3)*dgm10(2,2)+864*gm(1,3)&
5178 : : & *gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+16*gm(3,3)**2*(72*gm(3,3)*dgm01(1,2)&
5179 : : & +216*gm(2,3)*dgm01(1,3))*dgm10(2,3)+16*gm(3,3)*(216*gm(1,3)*gm(3,3)&
5180 : : & *dgm01(2,3)+6*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3))&
5181 : : & *dgm10(2,3)+12*gm(3,3)*(144*gm(2,3)*gm(3,3)*dgm01(1,2)+216*gm(2,3)&
5182 : : & **2*dgm01(1,3)-72*gm(2,2)*gm(3,3)*dgm01(1,3))*dgm10(3,3)+12*(72*gm(1,3)&
5183 : : & *gm(3,3)**2*dgm01(2,2)+8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5184 : : & *gm(3,3))*dgm01(2,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5185 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))/288.d0
5186 : : cm(1,27)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5187 : : & *dgm10(1,2)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
5188 : : & *dgm10(1,3)+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
5189 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)&
5190 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*gm(1,1)&
5191 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+(90*gm(1,3)&
5192 : : & **3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(-36*gm(1,1)&
5193 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
5194 : : & *dgm01(1,3)*dgm10(3,3)+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))&
5195 : : & *dgm01(2,3)*dgm10(3,3)+3*gm(1,1)*(54*gm(1,2)*gm(1,3)-18*gm(1,1)&
5196 : 576 : & *gm(2,3))*dgm01(3,3)*dgm10(3,3))/18.d0
5197 : : cm(2,27)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5198 : : & *gm(3,3)))*dgm01(3,3)*dgm10(1,2)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5199 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)*dgm10(1,3)&
5200 : : & +3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
5201 : : & *gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(-36*gm(1,2)*gm(2,3)*gm(3,3)&
5202 : : & +gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(2,3)&
5203 : : & +3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
5204 : : & **2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3)&
5205 : : & *dgm10(2,3)+(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5206 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(1,2)*dgm10(3,3)+3*(48*gm(1,3)&
5207 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(1,3)&
5208 : : & *dgm10(3,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5209 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5210 : : & *dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)&
5211 : : & **2*gm(2,3)+24*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3)*dgm10(3,3))&
5212 : 576 : & /6.d0
5213 : : cm(3,27)=(gm(1,3)*gm(3,3)*(720*gm(1,2)*dgm01(3,3)*dgm10(3,3)&
5214 : : & +gm(3,3)*(1440*dgm01(3,3)*dgm10(1,2)+2880*dgm01(2,3)*dgm10(1,3)&
5215 : : & +2880*dgm01(1,3)*dgm10(2,3)+1440*dgm01(1,2)*dgm10(3,3))+1440*gm(2,3)&
5216 : : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(1,3)**2*(720*gm(2,3)&
5217 : : & *dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5218 : : & *dgm10(3,3)))+2880*gm(3,3)*(gm(1,2)*gm(3,3)*(dgm01(3,3)*dgm10(1,3)&
5219 : : & +dgm01(1,3)*dgm10(3,3))+gm(1,1)*(gm(2,3)*dgm01(3,3)*dgm10(3,3)&
5220 : 576 : & +gm(3,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/240.d0
5221 : : cm(4,27)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3)&
5222 : : & *dgm10(1,2)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5223 : : & *dgm01(2,3)*dgm10(1,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5224 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)&
5225 : : & *gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*(6*gm(1,3)&
5226 : : & **2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))&
5227 : : & *dgm01(3,3)*dgm10(2,3)+gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5228 : : & *gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)&
5229 : : & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(1,3)*dgm10(3,3)&
5230 : : & +3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)*gm(1,3)*gm(3,3)+24*gm(1,1)&
5231 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)*dgm10(3,3)+3*(9*gm(1,3)**2*gm(2,2)&
5232 : : & -6*gm(1,2)*gm(1,3)*gm(2,3)+9*gm(1,2)**2*gm(3,3)+gm(1,1)*(9*gm(2,3)&
5233 : 576 : & **2+15*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/3.d0
5234 : : cm(5,27)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5235 : : & *dgm10(1,2)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5236 : : & *dgm10(1,3)+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
5237 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,3)+2*gm(3,3)&
5238 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)*dgm10(2,3)+3*(6*gm(1,3)&
5239 : : & **3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+gm(3,3)&
5240 : : & *(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(1,3)&
5241 : : & **2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5242 : : & *dgm01(1,3)*dgm10(3,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))&
5243 : : & *dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
5244 : 576 : & **2+24*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/6.d0
5245 : : cm(6,27)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5246 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,2)+2*(90*gm(1,3)&
5247 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5248 : : & *dgm01(2,3)*dgm10(1,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5249 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5250 : : & *gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)&
5251 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(2,3)&
5252 : : & +3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)**2-18*gm(1,1)&
5253 : : & *gm(3,3)))*dgm01(3,3)*dgm10(2,3)+(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)&
5254 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)&
5255 : : & +3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)&
5256 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(1,3)&
5257 : : & *dgm10(3,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(6*gm(1,3)&
5258 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)**2*gm(1,3)&
5259 : : & +24*gm(1,1)*gm(1,3)*gm(2,2)+6*gm(1,1)*gm(1,2)*gm(2,3))*dgm01(3,3)&
5260 : 576 : & *dgm10(3,3))/6.d0
5261 : : cm(7,27)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5262 : : & *dgm10(1,2)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5263 : : & *dgm10(1,3)+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5264 : : & *dgm10(1,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
5265 : : & *dgm10(2,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
5266 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+(90*gm(2,3)**3-54*gm(2,2)&
5267 : : & *gm(2,3)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*gm(2,2)*(54*gm(2,3)&
5268 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(-36*gm(1,3)&
5269 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5270 : : & *dgm01(2,3)*dgm10(3,3)+3*gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)&
5271 : 576 : & *gm(2,3))*dgm01(3,3)*dgm10(3,3))/18.d0
5272 : : cm(8,27)=(gm(2,3)**2*(720*gm(1,3)*dgm01(3,3)*dgm10(3,3)+1440*gm(3,3)&
5273 : : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))+gm(2,3)*gm(3,3)&
5274 : : & *(720*gm(1,2)*dgm01(3,3)*dgm10(3,3)+gm(3,3)*(1440*dgm01(3,3)&
5275 : : & *dgm10(1,2)+2880*dgm01(2,3)*dgm10(1,3)+2880*dgm01(1,3)*dgm10(2,3)&
5276 : : & +1440*dgm01(1,2)*dgm10(3,3))+1440*gm(1,3)*(dgm01(3,3)*dgm10(2,3)&
5277 : : & +dgm01(2,3)*dgm10(3,3)))+2880*gm(3,3)*(gm(1,2)*gm(3,3)*(dgm01(3,3)&
5278 : : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3))+gm(2,2)*(gm(1,3)*dgm01(3,3)&
5279 : : & *dgm10(3,3)+gm(3,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))&
5280 : 576 : & /240.d0
5281 : : cm(9,27)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5282 : : & *dgm10(1,2)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
5283 : : & *dgm10(1,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5284 : : & *dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
5285 : : & *dgm10(2,3)+3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5286 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+gm(3,3)*(54*gm(2,3)&
5287 : : & **2-18*gm(2,2)*gm(3,3))*dgm01(1,2)*dgm10(3,3)+3*(6*gm(2,3)**3+30*gm(2,2)&
5288 : : & *gm(2,3)*gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(48*gm(1,2)*gm(2,3)&
5289 : : & *gm(3,3)+gm(1,3)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)&
5290 : : & *dgm10(3,3)+3*(6*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2+24*gm(2,2)&
5291 : 576 : & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/6.d0
5292 : : cm(10,27)=2*gm(3,3)*(4.5d0*gm(1,3)*gm(2,3)*dgm01(3,3)*dgm10(3,3)&
5293 : : & +gm(3,3)**2*(1*dgm01(3,3)*dgm10(1,2)+2*dgm01(2,3)*dgm10(1,3)&
5294 : : & +2*dgm01(1,3)*dgm10(2,3)+dgm01(1,2)*dgm10(3,3))+gm(3,3)*(-1.5d0*gm(1,2)&
5295 : : & *dgm01(3,3)*dgm10(3,3)+3*gm(2,3)*(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)&
5296 : 576 : & *dgm10(3,3))+3*gm(1,3)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3))))
5297 : : cm(1,28)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5298 : : & *dgm10(1,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(1,3)&
5299 : : & *dgm10(3,3)+3*gm(1,1)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5300 : 576 : & *dgm10(3,3))/36.d0
5301 : : cm(2,28)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5302 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(1,3)+2*(-36*gm(1,2)&
5303 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5304 : : & *dgm01(1,3)*dgm10(3,3)+3*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5305 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(30*gm(2,3)**2-6*gm(2,2)&
5306 : 576 : & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5307 : : cm(3,28)=(gm(3,3)*(8640*gm(1,3)*gm(3,3)*dgm01(3,3)*dgm10(1,3)&
5308 : : & +8640*gm(1,3)*gm(3,3)*dgm01(1,3)*dgm10(3,3)+360*(12*gm(1,3)**2+24*gm(1,1)&
5309 : 576 : & *gm(3,3))*dgm01(3,3)*dgm10(3,3)))/1440.d0
5310 : : cm(4,28)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5311 : : & *dgm01(3,3)*dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5312 : : & *gm(3,3))*dgm01(1,3)*dgm10(3,3)+3*(6*gm(1,3)**2*gm(2,3)+6*gm(1,2)&
5313 : : & *gm(1,3)*gm(3,3)+24*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))&
5314 : 576 : & /6.d0
5315 : : cm(5,28)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5316 : : & *dgm10(1,3)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(1,3)&
5317 : : & *dgm10(3,3)+3*(6*gm(1,3)**3+30*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5318 : 576 : & *dgm10(3,3))/12.d0
5319 : : cm(6,28)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5320 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(1,3)+2*(90*gm(1,3)&
5321 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5322 : : & *dgm01(1,3)*dgm10(3,3)+3*(48*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)&
5323 : 576 : & *(6*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5324 : : cm(7,28)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5325 : : & *dgm10(1,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(1,3)&
5326 : : & *dgm10(3,3)+3*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
5327 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/36.d0
5328 : : cm(8,28)=(gm(3,3)*(8640*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)&
5329 : : & +gm(2,3)*(4320*gm(1,3)*dgm01(3,3)*dgm10(3,3)+8640*gm(3,3)*(dgm01(3,3)&
5330 : 576 : & *dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))))/1440.d0
5331 : : cm(9,28)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5332 : : & *dgm10(1,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(1,3)&
5333 : : & *dgm10(3,3)+3*(48*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5334 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5335 : : cm(10,28)=gm(3,3)**2*(3*gm(1,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
5336 : 576 : & *(dgm01(3,3)*dgm10(1,3)+dgm01(1,3)*dgm10(3,3)))
5337 : : cm(1,29)=((90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)&
5338 : 576 : & *dgm10(2,2))/36.d0
5339 : 576 : cm(2,29)=3*gm(1,2)*gm(2,2)**2*dgm01(2,2)*dgm10(2,2)
5340 : : cm(3,29)=((-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)**2-18*gm(2,2)&
5341 : 576 : & *gm(3,3)))*dgm01(2,2)*dgm10(2,2))/12.d0
5342 : : cm(4,29)=(gm(2,2)*(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)&
5343 : 576 : & *dgm10(2,2))/6.d0
5344 : : cm(5,29)=((-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
5345 : 576 : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,2))/12.d0
5346 : : cm(6,29)=(gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)&
5347 : 576 : & *dgm10(2,2))/12.d0
5348 : 576 : cm(7,29)=gm(2,2)**3*dgm01(2,2)*dgm10(2,2)
5349 : : cm(8,29)=(gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,2)&
5350 : 576 : & *dgm10(2,2))/12.d0
5351 : 576 : cm(9,29)=3*gm(2,2)**2*gm(2,3)*dgm01(2,2)*dgm10(2,2)
5352 : : cm(10,29)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
5353 : 576 : & *dgm10(2,2))/36.d0
5354 : : cm(1,30)=((6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
5355 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)&
5356 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)&
5357 : : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+(12*(90*gm(1,2)&
5358 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)&
5359 : : & +8*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,3)&
5360 : : & +2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(3,3))&
5361 : 576 : & /72.d0
5362 : : cm(2,30)=(20*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5363 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)&
5364 : : & +12*gm(1,2)*gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))&
5365 : : & *dgm10(2,2)+20*gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
5366 : : & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,3)+1440*gm(1,2)&
5367 : 576 : & *gm(2,2)**2*dgm01(2,2)*dgm10(3,3))/480.d0
5368 : : cm(3,30)=((gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)&
5369 : : & *dgm01(2,3)+gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))&
5370 : : & +gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)&
5371 : : & +gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(2,2)&
5372 : : & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)&
5373 : : & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)&
5374 : : & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))&
5375 : : & *dgm10(2,3)+2*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(90*gm(2,3)&
5376 : 576 : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(3,3))/24.d0
5377 : : cm(4,30)=((gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)&
5378 : : & *dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))&
5379 : : & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)&
5380 : : & +gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(2,2)&
5381 : : & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))&
5382 : : & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)&
5383 : : & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(-18*gm(1,3)&
5384 : 576 : & *gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(3,3))/12.d0
5385 : : cm(5,30)=((6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
5386 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)&
5387 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5388 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
5389 : : & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
5390 : : & *dgm10(2,2)+(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5391 : : & +30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5392 : : & *dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)&
5393 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,3)+2*(-36*gm(1,2)&
5394 : : & *gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5395 : 576 : & *dgm01(2,2)*dgm10(3,3))/24.d0
5396 : : cm(6,30)=((6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5397 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5398 : : & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5399 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)&
5400 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,2)+(576*gm(1,2)*gm(1,3)&
5401 : : & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)&
5402 : : & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)&
5403 : : & *dgm01(2,3)))*dgm10(2,3)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)&
5404 : 576 : & *gm(2,2))*dgm01(2,2)*dgm10(3,3))/24.d0
5405 : : cm(7,30)=(gm(2,2)*(20*(6*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
5406 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)**2*dgm01(3,3))&
5407 : : & *dgm10(2,2)+20*gm(2,2)*(432*gm(2,3)*dgm01(2,2)+288*gm(2,2)*dgm01(2,3))&
5408 : 576 : & *dgm10(2,3)+1440*gm(2,2)**2*dgm01(2,2)*dgm10(3,3)))/1440.d0
5409 : : cm(8,30)=((72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)&
5410 : : & *dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)&
5411 : : & *dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))&
5412 : : & *dgm10(2,2)+(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)&
5413 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)&
5414 : : & *dgm01(2,3))*dgm10(2,3)+2*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))&
5415 : 576 : & *dgm01(2,2)*dgm10(3,3))/24.d0
5416 : : cm(9,30)=1.5d0*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)*gm(2,3)&
5417 : : & **2*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+12*gm(2,2)&
5418 : : & **2*gm(3,3)*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))+gm(2,2)&
5419 : : & *gm(2,3)*(7.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)&
5420 : 576 : & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))
5421 : : cm(10,30)=((648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)&
5422 : : & **2*dgm01(2,3)+180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)&
5423 : : & *dgm01(2,2)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+(648*gm(2,3)&
5424 : : & **2*gm(3,3)*dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)+720*gm(2,3)&
5425 : : & **3*dgm01(2,3)-432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(2,3)&
5426 : : & +2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(3,3))&
5427 : 576 : & /72.d0
5428 : : cm(1,31)=(30*(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)&
5429 : : & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)**3-54*gm(1,1)&
5430 : : & *gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(2,2)+240*(90*gm(1,2)**3-54*gm(1,1)&
5431 : 576 : & *gm(1,2)*gm(2,2))*dgm01(2,2)*dgm10(2,3))/4320.d0
5432 : : cm(2,31)=(gm(2,2)*(30*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))&
5433 : : & *dgm01(2,2)+288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(2,2)+8640*gm(1,2)&
5434 : 576 : & *gm(2,2)*dgm01(2,2)*dgm10(2,3)))/1440.d0
5435 : : cm(3,31)=(30*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)&
5436 : : & *gm(3,3)*dgm01(2,2)-288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)&
5437 : : & *gm(3,3)*dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)&
5438 : : & *dgm01(2,3)))*dgm10(2,2)+240*(-36*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5439 : 576 : & *(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)*dgm10(2,3))/1440.d0
5440 : : cm(4,31)=(30*(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)&
5441 : : & *dgm01(2,3))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)&
5442 : : & *dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(2,2)+240*gm(2,2)&
5443 : : & *(-18*gm(1,3)*gm(2,2)+54*gm(1,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))&
5444 : 576 : & /720.d0
5445 : : cm(5,31)=(30*(12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5446 : : & *gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5447 : : & *gm(3,3)))*dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
5448 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))*dgm10(2,2)&
5449 : : & +240*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
5450 : 576 : & *gm(2,2)*gm(2,3))*dgm01(2,2)*dgm10(2,3))/1440.d0
5451 : : cm(6,31)=(30*(576*gm(1,2)*gm(1,3)*gm(2,2)*dgm01(2,2)+gm(1,1)&
5452 : : & *gm(2,2)*(-216*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))+gm(1,2)&
5453 : : & **2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)*dgm01(2,3)))*dgm10(2,2)&
5454 : : & +240*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(2,2)*dgm10(2,3))&
5455 : 576 : & /1440.d0
5456 : : cm(7,31)=gm(2,2)**2*(3*gm(2,3)*dgm01(2,2)*dgm10(2,2)+2*gm(2,2)&
5457 : 576 : & *(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))
5458 : : cm(8,31)=1.5d0*gm(2,3)**3*dgm01(2,2)*dgm10(2,2)+7.5d0*gm(2,2)&
5459 : : & *gm(2,3)*gm(3,3)*dgm01(2,2)*dgm10(2,2)+9*gm(2,2)*gm(2,3)**2*(dgm01(2,3)&
5460 : : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))-3*gm(2,2)**2*gm(3,3)*(dgm01(2,3)&
5461 : 576 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3))
5462 : : cm(9,31)=gm(2,2)*(3*gm(2,3)**2*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)&
5463 : : & *gm(3,3)*dgm01(2,2)*dgm10(2,2)+6*gm(2,2)*gm(2,3)*(dgm01(2,3)&
5464 : 576 : & *dgm10(2,2)+dgm01(2,2)*dgm10(2,3)))
5465 : : cm(10,31)=(30*(648*gm(2,3)**2*gm(3,3)*dgm01(2,2)-216*gm(2,2)&
5466 : : & *gm(3,3)**2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)-432*gm(2,2)&
5467 : : & *gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(2,2)+240*(90*gm(2,3)**3-54*gm(2,2)&
5468 : 576 : & *gm(2,3)*gm(3,3))*dgm01(2,2)*dgm10(2,3))/4320.d0
5469 : : cm(1,32)=(2*(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,2)&
5470 : : & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5471 : : & *gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)&
5472 : : & *gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))*dgm10(2,2)+4*(6*(-36*gm(1,1)&
5473 : : & *gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))&
5474 : : & *dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)&
5475 : : & +2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)**3-54*gm(1,1)*gm(1,2)&
5476 : : & *gm(2,2))*dgm01(3,3))*dgm10(2,3)+(12*(90*gm(1,2)**2*gm(1,3)-18*gm(1,1)&
5477 : : & *(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,2)+8*(90*gm(1,2)&
5478 : 576 : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(2,3))*dgm10(3,3))/144.d0
5479 : : cm(2,32)=(2*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5480 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)&
5481 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)&
5482 : : & *(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,2)&
5483 : : & +4*(6*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)&
5484 : : & *gm(3,3)))*dgm01(2,2)+12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)&
5485 : : & *gm(2,3))*dgm01(2,3)+72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(2,3)&
5486 : : & +gm(2,2)*(12*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,2)&
5487 : 576 : & +288*gm(1,2)*gm(2,2)*dgm01(2,3))*dgm10(3,3))/48.d0
5488 : : cm(3,32)=(2*(288*gm(1,2)*gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)&
5489 : : & *dgm01(3,3))+gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)&
5490 : : & +gm(3,3)*(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(2,2)&
5491 : : & +4*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)&
5492 : : & +gm(2,3)*(72*gm(3,3)*dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)&
5493 : : & *(144*gm(3,3)**2*dgm01(2,2)+180*gm(2,3)**2*dgm01(3,3)+gm(3,3)&
5494 : : & *(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)*dgm01(3,3))))*dgm10(2,3)&
5495 : : & +(gm(1,3)*(72*gm(2,3)**2*dgm01(2,2)-216*gm(2,2)*gm(3,3)*dgm01(2,2)&
5496 : : & -288*gm(2,2)*gm(2,3)*dgm01(2,3))+gm(1,2)*(576*gm(2,3)*gm(3,3)&
5497 : : & *dgm01(2,2)+720*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)*gm(3,3)*dgm01(2,3)))&
5498 : 576 : & *dgm10(3,3))/48.d0
5499 : : cm(4,32)=(2*(gm(1,3)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)&
5500 : : & *dgm01(2,3)+gm(2,3)*(108*gm(3,3)*dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))&
5501 : : & +gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)&
5502 : : & +gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)*dgm01(3,3))))*dgm10(2,2)&
5503 : : & +4*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)+72*gm(2,2)*gm(2,3)*dgm01(2,3)&
5504 : : & +gm(2,2)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3)))+gm(1,2)&
5505 : : & *(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)&
5506 : : & *(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3))))*dgm10(2,3)&
5507 : : & +(gm(1,3)*gm(2,2)*(72*gm(2,3)*dgm01(2,2)-144*gm(2,2)*dgm01(2,3))&
5508 : : & +gm(1,2)*(72*gm(2,3)**2*dgm01(2,2)+288*gm(2,2)*gm(3,3)*dgm01(2,2)&
5509 : 576 : & +432*gm(2,2)*gm(2,3)*dgm01(2,3)))*dgm10(3,3))/24.d0
5510 : : cm(5,32)=(2*(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,2)&
5511 : : & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5512 : : & *gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
5513 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5514 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(6*(6*gm(1,3)**2*gm(2,3)&
5515 : : & +48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)&
5516 : : & +12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)&
5517 : : & **2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)&
5518 : : & +2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)**2*gm(2,3)-18*gm(1,1)&
5519 : : & *gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+(12*(-12*gm(1,3)**2*gm(2,2)&
5520 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5521 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+8*(-36*gm(1,2)*gm(1,3)*gm(2,2)&
5522 : : & +90*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3))&
5523 : 576 : & *dgm10(3,3))/48.d0
5524 : : cm(6,32)=(2*(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5525 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)&
5526 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5527 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)&
5528 : : & +6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))&
5529 : : & *dgm10(2,2)+4*(6*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5530 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5531 : : & *dgm01(2,2)+12*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5532 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)&
5533 : : & **2-18*gm(1,1)*gm(2,2))*dgm01(3,3))*dgm10(2,3)+(576*gm(1,2)*gm(1,3)&
5534 : : & *gm(2,2)*dgm01(2,2)+gm(1,1)*gm(2,2)*(-216*gm(2,3)*dgm01(2,2)&
5535 : : & -144*gm(2,2)*dgm01(2,3))+gm(1,2)**2*(72*gm(2,3)*dgm01(2,2)+432*gm(2,2)&
5536 : 576 : & *dgm01(2,3)))*dgm10(3,3))/48.d0
5537 : : cm(7,32)=(2*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)&
5538 : : & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)&
5539 : : & **2*gm(2,3)*dgm01(3,3))*dgm10(2,2)+4*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)&
5540 : : & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)&
5541 : : & **2*dgm01(3,3))*dgm10(2,3)+gm(2,2)**2*(432*gm(2,3)*dgm01(2,2)&
5542 : 576 : & +288*gm(2,2)*dgm01(2,3))*dgm10(3,3))/144.d0
5543 : : cm(8,32)=(2*(144*gm(2,3)**2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)&
5544 : : & **2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)&
5545 : : & *dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(2,2)+4*(72*gm(2,3)&
5546 : : & **3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)&
5547 : : & *gm(3,3)*(144*gm(3,3)*dgm01(2,2)-36*gm(2,2)*dgm01(3,3))+gm(2,3)&
5548 : : & **2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)&
5549 : : & +(72*gm(2,3)**3*dgm01(2,2)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,2)&
5550 : : & +432*gm(2,2)*gm(2,3)**2*dgm01(2,3)-144*gm(2,2)**2*gm(3,3)*dgm01(2,3))&
5551 : 576 : & *dgm10(3,3))/48.d0
5552 : : cm(9,32)=3*gm(2,3)**3*(dgm01(2,3)*dgm10(2,2)+dgm01(2,2)*dgm10(2,3))&
5553 : : & +gm(2,3)**2*(4.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)*(3*dgm01(3,3)&
5554 : : & *dgm10(2,2)+12*dgm01(2,3)*dgm10(2,3)+3*dgm01(2,2)*dgm10(3,3)))&
5555 : : & +gm(2,2)*gm(3,3)*(-1.5d0*gm(3,3)*dgm01(2,2)*dgm10(2,2)+gm(2,2)&
5556 : : & *(6*dgm01(3,3)*dgm10(2,2)+24*dgm01(2,3)*dgm10(2,3)+6*dgm01(2,2)&
5557 : : & *dgm10(3,3)))+gm(2,2)*gm(2,3)*(15*gm(3,3)*(dgm01(2,3)*dgm10(2,2)&
5558 : : & +dgm01(2,2)*dgm10(2,3))+6*gm(2,2)*(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)&
5559 : 576 : & *dgm10(3,3)))
5560 : : cm(10,32)=(2*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)&
5561 : : & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,2)&
5562 : : & +4*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)&
5563 : : & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)&
5564 : : & -108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)+(648*gm(2,3)**2*gm(3,3)&
5565 : : & *dgm01(2,2)-216*gm(2,2)*gm(3,3)**2*dgm01(2,2)+720*gm(2,3)**3*dgm01(2,3)&
5566 : 576 : & -432*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3))*dgm10(3,3))/144.d0
5567 : : cm(1,33)=((8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
5568 : : & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5569 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(2*(90*gm(1,3)**3-54*gm(1,1)&
5570 : : & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
5571 : : & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)&
5572 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))&
5573 : : & *dgm10(2,3)+2*(6*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
5574 : : & **2-18*gm(1,1)*gm(3,3)))*dgm01(2,2)+12*(90*gm(1,2)**2*gm(1,3)&
5575 : : & -18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(2,3)+2*(90*gm(1,2)&
5576 : 576 : & **3-54*gm(1,1)*gm(1,2)*gm(2,2))*dgm01(3,3))*dgm10(3,3))/144.d0
5577 : : cm(2,33)=((8*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5578 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)&
5579 : : & +gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)&
5580 : : & +4*(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5581 : : & *gm(3,3)))*dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5582 : : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)&
5583 : : & *gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+2*(6*(48*gm(1,3)&
5584 : : & *gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(2,2)&
5585 : : & +12*gm(2,2)*(24*gm(1,3)*gm(2,2)+12*gm(1,2)*gm(2,3))*dgm01(2,3)&
5586 : 576 : & +72*gm(1,2)*gm(2,2)**2*dgm01(3,3))*dgm10(3,3))/48.d0
5587 : : cm(3,33)=(gm(3,3)*(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)&
5588 : : & *gm(2,3)+24*gm(1,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(288*gm(1,2)&
5589 : : & *gm(3,3)*(gm(3,3)*dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)&
5590 : : & **2*dgm01(2,2)+36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)&
5591 : : & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3))))*dgm10(2,3)+2*(gm(1,3)*(72*gm(2,3)&
5592 : : & **2*dgm01(2,3)-216*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(72*gm(3,3)&
5593 : : & *dgm01(2,2)-72*gm(2,2)*dgm01(3,3)))+gm(1,2)*(144*gm(3,3)**2*dgm01(2,2)&
5594 : : & +180*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(576*gm(2,3)*dgm01(2,3)-36*gm(2,2)&
5595 : 576 : & *dgm01(3,3))))*dgm10(3,3))/48.d0
5596 : : cm(4,33)=((8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5597 : : & *dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5598 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(gm(1,3)*(72*gm(2,3)&
5599 : : & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)&
5600 : : & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)&
5601 : : & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)&
5602 : : & *dgm01(3,3))))*dgm10(2,3)+2*(gm(1,3)*(36*gm(2,3)**2*dgm01(2,2)&
5603 : : & +72*gm(2,2)*gm(2,3)*dgm01(2,3)+gm(2,2)*(144*gm(3,3)*dgm01(2,2)&
5604 : : & -36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(72*gm(2,3)**2*dgm01(2,3)+288*gm(2,2)&
5605 : : & *gm(3,3)*dgm01(2,3)+gm(2,3)*(36*gm(3,3)*dgm01(2,2)+108*gm(2,2)&
5606 : 576 : & *dgm01(3,3))))*dgm10(3,3))/24.d0
5607 : : cm(5,33)=((8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5608 : : & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5609 : : & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(2*gm(3,3)*(54*gm(1,3)&
5610 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
5611 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)&
5612 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5613 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)&
5614 : : & +2*(6*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5615 : : & *gm(2,3)*gm(3,3))*dgm01(2,2)+12*(-12*gm(1,3)**2*gm(2,2)+36*gm(1,2)&
5616 : : & *gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5617 : : & *gm(3,3)))*dgm01(2,3)+2*(-36*gm(1,2)*gm(1,3)*gm(2,2)+90*gm(1,2)&
5618 : : & **2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))&
5619 : 576 : & /48.d0
5620 : : cm(6,33)=((8*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5621 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)&
5622 : : & +36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)&
5623 : : & **2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,2)+4*(2*(90*gm(1,3)&
5624 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5625 : : & *dgm01(2,2)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5626 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5627 : : & *dgm01(2,3)+6*(48*gm(1,2)*gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)&
5628 : : & -18*gm(1,1)*gm(2,2)*gm(2,3))*dgm01(3,3))*dgm10(2,3)+2*(6*(30*gm(1,3)&
5629 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5630 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,2)+12*(48*gm(1,2)&
5631 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5632 : : & *dgm01(2,3)+2*gm(2,2)*(54*gm(1,2)**2-18*gm(1,1)*gm(2,2))*dgm01(3,3))&
5633 : 576 : & *dgm10(3,3))/48.d0
5634 : : cm(7,33)=((8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5635 : : & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)&
5636 : : & +4*(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)&
5637 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)&
5638 : : & *dgm01(3,3))*dgm10(2,3)+2*gm(2,2)*(6*(54*gm(2,3)**2-18*gm(2,2)&
5639 : : & *gm(3,3))*dgm01(2,2)+432*gm(2,2)*gm(2,3)*dgm01(2,3)+72*gm(2,2)&
5640 : 576 : & **2*dgm01(3,3))*dgm10(3,3))/144.d0
5641 : : cm(8,33)=(gm(3,3)*(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)&
5642 : : & **2+24*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,2)+4*(144*gm(2,3)&
5643 : : & **2*gm(3,3)*dgm01(2,3)+288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)&
5644 : : & **3*dgm01(3,3)+gm(2,3)*gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)&
5645 : : & *dgm01(3,3)))*dgm10(2,3)+2*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)&
5646 : : & *gm(2,3)*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(3,3)*(144*gm(3,3)*dgm01(2,2)&
5647 : : & -36*gm(2,2)*dgm01(3,3))+gm(2,3)**2*(72*gm(3,3)*dgm01(2,2)+108*gm(2,2)&
5648 : 576 : & *dgm01(3,3)))*dgm10(3,3))/48.d0
5649 : : cm(9,33)=((8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
5650 : : & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,2)&
5651 : : & +4*(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)&
5652 : : & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)&
5653 : : & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(2,3)&
5654 : : & +2*(36*gm(2,3)**3*dgm01(2,2)+144*gm(2,2)*gm(2,3)**2*dgm01(2,3)&
5655 : : & +288*gm(2,2)**2*gm(3,3)*dgm01(2,3)+gm(2,2)*gm(2,3)*(180*gm(3,3)&
5656 : 576 : & *dgm01(2,2)+72*gm(2,2)*dgm01(3,3)))*dgm10(3,3))/48.d0
5657 : : cm(10,33)=(gm(3,3)**2*(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)*dgm01(3,3))&
5658 : : & *dgm10(2,2)+4*gm(3,3)*(72*gm(3,3)**2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)&
5659 : : & +gm(3,3)*(432*gm(2,3)*dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(2,3)&
5660 : : & +2*(648*gm(2,3)**2*gm(3,3)*dgm01(2,3)-216*gm(2,2)*gm(3,3)**2*dgm01(2,3)&
5661 : : & +180*gm(2,3)**3*dgm01(3,3)+gm(2,3)*gm(3,3)*(216*gm(3,3)*dgm01(2,2)&
5662 : 576 : & -108*gm(2,2)*dgm01(3,3)))*dgm10(3,3))/144.d0
5663 : : cm(1,34)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5664 : : & *dgm10(2,2)+(8*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
5665 : : & +12*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)&
5666 : : & *gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(2*(90*gm(1,3)**3-54*gm(1,1)&
5667 : : & *gm(1,3)*gm(3,3))*dgm01(2,2)+12*(-36*gm(1,1)*gm(1,3)*gm(2,3)&
5668 : : & +gm(1,2)*(90*gm(1,3)**2-18*gm(1,1)*gm(3,3)))*dgm01(2,3)+6*(90*gm(1,2)&
5669 : : & **2*gm(1,3)-18*gm(1,1)*(gm(1,3)*gm(2,2)+2*gm(1,2)*gm(2,3)))*dgm01(3,3))&
5670 : 576 : & *dgm10(3,3))/72.d0
5671 : : cm(2,34)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5672 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,2)+(8*(-36*gm(1,2)&
5673 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5674 : : & *dgm01(2,3)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5675 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(2*(-36*gm(1,2)&
5676 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5677 : : & *dgm01(2,2)+12*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)*(6*gm(2,3)&
5678 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*gm(2,2)*(24*gm(1,3)*gm(2,2)&
5679 : 576 : & +12*gm(1,2)*gm(2,3))*dgm01(3,3))*dgm10(3,3))/24.d0
5680 : : cm(3,34)=(1440*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)&
5681 : : & *(288*gm(1,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(1,3)*gm(2,3)+24*gm(1,2)&
5682 : : & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+20*(288*gm(1,2)*gm(3,3)*(gm(3,3)&
5683 : : & *dgm01(2,3)+gm(2,3)*dgm01(3,3))+gm(1,3)*(72*gm(3,3)**2*dgm01(2,2)&
5684 : : & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(144*gm(2,3)*dgm01(2,3)-108*gm(2,2)&
5685 : 576 : & *dgm01(3,3))))*dgm10(3,3))/480.d0
5686 : : cm(4,34)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5687 : : & *dgm01(3,3)*dgm10(2,2)+(8*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5688 : : & *gm(3,3))*dgm01(2,3)+12*(6*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(6*gm(2,3)&
5689 : : & **2+24*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(2,3)+(gm(1,3)*(72*gm(2,3)&
5690 : : & **2*dgm01(2,3)+288*gm(2,2)*gm(3,3)*dgm01(2,3)+gm(2,3)*(108*gm(3,3)&
5691 : : & *dgm01(2,2)+36*gm(2,2)*dgm01(3,3)))+gm(1,2)*(-36*gm(3,3)**2*dgm01(2,2)&
5692 : : & +36*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(72*gm(2,3)*dgm01(2,3)+144*gm(2,2)&
5693 : 576 : & *dgm01(3,3))))*dgm10(3,3))/12.d0
5694 : : cm(5,34)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5695 : : & *dgm10(2,2)+(8*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5696 : : & +12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)&
5697 : : & *gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)+(2*gm(3,3)*(54*gm(1,3)&
5698 : : & **2-18*gm(1,1)*gm(3,3))*dgm01(2,2)+12*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)&
5699 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,3)+6*(-12*gm(1,3)&
5700 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)+30*gm(1,2)**2*gm(3,3)&
5701 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(3,3))*dgm10(3,3))&
5702 : 576 : & /24.d0
5703 : : cm(6,34)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5704 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,2)+(8*(90*gm(1,3)&
5705 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5706 : : & *dgm01(2,3)+12*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)&
5707 : : & -12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))&
5708 : : & *dgm01(3,3))*dgm10(2,3)+(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)&
5709 : : & *gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*(30*gm(1,3)&
5710 : : & **2*gm(2,2)+36*gm(1,2)*gm(1,3)*gm(2,3)-12*gm(1,2)**2*gm(3,3)&
5711 : : & +gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)*gm(3,3)))*dgm01(2,3)+6*(48*gm(1,2)&
5712 : : & *gm(1,3)*gm(2,2)+6*gm(1,2)**2*gm(2,3)-18*gm(1,1)*gm(2,2)*gm(2,3))&
5713 : 576 : & *dgm01(3,3))*dgm10(3,3))/24.d0
5714 : : cm(7,34)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5715 : : & *dgm10(2,2)+(8*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5716 : : & +12*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3))*dgm10(2,3)&
5717 : : & +(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,2)+12*gm(2,2)&
5718 : : & *(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)+216*gm(2,2)**2*gm(2,3)&
5719 : 576 : & *dgm01(3,3))*dgm10(3,3))/72.d0
5720 : : cm(8,34)=(1440*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)&
5721 : : & *(288*gm(2,3)*gm(3,3)*dgm01(2,3)+12*(12*gm(2,3)**2+24*gm(2,2)&
5722 : : & *gm(3,3))*dgm01(3,3))*dgm10(2,3)+20*(144*gm(2,3)**2*gm(3,3)*dgm01(2,3)&
5723 : : & +288*gm(2,2)*gm(3,3)**2*dgm01(2,3)+36*gm(2,3)**3*dgm01(3,3)+gm(2,3)&
5724 : : & *gm(3,3)*(72*gm(3,3)*dgm01(2,2)+180*gm(2,2)*dgm01(3,3)))*dgm10(3,3))&
5725 : 576 : & /480.d0
5726 : : cm(9,34)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5727 : : & *dgm10(2,2)+(8*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
5728 : : & +12*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3))*dgm10(2,3)&
5729 : : & +(72*gm(2,3)**3*dgm01(2,3)+360*gm(2,2)*gm(2,3)*gm(3,3)*dgm01(2,3)&
5730 : : & +gm(2,3)**2*(108*gm(3,3)*dgm01(2,2)+72*gm(2,2)*dgm01(3,3))+gm(2,2)&
5731 : : & *gm(3,3)*(-36*gm(3,3)*dgm01(2,2)+144*gm(2,2)*dgm01(3,3)))*dgm10(3,3))&
5732 : 576 : & /24.d0
5733 : : cm(10,34)=(gm(3,3)*(1440*gm(3,3)**2*dgm01(3,3)*dgm10(2,2)+20*gm(3,3)&
5734 : : & *(288*gm(3,3)*dgm01(2,3)+432*gm(2,3)*dgm01(3,3))*dgm10(2,3)+20*(72*gm(3,3)&
5735 : : & **2*dgm01(2,2)+324*gm(2,3)**2*dgm01(3,3)+gm(3,3)*(432*gm(2,3)&
5736 : 576 : & *dgm01(2,3)-108*gm(2,2)*dgm01(3,3)))*dgm10(3,3)))/1440.d0
5737 : : cm(1,35)=(2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5738 : : & *dgm10(2,3)+2*(90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(2,3)&
5739 : : & *dgm10(3,3)+3*(-36*gm(1,1)*gm(1,3)*gm(2,3)+gm(1,2)*(90*gm(1,3)&
5740 : 576 : & **2-18*gm(1,1)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/36.d0
5741 : : cm(2,35)=(2*(-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)&
5742 : : & **2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(2,3)+2*(-36*gm(1,2)&
5743 : : & *gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)*gm(3,3)))&
5744 : : & *dgm01(2,3)*dgm10(3,3)+3*(48*gm(1,3)*gm(2,2)*gm(2,3)+gm(1,2)&
5745 : 576 : & *(6*gm(2,3)**2-18*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5746 : : cm(3,35)=(gm(3,3)*(8640*gm(1,2)*gm(3,3)*dgm01(3,3)*dgm10(3,3)&
5747 : : & +gm(1,3)*(4320*gm(2,3)*dgm01(3,3)*dgm10(3,3)+8640*gm(3,3)*(dgm01(3,3)&
5748 : 576 : & *dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))))/1440.d0
5749 : : cm(4,35)=(2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))&
5750 : : & *dgm01(3,3)*dgm10(2,3)+2*gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)&
5751 : : & *gm(3,3))*dgm01(2,3)*dgm10(3,3)+3*(6*gm(1,2)*gm(2,3)*gm(3,3)&
5752 : : & +gm(1,3)*(6*gm(2,3)**2+24*gm(2,2)*gm(3,3)))*dgm01(3,3)*dgm10(3,3))&
5753 : 576 : & /6.d0
5754 : : cm(5,35)=(2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5755 : : & *dgm10(2,3)+2*gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(2,3)&
5756 : : & *dgm10(3,3)+3*(6*gm(1,3)**2*gm(2,3)+48*gm(1,2)*gm(1,3)*gm(3,3)&
5757 : 576 : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))/12.d0
5758 : : cm(6,35)=(2*(90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5759 : : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(2,3)+2*(90*gm(1,3)&
5760 : : & **2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)-18*gm(1,1)*gm(2,3)*gm(3,3))&
5761 : : & *dgm01(2,3)*dgm10(3,3)+3*(30*gm(1,3)**2*gm(2,2)+36*gm(1,2)*gm(1,3)&
5762 : : & *gm(2,3)-12*gm(1,2)**2*gm(3,3)+gm(1,1)*(-12*gm(2,3)**2-6*gm(2,2)&
5763 : 576 : & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5764 : : cm(7,35)=(2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5765 : : & *dgm10(2,3)+2*(90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(2,3)&
5766 : : & *dgm10(3,3)+3*gm(2,2)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5767 : 576 : & *dgm10(3,3))/36.d0
5768 : : cm(8,35)=(gm(3,3)*(8640*gm(2,3)*gm(3,3)*dgm01(3,3)*dgm10(2,3)&
5769 : : & +8640*gm(2,3)*gm(3,3)*dgm01(2,3)*dgm10(3,3)+360*(12*gm(2,3)**2+24*gm(2,2)&
5770 : 576 : & *gm(3,3))*dgm01(3,3)*dgm10(3,3)))/1440.d0
5771 : : cm(9,35)=(2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5772 : : & *dgm10(2,3)+2*gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(2,3)&
5773 : : & *dgm10(3,3)+3*(6*gm(2,3)**3+30*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5774 : 576 : & *dgm10(3,3))/12.d0
5775 : : cm(10,35)=gm(3,3)**2*(3*gm(2,3)*dgm01(3,3)*dgm10(3,3)+2*gm(3,3)&
5776 : 576 : & *(dgm01(3,3)*dgm10(2,3)+dgm01(2,3)*dgm10(3,3)))
5777 : : cm(1,36)=((90*gm(1,3)**3-54*gm(1,1)*gm(1,3)*gm(3,3))*dgm01(3,3)&
5778 : 576 : & *dgm10(3,3))/36.d0
5779 : : cm(2,36)=((-36*gm(1,2)*gm(2,3)*gm(3,3)+gm(1,3)*(90*gm(2,3)**2-18*gm(2,2)&
5780 : 576 : & *gm(3,3)))*dgm01(3,3)*dgm10(3,3))/12.d0
5781 : 576 : cm(3,36)=3*gm(1,3)*gm(3,3)**2*dgm01(3,3)*dgm10(3,3)
5782 : : cm(4,36)=(gm(3,3)*(54*gm(1,3)*gm(2,3)-18*gm(1,2)*gm(3,3))*dgm01(3,3)&
5783 : 576 : & *dgm10(3,3))/6.d0
5784 : : cm(5,36)=(gm(3,3)*(54*gm(1,3)**2-18*gm(1,1)*gm(3,3))*dgm01(3,3)&
5785 : 576 : & *dgm10(3,3))/12.d0
5786 : : cm(6,36)=((90*gm(1,3)**2*gm(2,3)-36*gm(1,2)*gm(1,3)*gm(3,3)&
5787 : 576 : & -18*gm(1,1)*gm(2,3)*gm(3,3))*dgm01(3,3)*dgm10(3,3))/12.d0
5788 : : cm(7,36)=((90*gm(2,3)**3-54*gm(2,2)*gm(2,3)*gm(3,3))*dgm01(3,3)&
5789 : 576 : & *dgm10(3,3))/36.d0
5790 : 576 : cm(8,36)=3*gm(2,3)*gm(3,3)**2*dgm01(3,3)*dgm10(3,3)
5791 : : cm(9,36)=(gm(3,3)*(54*gm(2,3)**2-18*gm(2,2)*gm(3,3))*dgm01(3,3)&
5792 : 576 : & *dgm10(3,3))/12.d0
5793 : 576 : cm(10,36)=gm(3,3)**3*dgm01(3,3)*dgm10(3,3)
5794 : : end if
5795 : : !
5796 : : !contraction to output scalar
5797 : : !
5798 : 5922144 : e2nl=0.d0
5799 [ + + ]: 131383872 : do jj=1,((rank+5)*(rank+6))/2
5800 : 125461728 : tmp(:)=0.d0
5801 [ + + ]: 600712704 : do ii=1,((rank+1)*(rank+2))/2
5802 [ + + ]: 1551214656 : tmp(:)=tmp(:)+aa(:,ii)*cm(ii,jj)
5803 : : end do
5804 : 131383872 : e2nl=e2nl+tmp(1)*bb(1,jj)+tmp(2)*bb(2,jj)
5805 : : end do
5806 : : !factor of 2 multiplied in along with dropping call to conjugate contraction
5807 : 5922144 : e2nl=0.5d0*e2nl
5808 : :
5809 [ - + ]: 5922144 : ABI_FREE(cm)
5810 : :
5811 : 5922144 : end subroutine contstr21
5812 : : !!***
5813 : :
5814 : : end module m_contstr21
5815 : : !!***
|
