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