CDS.headStuff2 FORTRAN Generation
()

Conversion of standardized ReadMe file for catalog into FORTRAN code for reading data files line by line.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Mar-28
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=--2147483648.)  	! NULL real number
      parameter  (iNULL__=(-2147483647-1))	! NULL int  number
      integer    idig			! testing NULL number

C=============================================================================
Cat. IX/10A              ROSAT All-Sky Bright Source Catalogue (1RXS) (Voges+ 1999)
*================================================================================
*The ROSAT all-sky survey bright source catalogue.
*    Voges W., Aschenbach B., Boller T., Braeuninger H., Briel U., Burkert W.,
*    Dennerl K., Englhauser J., Gruber R., Haberl F., Hartner G., Hasinger G.,
*    Kuerster M., Pfeffermann E., Pietsch W., Predehl P., Rosso C.,
*    Schmitt J.H.M.M., Truemper J., Zimmermann H.U.
*   <Astron. Astrophys. 349, 389 (1999)>
*   =1999A&A...349..389V
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for '1rxs.dat'	! The 1RXS catalogue

      integer*4 nr__
      parameter (nr__=18806)	! Number of records
      character*185 ar__   	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS       ! ROSAT All-Sky Survey Catalogue source name (1)
      character*1   n_1RXS      ! [*] Names modified from previous version
      real*8        RAdeg       ! (deg) Right ascension (J2000), decimal degrees
      real*8        DEdeg       ! (deg) Declination (J2000), decimal degrees
      integer*4     PosErr      ! (arcsec) ?=0 Total positional error
