FORTRAN Generation
(/./ftp/cats/J/A_A/516/A4)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/516/A4 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/A+A/516/A4  NGC1600, NGC4125, NGC7619 extended spectroscopy (Pu+, 2010)
*================================================================================
*Radially extended kinematics and stellar populations of the massive ellipticals
*NGC1600, NGC4125 and NGC7619.
*Constraints on the outer dark halo density profile.
*    Pu S.B., Saglia R.P., Thomas J., Fabricius M., Bender R., Han Z.
*   <Astron. Astrophys. 516, A4 (2010)>
*   =2010A&A...516A...4P
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table3.dat'	! Stellar kinematics along major and minor axes of
                              NGC1600, NGC4125, NGC7619

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

      character*7   Galaxy      ! Galaxy name
      real*8        R           ! (arcsec) Distance from the galaxy center (G1)
      integer*4     PA          ! (deg) Position angle (G2)
      real*8        RV          ! (km/s) Stellar radial velocity, positive receiding
      real*4        e_RV        ! (km/s) Error on stellar radial velocity
      real*4        e_RV_1      ! (km/s) Systematic error on stellar radial velocity due
*                                 to the sky subtraction
      real*4        sigma       ! (km/s) Stellar velocity dispersion
      real*4        e_sigma     ! (km/s) Error on stellar velocity dispersion
      real*4        e_sigma_1   ! (km/s) Systematic error on stellar velocity dispersion
*                                 to the sky subtraction
      real*4        H3          ! 3rd order Hermite coefficient
      real*4        e_H3        ! Error on 3rd order Hermite coefficient
      real*4        e_H3_1      ! Systematic error on 3rd order Hermite
*                                 coefficient to the sky subtraction
      real*4        H4          ! 4th order Hermite coefficient
      real*4        e_H4        ! Error on 4th order Hermite coefficient
      real*4        e_H4_1      ! Systematic error on 4th order Hermite
*                                 coefficient due to the sky subtraction

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

C  Declarations for 'table4.dat'	! Gas kinematics and emission equivalent width and
                              ratios along major and minor axes of NGC4125

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

      character*7   Galaxy_1    ! Galaxy name
      real*4        R_1         ! (arcsec) Distance from the center
      integer*4     PA_1        ! (deg) Position angle (G2)
      real*4        Vgas        ! (km/s) Gas radial velocity, positive receiding
      real*4        e_Vgas      ! (km/s) Error on gas radial velocity
      real*4        sig_gas     ! (km/s) Gas velocity dispersion
      real*4        e_sig_gas   ! (km/s) Error on gas velocity dispersion
      real*4        Hbe         ! (0.1nm) Equivalent width of the H{beta} gas emission
      real*4        e_Hbe       ! (0.1nm) Error on EW of the H{beta} gas emission
      real*4        OH          ! Ratio [OIII]/H{beta} of the gas emission EWs
      real*4        e_OH        ! Error on OH
      real*4        NH          ! Ratio [NI]/H{beta} of the gas emission EWs
      real*4        e_NH        ! Error on NH

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

C  Declarations for 'table6.dat'	! Lick indices along major and minor axes of
                              NGC1600, NGC4125, NGC7619

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

      character*7   Galaxy_2    ! Galaxy name
      real*8        R_2         ! (arcsec) Distance from the center (G1)
      integer*4     PA_2        ! (deg) Position angle (G2)
      real*4        Hb          ! (0.1nm) H{beta} line strength
      real*4        e_Hb        ! (0.1nm) Error on the H{beta} line strength
      real*4        e_Hb_1      ! (0.1nm) Systematic error on the H{beta} line
*                                  strength due to the sky subtraction
      real*4        Mgb         ! (0.1nm) Mgb line strength
      real*4        e_Mgb       ! (0.1nm) Error on the Mgb line strength
      real*4        e_Mgb_1     ! (0.1nm) Systematic error on the Mgb line
