Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/763/32 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 2026-Apr-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__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/ApJ/763/32 Galactic halo RRab stars from CSS (Drake+, 2013)
*================================================================================
*Probing the outer Galactic halo with RR Lyrae from the Catalina Surveys.
* Drake A.J., Catelan M., Djorgovski S.G., Torrealba G., Graham M.J.,
* Belokurov V., Koposov S.E., Mahabal A., Prieto J.L., Donalek C.,
* Williams R., Larson S., Christensen E., Beshore E.
* <Astrophys. J., 763, 32 (2013)>
* =2013ApJ...763...32D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Parameters of RRab stars
integer*4 nr__
parameter (nr__=12379) ! Number of records
character*118 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 ID (nr__) ! CSS identifier;
* <[DCD2013] CSS JHHMMSS.s+DDMMSS> in Simbad
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 v_Vmag_ (nr__) ! (mag) [11.1/20] Average V band magnitude (1)
real*8 Per (nr__) ! (d) [0.43/0.95] Period
real*4 Amp (nr__) ! (mag) [0.1/1.8] Amplitude of variation
integer*4 Num (nr__) ! [60/416] Number of photometric observations
real*4 Dist (nr__) ! (kpc) [0.1/72.1] Heliocentric distance
real*4 Av (nr__) ! (mag) [0.006/6.6] V band extinction (2)
real*8 T0 (nr__) ! (d) Ephemeris MJD ({eta})
character*28 AID (nr__) ! Alternative stellar identifier (for sources
* that were perviously known)
*Note (1): From the Fourier fit to the light curve.
*Note (2): Based on the Schlegel, Finkbeiner & Davis (1998ApJ...500..525S)
* reddening map.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! SDSS data for CSS RRab stars
integer*4 nr__1
parameter (nr__1=7760) ! Number of records
character*63 ar__1 ! Full-size record
character*16 ID_1 (nr__1) ! CSS identifier;
* <[DCD2013] CSS JHHMMSS.s+DDMMSS> in Simbad
real*4 u0mag (nr__1) ! (mag) [10.1/25] Extinction corrected SDSS u band
* magnitude
real*4 g0mag (nr__1) ! (mag) [10.3/25.1] Extinction corrected SDSS g band
* magnitude
real*4 r0mag (nr__1) ! (mag) [11/24.7] Extinction corrected SDSS r band
* magnitude
real*4 i0mag (nr__1) ! (mag) [11/24.4] Extinction corrected SDSS i band
* magnitude
real*4 z0mag (nr__1) ! (mag) [11.5/22.8] Extinction corrected SDSS z band
* magnitude
real*4 Vgsr (nr__1) ! (km/s) [-359/308]? Galactic standard of rest velocity (1)
real*4 v_Fe_H_ (nr__1) ! ([Sun]) [-3/-0.7]? Metallicity (1)
*Note (1): Based on SDSS spectra. The galactic standard of rest assumes the
* solar peculiar motion of (U,V,W) = (9, 12+220, 7)km/s
C=============================================================================
C Loading file 'table1.dat' ! Parameters of RRab stars
C Format for file interpretation
1 format(
+ 4X,A16,1X,F9.5,1X,F9.5,1X,F5.2,1X,F9.7,1X,F4.2,1X,I3,1X,F5.2,
+ 1X,F5.3,1X,F11.5,1X,A28)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,12379
read(1,'(A118)')ar__
read(ar__,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),v_Vmag_(i__),Per(i__),Amp(i__),
+ Num(i__),Dist(i__),Av(i__),T0(i__),AID(i__)
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),v_Vmag_(i__),Per(i__),Amp(i__),
+ Num(i__),Dist(i__),Av(i__),T0(i__),AID(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! SDSS data for CSS RRab stars
C Format for file interpretation
2 format(
+ 4X,A16,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F6.1,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,7760
read(1,'(A63)')ar__1
read(ar__1,2)
+ ID_1(i__),u0mag(i__),g0mag(i__),r0mag(i__),i0mag(i__),
+ z0mag(i__),Vgsr(i__),v_Fe_H_(i__)
if(ar__1(52:57) .EQ. '') Vgsr(i__) = rNULL__
if(ar__1(59:63) .EQ. '') v_Fe_H_(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1(i__),u0mag(i__),g0mag(i__),r0mag(i__),i0mag(i__),
+ z0mag(i__),Vgsr(i__),v_Fe_H_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end