*                                   (including 6" systematic error)
      character*5   ScrFlags    ! [T_] screening flags (2)
      character*4   NewFlag     ! [T._] 'new data' flags (3)
      real*4        Count       ! (ct/s) ?=0 Source countrate (4)
      real*4        e_Count     ! (ct/s) ?=0 Error on Count (4)
      real*4        bgCt        ! (ct/s/arcmin2) ?=0 Background countrate (4)
      integer*4     ExpTime     ! (s) ?=0 Exposure time
      real*4        HR1         ! [-1/1]? Hardness ratio 1 (5)
      real*4        e_HR1       ! ? Error on HR1 (6)
      real*4        HR2         ! [-1/1]? hardness ratio 2 (5)
      real*4        e_HR2       ! ? Error on HR2 (6)
      integer*4     Extent      ! (arcsec) Source extent, by which the source image
*                                    exceeds the point spread function.
      integer*4     L_Extent    ! ?=0 Likelihood of source extent (7)
      integer*4     Ldetect     ! ?=0 Likelihood of
*                                        source detection algorithm (7)
      integer*4     ExtRad      ! (arcsec) ?=0 Extraction radius
      character*6   PrioFlags   ! [01] priority  flags (8)
      character*1   PHA         ! [ABCDb] PHA range of best detection (9)
      real*4        VigFactor   ! ?=0 Vignetting factor
      integer*4     IncDate     ! ("YYMMDD") ?=0 Date when source was included (10)
      integer*4     UpdDate     ! ("YYMMDD") ?=0 Date when source properties changed (11)
      integer*4     Ncand       ! Number of identification candidates in the
*                                   correlation catalogue
      integer*4     SASS        ! Identification number of SASS field (12)
      integer*4     MASOL       ! SASS source number (MASOL number)
*                                  in SASS field (mainly for internal use)
*Note (1): The name includes the '1RXS' acronym, and is based
*     on J2000 position (format JHHMMSS.S+DDMMSS).
*     This name is used in the generation of a link to a broad band
*     image if this image is available (see NewFlag, and Note (3))
*     See the changes in sources compared to the 1996 version in the
*     "History" section below
*Note (2): the flags are 'T' for 'true', 'F' or '_' for 'false'; '.' for not used
*     n (byte 48) nearby sources affecting SASS flux determination
*     p (byte 49) possible problem with position determination
*     e (byte 50) source extended beyond SASS extraction radius
*     d (byte 51) complex diffuse emission pattern
*     m (byte 52) source missed by SASS
*Note (3): the flags are 'T' for 'true', 'F' or '_' for 'false'; '.' for not used
*     r (byte 54) source counts and extraction radius recalculated
*     i (byte 55) broad band image available (html link!)
*     v (byte 56) variability flag (not yet filled)
*     . (byte 57) dummy flag
*Note (4): Countrates are vignetting corrected
*Note (5): The hardness ratios are defined by:
*     hr1 = ( B - A ) / ( B + A )  , where
*             A = countrate in PHA range  11 -  41 (~ 0.1-0.4 keV)
*             B = countrate in PHA range  52 - 201 (~ 0.5-2.0 keV)
*     hr2 = ( D - C ) / ( D + C )  , where
*             C = countrate in PHA range  52 -  90 (~ 0.5-0.9 keV)
*             D = countrate in PHA range  91 - 201 (~ 0.9-2.0 keV)
*     (PHA = Pulse Height Amplitude)
*Note (6): the true mean error is probably bigger, and
*     values larger than 9.99 are set to 9.99
*Note (7): values larger than 9999 are set to 9999
*Note (8): the flags indicate the sliding window detection history
*     using either the background map (M) or the local background (B),
*     and take the values 0 = no detection, 1 = detection;
*     The order of flags is:
*     M-broad, L-broad, M-hard, L-hard, M-soft, L-soft
*Note (9): the PHA (Pulse Height Amplitude) range
*     PHA range with highest detection likelihood is indicated by
*         A =  PHA range 11-41  (~ 0.1-0.4 keV)
*         B =  PHA range 52-201 (~ 0.5-2.0 keV)
*         C =  PHA range 52-90  (~ 0.5-0.9 keV)
*         D =  PHA range 91-201 (~ 0.9-2.0 keV)
*         b or blank means 'broad'
*Note (10): a value "000000" for the date indicates a removed source
*Note (11): a value "000000" indicates not-applicable date
*Note (12): An overview of the field structure is available at URL
*     http://www.xray.mpe.mpg.de/rosat/survey/rass-bsc/sup/psplit.ps.gz

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for '1rxs_cor.dat'	! 1RXS Correlation entries

      integer*4 nr__1
      parameter (nr__1=18806)	! Number of records
      character*225 ar__1  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_1     ! 1RXS name
      real*8        RAdeg_1     ! (deg) Right ascension (J2000)
      real*8        DEdeg_1     ! (deg) Declination (J2000)
      integer*4     PosErr_1    ! (arcsec) Total positional error
      integer*4     Nid         ! Number of correlated sources
      character*1   bandPos     ! [x] origin of the source position
*                                          (always x: X-ray)
      real*4        gal_Nh      ! (10+21cm-2) Galactic HI column density
*                                       (in 10^21^atoms/cm^2^)
      real*8        GLON        ! (deg) Galactic longitude
      real*8        GLAT        ! (deg) Galactic latitude
      real*4        HR1_1       ! Hardness ratio 1
      real*4        e_HR1_1     ! rms uncertainty on HR1
      real*4        HR2_1       ! Hardness ratio 2
      real*4        e_HR2_1     ! rms uncertainty on HR2
      integer*4     Extent_1    ! Source extent
      integer*4     L_Extent_1  ! Likelihood of source extent
      integer*4     Ldetect_1   ! Likelihood of source detection algorithm
      integer*4     ExpTime_1   ! (s) Exposure time
      real*4        Count_1     ! (ct/s) Source count rate
      real*4        e_Count_1   ! (ct/s) rms uncertainty on Count
      real*4        Flux1       ! (mW/m2) X-ray flux 1 in 0.1-2.4keV energy range
      real*4        Flux2       ! (mW/m2) X-ray flux 2 in 0.1-2.4keV energy range
      integer*4     begDate     ! ("YYMMDD") First date of observation
      real*4        begDate_f   ! (d) First date of observation (day fraction)
      integer*4     endDate     ! ("YYMMDD") Last date of observation
      real*4        endDate_f   ! (d) Last date of observation (day fraction)
      integer*4     IncDate_1   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_1   ! ("YYMMDD") ?=0 Date when source properties changed

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_iras.dat'	! 1RXS Correlation to IRASPSC, IRASFSC

      integer*4 nr__2
      parameter (nr__2=7972)	! Number of records
      character*178 ar__2  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_2     ! 1RXS source name
      integer*4     Rank        ! Rank in correlation list for the source
      character*21  sourceID    ! Source identification (1)
      real*8        RAdeg_2     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_2     ! (deg) Declination (J2000)
      integer*4     Sep         ! (arcsec) Separation
      integer*4     PA          ! (deg) [0/360] Position angle
      character*10  r_sourceID  ! Source catalogue (see file "refs.dat")
      character*1   bandPos_1   ! [i] Origin of the source position (i: IR)
      character*10  Type        ! Type or class of object
      real*4        F12um       ! (Jy) Infrared flux in the 12{mu}m band
      real*4        F25um       ! (Jy) Infrared flux in the 25{mu}m band
      real*4        F60um       ! (Jy) Infrared flux in the 60{mu}m band
      real*4        F100um      ! (Jy) Infrared flux in the 100{mu}m band
      character*25  Com         ! Comments
      integer*4     IncDate_2   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_2   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): the IRASPSC numbers do not correspond to the usual IRAS designations.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_ned.dat'	! 1RXS Correlation to NED

      integer*4 nr__3
      parameter (nr__3=38670)	! Number of records
      character*196 ar__3  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_3     ! 1RXS source name
      integer*4     Rank_1      ! Rank in correlation list for the source
      character*21  sourceID_1  ! Source identification
      real*8        RAdeg_3     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_3     ! (deg) Declination (J2000)
      integer*4     Sep_1       ! (arcsec) Separation
      integer*4     PA_1        ! (deg) [0/360] Position angle
      character*10  r_sourceID_1 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_2   ! [giorx] Origin of the source position (1)
      character*10  Type_1      ! Type or class of object
      real*4        fxfopt      ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag      ! Limit flag on vmag
      real*4        vmag        ! (mag) ? Visual magnitude
      character*1   n_vmag      ! [:/+] : => Uncertainty flag on vmag
