%N grqls %F $MIR/src/grqls.f
%D Inquire current line-style
%B
      SUBROUTINE GRQLS (ISTYLE)
      INTEGER  ISTYLE

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

 Argument:
  ISTYLE (output): receives the current line-style code.
