PLplot  5.9.9
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
sfstubs.f90
Go to the documentation of this file.
1 !***********************************************************************
2 ! $Id: sfstubs.f90 12320 2013-05-02 01:20:31Z 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, &
506 
507  implicit none
508  character defined*(*)
509  integer cont_color
510  real(kind=plflt) fill_width, cont_width
511  real(kind=plflt) clevel(:)
512  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
513 
514 ! call plstrf2c(dnam, string1)
515 
516  s1 = transfer( string1, s1 )
517  call plshades07(z, size(z,1), size(z,2), s1, &
518  xmin, xmax, ymin, ymax, &
519  clevel, size(clevel), fill_width, &
520  cont_color, cont_width, size(z,1))
521 
522  end subroutine
523 
524 !***********************************************************************
525 
526  subroutine plshades_multiple_1(z, defined, &
527  xmin, xmax, ymin, ymax, &
528  clevel, fill_width, &
529  cont_color, cont_width, xg1, yg1)
530 
531  implicit none
532  character defined*(*)
533  integer cont_color
534  real(kind=plflt) fill_width, cont_width
535  real(kind=plflt) clevel(:)
536  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
537  xg1(:), yg1(:)
538 
539 ! call plstrf2c(dnam, string1)
540 
541  s1 = transfer( string1, s1 )
542  call plshades17(z, size(z,1), size(z,2), s1, &
543  xmin, xmax, ymin, ymax, &
544  clevel, size(clevel), fill_width, &
545  cont_color, cont_width, xg1, yg1, size(z,1))
546 
547  end subroutine
548 
549 !***********************************************************************
550 
551  subroutine plshades_multiple_2(z, defined, &
552  xmin, xmax, ymin, ymax, &
553  clevel, fill_width, &
554  cont_color, cont_width, xg2, yg2)
555 
556  implicit none
557  character defined*(*)
558  integer cont_color
559  real(kind=plflt)fill_width, cont_width
560  real(kind=plflt) clevel(:)
561  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
562  xg2(:,:), yg2(:,:)
563 
564 ! call plstrf2c(dnam, string1)
565 
566  s1 = transfer( string1, s1 )
567  call plshades27(z, size(z,1), size(z,2), s1, &
568  xmin, xmax, ymin, ymax, &
569  clevel, size(clevel), fill_width, &
570  cont_color, cont_width, xg2, yg2, size(z,1))
571 
572  end subroutine
573 
574 !***********************************************************************
575 
576  subroutine plshades_multiple_tr(z, defined, &
577  xmin, xmax, ymin, ymax, &
578  clevel, fill_width, &
579  cont_color, cont_width, tr)
580 
581  implicit none
582  character defined*(*)
583  integer cont_color
584  real(kind=plflt) fill_width, cont_width
585  real(kind=plflt) clevel(:)
586  real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
587  real(kind=plflt) tr(6)
588 
589 ! call plstrf2c(dnam, string1)
590 
591  s1 = transfer( string1, s1 )
592  call plshades7(z, size(z,1), size(z,2), s1, &
593  xmin, xmax, ymin, ymax, &
594  clevel, size(clevel), fill_width, &
595  cont_color, cont_width, tr, size(z,1))
596 
597  end subroutine
598 
599 !***********************************************************************
600 
601  subroutine plimagefr_0(z,xmin,xmax,ymin,ymax,zmin,zmax, &
602  valuemin,valuemax)
603 
604  implicit none
605  real(kind=plflt) z(:,:)
606  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
607 
608  call plimagefr07(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
609  valuemin,valuemax,size(z,1))
610 
611  end subroutine
612 
613 !***********************************************************************
614 
615  subroutine plimagefr_1(z,xmin,xmax,ymin,ymax,zmin,zmax, &
616  valuemin,valuemax,xg,yg)
617 
618  implicit none
619  real(kind=plflt) z(:,:), xg(:), yg(:)
620  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
621 
622  call plimagefr17(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
623  valuemin,valuemax,xg,yg,size(z,1))
624 
625  end subroutine
626 
627 !***********************************************************************
628 
629  subroutine plimagefr_2(z,xmin,xmax,ymin,ymax,zmin,zmax, &
630  valuemin,valuemax,xg,yg)
631 
632  implicit none
633  real(kind=plflt) z(:,:), xg(:,:), yg(:,:)
634  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
635 
636  call plimagefr27(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
637  valuemin,valuemax,xg,yg,size(z,1))
638 
639  end subroutine
640 
641 !***********************************************************************
642 
643  subroutine plimagefr_tr(z,xmin,xmax,ymin,ymax,zmin,zmax, &
644  valuemin,valuemax,tr)
645 
646  implicit none
647  real(kind=plflt) z(:,:)
648  real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
649  real(kind=plflt) tr(6)
650 
651  call plimagefr7(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
652  valuemin,valuemax,tr,size(z,1))
653 
654  end subroutine
655 
656 !***********************************************************************
657 
658  subroutine pllab(xlab,ylab,title)
659 
660  implicit none
661  character*(*) xlab,ylab,title
662 
663  call plstrf2c(xlab, string1)
664  call plstrf2c(ylab, string2)
665  call plstrf2c(title, string3)
666 
667  s1 = transfer( string1, s1 )
668  s2 = transfer( string2, s2 )
669  s3 = transfer( string3, s3 )
670  call pllab7(s1,s2,s3)
671 
672  end subroutine
673 
674 !***********************************************************************
675 
676  subroutine plspal0(filename)
677 
678  implicit none
679  character*(*) filename
680 
681  call plstrf2c(filename, string1)
682 
683  s1 = transfer( string1, s1 )
684  call plspal07(s1)
685 
686  end subroutine
687 
688 !***********************************************************************
689 
690  subroutine plspal1(filename,interpolate)
691 
692  implicit none
693  character*(*) filename
694  integer interpolate
695 
696  call plstrf2c(filename, string1)
697 
698  s1 = transfer( string1, s1 )
699  call plspal17(s1,interpolate)
700 
701  end subroutine
702 
703 !***********************************************************************
704 
705  subroutine plmtex(side,disp,pos,xjust,text)
706 
707  implicit none
708  real(kind=plflt) disp, pos, xjust
709  character*(*) side, text
710 
711  call plstrf2c(side, string1)
712  call plstrf2c(text, string2)
713 
714  s1 = transfer( string1, s1 )
715  s2 = transfer( string2, s2 )
716  call plmtex7(s1,disp,pos,xjust,s2)
717 
718  end subroutine
719 
720 !***********************************************************************
721 
722  subroutine plmtex3(side,disp,pos,xjust,text)
723 
724  implicit none
725  real(kind=plflt) disp, pos, xjust
726  character*(*) side, text
727 
728  call plstrf2c(side, string1)
729  call plstrf2c(text, string2)
730 
731  s1 = transfer( string1, s1 )
732  s2 = transfer( string2, s2 )
733  call plmtex37(s1,disp,pos,xjust,s2)
734 
735  end subroutine
736 
737 !***********************************************************************
738 
739  subroutine plptex(x,y,dx,dy,xjust,text)
740 
741  implicit none
742  real(kind=plflt) x, y, dx, dy, xjust
743  character*(*) text
744 
745  call plstrf2c(text, string1)
746 
747  s1 = transfer( string1, s1 )
748  call plptex7(x,y,dx,dy,xjust,s1)
749 
750  end subroutine
751 
752 !***********************************************************************
753 
754  subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
755 
756  implicit none
757  real(kind=plflt) x, y, z, dx, dy, dz, sx, sy, sz, xjust
758  character*(*) text
759 
760  call plstrf2c(text, string1)
761 
762  s1 = transfer( string1, s1 )
763  call plptex37(x,y,z,dx,dy,dz,sx,sy,sz,xjust,s1)
764 
765  end subroutine
766 
767 !***********************************************************************
768 
769  subroutine plstart(devname, nx, ny)
770 
771  implicit none
772  character*(*) devname
773  integer nx, ny
774 
775  call plstrf2c(devname, string1)
776 
777  s1 = transfer( string1, s1 )
778  call plstart7(s1, nx, ny)
779 
780  end subroutine
781 
782 !***********************************************************************
783 
784  subroutine pltimefmt(fmt)
785 
786  implicit none
787  character*(*) fmt
788 
789  call plstrf2c(fmt, string1)
790  s1 = transfer( string1, s1 )
791  call pltimefmt7(s1)
792 
793  end subroutine
794 
795 !***********************************************************************
static PLINT text
Definition: gcw.c:97
subroutine plstrc2f(string1, string2)
Definition: strutil.f:39
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string4
Definition: sfstubs.h:24
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT nx
#define plmtex3
Definition: plplot.h:665
static PLFLT ** xg
subroutine plshades_multiple_2(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, xg2, yg2)
Definition: sfstubs.f90:551
subroutine plcontour_2(z, kx, lx, ky, ly, clevel, xg, yg)
Definition: sfstubs.f90:219
#define plsdev
Definition: plplot.h:700
#define plgdev
Definition: plplot.h:623
subroutine plcontour_tr_all(z, clevel, tr)
Definition: sfstubs.f90:292
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)
Definition: sfstubs.f90:476
subroutine plimagefr_tr(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, tr)
Definition: sfstubs.f90:643
subroutine plvectors_tr(u, v, scale, tr)
Definition: sfstubs.f90:379
subroutine plimagefr_1(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xg, yg)
Definition: sfstubs.f90:615
void PLFLT PLINT PLINT PLFLT x
#define pltimefmt
Definition: plplot.h:748
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s2
Definition: sfstubs.h:29
#define plspal1
Definition: plplot.h:725
#define plsetopt
Definition: plplot.h:708
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)
Definition: sfstubs.f90:447
#define plaxes
Definition: plplot.h:589
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string2 string4 s6
Definition: sfstubs.h:31
static PLFLT ** yg
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string1
Definition: sfstubs.h:29
subroutine plshades_multiple_1(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, xg1, yg1)
Definition: sfstubs.f90:526
subroutine plcontour_tr(z, kx, lx, ky, ly, clevel, tr)
Definition: sfstubs.f90:231
#define plsfnam
Definition: plplot.h:711
subroutine plvectors_0(u, v, scale)
Definition: sfstubs.f90:345
#define plspal0
Definition: plplot.h:724
subroutine plimagefr_2(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xg, yg)
Definition: sfstubs.f90:629
subroutine plvectors_1(u, v, scale, xg, yg)
Definition: sfstubs.f90:356
void PLFLT PLINT PLINT PLFLT PLFLT y
subroutine plimagefr_0(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax)
Definition: sfstubs.f90:601
#define plstring
Definition: plplot.h:733
#define plgfnam
Definition: plplot.h:630
#define plstart
Definition: plplot.h:731
subroutine plshades_multiple_0(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width)
Definition: sfstubs.f90:502
#define pllab
Definition: plplot.h:652
#define plbox
Definition: plplot.h:592
#define plgver
Definition: plplot.h:639
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s5(80)
#define plptex3
Definition: plplot.h:677
subroutine plshades_multiple_tr(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, tr)
Definition: sfstubs.f90:576
#define plstring3
Definition: plplot.h:734
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)
Definition: sfstubs.f90:418
subroutine plvectors_2(u, v, scale, xg, yg)
Definition: sfstubs.f90:367
void plabort(const char *errormsg)
Definition: plctrl.c:1877
if write to the Free Software C Franklin Fifth MA USA integer maxlen string2
Definition: sfstubs.h:24
subroutine plcontour_1(z, kx, lx, ky, ly, clevel, xg, yg)
Definition: sfstubs.f90:207
subroutine plcontour_0_all(z, clevel)
Definition: sfstubs.f90:244
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string2 s4
Definition: sfstubs.h:30
subroutine plcontour_1_all(z, clevel, xg, yg)
Definition: sfstubs.f90:260
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s3(80)
void PLFLT PLINT opt
subroutine plcontour_0(z, kx, lx, ky, ly, clevel)
Definition: sfstubs.f90:195
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)
Definition: plstream.cc:2119
#define plbox3
Definition: plplot.h:593
subroutine plstrf2c(string1, string2, maxlen)
Definition: strutil.f:21
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string5
Definition: sfstubs.h:24
#define plptex
Definition: plplot.h:676
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)
Definition: sfstubs.f90:391
#define plmtex
Definition: plplot.h:664
void string(PLINT n, const PLFLT *x, const PLFLT *y, const char *string)
Definition: plstream.cc:2107
subroutine plcontour_2_all(z, clevel, xg, yg)
Definition: sfstubs.f90:276