Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/357/871 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.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/A+A/357/871 RR Lyrae stars in the Sgr dwarf galaxy (Cseresnjes+, 2000)
*================================================================================
*Structure of the Sagittarius dwarf galaxy at low Galactic latitudes.
* Cseresnjes P., Alard C., Guibert J.
* <Astron. Astrophys., 357, 871-880 (2000)>
* =2000A&A...357..871C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'field1.dat' ! Single-period RR Lyraes in field 1 (SAG)
integer*4 nr__
parameter (nr__=2330) ! Number of records
character*52 ar__ ! Full-size record
C J2000 position composed of: RAhour DEdeg
character*9 Name ! Variable identifier
real*8 RAhour ! (h) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*8 Per ! (d) Period of the variable
real*4 Amp ! (mag) Amplitude of the light curve
real*4 Bmag ! (mag) Photographic B magnitude
character*4 VarType ! Type of the variable (either RRab or RRc)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'field2.dat' ! Single-period RR Lyraes in field 2 (DUO)
integer*4 nr__1
parameter (nr__1=1617) ! Number of records
character*52 ar__1 ! Full-size record
C J2000 position composed of: RAhour DEdeg
character*9 Name_1 ! Variable identifier
real*8 RAhour_1 ! (h) Right ascension (J2000)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*8 Per_1 ! (d) Period of the variable
real*4 Amp_1 ! (mag) Amplitude of the light curve
real*4 Bmag_1 ! (mag) Photographic B magnitude
character*4 VarType_1 ! Type of the variable (either RRab or RRc)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lc/*' ! Light curves
integer*4 nr__2
parameter (nr__2=73) ! Number of records
character*24 ar__2 ! Full-size record
real*8 JD ! (d) Observation date
real*4 Bmag_2 ! (mag) Observed B magnitude
real*4 e_Bmag ! (mag) Mean error on Bmag
C=============================================================================
C Loading file 'field1.dat' ! Single-period RR Lyraes in field 1 (SAG)
C Format for file interpretation
1 format(A9,1X,F9.6,1X,F9.5,1X,F7.5,1X,F4.2,1X,F4.1,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'field1.dat')
write(6,*) '....Loading file: field1.dat'
do i__=1,2330
read(1,'(A52)')ar__
read(ar__,1)Name,RAhour,DEdeg,Per,Amp,Bmag,VarType
c ..............Just test output...........
write(6,1)Name,RAhour,DEdeg,Per,Amp,Bmag,VarType
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'field2.dat' ! Single-period RR Lyraes in field 2 (DUO)
C Format for file interpretation
2 format(A9,1X,F9.6,1X,F9.5,1X,F7.5,1X,F4.2,1X,F4.1,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'field2.dat')
write(6,*) '....Loading file: field2.dat'
do i__=1,1617
read(1,'(A52)')ar__1
read(ar__1,2)
+ Name_1,RAhour_1,DEdeg_1,Per_1,Amp_1,Bmag_1,VarType_1
c ..............Just test output...........
write(6,2)
+ Name_1,RAhour_1,DEdeg_1,Per_1,Amp_1,Bmag_1,VarType_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'lc/*' ! Light curves
C Format for file interpretation
3 format(F13.5,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'lc/*')
write(6,*) '....Loading file: lc/*'
do i__=1,73
read(1,'(A24)')ar__2
read(ar__2,3)JD,Bmag_2,e_Bmag
c ..............Just test output...........
write(6,3)JD,Bmag_2,e_Bmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end