LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Modified integrals

This commit is contained in:
Anthony Scemama 2019-05-29 16:43:44 +02:00
parent e9a835d7b8
commit 5df7cecd9f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CI/F12CI.ml
View File

@ -31,7 +31,7 @@ let f12_integrals mo_basis =
if s' = Spin.other s then
(* Minus sign because we swap spin variables
instead of orbital variables *)
0.5 *. ijkl
0.375 *. ijkl +. 0.125 *. ijlk
else
0.25 *. (ijkl -. ijlk)
end
@ -54,7 +54,7 @@ let f_ij mo_basis ki kj =
List.map (fun f -> f mo_basis)
[ f12_integrals ]
in
CIMatrixElementF12.make integrals ki kj
CIMatrixElement.make integrals ki kj
|> List.hd
let hf_ij mo_basis ki kj =