3 SUBROUTINE A7_2(A
,B
,N
,I1
,I2
)
6 !$OMP PARALLEL SHARED(A,B,I1,I2)
10 IF (A(I1
).NE
.0.0) EXIT
14 IF (B(I2
).NE
.0.0) EXIT
18 IF (I1
.LE
.N
) PRINT *, "ITEMS IN A UP TO ", I1
, " ARE ALL ZERO."
19 IF (I2
.LE
.N
) PRINT *, "ITEMS IN B UP TO ", I2
, " ARE ALL ZERO."