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