Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/760/87 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-10
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/ApJ/760/87 Globular clusters of M60 with HST (Strader+, 2012)
*================================================================================
*Deep Chandra monitoring observations of NGC 4649.
*II. Wide-field Hubble Space Telescope imaging of the globular clusters.
* Strader J., Fabbiano G., Luo B., Kim D.-W., Brodie J.P., Fragos T.,
* Gallagher J.S., Kalogera V., King A., Zezas A.
* <Astrophys. J., 760, 87 (2012)>
* =2012ApJ...760...87S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Globular cluster candidates in NGC 4649
integer*4 nr__
parameter (nr__=1603) ! Number of records
character*100 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*4 ID (nr__) ! Globular cluster candidate identifier
* (<[SFL2012] ANNN> in Simbad)
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 gmag (nr__) ! (mag) The g band AB magnitude (HST/ACS F475W)
real*4 e_gmag (nr__) ! (mag) Error in gmag
real*4 zmag (nr__) ! (mag) The z band AB magnitude (HST/ACS F850LP)
real*4 e_zmag (nr__) ! (mag) Error in zmag
real*4 g_z (nr__) ! (mag) The (g-z) color index
real*4 e_g_z (nr__) ! (mag) Error in g-z
real*4 rhg (nr__) ! (pc) ? Cluster g band measured radius
real*4 e_rhg (nr__) ! (pc) ? Random measurement error in rhg
real*4 rhz (nr__) ! (pc) ? Cluster z band measured radius
real*4 e_rhz (nr__) ! (pc) ? Random measurement error in rhz
real*4 rhavg (nr__) ! (pc) ? Weighted average g and z band radius
real*4 e_rhavg (nr__) ! (pc) ? Random measurement error in rhavg
character*1 J_ (nr__) ! [Y ] In Jordan et al. catalog? (1)
*Note (1): Whether the object is present in the catalog of globular cluster
* candidates in Vorgo survey (Jordan et al. 2009, Cat. J/ApJS/180/54),
* <[JPB2009] DDD.ddddddd+DD.ddddddd> in Simbad
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Candidate ultracompact dwarf galaxies in NGC 4649
integer*4 nr__1
parameter (nr__1=23) ! Number of records
character*28 ar__1 ! Full-size record
character*1 f_ID (nr__1) ! [s] s: spectroscopically confirmed object
character*4 ID_1 (nr__1) ! Ultra compact dwarf galaxy candidate identifier
real*4 zMag_1 (nr__1) ! (mag) Absolute z-band magnitude
real*4 g_z_1 (nr__1) ! (mag) The (g-z) color index
real*4 rh (nr__1) ! (pc) Half-light radius
real*4 Dist (nr__1) ! (kpc) Projected galactocentric distance
C=============================================================================
C Loading file 'table1.dat' ! Globular cluster candidates in NGC 4649
C Format for file interpretation
1 format(
+ A4,1X,F11.7,1X,F10.7,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,1603
read(1,'(A100)')ar__
read(ar__,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),gmag(i__),e_gmag(i__),zmag(i__),
+ e_zmag(i__),g_z(i__),e_g_z(i__),rhg(i__),e_rhg(i__),rhz(i__),
+ e_rhz(i__),rhavg(i__),e_rhavg(i__),J_(i__)
if(ar__(67:71) .EQ. '') rhg(i__) = rNULL__
if(ar__(73:76) .EQ. '') e_rhg(i__) = rNULL__
if(ar__(78:82) .EQ. '') rhz(i__) = rNULL__
if(ar__(84:87) .EQ. '') e_rhz(i__) = rNULL__
if(ar__(89:93) .EQ. '') rhavg(i__) = rNULL__
if(ar__(95:98) .EQ. '') e_rhavg(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),gmag(i__),e_gmag(i__),zmag(i__),
+ e_zmag(i__),g_z(i__),e_g_z(i__),rhg(i__),e_rhg(i__),rhz(i__),
+ e_rhz(i__),rhavg(i__),e_rhavg(i__),J_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Candidate ultracompact dwarf galaxies in NGC 4649
C Format for file interpretation
2 format(A1,1X,A4,1X,F6.2,1X,F4.2,1X,F4.1,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,23
read(1,'(A28)')ar__1
read(ar__1,2)
+ f_ID(i__),ID_1(i__),zMag_1(i__),g_z_1(i__),rh(i__),Dist(i__)
c ..............Just test output...........
write(6,2)
+ f_ID(i__),ID_1(i__),zMag_1(i__),g_z_1(i__),rh(i__),Dist(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end