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