Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/601/A60 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-18
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/601/A60 ATLASGAL: Massive cluster progenitors sample (Csengeri+, 2017)
*================================================================================
*The ATLASGAL survey: the sample of massive cluster progenitors.
* Csengeri T., Bontemps S., Wyrowski F., Megeath S.T., Motte F., Sanna A.,
* Wienen M., Menten K.M.
* <Astron. Astrophys. 601, A60 (2017)>
* =2017A&A...601A..60C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Flux limited sample of ATLASGAL sources with
distance estimate and the corresponding
dust properties
integer*4 nr__
parameter (nr__=209) ! Number of records
character*156 ar__ ! Full-size record
C Position composed of: GLON GLAT
character*16 Name ! ATLASGAL catalogue name of the source
character*1 n_Name ! [x] Note on Name (1)
real*8 GLON ! (deg) Galactic longitude
real*8 GLAT ! (deg) Galactic latitude
real*4 Fnu ! (Jy/beam) Peak flux density at 870um
real*4 Snu ! (Jy) Integrated flux density at 870um
real*4 maj ! (arcsec) FWHM major axis
real*4 min ! (arcsec) FWHM minor axis
integer*4 PA ! (deg) [] FWHM position angle
real*4 Dist ! (kpc) Distance
real*4 Distmin ! (kpc) Minimum distance
real*4 Distmax ! (kpc) Maximum distance
integer*4 r_Dist ! Reference for distance (2)
integer*4 Mcorr ! (Msun) Temperature corrected mass estimate
real*4 R90 ! (pc) 90% source radius
real*4 SIGMA ! (g/cm2) Mass surface density
real*4 n ! (10+4cm-3) Volume averaged density
character*1 IRq ! [y/n] whether infrared quiet
character*34 GMC ! GMC/SIRDC/MSX association
character*15 EGO ! EGO association
*Note (1): x for sources also included in the ATLASGAL top100 selection by
* Giannetti et al. (2014, Cat. J/A+A/570/A65).
*Note (2): References as follows:
* 1 = This work
* 2 = Sato et al. (2010, Cat. J/ApJ/720/1055)
* 3 = Zhang et al. (2013ApJ...775...79Z)
* 4 = Zhang et al. (2014ApJ...781...89Z)
* 5 = Immer et al. (2013A&A...553A.117I)
* 6 = Sanna et al. (2014ApJ...781..108S)
* 7 = Moises et al. (2011, Cat. J/MNRAS/411/705)
* 8 = Wu et al. (2014A&A...566A..17W)
* 9 = Wu et al. (2012, IAU Symp., 287, 425)
* 10 = Reid et al. (2014, Cat. J/ApJ/783/130)
* 11 = Dutra et al. (2003, Cat. J/A+A/400/533)
* 12 = Straw et al. (1987ApJ...314..283S)
* 13 = Xu et al. (2011ApJ...733...25X)
* 14 = Sanna et al. (2009ApJ...706..464S)
* 15 = Leurini et al. (2011A&A...530A..12L)
* 16 = Kurayama et al. (2011PASJ...63..513K)
* 17 = Russeil (2003, Cat. J/A+A/397/133)
* 18 = Reid et al. (2009ApJ...700..137R)
* 19 = Brunthaler et al. (2009ApJ...693..424B)
* 20 = Urquhart et al. (2014, Cat. J/MNRAS/443/1555)
* 21 = Krishnan et al. (2015ApJ...805..129K)
* 22 = Motogi et al. (2011PASJ...63...31M)
C=============================================================================
C Loading file 'table4.dat' ! Flux limited sample of ATLASGAL sources with
* distance estimate and the corresponding
* dust properties
C Format for file interpretation
1 format(
+ A16,A1,3X,F8.4,1X,F7.4,1X,F5.2,F6.2,1X,F4.1,1X,F4.1,1X,I3,1X,
+ F4.1,1X,F4.1,1X,F4.1,2X,I2,2X,I5,1X,F3.1,F4.1,1X,F5.1,2X,A1,
+ 1X,A34,1X,A15)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,209
read(1,'(A156)')ar__
read(ar__,1)
+ Name,n_Name,GLON,GLAT,Fnu,Snu,maj,min,PA,Dist,Distmin,Distmax,
+ r_Dist,Mcorr,R90,SIGMA,n,IRq,GMC,EGO
c ..............Just test output...........
write(6,1)
+ Name,n_Name,GLON,GLAT,Fnu,Snu,maj,min,PA,Dist,Distmin,Distmax,
+ r_Dist,Mcorr,R90,SIGMA,n,IRq,GMC,EGO
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end