Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/415/1366 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.5, on 2013-May-21
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/MNRAS/415/1366 OGLE RR Lyrae in SMC (Kapakos+, 2011)
*================================================================================
*RR Lyrae variables in the Small Magellanic Cloud. I. The central region.
* Kapakos E., Hatzidimitriou D., Soszynski I.
* <Mon. Not. R. Astron. Soc., 415, 1366-1380 (2011)>
* =2011MNRAS.415.1366K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Fourier decomposition parameters for 440 RRab
stars derived from merged data of the OGLE-II
and OGLE-III in the V band
integer*4 nr__
parameter (nr__=440) ! Number of records
character*210 ar__ ! Full-size record
character*18 OGLE ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*8 P0 ! (d) Fundamental period
real*4 e_P0 ! (d) rms uncertainty on P0
integer*4 N0 ! Original number of points
integer*4 N ! Number of points
real*4 sfit ! (mag) Standard deviation of the fit
real*4 A0 ! (mag) Fundamental Fourier coefficient
real*4 e_A0 ! (mag) rms uncertainty on A0
real*4 A1 ! (mag) Fist order Fourier coefficient
real*4 e_A1 ! (mag) rms uncertainty on A1
real*4 A2 ! (mag) Second order Fourier coefficient
real*4 e_A2 ! (mag) rms uncertainty on A2
real*4 A3 ! (mag) Third order Fourier coefficient
real*4 e_A3 ! (mag) rms uncertainty on A3
real*4 A4 ! (mag) Fourth order Fourier coefficient
real*4 e_A4 ! (mag) rms uncertainty on A4
real*4 R21 ! (mag) R21 = A2/A1 Fourier coefficient
real*4 e_R21 ! (mag) rms uncertainty on R21
real*4 R31 ! (mag) R31 = A3/A1 Fourier coefficient
real*4 e_R31 ! (mag) rms uncertainty on R31
real*4 R41 ! (mag) R41 = A4/A1 Fourier coefficient
real*4 e_R41 ! (mag) rms uncertainty on R41
real*4 phi21 ! (rad) {phi}21 Fourier coefficient
real*4 e_phi21 ! (rad) rms uncertainty on phi21
real*4 phi31 ! (rad) {phi}31 Fourier coefficient
real*4 e_phi31 ! (rad) rms uncertainty on phi31
real*4 phi41 ! (rad) {phi}41 Fourier coefficient
real*4 e_phi41 ! (rad) rms uncertainty on phi41
real*4 AV ! (mag) Amplitude in V band
real*8 Dm ! ? Deviation parameter (only for RRab stars)
real*8 e_Dm ! ? rms uncertainty on Dm (only for RRab stars)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Fourier decomposition parameters for 50 RRc
stars derived from merged data of the OGLE-II
and OGLE-III in the V band
integer*4 nr__1
parameter (nr__1=50) ! Number of records
character*210 ar__1 ! Full-size record
character*18 OGLE_1 ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*8 P0_1 ! (d) Fundamental period
real*4 e_P0_1 ! (d) rms uncertainty on P0
integer*4 N0_1 ! Original number of points
integer*4 N_1 ! Number of points
real*4 sfit_1 ! (mag) Standard deviation of the fit
real*4 A0_1 ! (mag) Fundamental Fourier coefficient
real*4 e_A0_1 ! (mag) rms uncertainty on A0
real*4 A1_1 ! (mag) Fist order Fourier coefficient
real*4 e_A1_1 ! (mag) rms uncertainty on A1
real*4 A2_1 ! (mag) Second order Fourier coefficient
real*4 e_A2_1 ! (mag) rms uncertainty on A2
real*4 A3_1 ! (mag) Third order Fourier coefficient
real*4 e_A3_1 ! (mag) rms uncertainty on A3
real*4 A4_1 ! (mag) Fourth order Fourier coefficient
real*4 e_A4_1 ! (mag) rms uncertainty on A4
real*4 R21_1 ! (mag) R21 = A2/A1 Fourier coefficient
real*4 e_R21_1 ! (mag) rms uncertainty on R21
real*4 R31_1 ! (mag) R31 = A3/A1 Fourier coefficient
real*4 e_R31_1 ! (mag) rms uncertainty on R31
real*4 R41_1 ! (mag) R41 = A4/A1 Fourier coefficient
real*4 e_R41_1 ! (mag) rms uncertainty on R41
real*4 phi21_1 ! (rad) {phi}21 Fourier coefficient
real*4 e_phi21_1 ! (rad) rms uncertainty on phi21
real*4 phi31_1 ! (rad) {phi}31 Fourier coefficient
real*4 e_phi31_1 ! (rad) rms uncertainty on phi31
real*4 phi41_1 ! (rad) {phi}41 Fourier coefficient
real*4 e_phi41_1 ! (rad) rms uncertainty on phi41
real*4 AV_1 ! (mag) Amplitude in V band
real*8 Dm_1 ! ? Deviation parameter (only for RRab stars)
real*8 e_Dm_1 ! ? rms uncertainty on Dm (only for RRab stars)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Metal abundances, absolute magnitudes and the
distance moduli for the 84 RRab stars
integer*4 nr__2
parameter (nr__2=84) ! Number of records
character*86 ar__2 ! Full-size record
character*18 OGLE_2 ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*4 v_Fe_H_1 ! ([Sun]) Metallicity [Fe/H] (1)
real*4 e__Fe_H_1 ! ([Sun]) rms uncertainty in [Fe/H]1
real*4 v_Fe_H_2 ! ([Sun]) Metallicity [Fe/H] from Carreta et al.,
* 2009A&A...508..695C
real*4 e__Fe_H_2 ! ([Sun]) rms uncertainty in [Fe/H]2
real*4 VMAG ! (mag) Absolute V magnitude
real*4 e_VMAG ! (mag) rms uncertainty on VMAG
real*4 MOD ! (mag) Distance modulus
real*4 e_MOD ! (mag) rms uncertainty on MOD
real*4 Dist ! (kpc) Distance
real*4 e_Dist ! (kpc) rms uncertainty on Dist
*Note (1): Metallicity from
* * Jurcsik & Kovacs (1996, Cat. J/A+A/312/111) in table4 or
* * Carreta & Gratton (1997, Cat. J/A+AS/121/95) in table5.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Metal abundances, absolute magnitudes and the
distance moduli for the 16 RRc stars
integer*4 nr__3
parameter (nr__3=16) ! Number of records
character*86 ar__3 ! Full-size record
character*18 OGLE_3 ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*4 v_Fe_H_1_1 ! ([Sun]) Metallicity [Fe/H] (1)
real*4 e__Fe_H_1_1 ! ([Sun]) rms uncertainty in [Fe/H]1
real*4 v_Fe_H_2_1 ! ([Sun]) Metallicity [Fe/H] from Carreta et al.,
* 2009A&A...508..695C
real*4 e__Fe_H_2_1 ! ([Sun]) rms uncertainty in [Fe/H]2
real*4 VMAG_1 ! (mag) Absolute V magnitude
real*4 e_VMAG_1 ! (mag) rms uncertainty on VMAG
real*4 MOD_1 ! (mag) Distance modulus
real*4 e_MOD_1 ! (mag) rms uncertainty on MOD
real*4 Dist_1 ! (kpc) Distance
real*4 e_Dist_1 ! (kpc) rms uncertainty on Dist
*Note (1): Metallicity from
* * Jurcsik & Kovacs (1996, Cat. J/A+A/312/111) in table4 or
* * Carreta & Gratton (1997, Cat. J/A+AS/121/95) in table5.
C=============================================================================
C Loading file 'table1.dat' ! Fourier decomposition parameters for 440 RRab
* stars derived from merged data of the OGLE-II
* and OGLE-III in the V band
C Format for file interpretation
1 format(
+ 4X,A18,1X,F8.6,1X,E6.2,1X,I3,1X,I3,1X,F5.3,1X,F6.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F7.3,1X,F7.3)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,440
read(1,'(A210)')ar__
read(ar__,1)
+ OGLE,P0,e_P0,N0,N,sfit,A0,e_A0,A1,e_A1,A2,e_A2,A3,e_A3,A4,
+ e_A4,R21,e_R21,R31,e_R31,R41,e_R41,phi21,e_phi21,phi31,
+ e_phi31,phi41,e_phi41,AV,Dm,e_Dm
if(ar__(196:202) .EQ. '') Dm = rNULL__
if(ar__(204:210) .EQ. '') e_Dm = rNULL__
c ..............Just test output...........
write(6,1)
+ OGLE,P0,e_P0,N0,N,sfit,A0,e_A0,A1,e_A1,A2,e_A2,A3,e_A3,A4,
+ e_A4,R21,e_R21,R31,e_R31,R41,e_R41,phi21,e_phi21,phi31,
+ e_phi31,phi41,e_phi41,AV,Dm,e_Dm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Fourier decomposition parameters for 50 RRc
* stars derived from merged data of the OGLE-II
* and OGLE-III in the V band
C Format for file interpretation
2 format(
+ 4X,A18,1X,F8.6,1X,E6.2,1X,I3,1X,I3,1X,F5.3,1X,F6.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F7.3,1X,F7.3)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,50
read(1,'(A210)')ar__1
read(ar__1,2)
+ OGLE_1,P0_1,e_P0_1,N0_1,N_1,sfit_1,A0_1,e_A0_1,A1_1,e_A1_1,
+ A2_1,e_A2_1,A3_1,e_A3_1,A4_1,e_A4_1,R21_1,e_R21_1,R31_1,
+ e_R31_1,R41_1,e_R41_1,phi21_1,e_phi21_1,phi31_1,e_phi31_1,
+ phi41_1,e_phi41_1,AV_1,Dm_1,e_Dm_1
if(ar__1(196:202) .EQ. '') Dm_1 = rNULL__
if(ar__1(204:210) .EQ. '') e_Dm_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ OGLE_1,P0_1,e_P0_1,N0_1,N_1,sfit_1,A0_1,e_A0_1,A1_1,e_A1_1,
+ A2_1,e_A2_1,A3_1,e_A3_1,A4_1,e_A4_1,R21_1,e_R21_1,R31_1,
+ e_R31_1,R41_1,e_R41_1,phi21_1,e_phi21_1,phi31_1,e_phi31_1,
+ phi41_1,e_phi41_1,AV_1,Dm_1,e_Dm_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Metal abundances, absolute magnitudes and the
* distance moduli for the 84 RRab stars
C Format for file interpretation
3 format(
+ 4X,A18,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,84
read(1,'(A86)')ar__2
read(ar__2,3)
+ OGLE_2,v_Fe_H_1,e__Fe_H_1,v_Fe_H_2,e__Fe_H_2,VMAG,e_VMAG,MOD,
+ e_MOD,Dist,e_Dist
c ..............Just test output...........
write(6,3)
+ OGLE_2,v_Fe_H_1,e__Fe_H_1,v_Fe_H_2,e__Fe_H_2,VMAG,e_VMAG,MOD,
+ e_MOD,Dist,e_Dist
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Metal abundances, absolute magnitudes and the
* distance moduli for the 16 RRc stars
C Format for file interpretation
4 format(
+ 4X,A18,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,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,16
read(1,'(A86)')ar__3
read(ar__3,4)
+ OGLE_3,v_Fe_H_1_1,e__Fe_H_1_1,v_Fe_H_2_1,e__Fe_H_2_1,VMAG_1,
+ e_VMAG_1,MOD_1,e_MOD_1,Dist_1,e_Dist_1
c ..............Just test output...........
write(6,4)
+ OGLE_3,v_Fe_H_1_1,e__Fe_H_1_1,v_Fe_H_2_1,e__Fe_H_2_1,VMAG_1,
+ e_VMAG_1,MOD_1,e_MOD_1,Dist_1,e_Dist_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end