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