integer ustressstartdate1
& ustressstartdate1, ustressstartdate2,
CALL CAL_FULLDATE ( ustressstartdate1, ustressstartdate2,
& ustressstartdate1, ustressstartdate2, ustressperiod,
ustressstartdate1 = 0