Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/348/866 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 2026-Jun-08
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/MNRAS/348/866 2dFGRS Percolation-Inferred Galaxy Group (2PIGG) (Eke+, 2004)
*================================================================================
*Galaxy groups in the 2dFGRS: the group-finding algorithm and the
*2PIGG catalogue.
* Eke V.R., Baugh C.M., Cole S., Frenk C.S., Norberg P., Peacock J.A.,
* Baldry I.K., Bland-Hawthorn J., Bridges T., Cannon R., Colless M.,
* Collins C., Couch W., Dalton G., De Propris R., Driver S.P., Efstathiou G.,
* Ellis R.S., Glazebrook K., Jackson C., Lahav O., Lewis I., Lumsden S.,
* Maddox S., Madgwick D., Peterson B.A., Sutherland W., Taylor K.
* <Mon. Not. R. Astron. Soc., 348, 866-878 (2004)>
* =2004MNRAS.348..866E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '2dfngpga.dat' ! Galaxies used for group-finding in the NGP
integer*4 nr__
parameter (nr__=78746) ! Number of records
character*69 ar__ ! Full-size record
C 1950 position composed of: RArad DErad
real*8 RArad ! (rad) Right ascension in radians (1950 coordinates)
real*8 DErad ! (rad) Declination in radians (1950 coordinates)
real*4 z ! Redshift
real*4 bJmag ! (mag) b_J_ magnitude
real*4 bJmagl ! (mag) limiting b_J magnitude of the survey at the
* position of this galaxy
real*8 n ! Mean number density of galaxies in the survey
* at the position of this galaxy
real*4 Weight ! [1/4.4] Weight associated with this galaxy
integer*4 Ngroup ! [0/16957] Group number to which this galaxy
* has been assigned (0 is ungrouped) (1)
*Note (1): k refers to the kth entry in the corresponding group list,
* i.e. "recno" of the Vizir groups files.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '2dfsgpga.dat' ! Galaxies used for group-finding in the SGP
integer*4 nr__1
parameter (nr__1=112694) ! Number of records
character*69 ar__1 ! Full-size record
C 1950 position composed of: RArad DErad
real*8 RArad_1 ! (rad) Right ascension in radians (1950 coordinates)
real*8 DErad_1 ! (rad) Declination in radians (1950 coordinates)
real*4 z_1 ! Redshift
real*4 bJmag_1 ! (mag) b_J_ magnitude
real*4 bJmagl_1 ! (mag) limiting b_J magnitude of the survey at the
* position of this galaxy
real*8 n_1 ! Mean number density of galaxies in the survey
* at the position of this galaxy
real*4 Weight_1 ! [1/4.4] Weight associated with this galaxy
integer*4 Ngroup_1 ! [0/16957] Group number to which this galaxy
* has been assigned (0 is ungrouped) (1)
*Note (1): k refers to the kth entry in the corresponding group list,
* i.e. "recno" of the Vizir groups files.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '2dfngpgr.dat' ! Group properties in the NGP
integer*4 nr__2
parameter (nr__2=11920) ! Number of records
character*77 ar__2 ! Full-size record
C 1950 position composed of: RArad DErad
integer*4 Nmemb ! [1/500] Unweighted number of members
real*4 RArad_2 ! (rad) Right ascension of group centre in
* radians (1950 coordinates)
real*4 DErad_2 ! (rad) Declination of group centre in radians
* (1950 coordinates)
real*4 z_2 ! Group redshift
real*4 Sep ! (Mpc) rms projected galaxy separation in Mpc/h
real*4 sigma ! (km/s) Group velocity dispersion
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '2dfsgpgr.dat' ! Group properties in the SGP
integer*4 nr__3
parameter (nr__3=16957) ! Number of records
character*77 ar__3 ! Full-size record
C 1950 position composed of: RArad DErad
integer*4 Nmemb_1 ! [1/500] Unweighted number of members
real*4 RArad_3 ! (rad) Right ascension of group centre in
* radians (1950 coordinates)
real*4 DErad_3 ! (rad) Declination of group centre in radians
* (1950 coordinates)
real*4 z_3 ! Group redshift
real*4 Sep_1 ! (Mpc) rms projected galaxy separation in Mpc/h
real*4 sigma_1 ! (km/s) Group velocity dispersion
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'mocngpga.dat' ! Mock galaxies in the NGP
integer*4 nr__4
parameter (nr__4=73195) ! Number of records
character*69 ar__4 ! Full-size record
C 1950 position composed of: RArad DErad
real*8 RArad_4 ! (rad) Right ascension in radians (1950 coordinates)
real*8 DErad_4 ! (rad) Declination in radians (1950 coordinates)
real*4 z_4 ! Redshift
real*4 bJmag_2 ! (mag) b_J_ magnitude
real*4 bJmagl_2 ! (mag) limiting b_J magnitude of the survey at the
* position of this galaxy
real*8 n_2 ! Mean number density of galaxies in the survey
* at the position of this galaxy
real*4 Weight_2 ! [1/4.4] Weight associated with this galaxy
integer*4 Ngroup_2 ! [0/16957] Group number to which this galaxy
* has been assigned (0 is ungrouped) (1)
*Note (1): k refers to the kth entry in the corresponding group list,
* i.e. "recno" of the Vizir groups files.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'mocsgpga.dat' ! Mock galaxies in the SGP
integer*4 nr__5
parameter (nr__5=114189) ! Number of records
character*69 ar__5 ! Full-size record
C 1950 position composed of: RArad DErad
real*8 RArad_5 ! (rad) Right ascension in radians (1950 coordinates)
real*8 DErad_5 ! (rad) Declination in radians (1950 coordinates)
real*4 z_5 ! Redshift
real*4 bJmag_3 ! (mag) b_J_ magnitude
real*4 bJmagl_3 ! (mag) limiting b_J magnitude of the survey at the
* position of this galaxy
real*8 n_3 ! Mean number density of galaxies in the survey
* at the position of this galaxy
real*4 Weight_3 ! [1/4.4] Weight associated with this galaxy
integer*4 Ngroup_3 ! [0/16957] Group number to which this galaxy
* has been assigned (0 is ungrouped) (1)
*Note (1): k refers to the kth entry in the corresponding group list,
* i.e. "recno" of the Vizir groups files.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'mocngpgr.dat' ! Mock group properties in the NGP
integer*4 nr__6
parameter (nr__6=9861) ! Number of records
character*77 ar__6 ! Full-size record
C 1950 position composed of: RArad DErad
integer*4 Nmemb_2 ! [1/500] Unweighted number of members
real*4 RArad_6 ! (rad) Right ascension of group centre in
* radians (1950 coordinates)
real*4 DErad_6 ! (rad) Declination of group centre in radians
* (1950 coordinates)
real*4 z_6 ! Group redshift
real*4 Sep_2 ! (Mpc) rms projected galaxy separation in Mpc/h
real*4 sigma_2 ! (km/s) Group velocity dispersion
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'mocsgpgr.dat' ! Mock group properties in the SGP
integer*4 nr__7
parameter (nr__7=15340) ! Number of records
character*77 ar__7 ! Full-size record
C 1950 position composed of: RArad DErad
integer*4 Nmemb_3 ! [1/500] Unweighted number of members
real*4 RArad_7 ! (rad) Right ascension of group centre in
* radians (1950 coordinates)
real*4 DErad_7 ! (rad) Declination of group centre in radians
* (1950 coordinates)
real*4 z_7 ! Group redshift
real*4 Sep_3 ! (Mpc) rms projected galaxy separation in Mpc/h
real*4 sigma_3 ! (km/s) Group velocity dispersion
C=============================================================================
C Loading file '2dfngpga.dat' ! Galaxies used for group-finding in the NGP
C Format for file interpretation
1 format(
+ 2X,F8.5,2X,F8.5,3X,F6.4,2X,F6.3,2X,F6.3,2X,F8.6,3X,F4.2,2X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'2dfngpga.dat')
write(6,*) '....Loading file: 2dfngpga.dat'
do i__=1,78746
read(1,'(A69)')ar__
read(ar__,1)RArad,DErad,z,bJmag,bJmagl,n,Weight,Ngroup
c ..............Just test output...........
write(6,1)RArad,DErad,z,bJmag,bJmagl,n,Weight,Ngroup
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '2dfsgpga.dat' ! Galaxies used for group-finding in the SGP
C Format for file interpretation
2 format(
+ 2X,F8.5,2X,F8.5,3X,F6.4,2X,F6.3,2X,F6.3,2X,F8.6,3X,F4.2,2X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'2dfsgpga.dat')
write(6,*) '....Loading file: 2dfsgpga.dat'
do i__=1,112694
read(1,'(A69)')ar__1
read(ar__1,2)
+ RArad_1,DErad_1,z_1,bJmag_1,bJmagl_1,n_1,Weight_1,Ngroup_1
c ..............Just test output...........
write(6,2)
+ RArad_1,DErad_1,z_1,bJmag_1,bJmagl_1,n_1,Weight_1,Ngroup_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '2dfngpgr.dat' ! Group properties in the NGP
C Format for file interpretation
3 format(I7,2X,E12.7,1X,E13.7,2X,E12.7,2X,E12.7,2X,E12.7)
C Effective file loading
open(unit=1,status='old',file=
+'2dfngpgr.dat')
write(6,*) '....Loading file: 2dfngpgr.dat'
do i__=1,11920
read(1,'(A77)')ar__2
read(ar__2,3)Nmemb,RArad_2,DErad_2,z_2,Sep,sigma
c ..............Just test output...........
write(6,3)Nmemb,RArad_2,DErad_2,z_2,Sep,sigma
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '2dfsgpgr.dat' ! Group properties in the SGP
C Format for file interpretation
4 format(I7,2X,E12.7,1X,E13.7,2X,E12.7,2X,E12.7,2X,E12.7)
C Effective file loading
open(unit=1,status='old',file=
+'2dfsgpgr.dat')
write(6,*) '....Loading file: 2dfsgpgr.dat'
do i__=1,16957
read(1,'(A77)')ar__3
read(ar__3,4)Nmemb_1,RArad_3,DErad_3,z_3,Sep_1,sigma_1
c ..............Just test output...........
write(6,4)Nmemb_1,RArad_3,DErad_3,z_3,Sep_1,sigma_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'mocngpga.dat' ! Mock galaxies in the NGP
C Format for file interpretation
5 format(
+ 2X,F8.5,2X,F8.5,3X,F6.4,2X,F6.3,2X,F6.3,2X,F8.6,3X,F4.2,2X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'mocngpga.dat')
write(6,*) '....Loading file: mocngpga.dat'
do i__=1,73195
read(1,'(A69)')ar__4
read(ar__4,5)
+ RArad_4,DErad_4,z_4,bJmag_2,bJmagl_2,n_2,Weight_2,Ngroup_2
c ..............Just test output...........
write(6,5)
+ RArad_4,DErad_4,z_4,bJmag_2,bJmagl_2,n_2,Weight_2,Ngroup_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'mocsgpga.dat' ! Mock galaxies in the SGP
C Format for file interpretation
6 format(
+ 2X,F8.5,2X,F8.5,3X,F6.4,2X,F6.3,2X,F6.3,2X,F8.6,3X,F4.2,2X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'mocsgpga.dat')
write(6,*) '....Loading file: mocsgpga.dat'
do i__=1,114189
read(1,'(A69)')ar__5
read(ar__5,6)
+ RArad_5,DErad_5,z_5,bJmag_3,bJmagl_3,n_3,Weight_3,Ngroup_3
c ..............Just test output...........
write(6,6)
+ RArad_5,DErad_5,z_5,bJmag_3,bJmagl_3,n_3,Weight_3,Ngroup_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'mocngpgr.dat' ! Mock group properties in the NGP
C Format for file interpretation
7 format(I7,2X,E12.7,1X,E13.7,2X,E12.7,2X,E12.7,2X,E12.7)
C Effective file loading
open(unit=1,status='old',file=
+'mocngpgr.dat')
write(6,*) '....Loading file: mocngpgr.dat'
do i__=1,9861
read(1,'(A77)')ar__6
read(ar__6,7)Nmemb_2,RArad_6,DErad_6,z_6,Sep_2,sigma_2
c ..............Just test output...........
write(6,7)Nmemb_2,RArad_6,DErad_6,z_6,Sep_2,sigma_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'mocsgpgr.dat' ! Mock group properties in the SGP
C Format for file interpretation
8 format(I7,2X,E12.7,1X,E13.7,2X,E12.7,2X,E12.7,2X,E12.7)
C Effective file loading
open(unit=1,status='old',file=
+'mocsgpgr.dat')
write(6,*) '....Loading file: mocsgpgr.dat'
do i__=1,15340
read(1,'(A77)')ar__7
read(ar__7,8)Nmemb_3,RArad_7,DErad_7,z_7,Sep_3,sigma_3
c ..............Just test output...........
write(6,8)Nmemb_3,RArad_7,DErad_7,z_7,Sep_3,sigma_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end