*                                         / => interval of magnitude
*                                         + => 18+ ???
      integer*4     vmag2       ! ? Second value of vmag when interval
      character*1   u_vmag2     ! [?] Uncertainty flag on vmag2
      real*4        z           ! ? Redshift
      character*1   l_NED_flux  ! Limit flag on NED-flux
      real*8        NED_flux    ! (mJy) ? Radio flux density or IR flux density
*                                      in the band given in fl-band
      real*4        fl_band     ! (mum) ? Frequency band  or wavelength band
*                                     used for flux given in NED-flux
*                                     (Radio [GHz], IR [mJy] for NED)
      character*1   l_Size      ! Limit flag on Size
      real*8        Size        ! (arcmin) ? Size of object
      character*1   u_Size      ! Uncertainty flag on Size
      character*25  Com_1       ! Comments
      integer*4     IncDate_3   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_3   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_nvs.dat'	! 1RXS Correlation to NVSS, FIRST

      integer*4 nr__4
      parameter (nr__4=31674)	! Number of records
      character*139 ar__4  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_4     ! 1RXS source name
      integer*4     Rank_2      ! Rank in correlation list for the source
      character*21  sourceID_2  ! Source identification
      real*8        RAdeg_4     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_4     ! (deg) Declination (J2000)
      integer*4     Sep_2       ! (arcsec) Separation
      integer*4     PA_2        ! (deg) [0/360] Position angle
      character*10  r_sourceID_2 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_3   ! [orx] Origin of the source position (1)
      character*10  Type_2      ! Type or class of object
      real*8        dist        ! (kpc) ? Distance
      real*8        F20cm_I     ! (mJy) ? Radio integrated flux density in the
