FORTRAN Generation
(/./ftp/cats/J/AJ/126/2125)

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