FORTRAN Generation
(/./ftp/cats/J/MNRAS/381/1035)

Conversion of standardized ReadMe file for file /./ftp/cats/J/MNRAS/381/1035 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-28
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/MNRAS/381/1035   Spectroscopy in Shapley supercluster           (Smith+, 2007)
*================================================================================
*A deep AAOmega survey of low-luminosity galaxies in the Shapley supercluster:
*stellar population trends.
*    Smith R.J., Lucey J.R., Hudson M.J.
*   <Mon. Not. R. Astron. Soc., 381, 1035-1052 (2007)>
*   =2007MNRAS.381.1035S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'tables.dat'	! Basic data, principal  and supplementary
                             line-strength indices for the sample galaxies
                             (tables 2, 3 and 4 of the paper)

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

      character*16  NFP        (nr__) ! NFP galaxy designation (JHHMMSS.s+DDMMSS)
      integer*4     S_N        (nr__) ! Signal-to-noise ratio measured over a
*                                rest-frame interval of 4500-5500{AA}
      integer*4     cz         (nr__) ! (km/s) Heliocentric radial velocity
      real*4        Rmag       (nr__) ! (mag) Total (Harris) R magnitude from NFPS photometry
      real*4        Bmag       (nr__) ! (mag) Total (Harris) B magnitude from NFPS photometry
      real*4        logSv      (nr__) ! ([km/s]) ? Velocity dispersion (2) (1)
      real*4        e_logSv    (nr__) ! ([km/s]) ? rms uncertainty on logsigma
      real*4        Mgb5177    (nr__) ! Non-degenerate absorption-line index
*                                    Mgb5177 (3) (2)
      real*4        e_Mgb5177  (nr__) ! rms uncertainty on Mgb5177
      real*4        Fe5015     (nr__) ! ?=- Non-degenerate absorption-line index
*                                    Fe5015 (2) (3)
      real*4        e_Fe5015   (nr__) ! ?=- rms uncertainty on Fe5015
      real*4        HgF        (nr__) ! ?=- Non-degenerate absorption-line index
*                                    HgF (2) (3)
      real*4        e_HgF      (nr__) ! ?=- rms uncertainty on HgF
      real*4        HdA        (nr__) ! HdA line-strength index
      real*4        e_HdA      (nr__) ! rms uncertainty on HdA
      real*4        HdF        (nr__) ! HdF line-strength index
      real*4        e_HdF      (nr__) ! rms uncertainty on HdF
      real*4        CN1        (nr__) ! CN1 line-strength index
      real*4        e_CN1      (nr__) ! rms uncertainty on CN1
      real*4        CN2        (nr__) ! CN2 line-strength index
      real*4        e_CN2      (nr__) ! rms uncertainty on CN2
      real*4        Ca4227     (nr__) ! Ca4227 line-strength index
      real*4        e_Ca4227   (nr__) ! rms uncertainty on Ca4227
      real*4        G4300      (nr__) ! G4300 line-strength index
      real*4        e_G4300    (nr__) ! rms uncertainty on G4300
      real*4        HgA        (nr__) ! ?=- HgA line-strength index
      real*4        e_HgA      (nr__) ! ?=- rms uncertainty on HgA
      real*4        Fe4383     (nr__) ! ?=- Fe4383 line-strength index
      real*4        e_Fe4383   (nr__) ! ?=- rms uncertainty on Fe4383
      real*4        Ca4455     (nr__) ! ?=- Ca4455 line-strength index
      real*4        e_Ca4455   (nr__) ! ?=- rms uncertainty on Ca4455
      real*4        Fe4531     (nr__) ! ?=- Fe4531 line-strength index
      real*4        e_Fe4531   (nr__) ! ?=- rms uncertainty on Fe4531
      real*4        Fe4668     (nr__) ! ?=- Fe4668 line-strength index
      real*4        e_Fe4668   (nr__) ! ?=- rms uncertainty on Fe4668
      real*4        Hbeta      (nr__) ! H{beta} line-strength index
      real*4        e_Hbeta    (nr__) ! rms uncertainty on Hbeta
      real*4        Fe5406     (nr__) ! Fe5406 line-strength index
      real*4        e_Fe5406   (nr__) ! rms uncertainty on Fe5406
*Note (1): Galaxies with missing data in this column are those for which
*     the dispersion was unresolved.
*Note (2): Velocity dispersions and line indices are as observed through
*     a 142-140 aperture, corresponding to 1.9kpc in our adopted cosmology
*Note (3): Indices have been corrected to the Lick resolution and to zero
*     intrinsic velocity broadening.

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

