Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/702/A59 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 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 ! Identifier in this catalogue
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*8 vMUSE ! (km/s) ? LOS velocity from MUSE
real*4 e_vMUSE ! (km/s) ? LOS velocity uncertainty from MUSE
real*8 vOSIRIS ! (km/s) ? LOS velocity from OSIRIS
real*8 e_vOSIRIS ! (km/s) ? LOS velocity uncertainty from OSIRIS
real*8 vFLAMES ! (km/s) ? LOS velocity from FLAMES
real*4 e_vFLAMES ! (km/s) ? LOS velocity uncertainty from FLAMES
real*8 vDowell ! (km/s) ? LOS velocity from Dowell et al.,
* 2014AJ....147..150D, Cat. J/AJ/147/150
real*4 e_vDowell ! (km/s) ? LOS velocity uncertainty from Dowell et
* al., 2014AJ....147..150D, Cat. J/AJ/147/150
integer*4 Dowell ! ? Identifier from Dowell et al.,
* 2014AJ....147..150D, Cat. J/AJ/147/150
real*8 metalMUSE ! ? Metallicity from MUSE
real*8 e_metalMUSE ! ? metallicity uncertainty from MUSE
real*8 metalOSIRIS ! ? Metallicity from OSIRIS
real*8 e_metalOSIRIS ! ? metallicity uncertainty from OSIRIS
real*4 metalFLAMES ! ? Metallicity from FLAMES
real*8 e_metalFLAMES ! ? metallicity uncertainty from FLAMES
real*8 metalAB ! ? Metallicity from Alves-Brito et al..
* 2011MNRAS.417.1823A, Cat. J/MNRAS/417/1823
real*4 e_metalAB ! ? metallicity uncertainty from Alves-Brito
* et al., 2011MNRAS.417.1823A,
* Cat. J/MNRAS/417/1823
real*4 Vmag1 ! (mag) ? V band mag from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*4 B_V1 ! (mag) ? B-V from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*4 B_R1 ! (mag) ? B-R from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
integer*4 acs ! ? Identifier from Harris et al.,
* 2010MNRAS.401.1965H, Cat. J/MNRAS/401/1965
real*8 Vmag2 ! (mag) ? V band mag. from Rhode & Zepf,
* 2004AJ....127..302R
real*8 B_V2 ! (mag) ? B-V from Rhode & Zepf, 2004AJ....127..302R
real*8 B_R2 ! (mag) ? B-R from Rhode & Zepf, 2004AJ....127..302R
integer*4 RZ ! ? Identifier from Rhode & Zepf,
* 2004AJ....127..302R,
* [RZ2004] GCl NNNN in Simbad
real*4 imag ! (mag) ? i band mag from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
real*4 g_i ! (mag) ? g-i from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
real*4 u_g ! (mag) ? u-g from Kang et al.,
* 2022ApJ...939...74K, Cat. J/ApJ/939/74
integer*4 Kang ! ? 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,RAdeg,DEdeg,vMUSE,e_vMUSE,vOSIRIS,e_vOSIRIS,vFLAMES,
+ e_vFLAMES,vDowell,e_vDowell,Dowell,metalMUSE,e_metalMUSE,
+ metalOSIRIS,e_metalOSIRIS,metalFLAMES,e_metalFLAMES,metalAB,
+ e_metalAB,Vmag1,B_V1,B_R1,acs,Vmag2,B_V2,B_R2,RZ,imag,g_i,u_g,
+ Kang
if(ar__(29:36) .EQ. '') vMUSE = rNULL__
if(ar__(38:43) .EQ. '') e_vMUSE = rNULL__
if(ar__(45:52) .EQ. '') vOSIRIS = rNULL__
if(ar__(54:60) .EQ. '') e_vOSIRIS = rNULL__
if(ar__(62:69) .EQ. '') vFLAMES = rNULL__
if(ar__(71:75) .EQ. '') e_vFLAMES = rNULL__
if(ar__(77:83) .EQ. '') vDowell = rNULL__
if(ar__(85:90) .EQ. '') e_vDowell = rNULL__
if(ar__(92:96) .EQ. '') Dowell = iNULL__
if(ar__(98:104) .EQ. '') metalMUSE = rNULL__
if(ar__(106:112) .EQ. '') e_metalMUSE = rNULL__
if(ar__(114:120) .EQ. '') metalOSIRIS = rNULL__
if(ar__(122:128) .EQ. '') e_metalOSIRIS = rNULL__
if(ar__(130:134) .EQ. '') metalFLAMES = rNULL__
if(ar__(136:142) .EQ. '') e_metalFLAMES = rNULL__
if(ar__(144:150) .EQ. '') metalAB = rNULL__
if(ar__(152:157) .EQ. '') e_metalAB = rNULL__
if(ar__(159:164) .EQ. '') Vmag1 = rNULL__
if(ar__(166:171) .EQ. '') B_V1 = rNULL__
if(ar__(173:178) .EQ. '') B_R1 = rNULL__
if(ar__(180:182) .EQ. '') acs = iNULL__
if(ar__(184:190) .EQ. '') Vmag2 = rNULL__
if(ar__(192:198) .EQ. '') B_V2 = rNULL__
if(ar__(200:206) .EQ. '') B_R2 = rNULL__
if(ar__(208:211) .EQ. '') RZ = iNULL__
if(ar__(213:218) .EQ. '') imag = rNULL__
if(ar__(220:225) .EQ. '') g_i = rNULL__
if(ar__(227:232) .EQ. '') u_g = rNULL__
if(ar__(234:237) .EQ. '') Kang = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,vMUSE,e_vMUSE,vOSIRIS,e_vOSIRIS,vFLAMES,
+ e_vFLAMES,vDowell,e_vDowell,Dowell,metalMUSE,e_metalMUSE,
+ metalOSIRIS,e_metalOSIRIS,metalFLAMES,e_metalFLAMES,metalAB,
+ e_metalAB,Vmag1,B_V1,B_R1,acs,Vmag2,B_V2,B_R2,RZ,imag,g_i,u_g,
+ Kang
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end