19 #define _XOPEN_SOURCE 700 32 #include "sion_fortran_writeread_mpi_f90.h" 36 #define DFUNCTION "fsion_coll_fwrite_mpi_c" 52 void fsion_coll_fwrite_mpi_c(
const void *data,
58 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
59 (*rc) = (sion_int64) sion_coll_fwrite_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);
60 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
82 void fsion_coll_fread_mpi_c(
void *data,
89 (*rc) = (sion_int64) sion_coll_fread_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);