This source file includes following definitions.
- ompi_file_read_at_f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 #include "ompi_config.h"
24
25 #include "ompi/mpi/fortran/mpif-h/bindings.h"
26 #include "ompi/mpi/fortran/mpif-h/status-conversion.h"
27 #include "ompi/mpi/fortran/base/constants.h"
28
29 #if OMPI_BUILD_MPI_PROFILING
30 #if OPAL_HAVE_WEAK_SYMBOLS
31 #pragma weak PMPI_FILE_READ_AT = ompi_file_read_at_f
32 #pragma weak pmpi_file_read_at = ompi_file_read_at_f
33 #pragma weak pmpi_file_read_at_ = ompi_file_read_at_f
34 #pragma weak pmpi_file_read_at__ = ompi_file_read_at_f
35
36 #pragma weak PMPI_File_read_at_f = ompi_file_read_at_f
37 #pragma weak PMPI_File_read_at_f08 = ompi_file_read_at_f
38 #else
39 OMPI_GENERATE_F77_BINDINGS (PMPI_FILE_READ_AT,
40 pmpi_file_read_at,
41 pmpi_file_read_at_,
42 pmpi_file_read_at__,
43 pompi_file_read_at_f,
44 (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr),
45 (fh, offset, buf, count, datatype, status, ierr) )
46 #endif
47 #endif
48
49 #if OPAL_HAVE_WEAK_SYMBOLS
50 #pragma weak MPI_FILE_READ_AT = ompi_file_read_at_f
51 #pragma weak mpi_file_read_at = ompi_file_read_at_f
52 #pragma weak mpi_file_read_at_ = ompi_file_read_at_f
53 #pragma weak mpi_file_read_at__ = ompi_file_read_at_f
54
55 #pragma weak MPI_File_read_at_f = ompi_file_read_at_f
56 #pragma weak MPI_File_read_at_f08 = ompi_file_read_at_f
57 #else
58 #if ! OMPI_BUILD_MPI_PROFILING
59 OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT,
60 mpi_file_read_at,
61 mpi_file_read_at_,
62 mpi_file_read_at__,
63 ompi_file_read_at_f,
64 (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr),
65 (fh, offset, buf, count, datatype, status, ierr) )
66 #else
67 #define ompi_file_read_at_f pompi_file_read_at_f
68 #endif
69 #endif
70
71
72 void ompi_file_read_at_f(MPI_Fint *fh, MPI_Offset *offset, char *buf,
73 MPI_Fint *count, MPI_Fint *datatype,
74 MPI_Fint *status, MPI_Fint *ierr)
75 {
76 int c_ierr;
77 MPI_File c_fh = PMPI_File_f2c(*fh);
78 MPI_Datatype c_type = PMPI_Type_f2c(*datatype);
79 OMPI_FORTRAN_STATUS_DECLARATION(c_status,c_status2)
80
81 OMPI_FORTRAN_STATUS_SET_POINTER(c_status,c_status2,status)
82
83 c_ierr = PMPI_File_read_at(c_fh,
84 (MPI_Offset) *offset,
85 buf,
86 OMPI_FINT_2_INT(*count),
87 c_type, c_status);
88 if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
89
90 OMPI_FORTRAN_STATUS_RETURN(c_status,c_status2,status,c_ierr)
91 }