mirror of https://gitlab.com/scemama/qmcchem.git
24 lines
549 B
OCaml
24 lines
549 B
OCaml
|
|
let run ezfio_filename =
|
|
Qputils.set_ezfio_filename ezfio_filename;
|
|
Status.write Status.Stopping
|
|
|
|
let command () =
|
|
let open Command_line in
|
|
begin
|
|
set_header_doc (Sys.argv.(0) ^ " - QMC=Chem command");
|
|
set_description_doc "Stop a running calculation";
|
|
[ anonymous "EZFIO_DIR" Mandatory "EZFIO directory" ]
|
|
|> set_specs
|
|
end;
|
|
|
|
let ezfio_file =
|
|
match Command_line.anon_args () with
|
|
| ezfio_file :: [] -> ezfio_file
|
|
| _ -> (Command_line.help () ; failwith "Inconsistent command line")
|
|
in
|
|
|
|
run ezfio_file
|
|
|
|
|