1 #include <chemistry/qc/oint3/build.h> i1100()2int 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