LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-06-16 18:25:19 +02:00
Code Releases Activity

Fixed scheduler bug

Browse Source
This commit is contained in:
Anthony Scemama 2019-12-17 09:08:39 +01:00
parent 4e9d9f0da4
commit 2cc2d713bc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Scheduler.ml
View File

@ -17,7 +17,7 @@ let find () =
let scheduler = let scheduler =
[ "SLURM_NODELIST" ; "PE_HOSTFILE" ; "PBS_NODEFILE" ] [ "SLURM_NODELIST" ; "PE_HOSTFILE" ; "PBS_NODEFILE" ]
|> List.map (function x -> |> List.map (function x ->
try Some (Sys.getenv x) with try ignore @@ (Sys.getenv x) ; Some x with
| Not_found -> None | Not_found -> None
) )
|> List.hd |> List.hd