home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / f77_PGPLOT_IN < prev    next >
Encoding:
Text File  |  1997-02-26  |  6.1 KB  |  136 lines
  1. C-----------------------------------------------------------------------
  2. C PGPLOT: common block definition.
  3. C-----------------------------------------------------------------------
  4. C Maximum number of concurrent devices (should match GRIMAX).
  5. C-----------------------------------------------------------------------
  6.       INTEGER PGMAXD
  7.       PARAMETER (PGMAXD=8)
  8. C-----------------------------------------------------------------------
  9. C Indentifier of currently selected device.
  10. C-----------------------------------------------------------------------
  11.       INTEGER PGID
  12. C-----------------------------------------------------------------------
  13. C Device status (indexed by device identifier).
  14. C-----------------------------------------------------------------------
  15. C PGDEVS  =0 if device is not open; 1 if device is open.
  16. C PGADVS  Set to 0 by PGBEGIN, set to 1 by PGPAGE; used to suppress
  17. C         the prompt for the first page.
  18. C PROMPT  If .TRUE., ask user before clearing page; set by PGASK
  19. C         and (indirectly) by PGBEGIN, used in PGENV.
  20. C PGBLEV  Buffering level: incremented by PGBBUF, decremented by
  21. C         PGEBUF.
  22. C PGPFIX  TRUE if PGPAP has been called, FALSE otherwise.
  23. C
  24.       INTEGER PGDEVS(PGMAXD), PGADVS(PGMAXD), PGBLEV(PGMAXD)
  25.       LOGICAL PGPRMP(PGMAXD), PGPFIX(PGMAXD)
  26. C-----------------------------------------------------------------------
  27. C Panel parameters (indexed by device identification).
  28. C-----------------------------------------------------------------------
  29. C NX      Number of panels in x direction
  30. C NY      Number of panels in y direction
  31. C NXC     Ordinal number of current X panel
  32. C NYC     Ordinal number of current Y panel
  33. C XSZ     X dimension of panel (device units)
  34. C YSZ     Y dimension of panel (device units)
  35. C PGROWS  TRUE if panels are used in row order, FALSE for column
  36. C         order.
  37. C
  38.       INTEGER PGNX  (PGMAXD), PGNY  (PGMAXD)
  39.       INTEGER PGNXC (PGMAXD), PGNYC (PGMAXD)
  40.       REAL    PGXSZ (PGMAXD), PGYSZ (PGMAXD)
  41.       LOGICAL PGROWS(PGMAXD)
  42. C-----------------------------------------------------------------------
  43. C Attributes (indexed by device identification).
  44. C-----------------------------------------------------------------------
  45. C PGCLP   clipping enabled/disabed
  46. C PGFAS   fill-area style
  47. C PGCHSZ  character height
  48. C PGAHS   arrow-head fill style
  49. C PGAHA   arrow-head angle
  50. C PGAHV   arrow-head vent
  51. C PGTBCI  text background color index
  52. C PGMNCI  lower range of color indices available to PGGRAY/PGIMAG
  53. C PGMXCI  upper range of color indices available to PGGRAY/PGIMAG
  54. C PGITF   type of transfer function used by PGGRAY/PGIMAG
  55. C PGHSA   hatching line angle
  56. C PGHSS   hatching line separation
  57. C PGHSP   hatching line phase
  58. C
  59.       INTEGER PGCLP (PGMAXD)
  60.       INTEGER PGFAS (PGMAXD)
  61.       REAL    PGCHSZ(PGMAXD)
  62.       INTEGER PGAHS (PGMAXD)
  63.       REAL    PGAHA (PGMAXD)
  64.       REAL    PGAHV (PGMAXD)
  65.       INTEGER PGTBCI(PGMAXD)
  66.       INTEGER PGMNCI(PGMAXD)
  67.       INTEGER PGMXCI(PGMAXD)
  68.       INTEGER PGITF (PGMAXD)
  69.       REAL    PGHSA (PGMAXD)
  70.       REAL    PGHSS (PGMAXD)
  71.       REAL    PGHSP (PGMAXD)
  72. C-----------------------------------------------------------------------
  73. C Viewport parameters (indexed by device identification); all are device
  74. C coordinates:
  75. C-----------------------------------------------------------------------
  76. C PGXOFF  X coordinate of blc of viewport.
  77. C PGYOFF  Y coordinate of blc of viewport.
  78. C PGXVP   X coordinate of blc of viewport, relative to blc of subpage.
  79. C PGYVP   Y coordinate of blc of viewport, relative to blc of subpage.
  80. C PGXLEN  Width of viewport. 
  81. C PGYLEN  Height of viewport.
  82. C
  83.       REAL   PGXOFF(PGMAXD), PGYOFF(PGMAXD)
  84.       REAL   PGXVP (PGMAXD), PGYVP (PGMAXD)
  85.       REAL   PGXLEN(PGMAXD), PGYLEN(PGMAXD)
  86. C-----------------------------------------------------------------------
  87. C Scaling parameters (indexed by device identification):
  88. C-----------------------------------------------------------------------
  89. C PGXORG  device coordinate value corresponding to world X=0
  90. C PGYORG  device coordinate value corresponding to world Y=0
  91. C PGXSCL  scale in x (device units per world coordinate unit)
  92. C PGYSCL  scale in y (device units per world coordinate unit)
  93. C PGXPIN  device x scale in device units/inch
  94. C PGYPIN  device y scale in device units/inch
  95. C PGXSP   Character X spacing (device units)
  96. C PGYSP   Character Y spacing (device units)
  97. C
  98.       REAL   PGXORG(PGMAXD), PGYORG(PGMAXD)
  99.       REAL   PGXSCL(PGMAXD), PGYSCL(PGMAXD)
  100.       REAL   PGXPIN(PGMAXD), PGYPIN(PGMAXD)
  101.       REAL   PGXSP (PGMAXD), PGYSP (PGMAXD)
  102. C-----------------------------------------------------------------------
  103. C Window parameters (indexed by device identification); all are world
  104. C coordinate values:
  105. C-----------------------------------------------------------------------
  106. C PGXBLC  world X at bottom left corner of window
  107. C PGXTRC  world X at top right corner of window
  108. C PGYBLC  world Y at bottom left corner of window
  109. C PGYTRC  world Y at top right corner of window
  110. C
  111.       REAL    PGXBLC(PGMAXD), PGXTRC(PGMAXD)
  112.       REAL    PGYBLC(PGMAXD), PGYTRC(PGMAXD)
  113. C-----------------------------------------------------------------------
  114. C The following parameters are used in the contouring routines to pass
  115. C information to the action routine. They do not need to be indexed.
  116. C-----------------------------------------------------------------------
  117. C TRANS   Transformation matrix for contour plots; copied
  118. C         from argument list by PGCONT and used by PGCP.
  119. C
  120.       INTEGER PGCINT, PGCMIN
  121.       REAL    TRANS(6)
  122.       CHARACTER*32 PGCLAB
  123. C-----------------------------------------------------------------------
  124. C-----------------------------------------------------------------------
  125.       COMMON  /PGPLT1/ PGID,PGDEVS,PGADVS,PGNX,  PGNY,  PGNXC, PGNYC ,
  126.      1        PGXPIN,PGYPIN,PGXSP, PGYSP, PGXSZ, PGYSZ,
  127.      2        PGXOFF,PGYOFF,PGXVP, PGYVP, PGXLEN,PGYLEN,PGXORG,PGYORG,
  128.      3        PGXSCL,PGYSCL,PGXBLC,PGXTRC,PGYBLC,PGYTRC,TRANS,
  129.      4        PGPRMP,PGCLP, PGFAS, PGCHSZ,PGBLEV,PGROWS,
  130.      5        PGAHS, PGAHA, PGAHV, PGTBCI,PGMNCI,PGMXCI,PGCINT,PGCMIN,
  131.      6        PGPFIX,PGITF, PGHSA, PGHSS, PGHSP
  132.       COMMON  /PGPLT2/ PGCLAB
  133.       SAVE    /PGPLT1/
  134.       SAVE    /PGPLT2/
  135. C-----------------------------------------------------------------------
  136.