FORTRAN Generation
(/./ftp/cats/J/AJ/106/426)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/106/426 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/106/426          Lick slit spectra of quasar                (Tytler+, 1993)
*================================================================================
*Lick slit spectra of thirty-eight objective prism quasar candidates and low
*metallicity halo stars
*         TYTLER D., FAN X.-M., JUNKKARINEN V.T., COHEN R.D.
*         <Astron. J. 106, 426 (1993)>
*         =1993AJ....106..426T   (SIMBAD/NED Reference)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1'	! Journal of observations

      integer*4 nr__
      parameter (nr__=40)	! Number of records
      character*67 ar__   	! Full-size record

      character*10  Name        ! Object designation
      character*9   Obs         ! ("DD/MM/YY") Observation date, U.T.
      integer*4     Int_time    ! (s) Integration time
      character*1   Setup       ! [ABC] Instrumental setup (see note (1))
      integer*4     lamMin      ! (0.1nm) []? Minimum wavelength of the total range
*                                     (for setup A and B)
      integer*4     lamMax      ! (0.1nm) []? Maximun wavelength of the total range
*                                     (for setup A and B)
      integer*4     lambMin     ! (0.1nm) []? Minimum wavelength of the blue range
*                                     (for setup C)
      integer*4     lambMax     ! (0.1nm) []? Maximun wavelength of the blue range
*                                     (for setup C)
      integer*4     lamrMin     ! (0.1nm) []? Minimum wavelength of the red range
*                                     (for setup C)
      integer*4     lamrMax     ! (0.1nm) []? Maximun wavelength of the red range
*                                     (for setup C)
      character*3   Ref         ! Zhan and Chen references (2)
*--------------------------------------------------------------------------------
*Note (1)
*        Setup A: 10 object with z =~ 3, observed with the UV Schmidt camera
*        Setup B: 11 intermediate z objects with close neighbours,
*         observed with the UV Schmidt camera
*        Setup C: 19 high z objects, observed with the Kast double spectrograph
*Note (2)
*     ZC1: Zhan Y. & Chen J-S. 1987, AcApSn 7, 99; Trans. in Chin.A.Ap., 11, 191
*     ZC2: Zhan Y. & Chen J-S. 1987, AcApSn 7, 203; Trans. in Chin.A.Ap., 11, 299
*     ZC3: Zhan Y. & Chen J-S. 1989, AcApSn 9, 37; Trans. in Chin.A.Ap., 13, 139
*     ZC4: Zhan Y. & Chen J-S. 1989, AcApSn 9, 147; Trans. in Chin.A.Ap., 13, 321

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2'	! Summary of spectra

      integer*4 nr__1
      parameter (nr__1=38)	! Number of records
      character*104 ar__1  	! Full-size record

      character*10  Name_1      ! Object designation
      real*4        zOP         ! []? Objective prism redshift from the ZC
*                                   references (see table1)
      integer*4     q_zOP       ! Reliability index Q from the ZC references
*                                   (see note(1))
      character*3   Type        ! Object type (see note (2))
      character*3   Sp1         ! Spectral type from the spectral features
      character*5   Sp2         ! Spectral type from (B-V)0
      real*8        z           ! []? Redshift
      character*1   u_z         ! [? ] Uncertainty flag on z
      character*62  lines       ! Spectral lines
*--------------------------------------------------------------------------------
*Note (1)
*   The reliability index Q = Q1 + Q2, where Q1 is the given value 1, 2, or 3
*    according to increasing strength of the emission lines, and Q2 is similarly
*    valued according to increasing strength of UV excess. Thus, Q = 6 would
*    label the most reliable candidate
*Note (2)
*    QSO = quasar
*    gal = galaxy
*    sta = star
*    WD = white dwarf

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table3'	! Magnitudes and spectral indices

      integer*4 nr__2
      parameter (nr__2=40)	! Number of records
      character*74 ar__2  	! Full-size record

      character*10  Name_2      ! Object designation
      character*1   Setup_1     ! [AB] Note flag:
