      integer*4 function xloc(arg)
      logical*1 arg(*)
      xloc=%loc(arg)
      return
      end
