1
2C*GRQLS -- inquire current line-style
3C+
4      SUBROUTINE GRQLS (ISTYLE)
5      INTEGER  ISTYLE
6C
7C GRPCKG: obtain the line-style of the current graphics device.
8C
9C Argument:
10C  ISTYLE (output): receives the current line-style code.
11C--
12C (1-Feb-1983)
13C-----------------------------------------------------------------------
14      INCLUDE 'grpckg1.inc'
15C
16      IF (GRCIDE.LT.1) THEN
17          CALL GRWARN('GRQLS - no graphics device is active.')
18          ISTYLE = 1
19      ELSE
20          ISTYLE = GRSTYL(GRCIDE)
21      END IF
22      END
23