plplot-cvs

[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.

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

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

Revision: 12843
          http://sourceforge.net/p/plplot/code/12843
Author:   andrewross
Date:     2013-12-11 01:50:02 +0000 (Wed, 11 Dec 2013)
Log Message:
-----------
Another valgrind fix.

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

Modified: trunk/examples/f95/x09f.f90
===================================================================
--- trunk/examples/f95/x09f.f90	2013-12-11 01:27:07 UTC (rev 12842)
+++ trunk/examples/f95/x09f.f90	2013-12-11 01:50:02 UTC (rev 12843)
@@ -85,10 +85,10 @@
     call pl_setcontlabelparam(0.006_plflt, 0.3_plflt, 0.1_plflt, 1)
     call plenv(-1.0_plflt, 1.0_plflt, -1.0_plflt, 1.0_plflt, 0, 0)
     call plcol0(2)
-    call plcont(z, 1, nptsx, 1, nptsy, clevel, tr)
+    call plcont(z(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, tr)
     call plstyl(1, 1500, 1500)
     call plcol0(3)
-    call plcont(w, 1, nptsx, 1, nptsy, clevel, tr)
+    call plcont(w(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, tr)
     call plstyl(0, 1500, 1500)
     call plcol0(1)
     call pllab('X Coordinate', 'Y Coordinate', 'Streamlines of flow')
@@ -97,10 +97,10 @@
 !   Plot using 1d coordinate transform
     call plenv(-1.0_plflt, 1.0_plflt, -1.0_plflt, 1.0_plflt, 0, 0)
     call plcol0(2)
-    call plcont(z, 1, nptsx, 1, nptsy, clevel, xg1, yg1)
+    call plcont(z(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, xg1(1:nptsx), yg1(1:nptsy))
     call plstyl(1, 1500, 1500)
     call plcol0(3)
-    call plcont(w, 1, nptsx, 1, nptsy, clevel, xg1, yg1)
+    call plcont(w(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, xg1(1:nptsx), yg1(1:nptsy))
     call plstyl(0, 1500, 1500)
     call plcol0(1)
     call pllab('X Coordinate', 'Y Coordinate', 'Streamlines of flow')
@@ -108,10 +108,10 @@
 !   Plot using 2d coordinate transform
     call plenv(-1.0_plflt, 1.0_plflt, -1.0_plflt, 1.0_plflt, 0, 0)
     call plcol0(2)
-    call plcont(z, 1, nptsx, 1, nptsy, clevel, xg2, yg2)
+    call plcont(z(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, xg2(1:nptsx,1:nptsy), yg2(1:nptsx,1:nptsy))
     call plstyl(1, 1500, 1500)
     call plcol0(3)
-    call plcont(w, 1, nptsx, 1, nptsy, clevel, xg2, yg2)
+    call plcont(w(1:nptsx,1:nptsy), 1, nptsx, 1, nptsy, clevel, xg2(1:nptsx,1:nptsy), yg2(1:nptsx,1:nptsy))
     call plstyl(0, 1500, 1500)
     call plcol0(1)
     call pllab('X Coordinate', 'Y Coordinate', 'Streamlines of flow')

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