mirror of
https://gitlab.com/scemama/QCaml.git
synced 2025-01-03 10:05:40 +01:00
Renamed Gaussian_basis into Gaussian
This commit is contained in:
parent
357bb0289a
commit
62eacf4146
@ -14,7 +14,7 @@ let of_nuclei_and_basis_filename ?(kind=`Gaussian) ?operators ?(cartesian=false)
|
||||
match kind with
|
||||
| `Gaussian ->
|
||||
let basis =
|
||||
Gaussian_basis.Basis.of_nuclei_and_basis_filename ~nuclei filename
|
||||
Gaussian.Basis.of_nuclei_and_basis_filename ~nuclei filename
|
||||
in
|
||||
let ao_basis =
|
||||
Gaussian (Basis_gaussian.make ~basis ?operators ~cartesian nuclei )
|
||||
|
@ -1,9 +1,9 @@
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Gaussian_integrals
|
||||
open Operators
|
||||
|
||||
module Basis = Gaussian_basis.Basis
|
||||
module Basis = Gaussian.Basis
|
||||
|
||||
type t =
|
||||
{
|
||||
|
@ -12,7 +12,7 @@ type t
|
||||
val size : t -> int
|
||||
(** Number of atomic orbitals *)
|
||||
|
||||
val basis : t -> Gaussian_basis.Basis.t
|
||||
val basis : t -> Gaussian.Basis.t
|
||||
(** One-electron basis set *)
|
||||
|
||||
val overlap : t -> Overlap.t
|
||||
@ -45,14 +45,14 @@ val kin_ints : t -> Kinetic.t
|
||||
val cartesian : t -> bool
|
||||
(** If true, use cartesian Gaussians (6d, 10f, ...) *)
|
||||
|
||||
val values : t -> Coordinate.t -> Gaussian_basis.Basis.t Vector.t
|
||||
val values : t -> Coordinate.t -> Gaussian.Basis.t Vector.t
|
||||
(** Values of the AOs evaluated at a given point *)
|
||||
|
||||
|
||||
|
||||
(** {1 Creators} *)
|
||||
|
||||
val make : basis:Gaussian_basis.Basis.t -> ?operators:Operator.t list ->
|
||||
val make : basis:Gaussian.Basis.t -> ?operators:Operator.t list ->
|
||||
?cartesian:bool -> Nuclei.t -> t
|
||||
(** Creates the data structure for atomic orbitals from a Gaussian basis and the
|
||||
molecular geometry {Nuclei.t} *)
|
||||
|
@ -6,7 +6,7 @@
|
||||
(libraries
|
||||
qcaml.common
|
||||
qcaml.particles
|
||||
qcaml.gaussian_basis
|
||||
qcaml.gaussian
|
||||
qcaml.gaussian_integrals
|
||||
qcaml.operators
|
||||
)
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Alcotest
|
||||
open Gaussian_integrals
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Particles
|
||||
open Operators
|
||||
open Linear_algebra
|
||||
|
@ -1,8 +1,8 @@
|
||||
; name = name of the supermodule that will wrap all source files as submodules
|
||||
; public_name = name of the library for ocamlfind and opam
|
||||
(library
|
||||
(name gaussian_basis)
|
||||
(public_name qcaml.gaussian_basis)
|
||||
(name gaussian)
|
||||
(public_name qcaml.gaussian)
|
||||
(libraries
|
||||
str
|
||||
qcaml.common
|
@ -3,6 +3,6 @@
|
||||
(libraries
|
||||
alcotest
|
||||
qcaml.particles
|
||||
qcaml.gaussian_basis
|
||||
qcaml.gaussian
|
||||
)
|
||||
(synopsis "Tests for Gaussian basis sets"))
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Particles
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Alcotest
|
||||
|
||||
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
@ -7,7 +7,7 @@
|
||||
str
|
||||
qcaml.common
|
||||
qcaml.linear_algebra
|
||||
qcaml.gaussian_basis
|
||||
qcaml.gaussian
|
||||
qcaml.operators
|
||||
)
|
||||
(modules_without_implementation matrix_on_basis)
|
||||
|
@ -3,7 +3,7 @@
|
||||
include Common
|
||||
include Particles
|
||||
include Linear_algebra
|
||||
include Gaussian_basis
|
||||
include Gaussian
|
||||
open Util
|
||||
open Constants
|
||||
|
||||
|
@ -9,7 +9,7 @@ $$ %}
|
||||
include module type of Matrix_on_basis
|
||||
|
||||
open Particles
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
val of_basis_nuclei : basis:Basis.t -> Nuclei.t -> t
|
||||
(** Build from a {Basis.t} and the nuclei (coordinates and charges). *)
|
||||
|
@ -1,7 +1,7 @@
|
||||
(** Electron-electron repulsion integrals *)
|
||||
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
module Csp = Contracted_shell_pair
|
||||
module Cspc = Contracted_shell_pair_couple
|
||||
|
@ -3,7 +3,7 @@
|
||||
*)
|
||||
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Operators
|
||||
|
||||
module Csp = Contracted_shell_pair
|
||||
|
@ -1,5 +1,5 @@
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
module Am = Angular_momentum
|
||||
module Asp = Atomic_shell_pair
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Util
|
||||
open Constants
|
||||
|
||||
|
@ -1,6 +1,6 @@
|
||||
(** Signature for matrices built on the {!Basis.t} *)
|
||||
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Linear_algebra
|
||||
|
||||
type t = (Basis.t, Basis.t) Matrix.t
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Constants
|
||||
|
||||
type t = (Basis.t, Basis.t) Matrix.t array
|
||||
|
@ -10,7 +10,7 @@
|
||||
*)
|
||||
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
type t = (Basis.t, Basis.t) Matrix.t array
|
||||
|
||||
|
@ -2,7 +2,7 @@ open Common
|
||||
open Particles
|
||||
open Util
|
||||
open Constants
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
exception NullPair
|
||||
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
module Am = Angular_momentum
|
||||
module Bs = Basis
|
||||
|
@ -1,6 +1,6 @@
|
||||
(** Orthonormalization of the basis. *)
|
||||
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Linear_algebra
|
||||
|
||||
type t = (Basis.t, Basis.t) Matrix.t
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Util
|
||||
open Constants
|
||||
|
||||
|
@ -1,7 +1,7 @@
|
||||
(** Screened Electron-electron repulsion integrals (Yukawa potential). Required for F12/r12. *)
|
||||
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Operators
|
||||
|
||||
module Csp = Contracted_shell_pair
|
||||
|
@ -3,7 +3,7 @@
|
||||
|
||||
open Common
|
||||
open Linear_algebra
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Operators
|
||||
|
||||
open Constants
|
||||
|
@ -6,7 +6,7 @@
|
||||
*)
|
||||
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Linear_algebra
|
||||
open Operators
|
||||
|
||||
|
@ -1,5 +1,5 @@
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
|
||||
module Am = Angular_momentum
|
||||
module Asp = Atomic_shell_pair
|
||||
|
@ -1,5 +1,5 @@
|
||||
open Common
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Linear_algebra
|
||||
|
||||
module Am = Angular_momentum
|
||||
|
@ -1,6 +1,6 @@
|
||||
open Common
|
||||
open Particles
|
||||
open Gaussian_basis
|
||||
open Gaussian
|
||||
open Alcotest
|
||||
|
||||
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||
|
@ -6,7 +6,7 @@
|
||||
(libraries
|
||||
qcaml.common
|
||||
qcaml.particles
|
||||
qcaml.gaussian_basis
|
||||
qcaml.gaussian
|
||||
qcaml.gaussian_integrals
|
||||
qcaml.operators
|
||||
qcaml.ao
|
||||
|
@ -1,6 +1,6 @@
|
||||
module Common = Common
|
||||
module Ao = Ao
|
||||
module Gaussian_basis = Gaussian_basis
|
||||
module Gaussian = Gaussian
|
||||
module Gaussian_integrals = Gaussian_integrals
|
||||
module Linear_algebra = Linear_algebra
|
||||
module Operators = Operators
|
||||
|
Loading…
Reference in New Issue
Block a user