FORTRAN Generation
(/./ftp/cats/J/ApJ/425/418)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/425/418 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/425/418     Absolute R mag of brightest cluster galaxies    (Lauer+, 1994)
*================================================================================
*The motion of the Local Group with respect to the 15,000 kilometer per second
*Abell cluster inertial frame.
*    Lauer T.R., Postman M.
*   <Astrophys. J., 425, 418-438 (1994)>
*   =1994ApJ...425..418L    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! The Abell cluster inertial frame (ACIF)

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

C  Position composed of: GLON GLAT
      integer*4     Abell       ! [76/4059] Abell number
      real*4        z           ! [0.0107/0.0547] Adopted cluster redshift in Local
*                               Group frame
      real*4        GLON        ! (deg) Galactic longitude of the brightest cluster galaxy
      real*4        GLAT        ! (deg) Galactic latitude of the brightest cluster galaxy
      real*4        E_B_V       ! (mag) [0/0.127] Extinction from Burstein & Heiles
*                               (1984ApJS...54...33B)

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

C  Declarations for 'table3.dat'	! BCG photometric properties as a function of
                                 inertial frame

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

      integer*4     Abell_1     ! [76/4059] Abell number
      real*8        RMAGcmb     ! (mag) [-23.2/-21.5] Absolute R magnitude in CMB frame
      real*8        RMAGlg      ! (mag) [-23.2/-21.5] Absolute R magnitude in Local
*                               Group frame
      real*8        RMAGf       ! (mag) [-23.3/-21.4] Absolute R magnitude in Abell
*                               cluster inertial frame
      real*4        alphacmb    ! [0.2/1.2] alpha parameter in CMB frame (1)
      real*4        alphalg     ! [0.2/1.2] alpha parameter in Local Group frame (1)
      real*4        alphaf      ! [0.2/1.2] alpha parameter in Abell cluster
*                               inertial frame (1)
      real*4        DMcmb       ! (mag) [-0.7/0.7] Magnitude residual
*                               (RMAGcmb-f(alphacmb))
      real*4        DMlg        ! (mag) [-0.7/0.6] Magnitude residual (RMAGlg-f(alphalg))
      real*4        DMf         ! (mag) [-0.8/0.6] Magnitude residual (RMAGf-f(alphaf))
*Note (1): The alpha parameter is the log slope of the SB profile at 10h^-1^kpc.
*           alpha is proportional to d(logLm)/d(log(r_|rm_)) (Hoessel,
*           1980ApJ...241..493H), where Lm is the absolute magnitude measured in
*           apertures of fixed metric size, rm.

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

C  Loading file 'table1.dat'	! The Abell cluster inertial frame (ACIF)

C  Format for file interpretation

    1 format(I4,1X,F6.4,1X,F6.2,1X,F6.2,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,119
        read(1,'(A31)')ar__
        read(ar__,1)Abell,z,GLON,GLAT,E_B_V
c    ..............Just test output...........
        write(6,1)Abell,z,GLON,GLAT,E_B_V
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! BCG photometric properties as a function of
*                                 inertial frame

C  Format for file interpretation

    2 format(
     +  I4,1X,F7.3,1X,F7.3,1X,F7.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
     +  F6.3,1X,F6.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,119
        read(1,'(A67)')ar__1
        read(ar__1,2)
     +  Abell_1,RMAGcmb,RMAGlg,RMAGf,alphacmb,alphalg,alphaf,DMcmb,
     +  DMlg,DMf
c    ..............Just test output...........
        write(6,2)
     +  Abell_1,RMAGcmb,RMAGlg,RMAGf,alphacmb,alphalg,alphaf,DMcmb,
     +  DMlg,DMf
c    .......End.of.Just test output...........
      end do
      close(1)

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