%N inc3more %F $MIR/src/subs/inc.for
%D Increment to the next plane of interest.
%P rjs
%: miscellaneous
%B
        logical function Inc3More(n,size,dims)

        implicit none
        integer n,dims(n),size(n)

  Increment to the next cube.

  Input:
    n          Dimensionality of the grid.
    size       Size of the grid in each dimension.
  Input/Output:
    dims       On output, the current grid coordinate of interest.
  Output:
    Inc3More   Set the false if there are no more grid coordinates to visit.
