1
2 #include "simint/ostei/gen/ostei_generated.h"
3 //////////////////////////////////////////////
4 // VRR: ( s p | f s )
5 //////////////////////////////////////////////
VRR_K_s_p_f_s(SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_f_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_d_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_p_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_d_s,const SIMINT_DBLTYPE * Q_PA,const SIMINT_DBLTYPE a_over_q,const SIMINT_DBLTYPE * aoq_PQ,const SIMINT_DBLTYPE one_over_2pq,const SIMINT_DBLTYPE one_over_2q,const int num_n)6 void VRR_K_s_p_f_s(
7 SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_f_s,
8 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_d_s,
9 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_p_s,
10 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_d_s,
11 const SIMINT_DBLTYPE * Q_PA,
12 const SIMINT_DBLTYPE a_over_q,
13 const SIMINT_DBLTYPE * aoq_PQ,
14 const SIMINT_DBLTYPE one_over_2pq,
15 const SIMINT_DBLTYPE one_over_2q,
16 const int num_n)
17 {
18 // Routines are identical except for swapping of
19 // PA with PB and QC with QD
20
21 VRR_K_p_s_f_s(
22 PRIM_INT__s_p_f_s,
23 PRIM_INT__s_p_d_s,
24 PRIM_INT__s_p_p_s,
25 PRIM_INT__s_s_d_s,
26 Q_PA,
27 a_over_q,
28 aoq_PQ,
29 one_over_2pq,
30 one_over_2q,
31 num_n);
32 }
33
34
35