Array Masking

Beispiel:

REAL, DIMENSION(10,10) :: y, z
WHERE (y /= 0)
  z = z/y
ELSEWHERE
  z = HUGE(1.0)               ! intrinsic: largest REAL          
END WHERE

Peter Junglas 2.6.1997