Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/495/53 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/495/53 Physical properties of VVDS galaxies (Lamareille+, 2009)
*================================================================================
*Physical properties of galaxies and their evolution in the
*VIMOS/VLT Deep Survey.
*I. The evolution of the mass-metallicity relation up to z~0.9.
* Lamareille F., Brinchmann J., Contini T., Walcher C.J., Charlot S.,
* Perez-Montero E., Zamorani G., Pozzetti L., Bolzonella M., Garilli B.,
* Paltani S., Bongiorno A., Le Fevre O., Bottini D., Le Brun V., Maccagni D.,
* Scaramella R., Scodeggio M., Tresse L., Vettolani G., Zanichelli A.,
* Adami C., Arnouts S., Bardelli S., Cappi A., Ciliegi P., Foucaud S.,
* Franzetti P., Gavignaud I., Guzzo L., Ilbert O., Iovino A., McCracken H.J.,
* Marano B., Marinoni C., Mazure A., Meneux B., Merighi R., Pello R.,
* Pollo A., Radovich M., Vergani D., Zucca E., Romano A., Grado A.,
* Limatola L.
* <Astron. Astrophys. 495, 53 (2009)>
* =2009A&A...495...53L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'desc.dat' ! General parameters file
integer*4 nr__
parameter (nr__=19679) ! Number of records
character*55 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 VVDS ! VVDS identification number
real*4 z ! Spectroscopic redshift
integer*4 q_z ! [0/529] Redshift quality (1)
real*4 Imag ! (mag) Selection magnitude in the I-band in AB system
integer*4 Field ! [0/3] Sub-sample this galaxy belongs to (3)
real*4 Aper ! (%) ?=0 Fraction of galaxy covered by the slit (4)
real*8 RAdeg ! (deg) ? Right ascension (J2000) (2)
real*8 DEdeg ! (deg) ? Declination (J2000) (2)
*Note (1): The flag is made of 3 digits, from right to left:
* 0 = No redshift could be assigned
* 1 = redshift known at a 50% confidence
* 2 = redshift known at a 75% confidence
* 3 = redshift known at a 95% confidence
* 4 = redshift known at a 100% confidence
* 8 = not specified
* 9 = single isolated emission line
* +20 = secondary target (means an object which is present by chance
* in the spectral slit in addition of the primary target; thus
* the secondary object is not ensured to be fully centered
* within the slit)
* +30 = secondary target above selection
* +50 = duplicated observation
* +500 = duplicated observation
*Note (2): Position added in May 2009 (see "History" section below).
* The position is missing for 4 VVDS galaxies.
*Note (3): Field code as follows:
* 0 = none
* 1 = deep sub-sample (Imag<24)
* 2 = wide sub-sample (Imag<22.5)
* 3 = both deep and wide
*Note (4): This information is not available for CDFS galaxies
* (VVDS ID starting with 00)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lines.dat' ! Emission-line and spectral indices measurements
integer*4 nr__1
parameter (nr__1=19679) ! Number of records
character*315 ar__1 ! Full-size record
integer*4 VVDS_1 ! VVDS identification number
real*4 HdW ! (0.1nm) ?=999.99 H{delta}_W_ spectral index (1)
character*1 n_HdW ! [n] n for not analysed
real*4 e_HdW ! (0.1nm) ?=-1.00 1-{sigma} error on HdW
character*1 n_e_HdW ! [n] n for not analysed
real*4 Dn4000 ! ?=999.99 Dn(4000) break
character*1 n_Dn4000 ! [n] n for not analysed
real*4 e_Dn4000 ! ?=-1.00 1-{sigma} error on Dn4000
character*1 n_e_Dn4000 ! [n] n for not analysed
real*8 EWOII ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line OII3726+3729 (1)
real*4 e_EWOII ! (0.1nm) ?=-1.00 1-{sigma} error on EWOII
real*8 FOII ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line OII3726+3729 (2)
real*4 e_FOII ! (10-20W/m2) ?=-1.00 1-{sigma} error on FOII
real*8 EWNeIII ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line NeIII3869 (1)
real*4 e_EWNeIII ! (0.1nm) ?=-1.00 1-{sigma} error on EWNeIII
real*8 FNeIII ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line NeIII3869 (2)
real*4 e_FNeIII ! (10-20W/m2) ?=-1.00 1-{sigma} error on FNeIII
real*8 EWHd ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line H{delta}4101 (1)
real*4 e_EWHd ! (0.1nm) ?=-1.00 1-{sigma} error on EWHd
real*8 FHd ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line H{delta}4101 (2)
real*4 e_FHd ! (10-20W/m2) ?=-1.00 1-{sigma} error on FHd
real*8 EWHg ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line H{gamma}4304 (1)
real*4 e_EWHg ! (0.1nm) ?=-1.00 1-{sigma} error on EWHg
real*8 FHg ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line H{gamma}4304 (2)
real*4 e_FHg ! (10-20W/m2) ?=-1.00 1-{sigma} error on bove
real*8 EWHb ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line H{beta}4861 (1)
real*4 e_EWHb ! (0.1nm) ?=-1.00 1-{sigma} error on EWHb
real*8 FHb ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line H{beta}4861 (2)
real*4 e_FHb ! (10-20W/m2) ?=-1.00 1-{sigma} error on FHb
real*8 EWOIII ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line OIII4959 (1)
real*4 e_EWOIII ! (0.1nm) ?=-1.00 1-{sigma} error on EWOIII
real*8 FOIII ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line OIII4959 (2)
real*4 e_FOIII ! (10-20W/m2) ?=-1.00 1-{sigma} error on FOIII
real*8 EWOIIIb ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line OIII5007 (1)
real*4 e_EWOIIIb ! (0.1nm) ?=-1.00 1-{sigma} error on EWOIIIb
real*8 FOIIIb ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line OIII5007 (2)
real*4 e_FOIIIb ! (10-20W/m2) ?=-1.00 1-{sigma} error on FOIIIb
real*8 EWHa ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line H{alpha}6563 (1)
real*4 e_EWHa ! (0.1nm) ?=-1.00 1-{sigma} error on EWHa
real*8 FHa ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line H{alpha}6563 (2)
real*4 e_FHa ! (10-20W/m2) ?=-1.00 1-{sigma} error on FHa
real*8 EWNII ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line NII6584 (1)
real*4 e_EWNII ! (0.1nm) ?=-1.00 1-{sigma} error on EWNII
real*8 FNII ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line NII6584 (2)
real*4 e_FNII ! (10-20W/m2) ?=-1.00 1-{sigma} error on FNII
real*8 EWSII ! (0.1nm) ?=9999.99 Equivalent width of
* emission-line SII6717+6731 (1)
real*4 e_EWSII ! (0.1nm) ?=-1.00 1-{sigma} error on EWSII
real*8 FSII ! (10-20W/m2) ?=9999.99 Integrated flux of
* emission-line SII6717+6731 (2)
real*4 e_FSII ! (10-20W/m2) ?=-1.00 1-{sigma} error on FSII
*Note (1): Equivalent widths are rest-frame, negative for emission.
* The HdW (wide H{delta}) index is defined with the 3 bandpasses:
* central = 4060.5-4145{AA}; blue = 4014-4054{AA}; red = 4151-4191{AA}.
*Note (2): Unit for fluxes: 10^-17^erg/s/cm^2^ = 10^-20^W/m^2^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'params.dat' ! Derived physical parameters
integer*4 nr__2
parameter (nr__2=19679) ! Number of records
character*49 ar__2 ! Full-size record
integer*4 VVDS_2 ! VVDS identification number
integer*4 sf ! [0/5] Ionizing source flag (1)
real*4 BMAG ! (mag) ?=99.99 Rest-frame absolute magnitude in
* the B-band in AB system
real*4 e_BMAG ! (mag) ?=-1.00 1-{sigma} error on BMAG
character*1 n_BMAG ! [n] n for not analysed
real*4 logMass ! ([solMass]) ?=99.99 logarithm of stellar mass
real*4 e_logMass ! ([solMass]) ?=-1.00 1-{sigma} error on logMass
character*1 n_logMass ! [n] n for not analysed
real*4 O_H ! ?=0.00 12+log(O/H) abundance
real*4 e_O_H ! ?=-1.00 1-{sigma} error on 12+log(O/H)
*Note (1): sf number as follows:
* 0 = unknown
* 1 = star-forming galaxy
* 2 = active galactic nucleus (AGN)
* 3 = LINER
* 4 = candidate star-forming galaxy
* 5 = candidate AGN
C=============================================================================
C Loading file 'desc.dat' ! General parameters file
C Format for file interpretation
1 format(I9,1X,F6.4,1X,I3,1X,F6.3,1X,I1,1X,F5.1,1X,F9.5,1X,F9.5)
C Effective file loading
open(unit=1,status='old',file=
+'desc.dat')
write(6,*) '....Loading file: desc.dat'
do i__=1,19679
read(1,'(A55)')ar__
read(ar__,1)VVDS,z,q_z,Imag,Field,Aper,RAdeg,DEdeg
if(ar__(37:45) .EQ. '') RAdeg = rNULL__
if(ar__(47:55) .EQ. '') DEdeg = rNULL__
c ..............Just test output...........
write(6,1)VVDS,z,q_z,Imag,Field,Aper,RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'lines.dat' ! Emission-line and spectral indices measurements
C Format for file interpretation
2 format(
+ I9,1X,F6.2,A1,F5.2,A1,F6.2,A1,F5.2,A1,F7.2,1X,F5.2,1X,F7.2,1X,
+ F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,
+ 1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,
+ F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,
+ 1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,
+ F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,F7.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'lines.dat')
write(6,*) '....Loading file: lines.dat'
do i__=1,19679
read(1,'(A315)')ar__1
read(ar__1,2)
+ VVDS_1,HdW,n_HdW,e_HdW,n_e_HdW,Dn4000,n_Dn4000,e_Dn4000,
+ n_e_Dn4000,EWOII,e_EWOII,FOII,e_FOII,EWNeIII,e_EWNeIII,FNeIII,
+ e_FNeIII,EWHd,e_EWHd,FHd,e_FHd,EWHg,e_EWHg,FHg,e_FHg,EWHb,
+ e_EWHb,FHb,e_FHb,EWOIII,e_EWOIII,FOIII,e_FOIII,EWOIIIb,
+ e_EWOIIIb,FOIIIb,e_FOIIIb,EWHa,e_EWHa,FHa,e_FHa,EWNII,e_EWNII,
+ FNII,e_FNII,EWSII,e_EWSII,FSII,e_FSII
c ..............Just test output...........
write(6,2)
+ VVDS_1,HdW,n_HdW,e_HdW,n_e_HdW,Dn4000,n_Dn4000,e_Dn4000,
+ n_e_Dn4000,EWOII,e_EWOII,FOII,e_FOII,EWNeIII,e_EWNeIII,FNeIII,
+ e_FNeIII,EWHd,e_EWHd,FHd,e_FHd,EWHg,e_EWHg,FHg,e_FHg,EWHb,
+ e_EWHb,FHb,e_FHb,EWOIII,e_EWOIII,FOIII,e_FOIII,EWOIIIb,
+ e_EWOIIIb,FOIIIb,e_FOIIIb,EWHa,e_EWHa,FHa,e_FHa,EWNII,e_EWNII,
+ FNII,e_FNII,EWSII,e_EWSII,FSII,e_FSII
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'params.dat' ! Derived physical parameters
C Format for file interpretation
3 format(I9,1X,I1,1X,F6.2,1X,F5.2,A1,F5.2,1X,F5.2,A1,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'params.dat')
write(6,*) '....Loading file: params.dat'
do i__=1,19679
read(1,'(A49)')ar__2
read(ar__2,3)
+ VVDS_2,sf,BMAG,e_BMAG,n_BMAG,logMass,e_logMass,n_logMass,O_H,
+ e_O_H
c ..............Just test output...........
write(6,3)
+ VVDS_2,sf,BMAG,e_BMAG,n_BMAG,logMass,e_logMass,n_logMass,O_H,
+ e_O_H
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end