& mdtenddate2
integer mdtenddate2
mdtenddate2 = 0
& mdtenddate1, mdtenddate2,
& call CAL_FULLDATE( mdtenddate1, mdtenddate2,