1 #include <chemistry/qc/oint3/build.h> i3300()2int sc::BuildIntV3::i3300(){ 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 t6=int_v_oo2zeta12*2; 45 t7=t6*t8; 46 t9=t7+t2; 47 t2=int_v_zeta34*int_v_ooze; 48 t7=int_v_oo2zeta12*t2; 49 t2=(-1)*t7; 50 t7=t2*int_v_list002[0]; 51 t10=int_v_oo2zeta12*int_v_list001[0]; 52 t11=t10+t7; 53 double*restrictxx int_v_list003=int_v_list00[3]; 54 t7=t1*int_v_list003[0]; 55 t10=t3*int_v_list002[0]; 56 t12=t10+t7; 57 t7=t1*t12; 58 t10=t7+t11; 59 t7=t3*t5; 60 t13=t7+t10; 61 t7=t1*t13; 62 t10=t7+t9; 63 t7=t2*int_v_list001[0]; 64 t9=int_v_oo2zeta12*int_v_list000[0]; 65 t14=t9+t7; 66 t7=t1*t5; 67 t1=t7+t14; 68 t7=t3*t8; 69 t9=t7+t1; 70 t1=t3*t9; 71 t3=t1+t10; 72 double***restrictxx int_v_list3=int_v_list(3); 73 double**restrictxx int_v_list30=int_v_list3[0]; 74 double*restrictxx int_v_list300=int_v_list30[0]; 75 int_v_list300[9]=t3; 76 t1=int_v_W2-int_v_p122; 77 t7=t1*t13; 78 t10=int_v_p122-int_v_r12; 79 t15=t10*t9; 80 t16=t15+t7; 81 int_v_list300[8]=t16; 82 t7=int_v_W1-int_v_p121; 83 t15=t13*t7; 84 t13=int_v_p121-int_v_r11; 85 t17=t9*t13; 86 t9=t17+t15; 87 int_v_list300[7]=t9; 88 t15=t2*t5; 89 t17=int_v_oo2zeta12*t8; 90 t18=t17+t15; 91 t15=t1*t12; 92 t17=t10*t5; 93 t19=t17+t15; 94 t15=t1*t19; 95 t17=t15+t18; 96 t15=t1*t5; 97 t19=t10*t8; 98 t20=t19+t15; 99 t15=t10*t20; 100 t19=t15+t17; 101 int_v_list300[6]=t19; 102 t15=t7*t12; 103 t12=t13*t5; 104 t17=t12+t15; 105 t12=t1*t17; 106 t15=t7*t5; 107 t5=t13*t8; 108 t8=t5+t15; 109 t5=t10*t8; 110 t15=t5+t12; 111 int_v_list300[5]=t15; 112 t5=t7*t17; 113 t12=t18+t5; 114 t5=t13*t8; 115 t8=t5+t12; 116 int_v_list300[4]=t8; 117 t5=t1*int_v_list002[0]; 118 t12=t10*int_v_list001[0]; 119 t17=t12+t5; 120 t5=t4*t17; 121 t12=t1*int_v_list001[0]; 122 t18=t10*int_v_list000[0]; 123 t20=t18+t12; 124 t12=t6*t20; 125 t18=t12+t5; 126 t5=t1*int_v_list003[0]; 127 t12=t10*int_v_list002[0]; 128 t21=t12+t5; 129 t5=t1*t21; 130 t12=t11+t5; 131 t5=t10*t17; 132 t21=t5+t12; 133 t5=t1*t21; 134 t12=t5+t18; 135 t5=t1*t17; 136 t17=t14+t5; 137 t5=t10*t20; 138 t18=t5+t17; 139 t5=t10*t18; 140 t17=t5+t12; 141 int_v_list300[3]=t17; 142 t5=t7*int_v_list002[0]; 143 t12=t13*int_v_list001[0]; 144 t18=t12+t5; 145 t5=t2*t18; 146 t2=t7*int_v_list001[0]; 147 t12=t13*int_v_list000[0]; 148 t20=t12+t2; 149 t2=int_v_oo2zeta12*t20; 150 t12=t2+t5; 151 t2=t7*int_v_list003[0]; 152 t5=t13*int_v_list002[0]; 153 t21=t5+t2; 154 t2=t1*t21; 155 t5=t10*t18; 156 t22=t5+t2; 157 t2=t1*t22; 158 t5=t2+t12; 159 t2=t1*t18; 160 t12=t10*t20; 161 t22=t12+t2; 162 t2=t10*t22; 163 t12=t2+t5; 164 int_v_list300[2]=t12; 165 t2=t7*t21; 166 t5=t11+t2; 167 t2=t13*t18; 168 t11=t2+t5; 169 t2=t1*t11; 170 t1=t7*t18; 171 t5=t14+t1; 172 t1=t13*t20; 173 t14=t1+t5; 174 t1=t10*t14; 175 t5=t1+t2; 176 int_v_list300[1]=t5; 177 t1=t4*t18; 178 t2=t6*t20; 179 t4=t2+t1; 180 t1=t7*t11; 181 t2=t1+t4; 182 t1=t13*t14; 183 t4=t1+t2; 184 int_v_list300[0]=t4; 185 return 1;} 186