C  Loading file 'tables.dat'	! Basic data, principal  and supplementary
*                             line-strength indices for the sample galaxies
*                             (tables 2, 3 and 4 of the paper)

C  Format for file interpretation

    1 format(
     +  3X,A16,1X,I3,1X,I5,1X,F5.2,1X,F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,
     +  F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,F5.2,
     +  1X,F4.2,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
     +  1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,
     +  F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tables.dat')
      write(6,*) '....Loading file: tables.dat'
      do i__=1,232
        read(1,'(A232)')ar__
        read(ar__,1)
     +  NFP(i__),S_N(i__),cz(i__),Rmag(i__),Bmag(i__),logSv(i__),
     +  e_logSv(i__),Mgb5177(i__),e_Mgb5177(i__),Fe5015(i__),
     +  e_Fe5015(i__),HgF(i__),e_HgF(i__),HdA(i__),e_HdA(i__),
     +  HdF(i__),e_HdF(i__),CN1(i__),e_CN1(i__),CN2(i__),e_CN2(i__),
     +  Ca4227(i__),e_Ca4227(i__),G4300(i__),e_G4300(i__),HgA(i__),
     +  e_HgA(i__),Fe4383(i__),e_Fe4383(i__),Ca4455(i__),
     +  e_Ca4455(i__),Fe4531(i__),e_Fe4531(i__),Fe4668(i__),
     +  e_Fe4668(i__),Hbeta(i__),e_Hbeta(i__),Fe5406(i__),
     +  e_Fe5406(i__)
        if(ar__(43:47) .EQ. '') logSv(i__) = rNULL__
        if(ar__(49:53) .EQ. '') e_logSv(i__) = rNULL__
        if (idig(ar__(67:71)).EQ.0) Fe5015(i__) =  rNULL__
        if (idig(ar__(73:77)).EQ.0) e_Fe5015(i__) =  rNULL__
        if (idig(ar__(79:84)).EQ.0) HgF(i__) =  rNULL__
        if (idig(ar__(86:90)).EQ.0) e_HgF(i__) =  rNULL__
        if (idig(ar__(161:165)).EQ.0) HgA(i__) =  rNULL__
        if (idig(ar__(167:170)).EQ.0) e_HgA(i__) =  rNULL__
        if (idig(ar__(172:175)).EQ.0) Fe4383(i__) =  rNULL__
        if (idig(ar__(177:180)).EQ.0) e_Fe4383(i__) =  rNULL__
        if (idig(ar__(182:185)).EQ.0) Ca4455(i__) =  rNULL__
        if (idig(ar__(187:190)).EQ.0) e_Ca4455(i__) =  rNULL__
        if (idig(ar__(192:196)).EQ.0) Fe4531(i__) =  rNULL__
        if (idig(ar__(198:201)).EQ.0) e_Fe4531(i__) =  rNULL__
        if (idig(ar__(203:206)).EQ.0) Fe4668(i__) =  rNULL__
        if (idig(ar__(208:211)).EQ.0) e_Fe4668(i__) =  rNULL__
c    ..............Just test output...........
        write(6,1)
     +  NFP(i__),S_N(i__),cz(i__),Rmag(i__),Bmag(i__),logSv(i__),
     +  e_logSv(i__),Mgb5177(i__),e_Mgb5177(i__),Fe5015(i__),
     +  e_Fe5015(i__),HgF(i__),e_HgF(i__),HdA(i__),e_HdA(i__),
     +  HdF(i__),e_HdF(i__),CN1(i__),e_CN1(i__),CN2(i__),e_CN2(i__),
     +  Ca4227(i__),e_Ca4227(i__),G4300(i__),e_G4300(i__),HgA(i__),
     +  e_HgA(i__),Fe4383(i__),e_Fe4383(i__),Ca4455(i__),
     +  e_Ca4455(i__),Fe4531(i__),e_Fe4531(i__),Fe4668(i__),
     +  e_Fe4668(i__),Hbeta(i__),e_Hbeta(i__),Fe5406(i__),
     +  e_Fe5406(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C Locate position of first digit in string; or return 0
      integer function idig(c)
      character*(*) c
      character*1 c1
      integer lc,i
      lc=len(c)
      idig=0
      do i=1,lc
         if(c(i:i).ne.' ') go to 1
      end do
    1 if(i.gt.lc) return
      c1=c(i:i)
      if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
      if(i.gt.lc) return
      c1=c(i:i)
      if(c1.ge.'0'.and.c1.le.'9') idig=i
      return
      end