*                                       20cm band
      real*8        F20cm_P     ! (mJy) ? Radio peak flux density in the 20cm band
      integer*4     IncDate_4   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_4   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_pri.dat'	! 1RXS Correlation to PRI, RITTER, SIMBAD, TYCHO,
                                     EUVE

      integer*4 nr__5
      parameter (nr__5=54935)	! Number of records
      character*214 ar__5  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_5     ! 1RXS source name
      integer*4     Rank_3      ! Rank in correlation list for the source
      character*21  sourceID_3  ! Source identification (see also r_sourceID)
      real*8        RAdeg_5     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_5     ! (deg) Declination (J2000)
      integer*4     Sep_3       ! (arcsec) Separation
      integer*4     PA_3        ! (deg) [0/360] Position angle
      character*10  r_sourceID_3 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_4   ! [oexr] Origin of the source position (1)
      character*10  Type_3      ! Type or class of object
      real*4        fxfopt_1    ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_1    ! Limit flag on vmag
      real*4        vmag_1      ! (mag) ? Visual magnitude
      real*4        bmag        ! (mag) ? Blue magnitude
      real*4        rmag        ! (mag) ? Red magnitude
      real*4        b_r         ! (mag) ? (blue-red) colour
      real*4        b_v         ! (mag) ? (blue-visual) colour
      real*4        u_b         ! (mag) ? (ultraviolet-blue) colour
      character*2   var         ! Variability flag
      character*1   n_z         ! [*>] Note on z
      real*4        z_1         ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr          ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_1      ! (kpc) ? Distance
      character*25  Com_2       ! Comments
      integer*4     IncDate_5   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_5   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_hst.dat'	! 1RXS Correlation to HST_GSC

      integer*4 nr__6
      parameter (nr__6=26210)	! Number of records
      character*214 ar__6  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_6     ! 1RXS source name
      integer*4     Rank_4      ! Rank in correlation list for the source
      character*21  sourceID_4  ! Source identification (see also r_sourceID)
      real*8        RAdeg_6     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_6     ! (deg) Declination (J2000)
      integer*4     Sep_4       ! (arcsec) Separation
      integer*4     PA_4        ! (deg) [0/360] Position angle
      character*10  r_sourceID_4 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_5   ! [oexr] Origin of the source position (1)
      character*10  Type_4      ! Type or class of object
      real*4        fxfopt_2    ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_2    ! Limit flag on vmag
      real*4        vmag_2      ! (mag) ? Visual magnitude
      real*4        bmag_1      ! (mag) ? Blue magnitude
      real*4        rmag_1      ! (mag) ? Red magnitude
      real*4        b_r_1       ! (mag) ? (blue-red) colour
      real*4        b_v_1       ! (mag) ? (blue-visual) colour
      real*4        u_b_1       ! (mag) ? (ultraviolet-blue) colour
      character*2   var_1       ! Variability flag
      character*1   n_z_1       ! [*>] Note on z
      real*4        z_2         ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr_1        ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_2      ! (kpc) ? Distance
      character*25  Com_3       ! Comments
      integer*4     IncDate_6   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_6   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_wfc.dat'	! 1RXS Correlation to ROSAT-WFC

      integer*4 nr__7
      parameter (nr__7=605)	! Number of records
      character*214 ar__7  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_7     ! 1RXS source name
      integer*4     Rank_5      ! Rank in correlation list for the source
      character*21  sourceID_5  ! Source identification (see also r_sourceID)
      real*8        RAdeg_7     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_7     ! (deg) Declination (J2000)
      integer*4     Sep_5       ! (arcsec) Separation
      integer*4     PA_5        ! (deg) [0/360] Position angle
      character*10  r_sourceID_5 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_6   ! [oexr] Origin of the source position (1)
      character*10  Type_5      ! Type or class of object
      real*4        fxfopt_3    ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_3    ! Limit flag on vmag
      real*4        vmag_3      ! (mag) ? Visual magnitude
      real*4        bmag_2      ! (mag) ? Blue magnitude
      real*4        rmag_2      ! (mag) ? Red magnitude
      real*4        b_r_2       ! (mag) ? (blue-red) colour
      real*4        b_v_2       ! (mag) ? (blue-visual) colour
      real*4        u_b_2       ! (mag) ? (ultraviolet-blue) colour
      character*2   var_2       ! Variability flag
      character*1   n_z_2       ! [*>] Note on z
      real*4        z_3         ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr_2        ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_3      ! (kpc) ? Distance
      character*25  Com_4       ! Comments
      integer*4     IncDate_7   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_7   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_ros.dat'	! 1RXS Correlation to ROSATP3, ROSATWGA, ROSATHRI

      integer*4 nr__8
      parameter (nr__8=24355)	! Number of records
      character*204 ar__8  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_8     ! 1RXS source name
      integer*4     Rank_6      ! Rank in correlation list for the source
      character*21  sourceID_6  ! Source identification
      real*8        RAdeg_8     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_8     ! (deg) Declination (J2000)
      integer*4     Sep_6       ! (arcsec) Separation
      integer*4     PA_6        ! (deg) [0/360] Position angle
      character*10  r_sourceID_6 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_7   ! [ex] Origin of the source position (1)
      character*10  Type_6      ! Type or class of object
      real*4        HR1_2       ! ? Hardness ratio 1
      real*4        e_HR1_2     ! ? rms uncertainty on HR1
      real*4        HR2_2       ! ? Hardness ratio 2
      real*4        e_HR2_2     ! ? rms uncertainty on HR2
      integer*4     Extent_2    ! ? Source extent
      integer*4     L_Extent_2  ! ? Likelihood of source extent
      integer*4     Ldetect_2   ! ? Likelihood of source detection algorithm
      integer*4     ExpTime_2   ! (s) Exposure time
      real*4        Count_2     ! Source countrate
      real*4        e_Count_2   ! rms uncertainty on Count
      real*4        roff        ! (arcmin) Off-axis angle
      character*25  Com_5       ! Comments
      integer*4     IncDate_8   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_8   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cor_ver.dat'	! 1RXS Correlation Catalogue to VERON8 (VII/207)

      integer*4 nr__9
      parameter (nr__9=1935)	! Number of records
      character*198 ar__9  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*16  v1RXS_9     ! 1RXS source name
      integer*4     Rank_7      ! Rank in correlation list for the source
      character*21  sourceID_7  ! Source identification
      real*8        RAdeg_9     ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_9     ! (deg) Declination (J2000)
      integer*4     Sep_7       ! (arcsec) Separation
      integer*4     PA_7        ! (deg) [0/360] Position angle
      character*10  r_sourceID_7 ! Source catalogue (see file "refs.dat")
      character*1   bandPos_8   ! [oAOR] Origin of the source position (1)
      character*10  Type_7      ! Type or class of object
      real*4        fxfopt_4    ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_4    ! Limit flag on vmag
      real*4        vmag_4      ! (mag) ? Visual magnitude
      real*4        rmag_3      ! (mag) ? Red magnitude
      real*4        b_v_3       ! (mag) ? (blue-visual) colour
      real*4        u_b_3       ! (mag) ? (ultraviolet-blue) colour
      character*1   n_z_3       ! [*>]Note on z
      real*4        z_4         ! ? Redshift
      real*8        R_f6cm      ! (mJy) ? R-f6cm in the 6cm band
      real*8        R_f11cm     ! (mJy) ? R-f11cm in the 11cm band
      character*25  Com_6       ! Comments
      integer*4     IncDate_9   ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_9   ! ("YYMMDD") ?=0 Date when source properties were changed
