Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/566/A111 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-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/566/A111 Brown dwarf atmosphere monitoring (BAM) (Wilson+, 2014)
*================================================================================
*The brown dwarf atmosphere monitoring (BAM) project.
*I. The largest near-IR monitoring survey of L and T dwarfs.
* Wilson P.A., Rajan A., Patience J.
* <Astron. Astrophys. 566, A111 (2014)>
* =2014A&A...566A.111W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Variables identified in this study
integer*4 nr__
parameter (nr__=17) ! Number of records
character*80 ar__ ! Full-size record
character*11 SName (nr__) ! Short name
character*1 q_Name (nr__) ! [AB] Variability confidence (1)
character*23 Name (nr__) ! Star full name
character*4 SpType (nr__) ! MK spectral type
real*4 Dur (nr__) ! (h) [1.9/3.4] Observation duration
integer*4 Nref (nr__) ! [3/8] Number of reference stars used
integer*4 dof (nr__) ! [4/12] Number of degrees of freedom
real*4 chi2 (nr__) ! [1.8/19] Reduced {chi}^2^ value
real*4 eta (nr__) ! [1/4] Reduced robust median statistic {eta} (1)
real*4 Q (nr__) ! (%) [0.3/1.6] Photometric uncertainty
real*4 p (nr__) ! (%) [0/10] p-value (1)
real*4 Amp (nr__) ! (%) [1/11] Amplitude of variation (2)
real*4 e_Amp (nr__) ! (%) [0.5/2] rms uncertainty on Amp
*Note (1): Variability donfidence based on p-value (probability of being
* constant) and the reduced median statistic {eta} (normalized deviations
* from the median values. The confidence class is defined as:
* A = Variables with p-value <=5% and {eta}>=1.0
* B = Variables with 5%< p-value <=10% and {eta}>=1.0
*Note (2): These peak-to-trough amplitudes are calculated as the difference
* between the minimum and maximum points in the light curve. In some cases,
* these might represent the lower limit of the true amplitude, especially for
* brown dwarfs which exhibit variability on longer time scales.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lcs.dat' ! Variable objects light curves
integer*4 nr__1
parameter (nr__1=113) ! Number of records
character*56 ar__1 ! Full-size record
character*11 SName_1 (nr__1) ! Short name of object, as in table3
real*8 Time (nr__1) ! (d) [0/0.14] Days since first Data point
real*8 Target (nr__1) ! [0.95/1.07] Target flux
real*8 e_Target (nr__1) ! [0.002/0.012] Target flux uncertainty
real*8 Master (nr__1) ! [0.96/1.05] Master reference flux
real*8 e_Master (nr__1) ! [0.0008/0.012] Master reference flux uncertainty
C=============================================================================
C Loading file 'table3.dat' ! Variables identified in this study
C Format for file interpretation
1 format(
+ A11,1X,A1,1X,A23,1X,A4,1X,F4.2,1X,I1,1X,I2,1X,F4.1,1X,F3.1,1X,
+ F4.2,1X,F4.2,1X,F4.1,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,17
read(1,'(A80)')ar__
read(ar__,1)
+ SName(i__),q_Name(i__),Name(i__),SpType(i__),Dur(i__),
+ Nref(i__),dof(i__),chi2(i__),eta(i__),Q(i__),p(i__),Amp(i__),
+ e_Amp(i__)
c ..............Just test output...........
write(6,1)
+ SName(i__),q_Name(i__),Name(i__),SpType(i__),Dur(i__),
+ Nref(i__),dof(i__),chi2(i__),eta(i__),Q(i__),p(i__),Amp(i__),
+ e_Amp(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'lcs.dat' ! Variable objects light curves
C Format for file interpretation
2 format(A11,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6)
C Effective file loading
open(unit=1,status='old',file=
+'lcs.dat')
write(6,*) '....Loading file: lcs.dat'
do i__=1,113
read(1,'(A56)')ar__1
read(ar__1,2)
+ SName_1(i__),Time(i__),Target(i__),e_Target(i__),Master(i__),
+ e_Master(i__)
c ..............Just test output...........
write(6,2)
+ SName_1(i__),Time(i__),Target(i__),e_Target(i__),Master(i__),
+ e_Master(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end