LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-12-22 04:13:31 +01:00
Code Releases Activity

Removed check of Jastrow and pseudo

Browse Source
This commit is contained in:
Anthony Scemama 2016-07-25 13:51:47 +02:00
parent d71c80afca
commit 8733aa742e
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ocaml/Input.ml
View File

@ -758,13 +758,6 @@ end = struct
let _ = let _ =
Lazy.force Qputils.ezfio_filename Lazy.force Qputils.ezfio_filename
in in
let () =
match (Pseudo.read () |> Pseudo.to_bool, t) with
| (false, _)
| (true , None) -> ()
| _ -> failwith "Jastrow and Pseudopotentials are incompatible for now"
in
to_string t to_string t
|> Ezfio.set_jastrow_jast_type |> Ezfio.set_jastrow_jast_type
@ -843,8 +836,6 @@ let validate () =
Sampling.read () Sampling.read ()
and ts = and ts =
Time_step.read () Time_step.read ()
and jast_type =
Jastrow_type.read ()
and do_pseudo = and do_pseudo =
Pseudo.read () Pseudo.read ()
in in
@ -900,14 +891,6 @@ let validate () =
| _ -> () | _ -> ()
in in
(* Pseudo and Jastrow are incompatible *)
let () =
match (Pseudo.to_bool do_pseudo, jast_type) with
| (true, Jastrow_type.Core )
| (true, Jastrow_type.Simple) -> failwith "Jastrow and Pseudopotentials are incompatible"
| _ -> ()
in
(* Fitcusp is incompatible with pseudo *) (* Fitcusp is incompatible with pseudo *)
let () = let () =
let f = let f =