quantum_package/ocaml/Units.ml

mirror of https://github.com/LCPQ/quantum_package synced 2024-09-27 12:00:56 +02:00

type units =
| Bohr
| Angstrom
;;

let angstrom_to_bohr = 1. /. 0.52917721092
let bohr_to_angstrom = 0.52917721092
;;
Added qp_print.ml 2014-10-07 19:33:11 +02:00
Cleaning in scripts 2019-01-14 15:20:51 +01:00			`type units =`
Added qp_print.ml 2014-10-07 19:33:11 +02:00			`\| Bohr`
			`\| Angstrom`
			`;;`

			`let angstrom_to_bohr = 1. /. 0.52917721092`
			`let bohr_to_angstrom = 0.52917721092`
			`;;`