integer areamaskstartdate1
& areamaskstartdate1,areamaskstartdate2
CALL CAL_FULLDATE ( areamaskstartdate1, areamaskstartdate2,
& areamaskstartdate1,areamaskstartdate2,areamaskperiod,
areamaskstartdate1 = 0