%N grimg0 %F $MIR/src/grimg0.f
%D Color image of a 2D data array
%B
      SUBROUTINE GRIMG0 (A, IDIM, JDIM, I1, I2, J1, J2,
     1                   A1, A2, PA, MININD, MAXIND, MODE)
      INTEGER IDIM, JDIM, I1, I2, J1, J2, MININD, MAXIND, MODE
      REAL    A(IDIM,JDIM), A1, A2, PA(6)

 This is a support routine for PGIMAG.

 Arguments:
  A      (input)  : the array to be plotted.
  IDIM   (input)  : the first dimension of array A.
  JDIM   (input)  : the second dimension of array A.
  I1, I2 (input)  : the inclusive range of the first index
                    (I) to be plotted.
  J1, J2 (input)  : the inclusive range of the second
                    index (J) to be plotted.
  A1     (input)  : the array value which is to appear in color
                    index MININD.
  A2     (input)  : the array value which is to appear in color
                    index MAXIND.
  PA     (input)  : transformation matrix between array grid and
                    device coordinates.
  MININD (input)  : minimum color index to use.
  MAXIND (input)  : maximum color index to use.
  MODE   (input)  : =0 for linear, =1 for logarithmic, =2 for
                    square-root mapping of array values to color
                    indices.
