mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-11-07 06:33:39 +01:00
23 lines
431 B
OCaml
23 lines
431 B
OCaml
|
|
|
|
(* When an xyz file is read by =xyz_parser.mly=, it is converted into
|
|
* an ~xyz_file~ data structure. *)
|
|
|
|
|
|
(* [[file:~/QCaml/particles/nuclei.org::*Parser][Parser:2]] *)
|
|
open Common
|
|
|
|
type nucleus =
|
|
{
|
|
element: Element.t ;
|
|
coord : Coordinate.angstrom Coordinate.point;
|
|
}
|
|
|
|
type xyz_file =
|
|
{
|
|
number_of_atoms : int ;
|
|
file_title : string ;
|
|
nuclei : nucleus list ;
|
|
}
|
|
(* Parser:2 ends here *)
|