Conversion of standardized ReadMe file for
file /./ftp/cats/VII/225B 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-Mar-28 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. VII/225B The Canada-France Redshift Survey (CFRS) (Lilly+, 1995) *================================================================================ *The Canada-France Redshift Survey * Lilly S.J., Le Fevre O., Crampton D., Hammer F., Tresse L. * <Astrophys. J. 455, 50; 455, 60; 455, 75; 455, 88; 455, 96 (1995)> * =1995ApJ...455...50L * =1995ApJ...455...60L * =1995ApJ...455...75L * =1995ApJ...455...88H * =1995ApJ...455...96C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! The Canada-France Redshift Survey catalogue integer*4 nr__ parameter (nr__=1010) ! Number of records character*124 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*7 CFRS ! CFRS identification number (6) character*1 f_CFRS ! [*] when the galaxy appears in the parts XI/XIV * (catalogs J/ApJ/464/79 or J/ApJ/481/49) integer*4 RAh ! (h) Right ascension (J2000) (1) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Declination sign (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) real*4 Imag ! (mag) Isophotal I_AB_ (see CFRS-I, 1995ApJ...455...50L) real*4 V_I ! (mag) ?=99.99 (V-I)_AB_ colour in 3 arcsec aperture * (see CFRS-I, 1995ApJ...455...50L) real*4 Q ! Image compactness parameter Q (1 = star) * (see CFRS-I, 1995ApJ...455...50L) (2) real*4 z ! ?=9.999 Redshift (0.000=star) (3) integer*4 Class ! Confidence class of spectroscopic * identification (4) integer*4 Lam1 ! (0.1nm) ? Spectroscopic feature (5) character*1 Cont1 ! [12Ca?]? Spectroscopic feature (5) integer*4 Lam2 ! (0.1nm) ? Spectroscopic feature (5) character*1 Cont2 ! [1Cb?]? Spectroscopic feature (5) integer*4 Lam3 ! (0.1nm) ? Spectroscopic feature (5) integer*4 Cont3 ! [1]? Spectroscopic feature (5) integer*4 Lam4 ! (0.1nm) ? Spectroscopic feature (5) character*1 Cont4 ! [1a?]? Spectroscopic feature (5) integer*4 Lam5 ! (0.1nm) ? Spectroscopic feature (5) character*2 Cont5 ! [1a? ]? Spectroscopic feature (5) integer*4 Lam6 ! (0.1nm) ? Spectroscopic feature (5) character*1 Cont6 ! [1] Spectroscopic feature (5) integer*4 Lam7 ! (0.1nm) ? Spectroscopic feature (5) integer*4 Lam8 ! (0.1nm) ? Spectroscopic feature (5) character*16 Com ! Comments *Note (1): These should be accurate to about 1 arcsec or better * (see CFRS-I, 1995ApJ...455...50L) *Note (2): The Q parameter (Le Fevre et al., 1986A&A...154...92L) * represents the inverse of the ratio of central surface brightness of * the object in question and a star of the same isophotal magnitude. *Note (3): The r.m.s. redshift uncertainty is 0.0013 * (see CFRS-III, 1995ApJ...455...75L) *Note (4): This is quite involved but is essential for the successful * use of the catalogue. Nearly all the CFRS spectra were reduced and * identified independently by three individuals before a final * identification was made. The Confidence Class represents the consensus * confidence of these three individuals in the correctness of the final * identification (see CFRS-II, 1995ApJ...455...60L) * * Classes 0-4 represent normal stars and galaxies, with increasing * levels of confidence in the identification: * 1: probability of 50% that the measurement was correct * 2: probability of more than 75% that the measurement was correct * 3: measurement at least 95% secure * 4: unquestionably correct identification * * Class 8 represents a single line redshift in which the continuum shape * around the line supports its identification with [OII] 3727 (see * CFRS-III, 1995ApJ...455...75L) * * Class 9 represents a single line redshift in which the continuum test * could not be done, or (rarely) where it gave ambiguous results. The * line is assumed to be [OII] 3727. * * One of the above notations plus 10 (e.g. 14) indicates that the object * had broad emission lines and is thus presumably a QSO or broad-line AGN. * * One of the above notations plus 90 (e.g. 94) indicates that the object * is in the "supplementary" catalogue. Objects went in to the supplementary * catalogue if a redshift had been measured but the spectrum would * otherwise have been rejected for one of a number of objective (and * quantified) observational reasons (see CFRS-II, 1995ApJ...455...60L): * (a) Spectrum on CCD defect. * (b) Object too near the end of slit. * (c) Object displaced off of slit. * (d) Reexamination of photometry resulted in magnitude below survey limit. * * Objects in the supplementary catalogue are liable to be biased towards * "easy" objects. No such bias should be present in the remaining * "statistically complete" catalogue. * * Repeated observations of objects (independently reduced and identified) * confirmed our a priori assent of probabilities that individual * spectroscopic identifications were CORRECT (see CFRS-III, * 1995ApJ...455...75L) * * ------------------------------------------------------------ * Class fraction confirmation * of sample rate * ------------------------------------------------------------ * Class 4 35% 100% * Class 8 3% 100% (the line was always confirmed) * Class 9 3% 100% (the line was always confirmed) * Class 3 33% 97% * Class 2 10% 80% * ---------------- * Class 1 5% 50% * Class 0 10% - * ------------------------------------------------------------ * * In all the CFRS science analyses, the Class 1 unreliable * "identifications" have been treated as being "unidentified" *Note (5): Features noted in the spectra. These are largely self-explanatory, * except that a "1" indicates that the continuum shape supported the * identification in cases in which the number of distinct features was * small and a "2" indicates the multiple features of an M star. * C indicates continuum * b indicates break * a for 4863a line * ? for uncertainty * It should be noted that the listed features were "seen" at the * indicated redshift. They are not necessarily all of such strength as * to significantly confirm the redshift. *Note (6): the CFRS identification is of the form HH.NNNN, where * HH represents the field hour: * 00 for the field at 0000-00 (1995ApJ...455...60L, 90 sources) * 03 for the field at 0300+00 (1995ApJ...455...88H, 272 sources) * 10 for the field at 1000+25 (1995ApJ...455...60L, 210 sources) * 14 for the field at 1415+52 (1995ApJ...455...75L, 239 sources) * 22 for the field at 2215+00 (1995ApJ...455...75L, 199 sources) C============================================================================= C Loading file 'catalog.dat' ! The Canada-France Redshift Survey catalogue C Format for file interpretation 1 format( + A7,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,2X,F5.2,2X, + F5.2,2X,F5.2,2X,F6.4,2X,I2,2X,I4,A1,I4,A1,I4,I1,I4,A1,I4,A2, + I4,A1,I4,1X,I4,1X,A16) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,1010 read(1,'(A124)')ar__ read(ar__,1) + CFRS,f_CFRS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Imag,V_I,Q,z,Class, + Lam1,Cont1,Lam2,Cont2,Lam3,Cont3,Lam4,Cont4,Lam5,Cont5,Lam6, + Cont6,Lam7,Lam8,Com if(ar__(68:71) .EQ. '') Lam1 = iNULL__ if(ar__(73:76) .EQ. '') Lam2 = iNULL__ if(ar__(78:81) .EQ. '') Lam3 = iNULL__ if(ar__(82:82) .EQ. '') Cont3 = iNULL__ if(ar__(83:86) .EQ. '') Lam4 = iNULL__ if(ar__(88:91) .EQ. '') Lam5 = iNULL__ if(ar__(94:97) .EQ. '') Lam6 = iNULL__ if(ar__(99:102) .EQ. '') Lam7 = iNULL__ if(ar__(104:107) .EQ. '') Lam8 = iNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + CFRS,f_CFRS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Imag,V_I,Q,z,Class, + Lam1,Cont1,Lam2,Cont2,Lam3,Cont3,Lam4,Cont4,Lam5,Cont5,Lam6, + Cont6,Lam7,Lam8,Com write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end