- * calls the c routine f2ctype with each of the C types and the name of
- * the type. That c routine using MPI_Type_f2c to convert the
+ * calls the c routine f2ctype with each of the C types and the name of
+ * the type. That c routine using MPI_Type_f2c to convert the
* Fortran handle to a C handle, and then compares it to the corresponding
* C type, which is found by looking up the C handle by name
*
* Fortran handle to a C handle, and then compares it to the corresponding
* C type, which is found by looking up the C handle by name
*
{ MPI_SHORT_INT, "MPI_SHORT_INT" },
{ MPI_2INT, "MPI_2INT" },
{ MPI_LONG_DOUBLE, "MPI_LONG_DOUBLE" },
{ MPI_SHORT_INT, "MPI_SHORT_INT" },
{ MPI_2INT, "MPI_2INT" },
{ MPI_LONG_DOUBLE, "MPI_LONG_DOUBLE" },
Name mapping. All routines are created with names that are lower case
with a single trailing underscore. This matches many compilers.
We use #define to change the name for Fortran compilers that do
Name mapping. All routines are created with names that are lower case
with a single trailing underscore. This matches many compilers.
We use #define to change the name for Fortran compilers that do
defined(F77_NAME_MIXED_USCORE)
/* Else leave name alone (routines have no underscore, so both
of these map to a lowercase, single underscore) */
defined(F77_NAME_MIXED_USCORE)
/* Else leave name alone (routines have no underscore, so both
of these map to a lowercase, single underscore) */
- /* An implementation is not *required* to deliver the
- corresponding C version of the MPI Datatype bit-for-bit. But
+ /* An implementation is not *required* to deliver the
+ corresponding C version of the MPI Datatype bit-for-bit. But
if *must* act like it - e.g., the datatype name must be the same */
MPI_Type_get_name( ctype, mytypename, &mytypenamelen );
if (strcmp( mytypename, mpi_names[*typeidx].name ) != 0) {
if *must* act like it - e.g., the datatype name must be the same */
MPI_Type_get_name( ctype, mytypename, &mytypenamelen );
if (strcmp( mytypename, mpi_names[*typeidx].name ) != 0) {
mpi_names[*typeidx].name, mytypename, *fhandle, MPI_Type_c2f( ctype ) );
}
}
mpi_names[*typeidx].name, mytypename, *fhandle, MPI_Type_c2f( ctype ) );
}
}