2014-09-17 23:47:13 +02:00
|
|
|
open Qptypes;;
|
|
|
|
|
2014-10-23 14:42:14 +02:00
|
|
|
type t = (Gto.t * Nucl_number.t) list
|
2014-09-17 23:47:13 +02:00
|
|
|
|
|
|
|
(** Read all the basis functions of an element and set the number of the
|
|
|
|
* atom *)
|
2014-10-23 14:42:14 +02:00
|
|
|
val read : in_channel -> Nucl_number.t -> (Gto.t * Nucl_number.t) list
|
2014-09-17 23:47:13 +02:00
|
|
|
|
|
|
|
(** Find an element in the basis set file *)
|
|
|
|
val find : in_channel -> Element.t -> Element.t
|
|
|
|
|
|
|
|
(** Read the basis of an element from the file *)
|
|
|
|
val read_element :
|
2014-10-23 14:42:14 +02:00
|
|
|
in_channel -> Nucl_number.t -> Element.t -> (Gto.t * Nucl_number.t) list
|
2014-09-17 23:47:13 +02:00
|
|
|
|
|
|
|
(** Convert the basis to a string *)
|
2014-10-23 14:42:14 +02:00
|
|
|
val to_string : (Gto.t * Nucl_number.t) list -> string
|
2014-10-26 17:29:11 +01:00
|
|
|
|
|
|
|
(** Convert the basis to an MD5 hash *)
|
|
|
|
val to_md5 : (Gto.t * Nucl_number.t) list -> MD5.t
|