Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/670/A84 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-Oct-09
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/670/A84 Wolf 1069 RV and stellar activity indices (Kossakowski+, 2023)
*================================================================================
*The CARMENES search for exoplanets around M dwarfs. Wolf 1069 b:
*Earth-mass planet in the habitable zone of a nearby, very low-mass star.
* Kossakowski D., Kuerster M., Trifonov T., Henning T., Kemmer J.,
* Caballero J.A., Burn R., Sabotta S., Crouse J.S., Fauchez T.J., Nagel E.,
* Kaminski A., Herrero E., Rodriguez E., Gonzalez-Alvarez E., Quirrenbach A.,
* Amado P.J., Ribas I., Reiners A., Aceituno J., Bejar V.J.S., Baroch D.,
* Bastelberger S.T., Chaturvedi P., Cifuentes C., Dreizler S., Jeffers S.V.,
* Kopparapu R., Lafarga M., Lopez-Gonzalez M.J., Martin-Ruiz S., Montes D.,
* Morales J.C., Palle E., Pavlov A., Pedraz S., Perdelwitz V.,
* Perez-Torres M., Perger M., Reffert S., Rodriguez Lopez C., Schlecker M.,
* Schoefer P., Schweitzer A., Shan Y., Shields A., Stock S., Wolf E.,
* Zapatero Osorio M.R., Zechmeister M.
* <Astron. Astrophys. 670, A84 (2023)>
* =2023A&A...670A..84K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'carm-act.dat' ! CARMENES-VIS stellar activity indicators
of Wolf 1069
integer*4 nr__
parameter (nr__=262) ! Number of records
character*449 ar__ ! Full-size record
real*8 BJD ! (d) Barycentric Julian date
real*8 CRX ! Chromatic index (in m/s/Np unit)
real*8 e_CRX ! Chromatic index uncertainty
* (in m/s/Np unit)
real*8 dLW ! (1000m2/s2) Differential line width
real*8 e_dLW ! (1000m2/s2) Differential line width uncertainty
real*8 CAIRT1 ! CaII-IRT1 index (8498.02) (-15,15)km/s
real*8 e_CAIRT1 ! CaII-IRT1 index uncertainty
real*8 CAIRT2 ! CaII-IRT2 index (8542.09) (-15,15)km/s
real*8 e_CAIRT2 ! CaII-IRT2 index uncertainty
real*8 CAIRT3 ! CaII-IRT3 index (8662.14) (-15,15)km/s
real*8 e_CAIRT3 ! CaII-IRT3 index uncertainty
real*8 Halpha ! H{alpha} index
real*8 e_Halpha ! H{alpha} index uncertainty
real*8 TiO7050 ! Photospheric TiO absorption band index
* at 7050{AA}
real*8 e_TiO7050 ! Photospheric TiO absorption band index
* at 7050{AA} uncertainty
real*8 TiO8430 ! Photospheric TiO absorption band index
* at 8430{AA} index
real*8 e_TiO8430 ! Photospheric TiO absorption band index
* at 8430{AA} index uncertainty
real*8 TiO8860 ! Photospheric TiO absorption band index
* at 8860{AA} index
real*8 e_TiO8860 ! Photospheric TiO absorption band index
* at 8860{AA} index uncertainty
real*8 BIS ! (m/s) CCF bisector velocity span
real*8 e_BIS ! (m/s) CCF Bisector velocity span uncertainty
real*8 CTR ! (%) CCF contrast
real*8 e_CTR ! (%) CCF contrast uncertainty
real*8 FWHM ! (km/s) CCF full width at half maximum
real*8 e_FWHM ! (km/s) CCF full width at half maximum uncertainty
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'carm-rv.dat' ! CARMENES-VIS radial velocities of Wolf 1069
(Table D2)
integer*4 nr__1
parameter (nr__1=262) ! Number of records
character*56 ar__1 ! Full-size record
real*8 BJD_1 ! (d) Barycentric Julian date
real*8 RV ! (m/s) Radial velocity
real*8 e_RV ! (m/s) Radial velocity uncertainty
character*8 Inst ! Instrument
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'photlist.dat' ! List of light curve files
integer*4 nr__2
parameter (nr__2=11) ! Number of records
character*78 ar__2 ! Full-size record
character*12 Inst_1 ! Instrument
character*10 Date1 ! Beginning date of observation
character*10 Date2 ! Ending date of observation
character*9 Filter ! Filter
character*33 FileName ! Name of the file with photometry
* in subdirectory phot
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'phot/*' ! *Individual light curves
integer*4 nr__3
parameter (nr__3=11) ! Number of records
character*73 ar__3 ! Full-size record
real*8 BJD_2 ! (d) Barycentric Julian date
real*8 Flux ! Normalized flux
real*8 e_Flux ! Normalized flux uncertainty
character*12 Inst_2 ! Instrument
C=============================================================================
C Loading file 'carm-act.dat' ! CARMENES-VIS stellar activity indicators
* of Wolf 1069
C Format for file interpretation
1 format(
+ F13.5,1X,F22.17,1X,F19.15,1X,F22.18,1X,F19.16,1X,F18.16,1X,
+ F21.19,1X,F18.16,1X,F21.19,1X,F18.16,1X,F21.19,1X,F18.16,1X,
+ F21.19,1X,F10.8,1X,F21.19,1X,F10.8,1X,F21.19,1X,F10.8,1X,
+ F21.19,1X,F21.17,1X,F19.16,1X,F10.8,1X,F10.8,1X,F11.8,1X,F10.8)
C Effective file loading
open(unit=1,status='old',file=
+'carm-act.dat')
write(6,*) '....Loading file: carm-act.dat'
do i__=1,262
read(1,'(A449)')ar__
read(ar__,1)
+ BJD,CRX,e_CRX,dLW,e_dLW,CAIRT1,e_CAIRT1,CAIRT2,e_CAIRT2,
+ CAIRT3,e_CAIRT3,Halpha,e_Halpha,TiO7050,e_TiO7050,TiO8430,
+ e_TiO8430,TiO8860,e_TiO8860,BIS,e_BIS,CTR,e_CTR,FWHM,e_FWHM
c ..............Just test output...........
write(6,1)
+ BJD,CRX,e_CRX,dLW,e_dLW,CAIRT1,e_CAIRT1,CAIRT2,e_CAIRT2,
+ CAIRT3,e_CAIRT3,Halpha,e_Halpha,TiO7050,e_TiO7050,TiO8430,
+ e_TiO8430,TiO8860,e_TiO8860,BIS,e_BIS,CTR,e_CTR,FWHM,e_FWHM
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'carm-rv.dat' ! CARMENES-VIS radial velocities of Wolf 1069
* (Table D2)
C Format for file interpretation
2 format(F18.10,1X,F14.10,1X,F13.10,1X,A8)
C Effective file loading
open(unit=1,status='old',file=
+'carm-rv.dat')
write(6,*) '....Loading file: carm-rv.dat'
do i__=1,262
read(1,'(A56)')ar__1
read(ar__1,2)BJD_1,RV,e_RV,Inst
c ..............Just test output...........
write(6,2)BJD_1,RV,e_RV,Inst
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'photlist.dat' ! List of light curve files
C Format for file interpretation
3 format(A12,1X,A10,1X,A10,1X,A9,1X,A33)
C Effective file loading
open(unit=1,status='old',file=
+'photlist.dat')
write(6,*) '....Loading file: photlist.dat'
do i__=1,11
read(1,'(A78)')ar__2
read(ar__2,3)Inst_1,Date1,Date2,Filter,FileName
c ..............Just test output...........
write(6,3)Inst_1,Date1,Date2,Filter,FileName
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'phot/*' ! *Individual light curves
C Format for file interpretation
4 format(F18.10,1X,F18.16,1X,F22.20,1X,A12)
C Effective file loading
open(unit=1,status='old',file=
+'phot/*')
write(6,*) '....Loading file: phot/*'
do i__=1,11
read(1,'(A73)')ar__3
read(ar__3,4)BJD_2,Flux,e_Flux,Inst_2
c ..............Just test output...........
write(6,4)BJD_2,Flux,e_Flux,Inst_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end