*                                   'A' for magnitudes measured from Setup A
*                                   spectrum, and likely to be systematically
*                                   too faint;
*                                   'B' for magnitudes measured from Setup B
*                                   spectrum.
      real*4        B_J         ! (mag) B(J) magnitude from ZC references, obtained
*                                   from image sizes on a direct Schmidt plate.
      real*4        U           ! (mag) []? U magnitude. U is highly uncertain
      real*4        B           ! (mag) B magnitude. B is highly uncertain
      real*4        V           ! (mag) V magnitude. V is highly uncertain
      real*4        v_B_V_0     ! (mag) (B-V)0 color. (B-V)0 is highly uncertain
      real*4        v_B_V       ! (mag) []? (B-V) color estimated from the Balmer line
*                                   index HP using:
*                                   (B-V)0 = 0.962 - 0.292HP + 0.036HP^2
      real*4        Delta       ! (mag) []? Slit (B-V) minus HP index (B-V)
      real*4        HP          ! (0.1nm) []? Balmer line index HP, where
*                                   HP = -0.120 + 0.5Halpha + 0.555Hgamma,
*                                   which is the average of the measured
*                                   equivalent width of Halpha, and an estimate
*                                   of that width based on the measured
*                                   equivalent width of Hgamma.
      real*4        KP          ! (0.1nm) []? Index KP', the Ca II K equivalent width
*                                   measured in the 18 A interval, corrected for
*                                   interstellar Ca II K absorption by
*                                   subtracting 0.22 A.
      real*4        GP          ! (0.1nm) []? G-band (CH) index, GP, the equivalent
*                                   width in the 15 A band around 4300 A.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table5'	! Emission lines

      integer*4 nr__3
      parameter (nr__3=52)	! Number of records
      character*108 ar__3  	! Full-size record

      character*10  Name_3      ! Object designation
      real*4        v_z_em__    ! []? Mean emission redshift
      character*13  Ion         ! Ion
      real*8        lamLab      ! (0.1nm) Laboratory vacuum wavelength
      character*1   u_lamLab    ! Uncertainty flag on lamLab
      real*4        lamObs      ! (0.1nm) Observed wavelength
      real*4        EWobs       ! (0.1nm) Observed frame equivalent width. All values
*                                  have a decimal point, so that they will be
*                                  read correctly by a computer program, but
*                                  some of the values were originally integers
      real*4        z_em        ! Emission redshift
      character*25  Com         ! Comments. The comment 'see notes' refers to
*                                  file notes

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table6'	! Major absorption lines in the QSO spectra

      integer*4 nr__4
      parameter (nr__4=39)	! Number of records
      character*53 ar__4  	! Full-size record

      character*10  Name_4      ! Object designation
      integer*4     No          ! Sequential number counting the line for this
*                                   object
      real*4        WObs        ! (0.1nm) []? Observed vacuum wavelength
      character*1   n_WObs      ! [d] When 'd', it means that the line was seen
*                                    by reference ZC2 (see table1 description)
      real*4        EWobs_1     ! (0.1nm) []? Observed equivalent width
      character*6   Ident       ! Line identification
      integer*4     WLab        ! (0.1nm) []? Laboratory wavelength
      character*2   n_WLab      ! [bc ] Note flags:
*                                               'b' Blended with C IV (1550 A)
*                                               'c' see notes file
      real*4        z_abs       ! []? Absorption redshift

C=============================================================================

C  Loading file 'table1'	! Journal of observations

