1 2 #include "simint/ostei/gen/ostei_generated.h" 3 ////////////////////////////////////////////// 4 // KET: | d d ) 5 // Steps: 36 6 ////////////////////////////////////////////// 7 HRR_L_d_d(double * const restrict HRR_INT__X_X_d_d,double const * const restrict HRR_INT__X_X_d_p,double const * const restrict HRR_INT__X_X_f_p,const double hCD[3],const int ncart_bra)8void HRR_L_d_d(double * const restrict HRR_INT__X_X_d_d, 9 double const * const restrict HRR_INT__X_X_d_p, 10 double const * const restrict HRR_INT__X_X_f_p, 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_d[ibra * 36 + 0] = HRR_INT__X_X_f_p[ibra * 30 + 0] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 0] ); 18 19 HRR_INT__X_X_d_d[ibra * 36 + 1] = HRR_INT__X_X_f_p[ibra * 30 + 3] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 0] ); 20 21 HRR_INT__X_X_d_d[ibra * 36 + 2] = HRR_INT__X_X_f_p[ibra * 30 + 6] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 0] ); 22 23 HRR_INT__X_X_d_d[ibra * 36 + 3] = HRR_INT__X_X_f_p[ibra * 30 + 4] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 1] ); 24 25 HRR_INT__X_X_d_d[ibra * 36 + 4] = HRR_INT__X_X_f_p[ibra * 30 + 7] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 1] ); 26 27 HRR_INT__X_X_d_d[ibra * 36 + 5] = HRR_INT__X_X_f_p[ibra * 30 + 8] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 2] ); 28 29 HRR_INT__X_X_d_d[ibra * 36 + 6] = HRR_INT__X_X_f_p[ibra * 30 + 3] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 3] ); 30 31 HRR_INT__X_X_d_d[ibra * 36 + 7] = HRR_INT__X_X_f_p[ibra * 30 + 9] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 3] ); 32 33 HRR_INT__X_X_d_d[ibra * 36 + 8] = HRR_INT__X_X_f_p[ibra * 30 + 12] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 3] ); 34 35 HRR_INT__X_X_d_d[ibra * 36 + 9] = HRR_INT__X_X_f_p[ibra * 30 + 10] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 4] ); 36 37 HRR_INT__X_X_d_d[ibra * 36 + 10] = HRR_INT__X_X_f_p[ibra * 30 + 13] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 4] ); 38 39 HRR_INT__X_X_d_d[ibra * 36 + 11] = HRR_INT__X_X_f_p[ibra * 30 + 14] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 5] ); 40 41 HRR_INT__X_X_d_d[ibra * 36 + 12] = HRR_INT__X_X_f_p[ibra * 30 + 6] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 6] ); 42 43 HRR_INT__X_X_d_d[ibra * 36 + 13] = HRR_INT__X_X_f_p[ibra * 30 + 12] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 6] ); 44 45 HRR_INT__X_X_d_d[ibra * 36 + 14] = HRR_INT__X_X_f_p[ibra * 30 + 15] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 6] ); 46 47 HRR_INT__X_X_d_d[ibra * 36 + 15] = HRR_INT__X_X_f_p[ibra * 30 + 13] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 7] ); 48 49 HRR_INT__X_X_d_d[ibra * 36 + 16] = HRR_INT__X_X_f_p[ibra * 30 + 16] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 7] ); 50 51 HRR_INT__X_X_d_d[ibra * 36 + 17] = HRR_INT__X_X_f_p[ibra * 30 + 17] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 8] ); 52 53 HRR_INT__X_X_d_d[ibra * 36 + 18] = HRR_INT__X_X_f_p[ibra * 30 + 9] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 9] ); 54 55 HRR_INT__X_X_d_d[ibra * 36 + 19] = HRR_INT__X_X_f_p[ibra * 30 + 18] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 9] ); 56 57 HRR_INT__X_X_d_d[ibra * 36 + 20] = HRR_INT__X_X_f_p[ibra * 30 + 21] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 9] ); 58 59 HRR_INT__X_X_d_d[ibra * 36 + 21] = HRR_INT__X_X_f_p[ibra * 30 + 19] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 10] ); 60 61 HRR_INT__X_X_d_d[ibra * 36 + 22] = HRR_INT__X_X_f_p[ibra * 30 + 22] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 10] ); 62 63 HRR_INT__X_X_d_d[ibra * 36 + 23] = HRR_INT__X_X_f_p[ibra * 30 + 23] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 11] ); 64 65 HRR_INT__X_X_d_d[ibra * 36 + 24] = HRR_INT__X_X_f_p[ibra * 30 + 12] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 12] ); 66 67 HRR_INT__X_X_d_d[ibra * 36 + 25] = HRR_INT__X_X_f_p[ibra * 30 + 21] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 12] ); 68 69 HRR_INT__X_X_d_d[ibra * 36 + 26] = HRR_INT__X_X_f_p[ibra * 30 + 24] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 12] ); 70 71 HRR_INT__X_X_d_d[ibra * 36 + 27] = HRR_INT__X_X_f_p[ibra * 30 + 22] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 13] ); 72 73 HRR_INT__X_X_d_d[ibra * 36 + 28] = HRR_INT__X_X_f_p[ibra * 30 + 25] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 13] ); 74 75 HRR_INT__X_X_d_d[ibra * 36 + 29] = HRR_INT__X_X_f_p[ibra * 30 + 26] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 14] ); 76 77 HRR_INT__X_X_d_d[ibra * 36 + 30] = HRR_INT__X_X_f_p[ibra * 30 + 15] + ( hCD[0] * HRR_INT__X_X_d_p[ibra * 18 + 15] ); 78 79 HRR_INT__X_X_d_d[ibra * 36 + 31] = HRR_INT__X_X_f_p[ibra * 30 + 24] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 15] ); 80 81 HRR_INT__X_X_d_d[ibra * 36 + 32] = HRR_INT__X_X_f_p[ibra * 30 + 27] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 15] ); 82 83 HRR_INT__X_X_d_d[ibra * 36 + 33] = HRR_INT__X_X_f_p[ibra * 30 + 25] + ( hCD[1] * HRR_INT__X_X_d_p[ibra * 18 + 16] ); 84 85 HRR_INT__X_X_d_d[ibra * 36 + 34] = HRR_INT__X_X_f_p[ibra * 30 + 28] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 16] ); 86 87 HRR_INT__X_X_d_d[ibra * 36 + 35] = HRR_INT__X_X_f_p[ibra * 30 + 29] + ( hCD[2] * HRR_INT__X_X_d_p[ibra * 18 + 17] ); 88 89 } 90 91 } 92 93 94