mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-19 03:52:17 +00:00
67 lines
1.8 KiB
Fortran
67 lines
1.8 KiB
Fortran
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---
|
|
INTEGER NDEV
|
|
PARAMETER (NDEV=21)
|
|
CHARACTER*10 MSG
|
|
C---
|
|
GOTO(1,2,3,4,5,6,7,8,9,10,11,12,13,14,
|
|
+ 15,16,17,18,19,20,21) IDEV
|
|
IF (IDEV.EQ.0) THEN
|
|
RBUF(1) = NDEV
|
|
NBUF = 1
|
|
ELSE
|
|
WRITE (MSG,'(I10)') IDEV
|
|
CALL GRWARN('Unknown device code in GREXEC: '//MSG)
|
|
END IF
|
|
RETURN
|
|
C---
|
|
1 CALL GIDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
2 CALL GIDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
3 CALL GLDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
4 CALL GLDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
5 CALL HGDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
|
|
RETURN
|
|
6 CALL LXDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
|
|
RETURN
|
|
7 CALL NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
|
|
RETURN
|
|
8 CALL PPDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
9 CALL PPDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
10 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
11 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
12 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
|
|
RETURN
|
|
13 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
|
|
RETURN
|
|
14 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
|
|
RETURN
|
|
15 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,5)
|
|
RETURN
|
|
16 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,9)
|
|
RETURN
|
|
17 CALL WDDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
18 CALL WDDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
19 CALL X2DRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
|
|
RETURN
|
|
20 CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
|
|
RETURN
|
|
21 CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
|
|
RETURN
|
|
C
|
|
END
|