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