Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/128/846 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-11
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/AJ/128/846 VRI observations of CE Leonis (Kang+, 2004)
*================================================================================
*The chromospherically active contact binary CE Leonis.
* Kang Y.W., Lee H.-W., Hong K.S., Kim C.-H., Guinan E.F.
* <Astron. J., 128, 846-857 (2004)>
* =2004AJ....128..846K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! VRI Observations of CE Leonis
integer*4 nr__
parameter (nr__=327) ! Number of records
character*20 ar__ ! Full-size record
character*1 Filter (nr__) ! [VRI] Filter
real*8 HJD (nr__) ! (d) Heliocentric Julian Date
real*4 Dmag (nr__) ! (mag) Observed magnitude difference in Filter
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Observed Times of Minimum of CE Leonis
integer*4 nr__1
parameter (nr__1=73) ! Number of records
character*54 ar__1 ! Full-size record
real*8 HJD_Min (nr__1) ! (d) Heliocentric Julian Date of minimum
real*8 Epoch (nr__1) ! Orbital epoch (1)
real*8 O_C1 (nr__1) ! (d) The (O-C)_1_ residual
real*8 O_C2 (nr__1) ! (d) The (O-C)_2_ residual
character*2 Type (nr__1) ! [I II] Type of maximum (1)
character*3 Method (nr__1) ! Method used (2)
character*4 Ref (nr__1) ! Reference (3)
*Note (1): For the Meinunger & Wenzel (1968VeSon...7..385M) minima times, the
* eclipse types were reversed: primary timings were changed to
* secondary timings and vice versa.
*Note (2): Method used as follows:
* P = Photographic patrol plate observations;
* VI = Visual estimates or observations;
* PE = Photoelectric observations;
* CCD = Charge-coupled device observations.
*Note (3): Reference as follows:
* BB1 = BBSAG Bull. 9;
* BB2 = BBSAG Bull. 14;
* BB3 = BBSAG Bull. 15;
* BB4 = BBSAG Bull. 21;
* BB5 = BBSAG Bull. 37;
* BB6 = BBSAG Bull. 92;
* BB7 = BBSAG Bull. 107;
* BB8 = BBSAG Bull. 112;
* BB9 = BBSAG Bull. 121;
* BB10 = BBSAG Bull. 125;
* BB11 = BBSAG Bull. 128;
* BR1 = Brno Contrib. 30;
* BR2 = Brno Contrib. 31;
* DI = Diethelm 2003IBVS.5438....1D;
* HO = Hoffmann 1983IBVS.2344....1H;
* KR = T. Krzyt, unpublished;
* MW = Meinunger & Wenzel 1968VeSon...7..385M;
* NE = Nelson 2001IBVS.5040....1N;
* SS = Samec & Su 1991IBVS.3650....1S;
* SZ = Safar & Zejda 2000IBVS.4888....1S;
* TH = This paper;
* YL = Yang & Liu 2002A&A...387..162Y.
C=============================================================================
C Loading file 'table2.dat' ! VRI Observations of CE Leonis
C Format for file interpretation
1 format(A1,1X,F12.4,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,327
read(1,'(A20)')ar__
read(ar__,1)Filter(i__),HJD(i__),Dmag(i__)
c ..............Just test output...........
write(6,1)Filter(i__),HJD(i__),Dmag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Observed Times of Minimum of CE Leonis
C Format for file interpretation
2 format(F12.4,1X,F8.1,1X,F9.6,1X,F9.6,1X,A2,1X,A3,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,73
read(1,'(A54)')ar__1
read(ar__1,2)
+ HJD_Min(i__),Epoch(i__),O_C1(i__),O_C2(i__),Type(i__),
+ Method(i__),Ref(i__)
c ..............Just test output...........
write(6,2)
+ HJD_Min(i__),Epoch(i__),O_C1(i__),O_C2(i__),Type(i__),
+ Method(i__),Ref(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end