42 character*(*) opt, optarg
48 call plsetopt7(
s1,
s2)
130 subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
133 real(kind=plflt) x0, y0, xtick, ytick
135 character*(*) xopt,yopt
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
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
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(:)
321 call plstring7(n,
x,
y,
s1)
330 real(kind=plflt) x(:),
y(:), z(:)
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
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(:)
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(:,:)
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)
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*(*)
511 real(kind=plflt) clevel(:)
512 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
517 call plshades07(z,
size(z,1),
size(z,2),
s1, &
518 xmin, xmax, ymin, ymax, &
519 clevel,
size(clevel), fill_width, &
527 xmin, xmax, ymin, ymax, &
528 clevel, fill_width, &
532 character defined*(*)
535 real(kind=plflt) clevel(:)
536 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
542 call plshades17(z,
size(z,1),
size(z,2),
s1, &
543 xmin, xmax, ymin, ymax, &
544 clevel,
size(clevel), fill_width, &
552 xmin, xmax, ymin, ymax, &
553 clevel, fill_width, &
557 character defined*(*)
560 real(kind=plflt) clevel(:)
561 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
567 call plshades27(z,
size(z,1),
size(z,2),
s1, &
568 xmin, xmax, ymin, ymax, &
569 clevel,
size(clevel), fill_width, &
577 xmin, xmax, ymin, ymax, &
578 clevel, fill_width, &
582 character defined*(*)
585 real(kind=plflt) clevel(:)
586 real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
587 real(kind=plflt) tr(6)
592 call plshades7(z,
size(z,1),
size(z,2),
s1, &
593 xmin, xmax, ymin, ymax, &
594 clevel,
size(clevel), fill_width, &
605 real(kind=plflt) z(:,:)
606 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
608 call plimagefr07(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
609 valuemin,valuemax,
size(z,1))
616 valuemin,valuemax,
xg,
yg)
619 real(kind=plflt) z(:,:),
xg(:),
yg(:)
620 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
622 call plimagefr17(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
623 valuemin,valuemax,
xg,
yg,
size(z,1))
630 valuemin,valuemax,
xg,
yg)
633 real(kind=plflt) z(:,:),
xg(:,:),
yg(:,:)
634 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
636 call plimagefr27(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
637 valuemin,valuemax,
xg,
yg,
size(z,1))
644 valuemin,valuemax,tr)
647 real(kind=plflt) z(:,:)
648 real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
649 real(kind=plflt) tr(6)
651 call plimagefr7(z,
size(z,1),
size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
652 valuemin,valuemax,tr,
size(z,1))
661 character*(*) xlab,ylab,title
679 character*(*) filename
693 character*(*) filename
699 call plspal17(
s1,interpolate)
705 subroutine plmtex(side,disp,pos,xjust,text)
708 real(kind=plflt) disp, pos, xjust
709 character*(*) side,
text
716 call plmtex7(
s1,disp,pos,xjust,
s2)
725 real(kind=plflt) disp, pos, xjust
726 character*(*) side,
text
733 call plmtex37(
s1,disp,pos,xjust,
s2)
742 real(kind=plflt) x,
y, dx, dy, xjust
748 call plptex7(
x,
y,dx,dy,xjust,
s1)
754 subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
757 real(kind=plflt) x,
y, z, dx, dy, dz, sx, sy, sz, xjust
763 call plptex37(
x,
y,z,dx,dy,dz,sx,sy,sz,xjust,
s1)
772 character*(*) devname
subroutine plstrc2f(string1, string2)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string4
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT nx
subroutine plshades_multiple_2(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, xg2, yg2)
subroutine plcontour_2(z, kx, lx, ky, ly, clevel, xg, yg)
subroutine plcontour_tr_all(z, clevel, tr)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s1(80)
subroutine plshade_single_tr(z, defined, xmin, xmax, ymin, ymax, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width, tr)
subroutine plimagefr_tr(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, tr)
subroutine plvectors_tr(u, v, scale, tr)
subroutine plimagefr_1(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xg, yg)
void PLFLT PLINT PLINT PLFLT x
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s2
subroutine plshade_single_2(z, defined, xmin, xmax, ymin, ymax, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width, xg, yg)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string2 string4 s6
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string1
subroutine plshades_multiple_1(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, xg1, yg1)
subroutine plcontour_tr(z, kx, lx, ky, ly, clevel, tr)
subroutine plvectors_0(u, v, scale)
subroutine plimagefr_2(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xg, yg)
subroutine plvectors_1(u, v, scale, xg, yg)
void PLFLT PLINT PLINT PLFLT PLFLT y
subroutine plimagefr_0(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax)
subroutine plshades_multiple_0(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s5(80)
subroutine plshades_multiple_tr(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, tr)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT cont_color
subroutine plshade_single_1(z, defined, xmin, xmax, ymin, ymax, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width, xg, yg)
subroutine plvectors_2(u, v, scale, xg, yg)
void plabort(const char *errormsg)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string2
subroutine plcontour_1(z, kx, lx, ky, ly, clevel, xg, yg)
subroutine plcontour_0_all(z, clevel)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string2 s4
subroutine plcontour_1_all(z, clevel, xg, yg)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s3(80)
subroutine plcontour_0(z, kx, lx, ky, ly, clevel)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT cont_width
void string3(PLINT n, const PLFLT *x, const PLFLT *y, const PLFLT *z, const char *string)
subroutine plstrf2c(string1, string2, maxlen)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string5
subroutine plshade_single_0(z, defined, xmin, xmax, ymin, ymax, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width)
void string(PLINT n, const PLFLT *x, const PLFLT *y, const char *string)
subroutine plcontour_2_all(z, clevel, xg, yg)