*==============================================================================
* subroutine to test whether an object is within the limits of the 2QZ
* survey area
*
* Written By Scott Croom (06/06/03)
*
*###############################################################################
*                                                                              #
*          LICENCE                                                             #
*                                                                              #
*          This program is free software; you can redistribute it and/or       #
*          modify it under the terms of the GNU General Public License         #
*          as published by the Free Software Foundation; either version 2      #
*          of the License, or (at your option) any later version.              #
*                                                                              #
*          This program is distributed in the hope that it will be useful,     #
*          but WITHOUT ANY WARRANTY; without even the implied warranty of      #
*          MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       #
*          GNU General Public License for more details.                        #
*                                                                              #
*          You should have received a copy of the GNU General Public License   #
*          along with this program; if not, write to the Free Software         #
*          Foundation, Inc., 59 Temple Place - Suite 330,                      #
*          Boston, MA  02111-1307, USA.                                        #
*                                                                              #
*###############################################################################
*
      subroutine test_lims(xx,yy,infld)
      implicit none
      logical infld
      integer i,nflds
      double precision xx,yy,ramin(15),ramax(15),decmin(15),decmax(15)

      common /fldlims/ ramin,ramax,decmin,decmax,nflds

      infld=.false.
      do i=1,nflds
         if (xx.ge.ramin(i).and.xx.le.ramax(i).and.yy.ge.decmin(i).and
     &        .yy.le.decmax(i)) then
            infld=.true.
            return
         end if
      end do
      return
      end
         
*==============================================================================