[Plplot-cvs] plplot/bindings/f95 sccont.c,1.2,1.3 sfstubsf95.f90,1.4,1.5

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

Update of /cvsroot/plplot/plplot/bindings/f95
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24974/bindings/f95

Modified Files:
	sccont.c sfstubsf95.f90 
Log Message:
Correction for plgriddata


Index: sccont.c
===================================================================
RCS file: /cvsroot/plplot/plplot/bindings/f95/sccont.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sccont.c	17 May 2006 07:29:49 -0000	1.2
+++ sccont.c	19 May 2006 10:09:44 -0000	1.3
@@ -731,14 +731,15 @@
 
 /* Create a vectored a array from transpose of the fortran z array. */
    plAlloc2dGrid(&a, *nx, *ny);
+
+   c_plgriddata( x, y, z, *npts, xg, *nx, yg, *ny, a, *type, *data ) ;
+
    for (i = 0; i < *nx; i++) {
       for (j = 0; j < *ny; j++) {
-	 a[i][j] = z[i +j * *nx];
+	 zg[i +j * *nx] = a[i][j];
       }
    }
 
-   c_plgriddata( x, y, z, *npts, xg, *nx, yg, *ny, a, *type, *data ) ;
-
 /* Clean up memory allocated for a */
    plFree2dGrid(a, *nx, *ny);
 }

Index: sfstubsf95.f90
===================================================================
RCS file: /cvsroot/plplot/plplot/bindings/f95/sfstubsf95.f90,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sfstubsf95.f90	19 May 2006 09:57:07 -0000	1.4
+++ sfstubsf95.f90	19 May 2006 10:09:44 -0000	1.5
@@ -880,7 +880,6 @@
          real(kind=plflt), dimension(:,:) :: zg
          integer                          :: type
 
-
          call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
             type, data )