From: Arjen M. <arj...@us...> - 2006-05-17 07:29:52
|
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 |