mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-08 15:13:52 +01:00
17 lines
496 B
OCaml
17 lines
496 B
OCaml
|
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
|
||
|
|
*)
|
||
|
|
type t = (Symmetry.Xyz.t * Gto.t * Atom_number.t) list
|
||
|
|
|
||
|
|
(** Transform a basis to a long basis *)
|
||
|
|
val of_basis :
|
||
|
|
(Gto.t * Atom_number.t) list -> (Symmetry.Xyz.t * Gto.t * Atom_number.t) list
|
||
|
|
|
||
|
|
(** Convert the basis into its string representation *)
|
||
|
|
val to_string :
|
||
|
|
(Symmetry.Xyz.t * Gto.t * Atom_number.t) list -> string
|