Changeset 696

Timestamp:

10/28/09 07:57:39 (5 months ago)

Author:

robl

Message:

new routines for the multi-variable interface

Location:

trunk/src/libf

Files:

• get_mvara_allf.c (added)
• mpifnetcdf.h (modified) (2 diffs)
• put_mvara_allf.c (added)
• waitallf.c (added)
• waitf.c (added)

trunk/src/libf/mpifnetcdf.h

@@ -21 +21 @@
 extern FORTRAN_API int FORT_CALL nfmpi_end_indep_data_ ( int *v1 );
 extern FORTRAN_API int FORT_CALL nfmpi_close_ ( int *v1 );
+extern FORTRAN_API int FORT_CALL nfmpi_wait_ ( NCMPI_Request*v1 );
+extern FORTRAN_API int FORT_CALL nfmpi_waitall_ ( int *v1, NCMPI_Request v2[] );
 extern FORTRAN_API int FORT_CALL nfmpi_set_fill_ ( int *v1, int *v2, MPI_Fint *v3 );
 extern FORTRAN_API int FORT_CALL nfmpi_def_dim_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Offset *v3, MPI_Fint *v4 FORT_END_LEN(d2) );
@@ -99 +101 @@
 extern FORTRAN_API int FORT_CALL nfmpi_get_var_double_all_ ( int *v1, int *v2, double*v3 );
 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 );
+extern FORTRAN_API int FORT_CALL nfmpi_put_mvara_all_ ( int *v1, int *v2, MPI_Fint v3[], MPI_Offset**starts v4, MPI_Offset**counts v5, void**buffers v6, MPI_Offset*v7, MPI_Fint *v8 );
 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 );
+extern FORTRAN_API int FORT_CALL nfmpi_get_mvara_all_ ( int *v1, int *v2, MPI_Fint v3[], MPI_Offset**starts v4, MPI_Offset**counts v5, void**buffers v6, MPI_Offset*v7, MPI_Fint *v8 );
 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 );
 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 );