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