Symbol Description Uses
nextdateday 4



File Line number Procedure Code
./pkg/ecco/cost_averagesflags.F 139 COST_AVERAGESFLAGS
      nextdateday = mod(nextdate(1),100)
./pkg/ecco/cost_averagesflags.F 140 COST_AVERAGESFLAGS
      if ( mydateday .ne. nextdateday ) then
./pkg/ecco/cost_averagesflags.F 150 COST_AVERAGESFLAGS
     &     ( mydateday .eq. nextdateday )       ) then
./pkg/ecco/cost_averagesflags.F 80 COST_AVERAGESFLAGS
      integer nextdateday