29 S2v2F1(cxy, r1h1x, i1h1x, r1h1y, i1h1y)
31 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
33 return (cxy*(r1h1x*r1h1y - i1h1x*i1h1y));
38 S2i2F1(cxy, r1h1x, i1h1x, r1h1y, i1h1y)
40 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
42 return (cxy*(r1h1x*i1h1y + i1h1x*r1h1y));
47 S2v3F1(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r2h11x, i2h11x, r2h11y, i2h11y)
49 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
50 double r2h11x, i2h11x, r2h11y, i2h11y;
52 return (cxy*(r1h1x*r2h11y - i1h1x*i2h11y + r1h1y*r2h11x - i1h1y*i2h11x));
57 S2i3F1(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r2h11x, i2h11x, r2h11y, i2h11y)
59 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
60 double r2h11x, i2h11x, r2h11y, i2h11y;
62 return (cxy*(r1h1x*i2h11y + i1h1x*r2h11y + r1h1y*i2h11x + i1h1y*r2h11x));
67 S2vF12(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r1h2x, i1h2x, r1h2y, i1h2y)
69 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
70 double r1h2x, i1h2x, r1h2y, i1h2y;
72 return (cxy*(r1h1x*r1h2y - i1h1x*i1h2y + r1h1y*r1h2x - i1h1y*i1h2x));
77 S2iF12(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r1h2x, i1h2x, r1h2y, i1h2y)
79 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
80 double r1h2x, i1h2x, r1h2y, i1h2y;
82 return (cxy*(r1h1x*i1h2y + i1h1x*r1h2y + r1h1y*i1h2x + i1h1y*r1h2x));
87 S2v2F12(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r1h2x, i1h2x, r1h2y, i1h2y,
88 r2h11x, i2h11x, r2h11y, i2h11y, h2f1f2x, ih2f1f2x, h2f1f2y, ih2f1f2y)
90 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
91 double r1h2x, i1h2x, r1h2y, i1h2y;
92 double r2h11x, i2h11x, r2h11y, i2h11y;
93 double h2f1f2x, ih2f1f2x, h2f1f2y, ih2f1f2y;
96 2*(r1h1x*h2f1f2y - i1h1x*ih2f1f2y
97 +r1h1y*h2f1f2x - i1h1y*ih2f1f2x)
98 + r1h2x*r2h11y - i1h2x*i2h11y
99 + r1h2y*r2h11x - i1h2y*i2h11x
105 S2i2F12(cxy, r1h1x, i1h1x, r1h1y, i1h1y, r1h2x, i1h2x, r1h2y, i1h2y,
106 r2h11x, i2h11x, r2h11y, i2h11y, h2f1f2x, ih2f1f2x, h2f1f2y, ih2f1f2y)
108 double cxy, r1h1x, i1h1x, r1h1y, i1h1y;
109 double r1h2x, i1h2x, r1h2y, i1h2y;
110 double r2h11x, i2h11x, r2h11y, i2h11y;
111 double h2f1f2x, ih2f1f2x, h2f1f2y, ih2f1f2y;
114 2*(r1h1x*ih2f1f2y + i1h1x*h2f1f2y
115 +r1h1y*ih2f1f2x + i1h1y*h2f1f2x)
116 + r1h2x*i2h11y + i1h2x*r2h11y
117 + r1h2y*i2h11x + i1h2y*r2h11x
123 S3v3F1(cxyz, r1h1x, i1h1x, r1h1y, i1h1y, r1h1z, i1h1z)
125 double cxyz, r1h1x, i1h1x, r1h1y;
126 double i1h1y, r1h1z,i1h1z;
129 (r1h1x*r1h1y - i1h1x*i1h1y)*r1h1z - (i1h1x*r1h1y + r1h1x*i1h1y)*i1h1z
135 S3i3F1(cxyz, r1h1x, i1h1x, r1h1y, i1h1y, r1h1z, i1h1z)
137 double cxyz, r1h1x, i1h1x, r1h1y;
138 double i1h1y, r1h1z,i1h1z;
141 (r1h1x*r1h1y - i1h1x*i1h1y)*i1h1z + (i1h1x*r1h1y + r1h1x*i1h1y)*r1h1z
147 S3v2F12(cxyz, r1h1x, i1h1x, r1h1y, i1h1y, r1h1z, i1h1z, r1h2x, i1h2x, r1h2y,
150 double cxyz, r1h1x, i1h1x, r1h1y, i1h1y;
151 double r1h1z, i1h1z, r1h2x, i1h2x, r1h2y;
152 double i1h2y, r1h2z, i1h2z;
155 (r1h1x*r1h1y - i1h1x*i1h1y)*r1h2z - (i1h1x*r1h1y + r1h1x*i1h1y)*i1h2z
157 (r1h1x*r1h1z - i1h1x*i1h1z)*r1h2y - (i1h1x*r1h1z + r1h1x*i1h1z)*i1h2y
159 (r1h1z*r1h1y - i1h1z*i1h1y)*r1h2x - (i1h1z*r1h1y + r1h1z*i1h1y)*i1h2x
165 S3i2F12(cxyz, r1h1x, i1h1x, r1h1y, i1h1y, r1h1z, i1h1z, r1h2x, i1h2x, r1h2y,
168 double cxyz, r1h1x, i1h1x, r1h1y, i1h1y;
169 double r1h1z, i1h1z, r1h2x, i1h2x, r1h2y;
170 double i1h2y, r1h2z, i1h2z;
173 (r1h1x*r1h1y - i1h1x*i1h1y)*i1h2z + (i1h1x*r1h1y + r1h1x*i1h1y)*r1h2z
175 (r1h1x*r1h1z - i1h1x*i1h1z)*i1h2y + (i1h1x*r1h1z + r1h1x*i1h1z)*r1h2y
177 (r1h1z*r1h1y - i1h1z*i1h1y)*i1h2x + (i1h1z*r1h1y + r1h1z*i1h1y)*r1h2x
186 DFn2F1(cxx,cyy,czz,cxy,cyz,cxz, r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z)
188 double cxx,cyy,czz,cxy,cyz,cxz;
189 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
193 temp =
S2v2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x) +
194 S2v2F1(cyy,r1h1y,i1h1y,r1h1y,i1h1y) +
195 S2v2F1(czz,r1h1z,i1h1z,r1h1z,i1h1z) +
196 S2v2F1(cxy,r1h1x,i1h1x,r1h1y,i1h1y) +
197 S2v2F1(cyz,r1h1y,i1h1y,r1h1z,i1h1z) +
198 S2v2F1(cxz,r1h1x,i1h1x,r1h1z,i1h1z);
205 DFi2F1(cxx,cyy,czz,cxy,cyz,cxz, r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z)
207 double cxx,cyy,czz,cxy,cyz,cxz;
208 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
212 temp =
S2i2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x) +
213 S2i2F1(cyy,r1h1y,i1h1y,r1h1y,i1h1y) +
214 S2i2F1(czz,r1h1z,i1h1z,r1h1z,i1h1z) +
215 S2i2F1(cxy,r1h1x,i1h1x,r1h1y,i1h1y) +
216 S2i2F1(cyz,r1h1y,i1h1y,r1h1z,i1h1z) +
217 S2i2F1(cxz,r1h1x,i1h1x,r1h1z,i1h1z);
224 DFn3F1(cxx,cyy,czz,cxy,cyz,cxz,cxxx,cyyy,czzz,cxxy,cxxz,cxyy,cyyz,cxzz,cyzz,
225 cxyz, r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z, r2h11x,i2h11x,r2h11y,i2h11y,
228 double cxx,cyy,czz,cxy,cyz,cxz,cxxx,cyyy,czzz,cxxy,cxxz,cxyy,cyyz,cxzz,cyzz;
230 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
231 double r2h11x,i2h11x,r2h11y,i2h11y,r2h11z,i2h11z;
235 temp =
S2v3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
236 +
S2v3F1(cyy,r1h1y,i1h1y,r1h1y,i1h1y,r2h11y,i2h11y,r2h11y,i2h11y)
237 +
S2v3F1(czz,r1h1z,i1h1z,r1h1z,i1h1z,r2h11z,i2h11z,r2h11z,i2h11z);
239 S2v3F1(cxy,r1h1x,i1h1x,r1h1y,i1h1y,r2h11x,i2h11x,r2h11y,i2h11y)
240 +
S2v3F1(cyz,r1h1y,i1h1y,r1h1z,i1h1z,r2h11y,i2h11y,r2h11z,i2h11z)
241 +
S2v3F1(cxz,r1h1x,i1h1x,r1h1z,i1h1z,r2h11x,i2h11x,r2h11z,i2h11z)
242 +
S3v3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);
244 S3v3F1(cyyy,r1h1y,i1h1y,r1h1y,i1h1y,r1h1y,i1h1y)
245 +
S3v3F1(czzz,r1h1z,i1h1z,r1h1z,i1h1z,r1h1z,i1h1z)
246 +
S3v3F1(cxxy,r1h1x,i1h1x,r1h1x,i1h1x,r1h1y,i1h1y)
247 +
S3v3F1(cxxz,r1h1x,i1h1x,r1h1x,i1h1x,r1h1z,i1h1z)
248 +
S3v3F1(cxyy,r1h1x,i1h1x,r1h1y,i1h1y,r1h1y,i1h1y);
250 S3v3F1(cyyz,r1h1y,i1h1y,r1h1y,i1h1y,r1h1z,i1h1z)
251 +
S3v3F1(cxzz,r1h1x,i1h1x,r1h1z,i1h1z,r1h1z,i1h1z)
252 +
S3v3F1(cyzz,r1h1y,i1h1y,r1h1z,i1h1z,r1h1z,i1h1z)
253 +
S3v3F1(cxyz,r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z);
260 DFi3F1(cxx,cyy,czz,cxy,cyz,cxz,cxxx,cyyy,czzz,cxxy,cxxz,cxyy,cyyz,cxzz,cyzz,
261 cxyz, r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z, r2h11x,i2h11x,r2h11y,i2h11y,
264 double cxx,cyy,czz,cxy,cyz,cxz,cxxx,cyyy,czzz,cxxy,cxxz,cxyy,cyyz,cxzz,cyzz;
266 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
267 double r2h11x,i2h11x,r2h11y,i2h11y,r2h11z,i2h11z;
271 temp =
S2i3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
272 +
S2i3F1(cyy,r1h1y,i1h1y,r1h1y,i1h1y,r2h11y,i2h11y,r2h11y,i2h11y)
273 +
S2i3F1(czz,r1h1z,i1h1z,r1h1z,i1h1z,r2h11z,i2h11z,r2h11z,i2h11z)
274 +
S2i3F1(cxy,r1h1x,i1h1x,r1h1y,i1h1y,r2h11x,i2h11x,r2h11y,i2h11y);
276 S2i3F1(cyz,r1h1y,i1h1y,r1h1z,i1h1z,r2h11y,i2h11y,r2h11z,i2h11z)
277 +
S2i3F1(cxz,r1h1x,i1h1x,r1h1z,i1h1z,r2h11x,i2h11x,r2h11z,i2h11z)
278 +
S3i3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x)
279 +
S3i3F1(cyyy,r1h1y,i1h1y,r1h1y,i1h1y,r1h1y,i1h1y);
281 S3i3F1(czzz,r1h1z,i1h1z,r1h1z,i1h1z,r1h1z,i1h1z)
282 +
S3i3F1(cxxy,r1h1x,i1h1x,r1h1x,i1h1x,r1h1y,i1h1y)
283 +
S3i3F1(cxxz,r1h1x,i1h1x,r1h1x,i1h1x,r1h1z,i1h1z)
284 +
S3i3F1(cxyy,r1h1x,i1h1x,r1h1y,i1h1y,r1h1y,i1h1y);
286 S3i3F1(cyyz,r1h1y,i1h1y,r1h1y,i1h1y,r1h1z,i1h1z)
287 +
S3i3F1(cxzz,r1h1x,i1h1x,r1h1z,i1h1z,r1h1z,i1h1z)
288 +
S3i3F1(cyzz,r1h1y,i1h1y,r1h1z,i1h1z,r1h1z,i1h1z)
289 +
S3i3F1(cxyz,r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z);
296 DFnF12(cxx,cyy,czz,cxy,cyz,cxz,r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z,
297 r1h2x,i1h2x,r1h2y,i1h2y,r1h2z,i1h2z)
299 double cxx,cyy,czz,cxy,cyz,cxz;
300 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
301 double r1h2x,i1h2x,r1h2y,i1h2y,r1h2z,i1h2z;
305 temp =
S2vF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x)
306 +
S2vF12(cyy,r1h1y,i1h1y,r1h1y,i1h1y,r1h2y,i1h2y,r1h2y,i1h2y)
307 +
S2vF12(czz,r1h1z,i1h1z,r1h1z,i1h1z,r1h2z,i1h2z,r1h2z,i1h2z);
309 S2vF12(cxy,r1h1x,i1h1x,r1h1y,i1h1y,r1h2x,i1h2x,r1h2y,i1h2y)
310 +
S2vF12(cyz,r1h1y,i1h1y,r1h1z,i1h1z,r1h2y,i1h2y,r1h2z,i1h2z)
311 +
S2vF12(cxz,r1h1x,i1h1x,r1h1z,i1h1z,r1h2x,i1h2x,r1h2z,i1h2z);
318 DFiF12(cxx,cyy,czz,cxy,cyz,cxz, r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z,
319 r1h2x,i1h2x,r1h2y,i1h2y,r1h2z,i1h2z)
321 double cxx,cyy,czz,cxy,cyz,cxz;
322 double r1h1x,i1h1x,r1h1y,i1h1y,r1h1z,i1h1z;
323 double r1h2x,i1h2x,r1h2y,i1h2y,r1h2z,i1h2z;
327 temp =
S2iF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x)
328 +
S2iF12(cyy,r1h1y,i1h1y,r1h1y,i1h1y,r1h2y,i1h2y,r1h2y,i1h2y)
329 +
S2iF12(czz,r1h1z,i1h1z,r1h1z,i1h1z,r1h2z,i1h2z,r1h2z,i1h2z);
331 S2iF12(cxy,r1h1x,i1h1x,r1h1y,i1h1y,r1h2x,i1h2x,r1h2y,i1h2y)
332 +
S2iF12(cyz,r1h1y,i1h1y,r1h1z,i1h1z,r1h2y,i1h2y,r1h2z,i1h2z)
333 +
S2iF12(cxz,r1h1x,i1h1x,r1h1z,i1h1z,r1h2x,i1h2x,r1h2z,i1h2z);
351 temp =
S2v2F12(p->cxx,p->r1h1x, p->i1h1x,
352 p->r1h1x, p->i1h1x, p->r1h2x, p->i1h2x,
353 p->r1h2x, p->i1h2x, p->r2h11x, p->i2h11x,
354 p->r2h11x, p->i2h11x, p->h2f1f2x, p->ih2f1f2x,
355 p->h2f1f2x, p->ih2f1f2x);
356 temp +=
S2v2F12(p->cyy, p->r1h1y, p->i1h1y,
357 p->r1h1y, p->i1h1y, p->r1h2y, p->i1h2y,
358 p->r1h2y, p->i1h2y, p->r2h11y, p->i2h11y,
359 p->r2h11y, p->i2h11y, p->h2f1f2y, p->ih2f1f2y,
360 p->h2f1f2y, p->ih2f1f2y);
361 temp +=
S2v2F12(p->czz, p->r1h1z, p->i1h1z,
362 p->r1h1z, p->i1h1z, p->r1h2z, p->i1h2z,
363 p->r1h2z, p->i1h2z, p->r2h11z, p->i2h11z,
364 p->r2h11z, p->i2h11z, p->h2f1f2z, p->ih2f1f2z,
365 p->h2f1f2z, p->ih2f1f2z);
366 temp +=
S2v2F12(p->cxy, p->r1h1x, p->i1h1x,
367 p->r1h1y, p->i1h1y, p->r1h2x, p->i1h2x,
368 p->r1h2y, p->i1h2y, p->r2h11x, p->i2h11x,
369 p->r2h11y, p->i2h11y, p->h2f1f2x, p->ih2f1f2x,
370 p->h2f1f2y, p->ih2f1f2y);
371 temp +=
S2v2F12(p->cyz, p->r1h1y, p->i1h1y,
372 p->r1h1z, p->i1h1z, p->r1h2y, p->i1h2y,
373 p->r1h2z, p->i1h2z, p->r2h11y, p->i2h11y,
374 p->r2h11z, p->i2h11z, p->h2f1f2y, p->ih2f1f2y,
375 p->h2f1f2z, p->ih2f1f2z);
376 temp +=
S2v2F12(p->cxz, p->r1h1x, p->i1h1x,
377 p->r1h1z, p->i1h1z, p->r1h2x, p->i1h2x,
378 p->r1h2z, p->i1h2z, p->r2h11x, p->i2h11x,
379 p->r2h11z, p->i2h11z, p->h2f1f2x, p->ih2f1f2x,
380 p->h2f1f2z, p->ih2f1f2z);
381 temp +=
S3v2F12(p->cxxx, p->r1h1x,
382 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1x, p->i1h1x,
383 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x)
385 p->i1h1y, p->r1h1y, p->i1h1y, p->r1h1y, p->i1h1y,
386 p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y);
387 temp +=
S3v2F12(p->czzz, p->r1h1z,
388 p->i1h1z, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
389 p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z)
391 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1y, p->i1h1y,
392 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y);
393 temp +=
S3v2F12(p->cxxz,p->r1h1x,
394 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1z, p->i1h1z,
395 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2z, p->i1h2z)
397 p->i1h1x, p->r1h1y, p->i1h1y, p->r1h1y, p->i1h1y,
398 p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y);
399 temp +=
S3v2F12(p->cyyz, p->r1h1y,
400 p->i1h1y, p->r1h1y, p->i1h1y, p->r1h1z, p->i1h1z,
401 p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z)
403 p->i1h1x, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
404 p->r1h2x, p->i1h2x, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z);
405 temp +=
S3v2F12(p->cyzz, p->r1h1y,
406 p->i1h1y, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
407 p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z)
409 p->i1h1x, p->r1h1y, p->i1h1y, p->r1h1z, p->i1h1z,
410 p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z);
424 temp =
S2i2F12(p->cxx, p->r1h1x, p->i1h1x,
425 p->r1h1x, p->i1h1x, p->r1h2x, p->i1h2x,
426 p->r1h2x, p->i1h2x, p->r2h11x, p->i2h11x,
427 p->r2h11x, p->i2h11x, p->h2f1f2x, p->ih2f1f2x,
428 p->h2f1f2x, p->ih2f1f2x);
429 temp +=
S2i2F12(p->cyy, p->r1h1y, p->i1h1y,
430 p->r1h1y, p->i1h1y, p->r1h2y, p->i1h2y,
431 p->r1h2y, p->i1h2y, p->r2h11y, p->i2h11y,
432 p->r2h11y, p->i2h11y, p->h2f1f2y, p->ih2f1f2y,
433 p->h2f1f2y, p->ih2f1f2y);
434 temp +=
S2i2F12(p->czz, p->r1h1z, p->i1h1z,
435 p->r1h1z, p->i1h1z, p->r1h2z, p->i1h2z,
436 p->r1h2z, p->i1h2z, p->r2h11z, p->i2h11z,
437 p->r2h11z, p->i2h11z, p->h2f1f2z, p->ih2f1f2z,
438 p->h2f1f2z, p->ih2f1f2z);
439 temp +=
S2i2F12(p->cxy, p->r1h1x, p->i1h1x,
440 p->r1h1y, p->i1h1y, p->r1h2x, p->i1h2x,
441 p->r1h2y, p->i1h2y, p->r2h11x, p->i2h11x,
442 p->r2h11y, p->i2h11y, p->h2f1f2x, p->ih2f1f2x,
443 p->h2f1f2y, p->ih2f1f2y);
444 temp +=
S2i2F12(p->cyz, p->r1h1y, p->i1h1y,
445 p->r1h1z, p->i1h1z, p->r1h2y, p->i1h2y,
446 p->r1h2z, p->i1h2z, p->r2h11y, p->i2h11y,
447 p->r2h11z, p->i2h11z, p->h2f1f2y, p->ih2f1f2y,
448 p->h2f1f2z,p->ih2f1f2z);
449 temp +=
S2i2F12(p->cxz, p->r1h1x, p->i1h1x,
450 p->r1h1z, p->i1h1z, p->r1h2x, p->i1h2x,
451 p->r1h2z, p->i1h2z, p->r2h11x, p->i2h11x,
452 p->r2h11z, p->i2h11z, p->h2f1f2x, p->ih2f1f2x,
453 p->h2f1f2z, p->ih2f1f2z);
454 temp +=
S3i2F12(p->cxxx, p->r1h1x,
455 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1x, p->i1h1x,
456 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x);
457 temp +=
S3i2F12(p->cyyy, p->r1h1y,
458 p->i1h1y, p->r1h1y, p->i1h1y, p->r1h1y, p->i1h1y,
459 p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y)
461 p->i1h1z, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
462 p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z);
463 temp +=
S3i2F12(p->cxxy, p->r1h1x,
464 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1y, p->i1h1y,
465 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y)
467 p->i1h1x, p->r1h1x, p->i1h1x, p->r1h1z, p->i1h1z,
468 p->r1h2x, p->i1h2x, p->r1h2x, p->i1h2x, p->r1h2z, p->i1h2z);
469 temp +=
S3i2F12(p->cxyy, p->r1h1x,
470 p->i1h1x, p->r1h1y, p->i1h1y, p->r1h1y, p->i1h1y,
471 p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y)
473 p->i1h1y, p->r1h1y, p->i1h1y, p->r1h1z, p->i1h1z,
474 p->r1h2y, p->i1h2y, p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z);
475 temp +=
S3i2F12(p->cxzz, p->r1h1x,
476 p->i1h1x, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
477 p->r1h2x, p->i1h2x, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z);
478 temp +=
S3i2F12(p->cyzz, p->r1h1y,
479 p->i1h1y, p->r1h1z, p->i1h1z, p->r1h1z, p->i1h1z,
480 p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z, p->r1h2z, p->i1h2z)
482 p->i1h1x, p->r1h1y, p->i1h1y, p->r1h1z, p->i1h1z,
483 p->r1h2x, p->i1h2x, p->r1h2y, p->i1h2y, p->r1h2z, p->i1h2z);
498 temp =
S2v2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);
504 D1n3F1(cxx,cxxx,r1h1x,i1h1x,r2h11x,i2h11x)
508 double r2h11x,i2h11x;
512 temp =
S2v3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
513 +
S3v3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);
527 temp =
S2vF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);
533 D1n2F12(cxx,cxxx,r1h1x,i1h1x,r1h2x,i1h2x,r2h11x,i2h11x,h2f1f2x,ih2f1f2x)
538 double r2h11x,i2h11x;
539 double h2f1f2x,ih2f1f2x;
543 temp =
S2v2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x,
544 r2h11x,i2h11x,r2h11x,i2h11x,h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
545 +
S3v2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
546 r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
561 temp =
S2i2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);
567 D1i3F1(cxx,cxxx,r1h1x,i1h1x,r2h11x,i2h11x)
571 double r2h11x,i2h11x;
575 temp =
S2i3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
576 +
S3i3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);
591 temp =
S2iF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);
597 D1i2F12(cxx,cxxx,r1h1x,i1h1x,r1h2x,i1h2x,r2h11x,i2h11x,h2f1f2x,ih2f1f2x)
602 double r2h11x,i2h11x;
603 double h2f1f2x,ih2f1f2x;
607 temp =
S2i2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x,
608 r2h11x,i2h11x,r2h11x,i2h11x,h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
609 +
S3i2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
610 r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
double DFn3F1(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double cxxx, double cyyy, double czzz, double cxxy, double cxxz, double cxyy, double cyyz, double cxzz, double cyzz, double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r2h11x, double i2h11x, double r2h11y, double i2h11y, double r2h11z, double i2h11z)
double D1i2F1(double cxx, double r1h1x, double i1h1x)
double D1nF12(double cxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x)
double DFi3F1(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double cxxx, double cyyy, double czzz, double cxxy, double cxxz, double cxyy, double cyyz, double cxzz, double cyzz, double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r2h11x, double i2h11x, double r2h11y, double i2h11y, double r2h11z, double i2h11z)
double DFi2F1(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z)
double S3i2F12(double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r1h2z, double i1h2z)
double S3i3F1(double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z)
double D1n2F12(double cxx, double cxxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x, double r2h11x, double i2h11x, double h2f1f2x, double ih2f1f2x)
double S3v2F12(double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r1h2z, double i1h2z)
double D1i2F12(double cxx, double cxxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x, double r2h11x, double i2h11x, double h2f1f2x, double ih2f1f2x)
double DFnF12(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r1h2z, double i1h2z)
double S2i2F1(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y)
double DFiF12(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r1h2z, double i1h2z)
double S2iF12(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h2x, double i1h2x, double r1h2y, double i1h2y)
double D1n3F1(double cxx, double cxxx, double r1h1x, double i1h1x, double r2h11x, double i2h11x)
double DFi2F12(DpassStr *p)
double S2v2F12(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r2h11x, double i2h11x, double r2h11y, double i2h11y, double h2f1f2x, double ih2f1f2x, double h2f1f2y, double ih2f1f2y)
double S3v3F1(double cxyz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z)
double DFn2F12(DpassStr *p)
double S2i2F12(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h2x, double i1h2x, double r1h2y, double i1h2y, double r2h11x, double i2h11x, double r2h11y, double i2h11y, double h2f1f2x, double ih2f1f2x, double h2f1f2y, double ih2f1f2y)
double S2vF12(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h2x, double i1h2x, double r1h2y, double i1h2y)
double DFn2F1(double cxx, double cyy, double czz, double cxy, double cyz, double cxz, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r1h1z, double i1h1z)
double D1i3F1(double cxx, double cxxx, double r1h1x, double i1h1x, double r2h11x, double i2h11x)
double S2i3F1(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r2h11x, double i2h11x, double r2h11y, double i2h11y)
double S2v3F1(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y, double r2h11x, double i2h11x, double r2h11y, double i2h11y)
double D1n2F1(double cxx, double r1h1x, double i1h1x)
double S2v2F1(double cxy, double r1h1x, double i1h1x, double r1h1y, double i1h1y)
double D1iF12(double cxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x)