Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/659/1241 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 2024-Apr-19
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/659/1241 Stellar variability in Galactic Center (Rafelski+, 2007)
*================================================================================
*Photometric stellar variability in the Galactic Center.
* Rafelski M., Ghez A.M., Hornstein S.D., Lu J.R., Morris M.
* <Astrophys. J., 659, 1241-1256 (2007)>
* =2007ApJ...659.1241R
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! List of variable stars
integer*4 nr__
parameter (nr__=16) ! Number of records
character*92 ar__ ! Full-size record
character*10 Name (nr__) ! Star name (SN-NN = [GKM98] SN-NN in Simbad)
character*1 n_Name (nr__) ! [h] least variable (1)
character*17 OName (nr__) ! ?=--- Other name (2)
real*4 Kmag (nr__) ! (mag) K magnitude (3)
real*4 e_Kmag (nr__) ! (mag) rms uncertainty on Kmag
real*4 var (nr__) ! (mag) ? Internal variation (table2 only)
real*4 p (nr__) ! (arcsec) Projected distance from Sgr A* (4)
real*4 DRA (nr__) ! (arcsec) Offet in right ascension from Sgr A* (4)
real*4 DDE (nr__) ! (arcsec) Offset in declination from Sgr A* (4)
real*4 Prob (nr__) ! ? K-S non-variable probability (table2 only) (5)
integer*4 N (nr__) ! (d) Number of nights
character*12 Type (nr__) ! ?=--- Stellar spectral type
character*5 Notes (nr__) ! Notes (6)
*Note (1): h indicates the seven least variable bright stars detected in
* all images used for scaling of the photometry in order to reduce the
* fluctuations induced by measurement errors on IRS 16C (see Sect. 3.1).
*Note (2): Other IDs are from Paumard et al. (2006, Cat. J/ApJ/643/1011,
* [PGM2006] +x.xx+y.yy, [PGM2006] ENN) and Genzel et al.
* (2000MNRAS.317..348G, [GEO97] WNN), respectively.
*Note (3): The magnitudes are Qj corrected using seven bright nonvariable
* stars, and the uncertainties do not include the 5% absolute
* calibration uncertainties. Comparison to other sources requires adding
* them in quadrature. Uncertainties are calculated as the standard
* deviation of the mean.
*Note (4): Positions are in arcseconds offset from Sgr A* in 1999.56
*Note (5): The K-S probability is equal to 1 for an ideal nonvariable
* source, and approaches zero for a very variable source
*Note (6): Notes as follows:
* a = Identified as nonvariable by Ott et al. (1999, Cat. J/ApJ/523/248).
* b = Spectroscopic identification by Paumard et al. 2006 (J/ApJ/643/1011).
* c = Identified as possibly variable by Ott et al. 1999 (J/ApJ/523/248).
* f = Spectroscopic identification by Ott (2003, Ph.D. thesis,
* Max-Planck-Institut fur extraterrestrische Physik).
* We denote sources with clear CO or He lines as early and late,
* respectively.
* g = Identification based on the interpretation by Genzel et al.
* (2003ApJ...594..812G) of m(CO) index of Ott (2003, Ph.D. thesis,
* Max-Planck-Institut fur extraterrestrische Physik), where Genzel
* et al. (2003ApJ...594..812G) identify stars with m(CO)>=0.04 as
* late-type stars and stars with m(CO)0.04 as early-type stars.
* d = This is our main calibration star and is included in this table
* only for completeness.
* e = Spectroscopic identification by Figer et al. (2003ApJ...599.1139F).
* i = Identified as possibly variable by Ott et al. 1999 (J/ApJ/523/248).
* j = Spectroscopic identification by Eisenhauer et al.i
* (2005ApJ...628..246E).
* k = IRS 16CC appears to be variable in the L band, as discussed in
* Sect. 3.1.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! List of nonvariable stars
integer*4 nr__1
parameter (nr__1=115) ! Number of records
character*92 ar__1 ! Full-size record
character*10 Name_1 (nr__1) ! Star name (SN-NN = [GKM98] SN-NN in Simbad)
character*1 n_Name_1 (nr__1) ! [h] least variable (1)
character*17 OName_1 (nr__1) ! ?=--- Other name (2)
real*4 Kmag_1 (nr__1) ! (mag) K magnitude (3)
real*4 e_Kmag_1 (nr__1) ! (mag) rms uncertainty on Kmag
real*4 var_1 (nr__1) ! (mag) ? Internal variation (table2 only)
real*4 p_1 (nr__1) ! (arcsec) Projected distance from Sgr A* (4)
real*4 DRA_1 (nr__1) ! (arcsec) Offet in right ascension from Sgr A* (4)
real*4 DDE_1 (nr__1) ! (arcsec) Offset in declination from Sgr A* (4)
real*4 Prob_1 (nr__1) ! ? K-S non-variable probability (table2 only) (5)
integer*4 N_1 (nr__1) ! (d) Number of nights
character*12 Type_1 (nr__1) ! ?=--- Stellar spectral type
character*5 Notes_1 (nr__1) ! Notes (6)
*Note (1): h indicates the seven least variable bright stars detected in
* all images used for scaling of the photometry in order to reduce the
* fluctuations induced by measurement errors on IRS 16C (see Sect. 3.1).
*Note (2): Other IDs are from Paumard et al. (2006, Cat. J/ApJ/643/1011,
* [PGM2006] +x.xx+y.yy, [PGM2006] ENN) and Genzel et al.
* (2000MNRAS.317..348G, [GEO97] WNN), respectively.
*Note (3): The magnitudes are Qj corrected using seven bright nonvariable
* stars, and the uncertainties do not include the 5% absolute
* calibration uncertainties. Comparison to other sources requires adding
* them in quadrature. Uncertainties are calculated as the standard
* deviation of the mean.
*Note (4): Positions are in arcseconds offset from Sgr A* in 1999.56
*Note (5): The K-S probability is equal to 1 for an ideal nonvariable
* source, and approaches zero for a very variable source
*Note (6): Notes as follows:
* a = Identified as nonvariable by Ott et al. (1999, Cat. J/ApJ/523/248).
* b = Spectroscopic identification by Paumard et al. 2006 (J/ApJ/643/1011).
* c = Identified as possibly variable by Ott et al. 1999 (J/ApJ/523/248).
* f = Spectroscopic identification by Ott (2003, Ph.D. thesis,
* Max-Planck-Institut fur extraterrestrische Physik).
* We denote sources with clear CO or He lines as early and late,
* respectively.
* g = Identification based on the interpretation by Genzel et al.
* (2003ApJ...594..812G) of m(CO) index of Ott (2003, Ph.D. thesis,
* Max-Planck-Institut fur extraterrestrische Physik), where Genzel
* et al. (2003ApJ...594..812G) identify stars with m(CO)>=0.04 as
* late-type stars and stars with m(CO)0.04 as early-type stars.
* d = This is our main calibration star and is included in this table
* only for completeness.
* e = Spectroscopic identification by Figer et al. (2003ApJ...599.1139F).
* i = Identified as possibly variable by Ott et al. 1999 (J/ApJ/523/248).
* j = Spectroscopic identification by Eisenhauer et al.i
* (2005ApJ...628..246E).
* k = IRS 16CC appears to be variable in the L band, as discussed in
* Sect. 3.1.
C=============================================================================
C Loading file 'table2.dat' ! List of variable stars
C Format for file interpretation
1 format(
+ A10,A1,1X,A17,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F5.2,
+ 1X,E7.2,1X,I2,1X,A12,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,16
read(1,'(A92)')ar__
read(ar__,1)
+ Name(i__),n_Name(i__),OName(i__),Kmag(i__),e_Kmag(i__),
+ var(i__),p(i__),DRA(i__),DDE(i__),Prob(i__),N(i__),Type(i__),
+ Notes(i__)
if(ar__(42:45) .EQ. '') var(i__) = rNULL__
if(ar__(64:70) .EQ. '') Prob(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),n_Name(i__),OName(i__),Kmag(i__),e_Kmag(i__),
+ var(i__),p(i__),DRA(i__),DDE(i__),Prob(i__),N(i__),Type(i__),
+ Notes(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! List of nonvariable stars
C Format for file interpretation
2 format(
+ A10,A1,1X,A17,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F5.2,
+ 1X,E7.2,1X,I2,1X,A12,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,115
read(1,'(A92)')ar__1
read(ar__1,2)
+ Name_1(i__),n_Name_1(i__),OName_1(i__),Kmag_1(i__),
+ e_Kmag_1(i__),var_1(i__),p_1(i__),DRA_1(i__),DDE_1(i__),
+ Prob_1(i__),N_1(i__),Type_1(i__),Notes_1(i__)
if(ar__1(42:45) .EQ. '') var_1(i__) = rNULL__
if(ar__1(64:70) .EQ. '') Prob_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),n_Name_1(i__),OName_1(i__),Kmag_1(i__),
+ e_Kmag_1(i__),var_1(i__),p_1(i__),DRA_1(i__),DDE_1(i__),
+ Prob_1(i__),N_1(i__),Type_1(i__),Notes_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end