Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/124/291 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-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/A+AS/124/291 Photometry of V700 Cyg and AW Vir (Niarchos+ 1997)
*================================================================================
*V700 Cygni and AW Virginis: Two W-type W UMa systems with spotted components
* Niarchos P.G., Hoffmann M., Duerbeck H.W.
* <Astron. Astrophys. Suppl. Ser. 124, 291 (1997)>
* =1997A&AS..124..291N (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! Times of minima of V700 Cyg
integer*4 nr__
parameter (nr__=38) ! Number of records
character*48 ar__ ! Full-size record
real*8 HJD ! (d) time of minimum light
real*8 Cycles ! Cycles
real*8 O_C ! (d) Observed-Computed value
character*17 Ref ! References (1)
character*1 Note ! [*] *: omitted in least square solution
*Note (1): AH = Agerer & Huebscher (1995IBVS.4222....1A)
* BB + number = various issues of the BBSAG
* BH = Busch (1964, Hartha Beobachtungs-Zirkular, 27-28)
* GL = Lapasset & Gomez (1995IBVS.4144....1L)
* J = Jensch (1936AN....256..279J)
* K = Koch (1961AJ.....66...35K)
* MH = Hoffmann (1983IBVS.2344....1H)
* R = Romano (1969MmSAI..40..375R)
* W1 = Whitney (1952AJ.....56..206W)
* W2 = Whitney (1955AJ.....60..453W)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Times of minima of AW Vir
integer*4 nr__1
parameter (nr__1=50) ! Number of records
character*48 ar__1 ! Full-size record
real*8 HJD_1 ! (d) time of minimum light
real*8 Cycles_1 ! Cycles
real*8 O_C_1 ! (d) Observed-Computed value
character*17 Ref_1 ! References (1)
character*1 Note_1 ! [*] *: omitted in least square solution
*Note (1): AH = Agerer & Huebscher (1995IBVS.4222....1A)
* BB + number = various issues of the BBSAG
* BH = Busch (1964, Hartha Beobachtungs-Zirkular, 27-28)
* GL = Lapasset & Gomez (1995IBVS.4144....1L)
* J = Jensch (1936AN....256..279J)
* K = Koch (1961AJ.....66...35K)
* MH = Hoffmann (1983IBVS.2344....1H)
* R = Romano (1969MmSAI..40..375R)
* W1 = Whitney (1952AJ.....56..206W)
* W2 = Whitney (1955AJ.....60..453W)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! Normal points for V700 Cyg in intensity units
integer*4 nr__2
parameter (nr__2=125) ! Number of records
character*19 ar__2 ! Full-size record
character*1 Filt ! [BV] Filter
real*4 Phase ! [0/1[ Phase
real*4 Int ! Intensity in Filt passband (1)
integer*4 n_Int ! Number of single observations (2)
*Note (1): The data are normalized to intensity = 1.0 at phases 0.25 and 0.75.
*Note (2): The single observations were published by M. Hoffmann, Veroeff.
* Astr. Inst. Bonn No. 96 (1984)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Normal points for AW Vir in intensity units
integer*4 nr__3
parameter (nr__3=127) ! Number of records
character*19 ar__3 ! Full-size record
character*1 Filt_1 ! [BV] Filter
real*4 Phase_1 ! [0/1[ Phase
real*4 Int_1 ! Intensity in Filt passband (1)
integer*4 n_Int_1 ! Number of single observations (2)
*Note (1): The data are normalized to intensity = 1.0 at phases 0.25 and 0.75.
*Note (2): The single observations were published by M. Hoffmann, Veroeff.
* Astr. Inst. Bonn No. 96 (1984)
C=============================================================================
C Loading file 'table1' ! Times of minima of V700 Cyg
C Format for file interpretation
1 format(F12.4,1X,F8.1,1X,F7.4,1X,A17,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,38
read(1,'(A48)')ar__
read(ar__,1)HJD,Cycles,O_C,Ref,Note
c ..............Just test output...........
write(6,1)HJD,Cycles,O_C,Ref,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! Times of minima of AW Vir
C Format for file interpretation
2 format(F12.4,1X,F8.1,1X,F7.4,1X,A17,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,50
read(1,'(A48)')ar__1
read(ar__1,2)HJD_1,Cycles_1,O_C_1,Ref_1,Note_1
c ..............Just test output...........
write(6,2)HJD_1,Cycles_1,O_C_1,Ref_1,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! Normal points for V700 Cyg in intensity units
C Format for file interpretation
3 format(A1,1X,F6.4,1X,F6.4,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3')
write(6,*) '....Loading file: table3'
do i__=1,125
read(1,'(A19)')ar__2
read(ar__2,3)Filt,Phase,Int,n_Int
c ..............Just test output...........
write(6,3)Filt,Phase,Int,n_Int
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Normal points for AW Vir in intensity units
C Format for file interpretation
4 format(A1,1X,F6.4,1X,F6.4,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table4')
write(6,*) '....Loading file: table4'
do i__=1,127
read(1,'(A19)')ar__3
read(ar__3,4)Filt_1,Phase_1,Int_1,n_Int_1
c ..............Just test output...........
write(6,4)Filt_1,Phase_1,Int_1,n_Int_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end