cd write(iout,*) "i=",i,i_temp,i_mult,i_iset,i_mset
- i_dir=iran_num(1,3)
+ i_dir=iran_num(1,3)
cd write(iout,*) "i_dir=",i_dir
if(i_dir.eq.1 .and. remd_m(i_temp+1).gt.0 )then
stdfp=dsqrt(2*Rb*t_bath/d_time)
do i=1,ntyp
stdfsc(i)=dsqrt(2*Rb*t_bath/d_time)
- enddo
+ enddo
cde write(iout,*) 'REMD after',me,t_bath
time08=MPI_WTIME()
if(me.eq.king) close(irest2)
return
end
-
+