%N pgqclp %F $MIR/src/pgqclp.f
%D Inquire clipping status
%B
      SUBROUTINE PGQCLP(STATE)
      INTEGER  STATE

 Query the current clipping status (set by routine PGSCLP).

 Argument:
  STATE  (output) : receives the clipping status (0 => disabled,
                    1 => enabled).
