![]() |
PG2PLplot
Aid in the conversion from PGPlot to PLplot in Fortran programs
|
Contains pgplot-to-plplot bindings (i.e., call PLplot from PGplot commands) More...
Go to the source code of this file.
Modules | |
module | pg2plplot |
PG2PLplot module. | |
Functions/Subroutines | |
subroutine | pg2plplot::do_init () |
subroutine | pgsls (ls) |
Set line style. More... | |
subroutine | pgqls (ls) |
Query line style. More... | |
subroutine | pgslw (lw) |
Set line width. More... | |
subroutine | pgqlw (lw) |
Query line width. More... | |
subroutine | pgscf (cf) |
Set character font. More... | |
subroutine | pgqcf (cf) |
Query character font. More... | |
subroutine | pgqinf (item, value, length) |
Inquire PGPLOT general information - dummy routine. More... | |
subroutine | pgsci (ci1) |
Set colour index. More... | |
subroutine | pgscr (ci1, r, g, b) |
Set colour representation. More... | |
subroutine | pgqcr (ci1, r, g, b) |
Query colour representation. More... | |
subroutine | pgscir (ci1, ci2) |
Set colour-index range for pggray and pgimag - dummy routine! More... | |
subroutine | pgqcir (ci1, ci2) |
Query colour-index range for pggray and pgimag - dummy routine! More... | |
subroutine | pgsfs (fs) |
Set fill style. More... | |
subroutine | pgshs (ang, sep, ph) |
Set hash style. More... | |
subroutine | pgsch (ch) |
Set character height. More... | |
subroutine | pgqcs (unit, xch, ych) |
Inquire character height in a variety of units. More... | |
subroutine | pgqch (ch) |
Query character height. More... | |
subroutine | pgsah (fs, angle, barb) |
Set arrow head - dummy routine! More... | |
subroutine | pgline (n, x1, y1) |
Draw a line. More... | |
subroutine | pgarro (x1, y1, x2, y2) |
Draw an arrow - only a line is drawn, arrows not supported in PLplot! More... | |
subroutine | pgpoint (n, x1, y1, s) |
Draw points. More... | |
subroutine | pgpoly (n, x1, y1) |
Draw a polygone. More... | |
subroutine | pgrect (x1, x2, y1, y2) |
Draw a rectangle. More... | |
subroutine | pgcirc (xc, yc, r) |
Draw a circle. More... | |
subroutine | pgcont (arr, nx, ny, ix1, ix2, iy1, iy2, c, nc, tr) |
Make a contour plot. More... | |
subroutine | pgconf (arr, nx, ny, ix1, ix2, iy1, iy2, c1, c2, tr) |
Shade a region (between contours/heights) - dummy routine! More... | |
subroutine | pgptxt (x1, y1, ang, just1, text) |
Print text with arbitrary angle and justification. More... | |
subroutine | pgptext (x, y, ang, just, text) |
Non-standard alias for pgptxt() More... | |
subroutine | pgtext (x1, y1, text) |
Print text with default angle and justification. More... | |
subroutine | pgmtxt (side, disp1, pos1, just1, text) |
Print text in the margin. More... | |
subroutine | pgmtext (side, disp, pos, just, text) |
Alias for pgmtxt() More... | |
subroutine | pglab (xlbl, ylbl, toplbl) |
Interface for pglab. More... | |
subroutine | pglabel (xlbl, ylbl, toplbl) |
Alias for pglab. More... | |
integer function | pgopen (pgdev) |
Start a new plot. More... | |
subroutine | pgqid (id) |
Inquire current device identifier. More... | |
subroutine | pgbegin (i, pgdev, nx, ny) |
Begin a new plot. More... | |
subroutine | pgbeg (i, pgdev, nx, ny) |
Alias for pgbegin. More... | |
subroutine | pgend () |
End a plot. More... | |
subroutine | pgpap (width, ratio) |
Set paper size. More... | |
subroutine | pgsvp (xl1, xr1, yb1, yt1) |
Set view port. More... | |
subroutine | pgswin (xmin1, xmax1, ymin1, ymax1) |
Set window. More... | |
subroutine | pgwindow (xmin1, xmax1, ymin1, ymax1) |
alias for pgswin More... | |
subroutine | pgsubp (nxsub, nysub) |
Subdivide view surface into panels. More... | |
subroutine | pgpage () |
Advance to the next (sub-)page. More... | |
subroutine | pgadvance () |
Alias for pgpage. More... | |
subroutine | pgbbuf () |
Start buffering output - dummy routine! More... | |
subroutine | pgebuf () |
End buffering output - dummy routine! More... | |
subroutine | pgbox (xopt, xtick1, nxsub, yopt, ytick1, nysub) |
Draw a box (+axes) around a plot. More... | |
subroutine | pgtick (x1, y1, x2, y2, pos, tikl, tikr, disp, orient, lbl) |
Draw a single tick mark, optionally with label - no PLplot routine found, using an ad-hoc routine. More... | |
subroutine | pgolin (maxpt, npt, x, y, symbol) |
Read data from screen - no PLplot equivalent (yet) - dummy routine! More... | |
subroutine | pgeras () |
Erase screen. More... | |
subroutine | pg2pltext (string) |
Replace the PGPlot escape character '\' with the PLplot escape character '#'. More... | |
subroutine | pg2pldev (pgdev, pldev, filename) |
Converts PGplot device ID to PLplot device ID + file name. More... | |
subroutine | pgslct (pgdev) |
Select output stream. More... | |
subroutine | pgsave () |
Save parameters. More... | |
subroutine | pgunsa () |
Unsave parameters. More... | |
subroutine | pgmove (x, y) |
Move pen to location - for use with pgdraw() only! More... | |
subroutine | pgdraw (x, y) |
Draw line to location. More... | |
subroutine | pgpt (n, x, y, ncode) |
Draw a point. More... | |
subroutine | pgpt1 (x, y, ncode) |
Draw a single point. More... | |
subroutine | pgclos () |
Close stream. More... | |
subroutine | pgband (mode, posn, xref, yref, x, y, ch) |
Get cursor location - dummy routine! More... | |
subroutine | pgqcol (c1, c2) |
Get colour range - dummy routine! More... | |
subroutine | pgqci (ci) |
Get current colour index - dummy routine! More... | |
subroutine | pgqvp (units, x1, x2, y1, y2) |
Get viewport size. More... | |
subroutine | pgqvsz (units, x1, x2, y1, y2) |
get view surface More... | |
subroutine | pgiden () |
Print user name and date in plot - dummy routine! More... | |
subroutine | pgqwin (x1, x2, y1, y2) |
get window size More... | |
subroutine | pgupdt () |
Flush - dummy routine. More... | |
subroutine | replace_substring (string, str_in, str_out) |
Search and replace occurences of a substring in a string, taken from libSUFR. More... | |
subroutine | pgqfs (fs) |
Inquire fill-area style - dummy routine. More... | |
subroutine | pgstbg (b) |
Set text background color index - dummy routine. More... | |
subroutine | pgqtbg (b) |
Query text background color index - dummy routine. More... | |
subroutine | pgask (prompt) |
Control new page prompting - dummy routine. More... | |
subroutine | pgenv (xmin, xmax, ymin, ymax, just, axis) |
Set window and viewport and draw labeled frame. More... | |
subroutine | pgbin (nbin, x, data, center) |
Plot a histogram of binned data. More... | |
subroutine | pgerry (n, x, ymax, ymin, t) |
Vertical error bar. More... | |
subroutine | pgvsiz (xleft, xright, ybot, ytop) |
Set viewport (inches) More... | |
subroutine | pgvsize (xleft, xright, ybot, ytop) |
Non-standard alias for PGVSIZ. More... | |
subroutine | pglen (units, string, xl, yl) |
Find length of a string in a variety of units - dummy variable. More... | |
subroutine | pgqtxt (x, y, angle, fjust, text, xbox, ybox) |
Find bounding box of text string - dummy variable. More... | |
real function | reldiff (x1, x2) |
Return the relative difference between two numbers: dx/<x> - taken from libSUFR, turned into single precision. More... | |
integer function | check_error (fname) |
Check whether opening a file gives an error. More... | |
subroutine | warn_dummy_routine (routine, message) |
Print a warning when no (proper) PLplot equivalent is defined and a dummy routine is used instead. More... | |
logical function | deq (x1, x2) |
Test whether two double-precision variables are equal to better than twice the machine precision, taken from libSUFR. More... | |
logical function | seq (x1, x2) |
Test whether two single-precision variables are equal to better than twice the machine precision, taken from libSUFR. More... | |
Variables | |
real(plflt), parameter | pg2plplot::ch_fac = 0.35_plflt |
Conversion factor for the character height. More... | |
logical, parameter | pg2plplot::compatibility_warnings = .true. |
real(plflt) | pg2plplot::xcur =0. |
real(plflt) | pg2plplot::ycur =0. |
integer | pg2plplot::save_level = 0 |
integer, parameter | pg2plplot::max_level = 20 |
integer, parameter | pg2plplot::max_open = 100 |
real(plflt), parameter | pg2plplot::mm_per_inch = 25.4 |
integer, dimension(max_level) | pg2plplot::save_ffamily |
integer, dimension(max_level) | pg2plplot::save_fstyle |
integer, dimension(max_level) | pg2plplot::save_fweight |
integer, dimension(max_level) | pg2plplot::save_lwidth |
integer, dimension(max_level) | pg2plplot::save_lstyle |
integer, dimension(max_level) | pg2plplot::save_color |
integer | pg2plplot::cur_lwidth =1 |
integer | pg2plplot::cur_color =1 |
integer | pg2plplot::cur_lstyle =1 |
integer | pg2plplot::devid =0 |
logical | pg2plplot::is_init |
real(plflt) | pg2plplot::paper_width |
real(plflt) | pg2plplot::paper_ratio |
Contains pgplot-to-plplot bindings (i.e., call PLplot from PGplot commands)
Definition in file pg2plplot.f90.
integer function check_error | ( | character, dimension(*), intent(in) | fname | ) |
Check whether opening a file gives an error.
fname | File name |
Definition at line 2270 of file pg2plplot.f90.
Referenced by pgopen().
logical function deq | ( | real(plflt), intent(in) | x1, |
real(plflt), intent(in) | x2 | ||
) |
Test whether two double-precision variables are equal to better than twice the machine precision, taken from libSUFR.
x1 | First number |
x2 | Second number |
Definition at line 2310 of file pg2plplot.f90.
subroutine pg2pldev | ( | character, dimension(*), intent(in) | pgdev, |
character, dimension(*), intent(out) | pldev, | ||
character, dimension(*), intent(out) | filename | ||
) |
Converts PGplot device ID to PLplot device ID + file name.
pgdev | PGplot device ID (includes filename: 'file.name/dev') |
pldev | PLplot device ID ('dev') |
filename | PLplot file name ('file.name') |
Definition at line 1515 of file pg2plplot.f90.
References replace_substring().
subroutine pg2pltext | ( | character, dimension(*), intent(inout) | string | ) |
Replace the PGPlot escape character '\' with the PLplot escape character '#'.
string | Text string to convert |
Definition at line 1477 of file pg2plplot.f90.
References replace_substring().
subroutine pgadvance | ( | ) |
subroutine pgarro | ( | real, intent(in) | x1, |
real, intent(in) | y1, | ||
real, intent(in) | x2, | ||
real, intent(in) | y2 | ||
) |
Draw an arrow - only a line is drawn, arrows not supported in PLplot!
x1 | X-value of start point |
y1 | Y-value of start point |
x2 | X-value of end point |
y2 | Y-value of end point |
Definition at line 547 of file pg2plplot.f90.
subroutine pgask | ( | logical, intent(in) | prompt | ) |
Control new page prompting - dummy routine.
prompt | Set prompt state to ON for interactive devices |
Definition at line 2050 of file pg2plplot.f90.
subroutine pgband | ( | integer, intent(in) | mode, |
integer, intent(in) | posn, | ||
real, intent(in) | xref, | ||
real, intent(in) | yref, | ||
real, intent(out) | x, | ||
real, intent(out) | y, | ||
character, dimension(*), intent(out) | ch | ||
) |
Get cursor location - dummy routine!
mode | Display mode (0-7) |
posn | If POSN=1, PGBAND tries to place the cursor at (X,Y); if POSN=0, it leaves the cursor at its current position |
xref | World x-coordinate of the anchor point |
yref | World y-coordinate of the anchor point |
x | World x-coordinate of the cursor |
y | World y-coordinate of the cursor |
ch | Character typed by the user |
Definition at line 1751 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgbbuf | ( | ) |
Start buffering output - dummy routine!
Definition at line 1250 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, pg2plplot::do_init(), and warn_dummy_routine().
Referenced by pglab().
subroutine pgbeg | ( | integer, intent(in) | i, |
character, dimension(*), intent(in) | pgdev, | ||
integer, intent(in) | nx, | ||
integer, intent(in) | ny | ||
) |
Alias for pgbegin.
i | Display ID |
pgdev | PGplot device |
nx | Number of frames in the x-direction |
ny | Number of frames in the y-direction |
Definition at line 1073 of file pg2plplot.f90.
References pgbegin().
subroutine pgbegin | ( | integer, intent(in) | i, |
character, dimension(*), intent(in) | pgdev, | ||
integer, intent(in) | nx, | ||
integer, intent(in) | ny | ||
) |
Begin a new plot.
i | Display ID |
pgdev | PGplot device |
nx | Number of frames in the x-direction |
ny | Number of frames in the y-direction |
This is a bit simpler than pgopen(), since I don't need to create a new stream for each request.
Definition at line 1033 of file pg2plplot.f90.
References pg2plplot::is_init, and pg2pldev().
Referenced by pgbeg().
subroutine pgbin | ( | integer, intent(in) | nbin, |
real, dimension(*), intent(in) | x, | ||
real, dimension(*), intent(in) | data, | ||
logical, intent(in) | center | ||
) |
Plot a histogram of binned data.
nbin | Number of bins |
x | Abscissae of the bins |
data | Data values of bins |
center | If .TRUE., the X values denote the center of the bin, else the lower edge |
Definition at line 2091 of file pg2plplot.f90.
subroutine pgbox | ( | character, dimension(*), intent(in) | xopt, |
real, intent(in) | xtick1, | ||
integer, intent(in) | nxsub, | ||
character, dimension(*), intent(in) | yopt, | ||
real, intent(in) | ytick1, | ||
integer, intent(in) | nysub | ||
) |
Draw a box (+axes) around a plot.
xopt | Options for the x-axis |
xtick1 | Distance between ticks on the x-axis |
nxsub | Number of subticks on the x-axis |
yopt | Options for the y-axis |
ytick1 | Distance between ticks on the y-axis |
nysub | Number of subticks on the y-axis |
Definition at line 1294 of file pg2plplot.f90.
subroutine pgcirc | ( | real, intent(in) | xc, |
real, intent(in) | yc, | ||
real, intent(in) | r | ||
) |
Draw a circle.
xc | X-value of centre |
yc | Y-value of centre |
r | Radius |
Definition at line 648 of file pg2plplot.f90.
subroutine pgclos | ( | ) |
Close stream.
Definition at line 1732 of file pg2plplot.f90.
subroutine pgconf | ( | real, dimension(nx,ny), intent(in) | arr, |
integer, intent(in) | nx, | ||
integer, intent(in) | ny, | ||
integer, intent(in) | ix1, | ||
integer, intent(in) | ix2, | ||
integer, intent(in) | iy1, | ||
integer, intent(in) | iy2, | ||
real, intent(in) | c1, | ||
real, intent(in) | c2, | ||
real, dimension(6), intent(in) | tr | ||
) |
Shade a region (between contours/heights) - dummy routine!
arr | Data array |
nx | Dimension 1 of data array |
ny | Dimension 2 of data array |
ix1 | Start index range in dimension 1 to use from data array |
ix2 | End index range in dimension 1 to use from data array |
iy1 | Start index range in dimension 2 to use from data array |
iy2 | End index range in dimension 2 to use from data array |
c1 | Lower limit in height/contour to fill |
c2 | Upper limit in height/contour to fill |
tr | Affine transformation elements |
Definition at line 719 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgcont | ( | real, dimension(nx,ny), intent(in) | arr, |
integer, intent(in) | nx, | ||
integer, intent(in) | ny, | ||
integer, intent(in) | ix1, | ||
integer, intent(in) | ix2, | ||
integer, intent(in) | iy1, | ||
integer, intent(in) | iy2, | ||
real, dimension(*), intent(in) | c, | ||
integer, intent(in) | nc, | ||
real, dimension(6), intent(in) | tr | ||
) |
Make a contour plot.
arr | Data array |
nx | Dimension 1 of data array |
ny | Dimension 2 of data array |
ix1 | Start index range in dimension 1 to use from data array |
ix2 | End index range in dimension 1 to use from data array |
iy1 | Start index range in dimension 2 to use from data array |
iy2 | End index range in dimension 2 to use from data array |
c | Array with heights to draw contours for |
nc | Dimension of c |
tr | Affine transformation elements |
Definition at line 687 of file pg2plplot.f90.
subroutine pgdraw | ( | real, intent(in) | x, |
real, intent(in) | y | ||
) |
Draw line to location.
x | Horizontal location |
y | Vertical location |
Definition at line 1654 of file pg2plplot.f90.
References pgmove(), pg2plplot::xcur, and pg2plplot::ycur.
subroutine pgebuf | ( | ) |
End buffering output - dummy routine!
Definition at line 1269 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
Referenced by pglab().
subroutine pgend | ( | ) |
End a plot.
Definition at line 1086 of file pg2plplot.f90.
subroutine pgenv | ( | real, intent(in) | xmin, |
real, intent(in) | xmax, | ||
real, intent(in) | ymin, | ||
real, intent(in) | ymax, | ||
integer, intent(in) | just, | ||
integer, intent(in) | axis | ||
) |
Set window and viewport and draw labeled frame.
xmin | Left |
xmax | Right |
ymin | Top (?) |
ymax | Bottom (?) |
just | JUST=1: scales of x and y axes are equal, otherwise independent |
axis | Controls the plotting of axes, tick marks, etc |
Definition at line 2069 of file pg2plplot.f90.
subroutine pgeras | ( | ) |
Erase screen.
Definition at line 1463 of file pg2plplot.f90.
subroutine pgerry | ( | integer, intent(in) | n, |
real, dimension(*), intent(in) | x, | ||
real, dimension(*), intent(in) | ymax, | ||
real, dimension(*), intent(in) | ymin, | ||
real, intent(in) | t | ||
) |
Vertical error bar.
n | Number of error bars to plot |
x | World horizontal coordinates of the data |
ymax | World vertical coordinates of top end of the error bars |
ymin | World vertical coordinates of bottom end of the error bars |
t | Length of terminals to be drawn at the ends of the error bar |
Definition at line 2115 of file pg2plplot.f90.
subroutine pgiden | ( | ) |
Print user name and date in plot - dummy routine!
Definition at line 1933 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pglab | ( | character, dimension(*), intent(in) | xlbl, |
character, dimension(*), intent(in) | ylbl, | ||
character, dimension(*), intent(in) | toplbl | ||
) |
subroutine pglabel | ( | character, dimension(*), intent(in) | xlbl, |
character, dimension(*), intent(in) | ylbl, | ||
character, dimension(*), intent(in) | toplbl | ||
) |
Alias for pglab.
xlbl | Label for the horizontal axis |
ylbl | Label for the vertical axis |
toplbl | Plot title |
Definition at line 958 of file pg2plplot.f90.
References pglab().
subroutine pglen | ( | integer, intent(in) | units, |
character, dimension(*), intent(in) | string, | ||
real, intent(out) | xl, | ||
real, intent(out) | yl | ||
) |
Find length of a string in a variety of units - dummy variable.
units | 0: normalized device coordinates, 1: in, 2: mm, 3: absolute device coordinates (dots), 4: world coordinates, 5: fraction of the current viewport size |
string | String of interest |
xl | Length of string in horizontal direction |
yl | Length of string in vertical direction |
Definition at line 2175 of file pg2plplot.f90.
subroutine pgline | ( | integer, intent(in) | n, |
real, dimension(n), intent(in) | x1, | ||
real, dimension(n), intent(in) | y1 | ||
) |
Draw a line.
n | Number of points |
x1 | X-values of points |
y1 | Y-values of points |
Definition at line 520 of file pg2plplot.f90.
subroutine pgmove | ( | real, intent(in) | x, |
real, intent(in) | y | ||
) |
Move pen to location - for use with pgdraw() only!
x | Horizontal location |
y | Vertical location |
Definition at line 1636 of file pg2plplot.f90.
References pg2plplot::xcur, and pg2plplot::ycur.
Referenced by pgdraw().
subroutine pgmtext | ( | character, dimension(*), intent(in) | side, |
real, intent(in) | disp, | ||
real, intent(in) | pos, | ||
real, intent(in) | just, | ||
character, dimension(*), intent(in) | text | ||
) |
Alias for pgmtxt()
side | Side to print text on ('L','R','T','B') |
disp | |
pos | Position |
just | Justification |
text | Text to print |
Definition at line 918 of file pg2plplot.f90.
References pg2pltext(), and pgmtxt().
subroutine pgmtxt | ( | character, dimension(*), intent(in) | side, |
real, intent(in) | disp1, | ||
real, intent(in) | pos1, | ||
real, intent(in) | just1, | ||
character, dimension(*), intent(in) | text | ||
) |
Print text in the margin.
side | Side to print text on ('L','R','T','B') |
disp1 | Distance from axis |
pos1 | Position along axis |
just1 | Justification |
text | Text to print |
Definition at line 886 of file pg2plplot.f90.
References pg2pltext().
subroutine pgolin | ( | integer, intent(in) | maxpt, |
integer, intent(out) | npt, | ||
real, dimension(maxpt), intent(out) | x, | ||
real, dimension(maxpt), intent(out) | y, | ||
integer, intent(in) | symbol | ||
) |
Read data from screen - no PLplot equivalent (yet) - dummy routine!
maxpt | Maximum number of points that may be accepted |
npt | Number of points entered (zero on first call) |
x | Array of x-coordinates |
y | Array of y-coordinates |
symbol | Code number of symbol to use for markingentered points |
Definition at line 1434 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
integer function pgopen | ( | character, dimension(*), intent(in) | pgdev | ) |
Start a new plot.
pgdev | PGplot device |
This function creates a new stream for each xwin request, but uses the same stream (0) for each file stream request. Xwin streams are treated differently, since we want bufferring for smooth animations whereas the other streams are non-buffered.
Definition at line 973 of file pg2plplot.f90.
References check_error(), pg2plplot::devid, pg2plplot::is_init, and pg2pldev().
subroutine pgpage | ( | ) |
Advance to the next (sub-)page.
Definition at line 1227 of file pg2plplot.f90.
References pg2plplot::do_init().
Referenced by pgadvance().
subroutine pgpap | ( | real, intent(in) | width, |
real, intent(in) | ratio | ||
) |
Set paper size.
width | Paper width |
ratio | Paper aspect ratio |
Definition at line 1102 of file pg2plplot.f90.
References pg2plplot::do_init(), pg2plplot::paper_ratio, and pg2plplot::paper_width.
subroutine pgpoint | ( | integer, intent(in) | n, |
real, dimension(n), intent(in) | x1, | ||
real, dimension(n), intent(in) | y1, | ||
integer, intent(in) | s | ||
) |
Draw points.
n | Number of points |
x1 | X-values of points |
y1 | Y-values of points |
s | Plot symbol to use |
Definition at line 575 of file pg2plplot.f90.
subroutine pgpoly | ( | integer, intent(in) | n, |
real, dimension(n), intent(in) | x1, | ||
real, dimension(n), intent(in) | y1 | ||
) |
Draw a polygone.
n | Number of points |
x1 | X-values of points |
y1 | Y-values of points |
Definition at line 599 of file pg2plplot.f90.
subroutine pgpt | ( | integer, intent(in) | n, |
real(plflt), dimension(n), intent(in) | x, | ||
real(plflt), dimension(n), intent(in) | y, | ||
integer, intent(in) | ncode | ||
) |
Draw a point.
n | Number of data points to draw |
x | Horizontal locations |
y | Vertical locations |
ncode | Plot symbol |
Definition at line 1679 of file pg2plplot.f90.
Referenced by pgpt1().
subroutine pgpt1 | ( | real(plflt), intent(in) | x, |
real(plflt), intent(in) | y, | ||
integer, intent(in) | ncode | ||
) |
Draw a single point.
x | Horizontal location |
y | Vertical location |
ncode | Plot symbol |
Definition at line 1712 of file pg2plplot.f90.
References pgpt().
subroutine pgptext | ( | real, intent(in) | x, |
real, intent(in) | y, | ||
real, intent(in) | ang, | ||
real, intent(in) | just, | ||
character, dimension(*), intent(in) | text | ||
) |
Non-standard alias for pgptxt()
x | X-coordinate of text |
y | Y-coordinate of text |
ang | Angle |
just | Justification |
text | Text to print |
Definition at line 834 of file pg2plplot.f90.
References pgptxt().
subroutine pgptxt | ( | real, intent(in) | x1, |
real, intent(in) | y1, | ||
real, intent(in) | ang, | ||
real, intent(in) | just1, | ||
character, dimension(*), intent(in) | text | ||
) |
Print text with arbitrary angle and justification.
x1 | X-coordinate of text |
y1 | Y-coordinate of text |
ang | Angle |
just1 | Justification |
text | Text to print |
Definition at line 777 of file pg2plplot.f90.
References pg2pltext().
Referenced by pgptext().
subroutine pgqcf | ( | integer, intent(out) | cf | ) |
subroutine pgqch | ( | real, intent(out) | ch | ) |
Query character height.
ch | Character height |
Definition at line 468 of file pg2plplot.f90.
References pg2plplot::ch_fac.
subroutine pgqci | ( | integer, intent(out) | ci | ) |
Get current colour index - dummy routine!
ci | Colour index |
Definition at line 1816 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgqcir | ( | integer, intent(out) | ci1, |
integer, intent(out) | ci2 | ||
) |
Query colour-index range for pggray and pgimag - dummy routine!
ci1 | Lower colour index |
ci2 | Upper colour index |
Definition at line 331 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgqcol | ( | integer, intent(out) | c1, |
integer, intent(out) | c2 | ||
) |
Get colour range - dummy routine!
c1 | Lower colour index |
c2 | Upper colour index |
Definition at line 1791 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgqcr | ( | integer, intent(in) | ci1, |
real, intent(out) | r, | ||
real, intent(out) | g, | ||
real, intent(out) | b | ||
) |
Query colour representation.
ci1 | Colour index |
r | Red colour (0-1) |
g | Green colour (0-1) |
b | Blue colour (0-1) |
Definition at line 278 of file pg2plplot.f90.
subroutine pgqcs | ( | integer, intent(in) | unit, |
real, intent(out) | xch, | ||
real, intent(out) | ych | ||
) |
Inquire character height in a variety of units.
unit | 0: normalized device coordinates, 1: in, 2: mm, 3: pixels, 4: world coordinates |
xch | The character height for text written with a vertical baseline |
ych | The character height for text written with a horizontal baseline (the usual case) |
Definition at line 435 of file pg2plplot.f90.
References pg2plplot::mm_per_inch.
subroutine pgqfs | ( | integer, intent(out) | fs | ) |
Inquire fill-area style - dummy routine.
fs | The current fill-area style |
Definition at line 2011 of file pg2plplot.f90.
subroutine pgqid | ( | integer, intent(out) | id | ) |
Inquire current device identifier.
Device | identifier |
Definition at line 1014 of file pg2plplot.f90.
References pg2plplot::devid.
subroutine pgqinf | ( | character, dimension(*), intent(in) | item, |
character, dimension(*), intent(out) | value, | ||
integer, intent(out) | length | ||
) |
Inquire PGPLOT general information - dummy routine.
item |
value | |
length |
Definition at line 204 of file pg2plplot.f90.
subroutine pgqls | ( | integer, intent(out) | ls | ) |
Query line style.
ls | Line style |
Definition at line 109 of file pg2plplot.f90.
References pg2plplot::cur_lstyle.
subroutine pgqlw | ( | integer, intent(out) | lw | ) |
Query line width.
lw | Line width |
Definition at line 146 of file pg2plplot.f90.
References pg2plplot::cur_lwidth.
subroutine pgqtbg | ( | integer, intent(out) | b | ) |
Query text background color index - dummy routine.
b | Background color index |
Definition at line 2037 of file pg2plplot.f90.
subroutine pgqtxt | ( | integer, intent(in) | x, |
integer, intent(in) | y, | ||
integer, intent(in) | angle, | ||
integer, intent(in) | fjust, | ||
character, dimension(*), intent(in) | text, | ||
real, dimension(4), intent(out) | xbox, | ||
real, dimension(4), intent(out) | ybox | ||
) |
Find bounding box of text string - dummy variable.
x | World x-coordinate |
y | World y-coordinate |
angle | Angle between baseline and horizontal (degrees) |
fjust | Horizontal justification |
text | Text string that would be written |
xbox | Horizontal limits of the bounding box |
ybox | Vertical limits of the bounding box |
Definition at line 2204 of file pg2plplot.f90.
subroutine pgqvp | ( | integer, intent(in) | units, |
real, intent(out) | x1, | ||
real, intent(out) | x2, | ||
real, intent(out) | y1, | ||
real, intent(out) | y2 | ||
) |
Get viewport size.
units | specify the units of the output parameters:
|
x1 | Left |
x2 | Right |
y1 | Bottom |
y2 | Top |
Definition at line 1847 of file pg2plplot.f90.
References pg2plplot::mm_per_inch.
subroutine pgqvsz | ( | integer, intent(in) | units, |
real, intent(out) | x1, | ||
real, intent(out) | x2, | ||
real, intent(out) | y1, | ||
real, intent(out) | y2 | ||
) |
subroutine pgqwin | ( | real, intent(out) | x1, |
real, intent(out) | x2, | ||
real, intent(out) | y1, | ||
real, intent(out) | y2 | ||
) |
get window size
x1 | Left |
x2 | Right |
y1 | Bottom |
y2 | Top |
Definition at line 1956 of file pg2plplot.f90.
subroutine pgrect | ( | real, intent(in) | x1, |
real, intent(in) | x2, | ||
real, intent(in) | y1, | ||
real, intent(in) | y2 | ||
) |
Draw a rectangle.
x1 | Lower x value |
x2 | Upper x value |
y1 | Lower y value |
y2 | Upper y value |
Definition at line 625 of file pg2plplot.f90.
subroutine pgsah | ( | integer, intent(in) | fs, |
real, intent(in) | angle, | ||
real, intent(in) | barb | ||
) |
Set arrow head - dummy routine!
fs | Fill style |
angle | Arrow-point angle |
barb | Arrow back cut |
Definition at line 492 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgsave | ( | ) |
Save parameters.
Definition at line 1576 of file pg2plplot.f90.
References pg2plplot::cur_color, pg2plplot::cur_lstyle, pg2plplot::cur_lwidth, pg2plplot::max_level, pg2plplot::save_color, pg2plplot::save_ffamily, pg2plplot::save_fstyle, pg2plplot::save_fweight, pg2plplot::save_level, pg2plplot::save_lstyle, and pg2plplot::save_lwidth.
subroutine pgscf | ( | integer, intent(in) | cf | ) |
subroutine pgsch | ( | real, intent(in) | ch | ) |
Set character height.
ch | Character height |
Definition at line 407 of file pg2plplot.f90.
References pg2plplot::ch_fac.
subroutine pgsci | ( | integer, intent(in) | ci1 | ) |
Set colour index.
ci1 | Colour index |
Definition at line 220 of file pg2plplot.f90.
References pg2plplot::cur_color.
Referenced by pgunsa().
subroutine pgscir | ( | integer, intent(in) | ci1, |
integer, intent(in) | ci2 | ||
) |
Set colour-index range for pggray and pgimag - dummy routine!
ci1 | Lower colour index |
ci2 | Upper colour index |
Definition at line 306 of file pg2plplot.f90.
References pg2plplot::compatibility_warnings, and warn_dummy_routine().
subroutine pgscr | ( | integer, intent(in) | ci1, |
real, intent(in) | r, | ||
real, intent(in) | g, | ||
real, intent(in) | b | ||
) |
Set colour representation.
ci1 | Colour index |
r | Red colour (0-1) |
g | Green colour (0-1) |
b | Blue colour (0-1) |
Definition at line 247 of file pg2plplot.f90.
subroutine pgsfs | ( | integer, intent(in) | fs | ) |
Set fill style.
fs | Fill style (1-4, no match for 2: outline) |
Definition at line 354 of file pg2plplot.f90.
subroutine pgshs | ( | real, intent(in) | ang, |
real, intent(in) | sep, | ||
real, intent(in) | ph | ||
) |
Set hash style.
ang | Angle of the lines (deg) |
sep | Spacing (in % of view-surface size): >0! |
ph | Phase of hatching. Use e.g. 0.0 and 0.5 for double hatching - dummy variable: not used |
Definition at line 385 of file pg2plplot.f90.
subroutine pgslct | ( | integer, intent(in) | pgdev | ) |
Select output stream.
pgdev | stream number |
Definition at line 1555 of file pg2plplot.f90.
References pg2plplot::do_init().
subroutine pgsls | ( | integer, intent(in) | ls | ) |
Set line style.
ls | Line style |
Definition at line 80 of file pg2plplot.f90.
References pg2plplot::cur_lstyle.
Referenced by pgunsa().
subroutine pgslw | ( | integer, intent(in) | lw | ) |
Set line width.
lw | Line width |
Definition at line 122 of file pg2plplot.f90.
References pg2plplot::cur_lwidth.
Referenced by pgunsa().
subroutine pgstbg | ( | integer, intent(in) | b | ) |
Set text background color index - dummy routine.
b | Background color index |
Definition at line 2023 of file pg2plplot.f90.
subroutine pgsubp | ( | integer, intent(in) | nxsub, |
integer, intent(in) | nysub | ||
) |
Subdivide view surface into panels.
nxsub | Number of subticks on the x-axis |
nysub | Number of subticks on the y-axis |
Definition at line 1212 of file pg2plplot.f90.
subroutine pgsvp | ( | real, intent(in) | xl1, |
real, intent(in) | xr1, | ||
real, intent(in) | yb1, | ||
real, intent(in) | yt1 | ||
) |
Set view port.
xl1 | Left side of the x-axis |
xr1 | Right side of the x-axis |
yb1 | Bottom side of the y-axis |
yt1 | Top side of the y-axis |
Definition at line 1136 of file pg2plplot.f90.
subroutine pgswin | ( | real, intent(in) | xmin1, |
real, intent(in) | xmax1, | ||
real, intent(in) | ymin1, | ||
real, intent(in) | ymax1 | ||
) |
Set window.
xmin1 | Left |
xmax1 | Right |
ymin1 | Top |
ymax1 | Bottom |
Definition at line 1163 of file pg2plplot.f90.
subroutine pgtext | ( | real, intent(in) | x1, |
real, intent(in) | y1, | ||
character, dimension(*), intent(in) | text | ||
) |
Print text with default angle and justification.
x1 | X-coordinate of text |
y1 | Y-coordinate of text |
text | Text to print |
Definition at line 852 of file pg2plplot.f90.
References pg2pltext().
subroutine pgtick | ( | real, intent(in) | x1, |
real, intent(in) | y1, | ||
real, intent(in) | x2, | ||
real, intent(in) | y2, | ||
real, intent(in) | pos, | ||
real, intent(in) | tikl, | ||
real, intent(in) | tikr, | ||
real, intent(in) | disp, | ||
real, intent(in) | orient, | ||
character, dimension(*), intent(in) | lbl | ||
) |
Draw a single tick mark, optionally with label - no PLplot routine found, using an ad-hoc routine.
x1 | world coordinates of one endpoint of the axis |
y1 | world coordinates of one endpoint of the axis |
x2 | world coordinates of the other endpoint of the axis |
y2 | world coordinates of the other endpoint of the axis |
pos | draw the tick mark at fraction pos (0<=pos<=1) along the line from (X1,Y1) to (X2,Y2) |
tikl | length of tick mark drawn to the left or bottom of the axis - drawing ticks outside the box may not be supported |
tikr | length of major tick marks drawn to the right or top of the axis - drawing outside the box may not be supported |
disp | displacement of label text from the axis |
orient | orientation of label text, in degrees |
lbl | text of label (may be blank) |
Definition at line 1330 of file pg2plplot.f90.
subroutine pgunsa | ( | ) |
Unsave parameters.
Definition at line 1602 of file pg2plplot.f90.
References pg2plplot::max_level, pgsci(), pgsls(), pgslw(), pg2plplot::save_color, pg2plplot::save_ffamily, pg2plplot::save_fstyle, pg2plplot::save_fweight, pg2plplot::save_level, pg2plplot::save_lstyle, and pg2plplot::save_lwidth.
subroutine pgupdt | ( | ) |
Flush - dummy routine.
Definition at line 1976 of file pg2plplot.f90.
subroutine pgvsiz | ( | real, intent(in) | xleft, |
real, intent(in) | xright, | ||
real, intent(in) | ybot, | ||
real, intent(in) | ytop | ||
) |
Set viewport (inches)
xleft | Horizontal coordinate of left-hand edge of viewport, in inches from left edge of view surface |
xright | Horizontal coordinate of right-hand edge of viewport, in inches from left edge of view surface |
ybot | Vertical coordinate of bottom edge of viewport, in inches from bottom of view surface |
ytop | Vertical coordinate of top edge of viewport, in inches from bottom of view surface |
Definition at line 2138 of file pg2plplot.f90.
Referenced by pgvsize().
subroutine pgvsize | ( | real, intent(in) | xleft, |
real, intent(in) | xright, | ||
real, intent(in) | ybot, | ||
real, intent(in) | ytop | ||
) |
Non-standard alias for PGVSIZ.
xleft | Horizontal coordinate of left-hand edge of viewport, in inches from left edge of view surface |
xright | Horizontal coordinate of right-hand edge of viewport, in inches from left edge of view surface |
ybot | Vertical coordinate of bottom edge of viewport, in inches from bottom of view surface |
ytop | Vertical coordinate of top edge of viewport, in inches from bottom of view surface |
Definition at line 2159 of file pg2plplot.f90.
References pgvsiz().
subroutine pgwindow | ( | real, intent(in) | xmin1, |
real, intent(in) | xmax1, | ||
real, intent(in) | ymin1, | ||
real, intent(in) | ymax1 | ||
) |
alias for pgswin
xmin1 | Left |
xmax1 | Right |
ymin1 | Top |
ymax1 | Bottom |
Definition at line 1189 of file pg2plplot.f90.
real function reldiff | ( | real, intent(in) | x1, |
real, intent(in) | x2 | ||
) |
Return the relative difference between two numbers: dx/<x> - taken from libSUFR, turned into single precision.
x1 | First number |
x2 | Second number |
Definition at line 2243 of file pg2plplot.f90.
subroutine replace_substring | ( | character, dimension(*), intent(inout) | string, |
character, dimension(*), intent(in) | str_in, | ||
character, dimension(*), intent(in) | str_out | ||
) |
Search and replace occurences of a substring in a string, taken from libSUFR.
string | Original string to replace in |
str_in | Search string |
str_out | Replacement string |
Definition at line 1989 of file pg2plplot.f90.
Referenced by pg2pldev(), and pg2pltext().
logical function seq | ( | real, intent(in) | x1, |
real, intent(in) | x2 | ||
) |
Test whether two single-precision variables are equal to better than twice the machine precision, taken from libSUFR.
x1 | First number |
x2 | Second number |
Definition at line 2335 of file pg2plplot.f90.
subroutine warn_dummy_routine | ( | character, dimension(*), intent(in) | routine, |
character, dimension(*), intent(in) | message | ||
) |
Print a warning when no (proper) PLplot equivalent is defined and a dummy routine is used instead.
routine | Name of the undefined routine |
message | Message to be postponed |
Definition at line 2293 of file pg2plplot.f90.
Referenced by pgband(), pgbbuf(), pgconf(), pgebuf(), pgiden(), pgolin(), pgqci(), pgqcir(), pgqcol(), pgsah(), and pgscir().