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