FORTRAN Generation
(/./ftp/cats/J/A_A/473/399)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/473/399 into FORTRAN code for loading all data files into arrays.

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/A+A/473/399   Optical and HI data of 6 southern galaxy groups  (Pompei+, 2007)
*================================================================================
*Optical and radio survey of southern compact groups of galaxies.
*I. Pilot study of six groups.
*    Pompei E., Dahlem M., Iovino A.
*   <Astron. Astrophys., 473, 399-409 (2007)>
*   =2007A&A...473..399P
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Salient parameters of six Southern Compact Groups
                           of galaxies

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

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

      character*9   SCG        (nr__) ! Group of galaxy name
      character*10  OName      (nr__) ! Other name of group of galaxies
      integer*4     RAh        (nr__) ! (h) Right ascension (J2000) (1)
      integer*4     RAm        (nr__) ! (min) Right ascension (J2000) (1)
      real*4        RAs        (nr__) ! (s) Right ascension (J2000) (1)
      character*1   DE_        (nr__) ! Declination sign (J2000) (1)
      integer*4     DEd        (nr__) ! (deg) Declination (J2000) (1)
      integer*4     DEm        (nr__) ! (arcmin) Declination (J2000) (1)
      integer*4     DEs        (nr__) ! (arcsec) Declination (J2000) (1)
      integer*4     HV         (nr__) ! (km/s) Mean value of all measured recession
*                                   velocities, in heliocentric system
      real*4        Dist       (nr__) ! (Mpc) Distance (2)
      integer*4     Nconc      (nr__) ! Number of concordant galaxies in the original
*                                   SCGs catalog
      integer*4     Ngal       (nr__) ! Total number of confirmed member galaxies (3)
*Note (1): Approximate centre positions; pointing centres of radio observations.
*Note (2): based on H0=67km/s/Mpc, Omega_M_=0.3 and Omega_lambda_=0.7.
*Note (3): fulfilling the group selection and having a similar redshift from
*           optical and radio data.

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

C  Declarations for 'table8.dat'	! Optical and HI measurements for individual member
                           galaxies of each group

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

      character*9   SCG_1      (nr__1) ! Group of galaxy name
      character*1   Galaxy     (nr__1) ! [A-G] Galaxy designation, within the group
      character*15  OName_1    (nr__1) ! Alternative galaxy name
      integer*4     HV_opt     (nr__1) ! (km/s) ?=9999 Optical recession velocity in
*                                            heliocentric system
      integer*4     e_HV_opt   (nr__1) ! (km/s) ?=99 Error on HV(opt)
      integer*4     HV_HI      (nr__1) ! (km/s) ?=9999 Recession velocity in
*                                            heliocentric system from HI data (1)
      integer*4     e_HV_HI    (nr__1) ! (km/s) ?=99 Error on HV(HI) (2)
      integer*4     V_HI_max   (nr__1) ! (km/s) ?=999 Maximum rotational velocity in HI (3)
      integer*4     e_V_HI_max (nr__1) ! (km/s) ?=99 Error on V(HI)max (2)
      character*1   l_FHI      (nr__1) ! Limit flag on FHI
      real*4        FHI        (nr__1) ! (Jy/km/s) Measured flux in HI
      character*1   l_MHI      (nr__1) ! Limit flag on MHI
      real*4        MHI        (nr__1) ! (10+9solMass) Measured HI mass
      character*1   n_FHI      (nr__1) ! [ab] Note on FHI and MHI (4)
      real*4        rms        (nr__1) ! (Jy) ? 1sigma rms per channel map value in
*                                       Jy/beam (5)
      character*34  Com        (nr__1) ! Specific comments on galaxies, when relevant
*Note (1): A value of 9999 means that no measurement was possible
*Note (2): A value of 99 means that no measurement was possible
*Note (3): A value of 999 means that no measurement was possible
*Note (4): Individual notes as follows:
*      a = The MHI is a lower limit because HI gas partly in absorption
*          against nuclear radio continuum emission.
*      b = Upper limits on FHI are 5sigma upper limits with a 1sigma rms
*          per channel map of 0.19mJy/beam and a channel width of 26.4km/s,
*          while the limit on its MHI is taken from Mathewson et al.
*          (1992, Cat. <J/ApJS/81/413>).
*Note (5): Upper limits on FHI and MHI are 5sigma upper limits, with a 1sigma
*           rms per channel map of "rms" value and a channel width of 26.4km/s.

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

