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