%N incoff %F $MIR/src/subs/inc.for
%D Offset one index by another.
%P rjs
%: miscellaneous
%B
        subroutine IncOff(n,size1,size2,out)

        implicit none
        integer n,size1(n),size2(n),out(n)

  Offset one index by another.

  Input:
    n          Dimensionality of the grid.
    size1,size2 The input indices, to be added.
  Output:
    out        On output, out(i) = size1(i) + size2(i)
