forall and do loop



REAL :: DS(100),UTA(100),STA(100),ONE
ONE = 1.0000

! First case
DO I=1,NE
UTA(I)=DS(I)
STA(I)=ONE
END DO

! second case
FORALL(I=1:NE) UTA(I)=DS(I)
STA=ONE


In this two follwoing code which will be more efficient? Efficent in
execution time and in parallel processing?


regards

.