Updated HDMT2T.for