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

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

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

Modified Files:
	sccont.c sfstubsf95.f90 
Log Message:
Added f95 interface for plgriddata()


Index: sccont.c
===================================================================
RCS file: /cvsroot/plplot/plplot/bindings/f95/sccont.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sccont.c	29 Dec 2005 20:46:06 -0000	1.1
+++ sccont.c	17 May 2006 07:29:49 -0000	1.2
@@ -721,3 +721,24 @@
 /* Clean up memory allocated for a */
    plFree2dGrid(a, *nx, *ny);
 }
+
+void
+PLGRIDDATAF77(PLFLT *x, PLFLT *y, PLFLT *z, PLINT *npts, PLFLT *xg,
+	 PLINT *nx, PLFLT *yg, PLINT *ny, PLFLT *zg, PLINT *type, PLFLT *data )
+{
+   PLFLT ** a;
+   int i,j;
+
+/* Create a vectored a array from transpose of the fortran z array. */
+   plAlloc2dGrid(&a, *nx, *ny);
+   for (i = 0; i < *nx; i++) {
+      for (j = 0; j < *ny; j++) {
+	 a[i][j] = z[i +j * *nx];
+      }
+   }
+
+   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.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sfstubsf95.f90	16 May 2006 20:19:34 -0000	1.1
+++ sfstubsf95.f90	17 May 2006 07:29:49 -0000	1.2
@@ -710,7 +710,7 @@
 
       interface plsym
          module procedure plsym
-      end interface 
+      end interface
 
       interface
          subroutine plszax( digmax, digits )
@@ -834,7 +834,10 @@
          real(kind=plflt), dimension(:,:) :: zg
          integer                          :: type
 
-         ! TODO
+
+         call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
+            type, data )
+
          return
       end subroutine plgriddata