FORTRAN Generation
(/./ftp/cats/J/A_A/520/A109)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/520/A109 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/520/A109      Gas kinematics of spiral galaxies        (Kutdemir+, 2010)
*================================================================================
*Internal kinematics of spiral galaxies in distant clusters.
*IV. Gas kinematics of spiral galaxies in intermediate redshift clusters and
*in the field.
*    Kutdemir E., Ziegler B.L., Peletier R.F., Da Rocha C., Boehm A., Verdugo M.
*   <Astron. Astrophys., 520, A109-109 (2010)>
*   =2010A&A...520A.109K
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Basic galaxy information for MS 0451 sample
                              (table1 of Paper III, Kutdemir et al.,
                              2008A&A...488..117K)

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

      character*4   ID          ! Object identification (1)
      real*4        z           ! ? Redshift
      real*4        d           ! (Mpc) ? Projected distance from the cluster center
      character*15  Name        ! NED name (2)
      character*6   MType1      ! Morphological type of the galaxy
      integer*4     r_MType1    ! ? Reference for MType1 (3)
      character*7   MType       ! Eye-ball morphological classification
*                                  (this paper)
      real*8        z1          ! ? Redshift of the galaxy
      character*1   f_z1        ! [p] p for photometric redshift
      integer*4     r_z1        ! ? Reference for galaxy redshift (3)
      character*3   MType2      ! Morphological type of the galaxy
      integer*4     r_MType2    ! ? Reference for MType2 (3)
      real*8        z2          ! ? Redshift of the galaxy
      integer*4     r_z2        ! ? Reference for galaxy redshift (3)
*Note (1): Sources identified in Simbad as <[KZP2008] ANN> for table1 (1ANN),
*          <[KZP2010] NANN> for table3.
*Note (2): NED name begin with "MS 1008.1-1224:", "MS 2137.3-2353:" and
*     "F1557.19TC:" for object IDs in the first column that begin with "2", "3"
*     and "4" respectively. For galaxies 2F13, 2F14, 2F17, 2F15, 2F16, 3F12 and
*     4F11 the redshift could not be determined.
*Note (3): References as follows:
*   1 = Yee et al., 1998, Cat. J/ApJS/116/211
*   2 = Stanford et al., 2002, Cat. J/ApJS/142/153
*   3 = Dressler et al., 1999, Cat. J/ApJS/122/51
*   4 = Jaeger et al., 2004, Cat. J/A+A/422/907, Paper II
*   5 = Ellingson et al., 1998, Cat. J/ApJS/116/247
*   6 = Moran, 2008, Thesis, California Institute of Technology
*   7 = Moran et al. 2007, Cat. J/ApJS/659/1138

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

C  Declarations for 'table3.dat'	! Basic galaxy information for MS 1008,
                              MS 2137 and Cl 0413 samples

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

      character*4   ID_1        ! Object identification (1)
      real*4        z_1         ! ? Redshift
      real*4        d_1         ! (Mpc) ? Projected distance from the cluster center
      character*15  Name_1      ! NED name (2)
      character*6   MType1_1    ! Morphological type of the galaxy
      integer*4     r_MType1_1  ! ? Reference for MType1 (3)
      character*7   MType_1     ! Eye-ball morphological classification
*                                  (this paper)
      real*8        z1_1        ! ? Redshift of the galaxy
      character*1   f_z1_1      ! [p] p for photometric redshift
      integer*4     r_z1_1      ! ? Reference for galaxy redshift (3)
      character*3   MType2_1    ! Morphological type of the galaxy
      integer*4     r_MType2_1  ! ? Reference for MType2 (3)
      real*8        z2_1        ! ? Redshift of the galaxy
      integer*4     r_z2_1      ! ? Reference for galaxy redshift (3)
*Note (1): Sources identified in Simbad as <[KZP2008] ANN> for table1 (1ANN),
*          <[KZP2010] NANN> for table3.
*Note (2): NED name begin with "MS 1008.1-1224:", "MS 2137.3-2353:" and
*     "F1557.19TC:" for object IDs in the first column that begin with "2", "3"
*     and "4" respectively. For galaxies 2F13, 2F14, 2F17, 2F15, 2F16, 3F12 and
*     4F11 the redshift could not be determined.
*Note (3): References as follows:
*   1 = Yee et al., 1998, Cat. J/ApJS/116/211
*   2 = Stanford et al., 2002, Cat. J/ApJS/142/153
*   3 = Dressler et al., 1999, Cat. J/ApJS/122/51
*   4 = Jaeger et al., 2004, Cat. J/A+A/422/907, Paper II
*   5 = Ellingson et al., 1998, Cat. J/ApJS/116/247
*   6 = Moran, 2008, Thesis, California Institute of Technology
*   7 = Moran et al. 2007, Cat. J/ApJS/659/1138

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

