LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-07-25 20:27:28 +02:00
Code Releases Activity

Working n f12

Browse Source
This commit is contained in:
Anthony Scemama 2019-08-05 13:24:41 +02:00
parent 5df7cecd9f
commit 8f9a28f340
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
CI/F12CI.ml
View File

@ -58,7 +58,14 @@ let f_ij mo_basis ki kj =
|> List.hd |> List.hd
let hf_ij mo_basis ki kj = let hf_ij mo_basis ki kj =
(*
[ h_ij mo_basis ki kj ; f_ij mo_basis ki kj ] [ h_ij mo_basis ki kj ; f_ij mo_basis ki kj ]
*)
let integrals =
List.map (fun f -> f mo_basis)
[ CI.h_integrals ; f12_integrals ]
in
CIMatrixElement.make integrals ki kj
let is_a_double det_space = let is_a_double det_space =