Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/702/A59 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-May-15
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/702/A59 M104 Globular cluster catalogue (Fahrion+, 2025)
*================================================================================
*Globular clusters in M 104:
*Tracing kinematics and metallicities from the centre to the halo.
* Fahrion K., Beasley M.A., Emsellem E., Gvozdenko A., Mueller O., Rejkuba M.,
* Chies-Santos A.L.
* <Astron. Astrophys. 702, A59 (2025)>
* =2025A&A...702A..59F (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled1.dat' ! Catalogue of globular clusters in M104
integer*4 nr__
parameter (nr__=499) ! Number of records
character*237 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID (nr__) ! Identifier in this catalogue
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*8 vMUSE (nr__) ! (km/s) ? LOS velocity from MUSE
real*4 e_vMUSE (nr__) ! (km/s) ? LOS velocity uncertainty from MUSE
real*8 vOSIRIS (nr__) ! (km/s) ? LOS velocity from OSIRIS
real*8 e_vOSIRIS (nr__) ! (km/s) ? LOS velocity uncertainty from OSIRIS
real*8 vFLAMES (nr__) ! (km/s) ? LOS velocity from FLAMES
real*4 e_vFLAMES (nr__) ! (km/s) ? LOS velocity uncertainty from FLAMES
real*8 vDowell (nr__) ! (km/s) ? LOS velocity from Dowell et al.,
* 2014AJ....147..150D, Cat. J/AJ/147/150
real*4 e_vDowell (nr__) ! (km/s) ? LOS velocity uncertainty from Dowell et
* al., 2014AJ....147..150D, Cat. J/AJ/147/150
integer*4 Dowell (nr__) ! ? Identifier from Dowell et al.,
* 2014AJ....147..150D, Cat. J/AJ/147/150
real*8 metalMUSE (nr__) ! ? Metallicity from MUSE
real*8 e_metalMUSE(nr__) ! ? metallicity uncertainty from MUSE
real*8 metalOSIRIS(nr__) ! ? Metallicity from OSIRIS
real*8 e_metalOSIRIS(nr__) ! ? metallicity uncertainty from OSIRIS
real*4 metalFLAMES(nr__) ! ? Metallicity from FLAMES
real*8 e_metalFLAMES(nr__) ! ? metallicity uncertainty from FLAMES
real*8 metalAB (nr__) ! ? Metallicity from Alves-Brito et al..
* 2011MNRAS.417.1823A, Cat. J/MNRAS/417/1823
real*4 e_metalAB (nr__) ! ? metallicity uncertainty from Alves-Brito
* et al., 2011MNRAS.417.1823A,
* Cat. J/MNRAS/417/1823
real*4 Vmag1 (nr__) ! (mag) ? V band mag from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*4 B_V1 (nr__) ! (mag) ? B-V from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*4 B_R1 (nr__) ! (mag) ? B-R from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
integer*4 acs (nr__) ! ? Identifier from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*8 Vmag2 (nr__) ! (mag) ? V band mag. from Rhode & Zepf,
* 2004AJ....127..302R
real*8 B_V2 (nr__) ! (mag) ? B-V from Rhode & Zepf, 2004AJ....127..302R
real*8 B_R2 (nr__) ! (mag) ? B-R from Rhode & Zepf, 2004AJ....127..302R
integer*4 RZ (nr__) ! ? Identifier from Rhode & Zepf,
* 2004AJ....127..302R,
* [RZ2004] GCl NNNN in Simbad
real*4 imag (nr__) ! (mag) ? i band mag from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
real*4 g_i (nr__) ! (mag) ? g-i from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
real*4 u_g (nr__) ! (mag) ? u-g from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
integer*4 Kang (nr__) ! ? Identifier from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
C=============================================================================
C Loading file 'tabled1.dat' ! Catalogue of globular clusters in M104
C Format for file interpretation
1 format(
+ I3,1X,F11.7,1X,F11.7,1X,F8.2,1X,F6.2,1X,F8.2,1X,F7.2,1X,F8.2,
+ 1X,F5.2,1X,F7.1,1X,F6.1,1X,I5,1X,F7.2,1X,F7.2,1X,F7.2,1X,F7.2,
+ 1X,F5.2,1X,F7.2,1X,F7.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,I3,
+ 1X,F7.3,1X,F7.3,1X,F7.3,1X,I4,1X,F6.2,1X,F6.2,1X,F6.2,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'tabled1.dat')
write(6,*) '....Loading file: tabled1.dat'
do i__=1,499
read(1,'(A237)')ar__
read(ar__,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),vMUSE(i__),e_vMUSE(i__),
+ vOSIRIS(i__),e_vOSIRIS(i__),vFLAMES(i__),e_vFLAMES(i__),
+ vDowell(i__),e_vDowell(i__),Dowell(i__),metalMUSE(i__),
+ e_metalMUSE(i__),metalOSIRIS(i__),e_metalOSIRIS(i__),
+ metalFLAMES(i__),e_metalFLAMES(i__),metalAB(i__),
+ e_metalAB(i__),Vmag1(i__),B_V1(i__),B_R1(i__),acs(i__),
+ Vmag2(i__),B_V2(i__),B_R2(i__),RZ(i__),imag(i__),g_i(i__),
+ u_g(i__),Kang(i__)
if(ar__(29:36) .EQ. '') vMUSE(i__) = rNULL__
if(ar__(38:43) .EQ. '') e_vMUSE(i__) = rNULL__
if(ar__(45:52) .EQ. '') vOSIRIS(i__) = rNULL__
if(ar__(54:60) .EQ. '') e_vOSIRIS(i__) = rNULL__
if(ar__(62:69) .EQ. '') vFLAMES(i__) = rNULL__
if(ar__(71:75) .EQ. '') e_vFLAMES(i__) = rNULL__
if(ar__(77:83) .EQ. '') vDowell(i__) = rNULL__
if(ar__(85:90) .EQ. '') e_vDowell(i__) = rNULL__
if(ar__(92:96) .EQ. '') Dowell(i__) = iNULL__
if(ar__(98:104) .EQ. '') metalMUSE(i__) = rNULL__
if(ar__(106:112) .EQ. '') e_metalMUSE(i__) = rNULL__
if(ar__(114:120) .EQ. '') metalOSIRIS(i__) = rNULL__
if(ar__(122:128) .EQ. '') e_metalOSIRIS(i__) = rNULL__
if(ar__(130:134) .EQ. '') metalFLAMES(i__) = rNULL__
if(ar__(136:142) .EQ. '') e_metalFLAMES(i__) = rNULL__
if(ar__(144:150) .EQ. '') metalAB(i__) = rNULL__
if(ar__(152:157) .EQ. '') e_metalAB(i__) = rNULL__
if(ar__(159:164) .EQ. '') Vmag1(i__) = rNULL__
if(ar__(166:171) .EQ. '') B_V1(i__) = rNULL__
if(ar__(173:178) .EQ. '') B_R1(i__) = rNULL__
if(ar__(180:182) .EQ. '') acs(i__) = iNULL__
if(ar__(184:190) .EQ. '') Vmag2(i__) = rNULL__
if(ar__(192:198) .EQ. '') B_V2(i__) = rNULL__
if(ar__(200:206) .EQ. '') B_R2(i__) = rNULL__
if(ar__(208:211) .EQ. '') RZ(i__) = iNULL__
if(ar__(213:218) .EQ. '') imag(i__) = rNULL__
if(ar__(220:225) .EQ. '') g_i(i__) = rNULL__
if(ar__(227:232) .EQ. '') u_g(i__) = rNULL__
if(ar__(234:237) .EQ. '') Kang(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),vMUSE(i__),e_vMUSE(i__),
+ vOSIRIS(i__),e_vOSIRIS(i__),vFLAMES(i__),e_vFLAMES(i__),
+ vDowell(i__),e_vDowell(i__),Dowell(i__),metalMUSE(i__),
+ e_metalMUSE(i__),metalOSIRIS(i__),e_metalOSIRIS(i__),
+ metalFLAMES(i__),e_metalFLAMES(i__),metalAB(i__),
+ e_metalAB(i__),Vmag1(i__),B_V1(i__),B_R1(i__),acs(i__),
+ Vmag2(i__),B_V2(i__),B_R2(i__),RZ(i__),imag(i__),g_i(i__),
+ u_g(i__),Kang(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end