Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/630/A116 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 2026-May-17
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/630/A116 Tucana dSph CMD and star formation history (Savino+, 2019)
*================================================================================
*The HST/ACS star formation history of the Tucana dwarf spheroidal galaxy:
*clues from the horizontal branch.
* Savino A., Tolstoy E., Salaris M., Monelli M., de Boer T.J.L.
* <Astron. Astrophys. 630, A116 (2019)>
* =2019A&A...630A.116S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Star formation history
integer*4 nr__
parameter (nr__=260) ! Number of records
character*44 ar__ ! Full-size record
real*4 v_alpha_Fe_ ! Mean alpha enhancement of the bin
real*4 v_Fe_H_ ! Mean [Fe/H] of the bin
real*4 Age ! (Gyr) Mean look back time of the bin
real*4 SFR ! (Msun/yr) Star formation rate in the bin
real*4 e_SFR ! (Msun/yr) Uncertainty on the star formation rate
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'phot.dat' ! HST/ACS photometry
integer*4 nr__1
parameter (nr__1=54223) ! Number of records
character*50 ar__1 ! Full-size record
real*8 F475W ! (mag) Magnitude in the F475W band
real*8 e_F475W ! (mag) ?=-9.9999 Error on the F475W magnitude (1)
real*8 F814W ! (mag) Magnitude in the F814W band
real*4 e_F814W ! (mag) ?=-9.9999 Error on the F814W magnitude (1)
*Note (1): Entries with photometric uncertainty values of -9.9999 are known
* RR Lyrae and do not have a photometric uncertainty estimate.
C=============================================================================
C Loading file 'table1.dat' ! Star formation history
C Format for file interpretation
1 format(F5.2,3X,F5.2,2X,F5.2,4X,E8.2,4X,E8.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,260
read(1,'(A44)')ar__
read(ar__,1)v_alpha_Fe_,v_Fe_H_,Age,SFR,e_SFR
c ..............Just test output...........
write(6,1)v_alpha_Fe_,v_Fe_H_,Age,SFR,e_SFR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'phot.dat' ! HST/ACS photometry
C Format for file interpretation
2 format(7X,F7.4,5X,F7.4,5X,F7.4,5X,E7.4)
C Effective file loading
open(unit=1,status='old',file=
+'phot.dat')
write(6,*) '....Loading file: phot.dat'
do i__=1,54223
read(1,'(A50)')ar__1
read(ar__1,2)F475W,e_F475W,F814W,e_F814W
c ..............Just test output...........
write(6,2)F475W,e_F475W,F814W,e_F814W
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end