DIMENSION A(100), B(100), C(100), D(100)
EQUIVALENCE (A(100), B(100), C(100), D(100))
S=10
N=5
M=5
DO 1 I=1,N
A(I)=I
1 CONTINUE
DO 2 I=1,M
B(I)=I
2 CONTINUE
H=1.0
G=1.0
CSBEG
DO 3 I=1,N
H=H*A(I)
3 CONTINUE
DO 6 I=1,M
G=G*B(I)
6 CONTINUE
H=H*G
CSEND
! тут должна быть подготовка к параллельному вычислению, а может и готовить нечего?
CPBEG
! вот тут должен быть блок параллельного вычисления
CPEND
IFLAG=0
DO 4 I=1,N
IF (C(I).NE.D(I)) IFLAG=1
4 CONTINUE
5 FORMAT(' H=',F10.2,' G=',F10.2,' S=',I2,' IFLAG=',I1)
WRITE(6,5) H,G,S,IFLAG
STOP
END
|
