Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/126/2125 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-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/AJ/126/2125 SDSS candidate type II quasars (Zakamska+, 2003) *================================================================================ *Candidate type II quasars from the Sloan Digital Sky Survey. *I. Selection and optical properties of a sample at 0.3<z<0.83. * Zakamska N.L., Strauss M.A., Krolik J.H., Collinge M.J., Hall P.B., Hao L., * Heckman T.M., Ivezic Z., Richards G.T., Schlegel D.J., Schneider D.P., * Strateva I., Vanden Berk D.E., Anderson S.F., Brinkmann J. * <Astron. J., 126, 2125-2144 (2003)> * =2003AJ....126.2125Z C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! SDSS Type II AGNs at Redshifts 0.3<z<0.83 integer*4 nr__ parameter (nr__=291) ! Number of records character*125 ar__ ! Full-size record character*19 SDSS ! The SDSS name (1) integer*4 DR1 ! [0/1] Availability in Data Release 1 * (1 = Yes, 0 = No) real*4 z ! Redshift based on [O II] (3728) emission line character*7 TCode ! The seven-digit target code (2) real*4 u_mag ! (mag) SDSS u*-band PSF magnitude real*4 e_u_mag ! (mag) Error in u*mag real*4 g_mag ! (mag) SDSS g*-band PSF magnitude real*4 e_g_mag ! (mag) Error in g*mag real*4 r_mag ! (mag) SDSS r*-band PSF magnitude real*4 e_r_mag ! (mag) Error in r*mag real*4 i_mag ! (mag) SDSS i*-band PSF magnitude real*4 e_i_mag ! (mag) Error in i*mag real*4 z_mag ! (mag) SDSS z*-band PSF magnitude real*4 e_z_mag ! (mag) Error in z*mag integer*4 EW_OII_ ! (0.1nm) Equivalent width of [O II] (3728) integer*4 EW_OIII_ ! (0.1nm) Equivalent width of [O III] (5008) real*4 L_OII_ ! ([solLum]) Log of [O II] (3728) luminosity real*4 L_OIII_ ! ([solLum]) Log of [O III] (5008) luminosity real*8 Flux ! (mJy) The FIRST 20cm flux (3) integer*4 Com ! [0/1] Asymmetric lines (1 = Yes, 0 = No) *Note (1): Coordinates are given in the Name as hhmmss.ss+ddmmss.s (J2000). *Note (2): The targeting information is in the 5+2 digit target code * that shows how the object was targeted for spectroscopy. The first * five digits indicate whether the object was targeted on one of the * main spectroscopic plates by the Galaxy, LRG, Quasar, High-redshift * quasar or Serendipity algorithms, in that order. A digit of 0 means * the object was not targeted by this method, while 1 means targeted. * The algorithms have different selection criteria and limiting * magnitudes, as described in section 2. The last two digits show * whether the object was targeted on one of the DSES or one of the * Special plates. *Note (3): Note on Flux: * 0 = Not detected; * -1 = The field was not observed by FIRST. C============================================================================= C Loading file 'table1.dat' ! SDSS Type II AGNs at Redshifts 0.3<z<0.83 C Format for file interpretation 1 format( + 5X,A19,1X,I1,1X,F5.3,1X,A7,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X, + F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,I3,1X,I4,1X, + F4.2,1X,F5.2,1X,F7.2,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,291 read(1,'(A125)')ar__ read(ar__,1) + SDSS,DR1,z,TCode,u_mag,e_u_mag,g_mag,e_g_mag,r_mag,e_r_mag, + i_mag,e_i_mag,z_mag,e_z_mag,EW_OII_,EW_OIII_,L_OII_,L_OIII_, + Flux,Com c ..............Just test output........... write(6,1) + SDSS,DR1,z,TCode,u_mag,e_u_mag,g_mag,e_g_mag,r_mag,e_r_mag, + i_mag,e_i_mag,z_mag,e_z_mag,EW_OII_,EW_OIII_,L_OII_,L_OIII_, + Flux,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end