SIONlib
1.6.2
Scalable I/O library for parallel access to task-local files
src
fortraninterface
sion_fortran_writeread_f77.h
1
/****************************************************************************
2
** SIONLIB http://www.fz-juelich.de/jsc/sionlib **
3
*****************************************************************************
4
** Copyright (c) 2008-2016 **
5
** Forschungszentrum Juelich, Juelich Supercomputing Centre **
6
** **
7
** See the file COPYRIGHT in the package base directory for details **
8
****************************************************************************/
9
#ifndef SION_FORTRAN_WRITEREAD_F77_H_
10
#define SION_FORTRAN_WRITEREAD_F77_H_
11
12
#include "
sion.h
"
13
22
/* sion_write() */
23
#if defined(_FORTRANCAPS)
24
#define fsion_write FSION_WRITE
25
26
#elif defined(_FORTRANNOCAPS)
27
#define fsion_write fsion_write
28
29
#elif defined(_FORTRANUNDERSCORE)
30
#define fsion_write fsion_write_
31
32
#elif defined(_FORTRANDOUBLEUNDERSCORE)
33
#define fsion_write fsion_write__
34
35
#elif defined(_FORTRANNOUNDERSCORE)
36
#else
37
#error nothing defined for fortran externals
38
#endif
39
void
fsion_write(
const
void
*data,
40
sion_int64 *size,
41
sion_int64 *nitems,
42
int
*sid,
43
sion_int64 *rc);
44
45
/* sion_fwrite() */
46
#if defined(_FORTRANCAPS)
47
#define fsion_fwrite FSION_FWRITE
48
49
#elif defined(_FORTRANNOCAPS)
50
#define fsion_fwrite fsion_fwrite
51
52
#elif defined(_FORTRANUNDERSCORE)
53
#define fsion_fwrite fsion_fwrite_
54
55
#elif defined(_FORTRANDOUBLEUNDERSCORE)
56
#define fsion_fwrite fsion_fwrite__
57
58
#elif defined(_FORTRANNOUNDERSCORE)
59
#else
60
#error nothing defined for fortran externals
61
#endif
62
void
fsion_fwrite(
const
void
*data,
63
sion_int64 *size,
64
sion_int64 *nitems,
65
int
*sid,
66
sion_int64 *rc);
67
68
/* sion_read() */
69
#if defined(_FORTRANCAPS)
70
#define fsion_read FSION_READ
71
72
#elif defined(_FORTRANNOCAPS)
73
#define fsion_read fsion_read
74
75
#elif defined(_FORTRANUNDERSCORE)
76
#define fsion_read fsion_read_
77
78
#elif defined(_FORTRANDOUBLEUNDERSCORE)
79
#define fsion_read fsion_read__
80
81
#elif defined(_FORTRANNOUNDERSCORE)
82
#else
83
#error nothing defined for fortran externals
84
#endif
85
void
fsion_read(
void
*data,
86
sion_int64 *size,
87
sion_int64 *nitems,
88
int
*sid,
89
sion_int64 *rc);
90
91
/* sion_fread() */
92
#if defined(_FORTRANCAPS)
93
#define fsion_fread FSION_FREAD
94
95
#elif defined(_FORTRANNOCAPS)
96
#define fsion_fread fsion_fread
97
98
#elif defined(_FORTRANUNDERSCORE)
99
#define fsion_fread fsion_fread_
100
101
#elif defined(_FORTRANDOUBLEUNDERSCORE)
102
#define fsion_fread fsion_fread__
103
104
#elif defined(_FORTRANNOUNDERSCORE)
105
#else
106
#error nothing defined for fortran externals
107
#endif
108
void
fsion_fread(
void
*data,
109
sion_int64 *size,
110
sion_int64 *nitems,
111
int
*sid,
112
sion_int64 *rc);
113
114
115
#endif
/* SION_FORTRAN_H_ */
sion.h
Generated by
1.8.15