%N grqlw %F $MIR/src/grqlw.f
%D Inquire current line width
%B
      SUBROUTINE GRQLW (IWIDTH)
      INTEGER  IWIDTH

 GRPCKG: obtain the line-width of the current graphics device.

 Argument:
  IWIDTH (output): receives the current line-width.
