DIMEN3
!Program name: DIMEN3
real, dimension(10) :: A=(/ 1,2,3,4,5,6,7,8,9,10 /)
Real, dimension(10) :: B
where (A>5)
B=1.
Elsewhere
B=0
end where
write (*,*) A, B
stop
!Program name: DIMEN3
real, dimension(10) :: A=(/ 1,2,3,4,5,6,7,8,9,10 /)
Real, dimension(10) :: B
where (A>5)
B=1.
Elsewhere
B=0
end where
write (*,*) A, B
stop
Comentários
Postar um comentário