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