mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-07-11 22:03:37 +02:00
Introduced TRR for maxm>10
This commit is contained in:
parent
90481d296b
commit
82561b2420
|
@ -222,7 +222,7 @@ let rec hvrr_two_e (angMom_a, angMom_b, angMom_c, angMom_d)
|
|||
in
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
|
|
@ -463,7 +463,7 @@ let hvrr_two_e_vector (angMom_a, angMom_b, angMom_c, angMom_d)
|
|||
|
||||
let vrr_v a b =
|
||||
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
|
||||
in
|
||||
match v with
|
||||
|
|
Loading…
Reference in New Issue
Block a user