FORTRAN Generation
(/./ftp/cats/J/ApJS/97/141)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJS/97/141 into FORTRAN code for loading all data files into arrays.

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-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/ApJS/97/141      Einstein sample multiparametric analysis. I. (Eskridge+ 1995)
*================================================================================
*A multiparametric analysis of the Einstein sample of early-type galaxies. I.
*Luminosity and ISM parameters.
*       Eskridge P.B., Fabbiano G., Kim D.-W.
*      <Astrophys. J. Suppl. Ser. 97, 141 (1995)>
*      =1995ApJS...97..141E      (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1a'	! Flux Data

      integer*4 nr__
      parameter (nr__=148)	! Number of records
      character*166 ar__   	! Full-size record

      character*8   Name       (nr__) ! Galaxy name
      real*4        BT0        (nr__) ! (mag) B magnitude
      integer*4     MType      (nr__) ! Morphological type
      real*4        log_a_b    (nr__) ! ? Ratio of axes in log. scale
      character*1   l_FX       (nr__) ! Limit flag on FX
      real*4        FX         (nr__) ! (10-13mW/m2) X-ray flux (1)
      real*4        e_FX       (nr__) ! (10-13mW/m2) ? rms uncertainty on FX
      real*4        Dist       (nr__) ! (Mpc) Distance
      integer*4     F12        (nr__) ! (mJy) ? Flux at 12um
      integer*4     e_F12      (nr__) ! (mJy) ? rms uncertainty on F12
      integer*4     F25        (nr__) ! (mJy) ? Flux at 25um
      integer*4     e_F25      (nr__) ! (mJy) ? rms uncertainty on F25
      integer*4     F60        (nr__) ! (mJy) ? Flux at 60um
      integer*4     e_F60      (nr__) ! (mJy) ? rms uncertainty on F60
      integer*4     F100       (nr__) ! (mJy) ? Flux at 100um
      integer*4     e_F100     (nr__) ! (mJy) ? rms uncertainty on F100
      character*1   u_F100     (nr__) ! Uncertainty flag on F100
      real*8        F6cm       (nr__) ! (mJy) ? Flux at 6cm
      real*4        e_F6cm     (nr__) ! (mJy) ? rms uncertainty on F6cm
      real*8        F6core     (nr__) ! (mJy) ? Core radio flux
      real*4        e_F6core   (nr__) ! (mJy) ? rms uncertainty on F6core
      character*1   l_FHI      (nr__) ! Limit flag on FHI
      real*4        FHI        (nr__) ! (Jy.km/s) ? 21cm HI line flux (1)
      real*4        ulFHI      (nr__) ! (mJy) ? Upper limit of 21cm HI line flux
*                                          in mJy/channel
      character*10  Ref        (nr__) ! References (2)
*Note (1): The value listed as upper limits are 3{sigma}.
*Note (2): IRAS references:
*      1. Knapp et al., 1989  <J/ApJS/70/329>
*      2. Knapp et al., 1989, blended: NGC 2832 with NGC 2831
*                                      NGC 4638 with NGC 4637
*                                      NGC 6876 with NGC 6877
*      3. Not observed by IRAS - Lonsdale et al., 1985, cat. <VII/113>
*      4. Rice et al., 1988, cat. <VII/109>
*      5. Fullmer and Lonsdale 1989, cat. <VII/113>
*      6. Fullmer and Lonsdale 1989, blended: NGC 1510 with NGC 1512
*                                             NGC 2444 with NGC 2445
*                                             NGC 6027 in a Zwicky Group
*                                             NGC 127, NGC 130 and NGC 128
*      7. Condon et al., 1991 <1991AJ....101..362C>
*      8. Haynes et al., 1990 <1990AJ.....99.1740H>
*      9. Vereshchagin et al. <1989AZh....66..527V>
*    Radio continuum references:.
*     10. FGT (Fabbiano et al., <1989ApJ...347..127F>)
*     11. Roberts et al., <1991ApJS...75..751R>
*     12. Wrobel <1991AJ....101..127W>
*     13. Wrobel and Heeschen <1988ApJ...335..677W>
*     14. Ekers and Ekers <1973A&A....24..247E>
*     15. Fabbiano et al., <1987ApJ...312..111F>
*     16. Wright   <1974MNRAS.167..273W>
*     17. Sulentic <1976ApJS...32..171S>
*     18. Hummel et al., <1984A&A...134..207H>
*     19. Haynes et al., 1975
*     20. Disney and Wall <1977MNRAS.179..235D>
*     21. Calvani et al. <1989AJ.....97.1319C>
*     22. Hummel et al.  <1991A&AS...87..309H>
*     23. Condon et al.  <1991AJ....101..362C>
*   Radio core references:.
*     24. Bridle and Fomalont <1978AJ.....83..704B>
*     25. Wrobel and Heeschen <1984ApJ...287...41W>
*     26. Geldzahler and Fomalont <1978AJ.....83.1047G>
*     27. Killeen et al., <1988ApJ...325..180K>
*     28. Stanger and Warwick <1986MNRAS.220..363S>
*     29. Burns et al. <1983ApJ...273..128B>
*     30. Killeen et al., <1986ApJ...302..306K>
*     31. Birkinshaw and Davies <1985ApJ...291...32B>
*     32. Fabbiano et al. <1984ApJ...277..115F>
*     33. Feretti et al. <1984A&A...139...55F>
*     34. Wrobel and Heeschen <1991AJ....101..148W>
*     35. Bridle and Perley 1984
*     36. Impey and Gregorini, 1993, cat. <J/AJ/105/853>
*     37. Sadler et al. <1989MNRAS.240..591S>
*     38. Wilkinson et al. <1987MNRAS.224..895W>
*     39. Neff and Hutchings <1992AJ....103.1746N>
*     40. Ekers et al. <1989MNRAS.236..737E>
*   HI references:.
*     41. Roberts et al. <1991ApJS...75..751R>
*     42. Huchtmeier and Richter 1989
*     43. Huchtmeier and Richter 1989: NGC 7236 blended with NGC 7237.
*     44. Eder et al. <1991AJ....102..572E>
*     45. van Gorkom et al. <1989AJ.....97..708V>: HI in absorption
*     46. Bottinelli et al., 1990, cat. <VII/136>

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1b'	! Luminosity data

      integer*4 nr__1
      parameter (nr__1=148)	! Number of records
      character*66 ar__1  	! Full-size record

      character*9   Name_1     (nr__1) ! Galaxy name
      real*4        log_LB     (nr__1) ! ([10-7W]) B luminosity
      character*1   l_log_LX   (nr__1) ! Limit flag on log(LX)
      real*4        log_LX     (nr__1) ! ([10-7W]) X-ray luminosity
      character*1   l_log_LX_LB(nr__1) ! Limit flag on log(LX/LB)
      real*4        log_LX_LB  (nr__1) ! B versus X luminosity
      character*1   l_log_L12  (nr__1) ! Limit flag on log(L12)
      real*4        log_L12    (nr__1) ! ([10-7W]) ? 12um luminosity
      character*1   l_log_L100 (nr__1) ! Limit flag on log(L100)
      real*4        log_L100   (nr__1) ! ([10-7W]) ? 100um luminosity
      character*1   l_log_L6   (nr__1) ! Limit flag on log(L6)
      real*4        log_L6     (nr__1) ! ([10-7W]) ? 6cm luminosity
      character*1   l_log_L6CO (nr__1) ! Limit flag on log(L6CO)
      real*4        log_L6CO   (nr__1) ! ([10-7W]) ? Core radio luminosity
      character*1   l_log_MHI  (nr__1) ! Limit flag on log(MHI)
      real*4        log_MHI    (nr__1) ! ([solMass]) ? HI mass

C=============================================================================

C  Loading file 'table1a'	! Flux Data

C  Format for file interpretation

    1 format(
     +  1X,A8,5X,F5.2,3X,I2,5X,F4.2,5X,A1,F6.2,1X,F4.2,1X,F5.1,1X,I5,
     +  9X,I3,1X,I5,1X,I3,1X,I6,1X,I4,1X,I6,1X,I5,A1,F8.1,1X,F6.2,2X,
     +  F7.2,1X,F5.2,1X,A1,F6.2,2X,F5.2,1X,A10)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1a')
      write(6,*) '....Loading file: table1a'
      do i__=1,148
        read(1,'(A166)')ar__
        read(ar__,1)
     +  Name(i__),BT0(i__),MType(i__),log_a_b(i__),l_FX(i__),FX(i__),
     +  e_FX(i__),Dist(i__),F12(i__),e_F12(i__),F25(i__),e_F25(i__),
     +  F60(i__),e_F60(i__),F100(i__),e_F100(i__),u_F100(i__),
     +  F6cm(i__),e_F6cm(i__),F6core(i__),e_F6core(i__),l_FHI(i__),
     +  FHI(i__),ulFHI(i__),Ref(i__)
        if(ar__(30:33) .EQ. '') log_a_b(i__) = rNULL__
        if(ar__(47:50) .EQ. '') e_FX(i__) = rNULL__
        if(ar__(58:62) .EQ. '') F12(i__) = iNULL__
        if(ar__(72:74) .EQ. '') e_F12(i__) = iNULL__
        if(ar__(76:80) .EQ. '') F25(i__) = iNULL__
        if(ar__(82:84) .EQ. '') e_F25(i__) = iNULL__
        if(ar__(86:91) .EQ. '') F60(i__) = iNULL__
        if(ar__(93:96) .EQ. '') e_F60(i__) = iNULL__
        if(ar__(98:103) .EQ. '') F100(i__) = iNULL__
        if(ar__(105:109) .EQ. '') e_F100(i__) = iNULL__
        if(ar__(111:118) .EQ. '') F6cm(i__) = rNULL__
        if(ar__(120:125) .EQ. '') e_F6cm(i__) = rNULL__
        if(ar__(128:134) .EQ. '') F6core(i__) = rNULL__
        if(ar__(136:140) .EQ. '') e_F6core(i__) = rNULL__
        if(ar__(143:148) .EQ. '') FHI(i__) = rNULL__
        if(ar__(151:155) .EQ. '') ulFHI(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Name(i__),BT0(i__),MType(i__),log_a_b(i__),l_FX(i__),FX(i__),
     +  e_FX(i__),Dist(i__),F12(i__),e_F12(i__),F25(i__),e_F25(i__),
     +  F60(i__),e_F60(i__),F100(i__),e_F100(i__),u_F100(i__),
     +  F6cm(i__),e_F6cm(i__),F6core(i__),e_F6core(i__),l_FHI(i__),
     +  FHI(i__),ulFHI(i__),Ref(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table1b'	! Luminosity data

C  Format for file interpretation

    2 format(
     +  A9,1X,F5.2,2X,A1,F5.2,1X,A1,F6.3,1X,A1,F5.2,1X,A1,F5.2,1X,A1,
     +  F5.2,1X,A1,F5.2,1X,A1,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1b')
      write(6,*) '....Loading file: table1b'
      do i__=1,148
        read(1,'(A66)')ar__1
        read(ar__1,2)
     +  Name_1(i__),log_LB(i__),l_log_LX(i__),log_LX(i__),
     +  l_log_LX_LB(i__),log_LX_LB(i__),l_log_L12(i__),log_L12(i__),
     +  l_log_L100(i__),log_L100(i__),l_log_L6(i__),log_L6(i__),
     +  l_log_L6CO(i__),log_L6CO(i__),l_log_MHI(i__),log_MHI(i__)
        if(ar__1(34:38) .EQ. '') log_L12(i__) = rNULL__
        if(ar__1(41:45) .EQ. '') log_L100(i__) = rNULL__
        if(ar__1(48:52) .EQ. '') log_L6(i__) = rNULL__
        if(ar__1(55:59) .EQ. '') log_L6CO(i__) = rNULL__
        if(ar__1(62:66) .EQ. '') log_MHI(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Name_1(i__),log_LB(i__),l_log_LX(i__),log_LX(i__),
     +  l_log_LX_LB(i__),log_LX_LB(i__),l_log_L12(i__),log_L12(i__),
     +  l_log_L100(i__),log_L100(i__),l_log_L6(i__),log_L6(i__),
     +  l_log_L6CO(i__),log_L6CO(i__),l_log_MHI(i__),log_MHI(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end