This source file includes following definitions.
- ompi_pack_external_size_f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 #include "ompi_config.h"
23
24 #include "ompi/mpi/fortran/mpif-h/bindings.h"
25 #include "ompi/constants.h"
26 #include "ompi/communicator/communicator.h"
27 #include "ompi/mpi/fortran/base/constants.h"
28 #include "ompi/mpi/fortran/base/fortran_base_strings.h"
29
30 #if OMPI_BUILD_MPI_PROFILING
31 #if OPAL_HAVE_WEAK_SYMBOLS
32 #pragma weak PMPI_PACK_EXTERNAL_SIZE = ompi_pack_external_size_f
33 #pragma weak pmpi_pack_external_size = ompi_pack_external_size_f
34 #pragma weak pmpi_pack_external_size_ = ompi_pack_external_size_f
35 #pragma weak pmpi_pack_external_size__ = ompi_pack_external_size_f
36
37 #pragma weak PMPI_Pack_external_size_f = ompi_pack_external_size_f
38 #pragma weak PMPI_Pack_external_size_f08 = ompi_pack_external_size_f
39 #else
40 OMPI_GENERATE_F77_BINDINGS (PMPI_PACK_EXTERNAL_SIZE,
41 pmpi_pack_external_size,
42 pmpi_pack_external_size_,
43 pmpi_pack_external_size__,
44 pompi_pack_external_size_f,
45 (char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Aint *size, MPI_Fint *ierr, int datarep_len),
46 (datarep, incount, datatype, size, ierr, datarep_len) )
47 #endif
48 #endif
49
50 #if OPAL_HAVE_WEAK_SYMBOLS
51 #pragma weak MPI_PACK_EXTERNAL_SIZE = ompi_pack_external_size_f
52 #pragma weak mpi_pack_external_size = ompi_pack_external_size_f
53 #pragma weak mpi_pack_external_size_ = ompi_pack_external_size_f
54 #pragma weak mpi_pack_external_size__ = ompi_pack_external_size_f
55
56 #pragma weak MPI_Pack_external_size_f = ompi_pack_external_size_f
57 #pragma weak MPI_Pack_external_size_f08 = ompi_pack_external_size_f
58 #else
59 #if ! OMPI_BUILD_MPI_PROFILING
60 OMPI_GENERATE_F77_BINDINGS (MPI_PACK_EXTERNAL_SIZE,
61 mpi_pack_external_size,
62 mpi_pack_external_size_,
63 mpi_pack_external_size__,
64 ompi_pack_external_size_f,
65 (char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Aint *size, MPI_Fint *ierr, int datarep_len),
66 (datarep, incount, datatype, size, ierr, datarep_len) )
67 #else
68 #define ompi_pack_external_size_f pompi_pack_external_size_f
69 #endif
70 #endif
71
72
73 void ompi_pack_external_size_f(char *datarep, MPI_Fint *incount,
74 MPI_Fint *datatype, MPI_Aint *size,
75 MPI_Fint *ierr, int datarep_len)
76 {
77 int ret, c_ierr;
78 char *c_datarep;
79 MPI_Datatype type = PMPI_Type_f2c(*datatype);
80
81
82
83 if (OMPI_SUCCESS != (ret = ompi_fortran_string_f2c(datarep, datarep_len,
84 &c_datarep))) {
85 c_ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, ret,
86 "MPI_PACK_EXTERNAL");
87 if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
88 return;
89 }
90
91 c_ierr = PMPI_Pack_external_size(c_datarep,
92 OMPI_FINT_2_INT(*incount),
93 type, size);
94 if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
95
96 free(c_datarep);
97 }