*Note (1): o: optical; x: X-ray; r: Radio; e: EUV; i: IR

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'refs.dat'	! References

      integer*4 nr__10
      parameter (nr__10=79)	! Number of records
      character*137 ar__10 	! Full-size record

      character*10  catal_id    ! Name of source catalogue
      character*25  Aut         ! Author names
      character*19  BibCode     ! BibCode
      character*80  Com_7       ! Comments

C=============================================================================

C  Loading file '1rxs.dat'	! The 1RXS catalogue

C  Format for file interpretation

    1 format(
     +  5X,A16,A1,1X,F9.5,1X,F9.5,2X,I2,1X,A5,1X,A4,2X,E9.3,1X,E9.3,
     +  1X,E9.3,2X,I5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,3X,I3,1X,I4,1X,
     +  I4,1X,I5,1X,A6,A1,1X,F4.2,1X,I6,1X,I6,1X,I3,2X,I8,1X,I4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'1rxs.dat')
      write(6,*) '....Loading file: 1rxs.dat'
      do i__=1,18806
        read(1,'(A185)')ar__
        read(ar__,1)
     +  v1RXS,n_1RXS,RAdeg,DEdeg,PosErr,ScrFlags,NewFlag,Count,
     +  e_Count,bgCt,ExpTime,HR1,e_HR1,HR2,e_HR2,Extent,L_Extent,
     +  Ldetect,ExtRad,PrioFlags,PHA,VigFactor,IncDate,UpdDate,Ncand,
     +  SASS,MASOL
        if(ar__(97:101) .EQ. '') HR1 = rNULL__
        if(ar__(103:106) .EQ. '') e_HR1 = rNULL__
        if(ar__(108:112) .EQ. '') HR2 = rNULL__
        if(ar__(114:117) .EQ. '') e_HR2 = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  v1RXS,n_1RXS,RAdeg,DEdeg,PosErr,ScrFlags,NewFlag,Count,
     +  e_Count,bgCt,ExpTime,HR1,e_HR1,HR2,e_HR2,Extent,L_Extent,
     +  Ldetect,ExtRad,PrioFlags,PHA,VigFactor,IncDate,UpdDate,Ncand,
     +  SASS,MASOL
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file '1rxs_cor.dat'	! 1RXS Correlation entries

C  Format for file interpretation

    2 format(
     +  5X,A16,1X,F8.4,1X,F8.4,3X,I2,1X,I3,12X,A1,13X,F6.3,1X,F8.4,1X,
     +  F8.4,6X,F5.2,2X,F4.2,1X,F5.2,2X,F4.2,1X,I3,1X,I3,1X,I3,1X,I5,
     +  1X,E8.2,1X,E8.2,2X,E9.3,1X,E9.3,6X,I6,F3.2,1X,I6,F3.2,2X,I6,
     +  1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'1rxs_cor.dat')
      write(6,*) '....Loading file: 1rxs_cor.dat'
      do i__=1,18806
        read(1,'(A225)')ar__1
        read(ar__1,2)
     +  v1RXS_1,RAdeg_1,DEdeg_1,PosErr_1,Nid,bandPos,gal_Nh,GLON,GLAT,
     +  HR1_1,e_HR1_1,HR2_1,e_HR2_1,Extent_1,L_Extent_1,Ldetect_1,
     +  ExpTime_1,Count_1,e_Count_1,Flux1,Flux2,begDate,begDate_f,
     +  endDate,endDate_f,IncDate_1,UpdDate_1
c    ..............Just test output...........
        write(6,2)
     +  v1RXS_1,RAdeg_1,DEdeg_1,PosErr_1,Nid,bandPos,gal_Nh,GLON,GLAT,
     +  HR1_1,e_HR1_1,HR2_1,e_HR2_1,Extent_1,L_Extent_1,Ldetect_1,
     +  ExpTime_1,Count_1,e_Count_1,Flux1,Flux2,begDate,begDate_f,
     +  endDate,endDate_f,IncDate_1,UpdDate_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_iras.dat'	! 1RXS Correlation to IRASPSC, IRASFSC

C  Format for file interpretation

    3 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_iras.dat')
      write(6,*) '....Loading file: cor_iras.dat'
      do i__=1,7972
        read(1,'(A178)')ar__2
        read(ar__2,3)
     +  v1RXS_2,Rank,sourceID,RAdeg_2,DEdeg_2,Sep,PA,r_sourceID,
     +  bandPos_1,Type,F12um,F25um,F60um,F100um,Com,IncDate_2,
     +  UpdDate_2
