SIONlib
1.6.2
Scalable I/O library for parallel access to task-local files
src
fortraninterface
sion_fortran_writeread_mpi_f90.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_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_ */
sion.h
Generated by
1.8.15