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

correct several of the new macros.

Просмотр исходного кода 
This commit was SVN r17904.
Этот коммит содержится в:
Rich Graham 2008-03-21 03:45:43 +00:00
родитель a7c836a2b0
Коммит 0974160e29
1 изменённых файлов: 2 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -702,7 +702,7 @@ LOC_FUNC(minloc, long_double_int, <)
type *a1 = (type *) in1; \
type *a2 = (type *) in2; \
type *b = (type *) out; \
for (i = 0; i < *count; ++i, ++b, ++a) { \
for (i = 0; i < *count; ++i, ++b, ++a1, ++a2) { \
b->real = a1->real + a2->real; \
b->imag = a1->imag + a2->imag; \
} \
@ -717,11 +717,9 @@ LOC_FUNC(minloc, long_double_int, <)
type *a1 = (type *) in1; \
type *a2 = (type *) in2; \
type *b = (type *) out; \
type *a1 = (type *) in1; \
for (i = 0; i < *count; ++i, ++b, ++a) { \
for (i = 0; i < *count; ++i, ++b, ++a1, ++a2) { \
*b->real = a1->real * a2->real - a1->imag * a2->imag; \
*b->imag = a1->imag * a2->real + a1->real * a2->imag; \
*b = temp; \
} \
}