9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 03:53:29 +01:00
qp2/ocaml/GaussianPrimitive.ml

18 lines
286 B
OCaml
Raw Normal View History

2019-01-25 11:39:31 +01:00
open Qptypes
2019-03-13 13:02:29 +01:00
open Sexplib.Std
2019-01-25 11:39:31 +01:00
type t =
2021-05-21 16:42:48 +02:00
{ sym : Angmom.t ;
2019-03-13 13:02:29 +01:00
expo : AO_expo.t ;
} [@@deriving sexp]
2019-01-25 11:39:31 +01:00
let to_string p =
let { sym = s ; expo = e } = p in
Printf.sprintf "(%s, %22e)"
2021-05-21 16:42:48 +02:00
(Angmom.to_string s)
2019-03-13 13:02:29 +01:00
(AO_expo.to_float e)
2019-01-25 11:39:31 +01:00
let of_sym_expo s e =
{ sym=s ; expo=e}