home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / f77 / GRPCKG1_IN next >
Text File  |  1997-04-30  |  4KB  |  99 lines
  1. C-----------------------------------------------------------------------
  2. C            Include file for GRPCKG
  3. C Modifications:
  4. C   29-Jan-1985 - add HP2648 (KS/TJP).
  5. C   16-Sep-1985 - remove tabs (TJP).
  6. C   30-Dec-1985 - add PS, VPS (TJP).
  7. C   27-May-1987 - remove ARGS, NULL, PS, VPS, QMS, VQMS, HIDMP,
  8. C                 HP7221, GRINL (TJP).
  9. C    6-Jun-1987 - remove PRTX, TRILOG, VERS, VV (TJP).
  10. C   11-Jun-1987 - remove remaining built-in devices (TJP).
  11. C    5-Jul-1987 - replace GRINIT, GRPLTD by GRSTAT.
  12. C   16-Aug-1987 - remove obsolete variables.
  13. C    9-Sep-1989 - add SAVE statement.
  14. C   26-Nov-1990 - remove GRCTYP.
  15. C    5-Jan-1993 - add GRADJU.
  16. C    1-Sep-1994 - add GRGCAP.
  17. C   21-Dec-1995 - increase GRIMAX to 8.
  18. C   30-Apr-1997 - remove GRC{XY}SP
  19. C-----------------------------------------------------------------------
  20. C
  21. C Parameters:
  22. C   GRIMAX : maximum number of concurrent devices
  23. C   GRFNMX : maximum length of file names
  24. C   GRCXSZ : default width of chars (pixels)
  25. C   GRCYSZ : default height of chars (pixels)
  26. C
  27.       INTEGER   GRIMAX, GRFNMX
  28.       REAL      GRCXSZ, GRCYSZ
  29.       PARAMETER (GRIMAX = 8)
  30.       PARAMETER (GRFNMX = 90)
  31.       PARAMETER (GRCXSZ =  7.0, GRCYSZ =  9.0)
  32. C
  33. C Common blocks:
  34. C   GRCIDE : identifier of current plot
  35. C   GRGTYP : device type of current plot
  36. C The following are qualified by a plot id:
  37. C   GRSTAT : 0 => workstation closed
  38. C            1 => workstation open
  39. C            2 => picture open
  40. C   GRPLTD :
  41. C   GRDASH : software dashing in effect?
  42. C   GRUNIT : unit associated with id
  43. C   GRFNLN : length of filename
  44. C   GRTYPE : device type
  45. C   GRXMXA : x size of plotting surface
  46. C   GRYMXA : y size of plotting surface
  47. C   GRXMIN : blc of plotting window
  48. C   GRYMIN : ditto
  49. C   GRXMAX : trc of plotting window
  50. C   GRYMAX : ditto
  51. C   GRSTYL : line style (integer code)
  52. C   GRWIDT : line width (integer code)
  53. C   GRCCOL : current color index (integer code)
  54. C   GRMNCI : minimum color index on this device
  55. C   GRMXCI : maximum color index on this device
  56. C   GRCMRK : marker number
  57. C   GRXPRE : previous (current) pen position (x)
  58. C   GRYPRE : ditto (y)
  59. C   GRXORG : transformation variables (GRTRAN)
  60. C   GRYORG : ditto
  61. C   GRXSCL : ditto
  62. C   GRYSCL : ditto
  63. C   GRCSCL : character scaling factor
  64. C   GRCFAC :
  65. C   GRCFNT : character font
  66. C   GRFILE : file name (character)
  67. C   GRGCAP : device capabilities (character)
  68. C   GRPXPI : pixels per inch in x
  69. C   GRPYPI : pixels per inch in y
  70. C   GRADJU : TRUE if GRSETS (PGPAP) has been called
  71. C
  72.       INTEGER   GRCIDE, GRGTYP
  73.       LOGICAL   GRPLTD(GRIMAX), GRDASH(GRIMAX), GRADJU(GRIMAX)
  74.       INTEGER   GRSTAT(GRIMAX)
  75.       INTEGER   GRUNIT(GRIMAX), GRFNLN(GRIMAX), GRTYPE(GRIMAX),
  76.      1          GRXMXA(GRIMAX), GRYMXA(GRIMAX), 
  77.      2          GRSTYL(GRIMAX), GRWIDT(GRIMAX), GRCCOL(GRIMAX),
  78.      3          GRCMRK(GRIMAX), GRIPAT(GRIMAX), GRCFNT(GRIMAX),
  79.      4          GRMNCI(GRIMAX), GRMXCI(GRIMAX)
  80.       REAL      GRXMIN(GRIMAX), GRYMIN(GRIMAX),
  81.      1          GRXMAX(GRIMAX), GRYMAX(GRIMAX)
  82.       REAL      GRXPRE(GRIMAX), GRYPRE(GRIMAX), GRXORG(GRIMAX),
  83.      1          GRYORG(GRIMAX), GRXSCL(GRIMAX), GRYSCL(GRIMAX),
  84.      2          GRCSCL(GRIMAX), GRCFAC(GRIMAX), GRPOFF(GRIMAX),
  85.      3          GRPATN(GRIMAX,8),GRPXPI(GRIMAX),GRPYPI(GRIMAX)
  86.       COMMON /GRCM00/ GRCIDE, GRGTYP, GRSTAT, GRPLTD, GRUNIT,
  87.      1                GRFNLN, GRTYPE, GRXMXA, GRYMXA, GRXMIN, GRYMIN,
  88.      2                GRXMAX, GRYMAX, GRWIDT, GRCCOL, GRSTYL,
  89.      3                GRXPRE, GRYPRE, GRXORG, GRYORG, GRXSCL, GRYSCL,
  90.      4                GRCSCL, GRCFAC, GRDASH, GRPATN, GRPOFF,
  91.      5                GRIPAT, GRCFNT, GRCMRK, GRPXPI, GRPYPI, GRADJU,
  92.      6                GRMNCI, GRMXCI
  93. C
  94.       CHARACTER*(GRFNMX) GRFILE(GRIMAX)
  95.       CHARACTER*11       GRGCAP(GRIMAX)
  96.       COMMON /GRCM01/ GRFILE, GRGCAP
  97.       SAVE /GRCM00/, /GRCM01/
  98. C-----------------------------------------------------------------------
  99.