LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-08-30 16:23:41 +02:00
Code Releases Activity

Better guess

Browse Source
This commit is contained in:
Anthony Scemama 2019-03-05 01:12:13 +01:00
parent c9c039c2fe
commit aec8128889
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SCF/Guess.ml
View File

@ -39,7 +39,7 @@ let huckel_guess ao_basis =
| nocc -> | nocc ->
Mat.init_cols ao_num ao_num (fun i j -> Mat.init_cols ao_num ao_num (fun i j ->
if (i<>j) then if (i<>j) then
if (diag.{i} +. diag.{j}) < 5. then if (diag.{i} +. diag.{j}) < 0. then
c *. overlap.{i,j} *. (diag.{i} +. diag.{j}) +. m_F.{i,j} (*TODO Pseudo *) c *. overlap.{i,j} *. (diag.{i} +. diag.{j}) +. m_F.{i,j} (*TODO Pseudo *)
else else
m_F.{i,j} (*TODO Pseudo *) m_F.{i,j} (*TODO Pseudo *)