correction in returnbox

[unres4.git] / source / unres / unres.f90

diff --git a/source/unres/unres.f90 b/source/unres/unres.f90
index e84e1d0..3d31629 100644 (file)
--- a/source/unres/unres.f90
+++ b/source/unres/unres.f90
@@ -164,6 +164,7 @@
 #endif
       print *,'Start MD'
       call alloc_MD_arrays
+      print *,'After MD alloc'
 !      if (me.eq.king .or. .not. out1file) &
 !         write (iout,*) "Calling chainbuild"
 !      call chainbuild