PG2PLplot
Aid in the conversion from PGPlot to PLplot in Fortran programs
All Namespaces Files Functions Variables Pages
Modules | Functions/Subroutines | Variables
pg2plplot.f90 File Reference

(PG2PLplot version 5.12.0, revision 63, hash e282ffd (2017-12-18))

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
 

Detailed Description

Contains pgplot-to-plplot bindings (i.e., call PLplot from PGplot commands)

Definition in file pg2plplot.f90.

Function/Subroutine Documentation

◆ check_error()

integer function check_error ( character, dimension(*), intent(in)  fname)

Check whether opening a file gives an error.

Parameters
fnameFile name

Definition at line 2270 of file pg2plplot.f90.

Referenced by pgopen().

◆ deq()

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.

Parameters
x1First number
x2Second number

Definition at line 2310 of file pg2plplot.f90.

◆ pg2pldev()

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.

Parameters
pgdevPGplot device ID (includes filename: 'file.name/dev')
Return values
pldevPLplot device ID ('dev')
filenamePLplot file name ('file.name')
Note
Possible values for pldev:
  • xwin:
  • wxwidgets:
  • xcairo:
  • qtwidget:
  • png: no anti-aliasing in lines
  • wxpng: no extended characters
  • pngcairo:
  • pngqt:

Definition at line 1515 of file pg2plplot.f90.

References replace_substring().

Referenced by pgbegin(), and pgopen().

◆ pg2pltext()

subroutine pg2pltext ( character, dimension(*), intent(inout)  string)

Replace the PGPlot escape character '\' with the PLplot escape character '#'.

Parameters
stringText string to convert

Definition at line 1477 of file pg2plplot.f90.

References replace_substring().

Referenced by pgmtext(), pgmtxt(), pgptxt(), and pgtext().

◆ pgadvance()

subroutine pgadvance ( )

Alias for pgpage.

Definition at line 1240 of file pg2plplot.f90.

References pgpage().

◆ pgarro()

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!

Parameters
x1X-value of start point
y1Y-value of start point
x2X-value of end point
y2Y-value of end point

Definition at line 547 of file pg2plplot.f90.

◆ pgask()

subroutine pgask ( logical, intent(in)  prompt)

Control new page prompting - dummy routine.

Parameters
promptSet prompt state to ON for interactive devices

Definition at line 2050 of file pg2plplot.f90.

◆ pgband()

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!

Parameters
modeDisplay mode (0-7)
posnIf POSN=1, PGBAND tries to place the cursor at (X,Y); if POSN=0, it leaves the cursor at its current position
xrefWorld x-coordinate of the anchor point
yrefWorld y-coordinate of the anchor point
xWorld x-coordinate of the cursor
Return values
yWorld y-coordinate of the cursor
chCharacter typed by the user

Definition at line 1751 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgbbuf()

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().

◆ pgbeg()

subroutine pgbeg ( integer, intent(in)  i,
character, dimension(*), intent(in)  pgdev,
integer, intent(in)  nx,
integer, intent(in)  ny 
)

Alias for pgbegin.

Parameters
iDisplay ID
pgdevPGplot device
nxNumber of frames in the x-direction
nyNumber of frames in the y-direction

Definition at line 1073 of file pg2plplot.f90.

References pgbegin().

◆ pgbegin()

subroutine pgbegin ( integer, intent(in)  i,
character, dimension(*), intent(in)  pgdev,
integer, intent(in)  nx,
integer, intent(in)  ny 
)

Begin a new plot.

Parameters
iDisplay ID
pgdevPGplot device
nxNumber of frames in the x-direction
nyNumber 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().

◆ pgbin()

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.

Parameters
nbinNumber of bins
xAbscissae of the bins
dataData values of bins
centerIf .TRUE., the X values denote the center of the bin, else the lower edge

Definition at line 2091 of file pg2plplot.f90.

◆ pgbox()

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.

Parameters
xoptOptions for the x-axis
xtick1Distance between ticks on the x-axis
nxsubNumber of subticks on the x-axis
yoptOptions for the y-axis
ytick1Distance between ticks on the y-axis
nysubNumber of subticks on the y-axis

