INTEGER hfluxstartdate2
& hfluxstartdate1, hfluxstartdate2,
I hfluxstartdate1, hfluxstartdate2,
hfluxstartdate2 = 0
& hfluxfile, hfluxstartdate1, hfluxstartdate2,