mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-12-22 12:23:31 +01:00
75 lines
2.2 KiB
OCaml
75 lines
2.2 KiB
OCaml
(**
|
|
The determinant space in which we solve the Schrodinger equation.
|
|
*)
|
|
|
|
type t
|
|
|
|
type arbitrary_space =
|
|
{
|
|
det : int array array ;
|
|
det_alfa : Spindeterminant.t array ;
|
|
det_beta : Spindeterminant.t array ;
|
|
index_start : int array;
|
|
}
|
|
|
|
|
|
type determinant_storage =
|
|
| Arbitrary of arbitrary_space
|
|
| Spin of (Spindeterminant.t array * Spindeterminant.t array)
|
|
|
|
|
|
(** {1 Accessors} *)
|
|
|
|
val n_alfa : t -> int
|
|
(** Number of {% $\alpha$ %} electrons in the {% $\alpha$ %} MOs. *)
|
|
|
|
val n_beta : t -> int
|
|
(** Number of {% $\beta$ %} electrons in the {% $\beta$ %} MOs. *)
|
|
|
|
val mo_class : t -> Mo.Class.t
|
|
(** The MO classes used to generate the space. *)
|
|
|
|
val mo_basis : t -> Mo.Basis.t
|
|
(** The MO basis on which the determinants are expanded. *)
|
|
|
|
val determinants : t -> determinant_storage
|
|
(** All the determinants belonging to the space. *)
|
|
|
|
val determinants_array : t -> Determinant.t array
|
|
(** All the determinants belonging to the space. *)
|
|
|
|
val determinant_stream : t -> Determinant.t Stream.t
|
|
(** All the determinants belonging to the space, as a stream. *)
|
|
|
|
val size : t -> int
|
|
(** Size of the determinant space *)
|
|
|
|
val fock_diag : t -> Determinant.t -> float array * float array
|
|
(** Returns the diagonal of the {% $\alpha$ %} and {% $\beta$ %} Fock matrices.
|
|
The zero elements contain the energy of the determinant.
|
|
*)
|
|
|
|
|
|
val fci_of_mo_basis : Mo.Basis.t -> frozen_core:Mo.Frozen_core.t -> t
|
|
(** Creates a space of all possible ways to put [n_alfa] electrons in the {% $\alpha$ %}
|
|
[Active] MOs and [n_beta] electrons in the {% $\beta$ %} [Active] MOs.
|
|
All other MOs are untouched.
|
|
*)
|
|
|
|
val cas_of_mo_basis : Mo.Basis.t -> frozen_core:Mo.Frozen_core.t -> int -> int -> t
|
|
(** Creates a CAS(n,m) space of determinants. *)
|
|
|
|
val fci_f12_of_mo_basis : Mo.Basis.t -> frozen_core:Mo.Frozen_core.t -> int -> t
|
|
(** Creates the active space to perform a FCI-F12 with an
|
|
auxiliary basis set. *)
|
|
|
|
val cas_f12_of_mo_basis : Mo.Basis.t -> frozen_core:Mo.Frozen_core.t -> int -> int -> int -> t
|
|
(** [cas_of_mo_basis mo_basis m n mo_num] Creates a CAS(n,m) space
|
|
of determinants with an auxiliary basis set defined as the MOs from
|
|
[mo_num+1] to [Mo.Basis.size mo_basis].
|
|
*)
|
|
|
|
(** {2 Printing} *)
|
|
|
|
val pp : Format.formatter -> t -> unit
|