Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/514/A102 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. 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 (nr__) ! Group identification number
integer*4 Ngal (nr__) ! Richness (number of member galaxies)
real*8 RAdeg (nr__) ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg (nr__) ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist (nr__) ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size (nr__) ! (Mpc) Maximum projected linear size (G1)
real*8 dispD (nr__) ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV (nr__) ! (km/s) rms radial velocity
real*8 Rvir (nr__) ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w (nr__) ! Luminosity weight
real*8 Lobs (nr__) ! (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 (nr__1) ! Group identification number
integer*4 Ngal_1 (nr__1) ! Richness (number of member galaxies)
real*8 RAdeg_1 (nr__1) ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_1 (nr__1) ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_1 (nr__1) ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_1 (nr__1) ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_1 (nr__1) ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_1 (nr__1) ! (km/s) rms radial velocity
real*8 Rvir_1 (nr__1) ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_1 (nr__1) ! Luminosity weight
real*8 Lobs_1 (nr__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 (nr__2) ! Group identification number
integer*4 Ngal_2 (nr__2) ! Richness (number of member galaxies)
real*8 RAdeg_2 (nr__2) ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_2 (nr__2) ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_2 (nr__2) ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_2 (nr__2) ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_2 (nr__2) ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_2 (nr__2) ! (km/s) rms radial velocity
real*8 Rvir_2 (nr__2) ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_2 (nr__2) ! Luminosity weight
real*8 Lobs_2 (nr__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 (nr__3) ! Group identification number
integer*4 Ngal_3 (nr__3) ! Richness (number of member galaxies)
real*8 RAdeg_3 (nr__3) ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_3 (nr__3) ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_3 (nr__3) ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_3 (nr__3) ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_3 (nr__3) ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_3 (nr__3) ! (km/s) rms radial velocity
real*8 Rvir_3 (nr__3) ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_3 (nr__3) ! Luminosity weight
real*8 Lobs_3 (nr__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 (nr__4) ! Group identification number
integer*4 Ngal_4 (nr__4) ! Richness (number of member galaxies)
real*8 RAdeg_4 (nr__4) ! (deg) Right Ascension (mean of member galaxies), J2000
real*8 DEdeg_4 (nr__4) ! (deg) Declination (mean of member galaxies), J2000
real*8 Dist_4 (nr__4) ! (Mpc) Comoving distance (mean of member galaxies) (G1)
real*8 Size_4 (nr__4) ! (Mpc) Maximum projected linear size (G1)
real*8 dispD_4 (nr__4) ! (Mpc) rms deviation of projected distance (G1)
real*8 dispV_4 (nr__4) ! (km/s) rms radial velocity
real*8 Rvir_4 (nr__4) ! (Mpc) Virial radius (projected harmonic mean) (G1)
real*4 w_4 (nr__4) ! Luminosity weight
real*8 Lobs_4 (nr__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 (nr__5) ! Group ID number
integer*4 Ngal_5 (nr__5) ! Group richness
real*8 RAdeg_5 (nr__5) ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_5 (nr__5) ! (deg) Declination (J2000.0)
real*8 Dist_5 (nr__5) ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG (nr__5) ! (mag) Absolute u magnitude
real*8 gMAG (nr__5) ! (mag) Absolute g magnitude
real*8 rMAG (nr__5) ! (mag) Absolute r magnitude
real*8 iMAG (nr__5) ! (mag) Absolute i magnitude
real*8 zMAG (nr__5) ! (mag) Absolute z magnitude
real*4 w_5 (nr__5) ! Luminosity weight
real*8 Lr (nr__5) ! (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 (nr__6) ! Group ID number
integer*4 Ngal_6 (nr__6) ! Group richness
real*8 RAdeg_6 (nr__6) ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_6 (nr__6) ! (deg) Declination (J2000.0)
real*8 Dist_6 (nr__6) ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_1 (nr__6) ! (mag) Absolute u magnitude
real*8 gMAG_1 (nr__6) ! (mag) Absolute g magnitude
real*8 rMAG_1 (nr__6) ! (mag) Absolute r magnitude
real*8 iMAG_1 (nr__6) ! (mag) Absolute i magnitude
real*8 zMAG_1 (nr__6) ! (mag) Absolute z magnitude
real*4 w_6 (nr__6) ! Luminosity weight
real*8 Lr_1 (nr__6) ! (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 (nr__7) ! Group ID number
integer*4 Ngal_7 (nr__7) ! Group richness
real*8 RAdeg_7 (nr__7) ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_7 (nr__7) ! (deg) Declination (J2000.0)
real*8 Dist_7 (nr__7) ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_2 (nr__7) ! (mag) Absolute u magnitude
real*8 gMAG_2 (nr__7) ! (mag) Absolute g magnitude
real*8 rMAG_2 (nr__7) ! (mag) Absolute r magnitude
real*8 iMAG_2 (nr__7) ! (mag) Absolute i magnitude
real*8 zMAG_2 (nr__7) ! (mag) Absolute z magnitude
real*4 w_7 (nr__7) ! Luminosity weight
real*8 Lr_2 (nr__7) ! (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 (nr__8) ! Group ID number
integer*4 Ngal_8 (nr__8) ! Group richness
real*8 RAdeg_8 (nr__8) ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_8 (nr__8) ! (deg) Declination (J2000.0)
real*8 Dist_8 (nr__8) ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_3 (nr__8) ! (mag) Absolute u magnitude
real*8 gMAG_3 (nr__8) ! (mag) Absolute g magnitude
real*8 rMAG_3 (nr__8) ! (mag) Absolute r magnitude
real*8 iMAG_3 (nr__8) ! (mag) Absolute i magnitude
real*8 zMAG_3 (nr__8) ! (mag) Absolute z magnitude
real*4 w_8 (nr__8) ! Luminosity weight
real*8 Lr_3 (nr__8) ! (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 (nr__9) ! Group ID number
integer*4 Ngal_9 (nr__9) ! Group richness
real*8 RAdeg_9 (nr__9) ! (deg) Right Ascension (J2000.0)
real*8 DEdeg_9 (nr__9) ! (deg) Declination (J2000.0)
real*8 Dist_9 (nr__9) ! (Mpc) Co-moving distance corrected for CMB (G1)
real*8 uMAG_4 (nr__9) ! (mag) Absolute u magnitude
real*8 gMAG_4 (nr__9) ! (mag) Absolute g magnitude
real*8 rMAG_4 (nr__9) ! (mag) Absolute r magnitude
real*8 iMAG_4 (nr__9) ! (mag) Absolute i magnitude
real*8 zMAG_4 (nr__9) ! (mag) Absolute z magnitude
real*4 w_9 (nr__9) ! Luminosity weight
real*8 Lr_4 (nr__9) ! (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(i__),Ngal(i__),RAdeg(i__),DEdeg(i__),Dist(i__),
+ Size(i__),dispD(i__),dispV(i__),Rvir(i__),w(i__),Lobs(i__)
c ..............Just test output...........
write(6,1)
+ Group(i__),Ngal(i__),RAdeg(i__),DEdeg(i__),Dist(i__),
+ Size(i__),dispD(i__),dispV(i__),Rvir(i__),w(i__),Lobs(i__)
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(i__),Ngal_1(i__),RAdeg_1(i__),DEdeg_1(i__),
+ Dist_1(i__),Size_1(i__),dispD_1(i__),dispV_1(i__),Rvir_1(i__),
+ w_1(i__),Lobs_1(i__)
c ..............Just test output...........
write(6,2)
+ Group_1(i__),Ngal_1(i__),RAdeg_1(i__),DEdeg_1(i__),
+ Dist_1(i__),Size_1(i__),dispD_1(i__),dispV_1(i__),Rvir_1(i__),
+ w_1(i__),Lobs_1(i__)
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(i__),Ngal_2(i__),RAdeg_2(i__),DEdeg_2(i__),
+ Dist_2(i__),Size_2(i__),dispD_2(i__),dispV_2(i__),Rvir_2(i__),
+ w_2(i__),Lobs_2(i__)
c ..............Just test output...........
write(6,3)
+ Group_2(i__),Ngal_2(i__),RAdeg_2(i__),DEdeg_2(i__),
+ Dist_2(i__),Size_2(i__),dispD_2(i__),dispV_2(i__),Rvir_2(i__),
+ w_2(i__),Lobs_2(i__)
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(i__),Ngal_3(i__),RAdeg_3(i__),DEdeg_3(i__),
+ Dist_3(i__),Size_3(i__),dispD_3(i__),dispV_3(i__),Rvir_3(i__),
+ w_3(i__),Lobs_3(i__)
c ..............Just test output...........
write(6,4)
+ Group_3(i__),Ngal_3(i__),RAdeg_3(i__),DEdeg_3(i__),
+ Dist_3(i__),Size_3(i__),dispD_3(i__),dispV_3(i__),Rvir_3(i__),
+ w_3(i__),Lobs_3(i__)
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(i__),Ngal_4(i__),RAdeg_4(i__),DEdeg_4(i__),
+ Dist_4(i__),Size_4(i__),dispD_4(i__),dispV_4(i__),Rvir_4(i__),
+ w_4(i__),Lobs_4(i__)
c ..............Just test output...........
write(6,5)
+ Group_4(i__),Ngal_4(i__),RAdeg_4(i__),DEdeg_4(i__),
+ Dist_4(i__),Size_4(i__),dispD_4(i__),dispV_4(i__),Rvir_4(i__),
+ w_4(i__),Lobs_4(i__)
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(i__),Ngal_5(i__),RAdeg_5(i__),DEdeg_5(i__),
+ Dist_5(i__),uMAG(i__),gMAG(i__),rMAG(i__),iMAG(i__),zMAG(i__),
+ w_5(i__),Lr(i__)
c ..............Just test output...........
write(6,6)
+ Group_5(i__),Ngal_5(i__),RAdeg_5(i__),DEdeg_5(i__),
+ Dist_5(i__),uMAG(i__),gMAG(i__),rMAG(i__),iMAG(i__),zMAG(i__),
+ w_5(i__),Lr(i__)
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(i__),Ngal_6(i__),RAdeg_6(i__),DEdeg_6(i__),
+ Dist_6(i__),uMAG_1(i__),gMAG_1(i__),rMAG_1(i__),iMAG_1(i__),
+ zMAG_1(i__),w_6(i__),Lr_1(i__)
c ..............Just test output...........
write(6,7)
+ Group_6(i__),Ngal_6(i__),RAdeg_6(i__),DEdeg_6(i__),
+ Dist_6(i__),uMAG_1(i__),gMAG_1(i__),rMAG_1(i__),iMAG_1(i__),
+ zMAG_1(i__),w_6(i__),Lr_1(i__)
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(i__),Ngal_7(i__),RAdeg_7(i__),DEdeg_7(i__),
+ Dist_7(i__),uMAG_2(i__),gMAG_2(i__),rMAG_2(i__),iMAG_2(i__),
+ zMAG_2(i__),w_7(i__),Lr_2(i__)
c ..............Just test output...........
write(6,8)
+ Group_7(i__),Ngal_7(i__),RAdeg_7(i__),DEdeg_7(i__),
+ Dist_7(i__),uMAG_2(i__),gMAG_2(i__),rMAG_2(i__),iMAG_2(i__),
+ zMAG_2(i__),w_7(i__),Lr_2(i__)
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(i__),Ngal_8(i__),RAdeg_8(i__),DEdeg_8(i__),
+ Dist_8(i__),uMAG_3(i__),gMAG_3(i__),rMAG_3(i__),iMAG_3(i__),
+ zMAG_3(i__),w_8(i__),Lr_3(i__)
c ..............Just test output...........
write(6,9)
+ Group_8(i__),Ngal_8(i__),RAdeg_8(i__),DEdeg_8(i__),
+ Dist_8(i__),uMAG_3(i__),gMAG_3(i__),rMAG_3(i__),iMAG_3(i__),
+ zMAG_3(i__),w_8(i__),Lr_3(i__)
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(i__),Ngal_9(i__),RAdeg_9(i__),DEdeg_9(i__),
+ Dist_9(i__),uMAG_4(i__),gMAG_4(i__),rMAG_4(i__),iMAG_4(i__),
+ zMAG_4(i__),w_9(i__),Lr_4(i__)
c ..............Just test output...........
write(6,10)
+ Group_9(i__),Ngal_9(i__),RAdeg_9(i__),DEdeg_9(i__),
+ Dist_9(i__),uMAG_4(i__),gMAG_4(i__),rMAG_4(i__),iMAG_4(i__),
+ zMAG_4(i__),w_9(i__),Lr_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end