Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/415/1366 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-24
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 (nr__) ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*8 P0 (nr__) ! (d) Fundamental period
real*4 e_P0 (nr__) ! (d) rms uncertainty on P0
integer*4 N0 (nr__) ! Original number of points
integer*4 N (nr__) ! Number of points
real*4 sfit (nr__) ! (mag) Standard deviation of the fit
real*4 A0 (nr__) ! (mag) Fundamental Fourier coefficient
real*4 e_A0 (nr__) ! (mag) rms uncertainty on A0
real*4 A1 (nr__) ! (mag) Fist order Fourier coefficient
real*4 e_A1 (nr__) ! (mag) rms uncertainty on A1
real*4 A2 (nr__) ! (mag) Second order Fourier coefficient
real*4 e_A2 (nr__) ! (mag) rms uncertainty on A2
real*4 A3 (nr__) ! (mag) Third order Fourier coefficient
real*4 e_A3 (nr__) ! (mag) rms uncertainty on A3
real*4 A4 (nr__) ! (mag) Fourth order Fourier coefficient
real*4 e_A4 (nr__) ! (mag) rms uncertainty on A4
real*4 R21 (nr__) ! (mag) R21 = A2/A1 Fourier coefficient
real*4 e_R21 (nr__) ! (mag) rms uncertainty on R21
real*4 R31 (nr__) ! (mag) R31 = A3/A1 Fourier coefficient
real*4 e_R31 (nr__) ! (mag) rms uncertainty on R31
real*4 R41 (nr__) ! (mag) R41 = A4/A1 Fourier coefficient
real*4 e_R41 (nr__) ! (mag) rms uncertainty on R41
real*4 phi21 (nr__) ! (rad) {phi}21 Fourier coefficient
real*4 e_phi21 (nr__) ! (rad) rms uncertainty on phi21
real*4 phi31 (nr__) ! (rad) {phi}31 Fourier coefficient
real*4 e_phi31 (nr__) ! (rad) rms uncertainty on phi31
real*4 phi41 (nr__) ! (rad) {phi}41 Fourier coefficient
real*4 e_phi41 (nr__) ! (rad) rms uncertainty on phi41
real*4 AV (nr__) ! (mag) Amplitude in V band
real*8 Dm (nr__) ! ? Deviation parameter (only for RRab stars)
real*8 e_Dm (nr__) ! ? 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 (nr__1) ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*8 P0_1 (nr__1) ! (d) Fundamental period
real*4 e_P0_1 (nr__1) ! (d) rms uncertainty on P0
integer*4 N0_1 (nr__1) ! Original number of points
integer*4 N_1 (nr__1) ! Number of points
real*4 sfit_1 (nr__1) ! (mag) Standard deviation of the fit
real*4 A0_1 (nr__1) ! (mag) Fundamental Fourier coefficient
real*4 e_A0_1 (nr__1) ! (mag) rms uncertainty on A0
real*4 A1_1 (nr__1) ! (mag) Fist order Fourier coefficient
real*4 e_A1_1 (nr__1) ! (mag) rms uncertainty on A1
real*4 A2_1 (nr__1) ! (mag) Second order Fourier coefficient
real*4 e_A2_1 (nr__1) ! (mag) rms uncertainty on A2
real*4 A3_1 (nr__1) ! (mag) Third order Fourier coefficient
real*4 e_A3_1 (nr__1) ! (mag) rms uncertainty on A3
real*4 A4_1 (nr__1) ! (mag) Fourth order Fourier coefficient
real*4 e_A4_1 (nr__1) ! (mag) rms uncertainty on A4
real*4 R21_1 (nr__1) ! (mag) R21 = A2/A1 Fourier coefficient
real*4 e_R21_1 (nr__1) ! (mag) rms uncertainty on R21
real*4 R31_1 (nr__1) ! (mag) R31 = A3/A1 Fourier coefficient
real*4 e_R31_1 (nr__1) ! (mag) rms uncertainty on R31
real*4 R41_1 (nr__1) ! (mag) R41 = A4/A1 Fourier coefficient
real*4 e_R41_1 (nr__1) ! (mag) rms uncertainty on R41
real*4 phi21_1 (nr__1) ! (rad) {phi}21 Fourier coefficient
real*4 e_phi21_1 (nr__1) ! (rad) rms uncertainty on phi21
real*4 phi31_1 (nr__1) ! (rad) {phi}31 Fourier coefficient
real*4 e_phi31_1 (nr__1) ! (rad) rms uncertainty on phi31
real*4 phi41_1 (nr__1) ! (rad) {phi}41 Fourier coefficient
real*4 e_phi41_1 (nr__1) ! (rad) rms uncertainty on phi41
real*4 AV_1 (nr__1) ! (mag) Amplitude in V band
real*8 Dm_1 (nr__1) ! ? Deviation parameter (only for RRab stars)
real*8 e_Dm_1 (nr__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 (nr__2) ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*4 v_Fe_H_1 (nr__2) ! ([Sun]) Metallicity [Fe/H] (1)
real*4 e__Fe_H_1 (nr__2) ! ([Sun]) rms uncertainty in [Fe/H]1
real*4 v_Fe_H_2 (nr__2) ! ([Sun]) Metallicity [Fe/H] from Carreta et al.,
* 2009A&A...508..695C
real*4 e__Fe_H_2 (nr__2) ! ([Sun]) rms uncertainty in [Fe/H]2
real*4 VMAG (nr__2) ! (mag) Absolute V magnitude
real*4 e_VMAG (nr__2) ! (mag) rms uncertainty on VMAG
real*4 MOD (nr__2) ! (mag) Distance modulus
real*4 e_MOD (nr__2) ! (mag) rms uncertainty on MOD
real*4 Dist (nr__2) ! (kpc) Distance
real*4 e_Dist (nr__2) ! (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 (nr__3) ! OGLE name (HHMMSS.ss+DDMMSS.s, Eq=J2000)
real*4 v_Fe_H_1_1 (nr__3) ! ([Sun]) Metallicity [Fe/H] (1)
real*4 e__Fe_H_1_1(nr__3) ! ([Sun]) rms uncertainty in [Fe/H]1
real*4 v_Fe_H_2_1 (nr__3) ! ([Sun]) Metallicity [Fe/H] from Carreta et al.,
* 2009A&A...508..695C
real*4 e__Fe_H_2_1(nr__3) ! ([Sun]) rms uncertainty in [Fe/H]2
real*4 VMAG_1 (nr__3) ! (mag) Absolute V magnitude
real*4 e_VMAG_1 (nr__3) ! (mag) rms uncertainty on VMAG
real*4 MOD_1 (nr__3) ! (mag) Distance modulus
real*4 e_MOD_1 (nr__3) ! (mag) rms uncertainty on MOD
real*4 Dist_1 (nr__3) ! (kpc) Distance
real*4 e_Dist_1 (nr__3) ! (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(i__),P0(i__),e_P0(i__),N0(i__),N(i__),sfit(i__),A0(i__),
+ e_A0(i__),A1(i__),e_A1(i__),A2(i__),e_A2(i__),A3(i__),
+ e_A3(i__),A4(i__),e_A4(i__),R21(i__),e_R21(i__),R31(i__),
+ e_R31(i__),R41(i__),e_R41(i__),phi21(i__),e_phi21(i__),
+ phi31(i__),e_phi31(i__),phi41(i__),e_phi41(i__),AV(i__),
+ Dm(i__),e_Dm(i__)
if(ar__(196:202) .EQ. '') Dm(i__) = rNULL__
if(ar__(204:210) .EQ. '') e_Dm(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ OGLE(i__),P0(i__),e_P0(i__),N0(i__),N(i__),sfit(i__),A0(i__),
+ e_A0(i__),A1(i__),e_A1(i__),A2(i__),e_A2(i__),A3(i__),
+ e_A3(i__),A4(i__),e_A4(i__),R21(i__),e_R21(i__),R31(i__),
+ e_R31(i__),R41(i__),e_R41(i__),phi21(i__),e_phi21(i__),
+ phi31(i__),e_phi31(i__),phi41(i__),e_phi41(i__),AV(i__),
+ Dm(i__),e_Dm(i__)
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(i__),P0_1(i__),e_P0_1(i__),N0_1(i__),N_1(i__),
+ sfit_1(i__),A0_1(i__),e_A0_1(i__),A1_1(i__),e_A1_1(i__),
+ A2_1(i__),e_A2_1(i__),A3_1(i__),e_A3_1(i__),A4_1(i__),
+ e_A4_1(i__),R21_1(i__),e_R21_1(i__),R31_1(i__),e_R31_1(i__),
+ R41_1(i__),e_R41_1(i__),phi21_1(i__),e_phi21_1(i__),
+ phi31_1(i__),e_phi31_1(i__),phi41_1(i__),e_phi41_1(i__),
+ AV_1(i__),Dm_1(i__),e_Dm_1(i__)
if(ar__1(196:202) .EQ. '') Dm_1(i__) = rNULL__
if(ar__1(204:210) .EQ. '') e_Dm_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ OGLE_1(i__),P0_1(i__),e_P0_1(i__),N0_1(i__),N_1(i__),
+ sfit_1(i__),A0_1(i__),e_A0_1(i__),A1_1(i__),e_A1_1(i__),
+ A2_1(i__),e_A2_1(i__),A3_1(i__),e_A3_1(i__),A4_1(i__),
+ e_A4_1(i__),R21_1(i__),e_R21_1(i__),R31_1(i__),e_R31_1(i__),
+ R41_1(i__),e_R41_1(i__),phi21_1(i__),e_phi21_1(i__),
+ phi31_1(i__),e_phi31_1(i__),phi41_1(i__),e_phi41_1(i__),
+ AV_1(i__),Dm_1(i__),e_Dm_1(i__)
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(i__),v_Fe_H_1(i__),e__Fe_H_1(i__),v_Fe_H_2(i__),
+ e__Fe_H_2(i__),VMAG(i__),e_VMAG(i__),MOD(i__),e_MOD(i__),
+ Dist(i__),e_Dist(i__)
c ..............Just test output...........
write(6,3)
+ OGLE_2(i__),v_Fe_H_1(i__),e__Fe_H_1(i__),v_Fe_H_2(i__),
+ e__Fe_H_2(i__),VMAG(i__),e_VMAG(i__),MOD(i__),e_MOD(i__),
+ Dist(i__),e_Dist(i__)
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(i__),v_Fe_H_1_1(i__),e__Fe_H_1_1(i__),v_Fe_H_2_1(i__),
+ e__Fe_H_2_1(i__),VMAG_1(i__),e_VMAG_1(i__),MOD_1(i__),
+ e_MOD_1(i__),Dist_1(i__),e_Dist_1(i__)
c ..............Just test output...........
write(6,4)
+ OGLE_3(i__),v_Fe_H_1_1(i__),e__Fe_H_1_1(i__),v_Fe_H_2_1(i__),
+ e__Fe_H_2_1(i__),VMAG_1(i__),e_VMAG_1(i__),MOD_1(i__),
+ e_MOD_1(i__),Dist_1(i__),e_Dist_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end