Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/434/53 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-Mar-29 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/434/53 GOODS-South Field redshifts (Vanzella+, 2005) *================================================================================ *The Great Observatories Origins Deep Survey VLT/FORS2 Spectroscopy in the *GOODS-South Field. * Vanzella E., Cristiani S., Dickinson M., Kuntschner H., Moustakas L.A., * Nonino M., Rosati P., Stern D., Cesarsky C., Ettori S., Ferguson H.C., * Fosbury R.A.E., Giavalisco M., Haase J., Renzini A., Rettura A., Serra P. * <Astron. Astrophys. 434, 53 (2005)> * =2005A&A...434...53V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! The spectroscopic catalogue integer*4 nr__ parameter (nr__=301) ! Number of records character*91 ar__ ! Full-size record character*19 GDS (nr__) ! GOODS South name, based on the GOODS v1.0 * astrometry, JHHMMSS.ss+DDMMSS.s real*4 zmag (nr__) ! (mag) ? z magnitude in AB system real*4 i_z (nr__) ! (mag) ? i-z colour index in AB system real*4 zspec (nr__) ! ? Spectroscopic redshift character*4 Class (nr__) ! Classification (1) character*1 Qual (nr__) ! [ABCX] Quality flag (2) character*38 Comm (nr__) ! Comments related to the observation (3) integer*4 Cat (nr__) ! Category of the observation (4) *Note (1): Groups the objects for which emission line(s) (em.), * absorption-line(s) (abs.) or both (comp.) are detected in the * spectrum. The classification has been guided by the observed continuum * level and slope blueward and redward of the emission/absorption * feature, by the broad-band colors and the morphology of the targets. *Note (2): Quality flag, indicates the reliability of the redshift determination. * A = solid redshift determination (150 objects) * B = likely redshift determination (57 objects) * C = tentative redshift determination (27 objects) * X = an inconclusive spectrum or three cases in which no extraction * was possible (69 objects) *Note (3): The column contains additional information relevant to the * particular observation. The most common ones summarize the * identification of the principal lines, the inclination of an emission * line due to internal kinematics, the weakness of the signal ("faint"), * the low S/N of the extracted spectrum ("noisy"), the 20% light radius * ("Flux-radius" in ACS pixels) for objects classified as stars, etc. *Note (4): Category (described in Sect. 2) is numbered as follows: * 1 = primary catalog * 2 = secondary catalog * 3 = photometric redshift sample * 4 = i_775_-dropout and V_606_-dropout * 5 = miscellaneous objects * -1 = the serendipitously identified sources C============================================================================= C Loading file 'table2.dat' ! The spectroscopic catalogue C Format for file interpretation 1 format(4X,A19,1X,F5.2,1X,F5.2,1X,F5.3,1X,A4,1X,A1,1X,A38,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,301 read(1,'(A91)')ar__ read(ar__,1) + GDS(i__),zmag(i__),i_z(i__),zspec(i__),Class(i__),Qual(i__), + Comm(i__),Cat(i__) if(ar__(25:29) .EQ. '') zmag(i__) = rNULL__ if(ar__(31:35) .EQ. '') i_z(i__) = rNULL__ if(ar__(37:41) .EQ. '') zspec(i__) = rNULL__ c ..............Just test output........... write(6,1) + GDS(i__),zmag(i__),i_z(i__),zspec(i__),Class(i__),Qual(i__), + Comm(i__),Cat(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end