%N pgqls %F $MIR/src/pgqls.f
%D Inquire line style
%B
      SUBROUTINE PGQLS (LS)
      INTEGER  LS

 Query the current Line Style attribute (set by routine PGSLS).

 Argument:
  LS     (output) : the current line-style attribute (in range 1-5).