c    ..............Just test output...........
        write(6,3)
     +  v1RXS_2,Rank,sourceID,RAdeg_2,DEdeg_2,Sep,PA,r_sourceID,
     +  bandPos_1,Type,F12um,F25um,F60um,F100um,Com,IncDate_2,
     +  UpdDate_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_ned.dat'	! 1RXS Correlation to NED

C  Format for file interpretation

    4 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,2X,F5.2,1X,A1,F6.3,A1,I2,A1,1X,F6.4,1X,A1,F9.2,1X,E9.3,
     +  1X,A1,F7.3,A1,1X,A25,2X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_ned.dat')
      write(6,*) '....Loading file: cor_ned.dat'
      do i__=1,38670
        read(1,'(A196)')ar__3
        read(ar__3,4)
     +  v1RXS_3,Rank_1,sourceID_1,RAdeg_3,DEdeg_3,Sep_1,PA_1,
     +  r_sourceID_1,bandPos_2,Type_1,fxfopt,l_vmag,vmag,n_vmag,vmag2,
     +  u_vmag2,z,l_NED_flux,NED_flux,fl_band,l_Size,Size,u_Size,
     +  Com_1,IncDate_3,UpdDate_3
        if(ar__3(101:105) .EQ. '') fxfopt = rNULL__
        if(ar__3(108:113) .EQ. '') vmag = rNULL__
        if(ar__3(115:116) .EQ. '') vmag2 = iNULL__
        if(ar__3(119:124) .EQ. '') z = rNULL__
        if(ar__3(127:135) .EQ. '') NED_flux = rNULL__
        if(ar__3(137:145) .EQ. '') fl_band = rNULL__
        if(ar__3(148:154) .EQ. '') Size = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  v1RXS_3,Rank_1,sourceID_1,RAdeg_3,DEdeg_3,Sep_1,PA_1,
     +  r_sourceID_1,bandPos_2,Type_1,fxfopt,l_vmag,vmag,n_vmag,vmag2,
     +  u_vmag2,z,l_NED_flux,NED_flux,fl_band,l_Size,Size,u_Size,
     +  Com_1,IncDate_3,UpdDate_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_nvs.dat'	! 1RXS Correlation to NVSS, FIRST

C  Format for file interpretation

    5 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,1X,F7.1,1X,F8.2,1X,F9.2,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_nvs.dat')
      write(6,*) '....Loading file: cor_nvs.dat'
      do i__=1,31674
        read(1,'(A139)')ar__4
        read(ar__4,5)
     +  v1RXS_4,Rank_2,sourceID_2,RAdeg_4,DEdeg_4,Sep_2,PA_2,
     +  r_sourceID_2,bandPos_3,Type_2,dist,F20cm_I,F20cm_P,IncDate_4,
     +  UpdDate_4
        if(ar__4(100:106) .EQ. '') dist = rNULL__
        if(ar__4(108:115) .EQ. '') F20cm_I = rNULL__
        if(ar__4(117:125) .EQ. '') F20cm_P = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  v1RXS_4,Rank_2,sourceID_2,RAdeg_4,DEdeg_4,Sep_2,PA_2,
     +  r_sourceID_2,bandPos_3,Type_2,dist,F20cm_I,F20cm_P,IncDate_4,
     +  UpdDate_4
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_pri.dat'	! 1RXS Correlation to PRI, RITTER, SIMBAD, TYCHO,
*                                     EUVE

C  Format for file interpretation

    6 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X,
     +  F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_pri.dat')
      write(6,*) '....Loading file: cor_pri.dat'
      do i__=1,54935
        read(1,'(A214)')ar__5
        read(ar__5,6)
     +  v1RXS_5,Rank_3,sourceID_3,RAdeg_5,DEdeg_5,Sep_3,PA_3,
     +  r_sourceID_3,bandPos_4,Type_3,fxfopt_1,l_vmag_1,vmag_1,bmag,
     +  rmag,b_r,b_v,u_b,var,n_z,z_1,Vr,dist_1,Com_2,IncDate_5,
     +  UpdDate_5
        if(ar__5(101:105) .EQ. '') fxfopt_1 = rNULL__
        if(ar__5(108:112) .EQ. '') vmag_1 = rNULL__
        if(ar__5(115:119) .EQ. '') bmag = rNULL__
        if(ar__5(122:126) .EQ. '') rmag = rNULL__
        if(ar__5(129:133) .EQ. '') b_r = rNULL__
        if(ar__5(135:139) .EQ. '') b_v = rNULL__
        if(ar__5(142:146) .EQ. '') u_b = rNULL__
        if(ar__5(154:159) .EQ. '') z_1 = rNULL__
        if(ar__5(161:165) .EQ. '') Vr = iNULL__
        if(ar__5(167:174) .EQ. '') dist_1 = rNULL__
