Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/149/125 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/AJ/149/125 Iybvu photometry and CCD spectroscopy of RX Gem (Olson+, 2015)
*================================================================================
*RX Geminorum: photometric solutions, (nearly uniform) gainer rotation, donor
*radial velocity solution, Non-LTE accretion disk models of H{alpha} emission
*profiles, and secular light curve changes in the 20th century.
* Olson E.C., Etzel P.B.
* <Astron. J., 149, 125 (2015)>
* =2015AJ....149..125O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Iybvu observations of RX Geminorum
integer*4 nr__
parameter (nr__=5280) ! Number of records
character*20 ar__ ! Full-size record
character*1 Flt ! Filter used (I, y, b, v, u)
real*8 HJD ! (d) Heliocentric Julian Date (HJD-2400000)
real*4 Dmag ! (mag) [0.25/3.32] Differential magnitude in Filter
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Star 2 (donor) radial velocities
integer*4 nr__1
parameter (nr__1=37) ! Number of records
character*20 ar__1 ! Full-size record
real*8 MJD ! (d) Modified Julian Date (HJD-2451000)
real*8 Phase ! [0/1] Phase
integer*4 HRV ! (km/s) [-93/145] Heliocentric radial velocity
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! (O-C)s for RX Gem
integer*4 nr__2
parameter (nr__2=19) ! Number of records
character*82 ar__2 ! Full-size record
real*8 MJD_1 ! (d) Modified Julian Date of observation
* (HJD-2440000)
real*8 O_CL ! (d) [-0.1/0.1] Linear fit (O-C) residual (1)
real*8 O_CS ! (d) [-0.03/0.03] Sine fit (O-C) residual
integer*4 Cycle ! [0/2812] Cycle number
character*50 Ref ! Reference
*Note (1): Light-time variations triggered by a third body in circular orbit
* around the eclipsing pair could produce a sinusoidal (O-C)L versus time
* plot, relative to a mean linear fit. See Section 9 for details.
C=============================================================================
C Loading file 'table1.dat' ! Iybvu observations of RX Geminorum
C Format for file interpretation
1 format(A1,1X,F11.5,1X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,5280
read(1,'(A20)')ar__
read(ar__,1)Flt,HJD,Dmag
c ..............Just test output...........
write(6,1)Flt,HJD,Dmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Star 2 (donor) radial velocities
C Format for file interpretation
2 format(F8.5,1X,F7.5,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,37
read(1,'(A20)')ar__1
read(ar__1,2)MJD,Phase,HRV
c ..............Just test output...........
write(6,2)MJD,Phase,HRV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! (O-C)s for RX Gem
C Format for file interpretation
3 format(F10.4,1X,F7.4,1X,F7.4,1X,I4,1X,A50)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,19
read(1,'(A82)')ar__2
read(ar__2,3)MJD_1,O_CL,O_CS,Cycle,Ref
c ..............Just test output...........
write(6,3)MJD_1,O_CL,O_CS,Cycle,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end