Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/645/676 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-28 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/645/676 Spatial distribution of brown dwarfs in Taurus (Luhman+, 2006) *================================================================================ *The spatial distribution of brown dwarfs in Taurus. * Luhman K.L. * <Astrophys. J., 645, 676-687 (2006)> * =2006ApJ...645..676L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observing Log integer*4 nr__ parameter (nr__=10) ! Number of records character*59 ar__ ! Full-size record integer*4 Night ! Night number character*10 Date ! ("YYYY/MM/DD") Date of observation character*18 Tel ! Telescope + Instrument character*11 Disp ! Dispersive instrument real*4 lambda1 ! (um) Wavelength interval real*4 lambda2 ! (um) Wavelength interval integer*4 Resol ! lambda/Delta{lambda} resolution c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Field Stars integer*4 nr__1 parameter (nr__1=55) ! Number of records character*63 ar__1 ! Full-size record character*17 v2MASS ! 2MASS PSC designation (JHHMMSSss+DDMMSSs) character*1 n_2MASS ! [bcd] Note on 2MASS (1) character*21 SpType ! Spectral Type real*4 J_H ! (mag) 2MASS PSC J-H colour index real*4 H_Ks ! (mag) 2MASS PSC H-Ks colour index real*4 Ksmag ! (mag) 2MASS PSC Ks magnitude character*5 Nights ! Night numbers (defined in table1) *Note (1): Notes as follows: * b = Spectral features suggest a surface gravity intermediate between * those of Taurus members and field dwarfs (Figs. 10 and 11). * c = Selected from photometry in Luhman (2000ApJ...544.1044L), see Fig.5. * d = Selected from photometry in Briceno et al. (2002ApJ...580..317B). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Members of Taurus integer*4 nr__2 parameter (nr__2=37) ! Number of records character*132 ar__2 ! Full-size record character*1 f_2MASS ! [PN] Previously known or New Member character*17 v2MASS_1 ! 2MASS PSC name (JHHMMSSss+DDMMSSs) character*1 n_2MASS_1 ! [d] d: Also discovered by C. Slesnick et al. * (2006), in preparation. character*24 Onames ! Other Names character*37 SpTypes ! Spectral Types (1) character*7 r_SpTypes ! Reference for SpTypes (3) character*19 Memb ! Membership Evidence (2) real*4 J_H_1 ! (mag) 2MASS PSC J-H colour index real*4 H_Ks_1 ! (mag) 2MASS PSC H-Ks colour index real*4 Ksmag_1 ! (mag) 2MASS PSC Ks magnitude character*4 Nights_1 ! Night numbers (defined in table1) *Note (1): Uncertainties are +/-0.25 and +/-0.5 subclass for the optical * and IR types from this work, respectively, unless noted otherwise. *Note (2): Membership in Taurus from tje following features: * AV = AV>~1 and a position above the main sequence for the distance * of Taurus * e = strong emission lines * NaK = Na I and K I strengths intermediate between those of dwarfs and giants * Li = strong Li absorption * ex = IR excess emission * H2O = the shape of the gravity-sensitive steam bands *Note (3): References as follows: * 1 = Kenyon et al., 1998AJ....115.2491K * 2 = Luhman & Rieke, 1998ApJ...497..354L * 3 = White & Hillenbrand, 2004ApJ...616..998W * 4 = this work * 5 = Guieu et al., 2006, Cat. <J/A+A/446/485> * 6 = Briceno et al., 1999AJ....118.1354B C============================================================================= C Loading file 'table1.dat' ! Observing Log C Format for file interpretation 1 format(I2,1X,A10,1X,A18,1X,A11,1X,F4.2,1X,F4.2,1X,I4) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,10 read(1,'(A59)')ar__ read(ar__,1)Night,Date,Tel,Disp,lambda1,lambda2,Resol c ..............Just test output........... write(6,1)Night,Date,Tel,Disp,lambda1,lambda2,Resol c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Field Stars C Format for file interpretation 2 format(A17,A1,1X,A21,2X,F4.2,1X,F4.2,1X,F5.2,1X,A5) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,55 read(1,'(A63)')ar__1 read(ar__1,2)v2MASS,n_2MASS,SpType,J_H,H_Ks,Ksmag,Nights c ..............Just test output........... write(6,2)v2MASS,n_2MASS,SpType,J_H,H_Ks,Ksmag,Nights c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Members of Taurus C Format for file interpretation 3 format( + A1,1X,A17,A1,1X,A24,1X,A37,1X,A7,1X,A19,1X,F4.2,1X,F4.2,1X, + F5.2,1X,A4) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,37 read(1,'(A132)')ar__2 read(ar__2,3) + f_2MASS,v2MASS_1,n_2MASS_1,Onames,SpTypes,r_SpTypes,Memb, + J_H_1,H_Ks_1,Ksmag_1,Nights_1 c ..............Just test output........... write(6,3) + f_2MASS,v2MASS_1,n_2MASS_1,Onames,SpTypes,r_SpTypes,Memb, + J_H_1,H_Ks_1,Ksmag_1,Nights_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end