%N incini %F $MIR/src/subs/inc.for
%D Initialise an incrementer.
%P rjs
%: miscellaneous
%B
        subroutine IncIni(n,size,dims)

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

  This initialises the "dims" array, which is to be used as an incrementer
  through an N dimensional grid. The grid coordinates are assumed to
  vary from 1 to M (i.e. FORTRAN convention).

  Input:
    n          Dimensionality of the grid.
    size       Size of each axis of the grid, size(i) gives the number
               of grid elements along the i'th dimension.
  Output:
    dims       Ready for use by the incrementer.
