Консультация № 184763
12.12.2011, 23:52
88.11 руб.
0 1 0
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Помогите с программой на Фортране под Юникс.
Задача распараллелить выражение W=(Q+R)**NN-данное выражение является рекуррентным..Программа должна правильно работать с любой степенью выражения. При написании программы нужно использовать метод каскадных сумм.

Результат выполнения программы
IFLAG=0
Время выполнения последовательного участка: 3.00
Время выполнения параллельного участка: 42.00
Коэффициент ускорения: 0.12

Приложение:
То что получилось, но она работает не правильно не могу понять как сделать правильно.
Текст программы позиции 1234567
DIMENSION A(8),B(7),C(6),D(4)
EQUIVALENCE (D(1),C(3),B(4),A(5))
S=2
N=8
NN=6
Q=2
R=3
DO 1 I=1,N
A(I)=2+3
1 CONTINUE
CSBEG
W=(Q+R)**NN
CSEND
CPBEG
#CALL EMULVV(A,A,B,7)
#CALL EMULVV(A,A,C,6)
#CALL EMULVV(A,A,D,4)
CPEND
IFLAG=0
DO 3 I=1,N
IF (W.NE.A) IFLAG=1
3 CONTINUE
4 FORMAT(' IFLAG=',I1)
WRITE (6,4) IFLAG
STOP
END

Обсуждение

давно
Посетитель
276566
297
15.12.2011, 22:21
общий
Здравствуйте! Можете закрыть данный вопрос.
Форма ответа