FORTRAN Generation
(/./ftp/cats/J/A_A/336/263)

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