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