& xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod,
& , xx_sfluxstartdate2
integer xx_sfluxstartdate2
call CAL_FULLDATE( xx_sfluxstartdate1, xx_sfluxstartdate2,
xx_sfluxstartdate2 = 0