Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[11502] trunk
|
From: <ai...@us...> - 2011-01-26 22:37:23
|
Revision: 11502
http://plplot.svn.sourceforge.net/plplot/?rev=11502&view=rev
Author: airwin
Date: 2011-01-26 22:01:08 +0000 (Wed, 26 Jan 2011)
Log Message:
-----------
Expand plplot_parameters.h so it can be used in first 8 f77 examples.
Modified Paths:
--------------
trunk/bindings/f77/plplot_parameters.h
trunk/examples/f77/x01f.fm4
trunk/examples/f77/x02f.fm4
trunk/examples/f77/x03f.fm4
trunk/examples/f77/x04f.fm4
trunk/examples/f77/x05f.fm4
trunk/examples/f77/x06f.fm4
trunk/examples/f77/x07f.fm4
trunk/examples/f77/x08f.fm4
Modified: trunk/bindings/f77/plplot_parameters.h
===================================================================
--- trunk/bindings/f77/plplot_parameters.h 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/bindings/f77/plplot_parameters.h 2011-01-26 22:01:08 UTC (rev 11502)
@@ -20,6 +20,11 @@
C License along with PLplot; if not, write to the Free Software
C Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ integer PL_PARSE_FULL
+ parameter(PL_PARSE_FULL = 1)
+ real*8 PI
+ parameter (PI = 3.1415926535897932384d0)
+
c flags used for position argument of both pllegend and plcolorbar
integer PL_POSITION_LEFT
integer PL_POSITION_RIGHT
@@ -39,6 +44,20 @@
parameter (PL_POSITION_VIEWPORT = 64 )
parameter (PL_POSITION_SUBPAGE = 128 )
+c Flags for plot3dc() and plsurf3d().
+ integer DRAW_LINEX, DRAW_LINEY, DRAW_LINEXY, MAG_COLOR,
+ & BASE_CONT, TOP_CONT, SURF_CONT, DRAW_SIDES, FACETED, MESH
+ parameter(DRAW_LINEX = 1)
+ parameter(DRAW_LINEY = 2)
+ parameter(DRAW_LINEXY = 3)
+ parameter(MAG_COLOR = 4)
+ parameter(BASE_CONT = 8)
+ parameter(TOP_CONT = 16)
+ parameter(SURF_CONT = 32)
+ parameter(DRAW_SIDES = 64)
+ parameter(FACETED = 128)
+ parameter(MESH = 256)
+
c Flags for pllegend.
integer PL_LEGEND_NONE
integer PL_LEGEND_COLOR_BOX
Modified: trunk/examples/f77/x01f.fm4
===================================================================
--- trunk/examples/f77/x01f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x01f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -26,8 +26,7 @@
common /plotdat/ x, y, xs, ys, xscale, yscale, xoff, yoff
character*80 version
integer digmax
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
+ include 'plplot_parameters.h'
c some fortran compilers demand typing of intrinsic lnblnk, and
c although this is not demanded on g77 it also works there.
integer lnblnk
@@ -165,8 +164,7 @@
c For the final graph we wish to override the default tick intervals,
c and so do not use_ PLENV
- real*8 PI
- parameter (PI = 3.1415926535897932384d0)
+ include 'plplot_parameters.h'
real*8 x(101), y(101)
real*8 xs(6), ys(6)
real*8 xscale, yscale, xoff, yoff
Modified: trunk/examples/f77/x02f.fm4
===================================================================
--- trunk/examples/f77/x02f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x02f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -22,8 +22,7 @@
implicit none
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
+ include 'plplot_parameters.h'
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
Modified: trunk/examples/f77/x03f.fm4
===================================================================
--- trunk/examples/f77/x03f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x03f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -20,15 +20,12 @@
c Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
implicit none
- real*8 PI
- parameter (PI = 3.1415926535897932384d0)
+ include 'plplot_parameters.h'
character*3 text
real*8 x0(0:360), y0(0:360)
real*8 x(0:360), y(0:360), dtr, theta, dx, dy, r, offset
integer i, j, nsp
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
Modified: trunk/examples/f77/x04f.fm4
===================================================================
--- trunk/examples/f77/x04f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x04f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -20,8 +20,7 @@
c Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
implicit none
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
+ include 'plplot_parameters.h'
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
@@ -35,8 +34,7 @@
subroutine plot1(type)
implicit none
- real*8 PI
- parameter (PI = 3.1415926535897932384d0)
+ include 'plplot_parameters.h'
real*8 freql(0:100),ampl(0:100),phase(0:100), freq, f0
integer i, type
@@ -51,8 +49,6 @@
character*20 text(2)
character*1 symbols(2)
- include 'plplot_parameters.h'
-
call pladv(0)
c Set up data for log plot.
f0 = 1.d0
Modified: trunk/examples/f77/x05f.fm4
===================================================================
--- trunk/examples/f77/x05f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x05f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -20,15 +20,12 @@
c Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
implicit none
- real*8 PI
- parameter (PI = 3.1415926535897932384d0)
+ include 'plplot_parameters.h'
integer i
integer NPTS
parameter ( NPTS = 2047 )
real*8 data(NPTS), delta
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
Modified: trunk/examples/f77/x06f.fm4
===================================================================
--- trunk/examples/f77/x06f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x06f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -24,8 +24,7 @@
real*8 x, y
character*3 text
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
+ include 'plplot_parameters.h'
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
Modified: trunk/examples/f77/x07f.fm4
===================================================================
--- trunk/examples/f77/x07f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x07f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -28,8 +28,7 @@
& 0, 100, 0, 100, 200, 500, 600, 700, 800, 900,
& 2000, 2100, 2200, 2300, 2400, 2500, 2600, 2700, 2800, 2900 /
real*8 x, y
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
+ include 'plplot_parameters.h'
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
Modified: trunk/examples/f77/x08f.fm4
===================================================================
--- trunk/examples/f77/x08f.fm4 2011-01-26 21:22:01 UTC (rev 11501)
+++ trunk/examples/f77/x08f.fm4 2011-01-26 22:01:08 UTC (rev 11502)
@@ -20,8 +20,7 @@
c Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
implicit none
- real*8 PI
- parameter (PI = 3.1415926535897932384d0)
+ include 'plplot_parameters.h'
integer i, j, k, ifshade, xpts, ypts, xdim, ydim
c xdim is the leading dimension of z, xpts <= xdim is the leading
c dimension of z that is defined.
@@ -40,24 +39,9 @@
real*8 zmin, zmax, step, clevel(nlevel)
c Plotting options for 3d plots, see plplot.h for the C definitions
c of these options.
- integer DRAW_LINEX, DRAW_LINEY, DRAW_LINEXY, MAG_COLOR,
- & BASE_CONT, TOP_CONT, SURF_CONT, DRAW_SIDES, FACETED, MESH
- parameter(DRAW_LINEX = 1)
- parameter(DRAW_LINEY = 2)
- parameter(DRAW_LINEXY = 3)
- parameter(MAG_COLOR = 4)
- parameter(BASE_CONT = 8)
- parameter(TOP_CONT = 16)
- parameter(SURF_CONT = 32)
- parameter(DRAW_SIDES = 64)
- parameter(FACETED = 128)
- parameter(MESH = 256)
- integer PL_PARSE_FULL
- parameter(PL_PARSE_FULL = 1)
c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-
rosen = 1
do i = 1,xpts
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