Definition at line 1294 of file pg2plplot.f90.

◆ pgcirc()

subroutine pgcirc ( real, intent(in)  xc,
real, intent(in)  yc,
real, intent(in)  r 
)

Draw a circle.

Parameters
xcX-value of centre
ycY-value of centre
rRadius

Definition at line 648 of file pg2plplot.f90.

◆ pgclos()

subroutine pgclos ( )

Close stream.

Definition at line 1732 of file pg2plplot.f90.

◆ pgconf()

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!

Parameters
arrData array
nxDimension 1 of data array
nyDimension 2 of data array
ix1Start index range in dimension 1 to use from data array
ix2End index range in dimension 1 to use from data array
iy1Start index range in dimension 2 to use from data array
iy2End index range in dimension 2 to use from data array
c1Lower limit in height/contour to fill
c2Upper limit in height/contour to fill
trAffine transformation elements

Definition at line 719 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgcont()

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.

Parameters
arrData array
nxDimension 1 of data array
nyDimension 2 of data array
ix1Start index range in dimension 1 to use from data array
ix2End index range in dimension 1 to use from data array
iy1Start index range in dimension 2 to use from data array
iy2End index range in dimension 2 to use from data array
cArray with heights to draw contours for
ncDimension of c
trAffine transformation elements

Definition at line 687 of file pg2plplot.f90.

◆ pgdraw()

subroutine pgdraw ( real, intent(in)  x,
real, intent(in)  y 
)

Draw line to location.

Parameters
xHorizontal location
yVertical location

Definition at line 1654 of file pg2plplot.f90.

References pgmove(), pg2plplot::xcur, and pg2plplot::ycur.

◆ pgebuf()

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().

◆ pgend()

subroutine pgend ( )

End a plot.

Definition at line 1086 of file pg2plplot.f90.

◆ pgenv()

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.

Parameters
xminLeft
xmaxRight
yminTop (?)
ymaxBottom (?)
justJUST=1: scales of x and y axes are equal, otherwise independent
axisControls the plotting of axes, tick marks, etc

Definition at line 2069 of file pg2plplot.f90.

◆ pgeras()

subroutine pgeras ( )

Erase screen.

Definition at line 1463 of file pg2plplot.f90.

◆ pgerry()

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.

Parameters
nNumber of error bars to plot
xWorld horizontal coordinates of the data
ymaxWorld vertical coordinates of top end of the error bars
yminWorld vertical coordinates of bottom end of the error bars
tLength of terminals to be drawn at the ends of the error bar

Definition at line 2115 of file pg2plplot.f90.

◆ pgiden()

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().

◆ pglab()

subroutine pglab ( character, dimension(*), intent(in)  xlbl,
character, dimension(*), intent(in)  ylbl,
character, dimension(*), intent(in)  toplbl 
)

Interface for pglab.

Parameters
xlblLabel for the horizontal axis
ylblLabel for the vertical axis
toplblPlot title

Definition at line 940 of file pg2plplot.f90.

References pgbbuf(), pgebuf(), and pgmtxt().

Referenced by pglabel().

◆ pglabel()

subroutine pglabel ( character, dimension(*), intent(in)  xlbl,
character, dimension(*), intent(in)  ylbl,
character, dimension(*), intent(in)  toplbl 
)

Alias for pglab.

Parameters
xlblLabel for the horizontal axis
ylblLabel for the vertical axis
toplblPlot title

Definition at line 958 of file pg2plplot.f90.

References pglab().

◆ pglen()

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.

Parameters
units0: normalized device coordinates, 1: in, 2: mm, 3: absolute device coordinates (dots), 4: world coordinates, 5: fraction of the current viewport size
stringString of interest
xlLength of string in horizontal direction
ylLength of string in vertical direction

Definition at line 2175 of file pg2plplot.f90.

◆ pgline()

subroutine pgline ( integer, intent(in)  n,
real, dimension(n), intent(in)  x1,
real, dimension(n), intent(in)  y1 
)

Draw a line.

Parameters
nNumber of points
x1X-values of points
y1Y-values of points

