& mdtstartdate2,
integer mdtstartdate2
mdtstartdate2 = 0
& mdtstartdate1, mdtstartdate2,
& call CAL_FULLDATE( mdtstartdate1, mdtstartdate2,