Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/420/1333 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/MNRAS/420/1333 NGC 5024 (M53) RR Lyrae VI light curves (Arellano Ferro+, 2012)
*================================================================================
*The unusually large population of Blazhko variables in the globular cluster
*NGC 5024 (M53).
* Arellano Ferro A., Bramich D.M., Figuera Jaimes R., Giridhar S.,
* Kuppuswamy K.
* <Mon. Not. R. Astron. Soc., 420, 1333-1346 (2012)>
* =2012MNRAS.420.1333A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Periods and epochs of the RR Lyrae stars in
NGC 5024 in our field of view
integer*4 nr__
parameter (nr__=55) ! Number of records
character*31 ar__ ! Full-size record
character*3 VName (nr__) ! Variable star name,
* <Cl* NGC 5024 SAW VNN> in Simbad
character*1 n_VName (nr__) ! [*] Flux contamination (1)
character*7 Type (nr__) ! Bailey's type (2)
real*8 Per (nr__) ! (d) Period
real*8 HJDmax (nr__) ! (d) Maximum brightness HJD (HJD-2400000)
*Note (1): V52 and V53 lie in close spatial proximity and it is possible
* that flux contamination between the variables is at least a partial
* cause of the observed Blazhko effect.
*Note (2): Bl: Blazhko variables with the S_B_-index larger than 145.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Time series V and I photometry for all the
RR Lyrae stars in our field of view
integer*4 nr__1
parameter (nr__1=13173) ! Number of records
character*78 ar__1 ! Full-size record
character*3 VName_1 (nr__1) ! Variable star name
character*1 Filter (nr__1) ! [VI] Observation filter
real*8 HJD (nr__1) ! (d) Heliocentric Julian date at mid-exposure
real*4 magst (nr__1) ! (mag) Standard magnitude
real*4 maginst (nr__1) ! (mag) Instrumental magnitude
real*4 e_maginst (nr__1) ! (mag) Magnitude uncertainty (standard or instrumental)
real*8 Fref (nr__1) ! (s-1) Reference flux (in ADU/s unit) (1)
real*4 e_Fref (nr__1) ! (s-1) Reference flux uncertainty (in ADU/s unit)
real*8 DFlux (nr__1) ! (s-1) Difference flux (in ADU/s unit) (1)
real*4 e_DFlux (nr__1) ! (s-1) Difference flux uncertainty (in ADU/s unit)
real*4 p (nr__1) ! Photometric scale factor (1)
*Note (1): Light curves for each star were constructed by calculating the total
* flux ftot(t) in adu/s at each epoch t from
*
* f_tot_(t)=f_ref_+f_diff_(t)/p(t)
*
* where f_ref_ is the reference flux (adu/s), f_diff_(t) is the
* differential flux (adu/s) and p(t) is the photometric scalefactor
* (the integral of the kernel solution)
*
* Conversion to instrumental magnitudes was achieved using
*
* m_ins_(t)=25.0-2.5log(f_tot_(t))
*
* where m_ins_(t) is the instrumental magnitude of the star at time t.
* Uncertainties were propagated in the correct analytical fashion.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Phase and magnitude at the time of maximum
brightness in the V band for a group of stars
with Blazhko modulations
integer*4 nr__2
parameter (nr__2=248) ! Number of records
character*28 ar__2 ! Full-size record
character*3 VName_2 (nr__2) ! Variable star name
real*4 phimax (nr__2) ! [0/1] Phase at maximum brightness
real*4 Vmax (nr__2) ! (mag) V magnitude at maximum brightness
real*8 HJDmax_1 (nr__2) ! (d) Maximum brightness HJD (HJD-2450000)
C=============================================================================
C Loading file 'table2.dat' ! Periods and epochs of the RR Lyrae stars in
* NGC 5024 in our field of view
C Format for file interpretation
1 format(A3,A1,1X,A7,1X,F8.6,1X,F9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,55
read(1,'(A31)')ar__
read(ar__,1)
+ VName(i__),n_VName(i__),Type(i__),Per(i__),HJDmax(i__)
c ..............Just test output...........
write(6,1)
+ VName(i__),n_VName(i__),Type(i__),Per(i__),HJDmax(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! Time series V and I photometry for all the
* RR Lyrae stars in our field of view
C Format for file interpretation
2 format(
+ A3,1X,A1,1X,F13.5,1X,F6.3,1X,F6.3,1X,F5.3,1X,F8.3,1X,F5.3,1X,
+ F9.3,1X,F6.3,1X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,13173
read(1,'(A78)')ar__1
read(ar__1,2)
+ VName_1(i__),Filter(i__),HJD(i__),magst(i__),maginst(i__),
+ e_maginst(i__),Fref(i__),e_Fref(i__),DFlux(i__),e_DFlux(i__),
+ p(i__)
c ..............Just test output...........
write(6,2)
+ VName_1(i__),Filter(i__),HJD(i__),magst(i__),maginst(i__),
+ e_maginst(i__),Fref(i__),e_Fref(i__),DFlux(i__),e_DFlux(i__),
+ p(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Phase and magnitude at the time of maximum
* brightness in the V band for a group of stars
* with Blazhko modulations
C Format for file interpretation
3 format(A3,1X,F6.3,1X,F6.3,1X,F10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,248
read(1,'(A28)')ar__2
read(ar__2,3)VName_2(i__),phimax(i__),Vmax(i__),HJDmax_1(i__)
c ..............Just test output...........
write(6,3)VName_2(i__),phimax(i__),Vmax(i__),HJDmax_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end