10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-12-27 14:53:32 +01:00
QCaml/HartreeFock/Guess.ml

18 lines
300 B
OCaml
Raw Normal View History

2018-02-23 18:44:31 +01:00
open Lacaml.D
type guess =
| Hcore of Mat.t
type t = guess
let make ?guess:(guess=`Hcore) simulation =
let eN_ints = Lazy.force simulation.Simulation.eN_ints
and kin_ints = Lazy.force simulation.Simulation.kin_ints
in
match guess with
| `Hcore -> Hcore (Mat.add eN_ints kin_ints)