& hfluxstartdate1, hfluxstartdate2,
integer hfluxstartdate1
hfluxstartdate1 = 0
call CAL_FULLDATE ( hfluxstartdate1 , hfluxstartdate2,
& hfluxstartdate1, hfluxstartdate2, hfluxperiod,