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