src/PG2PLplot.f90 File Reference

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	pgsls (ls)
	Set line style.
subroutine	pgslw (lw)
	Set line width.
subroutine	pgqlw (lw)
	Query line width - dymmy routine.
subroutine	pgscf (cf)
	Set character font.
subroutine	pgsci (ci1)
	Set colour index.
subroutine	pgscr (ci1, r, g, b)
	Set colour representation.
subroutine	pgqcr (ci1, r, g, b)
	Query colour representation.
subroutine	pgscir (ci1, ci2)
	Set colour-index range for pggray and pgimag - dummy routine!
subroutine	pgqcir (ci1, ci2)
	Query colour-index range for pggray and pgimag - dummy routine!
subroutine	pgsfs (fs)
	Set fill style.
subroutine	pgshs (ang, sep, ph)
	Set hash style.
subroutine	pgsch (ch)
	Set character height.
subroutine	pgqch (ch)
	Query character height.
subroutine	pgsah (fs, angle, barb)
	Set arrow head - dummy routine.
subroutine	pgline (n, x1, y1)
	Draw a line.
subroutine	pgarro (x1, y1, x2, y2)
	Draw an arrow - only a line is drawn, arrows not supported in PLplot!
subroutine	pgpoint (n, x1, y1, s)
	Draw points.
subroutine	pgpoly (n, x1, y1)
	Draw a polygone.
subroutine	pgrect (x1, x2, y1, y2)
	Draw a rectangle.
subroutine	pgcirc (xc, yc, r)
	Draw a circle.
subroutine	pgcont (arr, nx, ny, ix1, ix2, iy1, iy2, c, nc, tr)
	Make a contour plot.
subroutine	pgconf (arr, nx, ny, ix1, ix2, iy1, iy2, c1, c2, tr)
	Shade a region (between contours/heights)
subroutine	pgptxt (x1, y1, ang, just1, text)
	Print text with arbitrary angle and justification.
subroutine	pgptext (x, y, ang, just, text)
	Non-standard alias for pgptxt()
subroutine	pgtext (x1, y1, text)
	Print text with default angle and justification.
subroutine	pgmtxt (side, disp1, pos1, just1, text)
	Print text in the margin.
subroutine	pgmtext (side, disp, pos, just, text)
	Alias for pgmtxt()
integer	pgopen (pgdev)
	Start a new plot.
subroutine	pgbegin (i, pgdev, nx, ny)
	Begin a new plot.
subroutine	pgend ()
	End a plot.
subroutine	pgpap (width, ratio)
	Set paper size.
subroutine	pgsvp (xl1, xr1, yb1, yt1)
	Set view port.
subroutine	pgswin (xmin1, xmax1, ymin1, ymax1)
	Set window.
subroutine	pgsubp (nxsub, nysub)
	Subdivide view surface into panels.
subroutine	pgpage ()
	Advance to the next (sub-)page.
subroutine	pgbbuf ()
	Start buffering output - dummy routine.
subroutine	pgebuf ()
	End buffering output - dummy routine.
subroutine	pgbox (xopt, xtick1, nxsub, yopt, ytick1, nysub)
	Draw a box (+axes) around a plot.
subroutine	pgtick (x1, y1, x2, y2, v, tikl, tikr, disp, orient, str)
	Draw a single tick mark - no PLplot routine found.
subroutine	pgolin (maxpt, npt, x, y, symbol)
	Read data from screen - no PLplot equivalent (yet)!
subroutine	pg2pltext (string)
	Replace the PGPlot escape character '\' with the PLplot escape character '#'.
subroutine	pg2pldev (pgdev, pldev, filename)
	Converts PGplot device ID to PLplot device ID + file name.
subroutine	replace_substring (string, str_in, str_out)
	Search and replace occurences of a substring in a string, taken from libSUFR.
Variables
real(plflt), parameter	PG2PLplot::ch_fac = 0.35_plflt
	Conversion factor for the character height.

---

Detailed Description

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

