1
2 #include "simint/ostei/gen/ostei_generated.h"
3 //////////////////////////////////////////////
4 // VRR: ( p s | s f )
5 //////////////////////////////////////////////
VRR_L_p_s_s_f(SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_f,const SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_d,const SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_p,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_s_d,const SIMINT_DBLTYPE * Q_PB,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_L_p_s_s_f(
7 SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_f,
8 const SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_d,
9 const SIMINT_DBLTYPE * const restrict PRIM_INT__p_s_s_p,
10 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_s_d,
11 const SIMINT_DBLTYPE * Q_PB,
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__p_s_s_f,
23 PRIM_INT__p_s_s_d,
24 PRIM_INT__p_s_s_p,
25 PRIM_INT__s_s_s_d,
26 Q_PB,
27 a_over_q,
28 aoq_PQ,
29 one_over_2pq,
30 one_over_2q,
31 num_n);
32 }
33
34
35