C  Declarations for 'table9.dat'	! Measured flux in the radio continuum from each
                           of the group member galaxies and derived parameters

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

      character*9   SCG_2      (nr__2) ! Group of galaxy name
      character*1   Galaxy_1   (nr__2) ! [A-G] Galaxy designation, within the group
      character*1   l_F1_34GHz (nr__2) ! 5{sigma} limit flag on F1.34GHz
      real*4        F1_34GHz   (nr__2) ! (mJy) Measured flux at 1.34GHz
      real*4        rms_1      (nr__2) ! (mJy) ? rms noise for 5sigma upper limit flux in
*                                         mJy/beam
      character*1   l_P1_34GHz (nr__2) ! Limit flag on P1.34GHz
      real*4        P1_34GHz   (nr__2) ! (10+21W/Hz) ?=99.99 Total radio power at 1.34GHz (1)
      character*1   l_nuSN     (nr__2) ! Limit flag on nuSN
      real*8        nuSN       (nr__2) ! (1/yr) ?=99.99 Supernovae rate per year (1)(2)
      character*1   l_SFR      (nr__2) ! Limit flag on SFR
      real*4        SFR        (nr__2) ! (solMass/yr) ?=99.99 Star formation rate  (1)(2)
*Note (1): A value of 99.99 means that no measurement was possible
*Note (2): Supernova rate and SFR could not be determined for SCG2159-3210A,
*          SCG0018-4854B, SCG0122-3819B, SCG0227-4312D due to emission from o
*          an active nucleus

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

C  Loading file 'table1.dat'	! Salient parameters of six Southern Compact Groups
*                           of galaxies

C  Format for file interpretation

    1 format(
     +  4X,A9,1X,A10,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,I4,
     +  1X,F4.1,1X,I1,1X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,6
        read(1,'(A59)')ar__
        read(ar__,1)
     +  SCG(i__),OName(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
     +  DEd(i__),DEm(i__),DEs(i__),HV(i__),Dist(i__),Nconc(i__),
     +  Ngal(i__)
        RAdeg(i__) = rNULL__
        DEdeg(i__) = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
        if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
        if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
        if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
        if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
        if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
        if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c    ..............Just test output...........
        write(6,1)
     +  SCG(i__),OName(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
     +  DEd(i__),DEm(i__),DEs(i__),HV(i__),Dist(i__),Nconc(i__),
     +  Ngal(i__)
        write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table8.dat'	! Optical and HI measurements for individual member
*                           galaxies of each group

C  Format for file interpretation

    2 format(
     +  4X,A9,A1,1X,A15,1X,I4,1X,I2,1X,I4,1X,I3,1X,I3,1X,I2,1X,A1,
     +  F4.2,1X,A1,F4.2,A1,1X,F4.2,1X,A34)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table8.dat')
      write(6,*) '....Loading file: table8.dat'
      do i__=1,30
        read(1,'(A107)')ar__1
        read(ar__1,2)
     +  SCG_1(i__),Galaxy(i__),OName_1(i__),HV_opt(i__),e_HV_opt(i__),
     +  HV_HI(i__),e_HV_HI(i__),V_HI_max(i__),e_V_HI_max(i__),
     +  l_FHI(i__),FHI(i__),l_MHI(i__),MHI(i__),n_FHI(i__),rms(i__),
     +  Com(i__)
        if(ar__1(69:72) .EQ. '') rms(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  SCG_1(i__),Galaxy(i__),OName_1(i__),HV_opt(i__),e_HV_opt(i__),
     +  HV_HI(i__),e_HV_HI(i__),V_HI_max(i__),e_V_HI_max(i__),
     +  l_FHI(i__),FHI(i__),l_MHI(i__),MHI(i__),n_FHI(i__),rms(i__),
     +  Com(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table9.dat'	! Measured flux in the radio continuum from each
*                           of the group member galaxies and derived parameters

C  Format for file interpretation

    3 format(
     +  4X,A9,A1,1X,A1,F6.2,1X,F5.3,2X,A1,F5.2,2X,A1,F7.4,1X,A1,F6.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table9.dat')
      write(6,*) '....Loading file: table9.dat'
      do i__=1,27
        read(1,'(A54)')ar__2
        read(ar__2,3)
     +  SCG_2(i__),Galaxy_1(i__),l_F1_34GHz(i__),F1_34GHz(i__),
     +  rms_1(i__),l_P1_34GHz(i__),P1_34GHz(i__),l_nuSN(i__),
     +  nuSN(i__),l_SFR(i__),SFR(i__)
        if(ar__2(24:28) .EQ. '') rms_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  SCG_2(i__),Galaxy_1(i__),l_F1_34GHz(i__),F1_34GHz(i__),
     +  rms_1(i__),l_P1_34GHz(i__),P1_34GHz(i__),l_nuSN(i__),
     +  nuSN(i__),l_SFR(i__),SFR(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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