1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
C*GREXEC -- PGPLOT device handler dispatch routine
C 12/93 C. T. Dum: version for MS F32 Power Station
C 20-Apr-1996: "W9DRIV", use CASE structure [PAS]
C+
SUBROUTINE GREXEC(IDEV, IFUNC, RBUF, NBUF, CHR, LCHR)
INTEGER IDEV, IFUNC, NBUF, LCHR
REAL RBUF(*)
CHARACTER*(*) CHR
C---
INTEGER NDEV
PARAMETER (NDEV=11)
CHARACTER*10 MSG
C---
SELECT CASE (IDEV)
CASE (0)
RBUF(1) = NDEV
NBUF = 1
CHR = ' '
LCHR = 0
CASE (1)
CALL W9DRIV(IFUNC,RBUF,NBUF,CHR,LCHR,0)
CASE (2)
CALL W9DRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
CASE (3)
CALL W9DRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
CASE (4)
CALL W9DRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
CASE (5)
CALL W9DRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
CASE (6)
CALL NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
CASE (7)
CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
CASE (8)
CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
CASE (9)
CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
CASE (10)
CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
CASE (11)
CALL LXDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
CASE DEFAULT
WRITE (MSG,'(I10)') IDEV
CALL GRQUIT('Unknown device code in GREXEC: '//MSG)
END SELECT
RETURN
END
|
