%N pgqlw %F $MIR/src/pgqlw.f
%D Inquire line width
%B
      SUBROUTINE PGQLW (LW)
      INTEGER  LW

 Query the current Line-Width attribute (set by routine PGSLW).

 Argument:
  LW     (output)  : the line-width (in range 1-201).
