2014-09-17 23:47:13 +02:00
|
|
|
open Qptypes;;
|
|
|
|
|
|
|
|
(** A long basis is a basis set where
|
|
|
|
* all the P orbitals are converted to x, y, z
|
|
|
|
* all the D orbitals are converted to xx, xy, xz, yy, yx
|
|
|
|
* etc
|
|
|
|
*)
|
2014-10-23 14:42:14 +02:00
|
|
|
type t = (Symmetry.Xyz.t * Gto.t * Nucl_number.t) list
|
2014-09-17 23:47:13 +02:00
|
|
|
|
|
|
|
(** Transform a basis to a long basis *)
|
|
|
|
val of_basis :
|
2014-10-23 14:42:14 +02:00
|
|
|
(Gto.t * Nucl_number.t) list -> (Symmetry.Xyz.t * Gto.t * Nucl_number.t) list
|
2014-09-17 23:47:13 +02:00
|
|
|
|
|
|
|
(** Convert the basis into its string representation *)
|
|
|
|
val to_string :
|
2014-10-23 14:42:14 +02:00
|
|
|
(Symmetry.Xyz.t * Gto.t * Nucl_number.t) list -> string
|