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