Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/134/825 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 2024-Mar-29 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/134/825 BVI photometry in M55 (NGC 6809) (Vargas+, 2007) *================================================================================ *Evolved stars in the galactic globular cluster M 55 (NGC 6809). * Vargas Alvarez C.A., Sandquist E.L. * <Astron. J., 134, 825-834 (2007)> * =2007AJ....134..825V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'stars.dat' ! Stars list integer*4 nr__ parameter (nr__=666) ! Number of records character*19 ar__ ! Full-size record character*3 ID ! Identification number from this study (1) real*8 oRA ! (arcsec) Right Ascension offset from cluster center (2) real*8 oDE ! (arcsec) Declination offset from cluster center (2) *Note (1): Stars classification is related to star ID: * V1 to V13 = RR Lyr * 1 to 268 = HB (horizontal branch) star * 269 to 312 = AGB (asymptotic giant branch) * 313 to 653 = RGB (red giant branch) * Stars are identified in Simbad as * Cl* NGC 6809 VS VNN and Cl* NGC 6809 VS NNN *Note (2): The positions we tabulate are given in arcseconds from the center * of the cluster (taken to be 19:39:49.40-30:47:43.5 (J2000.0)), with * the x position being the RA offset and the y position being the DE * offset (positive being higher RA and DE). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! The interior stars in M 55 integer*4 nr__1 parameter (nr__1=1988) ! Number of records character*67 ar__1 ! Full-size record character*3 ID_1 ! Identification number from this study (1) character*5 ID2 ! Identification number from the original study real*4 Bmag ! (mag) The B band magnitude (3) real*4 e_Bmag ! (mag) ? Error in Bmag real*4 Vmag ! (mag) The V band magnitude (3) real*4 e_Vmag ! (mag) ? Error in Vmag real*4 Imag ! (mag) ? The I band magnitude real*4 e_Imag ! (mag) ? Error in Imag character*3 Cat ! Catalog photometry (4) character*14 Spc ! Star observed in other studies (5) *Note (1): The first row is the compilated photometry in scaled to the M97 * photometry. The following rows with the same ID is the same star with * the photometry detected in the original study. *Note (3): The Stromgren photometry from Richter et al.(1999A&A...350..476R) * was reported in the columns for the B and V band magnitudes. The * Stromgren b band is listed under the B band, and the Stromgren y band * is listed under the V band column. *Note (4): Catalogues as follows: * VS = Vargas Alvarez & Sandquist, this paper * L77 = Lee (1977A&AS...29....1L) * M97 = Mandushev et al. (1997AJ....114.1060M) * O99 = Olech et al. (1999AJ....118..442O) * P01 = Pych et al. (2001A&A...367..148P) * R99 = Richter et al. (1999A&A...350..476R) *Note (5): References as follows: * B90 = Briley et al. (1990ApJ...359..307B) * B93 = Briley et al. (1993AJ....106..142B) * SN82 = Smith & Norris (1982ApJ...254..149S) * W81 = Webbink (1981ApJS...45..259W) C============================================================================= C Loading file 'stars.dat' ! Stars list C Format for file interpretation 1 format(A3,1X,F7.2,1X,F7.2) C Effective file loading open(unit=1,status='old',file= +'stars.dat') write(6,*) '....Loading file: stars.dat' do i__=1,666 read(1,'(A19)')ar__ read(ar__,1)ID,oRA,oDE c ..............Just test output........... write(6,1)ID,oRA,oDE c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! The interior stars in M 55 C Format for file interpretation 2 format( + A3,1X,A5,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X, + A3,1X,A14) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,1988 read(1,'(A67)')ar__1 read(ar__1,2) + ID_1,ID2,Bmag,e_Bmag,Vmag,e_Vmag,Imag,e_Imag,Cat,Spc if(ar__1(18:22) .EQ. '') e_Bmag = rNULL__ if(ar__1(31:35) .EQ. '') e_Vmag = rNULL__ if(ar__1(37:42) .EQ. '') Imag = rNULL__ if(ar__1(44:48) .EQ. '') e_Imag = rNULL__ c ..............Just test output........... write(6,2) + ID_1,ID2,Bmag,e_Bmag,Vmag,e_Vmag,Imag,e_Imag,Cat,Spc c .......End.of.Just test output........... end do close(1) C============================================================================= stop end