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