Initial commit

pgplot_rhel7/drivers.list

@@ -0,0 +1,114 @@
+! PGPLOT drivers.
+!------------------------------------------------------------------------------
+! To configure PGPLOT, ensure that drivers you do not want are
+! commented out (place ! in column 1). N.B. Many device-drivers are
+! available on selected operating systems only.
+!------------------------------------------------------------------------------
+! File       Code       Description                                Restrictions
+! BCDRIV 0 /BCANON    Canon Laser printer (bitmap version), landscape
+! CADRIV 0 /CANON     Canon Laser printer, LBP-8/A2, landscape
+! CCDRIV 0 /CCP       DEC LJ250 Color Companion printer
+! CGDRIV 1 /CGM       CGM metafile, indexed colour selection            C
+! CGDRIV 2 /CGMD      CGM metafile, direct colour selection             C
+! CWDRIV 0 /CW6320    Gould/Bryans Colourwriter 6320 pen plotter	Std F77
+! EPDRIV 0 /EPSON     Epson FX100 dot matrix printer
+! EXDRIV 1 /EXCL      Talaris/EXCL printers, landscape
+! EXDRIV 2 /EXCL      Talaris/EXCL printers, portrait
+! GCDRIV 0 /GENICOM   Genicom 4410 dot-matrix printer, landscape
+!             Caution: use of GIDRIV may require a license from Unisys:
+  GIDRIV 1 /GIF       GIF-format file, landscape
+  GIDRIV 2 /VGIF      GIF-format file, portrait
+! GLDRIV 1 /HPGL      Hewlett-Packard HP-GL plotters, landscape		Std F77
+! GLDRIV 2 /VHPGL     Hewlett-Packard HP-GL plotters, portrait		Std F77
+! GODRIV 0 /GOC       GOC Sigma T5670 terminal				VMS 
+! GVDRIV 0 /GVENICOM  Genicom 4410 dot-matrix printer, portrait
+! HGDRIV 0 /HPGL2     Hewlett-Packard graphics language
+! HIDRIV 0 /HIDMP     Houston Instruments HIDMP pen plotter
+! HJDRIV 0 /HJ        Hewlett-Packard Desk/Laserjet printer
+! HPDRIV 0 /HP7221    Hewlett-Packard HP7221 pen plotter		Std F77
+! LADRIV 0 /LA50      Dec LA50 and other sixel printers
+! LJDRIV 0 /LJ        Hewlett-Packard LaserJet printers                 VMS
+! LSDRIV 1 /LIPS2     Canon LaserShot printer (landscape)
+! LSDRIV 2 /VLIPS2    Canon LaserShot printer (portrait)
+! LNDRIV 0 /LN03      Dec LN03-PLUS Laser printer (landscape)           VMS
+! LVDRIV 0 /LVN03     Dec LN03-PLUS Laser printer (portrait)            VMS
+! LXDRIV 0 /LATEX     LaTeX picture environment
+! MFDRIV 0 /FILE      PGPLOT graphics metafile
+! NEDRIV 0 /NEXT      Computers running NeXTstep operating system
+  NUDRIV 0 /NULL      Null device (no output)				Std F77
+! PGDRIV 0 /PGMF      PGPLOT metafile (new format, experimental)        Std F77
+! PNDRIV 1 /PNG       Portable Network Graphics file                    C
+! PNDRIV 2 /TPNG      Portable Network Graphics file - transparent background C
+! PPDRIV 1 /PPM       Portable Pixel Map file, landscape
+! PPDRIV 2 /VPPM      Portable PIxel Map file, portrait
+  PSDRIV 1 /PS        PostScript printers, monochrome, landscape	Std F77
+  PSDRIV 2 /VPS       Postscript printers, monochrome, portrait		Std F77
+  PSDRIV 3 /CPS       PostScript printers, color, landscape		Std F77
+  PSDRIV 4 /VCPS      PostScript printers, color, portrait		Std F77
+! PXDRIV 0 /PRINTRONI Printronix P300 or P600 dot-matrix printer
+! QMDRIV 1 /QMS       QUIC devices (QMS and Talaris), landscape		Std F77
+! QMDRIV 2 /VQMS      QUIC devices (QMS and Talaris), portrait		Std F77
+! TFDRIV 0 /TFILE     Tektronix-format disk file                        VMS
+! TODRIV 0 /TOSHIBA   Toshiba "3-in-one" printer, model P351
+! TTDRIV 1 /TEK4010   Tektronix 4006/4010 storage-tube terminal		Std F77
+! TTDRIV 2 /GF        GraphOn terminal					Std F77
+! TTDRIV 3 /RETRO     RetroGraphics terminal				Std F77
+! TTDRIV 4 /GTERM     GTERM Tektronix terminal emulator			Std F77
+  TTDRIV 5 /XTERM     XTERM Tektronix terminal emulator			Std F77
+! TTDRIV 6 /ZSTEM     ZSTEM terminal emulator				Std F77
+! TTDRIV 7 /V603      Visual 603 terminal				Std F77
+! TTDRIV 8 /KRM3      Kermit 3 on IBM-PC				Std F77
+! TTDRIV 9 /TK4100    Tektronix 4100-series terminals			Std F77
+! TTDRIV 10 /VMAC     Macintosh VersaTerm-PRO Tektronix-4105 emulator	Std F77
+! TXDRIV 0 /TX        TeX PK Font Output files
+! VADRIV 0 /VCANON    Canon Laser printer, LBP-8/A2, portrait
+! VBDRIV 0 /VBCANON   Canon Laser printer (bitmap version), portrait
+! VTDRIV 0 /VT125     Dec Regis terminals (VT125 etc.)			Std F77
+! WDDRIV 1 /WD        X Window dump file, landscape
+! WDDRIV 2 /VWD       X Window dump file, portrait
+! WSDRIV 0 /WS        VAX workstations running VWS software		VMS
+! X2DRIV 0 /XDISP     PGDISP or FIGDISP server for X workstations	C
+  XWDRIV 1 /XWINDOW   Workstations running X Window System		C
+  XWDRIV 2 /XSERVE    Persistent window on X Window System		C
+! ZEDRIV 0 /ZETA      Zeta 8 Digital Plotter
+!
+! The following drivers can only be used in PGPLOT installations on MS-DOS
+! systems with appropriate hardware and software. Do not select these 
+! on UNIX or VMS systems.
+!
+! LHDRIV 0 /LH        IBM PCs and clones, Lahey F77 32-bit Fortran v5.0
+! MSDRIV 0 /MSOFT     IBM PCs and clones running Microsoft Fortran 5.0
+! SSDRIV 0 /SS        IBM PCs and clones, MS-DOS, Salford Software FTN
+!
+! The following driver can only be used in PGPLOT installations on Acorn
+! Archimedes systems with appropriate hardware and software.
+!
+! ACDRIV 0 /ARC       Acorn Archimedes computer
+!
+! Selection of the XMOTIF driver causes a stub driver to be placed in
+! the main PGPLOT library. The real driver is placed in libXmPgplot.a.
+! Applications that need the Motif driver should link with libXmPgplot.a
+! before the PGPLOT library. This treatment means that only Motif
+! applications have to be linked with Motif libraries.
+!
+! XMDRIV 0 /XMOTIF    Motif applications containing XmPgplot widgets.   C
+!
+! Selection of the XATHENA driver causes a stub driver to be placed in
+! the main PGPLOT library. The real driver is placed in libXawPgplot.a.
+! Applications that need the Athena driver should link with libXawPgplot.a
+! before the PGPLOT library. This treatment means that only Athena
+! applications have to be linked with Xaw libraries.
+!
+! XADRIV 0 /XATHENA    Motif applications containing XaPgplot widgets.   C
+!
+! Selection of the TK driver causes a stub driver to be placed in
+! the main PGPLOT library. The real driver is placed in libtkpgplot.a.
+! Applications that need the Tk driver should link with libtkpgplot.a
+! before the PGPLOT library. This treatment means that only Tcl/Tk
+! applications have to be linked with the Tcl and Tk libraries.
+!
+! TKDRIV 0 /XTK       X-window Tcl/Tk programs with pgplot widgets.     C
+!
+! The following driver is included solely for use by the aips++ team.
+!
+! RVDRIV 0 /XRV       X-window Rivet/Tk programs with pgplot widgets.   C

