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