Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/534/A109 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/A+A/534/A109 MCXC Meta-Catalogue X-ray galaxy Clusters (Piffaretti+, 2011) *================================================================================ *The MCXC: a Meta-Catalogue of X-ray detected Clusters of galaxies. * Piffaretti R., Arnaud M., Pratt G.W., Pointecouteau E., Melin J.-B. * <Astron. Astrophys. 534, A109 (2011)> * =2011A&A...534A.109P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'mcxc.dat' ! MCXC catalogue (table2 of the paper) integer*4 nr__ parameter (nr__=1743) ! Number of records character*323 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*12 MCXC (nr__) ! MCXC name (JHHMM.m+DDMM) character*18 OName (nr__) ! Other name character*54 AName (nr__) ! Alternative name integer*4 RAh (nr__) ! (h) Right ascension (J2000) integer*4 RAm (nr__) ! (min) Right ascension (J2000) real*4 RAs (nr__) ! (s) Right ascension (J2000) character*1 DE_ (nr__) ! Declination sign (J2000) integer*4 DEd (nr__) ! (deg) Declination (J2000) integer*4 DEm (nr__) ! (arcmin) Declination (J2000) integer*4 DEs (nr__) ! (arcsec) [0/60] Declination (J2000) real*8 RAdeg (nr__) ! (deg) Right ascension (J2000) real*8 DEdeg (nr__) ! (deg) Declination (J2000) real*8 GLON (nr__) ! (deg) Galactic longitude real*8 GLAT (nr__) ! (deg) Galactic latitude real*4 z (nr__) ! Redshift character*12 Cat (nr__) ! Catalogue name character*12 Sub_Cat (nr__) ! Sub-catalogue name real*4 Scale (nr__) ! (kpc/arcsec) Scale real*8 L500 (nr__) ! (10+37W) X-ray luminosity in 10^44^erg/s (1) real*8 M500 (nr__) ! (10+14Msun) Total mass (1) real*8 R500 (nr__) ! (Mpc) Characteristic radius (1) character*42 Notes (nr__) ! Notes (losStr = line of sight structure) character*12 Cat1 (nr__) ! First overlapped catalog character*12 Cat2 (nr__) ! Second overlapped catalog character*12 Cat3 (nr__) ! Third overlapped catalog character*12 Cat4 (nr__) ! Fourth overlapped catalog real*4 L500r1 (nr__) ! ? Luminosity ratio L_500_/L_(500,MCXC)_ * for first catalogue overlapped real*4 L500r2 (nr__) ! ? Luminosity ratio L_500_/L_(500,MCXC)_ * for second catalogue overlapped real*4 L500r3 (nr__) ! ? Luminosity ratio L_500_/L_(500,MCXC)_ * for third catalogue overlapped real*4 L500r4 (nr__) ! ? Luminosity ratio L_500_/L_(500,MCXC)_ * for fourth catalogue overlapped *Note (1): the quantities are: * * R500 is the radius within which the mean over-density of the cluster * is 500 times the critical density at the cluster redshift. * * L500 = a*Ltot, where a is the ratio L500/Ltot for a luminosity profile * model based in the average gas density profile derived from the * representative X-ray cluster sample REXCESS (2009A&A...498..361P) * * M500 = 4/3{pi}*(R500)^3^*500{rho}_c_(z), where {rho}_c_(z) is the * critical density ({rho}_c_(z)=3H(z)^2^). C============================================================================= C Loading file 'mcxc.dat' ! MCXC catalogue (table2 of the paper) C Format for file interpretation 1 format( + A12,1X,A18,1X,A54,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X, + F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F6.4,1X,A12,1X,A12,1X,F5.3,1X, + F9.6,1X,F7.4,1X,F7.4,1X,A42,1X,A12,1X,A12,1X,A12,1X,A12,1X, + F5.3,1X,F5.3,1X,F5.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'mcxc.dat') write(6,*) '....Loading file: mcxc.dat' do i__=1,1743 read(1,'(A323)')ar__ read(ar__,1) + MCXC(i__),OName(i__),AName(i__),RAh(i__),RAm(i__),RAs(i__), + DE_(i__),DEd(i__),DEm(i__),DEs(i__),RAdeg(i__),DEdeg(i__), + GLON(i__),GLAT(i__),z(i__),Cat(i__),Sub_Cat(i__),Scale(i__), + L500(i__),M500(i__),R500(i__),Notes(i__),Cat1(i__),Cat2(i__), + Cat3(i__),Cat4(i__),L500r1(i__),L500r2(i__),L500r3(i__), + L500r4(i__) if(ar__(301:305) .EQ. '') L500r1(i__) = rNULL__ if(ar__(307:311) .EQ. '') L500r2(i__) = rNULL__ if(ar__(313:317) .EQ. '') L500r3(i__) = rNULL__ if(ar__(319:323) .EQ. '') L500r4(i__) = rNULL__ c ..............Just test output........... write(6,1) + MCXC(i__),OName(i__),AName(i__),RAh(i__),RAm(i__),RAs(i__), + DE_(i__),DEd(i__),DEm(i__),DEs(i__),RAdeg(i__),DEdeg(i__), + GLON(i__),GLAT(i__),z(i__),Cat(i__),Sub_Cat(i__),Scale(i__), + L500(i__),M500(i__),R500(i__),Notes(i__),Cat1(i__),Cat2(i__), + Cat3(i__),Cat4(i__),L500r1(i__),L500r2(i__),L500r3(i__), + L500r4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end