Definition at line 520 of file pg2plplot.f90.

◆ pgmove()

subroutine pgmove ( real, intent(in)  x,
real, intent(in)  y 
)

Move pen to location - for use with pgdraw() only!

Parameters
xHorizontal location
yVertical location

Definition at line 1636 of file pg2plplot.f90.

References pg2plplot::xcur, and pg2plplot::ycur.

Referenced by pgdraw().

◆ pgmtext()

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()

Parameters
sideSide to print text on ('L','R','T','B')
disp
posPosition
justJustification
textText to print

Definition at line 918 of file pg2plplot.f90.

References pg2pltext(), and pgmtxt().

◆ 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.

Parameters
sideSide to print text on ('L','R','T','B')
disp1Distance from axis
pos1Position along axis
just1Justification
textText to print

Definition at line 886 of file pg2plplot.f90.

References pg2pltext().

Referenced by pglab(), and pgmtext().

◆ pgolin()

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!

Parameters
maxptMaximum number of points that may be accepted
nptNumber of points entered (zero on first call)
xArray of x-coordinates
yArray of y-coordinates
symbolCode number of symbol to use for markingentered points
Todo:
No plplot routine found yet - using dummy

Definition at line 1434 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgopen()

integer function pgopen ( character, dimension(*), intent(in)  pgdev)

Start a new plot.

Parameters
pgdevPGplot 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().

◆ pgpage()

subroutine pgpage ( )

Advance to the next (sub-)page.

Definition at line 1227 of file pg2plplot.f90.

References pg2plplot::do_init().

Referenced by pgadvance().

◆ pgpap()

subroutine pgpap ( real, intent(in)  width,
real, intent(in)  ratio 
)

Set paper size.

Parameters
widthPaper width
ratioPaper aspect ratio

Definition at line 1102 of file pg2plplot.f90.

References pg2plplot::do_init(), pg2plplot::paper_ratio, and pg2plplot::paper_width.

◆ pgpoint()

subroutine pgpoint ( integer, intent(in)  n,
real, dimension(n), intent(in)  x1,
real, dimension(n), intent(in)  y1,
integer, intent(in)  s 
)

Draw points.

Parameters
nNumber of points
x1X-values of points
y1Y-values of points
sPlot symbol to use

Definition at line 575 of file pg2plplot.f90.

◆ pgpoly()

subroutine pgpoly ( integer, intent(in)  n,
real, dimension(n), intent(in)  x1,
real, dimension(n), intent(in)  y1 
)

Draw a polygone.

Parameters
nNumber of points
x1X-values of points
y1Y-values of points

Definition at line 599 of file pg2plplot.f90.

◆ pgpt()

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.

Parameters
nNumber of data points to draw
xHorizontal locations
yVertical locations
ncodePlot symbol

Definition at line 1679 of file pg2plplot.f90.

Referenced by pgpt1().

◆ pgpt1()

subroutine pgpt1 ( real(plflt), intent(in)  x,
real(plflt), intent(in)  y,
integer, intent(in)  ncode 
)

Draw a single point.

Parameters
xHorizontal location
yVertical location
ncodePlot symbol

Definition at line 1712 of file pg2plplot.f90.

References pgpt().

◆ pgptext()

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()

Parameters
xX-coordinate of text
yY-coordinate of text
angAngle
justJustification
textText to print
Note
Angle only right for 0,90,180,270deg or square viewport

Definition at line 834 of file pg2plplot.f90.

References pgptxt().

◆ 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.

Parameters
x1X-coordinate of text
y1Y-coordinate of text
angAngle
just1Justification
textText to print
Note
Angle only correct for 0,90,180,270deg or square viewport

Definition at line 777 of file pg2plplot.f90.

References pg2pltext().

Referenced by pgptext().

◆ pgqcf()

subroutine pgqcf ( integer, intent(out)  cf)

Query character font.

Return values
cfCharacter font

Definition at line 176 of file pg2plplot.f90.

◆ pgqch()

subroutine pgqch ( real, intent(out)  ch)

Query character height.

Parameters
chCharacter height

