(** Polymorphic type for the basis (Gaussian, Slater, etc) *) type t = | Unknown | Gaussian of Basis_gaussian.t