2021-01-04 23:15:27 +01:00
|
|
|
(* Type
|
|
|
|
*
|
2021-01-20 23:55:34 +01:00
|
|
|
* <<<~Gaussian_basis.t~>>>
|
2021-01-04 23:15:27 +01:00
|
|
|
* #+NAME: types *)
|
|
|
|
|
|
|
|
(* [[file:~/QCaml/ao/basis_gaussian.org::types][types]] *)
|
2020-10-09 09:47:57 +02:00
|
|
|
open Common
|
|
|
|
open Particles
|
|
|
|
open Linear_algebra
|
|
|
|
open Gaussian_integrals
|
|
|
|
open Operators
|
2020-10-02 23:35:56 +02:00
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
type t
|
|
|
|
(* types ends here *)
|
2020-10-02 23:35:56 +02:00
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* Access *)
|
2020-10-02 23:35:56 +02:00
|
|
|
|
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* [[file:~/QCaml/ao/basis_gaussian.org::*Access][Access:1]] *)
|
|
|
|
val basis : t -> Gaussian.Basis.t
|
|
|
|
val cartesian : t -> bool
|
|
|
|
val ee_ints : t -> Eri.t
|
|
|
|
val ee_lr_ints : t -> Eri_long_range.t
|
|
|
|
val eN_ints : t -> Electron_nucleus.t
|
|
|
|
val f12_ints : t -> F12.t
|
2020-10-03 00:54:17 +02:00
|
|
|
val f12_over_r12_ints : t -> Screened_eri.t
|
2021-01-04 23:15:27 +01:00
|
|
|
val kin_ints : t -> Kinetic.t
|
|
|
|
val multipole : t -> Multipole.t
|
|
|
|
val ortho : t -> Orthonormalization.t
|
|
|
|
val overlap : t -> Overlap.t
|
|
|
|
val size : t -> int
|
|
|
|
(* Access:1 ends here *)
|
2020-10-03 00:54:17 +02:00
|
|
|
|
2023-04-24 19:01:42 +02:00
|
|
|
(* Computation *)
|
2020-10-02 23:35:56 +02:00
|
|
|
|
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* [[file:~/QCaml/ao/basis_gaussian.org::*Computation][Computation:1]] *)
|
2021-01-28 00:34:26 +01:00
|
|
|
val values : t ->
|
|
|
|
Coordinate.t ->
|
|
|
|
Gaussian.Basis.t Vector.t
|
2021-01-04 23:15:27 +01:00
|
|
|
(* Computation:1 ends here *)
|
|
|
|
|
|
|
|
(* Creation *)
|
|
|
|
|
2020-10-02 23:35:56 +02:00
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* [[file:~/QCaml/ao/basis_gaussian.org::*Creation][Creation:1]] *)
|
|
|
|
val make : basis:Gaussian.Basis.t ->
|
|
|
|
?operators:Operator.t list ->
|
|
|
|
?cartesian:bool ->
|
2021-01-28 00:34:26 +01:00
|
|
|
Nuclei.t ->
|
|
|
|
t
|
2021-01-04 23:15:27 +01:00
|
|
|
(* Creation:1 ends here *)
|
2020-10-02 23:35:56 +02:00
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* Printers *)
|
2020-10-02 23:35:56 +02:00
|
|
|
|
|
|
|
|
2021-01-04 23:15:27 +01:00
|
|
|
(* [[file:~/QCaml/ao/basis_gaussian.org::*Printers][Printers:1]] *)
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
|
|
(* Printers:1 ends here *)
|