Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/131/1948 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-Apr-19
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/131/1948 Narrow line Seyfert 1 galaxies in the FBQS (Whalen+, 2006)
*================================================================================
*Optical properties of radio-selected narrow-line Seyfert 1 galaxies.
* Whalen D.J., Laurent-Muehleisen S.A., Moran E.C., Becker R.H.
* <Astron. J., 131, 1948-1960 (2006)>
* =2006AJ....131.1948W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Narrow-line Seyfert 1 data
integer*4 nr__
parameter (nr__=62) ! Number of records
character*63 ar__ ! Full-size record
character*9 FBQS ! Source identification (HHMM+DDMM)
* (FBQS JHHMM+DDMM in Simbad) (1)
real*4 z ! Redshift
real*4 logR_ ! ([-]) The k-corrected radio loudness parameter
integer*4 FWHM_Hb ! (km/s) Full-width at half-maximum of H{beta} line
integer*4 FWHM__OIII_ ! (km/s) ? Full-width at half-maximum of
* [OIII](5007{AA}) line
real*4 v_OIII__Hb ! ? The [OIII]/H{beta} ratio
real*4 EW_FeII ! (0.1nm) ? Equivalent width of FeII (2)
real*4 EW_Hb ! (0.1nm) Equivalent width of H{beta}
real*4 EW__OIII_ ! (0.1nm) ? Equivalent width of [OIII]
real*4 alpha ! Spectral index (3)
*Note (1): Sources 1421+2824, 1644+2619, and 2155-0922 had [OIII] emission lines
* destroyed by atmospheric lines.
*Note (2): Calculated from the 4434-4684 and 5147-5350 Angstroms lines.
*Note (3): Where S_{lambda}_ {prop.to} {lambda}^-{alpha}^.
C=============================================================================
C Loading file 'table2.dat' ! Narrow-line Seyfert 1 data
C Format for file interpretation
1 format(
+ A9,1X,F5.3,1X,F5.2,1X,I4,1X,I4,1X,F5.3,1X,F5.1,1X,F6.2,1X,
+ F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,62
read(1,'(A63)')ar__
read(ar__,1)
+ FBQS,z,logR_,FWHM_Hb,FWHM__OIII_,v_OIII__Hb,EW_FeII,EW_Hb,
+ EW__OIII_,alpha
if(ar__(28:31) .EQ. '') FWHM__OIII_ = iNULL__
if(ar__(33:37) .EQ. '') v_OIII__Hb = rNULL__
if(ar__(39:43) .EQ. '') EW_FeII = rNULL__
if(ar__(52:57) .EQ. '') EW__OIII_ = rNULL__
c ..............Just test output...........
write(6,1)
+ FBQS,z,logR_,FWHM_Hb,FWHM__OIII_,v_OIII__Hb,EW_FeII,EW_Hb,
+ EW__OIII_,alpha
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end