Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/514/A102 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-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. J/A+A/514/A102 SDSS DR7 groups of galaxies (Tago+, 2010)
*================================================================================
*Groups of galaxies in the SDSS Data Release 7. Flux- and volume-limited samples.
* Tago E., Saar E., Tempel E., Einasto J., Einasto M., Nurmi P., Heinamaki P.
* <Astron. Astrophys. 514, A102 (2010)>
* =2010A&A...514A.102T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2a.dat' ! DR7 flux-limited groups
integer*4 nr__
parameter (nr__=78800) ! Number of records
character*104 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Group ! Group identification number
integer*4 Ngal ! Richness (number of member galaxies)
real*8 RAdeg ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size ! (Mpc) Maximum projected linear size (G1)
real*8 dispD ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV ! (km/s) rms radial velocity
real*8 Rvir ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w ! Luminosity weight
real*8 Lobs ! (10+10Lsun) Observed total group luminosity (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2b.dat' ! DR7 flux-limited Mr < -18 groups
integer*4 nr__1
parameter (nr__1=5463) ! Number of records
character*104 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Group_1 ! Group identification number
integer*4 Ngal_1 ! Richness (number of member galaxies)
real*8 RAdeg_1 ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_1 ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_1 ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_1 ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_1 ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_1 ! (km/s) rms radial velocity
real*8 Rvir_1 ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_1 ! Luminosity weight
real*8 Lobs_1 ! (10+10Lsun) Observed total group luminosity (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2c.dat' ! DR7 flux-limited Mr < -19 groups
integer*4 nr__2
parameter (nr__2=12590) ! Number of records
character*104 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Group_2 ! Group identification number
integer*4 Ngal_2 ! Richness (number of member galaxies)
real*8 RAdeg_2 ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_2 ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_2 ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_2 ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_2 ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_2 ! (km/s) rms radial velocity
real*8 Rvir_2 ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_2 ! Luminosity weight
real*8 Lobs_2 ! (10+10Lsun) Observed total group luminosity (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2d.dat' ! DR7 flux-limited Mr < -20 groups
integer*4 nr__3
parameter (nr__3=18973) ! Number of records
character*104 ar__3 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Group_3 ! Group identification number
integer*4 Ngal_3 ! Richness (number of member galaxies)
real*8 RAdeg_3 ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_3 ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_3 ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_3 ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_3 ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_3 ! (km/s) rms radial velocity
real*8 Rvir_3 ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_3 ! Luminosity weight
real*8 Lobs_3 ! (10+10Lsun) Observed total group luminosity (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2e.dat' ! DR7 flux-limited Mr < -21 groups
integer*4 nr__4
parameter (nr__4=9139) ! Number of records
character*104 ar__4 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Group_4 ! Group identification number
integer*4 Ngal_4 ! Richness (number of member galaxies)
real*8 RAdeg_4 ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_4 ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_4 ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_4 ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_4 ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_4 ! (km/s) rms radial velocity
real*8 Rvir_4 ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_4 ! Luminosity weight
real*8 Lobs_4 ! (10+10Lsun) Observed total group luminosity (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2f.dat' ! DR7 flux-limited galaxies
integer*4 nr__5
parameter (nr__5=583362) ! Number of records
character*118 ar__5 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Group_5 ! Group ID number
integer*4 Ngal_5 ! Group richness
real*8 RAdeg_5 ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_5 ! (deg) Declination (J2000.0)
real*8 Dist_5 ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG ! (mag) Absolute u magnitude
real*8 gMAG ! (mag) Absolute g magnitude
real*8 rMAG ! (mag) Absolute r magnitude
real*8 iMAG ! (mag) Absolute i magnitude
real*8 zMAG ! (mag) Absolute z magnitude
real*4 w_5 ! Luminosity weight
real*8 Lr ! (10+10Lsun) Luminosity in r band (10^10^/h^2^)(G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2g.dat' ! DR7 volume-limited Mr < -18 galaxies
integer*4 nr__6
parameter (nr__6=40665) ! Number of records
character*118 ar__6 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Group_6 ! Group ID number
integer*4 Ngal_6 ! Group richness
real*8 RAdeg_6 ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_6 ! (deg) Declination (J2000.0)
real*8 Dist_6 ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_1 ! (mag) Absolute u magnitude
real*8 gMAG_1 ! (mag) Absolute g magnitude
real*8 rMAG_1 ! (mag) Absolute r magnitude
real*8 iMAG_1 ! (mag) Absolute i magnitude
real*8 zMAG_1 ! (mag) Absolute z magnitude
real*4 w_6 ! Luminosity weight
real*8 Lr_1 ! (10+10Lsun) Luminosity in r band (10^10^/h^2^)(G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2h.dat' ! DR7 volume-limited Mr < -19 galaxies
integer*4 nr__7
parameter (nr__7=94912) ! Number of records
character*118 ar__7 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Group_7 ! Group ID number
integer*4 Ngal_7 ! Group richness
real*8 RAdeg_7 ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_7 ! (deg) Declination (J2000.0)
real*8 Dist_7 ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_2 ! (mag) Absolute u magnitude
real*8 gMAG_2 ! (mag) Absolute g magnitude
real*8 rMAG_2 ! (mag) Absolute r magnitude
real*8 iMAG_2 ! (mag) Absolute i magnitude
real*8 zMAG_2 ! (mag) Absolute z magnitude
real*4 w_7 ! Luminosity weight
real*8 Lr_2 ! (10+10Lsun) Luminosity in r band (10^10^/h^2^)(G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2i.dat' ! DR7 volume-limited Mr < -20 galaxies
integer*4 nr__8
parameter (nr__8=148195) ! Number of records
character*118 ar__8 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Group_8 ! Group ID number
integer*4 Ngal_8 ! Group richness
real*8 RAdeg_8 ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_8 ! (deg) Declination (J2000.0)
real*8 Dist_8 ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_3 ! (mag) Absolute u magnitude
real*8 gMAG_3 ! (mag) Absolute g magnitude
real*8 rMAG_3 ! (mag) Absolute r magnitude
real*8 iMAG_3 ! (mag) Absolute i magnitude
real*8 zMAG_3 ! (mag) Absolute z magnitude
real*4 w_8 ! Luminosity weight
real*8 Lr_3 ! (10+10Lsun) Luminosity in r band (10^10^/h^2^)(G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2j.dat' ! DR7 volume-limited Mr < -21 galaxies
integer*4 nr__9
parameter (nr__9=103978) ! Number of records
character*118 ar__9 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 Group_9 ! Group ID number
integer*4 Ngal_9 ! Group richness
real*8 RAdeg_9 ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_9 ! (deg) Declination (J2000.0)
real*8 Dist_9 ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_4 ! (mag) Absolute u magnitude
real*8 gMAG_4 ! (mag) Absolute g magnitude
real*8 rMAG_4 ! (mag) Absolute r magnitude
real*8 iMAG_4 ! (mag) Absolute i magnitude
real*8 zMAG_4 ! (mag) Absolute z magnitude
real*4 w_9 ! Luminosity weight
real*8 Lr_4 ! (10+10Lsun) Luminosity in r band (10^10^/h^2^)(G1)
C=============================================================================
C Loading file 'table2a.dat' ! DR7 flux-limited groups
C Format for file interpretation
1 format(
+ I6,1X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F7.4,1X,F9.6,1X,F9.4,1X,
+ F9.6,1X,F6.3,2X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2a.dat')
write(6,*) '....Loading file: table2a.dat'
do i__=1,78800
read(1,'(A104)')ar__
read(ar__,1)
+ Group,Ngal,RAdeg,DEdeg,Dist,Size,dispD,dispV,Rvir,w,Lobs
c ..............Just test output...........
write(6,1)
+ Group,Ngal,RAdeg,DEdeg,Dist,Size,dispD,dispV,Rvir,w,Lobs
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2b.dat' ! DR7 flux-limited Mr < -18 groups
C Format for file interpretation
2 format(
+ I6,1X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F7.4,1X,F9.6,1X,F9.4,1X,
+ F9.6,1X,F6.3,2X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2b.dat')
write(6,*) '....Loading file: table2b.dat'
do i__=1,5463
read(1,'(A104)')ar__1
read(ar__1,2)
+ Group_1,Ngal_1,RAdeg_1,DEdeg_1,Dist_1,Size_1,dispD_1,dispV_1,
+ Rvir_1,w_1,Lobs_1
c ..............Just test output...........
write(6,2)
+ Group_1,Ngal_1,RAdeg_1,DEdeg_1,Dist_1,Size_1,dispD_1,dispV_1,
+ Rvir_1,w_1,Lobs_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2c.dat' ! DR7 flux-limited Mr < -19 groups
C Format for file interpretation
3 format(
+ I6,1X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F7.4,1X,F9.6,1X,F9.4,1X,
+ F9.6,1X,F6.3,2X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2c.dat')
write(6,*) '....Loading file: table2c.dat'
do i__=1,12590
read(1,'(A104)')ar__2
read(ar__2,3)
+ Group_2,Ngal_2,RAdeg_2,DEdeg_2,Dist_2,Size_2,dispD_2,dispV_2,
+ Rvir_2,w_2,Lobs_2
c ..............Just test output...........
write(6,3)
+ Group_2,Ngal_2,RAdeg_2,DEdeg_2,Dist_2,Size_2,dispD_2,dispV_2,
+ Rvir_2,w_2,Lobs_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2d.dat' ! DR7 flux-limited Mr < -20 groups
C Format for file interpretation
4 format(
+ I6,1X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F7.4,1X,F9.6,1X,F9.4,1X,
+ F9.6,1X,F6.3,2X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2d.dat')
write(6,*) '....Loading file: table2d.dat'
do i__=1,18973
read(1,'(A104)')ar__3
read(ar__3,4)
+ Group_3,Ngal_3,RAdeg_3,DEdeg_3,Dist_3,Size_3,dispD_3,dispV_3,
+ Rvir_3,w_3,Lobs_3
c ..............Just test output...........
write(6,4)
+ Group_3,Ngal_3,RAdeg_3,DEdeg_3,Dist_3,Size_3,dispD_3,dispV_3,
+ Rvir_3,w_3,Lobs_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2e.dat' ! DR7 flux-limited Mr < -21 groups
C Format for file interpretation
5 format(
+ I6,1X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F7.4,1X,F9.6,1X,F9.4,1X,
+ F9.6,1X,F6.3,2X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2e.dat')
write(6,*) '....Loading file: table2e.dat'
do i__=1,9139
read(1,'(A104)')ar__4
read(ar__4,5)
+ Group_4,Ngal_4,RAdeg_4,DEdeg_4,Dist_4,Size_4,dispD_4,dispV_4,
+ Rvir_4,w_4,Lobs_4
c ..............Just test output...........
write(6,5)
+ Group_4,Ngal_4,RAdeg_4,DEdeg_4,Dist_4,Size_4,dispD_4,dispV_4,
+ Rvir_4,w_4,Lobs_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2f.dat' ! DR7 flux-limited galaxies
C Format for file interpretation
6 format(
+ 1X,I6,2X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F6.4,3X,F9.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2f.dat')
write(6,*) '....Loading file: table2f.dat'
do i__=1,583362
read(1,'(A118)')ar__5
read(ar__5,6)
+ Group_5,Ngal_5,RAdeg_5,DEdeg_5,Dist_5,uMAG,gMAG,rMAG,iMAG,
+ zMAG,w_5,Lr
c ..............Just test output...........
write(6,6)
+ Group_5,Ngal_5,RAdeg_5,DEdeg_5,Dist_5,uMAG,gMAG,rMAG,iMAG,
+ zMAG,w_5,Lr
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2g.dat' ! DR7 volume-limited Mr < -18 galaxies
C Format for file interpretation
7 format(
+ 1X,I6,2X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F6.4,3X,F9.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2g.dat')
write(6,*) '....Loading file: table2g.dat'
do i__=1,40665
read(1,'(A118)')ar__6
read(ar__6,7)
+ Group_6,Ngal_6,RAdeg_6,DEdeg_6,Dist_6,uMAG_1,gMAG_1,rMAG_1,
+ iMAG_1,zMAG_1,w_6,Lr_1
c ..............Just test output...........
write(6,7)
+ Group_6,Ngal_6,RAdeg_6,DEdeg_6,Dist_6,uMAG_1,gMAG_1,rMAG_1,
+ iMAG_1,zMAG_1,w_6,Lr_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2h.dat' ! DR7 volume-limited Mr < -19 galaxies
C Format for file interpretation
8 format(
+ 1X,I6,2X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F6.4,3X,F9.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2h.dat')
write(6,*) '....Loading file: table2h.dat'
do i__=1,94912
read(1,'(A118)')ar__7
read(ar__7,8)
+ Group_7,Ngal_7,RAdeg_7,DEdeg_7,Dist_7,uMAG_2,gMAG_2,rMAG_2,
+ iMAG_2,zMAG_2,w_7,Lr_2
c ..............Just test output...........
write(6,8)
+ Group_7,Ngal_7,RAdeg_7,DEdeg_7,Dist_7,uMAG_2,gMAG_2,rMAG_2,
+ iMAG_2,zMAG_2,w_7,Lr_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2i.dat' ! DR7 volume-limited Mr < -20 galaxies
C Format for file interpretation
9 format(
+ 1X,I6,2X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F6.4,3X,F9.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2i.dat')
write(6,*) '....Loading file: table2i.dat'
do i__=1,148195
read(1,'(A118)')ar__8
read(ar__8,9)
+ Group_8,Ngal_8,RAdeg_8,DEdeg_8,Dist_8,uMAG_3,gMAG_3,rMAG_3,
+ iMAG_3,zMAG_3,w_8,Lr_3
c ..............Just test output...........
write(6,9)
+ Group_8,Ngal_8,RAdeg_8,DEdeg_8,Dist_8,uMAG_3,gMAG_3,rMAG_3,
+ iMAG_3,zMAG_3,w_8,Lr_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2j.dat' ! DR7 volume-limited Mr < -21 galaxies
C Format for file interpretation
10 format(
+ 1X,I6,2X,I5,1X,F12.8,1X,F12.8,1X,F8.4,1X,F9.5,1X,F9.5,1X,F9.5,
+ 1X,F9.5,1X,F9.5,1X,F6.4,3X,F9.6)
C Effective file loading
open(unit=1,status='old',file=
+'table2j.dat')
write(6,*) '....Loading file: table2j.dat'
do i__=1,103978
read(1,'(A118)')ar__9
read(ar__9,10)
+ Group_9,Ngal_9,RAdeg_9,DEdeg_9,Dist_9,uMAG_4,gMAG_4,rMAG_4,
+ iMAG_4,zMAG_4,w_9,Lr_4
c ..............Just test output...........
write(6,10)
+ Group_9,Ngal_9,RAdeg_9,DEdeg_9,Dist_9,uMAG_4,gMAG_4,rMAG_4,
+ iMAG_4,zMAG_4,w_9,Lr_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end