& xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod,
& , xx_hfluxstartdate2
integer xx_hfluxstartdate2
call CAL_FULLDATE( xx_hfluxstartdate1, xx_hfluxstartdate2,
xx_hfluxstartdate2 = 0