Symbol Description Uses
nextdateday 4



File Line number Procedure Code
./pkg/ecco/cost_averagesflags.F 154 COST_AVERAGESFLAGS
      nextdateday = mod(nextdate(1),100)
./pkg/ecco/cost_averagesflags.F 155 COST_AVERAGESFLAGS
      if ( mydateday .ne. nextdateday ) then
./pkg/ecco/cost_averagesflags.F 165 COST_AVERAGESFLAGS
     &     ( mydateday .eq. nextdateday )       ) then
./pkg/ecco/cost_averagesflags.F 92 COST_AVERAGESFLAGS
      integer nextdateday