Definition at line 468 of file pg2plplot.f90.

References pg2plplot::ch_fac.

◆ pgqci()

subroutine pgqci ( integer, intent(out)  ci)

Get current colour index - dummy routine!

Return values
ciColour index

Definition at line 1816 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgqcir()

subroutine pgqcir ( integer, intent(out)  ci1,
integer, intent(out)  ci2 
)

Query colour-index range for pggray and pgimag - dummy routine!

Parameters
ci1Lower colour index
ci2Upper colour index

Definition at line 331 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgqcol()

subroutine pgqcol ( integer, intent(out)  c1,
integer, intent(out)  c2 
)

Get colour range - dummy routine!

Parameters
c1Lower colour index
c2Upper colour index

Definition at line 1791 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgqcr()

subroutine pgqcr ( integer, intent(in)  ci1,
real, intent(out)  r,
real, intent(out)  g,
real, intent(out)  b 
)

Query colour representation.

Parameters
ci1Colour index
Return values
rRed colour (0-1)
gGreen colour (0-1)
bBlue colour (0-1)

Definition at line 278 of file pg2plplot.f90.

◆ pgqcs()

subroutine pgqcs ( integer, intent(in)  unit,
real, intent(out)  xch,
real, intent(out)  ych 
)

Inquire character height in a variety of units.

Parameters
unit0: normalized device coordinates, 1: in, 2: mm, 3: pixels, 4: world coordinates
Return values
xchThe character height for text written with a vertical baseline
ychThe 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.

◆ pgqfs()

subroutine pgqfs ( integer, intent(out)  fs)

Inquire fill-area style - dummy routine.

Return values
fsThe current fill-area style

Definition at line 2011 of file pg2plplot.f90.

◆ pgqid()

subroutine pgqid ( integer, intent(out)  id)

Inquire current device identifier.

Return values
Deviceidentifier

Definition at line 1014 of file pg2plplot.f90.

References pg2plplot::devid.

◆ pgqinf()

subroutine pgqinf ( character, dimension(*), intent(in)  item,
character, dimension(*), intent(out)  value,
integer, intent(out)  length 
)

Inquire PGPLOT general information - dummy routine.

Parameters
item
Return values
value
length

Definition at line 204 of file pg2plplot.f90.

◆ pgqls()

subroutine pgqls ( integer, intent(out)  ls)

Query line style.

Parameters
lsLine style

Definition at line 109 of file pg2plplot.f90.

References pg2plplot::cur_lstyle.

◆ pgqlw()

subroutine pgqlw ( integer, intent(out)  lw)

Query line width.

Parameters
lwLine width

Definition at line 146 of file pg2plplot.f90.

References pg2plplot::cur_lwidth.

◆ pgqtbg()

subroutine pgqtbg ( integer, intent(out)  b)

Query text background color index - dummy routine.

Parameters
bBackground color index

Definition at line 2037 of file pg2plplot.f90.

◆ pgqtxt()

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.

Parameters
xWorld x-coordinate
yWorld y-coordinate
angleAngle between baseline and horizontal (degrees)
fjustHorizontal justification
textText string that would be written
Return values
xboxHorizontal limits of the bounding box
yboxVertical limits of the bounding box

Definition at line 2204 of file pg2plplot.f90.

◆ pgqvp()

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.

Parameters
unitsspecify the units of the output parameters:
  • 0 : normalized device coordinates
  • 1 : inches
  • 2 : millimeters
  • 3 : pixels
Return values
x1Left
x2Right
y1Bottom
y2Top

Definition at line 1847 of file pg2plplot.f90.

References pg2plplot::mm_per_inch.

◆ pgqvsz()

subroutine pgqvsz ( integer, intent(in)  units,
real, intent(out)  x1,
real, intent(out)  x2,
real, intent(out)  y1,
real, intent(out)  y2 
)

get view surface

Definition at line 1892 of file pg2plplot.f90.

References pg2plplot::mm_per_inch.

◆ pgqwin()

subroutine pgqwin ( real, intent(out)  x1,
real, intent(out)  x2,
real, intent(out)  y1,
real, intent(out)  y2 
)