C  Declarations for 'tablec1.dat'	! Photometric parameters for the whole sample

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

C  J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg       ! (deg) Right Ascension J2000
      real*8        DEdeg       ! (deg)     Declination J2000
C  ---------------------------------- ! (position vector(s) in degrees)

      character*4   ID_2        ! Object ID (NANN)
      integer*4     RAh         ! (h) Right ascension in decimal degrees (J2000)
      integer*4     RAm         ! (min) Right ascension in decimal degrees (J2000)
      real*4        RAs         ! (s) Right ascension in decimal degrees (J2000)
      character*1   DE_         ! Declination sign (J2000)
      integer*4     DEd         ! (deg) Declination (J2000)
      integer*4     DEm         ! (arcmin) Declination (J2000)
      integer*4     DEs         ! (arcsec) [0/60] Declination (J2000)
      real*4        BMAG        ! (mag) ? Rest frame, galactic-extinction corrected
*                                    Johnson-B magnitude (4)
      real*4        B_V         ! (mag) ? Galactic extinction and k-corrected
*                                    Johnson B-V colour index (5)
      real*4        V_R         ! (mag) ? Galactic extinction and k-corrected
*                                    Johnson-FORS2 V-R colour index (5)
      real*4        R_I         ! (mag) ? Galactic extinction and k-corrected
*                                    FORS2-Cousins R-I colour index (5)
      real*4        M_          ! (Msun) ? Stellar mass (6)
      real*4        A           ! ? Asymmetry index
      real*4        C           ! ? Concentration index
      real*4        G           ! ? Gini coefficient (7)
      real*4        M20         ! ? M20 index (8)
*Note (4): k-correction applied using the kcorrect algorithm by
*  Blanton & Roweis (2007AJ....133..734B)
*Note (5): colours measured from the FORS2/VLT images (The FORS2 filters B, V
*  and I are close approximations to the Bessel photometric system while R filter
*  is a special filter for FORS2).
*Note (6): measured using the kcorrect algorithm by Blanton & Roweis
*  (2007AJ....133..734B)
*Note (7): The Gini coefficient quantifies the non-uniformity in the light
*  distribution and strongly correlates with the concentration indes for local
*  galaxies.
*Note (8): The M20 index is the normalized second order moment of the
*  brightest 20% of the galaxy's flux.

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

C  Declarations for 'tablec2.dat'	! Morphological parameters for the MS 1008,
                              MS 2137 and Cl 0413 samples

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

      character*4   ID_3        ! Object ID, [KZP2010] NANN in Simbad
      character*1   n_ID        ! [*] individual notes (1)
      character*14  Comp        ! Component
      real*4        F606W       ! (mag) Total magnitude in F606W filter (G2)
      real*4        e_F606W     ! (mag) rms uncertainty on F606W
      real*4        Rc_Rd       ! (kpc) Effective radius of the bulge/scale length
*                                 of the disk
      real*4        e_Rc_Rd     ! (kpc) rms uncertainty on Rc/Rd
      character*1   f_Rc_Rd     ! [a] a if Rc/Rd in arcsec instead of kpc (G1)
      real*4        n           ! ? Sersic index of the bulge profile
      real*4        e_n         ! ? rms uncertainty on n
      real*4        q           ! Flattening
      real*4        e_q         ! rms uncertainty on q
      real*4        PA          ! (deg) [-90/90] Position angle of the disk measured
*                                 from North through East
      real*4        e_PA        ! (deg) rms uncertainty on PA
*Note (1): Individual notes:
*   2F14 = The parameters of 2F14 are unreliable since there is a diffraction
*           spike on top of it
*   3F7  = The HST image of 3F7 is incomplete and therefore, its parameters are
*           also unreliable. The disk scale length of these galaxies is not used
*           in the analysis
*   3F13 = 3F13 could not be analyzed because of the diffraction spike on the
*           image

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