c    ..............Just test output...........
        write(6,6)
     +  v1RXS_5,Rank_3,sourceID_3,RAdeg_5,DEdeg_5,Sep_3,PA_3,
     +  r_sourceID_3,bandPos_4,Type_3,fxfopt_1,l_vmag_1,vmag_1,bmag,
     +  rmag,b_r,b_v,u_b,var,n_z,z_1,Vr,dist_1,Com_2,IncDate_5,
     +  UpdDate_5
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_hst.dat'	! 1RXS Correlation to HST_GSC

C  Format for file interpretation

    7 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X,
     +  F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_hst.dat')
      write(6,*) '....Loading file: cor_hst.dat'
      do i__=1,26210
        read(1,'(A214)')ar__6
        read(ar__6,7)
     +  v1RXS_6,Rank_4,sourceID_4,RAdeg_6,DEdeg_6,Sep_4,PA_4,
     +  r_sourceID_4,bandPos_5,Type_4,fxfopt_2,l_vmag_2,vmag_2,bmag_1,
     +  rmag_1,b_r_1,b_v_1,u_b_1,var_1,n_z_1,z_2,Vr_1,dist_2,Com_3,
     +  IncDate_6,UpdDate_6
        if(ar__6(101:105) .EQ. '') fxfopt_2 = rNULL__
        if(ar__6(108:112) .EQ. '') vmag_2 = rNULL__
        if(ar__6(115:119) .EQ. '') bmag_1 = rNULL__
        if(ar__6(122:126) .EQ. '') rmag_1 = rNULL__
        if(ar__6(129:133) .EQ. '') b_r_1 = rNULL__
        if(ar__6(135:139) .EQ. '') b_v_1 = rNULL__
        if(ar__6(142:146) .EQ. '') u_b_1 = rNULL__
        if(ar__6(154:159) .EQ. '') z_2 = rNULL__
        if(ar__6(161:165) .EQ. '') Vr_1 = iNULL__
        if(ar__6(167:174) .EQ. '') dist_2 = rNULL__
c    ..............Just test output...........
        write(6,7)
     +  v1RXS_6,Rank_4,sourceID_4,RAdeg_6,DEdeg_6,Sep_4,PA_4,
     +  r_sourceID_4,bandPos_5,Type_4,fxfopt_2,l_vmag_2,vmag_2,bmag_1,
     +  rmag_1,b_r_1,b_v_1,u_b_1,var_1,n_z_1,z_2,Vr_1,dist_2,Com_3,
     +  IncDate_6,UpdDate_6
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_wfc.dat'	! 1RXS Correlation to ROSAT-WFC

C  Format for file interpretation

    8 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,2X,F5.2,1X,A1,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,1X,F5.2,2X,
     +  F5.2,2X,A2,2X,A1,F6.4,1X,I5,1X,E8.3,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_wfc.dat')
      write(6,*) '....Loading file: cor_wfc.dat'
      do i__=1,605
        read(1,'(A214)')ar__7
        read(ar__7,8)
     +  v1RXS_7,Rank_5,sourceID_5,RAdeg_7,DEdeg_7,Sep_5,PA_5,
     +  r_sourceID_5,bandPos_6,Type_5,fxfopt_3,l_vmag_3,vmag_3,bmag_2,
     +  rmag_2,b_r_2,b_v_2,u_b_2,var_2,n_z_2,z_3,Vr_2,dist_3,Com_4,
     +  IncDate_7,UpdDate_7
        if(ar__7(101:105) .EQ. '') fxfopt_3 = rNULL__
        if(ar__7(108:112) .EQ. '') vmag_3 = rNULL__
        if(ar__7(115:119) .EQ. '') bmag_2 = rNULL__
        if(ar__7(122:126) .EQ. '') rmag_2 = rNULL__
        if(ar__7(129:133) .EQ. '') b_r_2 = rNULL__
        if(ar__7(135:139) .EQ. '') b_v_2 = rNULL__
        if(ar__7(142:146) .EQ. '') u_b_2 = rNULL__
        if(ar__7(154:159) .EQ. '') z_3 = rNULL__
        if(ar__7(161:165) .EQ. '') Vr_2 = iNULL__
        if(ar__7(167:174) .EQ. '') dist_3 = rNULL__
c    ..............Just test output...........
        write(6,8)
     +  v1RXS_7,Rank_5,sourceID_5,RAdeg_7,DEdeg_7,Sep_5,PA_5,
     +  r_sourceID_5,bandPos_6,Type_5,fxfopt_3,l_vmag_3,vmag_3,bmag_2,
     +  rmag_2,b_r_2,b_v_2,u_b_2,var_2,n_z_2,z_3,Vr_2,dist_3,Com_4,
     +  IncDate_7,UpdDate_7
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_ros.dat'	! 1RXS Correlation to ROSATP3, ROSATWGA, ROSATHRI

