30 #include "sion_fortran_writeread_mpi_f90.h" 34 #define DFUNCTION "fsion_coll_fwrite_mpi_c" 50 void fsion_coll_fwrite_mpi_c(
const void *data,
56 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
57 (*rc) = (sion_int64) sion_coll_fwrite_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);
58 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
80 void fsion_coll_fread_mpi_c(
void *data,
87 (*rc) = (sion_int64) sion_coll_fread_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);