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