C  Format for file interpretation

    9 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,1X,F5.2,2X,F4.2,1X,F5.2,2X,F4.2,1X,I3,1X,I3,1X,I3,I6,
     +  1X,E8.2,1X,E8.2,2X,F4.1,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_ros.dat')
      write(6,*) '....Loading file: cor_ros.dat'
      do i__=1,24355
        read(1,'(A204)')ar__8
        read(ar__8,9)
     +  v1RXS_8,Rank_6,sourceID_6,RAdeg_8,DEdeg_8,Sep_6,PA_6,
     +  r_sourceID_6,bandPos_7,Type_6,HR1_2,e_HR1_2,HR2_2,e_HR2_2,
     +  Extent_2,L_Extent_2,Ldetect_2,ExpTime_2,Count_2,e_Count_2,
     +  roff,Com_5,IncDate_8,UpdDate_8
        if(ar__8(100:104) .EQ. '') HR1_2 = rNULL__
        if(ar__8(107:110) .EQ. '') e_HR1_2 = rNULL__
        if(ar__8(112:116) .EQ. '') HR2_2 = rNULL__
        if(ar__8(119:122) .EQ. '') e_HR2_2 = rNULL__
        if(ar__8(124:126) .EQ. '') Extent_2 = iNULL__
        if(ar__8(128:130) .EQ. '') L_Extent_2 = iNULL__
        if(ar__8(132:134) .EQ. '') Ldetect_2 = iNULL__
c    ..............Just test output...........
        write(6,9)
     +  v1RXS_8,Rank_6,sourceID_6,RAdeg_8,DEdeg_8,Sep_6,PA_6,
     +  r_sourceID_6,bandPos_7,Type_6,HR1_2,e_HR1_2,HR2_2,e_HR2_2,
     +  Extent_2,L_Extent_2,Ldetect_2,ExpTime_2,Count_2,e_Count_2,
     +  roff,Com_5,IncDate_8,UpdDate_8
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'cor_ver.dat'	! 1RXS Correlation Catalogue to VERON8 (VII/207)

C  Format for file interpretation

   10 format(
     +  5X,A16,1X,I3,1X,A21,1X,F8.4,1X,F8.4,2X,I3,1X,I3,1X,A10,1X,A1,
     +  1X,A10,2X,F5.2,1X,A1,F5.2,1X,F5.2,1X,F5.2,2X,F5.2,1X,A1,F5.3,
     +  2X,F8.2,2X,F8.2,1X,A25,1X,I6,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cor_ver.dat')
      write(6,*) '....Loading file: cor_ver.dat'
      do i__=1,1935
        read(1,'(A198)')ar__9
        read(ar__9,10)
     +  v1RXS_9,Rank_7,sourceID_7,RAdeg_9,DEdeg_9,Sep_7,PA_7,
     +  r_sourceID_7,bandPos_8,Type_7,fxfopt_4,l_vmag_4,vmag_4,rmag_3,
     +  b_v_3,u_b_3,n_z_3,z_4,R_f6cm,R_f11cm,Com_6,IncDate_9,UpdDate_9
        if(ar__9(101:105) .EQ. '') fxfopt_4 = rNULL__
        if(ar__9(108:112) .EQ. '') vmag_4 = rNULL__
        if(ar__9(114:118) .EQ. '') rmag_3 = rNULL__
        if(ar__9(120:124) .EQ. '') b_v_3 = rNULL__
        if(ar__9(127:131) .EQ. '') u_b_3 = rNULL__
        if(ar__9(134:138) .EQ. '') z_4 = rNULL__
        if(ar__9(141:148) .EQ. '') R_f6cm = rNULL__
        if(ar__9(151:158) .EQ. '') R_f11cm = rNULL__
c    ..............Just test output...........
        write(6,10)
     +  v1RXS_9,Rank_7,sourceID_7,RAdeg_9,DEdeg_9,Sep_7,PA_7,
     +  r_sourceID_7,bandPos_8,Type_7,fxfopt_4,l_vmag_4,vmag_4,rmag_3,
     +  b_v_3,u_b_3,n_z_3,z_4,R_f6cm,R_f11cm,Com_6,IncDate_9,UpdDate_9
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'refs.dat'	! References

C  Format for file interpretation

   11 format(A10,1X,A25,1X,A19,1X,A80)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,79
        read(1,'(A137)')ar__10
        read(ar__10,11)catal_id,Aut,BibCode,Com_7
c    ..............Just test output...........
        write(6,11)catal_id,Aut,BibCode,Com_7
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end