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

Use the DT_FLAG_BASIC for Fortran predefined types. Do not force it f the data is

Просмотр исходного кода 
contiguous.

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

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

@ -75,7 +75,7 @@ int ompi_ddt_dfd = -1;
#define INIT_BASIC_FORTRAN_TYPE( TYPE, NAME, SIZE, ALIGN, FLAGS ) \
{ BASEOBJ_DATA, SIZE, ALIGN, 0/*true_lb*/, SIZE/*true_ub*/, \
0/*lb*/, SIZE/*ub*/, \
DT_FLAG_CONTIGUOUS | DT_FLAG_PREDEFINED | DT_FLAG_DATA | DT_FLAG_COMMITED | DT_FLAG_DATA_FORTRAN | (FLAGS), \
DT_FLAG_BASIC | DT_FLAG_DATA_FORTRAN | (FLAGS), \
(TYPE), 1, (((unsigned long long)1)<<(TYPE)), EMPTY_DATA(NAME) }
#else
#define INIT_BASIC_FORTRAN_TYPE( TYPE, NAME, SIZE, ALIGN, FLAGS ) \
@ -340,8 +340,6 @@ int ompi_ddt_local_sizes[DT_MAX_PREDEFINED];
ptype->opt_desc.desc = NULL; \
OBJ_RELEASE( ptype ); \
strncpy( (PDATA)->name, MPIDDTNAME, MPI_MAX_OBJECT_NAME ); \
if( (PDATA)->flags & DT_FLAG_CONTIGUOUS ) \
(PDATA)->flags |= DT_FLAG_BASIC; \
} while(0)
#define DECLARE_MPI2_COMPOSED_BLOCK_DDT( PDATA, MPIDDT, MPIDDTNAME, MPIType, FLAGS ) \
@ -357,8 +355,6 @@ int ompi_ddt_local_sizes[DT_MAX_PREDEFINED];
ptype->opt_desc.desc = NULL; \
OBJ_RELEASE( ptype ); \
strncpy( (PDATA)->name, (MPIDDTNAME), MPI_MAX_OBJECT_NAME ); \
if( (PDATA)->flags & DT_FLAG_CONTIGUOUS ) \
(PDATA)->flags |= DT_FLAG_BASIC; \
} while(0)
#define DECLARE_MPI_SYNONYM_DDT( PDATA, MPIDDTNAME, PORIGDDT) \