qmcchem/ocaml/Qmcchem_stop.ml

open Core


let run ezfio_filename = 
  Qputils.set_ezfio_filename ezfio_filename;
  Status.write Status.Stopping


let spec =
  let open Command.Spec in
  empty
  +> anon ("ezfio_file" %: string)

let command = 
    Command.basic_spec
    ~summary: "Stop a running calculation"
    ~readme:(fun () ->
      "
Stop a running calculation
      ")
    spec
    (fun ezfio_file () ->  run ezfio_file )
Update for OCaml 4.04 2017-10-10 09:39:58 +02:00			`open Core`
Added ocaml files 2015-12-19 02:35:13 +01:00

			`let run ezfio_filename =`
Smaller time step errors - Implemented SRMC and DMC - Using (E_new+E_old)/2 in DMC weight reduces time step errors - Branching weight is present in E_loc accumulation - Introduces Error in Message.ml 2016-01-18 20:17:37 +01:00			`Qputils.set_ezfio_filename ezfio_filename;`
Added ocaml files 2015-12-19 02:35:13 +01:00			`Status.write Status.Stopping`


			`let spec =`
			`let open Command.Spec in`
			`empty`
			`+> anon ("ezfio_file" %: string)`

			`let command =`
Modern OCaml 2018-03-14 17:02:52 +01:00			`Command.basic_spec`
Added ocaml files 2015-12-19 02:35:13 +01:00			`~summary: "Stop a running calculation"`
			`~readme:(fun () ->`
			`"`
			`Stop a running calculation`
			`")`
			`spec`
			`(fun ezfio_file () -> run ezfio_file )`