*                                  strength due to the sky subtraction
      real*4        Fe1         ! (0.1nm) Fe5015 line strength
      real*4        e_Fe1       ! (0.1nm) Error on the Fe5015 line strength
      real*4        e_Fe1_1     ! (0.1nm) Systematic error on the Fe5015 line
*                                  strength due to the sky subtraction
      real*4        Fe2         ! (0.1nm) Fe5270 line strength
      real*4        e_Fe2       ! (0.1nm) Error on the Fe5270 line strength
      real*4        e_Fe2_1     ! (0.1nm) Systematic error on the Fe5270 line
*                                  strength due to the sky subtraction
      real*4        Fe3         ! (0.1nm) Fe5335 line strength
      real*4        e_Fe3       ! (0.1nm) Error on the Fe5335 line strength
      real*4        e_Fe3_1     ! (0.1nm) Systematic error on the Fe5335 line
*                                  strength due to the sky subtraction
      real*4        Fe4         ! (0.1nm) Fe5406 line strength
      real*4        e_Fe4       ! (0.1nm) Error on the Fe5406 line strength
      real*4        e_Fe4_1     ! (0.1nm) Systematic error on the Fe5406 line
*                                  strength due to the sky subtraction

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

C  Loading file 'table3.dat'	! Stellar kinematics along major and minor axes of
*                              NGC1600, NGC4125, NGC7619

C  Format for file interpretation

    1 format(
     +  A7,1X,F7.2,1X,I3,1X,F7.2,1X,F6.2,1X,F6.2,2X,F6.2,1X,F6.2,1X,
     +  F6.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.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,351
        read(1,'(A95)')ar__
        read(ar__,1)
     +  Galaxy,R,PA,RV,e_RV,e_RV_1,sigma,e_sigma,e_sigma_1,H3,e_H3,
     +  e_H3_1,H4,e_H4,e_H4_1
c    ..............Just test output...........
        write(6,1)
     +  Galaxy,R,PA,RV,e_RV,e_RV_1,sigma,e_sigma,e_sigma_1,H3,e_H3,
     +  e_H3_1,H4,e_H4,e_H4_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! Gas kinematics and emission equivalent width and
*                              ratios along major and minor axes of NGC4125

C  Format for file interpretation

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

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,95
        read(1,'(A79)')ar__1
        read(ar__1,2)
     +  Galaxy_1,R_1,PA_1,Vgas,e_Vgas,sig_gas,e_sig_gas,Hbe,e_Hbe,OH,
     +  e_OH,NH,e_NH
c    ..............Just test output...........
        write(6,2)
     +  Galaxy_1,R_1,PA_1,Vgas,e_Vgas,sig_gas,e_sig_gas,Hbe,e_Hbe,OH,
     +  e_OH,NH,e_NH
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6.dat'	! Lick indices along major and minor axes of
*                              NGC1600, NGC4125, NGC7619

C  Format for file interpretation

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

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6.dat')
      write(6,*) '....Loading file: table6.dat'
      do i__=1,352
        read(1,'(A129)')ar__2
        read(ar__2,3)
     +  Galaxy_2,R_2,PA_2,Hb,e_Hb,e_Hb_1,Mgb,e_Mgb,e_Mgb_1,Fe1,e_Fe1,
     +  e_Fe1_1,Fe2,e_Fe2,e_Fe2_1,Fe3,e_Fe3,e_Fe3_1,Fe4,e_Fe4,e_Fe4_1
c    ..............Just test output...........
        write(6,3)
     +  Galaxy_2,R_2,PA_2,Hb,e_Hb,e_Hb_1,Mgb,e_Mgb,e_Mgb_1,Fe1,e_Fe1,
     +  e_Fe1_1,Fe2,e_Fe2,e_Fe2_1,Fe3,e_Fe3,e_Fe3_1,Fe4,e_Fe4,e_Fe4_1
c    .......End.of.Just test output...........
      end do
      close(1)

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