1 #include <chemistry/qc/oint3/build.h>
i0101()2 int sc::BuildIntV3::i0101(){
3 /* the cost is 71 */
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 t1=0.5*int_v_ooze;
25 double***restrictxx int_v_list0=int_v_list(0);
26 double**restrictxx int_v_list00=int_v_list0[0];
27 double*restrictxx int_v_list001=int_v_list00[1];
28 t2=t1*int_v_list001[0];
29 t1=int_v_W0-int_v_p340;
30 double*restrictxx int_v_list002=int_v_list00[2];
31 t3=t1*int_v_list002[0];
32 t4=int_v_p340-int_v_r30;
33 t5=t4*int_v_list001[0];
34 t6=t5+t3;
35 t3=int_v_W0-int_v_p120;
36 t5=t3*t6;
37 t7=t5+t2;
38 t5=t1*int_v_list001[0];
39 double*restrictxx int_v_list000=int_v_list00[0];
40 t1=t4*int_v_list000[0];
41 t4=t1+t5;
42 double**restrictxx int_v_list01=int_v_list0[1];
43 double*restrictxx int_v_list010=int_v_list01[0];
44 int_v_list010[2]=t4;
45 t1=int_v_p120-int_v_r10;
46 t5=t1*t4;
47 t8=t5+t7;
48 double***restrictxx int_v_list1=int_v_list(1);
49 double**restrictxx int_v_list11=int_v_list1[1];
50 double*restrictxx int_v_list110=int_v_list11[0];
51 int_v_list110[8]=t8;
52 t5=int_v_W2-int_v_p342;
53 t7=t5*int_v_list002[0];
54 t9=int_v_p342-int_v_r32;
55 t10=t9*int_v_list001[0];
56 t11=t10+t7;
57 t7=t3*t11;
58 t10=t5*int_v_list001[0];
59 t5=t9*int_v_list000[0];
60 t9=t5+t10;
61 int_v_list010[1]=t9;
62 t5=t1*t9;
63 t10=t5+t7;
64 int_v_list110[7]=t10;
65 t5=int_v_W1-int_v_p341;
66 t7=t5*int_v_list002[0];
67 t12=int_v_p341-int_v_r31;
68 t13=t12*int_v_list001[0];
69 t14=t13+t7;
70 t7=t3*t14;
71 t13=t5*int_v_list001[0];
72 t5=t12*int_v_list000[0];
73 t12=t5+t13;
74 int_v_list010[0]=t12;
75 t5=t1*t12;
76 t13=t5+t7;
77 int_v_list110[6]=t13;
78 t5=int_v_W2-int_v_p122;
79 t7=t5*t6;
80 t15=int_v_p122-int_v_r12;
81 t16=t15*t4;
82 t17=t16+t7;
83 int_v_list110[5]=t17;
84 t7=t5*t11;
85 t16=t2+t7;
86 t7=t15*t9;
87 t18=t7+t16;
88 int_v_list110[4]=t18;
89 t7=t5*t14;
90 t16=t15*t12;
91 t19=t16+t7;
92 int_v_list110[3]=t19;
93 t7=int_v_W1-int_v_p121;
94 t16=t6*t7;
95 t6=int_v_p121-int_v_r11;
96 t20=t6*t4;
97 t4=t20+t16;
98 int_v_list110[2]=t4;
99 t16=t7*t11;
100 t11=t6*t9;
101 t9=t11+t16;
102 int_v_list110[1]=t9;
103 t11=t7*t14;
104 t14=t2+t11;
105 t2=t6*t12;
106 t11=t2+t14;
107 int_v_list110[0]=t11;
108 t2=t3*int_v_list001[0];
109 t3=t1*int_v_list000[0];
110 t1=t3+t2;
111 double**restrictxx int_v_list10=int_v_list1[0];
112 double*restrictxx int_v_list100=int_v_list10[0];
113 int_v_list100[2]=t1;
114 t2=t5*int_v_list001[0];
115 t3=t15*int_v_list000[0];
116 t5=t3+t2;
117 int_v_list100[1]=t5;
118 t2=t7*int_v_list001[0];
119 t3=t6*int_v_list000[0];
120 t6=t3+t2;
121 int_v_list100[0]=t6;
122 return 1;}
123