Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/414/825 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/A+A/414/825 Mid-infrared spectroscopy of LINERs (Satyapal+, 2004) *================================================================================ *A joint mid-infrared spectroscopic and X-ray imaging investigation of *LINER galaxies. * Satyapal S., Sambruna R.M., Dudik R.P. * <Astron. Astrophys. 414, 825 (2004)> * =2004A&A...414..825S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! The ISO-SWS and Chandra sample integer*4 nr__ parameter (nr__=42) ! Number of records character*82 ar__ ! Full-size record character*15 Name ! Common galaxy name character*3 OName ! Other name of the galaxy character*17 Obs ! Observed by Chandra, SWS or LWS real*4 Dist ! (Mpc) Distance (for H0=75km/s/Mpc unless otherwise * noted in n_Dist) character*1 n_Dist ! [a-g] References for Dist (1) character*12 MType ! Hubble type real*4 logLFIR ! ([solLum]) ? Far-infrared luminosity (2) character*1 l_LFIR_LB ! Limit flag on LFIR/LB real*4 LFIR_LB ! ? Far-infrared to B luminosities ratio (3) character*3 BroadHa ! [yes ] LINERs with broad H{alpha} emission real*4 NH ! (10+22cm-2) Hydrogen column density *Note (1): References: * a: Stanek et al. (1998ApJ...503L.131S) * b: Puche et al. (1988A&A...206...89P) * c: Tully et al. (1988AJ.....96...73T) * d: Guainazzi (2000A&A...364L..80G) * e: Ho et al. (2001ApJ...549L..51H) * f: Wilson & Yang (2001, AAS 33, 1530) * g: Feldmeier et al. (1997, Cat. <J/ApJ/479/231>) *Note (2): Far-infrared luminosity corresponds to the 40-500um wavelength * interval and were calculated using the IRAS 60 and 100um fluxes * according to the prescription: * LFIR=1.26*10^-14^(2.58f60+f100) in W/m^2^ * (Sanders & Mirabel, 1996ARA&A..34..749S) *Note (3): LB: B magnitude see Carrillo et al. (1999, <J/other/RMxAA/35.187>) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Observed fine structure line fluxes and upper limits integer*4 nr__1 parameter (nr__1=24) ! Number of records character*155 ar__1 ! Full-size record character*15 Name_1 ! Galaxy name character*1 l__SIV_ ! Limit flag on [SIV] real*4 v_SIV_ ! (10-20W/cm2) ? [SIV] line flux (1) real*4 e__SIV_ ! (10-20W/cm2) ? rms uncertainty on [SIV] character*1 n__SIV_ ! [3] Note on [SIV] (2) character*1 l__NeII_ ! Limit flag on [NeIII] real*4 v_NeII_ ! (10-20W/cm2) ? [NeII] line flux (1) real*4 e__NeII_ ! (10-20W/cm2) ? rms uncertainty on [NeII] character*1 n__NeII_ ! [abc3] Note on [NeII] (2) character*1 l__NeV_ ! Limit flag on [NeV] real*4 v_NeV_ ! (10-20W/cm2) ? [NeV] line flux (1) real*4 e__NeV_ ! (10-20W/cm2) ? rms uncertainty on [NeV] character*1 n__NeV_ ! [cd3] Note on [NeV] (2) character*1 l__NeIII_ ! Limit flag on [NeIII] real*4 v_NeIII_ ! (10-20W/cm2) ? [NeIII] line flux (1) real*4 e__NeIII_ ! (10-20W/cm2) ? rms uncertainty on [NeIII] character*1 n__NeIII_ ! [3abd] Note on [NeIII] (2) character*1 l__SIII_ ! Limit flag on [SIII] real*4 v_SIII_ ! (10-20W/cm2) ? [SIII] line flux (1) real*4 e__SIII_ ! (10-20W/cm2) ? rms uncertainty on [SIII] character*1 n__SIII_ ! [bc3] Note on [SIII] (2) character*1 l__OIV_ ! Limit flag on [OIV] real*4 v_OIV_ ! (10-20W/cm2) ? [OIV] line flux (1) real*4 e__OIV_ ! (10-20W/cm2) ? rms uncertainty on [OIV] character*1 n__OIV_ ! [3dc] Note on [OIV] (2) character*1 l__FeII_ ! Limit flag on [FeIII] real*4 v_FeII_ ! (10-20W/cm2) ? [FeII] line flux (1) real*4 e__FeII_ ! (10-20W/cm2) ? rms uncertainty on [FeII] character*1 n__FeII_ ! [3] Note on [FeII] (2) character*1 l__SIII_2 ! Limit flag on [SIII]2 real*4 v_SIII_2 ! (10-20W/cm2) ? [SIII]2 line flux (1) real*4 e__SIII_2 ! (10-20W/cm2) ? rms uncertainty on [SIII]2 character*1 n__SIII_2 ! [cb3] Note on [SIII]2 (2) character*1 l__SiII__1 ! Limit flag on [SiII] real*4 v_SiII__1 ! (10-20W/cm2) ? [SiII] line flux (1) real*4 e__SiII__1 ! (10-20W/cm2) ? rms uncertainty on [SiII] character*1 n__SiII__1 ! [3c] Note on [SiII] (2) character*1 l__NeIII_2 ! Limit flag on [NeIII]2 real*4 v_NeIII_2 ! (10-20W/cm2) ? [NeIII]2 line flux (1) real*4 e__NeIII_2 ! (10-20W/cm2) ? rms uncertainty on [NeIII]2 character*1 n__NeIII_2 ! [3] Note on [NeIII]2 (2) *Note (1): Definitions: * [SIV] : lambda=10.5um; E_ion_=34.8eV, Aperture^2^=14x20arcsec^2^ * [NeII] : lambda=12.8um; E_ion_=21.6eV, Aperture^2^=14x27arcsec^2^ * [NeV] : lambda=14.3um; E_ion_=97.1eV, Aperture^2^=14x27arcsec^2^ * [NeIII] : lambda=15.5um; E_ion_=41.0eV, Aperture^2^=14x27arcsec^2^ * [SIII] : lambda=18.7um; E_ion_=23.3eV, Aperture^2^=14x27arcsec^2^ * [OIV] : lambda=25.9um; E_ion_=54.9eV, Aperture^2^=14x20arcsec^2^ * [FeII] : lambda=26.0um; E_ion_= 7.9eV, Aperture^2^=14x27arcsec^2^ * [SIII]2 : lambda=33.5um; E_ion_=23.3eV, Aperture^2^=20x33arcsec^2^ * [SiII] : lambda=38.4um; E_ion_= 8.2eV, Aperture^2^=20x33arcsec^2^ * [NeIII]2 : lambda=36.0um; E_ion_=41.0eV, Aperture^2^=20x33arcsec^2^ * where E_Ion_ is lower ionization potential of the stage leading to * the transition *Note (2): Notes and references: * 3: upper limits correspond to 3 values. * References: * Flux data for these objects were taken from * a: Thornley et al. (2000ApJ...539..641T) * b: Sugai & Malkan (2000ApJ...529..219S) * c: Genzel et al. (1998ApJ...498..579G) * d: Prieto & Viegas (2000ApJ...532..238P). C============================================================================= C Loading file 'table1.dat' ! The ISO-SWS and Chandra sample C Format for file interpretation 1 format( + A15,1X,A3,1X,A17,1X,F6.2,A1,1X,A12,1X,F4.1,1X,A1,F6.2,1X,A3, + 1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,42 read(1,'(A82)')ar__ read(ar__,1) + Name,OName,Obs,Dist,n_Dist,MType,logLFIR,l_LFIR_LB,LFIR_LB, + BroadHa,NH if(ar__(60:63) .EQ. '') logLFIR = rNULL__ if(ar__(66:71) .EQ. '') LFIR_LB = rNULL__ c ..............Just test output........... write(6,1) + Name,OName,Obs,Dist,n_Dist,MType,logLFIR,l_LFIR_LB,LFIR_LB, + BroadHa,NH c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Observed fine structure line fluxes and * upper limits C Format for file interpretation 2 format( + A15,3X,A1,F4.2,1X,F4.2,A1,2X,A1,F6.2,1X,F4.2,A1,3X,A1,F4.2,1X, + F4.2,A1,1X,A1,F5.2,1X,F4.2,A1,2X,A1,F5.2,1X,F4.2,A1,1X,A1, + F5.3,1X,F4.2,1X,A1,2X,A1,F5.2,1X,F4.2,A1,1X,A1,F5.2,1X,F4.2, + A1,1X,A1,F6.2,1X,F4.2,A1,1X,A1,F5.2,1X,F4.2,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,24 read(1,'(A155)')ar__1 read(ar__1,2) + Name_1,l__SIV_,v_SIV_,e__SIV_,n__SIV_,l__NeII_,v_NeII_, + e__NeII_,n__NeII_,l__NeV_,v_NeV_,e__NeV_,n__NeV_,l__NeIII_, + v_NeIII_,e__NeIII_,n__NeIII_,l__SIII_,v_SIII_,e__SIII_, + n__SIII_,l__OIV_,v_OIV_,e__OIV_,n__OIV_,l__FeII_,v_FeII_, + e__FeII_,n__FeII_,l__SIII_2,v_SIII_2,e__SIII_2,n__SIII_2, + l__SiII__1,v_SiII__1,e__SiII__1,n__SiII__1,l__NeIII_2, + v_NeIII_2,e__NeIII_2,n__NeIII_2 if(ar__1(20:23) .EQ. '') v_SIV_ = rNULL__ if(ar__1(25:28) .EQ. '') e__SIV_ = rNULL__ if(ar__1(33:38) .EQ. '') v_NeII_ = rNULL__ if(ar__1(40:43) .EQ. '') e__NeII_ = rNULL__ if(ar__1(49:52) .EQ. '') v_NeV_ = rNULL__ if(ar__1(54:57) .EQ. '') e__NeV_ = rNULL__ if(ar__1(61:65) .EQ. '') v_NeIII_ = rNULL__ if(ar__1(67:70) .EQ. '') e__NeIII_ = rNULL__ if(ar__1(75:79) .EQ. '') v_SIII_ = rNULL__ if(ar__1(81:84) .EQ. '') e__SIII_ = rNULL__ if(ar__1(88:92) .EQ. '') v_OIV_ = rNULL__ if(ar__1(94:97) .EQ. '') e__OIV_ = rNULL__ if(ar__1(103:107) .EQ. '') v_FeII_ = rNULL__ if(ar__1(109:112) .EQ. '') e__FeII_ = rNULL__ if(ar__1(116:120) .EQ. '') v_SIII_2 = rNULL__ if(ar__1(122:125) .EQ. '') e__SIII_2 = rNULL__ if(ar__1(129:134) .EQ. '') v_SiII__1 = rNULL__ if(ar__1(136:139) .EQ. '') e__SiII__1 = rNULL__ if(ar__1(143:147) .EQ. '') v_NeIII_2 = rNULL__ if(ar__1(149:152) .EQ. '') e__NeIII_2 = rNULL__ c ..............Just test output........... write(6,2) + Name_1,l__SIV_,v_SIV_,e__SIV_,n__SIV_,l__NeII_,v_NeII_, + e__NeII_,n__NeII_,l__NeV_,v_NeV_,e__NeV_,n__NeV_,l__NeIII_, + v_NeIII_,e__NeIII_,n__NeIII_,l__SIII_,v_SIII_,e__SIII_, + n__SIII_,l__OIV_,v_OIV_,e__OIV_,n__OIV_,l__FeII_,v_FeII_, + e__FeII_,n__FeII_,l__SIII_2,v_SIII_2,e__SIII_2,n__SIII_2, + l__SiII__1,v_SiII__1,e__SiII__1,n__SiII__1,l__NeIII_2, + v_NeIII_2,e__NeIII_2,n__NeIII_2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end