2014-10-26 17:29:11 +01:00
|
|
|
exception GTO_Read_Failure of string
|
|
|
|
exception End_Of_Basis
|
2016-03-22 13:28:03 +01:00
|
|
|
type fmt =
|
|
|
|
| Gamess
|
|
|
|
| Gaussian
|
|
|
|
|
2014-10-26 17:29:11 +01:00
|
|
|
type t =
|
|
|
|
{ sym : Symmetry.t ;
|
2017-05-31 23:47:18 +02:00
|
|
|
lc : (GaussianPrimitive.t * Qptypes.AO_coef.t) list;
|
2017-08-18 18:28:33 +02:00
|
|
|
} [@@deriving sexp]
|
2014-10-26 17:29:11 +01:00
|
|
|
|
2017-05-31 23:47:18 +02:00
|
|
|
(** Create from a list of GaussianPrimitive.t * Qptypes.AO_coef.t *)
|
2014-10-26 17:29:11 +01:00
|
|
|
val of_prim_coef_list :
|
2017-05-31 23:47:18 +02:00
|
|
|
(GaussianPrimitive.t * Qptypes.AO_coef.t) list -> t
|
2014-10-26 17:29:11 +01:00
|
|
|
|
|
|
|
(** Read from a file *)
|
|
|
|
val read_one : in_channel -> t
|
|
|
|
|
|
|
|
(** Convert to string for printing *)
|
2016-03-22 13:28:03 +01:00
|
|
|
val to_string : ?fmt:fmt -> t -> string
|