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