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