& iesstartdate2,
integer iesstartdate2
& iesstartdate1, iesstartdate2, iesdatfile,
iesstartdate2 = 0
& call CAL_FULLDATE( iesstartdate1, iesstartdate2,