Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/680/728 into FORTRAN code for loading all data files into arrays.
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-19 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/ApJ/680/728 Diameters of exoplanet host stars (Baines+, 2008) *================================================================================ *CHARA array measurements of the angular diameters of exoplanet host stars. * Baines E.K., Mcalister H.A., Ten Brummelaar T.A., Turner N.H., Sturmann J., * Sturmann L., Goldfinger P.J., Ridgway S.T. * <Astrophys. J., 680, 728-733 (2008)> * =2008ApJ...680..728B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observing log integer*4 nr__ parameter (nr__=53) ! Number of records character*47 ar__ ! Full-size record integer*4 HD (nr__) ! Target name character*9 OName (nr__) ! Other name integer*4 Calib (nr__) ! Calibrator HD character*5 BaseL (nr__) ! Baseline integer*4 Lgth (nr__) ! (m) Length of baseline character*10 ObsDate (nr__) ! ("YYYY/MM/DD") Date of observation (UT) integer*4 Nobs (nr__) ! Number of observations c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Exoplanet host stars' calibrated visibilities integer*4 nr__1 parameter (nr__1=268) ! Number of records character*44 ar__1 ! Full-size record integer*4 HD_1 (nr__1) ! Target name real*8 MJD (nr__1) ! (d) Modified Julian Date real*4 B (nr__1) ! (m) Baseline (length) real*4 PA (nr__1) ! (deg) ? Position angle; East of North real*4 Vc (nr__1) ! Calibrated visibility real*4 e_Vc (nr__1) ! The 1{sigma} error in Vc c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Exoplanet host star angular diameter measurements integer*4 nr__2 parameter (nr__2=24) ! Number of records character*104 ar__2 ! Full-size record integer*4 HD_2 (nr__2) ! Target name character*6 SpType (nr__2) ! MK spectral type character*1 r_SpType (nr__2) ! Spectral type reference ; see refs.dat file integer*4 Teff (nr__2) ! (K) Effective temperature character*1 r_Teff (nr__2) ! [a-d] Teff and logg reference (1) real*4 logg (nr__2) ! ([cm/s2]) Logarithm of gravity real*4 muL (nr__2) ! Linear limb-darkening coefficient * {mu}_{lambda}_ from Claret et al. * (1995A&AS..114..247C) real*4 plx (nr__2) ! (mas) Hipparcos parallax from van Leeuwen (2007, * Cat. I/311) real*4 e_plx (nr__2) ! (mas) plx uncertainty real*4 the_SED (nr__2) ! (mas) SED diameter estimated from SED fit real*4 e_the_SED (nr__2) ! (mas) {theta}_SED_ uncertainty real*4 the_UD (nr__2) ! (mas) Apparent UD (Uniform Disk) angular diameter * of the star real*4 e_the_UD (nr__2) ! (mas) {theta}_UD_ uncertainty real*4 the_LD (nr__2) ! (mas) LD (Limb-Darkened) diameter real*4 e_the_LD (nr__2) ! (mas) {theta}_LD_ uncertainty integer*4 sigLD (nr__2) ! (%) The limb-darkened relationship error real*4 Rlin (nr__2) ! (solRad) Linear radius for the star real*4 e_Rlin (nr__2) ! (solRad) Rlin uncertainty integer*4 sigR (nr__2) ! (%) Radius measurement error character*1 u_Rst (nr__2) ! [~] Approximative flag on Rst real*4 Rst (nr__2) ! (solRad) Radius expected from the spectral type *Note (1): All T_eff_ and logg are from Santos et al. (2004, Cat. J/A+A/415/1153) * unless flag; see refs.dat file c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References for table 5 integer*4 nr__3 parameter (nr__3=23) ! Number of records character*46 ar__3 ! Full-size record character*1 Ref (nr__3) ! Reference flag character*19 BibCode (nr__3) ! Bibcode character*24 Aut (nr__3) ! Author's name C============================================================================= C Loading file 'table1.dat' ! Observing log C Format for file interpretation 1 format(I6,1X,A9,1X,I6,1X,A5,1X,I3,1X,A10,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,53 read(1,'(A47)')ar__ read(ar__,1) + HD(i__),OName(i__),Calib(i__),BaseL(i__),Lgth(i__), + ObsDate(i__),Nobs(i__) c ..............Just test output........... write(6,1) + HD(i__),OName(i__),Calib(i__),BaseL(i__),Lgth(i__), + ObsDate(i__),Nobs(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Exoplanet host stars' calibrated visibilities C Format for file interpretation 2 format(3X,I6,1X,F9.3,1X,F6.2,1X,F5.1,1X,F5.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,268 read(1,'(A44)')ar__1 read(ar__1,2) + HD_1(i__),MJD(i__),B(i__),PA(i__),Vc(i__),e_Vc(i__) if(ar__1(28:32) .EQ. '') PA(i__) = rNULL__ c ..............Just test output........... write(6,2) + HD_1(i__),MJD(i__),B(i__),PA(i__),Vc(i__),e_Vc(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Exoplanet host star angular diameter measurements C Format for file interpretation 3 format( + I6,1X,A6,A1,1X,I4,A1,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.3, + 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,I2,1X,F6.3,1X,F6.3, + 1X,I2,1X,A1,F5.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,24 read(1,'(A104)')ar__2 read(ar__2,3) + HD_2(i__),SpType(i__),r_SpType(i__),Teff(i__),r_Teff(i__), + logg(i__),muL(i__),plx(i__),e_plx(i__),the_SED(i__), + e_the_SED(i__),the_UD(i__),e_the_UD(i__),the_LD(i__), + e_the_LD(i__),sigLD(i__),Rlin(i__),e_Rlin(i__),sigR(i__), + u_Rst(i__),Rst(i__) c ..............Just test output........... write(6,3) + HD_2(i__),SpType(i__),r_SpType(i__),Teff(i__),r_Teff(i__), + logg(i__),muL(i__),plx(i__),e_plx(i__),the_SED(i__), + e_the_SED(i__),the_UD(i__),e_the_UD(i__),the_LD(i__), + e_the_LD(i__),sigLD(i__),Rlin(i__),e_Rlin(i__),sigR(i__), + u_Rst(i__),Rst(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References for table 5 C Format for file interpretation 4 format(A1,1X,A19,1X,A24) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,23 read(1,'(A46)')ar__3 read(ar__3,4)Ref(i__),BibCode(i__),Aut(i__) c ..............Just test output........... write(6,4)Ref(i__),BibCode(i__),Aut(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end