29 #include "sion_fortran_writeread_mpi_f77.h" 33 #define DFUNCTION "fsion_coll_fwrite_mpi" 49 void fsion_coll_fwrite_mpi(
const void *data,
55 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
56 (*rc) = (sion_int64) sion_coll_fwrite_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);
57 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
78 void fsion_coll_fread_mpi(
void *data,
84 (*rc) = (sion_int64) sion_coll_fread_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);