LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-19 04:22:21 +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

2
Utils/Zkey.ml
View File

@ -179,7 +179,7 @@ let to_powers ~kind { left ; right } =
let hash = Hashtbl.hash let hash = Hashtbl.hash
let equal let equal
{ right = r1 ; left = l1 } { right = r1 ; left = l1 }