FORTRAN Generation
(/./ftp/cats/IX/10A)

Conversion of standardized ReadMe file for file /./ftp/cats/IX/10A into FORTRAN code for loading all data files into arrays.

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      (nr__) ! ROSAT All-Sky Survey Catalogue source name (1)
      character*1   n_1RXS     (nr__) ! [*] Names modified from previous version
      real*8        RAdeg      (nr__) ! (deg) Right ascension (J2000), decimal degrees
      real*8        DEdeg      (nr__) ! (deg) Declination (J2000), decimal degrees
      integer*4     PosErr     (nr__) ! (arcsec) ?=0 Total positional error
*                                   (including 6" systematic error)
      character*5   ScrFlags   (nr__) ! [T_] screening flags (2)
      character*4   NewFlag    (nr__) ! [T._] 'new data' flags (3)
      real*4        Count      (nr__) ! (ct/s) ?=0 Source countrate (4)
      real*4        e_Count    (nr__) ! (ct/s) ?=0 Error on Count (4)
      real*4        bgCt       (nr__) ! (ct/s/arcmin2) ?=0 Background countrate (4)
      integer*4     ExpTime    (nr__) ! (s) ?=0 Exposure time
      real*4        HR1        (nr__) ! [-1/1]? Hardness ratio 1 (5)
      real*4        e_HR1      (nr__) ! ? Error on HR1 (6)
      real*4        HR2        (nr__) ! [-1/1]? hardness ratio 2 (5)
      real*4        e_HR2      (nr__) ! ? Error on HR2 (6)
      integer*4     Extent     (nr__) ! (arcsec) Source extent, by which the source image
*                                    exceeds the point spread function.
      integer*4     L_Extent   (nr__) ! ?=0 Likelihood of source extent (7)
      integer*4     Ldetect    (nr__) ! ?=0 Likelihood of
*                                        source detection algorithm (7)
      integer*4     ExtRad     (nr__) ! (arcsec) ?=0 Extraction radius
      character*6   PrioFlags  (nr__) ! [01] priority  flags (8)
      character*1   PHA        (nr__) ! [ABCDb] PHA range of best detection (9)
      real*4        VigFactor  (nr__) ! ?=0 Vignetting factor
      integer*4     IncDate    (nr__) ! ("YYMMDD") ?=0 Date when source was included (10)
      integer*4     UpdDate    (nr__) ! ("YYMMDD") ?=0 Date when source properties changed (11)
      integer*4     Ncand      (nr__) ! Number of identification candidates in the
*                                   correlation catalogue
      integer*4     SASS       (nr__) ! Identification number of SASS field (12)
      integer*4     MASOL      (nr__) ! 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    (nr__1) ! 1RXS name
      real*8        RAdeg_1    (nr__1) ! (deg) Right ascension (J2000)
      real*8        DEdeg_1    (nr__1) ! (deg) Declination (J2000)
      integer*4     PosErr_1   (nr__1) ! (arcsec) Total positional error
      integer*4     Nid        (nr__1) ! Number of correlated sources
      character*1   bandPos    (nr__1) ! [x] origin of the source position
*                                          (always x: X-ray)
      real*4        gal_Nh     (nr__1) ! (10+21cm-2) Galactic HI column density
*                                       (in 10^21^atoms/cm^2^)
      real*8        GLON       (nr__1) ! (deg) Galactic longitude
      real*8        GLAT       (nr__1) ! (deg) Galactic latitude
      real*4        HR1_1      (nr__1) ! Hardness ratio 1
      real*4        e_HR1_1    (nr__1) ! rms uncertainty on HR1
      real*4        HR2_1      (nr__1) ! Hardness ratio 2
      real*4        e_HR2_1    (nr__1) ! rms uncertainty on HR2
      integer*4     Extent_1   (nr__1) ! Source extent
      integer*4     L_Extent_1 (nr__1) ! Likelihood of source extent
      integer*4     Ldetect_1  (nr__1) ! Likelihood of source detection algorithm
      integer*4     ExpTime_1  (nr__1) ! (s) Exposure time
      real*4        Count_1    (nr__1) ! (ct/s) Source count rate
      real*4        e_Count_1  (nr__1) ! (ct/s) rms uncertainty on Count
      real*4        Flux1      (nr__1) ! (mW/m2) X-ray flux 1 in 0.1-2.4keV energy range
      real*4        Flux2      (nr__1) ! (mW/m2) X-ray flux 2 in 0.1-2.4keV energy range
      integer*4     begDate    (nr__1) ! ("YYMMDD") First date of observation
      real*4        begDate_f  (nr__1) ! (d) First date of observation (day fraction)
      integer*4     endDate    (nr__1) ! ("YYMMDD") Last date of observation
      real*4        endDate_f  (nr__1) ! (d) Last date of observation (day fraction)
      integer*4     IncDate_1  (nr__1) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_1  (nr__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    (nr__2) ! 1RXS source name
      integer*4     Rank       (nr__2) ! Rank in correlation list for the source
      character*21  sourceID   (nr__2) ! Source identification (1)
      real*8        RAdeg_2    (nr__2) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_2    (nr__2) ! (deg) Declination (J2000)
      integer*4     Sep        (nr__2) ! (arcsec) Separation
      integer*4     PA         (nr__2) ! (deg) [0/360] Position angle
      character*10  r_sourceID (nr__2) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_1  (nr__2) ! [i] Origin of the source position (i: IR)
      character*10  Type       (nr__2) ! Type or class of object
      real*4        F12um      (nr__2) ! (Jy) Infrared flux in the 12{mu}m band
      real*4        F25um      (nr__2) ! (Jy) Infrared flux in the 25{mu}m band
      real*4        F60um      (nr__2) ! (Jy) Infrared flux in the 60{mu}m band
      real*4        F100um     (nr__2) ! (Jy) Infrared flux in the 100{mu}m band
      character*25  Com        (nr__2) ! Comments
      integer*4     IncDate_2  (nr__2) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_2  (nr__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    (nr__3) ! 1RXS source name
      integer*4     Rank_1     (nr__3) ! Rank in correlation list for the source
      character*21  sourceID_1 (nr__3) ! Source identification
      real*8        RAdeg_3    (nr__3) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_3    (nr__3) ! (deg) Declination (J2000)
      integer*4     Sep_1      (nr__3) ! (arcsec) Separation
      integer*4     PA_1       (nr__3) ! (deg) [0/360] Position angle
      character*10  r_sourceID_1(nr__3) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_2  (nr__3) ! [giorx] Origin of the source position (1)
      character*10  Type_1     (nr__3) ! Type or class of object
      real*4        fxfopt     (nr__3) ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag     (nr__3) ! Limit flag on vmag
      real*4        vmag       (nr__3) ! (mag) ? Visual magnitude
      character*1   n_vmag     (nr__3) ! [:/+] : => Uncertainty flag on vmag
*                                         / => interval of magnitude
*                                         + => 18+ ???
      integer*4     vmag2      (nr__3) ! ? Second value of vmag when interval
      character*1   u_vmag2    (nr__3) ! [?] Uncertainty flag on vmag2
      real*4        z          (nr__3) ! ? Redshift
      character*1   l_NED_flux (nr__3) ! Limit flag on NED-flux
      real*8        NED_flux   (nr__3) ! (mJy) ? Radio flux density or IR flux density
*                                      in the band given in fl-band
      real*4        fl_band    (nr__3) ! (mum) ? Frequency band  or wavelength band
*                                     used for flux given in NED-flux
*                                     (Radio [GHz], IR [mJy] for NED)
      character*1   l_Size     (nr__3) ! Limit flag on Size
      real*8        Size       (nr__3) ! (arcmin) ? Size of object
      character*1   u_Size     (nr__3) ! Uncertainty flag on Size
      character*25  Com_1      (nr__3) ! Comments
      integer*4     IncDate_3  (nr__3) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_3  (nr__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    (nr__4) ! 1RXS source name
      integer*4     Rank_2     (nr__4) ! Rank in correlation list for the source
      character*21  sourceID_2 (nr__4) ! Source identification
      real*8        RAdeg_4    (nr__4) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_4    (nr__4) ! (deg) Declination (J2000)
      integer*4     Sep_2      (nr__4) ! (arcsec) Separation
      integer*4     PA_2       (nr__4) ! (deg) [0/360] Position angle
      character*10  r_sourceID_2(nr__4) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_3  (nr__4) ! [orx] Origin of the source position (1)
      character*10  Type_2     (nr__4) ! Type or class of object
      real*8        dist       (nr__4) ! (kpc) ? Distance
      real*8        F20cm_I    (nr__4) ! (mJy) ? Radio integrated flux density in the
*                                       20cm band
      real*8        F20cm_P    (nr__4) ! (mJy) ? Radio peak flux density in the 20cm band
      integer*4     IncDate_4  (nr__4) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_4  (nr__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    (nr__5) ! 1RXS source name
      integer*4     Rank_3     (nr__5) ! Rank in correlation list for the source
      character*21  sourceID_3 (nr__5) ! Source identification (see also r_sourceID)
      real*8        RAdeg_5    (nr__5) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_5    (nr__5) ! (deg) Declination (J2000)
      integer*4     Sep_3      (nr__5) ! (arcsec) Separation
      integer*4     PA_3       (nr__5) ! (deg) [0/360] Position angle
      character*10  r_sourceID_3(nr__5) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_4  (nr__5) ! [oexr] Origin of the source position (1)
      character*10  Type_3     (nr__5) ! Type or class of object
      real*4        fxfopt_1   (nr__5) ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_1   (nr__5) ! Limit flag on vmag
      real*4        vmag_1     (nr__5) ! (mag) ? Visual magnitude
      real*4        bmag       (nr__5) ! (mag) ? Blue magnitude
      real*4        rmag       (nr__5) ! (mag) ? Red magnitude
      real*4        b_r        (nr__5) ! (mag) ? (blue-red) colour
      real*4        b_v        (nr__5) ! (mag) ? (blue-visual) colour
      real*4        u_b        (nr__5) ! (mag) ? (ultraviolet-blue) colour
      character*2   var        (nr__5) ! Variability flag
      character*1   n_z        (nr__5) ! [*>] Note on z
      real*4        z_1        (nr__5) ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr         (nr__5) ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_1     (nr__5) ! (kpc) ? Distance
      character*25  Com_2      (nr__5) ! Comments
      integer*4     IncDate_5  (nr__5) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_5  (nr__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    (nr__6) ! 1RXS source name
      integer*4     Rank_4     (nr__6) ! Rank in correlation list for the source
      character*21  sourceID_4 (nr__6) ! Source identification (see also r_sourceID)
      real*8        RAdeg_6    (nr__6) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_6    (nr__6) ! (deg) Declination (J2000)
      integer*4     Sep_4      (nr__6) ! (arcsec) Separation
      integer*4     PA_4       (nr__6) ! (deg) [0/360] Position angle
      character*10  r_sourceID_4(nr__6) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_5  (nr__6) ! [oexr] Origin of the source position (1)
      character*10  Type_4     (nr__6) ! Type or class of object
      real*4        fxfopt_2   (nr__6) ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_2   (nr__6) ! Limit flag on vmag
      real*4        vmag_2     (nr__6) ! (mag) ? Visual magnitude
      real*4        bmag_1     (nr__6) ! (mag) ? Blue magnitude
      real*4        rmag_1     (nr__6) ! (mag) ? Red magnitude
      real*4        b_r_1      (nr__6) ! (mag) ? (blue-red) colour
      real*4        b_v_1      (nr__6) ! (mag) ? (blue-visual) colour
      real*4        u_b_1      (nr__6) ! (mag) ? (ultraviolet-blue) colour
      character*2   var_1      (nr__6) ! Variability flag
      character*1   n_z_1      (nr__6) ! [*>] Note on z
      real*4        z_2        (nr__6) ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr_1       (nr__6) ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_2     (nr__6) ! (kpc) ? Distance
      character*25  Com_3      (nr__6) ! Comments
      integer*4     IncDate_6  (nr__6) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_6  (nr__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    (nr__7) ! 1RXS source name
      integer*4     Rank_5     (nr__7) ! Rank in correlation list for the source
      character*21  sourceID_5 (nr__7) ! Source identification (see also r_sourceID)
      real*8        RAdeg_7    (nr__7) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_7    (nr__7) ! (deg) Declination (J2000)
      integer*4     Sep_5      (nr__7) ! (arcsec) Separation
      integer*4     PA_5       (nr__7) ! (deg) [0/360] Position angle
      character*10  r_sourceID_5(nr__7) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_6  (nr__7) ! [oexr] Origin of the source position (1)
      character*10  Type_5     (nr__7) ! Type or class of object
      real*4        fxfopt_3   (nr__7) ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_3   (nr__7) ! Limit flag on vmag
      real*4        vmag_3     (nr__7) ! (mag) ? Visual magnitude
      real*4        bmag_2     (nr__7) ! (mag) ? Blue magnitude
      real*4        rmag_2     (nr__7) ! (mag) ? Red magnitude
      real*4        b_r_2      (nr__7) ! (mag) ? (blue-red) colour
      real*4        b_v_2      (nr__7) ! (mag) ? (blue-visual) colour
      real*4        u_b_2      (nr__7) ! (mag) ? (ultraviolet-blue) colour
      character*2   var_2      (nr__7) ! Variability flag
      character*1   n_z_2      (nr__7) ! [*>] Note on z
      real*4        z_3        (nr__7) ! ? Redshift (from PRI or SIMBAD)
      integer*4     Vr_2       (nr__7) ! (km/s) ? Radial velocity (from SIMBAD only)
      real*4        dist_3     (nr__7) ! (kpc) ? Distance
      character*25  Com_4      (nr__7) ! Comments
      integer*4     IncDate_7  (nr__7) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_7  (nr__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    (nr__8) ! 1RXS source name
      integer*4     Rank_6     (nr__8) ! Rank in correlation list for the source
      character*21  sourceID_6 (nr__8) ! Source identification
      real*8        RAdeg_8    (nr__8) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_8    (nr__8) ! (deg) Declination (J2000)
      integer*4     Sep_6      (nr__8) ! (arcsec) Separation
      integer*4     PA_6       (nr__8) ! (deg) [0/360] Position angle
      character*10  r_sourceID_6(nr__8) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_7  (nr__8) ! [ex] Origin of the source position (1)
      character*10  Type_6     (nr__8) ! Type or class of object
      real*4        HR1_2      (nr__8) ! ? Hardness ratio 1
      real*4        e_HR1_2    (nr__8) ! ? rms uncertainty on HR1
      real*4        HR2_2      (nr__8) ! ? Hardness ratio 2
      real*4        e_HR2_2    (nr__8) ! ? rms uncertainty on HR2
      integer*4     Extent_2   (nr__8) ! ? Source extent
      integer*4     L_Extent_2 (nr__8) ! ? Likelihood of source extent
      integer*4     Ldetect_2  (nr__8) ! ? Likelihood of source detection algorithm
      integer*4     ExpTime_2  (nr__8) ! (s) Exposure time
      real*4        Count_2    (nr__8) ! Source countrate
      real*4        e_Count_2  (nr__8) ! rms uncertainty on Count
      real*4        roff       (nr__8) ! (arcmin) Off-axis angle
      character*25  Com_5      (nr__8) ! Comments
      integer*4     IncDate_8  (nr__8) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_8  (nr__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    (nr__9) ! 1RXS source name
      integer*4     Rank_7     (nr__9) ! Rank in correlation list for the source
      character*21  sourceID_7 (nr__9) ! Source identification
      real*8        RAdeg_9    (nr__9) ! (deg) [0/360] Right ascension (J2000)
      real*8        DEdeg_9    (nr__9) ! (deg) Declination (J2000)
      integer*4     Sep_7      (nr__9) ! (arcsec) Separation
      integer*4     PA_7       (nr__9) ! (deg) [0/360] Position angle
      character*10  r_sourceID_7(nr__9) ! Source catalogue (see file "refs.dat")
      character*1   bandPos_8  (nr__9) ! [oAOR] Origin of the source position (1)
      character*10  Type_7     (nr__9) ! Type or class of object
      real*4        fxfopt_4   (nr__9) ! ? Ratio of X-ray to optical flux f_X / f_opt
      character*1   l_vmag_4   (nr__9) ! Limit flag on vmag
      real*4        vmag_4     (nr__9) ! (mag) ? Visual magnitude
      real*4        rmag_3     (nr__9) ! (mag) ? Red magnitude
      real*4        b_v_3      (nr__9) ! (mag) ? (blue-visual) colour
      real*4        u_b_3      (nr__9) ! (mag) ? (ultraviolet-blue) colour
      character*1   n_z_3      (nr__9) ! [*>]Note on z
      real*4        z_4        (nr__9) ! ? Redshift
      real*8        R_f6cm     (nr__9) ! (mJy) ? R-f6cm in the 6cm band
      real*8        R_f11cm    (nr__9) ! (mJy) ? R-f11cm in the 11cm band
      character*25  Com_6      (nr__9) ! Comments
      integer*4     IncDate_9  (nr__9) ! ("YYMMDD") Date when source was included
      integer*4     UpdDate_9  (nr__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   (nr__10) ! Name of source catalogue
      character*25  Aut        (nr__10) ! Author names
      character*19  BibCode    (nr__10) ! BibCode
      character*80  Com_7      (nr__10) ! 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(i__),n_1RXS(i__),RAdeg(i__),DEdeg(i__),PosErr(i__),
     +  ScrFlags(i__),NewFlag(i__),Count(i__),e_Count(i__),bgCt(i__),
     +  ExpTime(i__),HR1(i__),e_HR1(i__),HR2(i__),e_HR2(i__),
     +  Extent(i__),L_Extent(i__),Ldetect(i__),ExtRad(i__),
     +  PrioFlags(i__),PHA(i__),VigFactor(i__),IncDate(i__),
     +  UpdDate(i__),Ncand(i__),SASS(i__),MASOL(i__)
        if(ar__(97:101) .EQ. '') HR1(i__) = rNULL__
        if(ar__(103:106) .EQ. '') e_HR1(i__) = rNULL__
        if(ar__(108:112) .EQ. '') HR2(i__) = rNULL__
        if(ar__(114:117) .EQ. '') e_HR2(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  v1RXS(i__),n_1RXS(i__),RAdeg(i__),DEdeg(i__),PosErr(i__),
     +  ScrFlags(i__),NewFlag(i__),Count(i__),e_Count(i__),bgCt(i__),
     +  ExpTime(i__),HR1(i__),e_HR1(i__),HR2(i__),e_HR2(i__),
     +  Extent(i__),L_Extent(i__),Ldetect(i__),ExtRad(i__),
     +  PrioFlags(i__),PHA(i__),VigFactor(i__),IncDate(i__),
     +  UpdDate(i__),Ncand(i__),SASS(i__),MASOL(i__)
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(i__),RAdeg_1(i__),DEdeg_1(i__),PosErr_1(i__),Nid(i__),
     +  bandPos(i__),gal_Nh(i__),GLON(i__),GLAT(i__),HR1_1(i__),
     +  e_HR1_1(i__),HR2_1(i__),e_HR2_1(i__),Extent_1(i__),
     +  L_Extent_1(i__),Ldetect_1(i__),ExpTime_1(i__),Count_1(i__),
     +  e_Count_1(i__),Flux1(i__),Flux2(i__),begDate(i__),
     +  begDate_f(i__),endDate(i__),endDate_f(i__),IncDate_1(i__),
     +  UpdDate_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  v1RXS_1(i__),RAdeg_1(i__),DEdeg_1(i__),PosErr_1(i__),Nid(i__),
     +  bandPos(i__),gal_Nh(i__),GLON(i__),GLAT(i__),HR1_1(i__),
     +  e_HR1_1(i__),HR2_1(i__),e_HR2_1(i__),Extent_1(i__),
     +  L_Extent_1(i__),Ldetect_1(i__),ExpTime_1(i__),Count_1(i__),
     +  e_Count_1(i__),Flux1(i__),Flux2(i__),begDate(i__),
     +  begDate_f(i__),endDate(i__),endDate_f(i__),IncDate_1(i__),
     +  UpdDate_1(i__)
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(i__),Rank(i__),sourceID(i__),RAdeg_2(i__),
     +  DEdeg_2(i__),Sep(i__),PA(i__),r_sourceID(i__),bandPos_1(i__),
     +  Type(i__),F12um(i__),F25um(i__),F60um(i__),F100um(i__),
     +  Com(i__),IncDate_2(i__),UpdDate_2(i__)
c    ..............Just test output...........
        write(6,3)
     +  v1RXS_2(i__),Rank(i__),sourceID(i__),RAdeg_2(i__),
     +  DEdeg_2(i__),Sep(i__),PA(i__),r_sourceID(i__),bandPos_1(i__),
     +  Type(i__),F12um(i__),F25um(i__),F60um(i__),F100um(i__),
     +  Com(i__),IncDate_2(i__),UpdDate_2(i__)
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(i__),Rank_1(i__),sourceID_1(i__),RAdeg_3(i__),
     +  DEdeg_3(i__),Sep_1(i__),PA_1(i__),r_sourceID_1(i__),
     +  bandPos_2(i__),Type_1(i__),fxfopt(i__),l_vmag(i__),vmag(i__),
     +  n_vmag(i__),vmag2(i__),u_vmag2(i__),z(i__),l_NED_flux(i__),
     +  NED_flux(i__),fl_band(i__),l_Size(i__),Size(i__),u_Size(i__),
     +  Com_1(i__),IncDate_3(i__),UpdDate_3(i__)
        if(ar__3(101:105) .EQ. '') fxfopt(i__) = rNULL__
        if(ar__3(108:113) .EQ. '') vmag(i__) = rNULL__
        if(ar__3(115:116) .EQ. '') vmag2(i__) = iNULL__
        if(ar__3(119:124) .EQ. '') z(i__) = rNULL__
        if(ar__3(127:135) .EQ. '') NED_flux(i__) = rNULL__
        if(ar__3(137:145) .EQ. '') fl_band(i__) = rNULL__
        if(ar__3(148:154) .EQ. '') Size(i__) = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  v1RXS_3(i__),Rank_1(i__),sourceID_1(i__),RAdeg_3(i__),
     +  DEdeg_3(i__),Sep_1(i__),PA_1(i__),r_sourceID_1(i__),
     +  bandPos_2(i__),Type_1(i__),fxfopt(i__),l_vmag(i__),vmag(i__),
     +  n_vmag(i__),vmag2(i__),u_vmag2(i__),z(i__),l_NED_flux(i__),
     +  NED_flux(i__),fl_band(i__),l_Size(i__),Size(i__),u_Size(i__),
     +  Com_1(i__),IncDate_3(i__),UpdDate_3(i__)
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(i__),Rank_2(i__),sourceID_2(i__),RAdeg_4(i__),
     +  DEdeg_4(i__),Sep_2(i__),PA_2(i__),r_sourceID_2(i__),
     +  bandPos_3(i__),Type_2(i__),dist(i__),F20cm_I(i__),
     +  F20cm_P(i__),IncDate_4(i__),UpdDate_4(i__)
        if(ar__4(100:106) .EQ. '') dist(i__) = rNULL__
        if(ar__4(108:115) .EQ. '') F20cm_I(i__) = rNULL__
        if(ar__4(117:125) .EQ. '') F20cm_P(i__) = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  v1RXS_4(i__),Rank_2(i__),sourceID_2(i__),RAdeg_4(i__),
     +  DEdeg_4(i__),Sep_2(i__),PA_2(i__),r_sourceID_2(i__),
     +  bandPos_3(i__),Type_2(i__),dist(i__),F20cm_I(i__),
     +  F20cm_P(i__),IncDate_4(i__),UpdDate_4(i__)
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(i__),Rank_3(i__),sourceID_3(i__),RAdeg_5(i__),
     +  DEdeg_5(i__),Sep_3(i__),PA_3(i__),r_sourceID_3(i__),
     +  bandPos_4(i__),Type_3(i__),fxfopt_1(i__),l_vmag_1(i__),
     +  vmag_1(i__),bmag(i__),rmag(i__),b_r(i__),b_v(i__),u_b(i__),
     +  var(i__),n_z(i__),z_1(i__),Vr(i__),dist_1(i__),Com_2(i__),
     +  IncDate_5(i__),UpdDate_5(i__)
        if(ar__5(101:105) .EQ. '') fxfopt_1(i__) = rNULL__
        if(ar__5(108:112) .EQ. '') vmag_1(i__) = rNULL__
        if(ar__5(115:119) .EQ. '') bmag(i__) = rNULL__
        if(ar__5(122:126) .EQ. '') rmag(i__) = rNULL__
        if(ar__5(129:133) .EQ. '') b_r(i__) = rNULL__
        if(ar__5(135:139) .EQ. '') b_v(i__) = rNULL__
        if(ar__5(142:146) .EQ. '') u_b(i__) = rNULL__
        if(ar__5(154:159) .EQ. '') z_1(i__) = rNULL__
        if(ar__5(161:165) .EQ. '') Vr(i__) = iNULL__
        if(ar__5(167:174) .EQ. '') dist_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,6)
     +  v1RXS_5(i__),Rank_3(i__),sourceID_3(i__),RAdeg_5(i__),
     +  DEdeg_5(i__),Sep_3(i__),PA_3(i__),r_sourceID_3(i__),
     +  bandPos_4(i__),Type_3(i__),fxfopt_1(i__),l_vmag_1(i__),
     +  vmag_1(i__),bmag(i__),rmag(i__),b_r(i__),b_v(i__),u_b(i__),
     +  var(i__),n_z(i__),z_1(i__),Vr(i__),dist_1(i__),Com_2(i__),
     +  IncDate_5(i__),UpdDate_5(i__)
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(i__),Rank_4(i__),sourceID_4(i__),RAdeg_6(i__),
     +  DEdeg_6(i__),Sep_4(i__),PA_4(i__),r_sourceID_4(i__),
     +  bandPos_5(i__),Type_4(i__),fxfopt_2(i__),l_vmag_2(i__),
     +  vmag_2(i__),bmag_1(i__),rmag_1(i__),b_r_1(i__),b_v_1(i__),
     +  u_b_1(i__),var_1(i__),n_z_1(i__),z_2(i__),Vr_1(i__),
     +  dist_2(i__),Com_3(i__),IncDate_6(i__),UpdDate_6(i__)
        if(ar__6(101:105) .EQ. '') fxfopt_2(i__) = rNULL__
        if(ar__6(108:112) .EQ. '') vmag_2(i__) = rNULL__
        if(ar__6(115:119) .EQ. '') bmag_1(i__) = rNULL__
        if(ar__6(122:126) .EQ. '') rmag_1(i__) = rNULL__
        if(ar__6(129:133) .EQ. '') b_r_1(i__) = rNULL__
        if(ar__6(135:139) .EQ. '') b_v_1(i__) = rNULL__
        if(ar__6(142:146) .EQ. '') u_b_1(i__) = rNULL__
        if(ar__6(154:159) .EQ. '') z_2(i__) = rNULL__
        if(ar__6(161:165) .EQ. '') Vr_1(i__) = iNULL__
        if(ar__6(167:174) .EQ. '') dist_2(i__) = rNULL__
c    ..............Just test output...........
        write(6,7)
     +  v1RXS_6(i__),Rank_4(i__),sourceID_4(i__),RAdeg_6(i__),
     +  DEdeg_6(i__),Sep_4(i__),PA_4(i__),r_sourceID_4(i__),
     +  bandPos_5(i__),Type_4(i__),fxfopt_2(i__),l_vmag_2(i__),
     +  vmag_2(i__),bmag_1(i__),rmag_1(i__),b_r_1(i__),b_v_1(i__),
     +  u_b_1(i__),var_1(i__),n_z_1(i__),z_2(i__),Vr_1(i__),
     +  dist_2(i__),Com_3(i__),IncDate_6(i__),UpdDate_6(i__)
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(i__),Rank_5(i__),sourceID_5(i__),RAdeg_7(i__),
     +  DEdeg_7(i__),Sep_5(i__),PA_5(i__),r_sourceID_5(i__),
     +  bandPos_6(i__),Type_5(i__),fxfopt_3(i__),l_vmag_3(i__),
     +  vmag_3(i__),bmag_2(i__),rmag_2(i__),b_r_2(i__),b_v_2(i__),
     +  u_b_2(i__),var_2(i__),n_z_2(i__),z_3(i__),Vr_2(i__),
     +  dist_3(i__),Com_4(i__),IncDate_7(i__),UpdDate_7(i__)
        if(ar__7(101:105) .EQ. '') fxfopt_3(i__) = rNULL__
        if(ar__7(108:112) .EQ. '') vmag_3(i__) = rNULL__
        if(ar__7(115:119) .EQ. '') bmag_2(i__) = rNULL__
        if(ar__7(122:126) .EQ. '') rmag_2(i__) = rNULL__
        if(ar__7(129:133) .EQ. '') b_r_2(i__) = rNULL__
        if(ar__7(135:139) .EQ. '') b_v_2(i__) = rNULL__
        if(ar__7(142:146) .EQ. '') u_b_2(i__) = rNULL__
        if(ar__7(154:159) .EQ. '') z_3(i__) = rNULL__
        if(ar__7(161:165) .EQ. '') Vr_2(i__) = iNULL__
        if(ar__7(167:174) .EQ. '') dist_3(i__) = rNULL__
c    ..............Just test output...........
        write(6,8)
     +  v1RXS_7(i__),Rank_5(i__),sourceID_5(i__),RAdeg_7(i__),
     +  DEdeg_7(i__),Sep_5(i__),PA_5(i__),r_sourceID_5(i__),
     +  bandPos_6(i__),Type_5(i__),fxfopt_3(i__),l_vmag_3(i__),
     +  vmag_3(i__),bmag_2(i__),rmag_2(i__),b_r_2(i__),b_v_2(i__),
     +  u_b_2(i__),var_2(i__),n_z_2(i__),z_3(i__),Vr_2(i__),
     +  dist_3(i__),Com_4(i__),IncDate_7(i__),UpdDate_7(i__)
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(i__),Rank_6(i__),sourceID_6(i__),RAdeg_8(i__),
     +  DEdeg_8(i__),Sep_6(i__),PA_6(i__),r_sourceID_6(i__),
     +  bandPos_7(i__),Type_6(i__),HR1_2(i__),e_HR1_2(i__),HR2_2(i__),
     +  e_HR2_2(i__),Extent_2(i__),L_Extent_2(i__),Ldetect_2(i__),
     +  ExpTime_2(i__),Count_2(i__),e_Count_2(i__),roff(i__),
     +  Com_5(i__),IncDate_8(i__),UpdDate_8(i__)
        if(ar__8(100:104) .EQ. '') HR1_2(i__) = rNULL__
        if(ar__8(107:110) .EQ. '') e_HR1_2(i__) = rNULL__
        if(ar__8(112:116) .EQ. '') HR2_2(i__) = rNULL__
        if(ar__8(119:122) .EQ. '') e_HR2_2(i__) = rNULL__
        if(ar__8(124:126) .EQ. '') Extent_2(i__) = iNULL__
        if(ar__8(128:130) .EQ. '') L_Extent_2(i__) = iNULL__
        if(ar__8(132:134) .EQ. '') Ldetect_2(i__) = iNULL__
c    ..............Just test output...........
        write(6,9)
     +  v1RXS_8(i__),Rank_6(i__),sourceID_6(i__),RAdeg_8(i__),
     +  DEdeg_8(i__),Sep_6(i__),PA_6(i__),r_sourceID_6(i__),
     +  bandPos_7(i__),Type_6(i__),HR1_2(i__),e_HR1_2(i__),HR2_2(i__),
     +  e_HR2_2(i__),Extent_2(i__),L_Extent_2(i__),Ldetect_2(i__),
     +  ExpTime_2(i__),Count_2(i__),e_Count_2(i__),roff(i__),
     +  Com_5(i__),IncDate_8(i__),UpdDate_8(i__)
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(i__),Rank_7(i__),sourceID_7(i__),RAdeg_9(i__),
     +  DEdeg_9(i__),Sep_7(i__),PA_7(i__),r_sourceID_7(i__),
     +  bandPos_8(i__),Type_7(i__),fxfopt_4(i__),l_vmag_4(i__),
     +  vmag_4(i__),rmag_3(i__),b_v_3(i__),u_b_3(i__),n_z_3(i__),
     +  z_4(i__),R_f6cm(i__),R_f11cm(i__),Com_6(i__),IncDate_9(i__),
     +  UpdDate_9(i__)
        if(ar__9(101:105) .EQ. '') fxfopt_4(i__) = rNULL__
        if(ar__9(108:112) .EQ. '') vmag_4(i__) = rNULL__
        if(ar__9(114:118) .EQ. '') rmag_3(i__) = rNULL__
        if(ar__9(120:124) .EQ. '') b_v_3(i__) = rNULL__
        if(ar__9(127:131) .EQ. '') u_b_3(i__) = rNULL__
        if(ar__9(134:138) .EQ. '') z_4(i__) = rNULL__
        if(ar__9(141:148) .EQ. '') R_f6cm(i__) = rNULL__
        if(ar__9(151:158) .EQ. '') R_f11cm(i__) = rNULL__
c    ..............Just test output...........
        write(6,10)
     +  v1RXS_9(i__),Rank_7(i__),sourceID_7(i__),RAdeg_9(i__),
     +  DEdeg_9(i__),Sep_7(i__),PA_7(i__),r_sourceID_7(i__),
     +  bandPos_8(i__),Type_7(i__),fxfopt_4(i__),l_vmag_4(i__),
     +  vmag_4(i__),rmag_3(i__),b_v_3(i__),u_b_3(i__),n_z_3(i__),
     +  z_4(i__),R_f6cm(i__),R_f11cm(i__),Com_6(i__),IncDate_9(i__),
     +  UpdDate_9(i__)
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(i__),Aut(i__),BibCode(i__),Com_7(i__)
c    ..............Just test output...........
        write(6,11)catal_id(i__),Aut(i__),BibCode(i__),Com_7(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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