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