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