trial for gen_rand

diff --git a/source/unres/MD.F90 b/source/unres/MD.F90
index de0c4ab..c902d0b 100644 (file)
--- a/source/unres/MD.F90
+++ b/source/unres/MD.F90
@@ -1207,6 +1207,9 @@
         if (potEcomp(0).gt.0.99e18 .or. isnan(potEcomp(0)).gt.0) then
           d_time=d_time/10.0
 !          write (iout,*) "Tu jest problem",potEcomp(0),d_time
+          call gen_rand_conf(1,*335)
+          cycle
+  335     write(iout,*) "Failed genrand"
           cycle
         endif
 ! end change