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-Apr-23 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 ! Abell Cluster number (Cat. VII/110) integer*4 RAh ! (h) Right ascension (B1950) integer*4 RAm ! (min) Right ascension (B1950) real*4 RAs ! (s) Right ascension (B1950) character*1 DE_ ! Declination sign (B1950) integer*4 DEd ! (deg) Declination (B1950) integer*4 DEm ! (arcmin) Declination (B1950) integer*4 DEs ! (arcsec) Declination (B1950) real*8 RAdeg ! (deg) Centroid of the VTP detection right ascension * (J2000) real*8 DEdeg ! (deg) Centroid of the VTP detection declination (J2000) character*15 Class ! Classification character*84 Comm ! 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 ! [GL*c ] Notes (1) integer*4 ACO_1 ! Abell Cluster number (Cat. VII/110) character*1 m_ACO ! [ab] Multiplicity index on ACO character*1 n_ACO ! [*] Individual notes (2) real*8 RAdeg_1 ! (deg) X-ray right ascension (J2000) real*8 DEdeg_1 ! (deg) X-ray declination (J2000) real*4 NH ! (10+20cm-2) Hydrogen column density (3) integer*4 ExpTime ! (s) RASS exposure time (accumulated) real*4 CRvtp ! (s-1) PSPC count rate in PHA channels 11 to 235 * originally detected by VTP real*4 Rvtp ! (arcmin) Equivalent radius sqrt(A_VTP_/{pi}) of the * source detected by VTP real*4 CR ! (s-1) Final PSCP count rate real*4 e_CR ! (s-1) rms uncertainty on CR real*4 kT ! (keV) ICM gas temperature character*1 n_kT ! [e] e: temperature estimated from the * LX-kT relation real*4 z ! ? Redshift character*1 n_z ! [ep] e: redshift estimated from the magnitude * of the 10th-ranked cluster galaxy integer*4 r_z ! ? Reference for redshift, in refs.dat file real*4 FX ! (10-15W/m2) Unabsorbed X-ray energy flux in the * 0.1 to 2.4keV band (rest frame) real*4 LX ! (10+37W) Intrinsic X-ray luminosity in the * 0.1 to 2.4keV band real*4 Fxu ! (10-15W/m2) Unabsorbed energy flux in the 2-10keV band integer*4 RA1h ! (h) Right ascension (B1950) integer*4 RA1m ! (min) Right ascension (B1950) real*4 RA1s ! (s) Right ascension (B1950) character*1 DE1_ ! Declination sign (B1950) integer*4 DE1d ! (deg) Declination (B1950) integer*4 DE1m ! (arcmin) Declination (B1950) integer*4 DE1s ! (arcsec) Declination (B1950) integer*4 RAh_1 ! (h) Right ascension (J2000) integer*4 RAm_1 ! (min) Right ascension (J2000) real*4 RAs_1 ! (s) Right ascension (J2000) character*1 DE__1 ! Declination sign (J2000) integer*4 DEd_1 ! (deg) Declination (J2000) integer*4 DEm_1 ! (arcmin) Declination (J2000) integer*4 DEs_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 ! Reference number character*19 BibCode ! BibCode character*28 Aut ! Author's names character*114 Com ! 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,RAh,RAm,RAs,DE_,DEd,DEm,DEs,RAdeg,DEdeg,Class,Comm c ..............Just test output........... write(6,1) + ACO,RAh,RAm,RAs,DE_,DEd,DEm,DEs,RAdeg,DEdeg,Class,Comm 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,ACO_1,m_ACO,n_ACO,RAdeg_1,DEdeg_1,NH,ExpTime,CRvtp,Rvtp, + CR,e_CR,kT,n_kT,z,n_z,r_z,FX,LX,Fxu,RA1h,RA1m,RA1s,DE1_,DE1d, + DE1m,DE1s,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1 if(ar__1(66:70) .EQ. '') z = rNULL__ if(ar__1(72:74) .EQ. '') r_z = iNULL__ c ..............Just test output........... write(6,2) + Notes,ACO_1,m_ACO,n_ACO,RAdeg_1,DEdeg_1,NH,ExpTime,CRvtp,Rvtp, + CR,e_CR,kT,n_kT,z,n_z,r_z,FX,LX,Fxu,RA1h,RA1m,RA1s,DE1_,DE1d, + DE1m,DE1s,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1 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,BibCode,Aut,Com c ..............Just test output........... write(6,3)Ref,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end