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