Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/289/263 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.
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.5, on 2013-May-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__ ter (rNULL__=-1.e37) ! NULL real number parameter (iNULL__=-2147483647) ! NULL int number C============================================================================= Cat. J/MNRAS/289/263 Galaxy clusters from the APM galaxy survey (Dalton+ 1997) *================================================================================ *The APM galaxy survey - V. Catalogues of galaxy clusters. * Dalton G.B., Maddox S.J., Sutherland W.J., Efstahiou G. * <Mon. Not. R. Astron. Soc. 289, 263 (1997)> * =1997MNRAS.289..263D (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog' ! The APM cluster catalogue integer*4 nr__ parameter (nr__=957) ! Number of records character*57 ar__ ! Full-size record real*8 RA_ ! (deg) Right Ascension 1950 real*8 Dec ! (deg) Declination 1950 integer*4 Cluster ! Cluster number integer*4 RAh ! (h) Right ascension (1950) integer*4 RAm ! (min) Right ascension (1950) real*4 RAs ! (s) Right ascension (1950) character*1 DE_ ! Declination sign integer*4 DEd ! (deg) Declination (1950) integer*4 DEm ! (arcmin) Declination (1950) integer*4 DEs ! (arcsec) Declination (1950) real*4 Xmag ! (mag) X magnitude (1) real*4 rC ! (arcmin) Projected radius real*4 z ! Estimated redshift determined from Xmag real*4 R ! Cluster richness character*1 n_R ! [abc] Notes (2) real*4 zabs ! ? Absorption redshift character*5 n_zabs ! [12345+, ] Notes (3) *Note (1): We define Xmag to be the magnitude for which C_i_=X, i.e. in the case * of X=10 with no weighting then Xmag is exactly equivalent to Abell's * m_10_. (C_i_ is the weighted sum of galaxies brighter than m_i_ * minus the expected background count brighter than m_i_.) *Note (2): a: This cluster is close to a bright star which has been excised from * the galaxy catalogue. A part of the cluster area is therefore * missing from the survey data and so the richness may have been * underestimated. * b: The field of this cluster includes a 2-arcmin foreground galaxy * 0.7r_C_ from the centre which has been broken up into several * small galaxian images by the APM software. These additional * objects may have caused the richness to be slightly overestimated. * c: This field is dominated by a 2-arcmin foreground galaxy which has * been broken up into several small galaxian images by the APM * software. The field does not appear to contain a true cluster. The * cluster was below the richness threshold used by Dalton et al. * (1994MNRAS.271L..47D) and was not visually inspected at the time * of those observations. *Note (3): 1: Redshift from Paper IV, Dalton et al., 1994, Cat. <J/MNRAS/269/151> * 2: Redshift measured by Dalton et al. (1994MNRAS.271L..47D). Note that * this survey was limited to Xmag <=19.2 * 3: Redshift measured as part of the deep extension to the APM cluster * redshift survey (Croft et al., 1997, MNRAS, in press) * 4: Cluster found in the Edinburgh-Milano Cluster Redshift Surcey * (Collins et al., 1995, Cat. <J/MNRAS/274/1071>). If only one * references is present then the redshift is adopted from this * source, otherwise this entry indicates that the cluster is also * found in that survey. * 5: Cluster redshift has been drawn from Las Campanas Redshifdt Survey * (LCRS: Schectman et al., 1996ApJ...470..172S. Cat. <VII/203>) * +: For the cluster APM 100, we have adopted the value given by * Collins et al. (1995, Cat. <J/MNRAS/274/1071>) as they point out * this is in better agreement with the maximum likelihood redshift * estimate quoted in Paper IV (Cat. <J/MNRAS/269/151>) than our * single galaxy redshift. C============================================================================= C Loading file 'catalog' ! The APM cluster catalogue C Format for file interpretation 1 format( + I3,1X,I2,I2,F4.1,1X,A1,I2,I2,I2,1X,F5.2,1X,F4.1,1X,F5.3,1X, + F5.1,A1,1X,F5.3,1X,A5) C Effective file loading open(unit=1,file='catalog', status='old') write(6,*) '....Loading file: catalog' do i__=1,957 read(1,'(A57)')ar__ read(ar__,1) + Cluster,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xmag,rC,z,R,n_R,zabs, + n_zabs if(ar__(46:50) .EQ. '') zabs = rNULL__ c Derive coordinates RA_ and Dec from input data c (RA_ and Dec are set to rNULL_ when unknown) RA_ = RAh if(RAh .GE. 0) RA_=RAh*15. if(RAm .GE. 0) RA_=RA_+RAm/4. if(RAs .GE. 0) RA_=RA_+RAs/240. Dec = DEd if(DEm .GE. 0) Dec=Dec+DEm/60. if(DEs .GE. 0) Dec=Dec+DEs/3600. if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec c ..............Just test output........... write(6,1) + Cluster,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xmag,rC,z,R,n_R,zabs, + n_zabs write(6,'(6H Pos: 2F8.4)') RA_,Dec c .......End.of.Just test output........... end do close(1) C============================================================================= stop end