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

Random port

Browse Source
This commit is contained in:
Anthony Scemama 2016-03-17 15:27:31 +01:00
parent 58b58acf45
commit 1df8e21ee8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ocaml/Qmcchem_dataserver.ml
View File

@ -106,11 +106,11 @@ let run ?(daemon=true) ezfio_filename =
(** Random port number between 49152 and 65535 *) (** Random port number between 49152 and 65535 *)
let port = let port =
let newport = let newport =
ref 10000 ref ( 1024 + (Random.int (49151-1024)))
in in
while ((check_port !newport) = `Unavailable) while ((check_port !newport) = `Unavailable)
do do
newport := !newport + 100 newport := 1024 + (Random.int (49151-1024))
done; done;
!newport !newport
in in