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