C  Format for file interpretation

    1 format(
     +  A10,3X,A9,1X,I4,2X,A1,2X,I4,1X,I4,1X,I4,1X,I4,2X,I4,1X,I4,2X,
     +  A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1')
      write(6,*) '....Loading file: table1'
      do i__=1,40
        read(1,'(A67)')ar__
        read(ar__,1)
     +  Name,Obs,Int_time,Setup,lamMin,lamMax,lambMin,lambMax,lamrMin,
     +  lamrMax,Ref
        if(ar__(33:36) .EQ. '') lamMin = iNULL__
        if(ar__(38:41) .EQ. '') lamMax = iNULL__
        if(ar__(43:46) .EQ. '') lambMin = iNULL__
        if(ar__(48:51) .EQ. '') lambMax = iNULL__
        if(ar__(54:57) .EQ. '') lamrMin = iNULL__
        if(ar__(59:62) .EQ. '') lamrMax = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  Name,Obs,Int_time,Setup,lamMin,lamMax,lambMin,lambMax,lamrMin,
     +  lamrMax,Ref
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2'	! Summary of spectra

C  Format for file interpretation

    2 format(A10,1X,F4.2,2X,I1,2X,A3,1X,A3,1X,A5,F7.4,A1,1X,A62)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2')
      write(6,*) '....Loading file: table2'
      do i__=1,38
        read(1,'(A104)')ar__1
        read(ar__1,2)Name_1,zOP,q_zOP,Type,Sp1,Sp2,z,u_z,lines
        if(ar__1(12:15) .EQ. '') zOP = rNULL__
        if(ar__1(34:40) .EQ. '') z = rNULL__
c    ..............Just test output...........
        write(6,2)Name_1,zOP,q_zOP,Type,Sp1,Sp2,z,u_z,lines
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table3'	! Magnitudes and spectral indices

C  Format for file interpretation

    3 format(
     +  A10,A1,2X,F4.1,2X,F5.2,2X,F5.2,2X,F5.2,2X,F4.2,2X,F4.2,1X,
     +  F5.2,2X,F4.2,1X,F5.2,2X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3')
      write(6,*) '....Loading file: table3'
      do i__=1,40
        read(1,'(A74)')ar__2
        read(ar__2,3)
     +  Name_2,Setup_1,B_J,U,B,V,v_B_V_0,v_B_V,Delta,HP,KP,GP
        if(ar__2(20:24) .EQ. '') U = rNULL__
        if(ar__2(47:50) .EQ. '') v_B_V = rNULL__
        if(ar__2(52:56) .EQ. '') Delta = rNULL__
        if(ar__2(59:62) .EQ. '') HP = rNULL__
        if(ar__2(64:68) .EQ. '') KP = rNULL__
        if(ar__2(71:74) .EQ. '') GP = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Name_2,Setup_1,B_J,U,B,V,v_B_V_0,v_B_V,Delta,HP,KP,GP
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table5'	! Emission lines

C  Format for file interpretation

    4 format(
     +  A10,1X,F6.4,2X,A13,2X,F7.2,A1,1X,F6.1,2X,F5.1,1X,F6.4,A25)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5')
      write(6,*) '....Loading file: table5'
      do i__=1,52
        read(1,'(A108)')ar__3
        read(ar__3,4)
     +  Name_3,v_z_em__,Ion,lamLab,u_lamLab,lamObs,EWobs,z_em,Com
        if(ar__3(12:17) .EQ. '') v_z_em__ = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  Name_3,v_z_em__,Ion,lamLab,u_lamLab,lamObs,EWobs,z_em,Com
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table6'	! Major absorption lines in the QSO spectra

C  Format for file interpretation

    5 format(A10,2X,I2,2X,F6.1,A1,1X,F4.1,2X,A6,1X,I4,2X,A2,2X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6')
      write(6,*) '....Loading file: table6'
      do i__=1,39
        read(1,'(A53)')ar__4
        read(ar__4,5)
     +  Name_4,No,WObs,n_WObs,EWobs_1,Ident,WLab,n_WLab,z_abs
        if(ar__4(17:22) .EQ. '') WObs = rNULL__
        if(ar__4(25:28) .EQ. '') EWobs_1 = rNULL__
        if(ar__4(38:41) .EQ. '') WLab = iNULL__
        if(ar__4(48:52) .EQ. '') z_abs = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  Name_4,No,WObs,n_WObs,EWobs_1,Ident,WLab,n_WLab,z_abs
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end