subroutine barf
      call xerbla ('barf  ', -7);
      return
      end