
  LOGICAL, DIMENSION (16) :: mask
  INTEGER, DIMENSION (16) :: a, b, c

  mask = .TRUE.
  a    = 1
  b    = 1
  WHERE (mask)
    c = a (b)
  ENDWHERE
END

