mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-10-18 05:51:35 +02:00
10 lines
199 B
OCaml
10 lines
199 B
OCaml
|
open Util
|
||
|
open Simulation
|
||
|
|
||
|
let make ?guess simulation =
|
||
|
if simulation.electrons.Electrons.multiplicity = 1 then
|
||
|
RHF.make ?guess simulation
|
||
|
else
|
||
|
invalid_arg "UHF or ROHF not implemented"
|
||
|
|