42 character*(*) opt, optarg
46 s1 = transfer( string1, s1 )
47 s2 = transfer( string2, s2 )
48 call plsetopt7(s1, s2)
60 s1 = transfer( string1, s1 )
73 s1 = transfer( string1, s1 )
98 s1 = transfer( string1, s1 )
110 call plgfnam7(string1)
123 string1 = transfer( s1, string1 )
130 subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
133 real(kind=plflt) x0, y0, xtick, ytick
135 character*(*) xopt,yopt
140 s1 = transfer( string1, s1 )
141 s2 = transfer( string2, s2 )
142 call plaxes7(x0,y0,s1,xtick,nxsub,s2,ytick,nysub)
148 subroutine plbox(xopt,xtick,nxsub,yopt,ytick,nysub)
151 real(kind=plflt) xtick, ytick
153 character*(*) xopt,yopt
158 s1 = transfer( string1, s1 )
159 s2 = transfer( string2, s2 )
160 call plbox7(s1,xtick,nxsub,s2,ytick,nysub)
166 subroutine plbox3(xopt,xlabel,xtick,nxsub,yopt,ylabel,ytick,nysub, &
167 zopt,zlabel,ztick,nzsub)
170 real(kind=plflt) xtick, ytick, ztick
171 character*(*) xopt,xlabel,yopt,ylabel,zopt,zlabel
172 integer nxsub, nysub, nzsub
181 s1 = transfer( string1, s1 )
182 s2 = transfer( string2, s2 )
184 s4 = transfer( string4, s4 )
185 s5 = transfer( string5, s5 )
186 s6 = transfer( string6, s6 )
187 call plbox37(s1,s2,xtick,nxsub, &
198 integer kx, lx, ky, ly
199 real(kind=plflt) z(:,:), clevel(:)
201 call plcon07(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel))
210 integer kx, lx, ky, ly
211 real(kind=plflt) z(:,:),
xg(:),
yg(:), clevel(:)
213 call plcon17(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),
xg,
yg)
222 integer kx, lx, ky, ly
223 real(kind=plflt) z(:,:),
xg(:,:),
yg(:,:), clevel(:)
225 call plcon27(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),
xg,
yg)
234 integer kx, lx, ky, ly
235 real(kind=plflt) z(:,:), clevel(:)
236 real(kind=plflt) tr(6)
238 call plcont7(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),tr)
247 integer kx, lx, ky, ly
248 real(kind=plflt) z(:,:), clevel(:)
254 call plcon07(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel))
263 integer kx, lx, ky, ly
264 real(kind=plflt) z(:,:),
xg(:),
yg(:), clevel(:)
270 call plcon17(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),
xg,
yg)
279 integer kx, lx, ky, ly
280 real(kind=plflt) z(:,:),
xg(:,:),
yg(:,:), clevel(:)
286 call plcon27(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),
xg,
yg)
295 integer kx, lx, ky, ly
296 real(kind=plflt) z(:,:), clevel(:)
297 real(kind=plflt) tr(6)
303 call plcont7(z,
size(z,1),
size(z,2),kx,lx,ky,ly,clevel,
size(clevel),tr)
312 real(kind=plflt) x(:),
y(:)
320 s1 = transfer( string1, s1 )
321 call plstring7(n,
x,
y,s1)
330 real(kind=plflt) x(:),
y(:), z(:)
338 s1 = transfer( string1, s1 )
339 call plstring37(n,
x,
y,z,s1)
348 real(kind=plflt) u(:,:), v(:,:), scale
350 call plvec07(u,v,
size(u,1),
size(u,2),scale)
359 real(kind=plflt) u(:,:), v(:,:),
xg(:),
yg(:), scale
361 call plvec17(u,v,
size(u,1),
size(u,2),scale,
xg,
yg)
370 real(kind=plflt) u(:,:), v(:,:),
xg(:,:),
yg(:,:), &
373 call plvec27(u,v,
size(u,1),
size(u,2),scale,
xg,
yg)
382 real(kind=plflt) u(:,:), v(:,:), scale
383 real(kind=plflt) tr(6)
385 call plvect7(u,v,
size(u,1),
size(u,2),scale,tr)
392 xmin, xmax, ymin, ymax, &
393 shade_min, shade_max, &
394 sh_cmap, sh_color, sh_width, &
395 min_color, min_width, max_color, max_width)
398 character defined*(*)
400 integer min_color, max_color
401 real(kind=plflt) sh_width, min_width, max_width
402 real(kind=plflt) shade_min, shade_max, sh_color
403 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
407 s1 = transfer( string1, s1 )
408 call plshade07(z,
size(z,1),
size(z,2), s1, &
409 xmin, xmax, ymin, ymax, &
410 shade_min, shade_max, &
411 sh_cmap, sh_color, sh_width, &
412 min_color, min_width, max_color, max_width,
size(z,1))
419 xmin, xmax, ymin, ymax, &
420 shade_min, shade_max, &
421 sh_cmap, sh_color, sh_width, &
422 min_color, min_width, max_color, max_width, &
426 character defined*(*)
428 integer min_color, max_color
429 real(kind=plflt) sh_width, min_width, max_width
430 real(kind=plflt) shade_min, shade_max, sh_color
431 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax,
xg(:),
yg(:)
435 s1 = transfer( string1, s1 )
436 call plshade17(z,
size(z,1),
size(z,2), s1, &
437 xmin, xmax, ymin, ymax, &
438 shade_min, shade_max, &
439 sh_cmap, sh_color, sh_width, &
440 min_color, min_width, max_color, max_width, &
448 xmin, xmax, ymin, ymax, &
449 shade_min, shade_max, &
450 sh_cmap, sh_color, sh_width, &
451 min_color, min_width, max_color, max_width, &
455 character defined*(*)
457 integer min_color, max_color
458 real(kind=plflt) sh_width, min_width, max_width
459 real(kind=plflt) shade_min, shade_max, sh_color
460 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax,
xg(:,:),
yg(:,:)
464 s1 = transfer( string1, s1 )
465 call plshade27(z,
size(z,1),
size(z,2), s1, &
466 xmin, xmax, ymin, ymax, &
467 shade_min, shade_max, &
468 sh_cmap, sh_color, sh_width, &
469 min_color, min_width, max_color, max_width, &
477 xmin, xmax, ymin, ymax, &
478 shade_min, shade_max, &
479 sh_cmap, sh_color, sh_width, &
480 min_color, min_width, max_color, max_width, tr)
483 character(len=*) defined
485 integer min_color, max_color
486 real(kind=plflt) sh_width, min_width, max_width
487 real(kind=plflt) shade_min, shade_max, sh_color
488 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
489 real(kind=plflt) tr(6)
491 s1 = transfer( string1, s1 )
492 call plshade7(z,
size(z,1),
size(z,2), s1, &
493 xmin, xmax, ymin, ymax, &
494 shade_min, shade_max, &
495 sh_cmap, sh_color, sh_width, &
496 min_color, min_width, max_color, max_width, tr,
size(z,1))
503 xmin, xmax, ymin, ymax, &
504 clevel, fill_width, &
508 character defined*(*)
510 logical,
optional :: rectangular
512 real(kind=plflt) clevel(:)
513 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
520 if ( present(rectangular) )
then
521 rect =
merge( 1, 0, rectangular )
524 s1 = transfer( string1, s1 )
525 call plshades07(z,
size(z,1),
size(z,2), s1, &
526 xmin, xmax, ymin, ymax, &
527 clevel,
size(clevel), fill_width, &
535 xmin, xmax, ymin, ymax, &
536 clevel, fill_width, &
540 character defined*(*)
543 real(kind=plflt) clevel(:)
544 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
553 s1 = transfer( string1, s1 )
554 call plshades17(z,
size(z,1),
size(z,2), s1, &
555 xmin, xmax, ymin, ymax, &
556 clevel,
size(clevel), fill_width, &
564 xmin, xmax, ymin, ymax, &
565 clevel, fill_width, &
569 character defined*(*)
573 real(kind=plflt) clevel(:)
574 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
581 rect =
merge( 1, 0, rectangular )
583 s1 = transfer( string1, s1 )
584 call plshades17(z,
size(z,1),
size(z,2), s1, &
585 xmin, xmax, ymin, ymax, &
586 clevel,
size(clevel), fill_width, &
594 xmin, xmax, ymin, ymax, &
595 clevel, fill_width, &
599 character defined*(*)
602 real(kind=plflt) clevel(:)
603 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
612 s1 = transfer( string1, s1 )
613 call plshades27(z,
size(z,1),
size(z,2), s1, &
614 xmin, xmax, ymin, ymax, &
615 clevel,
size(clevel), fill_width, &
623 xmin, xmax, ymin, ymax, &
624 clevel, fill_width, &
628 character defined*(*)
632 real(kind=plflt) clevel(:)
633 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
638 rect =
merge( 1, 0, rectangular )
642 s1 = transfer( string1, s1 )
643 call plshades27(z,
size(z,1),
size(z,2), s1, &
644 xmin, xmax, ymin, ymax, &
645 clevel,
size(clevel), fill_width, &
653 xmin, xmax, ymin, ymax, &
654 clevel, fill_width, &
658 character defined*(*)
661 real(kind=plflt) clevel(:)
662 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
663 real(kind=plflt) tr(6)
671 s1 = transfer( string1, s1 )
672 call plshades7(z,
size(z,1),
size(z,2), s1, &
673 xmin, xmax, ymin, ymax, &
674 clevel,
size(clevel), fill_width, &
682 xmin, xmax, ymin, ymax, &
683 clevel, fill_width, &
687 character defined*(*)
691 real(kind=plflt) clevel(:)
692 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
693 real(kind=plflt) tr(6)
699 rect =
merge(1, 0, rectangular)
701 s1 = transfer( string1, s1 )
702 call plshades7(z,
size(z,1),
size(z,2), s1, &
703 xmin, xmax, ymin, ymax, &
704 clevel,
size(clevel), fill_width, &
715 real(kind=plflt) z(:,:)
716 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
718 call plimagefr07(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
719 valuemin,valuemax,
size(z,1))
726 valuemin,valuemax,
xg,
yg)
729 real(kind=plflt) z(:,:),
xg(:),
yg(:)
730 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
732 call plimagefr17(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
733 valuemin,valuemax,
xg,
yg,
size(z,1))
740 valuemin,valuemax,
xg,
yg)
743 real(kind=plflt) z(:,:),
xg(:,:),
yg(:,:)
744 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
746 call plimagefr27(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
747 valuemin,valuemax,
xg,
yg,
size(z,1))
754 valuemin,valuemax,tr)
757 real(kind=plflt) z(:,:)
758 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
759 real(kind=plflt) tr(6)
761 call plimagefr7(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
762 valuemin,valuemax,tr,
size(z,1))
771 character*(*) xlab,ylab,title
777 s1 = transfer( string1, s1 )
778 s2 = transfer( string2, s2 )
780 call pllab7(s1,s2,s3)
789 character*(*) filename
793 s1 = transfer( string1, s1 )
803 character*(*) filename
808 s1 = transfer( string1, s1 )
809 call plspal17(s1,interpolate)
815 subroutine plmtex(side,disp,pos,xjust,text)
818 real(kind=plflt) disp, pos, xjust
819 character*(*) side,
text
824 s1 = transfer( string1, s1 )
825 s2 = transfer( string2, s2 )
826 call plmtex7(s1,disp,pos,xjust,s2)
835 real(kind=plflt) disp, pos, xjust
836 character*(*) side,
text
841 s1 = transfer( string1, s1 )
842 s2 = transfer( string2, s2 )
843 call plmtex37(s1,disp,pos,xjust,s2)
852 real(kind=plflt) x,
y, dx, dy, xjust
857 s1 = transfer( string1, s1 )
858 call plptex7(
x,
y,dx,dy,xjust,s1)
864 subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
867 real(kind=plflt) x,
y, z, dx, dy, dz, sx, sy, sz, xjust
872 s1 = transfer( string1, s1 )
873 call plptex37(
x,
y,z,dx,dy,dz,sx,sy,sz,xjust,s1)
882 character*(*) devname
887 s1 = transfer( string1, s1 )
888 call plstart7(s1,
nx, ny)
900 s1 = transfer( string1, s1 )