2014-10-27 01:14:18 +01:00
|
|
|
type t =
|
|
|
|
|
{ sym : Symmetry.t;
|
|
|
|
|
expo : Qptypes.AO_expo.t;
|
2017-08-18 18:28:33 +02:00
|
|
|
} [@@deriving sexp]
|
2014-10-27 01:14:18 +01:00
|
|
|
|
|
|
|
|
(** Conversion to string for printing *)
|
|
|
|
|
val to_string : t -> string
|
|
|
|
|
|
|
|
|
|
(** Creation *)
|
|
|
|
|
val of_sym_expo : Symmetry.t -> Qptypes.AO_expo.t -> t
|
|
|
|
|
|
