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