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