Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/843/30 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-28 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/ApJ/843/30 MgII line vs 3000{AA} continuum analysis in 68 QSOs (Zhu+, 2017) *================================================================================ *Relation between the variations in the MgII{lambda}2798 emission line and *3000{AA} continuum. * Zhu D., Sun M., Wang T. * <Astrophys. J., 843, 30 (2017)> * =2017ApJ...843...30Z C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! *Sample data integer*4 nr__ parameter (nr__=2420) ! Number of records character*96 ar__ ! Full-size record integer*4 ID ! Identification number of our data pairs * in this paper character*19 SDSS ! SDSS object name (JHHMMSS.ss+DDMMSS.s) integer*4 Plate ! SDSS Plate number integer*4 Fiber ! SDSS Fiber number integer*4 MJD ! (d) Modified Julian Date of observation real*4 EW ! [18.4/195.5] Broad Mg II equivalent width (1) real*4 logMg2 ! ([10-7W]) [36.8/42.5] log narrow MgII line luminosity (2) real*4 logNe4 ! ([10-7W]) [0/42.3] log Ne IV (3426{AA}) line luminosity (2) real*4 logO2 ! ([10-7W]) [40.4/45.1] log O II (3726, 3729{AA}) * line luminosity (2) real*4 logNe3 ! ([10-7W]) [40.4/42.4] log NeIII (3869{AA}) line * luminosity (2) real*4 logO3 ! ([10-7W]) [0/43.4] log OIII (5008{AA}) line luminosity (2) real*4 z ! [0.6/1.5] Improved quasar redshift from DR7Q * and DR12Q real*4 log3000 ! ([10-7W]) [43.7/45.7] log 3000{AA} continuum luminosity (2) character*5 Cat ! Quasar catalog observation is included in integer*4 Nr ! [1/5] Number or narrow-lines used in final * flux recalibration *Note (1): relative to the underlying continuum at 3000{AA}. *Note (2): In units of erg/s. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'qsos.dat' ! List of unique quasars; table added by CDS integer*4 nr__1 parameter (nr__1=69) ! Number of records character*24 ar__1 ! Full-size record character*19 SDSS_1 ! SDSS object name (JHHMMSS.ss+DDMMSS.s) real*4 z_1 ! [0.6/1.5] Improved quasar redshift from SDSS DR7Q * and DR12Q (as in table 1) C============================================================================= C Loading file 'table1.dat' ! *Sample data C Format for file interpretation 1 format( + I4,1X,A19,1X,I4,1X,I4,1X,I5,1X,F6.2,1X,F5.2,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,A5,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,2420 read(1,'(A96)')ar__ read(ar__,1) + ID,SDSS,Plate,Fiber,MJD,EW,logMg2,logNe4,logO2,logNe3,logO3,z, + log3000,Cat,Nr c ..............Just test output........... write(6,1) + ID,SDSS,Plate,Fiber,MJD,EW,logMg2,logNe4,logO2,logNe3,logO3,z, + log3000,Cat,Nr c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'qsos.dat' ! List of unique quasars; table added by CDS C Format for file interpretation 2 format(A19,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'qsos.dat') write(6,*) '....Loading file: qsos.dat' do i__=1,69 read(1,'(A24)')ar__1 read(ar__1,2)SDSS_1,z_1 c ..............Just test output........... write(6,2)SDSS_1,z_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end