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