10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-07 06:33:39 +01:00

Better vectorization

This commit is contained in:
Anthony Scemama 2018-02-11 01:06:42 +01:00
parent 03380374a1
commit 1677007e48

View File

@ -238,10 +238,6 @@ let hvrr_two_e_vector (angMom_a, angMom_b, angMom_c, angMom_d)
done; done;
Some v2 Some v2
end end
(*
Some (Array.init np (fun l -> Array.init nq (fun k ->
v1.(l).(k) +. v2.(l).(k) ) ) )
*)
in in
let p2 = let p2 =