program ex0601
implicit none
integer :: I
real :: a(5) = (/ ( I, I = 5, 1, -1) /)
real :: b(5) = (/ (I, I = 1, 5) /)
real :: c(5)
where  ( a > b )
 c = b
else where
 c = a
end where
write (*,100)  'Array C =', ( c(i),  I = 1, 5 )
100 format ( A10,  5F6.2 )
stop
end program ex0601