integer lwfluxstartdate2
& lwfluxstartdate1, lwfluxstartdate2,
CALL CAL_FULLDATE ( lwfluxstartdate1, lwfluxstartdate2,
& lwfluxstartdate1, lwfluxstartdate2, lwfluxperiod,
lwfluxstartdate2 = 0