1
2 #include "simint/ostei/gen/ostei_generated.h"
3 //////////////////////////////////////////////
4 // VRR: ( s d | s d )
5 //////////////////////////////////////////////
VRR_J_s_d_s_d(SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_s_d,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_s_d,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_s_d,const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_s_p,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_d_s_d(
7 SIMINT_DBLTYPE * const restrict PRIM_INT__s_d_s_d,
8 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_s_d,
9 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_s_s_d,
10 const SIMINT_DBLTYPE * const restrict PRIM_INT__s_p_s_p,
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_d_s_d_s(
22 PRIM_INT__s_d_s_d,
23 PRIM_INT__s_p_s_d,
24 PRIM_INT__s_s_s_d,
25 PRIM_INT__s_p_s_p,
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