Definition in file PG2PLplot.f90.

---

Function Documentation

subroutine pgsls

(

integer,intent(in)

ls

)

Set line style.

Parameters:

ls	Line style

Definition at line 24 of file PG2PLplot.f90.

subroutine pgslw

(

integer,intent(in)

lw

)

Set line width.

Parameters:

lw	Line width

Definition at line 50 of file PG2PLplot.f90.

subroutine pgqlw

(

integer,intent(out)

lw

)

Query line width - dymmy routine.

Parameters:

lw	Line width

Definition at line 70 of file PG2PLplot.f90.

subroutine pgscf

(

integer,intent(in)

cf

)

Set character font.

Parameters:

cf	Character font

Definition at line 88 of file PG2PLplot.f90.

subroutine pgsci

(

integer,intent(in)

ci1

)

Set colour index.

Parameters:

ci1	Colour index

Definition at line 102 of file PG2PLplot.f90.

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

Set colour representation.

Parameters:

ci1	Colour index
r	Red colour (0-1)
g	Green colour (0-1)
b	Blue colour (0-1)

Definition at line 127 of file PG2PLplot.f90.

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

Query colour representation.

Parameters:

ci1	Colour index

Return values:

r	Red colour (0-1)
g	Green colour (0-1)
b	Blue colour (0-1)

Definition at line 157 of file PG2PLplot.f90.

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

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

Parameters:

ci1	Lower colour index
ci2	Upper colour index

Definition at line 184 of file PG2PLplot.f90.

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

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

Parameters:

ci1	Lower colour index
ci2	Upper colour index

Definition at line 207 of file PG2PLplot.f90.

subroutine pgsfs

(

integer,intent(in)

fs

)

Set fill style.

Parameters:

fs	Fill style (1-4, no match for 2: outline)

Definition at line 228 of file PG2PLplot.f90.

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

Set hash style.

Parameters:

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 258 of file PG2PLplot.f90.

subroutine pgsch

(

real,intent(in)

ch

)

Set character height.

Parameters:

ch	Character height

Definition at line 279 of file PG2PLplot.f90.

References PG2PLplot::ch_fac.

subroutine pgqch

(

real,intent(out)

ch

)

Query character height.

Parameters:

ch	Character height

Definition at line 306 of file PG2PLplot.f90.

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

Set arrow head - dummy routine.

Definition at line 326 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.

Parameters:

n	Number of points
x1	X-values of points
y1	Y-values of points

Definition at line 357 of file PG2PLplot.f90.

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:

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 384 of file PG2PLplot.f90.

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:

n	Number of points
x1	X-values of points
y1	Y-values of points
s	Plot symbol to use

Definition at line 412 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.

Parameters:

n	Number of points
x1	X-values of points
y1	Y-values of points

Definition at line 436 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.

Parameters:

x1	Lower x value
x2	Upper x value
y1	Lower y value
y2	Upper y value

Definition at line 462 of file PG2PLplot.f90.

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

Draw a circle.

Parameters:

xc	X-value of centre
yc	Y-value of centre
r	Radius

Definition at line 485 of file PG2PLplot.f90.

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:

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

Parameters:

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 556 of file PG2PLplot.f90.

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:

x1	X-coordinate of text
y1	Y-coordinate of text
ang	Angle
just1	Justification
text	Text to print

Note:

Angle only correct for 0,90,180,270deg or square viewport

Definition at line 614 of file PG2PLplot.f90.

References pg2pltext().

Referenced by pgptext().

Here is the call graph for this function:

Here is the caller graph for this function:

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:

x	X-coordinate of text
y	Y-coordinate of text
ang	Angle
just	Justification
text	Text to print

Note:

Angle only right for 0,90,180,270deg or square viewport

Definition at line 674 of file PG2PLplot.f90.

References pgptxt().

Here is the call graph for this function:

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

Print text with default angle and justification.

Parameters:

x1	X-coordinate of text
y1	Y-coordinate of text
text	Text to print

