9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-08 08:57:19 +02:00
qp2/ocaml/GaussianPrimitive.ml
2019-01-25 11:39:31 +01:00

18 lines
275 B
OCaml

open Qptypes
open Core
type t =
{ sym : Symmetry.t ;
expo : AO_expo.t ;
} [@@deriving sexp]
let to_string p =
let { sym = s ; expo = e } = p in
Printf.sprintf "(%s, %22e)"
(Symmetry.to_string s)
(AO_expo.to_float e)
let of_sym_expo s e =
{ sym=s ; expo=e}