Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/644/A127 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 2026-Jun-13
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/644/A127 LP714-47 (TOI 442) radial velocity curve (Dreizler+, 2020)
*================================================================================
*The CARMENES search for exoplanets around M dwarfs:
*LP714-47b (TOI442.01): Populating the Neptune desert.
* Dreizler S., Crossfield I.J.M., Kossakowski D., Plavchan P., Jeffers S.V.,
* Kemmer J., Luque R., Espinoza N., Palle E., Stassun K., Matthews E.,
* Cale B., Caballero J.A., Schlecker M., Lillo-Box J., Zechmeister M.,
* Lalitha S., Reiners A., Soubkiou A., Bitsch B., Zapatero Osorio M.R.,
* Chaturvedi P., Hatzes A.P., Ricker G., Vanderspek R., Latham D.W.,
* Seager S., Winn J., Jenkins J.M., Aceituno J., Amado P.J., Barkaoui K.,
* Barbieri M., Batalha N.M., Bauer F.F., Benneke B., Benkhaldoun Z.,
* Beichman C., Berberian J., Burt J., Butler R.P., Caldwell D.A., Chintada A.,
* Chontos A., Christiansen J.L., Ciardi D.R., Cifuentes C., Collins K.A.,
* Collins K.I., Combs D., Cortes-Contreras M., Crane J.D., Daylan T.,
* Dragomir D., Esparza-Borges E., Evans P., Feng F., Flowers E.E., Fukui A.,
* Fulton B., Furlan E., Gaidos E., Geneser C., Giacalone S., Gillon M.,
* Gonzales E., Gorjian V., Hellier C., Hidalgo D., Howard A.W., Howell S.,
* Huber D., Isaacson H., Jehin E., Jensen E.L.N., Kaminski A., Kane S.R.,
* Kawauchi K., Kielkopf J.F., Klahr H., Kosiarek M.R., Kreidberg L.,
* Kuerster M., Lafarga M., Livingston J., Louie D., Mann A.,
* Madrigal-Aguado A., Matson R.A., Mocnik T., Morales J.C., Muirhead P.S.,
* Murgas F., Nandakumar S., Narita N., Nowak G., Oshagh M., Parviainen H.,
* Passegger V.M., Pollacco D., Pozuelos F.J., Quirrenbach A., Reefe M.,
* Ribas I., Robertson P., Rodriguez-Lopez C., Rose M.E., Roy A.,
* Schweitzer A., Schlieder J., Shectman S., Tanner A., Senavci H.V., Teske J.,
* Twicken J.D., Villasenor J., Wang S.X., Weiss L.M., Wittrock J., Yilmaz M.,
* Zohrabi F.
* <Astron. Astrophys. 644, A127 (2020)>
* =2020A&A...644A.127D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rv.dat' ! Radial velocities of LP714-47
integer*4 nr__
parameter (nr__=114) ! Number of records
character*42 ar__ ! Full-size record
real*8 BJD ! (d) Barycentric Julian date of observation
real*8 RV ! (m/s) Radial velocity
real*8 e_RV ! (m/s) Radial velocity uncertainty
character*14 Inst ! Instrument
C=============================================================================
C Loading file 'rv.dat' ! Radial velocities of LP714-47
C Format for file interpretation
1 format(F14.6,F7.2,F7.2,A14)
C Effective file loading
open(unit=1,status='old',file=
+'rv.dat')
write(6,*) '....Loading file: rv.dat'
do i__=1,114
read(1,'(A42)')ar__
read(ar__,1)BJD,RV,e_RV,Inst
c ..............Just test output...........
write(6,1)BJD,RV,e_RV,Inst
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end