& scatstartdate2,
integer scatstartdate2
scatstartdate2 = 0
& scatstartdate1, scatstartdate2,
& call CAL_FULLDATE( scatstartdate1, scatstartdate2,