Conversion of standardized ReadMe file for
file /./ftp/cats/III/231 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. III/231 The Tycho-2 Spectral Type Catalog (Wright+, 2003) *================================================================================ *The Tycho-2 Spectral Type Catalog * Wright C.O., Egan M.P., Kraemer K.E., Price S.D. * <Astron. J., 125, 359 (2003)> * =2003AJ....125..359W C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! Main Catalog integer*4 nr__ parameter (nr__=351863) ! Number of records character*124 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 TYC1 ! First part of Tycho-2 identifier integer*4 TYC2 ! Second part of Tycho-2 identifier integer*4 TYC3 ! Third part of Tycho-2 identifier real*8 RAdeg ! (deg) Right Ascension, J2000, decimal deg. real*8 DEdeg ! (deg) Declination, J2000, decimal deg. real*4 VTmag ! (mag) ?=99.99 Tycho-2 V_T_ magnitude real*4 BTmag ! (mag) ?=99.99 Tycho-2 B_T_ magnitude character*3 r_SpType ! Source of spectral type (2) character*15 Name ! Alternate designation for star (3) real*4 Dist ! (arcsec) Distance between Tycho object and * spectral type match (4) real*4 Mag ! (mag) ?=99.99 Magnitude from SpType catalog (5) character*1 f_Mag ! [VPBX*] Flag indicating type of magnitude (6) character*1 TClass ! Temperature class (7) integer*4 SClass ! ? Temperature Subclass (7) integer*4 LClass ! ? Luminosity class in numeric form (7) integer*4 Teff ! (K) Effective temperature of the star, based on * spectral type (G1) character*20 SpType ! Spectral Type (1) *Note (1): This is the spectral type of the star, exactly as it appears * in the original spectral type catalog. *Note (2): This column contains a code for the catalog of origin of the * spectral type: * mc1 = Michigan Catalog, Vol. 1, <III/31> * mc2 = Michigan Catalog, Vol. 2, <III/51> * mc3 = Michigan Catalog, Vol. 3, <III/80> * mc4 = Michigan Catalog, Vol. 4, <III/133> * mc5 = Michigan Catalog, Vol. 5, <III/214> * j64 = Jaschek et al. 1964, <III/18> * k83 = Kennedy 1983, <III/78> * fI = FK5, Part I, <I/149> * fII = FK5, Part II, <I/175> * ppN = PPM North, <I/146> * ppS = PPM South, <I/193> * sim = SIMBAD Astronomical Database *Note (3): This is an alternate designation for the star, other than * its Tycho-2 identifier. It is usually the designation for the star * that appeared in the spectral type catalog. *Note (4): This is the distance in arcsec between the Tycho-2 object * and the star from the spectral type catalog to which it was matched. *Note (5): This is the magnitude that appears in the spectral type catalog. * If no magnitude was included, it will have a value of 99.99. *Note (6): This indicates the type of magnitude that appears in the * spectral type catalog: * V = visual * P = photographic * B = blue * X = unknown * * = no magnitude was included *Note (7): * In the spectral type reformatting, it was necessary to "choose" a * concrete spectral type for those that were listed ambiguously, and * the rule adhered to was to take the first listing. For example, if a * spectral type was originally listed as K2/3 III, it will be K2 3, * where K is the temperature class, 2 is the subclass, and 3 is the * luminosity class. * * Other examples: A9/F2 V, B2.5 V, and G8 IV/V in the original catalog * become A9 5, B2 5, and G8 4 in the reformatted spectral type c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'appdxa.dat' ! Appendix of uncertain matches integer*4 nr__1 parameter (nr__1=104) ! Number of records character*19 ar__1 ! Full-size record integer*4 TYC1_1 ! First part of Tycho-2 identifier integer*4 TYC2_1 ! Second part of Tycho-2 identifier integer*4 TYC3_1 ! Third part of Tycho-2 identifier character*1 Flag ! Flag indicating source of uncertainty (2) *Note (1): Objects are included in appdxa.dat if they were among the outliers in * distance or magnitude, and further investigation yielded no more * information about the pair. *Note (2): Flags: * d = the match is uncertain because the matched pair is separated * by a distance greater than 5 arcsec. * m = the match is uncertain because the matched pair has a magnitude * difference greater than 2 mag. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'appdxb.dat' ! Appendix of additional Tycho-2 stars integer*4 nr__2 parameter (nr__2=111408) ! Number of records character*40 ar__2 ! Full-size record integer*4 TYC1_2 ! First part of Tycho-2 identifier (1) integer*4 TYC2_2 ! Second part of Tycho-2 identifier integer*4 TYC3_2 ! Third part of Tycho-2 identifier character*1 f_TYC1 ! [S] Set for stars in Tycho-2 Supplement#1 integer*4 HD ! Henry Draper identifier character*3 SpType_1 ! 1-D Spectral Type from HD catalog integer*4 n_HD ! Number of HD stars for this Tycho-2 star integer*4 n_TYC1 ! Number of Tycho-2 stars for this HD star character*1 TDSC ! [D] star in the Tycho-2 Double Star Catalog character*1 Rem ! [DEGMR*] Remarks flag from HD file (2) character*1 Note ! [N] note exists in notes.dat file (3) integer*4 Temp ! (K) ?=-9999 Temperature of star estimated from * Spectral Type (G1) *Note (1): appdxb.dat includes additional Tycho-2 objects that do not * appear in catalog.dat. These objects were taken from the Fabricius et * al. (2002) catalog <IV/25> matching HD identifiers to Tycho-2 objects. * With the exception of the last column (which we have added), the * format and content of the appendix are identical to the format and * content of catalog <IV/25>. *Note (2): (This is taken directly from the ReadMe file of catalog <IV/25>) * D = Entry deleted (compared to the printed catalog) * E = Image at edge of plate * G = Position and BD number taken directly from AGK1 and precessed to 1900 * M = Multiple images used * R = Remark in the published catalog * * = Spectral type refers to a cluster, nebula, or nebulous star *Note (3): The notes.dat file is not included here, but is part of * catalog <IV/25>. C============================================================================= C Loading file 'catalog.dat' ! Main Catalog C Format for file interpretation 1 format( + 4X,I4,1X,I5,1X,I1,1X,F12.8,1X,F12.8,1X,F6.3,1X,F6.3,1X,A3,1X, + A15,1X,F6.3,1X,F6.2,1X,A1,1X,A1,I1,1X,I1,1X,I5,1X,A20) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,351863 read(1,'(A124)')ar__ read(ar__,1) + TYC1,TYC2,TYC3,RAdeg,DEdeg,VTmag,BTmag,r_SpType,Name,Dist,Mag, + f_Mag,TClass,SClass,LClass,Teff,SpType if(ar__(95:95) .EQ. '') SClass = iNULL__ if(ar__(97:97) .EQ. '') LClass = iNULL__ c ..............Just test output........... write(6,1) + TYC1,TYC2,TYC3,RAdeg,DEdeg,VTmag,BTmag,r_SpType,Name,Dist,Mag, + f_Mag,TClass,SClass,LClass,Teff,SpType c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'appdxa.dat' ! Appendix of uncertain matches C Format for file interpretation 2 format(4X,I4,1X,I5,1X,I1,2X,A1) C Effective file loading open(unit=1,status='old',file= +'appdxa.dat') write(6,*) '....Loading file: appdxa.dat' do i__=1,104 read(1,'(A19)')ar__1 read(ar__1,2)TYC1_1,TYC2_1,TYC3_1,Flag c ..............Just test output........... write(6,2)TYC1_1,TYC2_1,TYC3_1,Flag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'appdxb.dat' ! Appendix of additional Tycho-2 stars C Format for file interpretation 3 format( + I4,1X,I5,1X,I1,A1,1X,I6,1X,A3,1X,I1,1X,I1,1X,A1,1X,A1,1X,A1, + 1X,I5) C Effective file loading open(unit=1,status='old',file= +'appdxb.dat') write(6,*) '....Loading file: appdxb.dat' do i__=1,111408 read(1,'(A40)')ar__2 read(ar__2,3) + TYC1_2,TYC2_2,TYC3_2,f_TYC1,HD,SpType_1,n_HD,n_TYC1,TDSC,Rem, + Note,Temp c ..............Just test output........... write(6,3) + TYC1_2,TYC2_2,TYC3_2,f_TYC1,HD,SpType_1,n_HD,n_TYC1,TDSC,Rem, + Note,Temp c .......End.of.Just test output........... end do close(1) C============================================================================= stop end