X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMD.F;h=0f12f9b52f1e8cbf1102b56863443b299d1de4e4;hb=a04f03a4e6c118c9ca6ca9f6c15d0823e0d6c703;hp=a28d660268d96a8b829678c2082f19ec1b396831;hpb=3dbe5ceeea4b858bc25fa1469237e697c0bf293f;p=unres.git

diff --git a/source/unres/src_MD-M/MD.F b/source/unres/src_MD-M/MD.F
index a28d660..0f12f9b 100644
--- a/source/unres/src_MD-M/MD.F
+++ b/source/unres/src_MD-M/MD.F
@@ -176,7 +176,10 @@ c Variable time step algorithm.
           call brown_step(itime)
         endif
         if (ntwe.ne.0) then
-         if (mod(itime,ntwe).eq.0) call statout(itime)
+         if (mod(itime,ntwe).eq.0) then
+           call statout(itime)
+           call returnbox
+          endif
 #ifdef VOUT
         do j=1,3
           v_work(j)=d_t(j,0)
@@ -1628,7 +1631,7 @@ c if the friction coefficients do not depend on surface area
           stdforcp(i)=stdfp*dsqrt(gamp)
         enddo
         do i=nnt,nct
-          stdforcsc(i)=stdfsc(itype(i))*dsqrt(gamsc(itype(i)))
+          stdforcsc(i)=stdfsc(itype(i))*dsqrt(gamsc(iabs(itype(i))))
         enddo
       endif
 c Open the pdb file for snapshotshots