Conversion of standardized ReadMe file for
file /./ftp/cats/V/134/ 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-Apr-20
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. V/134 Atlas of Radio/X-ray associations (ARXA) (Flesch, 2010)
*================================================================================
*The atlas of radio/X-ray associations (ARXA)
* Flesch E.
* <Publ. Astron. Soc. Australia 27, 283 (2010)>
* =2010PASA...27..283F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'arxa.dat' ! The atlas of Radio/X-ray associations
integer*4 nr__
parameter (nr__=602570) ! Number of records
character*308 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg (nr__) ! (deg) Right Ascension J2000
real*8 DEdeg (nr__) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh (nr__) ! (h) Right Ascension J2000 (hours)
integer*4 RAm (nr__) ! (min) Right Ascension J2000 (minutes)
real*4 RAs (nr__) ! (s) Right Ascension J2000 (seconds)
character*1 DE_ (nr__) ! Declination J2000 (sign)
integer*4 DEd (nr__) ! (deg) Declination J2000 (degrees)
integer*4 DEm (nr__) ! (arcmin) Declination J2000 (minutes)
integer*4 DEs (nr__) ! (arcsec) Declination J2000 (seconds)
character*24 Name (nr__) ! ID from the literature, if any (1)
character*3 Cl (nr__) ! Classification of object (2)
real*4 Rmag (nr__) ! (mag) ? Red optical magnitude (3)
real*4 Bmag (nr__) ! (mag) ? Blue optical magnitude (3)
character*3 opt (nr__) ! Source of optical magnitudes (4)
character*1 R (nr__) ! Red optical PSF class (5)
character*1 B (nr__) ! Blue optical PSF class (5)
real*4 z (nr__) ! ? Redshift from the literature.
character*2 r_Name (nr__) ! Source catalog for name (6)
character*2 r_z (nr__) ! Source catalog for redshift (6)
integer*4 pr_Q (nr__) ! (%) probability that this object is a QSO (7)
integer*4 pr_G (nr__) ! (%) probability that this object is a galaxy (7)
integer*4 pr__ (nr__) ! (%) probability that this object is a star (7)
integer*4 perr (nr__) ! (%) probability that association is erroneous (7)
character*21 NVSS (nr__) ! NVSS radio ID, if any.
character*21 FSid (nr__) ! FIRST or SUMSS radio ID, if any.
character*21 XMM (nr__) ! XMM X-ray ID, if any.
character*21 RASS (nr__) ! ROSAT RASS X-ray ID, if any.
character*21 PSPC (nr__) ! ROSAT PSPC X-ray ID, if any.
character*21 WGA (nr__) ! WGA X-ray ID, if any.
character*21 HRI (nr__) ! ROSAT HRI X-ray ID, if any.
character*21 Chandra (nr__) ! Chandra X-ray ID, if any.
character*21 lobe1 (nr__) ! 1st radio lobe ID, if any.
character*21 lobe2 (nr__) ! 2nd radio lobe ID, if any.
*Note (1): A blank value indicates this object has been not identified
* up to now. If the catalogue is "QO" (QORG), name is e.g., QORG
* J012345.6+012345. If the catalogue is blank, name is of the form ARXA
* J012345.6+012345, using the J2000 location column as the name. I am
* tempted to use names from a sequential name list, e.g., "Bertfriede",
* "Bertha", "Berthar", etc, but suspect it would not take.
*Note (2): Classification from the Veron catalog takes precedence
* over other values. Legend:
* Q = QSO from the literature, with redshift (21735 of these)
* A = AGN (from Veron, or Seyfert galaxy). (6941)
* B = Bl Lac object (803)
* q = NBCKDE photometric quasar (>60%). Redshift rounded to 0.1z.
* G = galaxy (89,731)
* L = lenticular liner galaxy(3 stated)
* N = narrow emission line galaxy (93 stated)
* M = multiple-galaxy cluster (179)
* g = MegaZLRG photometric galaxy (>80%). Redshift rounded to 0.01z.
* S = star (13,841)
* W = white dwarf star.
* H = HI/starburst region.
* R = radio association displayed.
* X = X-ray association displayed.
* 2 = double radio lobe identified.
*Note (3): Magnitudes have been recalibrated from the original APM/USNO-A
* values. However, USNO-A UKST objects fainter than 18.5 can have large
* errors. Extended objects brighter than mag 13 can be represented as
* far too bright. If "opt" is r/b/g/i/w, magnitudes are from the
* object's source catalog.
*Note (4): Legend:
* p = optical magnitudes are POSS-I E and O.
* r/b/g/i/w = optical magnitudes from the source catalog (e.g. SDSS,
* 2QZ, etc). This is presented if object was not found in APM/USNO-A.
* (none of the above) = optical magnitudes are UKST R and Bj.
* v = variability nominally detected for both red & blue
* m = proper motion nominally detected.
* ? = "inferred" object -- position and magnitude is approximate for one
* or both colours where PSF is listed as "n".
*Note (5): The APM provides PSF class, the USNO-A does not. Some QSO
* catalogs like the SDSS give morphology which we use here for objects
* not found in the APM. Legend:
* - = stellar PSF (usually from APM)
* 1 = fuzzy PSF (usually from APM)
* 2 = extended PSF. Can be galaxies, merged stars, etc.
* n = no PSF available, usually USNO-A sourced.
* x = not seen in this color (fainter than plate depth, or confused, etc.)
*Note (6): Legend and references:
* 2d/2G = 2dFGRS, Colless M. et al. 2001MNRAS.328.1039C, Cat. VII/250
* 2Q/6Q = 2QZ and 6QZ, Croom S.M. et al. 2004MNRAS.349.1397C, Cat. VII/241
* 2S = 2SLAQ, Croom S.M. et al. 2009, Cat. J/MNRAS/392/19
* 3C = 3CRR, Laing R.A., Riley J.M., Longair M.S., 1983MNRAS.204..151L
* 6d/6D = 6dF Galaxy Survey, Jones D.H. et al. arXiv;0903.5451, Cat. VII/249
* BU = Burbidge E.M., October 2003, Keck-I LRIS, unpublished.
* CF = Huchra J.P. et al. 1999ApJS..121..287H www.cfa.harvard.edu/~huchra/zcat
* CN = Common Names, Smith, W.B., 1996, Cat. IV/22
* CO = Lopez-Corredoira M. et al. 2008A&A...480...61L
* CV = Cataclysmic Variables, Downes R.A. et al. 2001PASP..113..764D
* (Cat. V/123, B/cb)
* CX = CXSEXSI, Eckart M.E. et al. 2006, Cat. J/ApJS/165/19
* EN = ENEAR, Wegner G. et al. 2003, Cat. J/AJ/126/2268
* F2 = FIRST-2MASS QSOs, Glikman et al. 2007, Cat. J/ApJ/667/673
* FA = FIRST-APM-SDSS hi-z survey, Carballo, R. et al. 2006,
* Cat. J/MNRAS/370/1034
* GC = GCVS, Samus, N.N., et al., 2002, Ast. Lett., 28, 174 (Cat. B/gcvs)
* HD = Harvey Draper Ext: Nesterov V.V. et al. 1995, Cat. III/182
* LB = LBQS, Hewett P.C., Foltz C.B., Chaffee F.H., 1995, Cat. J/AJ/109/1498
* LC = Las Campanas, Shectman, S.A. et al. 1996, Cat. VII/203/
* MZ = MegaZLRG, Abdalla F.B. et al. 2008 arXiv:0812.3831 (see J/MNRAS/375/68)
* N1 = NPM1, Klemola A.R.,Hanson R.B.,Jones B.F., 1994, Cat. I/200
* N2 = NPM2, Hanson R.B. et al. 2004, Cat. I/283
* NB = NBCKDE, Richards G.T. et al. 2009, Cat. J/ApJS/180/67
* NE = NASA/IPEC Extragalactic Database, http://nedwww.ipac.caltech.edu
* NL = NLTT, Salim, S., Gould, A. 2003, Cat. J/ApJ/582/1011
* PG = Principal Galaxy Catalogue, Paturel G. et al. 2003, Cat. VII/237
* PS = PSCz, Saunders W. et al. 2000, Cat. VII/221
* QO = QORG, Flesch E. and Hardcastle M., 2004, Cat. J/A+A/427/387
* SD = SDSS DR-7, Abazajian K. et al. 2008, Cat. II/294 (www.sdss.org)
* SN = SNUQSO, Lee I. et al. 2008, Cat. J/ApJS/175/116
* SW = SWIRE-hiz, Siana B. et al. 2008, Cat. J/ApJ/675/49
* TY = Tycho, Hog et al. 2000, Cat. I/259
* UG = UGC Galaxies, Cotton W.D. and Condon J.J., 1999, Cat. J/ApJS/125/409
* VE = Veron 12th edition, Veron-Cetty M-P. and Veron P., 2006, Cat. VII/248
* WD = White Dwarfs, McCook G.P., Sion E.M., 1999ApJS..121....1M, Cat. III/235
* XB = XBSS, Caccianiga A. et al. 2008A&A...477..735C
* XH = XMMSSC (hard spectrum), Page M.J. et al. 2007MNRAS.378.1335P
* XM = XMSS, Barcons X. et al. 2007, Cat. J/A+A/476/1191
* YL = Yale Bright Star, Hoffleit E.D., Warren Jr. W.H., 1991, Cat. V/50
* ZW = the Updated Zwicky Catalog, Falco E.E. et al. 1999, Cat. J/PASP/111/438
*Note (7): These probabilities are calculated as described in the QORG paper
* (2004, Cat. J/A+A/427/387), but the final correction described in
* section A.6.1 (page 28 of 2004A&A...427..387F) has been made source
* catalogue specific, and on average about halved, after comparison of
* QORG to subsequent SDSS findings showed we had excluded too many objects.
C=============================================================================
C Loading file 'arxa.dat' ! The atlas of Radio/X-ray associations
C Format for file interpretation
1 format(
+ I2,I2,F4.1,A1,I2,I2,I2,2X,A24,1X,A3,1X,F4.1,1X,F4.1,1X,A3,A1,
+ 1X,A1,1X,F6.3,1X,A2,1X,A2,1X,I3,I3,I3,I3,1X,A21,1X,A21,1X,A21,
+ 1X,A21,1X,A21,1X,A21,1X,A21,1X,A21,1X,A21,1X,A21)
C Effective file loading
open(unit=1,status='old',file=
+'arxa.dat')
write(6,*) '....Loading file: arxa.dat'
do i__=1,602570
read(1,'(A308)')ar__
read(ar__,1)
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),Name(i__),Cl(i__),Rmag(i__),Bmag(i__),opt(i__),
+ R(i__),B(i__),z(i__),r_Name(i__),r_z(i__),pr_Q(i__),pr_G(i__),
+ pr__(i__),perr(i__),NVSS(i__),FSid(i__),XMM(i__),RASS(i__),
+ PSPC(i__),WGA(i__),HRI(i__),Chandra(i__),lobe1(i__),lobe2(i__)
if(ar__(47:50) .EQ. '') Rmag(i__) = rNULL__
if(ar__(52:55) .EQ. '') Bmag(i__) = rNULL__
if(ar__(64:69) .EQ. '') z(i__) = rNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),Name(i__),Cl(i__),Rmag(i__),Bmag(i__),opt(i__),
+ R(i__),B(i__),z(i__),r_Name(i__),r_z(i__),pr_Q(i__),pr_G(i__),
+ pr__(i__),perr(i__),NVSS(i__),FSid(i__),XMM(i__),RASS(i__),
+ PSPC(i__),WGA(i__),HRI(i__),Chandra(i__),lobe1(i__),lobe2(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end