Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/137/3942 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 2026-Sep-06
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/137/3942 Fossil galaxy groups (La Barbera+, 2009)
*================================================================================
*The nature of fossil galaxy groups: are they really fossils?
* La Barbera F., De Carvalho R.R., De La Rosa I.G., Sorrentino G., Gal R.R.,
* Kohl-moreira J.L.
* <Astron. J., 137, 3942-3960 (2009)>
* =2009AJ....137.3942L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Properties of fossil group (FG) and
field galaxies (FS) galaxies
integer*4 nr__
parameter (nr__=46) ! Number of records
character*124 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq (nr__) ! Sequential number, [LDD2009] NN in Simbad
real*8 RAdeg (nr__) ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 z (nr__) ! SDSS-DR4 spectroscopic redshift
real*8 rMAG (nr__) ! (mag) r band absolute magnitude of the first-rank
* galaxy (z=0.1 k-corrected)
real*4 DM (nr__) ! (mag) Magnitude gap of the fossil group, {Delta}M
real*4 g_r (nr__) ! (mag) g-r colour index (z=0.1 k-corrected)) (1)
real*4 dN (nr__) ! Density excess around each galaxy, {delta}N
real*4 gReff (nr__) ! (arcsec) Effective radii in g band
real*4 rReff (nr__) ! (arcsec) Effective radii in r band
real*4 ng (nr__) ! Sersic index in g band
real*4 nr (nr__) ! Sersic index in r band
real*4 a4 (nr__) ! (%) a_4_ parameter (describes boxy/disky departures
* from elliptical shape)
real*4 n_g_r (nr__) ! (mag) Internal color gradient, {nabla}(g-r) (mag/dex)
real*4 logLX (nr__) ! ([10+37W]) X-ray luminosity
real*4 dCM (nr__) ! Distance of the galaxy to the red sequence,
* {delta}CM (3)
real*4 log_sig (nr__) ! ([km/s]) Velocity dispersion
real*4 logAge (nr__) ! ([yr]) Age
real*4 v_Z_H_ (nr__) ! ([Sun]) Metallicity
real*4 v_a_Fe_ (nr__) ! Abundance of {alpha}-elements [{alpha}/Fe]
character*1 Flag (nr__) ! [0/2] Pecularities, 1=fossil group (2)
*Note (1): For field galaxies, the values of DM have been randomly assigned.
*Note (2): Flag as follows:
* 1 = fossil groups (FG) with extended X-ray contours
* 2 = field galaxies
* 0 = fossil group (FG) candidates that are not in the final FG sample
* because they do not fulfill the X-ray extension criterion
*Note (3): color distance normalized to the scatter of the red sequence;
* (see section 6 of paper)
C=============================================================================
C Loading file 'table2.dat' ! Properties of fossil group (FG) and
* field galaxies (FS) galaxies
C Format for file interpretation
1 format(
+ I2,1X,F9.5,1X,F8.4,1X,F5.3,1X,F7.3,1X,F4.2,1X,F5.3,1X,F4.1,1X,
+ F6.2,1X,F6.2,1X,F4.1,1X,F4.1,1X,F6.3,F6.3,1X,F5.2,1X,F6.3,1X,
+ F5.3,1X,F3.1,1X,F5.2,1X,F4.2,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,46
read(1,'(A124)')ar__
read(ar__,1)
+ Seq(i__),RAdeg(i__),DEdeg(i__),z(i__),rMAG(i__),DM(i__),
+ g_r(i__),dN(i__),gReff(i__),rReff(i__),ng(i__),nr(i__),
+ a4(i__),n_g_r(i__),logLX(i__),dCM(i__),log_sig(i__),
+ logAge(i__),v_Z_H_(i__),v_a_Fe_(i__),Flag(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),RAdeg(i__),DEdeg(i__),z(i__),rMAG(i__),DM(i__),
+ g_r(i__),dN(i__),gReff(i__),rReff(i__),ng(i__),nr(i__),
+ a4(i__),n_g_r(i__),logLX(i__),dCM(i__),log_sig(i__),
+ logAge(i__),v_Z_H_(i__),v_a_Fe_(i__),Flag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end