Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/611/A53 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-19
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/611/A53 Redshift reliability flags (VVDS data) (Jamal+, 2018)
*================================================================================
*Automated reliability assessment for spectroscopic redshift measurements.
* Jamal S., Le Brun V., Le Fevre O., Vibert D., Schmitt A., Surace C.,
* Copin Y., Garilli B., Moresco M., Pozzetti L.
* <Astron. Astrophys. 611, A53 (2018)>
* =2018A&A...611A..53J (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table.dat' ! Catalog of VVDS data and new zReliability labels
integer*4 nr__
parameter (nr__=24519) ! Number of records
character*96 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*5 Survey (nr__) ! Survey (1)
character*13 Field (nr__) ! VVDS field (VVDS-FNNNN-NN or VVDS-CDFS)
integer*4 ObsID (nr__) ! Observation identification
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*8 Imag (nr__) ! (mag) AB magnitude in I filter
real*8 zsp (nr__) ! Spectroscopic redshift
integer*4 q_zsp (nr__) ! [1/9] Initial VVDS z quality flags (2)
character*2 Relzsp (nr__) ! [C1 C2 C3 C4 C5] New VVDS z reliability
* flags (3)
character*24 IAUName (nr__) ! Name based on J2000 position
* (VVDS-JHHMMSS.ss+DDMMSS.s)
*Note (1): The VIMOS VLT Deep Survey is a combination of 3 surveys as follows:
* DEEP = VIMOS VLT Deep Survey
* UDEEP = VIMOS VLT Ultra-Deep Survey
* WIDE = VIMOS VLT Wide Survey
* (The table contains a subset of spectroscopic data from the 3 surveys)
*Note (2): The quality of a redshift is determined through quality flags
* (cf. Le Fevre et al., 2013A&A...559A..14L), as follows:
* 1 = Unreliable redshift
* 2 = Reliable redshift
* 9 = Reliable redshift, detection of a single emission line
* 3 = Very reliable redshift with strong spectral features
* 4 = Very reliable redshift with obvious spectral features
*Note (3): Newly-defined redshift reliability clusters refers to distinct
* partitions as follow:
* C1 = Highly dispersed PDFs with multiple equiprobable modes,
* P(zMAP)~0.028+/-0.023
* C2 = Less dispersed PDFs, with few modes and low probabilities
* P(zMAP)~0.087+/-0.033
* C3 = Low dispersion ({sigma}), intermediate probabilities
* P(zMAP)~0.166+/-0.035
* C4 = Unimodal PDFs with low dispersion, higher probabilities
* P(zMAP)~0.290+/-0.059
* C5 = Strong unimodal PDFs with extremely low dispersion, better probabilities
* P(zMAP)~0.618+/-0.204
C=============================================================================
C Loading file 'table.dat' ! Catalog of VVDS data and new zReliability labels
C Format for file interpretation
1 format(
+ A5,1X,A13,1X,I9,1X,F9.5,1X,F9.5,1X,F8.5,1X,F7.5,1X,I1,1X,A2,
+ 1X,A24)
C Effective file loading
open(unit=1,status='old',file=
+'table.dat')
write(6,*) '....Loading file: table.dat'
do i__=1,24519
read(1,'(A96)')ar__
read(ar__,1)
+ Survey(i__),Field(i__),ObsID(i__),RAdeg(i__),DEdeg(i__),
+ Imag(i__),zsp(i__),q_zsp(i__),Relzsp(i__),IAUName(i__)
c ..............Just test output...........
write(6,1)
+ Survey(i__),Field(i__),ObsID(i__),RAdeg(i__),DEdeg(i__),
+ Imag(i__),zsp(i__),q_zsp(i__),Relzsp(i__),IAUName(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end