31 #include "sion_fortran_writeread_f77.h" 34 #define DFUNCTION "fsion_write" 50 void fsion_write(
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" 79 void fsion_fwrite(
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(
void *data,
116 (*rc) = (sion_int64)
sion_fread(data, (
size_t) *size, (size_t) *nitems, *sid);
134 void fsion_fread(
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.