Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[12099] trunk/bindings/f95
|
From: <arj...@us...> - 2011-12-08 05:50:02
|
Revision: 12099
http://plplot.svn.sourceforge.net/plplot/?rev=12099&view=rev
Author: arjenmarkus
Date: 2011-12-08 05:49:54 +0000 (Thu, 08 Dec 2011)
Log Message:
-----------
Reformatted the code, introduced more Fortran 95 intrinsics (notably trim())
to simplify the code.
Modified Paths:
--------------
trunk/bindings/f95/configurable.f90
trunk/bindings/f95/sfstubsf95.f90
trunk/bindings/f95/strutil.f90
Modified: trunk/bindings/f95/configurable.f90
===================================================================
--- trunk/bindings/f95/configurable.f90 2011-12-08 05:48:19 UTC (rev 12098)
+++ trunk/bindings/f95/configurable.f90 2011-12-08 05:49:54 UTC (rev 12099)
@@ -22,7 +22,7 @@
use plplot
implicit none
integer :: mode
- integer :: maxargs, iargs, numargs, index, maxindex, iargc, islen
+ integer :: maxargs, iargs, numargs, index, maxindex, iargc
parameter(maxindex = maxlen/4)
parameter (maxargs=20)
character (len=maxlen) :: arg
@@ -41,7 +41,7 @@
endif
do 10 iargs = 0, numargs
call getarg(iargs, arg)
- call plstrf2c(arg(:islen(arg)), string1, maxlen)
+ call plstrf2c(trim(arg), string1, maxlen)
s1 = transfer( string1, s1 )
do 5 index = 1, maxindex
iargsarr(index, iargs+1) = s1(index)
Modified: trunk/bindings/f95/sfstubsf95.f90
===================================================================
--- trunk/bindings/f95/sfstubsf95.f90 2011-12-08 05:48:19 UTC (rev 12098)
+++ trunk/bindings/f95/sfstubsf95.f90 2011-12-08 05:49:54 UTC (rev 12099)
@@ -50,1000 +50,1002 @@
!
!***********************************************************************
- !
- ! Parameters for identifying the kind of PLplot's real
- ! numbers (a configuration parameter)
- ! Use whatever name suits you better.
- !
- module plplot_flt
- include 'plflt.inc'
- end module
+!
+! Parameters for identifying the kind of PLplot's real
+! numbers (a configuration parameter)
+! Use whatever name suits you better.
+!
+module plplot_flt
+ include 'plflt.inc'
+end module
- !
- ! Parameters and variables for strings / arrays for
- ! string conversion
- !
- module plplot_str
- integer :: maxleni, maxlen
- parameter (maxlen = 320)
- parameter (maxleni = 80)
- character (len = maxlen) :: string1, string2, string3
- character (len = maxlen) :: string4, string5, string6
- character (len = maxlen) :: string7, string8, string9
- integer, dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
- end module
+!
+! Parameters and variables for strings / arrays for
+! string conversion
+!
+module plplot_str
+ integer :: maxleni, maxlen
+ parameter (maxlen = 320)
+ parameter (maxleni = 80)
+ character (len = maxlen) :: string1, string2, string3
+ character (len = maxlen) :: string4, string5, string6
+ character (len = maxlen) :: string7, string8, string9
+ integer, dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
+end module
- module plplotp
- use plplot_flt
- use plplot_str
- implicit none
+module plplotp
+ use plplot_flt
+ use plplot_str
+ use plplot_strutils
+ implicit none
- interface plcont
- module procedure plcontour_0
- module procedure plcontour_1
- module procedure plcontour_2
- module procedure plcontour_tr
- module procedure plcontour_0_all
- module procedure plcontour_1_all
- module procedure plcontour_2_all
- module procedure plcontour_tr_all
- end interface
- private :: plcontour_0, plcontour_1, plcontour_2, plcontour_tr
- private :: plcontour_0_all, plcontour_1_all, plcontour_2_all, plcontour_tr_all
+ interface plcont
+ module procedure plcontour_0
+ module procedure plcontour_1
+ module procedure plcontour_2
+ module procedure plcontour_tr
+ module procedure plcontour_0_all
+ module procedure plcontour_1_all
+ module procedure plcontour_2_all
+ module procedure plcontour_tr_all
+ end interface
+ private :: plcontour_0, plcontour_1, plcontour_2, plcontour_tr
+ private :: plcontour_0_all, plcontour_1_all, plcontour_2_all, plcontour_tr_all
- interface plvect
- module procedure plvectors_0
- module procedure plvectors_1
- module procedure plvectors_2
- module procedure plvectors_tr
- end interface
- private :: plvectors_0, plvectors_1, plvectors_2, plvectors_tr
+ interface plvect
+ module procedure plvectors_0
+ module procedure plvectors_1
+ module procedure plvectors_2
+ module procedure plvectors_tr
+ end interface
+ private :: plvectors_0, plvectors_1, plvectors_2, plvectors_tr
- interface plshade
- module procedure plshade_single_0
- module procedure plshade_single_1
- module procedure plshade_single_2
- module procedure plshade_single_tr
- end interface
- private :: plshade_single_0, plshade_single_1, plshade_single_2, plshade_single_tr
+ interface plshade
+ module procedure plshade_single_0
+ module procedure plshade_single_1
+ module procedure plshade_single_2
+ module procedure plshade_single_tr
+ end interface
+ private :: plshade_single_0, plshade_single_1, plshade_single_2, plshade_single_tr
- interface plshades
- module procedure plshades_multiple_0
- module procedure plshades_multiple_1
- module procedure plshades_multiple_2
- module procedure plshades_multiple_tr
- end interface
- private :: plshades_multiple_0, plshades_multiple_1, &
- plshades_multiple_2, plshades_multiple_tr
+ interface plshades
+ module procedure plshades_multiple_0
+ module procedure plshades_multiple_1
+ module procedure plshades_multiple_2
+ module procedure plshades_multiple_tr
+ end interface
+ private :: plshades_multiple_0, plshades_multiple_1, &
+ plshades_multiple_2, plshades_multiple_tr
- interface plimagefr
- module procedure plimagefr_0
- module procedure plimagefr_1
- module procedure plimagefr_2
- module procedure plimagefr_tr
- end interface
- private :: plimagefr_0, plimagefr_1, plimagefr_2, plimagefr_tr
+ interface plimagefr
+ module procedure plimagefr_0
+ module procedure plimagefr_1
+ module procedure plimagefr_2
+ module procedure plimagefr_tr
+ end interface
+ private :: plimagefr_0, plimagefr_1, plimagefr_2, plimagefr_tr
- contains
- include 'sfstubs.f90'
- end module plplotp
+contains
+ include 'sfstubs.f90'
+end module plplotp
- module plplot_types
- use plplot_flt
- type :: PLGraphicsIn
- integer type ! of event (CURRENTLY UNUSED)
- integer state ! key or button mask
- integer keysym ! key selected
- integer button ! mouse button selected
- integer subwindow ! subwindow (alias subpage, alias subplot) number
- character(len=16) string ! translated string
- integer pX, pY ! absolute device coordinates of pointer
- real(kind=plflt) dX, dY ! relative device coordinates of pointer
- real(kind=plflt) wX, wY ! world coordinates of pointer
- end type PLGraphicsIn
- end module plplot_types
+module plplot_types
+ use plplot_flt
+ type :: PLGraphicsIn
+ integer type ! of event (CURRENTLY UNUSED)
+ integer state ! key or button mask
+ integer keysym ! key selected
+ integer button ! mouse button selected
+ integer subwindow ! subwindow (alias subpage, alias subplot) number
+ character(len=16) string ! translated string
+ integer pX, pY ! absolute device coordinates of pointer
+ real(kind=plflt) dX, dY ! relative device coordinates of pointer
+ real(kind=plflt) wX, wY ! world coordinates of pointer
+ end type PLGraphicsIn
+end module plplot_types
- module plplot
- use plplotp
- use plplot_flt
- use plplot_types
- !
- ! To be added: renaming list
- !
+module plplot
+ use plplotp
+ use plplot_flt
+ use plplot_types
+ use plplot_strutils
+ !
+ ! To be added: renaming list
+ !
- implicit none
- include 'plplot_parameters.h'
+ implicit none
+ include 'plplot_parameters.h'
- !
- ! To be added: alternative interfaces
- !
- interface
- subroutine pladv( sub )
+ !
+ ! To be added: alternative interfaces
+ !
+ interface
+ subroutine pladv( sub )
integer :: sub
- end subroutine pladv
- end interface
+ end subroutine pladv
+ end interface
- interface plbin
- module procedure plbin
- end interface
+ interface plbin
+ module procedure plbin
+ end interface
- interface
- subroutine plbop
- end subroutine plbop
- end interface
+ interface
+ subroutine plbop
+ end subroutine plbop
+ end interface
- interface
- subroutine plcalc_world( rx, ry, wx, wy, window )
+ interface
+ subroutine plcalc_world( rx, ry, wx, wy, window )
use plplot_flt
real(kind=plflt) :: rx, ry, wx, wy
integer :: window
- end subroutine plcalc_world
- end interface
+ end subroutine plcalc_world
+ end interface
- interface
- subroutine plclear
- end subroutine plclear
- end interface
+ interface
+ subroutine plclear
+ end subroutine plclear
+ end interface
- interface
- subroutine plcol0( icol )
+ interface
+ subroutine plcol0( icol )
integer :: icol
- end subroutine plcol0
- end interface
+ end subroutine plcol0
+ end interface
- interface
- subroutine plcol1( col )
+ interface
+ subroutine plcol1( col )
use plplot_flt
real(kind=plflt) :: col
- end subroutine plcol1
- end interface
+ end subroutine plcol1
+ end interface
- interface plcpstrm
+ interface plcpstrm
module procedure plcpstrm
- end interface
+ end interface
- interface
- subroutine plend
- end subroutine plend
- end interface
+ interface
+ subroutine plend
+ end subroutine plend
+ end interface
- interface
- subroutine plend1
- end subroutine plend1
- end interface
+ interface
+ subroutine plend1
+ end subroutine plend1
+ end interface
- interface
- subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
+ interface
+ subroutine plenv( xmin, xmax, ymin, ymax, just, axis )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
integer :: just, axis
- end subroutine plenv
- end interface
+ end subroutine plenv
+ end interface
- interface
- subroutine pleop
- end subroutine pleop
- end interface
+ interface
+ subroutine pleop
+ end subroutine pleop
+ end interface
- interface plerrx
- module procedure plerrx
- end interface
+ interface plerrx
+ module procedure plerrx
+ end interface
- interface plerry
- module procedure plerry
- end interface
+ interface plerry
+ module procedure plerry
+ end interface
- interface plfamadv
- subroutine plfamadv
- end subroutine plfamadv
- end interface
+ interface plfamadv
+ subroutine plfamadv
+ end subroutine plfamadv
+ end interface
- interface plfill
- module procedure plfill
- end interface
+ interface plfill
+ module procedure plfill
+ end interface
- interface plfill3
- module procedure plfill3
- end interface
+ interface plfill3
+ module procedure plfill3
+ end interface
- interface
- subroutine plflush
- end subroutine plflush
- end interface
+ interface
+ subroutine plflush
+ end subroutine plflush
+ end interface
- interface
- subroutine plfont( font )
+ interface
+ subroutine plfont( font )
integer :: font
- end subroutine plfont
- end interface
+ end subroutine plfont
+ end interface
- interface
- subroutine plfontld( charset )
+ interface
+ subroutine plfontld( charset )
integer :: charset
- end subroutine plfontld
- end interface
+ end subroutine plfontld
+ end interface
- interface
- subroutine plgchr( chrdef, chrht )
+ interface
+ subroutine plgchr( chrdef, chrht )
use plplot_flt
real(kind=plflt) :: chrdef, chrht
- end subroutine plgchr
- end interface
+ end subroutine plgchr
+ end interface
- interface
- subroutine plgcol0( icol, r, g, b )
+ interface
+ subroutine plgcol0( icol, r, g, b )
integer :: icol, r, g, b
- end subroutine plgcol0
- end interface
+ end subroutine plgcol0
+ end interface
- interface
- subroutine plgcol0a( icol, r, g, b, a )
+ interface
+ subroutine plgcol0a( icol, r, g, b, a )
use plplot_flt
integer :: icol, r, g, b
real(kind=plflt) :: a
- end subroutine plgcol0a
- end interface
+ end subroutine plgcol0a
+ end interface
- interface
- subroutine plgcolbg( r, g, b )
+ interface
+ subroutine plgcolbg( r, g, b )
integer :: r, g, b
- end subroutine plgcolbg
- end interface
+ end subroutine plgcolbg
+ end interface
- interface
- subroutine plgcolbga( r, g, b, a )
+ interface
+ subroutine plgcolbga( r, g, b, a )
use plplot_flt
integer :: r, g, b
real(kind=plflt) :: a
- end subroutine plgcolbga
- end interface
+ end subroutine plgcolbga
+ end interface
- interface
- subroutine plgcompression( compression )
+ interface
+ subroutine plgcompression( compression )
integer :: compression
- end subroutine plgcompression
- end interface
+ end subroutine plgcompression
+ end interface
- interface
- subroutine plgdidev( mar, aspect, jx, jy )
+ interface
+ subroutine plgdidev( mar, aspect, jx, jy )
use plplot_flt
real(kind=plflt) :: mar, aspect, jx, jy
- end subroutine plgdidev
- end interface
+ end subroutine plgdidev
+ end interface
- interface
- subroutine plgdiori( rot )
+ interface
+ subroutine plgdiori( rot )
use plplot_flt
real(kind=plflt) :: rot
- end subroutine plgdiori
- end interface
+ end subroutine plgdiori
+ end interface
- interface
- subroutine plgdiplt( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plgdiplt( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plgdiplt
- end interface
+ end subroutine plgdiplt
+ end interface
- interface
- subroutine plgetcursor( gin )
- use plplot_flt
- use plplot_types
- type(PLGraphicsIn) :: gin
- end subroutine plgetcursor
- end interface
+ interface
+ subroutine plgetcursor( gin )
+ use plplot_flt
+ use plplot_types
+ type(PLGraphicsIn) :: gin
+ end subroutine plgetcursor
+ end interface
- interface
- subroutine plgfam( fam, num, bmax )
+ interface
+ subroutine plgfam( fam, num, bmax )
integer :: fam, num, bmax
- end subroutine plgfam
- end interface
+ end subroutine plgfam
+ end interface
- interface
- subroutine plgfci( fci )
+ interface
+ subroutine plgfci( fci )
use plplot_flt
integer(kind=plunicode) :: fci
- end subroutine plgfci
- end interface
+ end subroutine plgfci
+ end interface
- interface
- subroutine plgfont( family, style, weight )
+ interface
+ subroutine plgfont( family, style, weight )
integer :: family, style, weight
- end subroutine plgfont
- end interface
+ end subroutine plgfont
+ end interface
- interface
- subroutine plglevel( level )
+ interface
+ subroutine plglevel( level )
integer :: level
- end subroutine plglevel
- end interface
+ end subroutine plglevel
+ end interface
- interface
- subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
+ interface
+ subroutine plgpage( xpmm, ypmm, xwid, ywid, xoff, yoff )
use plplot_flt
real(kind=plflt) :: xpmm, ypmm
integer :: xwid, ywid, xoff, yoff
- end subroutine plgpage
- end interface
+ end subroutine plgpage
+ end interface
- interface
- subroutine plgra
- end subroutine plgra
- end interface
+ interface
+ subroutine plgra
+ end subroutine plgra
+ end interface
- interface plgradient
- module procedure plgradient
- end interface
+ interface plgradient
+ module procedure plgradient
+ end interface
- interface plgriddata
- module procedure plgriddata
- end interface
+ interface plgriddata
+ module procedure plgriddata
+ end interface
- interface
- subroutine plgspa( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plgspa( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plgspa
- end interface
+ end subroutine plgspa
+ end interface
- interface
- subroutine plgstrm( strm )
+ interface
+ subroutine plgstrm( strm )
integer :: strm
- end subroutine plgstrm
- end interface
+ end subroutine plgstrm
+ end interface
- interface
- subroutine plgvpd( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plgvpd( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plgvpd
- end interface
+ end subroutine plgvpd
+ end interface
- interface
- subroutine plgvpw( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plgvpw( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plgvpw
- end interface
+ end subroutine plgvpw
+ end interface
- interface
- subroutine plgxax( digmax, digits )
+ interface
+ subroutine plgxax( digmax, digits )
integer :: digmax, digits
- end subroutine plgxax
- end interface
+ end subroutine plgxax
+ end interface
- interface
- subroutine plgyax( digmax, digits )
+ interface
+ subroutine plgyax( digmax, digits )
integer :: digmax, digits
- end subroutine plgyax
- end interface
+ end subroutine plgyax
+ end interface
- interface
- subroutine plgzax( digmax, digits )
+ interface
+ subroutine plgzax( digmax, digits )
integer :: digmax, digits
- end subroutine plgzax
- end interface
+ end subroutine plgzax
+ end interface
- interface plhist
- module procedure plhist
- end interface
+ interface plhist
+ module procedure plhist
+ end interface
- interface
- subroutine plhls( h, l, s )
+ interface
+ subroutine plhls( h, l, s )
use plplot_flt
real(kind=plflt) :: h, l, s
- end subroutine plhls
- end interface
+ end subroutine plhls
+ end interface
- interface
- subroutine plhlsrgb( h, l, s, r, g, b )
+ interface
+ subroutine plhlsrgb( h, l, s, r, g, b )
use plplot_flt
real(kind=plflt) :: h, l, s, r, g, b
- end subroutine plhlsrgb
- end interface
+ end subroutine plhlsrgb
+ end interface
- interface
- subroutine plinit
- end subroutine plinit
- end interface
+ interface
+ subroutine plinit
+ end subroutine plinit
+ end interface
- interface
- subroutine pljoin( x1, y1, x2, y2 )
+ interface
+ subroutine pljoin( x1, y1, x2, y2 )
use plplot_flt
real(kind=plflt) :: x1, y1, x2, y2
- end subroutine pljoin
- end interface
+ end subroutine pljoin
+ end interface
- interface
- subroutine pllightsource( x, y, z )
+ interface
+ subroutine pllightsource( x, y, z )
use plplot_flt
real(kind=plflt) :: x, y, z
- end subroutine pllightsource
- end interface
+ end subroutine pllightsource
+ end interface
- interface pllegend
- module procedure pllegend_1
- module procedure pllegend_2
- end interface
+ interface pllegend
+ module procedure pllegend_1
+ module procedure pllegend_2
+ end interface
- interface plline
- module procedure plline
- end interface
+ interface plline
+ module procedure plline
+ end interface
- interface plline3
- module procedure plline3
- end interface
+ interface plline3
+ module procedure plline3
+ end interface
- interface pllsty
- subroutine pllsty( lin )
+ interface pllsty
+ subroutine pllsty( lin )
integer :: lin
- end subroutine pllsty
- end interface
+ end subroutine pllsty
+ end interface
- interface plmap
- module procedure plmap1, plmap2
- end interface plmap
+ interface plmap
+ module procedure plmap1, plmap2
+ end interface plmap
- interface plmeridians
- module procedure plmeridians1, plmeridians2
- end interface plmeridians
+ interface plmeridians
+ module procedure plmeridians1, plmeridians2
+ end interface plmeridians
- interface plmesh
- module procedure plmesh
- end interface
+ interface plmesh
+ module procedure plmesh
+ end interface
- interface plmeshc
- module procedure plmeshc
- end interface
+ interface plmeshc
+ module procedure plmeshc
+ end interface
- interface
- subroutine plmkstrm( strm )
+ interface
+ subroutine plmkstrm( strm )
integer :: strm
- end subroutine plmkstrm
- end interface
+ end subroutine plmkstrm
+ end interface
- interface
- subroutine plpat( nlin, inc, del )
+ interface
+ subroutine plpat( nlin, inc, del )
integer :: nlin, inc, del
- end subroutine plpat
- end interface
+ end subroutine plpat
+ end interface
- interface plot3d
- module procedure plot3d
- end interface
+ interface plot3d
+ module procedure plot3d
+ end interface
- interface plot3dc
- module procedure plot3dc
- end interface
+ interface plot3dc
+ module procedure plot3dc
+ end interface
- interface plpoin
- module procedure plpoin
- end interface
+ interface plpoin
+ module procedure plpoin
+ end interface
- interface plpoin3
- module procedure plpoin3
- end interface
+ interface plpoin3
+ module procedure plpoin3
+ end interface
- interface plpoly3
- module procedure plpoly3
- end interface
+ interface plpoly3
+ module procedure plpoly3
+ end interface
- interface
- subroutine plprec( setp, prec )
+ interface
+ subroutine plprec( setp, prec )
integer :: setp, prec
- end subroutine plprec
- end interface
+ end subroutine plprec
+ end interface
- interface
- subroutine plpsty( patt )
+ interface
+ subroutine plpsty( patt )
integer :: patt
- end subroutine plpsty
- end interface
+ end subroutine plpsty
+ end interface
- interface
- subroutine plreplot
- end subroutine plreplot
- end interface
+ interface
+ subroutine plreplot
+ end subroutine plreplot
+ end interface
- !
- ! Note: plrgb and plrgb1 can be merged
- !
- interface
- subroutine plrgb( r, g, b )
+ !
+ ! Note: plrgb and plrgb1 can be merged
+ !
+ interface
+ subroutine plrgb( r, g, b )
use plplot_flt
real(kind=plflt) :: r, g, b
- end subroutine plrgb
- end interface
+ end subroutine plrgb
+ end interface
- interface
- subroutine plrgb1( r, g, b )
+ interface
+ subroutine plrgb1( r, g, b )
integer :: r, g, b
- end subroutine plrgb1
- end interface
+ end subroutine plrgb1
+ end interface
- interface
- subroutine plrgbhls( r, g, b, h, l, s )
+ interface
+ subroutine plrgbhls( r, g, b, h, l, s )
use plplot_flt
real(kind=plflt) :: r, g, b, h, l, s
- end subroutine plrgbhls
- end interface
+ end subroutine plrgbhls
+ end interface
- interface
- subroutine plschr( chrdef, chrht )
+ interface
+ subroutine plschr( chrdef, chrht )
use plplot_flt
real(kind=plflt) :: chrdef, chrht
- end subroutine plschr
- end interface
+ end subroutine plschr
+ end interface
- interface plscmap0
- module procedure plscmap0
- end interface
+ interface plscmap0
+ module procedure plscmap0
+ end interface
- interface plscmap0a
- module procedure plscmap0a
- end interface
+ interface plscmap0a
+ module procedure plscmap0a
+ end interface
- interface
- subroutine plscmap0n( n )
+ interface
+ subroutine plscmap0n( n )
integer :: n
- end subroutine plscmap0n
- end interface
+ end subroutine plscmap0n
+ end interface
- interface plscmap1
- module procedure plscmap1
- end interface
+ interface plscmap1
+ module procedure plscmap1
+ end interface
- interface plscmap1a
- module procedure plscmap1a
- end interface
+ interface plscmap1a
+ module procedure plscmap1a
+ end interface
- interface plscmap1l
- module procedure plscmap1l
- module procedure plscmap1l2
- end interface
+ interface plscmap1l
+ module procedure plscmap1l
+ module procedure plscmap1l2
+ end interface
- interface plscmap1la
- module procedure plscmap1la
- module procedure plscmap1la2
- end interface
+ interface plscmap1la
+ module procedure plscmap1la
+ module procedure plscmap1la2
+ end interface
- interface
- subroutine plscmap1n( n )
+ interface
+ subroutine plscmap1n( n )
integer :: n
- end subroutine plscmap1n
- end interface
+ end subroutine plscmap1n
+ end interface
- interface
- subroutine plscol0( icol, r, g, b )
+ interface
+ subroutine plscol0( icol, r, g, b )
integer :: icol, r, g, b
- end subroutine plscol0
- end interface
+ end subroutine plscol0
+ end interface
- interface
- subroutine plscol0a( icol, r, g, b, a )
+ interface
+ subroutine plscol0a( icol, r, g, b, a )
use plplot_flt
integer :: icol, r, g, b
real(kind=plflt) :: a
- end subroutine plscol0a
- end interface
+ end subroutine plscol0a
+ end interface
- interface
- subroutine plscolbg( r, g, b )
+ interface
+ subroutine plscolbg( r, g, b )
integer :: r, g, b
- end subroutine plscolbg
- end interface
+ end subroutine plscolbg
+ end interface
- interface
- subroutine plscolbga( r, g, b, a )
+ interface
+ subroutine plscolbga( r, g, b, a )
use plplot_flt
integer :: r, g, b
real(kind=plflt) :: a
- end subroutine plscolbga
- end interface
+ end subroutine plscolbga
+ end interface
- interface
- subroutine plscolor( color )
+ interface
+ subroutine plscolor( color )
integer :: color
- end subroutine plscolor
- end interface
+ end subroutine plscolor
+ end interface
- interface
- subroutine plscompression( compression )
+ interface
+ subroutine plscompression( compression )
integer :: compression
- end subroutine plscompression
- end interface
+ end subroutine plscompression
+ end interface
- interface
- subroutine plsdidev( mar, aspect, jx, jy )
+ interface
+ subroutine plsdidev( mar, aspect, jx, jy )
use plplot_flt
real(kind=plflt) :: mar, aspect, jx, jy
- end subroutine plsdidev
- end interface
+ end subroutine plsdidev
+ end interface
- interface
- subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
+ interface
+ subroutine plsdimap( dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm )
use plplot_flt
real(kind=plflt) :: dimxmi, dimxmax, diymin, dimymax, dimxpmm, diypmm
- end subroutine plsdimap
- end interface
+ end subroutine plsdimap
+ end interface
- interface
- subroutine plsdiori( rot )
+ interface
+ subroutine plsdiori( rot )
use plplot_flt
real(kind=plflt) :: rot
- end subroutine plsdiori
- end interface
+ end subroutine plsdiori
+ end interface
- interface
- subroutine plsdiplt( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plsdiplt( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plsdiplt
- end interface
+ end subroutine plsdiplt
+ end interface
- interface
- subroutine plsdiplz( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plsdiplz( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plsdiplz
- end interface
+ end subroutine plsdiplz
+ end interface
- interface
- subroutine plseed( s )
+ interface
+ subroutine plseed( s )
integer :: s
- end subroutine plseed
- end interface
+ end subroutine plseed
+ end interface
- ! TODO: character-version
- interface
- subroutine plsesc( esc )
+ ! TODO: character-version
+ interface
+ subroutine plsesc( esc )
integer :: esc
- end subroutine plsesc
- end interface
+ end subroutine plsesc
+ end interface
- !
- ! TODO: F95-specific form for these routines
- !
- interface plsetmapformc
- subroutine plsetmapformc( mapform )
+ !
+ ! TODO: F95-specific form for these routines
+ !
+ interface plsetmapformc
+ subroutine plsetmapformc( mapform )
use plplot_flt
interface
- subroutine mapform( n, x, y )
- use plplot_flt
- integer :: n
- real(kind=plflt), dimension(*) :: x, y
- end subroutine mapform
+ subroutine mapform( n, x, y )
+ use plplot_flt
+ integer :: n
+ real(kind=plflt), dimension(*) :: x, y
+ end subroutine mapform
end interface
- end subroutine plsetmapformc
- end interface
+ end subroutine plsetmapformc
+ end interface
- interface
- subroutine plsfam( fam, num, bmax )
+ interface
+ subroutine plsfam( fam, num, bmax )
integer :: fam, num, bmax
- end subroutine plsfam
- end interface
+ end subroutine plsfam
+ end interface
- interface
- subroutine plsfci( fci )
+ interface
+ subroutine plsfci( fci )
use plplot_flt
integer(kind=plunicode) :: fci
- end subroutine plsfci
- end interface
+ end subroutine plsfci
+ end interface
- interface
- subroutine plsfont( family, style, weight )
+ interface
+ subroutine plsfont( family, style, weight )
integer :: family, style, weight
- end subroutine plsfont
- end interface
+ end subroutine plsfont
+ end interface
- interface plslabelfunc
- subroutine plslabelfunc_on( labelfunc )
- interface
- subroutine labelfunc(axis, value, label, length)
- use plplot_flt
- implicit none
- integer :: axis, length
- real(kind=plflt) :: value
- character*(length) label
- end subroutine labelfunc
- end interface
- end subroutine plslabelfunc_on
+ interface plslabelfunc
+ subroutine plslabelfunc_on( labelfunc )
+ interface
+ subroutine labelfunc(axis, value, label, length)
+ use plplot_flt
+ implicit none
+ integer :: axis, length
+ real(kind=plflt) :: value
+ character*(length) label
+ end subroutine labelfunc
+ end interface
+ end subroutine plslabelfunc_on
- subroutine plslabelfunc_off( dummy )
- implicit none
- integer :: dummy
- end subroutine plslabelfunc_off
+ subroutine plslabelfunc_off( dummy )
+ implicit none
+ integer :: dummy
+ end subroutine plslabelfunc_off
- subroutine plslabelfunc_none
- end subroutine plslabelfunc_none
+ subroutine plslabelfunc_none
+ end subroutine plslabelfunc_none
- end interface
+ end interface
- interface
- subroutine plsmaj( def, scale )
+ interface
+ subroutine plsmaj( def, scale )
use plplot_flt
real(kind=plflt) :: def, scale
- end subroutine plsmaj
- end interface
+ end subroutine plsmaj
+ end interface
- ! plsmem: void * argument tricky - TODO
- ! plsmema: void * argument tricky - TODO
+ ! plsmem: void * argument tricky - TODO
+ ! plsmema: void * argument tricky - TODO
- interface
- subroutine plsmin( def, scale )
+ interface
+ subroutine plsmin( def, scale )
use plplot_flt
real(kind=plflt) :: def, scale
- end subroutine plsmin
- end interface
+ end subroutine plsmin
+ end interface
- interface
- subroutine plsori( rot )
+ interface
+ subroutine plsori( rot )
integer :: rot
- end subroutine plsori
- end interface
+ end subroutine plsori
+ end interface
- interface
- subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
+ interface
+ subroutine plspage( xpmm, ypmm, xwid, ywid, xoff, yoff )
use plplot_flt
real(kind=plflt) :: xpmm, ypmm
integer :: xwid, ywid, xoff, yoff
- end subroutine plspage
- end interface
+ end subroutine plspage
+ end interface
- interface plspause
- module procedure plspause
- end interface
+ interface plspause
+ module procedure plspause
+ end interface
- interface
- subroutine plsstrm( strm )
+ interface
+ subroutine plsstrm( strm )
integer :: strm
- end subroutine plsstrm
- end interface
+ end subroutine plsstrm
+ end interface
- interface
- subroutine plssub( nx, ny )
+ interface
+ subroutine plssub( nx, ny )
integer :: nx, ny
- end subroutine plssub
- end interface
+ end subroutine plssub
+ end interface
- interface
- subroutine plssym( def, scale )
+ interface
+ subroutine plssym( def, scale )
use plplot_flt
real(kind=plflt) :: def, scale
- end subroutine plssym
- end interface
+ end subroutine plssym
+ end interface
- interface
- subroutine plstar( nx, ny )
+ interface
+ subroutine plstar( nx, ny )
integer :: nx, ny
- end subroutine plstar
- end interface
+ end subroutine plstar
+ end interface
- interface plstransform
- subroutine plstransform1( transformfunc )
- interface
- subroutine transformfunc(x, y, xt, yt)
- use plplot_flt
- implicit none
- real(kind=plflt) :: x, y, xt, yt
- end subroutine transformfunc
- end interface
- end subroutine plstransform1
+ interface plstransform
+ subroutine plstransform1( transformfunc )
+ interface
+ subroutine transformfunc(x, y, xt, yt)
+ use plplot_flt
+ implicit none
+ real(kind=plflt) :: x, y, xt, yt
+ end subroutine transformfunc
+ end interface
+ end subroutine plstransform1
- subroutine plstransform2( dummy )
- implicit none
- integer :: dummy
- end subroutine plstransform2
+ subroutine plstransform2( dummy )
+ implicit none
+ integer :: dummy
+ end subroutine plstransform2
- subroutine plstransform3
- end subroutine plstransform3
+ subroutine plstransform3
+ end subroutine plstransform3
- end interface
+ end interface
- interface
- subroutine plstripa( id, pen, x, y )
+ interface
+ subroutine plstripa( id, pen, x, y )
use plplot_flt
integer :: id, pen
real(kind=plflt) :: x, y
- end subroutine plstripa
- end interface
+ end subroutine plstripa
+ end interface
- interface
- subroutine plstripd( id )
+ interface
+ subroutine plstripd( id )
integer :: id
- end subroutine plstripd
- end interface
+ end subroutine plstripd
+ end interface
- interface
- subroutine plstyl( n, mark, space )
+ interface
+ subroutine plstyl( n, mark, space )
integer :: n, mark, space
- end subroutine plstyl
- end interface
+ end subroutine plstyl
+ end interface
- interface plsurf3d
- module procedure plsurf3d
- end interface
+ interface plsurf3d
+ module procedure plsurf3d
+ end interface
- interface plstripc
- module procedure plstripc
- end interface
+ interface plstripc
+ module procedure plstripc
+ end interface
- interface plsvect
- module procedure plsvect
- end interface
+ interface plsvect
+ module procedure plsvect
+ end interface
- interface
- subroutine plsvpa( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plsvpa( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plsvpa
- end interface
+ end subroutine plsvpa
+ end interface
- interface
- subroutine plsxax( digmax, digits )
+ interface
+ subroutine plsxax( digmax, digits )
integer :: digmax, digits
- end subroutine plsxax
- end interface
+ end subroutine plsxax
+ end interface
- interface
- subroutine plsyax( digmax, digits )
+ interface
+ subroutine plsyax( digmax, digits )
integer :: digmax, digits
- end subroutine plsyax
- end interface
+ end subroutine plsyax
+ end interface
- interface plsym
- module procedure plsym
- end interface
+ interface plsym
+ module procedure plsym
+ end interface
- interface
- subroutine plszax( digmax, digits )
+ interface
+ subroutine plszax( digmax, digits )
integer :: digmax, digits
- end subroutine plszax
- end interface
+ end subroutine plszax
+ end interface
- interface
- subroutine pltext
- end subroutine pltext
- end interface
+ interface
+ subroutine pltext
+ end subroutine pltext
+ end interface
- interface
- subroutine plvasp( aspect )
+ interface
+ subroutine plvasp( aspect )
use plplot_flt
real(kind=plflt) :: aspect
- end subroutine plvasp
- end interface
+ end subroutine plvasp
+ end interface
- interface
- subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
+ interface
+ subroutine plvpas( xmin, xmax, ymin, ymax, aspect )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax, aspect
- end subroutine plvpas
- end interface
+ end subroutine plvpas
+ end interface
- interface
- subroutine plvpor( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plvpor( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plvpor
- end interface
+ end subroutine plvpor
+ end interface
- interface
- subroutine plvsta
- end subroutine plvsta
- end interface
+ interface
+ subroutine plvsta
+ end subroutine plvsta
+ end interface
- interface
- subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
+ interface
+ subroutine plw3d( basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az )
use plplot_flt
real(kind=plflt) :: basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az
- end subroutine plw3d
- end interface
+ end subroutine plw3d
+ end interface
- interface
- subroutine plwid( width )
+ interface
+ subroutine plwid( width )
integer :: width
- end subroutine plwid
- end interface
+ end subroutine plwid
+ end interface
- interface
- subroutine plwind( xmin, xmax, ymin, ymax )
+ interface
+ subroutine plwind( xmin, xmax, ymin, ymax )
use plplot_flt
real(kind=plflt) :: xmin, xmax, ymin, ymax
- end subroutine plwind
- end interface
+ end subroutine plwind
+ end interface
- interface plxormod
- module procedure plxormod
- end interface
+ interface plxormod
+ module procedure plxormod
+ end interface
- private :: convert_to_int
- private :: convert_to_log
+ private :: convert_to_int
+ private :: convert_to_log
! -------------------------------------------------------------------
- contains
+contains
! -------------------------------------------------------------------
- integer function convert_to_int( logvalue )
- logical :: logvalue
- if ( logvalue ) then
- convert_to_int = 1
- else
- convert_to_int = 0
- endif
- end function convert_to_int
+ integer function convert_to_int( logvalue )
+ logical :: logvalue
+ if ( logvalue ) then
+ convert_to_int = 1
+ else
+ convert_to_int = 0
+ endif
+ end function convert_to_int
- logical function convert_to_log( intvalue )
- integer :: intvalue
- convert_to_log = intvalue.ne.0
- end function convert_to_log
+ logical function convert_to_log( intvalue )
+ integer :: intvalue
+ convert_to_log = intvalue.ne.0
+ end function convert_to_log
- subroutine plbin( x, y, center )
- real(kind=plflt), dimension(:) :: x, y
- integer :: center
+ subroutine plbin( x, y, center )
+ real(kind=plflt), dimension(:) :: x, y
+ integer :: center
- call plbinf77( size(x), x, y, center )
- end subroutine plbin
+ call plbinf77( size(x), x, y, center )
+ end subroutine plbin
- subroutine plcpstrm( iplsr, flags )
- integer :: iplsr
- logical :: flags
+ subroutine plcpstrm( iplsr, flags )
+ integer :: iplsr
+ logical :: flags
- integer :: iflags
+ integer :: iflags
- iflags = convert_to_int( flags )
- call plcpstrmf77( iplsr, iflags )
- end subroutine plcpstrm
+ iflags = convert_to_int( flags )
+ call plcpstrmf77( iplsr, iflags )
+ end subroutine plcpstrm
- subroutine plerrx( xmin, xmax, y )
- real(kind=plflt), dimension(:) :: xmin, xmax, y
+ subroutine plerrx( xmin, xmax, y )
+ real(kind=plflt), dimension(:) :: xmin, xmax, y
- call plerrxf77( size(xmin), xmin, xmax, y )
- end subroutine plerrx
+ call plerrxf77( size(xmin), xmin, xmax, y )
+ end subroutine plerrx
- subroutine plerry( x, ymin, ymax )
- real(kind=plflt), dimension(:) :: x, ymin, ymax
+ subroutine plerry( x, ymin, ymax )
+ real(kind=plflt), dimension(:) :: x, ymin, ymax
- call plerryf77( size(x), x, ymin, ymax )
- end subroutine plerry
+ call plerryf77( size(x), x, ymin, ymax )
+ end subroutine plerry
- subroutine plfill( x, y )
- real(kind=plflt), dimension(:) :: x, y
+ subroutine plfill( x, y )
+ real(kind=plflt), dimension(:) :: x, y
- call plfillf77( size(x), x, y )
- end subroutine plfill
+ call plfillf77( size(x), x, y )
+ end subroutine plfill
- subroutine plfill3( x, y, z )
- real(kind=plflt), dimension(:) :: x, y, z
+ subroutine plfill3( x, y, z )
+ real(kind=plflt), dimension(:) :: x, y, z
- call plfill3f77( size(x), x, y, z )
- end subroutine plfill3
+ call plfill3f77( size(x), x, y, z )
+ end subroutine plfill3
- subroutine plgradient( x, y, angle )
- real(kind=plflt), dimension(:) :: x, y
- real(kind=plflt) :: angle
+ subroutine plgradient( x, y, angle )
+ real(kind=plflt), dimension(:) :: x, y
+ real(kind=plflt) :: angle
- call plgradientf77( size(x), x, y, angle )
- end subroutine plgradient
+ call plgradientf77( size(x), x, y, angle )
+ end subroutine plgradient
- subroutine plgriddata( x, y, z, xg, yg, zg, type, data )
- real(kind=plflt), dimension(:) :: x, y, z, xg, yg
- real(kind=plflt), dimension(:,:) :: zg
- real(kind=plflt) :: data
- integer :: type
+ subroutine plgriddata( x, y, z, xg, yg, zg, type, data )
+ real(kind=plflt), dimension(:) :: x, y, z, xg, yg
+ real(kind=plflt), dimension(:,:) :: zg
+ real(kind=plflt) :: data
+ integer :: type
- call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
- type, data )
+ call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
+ type, data )
- return
- end subroutine plgriddata
+ return
+ end subroutine plgriddata
- subroutine plhist( data, datmin, datmax, nbin, oldwin )
- real(kind=plflt), dimension(:) :: data
- real(kind=plflt) :: datmin, datmax
- integer :: nbin, oldwin
+ subroutine plhist( data, datmin, datmax, nbin, oldwin )
+ real(kind=plflt), dimension(:) :: data
+ real(kind=plflt) :: datmin, datmax
+ integer :: nbin, oldwin
- call plhistf77( size(data), data, datmin, datmax, nbin, oldwin )
- end subroutine plhist
+ call plhistf77( size(data), data, datmin, datmax, nbin, oldwin )
+ end subroutine plhist
! subroutine plimagefr( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
! dxmin, dxmax, dymin, dymax, valuemin, valuemax )
@@ -1060,419 +1062,418 @@
! dxmin, dxmax, dymin, dymax, valuemin, valuemax )
! end subroutine plimagefr
- subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
- dxmin, dxmax, dymin, dymax )
- real(kind=plflt), dimension(:,:) :: idata
- real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
- real(kind=plflt) :: dxmin, dxmax, dymin, dymax
+ subroutine plimage( idata, xmin, xmax, ymin, ymax, zmin, zmax, &
+ dxmin, dxmax, dymin, dymax )
+ real(kind=plflt), dimension(:,:) :: idata
+ real(kind=plflt) :: xmin, xmax, ymin, ymax, zmin, zmax
+ real(kind=plflt) :: dxmin, dxmax, dymin, dymax
- integer :: nx, ny
+ integer :: nx, ny
- nx = size(idata,1)
- ny = size(idata,2)
- call plimagef77( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
- dxmin, dxmax, dymin, dymax )
- end subroutine plimage
+ nx = size(idata,1)
+ ny = size(idata,2)
+ call plimagef77( idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, &
+ dxmin, dxmax, dymin, dymax )
+ end subroutine plimage
- 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 )
+ 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 )
- real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
- real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
- integer :: position, opt, bg_color, bb_color, bb_style
- integer :: nrow, ncolumn, nlegend
+ real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
+ real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
+ integer :: position, opt, bg_color, bb_color, bb_style
+ integer :: nrow, ncolumn, nlegend
- character(len=*), dimension(:) :: text, symbols
+ character(len=*), dimension(:) :: text, symbols
- integer, dimension(:) :: opt_array, text_colors, box_colors
- integer, dimension(:) :: box_patterns, box_line_widths
- integer, dimension(:) :: line_colors, line_styles, line_widths
- integer, dimension(:) :: symbol_colors, symbol_numbers
- real(kind=plflt), dimension(:) :: box_scales, symbol_scales
+ integer, dimension(:) :: opt_array, text_colors, box_colors
+ integer, dimension(:) :: box_patterns, box_line_widths
+ integer, dimension(:) :: line_colors, line_styles, line_widths
+ integer, dimension(:) :: symbol_colors, symbol_numbers
+ real(kind=plflt), dimension(:) :: box_scales, symbol_scales
- !
- ! Convert the text arrays and store the results in a convenient
- ! albeit global location. This way we avoid all manner of complications.
- ! (Though introducing a potentially nasty one: non-threadsafety)
- !
- call pllegend07_cnv_text( 1, nlegend, text )
- call pllegend07_cnv_text( 2, nlegend, symbols )
+ !
+ ! Convert the text arrays and store the results in a convenient
+ ! albeit global location. This way we avoid all manner of complications.
+ ! (Though introducing a potentially nasty one: non-threadsafety)
+ !
+ call pllegend07_cnv_text( 1, nlegend, text )
+ call pllegend07_cnv_text( 2, nlegend, symbols )
- call pllegend07( 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, &
- box_colors, box_patterns, box_scales, &
- box_line_widths, &
- line_colors, line_styles, line_widths, &
- symbol_colors, symbol_scales, &
- symbol_numbers )
+ call pllegend07( 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, &
+ box_colors, box_patterns, box_scales, &
+ box_line_widths, &
+ line_colors, line_styles, line_widths, &
+ symbol_colors, symbol_scales, &
+ symbol_numbers )
- end subroutine pllegend_1
+ end subroutine pllegend_1
- 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 )
+ 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 )
- real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
- real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
- integer :: position, opt, bg_color, bb_color, bb_style
- integer :: nrow, ncolumn
+ real(kind=plflt) :: legend_width, legend_height, plot_width, x, y
+ real(kind=plflt) :: text_offset, text_scale, text_spacing, text_justification
+ integer :: position, opt, bg_color, bb_color, bb_style
+ integer :: nrow, ncolumn
- character(len=*), dimension(:) :: text, symbols
+ character(len=*), dimension(:) :: text, symbols
- integer, dimension(:) :: opt_array, text_colors, box_colors
- integer, dimension(:) :: box_patterns, box_line_widths
- integer, dimension(:) :: line_colors, line_styles, line_widths
- integer, dimension(:) :: symbol_colors, symbol_numbers
- real(kind=plflt), dimension(:) :: box_scales, symbol_scales
+ integer, dimension(:) :: opt_array, text_colors, box_colors
+ integer, dimension(:) :: box_patterns, box_line_widths
+ integer, dimension(:) :: line_colors, line_styles, line_widths
+ integer, dimension(:) :: symbol_colors, symbol_numbers
+ real(kind=plflt), dimension(:) :: box_scales, symbol_scales
- integer :: nlegend
+ integer :: nlegend
- !
- ! Determine number of legend entries
- !
- nlegend = min( size(opt_array), size(text) )
+ !
+ ! Determine number of legend entries
+ !
+ nlegend = min( size(opt_array), size(text) )
- call 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 )
+ call 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_color...
[truncated message content] |
