source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i0301.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: 12.1 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i0301(){
3/* the cost is 597 */
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;
77double t74;
78double t75;
79double t76;
80double t77;
81double t78;
82double t79;
83t1=int_v_zeta34*int_v_ooze;
84t2=int_v_oo2zeta12*t1;
85t1=(-1)*t2;
86double***restrictxx int_v_list0=int_v_list(0);
87double**restrictxx int_v_list00=int_v_list0[0];
88double*restrictxx int_v_list002=int_v_list00[2];
89t2=t1*int_v_list002[0];
90double*restrictxx int_v_list001=int_v_list00[1];
91t3=int_v_oo2zeta12*int_v_list001[0];
92t4=t3+t2;
93t2=int_v_W0-int_v_p120;
94double*restrictxx int_v_list003=int_v_list00[3];
95t3=t2*int_v_list003[0];
96t5=int_v_p120-int_v_r10;
97t6=t5*int_v_list002[0];
98t7=t6+t3;
99t3=t2*t7;
100t6=t3+t4;
101t3=t2*int_v_list002[0];
102t8=t5*int_v_list001[0];
103t9=t8+t3;
104t3=t5*t9;
105t8=t3+t6;
106t3=0.5*int_v_ooze;
107t6=t3*t8;
108t10=t3*int_v_list002[0];
109t11=int_v_W0-int_v_p340;
110t12=t11*int_v_list003[0];
111t13=int_v_p340-int_v_r30;
112t14=t13*int_v_list002[0];
113t15=t14+t12;
114t12=t2*t15;
115t14=t12+t10;
116t12=t11*int_v_list002[0];
117t16=t13*int_v_list001[0];
118t17=t16+t12;
119t12=t5*t17;
120t16=t12+t14;
121t12=2*int_v_ooze;
122t14=int_v_zeta34*t12;
123t18=int_v_oo2zeta12*t14;
124t14=(-1)*t18;
125t18=t14*t16;
126t19=t18+t6;
127t18=t3*int_v_list001[0];
128t20=t2*t17;
129t21=t20+t18;
130t20=t11*int_v_list001[0];
131double*restrictxx int_v_list000=int_v_list00[0];
132t22=t13*int_v_list000[0];
133t23=t22+t20;
134double**restrictxx int_v_list01=int_v_list0[1];
135double*restrictxx int_v_list010=int_v_list01[0];
136int_v_list010[2]=t23;
137t20=t5*t23;
138t22=t20+t21;
139double***restrictxx int_v_list1=int_v_list(1);
140double**restrictxx int_v_list11=int_v_list1[1];
141double*restrictxx int_v_list110=int_v_list11[0];
142int_v_list110[8]=t22;
143t20=int_v_oo2zeta12*2;
144t21=t20*t22;
145t24=t21+t19;
146t19=t3*t7;
147t21=t1*t15;
148t25=t21+t19;
149t26=int_v_oo2zeta12*t17;
150t27=t26+t25;
151t25=t3*int_v_list003[0];
152double*restrictxx int_v_list004=int_v_list00[4];
153t28=t11*int_v_list004[0];
154t29=t13*int_v_list003[0];
155t30=t29+t28;
156t28=t2*t30;
157t29=t28+t25;
158t28=t5*t15;
159t31=t28+t29;
160t28=t2*t31;
161t29=t28+t27;
162t27=t5*t16;
163t28=t27+t29;
164t27=t2*t28;
165t29=t27+t24;
166t24=t12*0.5;
167t12=t24*t9;
168t27=t11*t8;
169t32=t27+t12;
170t12=t1*int_v_list001[0];
171t27=int_v_oo2zeta12*int_v_list000[0];
172t33=t27+t12;
173t12=t2*t9;
174t27=t12+t33;
175t12=t2*int_v_list001[0];
176t34=t5*int_v_list000[0];
177t35=t34+t12;
178double**restrictxx int_v_list10=int_v_list1[0];
179double*restrictxx int_v_list100=int_v_list10[0];
180int_v_list100[2]=t35;
181t12=t5*t35;
182t34=t12+t27;
183double***restrictxx int_v_list2=int_v_list(2);
184double**restrictxx int_v_list20=int_v_list2[0];
185double*restrictxx int_v_list200=int_v_list20[0];
186int_v_list200[5]=t34;
187t12=t13*t34;
188t27=t12+t32;
189double**restrictxx int_v_list21=int_v_list2[1];
190double*restrictxx int_v_list210=int_v_list21[0];
191int_v_list210[17]=t27;
192t12=t5*t27;
193t32=t12+t29;
194double***restrictxx int_v_list3=int_v_list(3);
195double**restrictxx int_v_list31=int_v_list3[1];
196double*restrictxx int_v_list310=int_v_list31[0];
197int_v_list310[29]=t32;
198t12=int_v_W2-int_v_p342;
199t29=t12*int_v_list003[0];
200t36=int_v_p342-int_v_r32;
201t37=t36*int_v_list002[0];
202t38=t37+t29;
203t29=t2*t38;
204t37=t12*int_v_list002[0];
205t39=t36*int_v_list001[0];
206t40=t39+t37;
207t37=t5*t40;
208t39=t37+t29;
209t29=t14*t39;
210t37=t2*t40;
211t41=t12*int_v_list001[0];
212t42=t36*int_v_list000[0];
213t43=t42+t41;
214int_v_list010[1]=t43;
215t41=t5*t43;
216t42=t41+t37;
217int_v_list110[7]=t42;
218t37=t20*t42;
219t41=t37+t29;
220t29=t1*t38;
221t37=int_v_oo2zeta12*t40;
222t44=t37+t29;
223t45=t12*int_v_list004[0];
224t46=t36*int_v_list003[0];
225t47=t46+t45;
226t45=t2*t47;
227t46=t5*t38;
228t48=t46+t45;
229t45=t2*t48;
230t46=t45+t44;
231t45=t5*t39;
232t49=t45+t46;
233t45=t2*t49;
234t46=t45+t41;
235t41=t12*t8;
236t45=t36*t34;
237t50=t45+t41;
238int_v_list210[16]=t50;
239t41=t5*t50;
240t45=t41+t46;
241int_v_list310[28]=t45;
242t41=int_v_W1-int_v_p341;
243t46=t41*int_v_list003[0];
244t51=int_v_p341-int_v_r31;
245t52=t51*int_v_list002[0];
246t53=t52+t46;
247t46=t2*t53;
248t52=t41*int_v_list002[0];
249t54=t51*int_v_list001[0];
250t55=t54+t52;
251t52=t5*t55;
252t54=t52+t46;
253t46=t14*t54;
254t52=t2*t55;
255t56=t41*int_v_list001[0];
256t57=t51*int_v_list000[0];
257t58=t57+t56;
258int_v_list010[0]=t58;
259t56=t5*t58;
260t57=t56+t52;
261int_v_list110[6]=t57;
262t52=t20*t57;
263t56=t52+t46;
264t46=t1*t53;
265t52=int_v_oo2zeta12*t55;
266t59=t52+t46;
267t60=t41*int_v_list004[0];
268t61=t51*int_v_list003[0];
269t62=t61+t60;
270t60=t2*t62;
271t61=t5*t53;
272t63=t61+t60;
273t60=t2*t63;
274t61=t60+t59;
275t60=t5*t54;
276t64=t60+t61;
277t60=t2*t64;
278t61=t60+t56;
279t56=t41*t8;
280t60=t51*t34;
281t65=t60+t56;
282int_v_list210[15]=t65;
283t56=t5*t65;
284t60=t56+t61;
285int_v_list310[27]=t60;
286t56=int_v_W2-int_v_p122;
287t61=t56*t28;
288t66=int_v_p122-int_v_r12;
289t67=t66*t27;
290t68=t67+t61;
291int_v_list310[26]=t68;
292t61=t56*t49;
293t67=t6+t61;
294t61=t66*t50;
295t69=t61+t67;
296int_v_list310[25]=t69;
297t61=t56*t64;
298t67=t66*t65;
299t70=t67+t61;
300int_v_list310[24]=t70;
301t61=int_v_W1-int_v_p121;
302t67=t28*t61;
303t28=int_v_p121-int_v_r11;
304t71=t28*t27;
305t27=t71+t67;
306int_v_list310[23]=t27;
307t67=t61*t49;
308t49=t28*t50;
309t50=t49+t67;
310int_v_list310[22]=t50;
311t49=t61*t64;
312t64=t6+t49;
313t6=t28*t65;
314t49=t6+t64;
315int_v_list310[21]=t49;
316t6=t1*t16;
317t64=int_v_oo2zeta12*t22;
318t65=t64+t6;
319t6=t56*t31;
320t64=t66*t16;
321t67=t64+t6;
322t6=t56*t67;
323t64=t6+t65;
324t6=t56*t16;
325t67=t66*t22;
326t71=t67+t6;
327int_v_list210[14]=t71;
328t6=t66*t71;
329t67=t6+t64;
330int_v_list310[20]=t67;
331t6=t56*t7;
332t64=t66*t9;
333t71=t64+t6;
334t6=t3*t71;
335t64=t1*t39;
336t72=t64+t6;
337t6=int_v_oo2zeta12*t42;
338t73=t6+t72;
339t72=t56*t48;
340t74=t19+t72;
341t72=t66*t39;
342t75=t72+t74;
343t72=t56*t75;
344t74=t72+t73;
345t72=t56*t39;
346t73=t3*t9;
347t75=t73+t72;
348t72=t66*t42;
349t76=t72+t75;
350int_v_list210[13]=t76;
351t72=t66*t76;
352t75=t72+t74;
353int_v_list310[19]=t75;
354t72=t1*t54;
355t74=int_v_oo2zeta12*t57;
356t76=t74+t72;
357t77=t56*t63;
358t78=t66*t54;
359t79=t78+t77;
360t77=t56*t79;
361t78=t77+t76;
362t76=t56*t54;
363t77=t66*t57;
364t79=t77+t76;
365int_v_list210[12]=t79;
366t76=t66*t79;
367t77=t76+t78;
368int_v_list310[18]=t77;
369t76=t61*t31;
370t31=t28*t16;
371t78=t31+t76;
372t31=t56*t78;
373t76=t61*t16;
374t16=t28*t22;
375t22=t16+t76;
376int_v_list210[11]=t22;
377t16=t66*t22;
378t76=t16+t31;
379int_v_list310[17]=t76;
380t16=t61*t7;
381t7=t28*t9;
382t31=t7+t16;
383t7=t3*t31;
384t16=t61*t48;
385t48=t28*t39;
386t79=t48+t16;
387t16=t56*t79;
388t48=t16+t7;
389t16=t61*t39;
390t39=t28*t42;
391t42=t39+t16;
392int_v_list210[10]=t42;
393t16=t66*t42;
394t39=t16+t48;
395int_v_list310[16]=t39;
396t16=t61*t63;
397t48=t19+t16;
398t16=t28*t54;
399t19=t16+t48;
400t16=t56*t19;
401t48=t61*t54;
402t54=t73+t48;
403t48=t28*t57;
404t57=t48+t54;
405int_v_list210[9]=t57;
406t48=t66*t57;
407t54=t48+t16;
408int_v_list310[15]=t54;
409t16=t61*t78;
410t48=t65+t16;
411t16=t28*t22;
412t22=t16+t48;
413int_v_list310[14]=t22;
414t16=t6+t64;
415t6=t61*t79;
416t48=t6+t16;
417t6=t28*t42;
418t16=t6+t48;
419int_v_list310[13]=t16;
420t6=t72+t7;
421t7=t74+t6;
422t6=t61*t19;
423t19=t6+t7;
424t6=t28*t57;
425t7=t6+t19;
426int_v_list310[12]=t7;
427t6=t56*t15;
428t19=t66*t17;
429t42=t19+t6;
430t6=t14*t42;
431t19=t56*t17;
432t48=t66*t23;
433t57=t48+t19;
434int_v_list110[5]=t57;
435t19=t20*t57;
436t48=t19+t6;
437t6=t26+t21;
438t19=t56*t30;
439t21=t66*t15;
440t26=t21+t19;
441t19=t56*t26;
442t21=t19+t6;
443t19=t66*t42;
444t26=t19+t21;
445t19=t56*t26;
446t21=t19+t48;
447t19=t56*int_v_list003[0];
448t26=t66*int_v_list002[0];
449t42=t26+t19;
450t19=t56*t42;
451t26=t4+t19;
452t19=t56*int_v_list002[0];
453t48=t66*int_v_list001[0];
454t57=t48+t19;
455t19=t66*t57;
456t48=t19+t26;
457t19=t11*t48;
458t26=t56*t57;
459t63=t33+t26;
460t26=t56*int_v_list001[0];
461t64=t66*int_v_list000[0];
462t65=t64+t26;
463int_v_list100[1]=t65;
464t26=t66*t65;
465t64=t26+t63;
466int_v_list200[2]=t64;
467t26=t13*t64;
468t63=t26+t19;
469int_v_list210[8]=t63;
470t19=t66*t63;
471t26=t19+t21;
472int_v_list310[11]=t26;
473t19=t56*t38;
474t21=t10+t19;
475t19=t66*t40;
476t63=t19+t21;
477t19=t14*t63;
478t21=t3*t48;
479t72=t21+t19;
480t19=t56*t40;
481t21=t18+t19;
482t19=t66*t43;
483t73=t19+t21;
484int_v_list110[4]=t73;
485t19=t20*t73;
486t21=t19+t72;
487t19=t3*t42;
488t42=t29+t19;
489t19=t37+t42;
490t29=t56*t47;
491t37=t25+t29;
492t29=t66*t38;
493t42=t29+t37;
494t29=t56*t42;
495t37=t29+t19;
496t19=t66*t63;
497t29=t19+t37;
498t19=t56*t29;
499t29=t19+t21;
500t19=t24*t57;
501t21=t12*t48;
502t37=t21+t19;
503t19=t36*t64;
504t21=t19+t37;
505int_v_list210[7]=t21;
506t19=t66*t21;
507t21=t19+t29;
508int_v_list310[10]=t21;
509t19=t56*t53;
510t29=t66*t55;
511t37=t29+t19;
512t19=t14*t37;
513t29=t56*t55;
514t42=t66*t58;
515t63=t42+t29;
516int_v_list110[3]=t63;
517t29=t20*t63;
518t42=t29+t19;
519t19=t56*t62;
520t29=t66*t53;
521t63=t29+t19;
522t19=t56*t63;
523t29=t59+t19;
524t19=t66*t37;
525t37=t19+t29;
526t19=t56*t37;
527t29=t19+t42;
528t19=t41*t48;
529t37=t51*t64;
530t42=t37+t19;
531int_v_list210[6]=t42;
532t19=t66*t42;
533t37=t19+t29;
534int_v_list310[9]=t37;
535t19=t61*t15;
536t29=t28*t17;
537t42=t29+t19;
538t19=t1*t42;
539t29=t61*t17;
540t17=t28*t23;
541t23=t17+t29;
542int_v_list110[2]=t23;
543t17=int_v_oo2zeta12*t23;
544t29=t17+t19;
545t17=t61*t30;
546t19=t28*t15;
547t15=t19+t17;
548t17=t56*t15;
549t19=t66*t42;
550t30=t19+t17;
551t17=t56*t30;
552t19=t17+t29;
553t17=t56*t42;
554t29=t66*t23;
555t30=t29+t17;
556int_v_list210[5]=t30;
557t17=t66*t30;
558t29=t17+t19;
559int_v_list310[8]=t29;
560t17=t61*t38;
561t19=t28*t40;
562t30=t19+t17;
563t17=t1*t30;
564t19=t61*int_v_list003[0];
565t59=t28*int_v_list002[0];
566t63=t59+t19;
567t19=t56*t63;
568t59=t61*int_v_list002[0];
569t72=t28*int_v_list001[0];
570t73=t72+t59;
571t59=t66*t73;
572t72=t59+t19;
573t19=t3*t72;
574t59=t19+t17;
575t17=t61*t40;
576t19=t28*t43;
577t40=t19+t17;
578int_v_list110[1]=t40;
579t17=int_v_oo2zeta12*t40;
580t19=t17+t59;
581t17=t61*t47;
582t43=t28*t38;
583t38=t43+t17;
584t17=t56*t38;
585t43=t3*t63;
586t47=t43+t17;
587t17=t66*t30;
588t59=t17+t47;
589t17=t56*t59;
590t47=t17+t19;
591t17=t56*t30;
592t19=t3*t73;
593t59=t19+t17;
594t17=t66*t40;
595t19=t17+t59;
596int_v_list210[4]=t19;
597t17=t66*t19;
598t19=t17+t47;
599int_v_list310[7]=t19;
600t17=t61*t53;
601t47=t10+t17;
602t10=t28*t55;
603t17=t10+t47;
604t10=t1*t17;
605t47=t61*t55;
606t55=t18+t47;
607t18=t28*t58;
608t47=t18+t55;
609int_v_list110[0]=t47;
610t18=int_v_oo2zeta12*t47;
611t55=t18+t10;
612t10=t61*t62;
613t18=t25+t10;
614t10=t28*t53;
615t25=t10+t18;
616t10=t56*t25;
617t18=t66*t17;
618t53=t18+t10;
619t10=t56*t53;
620t18=t10+t55;
621t10=t56*t17;
622t53=t66*t47;
623t55=t53+t10;
624int_v_list210[3]=t55;
625t10=t66*t55;
626t53=t10+t18;
627int_v_list310[6]=t53;
628t10=t61*t15;
629t15=t6+t10;
630t6=t28*t42;
631t10=t6+t15;
632t6=t56*t10;
633t15=t61*t63;
634t18=t4+t15;
635t4=t28*t73;
636t15=t4+t18;
637t4=t11*t15;
638t11=t61*t73;
639t18=t33+t11;
640t11=t61*int_v_list001[0];
641t33=t28*int_v_list000[0];
642t55=t33+t11;
643int_v_list100[0]=t55;
644t11=t28*t55;
645t33=t11+t18;
646int_v_list200[0]=t33;
647t11=t13*t33;
648t13=t11+t4;
649int_v_list210[2]=t13;
650t4=t66*t13;
651t11=t4+t6;
652int_v_list310[5]=t11;
653t4=t61*t38;
654t6=t44+t4;
655t4=t28*t30;
656t18=t4+t6;
657t4=t56*t18;
658t6=t3*t15;
659t3=t6+t4;
660t4=t12*t15;
661t12=t36*t33;
662t36=t12+t4;
663int_v_list210[1]=t36;
664t4=t66*t36;
665t12=t4+t3;
666int_v_list310[4]=t12;
667t3=t46+t43;
668t4=t52+t3;
669t3=t61*t25;
670t25=t3+t4;
671t3=t28*t17;
672t4=t3+t25;
673t3=t56*t4;
674t25=t24*t73;
675t24=t41*t15;
676t38=t24+t25;
677t24=t51*t33;
678t25=t24+t38;
679int_v_list210[0]=t25;
680t24=t66*t25;
681t38=t24+t3;
682int_v_list310[3]=t38;
683t3=t14*t42;
684t24=t20*t23;
685t23=t24+t3;
686t3=t61*t10;
687t10=t3+t23;
688t3=t28*t13;
689t13=t3+t10;
690int_v_list310[2]=t13;
691t3=t14*t30;
692t10=t20*t40;
693t23=t10+t3;
694t3=t61*t18;
695t10=t3+t23;
696t3=t28*t36;
697t18=t3+t10;
698int_v_list310[1]=t18;
699t3=t14*t17;
700t10=t6+t3;
701t3=t20*t47;
702t6=t3+t10;
703t3=t61*t4;
704t4=t3+t6;
705t3=t28*t25;
706t6=t3+t4;
707int_v_list310[0]=t6;
708t3=t14*t9;
709t4=t20*t35;
710t10=t4+t3;
711t3=t2*t8;
712t2=t3+t10;
713t3=t5*t34;
714t4=t3+t2;
715double**restrictxx int_v_list30=int_v_list3[0];
716double*restrictxx int_v_list300=int_v_list30[0];
717int_v_list300[9]=t4;
718t2=t56*t8;
719t3=t66*t34;
720t5=t3+t2;
721int_v_list300[8]=t5;
722t2=t61*t8;
723t3=t28*t34;
724t8=t3+t2;
725int_v_list300[7]=t8;
726t2=t1*t9;
727t3=int_v_oo2zeta12*t35;
728t10=t3+t2;
729t2=t56*t71;
730t3=t2+t10;
731t2=t56*t9;
732t17=t66*t35;
733t23=t17+t2;
734int_v_list200[4]=t23;
735t2=t66*t23;
736t17=t2+t3;
737int_v_list300[6]=t17;
738t2=t56*t31;
739t3=t61*t9;
740t9=t28*t35;
741t23=t9+t3;
742int_v_list200[3]=t23;
743t3=t66*t23;
744t9=t3+t2;
745int_v_list300[5]=t9;
746t2=t61*t31;
747t3=t10+t2;
748t2=t28*t23;
749t10=t2+t3;
750int_v_list300[4]=t10;
751t2=t14*t57;
752t3=t20*t65;
753t23=t3+t2;
754t2=t56*t48;
755t3=t2+t23;
756t2=t66*t64;
757t23=t2+t3;
758int_v_list300[3]=t23;
759t2=t1*t73;
760t1=int_v_oo2zeta12*t55;
761t3=t1+t2;
762t1=t56*t72;
763t2=t1+t3;
764t1=t56*t73;
765t3=t66*t55;
766t24=t3+t1;
767int_v_list200[1]=t24;
768t1=t66*t24;
769t3=t1+t2;
770int_v_list300[2]=t3;
771t1=t56*t15;
772t2=t66*t33;
773t24=t2+t1;
774int_v_list300[1]=t24;
775t1=t14*t73;
776t2=t20*t55;
777t14=t2+t1;
778t1=t61*t15;
779t2=t1+t14;
780t1=t28*t33;
781t14=t1+t2;
782int_v_list300[0]=t14;
783return 1;}
Note: See TracBrowser for help on using the repository browser.