(** Guess for Hartree-Fock calculations. *)

type guess = 
| Hcore  of Lacaml.D.Mat.t
| Huckel of Lacaml.D.Mat.t

type t = guess


val make : ?nocc:int -> guess:[ `Hcore | `Huckel ] -> AOBasis.t -> t