Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/239/23 into FORTRAN code for loading all data files into arrays.
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 2026-Aug-16
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/ApJS/239/23 CIV NAL systems from SDSS-DR14 quasar spectra (Chen+, 2018)
*================================================================================
*Narrow C IV absorption lines with multi-epoch observations.
* Chen Z.-F., Yao M., Pang T.-T., Yi T.-F., Lu M.-M., Liu C.-Q., Nong W.-J.,
* Liang Q.-Y., Liang J.-Z., Ma S.-H., Wu L.-H., Gan Y.-Q., Zou M.-L.
* <Astrophys. J. Suppl. Ser., 239, 23 (2018)>
* =2018ApJS..239...23C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'qsos.dat' ! List of quasars; table added by CDS
integer*4 nr__
parameter (nr__=13736) ! Number of records
character*25 ar__ ! Full-size record
character*18 SDSS (nr__) ! SDSS-DR14Q (Paris+, 2018A&A...613A..51P)
* designation (HHMMSS.ss+DDMMSS.s; J2000) (G1)
real*4 zem (nr__) ! [1.37/5.1] Emission-line redshift of
* the quasar
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Catalog of CIV Narrow Absorption Line systems
integer*4 nr__1
parameter (nr__1=49986) ! Number of records
character*111 ar__1 ! Full-size record
integer*4 Pair (nr__1) ! [1/24993] Identification number
* of a NAL pair
character*18 SDSS_1 (nr__1) ! SDSS-DR14Q (Paris+, 2018A&A...613A..51P)
* designation (HHMMSS.ss+DDMMSS.s; J2000)
* (G1)
integer*4 Plate (nr__1) ! [266/10000] Spectroscopic Plate number
integer*4 MJD (nr__1) ! [51609/57520] Spectroscopic MJD
integer*4 Fiber (nr__1) ! [1/1000] Spectroscopic Fiber number
real*4 zem_1 (nr__1) ! [1.37/5.1] Emission-line redshift of
* the quasar
real*4 zabs (nr__1) ! [1.32/4.7] Redshift of absorption
* line system
real*4 rew96 (nr__1) ! (0.1nm) [0.03/3.9] Rest-frame equivalent width
* CIV{lambda}1548{AA} (1)
real*4 e_rew96 (nr__1) ! (0.1nm) [0/1.2] Uncertainty in rew96 (1)
real*4 rew03 (nr__1) ! (0.1nm) [0.03/3.4] Rest-frame equivalent width
* CIV{lambda}1551{AA} (1)
real*4 e_rew03 (nr__1) ! (0.1nm) [0/0.9] Uncertainty in rew03 (1)
real*8 F1350 (nr__1) ! (10-19W/m2/nm) [1.5/683] The 1350{AA} continuum flux (2)
real*4 e_F1350 (nr__1) ! (10-19W/m2/nm) [0.1/13] Uncertainty in F1350 (2)
integer*4 Vrabs (nr__1) ! (km/s) [-44077/29977] Offset velocity of
* the CIV NAL system (3)
integer*4 ID (nr__1) ! [1/21239] Identification number of
* the CIV NAL system
integer*4 NAL (nr__1) ! [-2/2]? NAL symbol (4)
real*4 SL (nr__1) ! [0/19.3]? Significance level (SL) of
* the variation (5)
*Note (1): If the rest frame equivalent widths and corresponding errors of
* both lines of a C IV doublet are same, these values are the 1{sigma} upper
* limits of absorption strengths and indicate that the C IV NALs are not
* observed in the corresponding spectra.
*Note (2): Continuum flux and flux uncertainty measured from the original
* spectra of the SDSS; in 10^-17^erg/s/cm^2^/{AA} units
*Note (3): Velocity of the CIV NAL system with respect to the quasar emission
* line redshift.
*Note (4): Symbol as follows:
* 0 = NALs with |{Delta}Wr{lambda}1548|<3{sigma}{Delta}W{lambda}1548;
* -1 = weakened NALs with |{Delta}Wr{lambda}1548|>=3{sigma}{Delta}W{lambda}1548;
* 1 = enhanced NALs with |{Delta}Wr{lambda}1548|>=3{sigma}{Delta}W{lambda}1548;
* -2 = disappeared NALs;
* 2 = emerged NALs.
*Note (5): SL equals |{Delta}Wr{lambda}1548|/{sigma}{Delta}W{lambda}1548
C=============================================================================
C Loading file 'qsos.dat' ! List of quasars; table added by CDS
C Format for file interpretation
1 format(A18,1X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'qsos.dat')
write(6,*) '....Loading file: qsos.dat'
do i__=1,13736
read(1,'(A25)')ar__
read(ar__,1)SDSS(i__),zem(i__)
c ..............Just test output...........
write(6,1)SDSS(i__),zem(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! Catalog of CIV Narrow Absorption Line systems
C Format for file interpretation
2 format(
+ I5,1X,A18,1X,I5,1X,I5,1X,I4,1X,F6.4,1X,F6.4,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F4.2,1X,F7.3,1X,F6.3,1X,I6,1X,I5,1X,I2,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,49986
read(1,'(A111)')ar__1
read(ar__1,2)
+ Pair(i__),SDSS_1(i__),Plate(i__),MJD(i__),Fiber(i__),
+ zem_1(i__),zabs(i__),rew96(i__),e_rew96(i__),rew03(i__),
+ e_rew03(i__),F1350(i__),e_F1350(i__),Vrabs(i__),ID(i__),
+ NAL(i__),SL(i__)
if(ar__1(105:106) .EQ. '') NAL(i__) = iNULL__
if(ar__1(108:111) .EQ. '') SL(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Pair(i__),SDSS_1(i__),Plate(i__),MJD(i__),Fiber(i__),
+ zem_1(i__),zabs(i__),rew96(i__),e_rew96(i__),rew03(i__),
+ e_rew03(i__),F1350(i__),e_F1350(i__),Vrabs(i__),ID(i__),
+ NAL(i__),SL(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end