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

Match size is supposed to return Fortran types.

Просмотр исходного кода 
This commit was SVN r10206.
Этот коммит содержится в:
George Bosilca 2006-06-05 21:07:48 +00:00
родитель e50cdeb927
Коммит 5c2d2fc02a
1 изменённых файлов: 3 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

6
ompi/mpi/c/type_match_size.c
Просмотреть файл

@ -40,13 +40,13 @@ int MPI_Type_match_size(int typeclass, int size, MPI_Datatype *type)
switch( typeclass ) { switch( typeclass ) {
case MPI_TYPECLASS_REAL: case MPI_TYPECLASS_REAL:
*type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_FLOAT, DT_FLAG_DATA_C ); *type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_FLOAT, DT_FLAG_DATA_FORTRAN );
break; break;
case MPI_TYPECLASS_INTEGER: case MPI_TYPECLASS_INTEGER:
*type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_INT, DT_FLAG_DATA_C ); *type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_INT, DT_FLAG_DATA_FORTRAN );
break; break;
case MPI_TYPECLASS_COMPLEX: case MPI_TYPECLASS_COMPLEX:
*type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_COMPLEX, DT_FLAG_DATA_C ); *type = (MPI_Datatype)ompi_ddt_match_size( size, DT_FLAG_DATA_COMPLEX, DT_FLAG_DATA_FORTRAN );
break; break;
default: default:
*type = &ompi_mpi_datatype_null; *type = &ompi_mpi_datatype_null;