Update mc_nvt.f90