Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/640/A72 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 2026-Sep-12
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/640/A72 Distance results for the Galactic Ring Survey (Riener+, 2020)
*================================================================================
*Autonomous Gaussian decomposition of the Galactic Ring Survey.
*II. The Galactic distribution of ^13^CO.
* Riener M., Kainulainen J., Henshaw J.D., Beuther H.
* <Astron. Astrophys. 640, A72 (2020)>
* =2020A&A...640A..72R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Distance results
integer*4 nr__
parameter (nr__=4648990) ! Number of records
character*99 ar__ ! Full-size record
C Position composed of: GLON GLAT
real*4 GLON (nr__) ! (deg) [14/56] Galactic longitude position
real*4 GLAT (nr__) ! (deg) [-1.1/1.1] Galactic latitude position
real*4 VLSR (nr__) ! (km/s) Fitted centroid velocity value
real*4 DistA (nr__) ! (kpc) Heliocentric distance value for BDC Run A
real*4 e_DistA (nr__) ! (kpc) Uncertainty in distA
real*4 RgalA (nr__) ! (kpc) Galactocentric distance value for BDC Run A
real*4 probA (nr__) ! [0/1] Estimated probability value for BDC Run A
character*3 ArmA (nr__) ! Associated Galactic feature
real*4 pfarA (nr__) ! [0/1] Probability value for the Pfar prior
character*5 r_DistA (nr__) ! Reference for associated literature distance (1)
integer*4 FlagA (nr__) ! [0/4] Flag for the distance choice (2)
real*4 DistB (nr__) ! (kpc) Heliocentric distance value for BDC Run B
real*4 e_DistB (nr__) ! (kpc) Uncertainty in distB
real*4 RgalB (nr__) ! (kpc) Galactocentric distance value for BDC Run B
real*4 probB (nr__) ! Estimated probability value for BDC Run B
character*3 ArmB (nr__) ! Associated Galactic feature
real*4 pfarB (nr__) ! [0/1] Probability value for the Pfar prior
character*5 r_DistB (nr__) ! Reference for associated literature distance (1)
integer*4 FlagB (nr__) ! [0/4] Flag for the distance choice (2)
*Note (1): References as follows:
* A+09 = Anderson et al. (2009, Cat. J/ApJS/181/255);
* Anderson & Bania (2009, Cat. J/ApJ/690/706)
* A+14 = Anderson et al. (2014, Cat. J/ApJS/212/1)
* BH14 = Battisti & Heyer (2014, Cat. J/ApJ/780/173)
* C+19 = Colombo et al. (2019MNRAS.483.4291C)
* E+12 = Rosolowsky et al. (2010,Cat. J/ApJS/188/123);
* Eden et al. (2012, Cat. J/MNRAS/422/3178);
* Eden et al. (2013, Cat. J/MNRAS/431/1587)
* E+17 = Elia et al. (2017, Cat. J/MNRAS/471/100)
* EB+15 = Ginsburg et al. (2013, Cat. J/ApJS/208/14);
* Ellsworth-Bowers et al. (2015. Cat. J/ApJ/799/29);
* Svoboda et al. (2016, Cat. J/ApJ/822/59)
* R+18 = Leahy & Ranasinghe (2018ApJ...866....9L);
* Ranasinghe & Leahy (2018AJ....155..204R);
* Ranasinghe & Leahy (2018MNRAS.477.2243R);
* Ranasinghe et al. (2018AJ....155..204R, 2018MNRAS.477.2243R);
* Green (2019JApA...40...36G)
* R+19 = Rigby et al. (2019, Cat. J/A+A/632/A58)
* RD+09 = Rathborne et al. (2009, Cat. J/ApJ/699/742);
* Roman-Duval et al. (2009, Cat. J/ApJ/699/1153)
* S+06 = Simon et al. (2006, Cat. J/ApJ/639/227);
* Simon et al. (2006, Cat. J/ApJ/640/270);
* Marshall et al. (2009ApJ...694..924M)
* U+18 = Wienen et al. (2012, Cat. J/A+A/544/A146);
* Urquhart et al. (2014, Cat. J/A+A/658/A41);
* Urquhart et al. (2018, Cat. J/MNRAS/473/1059)
*Note (2): Flag for the distance choice as follows:
* 0 = distance assignment yielded only one distance solution
* 1 = associated Gaussian fit of one distance solution did not satisfy the
* criterion for the amplitude threshold
* 2 = distance solution with the highest probability (i.e. the highest
* integrated intensity of the associated Gaussian fit) was chosen
* 3 = distance solution with the lowest absolute distance error was chosen
* 4 = near kinematic distance solution was picked randomly
C=============================================================================
C Loading file 'table2.dat' ! Distance results
C Format for file interpretation
1 format(
+ F6.3,1X,F6.3,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,A3,1X,
+ F4.2,1X,A5,1X,I1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,A3,1X,
+ F4.2,1X,A5,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,4648990
read(1,'(A99)')ar__
read(ar__,1)
+ GLON(i__),GLAT(i__),VLSR(i__),DistA(i__),e_DistA(i__),
+ RgalA(i__),probA(i__),ArmA(i__),pfarA(i__),r_DistA(i__),
+ FlagA(i__),DistB(i__),e_DistB(i__),RgalB(i__),probB(i__),
+ ArmB(i__),pfarB(i__),r_DistB(i__),FlagB(i__)
c ..............Just test output...........
write(6,1)
+ GLON(i__),GLAT(i__),VLSR(i__),DistA(i__),e_DistA(i__),
+ RgalA(i__),probA(i__),ArmA(i__),pfarA(i__),r_DistA(i__),
+ FlagA(i__),DistB(i__),e_DistB(i__),RgalB(i__),probB(i__),
+ ArmB(i__),pfarB(i__),r_DistB(i__),FlagB(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end