SIONlib  1.7.4
Scalable I/O library for parallel access to task-local files
sion_fortran_writeread_mpi_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_MPI_F77_H_
10 #define SION_FORTRAN_WRITEREAD_MPI_F77_H_
11 
12 #include "sion.h"
13 
14 
15 /* sion_coll_fwrite_mpi() */
16 #if defined(_FORTRANCAPS)
17 #define fsion_coll_fwrite_mpi FSION_COLL_FWRITE_MPI
18 
19 #elif defined(_FORTRANNOCAPS)
20 #define fsion_coll_fwrite_mpi fsion_coll_fwrite_mpi
21 
22 #elif defined(_FORTRANUNDERSCORE)
23 #define fsion_coll_fwrite_mpi fsion_coll_fwrite_mpi_
24 
25 #elif defined(_FORTRANDOUBLEUNDERSCORE)
26 #define fsion_coll_fwrite_mpi fsion_coll_fwrite_mpi__
27 
28 #elif defined(_FORTRANNOUNDERSCORE)
29 #else
30 #error nothing defined for fortran externals
31 #endif
32 void fsion_coll_fwrite_mpi(const void *data,
33  sion_int64 *size,
34  sion_int64 *nitems,
35  int *sid,
36  sion_int64 *rc);
37 
38 /* sion_coll_fread_mpi() */
39 #if defined(_FORTRANCAPS)
40 #define fsion_coll_fread_mpi FSION_COLL_FREAD_MPI
41 
42 #elif defined(_FORTRANNOCAPS)
43 #define fsion_coll_fread_mpi fsion_coll_fread_mpi
44 
45 #elif defined(_FORTRANUNDERSCORE)
46 #define fsion_coll_fread_mpi fsion_coll_fread_mpi_
47 
48 #elif defined(_FORTRANDOUBLEUNDERSCORE)
49 #define fsion_coll_fread_mpi fsion_coll_fread_mpi__
50 
51 #elif defined(_FORTRANNOUNDERSCORE)
52 #else
53 #error nothing defined for fortran externals
54 #endif
55 void fsion_coll_fread_mpi(void *data,
56  sion_int64 *size,
57  sion_int64 *nitems,
58  int *sid,
59  sion_int64 *rc);
60 
61 #endif /* SION_FORTRAN_H_ */
Generated by   doxygen 1.8.15