source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i2211AB.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: 2.9 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i2211eAB(){
3/* the cost is 104 */
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;
31t1=int_v_W0-int_v_p120;
32double***restrictxx int_v_list0=int_v_list(0);
33double**restrictxx int_v_list00=int_v_list0[0];
34double*restrictxx int_v_list002=int_v_list00[2];
35t2=t1*int_v_list002[0];
36t3=0.5*int_v_ooze;
37t4=t3*t2;
38t2=int_v_W0-int_v_p340;
39t5=t2*int_v_list002[0];
40t6=int_v_p340-int_v_r30;
41double*restrictxx int_v_list001=int_v_list00[1];
42t7=t6*int_v_list001[0];
43t8=t7+t5;
44t5=int_v_zeta34*int_v_ooze;
45t7=int_v_oo2zeta12*t5;
46t5=(-1)*t7;
47t7=t5*t8;
48t8=t7+t4;
49t9=t2*int_v_list001[0];
50double*restrictxx int_v_list000=int_v_list00[0];
51t10=t6*int_v_list000[0];
52t11=t10+t9;
53t9=int_v_oo2zeta12*t11;
54t10=t9+t8;
55t8=t3*int_v_list002[0];
56double*restrictxx int_v_list003=int_v_list00[3];
57t11=t2*int_v_list003[0];
58t2=t6*int_v_list002[0];
59t6=t2+t11;
60t2=t1*t6;
61t11=t2+t8;
62t2=t1*t11;
63t12=t2+t10;
64double***restrictxx int_v_list2=int_v_list(2);
65double**restrictxx int_v_list21=int_v_list2[1];
66double*restrictxx int_v_list210=int_v_list21[0];
67int_v_list210[17]=t12;
68t2=int_v_W2-int_v_p342;
69t10=t2*int_v_list002[0];
70t13=int_v_p342-int_v_r32;
71t14=t13*int_v_list001[0];
72t15=t14+t10;
73t10=t5*t15;
74t14=t2*int_v_list001[0];
75t15=t13*int_v_list000[0];
76t16=t15+t14;
77t14=int_v_oo2zeta12*t16;
78t15=t14+t10;
79t16=t2*int_v_list003[0];
80t2=t13*int_v_list002[0];
81t13=t2+t16;
82t2=t1*t13;
83t16=t1*t2;
84t17=t16+t15;
85int_v_list210[16]=t17;
86t16=int_v_W1-int_v_p341;
87t18=t16*int_v_list002[0];
88t19=int_v_p341-int_v_r31;
89t20=t19*int_v_list001[0];
90t21=t20+t18;
91t18=t5*t21;
92t5=t16*int_v_list001[0];
93t20=t19*int_v_list000[0];
94t21=t20+t5;
95t5=int_v_oo2zeta12*t21;
96t20=t5+t18;
97t21=t16*int_v_list003[0];
98t16=t19*int_v_list002[0];
99t19=t16+t21;
100t16=t1*t19;
101t21=t1*t16;
102t1=t21+t20;
103int_v_list210[15]=t1;
104t21=int_v_W2-int_v_p122;
105t22=t21*t11;
106int_v_list210[14]=t22;
107t23=t21*t2;
108t24=t4+t23;
109int_v_list210[13]=t24;
110t23=t21*t16;
111int_v_list210[12]=t23;
112t25=int_v_W1-int_v_p121;
113t26=t11*t25;
114int_v_list210[11]=t26;
115t11=t25*t2;
116int_v_list210[10]=t11;
117t2=t25*t16;
118t16=t4+t2;
119int_v_list210[9]=t16;
120t2=t9+t7;
121t4=t21*t6;
122t7=t21*t4;
123t4=t7+t2;
124int_v_list210[8]=t4;
125t7=t21*int_v_list002[0];
126t9=t3*t7;
127t7=t10+t9;
128t9=t14+t7;
129t7=t21*t13;
130t10=t8+t7;
131t7=t21*t10;
132t10=t7+t9;
133int_v_list210[7]=t10;
134t7=t21*t19;
135t9=t21*t7;
136t7=t20+t9;
137int_v_list210[6]=t7;
138t9=t25*t6;
139t6=t21*t9;
140int_v_list210[5]=t6;
141t14=t25*t13;
142t13=t21*t14;
143t20=t25*int_v_list002[0];
144t27=t3*t20;
145t3=t27+t13;
146int_v_list210[4]=t3;
147t13=t25*t19;
148t19=t8+t13;
149t8=t21*t19;
150int_v_list210[3]=t8;
151t13=t25*t9;
152t9=t2+t13;
153int_v_list210[2]=t9;
154t2=t25*t14;
155t13=t15+t2;
156int_v_list210[1]=t13;
157t2=t18+t27;
158t14=t5+t2;
159t2=t25*t19;
160t5=t2+t14;
161int_v_list210[0]=t5;
162return 1;}
Note: See TracBrowser for help on using the repository browser.