*==============================================================================
* Include file which contains common blocks and typings for 2dF catalogue
* reading code
*
* written by S.M. Croom, 3/6/99.  last alteration 30/10/01
*
* 11/10/99: turn into an include file:
* 08/08/00: Add S/N and fibre number      
* 03/06/01: Add sector name
* 25/09/01: updated line length to 350 characters to include all of
*           the comments.
* 30/10/01: update line length to 351 characters after increasing the
*           redshift resolution.
* 02/05/02: Updated to lengthen sector name to 25 characters, also lengthen
*           line by 4 chars.
*
*###############################################################################
*                                                                              #
*          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.                                        #
*                                                                              #
*###############################################################################
*
* catalogue parameters.  Add these typings and the common block to
* any code using the routine:
      character*355 line
      character*145 repline
      integer ier
      character catname*10,dsignchar*1,id1*10,date1*8,id2*10,date2*8
      character iauname*16,comments1*20,comments2*20,dsigncharj*1
      character*25 sector
      integer catno,ra1,ra2,dec1,dec2,ukstfld,nobs,zq1,fobs1,zq2,fobs2
      integer fibre1,fibre2,ra1j,ra2j,dec1j,dec2j
      real ra3,dec3,b,ub,br,z1,z2,zprev,radio,xray,dust,sn1,sn2
      real ra3j,dec3j
      double precision apmx,apmy,rarad,decrad
*
* common block with all catalogue parameters:
      common /catpar/ apmx,apmy,rarad,decrad,ra3j,dec3j,ra3,dec3,b,ub
     &     ,br,z1,z2,zprev,radio,xray,dust,sn1,sn2,catno,ra1j,ra2j,dec1j
     &     ,dec2j,ra1,ra2,dec1,dec2,ukstfld,nobs,zq1,zq2,fobs1,fobs2
     &     ,fibre1,fibre2,comments1,comments2,sector,iauname,catname
     &     ,id1,id2,date1,date2,dsignchar,dsigncharj

*==============================================================================