%N pgqci %F $MIR/src/pgqci.f
%D Inquire color index
%B
      SUBROUTINE PGQCI (CI)
      INTEGER  CI

 Query the Color Index attribute (set by routine PGSCI).

 Argument:
  CI     (output) : the current color index (in range 0-max). This is
                    the color index actually in use, and may differ
                    from the color index last requested by PGSCI if
                    that index is not available on the output device.
