LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2025-01-05 02:48:37 +01:00
Code Releases Activity

Introduced TRR for maxm>10

Browse Source
This commit is contained in:
Anthony Scemama 2018-02-22 01:48:30 +01:00
parent 90481d296b
commit 82561b2420
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Basis/TwoElectronRR.ml
View File

@ -222,7 +222,7 @@ let rec hvrr_two_e (angMom_a, angMom_b, angMom_c, angMom_d)
in in
let vrr a c = let vrr a c =
if maxm < 40 then (vrr a c).(0) else trr a c if maxm < 10 then (vrr a c).(0) else trr a c
in in

2
Basis/TwoElectronRRVectorized.ml
View File

@ -463,7 +463,7 @@ let hvrr_two_e_vector (angMom_a, angMom_b, angMom_c, angMom_d)
let vrr_v a b = let vrr_v a b =
let v = let v =
if Array.length zero_m_array < 20 then vrr_v 0 a b if Array.length zero_m_array < 10 then vrr_v 0 a b
else trr_v a b else trr_v a b
in in
match v with match v with