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