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
|
C*GREXEC -- PGPLOT device handler dispatch routine
C+
SUBROUTINE GREXEC(IDEV,IFUNC,RBUF,NBUF,CHR,LCHR)
INTEGER IDEV, IFUNC, NBUF, LCHR
REAL RBUF(*)
CHARACTER*(*) CHR
C
C DO NOT MODIFY THIS ROUTINE.
C You should always create a new version by re-executing
C the command file NEWEXEC.COM.
C---
INTEGER NDEV
PARAMETER (NDEV=6)
CHARACTER*10 MSG
C---
GOTO(1,2,3,4,5,6) IDEV
IF (IDEV.EQ.0) THEN
RBUF(1) = NDEV
NBUF = 1
ELSE
WRITE (MSG,'(I10)') IDEV
CALL GRQUIT('Unknown device code in GREXEC: '//MSG)
END IF
RETURN
C---
1 CALL NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
RETURN
2 CALL MSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
RETURN
3 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
RETURN
4 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
RETURN
5 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
RETURN
6 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
RETURN
C
END
|
