Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/458/2307 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-20
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/458/2307 gamma Dor stars spectroscopic survey (Kahraman Alicavus+, 2016)
*================================================================================
*Spectroscopic survey of {gamma} Doradus stars.
*I. Comprehensive atmospheric parameters and abundance analysis of
*{gamma} Doradus stars.
* Kahraman Alicavus F., Niemczura E., De Cat P., Soydugan E.,
* Kolaczkowski Z., Ostrowski J., Telting J.H., Uytterhoeven K., Poretti E.,
* Rainer M., Suarez J.C., Mantegazza L., Kilmartin P., Pollard K.R.
* <Mon. Not. R. Astron. Soc., 458, 2307-2322 (2016)>
* =2016MNRAS.458.2307K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Spectroscopic observations and the spectral
classification of the investigated stars
integer*4 nr__
parameter (nr__=52) ! Number of records
character*68 ar__ ! Full-size record
integer*4 HD (nr__) ! HD number
character*2 n_HD (nr__) ! [* ] ** = SB1 stars
character*8 Inst (nr__) ! Instruments
integer*4 Nsp (nr__) ! Number of spectra
real*4 Vmag (nr__) ! (mag) V magnitude
character*8 SpTypeS (nr__) ! Simbad spectral type
character*11 SpType (nr__) ! This study spectral type (1)
character*16 Notes (nr__) ! Notes
integer*4 Ref (nr__) ! References (2)
*Note (1): Notations:
* IV/V = between IV-V
* IV-V = whether IV or V
* nn = very rapid rotators
* m-* = metallicity class where * represents number
* Am = mild Am star
* cand = candidate
*Note (2): References as follows:
* 1 = Henry et al. (2007, Cat. J/AJ/133/1421)
* 2 = Handler (1999MNRAS.309L..19H)
* 3 = Martin & Rodriguez (2000A&A...358..287M)
* 4 = De Cat et al. (2006A&A...449..281D)
* 5 = Eyer (1998, PhD thesis, Genera University)
* 6 = Henry et al. (2011, Cat. J/AJ/142/39)
* 7 = Aerts, Eyer & Kestens (1998A&A...337..790A)
* 8 = Dubath et al. (2011, Cat. J/MNRAS/414/2602)
* 9 = Fekel et al. (2003AJ....125.2196F)
* 10 = Henry et al. (2001AJ....122.3383H)
* 11 = Poretti et al. (2003A&A...406..203P)
* 12 = Henry & Fekel (2005, Cat. J/AJ/129/2026)
* 13 = Handler & Shobbrook (2002MNRAS.333..251H)
* 14 = Krisciunas & Handler (1995IBVS.4195....1K)
* 15 = Uytterhoeven et al. (2011, preprint, arXiv:1111.1840)
* 16 = Mathias et al. (2003, Proc. 4th COROT Week, Spectroscopic
* studies of {gamma} Doradus stars in potential Corot fields, Marseille)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! The E(B-V) values and atmospheric parameters
derived from the photometric indices and SED
analysis
integer*4 nr__1
parameter (nr__1=52) ! Number of records
character*60 ar__1 ! Full-size record
integer*4 HD_1 (nr__1) ! HD number
real*4 E_B_V_M (nr__1) ! (mag) E(B-V) from Map
real*4 E_B_V_NaD2 (nr__1) ! (mag) E(B-V) from NaD_2_
integer*4 Teff1 (nr__1) ! (K) ? ubvy{beta} effective temperature (+/-95)
real*4 logg1 (nr__1) ! ([cm/s2]) ? ubvy{beta} surface gravity (+/-0.10)
integer*4 Teff2 (nr__1) ! (K) ? Geneva effective temperature (+/-125)
real*4 logg2 (nr__1) ! ([cm/s2]) ? Geneva surface gravity (+/-0.11)
integer*4 Teff3 (nr__1) ! (K) UBV effective temperature (+/-170)
integer*4 Teff4 (nr__1) ! (K) 2MASS effective temperature (+/-80)
integer*4 Teff5 (nr__1) ! (K) Average effective temperature (+/-245) (1)
integer*4 Teff6 (nr__1) ! (K) SED effective temperature
integer*4 e_Teff6 (nr__1) ! (K) rms uncertainty on Teff6
*Note (1): Represents the average values of effective temperature obtained from
* different photometric systems.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Atmospheric parameters obtained from the
hydrogen and iron lines analysis
integer*4 nr__2
parameter (nr__2=52) ! Number of records
character*59 ar__2 ! Full-size record
integer*4 HD_2 (nr__2) ! HD number
integer*4 TeffH (nr__2) ! (K) H lines effective temperature
integer*4 e_TeffH (nr__2) ! (K) rms uncertainty on TeffH
integer*4 TeffFe (nr__2) ! (K) Fe lines effective temperature
integer*4 e_TeffFe (nr__2) ! (K) rms uncertainty on TeffFe
real*4 loggFe (nr__2) ! ([cm/s2]) Fe lines surface gravity
real*4 e_loggFe (nr__2) ! ([cm/s2]) rms uncertainty on loggFe
real*4 xi (nr__2) ! (km/s) Microtrubulent velocity
real*4 e_xi (nr__2) ! (km/s) rms uncertainty on xi
integer*4 vsini (nr__2) ! (km/s) Rotational velocity
integer*4 e_vsini (nr__2) ! (km/s) rms uncertainty on vsini
real*4 logeps_Fe (nr__2) ! ([-]) Fe abundance
real*4 e_logeps_Fe(nr__2) ! ([-]) rms uncertainty on logeps(Fe)
character*1 Note (nr__2) ! [*] * for previously determined
* spectroscopic atmospheric parameters (1)
*Note (1): Previously determined spectroscopic atmospheric parameters:
* HD 23585 : Teff=7440K, logg=4.29, {xi}=3.0km/s
* (Gray, Graham & Hoyt 2001, Cat. J/AJ/121/2159)
* HD 26298 : Teff=6790/-200K, logg=3.95/-0.22, {xi}=1.5/-0.5km/s
* (Bruntt et al. 2008A&A...478..487B)
* HD 33204 : Teff=7646K, logg=4.11, {xi}=3.4
* (Varenne & Monier, 1999A&A...351..247V)
* HD 46304 : Teff=7048/-16K, (Munoz Bermejo et al., 2013, Cat. J/A+A/553/A95)
* HD 63436 : Teff=6970K, logg=4.14
* (Munoz Bermejo et al., 2013, Cat. J/A+A/553/A95)
* HD 99329 : Teff=6990K, (Ammler-von Eiff & Reiners 2012, Cat. J/A+A/542/A116)
* HD106103 : Teff=6610K (Munoz Bermejo et al., 2013, Cat. J/A+A/553/A95)
* HD109799 : Teff=6926/-26K (King & Schuler, 2005PASP..117..911K)
* HD110379 : Teff=7140/-160K, logg=4.21/-0.02, {xi}=1.5/-0.4km/s
* (Bruntt et al. 2008A&A...478..487B)
* HD112934 : Teff=7035K, (Ammler-von Eiff & Reiners 2012, Cat. J/A+A/542/A116)
* HD126516 : Teff=6590/-120K, logg=4.01/-0.15, {xi}=1.9/-0.3km/s
* (Bruntt et al. 2008A&A...478..487B)
* HD209295 : Teff=7392K (Ammler-von Eiff & Reiners 2012, Cat. J/A+A/542/A116)
C=============================================================================
C Loading file 'table2.dat' ! Spectroscopic observations and the spectral
* classification of the investigated stars
C Format for file interpretation
1 format(I6,A2,3X,A8,1X,I2,1X,F4.2,1X,A8,1X,A11,1X,A16,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,52
read(1,'(A68)')ar__
read(ar__,1)
+ HD(i__),n_HD(i__),Inst(i__),Nsp(i__),Vmag(i__),SpTypeS(i__),
+ SpType(i__),Notes(i__),Ref(i__)
c ..............Just test output...........
write(6,1)
+ HD(i__),n_HD(i__),Inst(i__),Nsp(i__),Vmag(i__),SpTypeS(i__),
+ SpType(i__),Notes(i__),Ref(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! The E(B-V) values and atmospheric parameters
* derived from the photometric indices and SED
* analysis
C Format for file interpretation
2 format(
+ I6,1X,F4.2,1X,F4.2,1X,I4,1X,F4.2,1X,I4,1X,F4.2,1X,I4,1X,I4,1X,
+ I4,1X,I4,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,52
read(1,'(A60)')ar__1
read(ar__1,2)
+ HD_1(i__),E_B_V_M(i__),E_B_V_NaD2(i__),Teff1(i__),logg1(i__),
+ Teff2(i__),logg2(i__),Teff3(i__),Teff4(i__),Teff5(i__),
+ Teff6(i__),e_Teff6(i__)
if(ar__1(18:21) .EQ. '') Teff1(i__) = iNULL__
if(ar__1(23:26) .EQ. '') logg1(i__) = rNULL__
if(ar__1(28:31) .EQ. '') Teff2(i__) = iNULL__
if(ar__1(33:36) .EQ. '') logg2(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ HD_1(i__),E_B_V_M(i__),E_B_V_NaD2(i__),Teff1(i__),logg1(i__),
+ Teff2(i__),logg2(i__),Teff3(i__),Teff4(i__),Teff5(i__),
+ Teff6(i__),e_Teff6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Atmospheric parameters obtained from the
* hydrogen and iron lines analysis
C Format for file interpretation
3 format(
+ I6,1X,I4,1X,I3,1X,I4,1X,I3,1X,F3.1,1X,F3.1,1X,F3.1,1X,F3.1,1X,
+ I3,1X,I2,1X,F4.2,1X,F4.2,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,52
read(1,'(A59)')ar__2
read(ar__2,3)
+ HD_2(i__),TeffH(i__),e_TeffH(i__),TeffFe(i__),e_TeffFe(i__),
+ loggFe(i__),e_loggFe(i__),xi(i__),e_xi(i__),vsini(i__),
+ e_vsini(i__),logeps_Fe(i__),e_logeps_Fe(i__),Note(i__)
c ..............Just test output...........
write(6,3)
+ HD_2(i__),TeffH(i__),e_TeffH(i__),TeffFe(i__),e_TeffFe(i__),
+ loggFe(i__),e_loggFe(i__),xi(i__),e_xi(i__),vsini(i__),
+ e_vsini(i__),logeps_Fe(i__),e_logeps_Fe(i__),Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end