[Plplot-cvs] SF.net SVN: plplot:[12162] trunk/examples/f95/x09f.f90

[<arj...@us...>]

Revision: 12162
          http://plplot.svn.sourceforge.net/plplot/?rev=12162&view=rev
Author:   arjenmarkus
Date:     2012-02-01 05:26:07 +0000 (Wed, 01 Feb 2012)
Log Message:
-----------
Correct mistake in assignmentts to xg1 and yg1 (different array dimensions for left- and right-hand sides - see SF bug tracker)

Modified Paths:
--------------
    trunk/examples/f95/x09f.f90

Modified: trunk/examples/f95/x09f.f90
===================================================================
--- trunk/examples/f95/x09f.f90	2012-01-28 19:27:06 UTC (rev 12161)
+++ trunk/examples/f95/x09f.f90	2012-02-01 05:26:07 UTC (rev 12162)
@@ -63,8 +63,8 @@
 !   Build the 1-d coord arrays.
     distort = 0.4_plflt
 
-    xg1 = coord_function( arange(0,nptsx) / dble(nptsx-1),  distort )
-    yg1 = coord_function( arange(0,nptsy) / dble(nptsy-1), -distort )
+    xg1(1:nptsx) = coord_function( arange(0,nptsx) / dble(nptsx-1),  distort )
+    yg1(1:nptsy) = coord_function( arange(0,nptsy) / dble(nptsy-1), -distort )
 
 !   Build the 2-d coord arrays.
     do i=1,nptsx

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