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