[Plplot-cvs] SF.net SVN: plplot:[8654] trunk/examples

[<and...@us...>]

Revision: 8654
          http://plplot.svn.sourceforge.net/plplot/?rev=8654&view=rev
Author:   andrewross
Date:     2008-08-14 15:00:30 +0000 (Thu, 14 Aug 2008)

Log Message:
-----------
Fix incorrect array size for the sombrero data in example 20 (f77 and 
f95 versions). Now produces identical results to C version.

Modified Paths:
--------------
    trunk/examples/f77/x20f.fm4
    trunk/examples/f95/x20f.f90

Modified: trunk/examples/f77/x20f.fm4
===================================================================
--- trunk/examples/f77/x20f.fm4	2008-08-14 14:42:11 UTC (rev 8653)
+++ trunk/examples/f77/x20f.fm4	2008-08-14 15:00:30 UTC (rev 8654)
@@ -72,7 +72,7 @@
 
       integer XDIM, YDIM
       real*8  XDIMR, YDIMR
-      parameter(XDIM = 260, YDIM = 260)
+      parameter(XDIM = 260, YDIM = 220)
       parameter(XDIMR = XDIM, YDIMR = YDIM)
       real*8  PI
       parameter(PI = 3.1415926535897932384d0)

Modified: trunk/examples/f95/x20f.f90
===================================================================
--- trunk/examples/f95/x20f.f90	2008-08-14 14:42:11 UTC (rev 8653)
+++ trunk/examples/f95/x20f.f90	2008-08-14 15:00:30 UTC (rev 8654)
@@ -73,7 +73,7 @@
 
       implicit none
 
-      integer, parameter          :: XDIM = 260, YDIM = 260
+      integer, parameter          :: XDIM = 260, YDIM = 220
       real(kind=plflt), parameter :: XDIMR = XDIM, YDIMR = YDIM
 
       real(kind=plflt) ::  x(XDIM), y(YDIM), z(XDIM,YDIM), r(XDIM,YDIM)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.