Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/343/806 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/A+A/343/806 The trapezium system BD+00 1617 (Munari+ 1999) *================================================================================ *Kinematics and binaries in young stellar aggregates. *I. The trapezium system BD+00 1617 in Bochum 2 * Munari U., Tomasella L. * <Astron. Astrophys. 343, 806 (1999)> * =1999A&A...343..806M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Journal of Observations integer*4 nr__ parameter (nr__=73) ! Number of records character*80 ar__ ! Full-size record integer*4 Nsp ! Spectrum number from the Asiago telescope * logbook integer*4 Star ! Program star identification number character*8 OBSDate ! ("DD/MM/YY") Date of the observation real*8 HJD ! (d) Heliocentric Julian date character*1 Res ! [fb] Resolution (1) integer*4 Range ! [1/10] Echelle spectral wavelength range (2) integer*4 S_N ! Signal-to-noise ratio of the continuum * close to NaI D *Note (1): f: full-resolution spectrum (0.22{AA} at H{beta}) * b: 2X2 binned spectrum (0.32{AA} at H{beta}) *Note (2): 1: 9900-7600{AA} * 2: 8130-5800{AA} * 3: 7850-5375{AA} * 4: 6900-4240{AA} * 5: 6695-4410{AA} * 6: 5835-3800{AA} * 7: 6900-4320{AA} * 8: 6695-4320{AA} * 9: 6695-4160{AA} * 10: 5990-3865{AA} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Heliocentric radial velocities integer*4 nr__1 parameter (nr__1=73) ! Number of records character*93 ar__1 ! Full-size record integer*4 Star_1 ! Program star identification number integer*4 Nsp_1 ! Spectrum number from the Asiago telescope * logbook (see table2.dat) real*8 HJD_1 ! (d) Heliocentric Julian date real*4 HRV ! (km/s) Heliocentric radial velocity real*4 e_HRV ! (km/s) Associated error on the HRV measurement C============================================================================= C Loading file 'table2.dat' ! Journal of Observations C Format for file interpretation 1 format(I5,1X,I2,1X,A8,1X,F11.3,1X,A1,1X,I2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,73 read(1,'(A80)')ar__ read(ar__,1)Nsp,Star,OBSDate,HJD,Res,Range,S_N c ..............Just test output........... write(6,1)Nsp,Star,OBSDate,HJD,Res,Range,S_N c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Heliocentric radial velocities C Format for file interpretation 2 format(I2,1X,I5,1X,F11.3,1X,F5.1,1X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,73 read(1,'(A93)')ar__1 read(ar__1,2)Star_1,Nsp_1,HJD_1,HRV,e_HRV c ..............Just test output........... write(6,2)Star_1,Nsp_1,HJD_1,HRV,e_HRV c .......End.of.Just test output........... end do close(1) C============================================================================= stop end