FORTRAN Generation
(/./ftp/cats/J/AJ/154/57)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/154/57 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-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/AJ/154/57     New SDSS and Washington photometry in Segue 3    (Hughes+, 2017)
*================================================================================
*A multiwavelength study of the Segue 3 cluster.
*    Hughes J., Lacy B., Sakari C., Wallerstein G., Davis C.E., Schiefelbein S.,
*    Corrin O., Joudi H., Le D., Haynes R.M.
*   <Astron. J., 154, 57-57 (2017)>
*   =2017AJ....154...57H    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Frames used

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

      character*10  Date        ! ("Y:M:D") Date of the observation
      character*6   Imager      ! Imager used in observation (ARCTIC or
*                                   SPICam) (1)
      character*1   Filter      ! Filter used in observation (C, R, u, g, r,
*                                   or i) (2)
      integer*4     Texp        ! (s) [30/1800] Exposure time
      real*4        Airmass     ! [1/2.37] Effective airmass
      real*4        FWHM        ! (arcsec) [0.5/1.7] Image Full-Width at Half-Maximum
*Note (1): The instrument identifiers are defined as follows:
*     ARCTIC = Astrophysical Research Consortium Telescope Imaging Camera
*              (ARCTIC) at Apache Point Observatory (APO);
*     SPICam = Seaver Prototype Imaging camera (SPIcam) at APO.
*Note (2): We observed Seg 3 in the Washington filters C and T_1_ and SDSS ugri
*     filters (R is converted to Washington T_1_).

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

C  Declarations for 'table2.dat'	! Cross-identification of objects in the Segue 3 field

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     Object      ! [2/304] Internal identifier (ID)
      character*19  SDSS        ! SDSS DR13 identifier
      character*1   f_SDSS      ! Photometric quality grade on SDSS (A, B, C, D,
*                                   F, or G) (1)
      real*8        RAdeg       ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg       ! (deg) Declination in decimal degrees (J2000)
      real*8        Xpix        ! (pix) [17.9/898.9] X pixel coordinate (X_C_) (2)
      real*8        Ypix        ! (pix) [6/732.78] Y pixel coordinate (Y_C_) (2)
      real*4        HRV         ! (km/s) [-353.7/28.8]? Radial velocity from
*                                    (Fadely+, 2011, J/AJ/142/88) (V_r_)
      real*4        Imag        ! (mag) [14.27/23.45]? Apparent I band magnitude
*                                   (I_O13_) (3)
      real*4        Vmag        ! (mag) [15.19/24.23]? Apparent V band magnitude
*                                   (V_O13_) (3)
*Note (1): SDSS DR13 photometric quality grade are defined as follows:
*      A = Warning flag;
*      B = Warning flag;
*      C = Warning flag;
*      D = Untrustworthy;
*      F = Untrustworthy;
*      G = Galaxy.
*Note (2): From Figures 3(b) and 9.
*Note (3): From Ortolani, Bica & Barbuy 2013, J/MNRAS/433/1966

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

C  Declarations for 'table3.dat'	! Segue 3: sources with detections in all filters

      integer*4 nr__2
      parameter (nr__2=218)	! Number of records
      character*92 ar__2  	! Full-size record

      integer*4     Object_1    ! [2/304] Internal identifier (ID)
      real*4        T1mag       ! (mag) [14/23.79] Apparent T_1_ band magnitude (4)
      real*4        e_T1mag     ! (mag) [0.004/0.1] The 1{sigma} uncertainty in T1mag
      real*4        Cmag        ! (mag) [15.15/26.2] Apparent C band magnitude (4)
      real*4        e_Cmag      ! (mag) [0.007/0.54] The 1{sigma} uncertainty in Cmag
      real*4        umag        ! (mag) [16.55/25.75] Apparent u band magnitude (4)
      real*4        e_umag      ! (mag) [0.009/0.59] The 1{sigma} uncertainty in umag
      real*4        gmag        ! (mag) [14.61/25.54] Apparent g band magnitude (4)
      real*4        e_gmag      ! (mag) [0.004/0.38] The 1{sigma} uncertainty in gmag
      real*4        rmag        ! (mag) [13.92/24.3] Apparent r band magnitude (4)
      real*4        e_rmag      ! (mag) [0.01/0.2] The 1{sigma} uncertainty in rmag
      real*4        imag_1      ! (mag) [13.86/35.77] Apparent i band magnitude (4)
      real*4        e_imag      ! (mag) [0.017/0.27] The 1{sigma} uncertainty in imag
      real*4        zmag        ! (mag) [14/23.1]? Apparent SDSS DR13 catalog z band
