Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/299/621 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 2024-Apr-19
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/299/621 Is Sirius a triple star? (Benest+, 1995)
*================================================================================
*Is Sirius a triple star?
* BENEST D., DUVENT J.L.
* <Astron. Astrophys. 299, 621 (1995)>
* =1995A&A...299..621B (SIMBAD/NED Reference)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Mean square Fourier analysis
integer*4 nr__
parameter (nr__=22) ! Number of records
character*30 ar__ ! Full-size record
real*4 P (nr__) ! (yr) Period
real*8 Ax (nr__) ! Fourier transforms Ax of O-Cx
real*8 Ay (nr__) ! Fourier transforms Ay of O-Cy
real*8 Axy (nr__) ! Mean of Ax, Ay
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! Mean square sine function analysis (all data)
integer*4 nr__1
parameter (nr__1=91) ! Number of records
character*30 ar__1 ! Full-size record
real*4 P_1 (nr__1) ! (yr) Period
real*8 Ax_1 (nr__1) ! Perturbation amplitude Ax of O-Cx
real*8 Ay_1 (nr__1) ! Perturbation amplitude Ay of O-Cy
real*8 Axy_1 (nr__1) ! Mean of Ax, Ay
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'appen' ! Observations of Sirius (1862-1979)
integer*4 nr__2
parameter (nr__2=566) ! Number of records
character*31 ar__2 ! Full-size record
real*8 Date (nr__2) ! (yr) Observation date
real*4 Theta (nr__2) ! (deg) Position angle
character*2 u_Theta (nr__2) ! [?)] Uncertainty flag on Theta
real*4 Rho (nr__2) ! (arcsec) Separation angle
character*2 u_Rho (nr__2) ! [?)] Uncertainty flag on Rho
integer*4 o_Theta (nr__2) ! Number of observations
character*3 Name (nr__2) ! Observer name (1)
*Note (1): a = Aitken
* arc = Archer
* auw = Auwers
* b = van den Bos
* bar = Barnard
* bar = Barton
* baz = Baize
* bdg = Bond
* bea = Beal
* ber = Berman
* big = Bigourdan
* boo = Boothroyd
* brg = Boergen
* brh = Bruhns
* brn = Bruennow
* brs = Brown
* bru = Bruggencate
* btn = Burton
* btz = Bernewitz
* bu = Burnham
* chc = Chacornac
* com = Comstock
* cou = Couteau
* da = Dawes
* dic = Dick
* doo = Doolittle
* du = Duner
* eas = Eastman
* en = Engelmann
* fat = Fatou
* fbn = Brown
* fen = Fender
* fin = Finsen
* foe = Foester
* fox = Fox
* frs = Frisby
* fus = Fuss
* g = gcb=Giacobini
* gau = Gauchet
* gld = Gledhill
* gro = Greenwitch Observatory
* hei = Heintz
* hir = Hirst
* hl = Hall
* hld = Holden
* hln = Holden
* ho = Hough
* hu = Hussey
* hwe = Howe
* i = Innes
* j = Jonckheere
* jef = Jeffers
* jsp = Jessup
* jw = Wilson & Seabroke
* knp = Kniper
* knt = Knott
* kpz = Krumpholz
* l = Lewis
* ldb = Landbauer (?)
* lng = Lau Ling Fang
* loh = Lohse
* lsl = Lassel
* lv = Leavenworth
* ma = Mason
* mnl = McNeill
* mth = Marth
* nbg = Newburg
* neb = Neff & Burnham (?)
* nes = Newcomb
* o = Olsen
* ol = Olivier
* ole = Olevic
* pau = Pauscher
* pav = Pavel
* pec = Pechuele
* pei = Peirce
* pet = Peters
* phl = Phillips
* pop = Popovic
* pou = Pourteau
* prt = Pritchett
* r = Russell
* rab = Rabe
* roe = Roe
* rou = Rougier
* row = Rowg (doubtful observation)
* rut = Rutherford
* se = Secchi
* sea = Searle
* she = Sheberle
* ski = Skinner
* sm = Smith
* smw = Simonow
* stg = G.Struve
* stn = Stone
* stt = Otto Struve
* stv = Stevenson
* stv = Hermann Struve
* ttj = Tietjen
* tut = Tuttle
* upt = Upton
* vbs = van Biesbroeck
* vog = Vogel
* vou = Voute
* vys = Vyssotsky
* wak = Walker
* wal = Wallenquist
* wam = Wamer
* wat = Watson
* win = Winlock
* wnc = Winnecke
* wno = Washington Naval Observatory
* wor = Worley
* wz = Wirtz
* yng = Young.
C=============================================================================
C Loading file 'table2' ! Mean square Fourier analysis
C Format for file interpretation
1 format(F5.2,2X,F7.5,1X,F7.5,1X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,22
read(1,'(A30)')ar__
read(ar__,1)P(i__),Ax(i__),Ay(i__),Axy(i__)
c ..............Just test output...........
write(6,1)P(i__),Ax(i__),Ay(i__),Axy(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! Mean square sine function analysis (all data)
C Format for file interpretation
2 format(F5.2,2X,F7.5,1X,F7.5,1X,F7.5)
C Effective file loading
open(unit=1,status='old',file=
+'table3')
write(6,*) '....Loading file: table3'
do i__=1,91
read(1,'(A30)')ar__1
read(ar__1,2)P_1(i__),Ax_1(i__),Ay_1(i__),Axy_1(i__)
c ..............Just test output...........
write(6,2)P_1(i__),Ax_1(i__),Ay_1(i__),Axy_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'appen' ! Observations of Sirius (1862-1979)
C Format for file interpretation
3 format(1X,F7.2,1X,F5.1,A2,F5.2,A2,2X,I1,2X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'appen')
write(6,*) '....Loading file: appen'
do i__=1,566
read(1,'(A31)')ar__2
read(ar__2,3)
+ Date(i__),Theta(i__),u_Theta(i__),Rho(i__),u_Rho(i__),
+ o_Theta(i__),Name(i__)
c ..............Just test output...........
write(6,3)
+ Date(i__),Theta(i__),u_Theta(i__),Rho(i__),u_Rho(i__),
+ o_Theta(i__),Name(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end