integer vstressstartdate2
& vstressstartdate1, vstressstartdate2,
CALL CAL_FULLDATE ( vstressstartdate1, vstressstartdate2,
& vstressstartdate1, vstressstartdate2, vstressperiod,
vstressstartdate2 = 0