*                                   magnitude
      real*4        e_zmag      ! (mag) [0.01/0.95]? The 1{sigma} uncertainty in zmag
*Note (4): We used the Apache Point Observatory (APO) new Astrophysical Research
*     Consortium Telescope Imaging Camera (ARCTIC) and the camera it replaced,
*     Seaver Prototype Imaging camera (SPIcam) for our observations with the 3.5m
*     telescope. We observed Seg 3 in the The Washington filters (Canterna
*     1976AJ.....81..228C) C and T_1_ and SDSS ugri filters.

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

C  Declarations for 'table5.dat'	! Input for Hertzsprung-Russell (H-R) diagrams for the
                             photometric sample above the Main-Sequence TurnOff
                             (MSTO)

      integer*4 nr__3
      parameter (nr__3=14)	! Number of records
      character*65 ar__3  	! Full-size record

      integer*4     Object_2    ! [6/273] Internal identifier (ID)
      character*1   f_Object    ! [a] Flag on Object (1)
      real*4        logA        ! [5.1/9.5] Log of age log(Age)
      character*1   f_logA      ! [b] Flag on logA (1)
      real*4        Z           ! [0.004/0.005] Metallicity
      real*4        logT        ! ([K]) [3.68/4.1] Log of effective temperature
*                                  (logT_eff_)
      real*4        logL        ! ([Sun]) [0.86/2.28] Log of luminosity (logL/L_{Sun}_)
      real*4        logg        ! [2.35/4.31] Log of surface gravity
      real*4        Mass        ! ([Sun]) [1.32/2.63] Mass (M/M_{Sun}_)
      character*19  Com         ! Comments
*Note (1): Flag defined as follows:
*      a = Identified by V_r_ in Fadely et al. 2011 (Cat. J/AJ/142/88);
*      b = Young age estimate. Blue straggler (BS) or evolved BS?

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

C  Loading file 'table1.dat'	! Frames used

C  Format for file interpretation

    1 format(A10,1X,A6,1X,A1,1X,I4,1X,F5.3,1X,F3.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,102
        read(1,'(A34)')ar__
        read(ar__,1)Date,Imager,Filter,Texp,Airmass,FWHM
c    ..............Just test output...........
        write(6,1)Date,Imager,Filter,Texp,Airmass,FWHM
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Cross-identification of objects in the Segue 3 field

C  Format for file interpretation

    2 format(
     +  I3,1X,A19,1X,A1,1X,F10.6,1X,F9.6,1X,F7.3,1X,F7.3,1X,F6.1,1X,
     +  F6.3,1X,F6.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,218
        read(1,'(A83)')ar__1
        read(ar__1,2)
     +  Object,SDSS,f_SDSS,RAdeg,DEdeg,Xpix,Ypix,HRV,Imag,Vmag
        if(ar__1(64:69) .EQ. '') HRV = rNULL__
        if(ar__1(71:76) .EQ. '') Imag = rNULL__
        if(ar__1(78:83) .EQ. '') Vmag = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Object,SDSS,f_SDSS,RAdeg,DEdeg,Xpix,Ypix,HRV,Imag,Vmag
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Segue 3: sources with detections in all filters

C  Format for file interpretation

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

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,218
        read(1,'(A92)')ar__2
        read(ar__2,3)
     +  Object_1,T1mag,e_T1mag,Cmag,e_Cmag,umag,e_umag,gmag,e_gmag,
     +  rmag,e_rmag,imag_1,e_imag,zmag,e_zmag
        if(ar__2(83:87) .EQ. '') zmag = rNULL__
        if(ar__2(89:92) .EQ. '') e_zmag = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Object_1,T1mag,e_T1mag,Cmag,e_Cmag,umag,e_umag,gmag,e_gmag,
     +  rmag,e_rmag,imag_1,e_imag,zmag,e_zmag
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! Input for Hertzsprung-Russell (H-R) diagrams for the
*                             photometric sample above the Main-Sequence TurnOff
*                             (MSTO)

C  Format for file interpretation

    4 format(
     +  I3,1X,A1,1X,F4.2,1X,A1,1X,F6.4,1X,F6.4,1X,F5.3,1X,F5.3,1X,
     +  F6.4,1X,A19)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,14
        read(1,'(A65)')ar__3
        read(ar__3,4)
     +  Object_2,f_Object,logA,f_logA,Z,logT,logL,logg,Mass,Com
c    ..............Just test output...........
        write(6,4)
     +  Object_2,f_Object,logA,f_logA,Z,logT,logL,logg,Mass,Com
c    .......End.of.Just test output...........
      end do
      close(1)

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