%N grimg1 %F $MIR/src/grimg1.f
%D Image of a 2D data array (image-primitive devices)
%B
      SUBROUTINE GRIMG1 (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 routine is called by GRIMG0.)
