2018-02-23 15:49:27 +01:00
|
|
|
type shell_contracted = private {
|
|
|
|
expo : float array;
|
|
|
|
coef : float array;
|
|
|
|
center : Coordinate.t;
|
|
|
|
totAngMom : Angular_momentum.t;
|
|
|
|
size : int;
|
|
|
|
norm_coef : float array;
|
|
|
|
norm_coef_scale : float array;
|
|
|
|
index : int;
|
|
|
|
powers : Zkey.t array;
|
|
|
|
}
|
2018-02-07 13:33:25 +01:00
|
|
|
|
2018-02-23 15:49:27 +01:00
|
|
|
type t = shell_contracted
|
2018-02-06 18:12:19 +01:00
|
|
|
|
|
|
|
|
|
|
|
(** Pretty-printing of the contracted shell in a string *)
|
|
|
|
val to_string : t -> string
|
|
|
|
|
|
|
|
(** Creates a contracted shell *)
|
2018-02-13 13:55:16 +01:00
|
|
|
val make :
|
2018-02-06 18:12:19 +01:00
|
|
|
index:int ->
|
|
|
|
expo:float array ->
|
|
|
|
coef:float array ->
|
|
|
|
center:Coordinate.t -> totAngMom:Angular_momentum.t -> t
|
|
|
|
|
2018-02-23 15:49:27 +01:00
|
|
|
(** Returns a copy of the contracted shell with a modified index *)
|
|
|
|
val with_index : t -> int -> t
|