Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/520/A42 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/520/A42 Galaxy groups in the VIMOS-VLT Deep Survey (Cucciati+, 2010) *================================================================================ *The VIMOS-VLT Deep Survey: the group catalogue. * Cucciati O., Marinoni C., Iovino A., Bardelli S., Adami C., Mazure A., * Scodeggio M., Maccagni D., Temporin S., Zucca E., De Lucia G., Blaizot J., * Garilli B., Meneux B., Zamorani G., Le Fevre O., Cappi A., Guzzo L., * Bottini D., Le Brun V., Tresse L., Vettolani G., Zanichelli A., Arnouts S., * Bolzonella M., Charlot S., Ciliegi P., Contini T., Foucaud S., * Franzetti P., Gavignaud I., Ilbert O., Lamareille F., McCracken H. J., * Marano B., Merighi R., Paltani S., Pella R., Pollo A., Pozzetti L., * Vergani D., Perez-Montero E. * <Astron. Astrophys. 520, A42 (2010)> * =2010A&A...520A..42C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Location and properties of groups within 0.2<=z<=1 integer*4 nr__ parameter (nr__=318) ! Number of records character*68 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 GrID ! Group ID character*1 n_GrID ! [*] Detection with only flag 3-4 galaxies (1) real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000) (2) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (3) real*4 z ! Redshift (4) integer*4 Ngal ! Number of galaxies integer*4 sigma ! (km/s) Velocity dispersion (5) character*1 HPDet ! [H] High purity detection (6) *Note (1): "*" indicates that the group has been detected also if using only * the galaxies with the highest redshift measurement quality (flag 3 and * 4, i.e. >=95% confidence) *Note (2): Median value of the the Right ascension of the galaxies in the group *Note (3): Median value of the the Declination of the galaxies in the group *Note (4): Median value of the the redshift of the galaxies in the group *Note (5): sigma=0 means that the mean redshift measurement error in VVDS is * higher than the estimated sigma (see the paper for more details) *Note (6): "H" means that the group has been detected also when running the * algorithm with high purity parameter set (see the paper for more details) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Id and location of galaxies in the groups listed in Table 4 integer*4 nr__1 parameter (nr__1=904) ! Number of records character*73 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 GalID ! Galaxy ID (CENCOS database) (1) real*8 RAdeg_1 ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) real*4 z_1 ! Redshift integer*4 q_Zz ! Flag for quality redshift measurement (2) integer*4 GrID_1 ! ID of the group to which the galaxy belongs(3) integer*4 Ngal_1 ! Number of galaxies in the group *Note (1): The galaxy ID refers to the public VVDS release at * http://cencosw.oamp.fr; see also Cat. III/250 *Note (2): The flag indicates the likelihood with which the redshift of the * galaxy has been estimated as follows: * 1 = around 50% * 2 = around 80% * 3 = around 97% * 4 = around 99% * 9 = around 50%, only one emission line * 2x = when one of the above-mentioned flags is preceded by the * digit "2", it means that it is a secondary object in the slit. * For more details see Le Fevre et al. (2005A&A...439..845L, * Cat. III/250) *Note (3): It corresponds to the group ID in the first column of table 4. C============================================================================= C Loading file 'table4.dat' ! Location and properties of groups within 0.2<=z<=1 C Format for file interpretation 1 format(7X,I3,3X,A1,3X,F8.5,4X,F8.5,6X,F6.4,3X,I2,3X,I4,6X,A1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,318 read(1,'(A68)')ar__ read(ar__,1)GrID,n_GrID,RAdeg,DEdeg,z,Ngal,sigma,HPDet c ..............Just test output........... write(6,1)GrID,n_GrID,RAdeg,DEdeg,z,Ngal,sigma,HPDet c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Id and location of galaxies in the groups * listed in Table 4 C Format for file interpretation 2 format(1X,I9,7X,F8.5,5X,F8.5,4X,F6.4,6X,I2,7X,I3,5X,I2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,904 read(1,'(A73)')ar__1 read(ar__1,2)GalID,RAdeg_1,DEdeg_1,z_1,q_Zz,GrID_1,Ngal_1 c ..............Just test output........... write(6,2)GalID,RAdeg_1,DEdeg_1,z_1,q_Zz,GrID_1,Ngal_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end