& swdownstartdate1, swdownstartdate2,
integer swdownstartdate2
swdownstartdate2 = 0
call CAL_FULLDATE ( swdownstartdate1 , swdownstartdate2,
& swdownstartdate1, swdownstartdate2, swdownperiod,