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_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.
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_parclose_ompi_c(int *sid, int *ierr)
Fortran procedure to close a sion file opened in OpenMP/MPI in parallel.