X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Ftogether.F;fp=source%2Funres%2Fsrc_MD-M%2Ftogether.F;h=d94d221853944e617b7ce30b78666a14ff917ecb;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=2117e93d89967dddbe3f6af739cc89fe4ac81481;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/unres/src_MD-M/together.F b/source/unres/src_MD-M/together.F
index 2117e93..d94d221 100644
--- a/source/unres/src_MD-M/together.F
+++ b/source/unres/src_MD-M/together.F
@@ -80,7 +80,8 @@ c ntrial : number of trial conformations per seed.
 c ntry : total number of trial conformations including seed conformations.
 
        idum2=-123
-       imax=2**31-1
+c       imax=2**31-1
+       imax=huge(0)
        ENDIF
 
        call mpi_bcast(jend,1,mpi_integer,0,CG_COMM,ierr)