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