diff --git a/external/ezfio b/external/ezfio index d02132ea..dba01c4f 160000 --- a/external/ezfio +++ b/external/ezfio @@ -1 +1 @@ -Subproject commit d02132ea79217c16fd24242e8f8b8a6c3ff68091 +Subproject commit dba01c4fe0ff7b84c5ecfb1c7c77ec68781311b3 diff --git a/ocaml/qp_create_ezfio.ml b/ocaml/qp_create_ezfio.ml index 9e58a18f..bc36593e 100644 --- a/ocaml/qp_create_ezfio.ml +++ b/ocaml/qp_create_ezfio.ml @@ -131,7 +131,8 @@ let run ?o b au c d m p cart xyz_file = let key = Element.to_string elem.Atom.element in - Hashtbl.add basis_table key new_channel + if not (Hashtbl.mem basis_table key) then + Hashtbl.add basis_table key new_channel ) nuclei end | Some (key, basis) -> (*Aux basis *)