Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/533/A142 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-Apr-19
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/533/A142 UV-to-IR fluxes of Hickson compact groups (Bitsakis+, 2011)
*================================================================================
*Examining the UV-to-IR properties of Hickson compact groups of galaxies.
*II. Multiwavelength analysis of the complete GALEX-Spitzer sample.
* Bitsakis T., Charmandaris V., da Cunha E., Diaz-Santos T., le Floc'h E.,
* Magdis G.
* <Astron. Astrophys. 533, A142 (2011)>
* =2011A&A...533A.142B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! UV-to-IR fluxes for the galaxies in the sample
integer*4 nr__
parameter (nr__=135) ! Number of records
character*319 ar__ ! Full-size record
character*4 HCG ! Galaxy name
character*5 MType ! Galaxy morphology
character*6 Nuc ! Nuclear classification (2)
real*4 Dist ! (Mpc) Galaxy distance
real*4 FFUV ! (mJy) GALEX FUV flux
real*4 e_FFUV ! (mJy) GALEX FUV flux error
real*4 FNUV ! (mJy) GALEX NUV flux
real*4 e_FNUV ! (mJy) GALEX NUV flux error
real*4 FB ! (mJy) B flux
real*4 e_FB ! (mJy) B flux error
real*4 FR ! (mJy) R flux
real*4 e_FR ! (mJy) R flux error
real*4 Fu ! (mJy) SDSS u flux
real*4 e_Fu ! (mJy) SDSS u flux error
real*4 Fg ! (mJy) SDSS g flux
real*4 e_Fg ! (mJy) SDSS g flux error
real*4 Fr_1 ! (mJy) SDSS r flux
real*4 e_Fr_1 ! (mJy) SDSS r flux error
real*4 Fi ! (mJy) SDSS i flux
real*4 e_Fi ! (mJy) SDSS i flux error
real*4 Fz ! (mJy) SDSS z flux
real*4 e_Fz ! (mJy) SDSS z flux error
real*4 FJ ! (mJy) J flux
real*4 e_FJ ! (mJy) J flux error
real*4 FH ! (mJy) H flux
real*4 e_FH ! (mJy) H flux error
real*4 FKs ! (mJy) Ks flux
real*4 e_FKs ! (mJy) Ks flux error
real*4 F3_6 ! (mJy) Spitzer/IRAC 3.6um flux
real*4 e_F3_6 ! (mJy) Spitzer/IRAC 3.6um flux error
real*4 F4_5 ! (mJy) Spitzer/IRAC 4.5um flux
real*4 e_F4_5 ! (mJy) Spitzer/IRAC 4.5um flux error
real*4 F5_7 ! (mJy) Spitzer/IRAC 5.7um flux
real*4 e_F5_7 ! (mJy) Spitzer/IRAC 5.7um flux error
real*4 F8_0 ! (mJy) Spitzer/IRAC 8.0um flux
real*4 e_F8_0 ! (mJy) Spitzer/IRAC 8.0um flux error
real*8 F24 ! (mJy) Spitzer/MIPS 24um flux
real*4 e_F24 ! (mJy) Spitzer/MIPS 24um flux error
integer*4 F60 ! (mJy) IRAS 60um flux
integer*4 e_F60 ! (mJy) IRAS 60um flux error
integer*4 F100 ! (mJy) IRAS 100um flux
integer*4 e_F100 ! (mJy) IRAS 100um flux error
integer*4 F65 ! (mJy) AKARI/N60 65um flux
integer*4 e_F65 ! (mJy) AKARI/N60 65um flux error
integer*4 F90 ! (mJy) AKARI/WIDE-S 90um flux
integer*4 e_F90 ! (mJy) AKARI/WIDE-S 90um flux error
integer*4 F140 ! (mJy) AKARI/WIDE-L 140um flux
integer*4 e_F140 ! (mJy) AKARI/WIDE-L 140um flux error
integer*4 F160 ! (mJy) AKARI/N160 160um flux
integer*4 e_F160 ! (mJy) AKARI/N160 160um flux error
character*8 Ref ! References (1)
*Note (1): References code as follows:
* a1 = nuclear classification obtained from Martinez et al.
* (2010AJ....139.1199M)
* a2 = nuclear classification obtained from Shimada et al.
* (2000AJ....119.2664S)
* a3 = nuclear classification obtained from Hao et al.
* (2005AJ....129.1783H)
* a4 = nuclear classification obtained from Veron et al.
* (2006A&A...455..773V, Cat. VII/248)
* b1 = near-IR photometry from Palomar
* b2 = near-IR photometry from 2MASS
* b3 = near-IR photometry from Skinakas
* c1 = mid-IR photometry from Bitsakis et al. (2010A&A...517A..75B)
* c2 = mid-IR photometry from Johnson et al. (2007AJ....134.1522J)
* c3 = mid-IR photometry from Spitzer archive, PID 50764
* c4 = mid-IR photometry from Spitzer archive, PID 159
* c5 = mid-IR photometry from Spitzer archive, PID 40385
* c6 = mid-IR photometry from Spitzer archive, PID 198
*Note (2): nuclear classifications as AGN, LLAGN (low-luminosity AGN), HII,
* LINER (Low-Ionization Nuclear Emission-line Region), dLINER (dwarf LINER),
* TO (transition object), pec(uliar), unclas(sified)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! The morphological type and derived physical
parameters based on the SED modeling of the
HCG galaxies
integer*4 nr__1
parameter (nr__1=135) ! Number of records
character*59 ar__1 ! Full-size record
character*4 HCG_1 ! HCG galaxy name
character*3 n_HCG ! [*+- ] Note on galaxy (1)
character*5 MType_1 ! Morphological type
real*4 chi2 ! chi^2^ value
real*4 tauObs ! Observed optical depth
real*4 tauISM ! Diffuse ISM optical depth V,ISM
real*4 tau ! Total optical depth (tauBC+tauISM) (2)
real*4 Mstar ! (10+9Msun) Stellar Mass
real*4 SFR ! (Msun/yr) Star formation rate
real*4 sSFR ! (10-11yr-1) Specific star formation rate
real*4 LIR ! (10+9Lsun) Infrared luminosity
*Note (1): Notes as follows:
* * = The most massive galaxy of each group, used in the calculations
* of the dynamical masses in Table 5
* + = Galaxies with no 24um data. The SFRs, sSFRs, and LIR of these
* systems are not well constrained
* - = An AGN in their nucleus dominates their mid-IR emission
*Note (2): Total optical depth, tauBC+tauISM, where tauBC is the optical
* depth from the stellar birth clouds and tauISM is optical depth
* contributed from the diffuse ISM.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Distance to, virial radius, and morphology of
the nearest neighbor, as well as "strength" of
interaction for the HCG galaxies
integer*4 nr__2
parameter (nr__2=135) ! Number of records
character*25 ar__2 ! Full-size record
character*4 HCG_2 ! HCG galaxy name
integer*4 R ! (kpc) ? Projected distance to the nearest neighbor
integer*4 rvir ! (kpc) ? Virial radius
real*4 Str ! ? "Strength" of interaction as described in
* Sect. 4.6., <R/r_vir,nei_>/n (1)
character*5 NType ! ? Morphological type of the nearest neighbor
* (early or late)
*Note (1): This is estimated by averaging the ratios of the projected
* distances over the virial radii for all the neighbors of each galaxy
* and divide them by the total number of neighbors (n).
C=============================================================================
C Loading file 'table2.dat' ! UV-to-IR fluxes for the galaxies in the sample
C Format for file interpretation
1 format(
+ 3X,A4,1X,A5,2X,A6,1X,F5.1,1X,F4.2,2X,F4.2,2X,F4.2,2X,F4.2,2X,
+ F5.2,1X,F4.2,2X,F6.2,2X,F4.2,2X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,
+ 2X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,
+ F5.2,1X,F6.2,1X,F5.2,1X,F6.2,1X,F5.2,1X,F6.2,1X,F4.2,1X,F6.2,
+ 1X,F4.2,1X,F6.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,F7.2,1X,F5.2,1X,I5,
+ 1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,1X,I5,
+ 1X,I5,1X,A8)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,135
read(1,'(A319)')ar__
read(ar__,1)
+ HCG,MType,Nuc,Dist,FFUV,e_FFUV,FNUV,e_FNUV,FB,e_FB,FR,e_FR,Fu,
+ e_Fu,Fg,e_Fg,Fr_1,e_Fr_1,Fi,e_Fi,Fz,e_Fz,FJ,e_FJ,FH,e_FH,FKs,
+ e_FKs,F3_6,e_F3_6,F4_5,e_F4_5,F5_7,e_F5_7,F8_0,e_F8_0,F24,
+ e_F24,F60,e_F60,F100,e_F100,F65,e_F65,F90,e_F90,F140,e_F140,
+ F160,e_F160,Ref
c ..............Just test output...........
write(6,1)
+ HCG,MType,Nuc,Dist,FFUV,e_FFUV,FNUV,e_FNUV,FB,e_FB,FR,e_FR,Fu,
+ e_Fu,Fg,e_Fg,Fr_1,e_Fr_1,Fi,e_Fi,Fz,e_Fz,FJ,e_FJ,FH,e_FH,FKs,
+ e_FKs,F3_6,e_F3_6,F4_5,e_F4_5,F5_7,e_F5_7,F8_0,e_F8_0,F24,
+ e_F24,F60,e_F60,F100,e_F100,F65,e_F65,F90,e_F90,F140,e_F140,
+ F160,e_F160,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! The morphological type and derived physical
* parameters based on the SED modeling of the
* HCG galaxies
C Format for file interpretation
2 format(
+ A4,A3,A5,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,
+ F5.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,135
read(1,'(A59)')ar__1
read(ar__1,2)
+ HCG_1,n_HCG,MType_1,chi2,tauObs,tauISM,tau,Mstar,SFR,sSFR,LIR
c ..............Just test output...........
write(6,2)
+ HCG_1,n_HCG,MType_1,chi2,tauObs,tauISM,tau,Mstar,SFR,sSFR,LIR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Distance to, virial radius, and morphology of
* the nearest neighbor, as well as "strength" of
* interaction for the HCG galaxies
C Format for file interpretation
3 format(A4,1X,I3,1X,I4,1X,F5.3,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,135
read(1,'(A25)')ar__2
read(ar__2,3)HCG_2,R,rvir,Str,NType
if(ar__2(6:8) .EQ. '') R = iNULL__
if(ar__2(10:13) .EQ. '') rvir = iNULL__
if(ar__2(15:19) .EQ. '') Str = rNULL__
c ..............Just test output...........
write(6,3)HCG_2,R,rvir,Str,NType
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end