Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/184/218 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/ApJS/184/218 The zCOSMOS 10k-bright spectroscopic sample (Lilly+, 2009)
*================================================================================
*The zCOSMOS 10k-Bright spectroscopic sample.
* Lilly S.J., Le Brun V., Maier C., Mainieri V., Mignoli M., Scodeggio M.,
* Zamorani G., Carollo M., Contini T., Kneib J.-P., Le Fevre O., Renzini A.,
* Bardelli S., Bolzonella M., Bongiorno A., Caputi K., Coppa G., Cucciati O.,
* De La Torre S., De Ravel L., Franzetti P., Garilli B., Iovino A.,
* Kampczyk P., Kovac K., Knobel C., Lamareille F., Le Borgne J.-F., Pello R.,
* Peng Y., Perez-Montero E., Ricciardelli E., Silverman J.D., Tanaka M.,
* Tasca L., Tresse L., Vergani D., Zucca E., Ilbert O., Salvato M., Oesch P.,
* Abbas U., Bottini D., Capak P., Cappi A., Cassata P., Cimatti A., Elvis M.,
* Fumana M., Guzzo L., Hasinger G., Koekemoer A., Leauthaud A., Maccagni D.,
* Marinoni C., McCracken H., Memeo P., Meneux B., Porciani C., Pozzetti L.,
* Sanders D., Scaramella R., Scarlata C., Scoville N., Shopbell P.,
* Taniguchi Y.
* <Astrophys. J. Suppl. Ser., 184, 218-229 (2009)>
* =2009ApJS..184..218L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! zCOSMOS-bright 10k sample
integer*4 nr__
parameter (nr__=10644) ! Number of records
character*47 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 zCOSMOS (nr__) ! zCOSMOS identification number
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 z (nr__) ! ?=9.9999 Spectroscopic redshift
real*4 CClass (nr__) ! Confidence class indicating reliability (1)
real*4 Imag (nr__) ! (mag) HST F814W filter selection AB magnitude
integer*4 Mask (nr__) ! Mask priority flag (2)
*Note (1): The Confidence Class is made of a number and a decimal modifier.
* * Confidence number:
* 4 = a very secure redshift with an exhibition-quality spectrum
* 3 = a very secure redshift
* 2 = a likely redshift about which there is some doubt
* 9 = a securely detected line which is believed to be
* either [OII]3727 or H{alpha}6563
* 1 = an insecure redshift
* 0 = no redshift measurement attempted
* 10 = as above but for broad line AGN; with 18 instead of 9,
* reflecting the greater range of possibilities
* 20 = As above but for a target only observed as a
* secondary target in a slit centered on another object
* 200 = 20
* * Decimal place modifiers:
* .5 = The spectroscopic and photometric redshifts are consistent
* to within 0.08(1+z)
* .4 = No photometric redshift is available for some reason
* .3 = For Class 9 and 18 one-line redshifts only, the spectroscopic
* redshift is consistent only after the spectroscopic redshift
* is changed to the alternate redshift
* .1 = The spectroscopic and photometric redshifts differ by
* more than 0.08(1+z)
*
* The set of objects defined as Classes 1.5, 2.4, 2.5, 9.3, 9.5 and all
* Class 3.x and 4.x comprise 88% of the sample (95% between 0.5<z<0.8)
* and are estimated to be 99% reliable. The redshifts with Classes 1.1,
* 2.1 and 9.1 (and 21.1, 22.1 and 29.1) are likely to be incorrect and
* should not be used, even though they are retained in the catalogue for
* completeness. See section 2.2.2 for further explanation.
*Note (2): The mask priority indicates the priority for insertion in the
* slit masks as follows:
* 1 = a randomly selected object from the main catalog
* 2 = a "compulsory target" that has a roughly twice higher chance
* of having been observed
* 0 = an object that was not intended to be observed (e.g. because it
* was thought to be a star) but in fact was observed, usually as
* a secondary object in the slit of another target.
C=============================================================================
C Loading file 'table3.dat' ! zCOSMOS-bright 10k sample
C Format for file interpretation
1 format(I6,1X,F10.6,1X,F8.6,1X,F6.4,1X,F5.1,1X,F5.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,10644
read(1,'(A47)')ar__
read(ar__,1)
+ zCOSMOS(i__),RAdeg(i__),DEdeg(i__),z(i__),CClass(i__),
+ Imag(i__),Mask(i__)
c ..............Just test output...........
write(6,1)
+ zCOSMOS(i__),RAdeg(i__),DEdeg(i__),z(i__),CClass(i__),
+ Imag(i__),Mask(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end