& tmistartdate1,
integer tmistartdate1
& call CAL_FULLDATE( tmistartdate1, tmistartdate2,
tmistartdate1 = 0
& tmistartdate1, tmistartdate2, tmidatfile,