Update dqmc_tdm1.F90