1 #include <chemistry/qc/oint3/build.h>
i1100()2 int sc::BuildIntV3::i1100(){
3 /* the cost is 15 */
4 double t1;
5 double t2;
6 double t3;
7 double t4;
8 double t5;
9 t1=int_v_W0-int_v_p120;
10 double***restrictxx int_v_list0=int_v_list(0);
11 double**restrictxx int_v_list00=int_v_list0[0];
12 double*restrictxx int_v_list001=int_v_list00[1];
13 t2=int_v_list001[0]*t1;
14 t1=int_v_p120-int_v_r10;
15 double*restrictxx int_v_list000=int_v_list00[0];
16 t3=int_v_list000[0]*t1;
17 t1=t3+t2;
18 double***restrictxx int_v_list1=int_v_list(1);
19 double**restrictxx int_v_list10=int_v_list1[0];
20 double*restrictxx int_v_list100=int_v_list10[0];
21 int_v_list100[2]=t1;
22 t2=int_v_W2-int_v_p122;
23 t3=int_v_list001[0]*t2;
24 t2=int_v_p122-int_v_r12;
25 t4=int_v_list000[0]*t2;
26 t2=t4+t3;
27 int_v_list100[1]=t2;
28 t3=int_v_W1-int_v_p121;
29 t4=t3*int_v_list001[0];
30 t3=int_v_p121-int_v_r11;
31 t5=t3*int_v_list000[0];
32 t3=t5+t4;
33 int_v_list100[0]=t3;
34 return 1;}
35