ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Update the definition of the Fortran MPI_DATATYPE_NULL.

Просмотр исходного кода 
This commit was SVN r2752.
Этот коммит содержится в:
George Bosilca 2004-09-19 03:50:30 +00:00
родитель c85f931ae5
Коммит 3482ab96d6
2 изменённых файлов: 27 добавлений и 24 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

2
include/mpif.h.in
Просмотреть файл

@ -128,7 +128,7 @@
parameter (MPI_GROUP_NULL=0) parameter (MPI_GROUP_NULL=0)
parameter (MPI_COMM_NULL=2) parameter (MPI_COMM_NULL=2)
parameter (MPI_DATATYPE_NULL=-1) parameter (MPI_DATATYPE_NULL=0)
parameter (MPI_REQUEST_NULL=-1) parameter (MPI_REQUEST_NULL=-1)
parameter (MPI_OP_NULL=-1) parameter (MPI_OP_NULL=-1)
parameter (MPI_ERRHANDLER_NULL=-1) parameter (MPI_ERRHANDLER_NULL=-1)

49
src/datatype/dt_module.c
Просмотреть файл

@ -268,30 +268,33 @@ int ompi_ddt_init( void )
for( i = 0; i < DT_MAX_PREDEFINED; i++ ) for( i = 0; i < DT_MAX_PREDEFINED; i++ )
local_sizes[i] = basicDatatypes[i].size; local_sizes[i] = basicDatatypes[i].size;
/* The order of the data registration should be the same as the one
* in the mpif.h file. Any modification here should be reflected there !!!
*/
/* Start to populate the f2c index translation table */ /* Start to populate the f2c index translation table */
ompi_pointer_array_add( ompi_datatype_f_to_c_table, NULL ); /* why not ? */ ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_datatype_null );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_byte ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_byte );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_packed ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_packed );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_ub ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_ub );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_lb ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_lb );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_character ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_character );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_logic ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_logic );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_integer ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_integer );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_char ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_char );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_short ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_short );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_int ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_int );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_long_long ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_long_long );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_real ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_real );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_real ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_real );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_real ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_real );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_double ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_double );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_long_double ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_long_double );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_dblprec ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_dblprec );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_cplex ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_cplex );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_dblcplex ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_dblcplex );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_2real ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_2real );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_2dblcplex ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_2dblcplex );
ompi_pointer_array_add(ompi_datatype_f_to_c_table, ompi_mpi_2integer ); ompi_pointer_array_add( ompi_datatype_f_to_c_table, ompi_mpi_2integer );
return OMPI_SUCCESS; return OMPI_SUCCESS;
} }