#ifdef MPI
include "mpif.h"
#endif
+ print *,'Start MD'
call alloc_MD_arrays
- if (me.eq.king .or. .not. out1file) &
- write (iout,*) "Calling chainbuild"
- call chainbuild
+! if (me.eq.king .or. .not. out1file) &
+! write (iout,*) "Calling chainbuild"
+! call chainbuild
call MD
return
end subroutine exec_MD
call alloc_MD_arrays
call alloc_MREMD_arrays
- if (me.eq.king .or. .not. out1file) &
- write (iout,*) "Calling chainbuild"
- call chainbuild
+! if (me.eq.king .or. .not. out1file) &
+! write (iout,*) "Calling chainbuild"
+! call chainbuild
if (me.eq.king .or. .not. out1file) &
write (iout,*) "Calling REMD"
if (remd_mlist) then