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)8 void 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