2020-09-26 16:45:52 +02:00
|
|
|
(** Two-electron integrals with an arbitrary operator, with a functorial interface
|
|
|
|
parameterized by the fundamental two-electron integrals.
|
|
|
|
|
|
|
|
{% $(00|00)^m = \int \int \phi_p(r1) \hat{O} \phi_q(r2) dr_1 dr_2 $ %} : Fundamental two-electron integral
|
|
|
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
open Qcaml_common
|
|
|
|
open Qcaml_gaussian_basis
|
|
|
|
open Qcaml_linear_algebra
|
2020-09-27 23:55:42 +02:00
|
|
|
open Qcaml_operators
|
2020-09-26 16:45:52 +02:00
|
|
|
|
|
|
|
module type Two_ei_structure =
|
|
|
|
sig
|
|
|
|
val name : string
|
|
|
|
(** Name of the kind of integrals, for printing purposes. *)
|
|
|
|
|
|
|
|
val class_of_contracted_shell_pair_couple :
|
2020-09-28 00:24:36 +02:00
|
|
|
?operator:Operator.t -> Contracted_shell_pair_couple.t -> float Zmap.t
|
2020-09-26 16:45:52 +02:00
|
|
|
(** Returns an integral class from a couple of contracted shells.
|
|
|
|
The results is stored in a Zmap.
|
|
|
|
*)
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
module Make : functor (T : Two_ei_structure) ->
|
|
|
|
sig
|
|
|
|
include module type of Four_idx_storage
|
|
|
|
|
2020-09-28 00:24:36 +02:00
|
|
|
val of_basis : ?operator:Operator.t -> Basis.t -> t
|
2020-09-26 16:45:52 +02:00
|
|
|
(** Compute all ERI's for a given {!Basis.t}. *)
|
|
|
|
|
|
|
|
end
|
|
|
|
|