PLplot  5.10.0
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
sfstubs.f90
Go to the documentation of this file.
1 !***********************************************************************
2 ! $Id: sfstubs.f90 12836 2013-12-09 19:33:53Z arjenmarkus $
3 ! sfstubs.f
4 !
5 ! Copyright (C) 2004 Alan W. Irwin
6 !
7 ! This file is part of PLplot.
8 !
9 ! PLplot is free software; you can redistribute it and/or modify
10 ! it under the terms of the GNU Library General Public License as published
11 ! by the Free Software Foundation; either version 2 of the License, or
12 ! (at your option) any later version.
13 !
14 ! PLplot is distributed in the hope that it will be useful,
15 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ! GNU Library General Public License for more details.
18 !
19 ! You should have received a copy of the GNU Library General Public License
20 ! along with PLplot; if not, write to the Free Software
21 ! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 !
23 !
24 ! This file contains the more complicated fortran stub routines
25 ! that the more generic scstubs.c cannot handle.
26 ! Typical stubs here must convert a fortran character string
27 ! to C or vice versa.
28 ! N.B. the called routines (that are defined in scstubs.c) have
29 ! a suffix of '7' to avoid name clashes and also presumably as a
30 ! signal in scstubs.c that they were called from these routines.
31 ! Where arguments are floating-point we explicitly type them as real(kind=plflt).
32 ! This typing is never used since these arguments are
33 ! actually passed by reference. That implies these routines should
34 ! work if the calling routine and libplplot itself are both
35 ! double precision or both single precision.
36 !
37 !***********************************************************************
38 
39  subroutine plsetopt(opt, optarg)
40 
41  implicit none
42  character*(*) opt, optarg
43 
44  call plstrf2c(opt, string1)
45  call plstrf2c(optarg, string2)
46  s1 = transfer( string1, s1 )
47  s2 = transfer( string2, s2 )
48  call plsetopt7(s1, s2)
49 
50  end subroutine
51 
52 !***********************************************************************
53 
54  subroutine plabort(text)
55 
56  implicit none
57  character*(*) text
58 
59  call plstrf2c(text, string1)
60  s1 = transfer( string1, s1 )
61  call plabort7(s1)
62 
63  end subroutine
64 
65 !***********************************************************************
66 
67  subroutine plsdev(dnam)
68 
69  implicit none
70  character*(*) dnam
71 
72  call plstrf2c(dnam, string1)
73  s1 = transfer( string1, s1 )
74  call plsdev7(s1)
75 
76  end subroutine
77 
78 !***********************************************************************
79 
80  subroutine plgdev(dnam)
81 
82  implicit none
83  character*(*) dnam
84 
85  call plgdev7(string1)
86  call plstrc2f(string1, dnam)
87 
88  end subroutine
89 
90 !***********************************************************************
91 
92  subroutine plsfnam(fnam)
93 
94  implicit none
95  character*(*) fnam
96 
97  call plstrf2c(fnam, string1)
98  s1 = transfer( string1, s1 )
99  call plsfnam7(s1)
100 
101  end subroutine
102 
103 !***********************************************************************
104 
105  subroutine plgfnam(fnam)
106 
107  implicit none
108  character*(*) fnam
109 
110  call plgfnam7(string1)
111  call plstrc2f(string1, fnam)
112 
113  end subroutine
114 
115 !***********************************************************************
116 
117  subroutine plgver(ver)
118 
119  implicit none
120  character*(*) ver
121 
122  call plgver7(s1)
123  string1 = transfer( s1, string1 )
124  call plstrc2f(string1, ver)
125 
126  end subroutine
127 
128 !***********************************************************************
129 
130  subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
131 
132  implicit none
133  real(kind=plflt) x0, y0, xtick, ytick
134  integer nxsub, nysub
135  character*(*) xopt,yopt
136 
137  call plstrf2c(xopt, string1)
138  call plstrf2c(yopt, string2)
139 
140  s1 = transfer( string1, s1 )
141  s2 = transfer( string2, s2 )
142  call plaxes7(x0,y0,s1,xtick,nxsub,s2,ytick,nysub)
143 
144  end subroutine
145 
146 !***********************************************************************
147 
148  subroutine plbox(xopt,xtick,nxsub,yopt,ytick,nysub)
149 
150  implicit none
151  real(kind=plflt) xtick, ytick
152  integer nxsub, nysub
153  character*(*) xopt,yopt
154 
155  call plstrf2c(xopt, string1)
156  call plstrf2c(yopt, string2)
157 
158  s1 = transfer( string1, s1 )
159  s2 = transfer( string2, s2 )
160  call plbox7(s1,xtick,nxsub,s2,ytick,nysub)
161 
162  end subroutine
163 
164 !***********************************************************************
165 
166  subroutine plbox3(xopt,xlabel,xtick,nxsub,yopt,ylabel,ytick,nysub, &
167  zopt,zlabel,ztick,nzsub)
168 
169  implicit none
170  real(kind=plflt) xtick, ytick, ztick
171  character*(*) xopt,xlabel,yopt,ylabel,zopt,zlabel
172  integer nxsub, nysub, nzsub
173 
174  call plstrf2c(xopt, string1)
175  call plstrf2c(xlabel, string2)
176  call plstrf2c(yopt, string3)
177  call plstrf2c(ylabel, string4)
178  call plstrf2c(zopt, string5)
179  call plstrf2c(zlabel, string6)
180 
181  s1 = transfer( string1, s1 )
182  s2 = transfer( string2, s2 )
183  s3 = transfer( string3, s3 )
184  s4 = transfer( string4, s4 )
185  s5 = transfer( string5, s5 )
186  s6 = transfer( string6, s6 )
187  call plbox37(s1,s2,xtick,nxsub, &
188  s3,s4,ytick,nysub, &
189  s5,s6,ztick,nzsub)
190 
191  end subroutine
192 
193 !***********************************************************************
194 
195  subroutine plcontour_0(z,kx,lx,ky,ly,clevel)
196 
197  implicit none
198  integer kx, lx, ky, ly
199  real(kind=plflt) z(:,:), clevel(:)
200 
201  call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
202 
203  end subroutine
204 
205 !***********************************************************************
206 
207  subroutine plcontour_1(z,kx,lx,ky,ly,clevel,xg,yg)
208 
209  implicit none
210  integer kx, lx, ky, ly
211  real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
212 
213  call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
214 
215  end subroutine
216 
217 !***********************************************************************
218 
219  subroutine plcontour_2(z,kx,lx,ky,ly,clevel,xg,yg)
220 
221  implicit none
222  integer kx, lx, ky, ly
223  real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
224 
225  call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
226 
227  end subroutine
228 
229 !***********************************************************************
230 
231  subroutine plcontour_tr(z,kx,lx,ky,ly,clevel,tr)
232 
233  implicit none
234  integer kx, lx, ky, ly
235  real(kind=plflt) z(:,:), clevel(:)
236  real(kind=plflt) tr(6)
237 
238  call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
239 
240  end subroutine
241 
242 !***********************************************************************
243 
244  subroutine plcontour_0_all(z,clevel)
245 
246  implicit none
247  integer kx, lx, ky, ly
248  real(kind=plflt) z(:,:), clevel(:)
249 
250  kx = 1
251  lx = size(z,1)
252  ky = 1
253  ly = size(z,2)
254  call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
255 
256  end subroutine
257 
258 !***********************************************************************
259 
260  subroutine plcontour_1_all(z,clevel,xg,yg)
261 
262  implicit none
263  integer kx, lx, ky, ly
264  real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
265 
266  kx = 1
267  lx = size(z,1)
268  ky = 1
269  ly = size(z,2)
270  call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
271 
272  end subroutine
273 
274 !***********************************************************************
275 
276  subroutine plcontour_2_all(z,clevel,xg,yg)
277 
278  implicit none
279  integer kx, lx, ky, ly
280  real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
281 
282  kx = 1
283  lx = size(z,1)
284  ky = 1
285  ly = size(z,2)
286  call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
287 
288  end subroutine
289 
290 !***********************************************************************
291 
292  subroutine plcontour_tr_all(z,clevel,tr)
293 
294  implicit none
295  integer kx, lx, ky, ly
296  real(kind=plflt) z(:,:), clevel(:)
297  real(kind=plflt) tr(6)
298 
299  kx = 1
300  lx = size(z,1)
301  ky = 1
302  ly = size(z,2)
303  call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
304 
305  end subroutine
306 
307 !***********************************************************************
308 
309  subroutine plstring(x,y,string)
310 
311  implicit none
312  real(kind=plflt) x(:), y(:)
313  character(len=*) string
314 
315  integer n
316 
317  n = size(x)
318 
319  call plstrf2c(string, string1)
320  s1 = transfer( string1, s1 )
321  call plstring7(n,x,y,s1)
322 
323  end subroutine
324 
325 !***********************************************************************
326 
327  subroutine plstring3(x,y,z,string)
328 
329  implicit none
330  real(kind=plflt) x(:), y(:), z(:)
331  character(len=*) string
332 
333  integer n
334 
335  n = size(x)
336 
337  call plstrf2c(string, string1)
338  s1 = transfer( string1, s1 )
339  call plstring37(n,x,y,z,s1)
340 
341  end subroutine
342 
343 !***********************************************************************
344 
345  subroutine plvectors_0(u, v, scale)
346 
347  implicit none
348  real(kind=plflt) u(:,:), v(:,:), scale
349 
350  call plvec07(u,v,size(u,1),size(u,2),scale)
351 
352  end subroutine
353 
354 !***********************************************************************
355 
356  subroutine plvectors_1(u, v, scale, xg, yg)
357 
358  implicit none
359  real(kind=plflt) u(:,:), v(:,:), xg(:), yg(:), scale
360 
361  call plvec17(u,v,size(u,1),size(u,2),scale,xg,yg)
362 
363  end subroutine
364 
365 !***********************************************************************
366 
367  subroutine plvectors_2(u, v, scale, xg, yg)
368 
369  implicit none
370  real(kind=plflt) u(:,:), v(:,:), xg(:,:), yg(:,:), &
371  scale
372 
373  call plvec27(u,v,size(u,1),size(u,2),scale,xg,yg)
374 
375  end subroutine
376 
377 !***********************************************************************
378 
379  subroutine plvectors_tr(u, v, scale, tr)
380 
381  implicit none
382  real(kind=plflt) u(:,:), v(:,:), scale
383  real(kind=plflt) tr(6)
384 
385  call plvect7(u,v,size(u,1),size(u,2),scale,tr)
386 
387  end subroutine
388 
389 !***********************************************************************
390 
391  subroutine plshade_single_0(z, defined, &
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)
396 
397  implicit none
398  character defined*(*)
399  integer sh_cmap
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
404 
405 ! call plstrf2c(dnam, string1)
406 
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))
413 
414  end subroutine
415 
416 !***********************************************************************
417 
418  subroutine plshade_single_1(z, defined, &
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, &
423  xg, yg )
424 
425  implicit none
426  character defined*(*)
427  integer sh_cmap
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(:)
432 
433 ! call plstrf2c(dnam, string1)
434 
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, &
441  xg, yg, size(z,1))
442 
443  end subroutine
444 
445 !***********************************************************************
446 
447  subroutine plshade_single_2(z, defined, &
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, &
452  xg, yg )
453 
454  implicit none
455  character defined*(*)
456  integer sh_cmap
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(:,:)
461 
462 ! call plstrf2c(dnam, string1)
463 
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, &
470  xg, yg, size(z,1) )
471 
472  end subroutine
473 
474 !***********************************************************************
475 
476  subroutine plshade_single_tr(z, defined, &
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)
481 
482  implicit none
483  character(len=*) defined
484  integer sh_cmap
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)
490 
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))
497 
498  end subroutine
499 
500 !***********************************************************************
501 
502  subroutine plshades_multiple_0(z, defined, &
503  xmin, xmax, ymin, ymax, &
504  clevel, fill_width, &
505  cont_color, cont_width, rectangular)
506 
507  implicit none
508  character defined*(*)
509  integer cont_color
510  logical, optional :: rectangular
511  real(kind=plflt) fill_width, cont_width
512  real(kind=plflt) clevel(:)
513  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
514 
515  integer rect
516 
517 ! call plstrf2c(dnam, string1)
518 
519  rect = 1
520  if ( present(rectangular) ) then
521  rect = merge( 1, 0, rectangular )
522  endif
523 
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, &
528  cont_color, cont_width, size(z,1), rect)
529 
530  end subroutine
531 
532 !***********************************************************************
533 
534  subroutine plshades_multiple_1(z, defined, &
535  xmin, xmax, ymin, ymax, &
536  clevel, fill_width, &
537  cont_color, cont_width, xg1, yg1)
538 
539  implicit none
540  character defined*(*)
541  integer cont_color
542  real(kind=plflt) fill_width, cont_width
543  real(kind=plflt) clevel(:)
544  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
545  xg1(:), yg1(:)
546 
547  integer rect
548 
549 ! call plstrf2c(dnam, string1)
550 
551  rect = 1
552 
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, &
557  cont_color, cont_width, xg1, yg1, size(z,1), rect)
558 
559  end subroutine
560 
561 !***********************************************************************
562 
563  subroutine plshades_multiple_1r(z, defined, &
564  xmin, xmax, ymin, ymax, &
565  clevel, fill_width, &
566  cont_color, cont_width, rectangular, xg1, yg1)
567 
568  implicit none
569  character defined*(*)
570  integer cont_color
571  logical rectangular
572  real(kind=plflt) fill_width, cont_width
573  real(kind=plflt) clevel(:)
574  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
575  xg1(:), yg1(:)
576 
577  integer rect
578 
579 ! call plstrf2c(dnam, string1)
580 
581  rect = merge( 1, 0, rectangular )
582 
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, &
587  cont_color, cont_width, xg1, yg1, size(z,1), rect)
588 
589  end subroutine
590 
591 !***********************************************************************
592 
593  subroutine plshades_multiple_2(z, defined, &
594  xmin, xmax, ymin, ymax, &
595  clevel, fill_width, &
596  cont_color, cont_width, xg2, yg2)
597 
598  implicit none
599  character defined*(*)
600  integer cont_color
601  real(kind=plflt)fill_width, cont_width
602  real(kind=plflt) clevel(:)
603  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
604  xg2(:,:), yg2(:,:)
605 
606  integer rect
607 
608 ! call plstrf2c(dnam, string1)
609 
610  rect = 0
611 
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, &
616  cont_color, cont_width, xg2, yg2, size(z,1), rect)
617 
618  end subroutine
619 
620 !***********************************************************************
621 
622  subroutine plshades_multiple_2r(z, defined, &
623  xmin, xmax, ymin, ymax, &
624  clevel, fill_width, &
625  cont_color, cont_width, rectangular, xg2, yg2)
626 
627  implicit none
628  character defined*(*)
629  integer cont_color
630  logical rectangular
631  real(kind=plflt)fill_width, cont_width
632  real(kind=plflt) clevel(:)
633  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
634  xg2(:,:), yg2(:,:)
635 
636  integer rect
637 
638  rect = merge( 1, 0, rectangular )
639 
640 ! call plstrf2c(dnam, string1)
641 
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, &
646  cont_color, cont_width, xg2, yg2, size(z,1))
647 
648  end subroutine
649 
650 !***********************************************************************
651 
652  subroutine plshades_multiple_tr(z, defined, &
653  xmin, xmax, ymin, ymax, &
654  clevel, fill_width, &
655  cont_color, cont_width, tr)
656 
657  implicit none
658  character defined*(*)
659  integer cont_color
660  real(kind=plflt) fill_width, cont_width
661  real(kind=plflt) clevel(:)
662  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
663  real(kind=plflt) tr(6)
664 
665  integer rect
666 
667 ! call plstrf2c(dnam, string1)
668 
669  rect = 0
670 
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, &
675  cont_color, cont_width, tr, size(z,1), rect)
676 
677  end subroutine
678 
679 !***********************************************************************
680 
681  subroutine plshades_multiple_trr(z, defined, &
682  xmin, xmax, ymin, ymax, &
683  clevel, fill_width, &
684  cont_color, cont_width, rectangular, tr)
685 
686  implicit none
687  character defined*(*)
688  integer cont_color
689  logical rectangular
690  real(kind=plflt) fill_width, cont_width
691  real(kind=plflt) clevel(:)
692  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
693  real(kind=plflt) tr(6)
694 
695  integer rect
696 
697 ! call plstrf2c(dnam, string1)
698 
699  rect = merge(1, 0, rectangular)
700 
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, &
705  cont_color, cont_width, tr, size(z,1), rect)
706 
707  end subroutine
708 
709 !***********************************************************************
710 
711  subroutine plimagefr_0(z,xmin,xmax,ymin,ymax,zmin,zmax, &
712  valuemin,valuemax)
713 
714  implicit none
715  real(kind=plflt) z(:,:)
716  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
717 
718  call plimagefr07(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
719  valuemin,valuemax,size(z,1))
720 
721  end subroutine
722 
723 !***********************************************************************
724 
725  subroutine plimagefr_1(z,xmin,xmax,ymin,ymax,zmin,zmax, &
726  valuemin,valuemax,xg,yg)
727 
728  implicit none
729  real(kind=plflt) z(:,:), xg(:), yg(:)
730  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
731 
732  call plimagefr17(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
733  valuemin,valuemax,xg,yg,size(z,1))
734 
735  end subroutine
736 
737 !***********************************************************************
738 
739  subroutine plimagefr_2(z,xmin,xmax,ymin,ymax,zmin,zmax, &
740  valuemin,valuemax,xg,yg)
741 
742  implicit none
743  real(kind=plflt) z(:,:), xg(:,:), yg(:,:)
744  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
745 
746  call plimagefr27(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
747  valuemin,valuemax,xg,yg,size(z,1))
748 
749  end subroutine
750 
751 !***********************************************************************
752 
753  subroutine plimagefr_tr(z,xmin,xmax,ymin,ymax,zmin,zmax, &
754  valuemin,valuemax,tr)
755 
756  implicit none
757  real(kind=plflt) z(:,:)
758  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
759  real(kind=plflt) tr(6)
760 
761  call plimagefr7(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
762  valuemin,valuemax,tr,size(z,1))
763 
764  end subroutine
765 
766 !***********************************************************************
767 
768  subroutine pllab(xlab,ylab,title)
769 
770  implicit none
771  character*(*) xlab,ylab,title
772 
773  call plstrf2c(xlab, string1)
774  call plstrf2c(ylab, string2)
775  call plstrf2c(title, string3)
776 
777  s1 = transfer( string1, s1 )
778  s2 = transfer( string2, s2 )
779  s3 = transfer( string3, s3 )
780  call pllab7(s1,s2,s3)
781 
782  end subroutine
783 
784 !***********************************************************************
785 
786  subroutine plspal0(filename)
787 
788  implicit none
789  character*(*) filename
790 
791  call plstrf2c(filename, string1)
792 
793  s1 = transfer( string1, s1 )
794  call plspal07(s1)
795 
796  end subroutine
797 
798 !***********************************************************************
799 
800  subroutine plspal1(filename,interpolate)
801 
802  implicit none
803  character*(*) filename
804  integer interpolate
805 
806  call plstrf2c(filename, string1)
807 
808  s1 = transfer( string1, s1 )
809  call plspal17(s1,interpolate)
810 
811  end subroutine
812 
813 !***********************************************************************
814 
815  subroutine plmtex(side,disp,pos,xjust,text)
816 
817  implicit none
818  real(kind=plflt) disp, pos, xjust
819  character*(*) side, text
820 
821  call plstrf2c(side, string1)
822  call plstrf2c(text, string2)
823 
824  s1 = transfer( string1, s1 )
825  s2 = transfer( string2, s2 )
826  call plmtex7(s1,disp,pos,xjust,s2)
827 
828  end subroutine
829 
830 !***********************************************************************
831 
832  subroutine plmtex3(side,disp,pos,xjust,text)
833 
834  implicit none
835  real(kind=plflt) disp, pos, xjust
836  character*(*) side, text
837 
838  call plstrf2c(side, string1)
839  call plstrf2c(text, string2)
840 
841  s1 = transfer( string1, s1 )
842  s2 = transfer( string2, s2 )
843  call plmtex37(s1,disp,pos,xjust,s2)
844 
845  end subroutine
846 
847 !***********************************************************************
848 
849  subroutine plptex(x,y,dx,dy,xjust,text)
850 
851  implicit none
852  real(kind=plflt) x, y, dx, dy, xjust
853  character*(*) text
854 
855  call plstrf2c(text, string1)
856 
857  s1 = transfer( string1, s1 )
858  call plptex7(x,y,dx,dy,xjust,s1)
859 
860  end subroutine
861 
862 !***********************************************************************
863 
864  subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
865 
866  implicit none
867  real(kind=plflt) x, y, z, dx, dy, dz, sx, sy, sz, xjust
868  character*(*) text
869 
870  call plstrf2c(text, string1)
871 
872  s1 = transfer( string1, s1 )
873  call plptex37(x,y,z,dx,dy,dz,sx,sy,sz,xjust,s1)
874 
875  end subroutine
876 
877 !***********************************************************************
878 
879  subroutine plstart(devname, nx, ny)
880 
881  implicit none
882  character*(*) devname
883  integer nx, ny
884 
885  call plstrf2c(devname, string1)
886 
887  s1 = transfer( string1, s1 )
888  call plstart7(s1, nx, ny)
889 
890  end subroutine
891 
892 !***********************************************************************
893 
894  subroutine pltimefmt(fmt)
895 
896  implicit none
897  character*(*) fmt
898 
899  call plstrf2c(fmt, string1)
900  s1 = transfer( string1, s1 )
901  call pltimefmt7(s1)
902 
903  end subroutine
904 
905 !***********************************************************************