pgplot_rhel7/grexec.f

@@ -0,0 +1,43 @@
+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=10)
+      CHARACTER*10 MSG
+C---
+      GOTO(1,2,3,4,5,6,7,8,9,10) 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 NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR)
+      RETURN
+4     CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
+      RETURN
+5     CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
+      RETURN
+6     CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3)
+      RETURN
+7     CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4)
+      RETURN
+8     CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,5)
+      RETURN
+9     CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1)
+      RETURN
+10    CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2)
+      RETURN
+C
+      END

pgplot_rhel7/grpckg1.inc

@@ -0,0 +1,98 @@
+C-----------------------------------------------------------------------
+C            Include file for GRPCKG
+C Modifications:
+C   29-Jan-1985 - add HP2648 (KS/TJP).
+C   16-Sep-1985 - remove tabs (TJP).
+C   30-Dec-1985 - add PS, VPS (TJP).
+C   27-May-1987 - remove ARGS, NULL, PS, VPS, QMS, VQMS, HIDMP,
+C                 HP7221, GRINL (TJP).
+C    6-Jun-1987 - remove PRTX, TRILOG, VERS, VV (TJP).
+C   11-Jun-1987 - remove remaining built-in devices (TJP).
+C    5-Jul-1987 - replace GRINIT, GRPLTD by GRSTAT.
+C   16-Aug-1987 - remove obsolete variables.
+C    9-Sep-1989 - add SAVE statement.
+C   26-Nov-1990 - remove GRCTYP.
+C    5-Jan-1993 - add GRADJU.
+C    1-Sep-1994 - add GRGCAP.
+C   21-Dec-1995 - increase GRIMAX to 8.
+C   30-Apr-1997 - remove GRC{XY}SP
+C-----------------------------------------------------------------------
+C
+C Parameters:
+C   GRIMAX : maximum number of concurrent devices
+C   GRFNMX : maximum length of file names
+C   GRCXSZ : default width of chars (pixels)
+C   GRCYSZ : default height of chars (pixels)
+C
+      INTEGER   GRIMAX, GRFNMX
+      REAL      GRCXSZ, GRCYSZ
+      PARAMETER (GRIMAX = 8)
+      PARAMETER (GRFNMX = 90)
+      PARAMETER (GRCXSZ =  7.0, GRCYSZ =  9.0)
+C
+C Common blocks:
+C   GRCIDE : identifier of current plot
+C   GRGTYP : device type of current plot
+C The following are qualified by a plot id:
+C   GRSTAT : 0 => workstation closed
+C            1 => workstation open
+C            2 => picture open
+C   GRPLTD :
+C   GRDASH : software dashing in effect?
+C   GRUNIT : unit associated with id
+C   GRFNLN : length of filename
+C   GRTYPE : device type
+C   GRXMXA : x size of plotting surface
+C   GRYMXA : y size of plotting surface
+C   GRXMIN : blc of plotting window
+C   GRYMIN : ditto
+C   GRXMAX : trc of plotting window
+C   GRYMAX : ditto
+C   GRSTYL : line style (integer code)
+C   GRWIDT : line width (integer code)
+C   GRCCOL : current color index (integer code)
+C   GRMNCI : minimum color index on this device
+C   GRMXCI : maximum color index on this device
+C   GRCMRK : marker number
+C   GRXPRE : previous (current) pen position (x)
+C   GRYPRE : ditto (y)
+C   GRXORG : transformation variables (GRTRAN)
+C   GRYORG : ditto
+C   GRXSCL : ditto
+C   GRYSCL : ditto
+C   GRCSCL : character scaling factor
+C   GRCFAC :
+C   GRCFNT : character font
+C   GRFILE : file name (character)
+C   GRGCAP : device capabilities (character)
+C   GRPXPI : pixels per inch in x
+C   GRPYPI : pixels per inch in y
+C   GRADJU : TRUE if GRSETS (PGPAP) has been called
+C
+      INTEGER   GRCIDE, GRGTYP
+      LOGICAL   GRPLTD(GRIMAX), GRDASH(GRIMAX), GRADJU(GRIMAX)
+      INTEGER   GRSTAT(GRIMAX)
+      INTEGER   GRUNIT(GRIMAX), GRFNLN(GRIMAX), GRTYPE(GRIMAX),
+     1          GRXMXA(GRIMAX), GRYMXA(GRIMAX), 
+     2          GRSTYL(GRIMAX), GRWIDT(GRIMAX), GRCCOL(GRIMAX),
+     3          GRCMRK(GRIMAX), GRIPAT(GRIMAX), GRCFNT(GRIMAX),
+     4          GRMNCI(GRIMAX), GRMXCI(GRIMAX)
+      REAL      GRXMIN(GRIMAX), GRYMIN(GRIMAX),
+     1          GRXMAX(GRIMAX), GRYMAX(GRIMAX)
+      REAL      GRXPRE(GRIMAX), GRYPRE(GRIMAX), GRXORG(GRIMAX),
+     1          GRYORG(GRIMAX), GRXSCL(GRIMAX), GRYSCL(GRIMAX),
+     2          GRCSCL(GRIMAX), GRCFAC(GRIMAX), GRPOFF(GRIMAX),
+     3          GRPATN(GRIMAX,8),GRPXPI(GRIMAX),GRPYPI(GRIMAX)
+      COMMON /GRCM00/ GRCIDE, GRGTYP, GRSTAT, GRPLTD, GRUNIT,
+     1                GRFNLN, GRTYPE, GRXMXA, GRYMXA, GRXMIN, GRYMIN,
+     2                GRXMAX, GRYMAX, GRWIDT, GRCCOL, GRSTYL,
+     3                GRXPRE, GRYPRE, GRXORG, GRYORG, GRXSCL, GRYSCL,
+     4                GRCSCL, GRCFAC, GRDASH, GRPATN, GRPOFF,
+     5                GRIPAT, GRCFNT, GRCMRK, GRPXPI, GRPYPI, GRADJU,
+     6                GRMNCI, GRMXCI
+C
+      CHARACTER*(GRFNMX) GRFILE(GRIMAX)
+      CHARACTER*11       GRGCAP(GRIMAX)
+      COMMON /GRCM01/ GRFILE, GRGCAP
+      SAVE /GRCM00/, /GRCM01/
+C-----------------------------------------------------------------------