9 #ifndef SION_FORTRAN_MPI_H_ 10 #define SION_FORTRAN_MPI_H_ 16 #if defined(_FORTRANCAPS) 17 #define fsion_paropen_mpi_c FSION_PAROPEN_MPI_C 19 #elif defined(_FORTRANNOCAPS) 20 #define fsion_paropen_mpi_c fsion_paropen_mpi_c 22 #elif defined(_FORTRANUNDERSCORE) 23 #define fsion_paropen_mpi_c fsion_paropen_mpi_c_ 25 #elif defined(_FORTRANDOUBLEUNDERSCORE) 26 #define fsion_paropen_mpi_c fsion_paropen_mpi_c__ 28 #elif defined(_FORTRANNOUNDERSCORE) 30 #error nothing defined for fortran externals 37 sion_int64 *chunksize,
38 sion_int32 *fsblksize,
47 #if defined(_FORTRANCAPS) 48 #define fsion_paropen_multi_mpi_c FSION_PAROPEN_MULTI_MPI_C 50 #elif defined(_FORTRANNOCAPS) 51 #define fsion_paropen_multi_mpi_c fsion_paropen_multi_mpi_c 53 #elif defined(_FORTRANUNDERSCORE) 54 #define fsion_paropen_multi_mpi_c fsion_paropen_multi_mpi_c_ 56 #elif defined(_FORTRANDOUBLEUNDERSCORE) 57 #define fsion_paropen_multi_mpi_c fsion_paropen_multi_mpi_c__ 59 #elif defined(_FORTRANNOUNDERSCORE) 61 #error nothing defined for fortran externals 68 sion_int64 *chunksize,
69 sion_int32 *fsblksize,
78 #if defined(_FORTRANCAPS) 79 #define fsion_parclose_mpi_c FSION_R 81 #elif defined(_FORTRANNOCAPS) 82 #define fsion_parclose_mpi_c fsion_parclose_mpi_c 84 #elif defined(_FORTRANUNDERSCORE) 85 #define fsion_parclose_mpi_c fsion_parclose_mpi_c_ 87 #elif defined(_FORTRANDOUBLEUNDERSCORE) 88 #define fsion_parclose_mpi_c fsion_parclose_mpi_c__ 90 #elif defined(_FORTRANNOUNDERSCORE) 92 #error nothing defined for fortran externals
void fsion_parclose_mpi_c(int *sid, int *ierr)
Fortran procedure to close a sion file in parallel.
void fsion_paropen_mpi_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)
Wrapper function that calls fsion_paropen_multi_mpi for 1 file.
void fsion_paropen_multi_mpi_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.