Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/336/263 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/336/263 Radial velocities of HR 4049 (Bakker+ 1998) *================================================================================ *Spectral variability of the binary HR 4049 * Bakker E.J., Lambert D.L., Van Winckel H., McCarthy J.K., Waelkens C., * Gonzalez G. * <Astron. Astrophys. 336, 263 (1998)> * =1998A&A...336..263B (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Log of 32 Na I D observations integer*4 nr__ parameter (nr__=32) ! Number of records character*49 ar__ ! Full-size record character*8 Date ! ("DD/MM/YY") Observation date real*8 HJD ! (d) Heliocentric Julian date real*4 v_phi_abs ! Phase (1) character*9 Tel_Instr ! Telescope/Instrument (2) integer*4 R ! Spectral resolving power real*4 HRV ! (km/s) Heliocentric radial velocity (3) *Note (1): {phi}abs=0.0 at HJD=T_0_=2446746.6+/-2.4 *Note (2): CAT/CES: Twenty-three H{alpha} and two Na I D single-order spectra * (R~55,000) have been obtained by HvW and CW on the ESO * observatory at La Silla (Chili) using the coude echelle * spectrograph at the 1.4m Coude Auxiliary Telescope. * McD/CS11: Twenty-three H{alpha} and twenty-one Na I D single-order * spectra (R~60,000) have been obtained by DLL, JKM, and * Jos Tomkin using the echelle spectrograph (6-foot * camera) on the 2.7m McDonald telescope. * McD/CE: Ten multi-order spectra (R~45,000) have been obtained by GG * using the Sandiford cassegrain echelle spectrograph * (McCarthy et al., 1993PASP..105..881M) on the 2.1m McDonald * telescope. Eight contain H{alpha} and four Na I D. * WHT/UES: Three multi-order spectra (R~50,000) have been obtained in * service time using the Utrecht echelle spectrograph on the * 4.2m William Herschel telescope on La Palma (Unger, 1994, * La Palma Technical Notes No. XXIII). All three spectra * contain H{alpha}, Na I D, and numerous photospheric * absorption lines. An extensive analysis of these spectra and * complete line identification have been published in Paper I * (Bakker et al., 1996, Cat. <J/A+A/306/924>). * McD/CS21: Two multi-order spectra (R~160,000) have been obtained by EJB * using the cross-dispersed echelle spectrograph * (Tull et al., 1995PASP..107..251T) at the 2.7m McDonald * telescope. Both contain H{alpha} and Na I D. * CTIO/ES: One single-order H{alpha} spectrum (R~18,000) has been * obtained by Andy McWilliam using the echelle spectrograph * with the air Schmidt camera on the 4m CTIO telescope. *Note (3): In table3.dat, heliocentric radial velocities are computed using the * orbital parameters * In table4.dat, heliocentric radial velocities are measured from CI, * N I, and O I lines; the velocity accuracy is 2km/s c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Log of 60 H{alpha} observations integer*4 nr__1 parameter (nr__1=60) ! Number of records character*49 ar__1 ! Full-size record character*8 Date_1 ! ("DD/MM/YY") Observation date real*8 HJD_1 ! (d) Heliocentric Julian date real*4 v_phi_abs_1 ! Phase (1) character*9 Tel_Instr_1 ! Telescope/Instrument (2) integer*4 R_1 ! Spectral resolving power real*4 HRV_1 ! (km/s) Heliocentric radial velocity (3) *Note (1): {phi}abs=0.0 at HJD=T_0_=2446746.6+/-2.4 *Note (2): CAT/CES: Twenty-three H{alpha} and two Na I D single-order spectra * (R~55,000) have been obtained by HvW and CW on the ESO * observatory at La Silla (Chili) using the coude echelle * spectrograph at the 1.4m Coude Auxiliary Telescope. * McD/CS11: Twenty-three H{alpha} and twenty-one Na I D single-order * spectra (R~60,000) have been obtained by DLL, JKM, and * Jos Tomkin using the echelle spectrograph (6-foot * camera) on the 2.7m McDonald telescope. * McD/CE: Ten multi-order spectra (R~45,000) have been obtained by GG * using the Sandiford cassegrain echelle spectrograph * (McCarthy et al., 1993PASP..105..881M) on the 2.1m McDonald * telescope. Eight contain H{alpha} and four Na I D. * WHT/UES: Three multi-order spectra (R~50,000) have been obtained in * service time using the Utrecht echelle spectrograph on the * 4.2m William Herschel telescope on La Palma (Unger, 1994, * La Palma Technical Notes No. XXIII). All three spectra * contain H{alpha}, Na I D, and numerous photospheric * absorption lines. An extensive analysis of these spectra and * complete line identification have been published in Paper I * (Bakker et al., 1996, Cat. <J/A+A/306/924>). * McD/CS21: Two multi-order spectra (R~160,000) have been obtained by EJB * using the cross-dispersed echelle spectrograph * (Tull et al., 1995PASP..107..251T) at the 2.7m McDonald * telescope. Both contain H{alpha} and Na I D. * CTIO/ES: One single-order H{alpha} spectrum (R~18,000) has been * obtained by Andy McWilliam using the echelle spectrograph * with the air Schmidt camera on the 4m CTIO telescope. *Note (3): In table3.dat, heliocentric radial velocities are computed using the * orbital parameters * In table4.dat, heliocentric radial velocities are measured from CI, * N I, and O I lines; the velocity accuracy is 2km/s C============================================================================= C Loading file 'table3.dat' ! Log of 32 Na I D observations C Format for file interpretation 1 format(A8,1X,F11.3,1X,F4.2,1X,A9,1X,I6,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,32 read(1,'(A49)')ar__ read(ar__,1)Date,HJD,v_phi_abs,Tel_Instr,R,HRV c ..............Just test output........... write(6,1)Date,HJD,v_phi_abs,Tel_Instr,R,HRV c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Log of 60 H{alpha} observations C Format for file interpretation 2 format(A8,1X,F11.3,1X,F4.2,1X,A9,1X,I6,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,60 read(1,'(A49)')ar__1 read(ar__1,2)Date_1,HJD_1,v_phi_abs_1,Tel_Instr_1,R_1,HRV_1 c ..............Just test output........... write(6,2)Date_1,HJD_1,v_phi_abs_1,Tel_Instr_1,R_1,HRV_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end