Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/512/A13 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.5, on 2013-Jun-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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+A/512/A13 EW-Teff calibration for solar-type stars (Sousa+, 2010)
*================================================================================
*An effective temperature calibration for solar type stars using equivalent width
*ratios. A fast and easy spectroscopic temperature estimation.
* Sousa S.G., Alapini, A., Israelian G., Santos N.C.
* <Astron. Astrophys. 512, A13 (2010)>
* =2010A&A...512A..13S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Line list
integer*4 nr__
parameter (nr__=498) ! Number of records
character*24 ar__ ! Full-size record
real*8 lambda ! (0.1nm) Central wavelength
real*4 EP ! (eV) Excitation potential
real*4 loggf ! ([-]) Oscilator strength
character*4 El ! Element
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! EW line-ratio calibration coefficients
integer*4 nr__1
parameter (nr__1=433) ! Number of records
character*89 ar__1 ! Full-size record
integer*4 nf ! ID number of final line ratios
integer*4 ni ! ID number of the initial list of line ratios
integer*4 stddev ! standard deviation in each calibration
integer*4 Nstars ! Number of stars used in each ratio calibration
real*8 lambda1 ! (0.1nm) Wavelength of first line
real*8 lambda2 ! (0.1nm) Wavelength of second line
character*4 El1 ! Element of first line
character*4 El2 ! Element of second line
real*8 c0 ! 1st coefficient of the fit c0+c1x+c2x^2^+c3x^3^
real*8 c1 ! 2nd coefficient of the fit c0+c1x+c2x^2^+c3x^3^
real*8 c2 ! 3rd coefficient of the fit c0+c1x+c2x^2^+c3x^3^
real*8 c3 ! 4th coefficient of the fit c0+c1x+c2x^2^+c3x^3^
integer*4 Teff0 ! (K) Lower limit in Teff for each calibration
integer*4 Teff1 ! (K) Upper limit in Teff for each calibration
integer*4 T ! [1/6] Type of fit used (1)
*Note (1): Fit type code as follows:
* 1 = relation "Teff versus r", straight line function
* 2 = relation "Teff versus r", 3rd order polynomial functions
* 3 = relation "Teff versus 1/r", but the spectral lines are inverted
* in this table for ease of use, straight line function
* 4 = relation "Teff versus 1/r", but the spectral lines are inverted
* in this table for ease of use, 3rd order polynomial functions
* 5 = relation "Teff versus log(r)" , straight line function
* 6 = relation "Teff versus log(r)" , 3rd order polynomial functions
C=============================================================================
C Loading file 'table1.dat' ! Line list
C Format for file interpretation
1 format(F7.2,1X,F4.2,1X,F6.3,1X,A4)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,498
read(1,'(A24)')ar__
read(ar__,1)lambda,EP,loggf,El
c ..............Just test output...........
write(6,1)lambda,EP,loggf,El
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! EW line-ratio calibration coefficients
C Format for file interpretation
2 format(
+ I3,1X,I3,1X,I3,1X,I3,1X,F7.2,1X,F7.2,1X,A4,1X,A4,1X,F8.2,1X,
+ F8.2,1X,F8.2,1X,F8.2,1X,I4,1X,I4,1X,I1)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,433
read(1,'(A89)')ar__1
read(ar__1,2)
+ nf,ni,stddev,Nstars,lambda1,lambda2,El1,El2,c0,c1,c2,c3,Teff0,
+ Teff1,T
c ..............Just test output...........
write(6,2)
+ nf,ni,stddev,Nstars,lambda1,lambda2,El1,El2,c0,c1,c2,c3,Teff0,
+ Teff1,T
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end