Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/542/A48 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/542/A48 AMBRE project. FEROS archived spectra (Worley+, 2012)
*================================================================================
*The AMBRE project: stellar parameterisation of the ESO: FEROS archived spectra.
* Worley C.C., de Laverny P., Recio-Blanco A., Hill V., Bijaoui A.,
* Ordenovic C.
* <Astron. Astrophys., 542, A48 (2012)>
* =2012A&A...542A..48W (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ambredr1.dat' ! Atmospheric Parameters and Chemical Abundances
from Stellar Spectra, Version 1
integer*4 nr__
parameter (nr__=18618) ! Number of records
character*311 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*29 Ident ! ESO Data set identifier (DP_ID)
character*25 Name ! Object designation (OBJECT)
character*25 Target ! Target designation (TARGNAME)
real*8 RAdeg ! (deg) Right ascension (J2000) (RAJ2000)
real*8 DEdeg ! (deg) Delcination (J2000) (DEJ2000)
real*8 MJD ! (d) Star of observation date (MJD_OBS)
real*8 ExpTime ! (s) Total integration time (EXPTIME)
integer*4 SNR ! ? Signal-to-noise ratio (SNR)
character*1 f_SNR ! [CR] Quality of SNR estimate
* (Crude or Refined (SNR_FLAG)
character*1 f_EEmline ! [TF] T is extreme Emission Line detected
* -> No analysis (EXTREME_EMISSION_LINE_FLAG)
character*1 f_Emline ! [TF] T if some Emission Lines detected
* -> Results uncertain (EMISSION_LINE_FLAG)
real*4 FWHM ! (0.1nm) ? Mean FWHM of absorption lines around
* 4500{AA} (MEANFWHM_LINES)
character*1 f_FWHM ! [TF] T if FWHM outside the accepted range
* -> Results uncertain (MEANFWHM_LINES_FLAG)
real*8 RV ! (km/s) ? Radial velocity (VRAD)
real*8 e_RV ! (km/s) ? Error on radial velocity (ERR_VRAD)
real*4 CCFFWHM ! (0.1nm) ? FWHM of the CCF between the spectrum and
* the binary mask (VRAD_CCF_FWHM)
integer*4 q_RV ! ? Quality of RV 0=very good to 5=very bad
* (VRAD_FLAG)
real*4 Teff ! (K) ? Effective temperature (TEFF)
real*4 e_Teff ! (K) ? Effective temperature internal error
* (ERR_INT_TEFF)
integer*4 e_TeffE ! (K) [120]? Effective temperature external error
* (ERR_EXT_TEFF)
real*4 logg ! ([cm/s2]) ? Surface gravity (LOG_G)
real*4 e_logg ! ([cm/s2]) ? Surface gravity internal error
* (ERR_INT_LOG_G)
real*4 e_loggE ! ([cm/s2]) ? Surface gravity external error
* (ERR_EXT_LOG_G)
real*8 v_M_H_ ! ([-]) ? Mean metallicity (M_H)
real*4 e__M_H_ ! ([-]) ? Mean metallicity internal error
* (ERR_INT_M_H)
real*4 e__M_H_E ! ([-]) [0.1]? Mean metallicity external error
* (ERR_EXT_M_H)
real*8 v_alpha_Fe_ ! ([-]) ? Alpha elements over iron abundance
* (ALPHA)
real*4 e__alpha_Fe_ ! ([-]) ? Alpha elements over iron abundance
* internal error (ERR_INT_ALPHA)
real*4 e__alpha_Fe_E ! ([-]) [0.1]?Alpha elements over iron abundance
* external error (ERR_EXT_ALPHA)
real*4 logChi2 ! ? log(Chi^2^) between the observed and
* the reconstructed spectra (CHI2)
integer*4 f_logChi2 ! ? Quality flag on this fit, 0=very good
* to 2=very bad (CHI2_FLAG)
character*41 OrigFile ! Filename of original spectrum being
* analysed (ORIGFILE)
character*13 ProgID ! ESO programm identifier (PROG_ID)
C=============================================================================
C Loading file 'ambredr1.dat' ! Atmospheric Parameters and Chemical Abundances
* from Stellar Spectra, Version 1
C Format for file interpretation
1 format(
+ A29,1X,A25,1X,A25,1X,F10.6,1X,F9.5,1X,F13.7,1X,F10.5,1X,I4,1X,
+ A1,1X,A1,1X,A1,1X,F4.2,1X,A1,1X,F7.2,1X,F9.6,1X,F6.2,1X,I1,1X,
+ F6.1,1X,F5.1,1X,I3,1X,F5.3,1X,F5.3,1X,F4.2,1X,F9.6,1X,F5.3,1X,
+ F3.1,1X,F9.6,1X,F5.3,1X,F3.1,1X,F6.3,1X,I1,1X,A41,1X,A13)
C Effective file loading
open(unit=1,status='old',file=
+'ambredr1.dat')
write(6,*) '....Loading file: ambredr1.dat'
do i__=1,18618
read(1,'(A311)')ar__
read(ar__,1)
+ Ident,Name,Target,RAdeg,DEdeg,MJD,ExpTime,SNR,f_SNR,f_EEmline,
+ f_Emline,FWHM,f_FWHM,RV,e_RV,CCFFWHM,q_RV,Teff,e_Teff,e_TeffE,
+ logg,e_logg,e_loggE,v_M_H_,e__M_H_,e__M_H_E,v_alpha_Fe_,
+ e__alpha_Fe_,e__alpha_Fe_E,logChi2,f_logChi2,OrigFile,ProgID
if(ar__(129:132) .EQ. '') SNR = iNULL__
if(ar__(140:143) .EQ. '') FWHM = rNULL__
if(ar__(147:153) .EQ. '') RV = rNULL__
if(ar__(155:163) .EQ. '') e_RV = rNULL__
if(ar__(165:170) .EQ. '') CCFFWHM = rNULL__
if(ar__(172:172) .EQ. '') q_RV = iNULL__
if(ar__(174:179) .EQ. '') Teff = rNULL__
if(ar__(181:185) .EQ. '') e_Teff = rNULL__
if(ar__(187:189) .EQ. '') e_TeffE = iNULL__
if(ar__(191:195) .EQ. '') logg = rNULL__
if(ar__(197:201) .EQ. '') e_logg = rNULL__
if(ar__(203:206) .EQ. '') e_loggE = rNULL__
if(ar__(208:216) .EQ. '') v_M_H_ = rNULL__
if(ar__(218:222) .EQ. '') e__M_H_ = rNULL__
if(ar__(224:226) .EQ. '') e__M_H_E = rNULL__
if(ar__(228:236) .EQ. '') v_alpha_Fe_ = rNULL__
if(ar__(238:242) .EQ. '') e__alpha_Fe_ = rNULL__
if(ar__(244:246) .EQ. '') e__alpha_Fe_E = rNULL__
if(ar__(248:253) .EQ. '') logChi2 = rNULL__
if(ar__(255:255) .EQ. '') f_logChi2 = iNULL__
c ..............Just test output...........
write(6,1)
+ Ident,Name,Target,RAdeg,DEdeg,MJD,ExpTime,SNR,f_SNR,f_EEmline,
+ f_Emline,FWHM,f_FWHM,RV,e_RV,CCFFWHM,q_RV,Teff,e_Teff,e_TeffE,
+ logg,e_logg,e_loggE,v_M_H_,e__M_H_,e__M_H_E,v_alpha_Fe_,
+ e__alpha_Fe_,e__alpha_Fe_E,logChi2,f_logChi2,OrigFile,ProgID
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end