1 2 #include "simint/ostei/gen/ostei_generated.h" 3 ////////////////////////////////////////////// 4 // BRA: ( d f | 5 // Steps: 60 6 ////////////////////////////////////////////// 7 HRR_I_d_f(double * const restrict HRR_INT__d_f_X_X,double const * const restrict HRR_INT__p_f_X_X,double const * const restrict HRR_INT__p_g_X_X,const double hAB[3],const int ncart_ket)8void HRR_I_d_f(double * const restrict HRR_INT__d_f_X_X, 9 double const * const restrict HRR_INT__p_f_X_X, 10 double const * const restrict HRR_INT__p_g_X_X, 11 const double hAB[3], const int ncart_ket) 12 { 13 int iket; 14 15 for(iket = 0; iket < ncart_ket; ++iket) 16 { 17 HRR_INT__d_f_X_X[0 * ncart_ket + iket] = HRR_INT__p_g_X_X[0 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[0 * ncart_ket + iket] ); 18 19 HRR_INT__d_f_X_X[1 * ncart_ket + iket] = HRR_INT__p_g_X_X[1 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[1 * ncart_ket + iket] ); 20 21 HRR_INT__d_f_X_X[2 * ncart_ket + iket] = HRR_INT__p_g_X_X[2 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[2 * ncart_ket + iket] ); 22 23 HRR_INT__d_f_X_X[3 * ncart_ket + iket] = HRR_INT__p_g_X_X[3 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[3 * ncart_ket + iket] ); 24 25 HRR_INT__d_f_X_X[4 * ncart_ket + iket] = HRR_INT__p_g_X_X[4 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[4 * ncart_ket + iket] ); 26 27 HRR_INT__d_f_X_X[5 * ncart_ket + iket] = HRR_INT__p_g_X_X[5 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[5 * ncart_ket + iket] ); 28 29 HRR_INT__d_f_X_X[6 * ncart_ket + iket] = HRR_INT__p_g_X_X[6 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[6 * ncart_ket + iket] ); 30 31 HRR_INT__d_f_X_X[7 * ncart_ket + iket] = HRR_INT__p_g_X_X[7 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[7 * ncart_ket + iket] ); 32 33 HRR_INT__d_f_X_X[8 * ncart_ket + iket] = HRR_INT__p_g_X_X[8 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[8 * ncart_ket + iket] ); 34 35 HRR_INT__d_f_X_X[9 * ncart_ket + iket] = HRR_INT__p_g_X_X[9 * ncart_ket + iket] - ( hAB[0] * HRR_INT__p_f_X_X[9 * ncart_ket + iket] ); 36 37 HRR_INT__d_f_X_X[10 * ncart_ket + iket] = HRR_INT__p_g_X_X[1 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[0 * ncart_ket + iket] ); 38 39 HRR_INT__d_f_X_X[11 * ncart_ket + iket] = HRR_INT__p_g_X_X[3 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[1 * ncart_ket + iket] ); 40 41 HRR_INT__d_f_X_X[12 * ncart_ket + iket] = HRR_INT__p_g_X_X[4 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[2 * ncart_ket + iket] ); 42 43 HRR_INT__d_f_X_X[13 * ncart_ket + iket] = HRR_INT__p_g_X_X[6 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[3 * ncart_ket + iket] ); 44 45 HRR_INT__d_f_X_X[14 * ncart_ket + iket] = HRR_INT__p_g_X_X[7 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[4 * ncart_ket + iket] ); 46 47 HRR_INT__d_f_X_X[15 * ncart_ket + iket] = HRR_INT__p_g_X_X[8 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[5 * ncart_ket + iket] ); 48 49 HRR_INT__d_f_X_X[16 * ncart_ket + iket] = HRR_INT__p_g_X_X[10 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[6 * ncart_ket + iket] ); 50 51 HRR_INT__d_f_X_X[17 * ncart_ket + iket] = HRR_INT__p_g_X_X[11 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[7 * ncart_ket + iket] ); 52 53 HRR_INT__d_f_X_X[18 * ncart_ket + iket] = HRR_INT__p_g_X_X[12 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[8 * ncart_ket + iket] ); 54 55 HRR_INT__d_f_X_X[19 * ncart_ket + iket] = HRR_INT__p_g_X_X[13 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[9 * ncart_ket + iket] ); 56 57 HRR_INT__d_f_X_X[20 * ncart_ket + iket] = HRR_INT__p_g_X_X[2 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[0 * ncart_ket + iket] ); 58 59 HRR_INT__d_f_X_X[21 * ncart_ket + iket] = HRR_INT__p_g_X_X[4 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[1 * ncart_ket + iket] ); 60 61 HRR_INT__d_f_X_X[22 * ncart_ket + iket] = HRR_INT__p_g_X_X[5 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[2 * ncart_ket + iket] ); 62 63 HRR_INT__d_f_X_X[23 * ncart_ket + iket] = HRR_INT__p_g_X_X[7 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[3 * ncart_ket + iket] ); 64 65 HRR_INT__d_f_X_X[24 * ncart_ket + iket] = HRR_INT__p_g_X_X[8 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[4 * ncart_ket + iket] ); 66 67 HRR_INT__d_f_X_X[25 * ncart_ket + iket] = HRR_INT__p_g_X_X[9 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[5 * ncart_ket + iket] ); 68 69 HRR_INT__d_f_X_X[26 * ncart_ket + iket] = HRR_INT__p_g_X_X[11 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[6 * ncart_ket + iket] ); 70 71 HRR_INT__d_f_X_X[27 * ncart_ket + iket] = HRR_INT__p_g_X_X[12 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[7 * ncart_ket + iket] ); 72 73 HRR_INT__d_f_X_X[28 * ncart_ket + iket] = HRR_INT__p_g_X_X[13 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[8 * ncart_ket + iket] ); 74 75 HRR_INT__d_f_X_X[29 * ncart_ket + iket] = HRR_INT__p_g_X_X[14 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[9 * ncart_ket + iket] ); 76 77 HRR_INT__d_f_X_X[30 * ncart_ket + iket] = HRR_INT__p_g_X_X[16 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[10 * ncart_ket + iket] ); 78 79 HRR_INT__d_f_X_X[31 * ncart_ket + iket] = HRR_INT__p_g_X_X[18 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[11 * ncart_ket + iket] ); 80 81 HRR_INT__d_f_X_X[32 * ncart_ket + iket] = HRR_INT__p_g_X_X[19 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[12 * ncart_ket + iket] ); 82 83 HRR_INT__d_f_X_X[33 * ncart_ket + iket] = HRR_INT__p_g_X_X[21 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[13 * ncart_ket + iket] ); 84 85 HRR_INT__d_f_X_X[34 * ncart_ket + iket] = HRR_INT__p_g_X_X[22 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[14 * ncart_ket + iket] ); 86 87 HRR_INT__d_f_X_X[35 * ncart_ket + iket] = HRR_INT__p_g_X_X[23 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[15 * ncart_ket + iket] ); 88 89 HRR_INT__d_f_X_X[36 * ncart_ket + iket] = HRR_INT__p_g_X_X[25 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[16 * ncart_ket + iket] ); 90 91 HRR_INT__d_f_X_X[37 * ncart_ket + iket] = HRR_INT__p_g_X_X[26 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[17 * ncart_ket + iket] ); 92 93 HRR_INT__d_f_X_X[38 * ncart_ket + iket] = HRR_INT__p_g_X_X[27 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[18 * ncart_ket + iket] ); 94 95 HRR_INT__d_f_X_X[39 * ncart_ket + iket] = HRR_INT__p_g_X_X[28 * ncart_ket + iket] - ( hAB[1] * HRR_INT__p_f_X_X[19 * ncart_ket + iket] ); 96 97 HRR_INT__d_f_X_X[40 * ncart_ket + iket] = HRR_INT__p_g_X_X[17 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[10 * ncart_ket + iket] ); 98 99 HRR_INT__d_f_X_X[41 * ncart_ket + iket] = HRR_INT__p_g_X_X[19 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[11 * ncart_ket + iket] ); 100 101 HRR_INT__d_f_X_X[42 * ncart_ket + iket] = HRR_INT__p_g_X_X[20 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[12 * ncart_ket + iket] ); 102 103 HRR_INT__d_f_X_X[43 * ncart_ket + iket] = HRR_INT__p_g_X_X[22 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[13 * ncart_ket + iket] ); 104 105 HRR_INT__d_f_X_X[44 * ncart_ket + iket] = HRR_INT__p_g_X_X[23 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[14 * ncart_ket + iket] ); 106 107 HRR_INT__d_f_X_X[45 * ncart_ket + iket] = HRR_INT__p_g_X_X[24 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[15 * ncart_ket + iket] ); 108 109 HRR_INT__d_f_X_X[46 * ncart_ket + iket] = HRR_INT__p_g_X_X[26 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[16 * ncart_ket + iket] ); 110 111 HRR_INT__d_f_X_X[47 * ncart_ket + iket] = HRR_INT__p_g_X_X[27 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[17 * ncart_ket + iket] ); 112 113 HRR_INT__d_f_X_X[48 * ncart_ket + iket] = HRR_INT__p_g_X_X[28 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[18 * ncart_ket + iket] ); 114 115 HRR_INT__d_f_X_X[49 * ncart_ket + iket] = HRR_INT__p_g_X_X[29 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[19 * ncart_ket + iket] ); 116 117 HRR_INT__d_f_X_X[50 * ncart_ket + iket] = HRR_INT__p_g_X_X[32 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[20 * ncart_ket + iket] ); 118 119 HRR_INT__d_f_X_X[51 * ncart_ket + iket] = HRR_INT__p_g_X_X[34 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[21 * ncart_ket + iket] ); 120 121 HRR_INT__d_f_X_X[52 * ncart_ket + iket] = HRR_INT__p_g_X_X[35 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[22 * ncart_ket + iket] ); 122 123 HRR_INT__d_f_X_X[53 * ncart_ket + iket] = HRR_INT__p_g_X_X[37 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[23 * ncart_ket + iket] ); 124 125 HRR_INT__d_f_X_X[54 * ncart_ket + iket] = HRR_INT__p_g_X_X[38 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[24 * ncart_ket + iket] ); 126 127 HRR_INT__d_f_X_X[55 * ncart_ket + iket] = HRR_INT__p_g_X_X[39 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[25 * ncart_ket + iket] ); 128 129 HRR_INT__d_f_X_X[56 * ncart_ket + iket] = HRR_INT__p_g_X_X[41 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[26 * ncart_ket + iket] ); 130 131 HRR_INT__d_f_X_X[57 * ncart_ket + iket] = HRR_INT__p_g_X_X[42 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[27 * ncart_ket + iket] ); 132 133 HRR_INT__d_f_X_X[58 * ncart_ket + iket] = HRR_INT__p_g_X_X[43 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[28 * ncart_ket + iket] ); 134 135 HRR_INT__d_f_X_X[59 * ncart_ket + iket] = HRR_INT__p_g_X_X[44 * ncart_ket + iket] - ( hAB[2] * HRR_INT__p_f_X_X[29 * ncart_ket + iket] ); 136 137 } 138 139 140 } 141 142 143