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.
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