C  Declarations for 'tablec3.dat'	! Morphological parameters for the MS 0451 sample
                              (table C2 of Paper III, Kutdemir et al.,
                               2008A&A...488..117K)

      integer*4 nr__4
      parameter (nr__4=26)	! Number of records
      character*86 ar__4  	! Full-size record

      character*4   ID_4        ! Object ID (1ANN), [KZP2008] ANN in Simbad
      character*1   n_ID_1      ! [*] Individual note (1)
      character*14  Comp_1      ! Component
      real*4        F814W       ! (mag) Total magnitude in F814W filter (G2)
      real*4        e_F814W     ! (mag) rms uncertainty on F814W
      real*4        Rc_Rd_1     ! (kpc) Effective radius of the bulge/scale length
*                                 of the disk
      real*4        e_Rc_Rd_1   ! (kpc) rms uncertainty on Rc/Rd
      character*1   f_Rc_Rd_1   ! [a] a if Rc/Rd in arcsec instead of kpc (G1)
      real*4        n_1         ! ? Sersic index of the bulge profile
      real*4        e_n_1       ! ? rms uncertainty on n
      real*4        q_1         ! Flattening
      real*4        e_q_1       ! rms uncertainty on q
      real*4        PA_1        ! (deg) ?  Position angle of the disk measured
*                                 from North through East
      real*4        e_PA_1      ! (deg) ? rms uncertainty on PA
      real*4        chi2        ! ? chi^2^ of the fit
      real*4        B_D         ! ? Bulge to disk ratio
*Note (1): Individual notes:
*   1F11 = The redshift of galaxy 1F11. As a result, for this galaxy, Rc/Rd
*          is given in arcseconds.
*   1C10 = The surface brightness profile of galaxy 1C10 is much more extended
*          on one side of the galaxy than on the other side. Therefore the scale
*          length and total magnitude of the disk given in the table are not
*          reliable. This galaxy was excluded while calculating the correlations
*          between the disk scale length and the irregularity in the gas
*          kinematics.

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

C  Loading file 'table1.dat'	! Basic galaxy information for MS 0451 sample
*                              (table1 of Paper III, Kutdemir et al.,
*                              2008A&A...488..117K)

