Conversion of standardized ReadMe file for
catalog 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-19
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. J/MNRAS/281/799 XBACs, the sample (Ebeling+, 1996)
*================================================================================
*Properties of the X-ray-brightest Abell-type clusters of galaxies (XBACs)
*from ROSAT All-Sky Survey Data - I. The sample.
* Ebeling H., Voges W., Bohringer H., Edge A.C., Huchra J.P., Briel U.G.
* <Mon. Not. R. Astron. Soc. 281, 799 + Erratum vol. 283, p. 1103 (1996)>
* =1996MNRAS.281..799E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! *Excluded sources
integer*4 nr__
parameter (nr__=37) ! Number of records
character*142 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ACO (nr__) ! Abell Cluster number (Cat. VII/110)
integer*4 RAh (nr__) ! (h) Right ascension (B1950)
integer*4 RAm (nr__) ! (min) Right ascension (B1950)
real*4 RAs (nr__) ! (s) Right ascension (B1950)
character*1 DE_ (nr__) ! Declination sign (B1950)
integer*4 DEd (nr__) ! (deg) Declination (B1950)
integer*4 DEm (nr__) ! (arcmin) Declination (B1950)
integer*4 DEs (nr__) ! (arcsec) Declination (B1950)
real*8 RAdeg (nr__) ! (deg) Centroid of the VTP detection right ascension
* (J2000)
real*8 DEdeg (nr__) ! (deg) Centroid of the VTP detection declination (J2000)
character*15 Class (nr__) ! Classification
character*84 Comm (nr__) ! Comments (1)
*Note (1): For A2147, object B1601+1602 not identified
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table34.dat' ! The sample of the 283 X-ray-brightest Abell-type
clusters
integer*4 nr__1
parameter (nr__1=283) ! Number of records
character*124 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*4 Notes (nr__1) ! [GL*c ] Notes (1)
integer*4 ACO_1 (nr__1) ! Abell Cluster number (Cat. VII/110)
character*1 m_ACO (nr__1) ! [ab] Multiplicity index on ACO
character*1 n_ACO (nr__1) ! [*] Individual notes (2)
real*8 RAdeg_1 (nr__1) ! (deg) X-ray right ascension (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) X-ray declination (J2000)
real*4 NH (nr__1) ! (10+20cm-2) Hydrogen column density (3)
integer*4 ExpTime (nr__1) ! (s) RASS exposure time (accumulated)
real*4 CRvtp (nr__1) ! (s-1) PSPC count rate in PHA channels 11 to 235
* originally detected by VTP
real*4 Rvtp (nr__1) ! (arcmin) Equivalent radius sqrt(A_VTP_/{pi}) of the
* source detected by VTP
real*4 CR (nr__1) ! (s-1) Final PSCP count rate
real*4 e_CR (nr__1) ! (s-1) rms uncertainty on CR
real*4 kT (nr__1) ! (keV) ICM gas temperature
character*1 n_kT (nr__1) ! [e] e: temperature estimated from the
* LX-kT relation
real*4 z (nr__1) ! ? Redshift
character*1 n_z (nr__1) ! [ep] e: redshift estimated from the magnitude
* of the 10th-ranked cluster galaxy
integer*4 r_z (nr__1) ! ? Reference for redshift, in refs.dat file
real*4 FX (nr__1) ! (10-15W/m2) Unabsorbed X-ray energy flux in the
* 0.1 to 2.4keV band (rest frame)
real*4 LX (nr__1) ! (10+37W) Intrinsic X-ray luminosity in the
* 0.1 to 2.4keV band
real*4 Fxu (nr__1) ! (10-15W/m2) Unabsorbed energy flux in the 2-10keV band
integer*4 RA1h (nr__1) ! (h) Right ascension (B1950)
integer*4 RA1m (nr__1) ! (min) Right ascension (B1950)
real*4 RA1s (nr__1) ! (s) Right ascension (B1950)
character*1 DE1_ (nr__1) ! Declination sign (B1950)
integer*4 DE1d (nr__1) ! (deg) Declination (B1950)
integer*4 DE1m (nr__1) ! (arcmin) Declination (B1950)
integer*4 DE1s (nr__1) ! (arcsec) Declination (B1950)
integer*4 RAh_1 (nr__1) ! (h) Right ascension (J2000)
integer*4 RAm_1 (nr__1) ! (min) Right ascension (J2000)
real*4 RAs_1 (nr__1) ! (s) Right ascension (J2000)
character*1 DE__1 (nr__1) ! Declination sign (J2000)
integer*4 DEd_1 (nr__1) ! (deg) Declination (J2000)
integer*4 DEm_1 (nr__1) ! (arcmin) Declination (J2000)
integer*4 DEs_1 (nr__1) ! (arcsec) Declination (J2000)
*Note (1): Notes:
* G: |b^2^|<20{deg}; "Galactic plane"
* L: 20{deg}<=|b^2^|<30{deg}; low galactic latitude
* *: z_cluster_>0.2, not member of our statistical sample
* c: significant fraction of quoted flux may come from embedded point sources
*Note (2): Individual notes:
* A 750 : resolved into two sources in the EMSS; point source
* (AGN contributes ~30 per cent of the flux)
* A 780 : Hydra A
* A2572a: HCG 94 (Ebeling et al., 1995MNRAS.275.1155E)
* A2572b: probably a superposition of two clusters at z~0.04 and z~0.15
* (Ebeling et al., 1995MNRAS.275.1155E)
* A3869 : probably an APM cluster rather than the very X-ray faint
* ACO cluster at z~0.04
*Note (3): Data from Stark et al. (1992, Cat. <J/ApJS/79/77>) for DE>=-40{deg}
* and Dickey & Lockman (1990ARA&A..28..215) for the remainder of the sky
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! Redshift references
integer*4 nr__2
parameter (nr__2=48) ! Number of records
character*167 ar__2 ! Full-size record
integer*4 Ref (nr__2) ! Reference number
character*19 BibCode (nr__2) ! BibCode
character*28 Aut (nr__2) ! Author's names
character*114 Com (nr__2) ! Comments
C=============================================================================
C Loading file 'table2.dat' ! *Excluded sources
C Format for file interpretation
1 format(
+ 1X,I4,1X,I2,I2,F4.1,A1,I2,I2,I2,2X,F8.4,1X,F8.4,2X,A15,1X,A84)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,37
read(1,'(A142)')ar__
read(ar__,1)
+ ACO(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),RAdeg(i__),DEdeg(i__),Class(i__),Comm(i__)
c ..............Just test output...........
write(6,1)
+ ACO(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),RAdeg(i__),DEdeg(i__),Class(i__),Comm(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table34.dat' ! The sample of the 283 X-ray-brightest Abell-type
* clusters
C Format for file interpretation
2 format(
+ A4,2X,I4,A1,A1,1X,F7.3,F7.3,1X,F4.1,1X,I4,1X,F5.2,1X,F4.1,1X,
+ F5.2,1X,F3.2,1X,F4.1,A1,1X,F5.4,A1,I3,1X,F5.1,1X,F5.2,1X,F5.1,
+ 1X,I2,I2,F4.1,A1,I2,I2,I2,1X,I2,I2,F4.1,A1,I2,I2,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table34.dat')
write(6,*) '....Loading file: table34.dat'
do i__=1,283
read(1,'(A124)')ar__1
read(ar__1,2)
+ Notes(i__),ACO_1(i__),m_ACO(i__),n_ACO(i__),RAdeg_1(i__),
+ DEdeg_1(i__),NH(i__),ExpTime(i__),CRvtp(i__),Rvtp(i__),
+ CR(i__),e_CR(i__),kT(i__),n_kT(i__),z(i__),n_z(i__),r_z(i__),
+ FX(i__),LX(i__),Fxu(i__),RA1h(i__),RA1m(i__),RA1s(i__),
+ DE1_(i__),DE1d(i__),DE1m(i__),DE1s(i__),RAh_1(i__),RAm_1(i__),
+ RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__)
if(ar__1(66:70) .EQ. '') z(i__) = rNULL__
if(ar__1(72:74) .EQ. '') r_z(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ Notes(i__),ACO_1(i__),m_ACO(i__),n_ACO(i__),RAdeg_1(i__),
+ DEdeg_1(i__),NH(i__),ExpTime(i__),CRvtp(i__),Rvtp(i__),
+ CR(i__),e_CR(i__),kT(i__),n_kT(i__),z(i__),n_z(i__),r_z(i__),
+ FX(i__),LX(i__),Fxu(i__),RA1h(i__),RA1m(i__),RA1s(i__),
+ DE1_(i__),DE1d(i__),DE1m(i__),DE1s(i__),RAh_1(i__),RAm_1(i__),
+ RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! Redshift references
C Format for file interpretation
3 format(I2,1X,A19,1X,A28,1X,A114)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,48
read(1,'(A167)')ar__2
read(ar__2,3)Ref(i__),BibCode(i__),Aut(i__),Com(i__)
c ..............Just test output...........
write(6,3)Ref(i__),BibCode(i__),Aut(i__),Com(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end