get window size

Return values
x1Left
x2Right
y1Bottom
y2Top

Definition at line 1956 of file pg2plplot.f90.

◆ pgrect()

subroutine pgrect ( real, intent(in)  x1,
real, intent(in)  x2,
real, intent(in)  y1,
real, intent(in)  y2 
)

Draw a rectangle.

Parameters
x1Lower x value
x2Upper x value
y1Lower y value
y2Upper y value

Definition at line 625 of file pg2plplot.f90.

◆ pgsah()

subroutine pgsah ( integer, intent(in)  fs,
real, intent(in)  angle,
real, intent(in)  barb 
)

Set arrow head - dummy routine!

Parameters
fsFill style
angleArrow-point angle
barbArrow back cut

Definition at line 492 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgsave()

subroutine pgsave ( )

◆ pgscf()

subroutine pgscf ( integer, intent(in)  cf)

Set character font.

Parameters
cfCharacter font

Definition at line 161 of file pg2plplot.f90.

◆ pgsch()

subroutine pgsch ( real, intent(in)  ch)

Set character height.

Parameters
chCharacter height

Definition at line 407 of file pg2plplot.f90.

References pg2plplot::ch_fac.

◆ pgsci()

subroutine pgsci ( integer, intent(in)  ci1)

Set colour index.

Parameters
ci1Colour index

Definition at line 220 of file pg2plplot.f90.

References pg2plplot::cur_color.

Referenced by pgunsa().

◆ pgscir()

subroutine pgscir ( integer, intent(in)  ci1,
integer, intent(in)  ci2 
)

Set colour-index range for pggray and pgimag - dummy routine!

Parameters
ci1Lower colour index
ci2Upper colour index

Definition at line 306 of file pg2plplot.f90.

References pg2plplot::compatibility_warnings, and warn_dummy_routine().

◆ pgscr()

subroutine pgscr ( integer, intent(in)  ci1,
real, intent(in)  r,
real, intent(in)  g,
real, intent(in)  b 
)

Set colour representation.

Parameters
ci1Colour index
rRed colour (0-1)
gGreen colour (0-1)
bBlue colour (0-1)

Definition at line 247 of file pg2plplot.f90.

◆ pgsfs()

subroutine pgsfs ( integer, intent(in)  fs)

Set fill style.

Parameters
fsFill style (1-4, no match for 2: outline)

Definition at line 354 of file pg2plplot.f90.

◆ pgshs()

subroutine pgshs ( real, intent(in)  ang,
real, intent(in)  sep,
real, intent(in)  ph 
)

Set hash style.

Parameters
angAngle of the lines (deg)
sepSpacing (in % of view-surface size): >0!
phPhase 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.

◆ pgslct()

subroutine pgslct ( integer, intent(in)  pgdev)

Select output stream.

Parameters
pgdevstream number

Definition at line 1555 of file pg2plplot.f90.

References pg2plplot::do_init().

◆ pgsls()

subroutine pgsls ( integer, intent(in)  ls)

Set line style.

Parameters
lsLine style

Definition at line 80 of file pg2plplot.f90.

References pg2plplot::cur_lstyle.

Referenced by pgunsa().

◆ pgslw()

subroutine pgslw ( integer, intent(in)  lw)

Set line width.

Parameters
lwLine width

Definition at line 122 of file pg2plplot.f90.

References pg2plplot::cur_lwidth.

Referenced by pgunsa().

◆ pgstbg()

subroutine pgstbg ( integer, intent(in)  b)

Set text background color index - dummy routine.

Parameters
bBackground color index

Definition at line 2023 of file pg2plplot.f90.

◆ pgsubp()

subroutine pgsubp ( integer, intent(in)  nxsub,
integer, intent(in)  nysub 
)

Subdivide view surface into panels.

Parameters
nxsubNumber of subticks on the x-axis
nysubNumber of subticks on the y-axis

Definition at line 1212 of file pg2plplot.f90.

◆ pgsvp()

subroutine pgsvp ( real, intent(in)  xl1,
real, intent(in)  xr1,
real, intent(in)  yb1,
real, intent(in)  yt1 
)

