function l=logical(a)
  l = (a != 0);