Definition at line 692 of file PG2PLplot.f90.

References pg2pltext().

Here is the call graph for this function:

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:

side	Side to print text on ('L','R','T','B')
disp1
pos1	Position
just1	Justification
text	Text to print

Definition at line 726 of file PG2PLplot.f90.

References pg2pltext().

Referenced by pgmtext().

Here is the call graph for this function:

Here is the caller graph for this function:

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:

side	Side to print text on ('L','R','T','B')
disp
pos	Position
just	Justification
text	Text to print

Definition at line 758 of file PG2PLplot.f90.

References pg2pltext(), and pgmtxt().

Here is the call graph for this function:

integer pgopen

(

character,dimension(*),intent(in)

pgdev

)

Start a new plot.

Parameters:

pgdev

PGplot device

Todo:

Need to convert pgdev -> pldev + filename as in pgbegin()

Definition at line 783 of file PG2PLplot.f90.

References pg2pldev().

Here is the call graph for this function:

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

Begin a new plot.

Parameters:

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 836 of file PG2PLplot.f90.

References pg2pldev().

Here is the call graph for this function:

subroutine pgend

(

)

End a plot.

Definition at line 886 of file PG2PLplot.f90.

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

Set paper size.

Parameters:

width	Paper width
ratio	Paper aspect ratio

Definition at line 901 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.

Parameters:

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 931 of file PG2PLplot.f90.

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

Set window.

Parameters:

xmin1	Left
xmax1	Right
ymin1	Top
ymax1	Bottom

Definition at line 958 of file PG2PLplot.f90.

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

Subdivide view surface into panels.

Parameters:

nxsub	Number of subticks on the x-axis
nysub	Number of subticks on the y-axis

Definition at line 983 of file PG2PLplot.f90.

subroutine pgpage

(

)

Advance to the next (sub-)page.

Definition at line 996 of file PG2PLplot.f90.

subroutine pgbbuf

(

)

Start buffering output - dummy routine.

Definition at line 1007 of file PG2PLplot.f90.

subroutine pgebuf

(

)

End buffering output - dummy routine.

Definition at line 1016 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.

Parameters:

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 1035 of file PG2PLplot.f90.

subroutine pgtick	(	real,intent(in)	x1,
		real,intent(in)	y1,
		real,intent(in)	x2,
		real,intent(in)	y2,
		real,intent(in)	v,
		real,intent(in)	tikl,
		real,intent(in)	tikr,
		real,intent(in)	disp,
		real,intent(in)	orient,
		character,dimension(*),intent(in)	str
	)

Draw a single tick mark - no PLplot routine found.

Parameters:

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
v	draw the tick mark at fraction V (0<=V<=1) along the line from (X1,Y1) to (X2,Y2)
tikl	length of tick mark drawn to left of axis
tikr	length of major tick marks drawn to right of axis
disp	displacement of label text to right of axis
orient	orientation of label text, in degrees
str	text of label (may be blank)

Definition at line 1069 of file PG2PLplot.f90.

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

Todo:

No plplot routine found yet - using dummy

Definition at line 1106 of file PG2PLplot.f90.

subroutine pg2pltext

(

character,dimension(*),intent(inout)

string

)

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

Parameters:

string

Text string to convert

Definition at line 1135 of file PG2PLplot.f90.

References replace_substring().

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

Here is the call graph for this function:

Here is the caller graph for this function:

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:

pgdev

PGplot device ID (includes filename: 'file.name/dev')

Return values:

pldev	PLplot device ID ('dev')
filename	PLplot file name ('file.name')

Definition at line 1161 of file PG2PLplot.f90.

References replace_substring().

Referenced by pgbegin(), and pgopen().

Here is the call graph for this function:

Here is the caller graph for this function:

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:

string	Original string to replace in
str_in	Search string
str_out	Replacement string

Definition at line 1195 of file PG2PLplot.f90.

Referenced by pg2pldev(), and pg2pltext().

Here is the caller graph for this function: