Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/364/237 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/364/237 Elemental abundances of Deneb (Albayrak+, 2000)
*================================================================================
*A spectral analysis of Deneb (A2 Iae).
* Albayrak B.
* <Astron. Astrophys. 364, 237 (2000)>
* =2000A&A...364..237A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'abund.dat' ! Atomic abundances
integer*4 nr__
parameter (nr__=30) ! Number of records
character*20 ar__ ! Full-size record
character*6 Ion ! Ion designation
character*2 Element ! Element (identical to bytes 1-2)
real*4 log_Nel_Ntot ! Derived abundance of Element (ratio of
* number of atoms to the total number of
* atoms per unit volume)
real*4 e_log_Nel_Ntot ! ? rms uncertainty on log(Nel/Ntot)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Elemental abundances
integer*4 nr__1
parameter (nr__1=533) ! Number of records
character*42 ar__1 ! Full-size record
character*6 Ion_1 ! Ion designation
character*7 Mult ! ? Multiplet number
real*8 lambda ! (0.1nm) Wavelength
real*4 log_gf ! Oscillator strength
character*2 r_log_gf ! Reference for log(gf) (1)
integer*4 EW ! (10-4nm) ? Equivalent width (in miliAnstroems)
real*4 log_N_Ntot ! Derived abundance in relative number
* of atoms per unit volume
*Note (1): gf references:
* BG : Biemont et al. (1989A&A...209..391B) for V II
* Biemont et al. (1981ApJ...248..867B) for Zr II
* BK : Biemont et al. (1982A&A...107..166B)
* CC : Cowley & Corliss (1983MNRAS.203..651C)
* FW : Fuhr & Wiese (1990, in Lide, D. R. ed, CRC Handbook of Chemistry
* and Physics, CRC Press, Cleveland, OH)
* GB : Grevese et al. (1981, Upper Main Sequence CP Stars, 23rd.
* Liege Astrophys. Coll., 211)
* HE : Heise (1974A&A....34..275H)
* HL : Hannaford et al. (1982ApJ...261..736H)
* JK : Joensson et al. (1984, Phys. Rev. A, 30, 2429)
* KG : Kurucz (guess-1995, In: Adelman S.J., Wiese W.L. (eds.) Astrophysical
* Applications of Powerful New Databases. ASP Conference Series, p. 205)
* KP : Kurucz & Peytremann (1975, Cat. <VI/10>)
* KX : Kurucz, 1995, in Astrophysical Applications of Powerful New
* Databases, eds. S. J. Adelman and W. L. Wiese
* (ASP, San Francisco), ASP Conf. Ser. 78, 205
* LA : Lanz & Artru (1985PhyS...32..115L)
* LD : Lawler & Dakin (1989, JOSA B, 6, 1457)
* MC : Magazzu & Cowley (1986ApJ...308..254M)
* MF : Martin et al., 1988, and Fuhr et al. 1988, Cat. <VI/72>
* SG : Schulz-Gulde (1969, JQSRT 9, 13 )
* WF : Wiese et al., 1996, J. Phys. Chem. Ref. Data, Monograph 6
* WM : Wiese & Martin, 1980, NSRDS-NBS 68. Part 2, US Government
* Printing Office, Washington, DC.
* WS : Wiese et al., 1966, NSRDS-NBS 4, US Government Printing,
* Office, Washington, DC and 1969, NSRDS-NBS, Washington, D.C.,
* US Department of Commerce, National Bureau of Standards
* WV : Ward (1985MNRAS.213...71W)
C=============================================================================
C Loading file 'abund.dat' ! Atomic abundances
C Format for file interpretation
1 format(A6,1X,A2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'abund.dat')
write(6,*) '....Loading file: abund.dat'
do i__=1,30
read(1,'(A20)')ar__
read(ar__,1)Ion,Element,log_Nel_Ntot,e_log_Nel_Ntot
if(ar__(17:20) .EQ. '') e_log_Nel_Ntot = rNULL__
c ..............Just test output...........
write(6,1)Ion,Element,log_Nel_Ntot,e_log_Nel_Ntot
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea1.dat' ! Elemental abundances
C Format for file interpretation
2 format(A6,1X,A7,1X,F7.2,1X,F5.2,1X,A2,1X,I4,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,533
read(1,'(A42)')ar__1
read(ar__1,2)Ion_1,Mult,lambda,log_gf,r_log_gf,EW,log_N_Ntot
if(ar__1(33:36) .EQ. '') EW = iNULL__
c ..............Just test output...........
write(6,2)Ion_1,Mult,lambda,log_gf,r_log_gf,EW,log_N_Ntot
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end