C  Format for file interpretation

    1 format(
     +  A4,1X,F6.4,1X,F3.1,1X,A15,1X,A6,1X,I1,1X,A7,1X,F7.5,A1,1X,I1,
     +  1X,A3,1X,I1,1X,F7.5,1X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,22
        read(1,'(A75)')ar__
        read(ar__,1)
     +  ID,z,d,Name,MType1,r_MType1,MType,z1,f_z1,r_z1,MType2,
     +  r_MType2,z2,r_z2
        if(ar__(6:11) .EQ. '') z = rNULL__
        if(ar__(13:15) .EQ. '') d = rNULL__
        if(ar__(40:40) .EQ. '') r_MType1 = iNULL__
        if(ar__(50:56) .EQ. '') z1 = rNULL__
        if(ar__(59:59) .EQ. '') r_z1 = iNULL__
        if(ar__(65:65) .EQ. '') r_MType2 = iNULL__
        if(ar__(67:73) .EQ. '') z2 = rNULL__
        if(ar__(75:75) .EQ. '') r_z2 = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  ID,z,d,Name,MType1,r_MType1,MType,z1,f_z1,r_z1,MType2,
     +  r_MType2,z2,r_z2
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Basic galaxy information for MS 1008,
*                              MS 2137 and Cl 0413 samples

C  Format for file interpretation

    2 format(
     +  A4,1X,F6.4,1X,F3.1,1X,A15,1X,A6,1X,I1,1X,A7,1X,F7.5,A1,1X,I1,
     +  1X,A3,1X,I1,1X,F7.5,1X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,72
        read(1,'(A75)')ar__1
        read(ar__1,2)
     +  ID_1,z_1,d_1,Name_1,MType1_1,r_MType1_1,MType_1,z1_1,f_z1_1,
     +  r_z1_1,MType2_1,r_MType2_1,z2_1,r_z2_1
        if(ar__1(6:11) .EQ. '') z_1 = rNULL__
        if(ar__1(13:15) .EQ. '') d_1 = rNULL__
        if(ar__1(40:40) .EQ. '') r_MType1_1 = iNULL__
        if(ar__1(50:56) .EQ. '') z1_1 = rNULL__
        if(ar__1(59:59) .EQ. '') r_z1_1 = iNULL__
        if(ar__1(65:65) .EQ. '') r_MType2_1 = iNULL__
        if(ar__1(67:73) .EQ. '') z2_1 = rNULL__
        if(ar__1(75:75) .EQ. '') r_z2_1 = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  ID_1,z_1,d_1,Name_1,MType1_1,r_MType1_1,MType_1,z1_1,f_z1_1,
     +  r_z1_1,MType2_1,r_MType2_1,z2_1,r_z2_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablec1.dat'	! Photometric parameters for the whole sample

C  Format for file interpretation

    3 format(
     +  A4,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,F6.2,1X,F4.2,
     +  1X,F4.2,1X,F4.2,1X,E7.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablec1.dat')
      write(6,*) '....Loading file: tablec1.dat'
      do i__=1,94
        read(1,'(A76)')ar__2
        read(ar__2,3)
     +  ID_2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,BMAG,B_V,V_R,R_I,M_,A,C,G,M20
        if(ar__2(27:32) .EQ. '') BMAG = rNULL__
        if(ar__2(34:37) .EQ. '') B_V = rNULL__
        if(ar__2(39:42) .EQ. '') V_R = rNULL__
        if(ar__2(44:47) .EQ. '') R_I = rNULL__
        if(ar__2(49:55) .EQ. '') M_ = rNULL__
        if(ar__2(57:60) .EQ. '') A = rNULL__
        if(ar__2(62:65) .EQ. '') C = rNULL__
        if(ar__2(67:70) .EQ. '') G = rNULL__
        if(ar__2(72:76) .EQ. '') M20 = rNULL__
        RAdeg = rNULL__
        DEdeg = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh .GT. -180) RAdeg=RAh*15.
        if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
        if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,3)
     +  ID_2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,BMAG,B_V,V_R,R_I,M_,A,C,G,M20
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablec2.dat'	! Morphological parameters for the MS 1008,
*                              MS 2137 and Cl 0413 samples

C  Format for file interpretation

    4 format(
     +  A4,A1,1X,A14,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,A1,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablec2.dat')
      write(6,*) '....Loading file: tablec2.dat'
      do i__=1,94
        read(1,'(A75)')ar__3
        read(ar__3,4)
     +  ID_3,n_ID,Comp,F606W,e_F606W,Rc_Rd,e_Rc_Rd,f_Rc_Rd,n,e_n,q,
     +  e_q,PA,e_PA
        if(ar__3(45:48) .EQ. '') n = rNULL__
        if(ar__3(50:53) .EQ. '') e_n = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  ID_3,n_ID,Comp,F606W,e_F606W,Rc_Rd,e_Rc_Rd,f_Rc_Rd,n,e_n,q,
     +  e_q,PA,e_PA
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'tablec3.dat'	! Morphological parameters for the MS 0451 sample
*                              (table C2 of Paper III, Kutdemir et al.,
*                               2008A&A...488..117K)

C  Format for file interpretation

    5 format(
     +  A4,A1,1X,A14,1X,F5.2,1X,F4.2,1X,F5.3,1X,F5.3,A1,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablec3.dat')
      write(6,*) '....Loading file: tablec3.dat'
      do i__=1,26
        read(1,'(A86)')ar__4
        read(ar__4,5)
     +  ID_4,n_ID_1,Comp_1,F814W,e_F814W,Rc_Rd_1,e_Rc_Rd_1,f_Rc_Rd_1,
     +  n_1,e_n_1,q_1,e_q_1,PA_1,e_PA_1,chi2,B_D
        if(ar__4(46:49) .EQ. '') n_1 = rNULL__
        if(ar__4(51:54) .EQ. '') e_n_1 = rNULL__
        if(ar__4(66:71) .EQ. '') PA_1 = rNULL__
        if(ar__4(73:76) .EQ. '') e_PA_1 = rNULL__
        if(ar__4(78:81) .EQ. '') chi2 = rNULL__
        if(ar__4(83:86) .EQ. '') B_D = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  ID_4,n_ID_1,Comp_1,F814W,e_F814W,Rc_Rd_1,e_Rc_Rd_1,f_Rc_Rd_1,
     +  n_1,e_n_1,q_1,e_q_1,PA_1,e_PA_1,chi2,B_D
c    .......End.of.Just test output...........
      end do
      close(1)

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