1
2 #include "simint/ostei/gen/ostei_generated.h"
3 //////////////////////////////////////////////
4 // VRR: ( s f | d s )
5 //////////////////////////////////////////////
VRR_J_s_f_d_s(SIMINT_DBLTYPE * const restrict PRIM_INT__s_f_d_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_d_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_d_s,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_p_s,const SIMINT_DBLTYPE * P_PB,const SIMINT_DBLTYPE a_over_p,const SIMINT_DBLTYPE * aop_PQ,const SIMINT_DBLTYPE one_over_2p,const SIMINT_DBLTYPE one_over_2pq,const int num_n)6 void VRR_J_s_f_d_s(
7 SIMINT_DBLTYPE * const restrict PRIM_INT__s_f_d_s,
8 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_d_s,
9 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_d_s,
10 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_p_s,
11 const SIMINT_DBLTYPE * P_PB,
12 const SIMINT_DBLTYPE a_over_p,
13 const SIMINT_DBLTYPE * aop_PQ,
14 const SIMINT_DBLTYPE one_over_2p,
15 const SIMINT_DBLTYPE one_over_2pq,
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_I_f_s_d_s(
22 PRIM_INT__s_f_d_s,
23 PRIM_INT__s_d_d_s,
24 PRIM_INT__s_p_d_s,
25 PRIM_INT__s_d_p_s,
26 P_PB,
27 a_over_p,
28 aop_PQ,
29 one_over_2p,
30 one_over_2pq,
31 num_n);
32 }
33
34
35