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