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