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