mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-07-25 04:07:24 +02:00
Removed Qcaml_ prefixes
This commit is contained in:
parent
b9fb5e7903
commit
6217dc5a0a
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
|
|
||||||
type basis =
|
type basis =
|
||||||
| Unknown
|
| Unknown
|
||||||
@ -14,7 +14,7 @@ let of_nuclei_and_basis_filename ?(kind=`Gaussian) ?operators ?(cartesian=false)
|
|||||||
match kind with
|
match kind with
|
||||||
| `Gaussian ->
|
| `Gaussian ->
|
||||||
let basis =
|
let basis =
|
||||||
Qcaml_gaussian_basis.Basis.of_nuclei_and_basis_filename ~nuclei filename
|
Gaussian_basis.Basis.of_nuclei_and_basis_filename ~nuclei filename
|
||||||
in
|
in
|
||||||
let ao_basis =
|
let ao_basis =
|
||||||
Gaussian (Basis_gaussian.make ~basis ?operators ~cartesian nuclei )
|
Gaussian (Basis_gaussian.make ~basis ?operators ~cartesian nuclei )
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
(** Data structure for Atomic Orbitals. *)
|
(** Data structure for Atomic Orbitals. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
|
|
||||||
type basis =
|
type basis =
|
||||||
| Unknown
|
| Unknown
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_gaussian_integrals
|
open Gaussian_integrals
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
module Basis = Qcaml_gaussian_basis.Basis
|
module Basis = Gaussian_basis.Basis
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
(** Data structure for Atomic Orbitals. *)
|
(** Data structure for Atomic Orbitals. *)
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_integrals
|
open Gaussian_integrals
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
@ -12,7 +12,7 @@ type t
|
|||||||
val size : t -> int
|
val size : t -> int
|
||||||
(** Number of atomic orbitals *)
|
(** Number of atomic orbitals *)
|
||||||
|
|
||||||
val basis : t -> Qcaml_gaussian_basis.Basis.t
|
val basis : t -> Gaussian_basis.Basis.t
|
||||||
(** One-electron basis set *)
|
(** One-electron basis set *)
|
||||||
|
|
||||||
val overlap : t -> Overlap.t
|
val overlap : t -> Overlap.t
|
||||||
@ -45,14 +45,14 @@ val kin_ints : t -> Kinetic.t
|
|||||||
val cartesian : t -> bool
|
val cartesian : t -> bool
|
||||||
(** If true, use cartesian Gaussians (6d, 10f, ...) *)
|
(** If true, use cartesian Gaussians (6d, 10f, ...) *)
|
||||||
|
|
||||||
val values : t -> Coordinate.t -> Qcaml_gaussian_basis.Basis.t Vector.t
|
val values : t -> Coordinate.t -> Gaussian_basis.Basis.t Vector.t
|
||||||
(** Values of the AOs evaluated at a given point *)
|
(** Values of the AOs evaluated at a given point *)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(** {1 Creators} *)
|
(** {1 Creators} *)
|
||||||
|
|
||||||
val make : basis:Qcaml_gaussian_basis.Basis.t -> ?operators:Operator.t list ->
|
val make : basis:Gaussian_basis.Basis.t -> ?operators:Operator.t list ->
|
||||||
?cartesian:bool -> Nuclei.t -> t
|
?cartesian:bool -> Nuclei.t -> t
|
||||||
(** Creates the data structure for atomic orbitals from a Gaussian basis and the
|
(** Creates the data structure for atomic orbitals from a Gaussian basis and the
|
||||||
molecular geometry {Nuclei.t} *)
|
molecular geometry {Nuclei.t} *)
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_ao)
|
(name ao)
|
||||||
(public_name qcaml.ao)
|
(public_name qcaml.ao)
|
||||||
(libraries
|
(libraries
|
||||||
qcaml.common
|
qcaml.common
|
||||||
|
@ -1,11 +1,10 @@
|
|||||||
open Alcotest
|
open Alcotest
|
||||||
open Qcaml_common
|
open Particles
|
||||||
open Qcaml_particles
|
open Operators
|
||||||
open Qcaml_operators
|
open Linear_algebra
|
||||||
open Qcaml_linear_algebra
|
open Ao.Basis
|
||||||
open Qcaml_ao.Basis
|
|
||||||
|
|
||||||
let wd = Qcaml.root ^ Filename.dir_sep ^ "test"
|
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||||
|
|
||||||
let make_tests name t =
|
let make_tests name t =
|
||||||
|
|
||||||
@ -90,7 +89,7 @@ let tests =
|
|||||||
let rs = 0.5 in
|
let rs = 0.5 in
|
||||||
let operators = [ Operator.of_range_separation rs ] in
|
let operators = [ Operator.of_range_separation rs ] in
|
||||||
let ao_basis =
|
let ao_basis =
|
||||||
Qcaml_ao.Basis.of_nuclei_and_basis_filename ~kind:`Gaussian
|
Ao.Basis.of_nuclei_and_basis_filename ~kind:`Gaussian
|
||||||
~operators ~cartesian:false ~nuclei basis_filename
|
~operators ~cartesian:false ~nuclei basis_filename
|
||||||
in
|
in
|
||||||
make_tests "water" ao_basis ;
|
make_tests "water" ao_basis ;
|
||||||
|
@ -1,13 +1,12 @@
|
|||||||
open Alcotest
|
open Alcotest
|
||||||
open Qcaml_common
|
open Gaussian_integrals
|
||||||
open Qcaml_gaussian_integrals
|
open Gaussian_basis
|
||||||
open Qcaml_gaussian_basis
|
open Particles
|
||||||
open Qcaml_particles
|
open Operators
|
||||||
open Qcaml_operators
|
open Linear_algebra
|
||||||
open Qcaml_linear_algebra
|
open Ao.Basis_gaussian
|
||||||
open Qcaml_ao.Basis_gaussian
|
|
||||||
|
|
||||||
let wd = Qcaml.root ^ Filename.dir_sep ^ "test"
|
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||||
|
|
||||||
let make_tests name t =
|
let make_tests name t =
|
||||||
|
|
||||||
@ -92,7 +91,7 @@ let tests =
|
|||||||
let rs = 0.5 in
|
let rs = 0.5 in
|
||||||
let operators = [ Operator.of_range_separation rs ] in
|
let operators = [ Operator.of_range_separation rs ] in
|
||||||
let ao_basis =
|
let ao_basis =
|
||||||
Qcaml_ao.Basis_gaussian.make ~basis ~operators nuclei
|
Ao.Basis_gaussian.make ~basis ~operators nuclei
|
||||||
in
|
in
|
||||||
make_tests "water" ao_basis ;
|
make_tests "water" ao_basis ;
|
||||||
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_common)
|
(name common)
|
||||||
(public_name qcaml.common)
|
(public_name qcaml.common)
|
||||||
(libraries
|
(libraries
|
||||||
str
|
str
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common.Bitstring
|
open Common.Bitstring
|
||||||
|
|
||||||
let check msg x = Alcotest.(check bool) msg true x
|
let check msg x = Alcotest.(check bool) msg true x
|
||||||
|
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common.Util
|
open Common.Util
|
||||||
open Alcotest
|
open Alcotest
|
||||||
|
|
||||||
let test_external () =
|
let test_external () =
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t = {
|
type t = {
|
||||||
expo : float array array;
|
expo : float array array;
|
||||||
|
@ -30,7 +30,7 @@ where:
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : ?index:int -> Contracted_shell.t array -> t
|
val make : ?index:int -> Contracted_shell.t array -> t
|
||||||
(** Creates a contracted shell from a list of coefficients and primitives. *)
|
(** Creates a contracted shell from a list of coefficients and primitives. *)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
|
|
||||||
val make : ?cutoff:float -> Atomic_shell.t -> Atomic_shell.t -> t option
|
val make : ?cutoff:float -> Atomic_shell.t -> Atomic_shell.t -> t option
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -13,7 +13,7 @@ acting on different electrons, since they will be coupled by a two-electron oper
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : ?cutoff:float -> Atomic_shell_pair.t -> Atomic_shell_pair.t -> t option
|
val make : ?cutoff:float -> Atomic_shell_pair.t -> Atomic_shell_pair.t -> t option
|
||||||
(** Creates an atomic shell pair couple using two atomic shell pairs.
|
(** Creates an atomic shell pair couple using two atomic shell pairs.
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
|
|
||||||
val of_nuclei_and_general_basis : Nuclei.t -> General_basis.t -> t
|
val of_nuclei_and_general_basis : Nuclei.t -> General_basis.t -> t
|
||||||
(** Takes an array of {!Nuclei.t}, and a {!GeneralBasis.t} (such as cc-pVDZ
|
(** Takes an array of {!Nuclei.t}, and a {!GeneralBasis.t} (such as cc-pVDZ
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t = {
|
type t = {
|
||||||
expo : float array;
|
expo : float array;
|
||||||
|
@ -28,7 +28,7 @@ where:
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : ?index:int -> (float * Primitive_shell.t) array -> t
|
val make : ?index:int -> (float * Primitive_shell.t) array -> t
|
||||||
(** Creates a contracted shell from a list of coefficients and primitives. *)
|
(** Creates a contracted shell from a list of coefficients and primitives. *)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -13,7 +13,7 @@ A contracted shell pair is a product of two {!Contracted_shell.t}:
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : ?cutoff:float -> Contracted_shell.t -> Contracted_shell.t -> t option
|
val make : ?cutoff:float -> Contracted_shell.t -> Contracted_shell.t -> t option
|
||||||
(** Creates an contracted shell pair {% $\varphi_{ab}$ %} from a contracted
|
(** Creates an contracted shell pair {% $\varphi_{ab}$ %} from a contracted
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -13,7 +13,7 @@ acting on different electrons, since they will be coupled by a two-electron oper
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : ?cutoff:float -> Contracted_shell_pair.t -> Contracted_shell_pair.t -> t option
|
val make : ?cutoff:float -> Contracted_shell_pair.t -> Contracted_shell_pair.t -> t option
|
||||||
(** Creates a contracted shell pair couple using two contracted shell pairs.
|
(** Creates a contracted shell pair couple using two contracted shell pairs.
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_gaussian_basis)
|
(name gaussian_basis)
|
||||||
(public_name qcaml.gaussian_basis)
|
(public_name qcaml.gaussian_basis)
|
||||||
(libraries
|
(libraries
|
||||||
str
|
str
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(** General basis set read from a file *)
|
(** General basis set read from a file *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
|
|
||||||
type primitive =
|
type primitive =
|
||||||
{
|
{
|
||||||
|
@ -28,8 +28,8 @@ are created by picking the data from the general basis set. This data structure
|
|||||||
simplifies the creation of the atomic basis set.
|
simplifies the creation of the atomic basis set.
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
|
|
||||||
type primitive = private
|
type primitive = private
|
||||||
{
|
{
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Util
|
open Util
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
|
@ -20,7 +20,7 @@ where:
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val to_string : t -> string
|
val to_string : t -> string
|
||||||
(** Pretty-printing of the primitive shell in a string. *)
|
(** Pretty-printing of the primitive shell in a string. *)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
|
|
||||||
|
@ -37,7 +37,7 @@ References:
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : Primitive_shell.t -> Primitive_shell.t -> t
|
val make : Primitive_shell.t -> Primitive_shell.t -> t
|
||||||
(** Creates a primitive shell pair using two primitive shells. *)
|
(** Creates a primitive shell pair using two primitive shells. *)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -13,7 +13,7 @@ acting on different electrons, since they will be coupled by a two-electron oper
|
|||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
val make : Primitive_shell_pair.t -> Primitive_shell_pair.t -> t
|
val make : Primitive_shell_pair.t -> Primitive_shell_pair.t -> t
|
||||||
(** Creates a primitive shell pair couple using two primitive shell pairs.
|
(** Creates a primitive shell pair couple using two primitive shell pairs.
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Alcotest
|
open Alcotest
|
||||||
|
|
||||||
let wd = Qcaml.root ^ Filename.dir_sep ^ "test"
|
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||||
|
|
||||||
let test_read () =
|
let test_read () =
|
||||||
let oxygen = Element.of_string "O" in
|
let oxygen = Element.of_string "O" in
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_gaussian_integrals)
|
(name gaussian_integrals)
|
||||||
(public_name qcaml.gaussian_integrals)
|
(public_name qcaml.gaussian_integrals)
|
||||||
(libraries
|
(libraries
|
||||||
str
|
str
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
(** Electron-nucleus repulsion integrals *)
|
(** Electron-nucleus repulsion integrals *)
|
||||||
|
|
||||||
include Qcaml_common
|
include Common
|
||||||
include Qcaml_particles
|
include Particles
|
||||||
include Qcaml_linear_algebra
|
include Linear_algebra
|
||||||
include Qcaml_gaussian_basis
|
include Gaussian_basis
|
||||||
open Util
|
open Util
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
|
@ -8,8 +8,8 @@ $$ %}
|
|||||||
|
|
||||||
include module type of Matrix_on_basis
|
include module type of Matrix_on_basis
|
||||||
|
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
val of_basis_nuclei : basis:Basis.t -> Nuclei.t -> t
|
val of_basis_nuclei : basis:Basis.t -> Nuclei.t -> t
|
||||||
(** Build from a {Basis.t} and the nuclei (coordinates and charges). *)
|
(** Build from a {Basis.t} and the nuclei (coordinates and charges). *)
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(** Electron-electron repulsion integrals *)
|
(** Electron-electron repulsion integrals *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
module Csp = Contracted_shell_pair
|
module Csp = Contracted_shell_pair
|
||||||
module Cspc = Contracted_shell_pair_couple
|
module Cspc = Contracted_shell_pair_couple
|
||||||
|
@ -2,9 +2,9 @@
|
|||||||
See Eq(52) in 10.1039/b605188j
|
See Eq(52) in 10.1039/b605188j
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
module Csp = Contracted_shell_pair
|
module Csp = Contracted_shell_pair
|
||||||
module Cspc = Contracted_shell_pair_couple
|
module Cspc = Contracted_shell_pair_couple
|
||||||
|
@ -2,8 +2,8 @@
|
|||||||
It is parameterized by the [zero_m] function.
|
It is parameterized by the [zero_m] function.
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
open Constants
|
open Constants
|
||||||
let cutoff = integrals_cutoff
|
let cutoff = integrals_cutoff
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
module Am = Angular_momentum
|
module Am = Angular_momentum
|
||||||
module Asp = Atomic_shell_pair
|
module Asp = Atomic_shell_pair
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Util
|
open Util
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(** Signature for matrices built on the {!Basis.t} *)
|
(** Signature for matrices built on the {!Basis.t} *)
|
||||||
|
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
|
|
||||||
type t = (Basis.t, Basis.t) Matrix.t
|
type t = (Basis.t, Basis.t) Matrix.t
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
type t = (Basis.t, Basis.t) Matrix.t array
|
type t = (Basis.t, Basis.t) Matrix.t array
|
||||||
|
@ -9,8 +9,8 @@
|
|||||||
|
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
type t = (Basis.t, Basis.t) Matrix.t array
|
type t = (Basis.t, Basis.t) Matrix.t array
|
||||||
|
|
||||||
|
@ -1,8 +1,8 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Util
|
open Util
|
||||||
open Constants
|
open Constants
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
exception NullPair
|
exception NullPair
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
module Am = Angular_momentum
|
module Am = Angular_momentum
|
||||||
module Bs = Basis
|
module Bs = Basis
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(** Orthonormalization of the basis. *)
|
(** Orthonormalization of the basis. *)
|
||||||
|
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
|
|
||||||
type t = (Basis.t, Basis.t) Matrix.t
|
type t = (Basis.t, Basis.t) Matrix.t
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Util
|
open Util
|
||||||
open Constants
|
open Constants
|
||||||
|
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Util
|
open Util
|
||||||
|
|
||||||
|
|
||||||
|
@ -1,8 +1,8 @@
|
|||||||
(** Screened Electron-electron repulsion integrals (Yukawa potential). Required for F12/r12. *)
|
(** Screened Electron-electron repulsion integrals (Yukawa potential). Required for F12/r12. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
module Csp = Contracted_shell_pair
|
module Csp = Contracted_shell_pair
|
||||||
module Cspc = Contracted_shell_pair_couple
|
module Cspc = Contracted_shell_pair_couple
|
||||||
|
@ -1,10 +1,10 @@
|
|||||||
(** Two electron integrals
|
(** Two electron integrals
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
open Constants
|
open Constants
|
||||||
let cutoff = integrals_cutoff
|
let cutoff = integrals_cutoff
|
||||||
|
@ -5,10 +5,10 @@
|
|||||||
|
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
module type Two_ei_structure =
|
module type Two_ei_structure =
|
||||||
sig
|
sig
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
|
|
||||||
module Am = Angular_momentum
|
module Am = Angular_momentum
|
||||||
module Asp = Atomic_shell_pair
|
module Asp = Atomic_shell_pair
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
|
|
||||||
module Am = Angular_momentum
|
module Am = Angular_momentum
|
||||||
module Co = Coordinate
|
module Co = Coordinate
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_operators
|
open Operators
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
{
|
{
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Qcaml_gaussian_basis
|
open Gaussian_basis
|
||||||
open Alcotest
|
open Alcotest
|
||||||
|
|
||||||
let wd = Qcaml.root ^ Filename.dir_sep ^ "test"
|
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||||
|
|
||||||
let test_read () =
|
let test_read () =
|
||||||
let oxygen = Element.of_string "O" in
|
let oxygen = Element.of_string "O" in
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_linear_algebra)
|
(name linear_algebra)
|
||||||
(public_name qcaml.linear_algebra)
|
(public_name qcaml.linear_algebra)
|
||||||
(libraries
|
(libraries
|
||||||
qcaml.common
|
qcaml.common
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
let max_index = 1 lsl 14
|
let max_index = 1 lsl 14
|
||||||
|
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
module Am = Angular_momentum
|
module Am = Angular_momentum
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
(** Conversion from spherical coordinate to cartesian corrdinates. *)
|
(** Conversion from spherical coordinate to cartesian corrdinates. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type num_cartesian_ao
|
type num_cartesian_ao
|
||||||
type num_spherical_ao
|
type num_spherical_ao
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_linear_algebra
|
open Linear_algebra
|
||||||
open Alcotest
|
open Alcotest
|
||||||
open Lacaml.D
|
open Lacaml.D
|
||||||
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_operators)
|
(name operators)
|
||||||
(public_name qcaml.operators)
|
(public_name qcaml.operators)
|
||||||
(libraries
|
(libraries
|
||||||
str
|
str
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
; name = name of the supermodule that will wrap all source files as submodules
|
; name = name of the supermodule that will wrap all source files as submodules
|
||||||
; public_name = name of the library for ocamlfind and opam
|
; public_name = name of the library for ocamlfind and opam
|
||||||
(library
|
(library
|
||||||
(name qcaml_particles)
|
(name particles)
|
||||||
(public_name qcaml.particles)
|
(public_name qcaml.particles)
|
||||||
(libraries
|
(libraries
|
||||||
str
|
str
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
(** Number of {% $\alpha$ %} and {% $\beta$ %} electrons *)
|
(** Number of {% $\alpha$ %} and {% $\beta$ %} electrons *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t = {
|
type t = {
|
||||||
n_alfa : int ;
|
n_alfa : int ;
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
(** Information related to electrons. *)
|
(** Information related to electrons. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t
|
type t
|
||||||
|
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
exception ElementError of string
|
exception ElementError of string
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
(** Chemical elements. *)
|
(** Chemical elements. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
exception ElementError of string
|
exception ElementError of string
|
||||||
|
|
||||||
|
@ -1,3 +1,3 @@
|
|||||||
(** Atomic mass. *)
|
(** Atomic mass. *)
|
||||||
|
|
||||||
include Qcaml_common.Non_negative_float
|
include Common.Non_negative_float
|
||||||
|
@ -1,3 +1,3 @@
|
|||||||
(** Atomic mass. *)
|
(** Atomic mass. *)
|
||||||
|
|
||||||
include module type of Qcaml_common.Non_negative_float
|
include module type of Common.Non_negative_float
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Xyz_ast
|
open Xyz_ast
|
||||||
|
|
||||||
type t = (Element.t * Coordinate.t) array
|
type t = (Element.t * Coordinate.t) array
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
of tuples ({!Element.t}, {!Coordinate.t}).
|
of tuples ({!Element.t}, {!Coordinate.t}).
|
||||||
*)
|
*)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type t = (Element.t * Coordinate.t) array
|
type t = (Element.t * Coordinate.t) array
|
||||||
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(** When an [xyz] file is read by the [Xyz_parser.mly], it is converted into
|
(** When an [xyz] file is read by the [Xyz_parser.mly], it is converted into
|
||||||
an {!xyz_file} data structure. *)
|
an {!xyz_file} data structure. *)
|
||||||
|
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
type nucleus =
|
type nucleus =
|
||||||
{
|
{
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
/* Parses nuclear coordinates in xyz format */
|
/* Parses nuclear coordinates in xyz format */
|
||||||
|
|
||||||
%{
|
%{
|
||||||
open Qcaml_common
|
open Common
|
||||||
|
|
||||||
let make_angstrom x y z =
|
let make_angstrom x y z =
|
||||||
Coordinate.(make_angstrom {
|
Coordinate.(make_angstrom {
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Alcotest
|
open Alcotest
|
||||||
|
|
||||||
|
|
||||||
|
@ -1,8 +1,8 @@
|
|||||||
open Qcaml_common
|
open Common
|
||||||
open Qcaml_particles
|
open Particles
|
||||||
open Alcotest
|
open Alcotest
|
||||||
|
|
||||||
let wd = Qcaml.root ^ Filename.dir_sep ^ "test"
|
let wd = Common.Qcaml.root ^ Filename.dir_sep ^ "test"
|
||||||
|
|
||||||
let test_xyz molecule length repulsion charge core =
|
let test_xyz molecule length repulsion charge core =
|
||||||
let xyz = Nuclei.of_xyz_file (wd^Filename.dir_sep^molecule^".xyz") in
|
let xyz = Nuclei.of_xyz_file (wd^Filename.dir_sep^molecule^".xyz") in
|
||||||
|
Loading…
Reference in New Issue
Block a user