Set view port.

Parameters
xl1Left side of the x-axis
xr1Right side of the x-axis
yb1Bottom side of the y-axis
yt1Top side of the y-axis

Definition at line 1136 of file pg2plplot.f90.

◆ pgswin()

subroutine pgswin ( real, intent(in)  xmin1,
real, intent(in)  xmax1,
real, intent(in)  ymin1,
real, intent(in)  ymax1 
)

Set window.

Parameters
xmin1Left
xmax1Right
ymin1Top
ymax1Bottom

Definition at line 1163 of file pg2plplot.f90.

◆ pgtext()

subroutine pgtext ( real, intent(in)  x1,
real, intent(in)  y1,
character, dimension(*), intent(in)  text 
)

Print text with default angle and justification.

Parameters
x1X-coordinate of text
y1Y-coordinate of text
textText to print

Definition at line 852 of file pg2plplot.f90.

References pg2pltext().

◆ pgtick()

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.

Parameters
x1world coordinates of one endpoint of the axis
y1world coordinates of one endpoint of the axis
x2world coordinates of the other endpoint of the axis
y2world coordinates of the other endpoint of the axis
posdraw the tick mark at fraction pos (0<=pos<=1) along the line from (X1,Y1) to (X2,Y2)
tikllength of tick mark drawn to the left or bottom of the axis - drawing ticks outside the box may not be supported
tikrlength of major tick marks drawn to the right or top of the axis - drawing outside the box may not be supported
dispdisplacement of label text from the axis
orientorientation of label text, in degrees
lbltext of label (may be blank)

Definition at line 1330 of file pg2plplot.f90.

◆ pgunsa()

subroutine pgunsa ( )

◆ pgupdt()

subroutine pgupdt ( )

Flush - dummy routine.

Definition at line 1976 of file pg2plplot.f90.

◆ pgvsiz()

subroutine pgvsiz ( real, intent(in)  xleft,
real, intent(in)  xright,
real, intent(in)  ybot,
real, intent(in)  ytop 
)

Set viewport (inches)

Parameters
xleftHorizontal coordinate of left-hand edge of viewport, in inches from left edge of view surface
xrightHorizontal coordinate of right-hand edge of viewport, in inches from left edge of view surface
ybotVertical coordinate of bottom edge of viewport, in inches from bottom of view surface
ytopVertical coordinate of top edge of viewport, in inches from bottom of view surface

Definition at line 2138 of file pg2plplot.f90.

Referenced by pgvsize().

◆ pgvsize()

subroutine pgvsize ( real, intent(in)  xleft,
real, intent(in)  xright,
real, intent(in)  ybot,
real, intent(in)  ytop 
)

Non-standard alias for PGVSIZ.

Parameters
xleftHorizontal coordinate of left-hand edge of viewport, in inches from left edge of view surface
xrightHorizontal coordinate of right-hand edge of viewport, in inches from left edge of view surface
ybotVertical coordinate of bottom edge of viewport, in inches from bottom of view surface
ytopVertical coordinate of top edge of viewport, in inches from bottom of view surface

Definition at line 2159 of file pg2plplot.f90.

References pgvsiz().

◆ pgwindow()

subroutine pgwindow ( real, intent(in)  xmin1,
real, intent(in)  xmax1,
real, intent(in)  ymin1,
real, intent(in)  ymax1 
)

alias for pgswin

Parameters
xmin1Left
xmax1Right
ymin1Top
ymax1Bottom

Definition at line 1189 of file pg2plplot.f90.

◆ reldiff()

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.

Parameters
x1First number
x2Second number

Definition at line 2243 of file pg2plplot.f90.

◆ replace_substring()

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.

Parameters
stringOriginal string to replace in
str_inSearch string
str_outReplacement string

Definition at line 1989 of file pg2plplot.f90.

Referenced by pg2pldev(), and pg2pltext().

◆ seq()

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.

Parameters
x1First number
x2Second number

Definition at line 2335 of file pg2plplot.f90.

◆ warn_dummy_routine()

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.

Parameters
routineName of the undefined routine
messageMessage 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().