Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/341/L79 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-Apr-20 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/A+A/341/L79 Proper motions of faint ROSAT WTT stars (Terranegra+ 1999) *================================================================================ *Proper motions of faint ROSAT WTT stars in the Chamaeleon region. * Terranegra L., Morale F., Spagna A., Massone G., Lattanzi M.G. * <Astron. Astrophys. 341, L79 (1999)> * =1999A&A...341..L79T (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Proper motions for the 59 RASS stars integer*4 nr__ parameter (nr__=59) ! Number of records character*104 ar__ ! Full-size record character*17 Name ! ROSAT all-sky survey source designation * Alcala' et al. (1995, Cat. <J/A+AS/114/109>) * or catalogue designation character*2 n_Name ! [* KG] Note on Name (1) character*12 CatNo ! Astrometric catalog designation character*1 Cat ! [APHS] Catalogue name (2) real*4 pmRA ! (mas/yr) Proper motion in right ascension ({mu}RA*cosDE) real*4 e_pmRA ! (mas/yr) ? rms uncertainty on pmRA real*4 pmDE ! (mas/yr) Proper motion in declination real*4 e_pmDE ! (mas/yr) ? rms uncertainty on pmDE real*4 plx ! (mas) ? Parallax from Hipparcos catalogue (<I/239>) real*4 e_plx ! (mas) ? rms uncertainty on plx character*2 SpType ! Spectral Type real*4 Vmag ! (mag) ? Stellar V magnitude character*5 Type ! Stellar type (3) character*23 Names ! Other names *Note (1): *: The proper motion value for CED 110 is from Grasdalen G. * (1977IAUCo..42...25G), while the values for SAO 256557 and * RXJ1225.3-7857 are from the original catalogue and they are in the * FK5 system. However the deviation from the Hipparcos system can be * considered negligible in this work. * KG: Stars belong to the kinematical group (see text). *Note (2): A = ACT Catalog (Cat. <I/246>) * P = PPM Catalog (Cat. <I/146>, <I/193>) * H = Hipparcos Catalog (Cat. <I/239>) * S = GSC S039 plate *Note (3): PMS: Pre-Main Sequence stars from the high resolution spectroscopy * by Covino et al. (1997A&A...328..187C) * W: WTTS from low resolution spectroscopy by Alcala' et al. * (1995, Cat. <J/A+AS/114/109>) * UBS: uncorrelated bright stars by Alcala' et al. * (1995, Cat. <J/A+AS/114/109>) * CTTS: Classical T Tauri stars * Ae/Be: Herbig Ae/Be stars C============================================================================= C Loading file 'table1.dat' ! Proper motions for the 59 RASS stars C Format for file interpretation 1 format( + A17,1X,A2,1X,A12,1X,A1,1X,F6.1,1X,F3.1,1X,F5.1,1X,F3.1,1X, + F5.2,1X,F3.1,1X,A2,1X,F4.1,1X,A5,1X,A23) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,59 read(1,'(A104)')ar__ read(ar__,1) + Name,n_Name,CatNo,Cat,pmRA,e_pmRA,pmDE,e_pmDE,plx,e_plx, + SpType,Vmag,Type,Names if(ar__(44:46) .EQ. '') e_pmRA = rNULL__ if(ar__(54:56) .EQ. '') e_pmDE = rNULL__ if(ar__(58:62) .EQ. '') plx = rNULL__ if(ar__(64:66) .EQ. '') e_plx = rNULL__ if(ar__(71:74) .EQ. '') Vmag = rNULL__ c ..............Just test output........... write(6,1) + Name,n_Name,CatNo,Cat,pmRA,e_pmRA,pmDE,e_pmDE,plx,e_plx, + SpType,Vmag,Type,Names c .......End.of.Just test output........... end do close(1) C============================================================================= stop end