* Last processed by NICE on 12-Jun-2000 15:51:00
* Customized for :  IEEE, LINUX, UNIX, MOTIF, F77
*
* Include file for access to the main disk file.
*
      CHARACTER LRSCHAR*2, SOURCE*15, TYPE*5
      REAL FLUX(4),                      ! Flux in bands
     $RA,                                ! Right Ascension
     $DEC                                ! Declination
      INTEGER*2 MAJOR,                   ! Uncertainty ellipse major axis (in ")
     $MINOR,                             ! 		      minor axis
     $POSANG,                            !		      position angle (in degree)
     $TSNR(4),                           ! 10 times Signal to noise ratio
     $RADIUS,                            ! Distance from identification (in ")
     $POS,                               ! Position angle of identification (in Deg)
     $FIELD1,                            ! Catalog dependent informations
     $FIELD2,
     $FIELD3
      INTEGER*1  NHCON,                  ! Number of hour confirmations
     $FQUAL(4),                          ! Flux qualities
     $NLRS,                              ! Number of LRS spectra
     $RELUNC(4),                         ! Calibration uncertainty (%-128)
     $VAR,                               ! Variability flag (Hexa)
     $PNEARH,                            ! Number of Hour confirmed nearby sources
     $PNEARW,                            ! Number of Week confirmed nearby sources
     $SES1(4),                           ! Number of Hour confirmed small extended sources
     $SES2(4),                           ! Number of Week confirmed small extended sources
     $CIRR1,                             ! Cirrus flag 1	cf Doc.
     $CIRR2,                             ! Cirrus flag 2	cf Doc.
     $CIRR3,                             ! 100 micron sky surface brightness (MJy/Sr)
     $NID,                               ! Number of identifications
     $IDTYPE,                            ! Type of object
     $CATNO,                             ! Catalog number
     $HSDFLAG,                           ! High Density Beam (Hexa encoded)
     $DISC,                              ! Discrepant flux flag
     $CONFUSE,                           ! Confusion flux flag
     $CC(4)                              ! Point source correlation coefficient
*
      INTEGER*1 START_CODE,FINISH_CODE,IDENT_CODE,VOID(3)
      INTEGER*1 START_SOURCE(38), END_SOURCE(38), IDENTIFICATION(38)
*
      EQUIVALENCE (START_CODE,START_SOURCE)
      EQUIVALENCE (FINISH_CODE,END_SOURCE)
      EQUIVALENCE (IDENT_CODE,IDENTIFICATION)
      COMMON /START/VOID,START_CODE,RA,DEC,FLUX,
     $MAJOR,MINOR,POSANG,NHCON,FQUAL,LRSCHAR
      COMMON /FINISH/FINISH_CODE,NLRS,RELUNC,TSNR,CC,VAR,DISC,CONFUSE,
     $PNEARH,PNEARW,SES1,SES2,HSDFLAG,CIRR1,CIRR2,CIRR3,NID,
     $IDTYPE
      COMMON /IDENT/IDENT_CODE,CATNO,RADIUS,POS,SOURCE,TYPE,FIELD1,
     $FIELD2,FIELD3