Conversion of standardized ReadMe file for
file /./home/cats/J/AJ/166/236 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-13
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/AJ/166/236 2MASS-WFC3/IR across H-R Diagram, Synthetic Phot. (Durbin+, 2023)
*================================================================================
*Empirical 2MASS-WFC3/IR Filter Transformations Across the H-R Diagram from
*Synthetic Photometry.
* Durbin M.J., Beaton R.L., Monson A.J., Swidler B., Dalcanton J.J.
* <Astron. J., 166, 236 (2023)>
* =2023AJ....166..236D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Spectrum and star IDs
integer*4 nr__
parameter (nr__=1269) ! Number of records
character*109 ar__ ! Full-size record
character*32 Spectrum ! Spectrum file name
character*7 Library ! Parent library
character*30 SIMBAD ! SIMBAD Identifier of target star
character*17 v2MASS ! 2MASS position based identifier of target star
integer*8 Gaia ! ? Gaia DR3 identifier of target star
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Synthetic magnitudes
integer*4 nr__1
parameter (nr__1=1269) ! Number of records
character*110 ar__1 ! Full-size record
character*32 Spectrum_1 ! Spectrum file name
real*4 Jmag ! (mag) [-3.22/17.2] 2MASS J-band magnitude
real*4 e_Jmag ! (mag) [0.005/0.4] Uncertainty in Jmag
real*4 Hmag ! (mag) [-3.94/17.3]? 2MASS H-band magnitude
real*4 e_Hmag ! (mag) [0.006/0.3]? Uncertainty in Hmag
real*4 Ksmag ! (mag) [-4.06/17.4]? 2MASS Ks-band magnitude
real*4 e_Ksmag ! (mag) [0.005/0.2]? Uncertainty in Ksmag
real*4 F110Wmag ! (mag) [-2.97/17.1]? HST WFC3/IR F110W magnitude
real*4 e_F110Wmag ! (mag) [0.005/0.4]? Uncertainty in F110Wmag
real*4 F125Wmag ! (mag) [-3.22/17.2] HST WFC3/IR F125W magnitude
real*4 e_F125Wmag ! (mag) [0.005/0.4] Uncertainty in F125Wmag
real*4 F160Wmag ! (mag) [-3.73/17.3] HST WFC3/IR F160W magnitude
real*4 e_F160Wmag ! (mag) [0.005/0.3] Uncertainty in F160Wmag
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Adopted distances and reddenings
integer*4 nr__2
parameter (nr__2=1063) ! Number of records
character*82 ar__2 ! Full-size record
character*30 SIMBAD_1 ! SIMBAD Identifier of target star
real*8 Dist ! (pc) [1.3/62440] Distance
real*8 e_Dist ! (pc) [-5115/-0.0001] Lower uncertainty on Dist
real*8 E_Dist_1 ! (pc) [0.0001/7672] Upper uncertainty on Dist
real*4 EBV ! (mag) [0.0008/1.72] Reddening, E(B-V)
real*4 e_EBV ! (mag) [0.0001/0.4] Uncertainty in EBV
integer*4 r_Dist ! [0/12] Reference on Dist (1)
integer*4 r_EBV ! [13/15] Reference for EBV (1)
*Note (1): References as follows:
* 1 = Bailer-Jone+, 2021, I/352
* 2 = van Leeuwen, 2007, I/311
* 3 = Bailer-Jones+, 2018 I/345
* 4 = Maiz Apellaniz+, 2022, J/A+A/657/A131
* 5 = Baumgardt & Vasiliev, 2021MNRAS.505.5957B
* 6 = Cantat-Gaudin & Anders, 2020, J/A+A/633/A99
* 7 = Schmidt+, 2010, J/AJ/139/1808
* 8 = Davies & Beasor, 2020MNRAS.493..468D
* 9 = Torres+, 2010, J/A+ARv/18/67
* 10 = Sahai+, 2007AJ....134.2200S
* 11 = Graczyk+, 2020, J/ApJ/904/13
* 12 = Pietrzynski+, 2019Natur.567..200P
* 13 = Vergely+, 2022, J/A+A/664/A174
* 14 = Delchambre+, 2022arXiv220606710D
* 15 = Skowron+, 2021, J/ApJS/252/23
C=============================================================================
C Loading file 'table4.dat' ! Spectrum and star IDs
C Format for file interpretation
1 format(A32,1X,A7,1X,A30,1X,A17,1X,I19)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,1269
read(1,'(A109)')ar__
read(ar__,1)Spectrum,Library,SIMBAD,v2MASS,Gaia
if(ar__(91:109) .EQ. '') Gaia = iNULL__
c ..............Just test output...........
write(6,1)Spectrum,Library,SIMBAD,v2MASS,Gaia
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Synthetic magnitudes
C Format for file interpretation
2 format(
+ A32,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,1269
read(1,'(A110)')ar__1
read(ar__1,2)
+ Spectrum_1,Jmag,e_Jmag,Hmag,e_Hmag,Ksmag,e_Ksmag,F110Wmag,
+ e_F110Wmag,F125Wmag,e_F125Wmag,F160Wmag,e_F160Wmag
if(ar__1(47:52) .EQ. '') Hmag = rNULL__
if(ar__1(54:58) .EQ. '') e_Hmag = rNULL__
if(ar__1(60:65) .EQ. '') Ksmag = rNULL__
if(ar__1(67:71) .EQ. '') e_Ksmag = rNULL__
if(ar__1(73:78) .EQ. '') F110Wmag = rNULL__
if(ar__1(80:84) .EQ. '') e_F110Wmag = rNULL__
c ..............Just test output...........
write(6,2)
+ Spectrum_1,Jmag,e_Jmag,Hmag,e_Hmag,Ksmag,e_Ksmag,F110Wmag,
+ e_F110Wmag,F125Wmag,e_F125Wmag,F160Wmag,e_F160Wmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Adopted distances and reddenings
C Format for file interpretation
3 format(
+ A30,1X,F10.4,1X,F10.4,1X,F9.4,1X,F6.4,1X,F6.4,1X,I2,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,1063
read(1,'(A82)')ar__2
read(ar__2,3)
+ SIMBAD_1,Dist,e_Dist,E_Dist_1,EBV,e_EBV,r_Dist,r_EBV
c ..............Just test output...........
write(6,3)
+ SIMBAD_1,Dist,e_Dist,E_Dist_1,EBV,e_EBV,r_Dist,r_EBV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end