70 character (len = maxlen) :: string1, string2, string3
71 character (len = maxlen) :: string4, string5, string6
72 character (len = maxlen) :: string7, string8, string9
73 integer,
dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
75 character(len=1),
parameter :: PL_END_OF_STRING = achar(0)
131 include
'sfstubs.f90'
142 character(len=16) string
144 real(kind=plflt) dX, dY
145 real(kind=plflt) wX, wY
159 include
'plplot_parameters.h'
171 module procedure plbin
182 real(kind=plflt) :: rx, ry, wx, wy
201 real(kind=plflt) ::
col
225 subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
227 real(kind=plflt) :: xmin, xmax, ymin, ymax
228 integer :: just, axis
278 real(kind=plflt) :: chrdef, chrht
285 real(kind=plflt) :: min_color, max_color
291 integer :: icol, r, g, b
298 integer :: icol, r, g, b
299 real(kind=plflt) ::
a
313 real(kind=plflt) ::
a
319 integer :: compression
326 real(kind=plflt) :: mar, aspect, jx, jy
333 real(kind=plflt) :: rot
340 real(kind=plflt) :: xmin, xmax, ymin, ymax
354 integer :: fam, num, bmax
361 integer(kind=plunicode) :: fci
367 integer :: family, style, weight
378 subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
380 real(kind=plflt) :: xpmm, ypmm
381 integer :: xwid, ywid, xoff, yoff
399 subroutine plgspa( xmin, xmax, ymin, ymax )
401 real(kind=plflt) :: xmin, xmax, ymin, ymax
412 subroutine plgvpd( xmin, xmax, ymin, ymax )
414 real(kind=plflt) :: xmin, xmax, ymin, ymax
419 subroutine plgvpw( xmin, xmax, ymin, ymax )
421 real(kind=plflt) :: xmin, xmax, ymin, ymax
427 integer :: digmax, digits
433 integer :: digmax, digits
439 integer :: digmax, digits
450 real(kind=plflt) :: h, l, s
457 real(kind=plflt) :: h, l, s, r, g, b
469 real(kind=plflt) :: x1, y1, x2, y2
476 real(kind=plflt) ::
x,
y, z
523 integer :: nlin, inc, del
549 integer :: setp,
prec
570 real(kind=plflt) :: r, g, b
583 real(kind=plflt) :: r, g, b, h, l, s
590 real(kind=plflt) :: chrdef, chrht
635 real(kind=plflt) :: min_color, max_color
641 integer :: icol, r, g, b
648 integer :: icol, r, g, b
649 real(kind=plflt) ::
a
663 real(kind=plflt) ::
a
675 integer :: compression
682 real(kind=plflt) :: mar, aspect, jx, jy
687 subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
689 real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
696 real(kind=plflt) :: rot
703 real(kind=plflt) :: xmin, xmax, ymin, ymax
710 real(kind=plflt) :: xmin, xmax, ymin, ymax
737 real(kind=plflt),
dimension(*) ::
x,
y
745 integer :: fam, num, bmax
752 integer(kind=plunicode) :: fci
758 integer :: family, style, weight
765 subroutine labelfunc(axis, value, label, length)
768 integer :: axis, length
769 real(kind=plflt) ::
value
770 character*(length) label
771 end subroutine labelfunc
788 real(kind=plflt) :: def, scale
798 real(kind=plflt) :: def, scale
809 subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
811 real(kind=plflt) :: xpmm, ypmm
812 integer :: xwid, ywid, xoff, yoff
835 real(kind=plflt) :: def, scale
848 subroutine transformfunc(x, y, xt, yt)
851 real(kind=plflt) ::
x,
y, xt, yt
852 end subroutine transformfunc
870 real(kind=plflt) ::
x,
y
882 integer :: n, mark, space
899 subroutine plsvpa( xmin, xmax, ymin, ymax )
901 real(kind=plflt) :: xmin, xmax, ymin, ymax
907 integer :: digmax, digits
913 integer :: digmax, digits
918 module procedure plsym
923 integer :: digmax, digits
935 real(kind=plflt) :: aspect
940 subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
942 real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
947 subroutine plvpor( xmin, xmax, ymin, ymax )
949 real(kind=plflt) :: xmin, xmax, ymin, ymax
959 subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
961 real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
968 real(kind=plflt) ::
width
973 subroutine plwind( xmin, xmax, ymin, ymax )
975 real(kind=plflt) :: xmin, xmax, ymin, ymax
1005 real(kind=plflt),
dimension(:) ::
x,
y
1008 call plbinf77(
size(
x),
x,
y, center )
1009 end subroutine plbin
1025 real (kind=plflt),
dimension(:) ::
ticks
1026 real (kind=plflt),
dimension(:,:) :: values
1027 character(len=*),
dimension(:) :: labels,
axis_opts
1034 call pllegend07_cnv_text( 3,
n_labels, labels )
1035 call pllegend07_cnv_text( 4, n_axes,
axis_opts )
1059 real (kind=plflt),
dimension(:) ::
ticks
1060 real (kind=plflt),
dimension(:,:) :: values
1061 character(len=*),
dimension(:) :: labels,
axis_opts
1072 call pllegend07_cnv_text( 3,
n_labels, labels )
1073 call pllegend07_cnv_text( 4, n_axes,
axis_opts )
1092 call plcpstrmf77( iplsr, iflags )
1096 real(kind=plflt),
dimension(:) :: xmin, xmax,
y
1098 call plerrxf77(
size(xmin), xmin, xmax,
y )
1102 real(kind=plflt),
dimension(:) ::
x, ymin, ymax
1104 call plerryf77(
size(
x),
x, ymin, ymax )
1108 real(kind=plflt),
dimension(:) ::
x,
y
1110 call plfillf77(
size(
x),
x,
y )
1114 real(kind=plflt),
dimension(:) ::
x,
y, z
1116 call plfill3f77(
size(
x),
x,
y, z )
1120 real(kind=plflt),
dimension(:) ::
x,
y
1121 real(kind=plflt) :: angle
1123 call plgradientf77(
size(
x),
x,
y, angle )
1127 real(kind=plflt),
dimension(:) ::
x,
y, z,
xg,
yg
1128 real(kind=plflt),
dimension(:,:) :: zg
1129 real(kind=plflt) :: data
1132 call plgriddataf77(
x,
y, z,
size(
x),
xg,
size(
xg),
yg,
size(
yg), zg, &
1138 subroutine plhist( data, datmin, datmax, nbin, oldwin )
1139 real(kind=plflt),
dimension(:) :: data
1140 real(kind=plflt) :: datmin, datmax
1141 integer :: nbin, oldwin
1143 call plhistf77(
size(data),
data, datmin, datmax, nbin, oldwin )
1161 subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1162 dxmin, dxmax, dymin, dymax )
1163 real(kind=plflt),
dimension(:,:) :: idata
1164 real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1165 real(kind=plflt) :: dxmin, dxmax, dymin, dymax
1171 call plimagef77( idata,
nx,
ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1172 dxmin, dxmax, dymin, dymax )
1178 nrow, ncolumn, nlegend, opt_array, &
1179 text_offset, text_scale, text_spacing, &
1180 text_justification, text_colors,
text, &
1181 box_colors, box_patterns, box_scales, &
1183 line_colors, line_styles, line_widths, &
1184 symbol_colors, symbol_scales, &
1185 symbol_numbers, symbols )
1187 real(kind=plflt) :: legend_width, legend_height, plot_width,
x,
y
1188 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1190 integer :: nrow, ncolumn, nlegend
1192 character(len=*),
dimension(:) ::
text, symbols
1194 integer,
dimension(:) :: opt_array, text_colors, box_colors
1195 integer,
dimension(:) :: box_patterns
1196 real(kind=plflt),
dimension(:) :: box_line_widths
1197 integer,
dimension(:) :: line_colors, line_styles
1198 real(kind=plflt),
dimension(:) :: line_widths
1199 integer,
dimension(:) :: symbol_colors, symbol_numbers
1200 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1207 call pllegend07_cnv_text( 1, nlegend,
text )
1208 call pllegend07_cnv_text( 2, nlegend, symbols )
1210 call pllegend07( legend_width, legend_height,
opt,
position,
x,
y, &
1212 nrow, ncolumn, nlegend, opt_array, &
1213 text_offset, text_scale, text_spacing, &
1214 text_justification, text_colors, &
1215 box_colors, box_patterns, box_scales, &
1217 line_colors, line_styles, line_widths, &
1218 symbol_colors, symbol_scales, &
1226 nrow, ncolumn, opt_array, &
1227 text_offset, text_scale, text_spacing, &
1228 text_justification, text_colors,
text, &
1229 box_colors, box_patterns, box_scales, &
1231 line_colors, line_styles, line_widths, &
1232 symbol_colors, symbol_scales, &
1233 symbol_numbers, symbols )
1235 real(kind=plflt) :: legend_width, legend_height, plot_width,
x,
y
1236 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1238 integer :: nrow, ncolumn
1240 character(len=*),
dimension(:) ::
text, symbols
1242 integer,
dimension(:) :: opt_array, text_colors, box_colors
1243 integer,
dimension(:) :: box_patterns
1244 real(kind=plflt),
dimension(:) :: box_line_widths
1245 integer,
dimension(:) :: line_colors, line_styles
1246 real(kind=plflt),
dimension(:) :: line_widths
1247 integer,
dimension(:) :: symbol_colors, symbol_numbers
1248 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1255 nlegend =
min(
size(opt_array),
size(
text) )
1257 call
pllegend_1( legend_width, legend_height, &
1260 nrow, ncolumn, nlegend, opt_array, &
1261 text_offset, text_scale, text_spacing, &
1262 text_justification, text_colors,
text, &
1263 box_colors, box_patterns, box_scales, &
1265 line_colors, line_styles, line_widths, &
1266 symbol_colors, symbol_scales, &
1267 symbol_numbers, symbols )
1272 real(kind=plflt),
dimension(:) ::
x,
y
1274 call pllinef77(
size(
x),
x,
y )
1278 real(kind=plflt),
dimension(:) ::
x,
y, z
1280 call plline3f77(
size(
x),
x,
y, z )
1283 subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy)
1287 real(kind=plflt) minx, maxx, miny, maxy
1288 character*(*) mapname
1295 call plmap7(
s1,minx,maxx,miny,maxy)
1299 subroutine plmap2(mapname,minx,maxx,miny,maxy)
1303 real(kind=plflt) minx, maxx, miny, maxy
1304 character*(*) mapname
1308 call plclearmapformc()
1310 call plmap7(
s1,minx,maxx,miny,maxy)
1318 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1322 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1330 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1332 call plclearmapformc
1333 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1339 real(kind=plflt),
dimension(:) ::
x,
y
1340 real(kind=plflt),
dimension(:,:) :: z
1342 call plmeshf77(
x,
y, z,
size(
x),
size(
y),
opt,
size(
x))
1348 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1349 real(kind=plflt),
dimension(:,:) :: z
1351 call plmeshcf77(
x,
y, z,
size(
x),
size(
y),
opt, &
1352 clevel,
size(clevel),
size(
x))
1359 real(kind=plflt),
dimension(:) ::
x,
y
1360 real(kind=plflt),
dimension(:,:) :: z
1364 call plot3df77(
x,
y, z,
size(
x),
size(
y),
opt, iside,
size(
x))
1370 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1371 real(kind=plflt),
dimension(:,:) :: z
1373 call plot3dcf77(
x,
y, z,
size(
x),
size(
y),
opt, clevel, &
1374 size(clevel),
size(
x))
1384 call plspausef77( ipause )
1389 real(kind=plflt),
dimension(:) ::
x,
y, clevel
1390 real(kind=plflt),
dimension(:,:) :: z
1392 call plsurf3df77(
x,
y, z,
size(
x),
size(
y),
opt, clevel, &
1393 size(clevel),
size(
x))
1399 real(kind=plflt),
dimension(:) ::
x,
y
1401 call plpoinf77(
size(
x),
x,
y, code )
1406 real(kind=plflt),
dimension(:) ::
x,
y, z
1408 call plpoin3f77(
size(
x),
x,
y, z, code )
1413 logical,
dimension(:) :: draw
1414 real(kind=plflt),
dimension(:) ::
x,
y, z
1416 integer,
dimension(size(draw)) :: idraw
1424 call plpoly3f77(
size(
x),
x,
y, z, idraw, iifcc )
1429 real(kind=plflt) :: plranddf77
1435 integer,
dimension(:) :: r, g, b
1437 call plscmap0f77( r, g, b,
size(r) )
1441 integer,
dimension(:) :: r, g, b
1442 real(kind=plflt),
dimension(:) ::
a
1444 call plscmap0af77( r, g, b,
a,
size(r) )
1448 integer,
dimension(:) :: r, g, b
1450 call plscmap1f77( r, g, b,
size(r) )
1454 integer,
dimension(:) :: r, g, b
1455 real(kind=plflt),
dimension(:) ::
a
1457 call plscmap1af77( r, g, b,
a,
size(r) )
1460 subroutine plscmap1l( rgbtype, intensity, coord1, coord2, coord3, alt_hue_path)
1462 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1463 logical,
dimension(:) :: alt_hue_path
1465 integer,
dimension(size(alt_hue_path)) :: ialt_hue_path
1470 do i = 1,
size(alt_hue_path)
1473 call plscmap1lf77( type,
size(intensity), intensity, coord1, coord2, coord3, ialt_hue_path )
1476 subroutine plscmap1l2( rgbtype, intensity, coord1, coord2, coord3)
1478 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1483 call plscmap1l2f77( type,
size(intensity), intensity, coord1, coord2, coord3)
1486 subroutine plscmap1la( rgbtype, intensity, coord1, coord2, coord3, a, alt_hue_path)
1488 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3,
a
1489 logical,
dimension(:) :: alt_hue_path
1491 integer,
dimension(size(alt_hue_path)) :: ialt_hue_path
1496 do i = 1,
size(alt_hue_path)
1499 call plscmap1laf77( type,
size(intensity), intensity, coord1, coord2, coord3,
a, ialt_hue_path )
1502 subroutine plscmap1la2( rgbtype, intensity, coord1, coord2, coord3, a)
1504 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3,
a
1509 call plscmap1la2f77( type,
size(intensity), intensity, coord1, coord2, coord3,
a)
1512 subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump, &
1513 ymin, ymax, xlpos, ylpos, y_ascl, acc, &
1514 colbox, collab, colline, styline, legline, &
1519 integer id, colbox, collab, colline(4), styline(4)
1520 character*(*) xspec, yspec, legline(4), labx, laby, labtop
1521 real(kind=plflt) xmin, xmax, xjump, ymin, ymax, xlpos, ylpos
1523 integer iy_ascl, iacc
1544 s6 = transfer( string6,
s6 )
1547 s9 = transfer( string9,
s9 )
1548 call plstripcf77(id,
s1,
s2, xmin, xmax, xjump, &
1549 ymin, ymax, xlpos, ylpos, iy_ascl, iacc, &
1550 colbox, collab, colline, styline, &
1558 real(kind=plflt),
dimension(:) :: arrowx, arrowy
1562 call plsvectf77( arrowx, arrowy,
size(arrowx), ifill )
1567 real(kind=plflt),
dimension(:) ::
x,
y
1569 call plsymf77(
size(
x),
x,
y, code )
1570 end subroutine plsym
1573 logical :: mode, status
1574 integer :: imode, istatus
1576 call plxormodf77( imode, istatus)