Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/110/1699 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-Jun-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/AJ/110/1699 F-P observations of globular clusters (Gebhardt+ 1995)
*================================================================================
*Fabry-Perot observations of globular clusters. II. 47 Tuc, NGC 6397, and M30
* Gebhardt K., Pryor C., Williams T.B., Hesser J.E.
* <Astron. J. 110, 1699 (1995)>
* =1995AJ....110.1699G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1a' ! 47 Tuc stars
integer*4 nr__
parameter (nr__=802) ! Number of records
character*47 ar__ ! Full-size record
character*5 ID (nr__) ! Star identification (1)
real*4 Xpos (nr__) ! (arcsec) []? X offset from adopted cluster center (2)
real*4 Ypos (nr__) ! (arcsec) []? Y offset from adopted cluster center (2)
real*4 Vmag (nr__) ! (mag) []? Fabry-Perot V magnitude (3)
real*4 Vel (nr__) ! (km/s) Velocity
real*4 e_Vel (nr__) ! (km/s) Velocity uncertainty (4)
character*9 Note (nr__) ! Notes (5)
*Note (1): When a star has many entries, the first line is the weighted mean and
* subsequent lines are the individual velocity
* Identification prefixes are:
* FP Fabry-Perot number
* M Mayor et al. (1983A&AS...54..495M)
* MDM Meylan et al. (1991ApJ...383..587M)
* CA Cordoni & Auriere (1984A&AS...58..559C)
* AW Alcaino & Wamsteker (1982A&AS...50..141A)
* W Wooley et al. (1961RGOB...43....1W)
* V Sawyer-Hogg (1973PDDO....3....6S)
*Note (2): Offset in arcseconds from the adopted cluster center, increasing to
* the E and N, respectively. These centers are the location of the
* peak value of an adaptive kernel estimate (Silverman 1986, Density
* Estimation for Statistics and Data Analysis; Chapman and Hall,
* London) of the surface density of stars identified in our frames by
* DAOPHOT and have uncertainties of approximately 2". For 47 Tuc the
* adopted center is within 2" of the center defined by Guhathakurta et
* al. 1992AJ....104.1790G. Plausible errors in the adopted centers
* have little effect on the dynamical analysis. The relative offsets
* for the stellar positions are good to within 0.1".
*Note (3): The FP V magnitude should only be used as a rough estimate since a
* ~4A bandpass was used and no color terms were included when
* transforming the measured counts in continuum into a V magnitude.
*Note (4): The uncertainties for the 47 Tuc velocities do not include the
* additional 1km/s discussed in section 2 of the printed paper.
*Note (5): Additional IDs, the probability of the Chi-square exceeding the
* observed value when there are multiple velocity measurements, or the
* number "1" if the star is not used in the dynamical analysis due to
* restricted velocity coverage at the outer edge of the field.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1b' ! M30 stars
integer*4 nr__1
parameter (nr__1=132) ! Number of records
character*47 ar__1 ! Full-size record
character*5 ID_1 (nr__1) ! Star identification (1)
real*4 Xpos_1 (nr__1) ! (arcsec) []? X offset from adopted cluster center (2)
real*4 Ypos_1 (nr__1) ! (arcsec) []? Y offset from adopted cluster center (2)
real*4 Vmag_1 (nr__1) ! (mag) []? Fabry-Perot V magnitude (3)
real*4 Vel_1 (nr__1) ! (km/s) Velocity
real*4 e_Vel_1 (nr__1) ! (km/s) Velocity uncertainty (4)
character*9 Note_1 (nr__1) ! Notes (5)
*Note (1): When a star has many entries, the first line is the weighted mean and
* subsequent lines are the individual velocity
* Identification prefixes are:
* FP Fabry-Perot number
* M Mayor et al. (1983A&AS...54..495M)
* MDM Meylan et al. (1991ApJ...383..587M)
* CA Cordoni & Auriere (1984A&AS...58..559C)
* AW Alcaino & Wamsteker (1982A&AS...50..141A)
* W Wooley et al. (1961RGOB...43....1W)
* V Sawyer-Hogg (1973PDDO....3....6S)
*Note (2): Offset in arcseconds from the adopted cluster center, increasing to
* the E and N, respectively. These centers are the location of the
* peak value of an adaptive kernel estimate (Silverman 1986, Density
* Estimation for Statistics and Data Analysis; Chapman and Hall,
* London) of the surface density of stars identified in our frames by
* DAOPHOT and have uncertainties of approximately 2". For 47 Tuc the
* adopted center is within 2" of the center defined by Guhathakurta et
* al. 1992AJ....104.1790G. Plausible errors in the adopted centers
* have little effect on the dynamical analysis. The relative offsets
* for the stellar positions are good to within 0.1".
*Note (3): The FP V magnitude should only be used as a rough estimate since a
* ~4A bandpass was used and no color terms were included when
* transforming the measured counts in continuum into a V magnitude.
*Note (4): The uncertainties for the 47 Tuc velocities do not include the
* additional 1km/s discussed in section 2 of the printed paper.
*Note (5): Additional IDs, the probability of the Chi-square exceeding the
* observed value when there are multiple velocity measurements, or the
* number "1" if the star is not used in the dynamical analysis due to
* restricted velocity coverage at the outer edge of the field.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1c' ! NGC 6397 stars
integer*4 nr__2
parameter (nr__2=126) ! Number of records
character*47 ar__2 ! Full-size record
character*5 ID_2 (nr__2) ! Star identification (1)
real*4 Xpos_2 (nr__2) ! (arcsec) []? X offset from adopted cluster center (2)
real*4 Ypos_2 (nr__2) ! (arcsec) []? Y offset from adopted cluster center (2)
real*4 Vmag_2 (nr__2) ! (mag) []? Fabry-Perot V magnitude (3)
real*4 Vel_2 (nr__2) ! (km/s) Velocity
real*4 e_Vel_2 (nr__2) ! (km/s) Velocity uncertainty (4)
character*9 Note_2 (nr__2) ! Notes (5)
*Note (1): When a star has many entries, the first line is the weighted mean and
* subsequent lines are the individual velocity
* Identification prefixes are:
* FP Fabry-Perot number
* M Mayor et al. (1983A&AS...54..495M)
* MDM Meylan et al. (1991ApJ...383..587M)
* CA Cordoni & Auriere (1984A&AS...58..559C)
* AW Alcaino & Wamsteker (1982A&AS...50..141A)
* W Wooley et al. (1961RGOB...43....1W)
* V Sawyer-Hogg (1973PDDO....3....6S)
*Note (2): Offset in arcseconds from the adopted cluster center, increasing to
* the E and N, respectively. These centers are the location of the
* peak value of an adaptive kernel estimate (Silverman 1986, Density
* Estimation for Statistics and Data Analysis; Chapman and Hall,
* London) of the surface density of stars identified in our frames by
* DAOPHOT and have uncertainties of approximately 2". For 47 Tuc the
* adopted center is within 2" of the center defined by Guhathakurta et
* al. 1992AJ....104.1790G. Plausible errors in the adopted centers
* have little effect on the dynamical analysis. The relative offsets
* for the stellar positions are good to within 0.1".
*Note (3): The FP V magnitude should only be used as a rough estimate since a
* ~4A bandpass was used and no color terms were included when
* transforming the measured counts in continuum into a V magnitude.
*Note (4): The uncertainties for the 47 Tuc velocities do not include the
* additional 1km/s discussed in section 2 of the printed paper.
*Note (5): Additional IDs, the probability of the Chi-square exceeding the
* observed value when there are multiple velocity measurements, or the
* number "1" if the star is not used in the dynamical analysis due to
* restricted velocity coverage at the outer edge of the field.
C=============================================================================
C Loading file 'table1a' ! 47 Tuc stars
C Format for file interpretation
1 format(A5,1X,F6.1,1X,F6.1,1X,F5.1,1X,F6.1,1X,F4.1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1a')
write(6,*) '....Loading file: table1a'
do i__=1,802
read(1,'(A47)')ar__
read(ar__,1)
+ ID(i__),Xpos(i__),Ypos(i__),Vmag(i__),Vel(i__),e_Vel(i__),
+ Note(i__)
if(ar__(7:12) .EQ. '') Xpos(i__) = rNULL__
if(ar__(14:19) .EQ. '') Ypos(i__) = rNULL__
if(ar__(21:25) .EQ. '') Vmag(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),Xpos(i__),Ypos(i__),Vmag(i__),Vel(i__),e_Vel(i__),
+ Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1b' ! M30 stars
C Format for file interpretation
2 format(A5,1X,F6.1,1X,F6.1,1X,F5.1,1X,F6.1,1X,F4.1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1b')
write(6,*) '....Loading file: table1b'
do i__=1,132
read(1,'(A47)')ar__1
read(ar__1,2)
+ ID_1(i__),Xpos_1(i__),Ypos_1(i__),Vmag_1(i__),Vel_1(i__),
+ e_Vel_1(i__),Note_1(i__)
if(ar__1(7:12) .EQ. '') Xpos_1(i__) = rNULL__
if(ar__1(14:19) .EQ. '') Ypos_1(i__) = rNULL__
if(ar__1(21:25) .EQ. '') Vmag_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1(i__),Xpos_1(i__),Ypos_1(i__),Vmag_1(i__),Vel_1(i__),
+ e_Vel_1(i__),Note_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1c' ! NGC 6397 stars
C Format for file interpretation
3 format(A5,1X,F6.1,1X,F6.1,1X,F5.1,1X,F6.1,1X,F4.1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1c')
write(6,*) '....Loading file: table1c'
do i__=1,126
read(1,'(A47)')ar__2
read(ar__2,3)
+ ID_2(i__),Xpos_2(i__),Ypos_2(i__),Vmag_2(i__),Vel_2(i__),
+ e_Vel_2(i__),Note_2(i__)
if(ar__2(7:12) .EQ. '') Xpos_2(i__) = rNULL__
if(ar__2(14:19) .EQ. '') Ypos_2(i__) = rNULL__
if(ar__2(21:25) .EQ. '') Vmag_2(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ ID_2(i__),Xpos_2(i__),Ypos_2(i__),Vmag_2(i__),Vel_2(i__),
+ e_Vel_2(i__),Note_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end