& xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod,
& , xx_swfluxstartdate1
integer xx_swfluxstartdate1
call CAL_FULLDATE( xx_swfluxstartdate1, xx_swfluxstartdate2,
xx_swfluxstartdate1 = 0