home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / SYS_ARC / f77 / GRexecAC < prev    next >
Text File  |  1996-05-21  |  1KB  |  45 lines
  1. C*GREXEC -- PGPLOT device handler dispatch routine
  2. C+
  3.       SUBROUTINE GREXEC(IDEV,IFUNC,RBUF,NBUF,CHR,LCHR)
  4.       INTEGER IDEV, IFUNC, NBUF, LCHR
  5.       REAL    RBUF(*)
  6.       CHARACTER*(*) CHR
  7. C
  8. C---
  9.       INTEGER NDEV
  10. C            change the value of NDEV to reflect the number of
  11. C            devices defined below by the 'computed GOTO'
  12. C
  13. C     February 1994   Version 1.00 has only NU, AC and PS drivers.
  14. C                                  (The PS driver comes with 4 modes)
  15. C
  16.       PARAMETER (NDEV=7)
  17.       CHARACTER*10 MSG
  18. C---
  19.       GOTO(1,2,3,4,5,6,7) IDEV
  20.       IF (IDEV.EQ.0) THEN
  21.           RBUF(1) = NDEV
  22.           NBUF = 1
  23.       ELSE
  24.           WRITE (MSG,'(I10)') IDEV
  25.           CALL GRQUIT('Unknown device code in GREXEC: '//MSG)
  26.       END IF
  27.       RETURN
  28. C---
  29.     1 CALL NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
  30.       RETURN
  31.     2 CALL ACDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
  32.       RETURN
  33.     3 CALL ACDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
  34.       RETURN
  35.     4 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
  36.       RETURN
  37.     5 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
  38.       RETURN
  39.     6 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
  40.       RETURN
  41.     7 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
  42.       RETURN
  43. C
  44.       END
  45.