ersstartdate2 = 0
call CAL_FULLDATE( ersstartdate1, ersstartdate2,
& ersstartdate1, ersstartdate2,
& ersstartdate2,
integer ersstartdate2