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