Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/154/96 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-Mar-28 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/AJ/154/96 Groups of galaxies from from SDSS-DR7 (de Carvalho+, 2017) *================================================================================ *Investigating the relation between galaxy properties and the Gaussianity of the *velocity distribution of groups and clusters. * de Carvalho R.R., Ribeiro A.L.B., Stalder D.H., Rosa R.R., Costa A.P., * Moura T.C. * <Astron. J., 154, 96-96 (2017)> * =2017AJ....154...96D (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Group sample integer*4 nr__ parameter (nr__=319) ! Number of records character*49 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Yang ! [2/665] Identification number of the galaxy * group in Yang et al. 2007ApJ...671..153Y real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) real*4 v_z_ ! [0.03/0.1] Mean redshift of the group (1) real*4 logM200 ! ([Msun]) [13.3/15.8] Log of dynamical mass (M_200_) (2) real*4 R200 ! (Mpc) [0.45/2.73] Virial radius (R_200_) (2) integer*4 N200 ! [20/525] Number of member galaxies within * R_200_, down to the limiting magnitude of the * catalog, N_R200_ (3) character*1 BAX ! [NY] Group having X-ray counterparts in BAX * (http://bax.ast.obs-mip.fr/) (4) character*1 N_R ! [NY] Group having X-ray counterparts in NORAS * and/or REFLEX (5) *Note (1): As measured with the shift-gapper technique. *Note (2): As obtained through the shift-gapper algorithm and dynamical analysis. *Note (3): Only systems richer than 20 galaxies (within R_200_) are used in this * work (see Section 3.1 for more details on why we choose this lower limit). *Note (4): BAX is an online research database containing information on all * galaxy clusters with X-ray observations to date. *Note (5): NORAS (Northern ROSAT All-Sky; Bohringer et al. 2000, * Cat. J/ApJS/129/435), and REFLEX (ROSAT-ESO Flux-limited X-ray; Bohringer * et al. 2004, Cat. J/A+A/425/367). C============================================================================= C Loading file 'table1.dat' ! Group sample C Format for file interpretation 1 format( + I6,1X,F8.4,1X,F8.4,1X,F5.3,1X,F5.2,1X,F4.2,1X,I3,1X,A1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,319 read(1,'(A49)')ar__ read(ar__,1)Yang,RAdeg,DEdeg,v_z_,logM200,R200,N200,BAX,N_R c ..............Just test output........... write(6,1)Yang,RAdeg,DEdeg,v_z_,logM200,R200,N200,BAX,N_R c .......End.of.Just test output........... end do close(1) C============================================================================= stop end