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.