mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-11-19 04:22:21 +01:00
11 lines
242 B
OCaml
11 lines
242 B
OCaml
open Util
|
|
|
|
let make ?guess simulation =
|
|
if Electrons.multiplicity @@ Simulation.electrons simulation = 1 then
|
|
RHF.make ?guess simulation
|
|
else
|
|
invalid_arg "UHF or ROHF not implemented"
|
|
|
|
|
|
let to_string = HartreeFock_type.to_string
|