source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i0301AB.cc

Candidate_v1.6.1
Last change on this file was 860145, checked in by Frederik Heber <heber@…>, 8 years ago

Merge commit '0b990dfaa8c6007a996d030163a25f7f5fc8a7e7' as 'ThirdParty/mpqc_open'

  • Property mode set to 100644
File size: 9.1 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i0301eAB(){
3/* the cost is 364 */
4double t1;
5double t2;
6double t3;
7double t4;
8double t5;
9double t6;
10double t7;
11double t8;
12double t9;
13double t10;
14double t11;
15double t12;
16double t13;
17double t14;
18double t15;
19double t16;
20double t17;
21double t18;
22double t19;
23double t20;
24double t21;
25double t22;
26double t23;
27double t24;
28double t25;
29double t26;
30double t27;
31double t28;
32double t29;
33double t30;
34double t31;
35double t32;
36double t33;
37double t34;
38double t35;
39double t36;
40double t37;
41double t38;
42double t39;
43double t40;
44double t41;
45double t42;
46double t43;
47double t44;
48double t45;
49double t46;
50double t47;
51double t48;
52double t49;
53double t50;
54double t51;
55double t52;
56double t53;
57double t54;
58double t55;
59double t56;
60double t57;
61double t58;
62double t59;
63double t60;
64double t61;
65double t62;
66double t63;
67double t64;
68double t65;
69double t66;
70double t67;
71double t68;
72double t69;
73double t70;
74double t71;
75double t72;
76double t73;
77t1=int_v_zeta34*int_v_ooze;
78t2=int_v_oo2zeta12*t1;
79t1=(-1)*t2;
80double***restrictxx int_v_list0=int_v_list(0);
81double**restrictxx int_v_list00=int_v_list0[0];
82double*restrictxx int_v_list002=int_v_list00[2];
83t2=t1*int_v_list002[0];
84double*restrictxx int_v_list001=int_v_list00[1];
85t3=int_v_oo2zeta12*int_v_list001[0];
86t4=t3+t2;
87t2=int_v_W0-int_v_p120;
88double*restrictxx int_v_list003=int_v_list00[3];
89t3=t2*int_v_list003[0];
90t5=t2*t3;
91t6=t5+t4;
92t5=0.5*int_v_ooze;
93t7=t5*t6;
94t8=t5*int_v_list002[0];
95t9=int_v_W0-int_v_p340;
96t10=t9*int_v_list003[0];
97t11=int_v_p340-int_v_r30;
98t12=t11*int_v_list002[0];
99t13=t12+t10;
100t10=t2*t13;
101t12=t10+t8;
102t10=2*int_v_ooze;
103t14=int_v_zeta34*t10;
104t10=int_v_oo2zeta12*t14;
105t14=(-1)*t10;
106t10=t14*t12;
107t15=t10+t7;
108t10=t5*int_v_list001[0];
109t16=t9*int_v_list002[0];
110t17=t11*int_v_list001[0];
111t18=t17+t16;
112t16=t2*t18;
113t17=t16+t10;
114double***restrictxx int_v_list1=int_v_list(1);
115double**restrictxx int_v_list11=int_v_list1[1];
116double*restrictxx int_v_list110=int_v_list11[0];
117int_v_list110[8]=t17;
118t16=int_v_oo2zeta12*2;
119t19=t16*t17;
120t20=t19+t15;
121t15=t5*t3;
122t19=t1*t13;
123t21=t19+t15;
124t22=int_v_oo2zeta12*t18;
125t23=t22+t21;
126t21=t5*int_v_list003[0];
127double*restrictxx int_v_list004=int_v_list00[4];
128t24=t9*int_v_list004[0];
129t25=t11*int_v_list003[0];
130t26=t25+t24;
131t24=t2*t26;
132t25=t24+t21;
133t24=t2*t25;
134t27=t24+t23;
135t23=t2*t27;
136t24=t23+t20;
137double***restrictxx int_v_list3=int_v_list(3);
138double**restrictxx int_v_list31=int_v_list3[1];
139double*restrictxx int_v_list310=int_v_list31[0];
140int_v_list310[29]=t24;
141t20=int_v_W2-int_v_p342;
142t23=t20*int_v_list003[0];
143t28=int_v_p342-int_v_r32;
144t29=t28*int_v_list002[0];
145t30=t29+t23;
146t23=t2*t30;
147t29=t14*t23;
148t31=t20*int_v_list002[0];
149t32=t28*int_v_list001[0];
150t33=t32+t31;
151t31=t2*t33;
152int_v_list110[7]=t31;
153t32=t16*t31;
154t34=t32+t29;
155t29=t1*t30;
156t32=int_v_oo2zeta12*t33;
157t35=t32+t29;
158t36=t20*int_v_list004[0];
159t37=t28*int_v_list003[0];
160t38=t37+t36;
161t36=t2*t38;
162t37=t2*t36;
163t39=t37+t35;
164t37=t2*t39;
165t40=t37+t34;
166int_v_list310[28]=t40;
167t34=int_v_W1-int_v_p341;
168t37=t34*int_v_list003[0];
169t41=int_v_p341-int_v_r31;
170t42=t41*int_v_list002[0];
171t43=t42+t37;
172t37=t2*t43;
173t42=t14*t37;
174t44=t34*int_v_list002[0];
175t45=t41*int_v_list001[0];
176t46=t45+t44;
177t44=t2*t46;
178int_v_list110[6]=t44;
179t45=t16*t44;
180t47=t45+t42;
181t42=t1*t43;
182t45=int_v_oo2zeta12*t46;
183t48=t45+t42;
184t49=t34*int_v_list004[0];
185t50=t41*int_v_list003[0];
186t51=t50+t49;
187t49=t2*t51;
188t50=t2*t49;
189t52=t50+t48;
190t50=t2*t52;
191t53=t50+t47;
192int_v_list310[27]=t53;
193t47=int_v_W2-int_v_p122;
194t50=t47*t27;
195int_v_list310[26]=t50;
196t54=t47*t39;
197t55=t7+t54;
198int_v_list310[25]=t55;
199t54=t47*t52;
200int_v_list310[24]=t54;
201t56=int_v_W1-int_v_p121;
202t57=t27*t56;
203int_v_list310[23]=t57;
204t27=t56*t39;
205int_v_list310[22]=t27;
206t39=t56*t52;
207t52=t7+t39;
208int_v_list310[21]=t52;
209t7=t1*t12;
210t39=int_v_oo2zeta12*t17;
211t17=t39+t7;
212t7=t47*t25;
213t39=t47*t7;
214t7=t39+t17;
215int_v_list310[20]=t7;
216t39=t47*t3;
217t58=t5*t39;
218t59=t1*t23;
219t60=t59+t58;
220t58=int_v_oo2zeta12*t31;
221t31=t58+t60;
222t60=t47*t36;
223t61=t15+t60;
224t60=t47*t61;
225t61=t60+t31;
226int_v_list310[19]=t61;
227t31=t1*t37;
228t60=int_v_oo2zeta12*t44;
229t44=t60+t31;
230t62=t47*t49;
231t63=t47*t62;
232t62=t63+t44;
233int_v_list310[18]=t62;
234t44=t56*t25;
235t25=t47*t44;
236int_v_list310[17]=t25;
237t63=t56*t3;
238t3=t5*t63;
239t64=t56*t36;
240t36=t47*t64;
241t65=t36+t3;
242int_v_list310[16]=t65;
243t36=t56*t49;
244t49=t15+t36;
245t15=t47*t49;
246int_v_list310[15]=t15;
247t36=t56*t44;
248t44=t17+t36;
249int_v_list310[14]=t44;
250t17=t58+t59;
251t36=t56*t64;
252t58=t36+t17;
253int_v_list310[13]=t58;
254t17=t31+t3;
255t3=t60+t17;
256t17=t56*t49;
257t31=t17+t3;
258int_v_list310[12]=t31;
259t3=t47*t13;
260t17=t14*t3;
261t36=t47*t18;
262int_v_list110[5]=t36;
263t49=t16*t36;
264t36=t49+t17;
265t17=t22+t19;
266t19=t47*t26;
267t22=t47*t19;
268t19=t22+t17;
269t22=t47*t19;
270t19=t22+t36;
271int_v_list310[11]=t19;
272t22=t47*t30;
273t36=t8+t22;
274t22=t14*t36;
275t49=t47*int_v_list003[0];
276t59=t47*t49;
277t60=t4+t59;
278t59=t5*t60;
279t64=t59+t22;
280t22=t47*t33;
281t59=t10+t22;
282int_v_list110[4]=t59;
283t22=t16*t59;
284t59=t22+t64;
285t22=t5*t49;
286t49=t29+t22;
287t22=t32+t49;
288t29=t47*t38;
289t32=t21+t29;
290t29=t47*t32;
291t32=t29+t22;
292t22=t47*t32;
293t29=t22+t59;
294int_v_list310[10]=t29;
295t22=t47*t43;
296t32=t14*t22;
297t49=t47*t46;
298int_v_list110[3]=t49;
299t59=t16*t49;
300t49=t59+t32;
301t32=t47*t51;
302t59=t47*t32;
303t32=t48+t59;
304t48=t47*t32;
305t32=t48+t49;
306int_v_list310[9]=t32;
307t48=t56*t13;
308t13=t1*t48;
309t49=t56*t18;
310int_v_list110[2]=t49;
311t59=int_v_oo2zeta12*t49;
312t64=t59+t13;
313t13=t56*t26;
314t26=t47*t13;
315t59=t47*t26;
316t26=t59+t64;
317int_v_list310[8]=t26;
318t59=t56*t30;
319t30=t1*t59;
320t64=t56*int_v_list003[0];
321t66=t47*t64;
322t67=t5*t66;
323t68=t67+t30;
324t30=t56*t33;
325int_v_list110[1]=t30;
326t67=int_v_oo2zeta12*t30;
327t69=t67+t68;
328t67=t56*t38;
329t38=t47*t67;
330t68=t5*t64;
331t70=t68+t38;
332t38=t47*t70;
333t70=t38+t69;
334int_v_list310[7]=t70;
335t38=t56*t43;
336t43=t8+t38;
337t8=t1*t43;
338t38=t56*t46;
339t69=t10+t38;
340int_v_list110[0]=t69;
341t10=int_v_oo2zeta12*t69;
342t38=t10+t8;
343t8=t56*t51;
344t10=t21+t8;
345t8=t47*t10;
346t21=t47*t8;
347t8=t21+t38;
348int_v_list310[6]=t8;
349t21=t56*t13;
350t13=t17+t21;
351t17=t47*t13;
352int_v_list310[5]=t17;
353t21=t56*t67;
354t38=t35+t21;
355t21=t47*t38;
356t35=t56*t64;
357t51=t4+t35;
358t4=t5*t51;
359t35=t4+t21;
360int_v_list310[4]=t35;
361t21=t42+t68;
362t42=t45+t21;
363t21=t56*t10;
364t10=t21+t42;
365t21=t47*t10;
366int_v_list310[3]=t21;
367t42=t14*t48;
368t45=t16*t49;
369t49=t45+t42;
370t42=t56*t13;
371t13=t42+t49;
372int_v_list310[2]=t13;
373t42=t14*t59;
374t45=t16*t30;
375t30=t45+t42;
376t42=t56*t38;
377t38=t42+t30;
378int_v_list310[1]=t38;
379t30=t14*t43;
380t42=t4+t30;
381t4=t16*t69;
382t30=t4+t42;
383t4=t56*t10;
384t10=t4+t30;
385int_v_list310[0]=t10;
386t4=t2*int_v_list002[0];
387t30=t14*t4;
388t42=t2*int_v_list001[0];
389double**restrictxx int_v_list10=int_v_list1[0];
390double*restrictxx int_v_list100=int_v_list10[0];
391int_v_list100[2]=t42;
392t45=t16*t42;
393t49=t45+t30;
394t30=t2*t6;
395t45=t30+t49;
396double**restrictxx int_v_list30=int_v_list3[0];
397double*restrictxx int_v_list300=int_v_list30[0];
398int_v_list300[9]=t45;
399t30=t47*t6;
400int_v_list300[8]=t30;
401t49=t56*t6;
402int_v_list300[7]=t49;
403t6=t1*t4;
404t64=int_v_oo2zeta12*t42;
405t42=t64+t6;
406t6=t47*t39;
407t39=t6+t42;
408int_v_list300[6]=t39;
409t6=t47*t63;
410int_v_list300[5]=t6;
411t64=t56*t63;
412t63=t42+t64;
413int_v_list300[4]=t63;
414t42=t47*int_v_list002[0];
415t64=t14*t42;
416t67=t47*int_v_list001[0];
417int_v_list100[1]=t67;
418t68=t16*t67;
419t67=t68+t64;
420t64=t47*t60;
421t60=t64+t67;
422int_v_list300[3]=t60;
423t64=t56*int_v_list002[0];
424t67=t1*t64;
425t68=t56*int_v_list001[0];
426int_v_list100[0]=t68;
427t69=int_v_oo2zeta12*t68;
428t71=t69+t67;
429t67=t47*t66;
430t66=t67+t71;
431int_v_list300[2]=t66;
432t67=t47*t51;
433int_v_list300[1]=t67;
434t69=t14*t64;
435t14=t16*t68;
436t16=t14+t69;
437t14=t56*t51;
438t51=t14+t16;
439int_v_list300[0]=t51;
440t14=t5*t4;
441t16=t1*t18;
442t18=t16+t14;
443t68=t9*int_v_list001[0];
444double*restrictxx int_v_list000=int_v_list00[0];
445t9=t11*int_v_list000[0];
446t11=t9+t68;
447double**restrictxx int_v_list01=int_v_list0[1];
448double*restrictxx int_v_list010=int_v_list01[0];
449int_v_list010[2]=t11;
450t9=int_v_oo2zeta12*t11;
451t11=t9+t18;
452t18=t2*t12;
453t68=t18+t11;
454double***restrictxx int_v_list2=int_v_list(2);
455double**restrictxx int_v_list21=int_v_list2[1];
456double*restrictxx int_v_list210=int_v_list21[0];
457int_v_list210[17]=t68;
458t11=t1*t33;
459t18=t20*int_v_list001[0];
460t20=t28*int_v_list000[0];
461t28=t20+t18;
462int_v_list010[1]=t28;
463t18=int_v_oo2zeta12*t28;
464t20=t18+t11;
465t28=t2*t23;
466t33=t28+t20;
467int_v_list210[16]=t33;
468t28=t1*t46;
469t46=t34*int_v_list001[0];
470t34=t41*int_v_list000[0];
471t41=t34+t46;
472int_v_list010[0]=t41;
473t34=int_v_oo2zeta12*t41;
474t41=t34+t28;
475t46=t2*t37;
476t69=t46+t41;
477int_v_list210[15]=t69;
478t46=t47*t12;
479int_v_list210[14]=t46;
480t71=t47*t23;
481t72=t14+t71;
482int_v_list210[13]=t72;
483t71=t47*t37;
484int_v_list210[12]=t71;
485t73=t56*t12;
486int_v_list210[11]=t73;
487t12=t56*t23;
488int_v_list210[10]=t12;
489t23=t56*t37;
490t37=t14+t23;
491int_v_list210[9]=t37;
492t14=t9+t16;
493t9=t47*t3;
494t3=t9+t14;
495int_v_list210[8]=t3;
496t9=t5*t42;
497t16=t11+t9;
498t9=t18+t16;
499t11=t47*t36;
500t16=t11+t9;
501int_v_list210[7]=t16;
502t9=t47*t22;
503t11=t41+t9;
504int_v_list210[6]=t11;
505t9=t47*t48;
506int_v_list210[5]=t9;
507t18=t47*t59;
508t22=t5*t64;
509t5=t22+t18;
510int_v_list210[4]=t5;
511t18=t47*t43;
512int_v_list210[3]=t18;
513t23=t56*t48;
514t36=t14+t23;
515int_v_list210[2]=t36;
516t14=t56*t59;
517t23=t20+t14;
518int_v_list210[1]=t23;
519t14=t28+t22;
520t20=t34+t14;
521t14=t56*t43;
522t22=t14+t20;
523int_v_list210[0]=t22;
524t14=t1*int_v_list001[0];
525t1=int_v_oo2zeta12*int_v_list000[0];
526t20=t1+t14;
527t1=t2*t4;
528t2=t1+t20;
529double**restrictxx int_v_list20=int_v_list2[0];
530double*restrictxx int_v_list200=int_v_list20[0];
531int_v_list200[5]=t2;
532t1=t47*t4;
533int_v_list200[4]=t1;
534t14=t56*t4;
535int_v_list200[3]=t14;
536t4=t47*t42;
537t28=t20+t4;
538int_v_list200[2]=t28;
539t4=t47*t64;
540int_v_list200[1]=t4;
541t34=t56*t64;
542t41=t20+t34;
543int_v_list200[0]=t41;
544return 1;}
Note: See TracBrowser for help on using the repository browser.