      subroutine locate(i,j)
      integer*4 i,j
      return
      end
