& xx_lwfluxstartdate1, xx_lwfluxstartdate2, xx_lwfluxperiod,
& , xx_lwfluxstartdate2
integer xx_lwfluxstartdate2
call CAL_FULLDATE( xx_lwfluxstartdate1, xx_lwfluxstartdate2,
xx_lwfluxstartdate2 = 0