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 : !!***
|
