PLplot  5.9.9
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
sfstubsf95.f90
Go to the documentation of this file.
1 !***********************************************************************
2 ! $Id: sfstubsf95.f90 12380 2013-06-12 20:53:18Z andrewross $
3 ! sfstubsf95.f
4 !
5 ! Copyright (C) 2005, 2006 Arjen Markus
6 ! Copyright (C) 2006 Alan W. Irwin
7 !
8 ! This file is part of PLplot.
9 !
10 ! PLplot is free software; you can redistribute it and/or modify
11 ! it under the terms of the GNU Library General Public License as published
12 ! by the Free Software Foundation; either version 2 of the License, or
13 ! (at your option) any later version.
14 !
15 ! PLplot is distributed in the hope that it will be useful,
16 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ! GNU Library General Public License for more details.
19 !
20 ! You should have received a copy of the GNU Library General Public License
21 ! along with PLplot; if not, write to the Free Software
22 ! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 !
24 !
25 ! This file contains the interfaces for Fortran 95:
26 ! - it includes the actual FORTRAN routines from the FORTRAN 77 bindings
27 ! - it includes interfaces to the C routines from these bindings
28 ! - it defines a few Fortran 95 specific items and interfaces
29 !
30 ! NB
31 ! This module is written in fixed form, because that way we can reuse
32 ! the FORTRAN 77 bindings (including the original file is not possible:
33 ! the "end" statement has to be replaced by the "end subroutine"
34 ! statement)
35 ! To enable a redefinition of certain interfaces, we actually have
36 ! two modules.
37 !
38 ! NB
39 ! The INTENT attribute is not currently used. This is a matter to
40 ! be looked into.
41 !
42 ! NB
43 ! It is assumed in the current implementation that all arrays are
44 ! passed with correct dimensions. It would be wiser, perhaps, to
45 ! use the minimum dimension instead of just the dimension of the
46 ! first array.
47 !
48 ! NOTE:
49 ! Some of the C routines will have to be renamed (via macros)
50 !
51 !***********************************************************************
52 
53 !
54 ! Parameters for identifying the kind of PLplot's real
55 ! numbers (a configuration parameter)
56 ! Use whatever name suits you better.
57 !
58 module plplot_flt
59  include 'plflt.inc'
60 end module
61 
62 !
63 ! Parameters and variables for strings / arrays for
64 ! string conversion
65 !
66 module plplot_str
67  integer :: maxleni
68  parameter(maxlen = 320)
69  parameter(maxleni = 80)
70  character (len = maxlen) :: string1, string2, string3
71  character (len = maxlen) :: string4, string5, string6
72  character (len = maxlen) :: string7, string8, string9
73  integer, dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
74 
75  character(len=1), parameter :: PL_END_OF_STRING = achar(0)
76 end module
77 
78 module plplotp
79  use plplot_flt
80  use plplot_str
81  use plplot_strutils
82  implicit none
83 
84  interface plcont
85  module procedure plcontour_0
86  module procedure plcontour_1
87  module procedure plcontour_2
88  module procedure plcontour_tr
89  module procedure plcontour_0_all
90  module procedure plcontour_1_all
91  module procedure plcontour_2_all
92  module procedure plcontour_tr_all
93  end interface
96 
97  interface plvect
98  module procedure plvectors_0
99  module procedure plvectors_1
100  module procedure plvectors_2
101  module procedure plvectors_tr
102  end interface
104 
105  interface plshade
106  module procedure plshade_single_0
107  module procedure plshade_single_1
108  module procedure plshade_single_2
109  module procedure plshade_single_tr
110  end interface
112 
113  interface plshades
114  module procedure plshades_multiple_0
115  module procedure plshades_multiple_1
116  module procedure plshades_multiple_2
117  module procedure plshades_multiple_tr
118  end interface
121 
122  interface plimagefr
123  module procedure plimagefr_0
124  module procedure plimagefr_1
125  module procedure plimagefr_2
126  module procedure plimagefr_tr
127  end interface
129 
130 contains
131  include 'sfstubs.f90'
132 end module plplotp
133 
135  use plplot_flt
136  type :: plgraphicsin
137  integer type ! of event (CURRENTLY UNUSED)
138  integer state ! key or button mask
139  integer keysym ! key selected
140  integer button ! mouse button selected
141  integer subwindow ! subwindow (alias subpage, alias subplot) number
142  character(len=16) string ! translated string
143  integer pX, pY ! absolute device coordinates of pointer
144  real(kind=plflt) dX, dY ! relative device coordinates of pointer
145  real(kind=plflt) wX, wY ! world coordinates of pointer
146  end type plgraphicsin
147 end module plplot_types
148 
149 module plplot
150  use plplotp
151  use plplot_flt
152  use plplot_types
153  use plplot_strutils
154  !
155  ! To be added: renaming list
156  !
157 
158  implicit none
159  include 'plplot_parameters.h'
160 
161  !
162  ! To be added: alternative interfaces
163  !
164  interface
165  subroutine pladv( sub )
166  integer :: sub
167  end subroutine pladv
168  end interface
169 
170  interface plbin
171  module procedure plbin
172  end interface
173 
174  interface
175  subroutine plbop
176  end subroutine plbop
177  end interface
178 
179  interface
180  subroutine plcalc_world( rx, ry, wx, wy, window )
181  use plplot_flt
182  real(kind=plflt) :: rx, ry, wx, wy
183  integer :: window
184  end subroutine plcalc_world
185  end interface
186 
187  interface
188  subroutine plclear
189  end subroutine plclear
190  end interface
191 
192  interface
193  subroutine plcol0( icol )
194  integer :: icol
195  end subroutine plcol0
196  end interface
197 
198  interface
199  subroutine plcol1( col )
200  use plplot_flt
201  real(kind=plflt) :: col
202  end subroutine plcol1
203  end interface
204 
205  interface plcolorbar
206  module procedure plcolorbar_1
207  module procedure plcolorbar_2
208  end interface
209 
210  interface plcpstrm
211  module procedure plcpstrm
212  end interface
213 
214  interface
215  subroutine plend
216  end subroutine plend
217  end interface
218 
219  interface
220  subroutine plend1
221  end subroutine plend1
222  end interface
223 
224  interface
225  subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
226  use plplot_flt
227  real(kind=plflt) :: xmin, xmax, ymin, ymax
228  integer :: just, axis
229  end subroutine plenv
230  end interface
231 
232  interface
233  subroutine pleop
234  end subroutine pleop
235  end interface
236 
237  interface plerrx
238  module procedure plerrx
239  end interface
240 
241  interface plerry
242  module procedure plerry
243  end interface
244 
245  interface plfamadv
246  subroutine plfamadv
247  end subroutine plfamadv
248  end interface
249 
250  interface plfill
251  module procedure plfill
252  end interface
253 
254  interface plfill3
255  module procedure plfill3
256  end interface
257 
258  interface
259  subroutine plflush
260  end subroutine plflush
261  end interface
262 
263  interface
264  subroutine plfont( font )
265  integer :: font
266  end subroutine plfont
267  end interface
268 
269  interface
270  subroutine plfontld( charset )
271  integer :: charset
272  end subroutine plfontld
273  end interface
274 
275  interface
276  subroutine plgchr( chrdef, chrht )
277  use plplot_flt
278  real(kind=plflt) :: chrdef, chrht
279  end subroutine plgchr
280  end interface
281 
282  interface
283  subroutine plgcmap1_range( min_color, max_color )
284  use plplot_flt
285  real(kind=plflt) :: min_color, max_color
286  end subroutine plgcmap1_range
287  end interface
288 
289  interface
290  subroutine plgcol0( icol, r, g, b )
291  integer :: icol, r, g, b
292  end subroutine plgcol0
293  end interface
294 
295  interface
296  subroutine plgcol0a( icol, r, g, b, a )
297  use plplot_flt
298  integer :: icol, r, g, b
299  real(kind=plflt) :: a
300  end subroutine plgcol0a
301  end interface
302 
303  interface
304  subroutine plgcolbg( r, g, b )
305  integer :: r, g, b
306  end subroutine plgcolbg
307  end interface
308 
309  interface
310  subroutine plgcolbga( r, g, b, a )
311  use plplot_flt
312  integer :: r, g, b
313  real(kind=plflt) :: a
314  end subroutine plgcolbga
315  end interface
316 
317  interface
318  subroutine plgcompression( compression )
319  integer :: compression
320  end subroutine plgcompression
321  end interface
322 
323  interface
324  subroutine plgdidev( mar, aspect, jx, jy )
325  use plplot_flt
326  real(kind=plflt) :: mar, aspect, jx, jy
327  end subroutine plgdidev
328  end interface
329 
330  interface
331  subroutine plgdiori( rot )
332  use plplot_flt
333  real(kind=plflt) :: rot
334  end subroutine plgdiori
335  end interface
336 
337  interface
338  subroutine plgdiplt( xmin, xmax, ymin, ymax )
339  use plplot_flt
340  real(kind=plflt) :: xmin, xmax, ymin, ymax
341  end subroutine plgdiplt
342  end interface
343 
344  interface
345  subroutine plgetcursor( gin )
346  use plplot_flt
347  use plplot_types
348  type(plgraphicsin) :: gin
349  end subroutine plgetcursor
350  end interface
351 
352  interface
353  subroutine plgfam( fam, num, bmax )
354  integer :: fam, num, bmax
355  end subroutine plgfam
356  end interface
357 
358  interface
359  subroutine plgfci( fci )
360  use plplot_flt
361  integer(kind=plunicode) :: fci
362  end subroutine plgfci
363  end interface
364 
365  interface
366  subroutine plgfont( family, style, weight )
367  integer :: family, style, weight
368  end subroutine plgfont
369  end interface
370 
371  interface
372  subroutine plglevel( level )
373  integer :: level
374  end subroutine plglevel
375  end interface
376 
377  interface
378  subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
379  use plplot_flt
380  real(kind=plflt) :: xpmm, ypmm
381  integer :: xwid, ywid, xoff, yoff
382  end subroutine plgpage
383  end interface
384 
385  interface
386  subroutine plgra
387  end subroutine plgra
388  end interface
389 
390  interface plgradient
391  module procedure plgradient
392  end interface
393 
394  interface plgriddata
395  module procedure plgriddata
396  end interface
397 
398  interface
399  subroutine plgspa( xmin, xmax, ymin, ymax )
400  use plplot_flt
401  real(kind=plflt) :: xmin, xmax, ymin, ymax
402  end subroutine plgspa
403  end interface
404 
405  interface
406  subroutine plgstrm( strm )
407  integer :: strm
408  end subroutine plgstrm
409  end interface
410 
411  interface
412  subroutine plgvpd( xmin, xmax, ymin, ymax )
413  use plplot_flt
414  real(kind=plflt) :: xmin, xmax, ymin, ymax
415  end subroutine plgvpd
416  end interface
417 
418  interface
419  subroutine plgvpw( xmin, xmax, ymin, ymax )
420  use plplot_flt
421  real(kind=plflt) :: xmin, xmax, ymin, ymax
422  end subroutine plgvpw
423  end interface
424 
425  interface
426  subroutine plgxax( digmax, digits )
427  integer :: digmax, digits
428  end subroutine plgxax
429  end interface
430 
431  interface
432  subroutine plgyax( digmax, digits )
433  integer :: digmax, digits
434  end subroutine plgyax
435  end interface
436 
437  interface
438  subroutine plgzax( digmax, digits )
439  integer :: digmax, digits
440  end subroutine plgzax
441  end interface
442 
443  interface plhist
444  module procedure plhist
445  end interface
446 
447  interface
448  subroutine plhls( h, l, s )
449  use plplot_flt
450  real(kind=plflt) :: h, l, s
451  end subroutine plhls
452  end interface
453 
454  interface
455  subroutine plhlsrgb( h, l, s, r, g, b )
456  use plplot_flt
457  real(kind=plflt) :: h, l, s, r, g, b
458  end subroutine plhlsrgb
459  end interface
460 
461  interface
462  subroutine plinit
463  end subroutine plinit
464  end interface
465 
466  interface
467  subroutine pljoin( x1, y1, x2, y2 )
468  use plplot_flt
469  real(kind=plflt) :: x1, y1, x2, y2
470  end subroutine pljoin
471  end interface
472 
473  interface
474  subroutine pllightsource( x, y, z )
475  use plplot_flt
476  real(kind=plflt) :: x, y, z
477  end subroutine pllightsource
478  end interface
479 
480  interface pllegend
481  module procedure pllegend_1
482  module procedure pllegend_2
483  end interface
484 
485  interface plline
486  module procedure plline
487  end interface
488 
489  interface plline3
490  module procedure plline3
491  end interface
492 
493  interface pllsty
494  subroutine pllsty( lin )
495  integer :: lin
496  end subroutine pllsty
497  end interface
498 
499  interface plmap
500  module procedure plmap1, plmap2
501  end interface plmap
502 
503  interface plmeridians
504  module procedure plmeridians1, plmeridians2
505  end interface plmeridians
506 
507  interface plmesh
508  module procedure plmesh
509  end interface
510 
511  interface plmeshc
512  module procedure plmeshc
513  end interface
514 
515  interface
516  subroutine plmkstrm( strm )
517  integer :: strm
518  end subroutine plmkstrm
519  end interface
520 
521  interface
522  subroutine plpat( nlin, inc, del )
523  integer :: nlin, inc, del
524  end subroutine plpat
525  end interface
526 
527  interface plot3d
528  module procedure plot3d
529  end interface
530 
531  interface plot3dc
532  module procedure plot3dc
533  end interface
534 
535  interface plpoin
536  module procedure plpoin
537  end interface
538 
539  interface plpoin3
540  module procedure plpoin3
541  end interface
542 
543  interface plpoly3
544  module procedure plpoly3
545  end interface
546 
547  interface
548  subroutine plprec( setp, prec )
549  integer :: setp, prec
550  end subroutine plprec
551  end interface
552 
553  interface
554  subroutine plpsty( patt )
555  integer :: patt
556  end subroutine plpsty
557  end interface
558 
559  interface
560  subroutine plreplot
561  end subroutine plreplot
562  end interface
563 
564  !
565  ! Note: plrgb and plrgb1 can be merged
566  !
567  interface
568  subroutine plrgb( r, g, b )
569  use plplot_flt
570  real(kind=plflt) :: r, g, b
571  end subroutine plrgb
572  end interface
573 
574  interface
575  subroutine plrgb1( r, g, b )
576  integer :: r, g, b
577  end subroutine plrgb1
578  end interface
579 
580  interface
581  subroutine plrgbhls( r, g, b, h, l, s )
582  use plplot_flt
583  real(kind=plflt) :: r, g, b, h, l, s
584  end subroutine plrgbhls
585  end interface
586 
587  interface
588  subroutine plschr( chrdef, chrht )
589  use plplot_flt
590  real(kind=plflt) :: chrdef, chrht
591  end subroutine plschr
592  end interface
593 
594  interface plscmap0
595  module procedure plscmap0
596  end interface
597 
598  interface plscmap0a
599  module procedure plscmap0a
600  end interface
601 
602  interface
603  subroutine plscmap0n( n )
604  integer :: n
605  end subroutine plscmap0n
606  end interface
607 
608  interface plscmap1
609  module procedure plscmap1
610  end interface
611 
612  interface plscmap1a
613  module procedure plscmap1a
614  end interface
615 
616  interface plscmap1l
617  module procedure plscmap1l
618  module procedure plscmap1l2
619  end interface
620 
621  interface plscmap1la
622  module procedure plscmap1la
623  module procedure plscmap1la2
624  end interface
625 
626  interface
627  subroutine plscmap1n( n )
628  integer :: n
629  end subroutine plscmap1n
630  end interface
631 
632  interface
633  subroutine plscmap1_range( min_color, max_color )
634  use plplot_flt
635  real(kind=plflt) :: min_color, max_color
636  end subroutine plscmap1_range
637  end interface
638 
639  interface
640  subroutine plscol0( icol, r, g, b )
641  integer :: icol, r, g, b
642  end subroutine plscol0
643  end interface
644 
645  interface
646  subroutine plscol0a( icol, r, g, b, a )
647  use plplot_flt
648  integer :: icol, r, g, b
649  real(kind=plflt) :: a
650  end subroutine plscol0a
651  end interface
652 
653  interface
654  subroutine plscolbg( r, g, b )
655  integer :: r, g, b
656  end subroutine plscolbg
657  end interface
658 
659  interface
660  subroutine plscolbga( r, g, b, a )
661  use plplot_flt
662  integer :: r, g, b
663  real(kind=plflt) :: a
664  end subroutine plscolbga
665  end interface
666 
667  interface
668  subroutine plscolor( color )
669  integer :: color
670  end subroutine plscolor
671  end interface
672 
673  interface
674  subroutine plscompression( compression )
675  integer :: compression
676  end subroutine plscompression
677  end interface
678 
679  interface
680  subroutine plsdidev( mar, aspect, jx, jy )
681  use plplot_flt
682  real(kind=plflt) :: mar, aspect, jx, jy
683  end subroutine plsdidev
684  end interface
685 
686  interface
687  subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
688  use plplot_flt
689  real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
690  end subroutine plsdimap
691  end interface
692 
693  interface
694  subroutine plsdiori( rot )
695  use plplot_flt
696  real(kind=plflt) :: rot
697  end subroutine plsdiori
698  end interface
699 
700  interface
701  subroutine plsdiplt( xmin, xmax, ymin, ymax )
702  use plplot_flt
703  real(kind=plflt) :: xmin, xmax, ymin, ymax
704  end subroutine plsdiplt
705  end interface
706 
707  interface
708  subroutine plsdiplz( xmin, xmax, ymin, ymax )
709  use plplot_flt
710  real(kind=plflt) :: xmin, xmax, ymin, ymax
711  end subroutine plsdiplz
712  end interface
713 
714  interface
715  subroutine plseed( s )
716  integer :: s
717  end subroutine plseed
718  end interface
719 
720  ! TODO: character-version
721  interface
722  subroutine plsesc( esc )
723  integer :: esc
724  end subroutine plsesc
725  end interface
726 
727  !
728  ! TODO: F95-specific form for these routines
729  !
730  interface plsetmapformc
731  subroutine plsetmapformc( mapform )
732  use plplot_flt
733  interface
734  subroutine mapform( n, x, y )
735  use plplot_flt
736  integer :: n
737  real(kind=plflt), dimension(*) :: x, y
738  end subroutine mapform
739  end interface
740  end subroutine plsetmapformc
741  end interface
742 
743  interface
744  subroutine plsfam( fam, num, bmax )
745  integer :: fam, num, bmax
746  end subroutine plsfam
747  end interface
748 
749  interface
750  subroutine plsfci( fci )
751  use plplot_flt
752  integer(kind=plunicode) :: fci
753  end subroutine plsfci
754  end interface
755 
756  interface
757  subroutine plsfont( family, style, weight )
758  integer :: family, style, weight
759  end subroutine plsfont
760  end interface
761 
762  interface plslabelfunc
763  subroutine plslabelfunc_on( labelfunc )
764  interface
765  subroutine labelfunc(axis, value, label, length)
766  use plplot_flt
767  implicit none
768  integer :: axis, length
769  real(kind=plflt) :: value
770  character*(length) label
771  end subroutine labelfunc
772  end interface
773  end subroutine plslabelfunc_on
774 
775  subroutine plslabelfunc_off( dummy )
776  implicit none
777  integer :: dummy
778  end subroutine plslabelfunc_off
779 
780  subroutine plslabelfunc_none
781  end subroutine plslabelfunc_none
782 
783  end interface
784 
785  interface
786  subroutine plsmaj( def, scale )
787  use plplot_flt
788  real(kind=plflt) :: def, scale
789  end subroutine plsmaj
790  end interface
791 
792  ! plsmem: void * argument tricky - TODO
793  ! plsmema: void * argument tricky - TODO
794 
795  interface
796  subroutine plsmin( def, scale )
797  use plplot_flt
798  real(kind=plflt) :: def, scale
799  end subroutine plsmin
800  end interface
801 
802  interface
803  subroutine plsori( rot )
804  integer :: rot
805  end subroutine plsori
806  end interface
807 
808  interface
809  subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
810  use plplot_flt
811  real(kind=plflt) :: xpmm, ypmm
812  integer :: xwid, ywid, xoff, yoff
813  end subroutine plspage
814  end interface
815 
816  interface plspause
817  module procedure plspause
818  end interface
819 
820  interface
821  subroutine plsstrm( strm )
822  integer :: strm
823  end subroutine plsstrm
824  end interface
825 
826  interface
827  subroutine plssub( nx, ny )
828  integer :: nx, ny
829  end subroutine plssub
830  end interface
831 
832  interface
833  subroutine plssym( def, scale )
834  use plplot_flt
835  real(kind=plflt) :: def, scale
836  end subroutine plssym
837  end interface
838 
839  interface
840  subroutine plstar( nx, ny )
841  integer :: nx, ny
842  end subroutine plstar
843  end interface
844 
845  interface plstransform
846  subroutine plstransform1( transformfunc )
847  interface
848  subroutine transformfunc(x, y, xt, yt)
849  use plplot_flt
850  implicit none
851  real(kind=plflt) :: x, y, xt, yt
852  end subroutine transformfunc
853  end interface
854  end subroutine plstransform1
855 
856  subroutine plstransform2( dummy )
857  implicit none
858  integer :: dummy
859  end subroutine plstransform2
860 
861  subroutine plstransform3
862  end subroutine plstransform3
863 
864  end interface
865 
866  interface
867  subroutine plstripa( id, pen, x, y )
868  use plplot_flt
869  integer :: id, pen
870  real(kind=plflt) :: x, y
871  end subroutine plstripa
872  end interface
873 
874  interface
875  subroutine plstripd( id )
876  integer :: id
877  end subroutine plstripd
878  end interface
879 
880  interface
881  subroutine plstyl( n, mark, space )
882  integer :: n, mark, space
883  end subroutine plstyl
884  end interface
885 
886  interface plsurf3d
887  module procedure plsurf3d
888  end interface
889 
890  interface plstripc
891  module procedure plstripc
892  end interface
893 
894  interface plsvect
895  module procedure plsvect
896  end interface
897 
898  interface
899  subroutine plsvpa( xmin, xmax, ymin, ymax )
900  use plplot_flt
901  real(kind=plflt) :: xmin, xmax, ymin, ymax
902  end subroutine plsvpa
903  end interface
904 
905  interface
906  subroutine plsxax( digmax, digits )
907  integer :: digmax, digits
908  end subroutine plsxax
909  end interface
910 
911  interface
912  subroutine plsyax( digmax, digits )
913  integer :: digmax, digits
914  end subroutine plsyax
915  end interface
916 
917  interface plsym
918  module procedure plsym
919  end interface
920 
921  interface
922  subroutine plszax( digmax, digits )
923  integer :: digmax, digits
924  end subroutine plszax
925  end interface
926 
927  interface
928  subroutine pltext
929  end subroutine pltext
930  end interface
931 
932  interface
933  subroutine plvasp( aspect )
934  use plplot_flt
935  real(kind=plflt) :: aspect
936  end subroutine plvasp
937  end interface
938 
939  interface
940  subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
941  use plplot_flt
942  real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
943  end subroutine plvpas
944  end interface
945 
946  interface
947  subroutine plvpor( xmin, xmax, ymin, ymax )
948  use plplot_flt
949  real(kind=plflt) :: xmin, xmax, ymin, ymax
950  end subroutine plvpor
951  end interface
952 
953  interface
954  subroutine plvsta
955  end subroutine plvsta
956  end interface
957 
958  interface
959  subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
960  use plplot_flt
961  real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
962  end subroutine plw3d
963  end interface
964 
965  interface
966  subroutine plwidth( width )
967  use plplot_flt
968  real(kind=plflt) :: width
969  end subroutine plwidth
970  end interface
971 
972  interface
973  subroutine plwind( xmin, xmax, ymin, ymax )
974  use plplot_flt
975  real(kind=plflt) :: xmin, xmax, ymin, ymax
976  end subroutine plwind
977  end interface
978 
979  interface plxormod
980  module procedure plxormod
981  end interface
982 
983 
984  private :: convert_to_int
985  private :: convert_to_log
986 
987 ! -------------------------------------------------------------------
988 contains
989 ! -------------------------------------------------------------------
990  integer function convert_to_int( logvalue )
991  logical :: logvalue
992  if ( logvalue ) then
993  convert_to_int = 1
994  else
995  convert_to_int = 0
996  endif
997  end function convert_to_int
998 
999  logical function convert_to_log( intvalue )
1000  integer :: intvalue
1001  convert_to_log = intvalue.ne.0
1002  end function convert_to_log
1003 
1004  subroutine plbin( x, y, center )
1005  real(kind=plflt), dimension(:) :: x, y
1006  integer :: center
1007 
1008  call plbinf77( size(x), x, y, center )
1009  end subroutine plbin
1010 
1011  subroutine plcolorbar_1( p_colorbar_width, p_colorbar_height, &
1012  opt, position, x, y, &
1013  x_length, y_length, &
1017  n_labels, label_opts, labels, &
1018  n_axes, axis_opts, ticks, sub_ticks, &
1019  n_values, values)
1020  real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1022  integer :: n_labels, n_axes
1023  real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1024  integer, dimension(:) :: label_opts, sub_ticks, n_values
1025  real (kind=plflt), dimension(:) :: ticks
1026  real (kind=plflt), dimension(:,:) :: values
1027  character(len=*), dimension(:) :: labels, axis_opts
1028 
1029  !
1030  ! Convert the text arrays and store the results in a convenient
1031  ! albeit global location. This way we avoid all manner of complications.
1032  ! (Though introducing a potentially nasty one: non-threadsafety)
1033  !
1034  call pllegend07_cnv_text( 3, n_labels, labels )
1035  call pllegend07_cnv_text( 4, n_axes, axis_opts )
1036 
1037  call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1038  opt, position, x, y, &
1039  x_length, y_length, &
1043  n_labels, label_opts, n_axes, ticks, sub_ticks, &
1044  n_values, values)
1045  end subroutine plcolorbar_1
1046 
1047  subroutine plcolorbar_2( p_colorbar_width, p_colorbar_height, &
1048  opt, position, x, y, &
1049  x_length, y_length, &
1053  label_opts, labels, axis_opts, ticks, sub_ticks, &
1054  n_values, values)
1055  real (kind=plflt) :: p_colorbar_width, p_colorbar_height
1057  real (kind=plflt) :: x, y, x_length, y_length, low_cap_color, high_cap_color, cont_width
1058  integer, dimension(:) :: label_opts, sub_ticks, n_values
1059  real (kind=plflt), dimension(:) :: ticks
1060  real (kind=plflt), dimension(:,:) :: values
1061  character(len=*), dimension(:) :: labels, axis_opts
1062 
1063  integer :: n_labels, n_axes
1064 
1065  n_labels = size(label_opts,1)
1066  n_axes = size(axis_opts,1)
1067  !
1068  ! Convert the text arrays and store the results in a convenient
1069  ! albeit global location. This way we avoid all manner of complications.
1070  ! (Though introducing a potentially nasty one: non-threadsafety)
1071  !
1072  call pllegend07_cnv_text( 3, n_labels, labels )
1073  call pllegend07_cnv_text( 4, n_axes, axis_opts )
1074 
1075  call plcolorbar07(p_colorbar_width, p_colorbar_height, &
1076  opt, position, x, y, &
1077  x_length, y_length, &
1081  n_labels, label_opts, n_axes, ticks, sub_ticks, &
1082  n_values, values)
1083  end subroutine plcolorbar_2
1084 
1085  subroutine plcpstrm( iplsr, flags )
1086  integer :: iplsr
1087  logical :: flags
1088 
1089  integer :: iflags
1090 
1091  iflags = convert_to_int( flags )
1092  call plcpstrmf77( iplsr, iflags )
1093  end subroutine plcpstrm
1094 
1095  subroutine plerrx( xmin, xmax, y )
1096  real(kind=plflt), dimension(:) :: xmin, xmax, y
1097 
1098  call plerrxf77( size(xmin), xmin, xmax, y )
1099  end subroutine plerrx
1100 
1101  subroutine plerry( x, ymin, ymax )
1102  real(kind=plflt), dimension(:) :: x, ymin, ymax
1103 
1104  call plerryf77( size(x), x, ymin, ymax )
1105  end subroutine plerry
1106 
1107  subroutine plfill( x, y )
1108  real(kind=plflt), dimension(:) :: x, y
1109 
1110  call plfillf77( size(x), x, y )
1111  end subroutine plfill
1112 
1113  subroutine plfill3( x, y, z )
1114  real(kind=plflt), dimension(:) :: x, y, z
1115 
1116  call plfill3f77( size(x), x, y, z )
1117  end subroutine plfill3
1118 
1119  subroutine plgradient( x, y, angle )
1120  real(kind=plflt), dimension(:) :: x, y
1121  real(kind=plflt) :: angle
1122 
1123  call plgradientf77( size(x), x, y, angle )
1124  end subroutine plgradient
1125 
1126  subroutine plgriddata( x, y, z, xg, yg, zg, type, data )
1127  real(kind=plflt), dimension(:) :: x, y, z, xg, yg
1128  real(kind=plflt), dimension(:,:) :: zg
1129  real(kind=plflt) :: data
1130  integer :: type
1131 
1132  call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
1133  type, data )
1134 
1135  return
1136  end subroutine plgriddata
1137 
1138  subroutine plhist( data, datmin, datmax, nbin, oldwin )
1139  real(kind=plflt), dimension(:) :: data
1140  real(kind=plflt) :: datmin, datmax
1141  integer :: nbin, oldwin
1142 
1143  call plhistf77( size(data), data, datmin, datmax, nbin, oldwin )
1144  end subroutine plhist
1145 
1146 ! subroutine plimagefr( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1147 ! dxmin, dxmax, dymin, dymax, valuemin, valuemax )
1148 ! real(kind=plflt), dimension(:,:) :: idata
1149 ! real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1150 ! real(kind=plflt) :: dxmin, dxmax, dymin, dymax, &
1151 ! valuemin, valuemax
1152 !
1153 ! integer :: nx, ny
1154 !
1155 ! nx = size(idata,1)
1156 ! ny = size(idata,2)
1157 ! call plimagefrf77( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1158 ! dxmin, dxmax, dymin, dymax, valuemin, valuemax )
1159 ! end subroutine plimagefr
1160 
1161  subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
1162  dxmin, dxmax, dymin, dymax )
1163  real(kind=plflt), dimension(:,:) :: idata
1164  real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
1165  real(kind=plflt) :: dxmin, dxmax, dymin, dymax
1166 
1167  integer :: nx, ny
1168 
1169  nx = size(idata,1)
1170  ny = size(idata,2)
1171  call plimagef77( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
1172  dxmin, dxmax, dymin, dymax )
1173  end subroutine plimage
1174 
1175  subroutine pllegend_1( legend_width, legend_height, &
1176  opt, position, x, y, &
1177  plot_width, bg_color, bb_color, bb_style, &
1178  nrow, ncolumn, nlegend, opt_array, &
1179  text_offset, text_scale, text_spacing, &
1180  text_justification, text_colors, text, &
1181  box_colors, box_patterns, box_scales, &
1182  box_line_widths, &
1183  line_colors, line_styles, line_widths, &
1184  symbol_colors, symbol_scales, &
1185  symbol_numbers, symbols )
1186 
1187  real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1188  real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1189  integer :: position, opt, bg_color, bb_color, bb_style
1190  integer :: nrow, ncolumn, nlegend
1191 
1192  character(len=*), dimension(:) :: text, symbols
1193 
1194  integer, dimension(:) :: opt_array, text_colors, box_colors
1195  integer, dimension(:) :: box_patterns
1196  real(kind=plflt), dimension(:) :: box_line_widths
1197  integer, dimension(:) :: line_colors, line_styles
1198  real(kind=plflt), dimension(:) :: line_widths
1199  integer, dimension(:) :: symbol_colors, symbol_numbers
1200  real(kind=plflt), dimension(:) :: box_scales, symbol_scales
1201 
1202  !
1203  ! Convert the text arrays and store the results in a convenient
1204  ! albeit global location. This way we avoid all manner of complications.
1205  ! (Though introducing a potentially nasty one: non-threadsafety)
1206  !
1207  call pllegend07_cnv_text( 1, nlegend, text )
1208  call pllegend07_cnv_text( 2, nlegend, symbols )
1209 
1210  call pllegend07( legend_width, legend_height, opt, position, x, y, &
1211  plot_width, bg_color, bb_color, bb_style, &
1212  nrow, ncolumn, nlegend, opt_array, &
1213  text_offset, text_scale, text_spacing, &
1214  text_justification, text_colors, &
1215  box_colors, box_patterns, box_scales, &
1216  box_line_widths, &
1217  line_colors, line_styles, line_widths, &
1218  symbol_colors, symbol_scales, &
1219  symbol_numbers )
1220 
1221  end subroutine pllegend_1
1222 
1223  subroutine pllegend_2( legend_width, legend_height, &
1224  opt, position, x, y, &
1225  plot_width, bg_color, bb_color, bb_style, &
1226  nrow, ncolumn, opt_array, &
1227  text_offset, text_scale, text_spacing, &
1228  text_justification, text_colors, text, &
1229  box_colors, box_patterns, box_scales, &
1230  box_line_widths, &
1231  line_colors, line_styles, line_widths, &
1232  symbol_colors, symbol_scales, &
1233  symbol_numbers, symbols )
1234 
1235  real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
1236  real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
1237  integer :: position, opt, bg_color, bb_color, bb_style
1238  integer :: nrow, ncolumn
1239 
1240  character(len=*), dimension(:) :: text, symbols
1241 
1242  integer, dimension(:) :: opt_array, text_colors, box_colors
1243  integer, dimension(:) :: box_patterns
1244  real(kind=plflt), dimension(:) :: box_line_widths
1245  integer, dimension(:) :: line_colors, line_styles
1246  real(kind=plflt), dimension(:) :: line_widths
1247  integer, dimension(:) :: symbol_colors, symbol_numbers
1248  real(kind=plflt), dimension(:) :: box_scales, symbol_scales
1249 
1250  integer :: nlegend
1251 
1252  !
1253  ! Determine number of legend entries
1254  !
1255  nlegend = min( size(opt_array), size(text) )
1256 
1257  call pllegend_1( legend_width, legend_height, &
1258  opt, position, x, y, &
1259  plot_width, bg_color, bb_color, bb_style, &
1260  nrow, ncolumn, nlegend, opt_array, &
1261  text_offset, text_scale, text_spacing, &
1262  text_justification, text_colors, text, &
1263  box_colors, box_patterns, box_scales, &
1264  box_line_widths, &
1265  line_colors, line_styles, line_widths, &
1266  symbol_colors, symbol_scales, &
1267  symbol_numbers, symbols )
1268 
1269  end subroutine pllegend_2
1270 
1271  subroutine plline( x, y )
1272  real(kind=plflt), dimension(:) :: x, y
1273 
1274  call pllinef77( size(x), x, y )
1275  end subroutine plline
1276 
1277  subroutine plline3( x, y, z )
1278  real(kind=plflt), dimension(:) :: x, y, z
1279 
1280  call plline3f77( size(x), x, y, z )
1281  end subroutine plline3
1282 
1283  subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy)
1284  use plplot_flt
1285  use plplot_str
1286  implicit none
1287  real(kind=plflt) minx, maxx, miny, maxy
1288  character*(*) mapname
1289  external mapform
1290 
1291  call plstrf2c(mapname, string1)
1292 
1293  call plsetmapformc(mapform)
1294  s1 = transfer( string1, s1 )
1295  call plmap7(s1,minx,maxx,miny,maxy)
1296 
1297  end subroutine plmap1
1298 
1299  subroutine plmap2(mapname,minx,maxx,miny,maxy)
1300  use plplot_flt
1301  use plplot_str
1302  implicit none
1303  real(kind=plflt) minx, maxx, miny, maxy
1304  character*(*) mapname
1305 
1306  call plstrf2c(mapname, string1)
1307 
1308  call plclearmapformc()
1309  s1 = transfer( string1, s1 )
1310  call plmap7(s1,minx,maxx,miny,maxy)
1311 
1312  end subroutine plmap2
1313 
1314  subroutine plmeridians1(mapform,dlong,dlat,minlong,maxlong, &
1315  minlat,maxlat)
1316 
1317  implicit none
1318  real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1319  external mapform
1320 
1321  call plsetmapformc(mapform)
1322  call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1323 
1324  end subroutine plmeridians1
1325 
1326  subroutine plmeridians2(dlong,dlat,minlong,maxlong, &
1327  minlat,maxlat)
1328 
1329  implicit none
1330  real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
1331 
1332  call plclearmapformc
1333  call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
1334 
1335  end subroutine plmeridians2
1336 
1337  subroutine plmesh( x, y, z, opt )
1338  integer :: opt
1339  real(kind=plflt), dimension(:) :: x, y
1340  real(kind=plflt), dimension(:,:) :: z
1341 
1342  call plmeshf77( x, y, z, size(x), size(y), opt, size(x))
1343 
1344  end subroutine plmesh
1345 
1346  subroutine plmeshc( x, y, z, opt, clevel )
1347  integer :: opt
1348  real(kind=plflt), dimension(:) :: x, y, clevel
1349  real(kind=plflt), dimension(:,:) :: z
1350 
1351  call plmeshcf77( x, y, z, size(x), size(y), opt, &
1352  clevel, size(clevel), size(x))
1353 
1354  end subroutine plmeshc
1355 
1356  subroutine plot3d( x, y, z, opt, side )
1357  integer :: opt
1358  logical :: side
1359  real(kind=plflt), dimension(:) :: x, y
1360  real(kind=plflt), dimension(:,:) :: z
1361  integer :: iside
1362 
1363  iside = convert_to_int(side)
1364  call plot3df77( x, y, z, size(x), size(y), opt, iside, size(x))
1365 
1366  end subroutine plot3d
1367 
1368  subroutine plot3dc( x, y, z, opt, clevel )
1369  integer :: opt
1370  real(kind=plflt), dimension(:) :: x, y, clevel
1371  real(kind=plflt), dimension(:,:) :: z
1372 
1373  call plot3dcf77( x, y, z, size(x), size(y), opt, clevel, &
1374  size(clevel), size(x))
1375 
1376  end subroutine plot3dc
1377 
1378  subroutine plspause( lpause )
1379  logical :: lpause
1380 
1381  integer :: ipause
1382 
1383  ipause = convert_to_int( lpause )
1384  call plspausef77( ipause )
1385  end subroutine plspause
1386 
1387  subroutine plsurf3d( x, y, z, opt, clevel )
1388  integer :: opt
1389  real(kind=plflt), dimension(:) :: x, y, clevel
1390  real(kind=plflt), dimension(:,:) :: z
1391 
1392  call plsurf3df77( x, y, z, size(x), size(y), opt, clevel, &
1393  size(clevel), size(x))
1394 
1395  end subroutine plsurf3d
1396 
1397  subroutine plpoin( x, y, code )
1398  integer :: code
1399  real(kind=plflt), dimension(:) :: x, y
1400 
1401  call plpoinf77( size(x), x, y, code )
1402  end subroutine plpoin
1403 
1404  subroutine plpoin3( x, y, z, code )
1405  integer :: code
1406  real(kind=plflt), dimension(:) :: x, y, z
1407 
1408  call plpoin3f77( size(x), x, y, z, code )
1409  end subroutine plpoin3
1410 
1411  subroutine plpoly3( x, y, z, draw, ifcc )
1412  logical :: ifcc
1413  logical, dimension(:) :: draw
1414  real(kind=plflt), dimension(:) :: x, y, z
1415 
1416  integer, dimension(size(draw)) :: idraw
1417  integer :: i
1418  integer :: iifcc
1419 
1420  iifcc = convert_to_int( ifcc )
1421  do i = 1,size(draw)
1422  idraw(i) = convert_to_int( draw(i) )
1423  enddo
1424  call plpoly3f77( size(x), x, y, z, idraw, iifcc )
1425  end subroutine plpoly3
1426 
1427  real (kind=plflt) function plrandd()
1428  external plranddf77
1429  real(kind=plflt) :: plranddf77
1430 
1431  plrandd = plranddf77()
1432  end function plrandd
1433 
1434  subroutine plscmap0( r, g, b )
1435  integer, dimension(:) :: r, g, b
1436 
1437  call plscmap0f77( r, g, b, size(r) )
1438  end subroutine plscmap0
1439 
1440  subroutine plscmap0a( r, g, b, a )
1441  integer, dimension(:) :: r, g, b
1442  real(kind=plflt), dimension(:) :: a
1443 
1444  call plscmap0af77( r, g, b, a, size(r) )
1445  end subroutine plscmap0a
1446 
1447  subroutine plscmap1( r, g, b )
1448  integer, dimension(:) :: r, g, b
1449 
1450  call plscmap1f77( r, g, b, size(r) )
1451  end subroutine plscmap1
1452 
1453  subroutine plscmap1a( r, g, b, a )
1454  integer, dimension(:) :: r, g, b
1455  real(kind=plflt), dimension(:) :: a
1456 
1457  call plscmap1af77( r, g, b, a, size(r) )
1458  end subroutine plscmap1a
1459 
1460  subroutine plscmap1l( rgbtype, intensity, coord1, coord2, coord3, alt_hue_path)
1461  logical :: rgbtype
1462  real(kind=plflt), dimension(:) :: intensity, coord1, coord2, coord3
1463  logical, dimension(:) :: alt_hue_path
1464 
1465  integer, dimension(size(alt_hue_path)) :: ialt_hue_path
1466  integer :: i
1467  integer :: type
1468 
1469  type = convert_to_int( rgbtype )
1470  do i = 1,size(alt_hue_path)
1471  ialt_hue_path(i) = convert_to_int( alt_hue_path(i) )
1472  enddo
1473  call plscmap1lf77( type, size(intensity), intensity, coord1, coord2, coord3, ialt_hue_path )
1474  end subroutine plscmap1l
1475 
1476  subroutine plscmap1l2( rgbtype, intensity, coord1, coord2, coord3)
1477  logical :: rgbtype
1478  real(kind=plflt), dimension(:) :: intensity, coord1, coord2, coord3
1479 
1480  integer :: type
1481 
1482  type = convert_to_int( rgbtype )
1483  call plscmap1l2f77( type, size(intensity), intensity, coord1, coord2, coord3)
1484  end subroutine plscmap1l2
1485 
1486  subroutine plscmap1la( rgbtype, intensity, coord1, coord2, coord3, a, alt_hue_path)
1487  logical :: rgbtype
1488  real(kind=plflt), dimension(:) :: intensity, coord1, coord2, coord3, a
1489  logical, dimension(:) :: alt_hue_path
1490 
1491  integer, dimension(size(alt_hue_path)) :: ialt_hue_path
1492  integer :: i
1493  integer :: type
1494 
1495  type = convert_to_int( rgbtype )
1496  do i = 1,size(alt_hue_path)
1497  ialt_hue_path(i) = convert_to_int( alt_hue_path(i) )
1498  enddo
1499  call plscmap1laf77( type, size(intensity), intensity, coord1, coord2, coord3, a, ialt_hue_path )
1500  end subroutine plscmap1la
1501 
1502  subroutine plscmap1la2( rgbtype, intensity, coord1, coord2, coord3, a)
1503  logical :: rgbtype
1504  real(kind=plflt), dimension(:) :: intensity, coord1, coord2, coord3, a
1505 
1506  integer :: type
1507 
1508  type = convert_to_int( rgbtype )
1509  call plscmap1la2f77( type, size(intensity), intensity, coord1, coord2, coord3, a)
1510  end subroutine plscmap1la2
1511 
1512  subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump, &
1513  ymin, ymax, xlpos, ylpos, y_ascl, acc, &
1514  colbox, collab, colline, styline, legline, &
1515  labx, laby, labtop)
1516 
1517 ! use plplot_str
1518  implicit none
1519  integer id, colbox, collab, colline(4), styline(4)
1520  character*(*) xspec, yspec, legline(4), labx, laby, labtop
1521  real(kind=plflt) xmin, xmax, xjump, ymin, ymax, xlpos, ylpos
1522  logical y_ascl, acc
1523  integer iy_ascl, iacc
1524 
1525 
1526  call plstrf2c(xspec, string1)
1527  call plstrf2c(yspec, string2)
1528  call plstrf2c(legline(1), string3)
1529  call plstrf2c(legline(2), string4)
1530  call plstrf2c(legline(3), string5)
1531  call plstrf2c(legline(4), string6)
1532  call plstrf2c(labx, string7)
1533  call plstrf2c(laby, string8)
1534  call plstrf2c(labtop, string9)
1535 
1536  iy_ascl = convert_to_int( y_ascl )
1537  iacc = convert_to_int( acc )
1538 
1539  s1 = transfer( string1, s1 )
1540  s2 = transfer( string2, s2 )
1541  s3 = transfer( string3, s3 )
1542  s4 = transfer( string4, s4 )
1543  s5 = transfer( string5, s5 )
1544  s6 = transfer( string6, s6 )
1545  s7 = transfer( string7, s7 )
1546  s8 = transfer( string8, s8 )
1547  s9 = transfer( string9, s9 )
1548  call plstripcf77(id, s1, s2, xmin, xmax, xjump, &
1549  ymin, ymax, xlpos, ylpos, iy_ascl, iacc, &
1550  colbox, collab, colline, styline, &
1551  s3, s4, s5, s6, &
1552  s7, s8, s9)
1553 
1554  end subroutine plstripc
1555 
1556  subroutine plsvect( arrowx, arrowy, fill )
1557  logical :: fill
1558  real(kind=plflt), dimension(:) :: arrowx, arrowy
1559  integer ifill
1560  ifill = convert_to_int(fill)
1561 
1562  call plsvectf77( arrowx, arrowy, size(arrowx), ifill )
1563  end subroutine plsvect
1564 
1565  subroutine plsym( x, y, code )
1566  integer :: code
1567  real(kind=plflt), dimension(:) :: x, y
1568 
1569  call plsymf77( size(x), x, y, code )
1570  end subroutine plsym
1571 
1572  subroutine plxormod( mode, status )
1573  logical :: mode, status
1574  integer :: imode, istatus
1575  imode = convert_to_int(mode)
1576  call plxormodf77( imode, istatus)
1577  status = convert_to_log(istatus)
1578  end subroutine plxormod
1579 end module plplot
#define plsfam
Definition: plplot.h:709
#define plw3d
Definition: plplot.h:754
static PLINT text
Definition: gcw.c:97
#define plsstrm
Definition: plplot.h:727
if write to the Free Software C Franklin Fifth MA USA integer maxlen parameter(maxlen=320) character *(maxlen) string1
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const * label
subroutine plscmap1la2(rgbtype, intensity, coord1, coord2, coord3, a)
#define plspage
Definition: plplot.h:723
#define plvpor
Definition: plplot.h:752
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string7
Definition: sfstubs.h:24
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string4
Definition: sfstubs.h:24
subroutine plcolorbar_1(p_colorbar_width, p_colorbar_height, opt, position, x, y, x_length, y_length, bg_color, bb_color, bb_style, low_cap_color, high_cap_color, cont_color, cont_width, n_labels, label_opts, labels, n_axes, axis_opts, ticks, sub_ticks, n_values, values)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT nx
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
#define plsyax
Definition: plplot.h:744
subroutine plcontour_2(z, kx, lx, ky, ly, clevel, xg, yg)
Definition: sfstubs.f90:219
void mapform(PLINT n, PLFLT *x, PLFLT *y)
Definition: tclAPI.c:3228
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT bb_color
void PLFLT PLINT PLINT position
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT const char *const const PLFLT const PLINT const PLINT * n_values
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)
#define plsmin
Definition: plplot.h:720
#define plwind
Definition: plplot.h:757
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
integer function, private convert_to_int(logvalue)
Definition: sfstubsf95.f90:990
subroutine plvectors_tr(u, v, scale, tr)
Definition: sfstubs.f90:379
#define plstyl
Definition: plplot.h:738
#define plimage
Definition: plplot.h:648
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s9(80) equivalence(s1
subroutine plimagefr_1(z, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xg, yg)
Definition: sfstubs.f90:615
static void fill(PLINT n, const PLFLT *x, const PLFLT *y)
Definition: plstream.cc:653
#define plsym
Definition: plplot.h:745
void PLFLT PLINT PLINT PLFLT x
#define plsvect
Definition: plplot.h:741
#define plssub
Definition: plplot.h:728
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 plszax
Definition: plplot.h:746
#define plvsta
Definition: plplot.h:753
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT const char *const const PLFLT const PLINT const PLINT const PLFLT * a
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
subroutine pllegend_2(legend_width, legend_height, opt, position, x, y, plot_width, bg_color, bb_color, bb_style, nrow, ncolumn, opt_array, text_offset, text_scale, text_spacing, text_justification, text_colors, text, box_colors, box_patterns, box_scales, box_line_widths, line_colors, line_styles, line_widths, symbol_colors, symbol_scales, symbol_numbers, symbols)
#define plsori
Definition: plplot.h:722
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT const char *const * axis_opts
subroutine plmap1(mapform, mapname, minx, maxx, miny, maxy)
void width(PLFLT width)
Definition: plstream.cc:2341
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
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT low_cap_color
subroutine plcolorbar_2(p_colorbar_width, p_colorbar_height, opt, position, x, y, x_length, y_length, bg_color, bb_color, bb_style, low_cap_color, high_cap_color, cont_color, cont_width, label_opts, labels, axis_opts, ticks, sub_ticks, n_values, values)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s7(80)
#define plssym
Definition: plplot.h:729
#define plstar
Definition: plplot.h:730
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
subroutine plvectors_0(u, v, scale)
Definition: sfstubs.f90:345
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 plstransform
Definition: plplot.h:732
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string2 string4 string6 s8
Definition: sfstubs.h:32
#define plsxax
Definition: plplot.h:743
void prec(PLINT setp, PLINT prec)
Definition: plstream.cc:1290
subroutine plshades_multiple_0(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width)
Definition: sfstubs.f90:502
subroutine plmeridians1(mapform, dlong, dlat, minlong, maxlong, minlat, maxlat)
#define plsmaj
Definition: plplot.h:717
subroutine plscmap1l2(rgbtype, intensity, coord1, coord2, coord3)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT high_cap_color
#define pltext
Definition: plplot.h:747
#define plwidth
Definition: plplot.h:756
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s5(80)
#define plspause
Definition: plplot.h:726
#define plstripd
Definition: plplot.h:737
#define plstripc
Definition: plplot.h:736
#define plstripa
Definition: plplot.h:735
subroutine plshades_multiple_tr(z, defined, xmin, xmax, ymin, ymax, clevel, fill_width, cont_color, cont_width, tr)
Definition: sfstubs.f90:576
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT cont_color
#define plvpas
Definition: plplot.h:751
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
#define plsfont
Definition: plplot.h:712
subroutine plvectors_2(u, v, scale, xg, yg)
Definition: sfstubs.f90:367
static PLFLT value(double n1, double n2, double hue)
Definition: plctrl.c:1203
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
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT x_length
#define plxormod
Definition: plplot.h:758
subroutine plmeridians2(dlong, dlat, minlong, maxlong, minlat, maxlat)
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
void col(PLcolor c)
Definition: plstream.cc:452
subroutine plcontour_0(z, kx, lx, ky, ly, clevel)
Definition: sfstubs.f90:195
void font(PLINT ifont)
Definition: plstream.cc:680
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT cont_width
#define min(x, y)
Definition: nnpi.c:87
void PLFLT * p_colorbar_height
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT bb_style
void string3(PLINT n, const PLFLT *x, const PLFLT *y, const PLFLT *z, const char *string)
Definition: plstream.cc:2119
subroutine plstrf2c(string1, string2, maxlen)
Definition: strutil.f:21
#define plsvpa
Definition: plplot.h:742
subroutine plmap2(mapname, minx, maxx, miny, maxy)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string5
Definition: sfstubs.h:24
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT bg_color
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT * label_opts
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT const char *const const PLFLT const PLINT * sub_ticks
subroutine plslabelfunc_on(labelfunc)
Definition: sfstubsf95.f90:763
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
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string8
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 const char *const const PLFLT * ticks
#define plvasp
Definition: plplot.h:749
#define plrandd
Definition: plplot.h:678
subroutine pllegend_1(legend_width, legend_height, opt, position, x, y, plot_width, bg_color, bb_color, bb_style, nrow, ncolumn, nlegend, opt_array, text_offset, text_scale, text_spacing, text_justification, text_colors, text, box_colors, box_patterns, box_scales, box_line_widths, line_colors, line_styles, line_widths, symbol_colors, symbol_scales, symbol_numbers, symbols)
logical function, private convert_to_log(intvalue)
Definition: sfstubsf95.f90:999
#define plsfci
Definition: plplot.h:710
#define plsurf3d
Definition: plplot.h:739
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT y_length
#define plslabelfunc
Definition: plplot.h:716
subroutine plcontour_2_all(z, clevel, xg, yg)
Definition: sfstubs.f90:276
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT n_labels