& swfluxstartdate1, swfluxstartdate2,
integer swfluxstartdate2
swfluxstartdate2 = 0
call CAL_FULLDATE ( swfluxstartdate1 , swfluxstartdate2,
& swfluxstartdate1, swfluxstartdate2, swfluxperiod,