SIONlib  1.7.4
Scalable I/O library for parallel access to task-local files
sion_fortran_writeread_f77.h
1 /****************************************************************************
2 ** SIONLIB http://www.fz-juelich.de/jsc/sionlib **
3 *****************************************************************************
4 ** Copyright (c) 2008-2019 **
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_ */
Generated by   doxygen 1.8.15