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