integer lwdownstartdate1
& lwdownstartdate1, lwdownstartdate2,
CALL CAL_FULLDATE ( lwdownstartdate1, lwdownstartdate2,
& lwdownstartdate1, lwdownstartdate2, lwdownperiod,
lwdownstartdate1 = 0