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