print *,'Start MD'
call alloc_MD_arrays
print *,'After MD alloc'
-! 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