1C*GRLDEV -- list supported device types
2C+
3      SUBROUTINE GRLDEV
4C
5C Support routine for PGLDEV.
6C
7C Arguments: none
8C--
9C  5-Aug-1986 [AFT]
10C 13-Dec-1990 Change warnings to messages [TJP].
11C 18-Jan-1993 Display one per line [TJP].
12C 13-Jan-1995 Change message [TJP].
13C 10-Nov-1995 Ignore device types of zero length [TJP].
14C-----------------------------------------------------------------------
15      INCLUDE 'grpckg1.inc'
16      INTEGER I,NDEV,NBUF,LCHR
17      REAL    RBUF(6)
18      CHARACTER*72 CHR
19      CHARACTER*72 TEXT
20C---
21      CALL GRMSG('Device types available:')
22C--- First obtain number of devices.
23      CALL GREXEC(0,0,RBUF,NBUF,CHR,LCHR)
24      NDEV=NINT(RBUF(1))
25C
26      DO 10 I=1,NDEV
27         CALL GREXEC(I, 1,RBUF,NBUF,CHR,LCHR)
28         IF (LCHR.GT.0) THEN
29            TEXT(1:1) = '/'
30            TEXT(2:) = CHR(:LCHR)
31            CALL GRMSG(TEXT)
32         END IF
33 10   CONTINUE
34C
35      END
36