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