PLplot: sfstubs.f90 Source File

PLplot 5.10.0

- Main Page
- Namespaces
- Classes
- Files

- File List
- File Members

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 !***********************************************************************