Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/435/437 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/A+A/435/437 Brightness and diameters for extragalactic SNRs (Urosevic+, 2005)
*================================================================================
*The {Sigma}-D relation for supernova remnants in nearby galaxies.
* Urosevic D., Pannuti T.G., Duric N., Theodorou A.
* <Astron. Astrophys., 435, 437-447 (2005)>
* =2005A&A...435..437U
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! The basic quantities for 148 SNRs in nearby
galaxies used for deriving of the updated
{Sigma}-D relations.
integer*4 nr__
parameter (nr__=148) ! Number of records
character*65 ar__ ! Full-size record
character*1 Type ! [NS] (N)ormal or (S)tarburst galaxies
character*8 Galaxy ! Galaxy name
character*9 Name ! Name of supernova remnant
character*1 n_Name ! [*] *: Individual note (1)
real*4 D ! (pc) Diameter of SNR
real*8 S1_4GHz ! (mJy) Flux density at 1.4GHz
real*4 e_S1_4GHz ! (mJy) ? rms uncertainty on S1.4GHz
character*1 n_S1_4GHz ! [aeD] Note on S1.4GHz (2)
character*1 l_Sp_Index ! Limit flag on Sp-Index
real*4 Sp_Index ! Spectral index (3)
real*4 e_Sp_Index ! ? rms uncertainty on Sp-Index
character*1 n_Sp_Index ! [bc] Note on Sp-Index (4)
real*4 Sigma_1GHz ! (W/m+2/Hz/sr) Radio surface brightness at 1GHz
*Note (1): TNG 38.9+42.5 corrected into TNG 38.9+22.5 by CDS
*Note (2): Notes on S1.4GHz as follows:
* a = S_20_ has been extrapolated from the values listed for {alpha}
* and S_36_ by Filipovic et al. (1998, Cat. <J/A+AS/130/421>).
* D = The flux densities are from the paper by
* Dickel & Milne (1995AJ....109..200D).
* e = S_20_ has been extrapolated from the values listed for {alpha}
* and S_18_ by Tarchi et al. (2000A&A...358...95T).
*Note (3): We adopted published values for the spectral index alpha
* (S_nu_{prop.to}nu^-alpha^) of these sources; if no spectral index
* was given, a value of 0.5 was assumed.
*Note (4): Notes on alpha as follows:
* b = No spectral index data available; a value of {alpha}=0.5 is assumed.
* c = S_20_ has been extrapolated from the values listed for {alpha}
* by McDonald et al. (2002MNRAS.334..912M) and
* S_3.6_ by Huang et al. (1994ApJ...424..114H).
C=============================================================================
C Loading file 'tablea1.dat' ! The basic quantities for 148 SNRs in nearby
* galaxies used for deriving of the updated
* {Sigma}-D relations.
C Format for file interpretation
1 format(
+ A1,1X,A8,1X,A9,A1,F6.2,3X,F8.3,1X,F5.3,A1,A1,F4.2,1X,F4.2,A1,
+ 1X,E8.3)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,148
read(1,'(A65)')ar__
read(ar__,1)
+ Type,Galaxy,Name,n_Name,D,S1_4GHz,e_S1_4GHz,n_S1_4GHz,
+ l_Sp_Index,Sp_Index,e_Sp_Index,n_Sp_Index,Sigma_1GHz
if(ar__(40:44) .EQ. '') e_S1_4GHz = rNULL__
if(ar__(52:55) .EQ. '') e_Sp_Index = rNULL__
c ..............Just test output...........
write(6,1)
+ Type,Galaxy,Name,n_Name,D,S1_4GHz,e_S1_4GHz,n_S1_4GHz,
+ l_Sp_Index,Sp_Index,e_Sp_Index,n_Sp_Index,Sigma_1GHz
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end