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