Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/115/1894 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.5, on 2013-May-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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AJ/115/1894 M31A eclipsing binaries and Cepheids (Stanek+ 1998)
*================================================================================
*DIRECT distances to nearby galaxies using detached eclipsing binaries and
*Cepheids. II. Variables in the field M31A.
* Stanek K.Z., Kaluzny J., Krockenberger M., Sasselov D.D.,
* Tonry J.L., Mateo M.
* <Astron. J. 115, 1894 (1998)>
* =1998AJ....115.1894S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! DIRECT eclipsing binaries in M31A
integer*4 nr__
parameter (nr__=15) ! Number of records
character*74 ar__ ! Full-size record
character*5 M31A (nr__) ! Name (DIRECT VNNNN M31A in Simbad)
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000.0)
real*8 DEdeg (nr__) ! (deg) Declination (J20000)
real*4 Js (nr__) ! Variability index (Paper I, eq. (8))
real*4 Per (nr__) ! (d) Period
real*4 Vmax (nr__) ! (mag) Johnson V magnitude at maximum brightness
real*4 Imax (nr__) ! (mag) ? Maximum Cousins I magnitude
real*4 Rad1 (nr__) ! Radius of the primary component (1)
real*4 Rad2 (nr__) ! Radius of the secondary component (1)
integer*4 i (nr__) ! (deg) Inclination angle
real*4 e (nr__) ! Eccentricity
character*10 Com (nr__) ! Comment (2)
*Note (1): The radii are in units of the orbital separation.
*Note (2): V4636 D31A, with period P=8.181 days, is a good detached eclipsing
* binary (DEB) candidate, with significant eccentricity.
* V1555 D31A was found as V6913 D31B in Paper I, with identical period,
* V_max_=20.63 and I_max_=20.06.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! DIRECT Cepheids in M31A
integer*4 nr__1
parameter (nr__1=43) ! Number of records
character*61 ar__1 ! Full-size record
character*5 M31A_1 (nr__1) ! Name (DIRECT VNNNN M31A in Simbad)
real*8 RAdeg_1 (nr__1) ! (deg) Right ascension (J2000.0)
real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000.0)
real*4 Js_1 (nr__1) ! Variability index
real*4 Per_1 (nr__1) ! (d) Period
real*4 v_V_ (nr__1) ! (mag) Flux-weighted mean Johnson V magnitude
real*4 v_I_ (nr__1) ! (mag) ? Flux-weighted mean Cousins I magnitude
real*4 Amp (nr__1) ! (mag) Amplitude of the variation
character*10 Com_1 (nr__1) ! Comments (1)
*Note (1): Ma97: Magnier et al., Cat. <J/A+AS/126/401>, [MAP97] in Simbad
* Variable V2276 D31A (Ma97 108) was found as V7553 D31B in Paper I,
* with period P=9.482 days, <V>=20.93, and <I>=19.77.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! DIRECT other periodic variables in M31A
integer*4 nr__2
parameter (nr__2=6) ! Number of records
character*65 ar__2 ! Full-size record
character*5 M31A_2 (nr__2) ! Name (DIRECT VNNNN M31A in Simbad)
real*8 RAdeg_2 (nr__2) ! (deg) Right ascension (J2000.0)
real*8 DEdeg_2 (nr__2) ! (deg) Declination (J2000.0)
real*4 Js_2 (nr__2) ! Variability index
real*4 Per_2 (nr__2) ! (d) ? Period (only in table3.dat)
real*4 Vbar (nr__2) ! (mag) Error-weighted mean Johnson V magnitude
real*4 Ibar (nr__2) ! (mag) ? Error-weighted mean Cousins I magnitude
real*4 e_Vmag (nr__2) ! (mag) Standard deviation in the Johnson V band
real*4 e_Imag (nr__2) ! (mag) ? Standard deviation in the Cousins I band
character*10 Com_2 (nr__2) ! Comments (1)
*Note (1): Variables V3222, V541 and V11 of table4 where also found in Paper I.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! DIRECT miscellaneous variables in M31A
integer*4 nr__3
parameter (nr__3=11) ! Number of records
character*65 ar__3 ! Full-size record
character*5 M31A_3 (nr__3) ! Name (DIRECT VNNNN M31A in Simbad)
real*8 RAdeg_3 (nr__3) ! (deg) Right ascension (J2000.0)
real*8 DEdeg_3 (nr__3) ! (deg) Declination (J2000.0)
real*4 Js_3 (nr__3) ! Variability index
real*4 Per_3 (nr__3) ! (d) ? Period (only in table3.dat)
real*4 Vbar_1 (nr__3) ! (mag) Error-weighted mean Johnson V magnitude
real*4 Ibar_1 (nr__3) ! (mag) ? Error-weighted mean Cousins I magnitude
real*4 e_Vmag_1 (nr__3) ! (mag) Standard deviation in the Johnson V band
real*4 e_Imag_1 (nr__3) ! (mag) ? Standard deviation in the Cousins I band
character*10 Com_3 (nr__3) ! Comments (1)
*Note (1): Variables V3222, V541 and V11 of table4 where also found in Paper I.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Light curves of eclipsing binaries in M31A
integer*4 nr__4
parameter (nr__4=2019) ! Number of records
character*33 ar__4 ! Full-size record
character*5 M31A_4 (nr__4) ! Name (VNNNN)
character*1 Band (nr__4) ! [IV] Band
real*8 HJD (nr__4) ! (d) Heliocentric Julian date
real*4 Mag (nr__4) ! (mag) Magnitude in the band (I or V)
real*4 e_Mag (nr__4) ! (mag) rms uncertainty on Mag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Light curves of Cepheids in M31A
integer*4 nr__5
parameter (nr__5=6397) ! Number of records
character*33 ar__5 ! Full-size record
character*5 M31A_5 (nr__5) ! Name (VNNNN)
character*1 Band_1 (nr__5) ! [IV] Band
real*8 HJD_1 (nr__5) ! (d) Heliocentric Julian date
real*4 Mag_1 (nr__5) ! (mag) Magnitude in the band (I or V)
real*4 e_Mag_1 (nr__5) ! (mag) rms uncertainty on Mag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Light curves of other periodic variables in M31A
integer*4 nr__6
parameter (nr__6=840) ! Number of records
character*33 ar__6 ! Full-size record
character*5 M31A_6 (nr__6) ! Name (VNNNN)
character*1 Band_2 (nr__6) ! [IV] Band
real*8 HJD_2 (nr__6) ! (d) Heliocentric Julian date
real*4 Mag_2 (nr__6) ! (mag) Magnitude in the band (I or V)
real*4 e_Mag_2 (nr__6) ! (mag) rms uncertainty on Mag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Light curves of miscellaneous variables in M31A
integer*4 nr__7
parameter (nr__7=1624) ! Number of records
character*33 ar__7 ! Full-size record
character*5 M31A_7 (nr__7) ! Name (VNNNN)
character*1 Band_3 (nr__7) ! [IV] Band
real*8 HJD_3 (nr__7) ! (d) Heliocentric Julian date
real*4 Mag_3 (nr__7) ! (mag) Magnitude in the band (I or V)
real*4 e_Mag_3 (nr__7) ! (mag) rms uncertainty on Mag
C=============================================================================
C Loading file 'table1.dat' ! DIRECT eclipsing binaries in M31A
C Format for file interpretation
1 format(
+ A5,1X,F7.4,1X,F7.4,1X,F4.2,1X,F6.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,I2,1X,F4.2,1X,A10)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,15
read(1,'(A74)')ar__
read(ar__,1)
+ M31A(i__),RAdeg(i__),DEdeg(i__),Js(i__),Per(i__),Vmax(i__),
+ Imax(i__),Rad1(i__),Rad2(i__),i(i__),e(i__),Com(i__)
if(ar__(41:45) .EQ. '') Imax(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ M31A(i__),RAdeg(i__),DEdeg(i__),Js(i__),Per(i__),Vmax(i__),
+ Imax(i__),Rad1(i__),Rad2(i__),i(i__),e(i__),Com(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! DIRECT Cepheids in M31A
C Format for file interpretation
2 format(
+ A5,1X,F7.4,1X,F7.4,1X,F4.2,1X,F6.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ A10)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,43
read(1,'(A61)')ar__1
read(ar__1,2)
+ M31A_1(i__),RAdeg_1(i__),DEdeg_1(i__),Js_1(i__),Per_1(i__),
+ v_V_(i__),v_I_(i__),Amp(i__),Com_1(i__)
if(ar__1(41:45) .EQ. '') v_I_(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ M31A_1(i__),RAdeg_1(i__),DEdeg_1(i__),Js_1(i__),Per_1(i__),
+ v_V_(i__),v_I_(i__),Amp(i__),Com_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! DIRECT other periodic variables in M31A
C Format for file interpretation
3 format(
+ A5,1X,F7.4,1X,F7.4,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,A10)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,6
read(1,'(A65)')ar__2
read(ar__2,3)
+ M31A_2(i__),RAdeg_2(i__),DEdeg_2(i__),Js_2(i__),Per_2(i__),
+ Vbar(i__),Ibar(i__),e_Vmag(i__),e_Imag(i__),Com_2(i__)
if(ar__2(28:32) .EQ. '') Per_2(i__) = rNULL__
if(ar__2(40:44) .EQ. '') Ibar(i__) = rNULL__
if(ar__2(51:54) .EQ. '') e_Imag(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ M31A_2(i__),RAdeg_2(i__),DEdeg_2(i__),Js_2(i__),Per_2(i__),
+ Vbar(i__),Ibar(i__),e_Vmag(i__),e_Imag(i__),Com_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! DIRECT miscellaneous variables in M31A
C Format for file interpretation
4 format(
+ A5,1X,F7.4,1X,F7.4,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,A10)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,11
read(1,'(A65)')ar__3
read(ar__3,4)
+ M31A_3(i__),RAdeg_3(i__),DEdeg_3(i__),Js_3(i__),Per_3(i__),
+ Vbar_1(i__),Ibar_1(i__),e_Vmag_1(i__),e_Imag_1(i__),Com_3(i__)
if(ar__3(28:32) .EQ. '') Per_3(i__) = rNULL__
if(ar__3(40:44) .EQ. '') Ibar_1(i__) = rNULL__
if(ar__3(51:54) .EQ. '') e_Imag_1(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ M31A_3(i__),RAdeg_3(i__),DEdeg_3(i__),Js_3(i__),Per_3(i__),
+ Vbar_1(i__),Ibar_1(i__),e_Vmag_1(i__),e_Imag_1(i__),Com_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Light curves of eclipsing binaries in M31A
C Format for file interpretation
5 format(A5,1X,A1,1X,F12.4,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table5.dat', status='old')
write(6,*) '....Loading file: table5.dat'
do i__=1,2019
read(1,'(A33)')ar__4
read(ar__4,5)
+ M31A_4(i__),Band(i__),HJD(i__),Mag(i__),e_Mag(i__)
c ..............Just test output...........
write(6,5)
+ M31A_4(i__),Band(i__),HJD(i__),Mag(i__),e_Mag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Light curves of Cepheids in M31A
C Format for file interpretation
6 format(A5,1X,A1,1X,F12.4,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,6397
read(1,'(A33)')ar__5
read(ar__5,6)
+ M31A_5(i__),Band_1(i__),HJD_1(i__),Mag_1(i__),e_Mag_1(i__)
c ..............Just test output...........
write(6,6)
+ M31A_5(i__),Band_1(i__),HJD_1(i__),Mag_1(i__),e_Mag_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Light curves of other periodic variables in M31A
C Format for file interpretation
7 format(A5,1X,A1,1X,F12.4,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table7.dat', status='old')
write(6,*) '....Loading file: table7.dat'
do i__=1,840
read(1,'(A33)')ar__6
read(ar__6,7)
+ M31A_6(i__),Band_2(i__),HJD_2(i__),Mag_2(i__),e_Mag_2(i__)
c ..............Just test output...........
write(6,7)
+ M31A_6(i__),Band_2(i__),HJD_2(i__),Mag_2(i__),e_Mag_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Light curves of miscellaneous variables in M31A
C Format for file interpretation
8 format(A5,1X,A1,1X,F12.4,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table8.dat', status='old')
write(6,*) '....Loading file: table8.dat'
do i__=1,1624
read(1,'(A33)')ar__7
read(ar__7,8)
+ M31A_7(i__),Band_3(i__),HJD_3(i__),Mag_3(i__),e_Mag_3(i__)
c ..............Just test output...........
write(6,8)
+ M31A_7(i__),Band_3(i__),HJD_3(i__),Mag_3(i__),e_Mag_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end