2021-01-06 09:03:26 +01:00
|
|
|
(* Type *)
|
2018-03-20 14:11:31 +01:00
|
|
|
|
2018-03-20 15:16:24 +01:00
|
|
|
|
2021-01-06 09:03:26 +01:00
|
|
|
(* [[file:~/QCaml/gaussian/atomic_shell.org::*Type][Type:1]] *)
|
|
|
|
type t
|
2018-03-20 14:11:31 +01:00
|
|
|
|
2020-10-09 09:47:57 +02:00
|
|
|
open Common
|
2021-01-06 09:03:26 +01:00
|
|
|
(* Type:1 ends here *)
|
|
|
|
|
|
|
|
(* Access *)
|
2018-03-20 14:11:31 +01:00
|
|
|
|
|
|
|
|
2021-01-06 09:03:26 +01:00
|
|
|
(* [[file:~/QCaml/gaussian/atomic_shell.org::*Access][Access:1]] *)
|
2021-01-07 09:21:06 +01:00
|
|
|
val ang_mom : t -> Angular_momentum.t
|
|
|
|
val center : t -> Coordinate.t
|
|
|
|
val coefficients : t -> float array array
|
|
|
|
val contracted_shells : t -> Contracted_shell.t array
|
|
|
|
val exponents : t -> float array array
|
|
|
|
val index : t -> int
|
|
|
|
val normalizations : t -> float array array
|
|
|
|
val norm_scales : t -> float array
|
|
|
|
val size_of_shell : t -> int
|
|
|
|
val size : t -> int
|
2021-01-06 09:03:26 +01:00
|
|
|
(* Access:1 ends here *)
|
2018-03-20 14:11:31 +01:00
|
|
|
|
2021-01-06 09:03:26 +01:00
|
|
|
(* Creation *)
|
2018-03-20 14:11:31 +01:00
|
|
|
|
|
|
|
|
2021-01-06 09:03:26 +01:00
|
|
|
(* [[file:~/QCaml/gaussian/atomic_shell.org::*Creation][Creation:1]] *)
|
|
|
|
val make : ?index:int -> Contracted_shell.t array -> t
|
2018-03-20 14:11:31 +01:00
|
|
|
|
2021-01-06 09:03:26 +01:00
|
|
|
val with_index : t -> int -> t
|
|
|
|
(* Creation:1 ends here *)
|
|
|
|
|
|
|
|
(* Printers *)
|
|
|
|
|
|
|
|
|
|
|
|
(* [[file:~/QCaml/gaussian/atomic_shell.org::*Printers][Printers:1]] *)
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
|
|
(* Printers:1 ends here *)
|