& sfluxstartdate1, sfluxstartdate2,
integer sfluxstartdate2
sfluxstartdate2 = 0
call CAL_FULLDATE ( sfluxstartdate1 , sfluxstartdate2,
& sfluxstartdate1, sfluxstartdate2, sfluxperiod,