Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/473/399 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 2026-Jun-08
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 ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*9 SCG ! Group of galaxy name
character*10 OName ! Other name of group of galaxies
integer*4 RAh ! (h) Right ascension (J2000) (1)
integer*4 RAm ! (min) Right ascension (J2000) (1)
real*4 RAs ! (s) Right ascension (J2000) (1)
character*1 DE_ ! Declination sign (J2000) (1)
integer*4 DEd ! (deg) Declination (J2000) (1)
integer*4 DEm ! (arcmin) Declination (J2000) (1)
integer*4 DEs ! (arcsec) Declination (J2000) (1)
integer*4 HV ! (km/s) Mean value of all measured recession
* velocities, in heliocentric system
real*4 Dist ! (Mpc) Distance (2)
integer*4 Nconc ! Number of concordant galaxies in the original
* SCGs catalog
integer*4 Ngal ! 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 ! Group of galaxy name
character*1 Galaxy ! [A-G] Galaxy designation, within the group
character*15 OName_1 ! Alternative galaxy name
integer*4 HV_opt ! (km/s) ?=9999 Optical recession velocity in
* heliocentric system
integer*4 e_HV_opt ! (km/s) ?=99 Error on HV(opt)
integer*4 HV_HI ! (km/s) ?=9999 Recession velocity in
* heliocentric system from HI data (1)
integer*4 e_HV_HI ! (km/s) ?=99 Error on HV(HI) (2)
integer*4 V_HI_max ! (km/s) ?=999 Maximum rotational velocity in HI (3)
integer*4 e_V_HI_max ! (km/s) ?=99 Error on V(HI)max (2)
character*1 l_FHI ! Limit flag on FHI
real*4 FHI ! (Jy/km/s) Measured flux in HI
character*1 l_MHI ! Limit flag on MHI
real*4 MHI ! (10+9solMass) Measured HI mass
character*1 n_FHI ! [ab] Note on FHI and MHI (4)
real*4 rms ! (Jy) ? 1sigma rms per channel map value in
* Jy/beam (5)
character*34 Com ! 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 ! Group of galaxy name
character*1 Galaxy_1 ! [A-G] Galaxy designation, within the group
character*1 l_F1_34GHz ! 5{sigma} limit flag on F1.34GHz
real*4 F1_34GHz ! (mJy) Measured flux at 1.34GHz
real*4 rms_1 ! (mJy) ? rms noise for 5sigma upper limit flux in
* mJy/beam
character*1 l_P1_34GHz ! Limit flag on P1.34GHz
real*4 P1_34GHz ! (10+21W/Hz) ?=99.99 Total radio power at 1.34GHz (1)
character*1 l_nuSN ! Limit flag on nuSN
real*8 nuSN ! (1/yr) ?=99.99 Supernovae rate per year (1)(2)
character*1 l_SFR ! Limit flag on SFR
real*4 SFR ! (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,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs,HV,Dist,Nconc,Ngal
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,1)
+ SCG,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs,HV,Dist,Nconc,Ngal
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
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,Galaxy,OName_1,HV_opt,e_HV_opt,HV_HI,e_HV_HI,V_HI_max,
+ e_V_HI_max,l_FHI,FHI,l_MHI,MHI,n_FHI,rms,Com
if(ar__1(69:72) .EQ. '') rms = rNULL__
c ..............Just test output...........
write(6,2)
+ SCG_1,Galaxy,OName_1,HV_opt,e_HV_opt,HV_HI,e_HV_HI,V_HI_max,
+ e_V_HI_max,l_FHI,FHI,l_MHI,MHI,n_FHI,rms,Com
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,Galaxy_1,l_F1_34GHz,F1_34GHz,rms_1,l_P1_34GHz,P1_34GHz,
+ l_nuSN,nuSN,l_SFR,SFR
if(ar__2(24:28) .EQ. '') rms_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ SCG_2,Galaxy_1,l_F1_34GHz,F1_34GHz,rms_1,l_P1_34GHz,P1_34GHz,
+ l_nuSN,nuSN,l_SFR,SFR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end