FORTRAN Generation
(/./ftp/cats/J/A_A/414/825)

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