31 #include "sion_fortran_writeread_f90.h" 34 #define DFUNCTION "fsion_write_c" 50 void fsion_write_c(
const void *data,
57 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
58 (*rc) = (sion_int64)
sion_fwrite(data, (
size_t) *size, (size_t) *nitems, *sid);
59 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
63 #define DFUNCTION "fsion_fwrite_c" 79 void fsion_fwrite_c(
const void *data,
86 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
87 (*rc) = (sion_int64)
sion_fwrite(data, (
size_t) *size, (size_t) *nitems, *sid);
88 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
109 void fsion_read_c(
void *data,
116 (*rc) = (sion_int64)
sion_fread(data, (
size_t) *size, (size_t) *nitems, *sid);
134 void fsion_fread_c(
void *data,
141 (*rc) = (sion_int64)
sion_fread(data, (
size_t) *size, (size_t) *nitems, *sid);
size_t sion_fwrite(const void *data, size_t size, size_t nitems, int sid)
Write data to sion file.
size_t sion_fread(void *data, size_t size, size_t nitems, int sid)
Read data from sion file.