mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-11-18 20:12:26 +01:00
21 lines
420 B
OCaml
21 lines
420 B
OCaml
open Linear_algebra
|
|
|
|
(** Guess for Hartree-Fock calculations. *)
|
|
|
|
type ao = Ao.Ao_dim.t
|
|
type mo = Mo_dim.t
|
|
|
|
type guess =
|
|
| Hcore of (ao,ao) Matrix.t (* Core Hamiltonian Matrix *)
|
|
| Huckel of (ao,ao) Matrix.t (* Huckel Hamiltonian Matrix *)
|
|
| Matrix of (ao,mo) Matrix.t (* Guess Eigenvectors *)
|
|
|
|
type t = guess
|
|
|
|
|
|
val make :
|
|
?nocc:int ->
|
|
guess:[ `Hcore | `Huckel | `Matrix of (ao,mo) Matrix.t ] ->
|
|
Ao.Basis.t -> t
|
|
|