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