correction in MD returnbox

[unres.git] / source / unres / src_MD-M / MD.F

diff --git a/source/unres/src_MD-M/MD.F b/source/unres/src_MD-M/MD.F
index f65a527..0f12f9b 100644 (file)
--- 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)