c     Given ra and dec in radians (B1950), it returns the completeness, the 
c     magnitude limit and the APM plate number of that particular area.
c     N.B.:
c      - when compl = -1., the given position is outside the main 2dF boundary
c      - when compl = -2., the given position is inside a drill hole 
c      

      program release
*************************************variables********************************
      implicit none

      integer iplate
      real ra,dec,compl,maglim
******************************************************************************

      call getreal(1,ra)
      call getreal(2,dec)

      call in_2df_mask(ra,dec,compl,maglim)
      call fnumber(ra,dec,iplate)

      write(0,*) 'Position: ra = ',ra,' ; dec = ',dec
      write(0,*) 'Compl:',compl,' maglim:',maglim,' plate:',iplate

      end

c-----------------------------------------------------------------------------
c     Reads an input as a real

      subroutine getreal(i,r)
*************************************variables********************************
      implicit none
      integer i
      real r
      character a*100
******************************************************************************

      call getarg(i,a)
      read(a,*) r

      return
      end
c----------------------------------------------------------------------------