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