9 #ifndef SION_FORTRAN_OMPI_C_H_ 10 #define SION_FORTRAN_OMPI_C_H_ 16 #if defined(_FORTRANCAPS) 17 #define fsion_paropen_ompi_c FSION_PAROPEN_OMPI_C 19 #elif defined(_FORTRANNOCAPS) 20 #define fsion_paropen_ompi_c fsion_paropen_ompi_c 22 #elif defined(_FORTRANUNDERSCORE) 23 #define fsion_paropen_ompi_c fsion_paropen_ompi_c_ 25 #elif defined(_FORTRANDOUBLEUNDERSCORE) 26 #define fsion_paropen_ompi_c fsion_paropen_ompi_c__ 28 #elif defined(_FORTRANNOUNDERSCORE) 30 #error nothing defined for fortran externals 38 sion_int64 *chunksize,
39 sion_int32 *fsblksize,
48 #if defined(_FORTRANCAPS) 49 #define fsion_paropen_multi_ompi_c FSION_PAROPEN_MULTI_OMPI_C 51 #elif defined(_FORTRANNOCAPS) 52 #define fsion_paropen_multi_ompi_c fsion_paropen_multi_ompi_c 54 #elif defined(_FORTRANUNDERSCORE) 55 #define fsion_paropen_multi_ompi_c fsion_paropen_multi_ompi_c_ 57 #elif defined(_FORTRANDOUBLEUNDERSCORE) 58 #define fsion_paropen_multi_ompi_c fsion_paropen_multi_ompi_c__ 60 #elif defined(_FORTRANNOUNDERSCORE) 62 #error nothing defined for fortran externals 69 sion_int64 *chunksize,
70 sion_int32 *fsblksize,
79 #if defined(_FORTRANCAPS) 80 #define fsion_parclose_ompi_c FSION_PARCLOSE_OMPI_C 82 #elif defined(_FORTRANNOCAPS) 83 #define fsion_parclose_ompi_c fsion_parclose_ompi_c 85 #elif defined(_FORTRANUNDERSCORE) 86 #define fsion_parclose_ompi_c fsion_parclose_ompi_c_ 88 #elif defined(_FORTRANDOUBLEUNDERSCORE) 89 #define fsion_parclose_ompi_c fsion_parclose_ompi_c__ 91 #elif defined(_FORTRANNOUNDERSCORE) 93 #error nothing defined for fortran externals
void fsion_parclose_ompi_c(int *sid, int *ierr)
Fortran procedure to close a sion file opened in OpenMP/MPI in parallel.
void fsion_paropen_ompi_c(char *fname, char *file_mode, int *numFiles, MPI_Fint *fgComm, MPI_Fint *flComm, sion_int64 *chunksize, sion_int32 *fsblksize, int *globalrank, char *newfname, int *sid, int fname_len, int file_mode_len, int newfname_len)
Fortran wrapper function that calls sion_paropen_mpi for 1 file.
void fsion_paropen_multi_ompi_c(char *fname, char *file_mode, int *numFiles, MPI_Fint *fgComm, MPI_Fint *flComm, sion_int64 *chunksize, sion_int32 *fsblksize, int *globalrank, int *sid, char *newfname, int fname_len, int file_mode_len, int newfname_len)
Fortran procedure to open multiple sion files in parallel.