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
175 subroutine plbtime( year, month, day, hour, min, sec, ctime )
178 integer(kind=plint) :: year, month, day, hour,
min
179 real(kind=plflt) :: sec,
ctime
187 real(kind=plflt) :: rx, ry, wx, wy
188 integer(kind=plint) :: window
201 integer(kind=plint) :: icol
209 real(kind=plflt) ::
col
219 subroutine plconfigtime( scale, offset1, offset2, control, ifbtime_offset, &
220 year, month, day, hour,
min, sec )
223 real(kind=plflt) :: scale, offset1, offset2, sec
224 integer(kind=plint) :: control, ifbtime_offset, year, month, day, hour,
min
233 subroutine plctime( year, month, day, hour, min, sec, ctime )
236 integer(kind=plint) :: year, month, day, hour,
min
237 real(kind=plflt) :: sec,
ctime
247 subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
250 real(kind=plflt) :: xmin, xmax, ymin, ymax
251 integer(kind=plint) :: just, axis
290 integer(kind=plint) ::
font
298 integer(kind=plint) :: charset
306 real(kind=plflt) :: chrdef, chrht
314 real(kind=plflt) :: min_color, max_color
322 integer(kind=plint) :: icol, r, g, b
330 integer(kind=plint) :: icol, r, g, b
331 real(kind=plflt) :: a
339 integer(kind=plint) :: r, g, b
347 integer(kind=plint) :: r, g, b
348 real(kind=plflt) :: a
356 integer(kind=plint) :: compression
364 real(kind=plflt) :: mar, aspect, jx, jy
372 real(kind=plflt) :: rot
380 real(kind=plflt) :: xmin, xmax, ymin, ymax
397 integer(kind=plint) :: fam, num, bmax
405 integer(kind=plunicode) :: fci
413 integer(kind=plint) :: family, style, weight
421 integer(kind=plint) :: level
426 subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
429 real(kind=plflt) :: xpmm, ypmm
430 integer(kind=plint) :: xwid, ywid, xoff, yoff
448 subroutine plgspa( xmin, xmax, ymin, ymax )
451 real(kind=plflt) :: xmin, xmax, ymin, ymax
459 integer(kind=plint) :: strm
464 subroutine plgvpd( xmin, xmax, ymin, ymax )
467 real(kind=plflt) :: xmin, xmax, ymin, ymax
472 subroutine plgvpw( xmin, xmax, ymin, ymax )
475 real(kind=plflt) :: xmin, xmax, ymin, ymax
483 integer(kind=plint) :: digmax, digits
491 integer(kind=plint) :: digmax, digits
499 integer(kind=plint) :: digmax, digits
511 real(kind=plflt) :: h, l, s
519 real(kind=plflt) :: h, l, s, r, g, b
532 real(kind=plflt) :: x1, y1, x2, y2
540 real(kind=plflt) :: x, y, z
561 integer(kind=plint) :: lin
601 integer(kind=plint) :: strm
609 integer(kind=plint) :: nlin, inc, del
617 integer(kind=plint) :: n
618 real(kind=plflt) :: x1, y1, x2, y2
646 integer(kind=plint) :: setp,
prec
654 integer(kind=plint) :: patt
670 real(kind=plflt) :: r, g, b
678 integer(kind=plint) :: r, g, b
686 real(kind=plflt) :: r, g, b, h, l, s
694 real(kind=plflt) :: chrdef, chrht
710 integer(kind=plint) :: n
736 integer(kind=plint) :: n
744 real(kind=plflt) :: min_color, max_color
752 integer(kind=plint) :: icol, r, g, b
760 integer(kind=plint) :: icol, r, g, b
761 real(kind=plflt) :: a
769 integer(kind=plint) :: r, g, b
777 integer(kind=plint) :: r, g, b
778 real(kind=plflt) :: a
786 integer(kind=plint) :: color
794 integer(kind=plint) :: compression
802 real(kind=plflt) :: mar, aspect, jx, jy
807 subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
810 real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
818 real(kind=plflt) :: rot
826 real(kind=plflt) :: xmin, xmax, ymin, ymax
834 real(kind=plflt) :: xmin, xmax, ymin, ymax
842 integer(kind=plint) :: s
851 integer(kind=plint) :: esc
864 integer(kind=plint) :: n
865 real(kind=plflt),
dimension(*) :: x, y
875 integer(kind=plint) :: fam, num, bmax
883 integer(kind=plunicode) :: fci
891 integer(kind=plint) :: family, style, weight
898 subroutine labelfunc(axis, value, label, length)
901 integer(kind=plint) :: axis, length
902 real(kind=plflt) ::
value
903 character*(length) label
904 end subroutine labelfunc
911 integer(kind=plint) :: dummy
923 real(kind=plflt) :: def, scale
934 real(kind=plflt) :: def, scale
942 integer(kind=plint) :: rot
947 subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
950 real(kind=plflt) :: xpmm, ypmm
951 integer(kind=plint) :: xwid, ywid, xoff, yoff
963 integer(kind=plint) :: strm
971 integer(kind=plint) :: nx, ny
979 real(kind=plflt) :: def, scale
987 integer(kind=plint) :: nx, ny
994 subroutine transformfunc(x, y, xt, yt)
997 real(kind=plflt) :: x, y, xt, yt
998 end subroutine transformfunc
1005 integer(kind=plint) :: dummy
1017 integer(kind=plint) :: id, pen
1018 real(kind=plflt) :: x, y
1026 integer(kind=plint) :: id
1034 integer(kind=plint) :: n, mark, space
1063 real(kind=plflt) :: xmin, xmax, ymin, ymax
1071 integer(kind=plint) :: digmax, digits
1079 integer(kind=plint) :: digmax, digits
1084 module procedure plsym
1091 integer(kind=plint) :: digmax, digits
1104 real(kind=plflt) :: aspect
1109 subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
1112 real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
1120 real(kind=plflt) :: xmin, xmax, ymin, ymax
1130 subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
1133 real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
1134 end subroutine plw3d
1141 real(kind=plflt) ::
width
1149 real(kind=plflt) :: xmin, xmax, ymin, ymax
1166 if ( logvalue )
then
1174 integer(kind=plint) :: intvalue
1179 real(kind=plflt),
dimension(:) :: x, y
1180 integer(kind=plint) :: center
1182 call plbinf95(
size(x,kind=plint), x, y, center )
1183 end subroutine plbin
1186 opt, position, x, y, &
1187 x_length, y_length, &
1188 bg_color, bb_color, bb_style, &
1189 low_cap_color, high_cap_color, &
1190 cont_color, cont_width, &
1191 n_labels, label_opts, labels, &
1192 n_axes, axis_opts, ticks, sub_ticks, &
1194 real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1195 integer(kind=plint) :: opt, position, bg_color, bb_color, bb_style, cont_color
1196 integer(kind=plint) :: n_labels, n_axes
1197 real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1198 integer(kind=plint),
dimension(:) :: label_opts, sub_ticks, n_values
1199 real (kind=plflt),
dimension(:) :: ticks
1200 real (kind=plflt),
dimension(:,:) :: values
1201 character(len=*),
dimension(:) :: labels, axis_opts
1208 call pllegend07_cnv_text( 3_plint, n_labels, labels )
1209 call pllegend07_cnv_text( 4_plint, n_axes, axis_opts )
1211 call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1212 opt, position, x, y, &
1213 x_length, y_length, &
1214 bg_color, bb_color, bb_style, &
1215 low_cap_color, high_cap_color, &
1216 cont_color, cont_width, &
1217 n_labels, label_opts, n_axes, ticks, sub_ticks, &
1222 opt, position, x, y, &
1223 x_length, y_length, &
1224 bg_color, bb_color, bb_style, &
1225 low_cap_color, high_cap_color, &
1226 cont_color, cont_width, &
1227 label_opts, labels, axis_opts, ticks, sub_ticks, &
1229 real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1230 integer(kind=plint) :: opt, position, bg_color, bb_color, bb_style, cont_color
1231 real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1232 integer(kind=plint),
dimension(:) :: label_opts, sub_ticks, n_values
1233 real (kind=plflt),
dimension(:) :: ticks
1234 real (kind=plflt),
dimension(:,:) :: values
1235 character(len=*),
dimension(:) :: labels, axis_opts
1237 integer(kind=plint) :: n_labels, n_axes
1239 n_labels =
size(label_opts,1,kind=plint)
1240 n_axes =
size(axis_opts,1,kind=plint)
1246 call pllegend07_cnv_text( 3_plint, n_labels, labels )
1247 call pllegend07_cnv_text( 4_plint, n_axes, axis_opts )
1249 call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1250 opt, position, x, y, &
1251 x_length, y_length, &
1252 bg_color, bb_color, bb_style, &
1253 low_cap_color, high_cap_color, &
1254 cont_color, cont_width, &
1255 n_labels, label_opts, n_axes, ticks, sub_ticks, &
1260 integer(kind=plint) :: iplsr
1263 integer(kind=plint) :: iflags
1266 call plcpstrmf95( iplsr, iflags )
1270 real(kind=plflt),
dimension(:) :: xmin, xmax, y
1272 call plerrxf95(
size(xmin,kind=plint), xmin, xmax, y )
1276 real(kind=plflt),
dimension(:) :: x, ymin, ymax
1278 call plerryf95(
size(x,kind=plint), x, ymin, ymax )
1282 real(kind=plflt),
dimension(:) :: x, y
1284 call plfillf95(
size(x,kind=plint), x, y )
1288 real(kind=plflt),
dimension(:) :: x, y, z
1290 call plfill3f95(
size(x,kind=plint), x, y, z )
1294 real(kind=plflt),
dimension(:) :: x, y
1295 real(kind=plflt) :: angle
1297 call plgradientf95(
size(x,kind=plint), x, y, angle )
1301 real(kind=plflt),
dimension(:) :: x, y, z,
xg,
yg
1302 real(kind=plflt),
dimension(:,:) :: zg
1303 real(kind=plflt) :: data
1304 integer(kind=plint) :: type
1306 call plgriddataf95( x, y, z,
size(x,kind=plint),
xg,
size(
xg,kind=plint),
yg,
size(
yg,kind=plint), zg, &
1312 subroutine plhist( data, datmin, datmax, nbin, oldwin )
1313 real(kind=plflt),
dimension(:) :: data
1314 real(kind=plflt) :: datmin, datmax
1315 integer(kind=plint) :: nbin, oldwin
1317 call plhistf95(
size(
data,kind=plint),
data, datmin, datmax, nbin, oldwin )
1335 subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1336 dxmin, dxmax, dymin, dymax )
1337 real(kind=plflt),
dimension(:,:) :: idata
1338 real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1339 real(kind=plflt) :: dxmin, dxmax, dymin, dymax
1341 integer(kind=plint) :: nx, ny
1343 nx =
size(idata,1,kind=plint)
1344 ny =
size(idata,2,kind=plint)
1345 call plimagef95( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1346 dxmin, dxmax, dymin, dymax )
1350 opt, position, x, y, &
1351 plot_width, bg_color, bb_color, bb_style, &
1352 nrow, ncolumn, nlegend, opt_array, &
1353 text_offset, text_scale, text_spacing, &
1354 text_justification, text_colors,
text, &
1355 box_colors, box_patterns, box_scales, &
1357 line_colors, line_styles, line_widths, &
1358 symbol_colors, symbol_scales, &
1359 symbol_numbers, symbols )
1361 real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1362 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1363 integer(kind=plint) :: position, opt, bg_color, bb_color, bb_style
1364 integer(kind=plint) :: nrow, ncolumn, nlegend
1366 character(len=*),
dimension(:) ::
text, symbols
1368 integer(kind=plint),
dimension(:) :: opt_array, text_colors, box_colors
1369 integer(kind=plint),
dimension(:) :: box_patterns
1370 real(kind=plflt),
dimension(:) :: box_line_widths
1371 integer(kind=plint),
dimension(:) :: line_colors, line_styles
1372 real(kind=plflt),
dimension(:) :: line_widths
1373 integer(kind=plint),
dimension(:) :: symbol_colors, symbol_numbers
1374 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1381 call pllegend07_cnv_text( 1_plint, nlegend,
text )
1382 call pllegend07_cnv_text( 2_plint, nlegend, symbols )
1384 call pllegend07( legend_width, legend_height, opt, position, x, y, &
1385 plot_width, bg_color, bb_color, bb_style, &
1386 nrow, ncolumn, nlegend, opt_array, &
1387 text_offset, text_scale, text_spacing, &
1388 text_justification, text_colors, &
1389 box_colors, box_patterns, box_scales, &
1391 line_colors, line_styles, line_widths, &
1392 symbol_colors, symbol_scales, &
1398 opt, position, x, y, &
1399 plot_width, bg_color, bb_color, bb_style, &
1400 nrow, ncolumn, opt_array, &
1401 text_offset, text_scale, text_spacing, &
1402 text_justification, text_colors,
text, &
1403 box_colors, box_patterns, box_scales, &
1405 line_colors, line_styles, line_widths, &
1406 symbol_colors, symbol_scales, &
1407 symbol_numbers, symbols )
1409 real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1410 real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1411 integer(kind=plint) :: position, opt, bg_color, bb_color, bb_style
1412 integer(kind=plint) :: nrow, ncolumn
1414 character(len=*),
dimension(:) ::
text, symbols
1416 integer(kind=plint),
dimension(:) :: opt_array, text_colors, box_colors
1417 integer(kind=plint),
dimension(:) :: box_patterns
1418 real(kind=plflt),
dimension(:) :: box_line_widths
1419 integer(kind=plint),
dimension(:) :: line_colors, line_styles
1420 real(kind=plflt),
dimension(:) :: line_widths
1421 integer(kind=plint),
dimension(:) :: symbol_colors, symbol_numbers
1422 real(kind=plflt),
dimension(:) :: box_scales, symbol_scales
1424 integer(kind=plint) :: nlegend
1429 nlegend =
min(
size(opt_array,kind=plint),
size(
text,kind=plint) )
1431 call
pllegend_1( legend_width, legend_height, &
1432 opt, position, x, y, &
1433 plot_width, bg_color, bb_color, bb_style, &
1434 nrow, ncolumn, nlegend, opt_array, &
1435 text_offset, text_scale, text_spacing, &
1436 text_justification, text_colors,
text, &
1437 box_colors, box_patterns, box_scales, &
1439 line_colors, line_styles, line_widths, &
1440 symbol_colors, symbol_scales, &
1441 symbol_numbers, symbols )
1446 real(kind=plflt),
dimension(:) :: x, y
1448 call pllinef95(
size(x,kind=plint), x, y )
1452 real(kind=plflt),
dimension(:) :: x, y, z
1454 call plline3f95(
size(x,kind=plint), x, y, z )
1457 subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy)
1458 real(kind=plflt) minx, maxx, miny, maxy
1459 character*(*) mapname
1465 s1 = transfer( string1, s1 )
1466 call plmap7(s1,minx,maxx,miny,maxy)
1470 subroutine plmap2(mapname,minx,maxx,miny,maxy)
1471 real(kind=plflt) minx, maxx, miny, maxy
1472 character*(*) mapname
1476 call plclearmapformc()
1477 s1 = transfer( string1, s1 )
1478 call plmap7(s1,minx,maxx,miny,maxy)
1482 subroutine plmapfill1(mapform,mapname,minx,maxx,miny,maxy,plotentries)
1483 real(kind=plflt) minx, maxx, miny, maxy
1484 integer(kind=plint),
dimension(:),
optional :: plotentries
1485 character*(*) mapname
1487 integer(kind=plint),
dimension(1) :: dummy
1492 s1 = transfer( string1, s1 )
1493 if ( present(plotentries) )
then
1494 call plmapfill7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1496 call plmapfill7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1502 real(kind=plflt) minx, maxx, miny, maxy
1503 integer(kind=plint),
dimension(:),
optional :: plotentries
1504 character*(*) mapname
1505 integer(kind=plint),
dimension(1) :: dummy
1509 call plclearmapformc()
1510 s1 = transfer( string1, s1 )
1511 if ( present(plotentries) )
then
1512 call plmapfill7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1514 call plmapfill7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1519 subroutine plmapline1(mapform,mapname,minx,maxx,miny,maxy,plotentries)
1520 real(kind=plflt) minx, maxx, miny, maxy
1521 integer(kind=plint),
dimension(:),
optional :: plotentries
1522 character*(*) mapname
1524 integer(kind=plint),
dimension(1) :: dummy
1529 s1 = transfer( string1, s1 )
1530 if ( present(plotentries) )
then
1531 call plmapline7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1533 call plmapline7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1539 real(kind=plflt) minx, maxx, miny, maxy
1540 integer(kind=plint),
dimension(:),
optional :: plotentries
1541 character*(*) mapname
1542 integer(kind=plint),
dimension(1) :: dummy
1546 call plclearmapformc()
1547 s1 = transfer( string1, s1 )
1548 if ( present(plotentries) )
then
1549 call plmapline7(s1,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1551 call plmapline7(s1,minx,maxx,miny,maxy,dummy,0_plint)
1556 subroutine plmapstring1(mapform,mapname,string,minx,maxx,miny,maxy,plotentries)
1557 real(kind=plflt) minx, maxx, miny, maxy
1558 integer(kind=plint),
dimension(:),
optional :: plotentries
1559 character*(*) mapname,
string
1561 integer(kind=plint),
dimension(1) :: dummy
1567 s1 = transfer( string1, s1 )
1568 s2 = transfer( string2, s2 )
1569 if ( present(plotentries) )
then
1570 call plmapstring7(s1,s2,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1572 call plmapstring7(s1,s2,minx,maxx,miny,maxy,dummy,0_plint)
1578 real(kind=plflt) minx, maxx, miny, maxy
1579 integer(kind=plint),
dimension(:),
optional :: plotentries
1580 character*(*) mapname,
string
1581 integer(kind=plint),
dimension(1) :: dummy
1586 call plclearmapformc()
1587 s1 = transfer( string1, s1 )
1588 s2 = transfer( string2, s2 )
1589 if ( present(plotentries) )
then
1590 call plmapstring7(s1,s2,minx,maxx,miny,maxy,plotentries,
size(plotentries,kind=plint))
1592 call plmapstring7(s1,s2,minx,maxx,miny,maxy,dummy,0_plint)
1597 subroutine plmaptex1(mapform,mapname,dx,dy,just,text,minx,maxx,miny,maxy,plotentry)
1598 real(kind=plflt) dx, dy, just, minx, maxx, miny, maxy
1599 integer(kind=plint) :: plotentry
1600 character*(*) mapname,
text
1602 integer(kind=plint) :: dummy
1608 s1 = transfer( string1, s1 )
1609 s2 = transfer( string2, s2 )
1610 call plmaptex7(s1,dx,dy,just,s2,minx,maxx,miny,maxy,plotentry)
1614 subroutine plmaptex2(mapname,dx,dy,just,text,minx,maxx,miny,maxy,plotentry)
1615 real(kind=plflt) dx, dy, just, minx, maxx, miny, maxy
1616 integer(kind=plint) :: plotentry
1617 character*(*) mapname,
text
1618 integer(kind=plint) :: dummy
1623 call plclearmapformc()
1624 s1 = transfer( string1, s1 )
1625 s2 = transfer( string2, s2 )
1626 call plmaptex7(s1,dx,dy,just,s2,minx,maxx,miny,maxy,plotentry)
1633 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1637 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1644 real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1646 call plclearmapformc
1647 call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1652 integer(kind=plint) :: opt
1653 real(kind=plflt),
dimension(:) :: x, y
1654 real(kind=plflt),
dimension(:,:) :: z
1656 call plmeshf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt,
size(x,kind=plint))
1661 integer(kind=plint) :: opt
1662 real(kind=plflt),
dimension(:) :: x, y, clevel
1663 real(kind=plflt),
dimension(:,:) :: z
1665 call plmeshcf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, &
1666 clevel,
size(clevel,kind=plint),
size(x,kind=plint))
1671 integer(kind=plint) :: opt
1673 real(kind=plflt),
dimension(:) :: x, y
1674 real(kind=plflt),
dimension(:,:) :: z
1675 integer(kind=plint) :: iside
1678 call plot3df95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, iside,
size(x,kind=plint))
1683 integer(kind=plint) :: opt
1684 real(kind=plflt),
dimension(:) :: x, y, clevel
1685 real(kind=plflt),
dimension(:,:) :: z
1687 call plot3dcf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1688 size(clevel,kind=plint),
size(x,kind=plint))
1695 integer(kind=plint) :: ipause
1698 call plspausef95( ipause )
1702 integer(kind=plint) :: opt
1703 real(kind=plflt),
dimension(:) :: x, y, clevel
1704 real(kind=plflt),
dimension(:,:) :: z
1706 call plsurf3df95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1707 size(clevel,kind=plint),
size(x,kind=plint))
1711 subroutine plsurf3dl( x, y, z, opt, clevel, indexxmin, indexxmax, indexymin, indexymax )
1712 integer(kind=plint) :: opt
1713 real(kind=plflt),
dimension(:) :: x, y, clevel
1714 real(kind=plflt),
dimension(:,:) :: z
1715 integer(kind=plint) :: indexxmin, indexxmax
1716 integer(kind=plint),
dimension(:) :: indexymin, indexymax
1718 integer(kind=plint),
dimension(size(x)) :: indexyminm1, indexymaxm1
1720 indexyminm1 = indexymin - 1
1721 indexymaxm1 = indexymax - 1
1723 call plsurf3dlf95( x, y, z,
size(x,kind=plint),
size(y,kind=plint), opt, clevel, &
1724 size(clevel,kind=plint),
size(x,kind=plint), indexxmin-1, indexxmax-1, indexyminm1, indexymaxm1 )
1729 integer(kind=plint) :: code
1730 real(kind=plflt),
dimension(:) :: x, y
1732 call plpoinf95(
size(x,kind=plint), x, y, code )
1736 integer(kind=plint) :: code
1737 real(kind=plflt),
dimension(:) :: x, y, z
1739 call plpoin3f95(
size(x,kind=plint), x, y, z, code )
1744 logical,
dimension(:) :: draw
1745 real(kind=plflt),
dimension(:) :: x, y, z
1747 integer(kind=plint),
dimension(size(draw,kind=plint)) :: idraw
1748 integer(kind=plint) :: i
1749 integer(kind=plint) :: iifcc
1752 do i = 1_plint,
size(draw,kind=plint)
1755 call plpoly3f95(
size(x,kind=plint), x, y, z, idraw, iifcc )
1760 real(kind=plflt) :: plranddf95
1766 integer(kind=plint),
dimension(:) :: r, g, b
1768 call plscmap0f95( r, g, b,
size(r,kind=plint) )
1772 integer(kind=plint),
dimension(:) :: r, g, b
1773 real(kind=plflt),
dimension(:) :: a
1775 call plscmap0af95( r, g, b, a,
size(r,kind=plint) )
1779 integer(kind=plint),
dimension(:) :: r, g, b
1781 call plscmap1f95( r, g, b,
size(r,kind=plint) )
1785 integer(kind=plint),
dimension(:) :: r, g, b
1786 real(kind=plflt),
dimension(:) :: a
1788 call plscmap1af95( r, g, b, a,
size(r,kind=plint) )
1791 subroutine plscmap1l( rgbtype, intensity, coord1, coord2, coord3, alt_hue_path)
1793 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1794 logical,
dimension(:) :: alt_hue_path
1796 integer(kind=plint),
dimension(size(alt_hue_path,kind=plint)) :: ialt_hue_path
1797 integer(kind=plint) :: i
1798 integer(kind=plint) :: type
1801 do i = 1_plint,
size(alt_hue_path,kind=plint)
1804 call plscmap1lf95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, ialt_hue_path )
1807 subroutine plscmap1l2( rgbtype, intensity, coord1, coord2, coord3)
1809 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3
1811 integer(kind=plint) :: type
1814 call plscmap1l2f95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3)
1817 subroutine plscmap1la( rgbtype, intensity, coord1, coord2, coord3, a, alt_hue_path)
1819 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1820 logical,
dimension(:) :: alt_hue_path
1822 integer(kind=plint),
dimension(size(alt_hue_path,kind=plint)) :: ialt_hue_path
1823 integer(kind=plint) :: i
1824 integer(kind=plint) :: type
1827 do i = 1_plint,
size(alt_hue_path,kind=plint)
1830 call plscmap1laf95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, a, ialt_hue_path )
1833 subroutine plscmap1la2( rgbtype, intensity, coord1, coord2, coord3, a)
1835 real(kind=plflt),
dimension(:) :: intensity, coord1, coord2, coord3, a
1837 integer(kind=plint) :: type
1840 call plscmap1la2f95( type,
size(intensity,kind=plint), intensity, coord1, coord2, coord3, a)
1843 subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump, &
1844 ymin, ymax, xlpos, ylpos, y_ascl, acc, &
1845 colbox, collab, colline, styline, legline, &
1848 integer(kind=plint) id, colbox, collab, colline(4), styline(4)
1849 character*(*) xspec, yspec, legline(4), labx, laby, labtop
1850 real(kind=plflt) xmin, xmax, xjump, ymin, ymax, xlpos, ylpos
1852 integer(kind=plint) iy_ascl, iacc
1868 s1 = transfer( string1, s1 )
1869 s2 = transfer( string2, s2 )
1871 s4 = transfer( string4, s4 )
1872 s5 = transfer( string5, s5 )
1873 s6 = transfer( string6, s6 )
1874 s7 = transfer( string7, s7 )
1875 s8 = transfer( string8, s8 )
1876 s9 = transfer( string9, s9 )
1877 call plstripcf95(id, s1, s2, xmin, xmax, xjump, &
1878 ymin, ymax, xlpos, ylpos, iy_ascl, iacc, &
1879 colbox, collab, colline, styline, &
1887 real(kind=plflt),
dimension(:) :: arrowx, arrowy
1888 integer(kind=plint) ifill
1891 call plsvect1f95( arrowx, arrowy,
size(arrowx,kind=plint), ifill )
1895 integer(kind=plint) :: code
1896 real(kind=plflt),
dimension(:) :: x, y
1898 call plsymf95(
size(x,kind=plint), x, y, code )
1899 end subroutine plsym
1902 logical :: mode, status
1903 integer(kind=plint) :: imode, istatus
1905 call plxormodf95( imode, istatus)