FORTRAN Generation
(/./ftp/cats/J/ApJ/703/2177)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/703/2177 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/ApJ/703/2177   Metal-poor MS turnoff stars summary (Schlaufman+, 2009)
*================================================================================
*Insight into the formation of the Milky Way through cold halo substructure.
*I. The ECHOS of Milky Way formation.
*    Schlaufman K.C., Rockosi C.M., Prieto C.A., Beers T.C., Bizyaev D.,
*    Brewington H., Lee Y.S., Malanushenko V., Malanushenko E., Oravetz D.,
*    Pan K., Simmons A., Snedden S., Yanny B.
*   <Astrophys. J., 703, 2177-2204 (2009)>
*   =2009ApJ...703.2177S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4.dat'	! Summary of completeness calculation

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

C  J2000 position composed of: RAdeg DEdeg
      real*4        RAdeg       ! (deg) Right Ascension in decimal degrees (J2000)
      real*4        DEdeg       ! (deg) Declination in decimal degrees (J2000)
      real*4        GLON        ! (deg) Galactic longitude
      real*4        GLAT        ! (deg) Galactic latitude
      integer*4     Ns          ! [10/173] Number of spectra obtained along that
*                               line of sight that lie in the inner halo as
*                               defined in Section 2
      integer*4     Np          ! Number of photometrically classified MPMSTO stars
*                               in the volume scanned by SEGUE along that line
*                               of sight that lie in the inner halo as defined
*                               in Section 2 (1)
      real*4        Vol         ! (kpc3) Volume
      character*1   l_Ob        ! Limit flag on Ob
      real*4        Ob          ! [0/1] Fraction of total MPMSTO spectra sample
*                               that must belong to a single cold element of
*                               substructure for it to be classified as a bin
*                               detection 95% of the time (1)
      character*1   l_OI        ! Limit flag on OI
      real*4        OI          ! [0/1] Fraction of total MPMSTO spectra sample
*                               that must belong to a single cold element of
*                               substructure for it to be classified as a
*                               class I detection 95% of the time (1)
      character*1   l_OII       ! Limit flag on OII
      real*4        OII         ! [0/1] Fraction of total MPMSTO spectra sample
*                               that must belong to a single cold element of
*                               substructure for it to be classified as a
*                               class II detection 95% of the time (1)
      character*9   Com         ! Comment (Strm = stream)
*Note (1): MPMSTO = metal-poor main-sequence turnoff stars.
*     See Section 3.3 for the classes of peak detections.

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

C  Loading file 'table4.dat'	! Summary of completeness calculation

C  Format for file interpretation

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

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,137
        read(1,'(A69)')ar__
        read(ar__,1)
     +  RAdeg,DEdeg,GLON,GLAT,Ns,Np,Vol,l_Ob,Ob,l_OI,OI,l_OII,OII,Com
c    ..............Just test output...........
        write(6,1)
     +  RAdeg,DEdeg,GLON,GLAT,Ns,Np,Vol,l_Ob,Ob,l_OI,OI,l_OII,OII,Com
c    .......End.of.Just test output...........
      end do
      close(1)

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