quantum_package/ocaml/GaussianPrimitive.ml

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, %f)" 
   (Symmetry.to_string s)
   (AO_expo.to_float e)

  
let of_sym_expo s e = 
  { sym=s ; expo=e}
Changed Primitive.ml into GaussianPrimitive.ml 2017-05-31 23:47:18 +02:00			`open Qptypes`
Modified for ocaml 4.04 2017-08-18 18:28:33 +02:00			`open Core`
Added GTOs in Ocaml 2014-08-13 17:54:32 +02:00
			`type t =`
			`{ sym : Symmetry.t ;`
Corrected bugs in ocaml 2014-10-23 14:42:14 +02:00			`expo : AO_expo.t ;`
Modified for ocaml 4.04 2017-08-18 18:28:33 +02:00			`} [@@deriving sexp]`
Added GTOs in Ocaml 2014-08-13 17:54:32 +02:00
			`let to_string p =`
			`let { sym = s ; expo = e } = p in`
			`Printf.sprintf "(%s, %f)"`
			`(Symmetry.to_string s)`
Corrected bugs in ocaml 2014-10-23 14:42:14 +02:00			`(AO_expo.to_float e)`
Changed Primitive.ml into GaussianPrimitive.ml 2017-05-31 23:47:18 +02:00
Added GTOs in Ocaml 2014-08-13 17:54:32 +02:00
Cleaning 2014-10-27 01:14:18 +01:00			`let of_sym_expo s e =`
			`{ sym=s ; expo=e}`