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"