X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2FMD.F90;h=a3451ec450441c10e8be8afa7fc202f4e24f567a;hb=692e3a1a84c499761a035b29d793a6552dbcd3eb;hp=23e7bfabd7c005041cf1a0b9827f3ab7d6010ca9;hpb=df2469d9ac903d93889867f4e50e9bf6c428c1c6;p=unres4.git

diff --git a/source/unres/MD.F90 b/source/unres/MD.F90
index 23e7bfa..a3451ec 100644
--- a/source/unres/MD.F90
+++ b/source/unres/MD.F90
@@ -1203,7 +1203,7 @@
         call zerograd
         call etotal(potEcomp)
 ! AL 4/17/17: Reduce the steps if NaNs occurred.
-        if (potEcomp(0).gt.0.99e20 .or. isnan(potEcomp(0)).gt.0) then
+        if (potEcomp(0).gt.0.99e18 .or. isnan(potEcomp(0)).gt.0) then
           d_time=d_time/2
           cycle
         endif
@@ -2513,8 +2513,10 @@
           if (overlapsc) then 
            print *, 'Calling OVERLAP_SC'
            call overlap_sc(fail)
+           print *,'after OVERLAP'
           endif 
           if (searchsc) then 
+           print *,'call SC_MOVE'
            call sc_move(2,nres-1,10,1d10,nft_sc,etot)
            print *,'SC_move',nft_sc,etot
            if(me.eq.king.or..not.out1file) &