Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/ARep/68.886 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-Feb-12
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/other/ARep/68.886 V839 Cep UBVRIRcIc light curves (Volkov+, 2024)
*================================================================================
*V839 Cep - A new quadruple doubly eclipsing system.
* Volkov I.M., Volkova A.S., Bagaev L.A.
* <Astron. Reports, 68, 886-895 (2024)>
* =2024ARep...68..886V (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'uphot.dat' ! V839 Cep U light curve
integer*4 nr__
parameter (nr__=530) ! Number of records
character*25 ar__ ! Full-size record
real*8 HJD (nr__) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag (nr__) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band (nr__) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'bphot.dat' ! V839 Cep B light curve
integer*4 nr__1
parameter (nr__1=2480) ! Number of records
character*25 ar__1 ! Full-size record
real*8 HJD_1 (nr__1) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_1 (nr__1) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_1 (nr__1) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'vphot.dat' ! V839 Cep V light curve
integer*4 nr__2
parameter (nr__2=3106) ! Number of records
character*25 ar__2 ! Full-size record
real*8 HJD_2 (nr__2) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_2 (nr__2) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_2 (nr__2) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rcphot.dat' ! V839 Cep Rc light curve
integer*4 nr__3
parameter (nr__3=1907) ! Number of records
character*25 ar__3 ! Full-size record
real*8 HJD_3 (nr__3) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_3 (nr__3) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_3 (nr__3) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rphot.dat' ! V839 Cep R light curve
integer*4 nr__4
parameter (nr__4=699) ! Number of records
character*25 ar__4 ! Full-size record
real*8 HJD_4 (nr__4) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_4 (nr__4) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_4 (nr__4) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'icphot.dat' ! V839 Cep Ic light curve
integer*4 nr__5
parameter (nr__5=1897) ! Number of records
character*25 ar__5 ! Full-size record
real*8 HJD_5 (nr__5) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_5 (nr__5) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_5 (nr__5) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'iphot.dat' ! V839 Cep I light curve
integer*4 nr__6
parameter (nr__6=659) ! Number of records
character*25 ar__6 ! Full-size record
real*8 HJD_6 (nr__6) ! (d) Heliocentric Julian day for the middle of
* the exposition
real*8 Dmag_6 (nr__6) ! (mag) Difference of magnitudes between the
* observation and mean plateau brightness (1)
character*2 Band_6 (nr__6) ! Observed band
*Note (1): The plateau levels correspond to the magnitudes of the star which
* are presented in Table 2 in the article and are given below:
* U : 10.072 +/- 0.015
* B : 10.112 +/- 0.004
* V : 9.639 +/- 0.002
* Rc : 9.353 +/- 0.020
* R : 9.211 +/- 0.007
* Ic : 9.035 +/- 0.024
* I : 8.875 +/- 0.011
* U-B : -0.040 +/- 0.014
* B-V : 0.473 +/- 0.004
* V-Rc : 0.286 +/- 0.020
* V-R : 0.428 +/- 0.007
* Rc-Ic : 0.318 +/- 0.020
* R-I : 0.336 +/- 0.008
C=============================================================================
C Loading file 'uphot.dat' ! V839 Cep U light curve
C Format for file interpretation
1 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'uphot.dat')
write(6,*) '....Loading file: uphot.dat'
do i__=1,530
read(1,'(A25)')ar__
read(ar__,1)HJD(i__),Dmag(i__),Band(i__)
c ..............Just test output...........
write(6,1)HJD(i__),Dmag(i__),Band(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'bphot.dat' ! V839 Cep B light curve
C Format for file interpretation
2 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'bphot.dat')
write(6,*) '....Loading file: bphot.dat'
do i__=1,2480
read(1,'(A25)')ar__1
read(ar__1,2)HJD_1(i__),Dmag_1(i__),Band_1(i__)
c ..............Just test output...........
write(6,2)HJD_1(i__),Dmag_1(i__),Band_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'vphot.dat' ! V839 Cep V light curve
C Format for file interpretation
3 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'vphot.dat')
write(6,*) '....Loading file: vphot.dat'
do i__=1,3106
read(1,'(A25)')ar__2
read(ar__2,3)HJD_2(i__),Dmag_2(i__),Band_2(i__)
c ..............Just test output...........
write(6,3)HJD_2(i__),Dmag_2(i__),Band_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rcphot.dat' ! V839 Cep Rc light curve
C Format for file interpretation
4 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'rcphot.dat')
write(6,*) '....Loading file: rcphot.dat'
do i__=1,1907
read(1,'(A25)')ar__3
read(ar__3,4)HJD_3(i__),Dmag_3(i__),Band_3(i__)
c ..............Just test output...........
write(6,4)HJD_3(i__),Dmag_3(i__),Band_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rphot.dat' ! V839 Cep R light curve
C Format for file interpretation
5 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'rphot.dat')
write(6,*) '....Loading file: rphot.dat'
do i__=1,699
read(1,'(A25)')ar__4
read(ar__4,5)HJD_4(i__),Dmag_4(i__),Band_4(i__)
c ..............Just test output...........
write(6,5)HJD_4(i__),Dmag_4(i__),Band_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'icphot.dat' ! V839 Cep Ic light curve
C Format for file interpretation
6 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'icphot.dat')
write(6,*) '....Loading file: icphot.dat'
do i__=1,1897
read(1,'(A25)')ar__5
read(ar__5,6)HJD_5(i__),Dmag_5(i__),Band_5(i__)
c ..............Just test output...........
write(6,6)HJD_5(i__),Dmag_5(i__),Band_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'iphot.dat' ! V839 Cep I light curve
C Format for file interpretation
7 format(F13.5,2X,F7.4,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'iphot.dat')
write(6,*) '....Loading file: iphot.dat'
do i__=1,659
read(1,'(A25)')ar__6
read(ar__6,7)HJD_6(i__),Dmag_6(i__),Band_6(i__)
c ..............Just test output...........
write(6,7)HJD_6(i__),Dmag_6(i__),Band_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end