Conversion of standardized ReadMe file for
file /./ftp/cats/VII/165A 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-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__ parameter (rNULL__=--2147483648.) ! NULL real number parameter (iNULL__=(-2147483647-1)) ! NULL int number integer idig ! testing NULL number C============================================================================= Cat. VII/165A Measured Redshifts of Abell Clusters of Galaxies (Andernach 1991) *================================================================================ *A Catalogue of Measured Redshifts of Abell Clusters of Galaxies * Andernach H. * <ASP Conf. Ser. 15, 279 (1991)> * =1991lssp.conf..279A * =1996yCat.7165....0A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! Measured redshifts of Abell clusters of galaxies integer*4 nr__ parameter (nr__=1059) ! Number of records character*46 ar__ ! Full-size record C B1950 position composed of: RAh DE- DEd DEm real*8 RAdeg (nr__) ! (deg) Right Ascension B1950 real*8 DEdeg (nr__) ! (deg) Declination B1950 C ---------------------------------- ! (position vector(s) in degrees) character*1 Prefix (nr__) ! *[AS] prefix for the cluster name integer*4 IDnum (nr__) ! [1,4076] numbering part of the cluster * name character*1 m_IDnum (nr__) ! [=ABCNS] suffix for the cluster name integer*4 RAh (nr__) ! (h) *[0,24[+= right ascension (hours) (B1950) integer*4 RAdm (nr__) ! (0.1min) *[0,600[ right ascension (0.1minutes) character*1 DE_ (nr__) ! declination sign integer*4 DEd (nr__) ! (deg) *declination (degrees) (B1950) integer*4 DEm (nr__) ! (arcmin) *declination (minutes) integer*4 Rich (nr__) ! [0,5] Abell richness class integer*4 Dist (nr__) ! [0,7] Abell distance class integer*4 BM (nr__) ! [1,5]? Bautz-Morgan class character*1 q_BM (nr__) ! [:?] quality code of BM, as of ACO integer*4 m10 (nr__) ! (0.1mag) magnitude of 10th brightest cluster member character*1 q_z (nr__) ! *[:*!?f] quality code of redshift integer*4 z (nr__) ! (10-4) [0,] cluster redshift character*1 r_z (nr__) ! [A-Za-z]! reference code in "refs.dat" integer*4 Arad (nr__) ! (0.1arcmin) [0,] Abell radius (=3 Mpc/Ho/50), using * qo=0.10 real*4 log_Zm_Ze (nr__) ! ([---]) The ratio between measured and estimated z *Note on Prefix: * 'A' for rich clusters, * 'S' for ACO extension of poor or distant clusters. *Note on RAh, RAdm, DEd, DEm: * Right ascension and declination of the cluster center, as of ACO *Note on q_z: * A blank quality indicates a z measured and within factor 2 of the * m10-estimate. * : = z measured and within factor 2 to 4 of the m10-estimate. * * = z measured but outside the above range. Likely due to foreground or * background object (rejected for m10-z relation) * ! = listed redshift is average of very discordant ones, indicating * possible line-of-sight projection of clusters * (not used for m10-z relation) * ? = listed redshift is single peripheral object, concordant within * factor of 2 from estimate (not used for m10-z relation) * f = cluster is known from published notes to have foreground galaxies. * Listed redshift likely due to these objects. * (rejected for m10-z relation) * See also the "expl.txt" file. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=45) ! Number of records character*74 ar__1 ! Full-size record character*1 Ref (nr__1) ! Reference code character*19 BibCode (nr__1) ! 19-digit reference code character*52 Text (nr__1) ! Original text of reference C============================================================================= C Loading file 'catalog.dat' ! Measured redshifts of Abell clusters of galaxies C Format for file interpretation 1 format( + 1X,A1,I4,A1,I2,I3,A1,I2,I2,1X,I1,I1,I1,A1,1X,I3,A1,I4,A1,3X, + I4,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,1059 read(1,'(A46)')ar__ read(ar__,1) + Prefix(i__),IDnum(i__),m_IDnum(i__),RAh(i__),RAdm(i__), + DE_(i__),DEd(i__),DEm(i__),Rich(i__),Dist(i__),BM(i__), + q_BM(i__),m10(i__),q_z(i__),z(i__),r_z(i__),Arad(i__), + log_Zm_Ze(i__) if(ar__(21:21) .EQ. '') BM(i__) = iNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + Prefix(i__),IDnum(i__),m_IDnum(i__),RAh(i__),RAdm(i__), + DE_(i__),DEd(i__),DEm(i__),Rich(i__),Dist(i__),BM(i__), + q_BM(i__),m10(i__),q_z(i__),z(i__),r_z(i__),Arad(i__), + log_Zm_Ze(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(A1,1X,A19,1X,A52) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,45 read(1,'(A74)')ar__1 read(ar__1,2)Ref(i__),BibCode(i__),Text(i__) c ..............Just test output........... write(6,2)Ref(i__),BibCode(i__),Text(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end