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