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