Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/281/811 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-Aug-18
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/281/811 Long-term variations in V471 Tau (Ibanoglu+ 1994)
*================================================================================
*Long-term luminosity variations and period changes in V471 Tau
* IBANOGLU C., KESKIN V., AKAN M.C., EVREN S., TUNCA Z.
* <Astron. Astrophys. 281, 811 (1994)>
* =1994A&A...281..811I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! The updated mean brightness of V471 Tau
in B and V bands and B-V colours.
integer*4 nr__
parameter (nr__=37) ! Number of records
character*79 ar__ ! Full-size record
real*8 Year ! (yr)
real*4 B ! (mag) B magnitude
character*1 r_B ! [ *] When *, the value is computed.
real*4 e_B ! (mag) []? rms uncertainty on B magnitude
real*4 V ! (mag) V magnitude
character*1 r_V ! [ *] When *, the value is computed.
real*4 e_V ! (mag) []? rms uncertainty on V magnitude
real*4 B_V ! (mag) B-V colour
character*1 r_B_V ! [ *] When *, the value is computed.
real*4 e_B_V ! (mag) []? rms uncertainty on B-V colour
integer*4 E ! Integer eclipse cycle number
real*4 DeltaB ! (mag) Difference with B mean brightness
real*4 DeltaV ! (mag) Difference with V mean brightness
integer*4 Ref ! References (1)
*Note (1):
* 1 Nelson & Young(1970)
* 2 Young & Nelson(1972)
* 3 Cester & Pucillo(1976)
* 4 Ibanoglu(1978)
* 5 Tumer et al. (1982)
* 6 Oswalt(1979)
* 7 Tunca et al.(1979)
* 8 Skillman & Patterson(1988)
* 9 Evren et al.(1986)
* 10 Ibanoglu(1989)
* 11 This study
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! The updated mid-eclipse timings and residuals
using the ephemeris given in the text.
integer*4 nr__1
parameter (nr__1=157) ! Number of records
character*46 ar__1 ! Full-size record
real*8 Met ! (d) Mid-eclipse time - 2400000
integer*4 E_1 ! Integer eclipse cycle number
real*8 O_C_I ! (s) Observed - calculated value
real*8 O_C_II ! (s) []? Observed - calculated value
character*5 Ref_1 ! References (1)
*Note (1):
* 1 Young & Lanning (1975)
* 2 Cester & Pucillo (1976)
* 3 Anderson & Seeds (1972)
* 4 Warner et al. (1971)
* 5 Lohsen (1974)
* 6 Ibanoglu (1978)
* 7 Oliver & Rucinski (1978)
* 8 Beavers et al. (1979)
* 9 Tunca et al. (1979)
* 10 Tumer et al. (1982)
* 11 Young et al. (1983)
* 12 Ibanoglu & Evren (1984)
* 13 Ibanoglu (1989)
* 14 Skillman & Patterson (1988)
* 15 Eitter (1987)
* 16 This study
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Masses of the third-body depending on the
orbital inclination.
integer*4 nr__2
parameter (nr__2=10) ! Number of records
character*20 ar__2 ! Full-size record
integer*4 I ! (deg) Inclination
real*4 M ! (solMass) Mass
C=============================================================================
C Loading file 'table1' ! The updated mean brightness of V471 Tau
* in B and V bands and B-V colours.
C Format for file interpretation
1 format(
+ F7.2,3X,F6.3,A1,F5.3,2X,F5.3,A1,F5.3,2X,F5.3,A1,F5.3,2X,I5,3X,
+ F6.3,3X,F6.3,4X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,37
read(1,'(A79)')ar__
read(ar__,1)
+ Year,B,r_B,e_B,V,r_V,e_V,B_V,r_B_V,e_B_V,E,DeltaB,DeltaV,Ref
if(ar__(18:22) .EQ. '') e_B = rNULL__
if(ar__(31:35) .EQ. '') e_V = rNULL__
if(ar__(44:48) .EQ. '') e_B_V = rNULL__
c ..............Just test output...........
write(6,1)
+ Year,B,r_B,e_B,V,r_V,e_V,B_V,r_B_V,e_B_V,E,DeltaB,DeltaV,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! The updated mid-eclipse timings and residuals
* using the ephemeris given in the text.
C Format for file interpretation
2 format(F11.5,2X,I5,2X,F8.5,2X,F8.5,3X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,157
read(1,'(A46)')ar__1
read(ar__1,2)Met,E_1,O_C_I,O_C_II,Ref_1
if(ar__1(31:38) .EQ. '') O_C_II = rNULL__
c ..............Just test output...........
write(6,2)Met,E_1,O_C_I,O_C_II,Ref_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Masses of the third-body depending on the
* orbital inclination.
C Format for file interpretation
3 format(5X,I2,8X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4')
write(6,*) '....Loading file: table4'
do i__=1,10
read(1,'(A20)')ar__2
read(ar__2,3)I,M
c ..............Just test output...........
write(6,3)I,M
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end