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 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 ! (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