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