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