source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i3301AB.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: 6.4 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i3301eAB(){
3/* the cost is 295 */
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;
60t1=int_v_zeta34*int_v_ooze;
61t2=int_v_oo2zeta12*t1;
62t1=(-1)*t2;
63double***restrictxx int_v_list0=int_v_list(0);
64double**restrictxx int_v_list00=int_v_list0[0];
65double*restrictxx int_v_list002=int_v_list00[2];
66t2=t1*int_v_list002[0];
67double*restrictxx int_v_list001=int_v_list00[1];
68t3=int_v_oo2zeta12*int_v_list001[0];
69t4=t3+t2;
70t2=int_v_W0-int_v_p120;
71double*restrictxx int_v_list003=int_v_list00[3];
72t3=t2*int_v_list003[0];
73t5=t2*t3;
74t6=t5+t4;
75t5=0.5*int_v_ooze;
76t7=t5*t6;
77t8=t5*int_v_list002[0];
78t9=int_v_W0-int_v_p340;
79t10=t9*int_v_list003[0];
80t11=int_v_p340-int_v_r30;
81t12=t11*int_v_list002[0];
82t13=t12+t10;
83t10=t2*t13;
84t12=t10+t8;
85t10=2*int_v_ooze;
86t14=int_v_zeta34*t10;
87t10=int_v_oo2zeta12*t14;
88t14=(-1)*t10;
89t10=t14*t12;
90t15=t10+t7;
91t10=t5*int_v_list001[0];
92t16=t9*int_v_list002[0];
93t17=t11*int_v_list001[0];
94t18=t17+t16;
95t16=t2*t18;
96t17=t16+t10;
97t16=int_v_oo2zeta12*2;
98t19=t16*t17;
99t20=t19+t15;
100t15=t5*t3;
101t19=t1*t13;
102t21=t19+t15;
103t22=int_v_oo2zeta12*t18;
104t23=t22+t21;
105t21=t5*int_v_list003[0];
106double*restrictxx int_v_list004=int_v_list00[4];
107t24=t9*int_v_list004[0];
108t9=t11*int_v_list003[0];
109t11=t9+t24;
110t9=t2*t11;
111t24=t9+t21;
112t9=t2*t24;
113t25=t9+t23;
114t9=t2*t25;
115t23=t9+t20;
116double***restrictxx int_v_list3=int_v_list(3);
117double**restrictxx int_v_list31=int_v_list3[1];
118double*restrictxx int_v_list310=int_v_list31[0];
119int_v_list310[29]=t23;
120t9=int_v_W2-int_v_p342;
121t20=t9*int_v_list003[0];
122t26=int_v_p342-int_v_r32;
123t27=t26*int_v_list002[0];
124t28=t27+t20;
125t20=t2*t28;
126t27=t14*t20;
127t29=t9*int_v_list002[0];
128t30=t26*int_v_list001[0];
129t31=t30+t29;
130t29=t2*t31;
131t30=t16*t29;
132t32=t30+t27;
133t27=t1*t28;
134t30=int_v_oo2zeta12*t31;
135t33=t30+t27;
136t34=t9*int_v_list004[0];
137t9=t26*int_v_list003[0];
138t26=t9+t34;
139t9=t2*t26;
140t34=t2*t9;
141t35=t34+t33;
142t34=t2*t35;
143t36=t34+t32;
144int_v_list310[28]=t36;
145t32=int_v_W1-int_v_p341;
146t34=t32*int_v_list003[0];
147t37=int_v_p341-int_v_r31;
148t38=t37*int_v_list002[0];
149t39=t38+t34;
150t34=t2*t39;
151t38=t14*t34;
152t40=t32*int_v_list002[0];
153t41=t37*int_v_list001[0];
154t42=t41+t40;
155t40=t2*t42;
156t41=t16*t40;
157t43=t41+t38;
158t38=t1*t39;
159t41=int_v_oo2zeta12*t42;
160t44=t41+t38;
161t45=t32*int_v_list004[0];
162t32=t37*int_v_list003[0];
163t37=t32+t45;
164t32=t2*t37;
165t45=t2*t32;
166t46=t45+t44;
167t45=t2*t46;
168t47=t45+t43;
169int_v_list310[27]=t47;
170t43=int_v_W2-int_v_p122;
171t45=t43*t25;
172int_v_list310[26]=t45;
173t48=t43*t35;
174t49=t7+t48;
175int_v_list310[25]=t49;
176t48=t43*t46;
177int_v_list310[24]=t48;
178t50=int_v_W1-int_v_p121;
179t51=t25*t50;
180int_v_list310[23]=t51;
181t25=t50*t35;
182int_v_list310[22]=t25;
183t35=t50*t46;
184t46=t7+t35;
185int_v_list310[21]=t46;
186t7=t1*t12;
187t12=int_v_oo2zeta12*t17;
188t17=t12+t7;
189t7=t43*t24;
190t12=t43*t7;
191t7=t12+t17;
192int_v_list310[20]=t7;
193t12=t43*t3;
194t35=t5*t12;
195t52=t1*t20;
196t20=t52+t35;
197t35=int_v_oo2zeta12*t29;
198t29=t35+t20;
199t20=t43*t9;
200t53=t15+t20;
201t20=t43*t53;
202t53=t20+t29;
203int_v_list310[19]=t53;
204t20=t1*t34;
205t29=int_v_oo2zeta12*t40;
206t34=t29+t20;
207t40=t43*t32;
208t54=t43*t40;
209t40=t54+t34;
210int_v_list310[18]=t40;
211t34=t50*t24;
212t24=t43*t34;
213int_v_list310[17]=t24;
214t54=t50*t3;
215t3=t5*t54;
216t55=t50*t9;
217t9=t43*t55;
218t56=t9+t3;
219int_v_list310[16]=t56;
220t9=t50*t32;
221t32=t15+t9;
222t9=t43*t32;
223int_v_list310[15]=t9;
224t15=t50*t34;
225t34=t17+t15;
226int_v_list310[14]=t34;
227t15=t35+t52;
228t17=t50*t55;
229t35=t17+t15;
230int_v_list310[13]=t35;
231t15=t20+t3;
232t3=t29+t15;
233t15=t50*t32;
234t17=t15+t3;
235int_v_list310[12]=t17;
236t3=t43*t13;
237t15=t14*t3;
238t3=t43*t18;
239t20=t16*t3;
240t3=t20+t15;
241t15=t22+t19;
242t19=t43*t11;
243t20=t43*t19;
244t19=t20+t15;
245t20=t43*t19;
246t19=t20+t3;
247int_v_list310[11]=t19;
248t3=t43*t28;
249t20=t8+t3;
250t3=t14*t20;
251t20=t43*int_v_list003[0];
252t22=t43*t20;
253t29=t4+t22;
254t22=t5*t29;
255t32=t22+t3;
256t3=t43*t31;
257t22=t10+t3;
258t3=t16*t22;
259t22=t3+t32;
260t3=t5*t20;
261t20=t27+t3;
262t3=t30+t20;
263t20=t43*t26;
264t27=t21+t20;
265t20=t43*t27;
266t27=t20+t3;
267t3=t43*t27;
268t20=t3+t22;
269int_v_list310[10]=t20;
270t3=t43*t39;
271t22=t14*t3;
272t3=t43*t42;
273t27=t16*t3;
274t3=t27+t22;
275t22=t43*t37;
276t27=t43*t22;
277t22=t44+t27;
278t27=t43*t22;
279t22=t27+t3;
280int_v_list310[9]=t22;
281t3=t50*t13;
282t13=t1*t3;
283t27=t50*t18;
284t18=int_v_oo2zeta12*t27;
285t30=t18+t13;
286t13=t50*t11;
287t11=t43*t13;
288t18=t43*t11;
289t11=t18+t30;
290int_v_list310[8]=t11;
291t18=t50*t28;
292t28=t1*t18;
293t30=t50*int_v_list003[0];
294t32=t43*t30;
295t44=t5*t32;
296t52=t44+t28;
297t28=t50*t31;
298t31=int_v_oo2zeta12*t28;
299t44=t31+t52;
300t31=t50*t26;
301t26=t43*t31;
302t52=t5*t30;
303t55=t52+t26;
304t26=t43*t55;
305t55=t26+t44;
306int_v_list310[7]=t55;
307t26=t50*t39;
308t39=t8+t26;
309t8=t1*t39;
310t26=t50*t42;
311t42=t10+t26;
312t10=int_v_oo2zeta12*t42;
313t26=t10+t8;
314t8=t50*t37;
315t10=t21+t8;
316t8=t43*t10;
317t21=t43*t8;
318t8=t21+t26;
319int_v_list310[6]=t8;
320t21=t50*t13;
321t13=t15+t21;
322t15=t43*t13;
323int_v_list310[5]=t15;
324t21=t50*t31;
325t26=t33+t21;
326t21=t43*t26;
327t31=t50*t30;
328t30=t4+t31;
329t4=t5*t30;
330t5=t4+t21;
331int_v_list310[4]=t5;
332t21=t38+t52;
333t31=t41+t21;
334t21=t50*t10;
335t10=t21+t31;
336t21=t43*t10;
337int_v_list310[3]=t21;
338t31=t14*t3;
339t3=t16*t27;
340t27=t3+t31;
341t3=t50*t13;
342t13=t3+t27;
343int_v_list310[2]=t13;
344t3=t14*t18;
345t18=t16*t28;
346t27=t18+t3;
347t3=t50*t26;
348t18=t3+t27;
349int_v_list310[1]=t18;
350t3=t14*t39;
351t26=t4+t3;
352t3=t16*t42;
353t4=t3+t26;
354t3=t50*t10;
355t10=t3+t4;
356int_v_list310[0]=t10;
357t3=t2*int_v_list002[0];
358t4=t14*t3;
359t26=t2*int_v_list001[0];
360t27=t16*t26;
361t28=t27+t4;
362t4=t2*t6;
363t2=t4+t28;
364double**restrictxx int_v_list30=int_v_list3[0];
365double*restrictxx int_v_list300=int_v_list30[0];
366int_v_list300[9]=t2;
367t4=t43*t6;
368int_v_list300[8]=t4;
369t27=t50*t6;
370int_v_list300[7]=t27;
371t6=t1*t3;
372t3=int_v_oo2zeta12*t26;
373t26=t3+t6;
374t3=t43*t12;
375t6=t3+t26;
376int_v_list300[6]=t6;
377t3=t43*t54;
378int_v_list300[5]=t3;
379t12=t50*t54;
380t28=t26+t12;
381int_v_list300[4]=t28;
382t12=t43*int_v_list002[0];
383t26=t14*t12;
384t12=t43*int_v_list001[0];
385t31=t16*t12;
386t12=t31+t26;
387t26=t43*t29;
388t29=t26+t12;
389int_v_list300[3]=t29;
390t12=t50*int_v_list002[0];
391t26=t1*t12;
392t1=t50*int_v_list001[0];
393t31=int_v_oo2zeta12*t1;
394t33=t31+t26;
395t26=t43*t32;
396t31=t26+t33;
397int_v_list300[2]=t31;
398t26=t43*t30;
399int_v_list300[1]=t26;
400t32=t14*t12;
401t12=t16*t1;
402t1=t12+t32;
403t12=t50*t30;
404t14=t12+t1;
405int_v_list300[0]=t14;
406return 1;}
Note: See TracBrowser for help on using the repository browser.