56 integer(kind=plint),
parameter :: maxlen = 320
57 integer(kind=plint),
parameter :: maxleni = 80
58 character (len = maxlen) :: string1, string2, string3
59 character (len = maxlen) :: string4, string5, string6
60 character (len = maxlen) :: string7, string8, string9
61 integer(kind=plint),
dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
63 character(len=1),
parameter :: PL_END_OF_STRING = achar(0)
123 include
'sfstubs.inc'
130 integer(kind=plint) type
131 integer(kind=plint) state
132 integer(kind=plint) keysym
133 integer(kind=plint) button
134 integer(kind=plint) subwindow
135 character(len=16) string
136 integer(kind=plint) pX, pY
137 real(kind=plflt) dX, dY
138 real(kind=plflt) wX, wY
152 include
'plplot_parameters.inc'
161 integer(kind=plint) :: sub
166 module procedure plbin
178 real(kind=plflt) :: rx, ry, wx, wy
179 integer(kind=plint) :: window
192 integer(kind=plint) :: icol
200 real(kind=plflt) ::
col
224 subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
227 real(kind=plflt) :: xmin, xmax, ymin, ymax
228 integer(kind=plint) :: just, axis
267 integer(kind=plint) ::
font
275 integer(kind=plint) :: charset
283 real(kind=plflt) :: chrdef, chrht
291 real(kind=plflt) :: min_color, max_color
299 integer(kind=plint) :: icol, r, g, b
307 integer(kind=plint) :: icol, r, g, b
308 real(kind=plflt) :: a
316 integer(kind=plint) :: r, g, b
324 integer(kind=plint) :: r, g, b
325 real(kind=plflt) :: a
333 integer(kind=plint) :: compression
341 real(kind=plflt) :: mar, aspect, jx, jy
349 real(kind=plflt) :: rot
357 real(kind=plflt) :: xmin, xmax, ymin, ymax
374 integer(kind=plint) :: fam, num, bmax
382 integer(kind=plunicode) :: fci
390 integer(kind=plint) :: family, style, weight
398 integer(kind=plint) :: level
403 subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
406 real(kind=plflt) :: xpmm, ypmm
407 integer(kind=plint) :: xwid, ywid, xoff, yoff
425 subroutine plgspa( xmin, xmax, ymin, ymax )
428 real(kind=plflt) :: xmin, xmax, ymin, ymax
436 integer(kind=plint) :: strm
441 subroutine plgvpd( xmin, xmax, ymin, ymax )
444 real(kind=plflt) :: xmin, xmax, ymin, ymax
449 subroutine plgvpw( xmin, xmax, ymin, ymax )
452 real(kind=plflt) :: xmin, xmax, ymin, ymax
460 integer(kind=plint) :: digmax, digits
468 integer(kind=plint) :: digmax, digits
476 integer(kind=plint) :: digmax, digits
488 real(kind=plflt) :: h, l, s
496 real(kind=plflt) :: h, l, s, r, g, b
509 real(kind=plflt) :: x1, y1, x2, y2
517 real(kind=plflt) :: x, y, z
538 integer(kind=plint) :: lin
578 integer(kind=plint) :: strm
586 integer(kind=plint) :: nlin, inc, del
594 integer(kind=plint) :: n
595 real(kind=plflt) :: x1, y1, x2, y2
623 integer(kind=plint) :: setp,
prec
631 integer(kind=plint) :: patt
647 real(kind=plflt) :: r, g, b
655 integer(kind=plint) :: r, g, b
663 real(kind=plflt) :: r, g, b, h, l, s
671 real(kind=plflt) :: chrdef, chrht
687 integer(kind=plint) :: n
713 integer(kind=plint) :: n
721 real(kind=plflt) :: min_color, max_color
729 integer(kind=plint) :: icol, r, g, b
737 integer(kind=plint) :: icol, r, g, b
738 real(kind=plflt) :: a
746 integer(kind=plint) :: r, g, b
754 integer(kind=plint) :: r, g, b
755 real(kind=plflt) :: a
763 integer(kind=plint) :: color
771 integer(kind=plint) :: compression
779 real(kind=plflt) :: mar, aspect, jx, jy
784 subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
787 real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
795 real(kind=plflt) :: rot
803 real(kind=plflt) :: xmin, xmax, ymin, ymax
811 real(kind=plflt) :: xmin, xmax, ymin, ymax
819 integer(kind=plint) :: s
828 integer(kind=plint) :: esc
841 integer(kind=plint) :: n
842 real(kind=plflt),
dimension(*) :: x, y
852 integer(kind=plint) :: fam, num, bmax
860 integer(kind=plunicode) :: fci
868 integer(kind=plint) :: family, style, weight
875 subroutine labelfunc(axis, value, label, length)
878 integer(kind=plint) :: axis, length
879 real(kind=plflt) ::
value
880 character*(length) label
881 end subroutine labelfunc
888 integer(kind=plint) :: dummy
900 real(kind=plflt) :: def, scale
911 real(kind=plflt) :: def, scale
919 integer(kind=plint) :: rot
924 subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
927 real(kind=plflt) :: xpmm, ypmm
928 integer(kind=plint) :: xwid, ywid, xoff, yoff
940 integer(kind=plint) :: strm
948 integer(kind=plint) :: nx, ny
956 real(kind=plflt) :: def, scale
964 integer(kind=plint) :: nx, ny
971 subroutine transformfunc(x, y, xt, yt)
974 real(kind=plflt) :: x, y, xt, yt
975 end subroutine transformfunc
982 integer(kind=plint) :: dummy
994 integer(kind=plint) :: id, pen
995 real(kind=plflt) :: x, y
1003 integer(kind=plint) :: id
1011 integer(kind=plint) :: n, mark, space
1040 real(kind=plflt) :: xmin, xmax, ymin, ymax
1048 integer(kind=plint) :: digmax, digits
1056 integer(kind=plint) :: digmax, digits
1061 module procedure plsym
1068 integer(kind=plint) :: digmax, digits
1081 real(kind=plflt) :: aspect
1086 subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
1089 real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
1097 real(kind=plflt) :: xmin, xmax, ymin, ymax
1107 subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
1110 real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
1111 end subroutine plw3d
1118 real(kind=plflt) ::
width
1126 real(kind=plflt) :: xmin, xmax, ymin, ymax
1143 if ( logvalue )
then
1151 integer(kind=plint) :: intvalue
1156 real(kind=plflt),
dimension(:) :: x, y
1157 integer(kind=plint) :: center
1159 call plbinf95(
size(x,kind=plint), x, y, center )
1160 end subroutine plbin
1163 opt, position, x, y, &
1164 x_length, y_length, &
1165 bg_color, bb_color, bb_style, &
1166 low_cap_color, high_cap_color, &
1167 cont_color, cont_width, &
1168 n_labels, label_opts, labels, &
1169 n_axes, axis_opts, ticks, sub_ticks, &
1171 real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1172 integer(kind=plint) :: opt, position, bg_color, bb_color, bb_style, cont_color
1173 integer(kind=plint) :: n_labels, n_axes
1174 real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1175 integer(kind=plint),
dimension(:) :: label_opts, sub_ticks, n_values
1176 real (kind=plflt),
dimension(:) :: ticks
1177 real (kind=plflt),
dimension(:,:) :: values
1178 character(len=*),
dimension(:) :: labels, axis_opts
1185 call pllegend07_cnv_text( 3_plint, n_labels, labels )
1186 call pllegend07_cnv_text( 4_plint, n_axes, axis_opts )
1188 call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1189 opt, position, x, y, &
1190 x_length, y_length, &
1191 bg_color, bb_color, bb_style, &
1192 low_cap_color, high_cap_color, &
1193 cont_color, cont_width, &
1194 n_labels, label_opts, n_axes, ticks, sub_ticks, &
1199 opt, position, x, y, &
1200 x_length, y_length, &
1201 bg_color, bb_color, bb_style, &
1202 low_cap_color, high_cap_color, &
1203 cont_color, cont_width, &
1204 label_opts, labels, axis_opts, ticks, sub_ticks, &
1206 real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1207 integer(kind=plint) :: opt, position, bg_color, bb_color, bb_style, cont_color
1208 real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1209 integer(kind=plint),
dimension(:) :: label_opts, sub_ticks, n_values
1210 real (kind=plflt),
dimension(:) :: ticks
1211 real (kind=plflt),
dimension(:,:) :: values
1212 character(len=*),
dimension(:) :: labels, axis_opts
1214 integer(kind=plint) :: n_labels, n_axes
1216 n_labels =
size(label_opts,1,kind=plint)
1217 n_axes =
size(axis_opts,1,kind=plint)
1223 call pllegend07_cnv_text( 3_plint, n_labels, labels )
1224 call pllegend07_cnv_text( 4_plint, n_axes, axis_opts )
1226 call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1227 opt, position, x, y, &
1228 x_length, y_length, &
1229 bg_color, bb_color, bb_style, &
1230 low_cap_color, high_cap_color, &
1231 cont_color, cont_width, &
1232 n_labels, label_opts, n_axes, ticks, sub_ticks, &
1237 integer(kind=plint) :: iplsr
1240 integer(kind=plint) :: iflags
1243 call plcpstrmf95( iplsr, iflags )
1247 real(kind=plflt),
dimension(:) :: xmin, xmax, y
1249 call plerrxf95(
size(xmin,kind=plint), xmin, xmax, y )
1253 real(kind=plflt),
dimension(:) :: x, ymin, ymax
1255 call plerryf95(
size(x,kind=plint), x, ymin, ymax )
1259 real(kind=plflt),
dimension(:) :: x, y
1261 call plfillf95(
size(x,kind=plint), x, y )
1265 real(kind=plflt),
dimension(:) :: x, y, z
1267 call plfill3f95(
size(x,kind=plint), x, y, z )
1271 real(kind=plflt),
dimension(:) :: x, y
1272 real(kind=plflt) :: angle
1274 call plgradientf95(
size(x,kind=plint), x, y, angle )
1278 real(kind=plflt),
dimension(:) :: x, y, z,
xg,
yg
1279 real(kind=plflt),
dimension(:,:) :: zg
1280 real(kind=plflt) :: data
1281 integer(kind=plint) :: type
1283 call plgriddataf95( x, y, z,
size(x,kind=plint),
xg,
size(
xg,kind=plint),
yg,
size(
yg,kind=plint), zg, &
1289 subroutine plhist( data, datmin, datmax, nbin, oldwin )
1290 real(kind=plflt),
dimension(:) :: data
1291 real(kind=plflt) :: datmin, datmax
1292 integer(kind=plint) :: nbin, oldwin
1294 call plhistf95(
size(
data,kind=plint),
data, datmin, datmax, nbin, oldwin )
1312 subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1313 dxmin, dxmax, dymin, dymax )
1314 real(kind=plflt),
dimension(:,:) :: idata
1315 real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1316 real(kind=plflt) :: dxmin, dxmax, dymin, dymax
1318 integer(kind=plint) :: nx, ny
1320 nx =
size(idata,1,kind=plint)
1321 ny =
size(idata,2,kind=plint)
1322 call plimagef95( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1323 dxmin, dxmax, dymin, dymax )
1327 opt, position, x, y, &
1328 plot_width, bg_color, bb_color, bb_style, &
1329 nrow, ncolumn, nlegend, opt_array, &
1330 text_offset, text_scale, text_spacing, &
1331 text_justification, text_colors,
text, &
1332 box_colors, box_patterns, box_scales, &
1334 line_colors, line_styles, line_widths, &
1335 symbol_colors, symbol_scales, &
1336 symbol_numbers, symbols )
1338 real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1339 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1340 integer(kind=plint) :: position, opt, bg_color, bb_color, bb_style
1341 integer(kind=plint) :: nrow, ncolumn, nlegend
1343 character(len=*),
dimension(:) ::
text, symbols
1345 integer(kind=plint),
dimension(:) :: opt_array, text_colors, box_colors
1346 integer(kind=plint),
dimension(:) :: box_patterns
1347 real(kind=plflt),
dimension(:) :: box_line_widths
1348 integer(kind=plint),
dimension(:) :: line_colors, line_styles
1349 real(kind=plflt),
dimension(:) :: line_widths
1350 integer(kind=plint),
dimension(:) :: symbol_colors, symbol_numbers
1351 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1358 call pllegend07_cnv_text( 1_plint, nlegend,
text )
1359 call pllegend07_cnv_text( 2_plint, nlegend, symbols )
1361 call pllegend07( legend_width, legend_height, opt, position, x, y, &
1362 plot_width, bg_color, bb_color, bb_style, &
1363 nrow, ncolumn, nlegend, opt_array, &
1364 text_offset, text_scale, text_spacing, &
1365 text_justification, text_colors, &
1366 box_colors, box_patterns, box_scales, &
1368 line_colors, line_styles, line_widths, &
1369 symbol_colors, symbol_scales, &
1375 opt, position, x, y, &
1376 plot_width, bg_color, bb_color, bb_style, &
1377 nrow, ncolumn, opt_array, &
1378 text_offset, text_scale, text_spacing, &
1379 text_justification, text_colors,
text, &
1380 box_colors, box_patterns, box_scales, &
1382 line_colors, line_styles, line_widths, &
1383 symbol_colors, symbol_scales, &
1384 symbol_numbers, symbols )
1386 real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1387 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1388 integer(kind=plint) :: position, opt, bg_color, bb_color, bb_style
1389 integer(kind=plint) :: nrow, ncolumn
1391 character(len=*),
dimension(:) ::
text, symbols
1393 integer(kind=plint),
dimension(:) :: opt_array, text_colors, box_colors
1394 integer(kind=plint),
dimension(:) :: box_patterns
1395 real(kind=plflt),
dimension(:) :: box_line_widths
1396 integer(kind=plint),
dimension(:) :: line_colors, line_styles
1397 real(kind=plflt),
dimension(:) :: line_widths
1398 integer(kind=plint),
dimension(:) :: symbol_colors, symbol_numbers
1399 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1401 integer(kind=plint) :: nlegend
1406 nlegend =
min(
size(opt_array,kind=plint),
size(
text,kind=plint) )
1408 call
pllegend_1( legend_width, legend_height, &
1409 opt, position, x, y, &
1410 plot_width, bg_color, bb_color, bb_style, &
1411 nrow, ncolumn, nlegend, opt_array, &
1412 text_offset, text_scale, text_spacing, &
1413 text_justification, text_colors,
text, &
1414 box_colors, box_patterns, box_scales, &
1416 line_colors, line_styles, line_widths, &
1417 symbol_colors, symbol_scales, &
1418 symbol_numbers, symbols )
1423 real(kind=plflt),
dimension(:) :: x, y
1425 call pllinef95(
size(x,kind=plint), x, y )
1429 real(kind=plflt),
dimension(:) :: x, y, z
1431 call plline3f95(
size(x,kind=plint), x, y, z )
1434 subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy)
1435 real(kind=plflt) minx, maxx, miny, maxy
1436 character*(*) mapname
1442 s1 = transfer( string1, s1 )
1443 call plmap7(s1,minx,maxx,miny,maxy)
1447 subroutine plmap2(mapname,minx,maxx,miny,maxy)
1448 real(kind=plflt) minx, maxx, miny, maxy
1449 character*(*) mapname
1453 call plclearmapformc()
1454 s1 = transfer( string1, s1 )
1455 call plmap7(s1,minx,maxx,miny,maxy)
1459 subroutine plmapfill1(mapform,mapname,minx,maxx,miny,maxy,plotentries)
1460 real(kind=plflt) minx, maxx, miny, maxy
1461 integer(kind=plint),
dimension(:),
optional :: plotentries
1462 character*(*) mapname
1464 integer(kind=plint),
dimension(1) :: dummy
1469 s1 = transfer( string1, s1 )
1470 if ( present(plotentries) )
then
1471 call plmapfill7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1473 call plmapfill7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1479 real(kind=plflt) minx, maxx, miny, maxy
1480 integer(kind=plint),
dimension(:),
optional :: plotentries
1481 character*(*) mapname
1482 integer(kind=plint),
dimension(1) :: dummy
1486 call plclearmapformc()
1487 s1 = transfer( string1, s1 )
1488 if ( present(plotentries) )
then
1489 call plmapfill7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1491 call plmapfill7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1496 subroutine plmapline1(mapform,mapname,minx,maxx,miny,maxy,plotentries)
1497 real(kind=plflt) minx, maxx, miny, maxy
1498 integer(kind=plint),
dimension(:),
optional :: plotentries
1499 character*(*) mapname
1501 integer(kind=plint),
dimension(1) :: dummy
1506 s1 = transfer( string1, s1 )
1507 if ( present(plotentries) )
then
1508 call plmapline7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1510 call plmapline7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1516 real(kind=plflt) minx, maxx, miny, maxy
1517 integer(kind=plint),
dimension(:),
optional :: plotentries
1518 character*(*) mapname
1519 integer(kind=plint),
dimension(1) :: dummy
1523 call plclearmapformc()
1524 s1 = transfer( string1, s1 )
1525 if ( present(plotentries) )
then
1526 call plmapline7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1528 call plmapline7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1533 subroutine plmapstring1(mapform,mapname,string,minx,maxx,miny,maxy,plotentries)
1534 real(kind=plflt) minx, maxx, miny, maxy
1535 integer(kind=plint),
dimension(:),
optional :: plotentries
1536 character*(*) mapname,
string
1538 integer(kind=plint),
dimension(1) :: dummy
1544 s1 = transfer( string1, s1 )
1545 s2 = transfer( string2, s2 )
1546 if ( present(plotentries) )
then
1547 call plmapstring7(s1,s2,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1549 call plmapstring7(s1,s2,minx,maxx,miny,maxy,dummy,0_plint)
1555 real(kind=plflt) minx, maxx, miny, maxy
1556 integer(kind=plint),
dimension(:),
optional :: plotentries
1557 character*(*) mapname,
string
1558 integer(kind=plint),
dimension(1) :: dummy
1563 call plclearmapformc()
1564 s1 = transfer( string1, s1 )
1565 s2 = transfer( string2, s2 )
1566 if ( present(plotentries) )
then
1567 call plmapstring7(s1,s2,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1569 call plmapstring7(s1,s2,minx,maxx,miny,maxy,dummy,0_plint)
1574 subroutine plmaptex1(mapform,mapname,dx,dy,just,text,minx,maxx,miny,maxy,plotentry)
1575 real(kind=plflt) dx, dy, just, minx, maxx, miny, maxy
1576 integer(kind=plint) :: plotentry
1577 character*(*) mapname,
text
1579 integer(kind=plint) :: dummy
1585 s1 = transfer( string1, s1 )
1586 s2 = transfer( string2, s2 )
1587 call plmaptex7(s1,dx,dy,just,s2,minx,maxx,miny,maxy,plotentry)
1591 subroutine plmaptex2(mapname,dx,dy,just,text,minx,maxx,miny,maxy,plotentry)
1592 real(kind=plflt) dx, dy, just, minx, maxx, miny, maxy
1593 integer(kind=plint) :: plotentry
1594 character*(*) mapname,
text
1595 integer(kind=plint) :: dummy
1600 call plclearmapformc()
1601 s1 = transfer( string1, s1 )
1602 s2 = transfer( string2, s2 )
1603 call plmaptex7(s1,dx,dy,just,s2,minx,maxx,miny,maxy,plotentry)
1610 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1614 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1621 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1623 call plclearmapformc
1624 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1629 integer(kind=plint) :: opt
1630 real(kind=plflt),
dimension(:) :: x, y
1631 real(kind=plflt),
dimension(:,:) :: z
1633 call plmeshf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt,
size(x,kind=plint))
1638 integer(kind=plint) :: opt
1639 real(kind=plflt),
dimension(:) :: x, y, clevel
1640 real(kind=plflt),
dimension(:,:) :: z
1642 call plmeshcf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, &
1643 clevel,
size(clevel,kind=plint),
size(x,kind=plint))
1648 integer(kind=plint) :: opt
1650 real(kind=plflt),
dimension(:) :: x, y
1651 real(kind=plflt),
dimension(:,:) :: z
1652 integer(kind=plint) :: iside
1655 call plot3df95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, iside,
size(x,kind=plint))
1660 integer(kind=plint) :: opt
1661 real(kind=plflt),
dimension(:) :: x, y, clevel
1662 real(kind=plflt),
dimension(:,:) :: z
1664 call plot3dcf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1665 size(clevel,kind=plint),
size(x,kind=plint))
1672 integer(kind=plint) :: ipause
1675 call plspausef95( ipause )
1679 integer(kind=plint) :: opt
1680 real(kind=plflt),
dimension(:) :: x, y, clevel
1681 real(kind=plflt),
dimension(:,:) :: z
1683 call plsurf3df95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1684 size(clevel,kind=plint),
size(x,kind=plint))
1688 subroutine plsurf3dl( x, y, z, opt, clevel, indexxmin, indexxmax, indexymin, indexymax )
1689 integer(kind=plint) :: opt
1690 real(kind=plflt),
dimension(:) :: x, y, clevel
1691 real(kind=plflt),
dimension(:,:) :: z
1692 integer(kind=plint) :: indexxmin, indexxmax
1693 integer(kind=plint),
dimension(:) :: indexymin, indexymax
1695 integer(kind=plint),
dimension(size(x)) :: indexyminm1, indexymaxm1
1697 indexyminm1 = indexymin - 1
1698 indexymaxm1 = indexymax - 1
1700 call plsurf3dlf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1701 size(clevel,kind=plint),
size(x,kind=plint), indexxmin-1, indexxmax-1, indexyminm1, indexymaxm1 )
1706 integer(kind=plint) :: code
1707 real(kind=plflt),
dimension(:) :: x, y
1709 call plpoinf95(
size(x,kind=plint), x, y, code )
1713 integer(kind=plint) :: code
1714 real(kind=plflt),
dimension(:) :: x, y, z
1716 call plpoin3f95(
size(x,kind=plint), x, y, z, code )
1721 logical,
dimension(:) :: draw
1722 real(kind=plflt),
dimension(:) :: x, y, z
1724 integer(kind=plint),
dimension(size(draw,kind=plint)) :: idraw
1725 integer(kind=plint) :: i
1726 integer(kind=plint) :: iifcc
1729 do i = 1_plint,
size(draw,kind=plint)
1732 call plpoly3f95(
size(x,kind=plint), x, y, z, idraw, iifcc )
1737 real(kind=plflt) :: plranddf95
1743 integer(kind=plint),
dimension(:) :: r, g, b
1745 call plscmap0f95( r, g, b,
size(r,kind=plint) )
1749 integer(kind=plint),
dimension(:) :: r, g, b
1750 real(kind=plflt),
dimension(:) :: a
1752 call plscmap0af95( r, g, b, a,
size(r,kind=plint) )
1756 integer(kind=plint),
dimension(:) :: r, g, b
1758 call plscmap1f95( r, g, b,
size(r,kind=plint) )
1762 integer(kind=plint),
dimension(:) :: r, g, b
1763 real(kind=plflt),
dimension(:) :: a
1765 call plscmap1af95( r, g, b, a,
size(r,kind=plint) )
1768 subroutine plscmap1l( rgbtype, intensity, coord1, coord2, coord3, alt_hue_path)
1770 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1771 logical,
dimension(:) :: alt_hue_path
1773 integer(kind=plint),
dimension(size(alt_hue_path,kind=plint)) :: ialt_hue_path
1774 integer(kind=plint) :: i
1775 integer(kind=plint) :: type
1778 do i = 1_plint,
size(alt_hue_path,kind=plint)
1781 call plscmap1lf95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, ialt_hue_path )
1784 subroutine plscmap1l2( rgbtype, intensity, coord1, coord2, coord3)
1786 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1788 integer(kind=plint) :: type
1791 call plscmap1l2f95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3)
1794 subroutine plscmap1la( rgbtype, intensity, coord1, coord2, coord3, a, alt_hue_path)
1796 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1797 logical,
dimension(:) :: alt_hue_path
1799 integer(kind=plint),
dimension(size(alt_hue_path,kind=plint)) :: ialt_hue_path
1800 integer(kind=plint) :: i
1801 integer(kind=plint) :: type
1804 do i = 1_plint,
size(alt_hue_path,kind=plint)
1807 call plscmap1laf95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, a, ialt_hue_path )
1810 subroutine plscmap1la2( rgbtype, intensity, coord1, coord2, coord3, a)
1812 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1814 integer(kind=plint) :: type
1817 call plscmap1la2f95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, a)
1820 subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump, &
1821 ymin, ymax, xlpos, ylpos, y_ascl, acc, &
1822 colbox, collab, colline, styline, legline, &
1825 integer(kind=plint) id, colbox, collab, colline(4), styline(4)
1826 character*(*) xspec, yspec, legline(4), labx, laby, labtop
1827 real(kind=plflt) xmin, xmax, xjump, ymin, ymax, xlpos, ylpos
1829 integer(kind=plint) iy_ascl, iacc
1845 s1 = transfer( string1, s1 )
1846 s2 = transfer( string2, s2 )
1848 s4 = transfer( string4, s4 )
1849 s5 = transfer( string5, s5 )
1850 s6 = transfer( string6, s6 )
1851 s7 = transfer( string7, s7 )
1852 s8 = transfer( string8, s8 )
1853 s9 = transfer( string9, s9 )
1854 call plstripcf95(id, s1, s2, xmin, xmax, xjump, &
1855 ymin, ymax, xlpos, ylpos, iy_ascl, iacc, &
1856 colbox, collab, colline, styline, &
1864 real(kind=plflt),
dimension(:) :: arrowx, arrowy
1865 integer(kind=plint) ifill
1868 call plsvect1f95( arrowx, arrowy,
size(arrowx,kind=plint), ifill )
1872 integer(kind=plint) :: code
1873 real(kind=plflt),
dimension(:) :: x, y
1875 call plsymf95(
size(x,kind=plint), x, y, code )
1876 end subroutine plsym
1879 logical :: mode, status
1880 integer(kind=plint) :: imode, istatus
1882 call plxormodf95( imode, istatus)