65 parameter(maxlen = 320)
66 parameter(maxleni = 80)
67 character (len = maxlen) :: string1, string2, string3
68 character (len = maxlen) :: string4, string5, string6
69 character (len = maxlen) :: string7, string8, string9
70 integer,
dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
72 character(len=1),
parameter :: PL_END_OF_STRING = achar(0)
132 include
'sfstubs.f90'
143 character(len=16) string
145 real(kind=plflt) dX, dY
146 real(kind=plflt) wX, wY
160 include
'plplot_parameters.h'
172 module procedure plbin
183 real(kind=plflt) :: rx, ry, wx, wy
202 real(kind=plflt) ::
col
226 subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
228 real(kind=plflt) :: xmin, xmax, ymin, ymax
229 integer :: just, axis
279 real(kind=plflt) :: chrdef, chrht
286 real(kind=plflt) :: min_color, max_color
292 integer :: icol, r, g, b
299 integer :: icol, r, g, b
300 real(kind=plflt) :: a
314 real(kind=plflt) :: a
320 integer :: compression
327 real(kind=plflt) :: mar, aspect, jx, jy
334 real(kind=plflt) :: rot
341 real(kind=plflt) :: xmin, xmax, ymin, ymax
355 integer :: fam, num, bmax
362 integer(kind=plunicode) :: fci
368 integer :: family, style, weight
379 subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
381 real(kind=plflt) :: xpmm, ypmm
382 integer :: xwid, ywid, xoff, yoff
400 subroutine plgspa( xmin, xmax, ymin, ymax )
402 real(kind=plflt) :: xmin, xmax, ymin, ymax
413 subroutine plgvpd( xmin, xmax, ymin, ymax )
415 real(kind=plflt) :: xmin, xmax, ymin, ymax
420 subroutine plgvpw( xmin, xmax, ymin, ymax )
422 real(kind=plflt) :: xmin, xmax, ymin, ymax
428 integer :: digmax, digits
434 integer :: digmax, digits
440 integer :: digmax, digits
451 real(kind=plflt) :: h, l, s
458 real(kind=plflt) :: h, l, s, r, g, b
470 real(kind=plflt) :: x1, y1, x2, y2
477 real(kind=plflt) ::
x,
y, z
524 integer :: nlin, inc, del
532 real(kind=plflt) :: x1, y1, x2, y2
558 integer :: setp,
prec
579 real(kind=plflt) :: r, g, b
592 real(kind=plflt) :: r, g, b, h, l, s
599 real(kind=plflt) :: chrdef, chrht
644 real(kind=plflt) :: min_color, max_color
650 integer :: icol, r, g, b
657 integer :: icol, r, g, b
658 real(kind=plflt) :: a
672 real(kind=plflt) :: a
684 integer :: compression
691 real(kind=plflt) :: mar, aspect, jx, jy
696 subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
698 real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
705 real(kind=plflt) :: rot
712 real(kind=plflt) :: xmin, xmax, ymin, ymax
719 real(kind=plflt) :: xmin, xmax, ymin, ymax
746 real(kind=plflt),
dimension(*) ::
x,
y
754 integer :: fam, num, bmax
761 integer(kind=plunicode) :: fci
767 integer :: family, style, weight
774 subroutine labelfunc(axis, value, label, length)
777 integer :: axis, length
778 real(kind=plflt) ::
value
779 character*(length) label
780 end subroutine labelfunc
797 real(kind=plflt) :: def, scale
807 real(kind=plflt) :: def, scale
818 subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
820 real(kind=plflt) :: xpmm, ypmm
821 integer :: xwid, ywid, xoff, yoff
844 real(kind=plflt) :: def, scale
857 subroutine transformfunc(x, y, xt, yt)
860 real(kind=plflt) ::
x,
y, xt, yt
861 end subroutine transformfunc
879 real(kind=plflt) ::
x,
y
891 integer :: n, mark, space
912 subroutine plsvpa( xmin, xmax, ymin, ymax )
914 real(kind=plflt) :: xmin, xmax, ymin, ymax
920 integer :: digmax, digits
926 integer :: digmax, digits
931 module procedure plsym
936 integer :: digmax, digits
948 real(kind=plflt) :: aspect
953 subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
955 real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
960 subroutine plvpor( xmin, xmax, ymin, ymax )
962 real(kind=plflt) :: xmin, xmax, ymin, ymax
972 subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
974 real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
981 real(kind=plflt) ::
width
986 subroutine plwind( xmin, xmax, ymin, ymax )
988 real(kind=plflt) :: xmin, xmax, ymin, ymax
1005 if ( logvalue )
then
1018 real(kind=plflt),
dimension(:) ::
x,
y
1021 call plbinf95(
size(
x),
x,
y, center )
1022 end subroutine plbin
1038 real (kind=plflt),
dimension(:) ::
ticks
1039 real (kind=plflt),
dimension(:,:) :: values
1040 character(len=*),
dimension(:) :: labels,
axis_opts
1047 call pllegend07_cnv_text( 3,
n_labels, labels )
1048 call pllegend07_cnv_text( 4, n_axes,
axis_opts )
1072 real (kind=plflt),
dimension(:) ::
ticks
1073 real (kind=plflt),
dimension(:,:) :: values
1074 character(len=*),
dimension(:) :: labels,
axis_opts
1085 call pllegend07_cnv_text( 3,
n_labels, labels )
1086 call pllegend07_cnv_text( 4, n_axes,
axis_opts )
1105 call plcpstrmf95( iplsr, iflags )
1109 real(kind=plflt),
dimension(:) :: xmin, xmax,
y
1111 call plerrxf95(
size(xmin), xmin, xmax,
y )
1115 real(kind=plflt),
dimension(:) ::
x, ymin, ymax
1117 call plerryf95(
size(
x),
x, ymin, ymax )
1121 real(kind=plflt),
dimension(:) ::
x,
y
1123 call plfillf95(
size(
x),
x,
y )
1127 real(kind=plflt),
dimension(:) ::
x,
y, z
1129 call plfill3f95(
size(
x),
x,
y, z )
1133 real(kind=plflt),
dimension(:) ::
x,
y
1134 real(kind=plflt) :: angle
1136 call plgradientf95(
size(
x),
x,
y, angle )
1140 real(kind=plflt),
dimension(:) ::
x,
y, z,
xg,
yg
1141 real(kind=plflt),
dimension(:,:) :: zg
1142 real(kind=plflt) :: data
1145 call plgriddataf95(
x,
y, z,
size(
x),
xg,
size(
xg),
yg,
size(
yg), zg, &
1151 subroutine plhist( data, datmin, datmax, nbin, oldwin )
1152 real(kind=plflt),
dimension(:) :: data
1153 real(kind=plflt) :: datmin, datmax
1154 integer :: nbin, oldwin
1156 call plhistf95(
size(data),
data, datmin, datmax, nbin, oldwin )
1174 subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1175 dxmin, dxmax, dymin, dymax )
1176 real(kind=plflt),
dimension(:,:) :: idata
1177 real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1178 real(kind=plflt) :: dxmin, dxmax, dymin, dymax
1184 call plimagef95( idata,
nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1185 dxmin, dxmax, dymin, dymax )
1191 nrow, ncolumn, nlegend, opt_array, &
1192 text_offset, text_scale, text_spacing, &
1193 text_justification, text_colors,
text, &
1194 box_colors, box_patterns, box_scales, &
1196 line_colors, line_styles, line_widths, &
1197 symbol_colors, symbol_scales, &
1198 symbol_numbers, symbols )
1200 real(kind=plflt) :: legend_width, legend_height, plot_width,
x,
y
1201 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1203 integer :: nrow, ncolumn, nlegend
1205 character(len=*),
dimension(:) ::
text, symbols
1207 integer,
dimension(:) :: opt_array, text_colors, box_colors
1208 integer,
dimension(:) :: box_patterns
1209 real(kind=plflt),
dimension(:) :: box_line_widths
1210 integer,
dimension(:) :: line_colors, line_styles
1211 real(kind=plflt),
dimension(:) :: line_widths
1212 integer,
dimension(:) :: symbol_colors, symbol_numbers
1213 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1220 call pllegend07_cnv_text( 1, nlegend,
text )
1221 call pllegend07_cnv_text( 2, nlegend, symbols )
1223 call pllegend07( legend_width, legend_height,
opt,
position,
x,
y, &
1225 nrow, ncolumn, nlegend, opt_array, &
1226 text_offset, text_scale, text_spacing, &
1227 text_justification, text_colors, &
1228 box_colors, box_patterns, box_scales, &
1230 line_colors, line_styles, line_widths, &
1231 symbol_colors, symbol_scales, &
1239 nrow, ncolumn, opt_array, &
1240 text_offset, text_scale, text_spacing, &
1241 text_justification, text_colors,
text, &
1242 box_colors, box_patterns, box_scales, &
1244 line_colors, line_styles, line_widths, &
1245 symbol_colors, symbol_scales, &
1246 symbol_numbers, symbols )
1248 real(kind=plflt) :: legend_width, legend_height, plot_width,
x,
y
1249 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1251 integer :: nrow, ncolumn
1253 character(len=*),
dimension(:) ::
text, symbols
1255 integer,
dimension(:) :: opt_array, text_colors, box_colors
1256 integer,
dimension(:) :: box_patterns
1257 real(kind=plflt),
dimension(:) :: box_line_widths
1258 integer,
dimension(:) :: line_colors, line_styles
1259 real(kind=plflt),
dimension(:) :: line_widths
1260 integer,
dimension(:) :: symbol_colors, symbol_numbers
1261 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1268 nlegend =
min(
size(opt_array),
size(
text) )
1270 call
pllegend_1( legend_width, legend_height, &
1273 nrow, ncolumn, nlegend, opt_array, &
1274 text_offset, text_scale, text_spacing, &
1275 text_justification, text_colors,
text, &
1276 box_colors, box_patterns, box_scales, &
1278 line_colors, line_styles, line_widths, &
1279 symbol_colors, symbol_scales, &
1280 symbol_numbers, symbols )
1285 real(kind=plflt),
dimension(:) ::
x,
y
1287 call pllinef95(
size(
x),
x,
y )
1291 real(kind=plflt),
dimension(:) ::
x,
y, z
1293 call plline3f95(
size(
x),
x,
y, z )
1296 subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy)
1300 real(kind=plflt) minx, maxx, miny, maxy
1301 character*(*) mapname
1307 s1 = transfer( string1, s1 )
1308 call plmap7(s1,minx,maxx,miny,maxy)
1312 subroutine plmap2(mapname,minx,maxx,miny,maxy)
1316 real(kind=plflt) minx, maxx, miny, maxy
1317 character*(*) mapname
1321 call plclearmapformc()
1322 s1 = transfer( string1, s1 )
1323 call plmap7(s1,minx,maxx,miny,maxy)
1331 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1335 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1343 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1345 call plclearmapformc
1346 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1352 real(kind=plflt),
dimension(:) ::
x,
y
1353 real(kind=plflt),
dimension(:,:) :: z
1355 call plmeshf95(
x,
y, z,
size(
x),
size(
y),
opt,
size(
x))
1361 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1362 real(kind=plflt),
dimension(:,:) :: z
1364 call plmeshcf95(
x,
y, z,
size(
x),
size(
y),
opt, &
1365 clevel,
size(clevel),
size(
x))
1372 real(kind=plflt),
dimension(:) ::
x,
y
1373 real(kind=plflt),
dimension(:,:) :: z
1377 call plot3df95(
x,
y, z,
size(
x),
size(
y),
opt, iside,
size(
x))
1383 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1384 real(kind=plflt),
dimension(:,:) :: z
1386 call plot3dcf95(
x,
y, z,
size(
x),
size(
y),
opt, clevel, &
1387 size(clevel),
size(
x))
1397 call plspausef95( ipause )
1402 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1403 real(kind=plflt),
dimension(:,:) :: z
1405 call plsurf3df95(
x,
y, z,
size(
x),
size(
y),
opt, clevel, &
1406 size(clevel),
size(
x))
1412 real(kind=plflt),
dimension(:) ::
x,
y
1414 call plpoinf95(
size(
x),
x,
y, code )
1419 real(kind=plflt),
dimension(:) ::
x,
y, z
1421 call plpoin3f95(
size(
x),
x,
y, z, code )
1426 logical,
dimension(:) :: draw
1427 real(kind=plflt),
dimension(:) ::
x,
y, z
1429 integer,
dimension(size(draw)) :: idraw
1437 call plpoly3f95(
size(
x),
x,
y, z, idraw, iifcc )
1442 real(kind=plflt) :: plranddf95
1448 integer,
dimension(:) :: r, g, b
1450 call plscmap0f95( r, g, b,
size(r) )
1454 integer,
dimension(:) :: r, g, b
1455 real(kind=plflt),
dimension(:) :: a
1457 call plscmap0af95( r, g, b, a,
size(r) )
1461 integer,
dimension(:) :: r, g, b
1463 call plscmap1f95( r, g, b,
size(r) )
1467 integer,
dimension(:) :: r, g, b
1468 real(kind=plflt),
dimension(:) :: a
1470 call plscmap1af95( r, g, b, a,
size(r) )
1473 subroutine plscmap1l( rgbtype, intensity, coord1, coord2, coord3, alt_hue_path)
1475 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1476 logical,
dimension(:) :: alt_hue_path
1478 integer,
dimension(size(alt_hue_path)) :: ialt_hue_path
1483 do i = 1,
size(alt_hue_path)
1486 call plscmap1lf95( type,
size(intensity), intensity, coord1, coord2, coord3, ialt_hue_path )
1489 subroutine plscmap1l2( rgbtype, intensity, coord1, coord2, coord3)
1491 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1496 call plscmap1l2f95( type,
size(intensity), intensity, coord1, coord2, coord3)
1499 subroutine plscmap1la( rgbtype, intensity, coord1, coord2, coord3, a, alt_hue_path)
1501 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1502 logical,
dimension(:) :: alt_hue_path
1504 integer,
dimension(size(alt_hue_path)) :: ialt_hue_path
1509 do i = 1,
size(alt_hue_path)
1512 call plscmap1laf95( type,
size(intensity), intensity, coord1, coord2, coord3, a, ialt_hue_path )
1515 subroutine plscmap1la2( rgbtype, intensity, coord1, coord2, coord3, a)
1517 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1522 call plscmap1la2f95( type,
size(intensity), intensity, coord1, coord2, coord3, a)
1525 subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump, &
1526 ymin, ymax, xlpos, ylpos, y_ascl, acc, &
1527 colbox, collab, colline, styline, legline, &
1532 integer id, colbox, collab, colline(4), styline(4)
1533 character*(*) xspec, yspec, legline(4), labx, laby, labtop
1534 real(kind=plflt) xmin, xmax, xjump, ymin, ymax, xlpos, ylpos
1536 integer iy_ascl, iacc
1552 s1 = transfer( string1, s1 )
1553 s2 = transfer( string2, s2 )
1555 s4 = transfer( string4, s4 )
1556 s5 = transfer( string5, s5 )
1557 s6 = transfer( string6, s6 )
1558 s7 = transfer( string7, s7 )
1559 s8 = transfer( string8, s8 )
1560 s9 = transfer( string9, s9 )
1561 call plstripcf95(id, s1, s2, xmin, xmax, xjump, &
1562 ymin, ymax, xlpos, ylpos, iy_ascl, iacc, &
1563 colbox, collab, colline, styline, &
1571 real(kind=plflt),
dimension(:) :: arrowx, arrowy
1575 call plsvect1f95( arrowx, arrowy,
size(arrowx), ifill )
1580 real(kind=plflt),
dimension(:) ::
x,
y
1582 call plsymf95(
size(
x),
x,
y, code )
1583 end subroutine plsym
1586 logical :: mode, status
1587 integer :: imode, istatus
1589 call plxormodf95( imode, istatus)