FORTRAN Generation
(/./ftp/cats/J/A_A/523/A15)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/523/A15 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/523/A15       HARPS XXIII: RV data for the 8 targets         (Naef+, 2010)
*================================================================================
*The HARPS search for southern extrasolar planets.
*XXIII. 8 planetary companions to low-activity solar-type stars.
*    Naef D., Mayor M., Lo Curto G., Bouchy F., Lovis C., Moutou C., Benz W.,
*    Pepe F., Queloz D., Santos N.C., Segransan D., Udry S., Bonfils X.,
*    Delfosse X., Forveille T., Hebrard G., Perrier C., Boisse I., Sosnowska D.
*   <Astron. Astrophys. 523, A15 (2010)>
*   =2010A&A...523A..15N
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'stars.dat'	! Studied stars (from table1 and table2 of paper)

      integer*4 nr__
      parameter (nr__=8)	! Number of records
      character*190 ar__   	! Full-size record

      integer*4     HD          ! HD number of star
      character*6   SpT         ! MK spectral type
      real*4        Vmag        ! (mag) Johnson V magnitude
      real*4        B_V         ! (mag) Johnson (B-V) color index
      real*4        d           ! (pc) Heliocentric distance
      real*4        E_d         ! (pc) Error (upper) on d
      real*4        e_d_1       ! (pc) Error (lower) on d
      real*4        VMAG_1      ! (mag) Absolute V magnitude of star
      real*4        L_          ! (Lsun) Luminosity of star in solar units
      integer*4     Teff        ! (K) Effective temperature
      integer*4     e_Teff      ! (K) Mean error on Teff
      real*4        log_g       ! ([cm/s2]) Surface gravity
      real*4        e_log_g     ! ([cm/s2]) Mean error on log.g
      real*4        v_Fe_H_     ! ([Sun]) Stellar metallicity (relative to Sun)
      real*4        e__Fe_H_    ! ([Sun]) Mean error on [Fe/H]
      real*4        M_          ! (Msun) Stellar mass in solar units
      real*4        R_          ! (Rsun) Stellar radius in solar units
      real*4        e_R_        ! (Rsun) Mean error on R*
      real*4        logR_       ! Activity index, log(R'HK) (from CaII H+K lines)
      real*4        vsini       ! (km/s) Rotation velocity (mean error is 1.0km/s)
      integer*4     P           ! (d) Orbital period
      integer*4     e_P         ! (d) Mean error on P
      real*4        e           ! Orbit eccentricity
      real*4        E_e         ! Mean error (upper bound) on e
      real*4        e_e_1       ! Mean error (lower bound) on e
      real*8        gamma       ! (km/s) Systemic velocity {gamma}
      real*8        e_gamma     ! (km/s) Mean error on gamma
      real*4        K1          ! (m/s) Velocity amplitude
      real*4        e_K1        ! (m/s) Mean error on K1
      real*4        m2sini      ! (jovMass) Mass of the companion (in Jupiter mass)
      real*4        E_m2sini    ! (jovMass) Mean error (upper bound) on m2sini
      real*4        e_m2sini_1  ! (jovMass) Mean error (lower bound) on m2sini
      real*4        a           ! (AU) Semi-major axis of orbit
      real*4        E_a         ! (AU) Mean error (upper bound) on a
      real*4        e_a_1       ! (AU) Mean error (lower bound) on a

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd6718.dat'	! HARPS measured RV for HD6718

      integer*4 nr__1
      parameter (nr__1=22)	! Number of records
      character*30 ar__1  	! Full-size record

      real*8        BJD         ! (d) Barycentric Julian date
      real*8        RV          ! (km/s) Barycentric radial velocity
      real*4        e_RV        ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd8535.dat'	! HARPS measured RV for HD8535

      integer*4 nr__2
      parameter (nr__2=45)	! Number of records
      character*30 ar__2  	! Full-size record

      real*8        BJD_1       ! (d) Barycentric Julian date
      real*8        RV_1        ! (km/s) Barycentric radial velocity
      real*4        e_RV_1      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd28254.dat'	! HARPS measured RV for HD28254

      integer*4 nr__3
      parameter (nr__3=32)	! Number of records
      character*30 ar__3  	! Full-size record

      real*8        BJD_2       ! (d) Barycentric Julian date
      real*8        RV_2        ! (km/s) Barycentric radial velocity
      real*4        e_RV_2      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd290327.dat'	! HARPS measured RV for HD290327

      integer*4 nr__4
      parameter (nr__4=18)	! Number of records
      character*30 ar__4  	! Full-size record

      real*8        BJD_3       ! (d) Barycentric Julian date
      real*8        RV_3        ! (km/s) Barycentric radial velocity
      real*4        e_RV_3      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd43197.dat'	! HARPS measured RV for HD43197

      integer*4 nr__5
      parameter (nr__5=33)	! Number of records
      character*30 ar__5  	! Full-size record

      real*8        BJD_4       ! (d) Barycentric Julian date
      real*8        RV_4        ! (km/s) Barycentric radial velocity
      real*4        e_RV_4      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd44219.dat'	! HARPS measured RV for HD44219

      integer*4 nr__6
      parameter (nr__6=46)	! Number of records
      character*30 ar__6  	! Full-size record

      real*8        BJD_5       ! (d) Barycentric Julian date
      real*8        RV_5        ! (km/s) Barycentric radial velocity
      real*4        e_RV_5      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd148156.dat'	! HARPS measured RV for HD148156

      integer*4 nr__7
      parameter (nr__7=42)	! Number of records
      character*30 ar__7  	! Full-size record

      real*8        BJD_6       ! (d) Barycentric Julian date
      real*8        RV_6        ! (km/s) Barycentric radial velocity
      real*4        e_RV_6      ! (km/s) Radial-velocity uncertainty

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hd156411.dat'	! HARPS measured RV for HD156411

      integer*4 nr__8
      parameter (nr__8=50)	! Number of records
      character*30 ar__8  	! Full-size record

      real*8        BJD_7       ! (d) Barycentric Julian date
      real*8        RV_7        ! (km/s) Barycentric radial velocity
      real*4        e_RV_7      ! (km/s) Radial-velocity uncertainty

C=============================================================================

C  Loading file 'stars.dat'	! Studied stars (from table1 and table2 of paper)

C  Format for file interpretation

    1 format(
     +  3X,I6,2X,A6,1X,F5.2,1X,F5.3,1X,F4.1,1X,F3.1,1X,F3.1,1X,F5.3,
     +  1X,F4.2,1X,I4,1X,I2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,
     +  1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,I4,2X,I3,1X,F4.2,1X,F4.2,
     +  1X,F4.2,1X,F8.4,1X,F7.4,1X,F4.1,1X,F4.1,1X,F4.2,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'stars.dat')
      write(6,*) '....Loading file: stars.dat'
      do i__=1,8
        read(1,'(A190)')ar__
        read(ar__,1)
     +  HD,SpT,Vmag,B_V,d,E_d,e_d_1,VMAG_1,L_,Teff,e_Teff,log_g,
     +  e_log_g,v_Fe_H_,e__Fe_H_,M_,R_,e_R_,logR_,vsini,P,e_P,e,E_e,
     +  e_e_1,gamma,e_gamma,K1,e_K1,m2sini,E_m2sini,e_m2sini_1,a,E_a,
     +  e_a_1
c    ..............Just test output...........
        write(6,1)
     +  HD,SpT,Vmag,B_V,d,E_d,e_d_1,VMAG_1,L_,Teff,e_Teff,log_g,
     +  e_log_g,v_Fe_H_,e__Fe_H_,M_,R_,e_R_,logR_,vsini,P,e_P,e,E_e,
     +  e_e_1,gamma,e_gamma,K1,e_K1,m2sini,E_m2sini,e_m2sini_1,a,E_a,
     +  e_a_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd6718.dat'	! HARPS measured RV for HD6718

C  Format for file interpretation

    2 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd6718.dat')
      write(6,*) '....Loading file: hd6718.dat'
      do i__=1,22
        read(1,'(A30)')ar__1
        read(ar__1,2)BJD,RV,e_RV
c    ..............Just test output...........
        write(6,2)BJD,RV,e_RV
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd8535.dat'	! HARPS measured RV for HD8535

C  Format for file interpretation

    3 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd8535.dat')
      write(6,*) '....Loading file: hd8535.dat'
      do i__=1,45
        read(1,'(A30)')ar__2
        read(ar__2,3)BJD_1,RV_1,e_RV_1
c    ..............Just test output...........
        write(6,3)BJD_1,RV_1,e_RV_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd28254.dat'	! HARPS measured RV for HD28254

C  Format for file interpretation

    4 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd28254.dat')
      write(6,*) '....Loading file: hd28254.dat'
      do i__=1,32
        read(1,'(A30)')ar__3
        read(ar__3,4)BJD_2,RV_2,e_RV_2
c    ..............Just test output...........
        write(6,4)BJD_2,RV_2,e_RV_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd290327.dat'	! HARPS measured RV for HD290327

C  Format for file interpretation

    5 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd290327.dat')
      write(6,*) '....Loading file: hd290327.dat'
      do i__=1,18
        read(1,'(A30)')ar__4
        read(ar__4,5)BJD_3,RV_3,e_RV_3
c    ..............Just test output...........
        write(6,5)BJD_3,RV_3,e_RV_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd43197.dat'	! HARPS measured RV for HD43197

C  Format for file interpretation

    6 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd43197.dat')
      write(6,*) '....Loading file: hd43197.dat'
      do i__=1,33
        read(1,'(A30)')ar__5
        read(ar__5,6)BJD_4,RV_4,e_RV_4
c    ..............Just test output...........
        write(6,6)BJD_4,RV_4,e_RV_4
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd44219.dat'	! HARPS measured RV for HD44219

C  Format for file interpretation

    7 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd44219.dat')
      write(6,*) '....Loading file: hd44219.dat'
      do i__=1,46
        read(1,'(A30)')ar__6
        read(ar__6,7)BJD_5,RV_5,e_RV_5
c    ..............Just test output...........
        write(6,7)BJD_5,RV_5,e_RV_5
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd148156.dat'	! HARPS measured RV for HD148156

C  Format for file interpretation

    8 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd148156.dat')
      write(6,*) '....Loading file: hd148156.dat'
      do i__=1,42
        read(1,'(A30)')ar__7
        read(ar__7,8)BJD_6,RV_6,e_RV_6
c    ..............Just test output...........
        write(6,8)BJD_6,RV_6,e_RV_6
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hd156411.dat'	! HARPS measured RV for HD156411

C  Format for file interpretation

    9 format(F14.6,1X,F8.4,1X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hd156411.dat')
      write(6,*) '....Loading file: hd156411.dat'
      do i__=1,50
        read(1,'(A30)')ar__8
        read(ar__8,9)BJD_7,RV_7,e_RV_7
c    ..............Just test output...........
        write(6,9)BJD_7,RV_7,e_RV_7
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end