Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[9484] trunk
|
From: <ai...@us...> - 2009-02-09 22:56:45
|
Revision: 9484
http://plplot.svn.sourceforge.net/plplot/?rev=9484&view=rev
Author: airwin
Date: 2009-02-09 22:56:38 +0000 (Mon, 09 Feb 2009)
Log Message:
-----------
Establish the convention that our Fortran 77 source code commentary lines
start with lower-case 'c' rather than 'C' or '!'. As Arjen has mentioned,
the elimination of '!' to introduce commentary lines should reduce (but
probably not eliminate) errors for compilers that demand (either directly or
through an option the user might specify) strict Fortran 77 compliance. I
made the (arbitrary) choice of 'c' rather than 'C' to be consistent with
the lower-case style of the rest of our fortran source code.
Modified Paths:
--------------
trunk/bindings/f77/sfstubs.fm4
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
trunk/examples/f77/x09f.fm4
trunk/examples/f77/x10f.fm4
trunk/examples/f77/x11f.fm4
trunk/examples/f77/x12f.fm4
trunk/examples/f77/x13f.fm4
trunk/examples/f77/x14f.fm4
trunk/examples/f77/x15f.fm4
trunk/examples/f77/x16af.fm4
trunk/examples/f77/x16f.fm4
trunk/examples/f77/x17f.fm4
trunk/examples/f77/x18f.fm4
trunk/examples/f77/x19f.fm4
trunk/examples/f77/x20f.fm4
trunk/examples/f77/x21f.fm4
trunk/examples/f77/x22f.fm4
trunk/examples/f77/x23f.fm4
trunk/examples/f77/x24f.fm4
trunk/examples/f77/x25f.fm4
trunk/examples/f77/x26f.fm4
trunk/examples/f77/x27f.fm4
trunk/examples/f77/x28f.fm4
trunk/examples/f77/x29f.fm4
trunk/examples/f77/x30f.fm4
trunk/examples/f77/x31f.fm4
Modified: trunk/bindings/f77/sfstubs.fm4
===================================================================
--- trunk/bindings/f77/sfstubs.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/bindings/f77/sfstubs.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,40 +1,40 @@
-!***********************************************************************
-! $Id$
-! sfstubs.f
-!
-! Copyright (C) 2004 Alan W. Irwin
-!
-! This file is part of PLplot.
-!
-! PLplot is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Library Public License as published
-! by the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! PLplot is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU Library General Public License for more details.
-!
-! You should have received a copy of the GNU Library General Public License
-! along with PLplot; if not, write to the Free Software
-! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-!
-!
-! This file contains the more complicated fortran stub routines
-! that the more generic scstubs.c cannot handle.
-! Typical stubs here must convert a fortran character string
-! to C or vice versa.
-! N.B. the called routines (that are defined in scstubs.c) have
-! a suffix of '7' to avoid name clashes and also presumably as a
-! signal in scstubs.c that they were called from these routines.
-! Where arguments are floating-point we explicitly type them as real*8.
-! This typing is never used since these arguments are
-! actually passed by reference. That implies these routines should
-! work if the calling routine and libplplot itself are both
-! double precision or both single precision.
-!
-!***********************************************************************
+c***********************************************************************
+c $Id$
+c sfstubs.f
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as published
+c by the Free Software Foundation; either version 2 of the License, or
+c (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public License
+c along with PLplot; if not, write to the Free Software
+c Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+c
+c
+c This file contains the more complicated fortran stub routines
+c that the more generic scstubs.c cannot handle.
+c Typical stubs here must convert a fortran character string
+c to C or vice versa.
+c N.B. the called routines (that are defined in scstubs.c) have
+c a suffix of '7' to avoid name clashes and also presumably as a
+c signal in scstubs.c that they were called from these routines.
+c Where arguments are floating-point we explicitly type them as real*8.
+c This typing is never used since these arguments are
+c actually passed by reference. That implies these routines should
+c work if the calling routine and libplplot itself are both
+c double precision or both single precision.
+c
+c***********************************************************************
subroutine plsetopt(opt, optarg)
@@ -49,7 +49,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plabort(text)
@@ -63,7 +63,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plsdev(dnam)
@@ -77,7 +77,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plgdev(dnam)
@@ -91,7 +91,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plsfnam(fnam)
@@ -105,7 +105,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plgfnam(fnam)
@@ -119,7 +119,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plgver(ver)
@@ -133,7 +133,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
@@ -151,7 +151,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plbox(xopt,xtick,nxsub,yopt,ytick,nysub)
@@ -169,7 +169,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plbox3(xopt,xlabel,xtick,nxsub,yopt,ylabel,ytick,nysub,
& zopt,zlabel,ztick,nzsub)
@@ -194,7 +194,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plcon0(z,nx,ny,kx,lx,ky,ly,clevel,nlevel)
@@ -206,7 +206,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plcon1(z,nx,ny,kx,lx,ky,ly,clevel,nlevel,xg,yg)
@@ -218,7 +218,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plcon2(z,nx,ny,kx,lx,ky,ly,clevel,nlevel,xg,yg)
@@ -230,7 +230,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plcont(z,nx,ny,kx,lx,ky,ly,clevel,nlevel)
@@ -239,14 +239,14 @@
real*8 z(nx, ny), clevel(nlevel)
real*8 tr(6)
-!DEC$ ATTRIBUTES DLLEXPORT :: PLPLOT
+cDEC$ ATTRIBUTES DLLEXPORT :: PLPLOT
common /plplot/ tr
call plcont7(z,nx,ny,kx,lx,ky,ly,clevel,nlevel,tr)
end
-!***********************************************************************
+c***********************************************************************
subroutine plvec0(u, v, nx, ny, scale)
@@ -258,7 +258,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plvec1(u, v, nx, ny, scale, xg, yg)
@@ -270,7 +270,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plvec2(u, v, nx, ny, scale, xg, yg)
@@ -282,7 +282,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plvect(u, v, nx, ny, scale)
@@ -296,7 +296,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshade0(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -313,7 +313,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshade07(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -323,7 +323,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshade1(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -341,7 +341,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshade17(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -352,7 +352,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshade2(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -370,7 +370,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshade27(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -381,7 +381,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshade(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -408,7 +408,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshades0(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -423,7 +423,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshades07(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -432,7 +432,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshades1(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -447,7 +447,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshades17(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -456,7 +456,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshades2(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -472,7 +472,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshades27(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -481,7 +481,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plshades(z, nx, ny, defined,
& xmin, xmax, ymin, ymax,
@@ -498,7 +498,7 @@
include 'sfstubs.h'
-! call plstrf2c(dnam, string1, maxlen)
+c call plstrf2c(dnam, string1, maxlen)
call plshades7(z, nx, ny, s1,
& xmin, xmax, ymin, ymax,
@@ -507,7 +507,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plimagefr0(z,nx,ny,xmin,xmax,ymin,ymax,zmin,zmax,
& valuemin,valuemax,lx)
@@ -522,7 +522,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plimagefr1(z,nx,ny,xmin,xmax,ymin,ymax,zmin,zmax,
& valuemin,valuemax,xg,yg,lx)
@@ -537,7 +537,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plimagefr2(z,nx,ny,xmin,xmax,ymin,ymax,zmin,zmax,
& valuemin,valuemax,xg,yg,lx)
@@ -552,7 +552,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plimagefr(z,nx,ny,xmin,xmax,ymin,ymax,zmin,zmax,
& valuemin,valuemax,lx)
@@ -569,7 +569,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine pllab(xlab,ylab,title)
@@ -586,7 +586,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plmtex(side,disp,pos,xjust,text)
@@ -603,7 +603,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plmtex3(side,disp,pos,xjust,text)
@@ -620,7 +620,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plptex(x,y,dx,dy,xjust,text)
@@ -636,7 +636,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
@@ -652,7 +652,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plstart(devname, nx, ny)
@@ -668,7 +668,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine plmap(mapform,mapname,minx,maxx,miny,maxy)
@@ -686,7 +686,7 @@
end subroutine
-!***********************************************************************
+c***********************************************************************
subroutine plmeridians(mapform,dlong,dlat,minlong,maxlong,
& minlat,maxlat)
@@ -703,7 +703,7 @@
end subroutine
-!***********************************************************************
+c***********************************************************************
subroutine plstripc(id, xspec, yspec, xmin, xmax, xjump,
& ymin, ymax, xlpos, ylpos, y_ascl, acc,
@@ -736,7 +736,7 @@
end
-!***********************************************************************
+c***********************************************************************
subroutine pltimefmt(fmt)
@@ -750,4 +750,4 @@
end
-!***********************************************************************
+c***********************************************************************
Modified: trunk/examples/f77/x01f.fm4
===================================================================
--- trunk/examples/f77/x01f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x01f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,23 +1,23 @@
-C $Id$
-C Simple line plot and multiple windows demo.
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Simple line plot and multiple windows demo.
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
real*8 x(101), y(101)
@@ -28,41 +28,41 @@
integer digmax
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C some fortran compilers demand typing of intrinsic lnblnk, and
-C although this is not demanded on g77 it also works there.
+c some fortran compilers demand typing of intrinsic lnblnk, and
+c although this is not demanded on g77 it also works there.
integer lnblnk
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Print plplot version
+c Print plplot version
call plgver(version)
write (*,'(a,a)') 'PLplot library version: ',
& version(:lnblnk(version))
-C Initialize plplot
-C Divide page into 2x2 plots
+c Initialize plplot
+c Divide page into 2x2 plots
call plstar(2,2)
-C Set up the data
-C Original case
+c Set up the data
+c Original case
xscale = 6.d0
yscale = 1.d0
xoff = 0.d0
yoff = 0.d0
-C Do a plot
+c Do a plot
call plot1()
-C Set up the data
+c Set up the data
xscale = 1.d0
yscale = 0.0014d0
yoff = 0.0185d0
-C Do a plot
+c Do a plot
digmax = 5
call plsyax(digmax, 0)
@@ -70,11 +70,11 @@
call plot2()
call plot3()
-C Don't forget to call PLEND to finish off!
+c Don't forget to call PLEND to finish off!
call plend()
end
-C======================================================================
+c======================================================================
subroutine plot1()
implicit none
@@ -101,28 +101,28 @@
ys(i) = y((i-1)*10+4)
enddo
-C Set up the viewport and window using PLENV. The range in X is
-C 0.0 to 6.0, and the range in Y is 0.0 to 30.0. The axes are
-C scaled separately (just = 0), and we just draw a labelled
-C box (axis = 0).
+c Set up the viewport and window using PLENV. The range in X is
+c 0.0 to 6.0, and the range in Y is 0.0 to 30.0. The axes are
+c scaled separately (just = 0), and we just draw a labelled
+c box (axis = 0).
call plcol0(1)
call plenv( xmin, xmax, ymin, ymax, 0, 0 )
call plcol0(2)
call pllab( '(x)', '(y)', '#frPLplot Example 1 - y=x#u2' )
-C Plot the data points
+c Plot the data points
call plcol0(4)
call plpoin( 6, xs, ys, 9 )
-C Draw the line through the data
+c Draw the line through the data
call plcol0(3)
call plline( 60, x, y )
end
-C======================================================================
+c======================================================================
subroutine plot2()
real*8 x(101), y(101)
@@ -131,12 +131,12 @@
integer i
common /plotdat/ x, y, xs, ys, xscale, yscale, xoff, yoff
-C======================================================================
-C
-C Set up the viewport and window using PLENV. The range in X is
-C -2.0 to 10.0, and the range in Y is -0.4 to 2.0. The axes are
-C scaled separately (just = 0), and we draw a box with axes
-C (axis = 1).
+c======================================================================
+c
+c Set up the viewport and window using PLENV. The range in X is
+c -2.0 to 10.0, and the range in Y is -0.4 to 2.0. The axes are
+c scaled separately (just = 0), and we draw a box with axes
+c (axis = 1).
call plcol0(1)
call plenv(-2.0d0, 10.0d0, -0.4d0, 1.2d0, 0, 1 )
@@ -144,14 +144,14 @@
call pllab( '(x)', 'sin(x)/x',
& '#frPLplot Example 1 - Sinc Function' )
-C Fill up the arrays
+c Fill up the arrays
do i = 1, 100
x(i) = (i-20.0d0)/6.0d0
y(i) = 1.0d0
if (x(i) .ne. 0.0d0) y(i) = sin(x(i)) / x(i)
enddo
-C Draw the line
+c Draw the line
call plcol0(3)
call plwid(2)
@@ -159,11 +159,11 @@
call plwid(1)
end
-C======================================================================
+c======================================================================
subroutine plot3()
-C
-C For the final graph we wish to override the default tick intervals,
-C and so do not use_ PLENV
+c
+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)
@@ -174,19 +174,19 @@
common /plotdat/ x, y, xs, ys, xscale, yscale, xoff, yoff
call pladv(0)
-C Use_ standard viewport, and define X range from 0 to 360 degrees,
-C Y range from -1.2 to 1.2.
+c Use_ standard viewport, and define X range from 0 to 360 degrees,
+c Y range from -1.2 to 1.2.
call plvsta()
call plwind( 0.0d0, 360.0d0, -1.2d0, 1.2d0 )
-C Draw a box with ticks spaced 60 degrees apart in X, and 0.2 in Y.
+c Draw a box with ticks spaced 60 degrees apart in X, and 0.2 in Y.
call plcol0(1)
call plbox( 'bcnst', 60.0d0, 2, 'bcnstv', 0.2d0, 2 )
-C Superimpose a dashed line grid, with 1.5 mm marks and spaces. With
-C only a single mark and space element, we do not need arrays
+c Superimpose a dashed line grid, with 1.5 mm marks and spaces. With
+c only a single mark and space element, we do not need arrays
call plstyl( 1, 1500, 1500 )
call plcol0(2)
Modified: trunk/examples/f77/x02f.fm4
===================================================================
--- trunk/examples/f77/x02f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x02f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,37 +1,37 @@
-C $Id$
-C Demonstrates multiple windows and color map 0
-C
-C Copyright (C) 2004 Alan W. Irwin
-C Copyright (C) 2005 Andrew Ross
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Demonstrates multiple windows and color map 0
+c
+c Copyright (C) 2004 Alan W. Irwin
+c Copyright (C) 2005 Andrew Ross
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Initialize plplot
+c Initialize plplot
call plinit()
-C Run demos
+c Run demos
call demo1
call demo2
@@ -40,17 +40,17 @@
end
-C--------------------------------------------------------------------------
-C demo1
-C
-C Demonstrates multiple windows and default color map 0 palette.
-C--------------------------------------------------------------------------
+c--------------------------------------------------------------------------
+c demo1
+c
+c Demonstrates multiple windows and default color map 0 palette.
+c--------------------------------------------------------------------------
subroutine demo1
implicit none
call plbop
-C Divide screen into 16 regions
+c Divide screen into 16 regions
call plssub(4,4)
call draw_windows(16, 0)
@@ -60,12 +60,12 @@
end
-C--------------------------------------------------------------------------
-C demo2
-C
-C Demonstrates multiple windows, user-modified color map 0 palette,
-C and HLS -> RGB translation.
-C--------------------------------------------------------------------------
+c--------------------------------------------------------------------------
+c demo2
+c
+c Demonstrates multiple windows, user-modified color map 0 palette,
+c and HLS -> RGB translation.
+c--------------------------------------------------------------------------
subroutine demo2
implicit none
integer r(116), g(116), b(116)
@@ -76,21 +76,21 @@
call plbop
-C Divide screen into 100 regions
+c Divide screen into 100 regions
call plssub(10,10)
do i=0,99
-C Bounds on HLS, from plhlsrgb() commentary --
-C hue [0., 360.] degrees
-C lightness [0., 1.] magnitude
-C saturation [0., 1.] magnitude
+c Bounds on HLS, from plhlsrgb() commentary --
+c hue [0., 360.] degrees
+c lightness [0., 1.] magnitude
+c saturation [0., 1.] magnitude
-C Vary hue uniformly from left to right
+c Vary hue uniformly from left to right
h = (360.d0/10.d0)*mod(i,10)
-C Vary lightness uniformly from top to bottom, between min and max
+c Vary lightness uniformly from top to bottom, between min and max
l = lmin + (lmax - lmin) * (i / 10) / 9.d0
-C Use_ max saturation
+c Use_ max saturation
s = 1.d0
call plhlsrgb(h, l, s, r1, g1, b1)
@@ -112,11 +112,11 @@
end
-C--------------------------------------------------------------------------
-C draw_windows
-C
-C Draws a set of numbered boxes with colors according to cmap0 entry.
-C--------------------------------------------------------------------------
+c--------------------------------------------------------------------------
+c draw_windows
+c
+c Draws a set of numbered boxes with colors according to cmap0 entry.
+c--------------------------------------------------------------------------
subroutine draw_windows( nw, cmap0_offset )
implicit none
integer nw, cmap0_offset
Modified: trunk/examples/f77/x03f.fm4
===================================================================
--- trunk/examples/f77/x03f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x03f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,23 +1,23 @@
-C $Id$
-C Generates polar plot with, 1-1 scaling
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Generates polar plot with, 1-1 scaling
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
real*8 PI
@@ -29,11 +29,11 @@
integer i, j, nsp
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Set orientation to landscape - note not all device drivers
-C support this, in particular most interactive drivers do not.
+c Set orientation to landscape - note not all device drivers
+c support this, in particular most interactive drivers do not.
call plsori(1)
dtr = PI/180.0d0
@@ -42,11 +42,11 @@
y0(i) = sin(dtr * dble (i))
enddo
-C Initialize PLplot
+c Initialize PLplot
call plinit()
-C Set up viewport and window, but do not draw box
+c Set up viewport and window, but do not draw box
call plenv(-1.3d0, 1.3d0, -1.3d0, 1.3d0, 1, -2)
do i = 1,10
@@ -54,7 +54,7 @@
x(j) = 0.1d0*i*x0(j)
y(j) = 0.1d0*i*y0(j)
enddo
-C Draw circles for polar grid
+c Draw circles for polar grid
call plline(361,x,y)
enddo
@@ -64,12 +64,12 @@
dx = cos(dtr*theta)
dy = sin(dtr*theta)
-C Draw radial spokes for polar grid
+c Draw radial spokes for polar grid
call pljoin(0.0d0, 0.0d0, dx, dy)
write (text,'(i3)') nint(theta)
-C Write labels for angle
+c Write labels for angle
text = text(nsp(text):)
@@ -81,15 +81,15 @@
offset = 0.15
endif
-C Slightly off zero to avoid floating point logic flips at
-C 90 and 270 deg.
+c Slightly off zero to avoid floating point logic flips at
+c 90 and 270 deg.
if (dx.ge.-0.00001d0) then
call plptex(dx, dy, dx, dy, -offset, text)
else
call plptex(dx, dy, -dx, -dy, (1.d0 + offset), text)
end if
enddo
-C Draw the graph
+c Draw the graph
do i=0,360
r = sin(dtr*dble (5*i))
@@ -103,15 +103,15 @@
call plmtex('t', 2.0d0, 0.5d0, 0.5d0,
& '#frPLplot Example 3 - r(#gh)=sin 5#gh')
-C Close the plot at end
+c Close the plot at end
call plend
end
integer function nsp(text)
-C ==================
+c ==================
-C Find first non-space character
+c Find first non-space character
implicit none
character*(*) text
Modified: trunk/examples/f77/x04f.fm4
===================================================================
--- trunk/examples/f77/x04f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x04f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,33 +1,33 @@
-C $Id$
-C Illustration of logarithmic axes, and redefinition of window
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Illustration of logarithmic axes, and redefinition of window
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
call plinit
call plfont(2)
-C Make log plots using two different styles.
+c Make log plots using two different styles.
call plot1(0)
call plot1(1)
call plend
@@ -41,7 +41,7 @@
integer i, type
call pladv(0)
-C Set up data for log plot.
+c Set up data for log plot.
f0 = 1.d0
do i=0,100
freql(i)= -2.0d0 + dble (i)/20.0d0
@@ -52,7 +52,7 @@
call plvpor(0.15d0, 0.85d0, 0.1d0, 0.9d0)
call plwind(-2.0d0, 3.0d0, -80.0d0, 0.0d0)
call plcol0(1)
-C Try different axis and labelling styles.
+c Try different axis and labelling styles.
if (type.eq.0) then
call plbox('bclnst', 0.0d0, 0, 'bnstv', 0.0d0, 0)
elseif (type.eq.1) then
@@ -60,20 +60,20 @@
else
stop 'plot1: invalid type'
endif
-C Plot ampl vs freq.
+c Plot ampl vs freq.
call plcol0(2)
call plline(101,freql,ampl)
call plcol0(1)
call plptex(1.6d0, -30.0d0, 1.0d0, -20.0d0, 0.5d0,
& '-20 dB/decade')
-C Put labels on.
+c Put labels on.
call plcol0(1)
call plmtex('b', 3.2d0, 0.5d0, 0.5d0, 'Frequency')
call plmtex('t', 2.0d0, 0.5d0, 0.5d0,
& 'Single Pole Low-Pass Filter')
call plcol0(2)
call plmtex('l', 5.0d0, 0.5d0, 0.5d0, 'Amplitude (dB)')
-C For the gridless case, put phase vs freq on same plot.
+c For the gridless case, put phase vs freq on same plot.
if(type.eq.0) then
call plcol0(1)
call plwind(-2.0d0, 3.0d0, -100.0d0, 0.0d0)
Modified: trunk/examples/f77/x05f.fm4
===================================================================
--- trunk/examples/f77/x05f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x05f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,23 +1,23 @@
-C $Id$
-C Draws a histogram from sample data
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Draws a histogram from sample data
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
real*8 PI
@@ -29,12 +29,12 @@
real*8 data(NPTS), delta
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Initialize plplot
+c Initialize plplot
call plinit()
-C Fill up data points
+c Fill up data points
delta = 2.0d0 * PI / dble (NPTS)
do i=1,NPTS
Modified: trunk/examples/f77/x06f.fm4
===================================================================
--- trunk/examples/f77/x06f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x06f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,23 +1,23 @@
-C $Id$
-C Displays the plotter symbols for PLPOIN
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Displays the plotter symbols for PLPOIN
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
integer i, j, k
@@ -26,28 +26,28 @@
character*3 text
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Full sized page for display
+c Full sized page for display
call plinit()
call pladv(0)
call plcol0(2)
-C Set up viewport and window
+c Set up viewport and window
call plvpor(0.1d0, 1.0d0, 0.1d0, 0.9d0)
call plwind(0.0d0, 1.0d0, 0.0d0, 1.3d0)
-C Draw the grid using plbox
+c Draw the grid using plbox
call plbox('bcg', 0.1d0, 0, 'bcg', 0.1d0, 0)
call plcol0(15)
-C Write the digits below the frame
+c Write the digits below the frame
do i=0,9
write (text,'(i1)') i
@@ -56,7 +56,7 @@
k=0
do i=0,12
-C Write the digits to the left of the frame
+c Write the digits to the left of the frame
if(i.eq.0) then
write (text,'(i1)') 10*i
@@ -71,7 +71,7 @@
x=0.1d0*j+0.05d0
y=1.25d0-0.1d0*i
-C Display the symbols
+c Display the symbols
if (k.lt.128) call plpoin(1,x,y,k)
k=k+1
Modified: trunk/examples/f77/x07f.fm4
===================================================================
--- trunk/examples/f77/x07f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x07f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,23 +1,23 @@
-C $Id$
-C Displays the plotter symbols for PLSYM
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Displays the plotter symbols for PLSYM
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
@@ -30,10 +30,10 @@
real*8 x, y
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
-C Full sized page for display
+c Full sized page for display
call plinit()
call plfontld(1)
@@ -42,17 +42,17 @@
call plcol0(2)
-C Set up viewport and window
+c Set up viewport and window
call plvpor(0.15d0, 0.95d0, 0.1d0, 0.9d0)
call plwind(0.0d0, 1.0d0, 0.0d0, 1.0d0)
-C Draw the grid using plbox
+c Draw the grid using plbox
call plbox('bcg', 0.1d0, 0,'bcg', 0.1d0, 0)
call plcol0(15)
-C Write the digits below the frame
+c Write the digits below the frame
do i=0,9
write (text,'(i1)') i
@@ -62,7 +62,7 @@
k=0
do i=0,9
-C Write the digits to the left of the frame
+c Write the digits to the left of the frame
if(base(l)+10*i.eq.0) then
write (text,'(i1)') base(l)+10*i
@@ -79,7 +79,7 @@
x=0.1d0*j+0.05d0
y=0.95d0-0.1d0*i
-C Display the symbols
+c Display the symbols
call plsym(1,x,y,base(l)+k)
k=k+1
Modified: trunk/examples/f77/x08f.fm4
===================================================================
--- trunk/examples/f77/x08f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x08f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,30 +1,30 @@
-C $Id$
-C 3-d plot demo
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c 3-d plot demo
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
implicit none
real*8 PI
parameter (PI = 3.1415926535897932384d0)
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.
+c xdim is the leading dimension of z, xpts <= xdim is the leading
+c dimension of z that is defined.
parameter (xdim=99, ydim=100, xpts=35, ypts=46)
real*8 x(xdim), y(ydim), z(xdim,ypts), xx, yy, r
@@ -38,8 +38,8 @@
integer nlevel
parameter (nlevel = 10)
real*8 zmin, zmax, step, clevel(nlevel)
-C Plotting options for 3d plots, see plplot.h for the C definitions
-C of these options.
+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)
@@ -54,7 +54,7 @@
parameter(MESH = 256)
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
@@ -75,14 +75,14 @@
yy = y(j)
if(rosen.eq.1) then
z(i,j) = (1.d0 - xx)**2 + 100.d0*(yy - xx**2)**2
-C The log argument may be zero for just the right grid.
+c The log argument may be zero for just the right grid.
if(z(i,j).gt.0.d0) then
z(i,j) = log(z(i,j))
else
z(i,j) = -5.d0
endif
else
-C sombrero function
+c sombrero function
r = sqrt(xx*xx + yy*yy)
z(i,j) = exp(-r*r) * cos(2.0d0*PI*r)
endif
@@ -116,25 +116,25 @@
& 'bcdmnstuv','z axis', 0.0d0, 0)
call plcol0(2)
if(ifshade.eq.0) then
-C diffuse light surface plot
+c diffuse light surface plot
call cmap1_init(1)
call plsurf3d(x, y, z, xpts, ypts,
& 0,
& clevel, 0, xdim)
elseif(ifshade.eq.1) then
-C magnitude colored plot
+c magnitude colored plot
call cmap1_init(0)
call plsurf3d(x, y, z, xpts, ypts,
& MAG_COLOR,
& clevel, 0, xdim)
elseif(ifshade.eq.2) then
-C magnitude colored plot with faceted squares
+c magnitude colored plot with faceted squares
call cmap1_init(0)
call plsurf3d(x, y, z, xpts, ypts,
& ior(MAG_COLOR, FACETED),
& clevel, 0, xdim)
elseif(ifshade.eq.3) then
-C magnitude colored plot with contours
+c magnitude colored plot with contours
call cmap1_init(0)
call plsurf3d(x, y, z, xpts, ypts,
& ior(MAG_COLOR, ior(SURF_CONT, BASE_CONT)),
@@ -147,50 +147,50 @@
call plend
end
-C----------------------------------------------------------------------------
+c----------------------------------------------------------------------------
subroutine cmap1_init(gray)
-C For gray.eq.1, basic grayscale variation from half-dark
-C to light. Otherwise, hue variations around the front of the
-C colour wheel from blue to green to red with constant lightness
-C and saturation.
+c For gray.eq.1, basic grayscale variation from half-dark
+c to light. Otherwise, hue variations around the front of the
+c colour wheel from blue to green to red with constant lightness
+c and saturation.
implicit none
integer gray
real*8 i(0:1), h(0:1), l(0:1), s(0:1)
integer rev(0:1)
-C left boundary
+c left boundary
i(0) = 0.d0
-C right boundary
+c right boundary
i(1) = 1.d0
if (gray.eq.1) then
-C hue -- low: red (arbitrary if s=0)
+c hue -- low: red (arbitrary if s=0)
h(0) = 0.0d0
-C hue -- high: red (arbitrary if s=0)
+c hue -- high: red (arbitrary if s=0)
h(1) = 0.0d0
-C lightness -- low: half-dark
+c lightness -- low: half-dark
l(0) = 0.5d0
-C lightness -- high: light
+c lightness -- high: light
l(1) = 1.0d0
-C minimum saturation
+c minimum saturation
s(0) = 0.0d0
-C minimum saturation
+c minimum saturation
s(1) = 0.0d0
else
-C This combination of hues ranges from blue to cyan to green to yellow
-C to red (front of colour wheel) with constant lightness = 0.6
-C and saturation = 0.8.
+c This combination of hues ranges from blue to cyan to green to yellow
+c to red (front of colour wheel) with constant lightness = 0.6
+c and saturation = 0.8.
-C hue -- low: blue
+c hue -- low: blue
h(0) = 240.d0
-C hue -- high: red
+c hue -- high: red
h(1) = 0.0d0
-C lightness -- low:
+c lightness -- low:
l(0) = 0.6d0
-C lightness -- high:
+c lightness -- high:
l(1) = 0.6d0
-C saturation
+c saturation
s(0) = 0.8d0
-C minimum saturation
+c minimum saturation
s(1) = 0.8d0
endif
rev(0) = 0
@@ -199,9 +199,9 @@
call plscmap1l(0, 2, i, h, l, s, rev)
end
-C----------------------------------------------------------------------------
-C Subroutine a2mnmx
-C Minimum and the maximum elements of a 2-d array.
+c----------------------------------------------------------------------------
+c Subroutine a2mnmx
+c Minimum and the maximum elements of a 2-d array.
subroutine a2mnmx(f, nx, ny, fmin, fmax, xdim)
implicit none
Modified: trunk/examples/f77/x09f.fm4
===================================================================
--- trunk/examples/f77/x09f.fm4 2009-02-09 21:32:31 UTC (rev 9483)
+++ trunk/examples/f77/x09f.fm4 2009-02-09 22:56:38 UTC (rev 9484)
@@ -1,32 +1,32 @@
-C $Id$
-C Contour plot demo.
-C
-C Copyright (C) 2004 Alan W. Irwin
-C
-C This file is part of PLplot.
-C
-C PLplot is free software; you can redistribute it and/or modify
-C it under the terms of the GNU General Library Public License as
-C published by the Free Software Foundation; either version 2 of the
-C License, or (at your option) any later version.
-C
-C PLplot is distributed in the hope that it will be useful,
-C but WITHOUT ANY WARRANTY; without even the implied warranty of
-C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-C GNU Library General Public License for more details.
-C
-C You should have received a copy of the GNU Library General Public
-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
+c $Id$
+c Contour plot demo.
+c
+c Copyright (C) 2004 Alan W. Irwin
+c
+c This file is part of PLplot.
+c
+c PLplot is free software; you can redistribute it and/or modify
+c it under the terms of the GNU General Library Public License as
+c published by the Free Software Foundation; either version 2 of the
+c License, or (at your option) any later version.
+c
+c PLplot is distributed in the hope that it will be useful,
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+c GNU Library General Public License for more details.
+c
+c You should have received a copy of the GNU Library General Public
+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
-C Does several contour plots using different coordinate mappings.
+c Does several contour plots using different coordinate mappings.
implicit none
real*8 PI
parameter (PI = 3.1415926535897932384d0)
integer i, j, nptsx, nptsy, xdim, ydim
-C xdim and ydim are the absolute static dimensions.
-C nptsx, and nptsy are the (potentially dynamic) defined area of the 2D
-C arrays that is actually used.
+c xdim and ydim are the absolute static dimensions.
+c nptsx, and nptsy are the (potentially dynamic) defined area of the 2D
+c arrays that is actually used.
parameter (xdim=99, ydim=100, nptsx=35,nptsy=46)
real*8 z(xdim, ydim), w(xdim, ydim), clevel(11),
@@ -34,14 +34,14 @@
& xg2(xdim, ydim), yg2(xdim, ydim)
real*8 tr, xx, yy, argx, argy, distort
-CDEC$ ATTRIBUTES DLLIMPORT :: PLPLOT
+cDEC$ ATTRIBUTES DLLIMPORT :: PLPLOT
common /plplot/ tr(6)
data clevel /-1.d0, -0.8d0, -0.6d0, -0.4d0, -0.2d0,
& 0.d0, 0.2d0, 0.4d0, 0.6d0 ,0.8d0, 1.d0/
integer PL_PARSE_FULL
parameter(PL_PARSE_FULL = 1)
-C Process command-line arguments
+c Process command-line arguments
call plparseopts(PL_PARSE_FULL)
tr(1) = 2.d0/dble(nptsx-1)
@@ -51,7 +51,7 @@
tr(5) = 2.d0/dble(nptsy-1)
tr(6) = -1.0d0
-C Calculate the data matrices.
+c Calculate the data matrices.
do i=1,nptsx
xx = dble(i-1-(nptsx/2))/dble (nptsx/2)
do j=1,nptsy
@@ -61,7 +61,7 @@
enddo
enddo
-C Build the 1-d coord arrays.
+c Build the 1-d coord arrays.
distort = 0.4d0
do i=1,nptsx
xx = -1.d0 + dble(i-1)*2.d0/dble(nptsx-1)
@@ -73,7 +73,7 @@
yg1(j) = yy - distort*cos(0.5d0*PI*yy)
enddo
-C Build the 2-d coord arrays.
+c Build the 2-d coord arrays.
do i=1,nptsx
xx = -1.d0 + dble(i-1)*2.d0/dble(nptsx-1)
argx = 0.5d0*PI*xx
@@ -87,7 +87,7 @@
call plinit
-C Plot using identity transform
+c Plot using identity transform
call pl_setcontlabelformat(4,3)
call pl_setcontlabelparam(0.006d0, 0.3d0, 0.1d0, 1)
call plenv(-1.0d0, 1.0d0, -1.0d0, 1.0d0, 0, 0)
@@ -102,7 +102,7 @@
& 'Streamlines of flow')
call pl_setcontlabelparam(0.006d0, 0.3d0, 0.1...
[truncated message content] |
