LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-06 22:23:42 +01:00
Code Releases Activity

Fixed Huckel guess

Browse Source
This commit is contained in:
Anthony Scemama 2020-10-26 13:35:06 +01:00
parent 2a7a586c92
commit 74ae9acd1a
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mo/lib/guess.ml
View File

@ -24,9 +24,7 @@ let huckel_guess ao_basis =
let eN_ints = Ao.Basis.eN_ints ao_basis
and kin_ints = Ao.Basis.kin_ints ao_basis
in
let m_F =
Matrix.add eN_ints kin_ints
in
let m_F = Matrix.add eN_ints kin_ints in
let ao_num = Ao.Basis.size ao_basis
and overlap = Ao.Basis.overlap ao_basis
in
@ -37,10 +35,7 @@ let huckel_guess ao_basis =
| _nocc ->
Matrix.init_cols ao_num ao_num (fun i j ->
if (i<>j) then
if (diag%.(i) +. diag%.(j)) < 0. then
c *. (overlap%:(i,j)) *. (diag%.(i) +. diag%.(j)) +. m_F%:(i,j) (*TODO Pseudo *)
else
m_F%:(i,j) (*TODO Pseudo *)
c *. (overlap%:(i,j)) *. (diag%.(i) +. diag%.(j))
else
diag%.(i)
)