set seed=432324368 end
vector do (vx=maxwell(4000.)) ( all )
vector do (vy=maxwell(4000.)) ( all )
vector do (vz=maxwell(4000.)) ( all )
vector do (fbeta=100.) ( all )
evaluate ($1=4000)
while ($1 > 300.0) loop main
dynamics verlet
timestep=0.0005
nstep=50
iasvel=current
nprint=5 iprfrq=0
tcoupling=true tbath=$1
end
evaluate ($1=$1-25)
end loop main