1 2 #include "simint/ostei/gen/ostei_generated.h" 3 ////////////////////////////////////////////// 4 // BRA: ( p f | 5 // Steps: 30 6 ////////////////////////////////////////////// 7 HRR_I_p_f(double * const restrict HRR_INT__p_f_X_X,double const * const restrict HRR_INT__s_f_X_X,double const * const restrict HRR_INT__s_g_X_X,const double hAB[3],const int ncart_ket)8void HRR_I_p_f(double * const restrict HRR_INT__p_f_X_X, 9 double const * const restrict HRR_INT__s_f_X_X, 10 double const * const restrict HRR_INT__s_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__p_f_X_X[0 * ncart_ket + iket] = HRR_INT__s_g_X_X[0 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[0 * ncart_ket + iket] ); 18 19 HRR_INT__p_f_X_X[1 * ncart_ket + iket] = HRR_INT__s_g_X_X[1 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[1 * ncart_ket + iket] ); 20 21 HRR_INT__p_f_X_X[2 * ncart_ket + iket] = HRR_INT__s_g_X_X[2 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[2 * ncart_ket + iket] ); 22 23 HRR_INT__p_f_X_X[3 * ncart_ket + iket] = HRR_INT__s_g_X_X[3 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[3 * ncart_ket + iket] ); 24 25 HRR_INT__p_f_X_X[4 * ncart_ket + iket] = HRR_INT__s_g_X_X[4 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[4 * ncart_ket + iket] ); 26 27 HRR_INT__p_f_X_X[5 * ncart_ket + iket] = HRR_INT__s_g_X_X[5 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[5 * ncart_ket + iket] ); 28 29 HRR_INT__p_f_X_X[6 * ncart_ket + iket] = HRR_INT__s_g_X_X[6 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[6 * ncart_ket + iket] ); 30 31 HRR_INT__p_f_X_X[7 * ncart_ket + iket] = HRR_INT__s_g_X_X[7 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[7 * ncart_ket + iket] ); 32 33 HRR_INT__p_f_X_X[8 * ncart_ket + iket] = HRR_INT__s_g_X_X[8 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[8 * ncart_ket + iket] ); 34 35 HRR_INT__p_f_X_X[9 * ncart_ket + iket] = HRR_INT__s_g_X_X[9 * ncart_ket + iket] - ( hAB[0] * HRR_INT__s_f_X_X[9 * ncart_ket + iket] ); 36 37 HRR_INT__p_f_X_X[10 * ncart_ket + iket] = HRR_INT__s_g_X_X[1 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[0 * ncart_ket + iket] ); 38 39 HRR_INT__p_f_X_X[11 * ncart_ket + iket] = HRR_INT__s_g_X_X[3 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[1 * ncart_ket + iket] ); 40 41 HRR_INT__p_f_X_X[12 * ncart_ket + iket] = HRR_INT__s_g_X_X[4 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[2 * ncart_ket + iket] ); 42 43 HRR_INT__p_f_X_X[13 * ncart_ket + iket] = HRR_INT__s_g_X_X[6 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[3 * ncart_ket + iket] ); 44 45 HRR_INT__p_f_X_X[14 * ncart_ket + iket] = HRR_INT__s_g_X_X[7 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[4 * ncart_ket + iket] ); 46 47 HRR_INT__p_f_X_X[15 * ncart_ket + iket] = HRR_INT__s_g_X_X[8 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[5 * ncart_ket + iket] ); 48 49 HRR_INT__p_f_X_X[16 * ncart_ket + iket] = HRR_INT__s_g_X_X[10 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[6 * ncart_ket + iket] ); 50 51 HRR_INT__p_f_X_X[17 * ncart_ket + iket] = HRR_INT__s_g_X_X[11 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[7 * ncart_ket + iket] ); 52 53 HRR_INT__p_f_X_X[18 * ncart_ket + iket] = HRR_INT__s_g_X_X[12 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[8 * ncart_ket + iket] ); 54 55 HRR_INT__p_f_X_X[19 * ncart_ket + iket] = HRR_INT__s_g_X_X[13 * ncart_ket + iket] - ( hAB[1] * HRR_INT__s_f_X_X[9 * ncart_ket + iket] ); 56 57 HRR_INT__p_f_X_X[20 * ncart_ket + iket] = HRR_INT__s_g_X_X[2 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[0 * ncart_ket + iket] ); 58 59 HRR_INT__p_f_X_X[21 * ncart_ket + iket] = HRR_INT__s_g_X_X[4 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[1 * ncart_ket + iket] ); 60 61 HRR_INT__p_f_X_X[22 * ncart_ket + iket] = HRR_INT__s_g_X_X[5 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[2 * ncart_ket + iket] ); 62 63 HRR_INT__p_f_X_X[23 * ncart_ket + iket] = HRR_INT__s_g_X_X[7 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[3 * ncart_ket + iket] ); 64 65 HRR_INT__p_f_X_X[24 * ncart_ket + iket] = HRR_INT__s_g_X_X[8 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[4 * ncart_ket + iket] ); 66 67 HRR_INT__p_f_X_X[25 * ncart_ket + iket] = HRR_INT__s_g_X_X[9 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[5 * ncart_ket + iket] ); 68 69 HRR_INT__p_f_X_X[26 * ncart_ket + iket] = HRR_INT__s_g_X_X[11 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[6 * ncart_ket + iket] ); 70 71 HRR_INT__p_f_X_X[27 * ncart_ket + iket] = HRR_INT__s_g_X_X[12 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[7 * ncart_ket + iket] ); 72 73 HRR_INT__p_f_X_X[28 * ncart_ket + iket] = HRR_INT__s_g_X_X[13 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[8 * ncart_ket + iket] ); 74 75 HRR_INT__p_f_X_X[29 * ncart_ket + iket] = HRR_INT__s_g_X_X[14 * ncart_ket + iket] - ( hAB[2] * HRR_INT__s_f_X_X[9 * ncart_ket + iket] ); 76 77 } 78 79 80 } 81 82 83