Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/670/A84 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 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 (nr__) ! (d) Barycentric Julian date
real*8 CRX (nr__) ! Chromatic index (in m/s/Np unit)
real*8 e_CRX (nr__) ! Chromatic index uncertainty
* (in m/s/Np unit)
real*8 dLW (nr__) ! (1000m2/s2) Differential line width
real*8 e_dLW (nr__) ! (1000m2/s2) Differential line width uncertainty
real*8 CAIRT1 (nr__) ! CaII-IRT1 index (8498.02) (-15,15)km/s
real*8 e_CAIRT1 (nr__) ! CaII-IRT1 index uncertainty
real*8 CAIRT2 (nr__) ! CaII-IRT2 index (8542.09) (-15,15)km/s
real*8 e_CAIRT2 (nr__) ! CaII-IRT2 index uncertainty
real*8 CAIRT3 (nr__) ! CaII-IRT3 index (8662.14) (-15,15)km/s
real*8 e_CAIRT3 (nr__) ! CaII-IRT3 index uncertainty
real*8 Halpha (nr__) ! H{alpha} index
real*8 e_Halpha (nr__) ! H{alpha} index uncertainty
real*8 TiO7050 (nr__) ! Photospheric TiO absorption band index
* at 7050{AA}
real*8 e_TiO7050 (nr__) ! Photospheric TiO absorption band index
* at 7050{AA} uncertainty
real*8 TiO8430 (nr__) ! Photospheric TiO absorption band index
* at 8430{AA} index
real*8 e_TiO8430 (nr__) ! Photospheric TiO absorption band index
* at 8430{AA} index uncertainty
real*8 TiO8860 (nr__) ! Photospheric TiO absorption band index
* at 8860{AA} index
real*8 e_TiO8860 (nr__) ! Photospheric TiO absorption band index
* at 8860{AA} index uncertainty
real*8 BIS (nr__) ! (m/s) CCF bisector velocity span
real*8 e_BIS (nr__) ! (m/s) CCF Bisector velocity span uncertainty
real*8 CTR (nr__) ! (%) CCF contrast
real*8 e_CTR (nr__) ! (%) CCF contrast uncertainty
real*8 FWHM (nr__) ! (km/s) CCF full width at half maximum
real*8 e_FWHM (nr__) ! (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 (nr__1) ! (d) Barycentric Julian date
real*8 RV (nr__1) ! (m/s) Radial velocity
real*8 e_RV (nr__1) ! (m/s) Radial velocity uncertainty
character*8 Inst (nr__1) ! 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 (nr__2) ! Instrument
character*10 Date1 (nr__2) ! Beginning date of observation
character*10 Date2 (nr__2) ! Ending date of observation
character*9 Filter (nr__2) ! Filter
character*33 FileName (nr__2) ! 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 (nr__3) ! (d) Barycentric Julian date
real*8 Flux (nr__3) ! Normalized flux
real*8 e_Flux (nr__3) ! Normalized flux uncertainty
character*12 Inst_2 (nr__3) ! 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(i__),CRX(i__),e_CRX(i__),dLW(i__),e_dLW(i__),CAIRT1(i__),
+ e_CAIRT1(i__),CAIRT2(i__),e_CAIRT2(i__),CAIRT3(i__),
+ e_CAIRT3(i__),Halpha(i__),e_Halpha(i__),TiO7050(i__),
+ e_TiO7050(i__),TiO8430(i__),e_TiO8430(i__),TiO8860(i__),
+ e_TiO8860(i__),BIS(i__),e_BIS(i__),CTR(i__),e_CTR(i__),
+ FWHM(i__),e_FWHM(i__)
c ..............Just test output...........
write(6,1)
+ BJD(i__),CRX(i__),e_CRX(i__),dLW(i__),e_dLW(i__),CAIRT1(i__),
+ e_CAIRT1(i__),CAIRT2(i__),e_CAIRT2(i__),CAIRT3(i__),
+ e_CAIRT3(i__),Halpha(i__),e_Halpha(i__),TiO7050(i__),
+ e_TiO7050(i__),TiO8430(i__),e_TiO8430(i__),TiO8860(i__),
+ e_TiO8860(i__),BIS(i__),e_BIS(i__),CTR(i__),e_CTR(i__),
+ FWHM(i__),e_FWHM(i__)
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(i__),RV(i__),e_RV(i__),Inst(i__)
c ..............Just test output...........
write(6,2)BJD_1(i__),RV(i__),e_RV(i__),Inst(i__)
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(i__),Date1(i__),Date2(i__),Filter(i__),FileName(i__)
c ..............Just test output...........
write(6,3)
+ Inst_1(i__),Date1(i__),Date2(i__),Filter(i__),FileName(i__)
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(i__),Flux(i__),e_Flux(i__),Inst_2(i__)
c ..............Just test output...........
write(6,4)BJD_2(i__),Flux(i__),e_Flux(i__),Inst_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end